L L#0//读取长整数0
T #IO2//IO2=长整数0
L L#0//这句没用
L 380
M001: T #TEMP2//temp2=常数380
L #TEMP2
ITD
T #TEMP5/temp5=temp2,temp2保存的是整数，temp5保存的是双整数
L #TEMP5//temp2保存到累加器2中，temp5放到累加器1中
TAK //交换累加器1和2的内容
L #TEMP5
+D
T #TEMP4//temp4=temp5+temp2
L #TEMP4
+ L#4//这句有错误，应该是L#4 +I
T #TEMP3//temp3=temp4+4
L #TEMP3
SLD 3
T #TEMP3//temp3左移三位
L #TEMP4
SLD 3
T #TEMP4//temp4左移三位
OPN DB 30//打开db30
L DBW [#TEMP4]//读取db30中temp4保存的数据对应的地址的数据
T DBW [#TEMP3]//写到db30中temp4对应的地址
L DBW [#TEMP3]//读取db30中temp3保存的数据对应的地址的数据
ITD //转换成双整数
T #TEMP5保存到temp5中
L #TEMP5
TAK //交换累加器1和2的内容，累加器1中保存的是 DBW [#TEMP3]的值
L #IO2
-D
T #IO2//IO2= DBW [#TEMP3]-IO2
L L#0
L #TEMP2//temp2清零
LOOP M001//跳到M001
L L#4
T #TEMP3//temp3=4
L #TEMP3
SLD 3
T #TEMP3//temp3=temp3*8
L #IN0
T DBW [#TEMP3]//DBW [#TEMP3]=IN0
L #IN0
ITD
T #TEMP5
L #TEMP5//temp5=IN0，IN0是整数，temp5是双整数
TAK //交换累加器1和2的内容，累加器1为IN0
L #IO2
-D
T #IO1 //IO1=IN0-IO2