SET
SAVE
L 0
T #TEMP1
L #IN0
T #TEMP2
L 0
<D
JC M001
TAK
L L#9990000
<=D
JC M002
L W#16#3999
JC M001
M002: L #TEMP2
L L#10
/D
T #TEMP2
L L#999
<=D
JC M003
L #TEMP1
INC 1
T #TEMP1
M003: TAK
DTB
L #TEMP1
SLW 12
OW
JU M004
M001: CLR
SAVE
M004: T
BE