10 ! L$="MSS " FOR "MSBIN " 20 ! V$="8503151930" 30 ! HP85 Vesion of 87/ASKIOB 40 ! ************************** 50 ! * M.A.Cragg * 60 ! ************************** 75 NAM ASKIOS 80 DEF RUNTIM 90 DEF ASCIIS 100 DEF PARSE 110 DEF ERMSG 120 DEF INIT 125 ! ************************* 130 PARSE BSZ 2 150 DEF DFREP 155 DEF DFREP 157 ! ************************* 160 RUNTIM BSZ 2 180 DEF DFREE. 190 DEF DFREE. 210 DEF DTYP. 220 DEF DTYP. 230 BYT 377,377 235 ! ************************* 240 ASCIIS BSZ 0 260 ASP "DISC FREE" 270 ASP "DFREE" 290 ASP "DISC TYPE" 300 ASP "DTYPE" 310 BYT 377 315 ! ************************* 320 ERMSG BSZ 0 350 BYT 377 355 ! ************************* 400 INIT BSZ 0 410 RTN 415 ! ************************* 1000 DFREP DRP R43 1010 ARP R6 1020 PUBD R43,+R6 1030 JSB =SCAN 1040 JSB =REFNUM 1050 JEN JL9 1060 JL10 DRP R57 1070 ARP R6 1080 POBD R57,-R6 1090 JSB =ERROR+ 1100 BYT 130 ! ERROR 88 1110 JL9 DRP R14 1120 CMB R14,=54 1130 JNZ JL10 1140 JSB =SCAN 1150 JSB =REFNUM 1160 JEZ JL10 1170 DRP R14 1180 CMB R14,=54 1190 JNZ JL11 1200 JSB =STREX+ 1210 JEZ JL10 1220 JL11 DRP R56 1230 LDB R56,=42 1240 DRP R57 1250 ARP R6 1260 POBD R57,-R6 1270 DRP R55 1280 LDB R55,=371 1290 PUMD R55,+R12 1300 RTN 1310 !************************* 3960 BYT 241 3970 DFREE. BIN 3980 DRP R20 3990 ARP R6 4000 LDM R20,R6 4010 ADM R20,=7,0 4020 STMD R20,=SAVER6 4030 DRP R14 4040 LDMD R14,=MSBASE 4050 DRP R44 4060 LDMD R44,X14,DEFMSU 4070 STMD R44,X14,ACTMSU 4080 DRP R30 4090 ARP R12 4100 LDM R30,R12 4110 ARP R14 4120 STMD R30,R14 4130 SBMD R30,=TOS 4140 CMM R30,=10,0 4150 JZR JL59 ! REL(1276) JL59 4160 DRP R40 4170 LDB R40,=2 4180 JSB =ROMJSB 4190 DEF LAB60 4200 BYT 320 ! MASS STORAGE 4210 JL59 JSB =ROMJSB 4220 DEF LAB61 4230 BYT 320 ! MASS STORAGE 4240 DRP R37 4250 TSB R37 4260 JZR JL62 ! REL(1326) JL62 4270 LDB R37,=320 4280 STBD R37,=ERROM 4290 JSB =ERROR+ 4300 BYT 37 ! ERROR 31 4305 ! ----------------------- 4310 JL66 DRP R12 4320 LDMD R12,=TOS 4330 RTN 4340 !************************* 4350 JL62 DRP R46 4360 STMD R46,=INBF+2 4370 DRP R76 4380 ARP R6 4390 LDM R76,R6 4400 ADM R76,=7,0 4410 STMD R76,=SAVER6 4420 DRP R32 4430 CLM R32 4440 JSB =ROMJSB 4450 DEF LAB65 4460 BYT 320 ! MASS STORAGE 4470 DRP R17 4480 CMB R17,=300 4490 JCY JL66 ! REL(1321) JL66 4500 DRP R20 4510 ARP R36 4520 LDMD R20,X36,LAB67 4530 ARP R21 4540 XRB R20,R21 4550 DRP R21 4560 ARP R20 4570 XRB R21,R20 4580 DRP R20 4590 ARP R21 4600 XRB R20,R21 4610 STMD R20,=INPBUF 4620 JSB =ROMJSB 4630 DEF LAB69 4640 BYT 320 ! MASS STORAGE 4650 DRP R22 4660 CLM R22 4670 DRP R24 4680 CLM R24 4690 DRP R20 4700 LDMD R20,=INPBUF 4710 DRP R26 4720 LDMD R26,=INBF+2 4730 DRP R20 4740 ICM R20 4750 ICM R20 4760 DRP R26 4770 ARP R20 4780 SBM R26,R20 4790 DRP R72 4800 ARP R22 4810 LDM R72,R22 4820 STMD R72,=INPBUF 4830 CLE 4840 JL76 DRP R17 4850 CMB R17,=300 4860 JCY JL66 ! REL(1321) JL66 4870 JSB =ROMJSB 4880 DEF LAB70 4890 BYT 320 ! MASS STORAGE 4900 JZR JL71 ! REL(1511) JL71 4910 BYT 210 ! ICB R? 4920 JZR JL72 ! REL(1565) JL72 4930 DRP R72 4940 LDMD R72,=INPBUF 4950 ARP R22 4960 STM R72,R22 4970 DRP R66 4980 ARP R36 4990 LDMD R66,X36,LAB67 5000 ARP R67 5010 XRB R66,R67 5020 DRP R67 5030 ARP R66 5040 XRB R67,R66 5050 DRP R66 5060 ARP R67 5070 XRB R66,R67 5080 DRP R26 5090 ARP R66 5100 SBM R26,R66 5110 JMP JL73 ! REL(1547) JL73 5115 ! ------------------- 5120 JMP JL74 ! REL(1604) JL74 5125 ! ------------------- 5130 JL71 BIN 5140 DRP R72 5150 LDMD R72,=INPBUF 5160 ARP R22 5170 STM R72,R22 5180 DRP R66 5190 ARP R36 5200 LDMD R66,X36,LAB67 5210 ARP R67 5220 XRB R66,R67 5230 DRP R67 5240 ARP R66 5250 XRB R67,R66 5260 DRP R66 5270 ARP R67 5280 XRB R66,R67 5290 DRP R26 5300 ARP R66 5310 SBM R26,R66 5320 DRP R22 5330 ADM R22,R66 5340 DRP R24 5350 CMM R24,R66 5360 JPS JL73 ! REL(1547) JL73 5370 LDM R24,R66 5380 JL73 DRP R72 5390 ARP R22 5400 LDM R72,R22 5410 STMD R72,=INPBUF 5420 JSB =ROMJSB 5430 DEF LAB75 5440 BYT 320 ! MASS STORAGE 5450 JEZ JL76 ! REL(1437) JL76 5460 JL72 BIN 5470 DRP R72 5480 LDMD R72,=INPBUF 5490 ARP R22 5500 STM R72,R22 5510 DRP R22 5520 ARP R26 5530 ADM R22,R26 5540 DRP R24 5550 CMM R24,R26 5560 JPS JL74 ! REL(1604) JL74 5570 LDM R24,R26 5580 JL74 DRP R22 5590 ARP R6 5600 PUMD R22,+R6 5610 DRP R36 5620 ARP R24 5630 LDM R36,R24 5640 JSB =CONBIN 5650 DRP R40 5660 ARP R12 5670 PUMD R40,+R12 5680 JSB =STOSV 5690 DRP R36 5700 ARP R6 5710 POMD R36,-R6 5720 JSB =CONBIN 5730 DRP R40 5740 ARP R12 5750 PUMD R40,+R12 5760 JSB =STOSV 5770 RTN 5780 !************************* 6660 BYT 30,55 6670 DTYP. BSZ 0 6680 BIN 6690 DRP R0 6700 LDMD R0,=BINTAB 6710 DRP R46 6720 ARP R12 6730 POMD R46,-R12 6740 PUMD R46,+R12 6760 LDBD R46,R46 6770 CMB R46,=72 6780 JZR JL91 ! REL(2101) JL91 6782 CMB R46,=56 6784 JZR JL91 6790 JSB =ERROR+ 6800 BYT 131 ! ERROR 89 6805 ! ------------------------- 6810 JL91 DRP R20 6820 ARP R6 6830 LDM R20,R6 6840 ADM R20,=7,0 6850 STMD R20,=SAVER6 6860 DRP R44 6865 LDMD R14,=MSBASE 6870 LDMD R44,X14,ACTMSU 6880 STMD R44,=INPBUF 6890 JSB =ROMJSB 6900 DEF LAB92 6910 BYT 320 ! MASS STORAGE 6920 DRP R17 6930 CMB R17,=300 6940 JCY JL93 ! REL(2207) JL93 6950 JSB =ROMJSB 6960 DEF LAB61 6970 BYT 320 ! MASS STORAGE 6980 DRP R17 6990 CMB R17,=300 7000 JCY JL93 ! REL(2207) JL93 7010 DRP R37 7020 TSB R37 7030 JZR JL94 ! REL(2171) JL94 7040 ARP R0 7050 JSB X0,JL93 7060 DRP R37 7070 LDB R37,=320 7080 STBD R37,=ERROM 7090 JSB =ERROR+ 7100 BYT 37 ! ERROR 31 7105 ! ------------------------ 7110 JL94 DRP R70 7120 CLM R70 7130 DRP R46 7140 CMM R46,=40,4 7150 JZR JL96 ! REL(2204) JL96 7160 DRP R77 7170 LDB R77,=20 7180 JL96 DRP R70 7190 ARP R12 7200 PUMD R70,+R12 7210 JL93 DRP R74 7220 LDMD R74,=INPBUF 7225 LDMD R14,=MSBASE 7230 STMD R74,X14,ACTMSU 7240 RTN 7250 !************************* 7300 !************************* 9130 ROMJSB DAD 4776 9140 ERROR+ DAD 6611 9150 ERROR DAD 6615 9160 BINTAB DAD 101233 9190 SCAN DAD 11262 9200 REFNUM DAD 17025 9210 STREX+ DAD 13623 9310 SAVER6 DAD 101174 9320 MSBASE DAD 102540 9330 DEFMSU EQU 40 9340 ACTMSU EQU 135 9350 TOS DAD 101132 9360 LAB60 DAD 61361 ! 85/208 9370 LAB61 DAD 76620 ! 85/208 9380 ERROM DAD 100065 9390 INBF+2 DAD 100312 9400 LAB65 DAD 63440 ! 85/208 9410 LAB67 EQU 22 9420 INPBUF DAD 100310 9430 LAB69 DAD 63356 ! 85/208 9440 LAB70 DAD 61716 ! 85/208 9450 LAB75 DAD 63450 ! 85/208 9460 CONBIN DAD 3572 9470 STOSV DAD 45254 9520 LAB92 DAD 61356 ! 85/208 9640 FIN