19 lines
162 B
Text
19 lines
162 B
Text
!: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
|
|
>funciton
|