1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
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