completed echo.asm

This commit is contained in:
Jaka Furlan 2025-11-03 10:28:14 +01:00
parent 8906317d1a
commit 0dace8660c
2 changed files with 30 additions and 25 deletions

BIN
20.dev

Binary file not shown.

View file

@ -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
.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
@ -46,19 +45,23 @@ nl STA regA
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