.symbol
 fp 30
 sp 29
 retval 28
 rads 27
.code 0
 mov fp #3500
 mov sp #3000
 jal rads main
 trap r0 #0
; fun int0 pv 0
:int0
; gnAsg :(#1 (call readport 10 ))
st r1 @1 fp
st r2 @2 fp
add fp fp #3
st rads @0 fp
mov r2 #10
trap r2 #18
mov r1 r28
trap r1 #1
:L101
ld rads @0 fp
sub fp fp #3
ld r2 @2 fp
ld r1 @1 fp
reti
; fun main pv 0
:main
st r1 @1 fp
add fp fp #2
st rads @0 fp
mov r1 #int0
st r1 1000
mov r1 #100
trap r1 #13
jmp L103
:L104
wfi
:L103
mov r1 #1
jt r1 L104
:L102
ld rads @0 fp
sub fp fp #2
ld r1 @1 fp
ret rads
.data 200
.end
