completed echo.asm
This commit is contained in:
parent
8906317d1a
commit
0dace8660c
2 changed files with 30 additions and 25 deletions
BIN
20.dev
BIN
20.dev
Binary file not shown.
|
|
@ -1,41 +1,40 @@
|
|||
echo START 0
|
||||
start LDA txt
|
||||
JSUB char
|
||||
JSUB nl
|
||||
|
||||
start .LDCH txt
|
||||
.JSUB char
|
||||
.JSUB nl
|
||||
LDA #txt
|
||||
JSUB string
|
||||
|
||||
JSUB nl
|
||||
|
||||
halt J halt
|
||||
|
||||
.char
|
||||
char STA regA
|
||||
STB regB
|
||||
char STB regB
|
||||
STT regT
|
||||
.STL regL
|
||||
STS regS .shranimo registre
|
||||
|
||||
WD 0x1
|
||||
|
||||
LDA regA .obnovimo registre
|
||||
WD #1
|
||||
.obnovimo registre
|
||||
LDB regB
|
||||
LDT regT
|
||||
LDT regT
|
||||
.LDL regL
|
||||
LDS regS
|
||||
|
||||
RSUB
|
||||
|
||||
.nl
|
||||
nl STA regA
|
||||
STB regB
|
||||
nl STB regB
|
||||
STT regT
|
||||
STS regS .shranimo registre
|
||||
|
||||
LDCH nl
|
||||
WD 0x1
|
||||
LDX 1
|
||||
LDCH newline
|
||||
WD #1
|
||||
LDX #1
|
||||
LDCH newline, X
|
||||
WD 0x1
|
||||
WD #1
|
||||
|
||||
LDA regA .obnovimo registre
|
||||
.obnovimo registre
|
||||
LDB regB
|
||||
LDT regT
|
||||
LDS regS
|
||||
|
|
@ -43,22 +42,26 @@ nl STA regA
|
|||
RSUB
|
||||
|
||||
.string
|
||||
string STA regA
|
||||
STB regB
|
||||
string STA regA
|
||||
STB regB
|
||||
STT regT
|
||||
STL regL
|
||||
STS regS .shranimo registre
|
||||
|
||||
loop CLEAR X
|
||||
LDB #1
|
||||
LDCH regA, X
|
||||
JSUB char
|
||||
ADDR X, B
|
||||
loop LDB #1
|
||||
LDCH @regA
|
||||
COMP #0
|
||||
JSUB char
|
||||
.add +1 to regA
|
||||
LDA regA
|
||||
ADD #1
|
||||
STA regA
|
||||
JGT loop
|
||||
|
||||
LDA regA .obnovimo registre
|
||||
LDB regB
|
||||
LDT regT
|
||||
LDL regL
|
||||
LDS regS
|
||||
|
||||
RSUB
|
||||
|
|
@ -79,5 +82,7 @@ regA RESW 1
|
|||
regB RESW 1
|
||||
regT RESW 1
|
||||
regS RESW 1
|
||||
regL RESW 1
|
||||
|
||||
|
||||
END start
|
||||
Loading…
Add table
Add a link
Reference in a new issue