home *** CD-ROM | disk | FTP | other *** search
- 4c 17210
- * N Z C P R 202- Z80-Based Command Processor Replacement, Version 2.02 *
- .
- 22,24c 28575
- ; Module: NZCPRHDR
- ; Author: Richard Conn
- ; Module Used By: NZCPR202 Version 2.x
- ;
- ; 18 feb 1983 = modified by PETER PINCHIS, TORONTO, ONT
- ; - new equate NRCOL defines the user selectable number
- ; of columns for DIR and ERA display.
- ; - ERAV has a new meaning : when FALSE the user is always
- ; prompted except when ERDFLG is present in the command
- ; line.
- ;
- ;
- .
- 39,40d 54954
- 76c 60064
- CPRLOC EQU 0DA00H ;FILL IN WITH BDOSLOC SUPPLIED VALUE
- .
- 90c 5310
- CPRR EQU 1600H-CPRLOC ;DDT LOAD OFFSET FOR DISK1
- .
- 227,229c 25706
- ; before it goes ahead and erases them. If ERAOK is TRUE, then the prompt
- ; "OK to erase?" is enabled.
- .
- 235,241c 11941
- ; option letter, defined by ERDFLG, is given after the file name.
- ; If ERAV is TRUE, then the user will be asked to verify only when ERDFLG
- ; is contained in the command line.
- ; If ERAV is FALSE, the user will always be asked to verify , except when
- ; ERDFLG is present in the command line.
- ;
- ; example ( ERAOK is TRUE, ERAV is TRUE ) :
- ; A0>era xxx.xxx
- ; A0>; ...done
- ; A0>era xxx.xxx v
- ; OK to erase?y
- ; A0>; ...done
- ;
- ; example ( ERAOK is TRUE, ERAV is FALSE ):
- ; A0>era xxx.xxx
- ; OK to erase?y
- ; A0>; ...done
- ; A0>era xxx.xxx n ; ERDFLG is "N" in this case !!!
- ; A0>; ...done
- ;
- ; In case ERAOK = TRUE and ERAV = FALSE has been selected and a submit file
- ; is required, use always ERDFLG at the end, otherwise the execution will
- ; stop every time an erase is specified in the submit file.
-
- ERAV equ false ;ENABLE VERIFY OPTION
- ERDFLG equ 'N' ;SET OPTION LETTER
- .
- 282,283c 47537
- CLBASE equ 0FA6FH ;Base address of buffer
- BUFLEN equ 160 ;160 Bytes in Input Buffer
- .
- 299,306c 64553
- WERA equ false ;Make ERA a Wheel-Oriented Command
- WREN equ false ; " REN " " " "
- WLT equ false ; " L/T " " " " (LIST/TYPE)
- WGO equ false ; " GO " " " "
- WSAVE equ false ; " SAVE " " " "
- WGET equ false ; " GET " " " "
- WJUMP equ false ; " JUMP " " " "
- WDU equ false ; " DU: " " " " (DU Change)
- .
- 324c 4669
- STKBASE equ 0FB43H ;Address of Bottom of External Stack
- .
- 332,333c 58844
- NLINES EQU 25 ;NUMBER OF LINES ON CRT SCREEN
- nrcol equ 5 ;number of columns for DIR and ERA display
- WIDE EQU false ;TRUE IF WIDE DIR DISPLAY
- .
- 346c 37318
- MAXDISK EQU 2 ;MAXIMUM NUMBER OF DISKS ACCESSABLE
- .
- 438c 62934
- FCBADR equ 0FB1AH ; Address of External FCB
- .
- 462c 3527
- ROOTONLY equ false ; TRUE if look at Root Only for Extended
- .
- $a 61721
- .
-