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 echo START 0
start LDA txt start .LDCH txt
JSUB char .JSUB char
JSUB nl .JSUB nl
LDA #txt
JSUB string JSUB string
JSUB nl
halt J halt halt J halt
.char .char
char STA regA char STB regB
STB regB
STT regT STT regT
.STL regL
STS regS .shranimo registre STS regS .shranimo registre
WD 0x1 WD #1
.obnovimo registre
LDA regA .obnovimo registre
LDB regB LDB regB
LDT regT LDT regT
.LDL regL
LDS regS LDS regS
RSUB RSUB
.nl .nl
nl STA regA nl STB regB
STB regB
STT regT STT regT
STS regS .shranimo registre STS regS .shranimo registre
LDCH nl LDCH newline
WD 0x1 WD #1
LDX 1 LDX #1
LDCH newline, X LDCH newline, X
WD 0x1 WD #1
LDA regA .obnovimo registre .obnovimo registre
LDB regB LDB regB
LDT regT LDT regT
LDS regS LDS regS
@ -43,22 +42,26 @@ nl STA regA
RSUB RSUB
.string .string
string STA regA string STA regA
STB regB STB regB
STT regT STT regT
STL regL
STS regS .shranimo registre STS regS .shranimo registre
loop CLEAR X loop LDB #1
LDB #1 LDCH @regA
LDCH regA, X
JSUB char
ADDR X, B
COMP #0 COMP #0
JSUB char
.add +1 to regA
LDA regA
ADD #1
STA regA
JGT loop JGT loop
LDA regA .obnovimo registre LDA regA .obnovimo registre
LDB regB LDB regB
LDT regT LDT regT
LDL regL
LDS regS LDS regS
RSUB RSUB
@ -79,5 +82,7 @@ regA RESW 1
regB RESW 1 regB RESW 1
regT RESW 1 regT RESW 1
regS RESW 1 regS RESW 1
regL RESW 1
END start END start