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