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