error on echo.asm
This commit is contained in:
parent
eab771028a
commit
64653bca2c
1 changed files with 81 additions and 0 deletions
81
vaja2/vhod_izhod/echo.asm
Normal file
81
vaja2/vhod_izhod/echo.asm
Normal file
|
|
@ -0,0 +1,81 @@
|
||||||
|
ECHO START 0
|
||||||
|
LDA #97
|
||||||
|
STA number
|
||||||
|
JSUB char
|
||||||
|
JSUB nl
|
||||||
|
JSUB char
|
||||||
|
JSUB nl
|
||||||
|
+LDA #test_niz
|
||||||
|
JSUB string
|
||||||
|
JSUB nl
|
||||||
|
LDA number
|
||||||
|
JSUB num
|
||||||
|
HALT J HALT
|
||||||
|
END ECHO
|
||||||
|
|
||||||
|
.izpis znaka
|
||||||
|
char WD #1
|
||||||
|
RSUB
|
||||||
|
|
||||||
|
.izpis newline
|
||||||
|
nl +STA old_A
|
||||||
|
CLEAR A
|
||||||
|
|
||||||
|
LDCH newline
|
||||||
|
WD #1
|
||||||
|
|
||||||
|
+LDA old_A
|
||||||
|
RSUB
|
||||||
|
|
||||||
|
.izpis niza
|
||||||
|
string +STA strptr
|
||||||
|
loop_niz CLEAR A
|
||||||
|
LDCH @strptr
|
||||||
|
WD #1
|
||||||
|
COMP #0
|
||||||
|
JEQ out
|
||||||
|
+LDA strptr
|
||||||
|
ADD #1
|
||||||
|
+STA strptr
|
||||||
|
J loop_niz
|
||||||
|
out RSUB
|
||||||
|
|
||||||
|
.desetiski izpis stevila v A iz HEX
|
||||||
|
->ERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRROR
|
||||||
|
num LDX digits_ix
|
||||||
|
STA number
|
||||||
|
DIV #10
|
||||||
|
STA quot
|
||||||
|
MUL #10
|
||||||
|
STA subtrahend
|
||||||
|
LDA number
|
||||||
|
SUB subtrahend
|
||||||
|
STCH digits, X
|
||||||
|
LDA digits_ix
|
||||||
|
ADD #1
|
||||||
|
STA digits_ix
|
||||||
|
LDA number
|
||||||
|
DIV #10
|
||||||
|
COMP #0
|
||||||
|
JGT num
|
||||||
|
.izpis v tabele v obratnem vrstnem redu
|
||||||
|
loop_num LDX digits_ix
|
||||||
|
LDA digits, X
|
||||||
|
JSUB char
|
||||||
|
LDA digits_ix
|
||||||
|
SUB #1
|
||||||
|
STA digits_ix
|
||||||
|
COMP #-1
|
||||||
|
JGT loop_num
|
||||||
|
RSUB
|
||||||
|
|
||||||
|
old_A WORD 0
|
||||||
|
newline BYTE 10
|
||||||
|
test_niz BYTE C'hello world'
|
||||||
|
BYTE 0
|
||||||
|
strptr WORD 0
|
||||||
|
quot WORD 0
|
||||||
|
subtrahend WORD 0
|
||||||
|
number WORD 0
|
||||||
|
digits RESB 100
|
||||||
|
digits_ix WORD 0
|
||||||
Loading…
Add table
Add a link
Reference in a new issue