home *** CD-ROM | disk | FTP | other *** search
- .z80
- aseg
-
- ;Modified CCP for CP/M version 3.1
- ;
- ;This CCP is intended to overcome some of the shortfalls of the
- ;CCP supplied with CP/M Plus. It is especially useful in an RCPM
- ;environment. See CCP+.DOC for more details.
- ;
- ;This is the modified dissasembled version of the CCP.
- ;
- ;Jim Lopushinsky, Edmonton, Alberta, Canada
- ;403-435-6579 @ 300/1200 bps
- ;
- ;Feb 3/85 Released to public domain
- ;Feb 8/85 Incorporated DRI CCP patch #2
- ;Feb 20/85 Fixed ZCPR maxdrv compare variable
- ;Feb 20/85 Init MAXDRV,MAXUSR, and WHEEL bytes on cold boot.
- ;May 21/85 Converted Select drive to BDOS calls
- ;Sep 8/85 Added Library Command run facility (Thanks to Richard Saeks)
-
- no equ 0
- yes equ 0ffffh
-
- ;-----------------------------------------------------------------
- ;The following equate determines weather the CCP or CMDRUN
- ;library processor is assembled.
-
- ccp equ no ;yes=CCP, no=CMDRUN
-
- ;------------------------------------------------------------------------------
- ;The following equate determines whether the CCP has UNIX (tm of AT&T) csh-like
- ;history handling enabled.
-
- ccphistory equ no ;yes=history, no=lrun-loader
-
-
- ;-----------------------------------------------------------------
-
- TPA EQU 100H ;Tpa programs get loaded here
-
- org tpa ;start at tpa
-
- jp start ;jump over variables
-
- ;----------------------------------------------------------------
- ;The EXDRV and EXUSR values determine which drive/user area is
- ;excluded when searching for COMMAND.LBR. The purpose of these
- ;values is to prevent callers from uploading a COMMAND.LBR and
- ;invoking CMDRUN to execute .COM files from it. These 2 values
- ;should be the UPLOAD area of your system. If you do not wish
- ;to exclude any drive/user, use 0 for EXDRV.
-
- EXDRV: db 1 ;Exclude drive. A=1, B=2, etc
- ;0 = do not exclude any drive/user
-
- EXUSR: db 4 ;Exclude user number.
-
- ;----------------------------------------------------------------
- ;Do not modify the following equates.
-
- WHLLBR EQU NO
- EXPAND EQU NO
- TIME EQU NO
- BYECHK EQU NO
- NOXOFF EQU NO
- YESPRL EQU NO
- YESLBR EQU NO
- TIMEON EQU NO
-
- include CCP105.MAC
- ry, no=lrun-lo