100 NAM COPYT: ! Insert <,'BPGM#'> for HP87 110 DEF RUNTIM ! 44 120 DEF ASCIIS ! 56 130 DEF PARSE ! 50 140 DEF ERMSG ! 70 150 DEF INIT ! 304 160 RUNTIM BSZ 2 170 DEF COPYT. 180 PARSE BSZ 2 190 DEF COPYTP 200 BYT 377,377 210 ! ******************** 220 ASCIIS ASP "COPYTAPE " 230 BYT 377 240 ERMSG BYT 200 250 ASP "I can only copy 42 files to tape! " 260 ASP "Your source device must be a disk! " 270 ASP "The tape's not big enough. Sorry! " 280 ASP "Copying SECURED files is a NO-NO! " 290 BYT 377 300 INIT DRP R36 310 LDBD R36,=ROMFL 320 CMB R36,=3 330 JNZ RL3 ! +22 REL(334) 340 LDM R36,=033,000 350 DRP R26 360 LDMD R26,=BINTAB 370 ADM R26,=335,000 380 JSB =DISP. 390 JSB =DRV12. 400 RL3 RTN 410 ! ******************** 420 ASC "COPYTAPE " 430 ASC "" 690 COPYTP BIN 700 DRP R36 710 LDMD R36,=BINTAB 720 DRP R70 730 ARP R40 740 LDM R70,R40 750 ARP R36 760 JSB X36,RL6 ! REL(437) 770 DRP R52 780 LDB R52,=371 790 ARP R12 800 PUBD R52,+R12 810 DRP R71 820 PUBD R71,+R12 830 DRP R73 840 PUBD R73,+R12 850 RTN 860 ! ******************** 870 DRP R14 880 CMB R14,=54 890 JNZ RL7 ! +3 REL(424) 900 RL10 RTN 910 ! ******************** 920 RL7 DRP R46 930 ARP R6 940 POMD R46,-R6 950 JSB =ERROR 960 BYT 134 ! ERROR 92 970 JSB =TPFIN 980 RTN 990 ! ******************** 1000 RL6 JSB =STREX+ 1010 JEN RL10 ! -17 REL(423) 1020 JMP RL7 ! -20 REL(424) 1030 RL16 JSB =ERROR 1040 BYT 375 ! ERROR -15 1050 JSB =TPFIN 1060 RTN 1070 ! ******************** 1080 RL13 DRP R14 1090 ARP R6 1100 LDM R14,R6 1110 ADM R14,=005,000 1120 STMD R14,=SAVER6 1130 LDMD R14,=MSBASE 1140 RTN 1150 ! ******************** 1160 BYT 0,241 1180 COPYT. DRP R20 1190 LDMD R20,=BINTAB 1200 ARP R20 1210 JSB X20,RL13 ! REL(456) 1220 DRP R40 1230 LDB R40,=2 1240 JSB =ROMJSB 1250 DEF GTMSUS 1260 BYT 320 ! MASS STORAGE 1270 DRP R17 1280 CMB R17,=300 1290 JCY RL15 ! +133 REL(654) 1300 DRP R44 1310 TSM R44 1320 JZR RL16 ! -57 REL(446) 1330 ARP R14 1340 STMD R44,X14,MS+161 1350 JSB =ERASTP 1360 DRP R17 1370 CMB R17,=300 1380 JCY RL15 ! +113 REL(654) 1390 JSB =T67 1400 STBD R#,=GINTEN 1410 DRP R56 1420 LDM R56,=200,205 1430 DRP R55 1440 CLB R55 1450 DRP R20 1460 LDMD R20,=BINTAB 1470 DRP R55 1480 ARP R20 1490 STMD R55,X20,LAB21 ! (1706) 1500 JSB X20,RL22 ! REL(1656) 1510 ARP R20 1520 JSB X20,RL13 ! REL(456) 1530 JSB =ROMJSB 1540 DEF MS23 1550 BYT 320 ! MASS STORAGE 1560 DRP R17 1570 CMB R17,=300 1580 JCY RL15 ! +44 REL(654) 1590 JSB =ROMJSB 1600 DEF MS24 1610 BYT 320 ! MASS STORAGE 1620 DRP R17 1630 CMB R17,=300 1640 JCY RL15 ! +31 REL(654) 1650 JEN RL15 ! +27 REL(654) 1660 RL26 DRP R45 1670 ARP R14 1680 STMD R45,R14 1690 DRP R20 1700 LDMD R20,=BINTAB 1710 DRP R55 1720 ARP R20 1730 LDMD R55,X20,LAB21 ! (1706) 1740 ICB R55 1750 CMB R55,=53 1760 JNZ RL25 ! +22 REL(670) 1770 JSB =ERROR 1780 BYT 376 ! ERROR -2 1790 RL15 JSB =TPFIN 1800 RTN 1810 ! ******************** 1820 RL28 JSB =ERROR 1830 BYT 373 ! ERROR -5 1840 JMP RL15 ! -10 REL(654) 1850 RL40 JMP RL26 ! -37 REL(627) 1860 RL25 DRP R30 1870 ARP R56 1880 STBD R30,X56,CAT+7 1890 JOD RL28 ! -15 REL(660) 1900 CLB R30 1910 STBD R30,X56,CAT+6 1920 DRP R42 1930 ARP R36 1940 LDMD R42,R36 1950 ARP R56 1960 STMD R42,R56 1970 LDB R42,=320 1980 STBD R42,=RSELEC 1990 DRP R30 2000 JSB =MS31 2010 DRP R30 2020 ARP R56 2030 STMD R30,X56,CAT+10 2040 CLB R30 2050 STBD R30,=RSELEC 2060 DRP R30 2070 ARP R36 2080 LDMD R30,X36,DCAT36 2090 ARP R56 2100 STMD R30,X56,CAT+12 2110 DRP R56 2120 ADM R56,=014,000 2130 DRP R55 2140 ARP R20 2150 STMD R55,X20,LAB21 ! (1706) 2160 CMB R55,=25 2170 JNZ RL35 ! +52 REL(1030) 2180 DRP R6 2190 STMD R6,=SAVER6 2200 STBD R6,=GINTDS 2210 JSB =T41 2220 JSB =T69 2230 STBD R#,=GINTEN 2240 DRP R20 2250 LDMD R20,=BINTAB 2260 ARP R20 2270 JSB X20,RL13 ! REL(456) 2280 DRP R55 2290 ARP R20 2300 LDMD R55,X20,LAB21 ! (1706) 2310 DRP R56 2320 LDM R56,=200,205 2330 DRP R55 2340 STMD R55,X20,LAB21 ! (1706) 2350 JSB X20,RL22 ! REL(1656) 2360 RL35 JSB =ROMJSB 2370 DEF MS39 2380 BYT 320 ! MASS STORAGE 2390 DRP R17 2400 CMB R17,=300 2410 RL41 JCY RL15 ! -165 REL(654) 2420 JEZ RL40 ! -155 REL(666) 2430 DRP R6 2440 STMD R6,=SAVER6 2450 STBD R6,=GINTDS 2460 JSB =T41 2470 STBD R#,=GINTEN 2480 DRP R17 2490 CMB R17,=300 2500 JCY RL41 ! -24 REL(1041) 2510 DRP R20 2520 LDMD R20,=BINTAB 2530 ARP R20 2540 JSB X20,RL13 ! REL(456) 2550 DRP R34 2560 LDM R34,=001,000 2570 STMD R34,=TFL#* 2580 JSB =ROMJSB 2590 DEF MS23 2600 BYT 320 ! MASS STORAGE 2610 DRP R17 2620 CMB R17,=300 2630 JCY RL41 ! -56 REL(1041) 2640 JSB =ROMJSB 2650 DEF MS24 2660 BYT 320 ! MASS STORAGE 2670 DRP R17 2680 CMB R17,=300 2690 JCY RL43 ! +4 REL(1136) 2700 JEZ RL44 ! +6 REL(1142) 2710 RL43 JSB =TPFIN 2720 RTN 2730 ! ******************** 2740 RL44 DRP R30 2750 LDB R30,=20 2760 STBD R30,=FILTYP 2770 DRP R45 2780 ARP R14 2790 STMD R45,R14 2800 LDB R45,=320 2810 STBD R45,=RSELEC 2820 DRP R30 2830 JSB =MS31 2840 DRP R20 2850 LDMD R20,=BINTAB 2860 DRP R30 2870 ARP R14 2880 STMD R30,X14,MS+145 2890 STMD R30,=TW1? 2900 STMD R30,=TFREE? 2910 JSB =MS49 2920 DRP R22 2930 CLB R22 2940 STBD R22,=RSELEC 2950 DRP R30 2960 ARP R20 2970 STMD R30,X20,LAB50 ! (1712) 2980 JMP RL51 ! +4 REL(1224) 2990 RL63 JMP RL44 ! -60 REL(1142) 3000 RL51 DRP R24 3010 LDM R24,=000,001 3020 DRP R26 3030 CLB R26 3040 JSB =ROMJSB 3050 DEF MS52 3060 BYT 320 ! MASS STORAGE 3070 DRP R30 3080 ARP R20 3090 STBD R30,X20,LAB53 ! (1705) 3100 DRP R31 3110 ARP R30 3120 LDB R31,R30 3130 ANM R31,=050 3140 JZR RL54 ! +35 REL(1307) 3150 DRP R26 3160 ICB R26 3170 DRP R76 3180 ARP R36 3190 LDMD R76,X36,DCAT34 3200 DRP R45 3210 CLM R45 3220 ARP R76 3230 LDB R45,R76 3240 JNZ RL56 ! +4 REL(1273) 3250 DRP R46 3260 ICB R46 3270 RL56 DRP R47 3280 ARP R77 3290 LDB R47,R77 3300 DRP R76 3310 TSB R76 3320 JZR RL57 ! +4 REL(1304) 3330 DRP R47 3340 ICB R47 3350 RL57 DRP R45 3360 ARP R24 3370 STM R45,R24 3380 RL54 DRP R20 3390 LDMD R20,=BINTAB 3400 DRP R24 3410 ARP R20 3420 STMD R24,X20,LAB58 ! (1703) 3430 DRP R26 3440 STBD R26,X20,LAB59 ! (1711) 3450 DRP R30 3460 LDMD R30,X20,LAB50 ! (1712) 3470 JSB =ROMJSB 3480 DEF MS60 3490 BYT 320 ! MASS STORAGE 3500 DRP R17 3510 CMB R17,=300 3520 JCY RL61 ! +166 REL(1527) 3530 JMP RL62 ! +4 REL(1347) 3540 RL71 JMP RL63 ! -123 REL(1222) 3550 RL62 JSB =ROMJSB 3560 DEF MS64 3570 BYT 320 ! MASS STORAGE 3580 DRP R17 3590 CMB R17,=300 3600 JCY RL65 ! +167 REL(1547) 3610 DRP R20 3620 LDMD R20,=BINTAB 3630 DRP R26 3640 ARP R20 3650 LDBD R26,X20,LAB59 ! (1711) 3660 JZR RL66 ! +17 REL(1412) 3670 DRP R36 3680 LDM R36,=000,204 3690 CLE 3700 DRP R0 3710 LDB R0,=200 3720 JSB =MS67 3730 JEN RL61 ! +117 REL(1527) 3740 RL66 DRP R6 3750 STMD R6,=SAVER6 3760 STBD R6,=GINTEN 3770 JSB =T32B 3780 STBD R#,=GINTEN 3790 DRP R30 3800 LDMD R30,=TFL#* 3810 DCM R30 3820 STMD R30,=TFL#* 3830 DRP R20 3840 LDMD R20,=BINTAB 3850 DRP R30 3860 ARP R20 3870 LDBD R30,X20,LAB53 ! (1705) 3880 STBD R30,=FILTYP 3890 JSB X20,RL13 ! REL(456) 3900 JSB =ROMJSB 3910 DEF MS69 3920 BYT 320 ! MASS STORAGE 3930 JMP RL70 ! +17 REL(1503) 3940 RL79 JMP RL71 ! -121 REL(1345) 3950 RL77 JSB =ROMJSB 3960 DEF MS64 3970 BYT 320 ! MASS STORAGE 3980 DRP R17 3990 CMB R17,=300 4000 JCY RL72 ! +135 REL(1636) 4010 RL70 DRP R20 4020 LDMD R20,=BINTAB 4030 ARP R20 4040 JSB X20,RL73 ! REL(1642) 4050 DRP R32 4060 ICM R32 4070 ARP R30 4080 CMM R32,R30 4090 JZR RL74 ! +12 REL(1531) 4100 DRP R22 4110 LDM R22,=000,001 4120 JMP RL75 ! +11 REL(1536) 4130 RL61 JMP RL72 ! +107 REL(1636) 4140 RL74 DRP R22 4150 ARP R20 4160 LDMD R22,X20,LAB58 ! (1703) 4170 RL75 JSB =ROMJSB 4180 DEF MS76 4190 BYT 320 ! MASS STORAGE 4200 DRP R17 4210 CMB R17,=300 4220 RL65 JCY RL72 ! +67 REL(1636) 4230 DRP R20 4240 LDMD R20,=BINTAB 4250 ARP R20 4260 JSB X20,RL73 ! REL(1642) 4270 JNZ RL77 ! -71 REL(1470) 4280 DRP R6 4290 STMD R6,=SAVER6 4300 JSB =T30A 4310 JSB =T67 4320 STBD R#,=GINTEN 4330 DRP R20 4340 LDMD R20,=TFL#* 4350 ICM R20 4360 STMD R20,=TFL#* 4370 LDMD R20,=BINTAB 4380 ARP R20 4390 JSB X20,RL13 ! REL(456) 4400 JSB =ROMJSB 4410 DEF MS39 4420 BYT 320 ! MASS STORAGE 4430 DRP R17 4440 CMB R17,=300 4450 JCY RL72 ! +6 REL(1636) 4460 JEN RL72 ! +4 REL(1636) 4470 JMP RL79 ! -146 REL(1466) 4480 RL72 JSB =TPFIN 4490 RTN 4500 ! ******************** 4510 RL73 DRP R30 4520 ARP R14 4530 LDMD R30,X14,MS+145 4540 DRP R32 4550 LDMD R32,=TF#+2 4560 ARP R30 4570 CMM R32,R30 4580 RTN 4590 ! ******************** 4600 RL22 ARP R0 4610 DRP R60 4620 LDB R60,=25 4630 DRP R61 4640 LDB R61,=200 4650 RL81 DRP R61 4660 ARP R56 4670 STBD R61,X56,CAT+7 4680 DRP R56 4690 ADM R56,=014,000 4700 DRP R60 4710 DCB R60 4720 JNZ RL81 ! -13 REL(1665) 4730 RTN 4740 ! ******************** 4750 LAB58 BSZ 2 4770 LAB53 BYT 0 4780 LAB21 BSZ 3 4810 LAB59 BYT 0 4820 LAB50 BSZ 2 4840 BYT 377 4850 BSZ 63 5350 BINTAB DAD 101233 5360 ROMJSB DAD 4776 5370 ERROR+ DAD 6611 5380 ERROR DAD 6615 5390 ROMFL DAD 101231 5400 SCAN DAD 11262 5410 DISP. DAD 70046 5420 DRV12. DAD 5462 5430 TPFIN DAD 22000 5440 STREX+ DAD 13623 5450 SAVER6 DAD 101174 5460 MSBASE DAD 102540 5470 GTMSUS DAD 61361 5480 MS+161 EQU 161 5490 ERASTP DAD 25120 5500 T67 DAD 24455 5510 GINTEN DAD 177400 5530 MS23 DAD 63346 5540 MS24 DAD 73004 5550 CAT+7 EQU 7 5560 CAT+6 EQU 6 5570 RSELEC DAD 177430 5580 MS31 DAD 63574 5590 CAT+10 EQU 10 5600 DCAT36 EQU 36 5610 CAT+12 EQU 12 5620 GINTDS DAD 177401 5630 T41 DAD 22736 5640 T69 DAD 24511 5650 MS39 DAD 72751 5660 TFL#* DAD 101274 5670 FILTYP DAD 101034 5680 MS+145 EQU 145 5690 TW1? DAD 101040 5700 TFREE? DAD 101043 5710 MS49 DAD 63540 5730 MS52 DAD 61716 5750 DCAT34 EQU 34 5780 MS60 DAD 77310 5790 MS64 DAD 77257 5800 MS67 DAD 37607 5810 T32B DAD 22124 5820 MS69 DAD 73170 5830 MS76 DAD 73200 5840 T30A DAD 21763 5850 TF#+2 DAD 101276 5860 FIN