;
; PIPPAT2.ASM
;
; PIP patch to add '(E)xit', '(R)eset Disks' and '(Q)uick Repeat'
; functions.
;
;The R- and Q-commands are from:
;Kelly Smith, Lifelines, Vol. III No. 3 (1982) pg. 15.
;
;The E-command added by P.L.Kelley
;
;E-command: Exit, to allow exit from PIP in SUBMIT files.
;R-command: Reset disks, ie. log in freshly inserted disks.
;Q-command: Reset disks and repeat last operation.
;
;
BDOS EQU 0005H ;BDOS entry address
FCB EQU 005CH ;default file control block address
DFCB EQU 0080H ;default disk/command buffer
;
PMESSG EQU 09H ;print message function
RDCBUF EQU 0AH ;read console buffer function
RSETDSK EQU 0DH ;reset disk system function
;
START$PIP EQU 04CEH ;normal start of pip
CON$BUFF EQU 1ECBH ;pip's internal console buffer
PIP$CR$LF EQU 082EH ;pip's internal cr/lf output routine
PIP$PROMPT EQU 053CH ;pip's command parser entry address
PIP$EXIT EQU 0554H ;pip's exit routine
PIP$PATCH EQU 096FH ;pip gets patched at this address
;
LF EQU 0AH ;linefeed character
CR EQU 0DH ;carriage return character
;
;
ORG 0100H
;
JMP BEGIN ;jump over INP:/OUT: vectors and EOF
;
ORG 010AH
;
BEGIN:
;
LDA DFCB ;filename specified?
ORA A ;zero, if no filename
LXI D,MSG1 ;and sign in please
CZ PRNT$MESSG ;print message
JMP START$PIP ;and off to pip
;
ADDED:
;
LXI H,CON$BUFF ;point to pip's console buffer
MVI M,80H ;set up for 128 character command string
XCHG ;pointer swapped to [DE] for CP/M
MVI C,RDCBUF ;read console buffer function
CALL BDOS ;let CP/M do the work
LDA CON$BUFF+1 ;check how many characters typed
CPI 1 ;just one?
JNZ SAVE$CHR$CNT ;if not, save character count and return
LDA CON$BUFF+2 ;get single character command
ANI 05FH ;force to upper case character
CPI 'E' ;exit?
JZ PIP$EXIT ;go exit if so
CPI 'Q' ;repeat pip function last specified?
JNZ RESET$DSK$SYS ;if not, check for reset disk system
LHLD CHAR$CNT ;get character count
SHLD CON$BUFF+1 ;stuff back to console buffer
LXI D,MSG3 ;tell'em repeating last process
CALL PRNT$MESSG ;print message
LXI H,CON$BUFF+1 ;point to last command entry in console buffer
MOV C,M ;get command length to calculate offset
MVI B,0 ;clean up high byte bias
INX H ;bump to start of command string address
DAD B ;add bias to locate end of string
MVI M,'$' ;tag end of command string for message
LXI D,CON$BUFF+2 ;point to command string for message
CALL PRNT$MESSG ;print message
MVI C,RSETDSK ;reset disk system function
CALL BDOS ;let CP/M do the work
RET
;
RESET$DSK$SYS:
;
CPI 'R' ;reset disk system?
JNZ SAVE$CHR$CNT ;if not, restore character count and return
LXI D,MSG2 ;tell'em all disks are set to R/W
CALL PRNT$MESSG ;print message
MVI C,RSETDSK ;reset disk system function
CALL BDOS ;let CP/M do the work
CALL PIP$CR$LF ;do cr/lf
POP H ;clean the stack for pip restart
JMP PIP$PROMPT ;do pip '*' prompt and wait for command
;
SAVE$CHR$CNT:
;
LHLD CON$BUFF+1 ;get character count and character
SHLD CHAR$CNT ;save character count
RET
;
PRNT$MESSG:
;
MVI C,PMESSG ;print message function
CALL BDOS ;let CP/M do the work
RET
;
MSG1 DB CR,LF,'PIP 1.5 with (E)xit, (R)eset Disks and (Q)uick repeat.'
DB CR,LF,'$'
;
MSG2 DB CR,LF,'Resetting all disks to R/W$'
;
MSG3 DB CR,LF,'Repeating: $'
;
CHAR$CNT DW 0 ;console buffer character count
;
ORG PIP$PATCH ;patch to get added code goes here
;
JMP ADDED ;check for new commands
;
;
END
;
