wait module
external
_cerror
global
wait procedure
entry
sc #7
ldl rr2,rr4
jp c,cerror
test r7
ret z
ld @r7,r3
ret
end wait