CP/M

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

/ CP/M / CPM_CDROM.iso / zsys / simtel20 / zcpr3 / help.mac < prev next >

Wrap

Text File | 1994-07-13 | 24.4 KB | 1,208 lines

; ; PROGRAM NAME: HELP ; AUTHOR: RICHARD CONN ; DATE: 18 MAY 84 ; VERSION: 5.0 ; PREVIOUS VERSIONS: None ; DERIVATION: HELP2.ASM 4.1 (23 MAY 83) ; NOTE: FOR USE WITH ZCPR3 ONLY ; VERS EQU 50 Z3ENV SET 0F400H ; ; HELP supports an online documentation system under ZCPR3. Refer ; to the file HELP.HLP for more details. ; FALSE EQU 0 TRUE EQU NOT FALSE ; ; USER EQUATES: ; Set this to TRUE if all files must be of type HLP ; FORCEHLP EQU TRUE ; TRUE IF FILES MUST BE OF TYPE HLP ; ; Directory of Help Files if HELP Directory not found ; HDISK EQU 'A'-'A' ; DISK HUSER EQU 15 ; USER ; ; Enter/Exit Standout Mode (Recommended that these values not be changed) ; DIM EQU 'A'-'@' ; ^A TO ENTER STANDOUT NOTDIM EQU 'B'-'@' ; ^B TO EXIT STANDOUT ; ; SYSLIB ROUTINES ; EXT Z3VINIT,CLS,STNDOUT,STNDEND EXT GETCRT,GETPRT,PFIND,Z3LOG,DIRTDU EXT CODEND EXT LOGUD,RETUD,PUTUD,GETUD EXT EPSTR,EPRINT,COUT,CIN,CAPS,PFN2,PAFDC EXT INITFCB,F$EXIST,F$OPEN,F$READ,F$CLOSE ; ; CP/M Constants ; UDFLAG EQU 4 ; ADDRESS OF USER/DISK FLAG BDOS EQU 5 ; ADDRESS OF BDOS ENTRY POINT FCB EQU 5CH ; ADDRESS OF FILE CONTROL BLOCK BUFF EQU 80H ; ADDRESS OF DMA BUFFER CR EQU 0DH ; <CR> LF EQU 0AH ; <LF> BEL EQU 'G'-'@' ; ^G FF EQU 'L'-'@' ; ^L = FORM FEED CTRLZ EQU 'Z'-'@' ; ^Z CTRLC EQU 'C'-'@' ; ^C ; ; HELP Control Characters ; IHCHAR EQU ';' ; FLAG INDICATING INDEXED BY USER SECTCHAR EQU ':' ; DEFINED TO BE COLON BACKUPCHAR EQU 'L' ; BACK UP TO PREVIOUS FRAME CHAR STRTCHAR EQU 'S' ; JUMP TO START OF INFORMATION CHAR MENUCHAR EQU 'M' ; CHAR TO ABORT TO MENU CPMABORTCHAR EQU CTRLC ; CHAR TO EXIT LRCHAR EQU '^' ; RETURN TO PREVIOUS HELP LEVEL ROOTCHAR EQU '.' ; RETURN TO ROOT OF HELP PRCHAR EQU 'P' ; PRINT CURRENT FRAME CPRCHAR EQU 'P'-'@' ; PRINT CURRENT INFORMATION SECTION ; ; Environment Definition ; if z3env ne 0 ; ; External ZCPR3 Environment Descriptor ; jmp start db 'Z3ENV' ;This is a ZCPR3 Utility db 1 ;External Environment Descriptor z3eadr: dw z3env start: lhld z3eadr ;pt to ZCPR3 environment ; else ; ; Internal ZCPR3 Environment Descriptor ; MACLIB Z3BASE.LIB MACLIB SYSENV.LIB z3eadr: jmp start SYSENV start: lxi h,z3eadr ;pt to ZCPR3 environment endif ; ; Start of Program -- Initialize ZCPR3 Environment ; call z3vinit ;initialize the ZCPR3 Env and the VLIB Env jmp startx ; ; DEFAULT FILE NAME ; HELPDIR: DEFFN: DB 'HELP ' ; BOTH HELP FILE AND HELP DIR SAME NAME DEFTYP: DB 'HLP' ; ; Start of Program ; STARTX: LXI H,0 ; GET SP DAD SP SHLD STACK CALL CODEND ; DETERMINE FREE MEMORY SPACE SHLD HLPNSTK ; SET PTR TO HELP NAME STACK LXI D,200H ; ALLOW 25+ ELEMENT HELP NAME STACK AND LARGE STACK DAD D SHLD HLPBUF SPHL ; SET STACK LDA BDOS+2 ; BASE PAGE OF BDOS SUI 10 ; 2K + 2 PAGES STA TPAEND XRA A ; A=0 STA HLPLVL ; SET HELP LEVEL TO 0 (NO RETURN FILE) LXI D,FCB ; PT TO FCB CALL Z3LOG ; LOG INTO IT FOR DEFAULT CALL PUTUD ; SAVE HOME LXI H,FCB+1 ; CHECK FOR FILE NAME MOV A,M CPI '/' ; OPTION CAUGHT? JZ STRT0 CPI ' ' ; NONE? JNZ STRT1 ; ; INSERT 'HELP.HLP' INTO FCB OR CLEAR FCB ; STRT0: LXI D,DEFFN ; PT TO DEFAULT NAME MVI B,11 ; 11 BYTES XCHG CALL MOVE ; MOVE (HL) TO (DE) FOR (B) BYTES ; ; START/RESTART HELP PROGRAM (START ON INITIAL ENTRY, RESTART ON NODE LOAD) ; STRT1: LHLD HLPBUF ; RESET STACK SPHL ; ; CHECK FOR WILD CARDS IN FILE NAME -- ERROR IF SO ; LXI H,FCB+1 ; PT TO FIRST BYTE OF FILE NAME MVI B,11 ; 11 BYTES FCBWCK: MOV A,M ; GET BYTE ANI 7FH ; MASK CPI '?' ; WILD? JZ FCBWERR INX H ; PT TO NEXT DCR B JNZ FCBWCK ; ; CHECK FOR FILE TYPE ; LXI H,FCB+9 ; CHECK FOR FILE TYPE IF NOT FORCEHLP MOV A,M ; CHECK FOR FILE TYPE SPECIFIED CPI ' ' ; NONE? JNZ STRT2 ENDIF ; ; PLACE DEFAULT FILE TYPE OF '.HLP' IN FCB ; LXI D,DEFTYP ; DEFAULT FILE TYPE MVI B,3 XCHG CALL MOVE ; MOVE (HL) TO (DE) FOR (B) BYTES ; ; FIND FILE ; STRT2: ; ; LOOK INTO DIRECTORY PTED TO BY USER (OR CURRENT IF USER DID NOT SPEC ONE) ; LXI D,FCB ; PT TO FCB ; CALL Z3LOG ; LOG INTO DIRECTORY CALL INITFCB ; RESET FCB CALL RETUD ; GET HOME LOCATION CALL F$EXIST ; IS FILE THERE? JNZ STRT3 ; ; LOOK ALONG PATH FROM CURRENT DIR (NOT INCLUDING CURRENT) ; CALL GETUD ; RETURN HOME LXI D,FCB ; PT TO FCB MVI A,0 ; DON'T SEARCH CURRENT DIR ALSO CALL PFIND ; SEARCH FOR FILE JNZ STRT3 ; FILE FOUND, SO PROCESS ; ; LOOK IN HELP FILE DIRECTORY ; LXI H,HELPDIR ; LOOK FOR HELP DIRECTORY CALL DIRTDU ; CONVERT TO DU IN BC JNZ LOGHLP ; LOG INTO DU IN BC IF FOUND MVI B,HDISK ; LOG INTO HELP DIRECTORY MVI C,HUSER LOGHLP: CALL LOGUD LXI D,FCB ; PT TO FCB CALL F$EXIST ; LOOK FOR FILE JNZ STRT3 ; FILE FOUND ; ; FILE NOT FOUND ; CALL EPRINT DB CR,LF,' File Not Found',0 JMP HLPEXIT ; ; FILE CONTAINS WILD CARDS ; FCBWERR: CALL EPRINT DB CR,LF,' AFN Not Allowed',0 JMP HLPEXIT ; ; LOAD HELP FILE INFORMATION ; ON INPUT, BC=DIRECTORY ; STRT3: CALL LOGUD ; LOG INTO DIRECTORY LXI D,FCB ; OPEN FILE CALL F$OPEN LHLD HLPBUF ; PT TO BUFFER SHLD NEXTADR ; SET PTR ; ; READ RECORDS UNTIL EOF ; STRT4: CALL READ ; READ INFO JZ STRT4 ; NOT DONE IF ZERO RETURN LXI D,FCB ; CLOSE FILE CALL F$CLOSE CALL GETUD ; RESTORE CURRENT DISK AND USER IF CHANGED ; ; START OF HELP PROGRAM ; HELP: LHLD HLPBUF ; PT TO BUFFER SPHL ; SET STACK MVI A,0 ; SET NO FRAME STA FRNUM MOV A,M ; NO HEADER SECTION? ANI 7FH ; MASK OUT MSB CPI SECTCHAR JNZ HELP1 ; HEADER SECTION EXISTS CALL CLS ; NEW SCREEN CALL PRINFO ; PRINT HELP INFO PTED TO BY HL LDA HLPLVL ; CHECK TO SEE IF WE ARE NOT AT LEVEL 0 ORA A ; 0=LEVEL 0 JZ HLPEXIT ; ABORT IF SO JMP LRURN ; GO TO PREVIOUS LEVEL IF NOT ; ; EXIT POINT FOR ANY EXIT FROM THE REST OF THE HELP PROGRAM ; HLPEXIT: CALL GETUD ; RESET CALLING DISK/USER NUMBER LHLD STACK ; GET CP/M SP SPHL RET ; DONE ; ; PRINT HEADER INFORMATION AND SELECT AN OPTION ; HELP1: CALL PRHEADER ; PRINT HEADER PUSH B ; SAVE C (NUMBER OF VALID SELECTIONS) CALL CRLF1 ; NEW LINE CALL STNDOUT ; GOTO DIM CALL PRLEVEL ; PRINT LEVEL NUMBER CALL EPRINT DB 'Enter Selection ',0 CALL PRP1 ; PRINT LEVEL MOVEMENT PROMPT CALL STNDEND ; GOTO BRIGHT POP B ; GET C CALL CIN ; GET RESPONSE CALL CAPS ; CAPITALIZE PUSH PSW CALL CLS ; CLEAR SCREEN POP PSW CPI CTRLC ; EXIT JZ HLPEXIT CPI ROOTCHAR ; GO TO ROOT JZ GOROOT CPI LRCHAR ; RETURN TO PREVIOUS LEVEL JZ LRURN MOV B,A ; USER INPUT IN B LDA HTYPE ; TYPE OF HELP FILE CPI IHCHAR ; INDEXED BY USER? JZ HELP5 ; FIND INFORMATION SECTION VIA INDEX SCAN MOV A,B ; FIND INFORMATION SECITON VIA COUNT SUI 'A'-1 ; ADJUST FOR COUNT MOV B,A ; SAVE COUNT JZ BADRESPONSE JNC HELP2 ; ; INVALID RESPONSE ; BADRESPONSE: CALL SAK ; RING BELL JMP HELP1 ; ; VALID RESPONSE -- LOOK FOR AND PRINT INFORMATION SECTION ; HELP2: INR C ; 1 MORE THAN NUMBER OF POSSIBLE SELECTIONS CMP C ; GREATER THAN NUMBER OF POSSIBLE SELECTIONS? JNC BADRESPONSE LHLD FIRSTENTRY ; GET PTR TO FIRST ENTRY ; ; PRINT INFORMATION WHEN COUNT IS ZERO ; HELP3: DCR B ; COUNT DOWN SELECTIONS JNZ HELP4 CALL PRINFO ; PRINT INFO PTED TO BY HL JMP HELP1 ; ; LOCATE NEXT INFORMATION SECTION ; HELP4: CALL FINDI ; SKIP TO NEXT INFORMATION SECTION CPI CTRLZ ; END OF FILE? JNZ HELP3 ; CONTINUE LOOPING IF NOT ELSE FALL THRU TO HELPERR ; ; ERROR -- REACHED END OF HELP FILE ; HELPERR: CALL EPRINT DB CR,LF,' EOF on Help File',0 JMP HELP1 ; ; LOCATE NEXT INFORMATION SECTION VIA INDEX SCAN ; HELP5: LHLD FIRSTENTRY ; PT TO FIRST ENTRY ; ; LOOK FOR USER INDEX ; HELP6: PUSH H ; SAVE PTR TO THIS LINE HELP7: INX H ; SKIP OVER SECTION CHAR MOV A,M ; GET CHAR ANI 7FH ; MASK OUT MSB CALL CAPS ; CAPITALIZE CPI ' ' ; SKIP SPACES JZ HELP7 CPI SECTCHAR ; NEW SECTION? JZ HELP8 ; FIND NEXT SECTION CPI CR ; END OF LINE? JZ HELP8 ; FIND NEXT SECTION CPI CTRLZ ; EOF? JZ HELP8 CMP B ; CHECK FOR USER INPUT JNZ HELP7 POP H ; FOUND IT -- PRINT IT INX H ; SKIP OVER SECTION CHAR HELP7A: MOV A,M ; SKIP TO BEGINNING FOR 1ST LINE INX H ; PT TO NEXT ANI 7FH CPI CTRLZ ; TRAP EOF JZ BADRESPONSE CPI SECTCHAR ; FILE SPECIFIED? JZ HELP7B ; PROCESS IT CPI LF ; BEGIN NEW LINE JZ HELP7C CPI CR ; AT END OF INDEX LINE? JNZ HELP7A MOV A,M ; GET LF ANI 7FH CPI LF ; SKIP FOLLOWING LF IF ANY JNZ HELP7C INX H ; SKIP LF JMP HELP7C ; ; LOAD NEXT HELP LEVEL ; HELP7B: DCX H ; PT TO SECTION CHAR DCX H ; PT TO BEFORE SECTION CHAR FOR PRINFO ; ; PROCESS HELP LEVEL OR LOAD AND PROCESS NEXT LEVEL PTED TO BY HL ; HELP7C: CALL PRINFO ; PRINT INFORMATION SECTION JMP HELP1 ; RESUME HELP8: POP H ; PT TO INFO SECTION CALL FINDI ; FIND NEXT INFO SECTION CPI CTRLZ ; EOF? JNZ HELP6 ; KEEP LOOKING JMP BADRESPONSE ; ; SKIP TO NEXT INFORMATION SECTIONS ; RETURN WITH A=SECTCHAR IF FOUND OR A=^Z IF NOT ; FINDI: MOV A,M ; <CTRL-Z>? ANI 7FH ; MASK OUT MSB INX H ; PT TO NEXT BYTE CPI CTRLZ RZ CPI LF ; LINE FEED? JZ FINDI1 CPI CR ; <CR>? JNZ FINDI MOV A,M ; MAKE SURE LF ANI 7FH CPI LF JNZ FINDI1 INX H ; SKIP OVER LF FINDI1: MOV A,M ; GET CHAR ANI 7FH ; MASK OUT MSB CPI SECTCHAR ; NEW SECTION? JNZ FINDI ; CONTINUE LOOPING RET ; ; HELP SUPPORT ROUTINE SECTION ; ; ; PRINT ERROR MSG PTED TO BY DE; ENDS IN 0 ; PRMSG: XCHG ; MSG PTED TO BY HL CALL EPSTR XCHG RET ; ; MOVE BYTES PTED TO BY HL TO AREA PTED TO BY DE; B BYTES TO MOVE ; MOVE: MOV A,M ; GET BYTE ANI 7FH ; MASK OFF MSB -- IN CASE A WS FILE STAX D ; PUT BYTE INX H ; PT TO NEXT INX D DCR B JNZ MOVE RET ; ; READ RECORD FROM DISK; NEXTADR CONTAINS ADDRESS TO READ TO ; ON RETURN, BDOS ERROR CODE IS IN A (0=NO ERROR) ; READ: LXI D,FCB ; PT TO FCB CALL F$READ ; READ NEXT RECORD PUSH PSW ; SAVE RETURN CODE LHLD NEXTADR ; PT TO LOAD ADDRESS LDA TPAEND ; CHECK AGAINST END PAGE OF TPA CMP H ; IF AT SAME PAGE, YES JZ READERROR LXI D,BUFF ; PT TO BUFFER TO LOAD FROM MVI B,128 ; NUMBER OF BYTES TO MOVE XCHG CALL MOVE XCHG MVI M,CTRLZ ; STORE ENDING CTRLZ IN CASE OF EOF POP PSW ; GET RETURN CODE ORA A ; DONE? <>0 IF SO ; ; READ DONE -- SAVE PTR TO NEXT BLOCK ; SHLD NEXTADR ; SET NEXT ADDRESS RET READERROR: CALL EPRINT DB CR,LF,' Mem Full',0 JMP HLPEXIT ; ; PRINT ONE LINE OF INFO SECTION; HL PTS TO LINE UPON ENTRY; ; HL PTS TO FIRST CHAR OF NEXT LINE UPON EXIT ; PRLINE: MOV A,M ; GET CHAR ANI 7FH ; MASK OUT MSB CPI CR ; EOL? JZ CRLF CPI LF ; LINE FEED? (WS FILE) JZ CRLF0 CPI CTRLZ ; END OF FILE? JZ CRLFC ; DONE IF SO INX H ; PT TO NEXT CPI DIM ; GOTO STANDOUT MODE? JZ PRLDIM CPI NOTDIM ; GOTO NORMAL MODE? JZ PRLNDIM CALL COUT ; PRINT CHAR JMP PRLINE PRLDIM: CALL STNDOUT ; ENTER STANDOUT MODE JMP PRLINE PRLNDIM: CALL STNDEND ; END STANDOUT MODE JMP PRLINE ; ; PRINT CRLF, PT TO FIRST CHAR OF NEXT LINE, AND PAGE IF NECESSARY ; CRLF: INX H ; PT TO LF CRLF0: INX H ; PT TO 1ST CHAR OF NEXT LINE CRLFC: CALL CRLF1 ; PRINT CRLF LDA LCOUNT ; GET LINE COUNT DCR A STA LCOUNT RNZ ; OK -- CONTINUE MOV A,M ; SET MSB OF FIRST CHAR OF NEXT LINE ORI 80H MOV M,A ; MSB IS SET FOR LATER BACKUP CALL PRPROMPT ; PRINT PROMPT AND PROCESS COMMON OPTIONS CPI BACKUPCHAR ; BACK UP? JZ FBACKUP CPI STRTCHAR ; JUMP TO START OF INFO JZ INFOSTRT FRESUME: SHLD STRTFRAME JMP SETLCOUNT ; ; PRINT PROMPT AND PROCESS COMMON OPTIONS ; PRPROMPT: CALL STNDOUT ; GOTO DIM CALL PRLEVEL ; PRINT LEVEL NUMBER LDA FRNUM ; INCREMENT FRAME NUMBER INR A STA FRNUM CALL PRP1 ; PRINT FUNDAMENTAL LEVEL DATA PROMPT CALL EPRINT DB MENUCHAR,'=Menu ' ; ABORT TO MENU CHAR DB STRTCHAR,'=Start ' ; JUMP TO START OF INFORMATION CHAR DB BACKUPCHAR,'=Last ' ; BACK UP TO PREVIOUS FRAME CHAR DB PRCHAR,'=Print ' ; PRINT CURRENT FRAME DB 0 CALL STNDEND ; GOTO BRIGHT CALL CIN ; GET RESPONSE CALL CAPS PUSH PSW CALL CLS ; CLEAR SCREEN POP PSW POP D ; CLEAR STACK CPI MENUCHAR ; ABORT? JZ HELP ; START OVER IF SO CPI CPMABORTCHAR ; ABORT TO OS JZ HLPEXIT CPI PRCHAR ; PRINT FRAME? JZ LIST0INFO CPI CPRCHAR ; PRINT INFORMATION SECTION? JZ LIST1INFO CPI ROOTCHAR ; GO TO ROOT JZ GOROOT CPI LRCHAR ; RETURN TO HIGHER LEVEL JZ LRURN PUSH D ; RESTORE STACK RET ; ; PRINT FUNDAMENTAL LEVEL PROMPT ; PRP1: LDA HLPLVL ; DON'T PRINT IF AT LEVEL 0 ORA A RZ CALL EPRINT DB LRCHAR,'=Level ' ; RETURN TO HIGHER NODE DB ROOTCHAR,'=Root ' ; RETURN TO ROOT DB 0 RET ; ; JUMP TO START OF INFORMATION ; INFOSTRT: LHLD STRTINFO ; PT TO START OF INFO MVI A,1 ; RESET FRAME COUNT STA FRNUM JMP FRESUME ; CONTINUE PROCESSING ; ; BACK UP TO PREVIOUS FRAME ; FBACKUP: CALL BOICHECK ; AT BEGINNING OF INFORMATION? JZ INFOSTRT FB1: DCX H ; BACK UP UNTIL BYTE WITH MSB SET IS FOUND MOV A,M ; GET BYTE ANI 80H JZ FB1 LDA FRNUM ; DECREMENT FRAME NUMBER DCR A ; BACK UP TO CURRENT FRAME NUMBER DCR A ; BACK UP TO PREVIOUS FRAME NUMBER STA FRNUM JMP FRESUME ; CONTINUE PROCESSING ; ; PRINT CR AND LF ONLY ; CRLF1: MVI A,CR ; PRINT CR CALL COUT MVI A,LF ; PRINT LF JMP COUT ; ; SET LCOUNT VARIABLE TO SCREEN SIZE ; SETLCOUNT: PUSH H ; SAVE HL CALL GETCRT ; GET CRT DATA INX H ; PT TO LINE COUNT MOV A,M ; GET LINE COUNT POP H ; RESTORE HL DCR A ; 1 LESS FOR PROMPT STA LCOUNT RET ; ; PRINT THE HEADER SECTION AND LOAD FIRSTENTRY PTR ; ON RETURN, C=NUMBER OF POSSIBLE SELECTIONS ; PRHEADER: MVI A,0 ; SET NO FRAME STA FRNUM CALL SETLCOUNT LDA LCOUNT SUI 3 ; -3 lines for top and bottom STA LCOUNT MVI A,'A' ; INIT SELECTION CHAR STA SELCHAR CALL CLS ; CLEAR SCREEN CALL EPRINT DB 'HELP ' db (vers/10)+'0','.',(vers mod 10)+'0' DB ' ',0 LXI D,FCB+1 ; PT TO FCB CALL PFN2 ; PRINT WITH NO SPACES CALL EPRINT db ' Index',CR,LF,CR,LF,0 MVI C,0 ; COUNT NUMBER OF SELECTIONS LHLD HLPBUF ; PT TO BUFFER MOV A,M ; GET FIRST CHAR STA HTYPE ; SET TYPE OF HELP FILE CPI IHCHAR ; INDEXED HELP TYPE? JNZ PH1 INX H ; SKIP OVER INDEX HELP TYPE FLAG ; ; PRINT LINE UNTIL FIRST INFORMATION SECTION FOUND ; PH1: MOV A,M ; GET CHAR ANI 7FH ; MASK OUT MSB CPI SECTCHAR JZ PH2 CPI CTRLZ ; EOF? -- ABORT JZ HLPEXIT INR C ; INCREMENT SELECTION COUNT LDA HTYPE ; CHECK FOR INDEX CPI IHCHAR JZ PH1A ; SKIP LETTERS IF INDEXED LDA SELCHAR ; DISPLAY SELECTION CHAR CALL COUT INR A ; INCR CHAR STA SELCHAR CALL EPRINT DB '. ',0 PH1A: CALL PRLINE ; PRINT HEADER LINE JMP PH1 ; ; SAVE PTR TO FIRST ENTRY ; PH2: SHLD FIRSTENTRY LDA LCOUNT ; GET COUNT OF REMAINING LINES MOV B,A ; ... IN B ORA A ; ANY LEFT? RZ PH3: CALL CRLF1 ; NEW LINE DCR B JNZ PH3 RET ; ; PRINT AN INFORMATION SECTION ; INFORMATION SECTION IS PTED TO BY HL ; PRINFO: SHLD STRTINFO ; SET START OF INFORMATION POINTER CALL LDNOD ; LOAD NEW NODE IF DUAL SECTCHAR SHLD STRTFRAME ; SET FRAME POINTER MOV A,M ; SET MSB ORI 80H MOV M,A CALL SETLCOUNT MVI A,1 ; A=1 STA FRNUM ; SET FRAME NUMBER PI1: CALL PRLINE ; PRINT LINE FROM INFO FILE MOV A,M ; DONE? ANI 7FH ; MASK OUT MSB CPI CTRLZ ; EOF? JZ PI2 CPI SECTCHAR ; NEXT SECTION JZ PI2 CPI FF ; FORM FEED? JNZ PI1 INX H ; PT TO CHAR AFTER FORM FEED CALL FORMFEED ; FEED SCREEN JMP PI1 ; ; FORM FEED SCREEN ; FORMFEED: LDA LCOUNT ; GET LINE COUNT MOV B,A ; ... IN B FEEDLOOP: PUSH B ; SAVE B CALL CRLFC ; NEW LINE POP B ; GET B DCR B JNZ FEEDLOOP RET ; ; END OF INFO ; PI2: MOV A,M ; SET MSB OF NEXT BYTE ORI 80H MOV M,A PI2A: CALL CRLF1 ; NEW LINE LDA LCOUNT ; COUNT DOWN DCR A STA LCOUNT JNZ PI2A PI2MSG: CALL EPRINT ; PRINT END OF INFORMATION INDICATOR DB 'EOI ',0 CALL PRPROMPT ; PRINT PROMPT AND PROCESS COMMON OPTIONS CPI BACKUPCHAR ; BACK UP FROM EOI? JZ PI2BACKUP CPI STRTCHAR ; START OF INFO? JZ PI2STRT JMP SETLCOUNT ; RESET LINE COUNT IN CASE OF ALL ; ; JUMP TO START OF INFO FROM EOI ; PI2STRT: LHLD STRTINFO ; PT TO START OF INFO CALL FRESUME ; RESET POINTERS MVI A,1 ; RESET FRAME COUNT STA FRNUM JMP PI1 ; CONTINUE PROCESSING ; ; BACK UP TO PREVIOUS FRAME FROM EOI ; PI2BACKUP: CALL BOICHECK ; AT BEGINNING OF INFORMATION? JZ PI2STRT PI2BACK: CALL FB1 ; BACK UP TO PREVIOUS FRAME JMP PI1 ; CONTINUE PROCESSING ; ; CHECK FOR POSITION AT BEGINNING OF INFORMATION SECTION ; IF SO, PRINT BACKUP ERROR MSG AND RETURN W/ZERO SET ; BOICHECK: LHLD STRTINFO ; START ADDRESS XCHG ; ... IN DE LHLD STRTFRAME ; FRAME ADDRESS MOV A,D ; EQUAL? CMP H RNZ MOV A,E CMP L RNZ CALL SAK ; ERROR BELL XRA A ; ZERO FLAG SET STA FRNUM ; SET FRAME NUMBER RET ; ; THIS BODY OF CODE LISTS INFORMATION FROM HELP2 TO THE ; PRINTER ; ; ; LIST ONE LINE OF INFO SECTION; HL PTS TO LINE UPON ENTRY; ; HL PTS TO FIRST CHAR OF NEXT LINE UPON EXIT ; LISTLINE: MOV A,M ; GET CHAR ANI 7FH ; MASK OUT MSB CPI CR ; EOL? JZ LCRLF CPI LF ; LINE FEED? (WS FILE) JZ LCRLF0 CPI CTRLZ ; END OF FILE? JZ LCRLFC ; DONE IF SO CALL LSTOUT ; PRINT CHAR RZ ; ABORT INX H ; PT TO NEXT JMP LISTLINE ; ; LIST CRLF, PT TO FIRST CHAR OF NEXT LINE, AND PAGE IF NECESSARY ; LCRLF: INX H ; PT TO LF LCRLF0: INX H ; PT TO 1ST CHAR OF NEXT LINE LCRLFC: CALL LCRLF1 ; PRINT CRLF LDA LCOUNT ; GET LINE COUNT DCR A STA LCOUNT JNZ LNOABT ; OK -- CONTINUE CALL LFORMFEED ; ADVANCE TO NEXT PAGE SETPLC: PUSH H ; SAVE HL CALL GETPRT ; GET PRINTER DATA INX H ; PT TO TEXT LINE COUNT INX H MOV A,M ; GET TEXT LINE COUNT STA LCOUNT ; SET LINE COUNT POP H ; RESTORE HL RET LCRLF1: MVI A,CR ; SEND <CRLF> TO PRINTER CALL LSTOUT RZ ; ABORT MVI A,LF ; FALL THRU TO LSTOUT ; ; PRINT CHARACTER IN A ON PRINTER; AFFECT NO REGISTERS ; LSTOUT: PUSH H ; SAVE REGS PUSH D PUSH B MOV E,A ; CHAR IN E MVI C,5 ; BDOS PRER OUTPUT ROUTINE CALL BDOS MVI E,0FFH ; CONDITIONAL INPUT MVI C,6 ; DIRECT CONSOLE I/O CALL BDOS POP B ; RESTORE REGS POP D POP H CPI CTRLC ; ABORT? RET LNOABT: MVI A,0FFH ; SET NO ABORT RETURN ORA A ; SET FLAGS RET ; ; LIST THE CURRENT INFORMATION SECTION ; INFORMATION SECTION IS PTED TO BY STRTINFO ; ; LIST0INFO -- LIST CURRENT FRAME ONLY ; LIST1INFO -- LIST CURRENT INFORMATION SECTION ; LIST0INFO: LHLD STRTFRAME ; LIST CURRENT FRAME ONLY MVI A,0FFH ; SET FLAG STA LFRFLAG ; LIST FRAME ONLY JMP LIST2INFO LIST1INFO: LHLD STRTINFO ; PREPARE TO LIST ENTIRE INFO SECTION XRA A ; CLEAR FRAME LIST FLAG STA LFRFLAG LIST2INFO: CALL LISTINFO ; DO PRINT CALL CLS ; CLEAR SCREEN CALL LFORMFEED ; FORM FEED PRINTER LHLD STRTFRAME ; RETURN TO FRAME WE WERE ON CALL FRESUME LDA FRNUM ; ADJUST FRAME NUMBERING DCR A STA FRNUM JMP PI1 ; RESUME AT PI1 ; ; MAIN PRINT ROUTINE ; LISTINFO: CALL CLS ; PRINT FRAME OR INFO SECTION CALL EPRINT DB CR,LF,' Printing ',0 CALL SETPLC ; SET PRINTER LINE COUNT LI1: CALL LISTLINE ; LIST LINE FROM INFO FILE CPI CTRLC ; ABORT? RZ ; FEED PRINTER AND EXIT MOV A,M ; DONE? ANI 7FH ; MASK OUT MSB CPI CTRLZ ; EOF? RZ ; RESUME IF AT END OF INFO CPI SECTCHAR ; NEXT SECTION RZ ; RESUME IF AT END OF INFO CPI FF ; FORM FEED? JNZ LI1 LDA LFRFLAG ; LIST FRAME ONLY? ORA A ; 0=NO RNZ INX H ; PT TO CHAR AFTER FORM FEED CALL LCRLFC ; NEW LINE MVI B,10 ; PRINT SEPARATOR LI2: MVI A,'-' ; DASHES CALL LSTOUT RZ ; ABORT? DCR B ; COUNT DOWN JNZ LI2 CALL LCRLFC ; 2 NEW LINES CALL LCRLFC JMP LI1 ; ; FORM FEED PRINTER ; LFORMFEED: CALL LCRLF1 ; NEW LINE MVI A,FF ; OUTPUT FORM FEED CALL LSTOUT JMP SETPLC ; RESET LINE COUNT ; ; END OF BODY OF CODE WHICH LISTS INFORMATION FROM HELP2 TO ; THE PRINTER ; ; ; AT THE BEGINNING OF AN INFORMATION SECTION (HL PTS TO FIRST CHAR) ; CHECK TO SEE IF ANOTHER SECTCHAR FOLLOWS, AND, IF SO, LOAD THE ; SPECIFIED FILE AS A NEW NODE AND BEGIN PROCESSING IT ; LDNOD: INX H ; PT TO POSSIBLE 2ND SECTCHAR MOV A,M ; GET IT DCX H ; PREP FOR RETURN ANI 7FH ; MASK MSB CPI SECTCHAR ; ANOTHER ONE? RNZ ; PROCESS NORMALLY IF NOT ; ; WE HAVE A NEW NODE -- CHECK TO SEE IF WE CAN NEST AGAIN ; LDA HLPLVL ; GET CURRENT HELP LEVEL CPI 25 ; AT MAXIMUM? JNZ LDNOD1 CALL CLS ; NEW SCREEN CALL EPRINT db cr,lf,' Node Level Limit',0 JMP HLPEXIT ; ; WE HAVE NOT REACHED LEVEL LIMIT, SO CONTINUE ; AT THIS TIME, A=HELP LEVEL INDEX AND HL = PTR TO CURRENT SECTION (::) ; LDNOD1: ; ; SAVE CURRENT HELP FILE NAME FOR RETURN ; INX H ; PT TO SECTION SECTCHAR INX H ; NOW POINTING TO FILE NAME PUSH H ; SAVE PTR CALL COMPTR ; HL=POINTER TO STACK ELT INDEXED BY A XCHG ; DE=ADDRESS OF NEXT ELEMENT ; ; COPY CURRENT NODE ELEMENT NAME INTO NEXT STACK ELEMENT ; LXI H,FCB+1 ; PT TO FILE NAME MVI B,11 ; 11 BYTES CALL MOVE ; ; INCREMENT HELP LEVEL ; LDA HLPLVL ; GET OLD LEVEL INR A ; SET NEW LEVEL STA HLPLVL ; ; SET UP FCB FOR NEW FILE ; POP H ; GET PTR TO NEW FILE NAME LXI D,FCB+1 ; PT TO FCB NAME MVI B,8 ; 8 CHARS MAX CALL LDFCB ; PLACE INTO FCB WITH ERROR CHECKING MVI B,3 ; 3 CHARS MAX FOR TYPE CPI '.' ; CONTINUE IF FILE TYPE PRESENT CZ LDFCB ; PLACE INTO FCB WITH ERROR CHECKING ; ; PRINT LOADING HELP FILE MESSAGE ; PLHFM: CALL EPRINT DB CR,LF,' Loading HELP File ',0 LXI D,FCB+1 ; PRINT FILE NAME CALL PFN2 JMP STRT1 ; LOAD NEW HELP FILE ; ; LOAD FCB PTED TO BY DE WITH "NORMAL" FILE NAME PTED TO BY HL FOR B BYTES ; LDFCB: MOV A,M ; GET CHAR INX H ; PT TO NEXT CPI '.' ; DONE IF DECIMAL JZ LDFCB2 CPI ' '+1 ; DONE IF <= <SP> JC LDFCB2 CALL CAPS ; CAPITALIZE STAX D ; STORE CHAR INX D ; PT TO NEXT DCR B JNZ LDFCB LDFCB1: MOV A,M ; CHECK FOR ERROR ANI 7FH ; MASK MSB INX H ; PT TO NEXT CHAR CPI '.' ; OK IF '.' RZ CPI ' '+1 ; OK IF <= <SP> RC JMP LDFCB1 LDFCB2: MOV C,A ; SAVE CHAR THAT TERMINATED STRING LDFCB3: MVI A,' ' ; <SP> FILL REST OF FCB STAX D ; STORE <SP> INX D ; PT TO NEXT DCR B JNZ LDFCB3 MOV A,C ; GET CHAR THAT TERMINATED STRING RET ; ; GO TO ROOT ; GOROOT: LDA HLPLVL ; AT ROOT? ORA A ; 0=YES JZ HELP ; RETURN TO HELP MVI A,0 ; SET ROOT INDEX JMP GORET ; ; RETURN TO PREVIOUS HELP LEVEL ; LRURN: LDA HLPLVL ; ARE WE AT THE LOWEST LEVEL? ORA A ; 0=YES JNZ LRET CALL SAK ; ERROR BELL JMP HELP ; ; SET NEW HELP LEVEL ; LRET: DCR A ; DOWN 1 AND FALL THRU TO GORET ; ; GO TO HELP LEVEL INDEXED IN A ; GORET: STA HLPLVL ; SET NEW HELP LEVEL CALL COMPTR ; HL=POINTER TO TARGET HELP FILE NAME LXI D,FCB+1 ; COPY ELEMENT INTO FCB MVI B,11 ; 11 BYTES CALL MOVE JMP PLHFM ; PRINT LOADING MESSAGE AND LOAD ; ; COMPUTE POINTER TO HELP NAME ENTRY INDEXED BY HELP LEVEL IN A ; COMPTR: MOV L,A ; VALUE IN HL MVI H,0 ; COMPUTE OFFSET AS INDEX*11 MOV E,L ; DE=HL MOV D,H DAD H ; *2 DAD H ; *4 DAD H ; *8 DAD D ; *9 DAD D ; *10 DAD D ; *11 XCHG ; RESULT IN DE LHLD HLPNSTK ; PT TO BASE OF HELP NAMES DAD D ; ADD IN OFFSET RET ; ; PRINT LEVEL NUMBER ; PRLEVEL: LDA HLPLVL ; DON'T PRINT LEVEL 0 ORA A ; 0? JZ PRFRAME CALL EPRINT DB 'Level ',0 LDA HLPLVL ; GET NUMBER CALL PAFDC ; PRINT AS DECIMAL LDA FRNUM ; GET FRAME NUMBER ORA A ; SET FLAGS MVI A,'/' ; PREP TO PRINT SLASH CNZ COUT ; PRINT SLASH IF FRAME IS NON-ZERO PRFRAME: LDA FRNUM ; GET NUMBER ORA A MVI A,' ' ; PREP TO PRINT SPACE ON EXIT JZ COUT LDA FRNUM ; GET FRAME NUMBER AGAIN CALL PAFDC ; PRINT AS DECIMAL CALL EPRINT DB ': ',0 RET ; ; RING ERROR BELL ; SAK: MVI A,BEL JMP COUT ; ; BUFFER SECTION ; HTYPE: DS 1 ; TYPE OF HELP FILE (IF = IHCHAR, IT IS INDEXED BY USR) LFRFLAG: DS 1 ; LIST FRAME ONLY FLAG (FOR PRINT FUNCTION) TPAEND: DS 1 ; END PAGE ADDRESS OF TPA STRTINFO: DS 2 ; PTR TO START OF CURRENT INFORMATION BLOCK STRTFRAME: DS 2 ; PTR TO START OF CURRENT FRAME SELCHAR: DS 1 ; SELECTION TABLE OPTION CHAR FIRSTENTRY: DS 2 ; PTR TO FIRST ENTRY OF INFORMATION SECTION LCOUNT: DS 1 ; LINE COUNT BUFFER NEXTADR: DS 2 ; NEXT LOAD ADDRESS HLPLVL: DS 1 ; NUMBER OF HELP LEVEL CURRENT NODE IS AT (0=BOTTOM) FRNUM: DS 1 ; NUMBER OF CURRENT FRAME HLPNSTK: DS 2 ; PTR TO STACK OF HELP FILE NAMES OF EACH LEVEL HLPBUF: DS 2 ; PTR TO HELP BUFFER STACK: DS 2 ; OPSYS STACK PTR END