1000 BYT 30,56 1010 TRIM. DRP R45 1020 LDMD R45,=PTR1 1070 ARP R6 1080 PUMD R45,+R6 1090 ARP R12 1100 POMD R45,-R12 1110 STMD R45,=PTR2 1120 DRP R30 1130 POMD R30,-R12 1140 ARP R55 1150 STM R30,R55 1160 DRP R57 1170 CLB R57 1180 JSB =RESMEM ! (31741) 1190 JEN LBL13 ! +101 (2653) 1200 DRP R65 1210 STMD R65,=PTR1 ! (177710) 1220 LBL16 DRP R30 1230 DCM R30 1240 ARP R32 1250 STM R30,R32 1260 JNG LBL15 ! +61 (2645) 1270 DRP R20 1280 LDBI R20,=PTR2- ! (177715) 1290 CMB R20,=40 1300 JZR LBL16 ! -14 (2560) 1310 CMB R20,=240 1320 JZR LBL16 ! -20 (2560) Unlabelled 1330 STBI R20,=PTR1+ ! (177711) 1340 DRP R30 1350 ICM R30 1360 STM R30,R32 1370 LBL19 DRP R30 1380 DCM R30 1390 JZR LBL18 ! +13 (2625) 1400 DRP R20 1410 LDBI R20,=PTR2- ! (177715) 1420 STBI R20,=PTR1+ ! (177711) 1430 JMP LBL19 ! -13 (2610) 1435 ! --------------- 1440 LBL18 DRP R32 1450 DCM R32 1460 JNG LBL15 ! +16 (2645) 1470 DRP R20 1480 LDBI R20,=PTR2+ ! (177716) 1490 CMB R20,=40 1500 JZR LBL18 ! -12 (2625) 1510 CMB R20,=240 1520 JZR LBL18 ! -16 (2625) 1530 LBL15 DRP R32 1540 ICM R32 1550 ARP R12 1560 PUMD R32,+R12 1570 DRP R65 1580 PUMD R65,+R12 1590 LBL13 DRP R65 1600 ARP R6 1610 POMD R65,-R6 1620 STMD R65,=PTR1 ! (177710) 1630 RTN 1640 !*********************************************** 1650 RESMEM DAD 31741 1700 PTR1+ DAD 177711 1730 PTR2+ DAD 177716 1740 LNK DSEERS-