24 lines
191 B
Text
24 lines
191 B
Text
R+=D
|
|
x3c
|
|
call :funciton
|
|
x4b
|
|
!:label
|
|
?J<B:label
|
|
:label
|
|
e
|
|
; :l ba b
|
|
;J=d0
|
|
A=d60
|
|
syscall x3c
|
|
align
|
|
:label
|
|
reserve d1000
|
|
B+=J
|
|
B<=d9
|
|
B-=J
|
|
?J=B:label
|
|
?A!B:label
|
|
?A>B:label
|
|
A=:label
|
|
x3c
|
|
return
|