Oakland CPM Archive

home *** CD-ROM | disk | FTP | other *** search

/ Oakland CPM Archive / oakcpm.iso / sigm / vol099 / sub2.asm < prev next >

Wrap

Assembly Source File | 1984-04-29 | 29.4 KB | 1,434 lines

* PROGRAM NAME: SUB * AUTHOR: RICHARD CONN (From SuperSUB Ver 1.1 by Ron Fowler) * VERSION: 2.3 * DATE: 6 JAN 83 * PREVIOUS VERSIONS: 2.2 (7 DEC 82), 2.1 (14 NOV 82), 2.0 (11 OCT 82) * PREVIOUS VERSIONS: 1.4 (10 OCT 81), 1.3 (7 OCT 81) * PREVIOUS VERSIONS: 1.2 (5 OCT 81), 1.1 (3 OCT 81), 1.0 (1 OCT 81) * NOTE: FOR USE WITH ZCPR2 VERSION 2.6 AND LATER VERS EQU 23 ; ; ;************************************************ ;* EXTENDED SUBMIT FOR * ;* CP/M * ;************************************************ ; ; SUB is derived from Ron's SuperSUB program; it provides a different ; format for the command line, a command-search hierarchy like CCPZ, a ; resetting of the DMA address, several additional functions, and there are ; several other additions/changes. Additionally, ZCPR2-specific enhancements, ; such as appending the rest of the multiple command line to the command file ; and allowing multiple commands on a single line, are permitted. ; ; REVISED 09/13/81 (RGF): added control character translation ; fixed bug in line number reporting ; ; VERSION 1.1 by Ron Fowler ; 2/18/81 (first written) WESTLAND, MICH. ; ; ; This program is intended as a replacement for the ; SUBMIT program provided with CP/M. It provides sev- ; eral new facilities: ; 1) Nestable SUBMIT runs ; 2) Interactive entry of SUBMIT job (no need ; to use an editor for simple SUBMIT runs) ; 3) Command line entry of small SUBMIT jobs ; 4) Ability to enter blank lines in an edited ; SUBMIT file ; 5) User customization of number of parameters ; and drive to send $$$.SUB to ; ; For full details along with examples, see the ac- ; companying documentation file. ; --Ron Fowler ; ; ; DEFINE BOOLEANS ; FALSE EQU 0 TRUE EQU NOT FALSE ; ;************************************************************ ; ; -- User customizable options -- ; CURIND EQU '$' ;CURRENT USER INDICATOR FORCE$SUB EQU FALSE ;TRUE IF SUBMITTED FILE MUST BE OF TYPE .SUB TIME$CONST EQU 0C000H ;DELAY FOR RINGING BELL DFLT$USER EQU 0 ;DEFAULT USER NUMBER TO SEARCH FOR .SUB FILE DFLT$DISK EQU 0 ;DEFAULT DISK TO SEARCH FOR .SUB FILE (0=A) NPAR EQU 20 ;NUMBER OF ALLOWABLE PARAMETERS QUIET EQU FALSE ;SET TO TRUE TO ELIMATE SIGN-ON MSG CPBASE EQU 0 ;SET TO 4200H FOR HEATH CP/M OPT EQU '/' ;OPTION DELIMITER CHAR PDELIM EQU '$' ;PARAMETER DELIMITER ; ; ; ;************************************************************ ; ; CP/M DEFINITIONS ; FGCHAR EQU 1 ;GET CHAR FUNCTION FPCHAR EQU 2 ;PRINT CHAR FUNCTION DIRIOF EQU 6 ;DIRECT CONSOLE I/O PRINTF EQU 9 ;PRINT STRING FUNCTION RDBUF EQU 10 ;READ CONSOLE BUFFER DETVERS EQU 12 ;GET VERSION NUMBER LOGIN EQU 14 ;LOG IN DISK OPENF EQU 15 ;OPEN FILE FUNCTION CLOSEF EQU 16 ;CLOSE FILE FUNCTION DELETF EQU 19 ;DELETE FILE FUNCTION READF EQU 20 ;READ RECORD FUNCTION WRITEF EQU 21 ;WRITE RECORD FUNCTION MAKEF EQU 22 ;MAKE (CREATE) FILE FUNCTION GETDSK EQU 25 ;RETURN CURRENT DISK SETDMA EQU 26 ;SET DMA ADDRESS UCODE EQU 32 ;GET/SET USER CODE ; UDFLAG EQU CPBASE+4 BDOS EQU CPBASE+5 ; FCB EQU 5CH ;DEFAULT FILE CONTROL BLOCK FCBEX EQU 12 ;FCB OFFSET TO EXTENT FIELD FCBRC EQU 15 ;FCB OFFSET TO RECORD COUNT FCBNR EQU 32 ;FCB OFFSET TO NEXT RECORD FN EQU 1 ;FCB OFFSET TO FILE NAME FT EQU 9 ;FCB OFFSET TO FILE TYPE TBUF EQU CPBASE+80H ;DEFAULT BUFFER TPA EQU CPBASE+100H ;TRANSIENT PROGRAM AREA ; PUTCNT EQU TBUF ;COUNTER FOR OUTPUT CHARS ; ; DEFINE SOME TEXT CHARACTERS ; CTRLC EQU 3 ;^C BEL EQU 7 ;RING BELL CR EQU 13 ;CARRIAGE RETURN LF EQU 10 ;LINE FEED TAB EQU 9 ORG TPA ; ; Branch to Start of Program ; JMP SUBMIT ; ;****************************************************************** ; ; SINSFORM -- ZCPR2 Utility Standard General Purpose Initialization Format ; ; This data block precisely defines the data format for ; initial features of a ZCPR2 system which are required for proper ; initialization of the ZCPR2-Specific Routines in SYSLIB. ; ; ; EXTERNAL PATH DATA ; EPAVAIL: DB 0FFH ; IS EXTERNAL PATH AVAILABLE? (0=NO, 0FFH=YES) EPADR: DW 40H ; ADDRESS OF EXTERNAL PATH IF AVAILABLE ; ; INTERNAL PATH DATA ; INTPATH: DB 0,0 ; DISK, USER FOR FIRST PATH ELEMENT ; DISK = 1 FOR A, '$' FOR CURRENT ; USER = NUMBER, '$' FOR CURRENT DB 0,0 DB 0,0 DB 0,0 DB 0,0 DB 0,0 DB 0,0 DB 0,0 ; DISK, USER FOR 8TH PATH ELEMENT DB 0 ; END OF PATH ; ; MULTIPLE COMMAND LINE BUFFER DATA ; MCAVAIL: DB 0FFH ; IS MULTIPLE COMMAND LINE BUFFER AVAILABLE? MCADR: DW 0FF00H ; ADDRESS OF MULTIPLE COMMAND LINE BUFFER IF AVAILABLE ; ; DISK/USER LIMITS ; MDISK: DB 4 ; MAXIMUM NUMBER OF DISKS MUSER: DB 31 ; MAXIMUM USER NUMBER ; ; FLAGS TO PERMIT LOG IN FOR DIFFERENT USER AREA OR DISK ; DOK: DB 0FFH ; ALLOW DISK CHANGE? (0=NO, 0FFH=YES) UOK: DB 0FFH ; ALLOW USER CHANGE? (0=NO, 0FFH=YES) ; ; PRIVILEGED USER DATA ; PUSER: DB 10 ; BEGINNING OF PRIVILEGED USER AREAS PPASS: DB 'chdir',0 ; PASSWORD FOR MOVING INTO PRIV USER AREAS DS 41-($-PPASS) ; 40 CHARS MAX IN BUFFER + 1 for ending NULL ; ; CURRENT USER/DISK INDICATOR ; CINDIC: DB '$' ; USUAL VALUE (FOR PATH EXPRESSIONS) ; ; DMA ADDRESS FOR DISK TRANSFERS ; DMADR: DW 80H ; TBUFF AREA ; ; NAMED DIRECTORY INFORMATION ; NDRADR: DW 00000H ; ADDRESS OF MEMORY-RESIDENT NAMED DIRECTORY NDNAMES: DB 64 ; MAX NUMBER OF DIRECTORY NAMES DNFILE: DB 'NAMES ' ; NAME OF DISK NAME FILE DB 'DIR' ; TYPE OF DISK NAME FILE ; ; REQUIREMENTS FLAGS ; EPREQD: DB 0FFH ; EXTERNAL PATH? MCREQD: DB 0FFH ; MULTIPLE COMMAND LINE? MXREQD: DB 0FFH ; MAX USER/DISK? UDREQD: DB 0FFH ; ALLOW USER/DISK CHANGE? PUREQD: DB 0FFH ; PRIVILEGED USER? CDREQD: DB 0FFH ; CURRENT INDIC AND DMA? NDREQD: DB 0FFH ; NAMED DIRECTORIES? Z2CLASS: DB 0 ; CLASS 0 DB 'ZCPR2' DS 10 ; RESERVED ; ; END OF SINSFORM -- STANDARD DEFAULT PARAMETER DATA ; ;****************************************************************** ; ; ; Start of Program ; SUBMIT: LXI H,0 ;SAVE STACK IN CASE DAD SP ; ONLY HELP REQUESTED SHLD SPSAVE ;(NOT OTHERWISE USED) LXI SP,STACK MVI C,SETDMA ;SET DMA ADDRESS LXI D,TBUF ;SET DMA TO TBUF CALL BDOS CALL START ; ; SIGN ON MESSAGE ; IF NOT QUIET DB 'SUB, Version ',VERS/10+'0','.',(VERS MOD 10)+'0','$' ENDIF ; START: POP D ;RETRIEVE STRING POINTER MVI C,PRINTF CALL BDOS ;PRINT THE SIGN-ON LDA FCB+1 ;ANYTHING ON CMD LINE? CPI ' ' JZ HELP ;NO, GO PRINT HELP CALL INITVAR ;INITIALIZE THE VARIABLE AREA CALL GETPAR ;GET COMMAND LINE PARAMETERS AND EXTRACT OPTION CALL ABORT ;PERFORM ABORT IF FLAG SET CALL SETUP ;SET UP READ OF SUBMIT FILE CALL RDFILE ;READ THE SUBMIT FILE CALL WRSET ;SET UP WRITE OF "$$$.SUB" CALL WRSUB ;WRITE "$$$.SUB" JMP CPBASE ;GO START THE SUBMIT ; ; ; SETUP SETS UP THE FILE CONTROL BLOCK ; FOR READING IN THE .SUB TEXT FILE ; SETUP: LXI H,FCB+FT ;LOOK AT FIRST CHAR OF MOV A,M ;FILE TYPE. IF IT IS CPI ' ' ;BLANK, THEN GO MOVE JZ PUTSUB ;"SUB" INTO FT FIELD IF FORCE$SUB ;FILE TYPE MUST BE OF .SUB LXI D,SUBTYP ;FILE TYPE MUST BE .SUB MVI B,3 ;3 BYTES CALL COMPAR JNZ NOTFND ;FILE NOT FOUND IF NO TYPE MATCH ENDIF RET ; IF NOT BLANK, THEN ACCEPT ANY FILE TYPE ; ; MOVE "SUB" INTO THE FILE TYPE ; PUTSUB: XCHG ;BY CONVENTION, MOVE FROM LXI H,SUBTYP ; @HL TO @DE MVI B,3 CALL MOVE RET ; ; MOVE # BYTES IN B REGISTER FROM @HL TO @DE ; MOVE: MOV A,M ;PICK UP STAX D ;PUT DOWN INX H ;I'M SURE INX D ; YOU'VE SEEN THIS DCR B ; BEFORE... JNZ MOVE ;100 TIMES AT LEAST RET ;I KNOW I HAVE! ; ; GETPAR MOVES THE SUBSTITUTION PARAMETERS SPECIFIED ; IN THE COMMAND LINE INTO MEMORY, AND STORES THEIR ; ADDRESSES IN THE PARAMETER TABLE. THIS ALLOWS ; SUBSTITUTION OF $1, $2, ETC., IN THE SUBMIT COMMANDS ; WITH THEIR ACTUAL VALUES SPECIFED IN THE COMMAND ; LINE. ; GETPAR: XRA A ;A=0 STA AFLAG ;TURN OFF ABORT COMMAND LXI H,TBUF+1 ;WHERE WE FIND THE COMMAND TAIL CALL SCANTO ;SKIP SUBMIT FILE NAME STA OPTION ;FIRST CHAR OF CMD LINE IS OPTION RC ;LINE ENDED? CPI OPT ;NO, CHECK OPTION JNZ GLP0 ;NOT KEYBOARD INP, READ FILE INX H ;POINT PAST '/' MOV A,M ;GET OPTION CHAR CPI 'A' ;ABORT COMMAND JZ GPARABT CPI 'D' ;DO COMMAND JZ GPARDO CPI 'I' ;INTERACTIVE MODE JZ GPARINT ;SKIP TO EOL AND RETURN JMP HELP ;HELP OTHERWISE GPARABT: MVI A,0FFH ;TURN ON ABORT FLAG STA AFLAG INX H ;GET POSSIBLE BELL OPTION MOV A,M CPI 'B' ;BELL OPTION RNZ MVI A,0FFH ; SET BELL FLAG STA BELL$FLAG RET GPARINT: XRA A ;TURN OFF COMMAND LINE INPUT STA CLFLAG RET GPARDO: INX H ;SKIP TO <SP> MOV A,M ;GET CHAR CPI ' '+1 ;LOOK FOR <SP> OR LESS JNC GPARDO SLSCAN: SHLD CLPTR ;SAVE CMD LINE PTR MOV A,M ;KBD IS SOURCE, GET EOL FLAG STA CLFLAG ;SAVE AS EOL FLAG CPI ' ' ;ALLOW SPACES AFTER '/' RNZ ;GOT NON-BLANK, DONE INX H ;ELSE CONTINUE SCAN JMP SLSCAN GLP0: MOV A,M ;INPUT IS FROM A .SUB FILE..THIS INX H ; CODE SKIPS OVER THE NAME OF ORA A ; THE SUB FILE TO GET TO THE RZ ; COMMAND LINE PARAMETERS CPI ' ' JZ GLP CPI TAB JNZ GLP0 GLP: CALL SCANTO ;PASS UP THE BLANKS RC ;CY RETURNED IF END OF CMD LINE CALL PUTPAR ;NOW PUT THE PARAMETER INTO MEM RC ;CY RETURNED IF END OF CMD LINE JMP GLP ;GET THEM ALL ; ; SCANTO SCANS PAST BLANKS TO THE FIRST NON-BLANK. IF ; END OF COMMAND LINE FOUND, RETURNS CARRY SET. ; SCANTO: MOV A,M INX H ORA A ;SET FLAGS ON ZERO STC ;IN CASE ZERO FOUND (END OF CMD LIN) RZ CPI ' ' JZ SCANTO ;SCAN PAST BLANKS CPI TAB ;DO TABS TOO, JUST FOR JZ SCANTO ; GOOD MEASURE DCX H ;FOUND CHAR, POINT BACK TO IT ORA A ;INSURE CARRY CLEAR RET ; ; PUTPAR PUTS THE PARAMETER POINTED TO BY HL INTO ; MEMORY POINTED TO BY "TXTPTR". ALSO STORES THE ; ADDRESS OF THE PARAMETER INTO THE PARAMETER TABLE ; FOR EASY ACCESS LATER, WHEN WE WRITE $$$.SUB ; PUTPAR: PUSH H ;SAVE POINTER TO PARM LHLD TXTPTR ;NEXT FREE MEMORY XCHG ; INTO DE LHLD TBLPTR ;NEXT FREE AREA OF TABLE MOV A,M ;NON-ZERO IN TABLE ORA A ; INDICATES TABLE JNZ PAROVF ; TABLE OVERFLOW (TOO MANY PARMS) MOV M,E ;STORE THE PARM ADRS INX H MOV M,D INX H SHLD TBLPTR ;SAVE TABLE PNTR FOR NEXT TIME POP H ;GET BACK PARM POINTER PUSH D ;SAVE FREE MEM POINTER BECAUSE ; WE WILL HAVE TO HAVE IT BACK ; LATER TO STORE THE LENGTH INX D ;POINT PAST LENGTH STORAGE MVI B,0 ;INITIALIZE LENGTH OF PARM PPLP: MOV A,M ;GET NEXT BYTE OF PARM INX H ORA A ;TEST FOR END OF CMD LINE JZ PP2 ;JUMP IF END CPI ' ' ;TEST FOR END OF COMMAND JZ PP2 CPI TAB ;TAB ALSO ENDS COMMAND JZ PP2 STAX D ;PUT PARAMETER BYTE-BY-BYTE INX D ;INTO FREE MEMORY INR B ;BUMP LENGTH JMP PPLP PP2: XCHG SHLD TXTPTR ;NEW FREE MEMORY POINTER POP H ;REMEMBER OUR LENGTH POINTER? MOV M,B ;STORE THE LENGTH XCHG ;HAVE TO RETN HL > CMD LINE ORA A ;NOW RETURN END OF LINE FLAG STC RZ ;RETURN CY IF ZERO (EOL MARK) CMC RET ; ; ; ABORT CHECKS TO SEE IF THE ABORT FLAG IS SET AND ; EXECUTES THE ABORT FUNCTION IF SO ; ; ABORT: LDA AFLAG ;GET THE FLAG ORA A ;0=NO RZ LXI D,ABMSG ;PRINT ABORT MESSAGE MVI C,PRINTF CALL BDOS CALL CHARINB ;GET RESPONSE CPI 'A' ;ABORT? JZ ABORT0 ;RETURN TO CP/M CPI CTRLC ;ABORT? JNZ ABORT1 ;RETURN TO CP/M ABORT0: LXI D,SUBFCB ;DELETE SUBMIT FILE MVI C,DELETF CALL BDOS LXI D,ABMSG1 ;PRINT DONE MESSAGE MVI C,PRINTF CALL BDOS JMP CPBASE ;RETURN TO CP/M ABORT1: LXI D,ABMSG2 ;PRINT CONTINUATION MESSAGE MVI C,PRINTF CALL BDOS JMP CPBASE ; RETURN TO CP/M ABMSG: DB CR,LF,'Abort SUB File' DB CR,LF,'Do you wish to abort execution?' DB CR,LF,' Enter A or ^C to Abort or anything else to ' DB 'continue - $' ABMSG1: DB 'Execution Aborted$' ABMSG2: DB 'Continuing Execution$' ; ; INPUT CHAR FROM CON:; RING BELL EVERY SO OFTEN IF FLAG SET ; CHARINB: LDA BELL$FLAG ; GET FLAG ORA A ; 0=NO JZ CHARIN PUSH H ; SAVE HL CHARINB$LOOP: LXI H,TIME$CONST ; GET TIME CONSTANT CHARINB$LOOP1: DCX H ; COUNT DOWN MOV A,H ORA L JNZ CHARINB$LOOP1 MVI E,0FFH ; REQUEST STATUS MVI C,DIRIOF ; DIRECT I/O CALL BDOS ORA A ; ANY INPUT? JNZ CHARINB$DONE MVI E,BEL ; RING BELL MVI C,2 ; OUTPUT TO CON: CALL BDOS JMP CHARINB$LOOP CHARINB$DONE: POP H ; RESTORE HL JMP CHARIN1 ; ; INPUT CHAR FROM CON:; CAPITALIZE IT AND ECHO <CRLF> ; CHARIN: MVI C,FGCHAR ;GET CHAR CALL BDOS CHARIN1: CALL UCASE ;CAPITALIZE PUSH PSW ;SAVE IT CALL CRLF ;NEW LINE POP PSW ;GET IT RET ; ; RDFILE READS THE .SUB FILE SPECIFIED ; IN THE SUBMIT COMMAND INTO MEMORY ; RDFILE: LXI H,0 ;INIT LINE NUMBER SHLD LINNUM LDA OPTION ;USING A FILE? CPI OPT ;OPT OPTION TELLS JNZ RDFILE1 ;JUMP IF NOT LXI D,RDLMSG ;READING LINE MESSAGE MVI C,PRINTF CALL BDOS JMP LINE RDFILE1: LXI D,RDFMSG ;READING FILE MESSAGE MVI C,PRINTF CALL BDOS * CHECK FOR .SUB FILE IN CURRENT USER/CURRENT DISK LXI D,FCB ;WE ARE, OPEN IT CALL INITFCB ;INIT FCB LXI H,INTPATH ;SET ADDRESS OF PATH LDA EPAVAIL ;EXTERNAL PATHS AVAILABLE? ORA A ;0=NO JZ OSB1 ;USE INTERNAL PATH LHLD EPADR ;PT TO EXTERNAL PATH OSB1: CALL FNDFILE ;SEARCH FOR FILE JZ NOTFND ;FILE NOT FOUND LXI D,FCB ;PT TO FCB MVI C,OPENF ;OPEN FILE CALL BDOS LINE: LHLD LINNUM ;BUMP LINE NUMBER INX H SHLD LINNUM LHLD PREV ;GET PREV PREVIOUS LINE POINTER XCHG LHLD TXTPTR ;GET CURRENT FREE MEM POINTER SHLD PREV ;MAKE IT THE PREV LINE (FOR NXT PASS) MOV M,E ;STORE AT BEGIN OF CURRENT LINE, INX H ; A POINTER TO THE PREVIOUS MOV M,D INX H PUSH H ;LATER WE WILL PUT LENGTH HERE INX H ;SKIP PAST LENGTH MVI C,0 ;INITIALIZE LENGTH TO ZERO LLP: CALL GNB ;GET NEXT BYTE FROM INPUT SOURCE JC EOF ;CY SET IF END OF FILE FOUND ANI 7FH ;MASK OUT MSB CALL UCASE ;CONVERT TO UPPER CASE CPI 1AH ;SEE IF CPM END OF FILE INDICATOR JZ EOF CPI LF ;IGNORE LINEFEEDS JZ LLP CPI CR ;IF IT'S A CARRIAGE RETURN, JZ EOL ; THEN DO END OF LINE MOV M,A ;STORE ALL OTHERS INTO MEMORY INX H CALL SIZE ;MAKE SURE NO MEMORY OVERFLOW INR C ;BUMP CHAR COUNT JM LENERR ;MAX OF 128 CHARS PER LINE JMP LLP ;GO DO NEXT CHAR RDFMSG: DB CR,LF,'Process SUB File$' RDLMSG: DB CR,LF,'Input SUB File Command Lines$' ; ; DO END OF LINE SEQUENCE ; EOL: SHLD TXTPTR ;SAVE FREE MEMORY POINTER POP H ;CURRENT LINE'S LENGTH POINTER MOV M,C ;STORE LENGTH AWAY JMP LINE ;GO DO NEXT LINE ; ; END OF TEXT FILE ; EOF: SHLD TXTPTR ;SAVE FREE MEMORY POINTER PUSH B ;SAVE LINE LENGTH CALL ZMCL ;LOAD REST OF MULTIPLE COMMAND LINE POP B ;RESTORE LINE LENGTH POP H ;CURRENT LINE'S LENGTH POINTER MOV M,C ;STORE LENGTH AWAY RET ;ALL DONE READING SUB FILE ; ; COPY MULTIPLE COMMAND LINE INTO MEMORY BUFFER ; ZMCL: LDA MCAVAIL ;ANY MULTIPLE COMMANDS? ORA A ;0=NO RZ LHLD LINNUM ;BUMP LINE NUMBER INX H SHLD LINNUM LHLD PREV ;GET PREV PREVIOUS LINE POINTER XCHG LHLD TXTPTR ;GET CURRENT FREE MEM POINTER SHLD PREV ;MAKE IT THE PREV LINE (FOR NXT PASS) MOV M,E ;STORE AT BEGIN OF CURRENT LINE, INX H ; A POINTER TO THE PREVIOUS MOV M,D INX H PUSH H ;LATER WE WILL PUT LENGTH HERE INX H ;SKIP PAST LENGTH MVI C,0 ;INITIALIZE LENGTH TO ZERO XCHG ;DE PTS TO NEXT PLACE TO STORE A BYTE LHLD MCADR ;GET ADDRESS OF MULTIPLE COMMAND LINE BUFFER MOV A,M ;GET LOW INX H MOV H,M ;GET HIGH MOV L,A ;HL PTS TO FIRST BYTE OF MULTIPLE COMMAND LINE MOV B,M ;GET FIRST CHAR IN LINE MVI M,0 ;CLEAR LINE MOV A,B ;CHECK TO SEE IF FIRST CHAR IS A SEMICOLON (CMD SEP) CPI ';' JNZ ZMCL0 INX H ;PT TO 2ND CHAR MOV A,M ;FIRST WAS A SEMICOLON, SO GET SECOND ZMCL0: XCHG ;HL PTS TO NEXT BUFFER SPACE, DE PTS TO MC LINE JMP ZMCL1A ;A=FIRST CHAR IN MC LINE ; ; MAJOR LOOP TO STORE MULTIPLE COMMAND LINE ; ZMCL1: LDAX D ;GET NEXT BYTE FROM MULTIPLE COMMAND LINE ZMCL1A: ORA A ;0=EOL JZ ZMCL2 ANI 7FH ;MASK OUT MSB CALL UCASE ;CONVERT TO UPPER CASE MOV M,A ;STORE CHAR INTO MEMORY INX H ;PT TO NEXT CHAR INX D CALL SIZE ;MAKE SURE NO MEMORY OVFL INR C ;INCR CHAR COUNT JM LENERR ;MAX OF 128 CHARS IN LINE JMP ZMCL1 ; ; DONE WITH INPUT OF MULTIPLE COMMAND LINE -- SAVE CHAR CNT AND SET PTR ; ZMCL2: SHLD TXTPTR ;SAVE PTR POP H ;PT TO CHAR COUNT POSITION MOV M,C ;STORE CHAR COUNT RET * * FNDFILE -- LOOK FOR FILE ALONG ZCPR2 PATH * INPUT PARAMETERS: HL = BASE ADDRESS OF PATH, DE = PTR TO FCB OF FILE * OUTPUT PARAMETERS: A=0 AND ZERO FLAG SET IF NOT FOUND, NZ IF FOUND * FNDFILE: SHLD PATH ;SAVE PATH BASE ADDRESS MVI C,17 ;SEARCH FOR FIRST CALL BENTRY ;LOOK FOR FILE INR A ;SET FLAG JNZ FF5 ;FOUND IT -- RETURN FOUND FLAG XCHG ;HL=FCB PTR SHLD FCBPTR ;SAVE IT LHLD PATH ;PT TO PATH FOR FAILURE POSSIBILITY MVI C,32 ;GET CURRENT USER MVI E,0FFH CALL BENTRY STA TMPUSR ;SAVE IT FOR LATER ; ; MAIN SEARCH LOOP ; FF1: MOV A,M ;GET DRIVE ANI 7FH ;MASK MSB ORA A ;0=DONE=COMMAND NOT FOUND JNZ FF2 ;NO ERROR ABORT? ; ; FILE NOT FOUND ERROR ; XRA A ;ZERO FLAG MEANS NOT FOUND RET ; ; LOOK FOR COMMAND IN DIRECTORY PTED TO BY HL; DRIVE IN A ; FF2: CPI CURIND ;CURRENT DRIVE SPECIFIED? JNZ FF3 ;SKIP DEFAULT DRIVE SELECTION IF SO LDA UDFLAG ;GET DEFAULT USER/DISK ANI 0FH ;MASK FOR DEFAULT DISK INR A ;PREP FOR FOLLOWING DCR A FF3: DCR A ;ADJUST PATH 1 TO 0 FOR A, ETC MOV E,A ;DISK NUMBER IN E MVI C,14 ;SELECT DISK FCT CALL BENTRY ;SELECT DRIVE INX H ;PT TO USER NUMBER MOV A,M ;GET USER NUMBER ANI 7FH ;MASK OUT MSB INX H ;PT TO NEXT ENTRY IN PATH PUSH H ;SAVE PTR CPI CURIND ;CURRENT USER SPECIFIED? JNZ FF4 ;DO NOT SELECT CURRENT USER IF SO LDA TMPUSR ;GET ORIGINAL USER NUMBER FF4: MOV E,A ;SELECT USER MVI C,32 CALL BENTRY LHLD FCBPTR ;GET PTR TO FCB XCHG ;... IN DE MVI C,17 ;SEARCH FOR FIRST CALL BENTRY ;LOOK FOR FILE POP H ;GET PTR TO NEXT PATH ENTRY INR A ;SET FLAG JZ FF1 ;CONTINUE PATH SEARCH IF SEARCH FAILED ; ; FILE FOUND -- PERFORM SYSTEM TEST AND PROCEED IF APPROVED ; FF5: MVI A,0FFH ;SET OK RETURN ORA A RET ; ; BDOS ROUTINE ; BENTRY: PUSH H ;SAVE REGS PUSH D PUSH B CALL BDOS POP B ;GET REGS POP D POP H RET * BUFFERS FCBPTR: DS 2 ;POINTER TO FCB FOR FILE SEARCH TMPUSR: DS 1 ;CURRENT USER NUMBER PATH: DS 2 ;BASE ADDRESS OF PATH ; ; INITIALIZE KEY FIELDS OF FCB PTED TO BY DE ; INITFCB: PUSH H ;SAVE HL XRA A ;A=0 STAX D ;SET DEFAULT DRIVE LXI H,FCBEX ;PT TO EX FIELD DAD D MOV M,A ;SET EX FIELD TO ZERO LXI H,FCBNR ;PT TO CR FIELD DAD D MOV M,A ;SET CR FIELD TO ZERO POP H ;RESTORE HL RET ; ; GET NEXT BYTE FROM INPUT FILE ; GNB: PUSH H ;DON'T ALTER ANYBODY PUSH D PUSH B LDA OPTION ;INPUT FROM .SUB FILE? CPI OPT ;TOLD BY ORIG CMD LINE OPTION JNZ NSLASH ;JUMP IF WE ARE CALL GNBKBD ;NO, GET A BYTE FROM KBD INPUT JMP GNBXIT ;THEN LEAVE NSLASH: LDA IBP ;GET BUFFER POINTER ORA A ;PAST END? CM FILL ;WRAPPED AROUND JNC GNB1 ;NO END OF FILE * RESTORE CURRENT USER/DISK IF CHANGED LDA UDFLAG ;RESTORE CURRENT DISK ANI 0FH ;MASK IN DISK ONLY MOV E,A MVI C,LOGIN ;BDOS FCT CALL BDOS LDA DUSER ;RESTORE CURRENT USER MOV E,A MVI C,UCODE ;BDOS FCT CALL BDOS MVI A,1AH ;FAKE EOF GNB1: MOV E,A ;PUT IN DE MVI D,0 INR A ;POINT TO NEXT STA IBP ;PUT AWAY LXI H,TBUF ;NOW OFFSET INTO BUFR DAD D MOV A,M ;GET CHAR THERE GNBXIT: POP B ;RESTORE EVERYBODY POP D POP H ORA A ;TURN ON CARRY RET ; ; FILL INPUT BUFFER ; FILL: MVI C,READF LXI D,FCB CALL BDOS ORA A ;GOT GOOD READ? MVI A,0 ;(NEW BUF PTR) STC RNZ ;RETN CY=EOF CMC ;NO EOF, NO CY RET ; ; COME HERE TO GET A .SUB CHARACTER WHEN ; WE'RE NOT USING A .SUB FILE ("/" OPTION) ; GNBKBD: LDA CLFLAG ;USE CP/M CMD LINE? ORA A JNZ GNBCL ;THEN GO DO IT LDA CLCNT ;NOT, CHECK LOCAL ORA A ; CMD LINE CHAR COUNT CM CLFILL ;REFILL WHEN IT WRAPS BACK JC GKEND ;GOT CARRY (FROM CLFILL), RETURN EOF DCR A ;COUNT DOWN STA CLCNT JP GNBCL ;IF PLUS, BUFFER NOT EMPTY MVI A,CR ;OUT OF CHARS, RETURN A CR RET GKEND: MVI A,1AH ;RETURN EOF RET ; ; GET NEXT BYTE OF INPUT FROM CMD LINE @CLPTR ; GNBCL: LHLD CLPTR ;LOAD THE POINTER MOV A,M ;GET THE CHAR INX H ;BUMP POINTER FOR NEXT TIME SHLD CLPTR ORA A ;PHYSICAL END-OF-LINE RNZ ;THIS ONLY NEEDED WHEN INPUT ; SOURCE IS ORIG CPM CMD LINE MVI A,1AH ;TRANSLATE THAT TO END OF FILE RET ; ; SUBROUTINE TO RE-FILL THE LOCAL COMMAND LINE ; CLFILL: LXI D,PROMPT ;PRINT A PROMPT MVI C,PRINTF ;USE CP/M FUNCT 9 CALL BDOS LXI D,CLBUF ;NOW FILL THE BUFFER MVI C,RDBUF CALL BDOS LDA CLCNT ;RETURN WITH COUNT IN A LXI H,CLTEXT ;RESET THE CMD LINE POINTER SHLD CLPTR ORA A ;SET CY ON LEN NZ STC RZ CMC RET ; ; MAKE SURE NO MEMORY OVERFLOW ; SIZE: LDA BDOS+2 ;HIGHEST PAGE POINTER DCR A ;MAKE IT BE UNDER BDOS CMP H ;CHECK IT AGAINST CURRENT PAGE RNC ;NC=ALL OKAY JMP MEMERR ;OTHERWISE ABORT ; ; SET UP THE $$$.SUB FILE ; FOR WRITING ; WRSET: LXI D,WRSUBMSG MVI C,PRINTF CALL BDOS LXI D,SUBFCB MVI C,OPENF CALL BDOS ;OPEN THE FILE INR A ;CHECK CPM RETURN JZ NONE1 ;NONE EXISTS ALREADY ; ; $$$.SUB EXISTS, SO SET ; FCB TO APPEND TO IT ; LDA SUBFCB+FCBRC ;GET RECORD COUNT STA SUBFCB+FCBNR ;MAKE NEXT RECORD RET ; ; COME HERE WHEN NO $$$.SUB EXISTS ; NONE1: LXI D,SUBFCB MVI C,MAKEF CALL BDOS INR A JZ NOMAKE ;0FFH=CAN'T CREATE FILE RET ; WRSUBMSG: DB CR,LF,'Writing SUB Execution File to Disk$' ; ; WRITE THE "$$$.SUB" FILE ; WRSUB: LHLD PREV ;THIS CODE SCANS BACKWARD MOV A,H ; THRU THE FILE STORED IN ORA L ; MEMORY TO THE FIRST NON- JZ NOTEXT ; NULL LINE. IF NONE IS MOV E,M ; FOUND, ABORTS INX H MOV D,M ;HERE, WE PICK UP PNTR TO PREV LINE INX H ;NOW WE POINT TO LENGTH XCHG ;WE NEED TO STORE AWAY SHLD PREV ; POINTER TO PREV LINE XCHG MOV A,M ;NOW PICK UP THE LENGTH ORA A ;SET Z FLAG ON LENGTH JNZ WRNTRY ;GOT LINE W/LENGTH: GO DO IT LHLD LINNUM ;NOTHING HERE, FIX LINE NUMBER DCX H ;(WORKING BACKWARD NOW) SHLD LINNUM JMP WRSUB WRLOP: LHLD PREV ;GET PREV LINE POINTER MOV A,H ORA L ;IF THERE IS NO PREV LINE JZ CLOSE ; THEN WE ARE DONE MOV E,M ;ELSE SET UP PREV FOR NEXT INX H ; PASS THRU HERE MOV D,M INX H XCHG ;NOW STORE IT AWAY SHLD PREV XCHG WRNTRY: CALL PUTLIN ;WRITE THE LINE TO THE FILE LHLD LINNUM ;BUMP THE LINE NUMBER DCX H ;DOWN (WORKING BACK NOW) SHLD LINNUM JMP WRLOP ; ; $$$.SUB IS WRITTEN, CLOSE THE FILE ; CLOSE: LXI D,SUBFCB MVI C,CLOSEF JMP BDOS ; ; THIS SUBROUTINE WRITES A LINE ; TO THE $$$.SUB FILE BUFFER, ; AND FLUSHES THE BUFFER AFTER ; THE LINE IS WRITTEN. ; PUTLIN: MOV A,M ;PICK UP LENGTH BYTE INX H ;POINT PAST IT STA GETCNT ;MAKE A COUNT FOR "GET" SHLD GETPTR ;MAKE A POINTER FOR "GET" LXI H,TBUF+1 ;TEXT GOES AFTER LENGTH SHLD PUTPTR ;MAKE POINTER FOR "PUT" XRA A ;INITIALIZE PUT COUNT STA PUTCNT MOV B,L ;COUNT FOR CLEAR LOOP CLR: MOV M,A ;ZERO OUT BUFFER LOC INX H INR B ;COUNT JNZ CLR ; ; THIS LOOP COLLECTS CHARACTERS ; FROM THE LINE STORED IN MEMORY ; AND WRITES THEM TO THE FILE. ; IF THE "$" PARAMETER SPECIFIER ; IS ENCOUNTERED, PARAMETER SUB- ; STITUTION IS DONE ; PUTLP: CALL GETCHR ;PICK UP A CHARACTER JC FLUSH ;CY = NO MORE CHAR IN LINE CPI '^' ;CONTROL-CHAR TRANSLATE PREFIX? JNZ NOTCX CALL GETCHR ;YES, GET THE NEXT JC CCERR ;ERROR: EARLY END OF INPUT SUI '@' ;MAKE IT A CONTROL-CHAR JC CCERR ;ERROR: TOO SMALL CPI ' ' JNC CCERR ;ERROR: TOO LARGE NOTCX: CPI PDELIM ;PARAMETER SPECIFIER? JNZ STOBYT ;IF NOT, JUST WRITE CHAR LDA OPTION ;CHECK OPTION: '$' DOESN'T CPI OPT ; COUNT IN OPT MODE MVI A,PDELIM ;(RESTORE THE '$') JZ STOBYT CALL LKAHED ;PEEK AT NEXT CHAR JC PARERR ;LINE ENDING MEANS PARAM ERR CPI PDELIM ;ANOTHER "$"? JNZ SUBS ;IF NOT THEN GO DO SUBSTITUTION CALL GETCHR ;GET THE 2ND "$" (WE ONLY LOOKED ; AHEAD BEFORE) STOBYT: CALL PUTCHR ;WRITE CHAR TO FILE JMP PUTLP ; ; PARAMETER SUBSTITUTION...LOOKS UP THE ; PARAMETER # AFTER THE "$" AND PLUGS IT ; IN IF IT EXISTS. ; SUBS: CALL NUMTST ;IT BETTER BE A NUMBER JC PARERR ; OTHERWISE PARAM ERROR MVI B,0 ;INITIALIZE PARM # JMP LPNTRY ;WE JOIN LOOP IN PROGRESS... SUBLP: CALL LKAHED ;LOOK AT NEXT CHAR JC DOSUBS ;IF LINE EMPTY, THEN PLUG IN PARM CALL NUMTST ;CHECK FOR NUMERIC JC DOSUBS ;DONE IF NOT LPNTRY: CALL GETCHR ;NOW REMOVE THE CHAR FROM INPUT STREAM SUI '0' ;REMOVE ASCII BIAS MOV C,A ;SAVE IT MOV A,B ;OUR ACCUMULATED COUNT ADD A ;MULTIPLY BY TEN ADD A ADD B ADD A ADD C ;THEN ADD IN NEW DIGIT MOV B,A ;RESTORE COUNT JMP SUBLP ; ; PERFORM THE SUBSTITUTION ; DOSUBS: MOV A,B ;GET PARM # DCR A ;MAKE ZERO RELATIVE JM PARERR ;OOPS CALL LOOKUP ;LOOK IT UP IN PARM TABLE JC PARERR ;IT'S NOT THERE MOV B,A ;LENGTH IN B SUBLP1: INR B ;TEST B FOR ZERO DCR B JZ PUTLP ;DONE MOV A,M ;GET CHAR OF REAL PARAMETER INX H ;POINT PAST FOR NEXT TIME PUSH H ;SAVE REAL PARM POINTER CALL PUTCHR ;PUT IT IN THE FILE POP H ;GET BACK REAL PARM POINTER DCR B ;COUNTDOWN JMP SUBLP1 ; ; COME HERE WHEN A LINE IS FINISHED, ; AND WE NEED TO WRITE THE BUFFER TO DISK ; FLUSH: LXI D,SUBFCB MVI C,WRITEF CALL BDOS ORA A JNZ WRERR ;CPM RETURNED A WRITE ERROR RET ; ; GETCHR GETS ONE CHAR FROM ; LINE STORED IN MEMORY ; GETCHR: LXI H,GETCNT MOV A,M ;PICK UP COUNT DCR A ;REMOVE THIS CHAR STC ;PRESET ERROR RM ;RETURN CY IF OUT OF CHARS MOV M,A ;UPDATE COUNT LHLD GETPTR ;CURRENT CHAR POINTER MOV A,M ;PICK UP CHAR INX H ;BUMP POINTER SHLD GETPTR ;PUT IT BACK CMC ;TURN CARRY OFF RET ; ; PUTCHR PUTS ONE CHAR TO ; THE OUTPUT BUFFER ; PUTCHR: LXI H,PUTCNT INR M ;INCREMENT COUNT JM LENERR ;LINE WENT TO > 128 CHARS LHLD PUTPTR ;GET BUFFER POINTER ANI 7FH ;MASK OUT MSB MOV M,A ;PUT CHAR THERE INX H ;BUMP POINTER SHLD PUTPTR ;PUT IT BACK RET ;ALL DONE ; ; LOOK AHEAD ONE CHAR IN ; THE INPUT STREAM. SET ; CARRY IF NONE LEFT. ; LKAHED: LDA GETCNT ORA A ;SEE IF COUNT IS DOWN TO ZERO STC ;PRE SET INDICATOR RZ MOV A,M ;PICK UP CHAR CMC ;TURN OFF CARRY FLAG RET ; ; LOOK UP PARAMETER WITH NUMBER IN ; A REG. RETURN A=LENGTH OF PARM, ; AND HL => PARAMETER ; LOOKUP: CPI NPAR JNC PAROVF ;PARM # TOO HIGH MOV L,A MVI H,0 ;NOW HAVE 16 BIT NUMBER DAD H ;DOUBLE FOR WORD OFFSET LXI D,TABLE DAD D ;DO THE OFFSET MOV E,M ;GET ADDRESS OF PARM INX H MOV D,M MOV A,D ;ANYTHING THERE? ORA E JNZ LKUPOK XRA A ;NO, ZERO LENGTH RET LKUPOK: XCHG ;NOW IN DE MOV A,M ;PICK UP LENGTH INX H ;POINT PAST LENGTH RET ; ; UTILITY COMPARE SUBROUTINE ; COMPAR: LDAX D CMP M RNZ INX H INX D DCR B JNZ COMPAR RET ; ; NUMERIC TEST UTILITY SUBROUTINE ; NUMTST: CPI '0' RC CPI '9'+1 CMC RET ; ;DECIMAL OUTPUT ROUTINE ; DECOUT: PUSH B PUSH D PUSH H LXI B,-10 LXI D,-1 ; DECOU2: DAD B INX D JC DECOU2 LXI B,10 DAD B XCHG MOV A,H ORA L CNZ DECOUT MOV A,E ADI '0' CALL TYPE POP H POP D POP B RET ; ; PRINT CR, LF ON CONSOLE ; CRLF: MVI A,CR CALL TYPE MVI A,LF ; ; PRINT CHAR IN A ON CONSOLE ; TYPE: PUSH H ;SAVE REGS PUSH D PUSH B MOV E,A ;PUT IN E FOR CP/M MVI C,FPCHAR CALL BDOS ;PRINT IT POP B ;RESTORE ALL POP D POP H RET ; ; CONVERT CHAR IN A TO UPPER CASE ; UCASE: CPI 'a' ;VALIDATE CASE RC CPI 'z'+1 RNC ANI 5FH ;GOT LC, CONV TO UC RET ; ; ERROR HANDLERS ; WRERR: CALL ERRXIT DB 'Disk Full$' NOMAKE: CALL ERRXIT DB 'Directory Full$' MEMERR: CALL ERRXIT DB 'Memory Full$' NOTFND: CALL ERRXIT DB 'SUBMIT File Not Found$' PARERR: CALL ERRXIT DB 'Parameter$' PAROVF: CALL ERRXIT DB 'Too Many Parameters: $' LENERR: CALL ERRXIT DB 'Line too Long: $' NOTEXT: CALL ERRXIT DB 'SUBMIT File Empty$' CCERR: CALL ERRXIT DB 'Control Character$' ERRXIT: LXI D,SUBERR ;PRINT ERROR HERALD MVI C,PRINTF CALL BDOS POP D MVI C,PRINTF CALL BDOS LXI D,ERRMSG ;PRINT 2ND HALF MSG MVI C,PRINTF CALL BDOS LHLD LINNUM ;TELL LINE NUMBER CALL DECOUT CALL CRLF LXI D,SUBFCB ;DELETE THE $$$.SUB FILE MVI C,DELETF CALL BDOS JMP CPBASE ; SUBERR: DB CR,LF,'SUB Error -- $' ERRMSG: DB ' error on line number: $' ; ; PROMPT FOR COMMAND LINE INPUT ; PROMPT: DB CR,LF,'Command Line? $' ; ; INITIALIZE ALL VARIABLES ; INITVAR: LXI H,VAR LXI B,ENDVAR-VAR INITLP: MVI M,0 ;ZERO ENTIRE VAR AREA INX H DCX B MOV A,B ORA C JNZ INITLP LXI H,TABLE ;INIT PARM TABLE POINTER SHLD TBLPTR LXI H,0FFFFH ;MARK END OF TABLE SHLD ENDTBL LXI H,FREMEM ;FREE MEMORY STARTS TXT AREA SHLD TXTPTR MVI A,80H ;FORCE READ STA IBP STA CLCNT ;FORCE CONSOLE READ ; GET CURRENT USER NUMBER FOR LATER MVI E,0FFH ;GET USER CODE MVI C,UCODE ;BDOS FCT CALL BDOS STA DUSER ;DEFAULT USER RET ; ; PRINT HELP WITH PROGRAM OPTIONS ; HELP: LXI D,HLPMSG ;PRINT THE HELP STUFF MVI C,PRINTF CALL BDOS LHLD SPSAVE ;THEN RETURN W/NO WARM-BOOT SPHL RET ; HLPMSG: DB CR,LF,'How to use SUB --',CR,LF DB CR,LF,'SUB<CR> - print this HELP message' DB CR,LF,'SUB /A <text> - Abort of SUBMIT File' DB CR,LF,'SUB /AB <text> - /A and Ring Bell' DB CR,LF,'SUB /D <cmd lines> - use SUMMARY (DO) mode' DB CR,LF,'SUB /I<CR> - go into Interactive mode' DB CR,LF,'SUB <FILE> <PARMS> - as in standard SUBMIT.COM' DB CR,LF DB CR,LF,'In "/I" (interactive) mode, SUB will prompt you' DB CR,LF,'a line at a time for the SUBMIT job input...logical' DB CR,LF,'lines may be combined on the same input line by sep-' DB CR,LF,'erating them with semicolons. Example:' DB CR,LF,' A>SUB /D STAT;DIR' DB CR,LF,'specifies two commands on the same input line.',CR,LF DB CR,LF,'Submitted jobs may be nested...SUB does not erase' DB CR,LF,'any existing submit job (appends to them instead).' DB CR,LF DB CR,LF,'To insert a control character into the output, pre-' DB CR,LF,'fix it with a "^" (works in any mode).' DB CR,LF,'$' ; ; VARIABLE STORAGE ; VAR EQU $ ; AFLAG: DB 0 ;ABORT FLAG (0=NO) TXTPTR: DW 0 ;FREE MEMORY POINTER TBLPTR: DW 0 ;POINTER TO PARM TABLE DUSER: DB 0 ;DEFAULT USER NUMBER LINNUM: DW 0 ;CURRENT LINE NUMBER PREV: DW 0 ;POINTER TO PREV LINE GETCNT: DB 0 ;COUNTER FOR 'GET' GETPTR: DW 0 ;POINTER FOR 'GET' PUTPTR: DW 0 ;POINTER FOR 'PUT' IBP: DB 0 ;INPUT BUFFER POINTER CLPTR: DW 0 ;COMMAND LINE POINTER CLFLAG: DB 0 ;USE CP/M CMD LINE FLAG BELL$FLAG: DB 0 ;RING BELL ON ABORT FLAG OPTION: DB 0 ;OPT OPTION FLAG STORE TABLE: DS NPAR*3 ;PARAMETER TABLE ENDTBL: DW 0FFFFH ;END OF PARAMETER TABLE ; ENDVAR EQU $ ; ; COMMAND LINE BUFFER...NOT INITIALIZED ; CLBUF: DB 128 ;BUFFER LENGTH CLCNT: DB 0 ;CHARACTER COUNTER CLTEXT: DS 128 ;THE BUFFER ITSELF ; SPSAVE: DW 0 ;STACK POINTER SAVE ; ; ; FCB FOR $$$.SUB ; SUBFCB: DB 1 ;DRIVE SPECIFIER (A SELECTED) DB '$$$ ' SUBTYP: DB 'SUB' DW 0,0,0,0 ;INITIALIZE REST OF FCB DW 0,0,0,0 DW 0,0,0,0 ; ; STACK AREA ; DS 200 ;WHY NOT? STACK EQU $ FREMEM EQU $ ; END SUB