echo.asm completed
This commit is contained in:
parent
64653bca2c
commit
c2d6d549ea
1 changed files with 18 additions and 6 deletions
|
|
@ -1,5 +1,5 @@
|
|||
ECHO START 0
|
||||
LDA #97
|
||||
LDA #3643
|
||||
STA number
|
||||
JSUB char
|
||||
JSUB nl
|
||||
|
|
@ -10,6 +10,7 @@ ECHO START 0
|
|||
JSUB nl
|
||||
LDA number
|
||||
JSUB num
|
||||
JSUB nl
|
||||
HALT J HALT
|
||||
END ECHO
|
||||
|
||||
|
|
@ -41,7 +42,7 @@ loop_niz CLEAR A
|
|||
out RSUB
|
||||
|
||||
.desetiski izpis stevila v A iz HEX
|
||||
->ERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRROR
|
||||
.stevke pridobimo z mod 10, shranimo v tabelo, nato tabelo izpisemo v obratnem vrstnem redu
|
||||
num LDX digits_ix
|
||||
STA number
|
||||
DIV #10
|
||||
|
|
@ -58,15 +59,24 @@ num LDX digits_ix
|
|||
DIV #10
|
||||
COMP #0
|
||||
JGT num
|
||||
.shrani stevec za X register in pa mejo len za naslednjo zanko loop_num
|
||||
LDA digits_ix
|
||||
STA len
|
||||
SUB #1
|
||||
STA digits_ix
|
||||
.izpis v tabele v obratnem vrstnem redu
|
||||
loop_num LDX digits_ix
|
||||
LDA digits, X
|
||||
JSUB char
|
||||
LDCH digits, X
|
||||
ADD #48 .stevke v ascii se zacnejo pri 48
|
||||
WD #1
|
||||
LDA digits_ix
|
||||
SUB #1
|
||||
STA digits_ix
|
||||
COMP #-1
|
||||
JGT loop_num
|
||||
LDA i
|
||||
ADD #1
|
||||
STA i
|
||||
COMP len
|
||||
JLT loop_num
|
||||
RSUB
|
||||
|
||||
old_A WORD 0
|
||||
|
|
@ -79,3 +89,5 @@ subtrahend WORD 0
|
|||
number WORD 0
|
||||
digits RESB 100
|
||||
digits_ix WORD 0
|
||||
i WORD 0
|
||||
len WORD 0
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue