1000 SCRATP   DRP R55
1010          ARP R43
1020          LDB R55,R43
1030          LDB R56,=BPGM#   
1040          LDB R57,=371
1050          STMI R55,=PTR2-   
1060          JSB =SCAN              !  (21110)
1070          JSB =DMNDCR            !  (25175)
1090          RTN 
1170 !***********************************************
1180          BYT 241
1190 SCRAT.   DRP R22
1200          LDB R22,=2
1210          STBD R22,=ROMFL        !  (104065)
1230          JSB =BPINI             !  (6113)
1250          BIN 
1260          DRP R24
1270          LDMD R24,=BINTAB       !  (104070)
1280          JZR LBL22              ! +106 (67025)
1290          STBD R24,=GINTDS       !  (177401)
1300          JSB =SVP1&2            !  (37717)
1310          DRP R45
1320          LDMD R45,=FWBIN        !  (100044)
1330          STMD R45,=PTR2         !  (177714)
1340          LDMD R45,=LWAMEM       !  (100041)
1350          STMD R45,=PTR1         !  (177710)
1360          SBMD R45,=FWBIN        !  (100044)
1370          ARP R6
1380          PUMD R45,+R6
1390          LDMD R45,=LAVAIL       !  (100025)
1400          SBMD R45,=LWAMEM       !  (100041)
1410          JSB =EMOVDN            !  (32161)
1420          DRP R45
1430          ARP R6
1440          POMD R45,-R6
1450          DRP R30
1460          LDB R30,=5
1470          DRP R32
1480          LDM R32,=25,200
1490 LBL30    DRP R55
1500          ARP R32
1510          LDMD R55,R32
1520          ARP R45
1530          SBM R55,R45
1540          ARP R32
1550          PUMD R55,+R32
1560          DRP R30
1570          DCB R30
1580          JNZ LBL30              ! -11
1590          JSB =RTP1&2            !  (37740)
1600          DRP R40
1610          CLM R40
1620          STMD R40,=BINTAB       !  (104070)
1630          STMD R40,=BBAS+2       !  (104075)
1640          STBD R40,=GINTEN       !  (177400)
1650 LBL22    RTN 
1660 !***********************************************
1680 SCAN     DAD 21110
1690 DMNDCR   DAD 25175
1700 PTR2-    DAD 177715
1720 PTR2     DAD 177714
1750 ROMFL    DAD 104065
1760 BPINI    DAD 6113
1780 GINTDS   DAD 177401
1790 SVP1&2   DAD 37717
1800 FWBIN    DAD 100044
1810 LWAMEM   DAD 100041
1820 PTR1     DAD 177710
1830 LAVAIL   DAD 100025
1840 EMOVDN   DAD 32161
1860 RTP1&2   DAD 37740
1870 BBAS+2   DAD 104075
1880 GINTEN   DAD 177400
1890          LNK TRIMS-