Super Command Processor
by: Bryan Schappel
If the typed line does not contain a command, then the filename entered will be loaded as a binary file.
0100 .OPT NO LIST 0110 ;------------------------------- 0120 ; 0130 ;Super Command Processor 0140 ; 0150 ;by: Bryan Schappel 0160 ; 0170 ;If the typed line does not 0180 ;contain a command, then the 0190 ;filename entered will be loaded 0200 ;as a binary file. 0210 ; 0220 ;------------------------------- 0230 ; 0240 ;*** Commands *** 0250 ; 0260 ;ERA [fname] = delete file 0270 ;REN [f1,f2] = rename f1 to f2 0280 ;PRO [fname] = lock file 0290 ;UNP [fname] = unlock file 0300 ;DIR [Dn:] = directory of D#: 0310 ;RUN [adr] = run at address 0320 ;COPY = copy a File 0330 ;CAR = enter Cart 0340 ;TYPE = read BATCH file 0350 ;KILL = KILL BBK CP 0360 ; 0370 NUMCOM = 10 ;# OF COMMANDS 0380 IOCB5 = $0390 ;Adr of IOCB5 0390 MYBUF = $0500 ;I/O Buffer 0400 ZIOCB = $20 ;Zpage IOCB 0410 ; 0420 ;Zero Page Variables 0430 ; 0440 *= $D6 0450 SL 1 ;Load adr lo 0460 SH 1 ;Load adr hi 0470 STL 1 ;start adr lo 0480 STH 1 ;start adr hi 0490 BLL 1 ;length lo 0500 BLH 1 ;length hi 0510 BAL 1 ;buffer byte 1 0520 BAH 1 ;buffer byte 2 0530 XSAV 1 ;save loc 0540 LNPOS 1 ;CP line pos 0550 LENSAV 2 ;COPY length 0560 COUNT 1 ;counter 0570 ; 0580 ;OS Equates 0590 ; 0600 CIOV = $E456 ;CIO Vector 0610 ICCOM = $0342 ;CIO Command 0620 ICBAL = $0344 ;CIO buffer lo 0630 ICBAH = $0345 ;CIO buffer hi 0640 ICBLL = $0348 ;CIO length lo 0650 ICBLH = $0349 ;CIO length hi 0660 AUX1 = $034A ;CIO aux 1 0670 AUX2 = $034B ;CIO aux 2 0680 RUNAD = $02E0 ;run address 0690 EOL = $9B ;end of line 0700 FR0 = $D4 ;FP number 0710 TRAMSZ = $06 ;cart in? 0720 BOOT? = $09 ;boot flag 0730 DOSVEC = $0A ;DOS Vector 0740 DOSINI = $0C ;init vec 0750 WARMST = $08 ;warm st flag 0760 MEMLO = $02E7 ;lo mem pntr 0770 INITAD = $02E2 ;init addr 0780 HATABS = $031A ;Handler Table 0790 SHFLOK = $02BE ;Caps toggle 0800 IFP = $D9AA ;Int to FP 0810 FASC = $D8E6 ;FP to ASC 0820 INBUFF = $F3 ;FP pntr 0830 EDITRV = $E400 ;E: Handler Tab 0840 ; 0850 ;BUMP Macro 0860 ; 0870 .MACRO BUMP 0880 INC %1 0890 BNE @BUMP 0900 INC %1+1 0910 @BUMP 0920 .ENDM 0930 ; 0940 ;PRINT Macro 0950 ; 0960 .MACRO PRINT 0970 LDA # <%1 0980 LDY # >%1 0990 JSR EPRINT 1000 .ENDM 1010 ; 1020 ORIGIN = $1D7C 1030 *= ORIGIN 1040 ; 1050 ;This routine attempts to 1060 ;Binary Load a file. 1070 ;If the file is not Binary an 1080 ;Error #181 is given. 1090 ; 1100 ;ENTER: 1110 ;MYBUF=Filename to load minus 1120 ; a .COM extension. 1130 ; Load is on IOCB #1 1140 ; 1150 LOADIT LDY #0 1160 STY COUNT 1170 STY RUNAD 1180 STY RUNAD+1 1190 JSR FINDFILE 1200 LDY #0 1210 JSR FINDARG 1220 LDA # <COM 1230 LDY # >COM 1240 JSR ADD_EXT 1250 JSR CLOSE1 1260 ; 1270 JSR SET_OPN 1280 JSR SET_DEV 1290 JSR SET_4 1300 BPL LOAD_MAIN 1310 GO_ERR JMP IOERROR 1320 NO_BIN LDY #181 1330 BNE GO_ERR 1340 ; 1350 ;Main load Loop 1360 ; 1370 LOAD_MAIN JSR READ2 1380 LDX BAL 1390 INX 1400 BNE NO_BIN 1410 LDX BAH 1420 INX 1430 BNE NO_BIN 1440 JSR SET_DEST 1450 ; 1460 GET_FIL LDA # <EPRDN 1470 STA INITAD 1480 LDA # >EPRDN 1490 STA INITAD+1 1500 JSR READ2 1510 LDX BAL 1520 INX 1530 BNE NOT_FF 1540 LDX BAH 1550 INX 1560 BNE NOT_FF 1570 JSR READ2 1580 NOT_FF LDA BAL 1590 STA STL 1600 LDA BAH 1610 STA STH 1620 LDX COUNT 1630 BNE PASS2 1640 INC COUNT 1650 STA ADDRESS+1 1660 LDA STL 1670 STA ADDRESS 1680 PASS2 JSR READ2 1690 LDA BAL 1700 SEC 1710 SBC STL 1720 STA BLL 1730 LDA BAH 1740 SBC STH 1750 STA BLH 1760 BUMP BLL 1770 JSR GET_DATA 1780 BMI JSTART 1790 JSR JINIT 1800 JMP GET_FIL 1810 ; 1820 JINIT JMP (INITAD) 1830 JSTART JSR CLOSE1 1840 LDA RUNAD 1850 TAX 1860 ORA RUNAD+1 1870 BEQ LOAD_GO 1880 STX ADDRESS 1890 LDA RUNAD+1 1900 STA ADDRESS+1 1910 LOAD_GO JMP (ADDRESS) 1920 ; 1930 ;Get DATA from file 1940 ; 1950 GET_DATA LDA STL 1960 STA SL 1970 LDA STH 1980 STA SH 1990 ; 2000 GET_REC LDX #$10 2010 LDA #7 2020 CALL_CIO STA ICCOM,X 2030 LDA SL 2040 STA ICBAL,X 2050 LDA SH 2060 STA ICBAH,X 2070 LDA BLL 2080 STA ICBLL,X 2090 LDA BLH 2100 STA ICBLH,X 2110 JMP CIOV 2120 ; 2130 ;Read 2 bytes from file 2140 ; 2150 READ2 LDA # <BAL 2160 STA SL 2170 LDA #0 2180 STA SH 2190 STA BLH 2200 LDA #2 2210 STA BLL 2220 BNE GET_REC 2230 ; 2240 ;Set AUX1 to 4 2250 ; 2260 SET_4 LDA #4 2270 STA AUX1,X 2280 JMP CIOV 2290 ; 2300 ;E: Print Routine 2310 ; 2320 ;ENTER: 2330 ;A=LSB of string 2340 ;Y=MSB of string 2350 ; 2360 ;EXIT: 2370 ;A=zero 2380 ; 2390 EPRINT STA FR0 2400 STY FR0+1 2410 EPL LDY #0 2420 LDA (FR0),Y 2430 BEQ EPRDN 2440 JSR EPUT 2450 INC FR0 2460 BNE EPL 2470 INC FR0+1 2480 BNE EPL 2490 EPRDN RTS 2500 ; 2510 ;E: Put Byte Routine 2520 ; 2530 ;ENTER: 2540 ;A=character to print 2550 ; 2560 EPUT TAY 2570 LDA EDITRV+7 2580 PHA 2590 LDA EDITRV+6 2600 PHA 2610 TYA 2620 RTS 2630 ; 2640 ;E: Input Routine 2650 ; 2660 EINPUT LDX #$00 2670 LDA #$40 2680 STA SHFLOK 2690 ; 2700 ;Get a 64 byte line in MYBUF 2710 ; 2720 ;ENTER: 2730 ;X=IOCB Index ($10,$20,...) 2740 ; 2750 INP_MYB LDA #0 2760 STA SL 2770 STA BLH 2780 LDA #64 2790 STA BLL 2800 LDA #5 2810 STA SH 2820 JMP CALL_CIO 2830 ; 2840 ;Get a Hex # from MYBUF 2850 ; 2860 ;ENTER: 2870 ;Y=offset into MYBUF where 2880 ; the Hex # starts 2890 ; 2900 ;EXIT: 2910 ;FR0,FR0+1 = binary number 2920 ; 2930 ; 2940 GRAB_HEX LDA #0 2950 STA COUNT 2960 STA FR0 2970 STA FR0+1 2980 G4LOOP LDA MYBUF,Y 2990 CMP #EOL 3000 BEQ HEX_OUT 3010 CMP #$20 3020 BNE TESTIT 3030 HEX_OUT LDA COUNT 3040 BEQ HEX_BAD 3050 HEX_GOOD CLC 3060 RTS 3070 HEX_BAD SEC 3080 RTS 3090 ; 3100 TESTIT LDX #$0F 3110 G4SCAN CMP HEXDIG,X 3120 BEQ GOTG4D 3130 DEX 3140 BPL G4SCAN 3150 BMI HEX_BAD 3160 ; 3170 GOTG4D ASL FR0 3180 ROL FR0+1 3190 ASL FR0 3200 ROL FR0+1 3210 ASL FR0 3220 ROL FR0+1 3230 ASL FR0 3240 ROL FR0+1 3250 TXA 3260 ORA FR0 3270 STA FR0 3280 INC COUNT 3290 INY 3300 LDA COUNT 3310 CMP #5 3320 BCS HEX_BAD 3330 BCC G4LOOP 3340 ; 3350 ;Close IOCB #1 3360 ; 3370 CLOSE1 LDX #$10 3380 BNE CLOSEIT 3390 ; 3400 ;Close IOCB #2 3410 ; 3420 CLOSE2 LDX #$20 3430 ; 3440 ;Close Any IOCB 3450 ; 3460 ;ENTER: 3470 ;X=IOCB Index ($10,$20,...) 3480 ; 3490 ;EXIT: 3500 ;X=IOCB Index 3510 ; 3520 CLOSEIT TXA 3530 PHA 3540 LDA #$0C 3550 STA ICCOM,X 3560 JSR CIOV 3570 PLA 3580 TAX 3590 RTS 3600 ; 3610 ;CP's PROMPT + INPUT Routine 3620 ; 3630 INPUT PRINT PROMPT 3640 JSR EINPUT 3650 BPL INPUTLV 3660 JSR IOERROR 3670 JMP INPUT 3680 INPUTLV LDA MYBUF 3690 CMP #EOL 3700 BEQ INPUT 3710 RTS 3720 ; 3730 ;######################## 3740 ; 3750 ;Start of Commands 3760 ; 3770 ;######################## 3780 ; 3790 ;Enter Cart 3800 ; 3810 GOCART LDA TRAMSZ 3820 BNE TRY_CART 3830 LDA # <NOCART 3840 LDY # >NOCART 3850 JMP EPRINT 3860 TRY_CART JMP ($BFFA) 3870 ; 3880 ;Kill CP 3890 ; 3900 KILL JSR UNHOOK 3910 STA WARMST 3920 JSR GOCART 3930 JMP (DOSVEC) 3940 ; 3950 ;Un-Hook OS Patches 3960 ; 3970 UNHOOK LDA #$FF 3980 STA DOSVEC 3990 CP_HI LDA #$FF 4000 STA DOSVEC+1 4010 LDA RESET+1 4020 STA DOSINI 4030 LDA RESET+2 4040 STA DOSINI+1 4050 LDY INDEX 4060 LDA # <EDITRV 4070 STA HATABS,Y 4080 LDA # >EDITRV 4090 STA HATABS+1,Y 4100 OLD_ML LDA #$FF 4110 STA MEMLO 4120 OLD_MH LDA #$FF 4130 STA MEMLO+1 4140 LDA #0 4150 STA SETFLAG 4160 RTS 4170 ; 4180 ;Erase a File 4190 ; 4200 ERASE LDA #33 4210 BNE DOXIO 4220 ; 4230 ;Lock a File 4240 ; 4250 PROTECT LDA #35 4260 BNE DOXIO 4270 ; 4280 ;Unlock a File 4290 ; 4300 UNPROTECT LDA #36 4310 BNE DOXIO 4320 ; 4330 ;Rename a File 4340 ; 4350 RENAME JSR FINDFILE 4360 LDY LNPOS 4370 JSR FINDARG 4380 LDX XSAV 4390 LDA #', 4400 STA FNAME,X 4410 REN_LP LDA MYBUF,Y 4420 STA FNAME+1,X 4430 INX 4440 INY 4450 CMP #EOL 4460 BNE REN_LP 4470 LDA #32 4480 PHA 4490 BNE XIO_ENT 4500 ; 4510 ;Perform an XIO 4520 ; 4530 ;ENTER: 4540 ;A=XIO Number 4550 ;Y=Offset to Filename in MYBUF 4560 ; 4570 DOXIO PHA 4580 JSR FINDFILE 4590 XIO_ENT JSR CLOSE1 4600 PLA 4610 STA ICCOM,X 4620 JSR SET_DEV 4630 STA AUX1,X 4640 JSR CIOV 4650 BMI IOERROR 4660 RTS 4670 ; 4680 ;Set ICBAL/H to DEVICE 4690 ; 4700 ;ENTER: 4710 ;X=IOCB Index 4720 ; 4730 SET_DEV LDA # <DEVICE 4740 STA ICBAL,X 4750 LDA # >DEVICE 4760 STA ICBAH,X 4770 LDA #0 4780 STA AUX2,X 4790 RTS 4800 ; 4810 ;Handle I/O error 4820 ; 4830 ;ENTER: 4840 ;Y=I/O Error # 4850 ; 4860 ;EXIT: 4870 ;Channel #1 is closed 4880 ; 4890 IOERROR STY FR0 4900 IO_ERR LDA #0 4910 STA FR0+1 4920 JSR CLOSE1 4930 JSR IFP 4940 JSR FASC 4950 LDY #$FF 4960 IOERR INY 4970 LDA (INBUFF),Y 4980 STA ERBUF,Y 4990 BPL IOERR 5000 AND #$7F 5010 STA ERBUF,Y 5020 LDA #EOL 5030 STA ERBUF+1,Y 5040 LDA #0 5050 STA ERBUF+2,Y 5060 LDA # <ERTXT 5070 LDY # >ERTXT 5080 JMP EPRINT 5090 ; 5100 ;This will grab a filename from 5110 ;MYBUF and put it in the 5120 ;device buffer. 5130 ; 5140 ;ENTER: 5150 ;Y=Offset to Filename in MYBUF 5160 ; 5170 FINDFILE LDA DEFDEV 5180 STA DEVICE 5190 LDA DEFDEV+1 5200 STA DEVICE+1 5210 ; 5220 FIND1 LDX #0 5230 LDA MYBUF+1,Y 5240 CMP #': 5250 BEQ X2 5260 LDA MYBUF+2,Y 5270 CMP #': 5280 BNE FIND2 5290 LDA MYBUF+1,Y 5300 STA DEVICE+1 5310 LDA MYBUF,Y 5320 STA DEVICE 5330 INY 5340 INY 5350 INY 5360 BNE FIND2 5370 ; 5380 X2 LDA MYBUF,Y 5390 STA DEVICE 5400 INY 5410 INY 5420 ; 5430 FIND2 LDA MYBUF,Y 5440 STA FNAME,X 5450 CMP #EOL 5460 BEQ FIND3 5470 CMP #$20 5480 BEQ FIND3 5490 INY 5500 INX 5510 CPX #13 5520 BNE FIND2 5530 FIND3 LDA #EOL 5540 STA FNAME,X 5550 LDA #0 5560 STA FNAME+1,X 5570 STX XSAV 5580 RTS 5590 ; 5600 ;This handles the 'RUN' command 5610 ; 5620 MEMRUN LDA MYBUF,Y 5630 CMP #EOL 5640 BEQ RUN_IT 5650 ; 5660 PULL_IT JSR GRAB_HEX 5670 BCS BAD_RUN 5680 LDA FR0 5690 STA ADDRESS 5700 LDA FR0+1 5710 STA ADDRESS+1 5720 RUN_IT JMP (ADDRESS) 5730 BAD_RUN LDY #180 5740 MEM_ERR JMP IOERROR 5750 ; 5760 ;Get disk Directory 5770 ; 5780 DIRECT LDA #6 5790 BNE DIR_GO 5800 ; 5810 ;Get a TYPE of a File 5820 ; 5830 TYPE LDA #4 5840 DIR_GO STA DIR_COM+1 5850 JSR FINDFILE 5860 LDA DEVICE+3 5870 CMP #EOL 5880 BNE OPEN_DIR 5890 LDX #3 5900 CP_DIR LDA DIRNAM,X 5910 STA DEVICE+3,X 5920 DEX 5930 BPL CP_DIR 5940 ; 5950 OPEN_DIR JSR CLOSE1 5960 JSR SET_OPN 5970 JSR SET_DEV 5980 DIR_COM LDA #6 5990 STA AUX1,X 6000 JSR CIOV 6010 BMI MEM_ERR 6020 ; 6030 DIROK LDX #$10 6040 JSR INP_MYB 6050 BMI DIRDONE 6060 LDY #0 6070 DIRCK1 LDA MYBUF,Y 6080 CMP #EOL 6090 BEQ DIRCK2 6100 INY 6110 BNE DIRCK1 6120 DIRCK2 LDA #0 6130 STA MYBUF+1,Y 6140 PRINT MYBUF 6150 JMP DIROK 6160 DIRDONE JMP CLOSE1 6170 ; 6180 ;Set Destroy Flag 6190 ; 6200 SET_DEST LDA #0 6210 STA WARMST 6220 RTS 6230 ; 6240 ;Add File Extension 6250 ; 6260 ;ENTER: 6270 ;A=LSB of extension 6280 ;Y=MSB of extension 6290 ; 6300 ADD_EXT STA FR0 6310 STY FR0+1 6320 LDX #$FF 6330 LDY #4 6340 ; 6350 EXT_SCAN INX 6360 LDA FNAME,X 6370 CMP #'. 6380 BEQ EXT_RTS 6390 CMP #EOL 6400 BNE EXT_SCAN 6410 EXT_ADD LDA (FR0),Y 6420 STA FNAME,X 6430 INX 6440 DEY 6450 BPL EXT_ADD 6460 EXT_RTS RTS 6470 ; 6480 ;This is where RESET comes 6490 ; 6500 RESET JSR $FFFF 6510 JSR UNHOOK 6520 ; 6530 HOOKUP LDX #$00 6540 JSR CLOSEIT 6550 JSR SET_OPN 6560 LDA # <EDEV 6570 STA ICBAL 6580 LDA # >EDEV 6590 STA ICBAH 6600 STX AUX2 6610 LDA #12 6620 STA AUX1 6630 JSR CIOV 6640 ; 6650 HOOK1 CLD 6660 LDY EDITRV+4 6670 LDX EDITRV+5 6680 INY 6690 BNE NO_UPX 6700 INX 6710 NO_UPX STY EGET+1 6720 STX EGET+2 6730 LDY #0 6740 ; 6750 FIND_E LDA HATABS,Y 6760 CMP #'E 6770 BEQ GOT_E 6780 INY 6790 INY 6800 INY 6810 CPY #33 6820 BCC FIND_E 6830 ; 6840 GOT_E INY 6850 STY INDEX 6860 LDA # <NEW_E.HAN 6870 STA HATABS,Y 6880 LDA # >NEW_E.HAN 6890 STA HATABS+1,Y 6900 ; 6910 LDX #$50 6920 JSR CLOSEIT 6930 LDY #$0F 6940 COPY_E LDA EDITRV,Y 6950 STA NEW_E.HAN,Y 6960 LDA IOCB5,Y 6970 STA BAT_IOCB,Y 6980 DEY 6990 BPL COPY_E 7000 ; 7010 LDA # <[BAT_GET-1] 7020 STA NEW_E.HAN+4 7030 LDA # >[BAT_GET-1] 7040 STA NEW_E.HAN+5 7050 ; 7060 SKIP_BAT LDA SETFLAG 7070 BNE INIT_RTS 7080 INC SETFLAG 7090 LDA DOSINI 7100 STA RESET+1 7110 LDA DOSINI+1 7120 STA RESET+2 7130 LDA # <RESET 7140 STA DOSINI 7150 LDA # >RESET 7160 STA DOSINI+1 7170 ; 7180 LDA DOSVEC 7190 STA UNHOOK+1 7200 LDA DOSVEC+1 7210 STA CP_HI+1 7220 LDA # <GO_CP 7230 STA DOSVEC 7240 LDA # >GO_CP 7250 STA DOSVEC+1 7260 ; 7270 LDA MEMLO 7280 STA OLD_ML+1 7290 LDA MEMLO+1 7300 STA OLD_MH+1 7310 LDA # <PROGEND 7320 STA MEMLO 7330 LDA # >PROGEND 7340 STA MEMLO+1 7350 INIT_RTS RTS 7360 ; 7370 ;COMMAND PROCESSOR ENTRY 7380 ; 7390 GO_CP JSR HOOK1 7400 LDA #$FF 7410 STA WARMST 7420 ; 7430 MAIN CLD 7440 JSR INPUT ;get line 7450 LDA MYBUF 7460 CMP #'* ;Batch? 7470 BNE NO_BAT 7480 JMP BATCH 7490 ; 7500 NO_BAT CMP #'; 7510 BEQ MAIN 7520 LDY #0 7530 JSR FINDFILE 7540 LDA DEVICE+3 7550 CMP #EOL 7560 BNE NO_REM 7570 LDA DEVICE 7580 STA DEFDEV 7590 LDA DEVICE+1 7600 STA DEFDEV+1 7610 JMP MAIN 7620 ; 7630 NO_REM LDA # <COMTAB 7640 STA FR0 7650 LDA # >COMTAB 7660 STA FR0+1 7670 LDX #0 7680 COMLP LDY #0 7690 COMCK LDA MYBUF,Y 7700 CMP (FR0),Y 7710 BNE TRYNEXT 7720 INY 7730 CPY #3 7740 BNE COMCK 7750 ; 7760 LDA COMADRL,X 7770 STA COMJSR+1 7780 LDA COMADRH,X 7790 STA COMJSR+2 7800 JSR FINDARG 7810 COMJSR JSR $FFFF 7820 JMP MAIN 7830 ; 7840 TRYNEXT LDA FR0 7850 CLC 7860 ADC #3 7870 STA FR0 7880 BCC TRY_NH 7890 INC FR0+1 7900 TRY_NH INX 7910 CPX #NUMCOM 7920 BNE COMLP 7930 JSR LOADIT 7940 JMP MAIN 7950 ; 7960 ;Find an Argument on Line 7970 ; 7980 ;ENTER: 7990 ;Y=Offset to start search 8000 ; 8010 ;EXIT: 8020 ;Y=1st char of argument 8030 ; 8040 FINDARG LDA MYBUF,Y 8050 CMP #$20 8060 BEQ NEXTARG 8070 CMP #EOL 8080 BEQ NEXTARG 8090 INY 8100 BNE FINDARG 8110 NEXTARG LDA MYBUF,Y 8120 CMP #$20 8130 BNE FOUNDARG 8140 INY 8150 BNE NEXTARG 8160 FOUNDARG STY LNPOS 8170 RTS 8180 ; 8190 ;Handle a BATCH File 8200 ; 8210 BATCH LDY #0 8220 LDA #$20 8230 STA MYBUF 8240 JSR FINDARG 8250 JSR FINDFILE 8260 LDA # <BAT 8270 LDY # >BAT 8280 JSR ADD_EXT 8290 BAT_GO LDA #12 8300 JSR BAT_CIO 8310 ; 8320 LDA # <DEVICE 8330 STA ICBALB 8340 LDA # >DEVICE 8350 STA ICBAHB 8360 LDA #4 8370 STA AUX1B 8380 LDA #3 8390 JSR BAT_CIO 8400 BPL BAT_MAIN 8410 LDA #12 8420 STY FR0 8430 JSR BAT_CIO 8440 JSR IO_ERR 8450 BAT_MAIN JMP MAIN 8460 BAT_9B LDA #EOL 8470 BNE BAT_XIT 8480 ; 8490 BAT_GET LDA BAT_IOCB 8500 BPL BAT_PROC 8510 BAT_NORM LDX #$00 8520 LDY #1 8530 EGET JMP $FFFF 8540 ; 8550 BAT_PROC LDA #0 8560 STA ICBLLB 8570 STA ICBLHB 8580 LDA #7 8590 JSR BAT_CIO 8600 BMI BAT_NORM 8610 LDA BAT_ZIO+15 8620 PHA 8630 JSR EPUT 8640 PLA 8650 BAT_XIT LDX #$00 8660 LDY #1 8670 RTS 8680 ; 8690 ;Perform BATCH CIO 8700 ; 8710 BAT_CIO STA ICCOMB 8720 JSR BAT_SWAP 8730 LDX #$50 8740 JSR CIOV 8750 STA BAT_ZIO+15 8760 BPL BAT_SWAP 8770 TYA 8780 PHA 8790 LDX #$50 8800 JSR CLOSEIT 8810 PLA 8820 TAY 8830 ; 8840 ;Swap IOCB Blocks 8850 ; 8860 BAT_SWAP TYA 8870 PHA 8880 LDY #$0F 8890 BAT_SLP LDA ZIOCB,Y 8900 PHA 8910 LDA BAT_ZIO,Y 8920 STA ZIOCB,Y 8930 PLA 8940 STA BAT_ZIO,Y 8950 LDA IOCB5,Y 8960 PHA 8970 LDA BAT_IOCB,Y 8980 STA IOCB5,Y 8990 PLA 9000 STA BAT_IOCB,Y 9010 DEY 9020 BPL BAT_SLP 9030 PLA 9040 TAY 9050 RTS 9060 ; 9070 ;Set COPY IOCB 9080 ; 9090 ;ENTER: 9100 ;X=IOCB Index 9110 ;A=CIO Command 9120 ; 9130 ;EXIT: 9140 ;CIO set for I/O of 12K block 9150 ;at $3000 9160 ; 9170 SET_CPY STA ICCOM,X 9180 LDA #0 9190 STA ICBLL,X 9200 STA ICBAL,X 9210 LDA #$30 9220 STA ICBLH,X 9230 STA ICBAH,X 9240 RTS 9250 ; 9260 ;Set ICCOM for Open 9270 ; 9280 ;ENTER: 9290 ;X=IOCB Index 9300 ; 9310 SET_OPN LDA #3 9320 STA ICCOM,X 9330 RTS 9340 ; 9350 ;Copy I/O Error 9360 ; 9370 ;ENTER: 9380 ;Y=CIO Error # 9390 ; 9400 ;EXIT: 9410 ;Channels #1 and #2 are closed 9420 ; 9430 CPY_IOR JSR IOERROR 9440 JMP CLOSE2 9450 ; 9460 ;Handle COPY Verb 9470 ; 9480 COPY JSR FINDFILE 9490 JSR CLOSE1 9500 JSR SET_DEV 9510 JSR SET_OPN 9520 JSR SET_4 9530 BMI CPY_IOR 9540 PRINT DEVICE 9550 LDY LNPOS 9560 JSR FINDARG 9570 JSR FINDFILE 9580 JSR CLOSE2 9590 JSR SET_DEV 9600 JSR SET_OPN 9610 LDA #8 9620 STA AUX1,X 9630 JSR CIOV 9640 BMI CPY_IOR 9650 ; 9660 JSR SET_DEST 9670 COPY.2 LDX #$10 9680 LDA #7 9690 JSR SET_CPY 9700 JSR CIOV 9710 BMI EOF 9720 LDA #1 9730 STA COUNT 9740 BNE SAVLEN 9750 ; 9760 EOF LDA #0 9770 STA COUNT 9780 ; 9790 SAVLEN LDA ICBLL,X 9800 STA LENSAV 9810 LDA ICBLH,X 9820 STA LENSAV+1 9830 LDX #$20 9840 LDA #11 9850 JSR SET_CPY 9860 LDA LENSAV 9870 STA ICBLL,X 9880 LDA LENSAV+1 9890 STA ICBLH,X 9900 JSR CIOV 9910 LDA COUNT 9920 BNE COPY.2 9930 JSR CLOSE1 9940 JMP CLOSE2 9950 ; 9960 ;Program Text/Buffers 9970 ; 9980 NOCART .BYTE "No Cart",EOL,0 9990 PROMPT .BYTE EOL 010000 DEFDEV .BYTE "D1:",0 010010 DIRNAM .BYTE "*.*",EOL 010020 EDEV .BYTE "E:",EOL 010030 ERTXT .BYTE "Error- " 010040 ERBUF .BYTE " ",EOL,0 010050 HEXDIG .BYTE "0123456789" 010060 .BYTE "ABCDEF" 010070 COM .BYTE EOL,"MOC." 010080 BAT .BYTE EOL,"TAB." 010090 ; 010100 ;Command Tables 010110 ; 010120 COMTAB .BYTE "ERAPROUNPREN" 010130 .BYTE "DIRCOPRUN" 010140 .BYTE "CARTYPKIL" 010150 ; 010160 COMADRL .BYTE <ERASE 010170 .BYTE <PROTECT 010180 .BYTE <UNPROTECT 010190 .BYTE <RENAME 010200 .BYTE <DIRECT 010210 .BYTE <COPY 010220 .BYTE <MEMRUN 010230 .BYTE <GOCART 010240 .BYTE <TYPE 010250 .BYTE <KILL 010260 ; 010270 COMADRH .BYTE >ERASE 010280 .BYTE >PROTECT 010290 .BYTE >UNPROTECT 010300 .BYTE >RENAME 010310 .BYTE >DIRECT 010320 .BYTE >COPY 010330 .BYTE >MEMRUN 010340 .BYTE >GOCART 010350 .BYTE >TYPE 010360 .BYTE >KILL 010370 ; 010380 ADDRESS .WORD EPRDN ;RUN Addr 010390 DEVICE .BYTE "D1:" 010400 ; 010410 ;Buffers 010420 ; 010430 FNAME .BYTE "AUTORUN.BAT" 010440 .BYTE EOL,0 010450 17 010460 INDEX 1 ;HATABS Index 010470 SETFLAG 1 ;set up? 010480 ; 010490 ;Wedge/Handler Space 010500 ; 010510 ;For Batch Processing 010520 ; 010530 BAT_ZIO 16 ;Zpage IOCB 010540 NEW_E.HAN 16 ;E: Handler 010550 BAT_IOCB 16 ;IOCB #5 Copy 010560 ICCOMB = BAT_IOCB+2 010570 ICBALB = BAT_IOCB+4 010580 ICBAHB = BAT_IOCB+5 010590 ICBLLB = BAT_IOCB+8 010600 ICBLHB = BAT_IOCB+9 010610 AUX1B = BAT_IOCB+10 010620 ; 010630 PROGEND = * 010640 T_LENGTH = PROGEND-ORIGIN 010650 ; 010660 ;Entry Point to Start CP 010670 ; 010680 ENTRY LDX #0 010690 STX SETFLAG 010700 STX WARMST 010710 INX 010720 STX BOOT? 010730 JSR HOOKUP 010740 PRINT CREDITS 010750 JSR CLOSE2 010760 JSR SET_OPN 010770 JSR SET_DEV 010780 JSR SET_4 010790 PHP 010800 JSR CLOSE2 010810 PLP 010820 BPL HAV_BAT 010830 LDA TRAMSZ 010840 BNE G_CART 010850 JMP (DOSVEC) 010860 G_CART JMP ($BFFA) 010870 HAV_BAT PRINT PROMPT 010880 PRINT FNAME 010890 PLA 010900 PLA 010910 JMP BAT_GO 010920 ; 010930 CREDITS .BYTE $7D,EOL 010940 .BYTE "BBK CP - (C) 1987 " 010950 .BYTE "ANALOG Computing",EOL 010960 .BYTE "by: Bryan Schappel" 010970 .BYTE EOL,0 010980 ; 010990 ;Set Run Address 011000 ; 011010 *= RUNAD 011020 .WORD ENTRY 011030 .OPT LIST 011040 .END