83 lines
No EOL
941 B
NASM
83 lines
No EOL
941 B
NASM
echo START 0
|
|
start LDA txt
|
|
JSUB char
|
|
JSUB nl
|
|
|
|
JSUB string
|
|
|
|
|
|
halt J halt
|
|
|
|
.char
|
|
char STA regA
|
|
STB regB
|
|
STT regT
|
|
STS regS .shranimo registre
|
|
|
|
WD 0x1
|
|
|
|
LDA regA .obnovimo registre
|
|
LDB regB
|
|
LDT regT
|
|
LDS regS
|
|
|
|
RSUB
|
|
|
|
.nl
|
|
nl STA regA
|
|
STB regB
|
|
STT regT
|
|
STS regS .shranimo registre
|
|
|
|
LDCH nl
|
|
WD 0x1
|
|
LDX 1
|
|
LDCH newline, X
|
|
WD 0x1
|
|
|
|
LDA regA .obnovimo registre
|
|
LDB regB
|
|
LDT regT
|
|
LDS regS
|
|
|
|
RSUB
|
|
|
|
.string
|
|
string STA regA
|
|
STB regB
|
|
STT regT
|
|
STS regS .shranimo registre
|
|
|
|
loop CLEAR X
|
|
LDB #1
|
|
LDCH regA, X
|
|
JSUB char
|
|
ADDR X, B
|
|
COMP #0
|
|
JGT loop
|
|
|
|
LDA regA .obnovimo registre
|
|
LDB regB
|
|
LDT regT
|
|
LDS regS
|
|
|
|
RSUB
|
|
|
|
.txt
|
|
txt BYTE C'hi'
|
|
BYTE 0
|
|
.parametri
|
|
param1 RESB 1
|
|
param2 RESB 2
|
|
|
|
.constante
|
|
newline BYTE 0x0D
|
|
BYTE 0x0A
|
|
|
|
.registri
|
|
regA RESW 1
|
|
regB RESW 1
|
|
regT RESW 1
|
|
regS RESW 1
|
|
|
|
END start |