mirror of https://github.com/wwarthen/RomWBW.git
Phillip Stevens
6 years ago
committed by
GitHub
GitHub
629 changed files with 64289 additions and 4799 deletions
@ -0,0 +1,26 @@ |
|||||
|
name: CI |
||||
|
|
||||
|
on: [push] |
||||
|
|
||||
|
jobs: |
||||
|
build: |
||||
|
|
||||
|
runs-on: ubuntu-latest |
||||
|
|
||||
|
steps: |
||||
|
- uses: actions/checkout@v2 |
||||
|
- uses: rlespinasse/github-slug-action@1.1.0 |
||||
|
|
||||
|
- name: Install Dependencies |
||||
|
run: | |
||||
|
sudo apt-get install libncurses-dev |
||||
|
- name: Build |
||||
|
run: | |
||||
|
make |
||||
|
make clean |
||||
|
rm -rf .git |
||||
|
- name: Upload Archive |
||||
|
uses: actions/upload-artifact@v1 |
||||
|
with: |
||||
|
name: RomWBW-${{env.GITHUB_REF_SLUG}}-${{env.GITHUB_SHA_SHORT}} |
||||
|
path: . |
||||
@ -0,0 +1,95 @@ |
|||||
|
# Not sure what patterns to apply |
||||
|
# So ignoring all generated files explicitly |
||||
|
|
||||
|
**/*.[Bb][Ii][Nn] |
||||
|
**/*.[Cc][Oo][Mm] |
||||
|
**/*.[Rr][Oo][Mm] |
||||
|
**/*.com |
||||
|
**/*.eeprom |
||||
|
**/*.hex |
||||
|
**/*.img |
||||
|
**/*.lib |
||||
|
**/*.lst |
||||
|
**/*.o |
||||
|
**/*.prn |
||||
|
**/*.rel |
||||
|
**/*.sym |
||||
|
**/*.sys |
||||
|
**/*.tmp |
||||
|
**/*/font*.asm |
||||
|
|
||||
|
Binary/**/*.mym |
||||
|
Binary/**/*.pt3 |
||||
|
|
||||
|
Source/**/eeprom |
||||
|
Source/Apps/Assign.com |
||||
|
Source/Apps/FDU/FDU.COM |
||||
|
Source/Apps/Format.com |
||||
|
Source/Apps/IntTest.com |
||||
|
Source/Apps/Mode.com |
||||
|
Source/Apps/OSLdr.com |
||||
|
Source/Apps/RTC.com |
||||
|
Source/Apps/SysCopy.com |
||||
|
Source/Apps/SysGen.com |
||||
|
Source/Apps/Talk.com |
||||
|
Source/Apps/Timer.com |
||||
|
Source/Apps/Tune/Tune.com |
||||
|
Source/BPBIOS/bpsys.bak |
||||
|
Source/BPBIOS/bpsys.dat |
||||
|
Source/BPBIOS/def-ww.lib |
||||
|
Source/CPM3/bios3.spr |
||||
|
Source/CPM3/bnkbios3.spr |
||||
|
Source/CPM3/gencpm.dat |
||||
|
Source/CPM3/options.lib |
||||
|
Source/CPM3/zpmbios3.spr |
||||
|
Source/HBIOS/Blank512KB.dat |
||||
|
Source/HBIOS/build.inc |
||||
|
Source/Images/blank144 |
||||
|
Source/Images/blankhd |
||||
|
Source/Prop/Spin/ParPortProp.list |
||||
|
Source/Prop/Spin/PropIO.list |
||||
|
Source/Prop/Spin/PropIO2.list |
||||
|
Source/ZPM3/bnkbios3.spr |
||||
|
Source/ZPM3/gencpm.com |
||||
|
Source/ZPM3/gencpm.com |
||||
|
Source/ZPM3/gencpm.dat |
||||
|
|
||||
|
Tools/Linux |
||||
|
Tools/Darwin |
||||
|
|
||||
|
Tools/unix/bin2asm/bin2asm |
||||
|
Tools/unix/cpmtools/cpmchattr |
||||
|
Tools/unix/cpmtools/cpmchmod |
||||
|
Tools/unix/cpmtools/cpmcp |
||||
|
Tools/unix/cpmtools/cpmls |
||||
|
Tools/unix/cpmtools/cpmrm |
||||
|
Tools/unix/cpmtools/fsck.cpm |
||||
|
Tools/unix/cpmtools/fsed.cpm |
||||
|
Tools/unix/cpmtools/mkfs.cpm |
||||
|
Tools/unix/lzsa/lzsa |
||||
|
Tools/unix/uz80as/uz80as |
||||
|
Tools/unix/zx/config.h |
||||
|
Tools/unix/zx/zx |
||||
|
|
||||
|
!Source/Apps/FAT/FAT.COM |
||||
|
!Source/BPBIOS/bpbuild.com |
||||
|
!Source/BPBIOS/movp112.com |
||||
|
!Source/BPBIOS/Z34RCP11/cledinst.com |
||||
|
!Source/BPBIOS/Z34RCP11/cledsave.com |
||||
|
!Source/Fonts |
||||
|
!Source/Images/**/*.[Cc][Oo][Mm] |
||||
|
!Source/RomDsk/**/*.[Cc][Oo][Mm] |
||||
|
!Source/UBIOS/FSFAT.BIN |
||||
|
!Source/UBIOS/UNA-BIOS.BIN |
||||
|
!Source/ZCCP/*.[Cc][Oo][Mm] |
||||
|
!Source/ZCPR-DJ/*.[Cc][Oo][Mm] |
||||
|
!Source/ZPM3/*.[Cc][Oo][Mm] |
||||
|
!Source/ZSDOS/*.[Cc][Oo][Mm] |
||||
|
!Tools/cpm/bin |
||||
|
!Tools/unix/zx |
||||
|
!Tools/zx |
||||
|
|
||||
|
Source/ZPM3/gencpm.com |
||||
|
Source/ZPM3/startzpm.com |
||||
|
Source/ZPM3/zccp.com |
||||
|
Source/ZPM3/zpmldr.com |
||||
@ -0,0 +1,10 @@ |
|||||
|
TOOLS = ../../Tools |
||||
|
MOREDIFF := $(shell $(TOOLS)/unix/casefn.sh *.com Tunes/*) |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
all:: |
||||
|
mkdir -p Tunes |
||||
|
|
||||
|
clobber:: |
||||
|
rm -f *.bin *.com *.img *.rom *.pdf *.log *.eeprom *.COM *.BIN Tunes/*.mym Tunes/*.pt? |
||||
@ -1,5 +0,0 @@ |
|||||
@echo off |
|
||||
setlocal |
|
||||
|
|
||||
if exist *.pt? del *.pt? |
|
||||
if exist *.mym del *.mym |
|
||||
@ -0,0 +1,8 @@ |
|||||
|
TOOLS = ../Tools |
||||
|
MOREDIFF := $(shell $(TOOLS)/unix/casefn.sh *.img *.rom *.com *.eeprom) |
||||
|
SUBDIRS = Apps |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
clobber:: |
||||
|
rm -f *.bin *.com *.img *.rom *.pdf *.log *.eeprom |
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,146 +0,0 @@ |
|||||
NASCOM 2 BASIC (C) 1978 MICROSOFT AS IMPLEMENTED FOR RETROBREWCOMPUTERS |
|
||||
|
|
||||
FUNCTIONS: |
|
||||
|
|
||||
SGN |
|
||||
INT |
|
||||
ABS |
|
||||
USR |
|
||||
FRE |
|
||||
INP |
|
||||
POS |
|
||||
SQR |
|
||||
RND |
|
||||
LOG |
|
||||
EXP |
|
||||
COS |
|
||||
SIN |
|
||||
TAN |
|
||||
ATN |
|
||||
PEEK |
|
||||
DEEK |
|
||||
POINT |
|
||||
LEN |
|
||||
STR |
|
||||
VAL |
|
||||
ASC |
|
||||
CHR$ |
|
||||
HEX$ |
|
||||
BIN$ |
|
||||
LEFT$ |
|
||||
RIGHT$ |
|
||||
MID$ |
|
||||
|
|
||||
RESERVED WORDS: |
|
||||
|
|
||||
END |
|
||||
FOR |
|
||||
NEXT |
|
||||
DATA |
|
||||
INPUT |
|
||||
DIM |
|
||||
READ |
|
||||
LET |
|
||||
GOTO |
|
||||
RUN |
|
||||
IF |
|
||||
RESTORE |
|
||||
GOSUB |
|
||||
RETURN |
|
||||
REM |
|
||||
STOP |
|
||||
OUT |
|
||||
ON |
|
||||
NULL |
|
||||
WAIT |
|
||||
DEF |
|
||||
POKE |
|
||||
DOKE |
|
||||
LINES |
|
||||
CLS |
|
||||
WIDTH |
|
||||
BYE |
|
||||
SET |
|
||||
RESET |
|
||||
PRINT |
|
||||
CONT |
|
||||
LIST |
|
||||
CLEAR |
|
||||
PLAY |
|
||||
REM |
|
||||
NEW |
|
||||
PRINT |
|
||||
TAB |
|
||||
TO |
|
||||
FN |
|
||||
SPC |
|
||||
THEN |
|
||||
NOT |
|
||||
STEP |
|
||||
? |
|
||||
|
|
||||
OPERATORS: |
|
||||
|
|
||||
+ PLUS |
|
||||
- MINUS |
|
||||
* MULTIPLY |
|
||||
/ DIVIDE |
|
||||
AND LOGICAL AND |
|
||||
OR LOGICAL OR |
|
||||
> GREATER THAN |
|
||||
= EQUALS |
|
||||
< LESS THAN |
|
||||
^ POWER |
|
||||
|
|
||||
EXPRESSION PRECEDENCE: |
|
||||
|
|
||||
() EXPRESSIONS IN () |
|
||||
^ POWER |
|
||||
- NEGATION |
|
||||
* / MULTIPLICATION AND DIVISION |
|
||||
+ - ADDITION AND SUBTRACTION |
|
||||
= EQUALS |
|
||||
<> NOT EQUAL |
|
||||
< LESS THAN |
|
||||
> GREATER THAN |
|
||||
<= =< LESS THAN OR EQUAL TO |
|
||||
>= => GREATER THAN OR EQUAL TO |
|
||||
NOT LOGICAL, BITWISE NEGATION |
|
||||
AND LOGICAL, BITWISE AND |
|
||||
OR LOGICAL, BITWISE OR |
|
||||
|
|
||||
VARIABLES: |
|
||||
|
|
||||
NO LENGTH LIMIT BUT ONLY FIRST TWO CHARACTERS ARE SIGNIFICANT. |
|
||||
CANNOT HAVE THE SAME NAME AS RESERVED WORDS. |
|
||||
MAY BE AN ARRAY. |
|
||||
|
|
||||
ERROR CODE: |
|
||||
|
|
||||
NF NEXT without FOR |
|
||||
SN Syntax error |
|
||||
RG RETURN without GOSUB |
|
||||
OD Out of DATA |
|
||||
FC Illegal function call |
|
||||
OV Overflow error |
|
||||
OM Out of memory |
|
||||
UL Undefined line |
|
||||
BS Bad subscript |
|
||||
DD Re-DIMensioned array |
|
||||
/0 Division by zero |
|
||||
ID Illegal direct |
|
||||
TM Type mis-match |
|
||||
OS Out of string space |
|
||||
LS String too long |
|
||||
ST String formula too complex |
|
||||
CN Can't CONTinue |
|
||||
UF Undefined FN function |
|
||||
MO Missing operand |
|
||||
HX HEX error |
|
||||
BN BIN error |
|
||||
|
|
||||
LINE EDITING COMMANDS: |
|
||||
|
|
||||
@ KILL CURRENT LINE |
|
||||
_ NONDESTRUCTIVE DELETE LAST CHARACTER |
|
||||
|
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,19 @@ |
|||||
|
all: |
||||
|
cd Tools/unix ; make |
||||
|
cd Source ; make |
||||
|
cd Source/Images ; make |
||||
|
|
||||
|
clean: |
||||
|
cd Tools/unix ; make clean |
||||
|
cd Source ; make clean |
||||
|
cd Binary ; make clean |
||||
|
|
||||
|
clobber: |
||||
|
cd Tools/unix ; make clobber |
||||
|
cd Source ; make clobber |
||||
|
cd Binary ; make clobber |
||||
|
rm -f typescript |
||||
|
|
||||
|
diff: |
||||
|
cd Source ; make diff |
||||
|
|
||||
@ -0,0 +1,49 @@ |
|||||
|
this tree now contains makefiles and tools to build on Linux and MacosX |
||||
|
Linux is rather more thoroughly tested compared to os-x. |
||||
|
|
||||
|
to get here, TASM and the propeller generation tools needed to be replaced, |
||||
|
and since the unix filesystem is usually case-sensitive, and CP/M and windows |
||||
|
are not, the cpm tools were made case-insensitive. |
||||
|
|
||||
|
TASM was replaced with uz80as, which implements a subset of TASM and fixes some |
||||
|
bugs. however, I needed to add some functionality to make it build the sources |
||||
|
as they exist in this tree. in particular, one thing to be very careful of is |
||||
|
that TASM is not entirely consistent with respect to the .DS directive. |
||||
|
it's usually a bad idea to mix .DS, .FILL, .DB with .ORG. |
||||
|
.DS n is best thought of as .ORG $ + n |
||||
|
.ORG changes the memory pointer, but does not change the file output point. |
||||
|
it works a lot more like M80, SLR* .phase |
||||
|
|
||||
|
it assumes that you have some standard system tools and libraries installed |
||||
|
specifically: gcc, gnu make, libncurses |
||||
|
|
||||
|
to build: |
||||
|
cd to the top directory and type make. |
||||
|
|
||||
|
heavy use is made of make's include facility and pattern rules. |
||||
|
the master rule set is in Tools/Makefile.inc. changes here will affect |
||||
|
almost every Makefile, and where exceptions are needed, the overrides are |
||||
|
applied in the lower Makefiles. |
||||
|
|
||||
|
these tools can run a windows-linux regression test, where all the binaries are |
||||
|
compared to a baseline windows build. |
||||
|
|
||||
|
Credit: |
||||
|
|
||||
|
uz80as was written by Jorge Giner Cordero, jorge.giner@hotmail.com, |
||||
|
and the original source can be found at https://github.com/jorgicor/uz80as |
||||
|
|
||||
|
the propeller tools use bstc and openspin, parallax tools from |
||||
|
http://www.fnarfbargle.com/bst.html https://github.com/parallaxinc/OpenSpin |
||||
|
note that bst is not open source or even currently maintained, so I could |
||||
|
not generate a version for 64 bit osx. |
||||
|
|
||||
|
cpmtools were the most current I could find, and it has been hacked to do |
||||
|
case-insensitivity. these are not marked, and are not extensive. |
||||
|
|
||||
|
zx is from distributed version, and also has local hacks for case insensitivity. |
||||
|
both zx and cpmtools ship with an overly complicated makefile generation system |
||||
|
and this is ignored. |
||||
|
|
||||
|
this whole linux build framework is the work of Curt Mayer, curt@zen-room.org. |
||||
|
use it for whatever you like; this is not my day job. |
||||
@ -0,0 +1,6 @@ |
|||||
|
OBJECTS = FAT.COM |
||||
|
NODELETE = FAT.COM |
||||
|
DEST = ../../../Binary/Apps |
||||
|
|
||||
|
TOOLS=../../../Tools |
||||
|
include $(TOOLS)/Makefile.inc |
||||
@ -0,0 +1,10 @@ |
|||||
|
OBJECTS = FDU.COM |
||||
|
DOCS = FDU.TXT |
||||
|
DEST = ../../../Binary/Apps |
||||
|
DOCDEST = ../../../Doc |
||||
|
TOOLS = ../../../Tools |
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
%.COM: %.asm |
||||
|
$(TASM) $< $@ |
||||
|
|
||||
@ -0,0 +1,14 @@ |
|||||
|
OBJECTS = SysGen.com Survey.com \
|
||||
|
SysCopy.com Assign.com Format.com Talk.com OSLdr.com Mode.com RTC.com \
|
||||
|
Timer.com IntTest.com |
||||
|
OTHERS = *.hex *.com |
||||
|
SUBDIRS = XM FDU FAT Tune |
||||
|
DEST = ../../Binary/Apps |
||||
|
TOOLS =../../Tools |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
USETASM = 1 |
||||
|
|
||||
|
Survey.com: USETASM=0 |
||||
|
|
||||
@ -0,0 +1,12 @@ |
|||||
|
OBJECTS = Tune.com |
||||
|
DEST = ../../../Binary/Apps |
||||
|
TOOLS = ../../../Tools |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
Tune.com: Tune.asm |
||||
|
$(TASM) Tune.asm Tune.com |
||||
|
|
||||
|
all:: |
||||
|
mkdir -p $(DEST)/Tunes |
||||
|
cp Tunes/* $(DEST)/Tunes |
||||
@ -0,0 +1,12 @@ |
|||||
|
OBJECTS = xm.com xmuf.com |
||||
|
DEST = ../../../Binary/Apps |
||||
|
TOOLS = ../../../Tools |
||||
|
OTHERS = *.hex |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
xm.com: xmdm125.hex xmhb.hex |
||||
|
$(ZXCC) $(CPM)/MLOAD25 XM=xmdm125,xmhb |
||||
|
|
||||
|
xmuf.com: xmdm125.hex xmuf.hex |
||||
|
$(ZXCC) $(CPM)/MLOAD25 XMUF=xmdm125,xmuf |
||||
@ -0,0 +1,15 @@ |
|||||
|
Loader uses CBIOS Disk I/O prior to CBOOT/WBOOT being run. As a |
||||
|
result, DIOBUF is not properly initialized. At present, it is |
||||
|
initialized to $7C00 which will work unless the location of the |
||||
|
physical disk buffer in HBIOS ever changes! |
||||
|
|
||||
|
The clock drivers supplied with BPBIOS (LDDS, LDP2D, and LDNZT) |
||||
|
load into ZSYS user memory. If the user segment is not at the |
||||
|
same location as the original BPBIOS ($E900), then the clock |
||||
|
driver will just overlay other code. At present, the N config |
||||
|
is OK because it does not relocate the user segment, but the T |
||||
|
config fails because it uses a user segment at $E700. Note that |
||||
|
this does not affect ZSDOS2 variants because they do not require |
||||
|
a loadable clock driver. |
||||
|
|
||||
|
BPBIOS needs to assign disk units dynamically via discovery of disk type |
||||
@ -0,0 +1,47 @@ |
|||||
|
VERSIONS = \
|
||||
|
33t 33tbnk \
|
||||
|
33n 33nbnk \
|
||||
|
34t 34tbnk \
|
||||
|
34n 34nbnk \
|
||||
|
41tbnk 41nbnk |
||||
|
|
||||
|
HD0IMG = ../../Binary/hd_bp.img |
||||
|
IMGFILES = $(foreach ver,$(VERSIONS),bp$(ver).img) |
||||
|
DISTFILES = *.zex *.rel myterm.z3t |
||||
|
|
||||
|
OTHERS = zcpr33n.rel zcpr33t.rel \
|
||||
|
bpbio-ww.rel bpsys.dat bpsys.bak bpbio-ww.err def-ww.lib *.img |
||||
|
|
||||
|
TOOLS = ../../Tools |
||||
|
|
||||
|
SUBDIRS = ZCPR33 NZFCP13 Z34RCP11 |
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
$(HD0IMG): $(IMGFILES) |
||||
|
if [ -f $(HD0IMG) ] ; then \
|
||||
|
for f in $(IMGFILES) $(DISTFILES) ; do \
|
||||
|
$(BINDIR)/cpmrm -f wbw_hd0 $(HD0IMG) 0:$$f ; \
|
||||
|
done ; \
|
||||
|
$(CPMCP) -f wbw_hd0 $(HD0IMG) $(IMGFILES) $(DISTFILES) 0: ; \
|
||||
|
fi |
||||
|
|
||||
|
zcpr33n.rel zcpr33t.rel: |
||||
|
(cd ZCPR33 ; make) |
||||
|
|
||||
|
all:: $(HD0IMG) |
||||
|
|
||||
|
clobber:: |
||||
|
@rm -f $(HD0IMG) |
||||
|
|
||||
|
%.img: zcpr33n.rel zcpr33t.rel |
||||
|
$(eval VER := $(subst .img,,$(subst bp,,$@))) |
||||
|
cp def-ww-z$(VER).lib def-ww.lib |
||||
|
rm -f bpbio-ww.rel |
||||
|
$(ZXCC) $(CPM)/ZMAC -BPBIO-WW -/P |
||||
|
mv bpbio-ww.prn bp$(VER).prn |
||||
|
cp bp$(VER).dat bpsys.dat |
||||
|
$(ZXCC) ./bpbuild.com -bpsys.dat 0 < bpbld1.rsp |
||||
|
cp bpsys.img bpsys.dat |
||||
|
$(ZXCC) ./bpbuild.com -bpsys.dat 0 < bpbld2.rsp |
||||
|
mv bpsys.img bp$(VER).img |
||||
|
|
||||
@ -0,0 +1,11 @@ |
|||||
|
@echo off |
||||
|
setlocal |
||||
|
|
||||
|
set PATH=%PATH%;..\..\..\Tools\zx;..\..\..\Tools\cpmtools; |
||||
|
|
||||
|
set ZXBINDIR=../../../tools/cpm/bin/ |
||||
|
set ZXLIBDIR=../../../tools/cpm/lib/ |
||||
|
set ZXINCDIR=../../../tools/cpm/include/ |
||||
|
|
||||
|
zx Z80ASM -nzfcp13/MF |
||||
|
rem zx ZMAC -nzfcp13.z80 -/P |
||||
@ -0,0 +1,7 @@ |
|||||
|
@echo off |
||||
|
setlocal |
||||
|
|
||||
|
if exist *.prn del *.prn |
||||
|
if exist *.lst del *.lst |
||||
|
if exist *.err del *.err |
||||
|
if exist *.rel del *.rel |
||||
@ -0,0 +1,5 @@ |
|||||
|
OBJECTS = nzfcp13.rel |
||||
|
OTHERS = |
||||
|
TOOLS = ../../../Tools |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,89 @@ |
|||||
|
Z-Relocatable Flow Control Packages |
||||
|
11 October 89 by Carson Wilson |
||||
|
|
||||
|
The seven pre-compiled Flow Control Packages (FCP's) in this library may be |
||||
|
loaded directly to Z System with NZ-COM, Z3PLUS, or JetLDR, provided |
||||
|
sufficient space has been allocated to the FCP segment. The FCP's come in two |
||||
|
flavors. Files named FCP-nT.ZRL implement extended flow control processing |
||||
|
when needed using a program named IF.COM at the root of your path, or at |
||||
|
directory A0 if there is no path. Files named simply FCP-n.ZRL rely |
||||
|
exclusively on memory-based processing. The "n" in the filename indicates the |
||||
|
total number of records required by each package. The standard number of |
||||
|
records for both NZ-COM and Z3PLUS is currently 5, so if you wish to load a |
||||
|
larger FCP you must reconfigure your system with MKZCM or by editing your .Z3P |
||||
|
file. For general help with flow control commands, see the file IF.HLP, or |
||||
|
section 3.2.2 of your NZ-COM or Z3PLUS manual. |
||||
|
|
||||
|
While IF.COM allows options not available in memory-resident flow-control |
||||
|
processing, fully resident versions free the user from the requirement that |
||||
|
IF.COM be present during flow control processing. Resident processing is also |
||||
|
somewhat faster due to the need to load IF.COM from disk for each flow control |
||||
|
command. Finally, the ability to locate and load the transient IF.COM |
||||
|
requires considerable code space in the resident code itself. Generally, |
||||
|
IF.COM is best used on fixed-disk systems, while resident processing is more |
||||
|
suited to floppy-based systems. |
||||
|
|
||||
|
The options included in fully resident versions were selected somewhat |
||||
|
differently than those of those using IF.COM. Criteria, in order of |
||||
|
precedence, were as follows: |
||||
|
|
||||
|
Transient Versions Resident Versions |
||||
|
------------------ ----------------- |
||||
|
1. Is the feature available in 1. How useful is the feature? |
||||
|
IF.COM? 2. How much memory does the feature |
||||
|
2. Does the feature require disk require? |
||||
|
access? |
||||
|
3. How useful is the feature? |
||||
|
4. How much memory does the feature |
||||
|
require? |
||||
|
|
||||
|
The tables below summarize the size and features of each flavor of FCP. Each |
||||
|
package includes only the features appearing above it. For example, |
||||
|
FCP-5T.ZRL (the default FCP for both NZ-COM and Z3PLUS) contains only ZIF, |
||||
|
IFQ, OR, AND, negation, ERROR, and NULL. Size is expressed as records plus |
||||
|
remaining bytes required by the FCP. As FCP space is allocated in record |
||||
|
units only, I have attempted to include only combinations which leave as |
||||
|
little remaining space possible. Sizes without corresponding filenames are |
||||
|
included for reference purposes only. |
||||
|
|
||||
|
FEATURES OF TRANSIENT (IF.COM) FCPS SIZE(RECS+BYTES) FILE NAME |
||||
|
----------------------------------------------------------------------------- |
||||
|
ZIF - unconditionally clear IF states? |
||||
|
IFQ - show current if status? 3+124 FCP-4T.ZRL |
||||
|
OR - set state at current level? 4+25 |
||||
|
AND - reset state at current level? |
||||
|
Allow negation of conditions? |
||||
|
ERROR - test program error flag? |
||||
|
NULL - test for no file name? 4+84 FCP-5T.ZRL |
||||
|
REG - test register values? 5+16 |
||||
|
AMBIG - test for "?" in file spec? |
||||
|
COMPR - test for compressed filespec? |
||||
|
= - test tokens for equality? 5+92 FCP-6T.ZRL |
||||
|
INPUT - test user input? 6+25 |
||||
|
Allow "IF T" and "IF F" forms? |
||||
|
WHEEL - test wheel byte? |
||||
|
TCAP - test whether TCAP loaded? |
||||
|
EXIST - test for file existence? 6+106 FCP-7T.ZRL |
||||
|
EMPTY - test files for contents? 7+10 |
||||
|
|
||||
|
|
||||
|
FEATURES OF RESIDENT FCPS SIZE(RECS+BYTES) FILE NAME |
||||
|
----------------------------------------------------------------------------- |
||||
|
ZIF - unconditionally clear IF states? |
||||
|
IFQ - show current if status? |
||||
|
OR - set state at current level? |
||||
|
AND - reset state at current level? |
||||
|
Allow negation of conditions? |
||||
|
NULL - test for no file name? |
||||
|
INPUT - test user input? |
||||
|
= - test tokens for equality? |
||||
|
ERROR - test program error flag? |
||||
|
Allow "IF T" and "IF F" forms? |
||||
|
EXIST - test for file existence? 3+123 FCP-4.ZRL |
||||
|
AMBIG - test for "?" in file spec? |
||||
|
COMPR - test for compressed filespec? |
||||
|
REG - test register values? |
||||
|
WHEEL - test wheel byte? |
||||
|
TCAP - test whether TCAP loaded? 4+113 FCP-5.ZRL |
||||
|
EMPTY - test files for contents? 5+17 FCP-6.ZRL |
||||
|
|
||||
@ -0,0 +1,161 @@ |
|||||
|
; Module: NZFCP.LIB |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.3 |
||||
|
; Date: 9 Oct 89 |
||||
|
; Changes: Prompts for options if SLR true. |
||||
|
|
||||
|
; This module is a set of configuration options for the flow control package |
||||
|
; code in NZFCP.Z80. The options are not fully commented here; see |
||||
|
; "ZCPR3, The Manual" for a detailed discussion of most of them. |
||||
|
|
||||
|
|
||||
|
; * * * * * * N O T I C E * * * * * * |
||||
|
; |
||||
|
; The main code in Z33FCP.Z80 has been written with relative jump instructions |
||||
|
; for minimum code size. If the options below are changed, then some of the |
||||
|
; jumps may become out-of-range. You will then have to change the code based |
||||
|
; on the error messages you get from your assembler. I cannot think of any |
||||
|
; way to handle the jumps automatically (macros fail because the jump distances |
||||
|
; cannot be resolved fully even in two passes of the assembler). If you want |
||||
|
; to play things really safe, you can do a global search and replace to change |
||||
|
; all occurrences of the JR instruction to JP (but note that this change is |
||||
|
; irreversible). I prefer to live with this nuisance so that I can get the |
||||
|
; most out of the code. |
||||
|
; |
||||
|
; Another possible way to clear up a problem with a relative jump that is out |
||||
|
; of range is to take the block of code with the labels IFCTRUE and IFCFALSE |
||||
|
; and move it up or down in the code. It is placed somewhere in the middle of |
||||
|
; the resident options, so that the options can reach those entry points with |
||||
|
; a relative jump. You should try to place that code near the middle of the |
||||
|
; options which you have enabled. |
||||
|
; |
||||
|
; Jay Sage (May 17, 1987) |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; M A C R O S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; SLR assemblers allow selection of options during assembly. |
||||
|
|
||||
|
SLR equ no |
||||
|
|
||||
|
if SLR |
||||
|
|
||||
|
y equ yes |
||||
|
n equ no |
||||
|
|
||||
|
select macro option default comment |
||||
|
.accept comment,option ; Prompt user for selection |
||||
|
endm |
||||
|
|
||||
|
.printx |
||||
|
.printx Answer "Y" to include, "N" to exclude commands: |
||||
|
.printx |
||||
|
|
||||
|
else |
||||
|
|
||||
|
select macro option default comment |
||||
|
option equ default ; Use selections from file |
||||
|
endm |
||||
|
endif ; SLR |
||||
|
|
||||
|
; ------------------------------------------------------------------------- |
||||
|
|
||||
|
; Command names |
||||
|
|
||||
|
; The CTABLE macro, which constructs the command dispatch table, includes a |
||||
|
; line for each command, the first parameter of which is the name of the |
||||
|
; command. These names may be changed if you wish. But make sure that you |
||||
|
; do not use a name that is longer than the maximum allowed length. If you |
||||
|
; do, the name will be truncated and a nonfatal error will occur during |
||||
|
; assembly. DO NOT CHANGE ANY PARAMETER OTHER THAN THE COMMAND NAME. Lower |
||||
|
; case letters will be converted to upper case. The macro COMMAND is defined |
||||
|
; in Z34MAC.LIB. |
||||
|
|
||||
|
cmdsize equ 4 ; Maximum length of command names |
||||
|
|
||||
|
; Command table name, enable, wheel, jump_addr |
||||
|
; [ DO NOT CHANGE THESE PARAMETERS ] |
||||
|
ctable macro |
||||
|
ifcmd: command if, yes, no, ifstart |
||||
|
command and, andopt, no, andstart |
||||
|
command or, oropt, no, orstart |
||||
|
command else, yes, no, ifelse |
||||
|
command fi, yes, no, ifend |
||||
|
command ifq, ifqopt, no, ifstat0 |
||||
|
command xif, yes, no, ifexit |
||||
|
command zif, zifopt, no, ifzero |
||||
|
endm |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; General configuration options |
||||
|
|
||||
|
NOISE equ no ; Don't display if-state messages |
||||
|
|
||||
|
select COMIF no 'Enable transient IF processing? ' |
||||
|
|
||||
|
PATHROOT equ yes ; Find transient IF in root of path |
||||
|
|
||||
|
ifdrv equ 'A' ; Drive to use if PATHROOT is off or |
||||
|
; ..if the path is empty |
||||
|
ifusr equ 0 ; User to use if PATHROOT is off or |
||||
|
; ..if the path is empty |
||||
|
|
||||
|
; --------------------------------------------------------------------- |
||||
|
|
||||
|
; Command inclusion options |
||||
|
|
||||
|
select ZIFOPT yes 'ZIF - unconditionally clear IF states? ' |
||||
|
select IFQOPT yes 'IFQ - show current if status? ' |
||||
|
select OROPT yes 'OR - set state at current level? ' |
||||
|
select ANDOPT yes 'AND - reset state at current level? ' |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; If Condition Options |
||||
|
|
||||
|
if COMIF ; Different precedence if transient IF available. |
||||
|
select IFONEG yes 'Allow negation of conditions? ' |
||||
|
negchar equ '~' ; Character to use if negation allowed |
||||
|
select IFOERROR yes 'ERROR - test program error flag? ' |
||||
|
select IFONULL yes 'NULL - test for no file name? ' |
||||
|
select IFOREG yes 'REG - test register values? ' |
||||
|
select IFAMBIG yes 'AMBIG - test for "?" in file spec? ' |
||||
|
select IFCOMPR yes 'COMPR - test for compressed filespec? ' |
||||
|
select IFOEQ yes '= - test tokens for equality? ' |
||||
|
select IFOINPUT yes 'INPUT - test user input? ' |
||||
|
XEQOPT equ yes ; Test only first token for equal sign |
||||
|
select IFOTRUE yes 'Allow "IF T" and "IF F" forms? ' |
||||
|
select IFOWHEEL no 'WHEEL - test wheel byte? ' |
||||
|
select IFOTCAP no 'TCAP - test whether TCAP loaded? ' |
||||
|
select IFOEXIST yes 'EXIST - test for file existence? ' |
||||
|
select IFOEMPTY yes 'EMPTY - test files for contents? ' |
||||
|
else |
||||
|
select IFONEG yes 'Allow negation of conditions? ' |
||||
|
negchar equ '~' ; Character to use if negation allowed |
||||
|
select IFONULL yes 'NULL - test for no file name? ' |
||||
|
select IFOINPUT yes 'INPUT - test user input? ' |
||||
|
select IFOEQ yes '= - test tokens for equality? ' |
||||
|
XEQOPT equ yes ; Test only first token for equal sign |
||||
|
select IFOERROR yes 'ERROR - test program error flag? ' |
||||
|
select IFOTRUE yes 'Allow "IF T" and "IF F" forms? ' |
||||
|
select IFOEXIST yes 'EXIST - test for file existence? ' |
||||
|
select IFAMBIG no 'AMBIG - test for "?" in file spec? ' |
||||
|
select IFCOMPR no 'COMPR - test for compressed filespec? ' |
||||
|
select IFOREG no 'REG - test register values? ' |
||||
|
select IFOWHEEL no 'WHEEL - test wheel byte? ' |
||||
|
select IFOTCAP no 'TCAP - test whether TCAP loaded? ' |
||||
|
select IFOEMPTY no 'EMPTY - test files for contents? ' |
||||
|
endif ; COMIF |
||||
|
|
||||
|
; Miscellaneous configuration information |
||||
|
|
||||
|
curusr equ z3msg+2eh ; Current logged user address |
||||
|
curdr equ z3msg+2fh ; Current logged drive address |
||||
|
curint equ '$' ; Path symbol for current drive/user |
||||
|
|
||||
|
; END of NZFCP.LIB |
||||
|
|
||||
@ -0,0 +1,161 @@ |
|||||
|
; Module: NZFCP.LIB |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.3 |
||||
|
; Date: 9 Oct 89 |
||||
|
; Changes: Prompts for options if SLR true. |
||||
|
|
||||
|
; This module is a set of configuration options for the flow control package |
||||
|
; code in NZFCP.Z80. The options are not fully commented here; see |
||||
|
; "ZCPR3, The Manual" for a detailed discussion of most of them. |
||||
|
|
||||
|
|
||||
|
; * * * * * * N O T I C E * * * * * * |
||||
|
; |
||||
|
; The main code in Z33FCP.Z80 has been written with relative jump instructions |
||||
|
; for minimum code size. If the options below are changed, then some of the |
||||
|
; jumps may become out-of-range. You will then have to change the code based |
||||
|
; on the error messages you get from your assembler. I cannot think of any |
||||
|
; way to handle the jumps automatically (macros fail because the jump distances |
||||
|
; cannot be resolved fully even in two passes of the assembler). If you want |
||||
|
; to play things really safe, you can do a global search and replace to change |
||||
|
; all occurrences of the JR instruction to JP (but note that this change is |
||||
|
; irreversible). I prefer to live with this nuisance so that I can get the |
||||
|
; most out of the code. |
||||
|
; |
||||
|
; Another possible way to clear up a problem with a relative jump that is out |
||||
|
; of range is to take the block of code with the labels IFCTRUE and IFCFALSE |
||||
|
; and move it up or down in the code. It is placed somewhere in the middle of |
||||
|
; the resident options, so that the options can reach those entry points with |
||||
|
; a relative jump. You should try to place that code near the middle of the |
||||
|
; options which you have enabled. |
||||
|
; |
||||
|
; Jay Sage (May 17, 1987) |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; M A C R O S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; SLR assemblers allow selection of options during assembly. |
||||
|
|
||||
|
SLR equ yes |
||||
|
|
||||
|
if SLR |
||||
|
|
||||
|
y equ yes |
||||
|
n equ no |
||||
|
|
||||
|
select macro option default comment |
||||
|
.accept comment,option ; Prompt user for selection |
||||
|
endm |
||||
|
|
||||
|
.printx |
||||
|
.printx Answer "Y" to include, "N" to exclude commands: |
||||
|
.printx |
||||
|
|
||||
|
else |
||||
|
|
||||
|
select macro option default comment |
||||
|
option equ default ; Use selections from file |
||||
|
endm |
||||
|
endif ; SLR |
||||
|
|
||||
|
; ------------------------------------------------------------------------- |
||||
|
|
||||
|
; Command names |
||||
|
|
||||
|
; The CTABLE macro, which constructs the command dispatch table, includes a |
||||
|
; line for each command, the first parameter of which is the name of the |
||||
|
; command. These names may be changed if you wish. But make sure that you |
||||
|
; do not use a name that is longer than the maximum allowed length. If you |
||||
|
; do, the name will be truncated and a nonfatal error will occur during |
||||
|
; assembly. DO NOT CHANGE ANY PARAMETER OTHER THAN THE COMMAND NAME. Lower |
||||
|
; case letters will be converted to upper case. The macro COMMAND is defined |
||||
|
; in Z34MAC.LIB. |
||||
|
|
||||
|
cmdsize equ 4 ; Maximum length of command names |
||||
|
|
||||
|
; Command table name, enable, wheel, jump_addr |
||||
|
; [ DO NOT CHANGE THESE PARAMETERS ] |
||||
|
ctable macro |
||||
|
ifcmd: command if, yes, no, ifstart |
||||
|
command and, andopt, no, andstart |
||||
|
command or, oropt, no, orstart |
||||
|
command else, yes, no, ifelse |
||||
|
command fi, yes, no, ifend |
||||
|
command ifq, ifqopt, no, ifstat0 |
||||
|
command xif, yes, no, ifexit |
||||
|
command zif, zifopt, no, ifzero |
||||
|
endm |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; General configuration options |
||||
|
|
||||
|
NOISE equ no ; Don't display if-state messages |
||||
|
|
||||
|
select COMIF no 'Enable transient IF processing? ' |
||||
|
|
||||
|
PATHROOT equ yes ; Find transient IF in root of path |
||||
|
|
||||
|
ifdrv equ 'A' ; Drive to use if PATHROOT is off or |
||||
|
; ..if the path is empty |
||||
|
ifusr equ 0 ; User to use if PATHROOT is off or |
||||
|
; ..if the path is empty |
||||
|
|
||||
|
; --------------------------------------------------------------------- |
||||
|
|
||||
|
; Command inclusion options |
||||
|
|
||||
|
select ZIFOPT yes 'ZIF - unconditionally clear IF states? ' |
||||
|
select IFQOPT yes 'IFQ - show current if status? ' |
||||
|
select OROPT yes 'OR - set state at current level? ' |
||||
|
select ANDOPT yes 'AND - reset state at current level? ' |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; If Condition Options |
||||
|
|
||||
|
if COMIF ; Different precedence if transient IF available. |
||||
|
select IFONEG yes 'Allow negation of conditions? ' |
||||
|
negchar equ '~' ; Character to use if negation allowed |
||||
|
select IFOERROR yes 'ERROR - test program error flag? ' |
||||
|
select IFONULL yes 'NULL - test for no file name? ' |
||||
|
select IFOREG yes 'REG - test register values? ' |
||||
|
select IFAMBIG yes 'AMBIG - test for "?" in file spec? ' |
||||
|
select IFCOMPR yes 'COMPR - test for compressed filespec? ' |
||||
|
select IFOEQ yes '= - test tokens for equality? ' |
||||
|
select IFOINPUT yes 'INPUT - test user input? ' |
||||
|
XEQOPT equ yes ; Test only first token for equal sign |
||||
|
select IFOTRUE yes 'Allow "IF T" and "IF F" forms? ' |
||||
|
select IFOWHEEL no 'WHEEL - test wheel byte? ' |
||||
|
select IFOTCAP no 'TCAP - test whether TCAP loaded? ' |
||||
|
select IFOEXIST yes 'EXIST - test for file existence? ' |
||||
|
select IFOEMPTY yes 'EMPTY - test files for contents? ' |
||||
|
else |
||||
|
select IFONEG yes 'Allow negation of conditions? ' |
||||
|
negchar equ '~' ; Character to use if negation allowed |
||||
|
select IFONULL yes 'NULL - test for no file name? ' |
||||
|
select IFOINPUT yes 'INPUT - test user input? ' |
||||
|
select IFOEQ yes '= - test tokens for equality? ' |
||||
|
XEQOPT equ yes ; Test only first token for equal sign |
||||
|
select IFOERROR yes 'ERROR - test program error flag? ' |
||||
|
select IFOTRUE yes 'Allow "IF T" and "IF F" forms? ' |
||||
|
select IFOEXIST yes 'EXIST - test for file existence? ' |
||||
|
select IFAMBIG yes 'AMBIG - test for "?" in file spec? ' |
||||
|
select IFCOMPR yes 'COMPR - test for compressed filespec? ' |
||||
|
select IFOREG yes 'REG - test register values? ' |
||||
|
select IFOWHEEL no 'WHEEL - test wheel byte? ' |
||||
|
select IFOTCAP no 'TCAP - test whether TCAP loaded? ' |
||||
|
select IFOEMPTY yes 'EMPTY - test files for contents? ' |
||||
|
endif ; COMIF |
||||
|
|
||||
|
; Miscellaneous configuration information |
||||
|
|
||||
|
curusr equ z3msg+2eh ; Current logged user address |
||||
|
curdr equ z3msg+2fh ; Current logged drive address |
||||
|
curint equ '$' ; Path symbol for current drive/user |
||||
|
|
||||
|
; END of NZFCP.LIB |
||||
|
|
||||
@ -0,0 +1,9 @@ |
|||||
|
Source code plus the compiled Flow Control Packages (FCP's) |
||||
|
distributed in FCP.LBR as part of the Z System. The precompiled |
||||
|
modules are in Z-Relocatable form, and must be loaded with JetLDR, |
||||
|
NZCOM, or Z3PLUS. Now features interactive assembly of code |
||||
|
a-la-Z34RCP11 under the SLR or ZMAC assemblers. Macro now reports |
||||
|
length of resulting FCP in records and bytes following assembly. |
||||
|
JetLDR signons also automatically generated. 9/15/90 Carson Wilson |
||||
|
|
||||
|
|
||||
File diff suppressed because it is too large
@ -0,0 +1,105 @@ |
|||||
|
; |
||||
|
; Library: Z34CMN.LIB |
||||
|
; Author: Carson Wilson <crw> |
||||
|
; Version: 1.2 |
||||
|
; Date: 16 June 1988 |
||||
|
; Changes: Renamed CRT0 to LINS for NZCOM compatibility. |
||||
|
; Added CUSR " " " |
||||
|
|
||||
|
; Author: Carson Wilson <crw> |
||||
|
; Version: 1.1 |
||||
|
; Date: 12 June 1988 |
||||
|
; Changes: Added CDRV for various Z34RCP commands. |
||||
|
; Added CRT0 for Z34RCP TYPE command. |
||||
|
; Added Z3TCAP and CLRSCR for Z34RCP CLS command. |
||||
|
; Added QUIET for ZCPR34 time in prompt. |
||||
|
; Added RSDMSG for ZCPR34 time in prompt. |
||||
|
|
||||
|
; Library: Z34CMN.LIB |
||||
|
; Author: Joe Wright |
||||
|
; Date: 23 March 1988 |
||||
|
|
||||
|
; As a replacement for Z3BASE.LIB, some usual equates. |
||||
|
|
||||
|
base equ 0 ; Base Page |
||||
|
|
||||
|
false equ 0 |
||||
|
true equ not false |
||||
|
|
||||
|
no equ false |
||||
|
yes equ true |
||||
|
|
||||
|
off equ false |
||||
|
on equ true |
||||
|
|
||||
|
; Named COMMON declarations start here. For compatibility, these |
||||
|
; are the same names used by Bridger Mitchell's JetLDR. |
||||
|
|
||||
|
common /_ENV_/ |
||||
|
z3env: ; Z3 Environment descriptor |
||||
|
z3envs equ yes ; There is one |
||||
|
|
||||
|
expath equ z3env+9 ; Address of External Path |
||||
|
expaths equ 10 ; Maximum 10 elements for MPATH |
||||
|
|
||||
|
rcp equ z3env+0ch ; Address of RCP |
||||
|
rcps equ yes ; Used as existence test, not size |
||||
|
|
||||
|
fcp equ z3env+12h ; Address of FCB |
||||
|
fcps equ yes ; Used as existence test, not size |
||||
|
|
||||
|
z3ndir equ z3env+15h ; Address of NDR |
||||
|
z3ndirs equ yes ; Used as existence test, not size |
||||
|
|
||||
|
quiet equ z3env+28h ; Quiet flag address <crw> |
||||
|
|
||||
|
z3whl equ z3env+29h ; Wheel byte address |
||||
|
z3whls equ yes ; There is a wheel |
||||
|
|
||||
|
lins equ z3env+33h ; CRT text lines address <crw> |
||||
|
|
||||
|
ccp equ z3env+3fh ; CCP entry |
||||
|
ccps equ z3env+41h ; Size |
||||
|
|
||||
|
dos equ z3env+42h ; DOS entry (+6) |
||||
|
doss equ z3env+44h ; Size |
||||
|
|
||||
|
bio equ z3env+45h ; BIO entry |
||||
|
|
||||
|
z3tcap equ z3env+80h ; TCAP address <crw> |
||||
|
|
||||
|
clrscr equ z3env+97h ; Clear screen string address <crw> |
||||
|
|
||||
|
common /_SSTK_/ |
||||
|
shstk: ; Top of Shell stack |
||||
|
shstks equ yes ; There is a shell stack |
||||
|
|
||||
|
common /_MSG_/ |
||||
|
z3msg: ; Message buffer |
||||
|
z3msgs equ yes ; There is one |
||||
|
|
||||
|
cusr equ z3msg+2eh ; Current user |
||||
|
cdrv equ z3msg+2fh ; Current drive <crw> |
||||
|
|
||||
|
rsdmsg equ z3msg+3ah ; Reserved bytes <crw> |
||||
|
|
||||
|
common /_FCB_/ |
||||
|
extfcb: ; External file control block |
||||
|
extfcbs equ yes ; There is one |
||||
|
|
||||
|
common /_MCL_/ |
||||
|
z3cl: ; Multiple command line |
||||
|
z3cls equ yes ; There is one |
||||
|
|
||||
|
common /_XSTK_/ |
||||
|
extstk: ; External stack |
||||
|
extstks equ yes ; There is one |
||||
|
|
||||
|
common /_BIOS_/ |
||||
|
bios: |
||||
|
|
||||
|
cseg ; Select Code Segment |
||||
|
|
||||
|
; End of Z34CMN.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,122 @@ |
|||||
|
|
||||
|
; Z33MAC.LIB : Macros for use with ZCPR33 |
||||
|
|
||||
|
; General purpose macros |
||||
|
|
||||
|
putreg macro |
||||
|
push hl ; Save registers in order |
||||
|
push de |
||||
|
push bc |
||||
|
endm |
||||
|
|
||||
|
getreg macro |
||||
|
pop bc ; Restore registers in order |
||||
|
pop de |
||||
|
pop hl |
||||
|
endm |
||||
|
|
||||
|
swap macro |
||||
|
rrca ; Exchange nibbles |
||||
|
rrca |
||||
|
rrca |
||||
|
rrca |
||||
|
endm |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; Macro for forming option bytes |
||||
|
|
||||
|
; This macro generates a byte with bits corresponding to up to 8 option |
||||
|
; flags. The bits are filled in the order of the parameters and are right |
||||
|
; justified in the byte. |
||||
|
|
||||
|
optflag macro f1,f2,f3,f4,f5,f6,f7,f8 |
||||
|
|
||||
|
flag defl 0 ;; initial value |
||||
|
|
||||
|
irp temp,<f1,f2,f3,f4,f5,f6,f7,f8> |
||||
|
|
||||
|
if not nul temp |
||||
|
flag defl flag shl 1 |
||||
|
if temp |
||||
|
flag defl flag or 1 |
||||
|
endif ;;temp |
||||
|
endif ;;not nul temp |
||||
|
|
||||
|
endm ;; irp |
||||
|
|
||||
|
defb low flag |
||||
|
|
||||
|
endm ;; optflag |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; Command table entry definition macro |
||||
|
|
||||
|
; Macro to form an entry for one command in the table. The first parameter is |
||||
|
; the name to be used for the command (no quotes); the second parameter is the |
||||
|
; flag that indicates whether or not the command is to be enabled; the third |
||||
|
; parameter is the wheel control flag; and the last parameter is the jump |
||||
|
; address to the code that carries out the command. The command names are |
||||
|
; automatically padded out to the correct length (they will be truncated and |
||||
|
; an error message will result if a command name is too long). The characters |
||||
|
; in the command name are automatically converted to upper case. |
||||
|
|
||||
|
command macro cmdname,enableflag,wheelflag,address |
||||
|
|
||||
|
if enableflag ;; Generate command only if enabled |
||||
|
|
||||
|
whlmask defl wheelflag ;; Initialize variables |
||||
|
count defl cmdsize ;; Initialize to size of each command name |
||||
|
|
||||
|
irpc char,cmdname ;; Repeat over letters in command name |
||||
|
|
||||
|
count defl count - 1 ;; Count down characters in name |
||||
|
|
||||
|
if [ count lt cmdsize ] |
||||
|
|
||||
|
;; If character is lower case, convert to upper case |
||||
|
|
||||
|
if [ '&char' ge 'a' ] and [ '&char' le 'z' ] |
||||
|
|
||||
|
if whlmask |
||||
|
defb [ '&char' and 5fh ] + 80h |
||||
|
else ;;not whlmask |
||||
|
defb [ '&char' and 5fh ] |
||||
|
endif ;;whlmask |
||||
|
|
||||
|
else ;;not lower case |
||||
|
|
||||
|
if whlmask |
||||
|
defb '&char' + 80h ;; If controlled by wheel, set high bit |
||||
|
else ;;not whlmask |
||||
|
defb '&char' ;; If not restricted, leave high bit clear |
||||
|
endif ;;whlmask |
||||
|
|
||||
|
endif ;;lower case |
||||
|
|
||||
|
endif ;;[ count lt cmdsize ] |
||||
|
|
||||
|
whlmask defl false ;; Turn off high-bit setting after first char |
||||
|
|
||||
|
endm ;irpc |
||||
|
|
||||
|
;; Pad command name with blanks |
||||
|
|
||||
|
if [ count gt cmdsize ] ;; If we underflowed |
||||
|
*** Command name "&cmdname" is too long / truncated *** |
||||
|
else |
||||
|
rept count |
||||
|
defb ' ' |
||||
|
endm |
||||
|
endif ;[ count gt cmdsize ] |
||||
|
|
||||
|
dw address ;; Dispatch address for command |
||||
|
|
||||
|
endif ;enable |
||||
|
|
||||
|
endm ;command |
||||
|
|
||||
|
; End Z33MAC.LIB |
||||
|
|
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,11 @@ |
|||||
|
@echo off |
||||
|
setlocal |
||||
|
|
||||
|
set PATH=%PATH%;..\..\..\Tools\zx;..\..\..\Tools\cpmtools; |
||||
|
|
||||
|
set ZXBINDIR=../../../tools/cpm/bin/ |
||||
|
set ZXLIBDIR=../../../tools/cpm/lib/ |
||||
|
set ZXINCDIR=../../../tools/cpm/include/ |
||||
|
|
||||
|
rem zx Z80ASM -z34rcp11/MF |
||||
|
zx ZMAC -z34rcp11.z80 -/P |
||||
@ -0,0 +1,7 @@ |
|||||
|
@echo off |
||||
|
setlocal |
||||
|
|
||||
|
if exist *.prn del *.prn |
||||
|
if exist *.lst del *.lst |
||||
|
if exist *.err del *.err |
||||
|
if exist *.rel del *.rel |
||||
@ -0,0 +1,5 @@ |
|||||
|
OBJECTS = z34rcp11.rel |
||||
|
TOOLS = ../../../Tools |
||||
|
DEST = |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
@ -0,0 +1,33 @@ |
|||||
|
page |
||||
|
; |
||||
|
; Library: RCPBASE for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
|
||||
|
; Comments: Use instead of Z34CMN.LIB to produce absolute RCP's. |
||||
|
; An absolute RCP will only load to one address, and requires |
||||
|
; that the message buffer and the environment descriptor |
||||
|
; remain constant within the environment. |
||||
|
|
||||
|
; You must modify the next three addresses to match your system: |
||||
|
|
||||
|
z3rcp equ 0ee80h ; RCP address |
||||
|
z3env equ 0fd00h ; Environment descriptor address |
||||
|
z3msg equ 0fe30h ; Message buffer address |
||||
|
|
||||
|
; The rest of this file should not be changed. |
||||
|
|
||||
|
fcp equ z3env+18 ; Address of FCB |
||||
|
quiet equ z3env+28h ; Quiet flag address |
||||
|
z3whl equ z3env+29h ; Wheel byte address |
||||
|
crt0 equ z3env+33h ; CRT 0 text lines address |
||||
|
ccp equ z3env+63 ; CCP entry |
||||
|
z3tcap equ z3env+80h ; TCAP address |
||||
|
clrscr equ z3env+97h ; Clear screen string address |
||||
|
|
||||
|
cdrv equ z3msg+2fh ; Current drive |
||||
|
|
||||
|
; End RCPBASE.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,62 @@ |
|||||
|
RCPCLED - Command Line Editing and History Shell for Z34RCP11 |
||||
|
Author: Rob Friefeld |
||||
|
Version: 1.3 |
||||
|
Date: October 2, 1989 |
||||
|
|
||||
|
Command: CLED |
||||
|
Syntax: CLED [/] |
||||
|
If "/", run once only (e.g. from a shell such as ZFILER) |
||||
|
|
||||
|
Features: |
||||
|
|
||||
|
CLED is a memory resident command line editor which extends the minimal |
||||
|
features of the CCP to include cursor movement, insert/delete, and |
||||
|
record/recall of command lines. Though part of the RCP, CLED is also a ZCPR |
||||
|
"shell" which automatically reinvokes itself following any ZCPR command. It |
||||
|
thus uses up one shell stack entry (normally there are four, which is plenty). |
||||
|
If a ZS/ZDDOS, DateStamper, or Z3PLUS clock is implemented, the command prompt |
||||
|
shows the system time. To disable time display under Z3PLUS (if you have no |
||||
|
clock), set the system date to 01/01/78. |
||||
|
|
||||
|
The default control key set includes these important commands: |
||||
|
|
||||
|
CR - execute command line |
||||
|
ESC Q - pop the shell |
||||
|
ESC S - toggle recording on/off (prompt shows >/>> to indicate state) |
||||
|
^W - recall command lines from history stack |
||||
|
^E - recall history in reverse direction |
||||
|
|
||||
|
|
||||
|
Installation: |
||||
|
|
||||
|
The installation program, CLEDINST, allows you to set up the editor |
||||
|
to your preference. The RCP can be installed directly in memory or in a disk |
||||
|
file -- RCPxxx.ZRL or a system configuration saved with SNAP or NZBLITZ. |
||||
|
CLEDINST also serves as a "help" utility by displaying the current command |
||||
|
bindings. Type "CLEDINST //" for help with CLEDINST.COM. |
||||
|
|
||||
|
|
||||
|
History Tool: |
||||
|
|
||||
|
CLEDSAVE writes the contents of the history stack to a text file on disk. |
||||
|
The file can be reloaded later (CLEDSAVE <file> L), or composed in advance |
||||
|
with a text editor, then loaded. If the file is too large for the history |
||||
|
stack, as many commmand lines as fit are loaded. |
||||
|
|
||||
|
CLEDSAVE is useful as in a startup alias to load frequently used command |
||||
|
lines from an easily altered file. For example: |
||||
|
|
||||
|
Alias: START |
||||
|
|
||||
|
A15: |
||||
|
CLEDSYS <- load SNAP image of ENV,TCAP,RCP,FCP,NDR,QUIET,&PATH |
||||
|
CLEDSAVE CLED.VAR L <- load precomposed command lines into CLED |
||||
|
CLED <- turn the shell on |
||||
|
... <- rest of startup line runs before CLED gets control |
||||
|
|
||||
|
For help with CLEDSAVE.COM, type "CLEDSAVE //". |
||||
|
|
||||
|
You may also use SNAP or NZBLITZ to save the system segment image with |
||||
|
command lines already loaded (turn SAVE OFF first.) |
||||
|
|
||||
|
|
||||
File diff suppressed because it is too large
@ -0,0 +1,35 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPCLS for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: CLS |
||||
|
; Function: To clear the CRT screen |
||||
|
; Comments: The setting of the CLSTCAP equate determines whether this |
||||
|
; command uses the TCAP information or not. If not, it uses the |
||||
|
; clear-screen string passed in macro CLSSTR. That string should |
||||
|
; end with the high bit set. |
||||
|
|
||||
|
cls: |
||||
|
if clstcap ; If using TCAP for clear screen string |
||||
|
ld a,(z3tcap) ; TCAP address from Z34CMN.LIB |
||||
|
cp ' '+1 ; See if blank |
||||
|
jr nc,cls1 ; If not, go to clear screen code |
||||
|
jp crlf ; If blank, just do CRLF |
||||
|
cls1: |
||||
|
ld hl,clrscr ; Address from Z34CMN.LIB |
||||
|
jp printhl ; Display it |
||||
|
|
||||
|
else ; Not using tcap |
||||
|
|
||||
|
call print |
||||
|
clsstr ; String from Z34RCP.LIB |
||||
|
ret |
||||
|
|
||||
|
endif ;clstcap |
||||
|
|
||||
|
; End RCPCLS.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,56 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPCMD for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; Description: Command Table and Custom Commands for Z34-RCP |
||||
|
|
||||
|
; This is the customization file for the ZCPR Version 3.4 resident command |
||||
|
; package. Use it to add your own custom commands to the RCP. |
||||
|
|
||||
|
; Give each of your custom commands a unique label and command name. Then |
||||
|
; add the command name(s) to the macro CUSTTBL, below, and append the code |
||||
|
; for the commands to the end of this file. |
||||
|
|
||||
|
; CUSTTBL - Custom commands table. |
||||
|
; |
||||
|
; Add one line to CUSTTBL for each of your custom commands. Each line |
||||
|
; must be of the form: |
||||
|
; |
||||
|
; COMMAND name, TRUE, wheel, label |
||||
|
; |
||||
|
; Where COMMAND and TRUE appear as-is, and "name", "wheel", and "label" |
||||
|
; are created by the user. "Name" is a name of four characters or less used |
||||
|
; to invoke the command, in upper case. "Wheel" is "true" to protect the |
||||
|
; command from non-wheel users, "false" otherwise. "Label" marks the |
||||
|
; beginning of the custom code. For example, to create a wheel- |
||||
|
; protected command named "DIR" which calls the code at label "directory", |
||||
|
; CUSTTBL appears as follows: |
||||
|
; |
||||
|
;custtbl macro |
||||
|
; command DIR, true, true, directory |
||||
|
; endm |
||||
|
|
||||
|
custtbl macro |
||||
|
;; command ____, true, ____, _______ ; Template for custom commands |
||||
|
endm |
||||
|
|
||||
|
; ------------------------------ |
||||
|
|
||||
|
; RCP command dispatch table |
||||
|
|
||||
|
db cmdsize ; Length of each command name |
||||
|
cmdtbl ; Dispatch table from Z34RCP.LIB |
||||
|
custtbl ; Optional custom commands |
||||
|
db 0 ; Marks end of command jump table |
||||
|
|
||||
|
; -------------------------------------------------- |
||||
|
|
||||
|
; Insert label(s) and code for custom RCP commands here: |
||||
|
|
||||
|
; |
||||
|
|
||||
|
; END RCPCMD.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,245 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPCP for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.3 |
||||
|
; Date: August 11, 1989 |
||||
|
; Changes: Responds dynamically to QUIET flag, eliminating "noise." |
||||
|
|
||||
|
; Version: 1.2 |
||||
|
; Date: December 30, 1988 |
||||
|
; Changes: Now works properly with CP/M Plus. |
||||
|
; Moved SETDMA to common routines. |
||||
|
|
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.1 |
||||
|
; Date: August 4, 1988 |
||||
|
; Changes: Now initializes FCB1 before calling SetFStp, allowing |
||||
|
; stamp setting of multiple-extent files. |
||||
|
; |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: CP |
||||
|
; Function: Copy a file from one place to another |
||||
|
; Syntax: If FCBSWAP false: |
||||
|
; CP destfile=srcfile, CP =srcfile |
||||
|
; If FCBSWAP true: |
||||
|
; CP srcfile destfile, CP srcfile |
||||
|
; If TESTEQ and FCBSWAP true: |
||||
|
; Both of the above forms work |
||||
|
; |
||||
|
; Comments: Both file specifications can include a directory specification. |
||||
|
; If only one file name is given, then the current directory and |
||||
|
; the source file name are assumed for the destination. |
||||
|
|
||||
|
; |
||||
|
; New ZSDOS/DosDisk BDOS standard functions: |
||||
|
; |
||||
|
GetFStp equ 102 ; Get file stamp function |
||||
|
SetFStp equ 103 ; Set file stamp function |
||||
|
|
||||
|
copy: |
||||
|
call retsave |
||||
|
call dirchek ; Test bad directory |
||||
|
|
||||
|
if leftright |
||||
|
call fcbswap ; Exchange fcb1 with fcb2 |
||||
|
endif |
||||
|
|
||||
|
; If new is blank, make it the same name and type as old |
||||
|
|
||||
|
ld de,fcb1+1 ; Point to destination file name |
||||
|
ld a,(de) ; Get first character |
||||
|
cp ' ' ; If not blank (no name) |
||||
|
jr nz,copy0 ; ..then branch to copy |
||||
|
ld hl,fcb2+1 ; Copy source name into destination FCB |
||||
|
ld b,11 ; Name and type are 11 bytes |
||||
|
call blkmov |
||||
|
|
||||
|
; See if destination is same as source, and abort if so |
||||
|
|
||||
|
copy0: |
||||
|
ld hl,fcb1 ; Set up pointers to two files |
||||
|
ld de,fcb2 |
||||
|
push hl |
||||
|
push de |
||||
|
inc hl ; Point to names of files |
||||
|
inc de |
||||
|
ld b,13 ; Compare 13 bytes (name, type, and user #) |
||||
|
copy1: call comp |
||||
|
jr nz,copy2 ; If they differ, go on with copy |
||||
|
ld a,(cdrv) ; ZCPR current drive |
||||
|
inc a ; Shift to range 1..16 |
||||
|
ld b,a ; ..and keep value in B |
||||
|
pop de ; Restore pointers to FCBs |
||||
|
pop hl |
||||
|
ld a,(de) ; Get drive of source file |
||||
|
ld c,a ; ..and save it in C |
||||
|
or a ; Is it default drive? |
||||
|
jr nz,copy1a ; Branch if drive made explicit |
||||
|
ld c,b ; Otherwise, copy default drive into C |
||||
|
copy1a: ld a,(hl) ; Get drive of destination file |
||||
|
or a ; Is it default drive? |
||||
|
jr nz,copy1b ; Branch if drive made explicit |
||||
|
ld a,b ; Otherwise, get current drive |
||||
|
copy1b: cp c ; Compare the two drives specified |
||||
|
jr nz,copy3 ; Branch if they are different |
||||
|
jp duperr ; Tell EH duplicate filespecs |
||||
|
copy2: |
||||
|
pop de ; Clean up the stack |
||||
|
pop hl |
||||
|
|
||||
|
; Make note of the user numbers of the two files |
||||
|
|
||||
|
copy3: |
||||
|
ld a,(fcb1+13) ; Get destination user number |
||||
|
ld (usrdest),a |
||||
|
ld a,(fcb2+13) ; Get source user number |
||||
|
ld (usrsrc),a |
||||
|
|
||||
|
; Set up new FCB for source file and open the source |
||||
|
|
||||
|
call define ; Define buffer addresses dynamically |
||||
|
srcfcb equ $+1 |
||||
|
ld hl,0 ; Get address to use for new source FCB |
||||
|
push hl |
||||
|
ex de,hl ; Copy file data to new FCB |
||||
|
ld b,12 |
||||
|
call blkmov |
||||
|
call logsrc ; Log in user number of source file |
||||
|
pop hl ; Initialize the source file FCB |
||||
|
call initfcb2 |
||||
|
ld c,15 ; Open source file |
||||
|
call bdos |
||||
|
inc a ; Check for error |
||||
|
jp z,noflerr ; File not found error handler |
||||
|
|
||||
|
if StpCall |
||||
|
call cpmver |
||||
|
jr nc,copy4 ; Don't do this if CP/M Plus |
||||
|
stpbuf equ $+1 |
||||
|
ld de,0 |
||||
|
call setdma ; Set DMA to date buffer |
||||
|
ld de,(srcfcb) |
||||
|
ld c,GetFStp ; Get stamp (if any) to DMA |
||||
|
call bdos |
||||
|
ld (gotstp),a ; Store result |
||||
|
ld de,tbuff ; Restore DMA |
||||
|
call setdma ; ..for search |
||||
|
copy4: |
||||
|
endif ; StpCall |
||||
|
|
||||
|
; Make sure destination file does not already exist |
||||
|
|
||||
|
call logdest ; Log into destination user area |
||||
|
call extest ; Test for existence of file in fcb1 |
||||
|
jp z,exit ; Branch if it exists and user says no |
||||
|
|
||||
|
; Create destination file |
||||
|
|
||||
|
ld de,fcb1 ; Point to destination FCB |
||||
|
ld c,22 ; BDOS make-file function |
||||
|
call bdos |
||||
|
inc a ; Test for error (no directory space) |
||||
|
jp z,fulerr ; Invoke EH if not OK |
||||
|
|
||||
|
; Copy source to destination |
||||
|
|
||||
|
copy5: call logsrc ; Log in source user area |
||||
|
ld b,0 ; Initialize counter |
||||
|
ld de,(cbuff) ; Initialize buffer pointer |
||||
|
copy5a: push de ; Save address and counter |
||||
|
push bc |
||||
|
call setdma ; Set DMA to cbuff+(b*128) |
||||
|
ld de,(srcfcb) ; Point to source file FCB |
||||
|
ld c,20 ; BDOS read-sequential function |
||||
|
call bdos |
||||
|
pop bc ; Get counter and address |
||||
|
pop de |
||||
|
or a ; Read Ok? |
||||
|
jr nz,copy5b ; Branch if end of file |
||||
|
ld hl,128 ; Point DE to next buffer address |
||||
|
add hl,de |
||||
|
ex de,hl |
||||
|
inc b ; Increment counter |
||||
|
ld a,b ; See if buffer full |
||||
|
cp cpblocks |
||||
|
jr nz,copy5a ; If not, go back for more |
||||
|
copy5b: ld a,b ; Get count of blocks loaded into buffer |
||||
|
or a ; Are there any? |
||||
|
jr z,copy6 ; Branch if not (we are done) |
||||
|
push bc ; Save count |
||||
|
call logdest ; Log into destination user number |
||||
|
cbuff equ $+1 ; Pointer for in-the-code modification |
||||
|
ld de,0 ; Point to beginning of copy buffer |
||||
|
copy5c: push de ; Save buffer address |
||||
|
call setdma ; Set dma to buffer |
||||
|
ld de,fcb1 ; Point to destination file FCB |
||||
|
ld c,21 ; Sequential write the block |
||||
|
call bdos |
||||
|
or a ; Get result |
||||
|
jp nz,fulerr ; Invoke EH (disk full or write error) |
||||
|
pop de ; Get buffer address & balance stack |
||||
|
pop bc ; Get count |
||||
|
dec b ; Buffer empty? |
||||
|
jr z,copy5 ; Yes. Back for refill |
||||
|
push bc ; No. Save count |
||||
|
ld hl,128 |
||||
|
add hl,de |
||||
|
ex de,hl ; DE points to next buffer address |
||||
|
jr copy5c ; Back for another sector to write |
||||
|
|
||||
|
; Close the destination file |
||||
|
|
||||
|
copy6: call logdest ; Log into destination user number |
||||
|
ld de,fcb1 ; Point to destination FCB |
||||
|
ld c,16 ; Close file |
||||
|
call bdos |
||||
|
inc a ; 0ffh --> 0 if error |
||||
|
jp z,fulerr ; Invoke EH |
||||
|
|
||||
|
if StpCall |
||||
|
gotstp equ $+1 |
||||
|
ld a,0 ; File had stamp? |
||||
|
dec a ; 1 --> 0 = yes |
||||
|
jr nz,noset ; No |
||||
|
ld de,(stpbuf) ; Point to buffer |
||||
|
call setdma ; Set DMA |
||||
|
call initfcb1 ; Init. for SetFStp, point to dest. |
||||
|
ld c,SetFStp ; Set file's stamp |
||||
|
call bdos ; CCP restores DMA |
||||
|
noset: |
||||
|
endif ; StpCall |
||||
|
|
||||
|
ld a,(quiet) |
||||
|
or a |
||||
|
jr nz,qcpdone |
||||
|
call print |
||||
|
db ' Don','e'+80h |
||||
|
qcpdone: |
||||
|
if cpsp and spaceon |
||||
|
jp spaexit ; Report space remaining on destination drive |
||||
|
else |
||||
|
jp exit |
||||
|
endif ;cpsp and spaceon |
||||
|
|
||||
|
; Log into user number of source file |
||||
|
|
||||
|
logsrc: |
||||
|
usrsrc equ $+1 ; Pointer for in-the-code modification |
||||
|
ld a,0 ; Get user number |
||||
|
jr setusrrel ; Local jump to save code |
||||
|
|
||||
|
; Log into user number of destination file |
||||
|
|
||||
|
logdest: |
||||
|
usrdest equ $+1 ; Pointer for in-the-code modification |
||||
|
ld a,0 ; Get user number |
||||
|
setusrrel: |
||||
|
jp setusr |
||||
|
|
||||
|
; End RCPCP.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,137 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPDIR for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: August 6, 1989 |
||||
|
; Changes: Now allows "DIR [dir:].aft" as well as "DIR [dir:]*.aft" |
||||
|
; to show all files of a given file extentsion, |
||||
|
; e.g., "d .?80" gives all .Z80 and .180 files. |
||||
|
; |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: DIR |
||||
|
; Function: Display a directory of the files on disk |
||||
|
; Syntax: DIR [dir:afn] Displays the DIR files |
||||
|
; DIR [dir:afn] S Displays the SYS files |
||||
|
; DIR [dir:afn] A Display both DIR and SYS files |
||||
|
; |
||||
|
; If slashchk is true: |
||||
|
; |
||||
|
; DIR [dir:]/S Equivalent to DIR [dir:]*.* S |
||||
|
; DIR [dir:]/A Equivalent to DIR [dir:]*.* A |
||||
|
|
||||
|
dir: |
||||
|
call retsave ; Save return address and set stack |
||||
|
|
||||
|
; See if FCB should be made wild (all '?') |
||||
|
|
||||
|
ld hl,fcb1+1 ; Point to file name in FCP |
||||
|
ld a,(hl) ; Get first character of filename |
||||
|
|
||||
|
if slashchk ; Allow "DIR /S" and "DIR /A" formats |
||||
|
cp '/' ; If name does not start with '/' |
||||
|
jr nz,dir01 ; ..branch and process normally |
||||
|
inc hl ; Point to second character |
||||
|
ld a,(hl) ; Get option character after slash |
||||
|
ld (fcb2+1),a ; ..and put it into second FCB |
||||
|
dec hl ; Back to first character |
||||
|
ld a,' ' ; Simulate empty FCB |
||||
|
endif ;slashchk |
||||
|
|
||||
|
dir01: |
||||
|
cp ' ' ; See if no file spec given |
||||
|
jr nz,dir02 ; Spec given |
||||
|
|
||||
|
ld b,8 ; Wildcard name |
||||
|
ld a,(fcb1+9) |
||||
|
cp ' ' ; Wildcard type? |
||||
|
jr nz,dir01a ; No |
||||
|
ld b,11 ; Yes. Fill name and type. |
||||
|
dir01a: ld a,'?' ; Get ready to fill with '?' |
||||
|
call fillp ; ..carry out fill |
||||
|
dir02: |
||||
|
if nosys ; Suppress-SYS-file-if-no-wheel option |
||||
|
call getwhl ; Get wheel status |
||||
|
jr z,dirnly ; If wheel off, ignore options |
||||
|
endif |
||||
|
|
||||
|
ld a,(fcb2+1) ; Get first char of 2nd file name |
||||
|
ld b,1 ; Set for both dir and sys files |
||||
|
cp allflag ; SYS and DIR flag specifier? |
||||
|
jr z,dirpr ; Got system specifier |
||||
|
dec b ; B=0 for sys files only |
||||
|
cp sysflag ; SYS only? |
||||
|
jr z,dirpr |
||||
|
|
||||
|
dirnly: ld b,80h ; Must be dir-only selection |
||||
|
|
||||
|
; DIRECTORY PRINT ROUTINE |
||||
|
; On entry, B reg is set as follows: |
||||
|
; 0 for only system files, 80h for only dir files, 1 for both |
||||
|
; |
||||
|
dirpr: |
||||
|
ld a,b ; Get systst flag |
||||
|
call getdir ; Load and sort directory |
||||
|
jp z,prfnf ; Print no file message |
||||
|
if wide |
||||
|
ld e,5 |
||||
|
else |
||||
|
ld e,4 ; Count down to 0 |
||||
|
endif ; wide |
||||
|
; |
||||
|
; ENTRY PRINT LOOP |
||||
|
; On entry, HL pts to files selected (terminated by 0) |
||||
|
; and E is entry counter |
||||
|
; |
||||
|
dir3: |
||||
|
ld a,(hl) ; Check for done |
||||
|
or a |
||||
|
if dirsp and spaceon |
||||
|
jp z,spaexit ; Show space when done |
||||
|
else |
||||
|
jp z,exit ; Exit if done |
||||
|
endif ; Dirsp and spaceon |
||||
|
ld a,e ; Get entry counter |
||||
|
or a ; Output CRLF if 4 or 5 entries printed in line |
||||
|
jr nz,dir3a ; Continue |
||||
|
call crlf ; New line |
||||
|
if wide |
||||
|
ld e,5 |
||||
|
else |
||||
|
ld e,4 ; Reset entry count |
||||
|
endif ; wide |
||||
|
|
||||
|
ld a,e ; Get entry count |
||||
|
dir3a: |
||||
|
if wide |
||||
|
cp 5 |
||||
|
else |
||||
|
cp 4 ; First entry? |
||||
|
endif ; wide |
||||
|
|
||||
|
jr z,dir4 |
||||
|
call print |
||||
|
; |
||||
|
if wide |
||||
|
; |
||||
|
db ' ' ; 2 spaces |
||||
|
db ' '+80h ; Then 1 more space |
||||
|
; |
||||
|
else |
||||
|
; |
||||
|
db ' ' ; Space |
||||
|
db fence+80h ; Then fence char |
||||
|
; |
||||
|
endif ; Wide |
||||
|
; |
||||
|
dir4: |
||||
|
call prfn ; Print file name |
||||
|
call break ; Check for abort |
||||
|
dec e ; Decrement entry counter |
||||
|
jr dir3 |
||||
|
|
||||
|
; End RCPDIR.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,162 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPECHO for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: ECHO |
||||
|
; Function: Echo text to console or printer |
||||
|
|
||||
|
echo: |
||||
|
xor a ; Lower case/printer off flag setting |
||||
|
ld (crtfl),a ; Printer off by default |
||||
|
|
||||
|
if upcase ; If upper case default |
||||
|
dec a |
||||
|
endif ;upcase |
||||
|
|
||||
|
ld (casefl),a ; Store flag in code below |
||||
|
ld hl,tbuff+1 ; Point to first character |
||||
|
call getchar ; Get first character (should be blank) |
||||
|
; If none, exit from routine |
||||
|
|
||||
|
; Loop to echo chars |
||||
|
|
||||
|
echo2: call getchar |
||||
|
|
||||
|
if echolst |
||||
|
cp ff ; Form feed? |
||||
|
jr z,echo3 |
||||
|
endif ;echolst |
||||
|
|
||||
|
cp '^' |
||||
|
jr nz,echo2a ; Not control character prefix |
||||
|
call getchar ; Get next character |
||||
|
and 1fh ; Convert to control character |
||||
|
jr echo2e ; Echo it |
||||
|
echo2a: |
||||
|
cp cmdchar ; Case shift prefix? |
||||
|
jr nz,echo2e ; No, normal echo |
||||
|
call getchar ; Get next character |
||||
|
|
||||
|
if echolst |
||||
|
cp prtchar ; Turn printer on? |
||||
|
jr z,echo2b ; Store non-zero in crt flag |
||||
|
cp crtchar ; Turn printer off? |
||||
|
jr nz,echo2c ; No, test for shift characters |
||||
|
xor a ; Yes, clear crt flag |
||||
|
echo2b: ld (crtfl),a |
||||
|
jr echo2 ; On to next character |
||||
|
echo2c: |
||||
|
endif ; echolst |
||||
|
|
||||
|
cp ucasechar ; Up-shift character? |
||||
|
jr z,echo2d ; Store non-zero value in case flag |
||||
|
cp lcasechar ; Lower-case character? |
||||
|
jr nz,echo2e ; No, echo the character as is |
||||
|
xor a ; Else, clear case flag |
||||
|
echo2d: ld (casefl),a |
||||
|
jr echo2 ; On to next character |
||||
|
echo2e: |
||||
|
call echout ; Send char |
||||
|
jr echo2 |
||||
|
|
||||
|
; Form feed - send new line followed by form feed if printer output |
||||
|
|
||||
|
if echolst |
||||
|
echo3: |
||||
|
ld a,(crtfl) ; Check for printer output |
||||
|
or a ; Non-zero? |
||||
|
jr z,echoff ; No, send form feed normally |
||||
|
call echonl ; Send new line |
||||
|
ld a,ff ; Send form feed |
||||
|
jr echout |
||||
|
|
||||
|
; Send form feed char to console |
||||
|
|
||||
|
echoff: |
||||
|
ld a,ff ; Get char |
||||
|
jr echo2e |
||||
|
endif ;echolst |
||||
|
|
||||
|
; End of print loop - check for printer termination |
||||
|
|
||||
|
echo4: |
||||
|
if not echolst |
||||
|
ret |
||||
|
|
||||
|
else |
||||
|
ld a,(crtfl) ; Get list mode flag |
||||
|
or a |
||||
|
ret z ; Done if no printer output |
||||
|
|
||||
|
; Output a new line |
||||
|
|
||||
|
echonl: |
||||
|
ld a,cr ; Output new line on printer |
||||
|
call echout |
||||
|
ld a,lf ; Fall thru to echout |
||||
|
endif ; not echolst |
||||
|
|
||||
|
; Output char to printer or console |
||||
|
|
||||
|
echout: |
||||
|
ld c,a ; Char in c |
||||
|
cp 'A' ; If less than 'A' |
||||
|
jr c,echouta ; Leave as is |
||||
|
cp 'Z'+1 ; If greater than 'Z' |
||||
|
jr nc,echouta ; Leave as is |
||||
|
add 20h ; Else convert to lower case |
||||
|
echouta: |
||||
|
ld d,a ; Save lower case version in d |
||||
|
casefl equ $+1 ; Pointer for in-the-code modification |
||||
|
ld a,0 |
||||
|
or a ; Upper case? |
||||
|
jr nz,echoutb ; If upper case selected, go on as is |
||||
|
ld c,d ; Else substitute lower case version |
||||
|
echoutb: |
||||
|
|
||||
|
push hl ; Save hl |
||||
|
push bc ; Save bc |
||||
|
ld de,0ch-3 ; Offset for BIOS console output |
||||
|
|
||||
|
if echolst |
||||
|
|
||||
|
crtfl equ $+1 |
||||
|
ld a,0 |
||||
|
or a ; Printer? |
||||
|
jr z,echout1 ; No |
||||
|
inc de ; Offset for BIOS printer output |
||||
|
inc de |
||||
|
inc de |
||||
|
endif ;echolst |
||||
|
|
||||
|
; Output char in C with BIOS offset in DE |
||||
|
|
||||
|
echout1: |
||||
|
call biout ; Bios output |
||||
|
pop bc ; Restore bc,hl |
||||
|
pop hl |
||||
|
ret |
||||
|
|
||||
|
; Get a character from the command tail buffer |
||||
|
|
||||
|
getchar: |
||||
|
ld a,(hl) ; Get character |
||||
|
inc hl ; Point to next one |
||||
|
or a ; Check for end of string |
||||
|
ret nz ; If not end, return |
||||
|
pop hl ; Else, clean up stack |
||||
|
jr echo4 ; And exit from routine |
||||
|
|
||||
|
; Output char in C to BIOS with offset in DE |
||||
|
|
||||
|
biout: |
||||
|
ld hl,(wboot+1) ; Get address of warm boot |
||||
|
add hl,de ; Pt to routine |
||||
|
jp (hl) ; Jump to it |
||||
|
|
||||
|
; End RCPECHO.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,76 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPERA for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.2 |
||||
|
; Date: Sept. 15, 1989 |
||||
|
; Changes: Chains to error handler with flag set to invoke transient ERA |
||||
|
; if a read only file is encountered. Propose error code |
||||
|
; 17 decimal for "file read only" error. |
||||
|
; |
||||
|
; Version: 1.1 |
||||
|
; Date: August 12, 1989 |
||||
|
; Changes: Now responds dynamically to QUIET flag, eliminating "noise". |
||||
|
; NOTE: if QUIET is active, using the inspect option or trying |
||||
|
; to erase R/O files will give meaningless messages. Use |
||||
|
; the PROT command to set R/O files to R/W first in order to |
||||
|
; erase them quietly. |
||||
|
; |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: ERA |
||||
|
; Function: Erase files |
||||
|
; Forms: |
||||
|
; ERA <afn> Erase Specified files and print their names |
||||
|
; ERA <afn> o Erase Specified files and print their names, but ask |
||||
|
; for verification before Erase is done |
||||
|
|
||||
|
era: |
||||
|
call retsave |
||||
|
ld a,(fcb2+1) ; Get eraflg if it's there |
||||
|
ld (eraflg),a ; Save it as a flag |
||||
|
ld a,1 ; Dir files only |
||||
|
call getdir ; Load directory of files |
||||
|
jp z,prfnf ; Abort if no files |
||||
|
; |
||||
|
; Main erase loop |
||||
|
; |
||||
|
era1: call break ; See if user wants to stop |
||||
|
call qplug ; Turn of output if quiet |
||||
|
push hl ; Save ptr to file |
||||
|
call prfn ; Print its name |
||||
|
ld (nxtfile),hl ; Save ptr to next file |
||||
|
pop hl ; Get ptr to this file |
||||
|
call unplug ; Turn output on |
||||
|
call rotest ; Test file pted to by hl for r/o |
||||
|
ld a,17 ; Proposed file R/O error code |
||||
|
ld b,00010000b ; EH flag to invoke transient |
||||
|
jp nz,errex1 ; Chain to transient if R/O |
||||
|
eraflg equ $+1 ; Address of flag |
||||
|
ld a,0 ; 2nd byte is flag |
||||
|
cp ' ' ; Is it an inspect option? |
||||
|
jr z,era2 ; Skip prompt if it is not |
||||
|
call eraq ; Erase? |
||||
|
jr nz,era3 ; Skip if not |
||||
|
era2: ld de,fcb1+1 ; Copy into fcb1 |
||||
|
ld b,11 ; 11 bytes |
||||
|
call blkmov |
||||
|
call initfcb1 ; Init fcb |
||||
|
ld c,19 ; Delete file |
||||
|
call bdos |
||||
|
era3: ld hl,(nxtfile) ; Hl pts to next file |
||||
|
ld a,(hl) ; Get char |
||||
|
or a ; Done? |
||||
|
if erasp and spaceon |
||||
|
jp z,spaexit |
||||
|
else |
||||
|
jp z,exit |
||||
|
endif ; Erasp and spaceon |
||||
|
call crlf ; New line |
||||
|
jr era1 |
||||
|
|
||||
|
; End RCPERA.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,119 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPH for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: HELP |
||||
|
; Function: This command displays a list of all resident commands that |
||||
|
; are supported, including those in the CPR (command processor), |
||||
|
; RCP, and FCP. |
||||
|
; |
||||
|
; Syntax: H |
||||
|
|
||||
|
clist: |
||||
|
|
||||
|
; Print the FCP-resident command names |
||||
|
|
||||
|
if listfcp |
||||
|
call print ; Print header for FCP |
||||
|
db lf |
||||
|
db 'FC','P'+80h |
||||
|
ld hl,(fcp) ; Get FCP address dynamically from ENV |
||||
|
ld a,h ; See if still there |
||||
|
or l |
||||
|
jr z,nofcp ; FCP has been removed |
||||
|
ld bc,5 ; Calculate address of FCP command table |
||||
|
add hl,bc |
||||
|
call cmdlist ; Display list of commands |
||||
|
nofcp: |
||||
|
endif ;listfcp |
||||
|
|
||||
|
; Print the CPR-resident command names |
||||
|
|
||||
|
if listcpr |
||||
|
call print ; Print "CPR" |
||||
|
db cr,lf ; Need CR if no FCP |
||||
|
db 'CP','R'+80h |
||||
|
ld hl,(ccp) ; Get CCP address from ENV |
||||
|
ld bc,offcmd ; Point to command table in CPR |
||||
|
add hl,bc |
||||
|
call cmdlist ; Display the list of commands |
||||
|
endif ;listcpr |
||||
|
|
||||
|
; Print the RCP-resident command names |
||||
|
|
||||
|
call crlf ; Skip a line |
||||
|
ld hl,rcpname ; Print RCP name |
||||
|
call printhl |
||||
|
ld hl,RCPbegin+5 ; Point to RCP command table |
||||
|
; Fall through to CMDLIST |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; Subroutine to display list of commands in a command table (code above |
||||
|
; falls through to this routine -- do not move it). The commands are |
||||
|
; displayed 5 per line with 8 character spaces allowed for each command |
||||
|
; (subject to equates below). |
||||
|
|
||||
|
cmdlist: |
||||
|
call crlf ; Start with new line |
||||
|
ld e,(hl) ; Get size of each command name into DE |
||||
|
ld d,0 |
||||
|
inc hl ; Point to name of first command |
||||
|
ld c,cmdsline ; Set names-per-line value |
||||
|
cmdlist1: |
||||
|
ld a,(hl) ; Get first character of the command name |
||||
|
or a ; See if it is null |
||||
|
jr nz,cmdlist1a ; If not, continue |
||||
|
ld a,cmdsline ; See if we are already on a new line |
||||
|
cp c |
||||
|
call nz,crlf ; If not, skip a line |
||||
|
ret |
||||
|
|
||||
|
cmdlist1a: |
||||
|
if noshow ; Option to suppress wheel-limited cmds |
||||
|
rla ; Shift high bit of name into carry bit |
||||
|
jr nc,cmdlist2 ; If not restricted, go on |
||||
|
call getwhl ; Otherwise, check wheel byte |
||||
|
or a |
||||
|
jr nz,cmdlist2 ; If wheel set, continue as usual |
||||
|
add hl,de ; Otherwise skip this command |
||||
|
jr cmdlist5 |
||||
|
endif |
||||
|
|
||||
|
; Print leading spaces between names |
||||
|
|
||||
|
cmdlist2: |
||||
|
ld a,cmdspace ; Spacing between command names |
||||
|
sub e ; Less length of each command name |
||||
|
ld b,a |
||||
|
cmdlist3: |
||||
|
call spac |
||||
|
djnz cmdlist3 |
||||
|
|
||||
|
; Print name of command |
||||
|
|
||||
|
ld b,e ; Length of each name into B |
||||
|
cmdlist4: |
||||
|
ld a,(hl) ; Get command name character |
||||
|
call conout |
||||
|
inc hl ; Point to next |
||||
|
djnz cmdlist4 |
||||
|
|
||||
|
dec c ; Decrement count of names on this line |
||||
|
jr nz,cmdlist5 ; Branch if room for more names |
||||
|
call crlf ; Otherwise, end this line and |
||||
|
ld c,cmdsline ; ..reset count for another line of commands |
||||
|
|
||||
|
; Skip to next command name |
||||
|
|
||||
|
cmdlist5: |
||||
|
inc hl ; Skip jump vector |
||||
|
inc hl |
||||
|
jr cmdlist1 ; Back to process next name |
||||
|
|
||||
|
; End RCPH.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,64 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPID for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: September 29, 1989 |
||||
|
; Changes: ID appended with 'C' if CLED is present |
||||
|
; |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: September 14, 1988 |
||||
|
; |
||||
|
; Function: Build the name of the RCP and append it at the end of the |
||||
|
; file at label RCPID. This serves two purposes: first it |
||||
|
; allows the 'H' command to describe which RCP is active, |
||||
|
; second, the string identifies the actual end of the RCP |
||||
|
; in memory. |
||||
|
; |
||||
|
; ------------------------------------------------------------------------ |
||||
|
|
||||
|
; Macros to build RCP ID for Help command |
||||
|
|
||||
|
; Under SLR and compatible assemblers, the RCP name reflects the |
||||
|
; RCP size, e.g., "RCP-21F" means the RCP occupies 21 records. |
||||
|
|
||||
|
if SLR |
||||
|
rcpid macro |
||||
|
rcplen defl RCPend - RCPbegin |
||||
|
fulrecs equ rcplen / 128 ; Full records |
||||
|
lastr equ [rcplen mod 128 + 127]/128 ; Last record, if any |
||||
|
ttlrecs equ fulrecs + lastr |
||||
|
|
||||
|
db 'RCP-' |
||||
|
db ttlrecs / 10 + '0' ; Tens of records |
||||
|
db ttlrecs mod 10 + '0' ; Ones |
||||
|
db rcptype ; 'F', 'H', etc. from RCP.LIB |
||||
|
if cledon |
||||
|
db 'C' ; Distinguish CLED versions |
||||
|
endif |
||||
|
db 0 ; ID string terminator |
||||
|
endm |
||||
|
|
||||
|
else ; Non-SLR |
||||
|
rcpid macro |
||||
|
db 'RCP-' |
||||
|
db rcptype |
||||
|
db 0 |
||||
|
endm |
||||
|
endif ; SLR |
||||
|
|
||||
|
; ----------------------------------------------------------------------- |
||||
|
|
||||
|
; Name of RCP |
||||
|
|
||||
|
; This block allows the 'H' command and/or the SHOW utility to display a name |
||||
|
; and version number for this RCP as well as the commands that are supported. |
||||
|
; It also generates a unique string marking the end of the RCP module. |
||||
|
|
||||
|
rcpname: |
||||
|
rcpid |
||||
|
|
||||
|
; End of RCPID.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,296 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPIOM for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.1 |
||||
|
; Date: August 12, 1989 |
||||
|
; Changes: POKE and PORT now respond dynamically to QUIET flag, |
||||
|
; eliminating "noise." |
||||
|
|
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Commands: PEEK, POKE, and PORT |
||||
|
|
||||
|
; ------------------------------------------------------------------ |
||||
|
; |
||||
|
; Command: PEEK |
||||
|
; Function: Display memory contents |
||||
|
; |
||||
|
; Form: |
||||
|
; PEEK startadr 128 bytes displayed |
||||
|
; PEEK startadr endadr Range of bytes displayed |
||||
|
|
||||
|
if peekon |
||||
|
peek: |
||||
|
call retsave |
||||
|
ld hl,tbuff+1 ; Find first number |
||||
|
nxtpeek equ $+1 ; Pointer for in-the-code modification |
||||
|
ld de,100h ; Default peek address if none |
||||
|
call sksp ; Skip to first token (if any) |
||||
|
call nz,hexnum ; Get start address if any |
||||
|
push de ; Save starting address |
||||
|
ld bc,peeklen ; Compute default ending address |
||||
|
ex de,hl |
||||
|
add hl,bc |
||||
|
|
||||
|
if peekchk ; Check for overflow |
||||
|
jr nc,peek0 ; If no overflow past FFFF, go on |
||||
|
ld hl,0ffffh ; Else use FFFF as ending address |
||||
|
peek0: |
||||
|
endif ;peekchk |
||||
|
|
||||
|
ex de,hl ; End address in DE |
||||
|
call sksp ; Skip to next token (if any) |
||||
|
call nz,hexnum ; Get 2nd number in DE (else default) |
||||
|
peek1: pop hl ; HL is start address, DE is end address |
||||
|
|
||||
|
if peekhdr |
||||
|
push hl ; Save starting address again |
||||
|
ld b,8 ; Output leading spaces |
||||
|
peek0a: call spac |
||||
|
djnz peek0a |
||||
|
ld b,16 ; Display 16 column headers |
||||
|
peek0b: ld a,l ; Get low byte of address |
||||
|
and 0fh ; Display low hex digit |
||||
|
call pashc |
||||
|
inc hl |
||||
|
djnz peek0b |
||||
|
; |
||||
|
; Display header for ASCII area |
||||
|
; |
||||
|
call print |
||||
|
db ' ',' '+80H ; Space over to ASCII area |
||||
|
pop hl ; Get address |
||||
|
push hl |
||||
|
ld b,16 ; Display 16 chars. ASCII header |
||||
|
peek0b1:ld a,l ; Get byte |
||||
|
and 0fh ; Mask |
||||
|
call pah ; Print ASCII char. |
||||
|
inc hl ; Next byte |
||||
|
djnz peek0b1 |
||||
|
|
||||
|
if peekbdr |
||||
|
call crlf |
||||
|
ld b,8 |
||||
|
peek0c: call spac ; Print leading spaces |
||||
|
djnz peek0c |
||||
|
ld b,16 |
||||
|
peek0d: call print |
||||
|
db ' -','-'+80h |
||||
|
djnz peek0d |
||||
|
|
||||
|
; Print border at ASCII area |
||||
|
|
||||
|
call print |
||||
|
db ' ',' '+80h ; Space to ASCII border |
||||
|
ld b,16 ; 16 dashes |
||||
|
peek0e: call print |
||||
|
db '-'+80h |
||||
|
djnz peek0e |
||||
|
endif ;peekbdr |
||||
|
|
||||
|
pop hl ; Restore starting address |
||||
|
endif ;peekhdr |
||||
|
|
||||
|
ld c,0ffh ; Use C as continue flag |
||||
|
call peek2 ; Do peek |
||||
|
ld (nxtpeek),hl ; Set continued peek address |
||||
|
jp exit |
||||
|
peek2: |
||||
|
ld a,c ; Check continuation flag |
||||
|
or a |
||||
|
ret z |
||||
|
|
||||
|
; Print line header |
||||
|
|
||||
|
peek2a: call crlf ; New line |
||||
|
ld a,h ; Print address |
||||
|
call pashc |
||||
|
ld a,l |
||||
|
call pahc |
||||
|
call dash ; Print leader |
||||
|
ld b,16 ; 16 bytes to display |
||||
|
push hl ; Save start address |
||||
|
|
||||
|
; Print hex values for 16 bytes |
||||
|
|
||||
|
peek3: ld a,(hl) ; Get next byte |
||||
|
call pashc ; Print with leading space |
||||
|
|
||||
|
; Check for last address. If C is already 0, leave it that way. |
||||
|
; Otherwise check for end address and if so set C to zero. |
||||
|
|
||||
|
ld a,c ; See if continue flag already cleared |
||||
|
or a |
||||
|
jr z,peek3a ; If so, skip test |
||||
|
ld a,h |
||||
|
sub a,d ; See if h = d |
||||
|
ld c,a |
||||
|
ld a,l |
||||
|
sub a,e ; See if l = e |
||||
|
or c ; Combine two tests |
||||
|
ld c,a |
||||
|
peek3a: inc hl ; Pt to next |
||||
|
djnz peek3 |
||||
|
|
||||
|
; Print ASCII equivalents for 16 bytes |
||||
|
|
||||
|
pop hl ; Pt to first address again |
||||
|
ld b,16 ; 16 bytes |
||||
|
call print ; Space and fence |
||||
|
db ' ' |
||||
|
db fence+80h |
||||
|
push bc ; Save flag in c |
||||
|
peek4: ld a,(hl) ; Get next byte |
||||
|
ld c,'.' ; Assume dot |
||||
|
and 7fh ; Mask it |
||||
|
cp ' ' ; Dot if less than space |
||||
|
jr c,peek5 |
||||
|
cp 7fh ; Don't print del |
||||
|
jr z,peek5 |
||||
|
ld c,a ; Char in c |
||||
|
peek5: ld a,c ; Get char |
||||
|
call conout ; Send it |
||||
|
inc hl ; Pt to next |
||||
|
djnz peek4 |
||||
|
call print ; Closing fence |
||||
|
db fence+80h |
||||
|
pop bc ; Get flag in c back |
||||
|
call break ; Allow abort |
||||
|
jr peek2 |
||||
|
endif ; Peekon |
||||
|
|
||||
|
; PAHC - Print A as 2 hex chars |
||||
|
; PASHC - With leading space |
||||
|
|
||||
|
if peekon or pokeon or porton |
||||
|
pashc: |
||||
|
push af ; Save A |
||||
|
call spac |
||||
|
pop af |
||||
|
pahc: push bc ; Save bc |
||||
|
ld c,a ; Byte in c |
||||
|
rrca ; Exchange nybbles |
||||
|
rrca |
||||
|
rrca |
||||
|
rrca |
||||
|
call pah ; Print hex char |
||||
|
ld a,c ; Get low |
||||
|
pop bc ; Restore bc and fall thru to pah |
||||
|
pah: and 0fh ; Mask |
||||
|
add '0' ; Convert to ascii |
||||
|
cp '9'+1 ; Letter? |
||||
|
jr c,pah1 |
||||
|
add 7 ; Adjust to letter |
||||
|
pah1: jp conout |
||||
|
endif ; Peekon or pokeon or porton |
||||
|
|
||||
|
; -------------------------------------------------------------------- |
||||
|
; |
||||
|
; Command: POKE |
||||
|
; Function: Place Values into Memory |
||||
|
; |
||||
|
; Form: |
||||
|
; POKE startadr val1 val2 ... |
||||
|
; |
||||
|
if pokeon |
||||
|
poke: |
||||
|
call retsave |
||||
|
ld hl,tbuff+1 ; Pt to first char |
||||
|
call sksp ; Skip to non-blank |
||||
|
jp z,numerr ; Numerical error |
||||
|
call hexnum ; Convert to number |
||||
|
call qplug ; Shut off output if quiet |
||||
|
call print |
||||
|
db ' Pok','e'+80h |
||||
|
call adrat ; Print at message (quiet sensitive) |
||||
|
call unplug ; Turn on output |
||||
|
|
||||
|
; Loop for storing hex values sequentially via POKE |
||||
|
|
||||
|
poke1: push de ; Save address |
||||
|
call sksp ; Skip to non-blank |
||||
|
jp z,exit ; Done |
||||
|
cp '"' ; Quoted text? |
||||
|
jr z,poke2 |
||||
|
call hexnum ; Get number |
||||
|
ld a,e ; Get low |
||||
|
pop de ; Get address |
||||
|
ld (de),a ; Store number |
||||
|
inc de ; Pt to next |
||||
|
jr poke1 |
||||
|
|
||||
|
; Store ASCII chars. |
||||
|
|
||||
|
poke2: pop de ; Get next address |
||||
|
inc hl ; Pt to next char |
||||
|
poke3: ld a,(hl) ; Get next char |
||||
|
or a ; Done? |
||||
|
jp z,exit |
||||
|
ld (de),a ; Put char |
||||
|
inc hl ; Pt to next |
||||
|
inc de |
||||
|
jr poke3 |
||||
|
|
||||
|
endif ; Pokeon |
||||
|
|
||||
|
; ------------------------------------------------------------------- |
||||
|
; |
||||
|
; Command: PORT |
||||
|
; Function: Display or Set I/O Port Data |
||||
|
; |
||||
|
; Forms: |
||||
|
; PORT addr - Read port and display value |
||||
|
; PORT addr value - Output value to port |
||||
|
; |
||||
|
if porton |
||||
|
port: |
||||
|
call retsave |
||||
|
ld hl,tbuff+1 ; Find first number |
||||
|
call sksp ; Skip to first command-line token |
||||
|
jp z,numerr ; Numerical error |
||||
|
call hexnum ; Get start address into de |
||||
|
push hl ; Save pointer to command tail |
||||
|
ld hl,portadl ; Modify code |
||||
|
ld (hl),e ; Move specified port addr into place |
||||
|
dec hl ; Point to opcode position |
||||
|
ld (hl),0dbh ; Poke 'in' opcode |
||||
|
dec hl |
||||
|
ld (hl),d ; Save MSB for port address |
||||
|
inc hl |
||||
|
ex (sp),hl ; Get tail pointer back while saving this one |
||||
|
call qplug ; Shut off output if quiet |
||||
|
call print ; Print header |
||||
|
db ' Por','t'+80h |
||||
|
ld a,e |
||||
|
call pashc ; Print port address |
||||
|
call sksp ; Skip to possible second value |
||||
|
jr z,portin ; Proceed with port input |
||||
|
call hexnum ; Get 2nd number in de |
||||
|
ex (sp),hl ; Get pointer to opcode back |
||||
|
ld (hl),0d3h ; Poke 'out' opcode |
||||
|
call print |
||||
|
db ': OU','T'+80h |
||||
|
ld a,e ; Get value to output |
||||
|
jr paddr |
||||
|
portin: |
||||
|
call print |
||||
|
db ': I','N'+80h |
||||
|
xor a ; Make sure high port address = 0 (for hd64180) |
||||
|
portadh equ $+1 |
||||
|
paddr: ld b,0 ; ..for both in and out instructions |
||||
|
opcode: |
||||
|
db 0 ; Opcode for in or out inserted by code above |
||||
|
portadl: |
||||
|
db 0 ; Port address inserted by code above |
||||
|
call pashc |
||||
|
call unplug ; Turn on output |
||||
|
pop hl ; Clean up stack |
||||
|
jp exit |
||||
|
|
||||
|
endif ; Porton |
||||
|
|
||||
|
; End RCPIOM.Z80 |
||||
|
|
||||
@ -0,0 +1,256 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPLT for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.1 |
||||
|
; Date: August 26, 1989 |
||||
|
; Changes: Some WordStar characters caused garbage to appear on the |
||||
|
; screen. Now filters control characters other than CR, |
||||
|
; TAB, and LF. Thanks to Gene Pizzetta for this suggestion. |
||||
|
; |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Commands: LIST and TYPE |
||||
|
|
||||
|
; ---------------------------------------------------------------- |
||||
|
; |
||||
|
; Command: LIST |
||||
|
; Function: Print out specified file on the LST: Device |
||||
|
; Forms: |
||||
|
; LIST Do form feed |
||||
|
; LIST <afn> Print file(s) (NO Paging) |
||||
|
; Notes: |
||||
|
; The flags which apply to TYPE do not take effect with LIST |
||||
|
; The tab expansion code is required for LST: output. |
||||
|
|
||||
|
if liston |
||||
|
list: |
||||
|
ld a,(fcb1+1) ; Get filename or ' ' from command |
||||
|
ld (prflg),a ; List flag (A can't be 0) |
||||
|
cp ' ' ; Null command? |
||||
|
jp z,lstff ; Yes, do form feed and return |
||||
|
jr type0 ; No, send file to LST: |
||||
|
endif ;liston |
||||
|
|
||||
|
; -------------------------------------------------------------------- |
||||
|
; |
||||
|
; Command: TYPE |
||||
|
; Function: Print out specified file on the CON: Device |
||||
|
; Forms: |
||||
|
; TYPE <afn> Print file |
||||
|
; TYPE <afn> P Print file with paging flag |
||||
|
; Notes: |
||||
|
; The flag PGDFLG defines the letter which toggles the paging |
||||
|
; facility (P in the forms section above) |
||||
|
; The flag PGDFLT determines if TYPE is to page by default |
||||
|
; (PGDFLT=TRUE if TYPE pages by default); combined with |
||||
|
; PGDFLG, the following events occur -- |
||||
|
; If PGDFLT = TRUE, PGDFLG turns OFF paging |
||||
|
; If PGDFLT = FALSE, PGDFLG turns ON paging |
||||
|
|
||||
|
type: |
||||
|
if liston |
||||
|
xor a ; Turn off printer flag |
||||
|
ld (prflg),a ; Set flag |
||||
|
endif ; Liston |
||||
|
|
||||
|
; Entry point for list function (LIST) |
||||
|
|
||||
|
type0: call retsave ; Save return address |
||||
|
ld a,(fcb2+1) ; Get page flag from command |
||||
|
ld (pgflg),a ; Store it |
||||
|
ld a,1 ; Select dir files |
||||
|
call getdir ; Allow ambiguous files (HL points to buffer) |
||||
|
jp z,noflerr ; EH no files error |
||||
|
ld a,(lins) ; Set line count |
||||
|
ld (pagcnt),a |
||||
|
jr typex1 |
||||
|
|
||||
|
; Entry point for successive files |
||||
|
|
||||
|
typex0: pop hl ; Balance stack for skip |
||||
|
pop hl ; ..to next file command (^X) |
||||
|
typex: ld hl,(nxtfile) ; Get ptr to next file |
||||
|
ld a,(hl) ; Any files? |
||||
|
or a |
||||
|
jp z,exit |
||||
|
|
||||
|
if liston |
||||
|
ld a,(prflg) ; Check for lst: output |
||||
|
or a ; 0=type |
||||
|
jr z,typex1 |
||||
|
ld a,cr ; Bol on printer |
||||
|
call lcout |
||||
|
call lstff ; Form feed the printer |
||||
|
; fall thru |
||||
|
endif ; Liston |
||||
|
|
||||
|
; Entry point for 1st file |
||||
|
typex1: ld de,fcb1+1 ; Copy into fcb1 |
||||
|
ld b,11 ; 11 bytes |
||||
|
call blkmov |
||||
|
ld (nxtfile),hl ; Set ptr to next file |
||||
|
call initfcb1 ; Init fcb1 |
||||
|
ld c,15 ; Open file |
||||
|
call bdos |
||||
|
inc a ; Set error flag |
||||
|
jp z,noflerr ; EH no files error |
||||
|
ld a,cr ; New line |
||||
|
call lcout |
||||
|
ld a,lf |
||||
|
call lcout |
||||
|
ld bc,080h ; Set char position and tab count |
||||
|
; (b=0=tab, c=080h=char position) |
||||
|
|
||||
|
; Main loop for loading next block |
||||
|
|
||||
|
type2: ld a,c ; Get char count |
||||
|
cp 80h |
||||
|
jr c,type3 |
||||
|
call break |
||||
|
push bc ; Read next block |
||||
|
ld de,fcb1 ; Pt to fcb |
||||
|
ld c,20 ; Read record |
||||
|
call bdos |
||||
|
or a ; Set flags |
||||
|
pop bc |
||||
|
jr nz,typex ; End of file? |
||||
|
ld c,0 ; Set char count |
||||
|
ld hl,tbuff ; Pt to first char |
||||
|
|
||||
|
; Main loop for printing chars in tbuff |
||||
|
|
||||
|
type3: ld a,(hl) ; Get next char |
||||
|
and 7fh ; Mask out msb |
||||
|
cp 1ah ; End of file (^z)? |
||||
|
jr z,typex ; Next file if so |
||||
|
|
||||
|
; Output char to CON: or LST: device with tabulation |
||||
|
|
||||
|
cp cr ; Reset tab count? |
||||
|
jr z,type4 |
||||
|
cp lf ; Reset tab count? |
||||
|
jr z,type4 |
||||
|
cp tab ; Tab? |
||||
|
jr z,type5 |
||||
|
cp ' ' ; Skip other ctls. |
||||
|
jr c,type6 |
||||
|
|
||||
|
; Output char and increment char count |
||||
|
|
||||
|
call lcout ; Output char |
||||
|
inc b ; Increment tab count |
||||
|
jr type6 |
||||
|
|
||||
|
; Output <CR> or <LF> and reset tab count |
||||
|
|
||||
|
type4: call lcout ; Output <cr> or <lf> |
||||
|
ld b,0 ; Reset tab counter |
||||
|
jr type6 |
||||
|
|
||||
|
; Tabulate |
||||
|
|
||||
|
type5: ld a,' ' ; <sp> |
||||
|
call lcout |
||||
|
inc b ; Incr pos count |
||||
|
ld a,b |
||||
|
and 7 |
||||
|
jr nz,type5 |
||||
|
|
||||
|
; Continue processing |
||||
|
|
||||
|
type6: |
||||
|
inc c ; Increment char count |
||||
|
inc hl ; Pt to next char |
||||
|
jr type2 |
||||
|
|
||||
|
; Send a formfeed to LST:. Assumes PRFLG <> 0. |
||||
|
|
||||
|
lstff: |
||||
|
ld a,ff ; formfeed |
||||
|
; fall thru |
||||
|
|
||||
|
; Send output to LST: or CON:, as per the flag |
||||
|
; Return with Z if abort |
||||
|
|
||||
|
lcout: push hl ; Save regs |
||||
|
push bc |
||||
|
ld e,a ; Char in e |
||||
|
ld c,2 ; Output to con: |
||||
|
|
||||
|
if liston |
||||
|
prflg equ $+1 ; Pointer for in-the-code modification |
||||
|
ld a,0 ; 2nd byte is the print flag |
||||
|
or a ; 0=type |
||||
|
jr z,lc1 |
||||
|
ld c,5 ; Output to lst: |
||||
|
endif ; Liston |
||||
|
|
||||
|
lc1: push de ; Save char |
||||
|
call bdos ; Output char in e |
||||
|
pop de ; Get char |
||||
|
ld a,e |
||||
|
cp lf ; New line? |
||||
|
jr nz,lc2 ; No, return |
||||
|
call break ; Check for abort |
||||
|
jp z,typex0 ; Skip if ^X |
||||
|
|
||||
|
if liston |
||||
|
ld a,(prflg) ; Output to lst:? |
||||
|
or a ; Nz = yes |
||||
|
jr nz,lc2 |
||||
|
endif ; Liston |
||||
|
|
||||
|
; New line, so check for paging |
||||
|
|
||||
|
ld hl,pagcnt |
||||
|
dec (hl) |
||||
|
jr nz,lc2 ; Jump if not end of page |
||||
|
ld a,(lins) |
||||
|
ld (hl),a ; Reset counter |
||||
|
pgflg equ $+1 ; Pointer to in-the-code buffer |
||||
|
ld a,0 ; 2nd byte is the paging flag |
||||
|
cp pgdflg ; Page default override option wanted? |
||||
|
|
||||
|
if pgdflt ; If paging is default |
||||
|
jr z,lc2 ; Pgdflg means no paging |
||||
|
else |
||||
|
jr nz,lc2 ; Pgdflg means page |
||||
|
endif ; Pgdflt |
||||
|
|
||||
|
push hl ; Save hl |
||||
|
call print |
||||
|
db cr,lf,' Typing',' '+80h |
||||
|
ld hl,fcb1+1 ; Print file name |
||||
|
call prfn |
||||
|
call dash ; Print dash |
||||
|
call conin ; Get input |
||||
|
pop hl ; Restore hl |
||||
|
call break1 ; Set Z flag or abort |
||||
|
push af ; Save results |
||||
|
|
||||
|
if typecls and clson |
||||
|
call cls ; Clear between screens |
||||
|
else |
||||
|
call crlf |
||||
|
endif |
||||
|
|
||||
|
pop af ; Get results |
||||
|
jp z,typex0 ; Control-X, so skip to next file |
||||
|
cp ctrlz ; If Control-Z, |
||||
|
jr nz,lc2 |
||||
|
ld a,pgdflg ; Switch to non-default |
||||
|
ld (pgflg),a ; ..paging mode |
||||
|
lc2: pop bc ; Restore regs |
||||
|
pop hl |
||||
|
ret |
||||
|
|
||||
|
; Storage for line counter |
||||
|
|
||||
|
pagcnt: |
||||
|
ds 1 |
||||
|
|
||||
|
; End RCPLT.LIB |
||||
|
|
||||
@ -0,0 +1,130 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPPROT for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.1 |
||||
|
; Date: August 12, 1989 |
||||
|
; Changes: Now responds dynamically to QUIET flag, eliminating "noise." |
||||
|
|
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: PROT |
||||
|
; Function: To set the attributes of a file (R/O, SYS, and ARC) |
||||
|
; Form: PROT afn RSAI |
||||
|
; Comments: If R, S, or A are omitted, the file is made R/W, DIR, or |
||||
|
; modified, respectively. R, S, A, and I may be in any order. |
||||
|
; If I is present, Inspection is enabled. |
||||
|
|
||||
|
att: |
||||
|
call retsave |
||||
|
call dirchek ; Test bad directory |
||||
|
xor a ; Set no inspect |
||||
|
ld (inspect),a |
||||
|
ld hl,0 ; Set r/o and sys attributes off |
||||
|
ld c,0 ; Set Arc attribute off |
||||
|
ld de,fcb2+1 ; Pt to attributes |
||||
|
ld b,4 ; 4 chars max |
||||
|
att1: |
||||
|
ld a,(de) ; Get char |
||||
|
inc de ; Pt to next |
||||
|
cp 'I' ; Inspect? |
||||
|
jr z,atti |
||||
|
cp 'R' ; Set r/o? |
||||
|
jr z,attr |
||||
|
cp 'S' ; Set sys? |
||||
|
jr z,atts |
||||
|
cp 'A' |
||||
|
jr z,atta |
||||
|
att2: |
||||
|
djnz att1 |
||||
|
jr att3 |
||||
|
atti: |
||||
|
ld (inspect),a ; Set flag |
||||
|
jr att2 |
||||
|
attr: |
||||
|
ld h,a ; Save R/O flag |
||||
|
jr att2 |
||||
|
atts: |
||||
|
ld l,a ; Save SYS flag |
||||
|
jr att2 |
||||
|
atta: |
||||
|
ld c,a ; Save ARC |
||||
|
jr att2 |
||||
|
att3: |
||||
|
ld (fatt2),hl ; Save file attributes |
||||
|
ld a,c |
||||
|
ld (fatt1),a ; Save Arc attribute |
||||
|
ld a,1 ; Select dir and sys files |
||||
|
call getdir ; Load directory |
||||
|
jp z,noflerr ; Tell error handler no file |
||||
|
jr att5 |
||||
|
att4: |
||||
|
ld hl,(nxtfile) ; Pt to next file |
||||
|
ld a,(hl) ; End of list? |
||||
|
or a |
||||
|
jp z,exit |
||||
|
call crlf ; New line |
||||
|
att5: call break ; Check for possible abort |
||||
|
call qplug ; Turn off output if quiet |
||||
|
push hl ; Save ptr to current file |
||||
|
call prfn ; Print its name |
||||
|
ld (nxtfile),hl ; Save ptr to next file |
||||
|
call print |
||||
|
db ' Set to R','/'+80h |
||||
|
ld hl,(fatt2) ; Get attributes |
||||
|
ld c,'W' ; Assume r/w |
||||
|
ld a,h ; Get r/o bit |
||||
|
or a |
||||
|
jr z,att6 |
||||
|
ld c,'O' ; Set r/o |
||||
|
att6: ld a,c ; Get char |
||||
|
call conout |
||||
|
ld a,l ; Get sys flag |
||||
|
or a ; Set flag |
||||
|
jr z,att7 |
||||
|
call print |
||||
|
db ', SY','S'+80h |
||||
|
att7: ld a,(fatt1) |
||||
|
or a |
||||
|
jr z,att7a |
||||
|
call print |
||||
|
db ', AR','C'+80h |
||||
|
att7a: call unplug ; Turn output on |
||||
|
inspect equ $+1 ; Ptr for in-the-code modification |
||||
|
ld a,0 ; Get inspect flag |
||||
|
or a ; Z=no |
||||
|
pop hl ; Get ptr to current file |
||||
|
jr z,att8 |
||||
|
call eraq1 ; Ask for y/n |
||||
|
jr nz,att4 ; Advance to next file if not y |
||||
|
att8: ld de,fcb1+1 ; Copy into fcb1 |
||||
|
ld b,11 ; 11 bytes |
||||
|
call blkmov |
||||
|
ex de,hl |
||||
|
dec hl ; Pt to archive byte |
||||
|
fatt1 equ $+1 |
||||
|
ld a,0 |
||||
|
call attset |
||||
|
dec hl ; Pt to sys byte |
||||
|
fatt2 equ $+1 ; Ptr for in-the-code modification |
||||
|
ld de,0 ; Get attributes |
||||
|
ld a,e ; Get sys flag |
||||
|
call attset ; Set attribute correctly |
||||
|
dec hl ; Pt to r/o byte |
||||
|
ld a,d ; Get r/o flag |
||||
|
call attset |
||||
|
ld de,fcb1 ; Pt to fcb |
||||
|
ld c,30 ; Set attributes |
||||
|
call bdos |
||||
|
jp att4 |
||||
|
attset: |
||||
|
res 7,(hl) ; Clear attribute |
||||
|
or a |
||||
|
ret z ; 0=clear attribute |
||||
|
set 7,(hl) ; Set attribute |
||||
|
ret |
||||
|
|
||||
|
; End RCPPROT.LIB |
||||
|
|
||||
@ -0,0 +1,49 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPQUIET for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.1 |
||||
|
; Date: August 6, 1989 |
||||
|
; Changes: Now "Q R[eset]" and "Q S[et]" just reset and set quiet status |
||||
|
; without showing it, and Q alone (or with any other character, |
||||
|
; e.g., "Q ?") always just shows status. |
||||
|
; Forms: |
||||
|
; Q - Display quiet flag (always) |
||||
|
; Q s - Set quiet flag ON |
||||
|
; Q r - Set quiet flag OFF |
||||
|
; |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: Q |
||||
|
; Function: Set the Quiet flag on or off |
||||
|
; Comments: If QQUIET equate is true, then RCP does not report |
||||
|
; quiet status with the Q command. |
||||
|
; Forms: |
||||
|
; Q - Display quiet flag (if QQUIET false) |
||||
|
; Q s - Set quiet flag ON |
||||
|
; Q r - Set quiet flag OFF |
||||
|
|
||||
|
quset: |
||||
|
ld a,(fcb1+1) ; Get first char |
||||
|
ld b,1 ; Prepare to turn on |
||||
|
cp 'S' ; S-et quiet (ON) |
||||
|
jr z,quset1 |
||||
|
ld b,0 ; Prepare to turn off |
||||
|
cp 'R' ; R-eset quiet (OFF) |
||||
|
jr nz,qmsg ; Neither S nor R, so display |
||||
|
quset1: |
||||
|
ld a,b |
||||
|
ld (quiet),a |
||||
|
ret |
||||
|
|
||||
|
qmsg: |
||||
|
; Print Quiet Flag Message |
||||
|
|
||||
|
ld a,(quiet) |
||||
|
jp tella ; Say " On" or " Off" and return |
||||
|
|
||||
|
; End RCPQUIET.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,108 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPR for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.5 |
||||
|
; Date: August 30, 1989 |
||||
|
; Changes: Minor bug fix as suggested by Howard Goldstein. |
||||
|
; |
||||
|
; Version: 1.4 |
||||
|
; Date: August 26, 1989 |
||||
|
; Changes: Now performs reset 37 for ALL drives under CP/M 2.2 or ZRDOS |
||||
|
; to ensure that fast fixed disks are reset under ZRDOS, then |
||||
|
; exits with reset 13 to compensate for bugs in ZRDOS/CP/M 2.2 |
||||
|
; reset 37. Still resets individual drives selectively under |
||||
|
; CP/M Plus and ZS/ZDDOS. |
||||
|
|
||||
|
; Version: 1.3 |
||||
|
; Date: August 11, 1989 |
||||
|
; Changes: Now responds dynamically to QUIET flag, eliminating "noise." |
||||
|
; Now performs reset 37 in ALL cases, reset 13 as well if not |
||||
|
; CP/M Plus or ZSDOS (per suggestion by Howard Goldstein). |
||||
|
|
||||
|
; Version: 1.2 |
||||
|
; Date: December 30, 1988 |
||||
|
; Changes: Now resets single drives under Z3PLUS. |
||||
|
|
||||
|
; Version: 1.1 |
||||
|
; Date: September 11, 1988 |
||||
|
; Changes: Fixed bug which failed to detect ZRDOS. ZRDOS' function |
||||
|
; 37, like CP/M's, is not reliable. |
||||
|
|
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: RESET |
||||
|
; Function: Reset the disk system |
||||
|
; Forms: R [d: or dir:] - ZSDOS or CP/M Plus |
||||
|
; R - CP/M 2.2 or ZRDOS |
||||
|
; Comments: ZRDOS does not require a disk system reset when disks are |
||||
|
; changed, but directory programs will not show the correct |
||||
|
; size if this is not done. It is also good practice. Since |
||||
|
; no warm boot is performed, the disk in drive A need not have |
||||
|
; the operating system on it. |
||||
|
; |
||||
|
; Under ZSDOS or CP/M Plus, individual drives may be reset, and |
||||
|
; if RESETSP is true, space remaining is also given. If |
||||
|
; the fast hard disk reset capability is enabled under ZSDOS, |
||||
|
; any "fast" fixed disks are also reset at this time. |
||||
|
; |
||||
|
; NOTE: It is necessary to reset a legal directory or DU when there are |
||||
|
; protected directories. |
||||
|
|
||||
|
reset: ld a,(quiet) |
||||
|
or a ; Skip message if quiet |
||||
|
jr nz,QReset |
||||
|
call print ; Report action |
||||
|
db ' Rese','t'+80h |
||||
|
QReset: call cpmver ; CP/M Plus? |
||||
|
jr nc,reset0 ; Yes |
||||
|
ld c,48 |
||||
|
call bdos ; ZRDOS or CP/M? |
||||
|
ld a,h |
||||
|
or a |
||||
|
jr nz,reset0 ; No, assume bug-free F37 |
||||
|
ld de,0ffffh ; Yes, reset ALL drives, both ways |
||||
|
ld c,37 |
||||
|
call bdos |
||||
|
ld c,13 |
||||
|
jp bdos ; Yes, do regular reset |
||||
|
|
||||
|
; Reset individual drive(s) |
||||
|
|
||||
|
reset0: call dirchek ; Abort with error if illegal drivespec |
||||
|
ld a,(fcb1) ; Use default drive? |
||||
|
or a |
||||
|
jr nz,reset1 ; No, use drive from FCB1 |
||||
|
ld a,(cdrv) ; Yes, get ZCPR 3.3 current drive byte |
||||
|
inc a ; Shift range to 1..16 |
||||
|
reset1: ld hl,1 ; Map drive "A:" |
||||
|
reset2: dec a ; Done yet? |
||||
|
jr z,reset3 ; Yes |
||||
|
add hl,hl ; No, shift vector to next drive |
||||
|
jr reset2 |
||||
|
|
||||
|
; Check for fixed disks |
||||
|
|
||||
|
reset3: push hl ; Save current or specified vector |
||||
|
ld c,39 |
||||
|
call bdos ; ZSDOS return fixed disks in HL |
||||
|
pop de ; Restore vector |
||||
|
ld a,d |
||||
|
or h ; Add any fixed disks |
||||
|
ld d,a |
||||
|
ld a,e |
||||
|
or l |
||||
|
ld e,a |
||||
|
ld c,37 ; Reset individual drive(s) |
||||
|
|
||||
|
if spaceon and resetsp |
||||
|
call bdos |
||||
|
jp crspace ; Show space remaining (QUIET sensitive) |
||||
|
else |
||||
|
jp bdos ; Do reset and return |
||||
|
endif |
||||
|
|
||||
|
; End RCPR.LIB |
||||
|
|
||||
@ -0,0 +1,165 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPREG for Z34RCP |
||||
|
; Version: 1.1 |
||||
|
; Date: August 11, 1989 |
||||
|
; Changes: Register Set, Decrement, and Increment commands now respond |
||||
|
; dynamically to QUIET flag, eliminating "noise." |
||||
|
|
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: REG |
||||
|
; Function: Manipulate Memory Registers |
||||
|
; |
||||
|
; Forms: |
||||
|
; REG D or REG <-- Display 10 Register Values |
||||
|
; REG Mreg <-- Decrement Register Value |
||||
|
; REG Preg <-- Increment Register Value |
||||
|
; REG Sreg value <-- Set Register Value |
||||
|
; |
||||
|
; Vers 2.1 Joe Wright |
||||
|
; |
||||
|
; REG reg <-- Display a single register value |
||||
|
; |
||||
|
; REG numbers now range from 0 to 31, although only the first ten are |
||||
|
; displayed with REG D. |
||||
|
; |
||||
|
; REG now treats the program error byte as register E. |
||||
|
; |
||||
|
register: |
||||
|
ld de,fcb1+2 ; Pt to first arg |
||||
|
ld a,(de) ; Get possible digit |
||||
|
call regptr ; Pt hl to potential register |
||||
|
dec de ; Point to command |
||||
|
ld a,(de) |
||||
|
cp 'S' ; Set? |
||||
|
jr z,rset |
||||
|
cp 'P' ; Plus? |
||||
|
jr z,rinc |
||||
|
cp 'M' ; Minus? |
||||
|
jr z,rdec |
||||
|
cp ' ' |
||||
|
jr z,rshow |
||||
|
cp 'D' |
||||
|
jr z,rshow |
||||
|
call regptr |
||||
|
jp regout |
||||
|
|
||||
|
; Increment register value |
||||
|
; HL pts to memory register on input |
||||
|
|
||||
|
rinc: inc (hl) ; Increment it |
||||
|
jr Qregout ; Print result |
||||
|
|
||||
|
; Decrement register value |
||||
|
; HL pts to memory register on input |
||||
|
|
||||
|
rdec: dec (hl) ; Decrement value |
||||
|
jr Qregout ; Print result |
||||
|
|
||||
|
; Show first ten registers and Program Error byte |
||||
|
|
||||
|
rshow: call rshow10 |
||||
|
ld hl,z3msg+6 |
||||
|
jp regout |
||||
|
|
||||
|
rshow10:xor a ; Select register 0 |
||||
|
ld b,a ; Counter set to 0 in b |
||||
|
call regp1 ; Hl pts to register 0 |
||||
|
rshow1: ld a,b ; Get counter value |
||||
|
cp 10 ; First ten registers |
||||
|
ret z ; Exit if done |
||||
|
push bc ; Save counter |
||||
|
push hl ; Save pointer |
||||
|
call regout ; Print register value |
||||
|
pop hl ; Get pointer |
||||
|
pop bc ; Get counter |
||||
|
inc b ; Increment counter |
||||
|
ld a,b ; Check for new line |
||||
|
and 3 |
||||
|
call z,crlf ; Newline after fourth display |
||||
|
inc hl ; Pt to next register |
||||
|
jr rshow1 |
||||
|
|
||||
|
; Set register value |
||||
|
; HL pts to register on input |
||||
|
|
||||
|
rset: |
||||
|
ld de,fcb2+1 ; Pt to value |
||||
|
call de2bin ; Eval string at de to binary in b |
||||
|
ld (hl),b ; Set value |
||||
|
|
||||
|
; Enter with HL pointing to the register. HL is maintained. |
||||
|
; |
||||
|
qregout:ld a,(quiet) |
||||
|
or a |
||||
|
ret nz |
||||
|
regout: call print |
||||
|
db ' Reg',' '+80h |
||||
|
ld de,z3msg+30h ; Register 0 |
||||
|
sbc hl,de ; Register number in hl |
||||
|
ld a,l |
||||
|
cp 32 ; A numbered register? |
||||
|
jr c,rego0 ; Yep |
||||
|
call print |
||||
|
db ' ','E'+80h |
||||
|
jr rego1 ; Report |
||||
|
|
||||
|
rego0: push hl |
||||
|
push de |
||||
|
ld b,0 ; Suppress zeros |
||||
|
call decdsp2 ; Report register number |
||||
|
pop de |
||||
|
pop hl |
||||
|
rego1: add hl,de ; Hl points to register again |
||||
|
call print |
||||
|
db ' =',' '+80h |
||||
|
ld l,(hl) |
||||
|
xor a |
||||
|
ld h,a |
||||
|
ld b,a ; Suppress leading zeros |
||||
|
jp decdsp3 ; Display value |
||||
|
|
||||
|
; Evaluate decimal string at DE to binary in B |
||||
|
|
||||
|
de2bin: ld b,0 ; Init value to zero |
||||
|
de2b: ld a,(de) ; Get this digit |
||||
|
inc de ; Pt to next |
||||
|
sub '0' ; Convert to binary |
||||
|
ret c ; A space, finished |
||||
|
cp 10 ; Range? |
||||
|
ret nc ; Not decimal, finished |
||||
|
ld c,a ; Digit in c |
||||
|
ld a,b ; Multiply old by 10 |
||||
|
add a,a ; *2 |
||||
|
add a,a ; *4 |
||||
|
add a,b ; *5 |
||||
|
add a,a ; *10 |
||||
|
add a,c ; Add in new digit |
||||
|
ld b,a ; Result in b |
||||
|
jr de2b ; Again |
||||
|
|
||||
|
; Set HL to point to memory register whose index is pted to by HL |
||||
|
; On input, A contains register char |
||||
|
; On output, HL = address of memory register (reg 0 assumed if error) |
||||
|
|
||||
|
regptr: ld hl,z3msg+6 ; The e register |
||||
|
cp 'E' |
||||
|
ret z |
||||
|
push de |
||||
|
call de2bin ; Get register number in b |
||||
|
pop de |
||||
|
ld a,b |
||||
|
cp 32 ; Range 0-31 |
||||
|
ld a,0 |
||||
|
jr nc,regp1 ; Out of range, use 0 |
||||
|
ld a,b ; Value in a |
||||
|
regp1: ld hl,z3msg+30h ; Pt to memory registers |
||||
|
add a,l ; Pt to proper register |
||||
|
ld l,a |
||||
|
ret ; No chance of crossing page boundary |
||||
|
|
||||
|
; End RCPREG.LIB |
||||
|
|
||||
@ -0,0 +1,100 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPREN for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: REN |
||||
|
; Function: To change the name of an existing file |
||||
|
; Forms: |
||||
|
; LEFTRIGHT false: |
||||
|
; REN <New [du: or dir:]ufn>=<Old [du: or dir:]ufn> |
||||
|
; LEFTRIGHT true: |
||||
|
; REN <Old [du: or dir:]ufn> <New [du: or dir:]ufn> |
||||
|
; LEFTRIGHT and TESTEQ both true: |
||||
|
; Either of the above forms may be used. |
||||
|
|
||||
|
ren: |
||||
|
call retsave |
||||
|
call dirchek ; Test bad dirspec |
||||
|
|
||||
|
if leftright |
||||
|
call fcbswap ; Exchange command line fcb's |
||||
|
endif |
||||
|
; |
||||
|
; STEP 1: See if old name is ambiguous |
||||
|
; |
||||
|
ld hl,fcb2+1 ; Can't be ambiguous |
||||
|
call ambchk1 |
||||
|
; |
||||
|
; STEP 2: Log into user area |
||||
|
; |
||||
|
; If dirspec given at old name, use it |
||||
|
; else use dirspec (or default) given at new name. |
||||
|
|
||||
|
ld hl,fcb1 ; Pt to new name |
||||
|
push hl |
||||
|
ld de,fcb2 ; Pt to old name |
||||
|
push de ; Save ptr |
||||
|
ld a,(de) ; Test if dirspec issued |
||||
|
or a ; ..at old name |
||||
|
jr z,ren1 ; No, use user at new name |
||||
|
ld (hl),a ; Stuff drive into new file |
||||
|
ld a,(fcb2+13) ; Yes, log to user area |
||||
|
call setusr ; ..of old name |
||||
|
jr ren2 |
||||
|
; |
||||
|
; Use dirspec at new name (none given at old name) |
||||
|
; |
||||
|
ren1: |
||||
|
ld a,(hl) ; Stuff drive of new name |
||||
|
ld (de),a ; ..into old name |
||||
|
call logusr ; Log to user at new name |
||||
|
ren2: |
||||
|
; |
||||
|
; STEP 3: See if old file is R/O |
||||
|
; |
||||
|
pop de ; Restore ptr to old FCB |
||||
|
push de ; Save it again |
||||
|
ld c,17 ; Look for old file |
||||
|
call bdos |
||||
|
inc a |
||||
|
jr z,rnxit |
||||
|
call getsbit ; Match found, get ptr to entry in tbuff |
||||
|
ex de,hl ; Hl pts to entry |
||||
|
inc hl ; Pt to fn |
||||
|
call rotest ; See if file is r/o |
||||
|
jr nz,rnxit1 ; Abort if so |
||||
|
; |
||||
|
; STEP 4: See if new file already exists |
||||
|
; EXTEST performs a number of checks: |
||||
|
; 1) Ambiguity |
||||
|
; 2) R/O |
||||
|
; 3) If file exists and not R/O, permission to delete |
||||
|
; |
||||
|
call extest |
||||
|
jr z,rnxit1 ; R/o or no permission |
||||
|
; |
||||
|
; STEP 5: Exchange file name fields for rename |
||||
|
; |
||||
|
pop de ; Pt to old |
||||
|
pop hl ; Pt to new |
||||
|
push hl ; Save ptr |
||||
|
ld b,12 ; 12 bytes |
||||
|
call iswap1 |
||||
|
; |
||||
|
; STEP 6: Rename the file |
||||
|
; |
||||
|
pop de ; Get ptr to FCB |
||||
|
ld c,23 ; Rename |
||||
|
call bdos |
||||
|
inc a ; Set zero flag if error |
||||
|
rnxit: |
||||
|
jp z,noflerr ; EH print no source file message |
||||
|
rnxit1: |
||||
|
jp exit |
||||
|
|
||||
|
; End RCPREN.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,163 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPSP for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.2 |
||||
|
; Date: August 11, 1989 |
||||
|
; Changes: CRSPACE does nothing if QUIET is true. |
||||
|
; |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.1 |
||||
|
; Date: December 30, 1988 |
||||
|
; Changes: Calls CPMVER common routine. |
||||
|
; Sets DMA to TBUFF for CP/M Plus in case we chained to SP. |
||||
|
|
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: SP |
||||
|
; Function: Shows space remaining on designated drive |
||||
|
; Syntax: SP [DIR:|DU:] |
||||
|
; Comments: This code can be called by several other RCP commands so that |
||||
|
; they can show the space remaining on the disk after their |
||||
|
; operation. |
||||
|
|
||||
|
; Now works with CP/M Plus. |
||||
|
|
||||
|
if [erasp or cpsp or dirsp] |
||||
|
crspace: ; Used to call space after other subroutines |
||||
|
ld a,(quiet) |
||||
|
or a ; Skip if we're being quiet |
||||
|
ret nz |
||||
|
call crlf ; Start new line |
||||
|
jr space0 ; Skip directory check |
||||
|
endif ;[erasp or cpsp or dirsp] |
||||
|
space: |
||||
|
call dirchek ; Abort to EH on bad dirspec |
||||
|
space0: ld a,(fcb1) ; Determine requested drive |
||||
|
or a ; If drive explicitly selected |
||||
|
jr nz,space1 ; ..then skip |
||||
|
ld a,(cdrv) ; Get current drive from ZCPR 3.4 |
||||
|
inc a ; Shift to range 1..16 |
||||
|
|
||||
|
space1: |
||||
|
dec a ; Shift to range 0..15 |
||||
|
ld e,a ; Save in E for selecting disk below |
||||
|
add a,'A' ; Convert to letter and |
||||
|
ld (seldrv),a ; save in message string below |
||||
|
ld c,14 ; BDOS select disk function |
||||
|
call bdos ; Not needed if no drive selected, but smallest |
||||
|
; ..possible code size this way. |
||||
|
|
||||
|
; Here we extract the following disk parameter information from the disk |
||||
|
; parameter block (DPB): |
||||
|
; BLKSHF: block shift factor (1 byte) |
||||
|
; BLKMAX: max number of blocks on disk (2 bytes) |
||||
|
|
||||
|
call cpmver ; What BDOS is running? |
||||
|
jr nc,isplus |
||||
|
ld c,31 ; BDOS get disk parameters function |
||||
|
call bdos |
||||
|
inc hl ; Advance to block shift factor byte |
||||
|
inc hl |
||||
|
ld a,(hl) ; Get value and |
||||
|
ld (blkshf),a ; ..save it in code below |
||||
|
inc hl ; Advance to max block number word |
||||
|
inc hl |
||||
|
inc hl |
||||
|
ld e,(hl) ; Get value into HL |
||||
|
inc hl |
||||
|
ld d,(hl) |
||||
|
inc de ; Add 1 for max number of blocks |
||||
|
|
||||
|
; Compute amount of free space left on disk |
||||
|
|
||||
|
dfree: |
||||
|
ld c,27 ; BDOS get allocation vector function |
||||
|
push de ; Save BLKMAX value |
||||
|
call bdos ; Get allocation vector into HL |
||||
|
ld b,h ; Copy allocation vector to BC |
||||
|
ld c,l |
||||
|
pop hl ; Restore BLKMAX value to HL |
||||
|
ld de,0 ; Inititialize count of free blocks |
||||
|
|
||||
|
; At this point we have |
||||
|
; BC = allocation vector address |
||||
|
; DE = free block count |
||||
|
; HL = number of blocks on disk |
||||
|
|
||||
|
free1: push bc ; Save allocation address |
||||
|
ld a,(bc) ; Get bit pattern of allocation byte |
||||
|
ld b,8 ; Set to process 8 blocks |
||||
|
free2: rla ; Rotate allocated block bit into carry flag |
||||
|
jr c,free3 ; If set (bit=1), block is allocated |
||||
|
inc de ; If not set, block is not allocated, so |
||||
|
; ..increment free block count |
||||
|
free3: ld c,a ; Save remaining allocation bits in C |
||||
|
dec hl ; Count down number of blocks on disk |
||||
|
ld a,l ; See if we are down to zero |
||||
|
or h |
||||
|
jr z,free4 ; Branch if no more blocks to check |
||||
|
ld a,c ; Get back current allocation bit pattern |
||||
|
djnz free2 ; Loop through 8 bits |
||||
|
pop bc ; Get pointer to allocation vector |
||||
|
inc bc ; Point to next allocation byte |
||||
|
jr free1 ; Continue by processing next allocation byte |
||||
|
|
||||
|
free4: pop bc ; Clean up stack |
||||
|
ex de,hl ; Free block count to HL |
||||
|
blkshf equ $+1 ; Pointer for in-the-code modification |
||||
|
ld a,0 ; Get block shift factor |
||||
|
sub 3 ; Convert to log base 2 of K per block |
||||
|
jr z,free6 ; Done if single density (1k per block) |
||||
|
|
||||
|
; Convert for blocks of more than 1K each |
||||
|
|
||||
|
free5: add hl,hl |
||||
|
dec a |
||||
|
jr nz,free5 |
||||
|
|
||||
|
; At this point HL = amount of free space on disk in K |
||||
|
|
||||
|
; Display decimal value of HL |
||||
|
|
||||
|
free6: ld b,0 ; Initialize count of digits already printed |
||||
|
ld de,10000 ; Divisor in DE |
||||
|
call decdsp ; Print digit (or space if leading '0') |
||||
|
ld de,1000 |
||||
|
call decdsp |
||||
|
call decdsp3 ; Display hundreds, tens, and units |
||||
|
|
||||
|
call print |
||||
|
db 'k free on ' |
||||
|
seldrv: db 0 ; Modified above to contain drive letter |
||||
|
db ':'+80h |
||||
|
ret |
||||
|
|
||||
|
; CP/M Plus free space calculation |
||||
|
|
||||
|
isplus: ld de,tbuff ; We may have chained to SP |
||||
|
call setdma |
||||
|
ld a,(seldrv) ; Get drive letter |
||||
|
sub 'A' ; Convert to BDOS call value |
||||
|
ld e,a |
||||
|
ld c,2eh ; Get free space call |
||||
|
call bdos |
||||
|
|
||||
|
; Convert 3 byte count of records to K |
||||
|
|
||||
|
ld b,3 ; Total amount to shift |
||||
|
c3fre1: ld hl,tbuff+2 ; Point to buffer start |
||||
|
rr (hl) |
||||
|
dec hl |
||||
|
rr (hl) |
||||
|
dec hl |
||||
|
rr (hl) |
||||
|
djnz c3fre1 |
||||
|
ld hl,(tbuff) ; Get free mod 65536k |
||||
|
jr free6 |
||||
|
|
||||
|
; End RCPSP.LIB |
||||
|
|
||||
|
|
||||
File diff suppressed because it is too large
@ -0,0 +1,54 @@ |
|||||
|
page |
||||
|
|
||||
|
; Library: RCPWHL for Z34RCP |
||||
|
; Author: Carson Wilson |
||||
|
; Version: 1.0 |
||||
|
; Date: June 15, 1988 |
||||
|
; |
||||
|
; Command: WHL |
||||
|
; Function: Set the Wheel Byte on or off |
||||
|
; Comments: |
||||
|
; |
||||
|
; If WHLQUIET equate is true, then RCP does not report wheel status with WHL |
||||
|
; command. |
||||
|
; |
||||
|
; Forms: |
||||
|
; WHL -- Report Wheel Status |
||||
|
; WHL password -- Set Wheel ON if password is correct |
||||
|
; -- Set Wheel OFF if password incorrect |
||||
|
whl: ld hl,fcb1+1 ; Pt to first char |
||||
|
ld a,(hl) ; Get it |
||||
|
cp ' ' |
||||
|
jr z,whlmsg ; Report wheel status if no password |
||||
|
ld de,whlpass |
||||
|
ld b,8 ; Check 8 chars |
||||
|
call comp ; Compare |
||||
|
jr nz,whloff ; Set wheel off if incorrect password |
||||
|
|
||||
|
; Turn ON wheel byte |
||||
|
|
||||
|
ld a,0ffh ; Turn on wheel byte |
||||
|
jr whlset |
||||
|
|
||||
|
; Turn OFF wheel byte |
||||
|
|
||||
|
whloff: xor a ; Turn off wheel byte |
||||
|
whlset: ld hl,(z3whl) ; Get wheel address from ENV |
||||
|
ld (hl),a ; Set wheel byte |
||||
|
|
||||
|
if whlquiet |
||||
|
ret ; No report if WHLQUIET |
||||
|
endif |
||||
|
|
||||
|
; Print Wheel Byte Message |
||||
|
|
||||
|
whlmsg: call getwhl |
||||
|
jp tella ; Say " On" or " Off" |
||||
|
|
||||
|
; Wheel password defined from SYSRCP.LIB file |
||||
|
|
||||
|
db 'Z'-'@' ; Leading ^Z to block attempt to type RCP file |
||||
|
whlpass:wpass ; Use macro |
||||
|
|
||||
|
; End RCPWHL.LIB |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,105 @@ |
|||||
|
; |
||||
|
; Library: Z34CMN.LIB |
||||
|
; Author: Carson Wilson <crw> |
||||
|
; Version: 1.2 |
||||
|
; Date: 16 June 1988 |
||||
|
; Changes: Renamed CRT0 to LINS for NZCOM compatibility. |
||||
|
; Added CUSR " " " |
||||
|
|
||||
|
; Author: Carson Wilson <crw> |
||||
|
; Version: 1.1 |
||||
|
; Date: 12 June 1988 |
||||
|
; Changes: Added CDRV for various Z34RCP commands. |
||||
|
; Added CRT0 for Z34RCP TYPE command. |
||||
|
; Added Z3TCAP and CLRSCR for Z34RCP CLS command. |
||||
|
; Added QUIET for ZCPR34 time in prompt. |
||||
|
; Added RSDMSG for ZCPR34 time in prompt. |
||||
|
|
||||
|
; Library: Z34CMN.LIB |
||||
|
; Author: Joe Wright |
||||
|
; Date: 23 March 1988 |
||||
|
|
||||
|
; As a replacement for Z3BASE.LIB, some usual equates. |
||||
|
|
||||
|
base equ 0 ; Base Page |
||||
|
|
||||
|
false equ 0 |
||||
|
true equ not false |
||||
|
|
||||
|
no equ false |
||||
|
yes equ true |
||||
|
|
||||
|
off equ false |
||||
|
on equ true |
||||
|
|
||||
|
; Named COMMON declarations start here. For compatibility, these |
||||
|
; are the same names used by Bridger Mitchell's JetLDR. |
||||
|
|
||||
|
common /_ENV_/ |
||||
|
z3env: ; Z3 Environment descriptor |
||||
|
z3envs equ yes ; There is one |
||||
|
|
||||
|
expath equ z3env+9 ; Address of External Path |
||||
|
expaths equ 10 ; Maximum 10 elements for MPATH |
||||
|
|
||||
|
rcp equ z3env+0ch ; Address of RCP |
||||
|
rcps equ yes ; Used as existence test, not size |
||||
|
|
||||
|
fcp equ z3env+12h ; Address of FCB |
||||
|
fcps equ yes ; Used as existence test, not size |
||||
|
|
||||
|
z3ndir equ z3env+15h ; Address of NDR |
||||
|
z3ndirs equ yes ; Used as existence test, not size |
||||
|
|
||||
|
quiet equ z3env+28h ; Quiet flag address <crw> |
||||
|
|
||||
|
z3whl equ z3env+29h ; Wheel byte address |
||||
|
z3whls equ yes ; There is a wheel |
||||
|
|
||||
|
lins equ z3env+33h ; CRT text lines address <crw> |
||||
|
|
||||
|
ccp equ z3env+3fh ; CCP entry |
||||
|
ccps equ z3env+41h ; Size |
||||
|
|
||||
|
dos equ z3env+42h ; DOS entry (+6) |
||||
|
doss equ z3env+44h ; Size |
||||
|
|
||||
|
bio equ z3env+45h ; BIO entry |
||||
|
|
||||
|
z3tcap equ z3env+80h ; TCAP address <crw> |
||||
|
|
||||
|
clrscr equ z3env+97h ; Clear screen string address <crw> |
||||
|
|
||||
|
common /_SSTK_/ |
||||
|
shstk: ; Top of Shell stack |
||||
|
shstks equ yes ; There is a shell stack |
||||
|
|
||||
|
common /_MSG_/ |
||||
|
z3msg: ; Message buffer |
||||
|
z3msgs equ yes ; There is one |
||||
|
|
||||
|
cusr equ z3msg+2eh ; Current user |
||||
|
cdrv equ z3msg+2fh ; Current drive <crw> |
||||
|
|
||||
|
rsdmsg equ z3msg+3ah ; Reserved bytes <crw> |
||||
|
|
||||
|
common /_FCB_/ |
||||
|
extfcb: ; External file control block |
||||
|
extfcbs equ yes ; There is one |
||||
|
|
||||
|
common /_MCL_/ |
||||
|
z3cl: ; Multiple command line |
||||
|
z3cls equ yes ; There is one |
||||
|
|
||||
|
common /_XSTK_/ |
||||
|
extstk: ; External stack |
||||
|
extstks equ yes ; There is one |
||||
|
|
||||
|
common /_BIOS_/ |
||||
|
bios: |
||||
|
|
||||
|
cseg ; Select Code Segment |
||||
|
|
||||
|
; End of Z34CMN.LIB |
||||
|
|
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,122 @@ |
|||||
|
|
||||
|
; Z33MAC.LIB : Macros for use with ZCPR33 |
||||
|
|
||||
|
; General purpose macros |
||||
|
|
||||
|
putreg macro |
||||
|
push hl ; Save registers in order |
||||
|
push de |
||||
|
push bc |
||||
|
endm |
||||
|
|
||||
|
getreg macro |
||||
|
pop bc ; Restore registers in order |
||||
|
pop de |
||||
|
pop hl |
||||
|
endm |
||||
|
|
||||
|
swap macro |
||||
|
rrca ; Exchange nibbles |
||||
|
rrca |
||||
|
rrca |
||||
|
rrca |
||||
|
endm |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; Macro for forming option bytes |
||||
|
|
||||
|
; This macro generates a byte with bits corresponding to up to 8 option |
||||
|
; flags. The bits are filled in the order of the parameters and are right |
||||
|
; justified in the byte. |
||||
|
|
||||
|
optflag macro f1,f2,f3,f4,f5,f6,f7,f8 |
||||
|
|
||||
|
flag defl 0 ;; initial value |
||||
|
|
||||
|
irp temp,<f1,f2,f3,f4,f5,f6,f7,f8> |
||||
|
|
||||
|
if not nul temp |
||||
|
flag defl flag shl 1 |
||||
|
if temp |
||||
|
flag defl flag or 1 |
||||
|
endif ;;temp |
||||
|
endif ;;not nul temp |
||||
|
|
||||
|
endm ;; irp |
||||
|
|
||||
|
defb low flag |
||||
|
|
||||
|
endm ;; optflag |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; Command table entry definition macro |
||||
|
|
||||
|
; Macro to form an entry for one command in the table. The first parameter is |
||||
|
; the name to be used for the command (no quotes); the second parameter is the |
||||
|
; flag that indicates whether or not the command is to be enabled; the third |
||||
|
; parameter is the wheel control flag; and the last parameter is the jump |
||||
|
; address to the code that carries out the command. The command names are |
||||
|
; automatically padded out to the correct length (they will be truncated and |
||||
|
; an error message will result if a command name is too long). The characters |
||||
|
; in the command name are automatically converted to upper case. |
||||
|
|
||||
|
command macro cmdname,enableflag,wheelflag,address |
||||
|
|
||||
|
if enableflag ;; Generate command only if enabled |
||||
|
|
||||
|
whlmask defl wheelflag ;; Initialize variables |
||||
|
count defl cmdsize ;; Initialize to size of each command name |
||||
|
|
||||
|
irpc char,cmdname ;; Repeat over letters in command name |
||||
|
|
||||
|
count defl count - 1 ;; Count down characters in name |
||||
|
|
||||
|
if [ count lt cmdsize ] |
||||
|
|
||||
|
;; If character is lower case, convert to upper case |
||||
|
|
||||
|
if [ '&char' ge 'a' ] and [ '&char' le 'z' ] |
||||
|
|
||||
|
if whlmask |
||||
|
defb [ '&char' and 5fh ] + 80h |
||||
|
else ;;not whlmask |
||||
|
defb [ '&char' and 5fh ] |
||||
|
endif ;;whlmask |
||||
|
|
||||
|
else ;;not lower case |
||||
|
|
||||
|
if whlmask |
||||
|
defb '&char' + 80h ;; If controlled by wheel, set high bit |
||||
|
else ;;not whlmask |
||||
|
defb '&char' ;; If not restricted, leave high bit clear |
||||
|
endif ;;whlmask |
||||
|
|
||||
|
endif ;;lower case |
||||
|
|
||||
|
endif ;;[ count lt cmdsize ] |
||||
|
|
||||
|
whlmask defl false ;; Turn off high-bit setting after first char |
||||
|
|
||||
|
endm ;irpc |
||||
|
|
||||
|
;; Pad command name with blanks |
||||
|
|
||||
|
if [ count gt cmdsize ] ;; If we underflowed |
||||
|
*** Command name "&cmdname" is too long / truncated *** |
||||
|
else |
||||
|
rept count |
||||
|
defb ' ' |
||||
|
endm |
||||
|
endif ;[ count gt cmdsize ] |
||||
|
|
||||
|
dw address ;; Dispatch address for command |
||||
|
|
||||
|
endif ;enable |
||||
|
|
||||
|
endm ;command |
||||
|
|
||||
|
; End Z33MAC.LIB |
||||
|
|
||||
|
|
||||
@ -0,0 +1,515 @@ |
|||||
|
|
||||
|
; File: Z34RCP.LIB |
||||
|
; Description: Resident Command Package (RCP) for ZCPR34 |
||||
|
; Version: 1.4 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: October 4, 1989 |
||||
|
; Changes: Added PUSER0 equate suggested by Rob Friefeld. |
||||
|
; |
||||
|
; Version: 1.3 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: September 29, 1989 |
||||
|
; Changes: Added CLED (Command Line Editor Shell) command options |
||||
|
; and equates. |
||||
|
; |
||||
|
; Version: 1.2 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: August 11, 1989 |
||||
|
; Changes: Removed several "quiet" conditional assembly equates as |
||||
|
; we are now sensing the QUIET flag instead. |
||||
|
; Changed default of WHLQUIET to false. |
||||
|
; |
||||
|
; Version: 1.1 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: July 10, 1989 |
||||
|
; Changes: Changed 'S' command name to 'SP'. |
||||
|
; Removed wheel protection from 'Q' command and set QQUIET |
||||
|
; on by default. |
||||
|
; Changed command order. |
||||
|
|
||||
|
; Version: 1.0 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: June 15, 1988 |
||||
|
|
||||
|
; This is the configuration file for the ZCPR Version 3.4 resident command |
||||
|
; package. You should read through this file and set the equates according |
||||
|
; to the features you want to implement. Since most systems have a limited |
||||
|
; amount of space for the resident command package, it will probably be |
||||
|
; impossible to include all features. |
||||
|
|
||||
|
; If you are using an SLR or equivalent assembler, you will be prompted |
||||
|
; at assembly time for which commands to include in the RCP. |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; A S S E M B L Y O P T I O N S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; SLR controls whether special pseudo-ops such as ".printx" and ".accept", |
||||
|
; and complex macros are used at assembly time. For SLR Systems or compatible |
||||
|
; macro assemblers, set this equate to true. |
||||
|
|
||||
|
SLR equ false |
||||
|
|
||||
|
; RCPTYPE is the final character of the RCP name in the H(elp) command, |
||||
|
; and determines the order in which commands are added. |
||||
|
|
||||
|
if SLR |
||||
|
Y equ true |
||||
|
N equ false |
||||
|
H equ 'H' |
||||
|
F equ 'F' |
||||
|
|
||||
|
.accept 'Enter "F" for floppy, "H" for fixed disk version: ',rcptype |
||||
|
else |
||||
|
rcptype equ 'H' ; Floppy disk version |
||||
|
endif ; SLR |
||||
|
|
||||
|
; ZRL controls whether named common labels are used in the code. To create |
||||
|
; absolute code, modify RCPBASE.LIB to reflect your system's addresses, set |
||||
|
; ZRL to false and instruct your assembler to generate absolute code (either |
||||
|
; a .COM or .HEX file). |
||||
|
; |
||||
|
; To create a relocatable file for use with Bridger Mitchell's JetLDR or |
||||
|
; Joe Wright's NZCOM, you must use an assembler which recognizes named |
||||
|
; common blocks. If your assembler has this capability, set ZRL to true |
||||
|
; and instruct the assembler to generate relocatable (.REL) code. |
||||
|
|
||||
|
ZRL equ true |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; M A C R O S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; SLR assemblers allow selection of options during assembly. |
||||
|
|
||||
|
if SLR |
||||
|
|
||||
|
select macro option default comment |
||||
|
.accept comment,option ; Prompt user for selection |
||||
|
endm |
||||
|
|
||||
|
.printx |
||||
|
.printx Answer "Y" to include, "N" to exclude commands: |
||||
|
.printx |
||||
|
|
||||
|
else |
||||
|
|
||||
|
select macro option default comment |
||||
|
option equ default ; Use selections from file |
||||
|
endm |
||||
|
endif ; SLR |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; R E S I D E N T C O M M A N D S S E L E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; Commands to include in the resident command package |
||||
|
|
||||
|
; There are some interrelations between a number of the possible resident |
||||
|
; commands. Some are so close (LIST and TYPE) that a single equate controls |
||||
|
; both functions. Others like DIR and ERA share code (both display file |
||||
|
; listings). It is efficient to select or deselect them together. |
||||
|
|
||||
|
; If you are using an SLR or compatible assembler, you will be prompted |
||||
|
; at assembly time for command selections. Otherwise, select commands to |
||||
|
; be included by setting each SELECT macro below to yes or no. |
||||
|
|
||||
|
select CLEDON no 'CLED - command line editor shell? ' |
||||
|
select CLSON yes 'CLS - clear screen? ' |
||||
|
select RESON yes 'R - reset disk system? ' |
||||
|
select SPACEON yes 'SP - show space remaining on disk? ' |
||||
|
|
||||
|
if RCPTYPE='F' ; Assemble in floppy order |
||||
|
select DIRON yes 'D - disk directory? ' |
||||
|
select ERAON yes 'ERA - erase files? ' |
||||
|
select ECHOON yes 'ECHO - send text to screen or printer? ' |
||||
|
select RENON yes 'REN - rename files? ' |
||||
|
select CPON yes 'CP - copy file? ' |
||||
|
select LTON yes 'TYPE - display file on console? ' |
||||
|
select POKEON yes 'POKE - set memory? ' |
||||
|
select PEEKON yes 'PEEK - view memory? ' |
||||
|
else ; Assemble in fixed-disk order |
||||
|
select ECHOON yes 'ECHO - send text to screen or printer? ' |
||||
|
select POKEON yes 'POKE - set memory? ' |
||||
|
select PEEKON yes 'PEEK - view memory? ' |
||||
|
select QUIETON yes 'Q - set or clear quiet status? ' |
||||
|
select DIRON yes 'D - disk directory? ' |
||||
|
select ERAON no 'ERA - erase files? ' |
||||
|
select RENON no 'REN - rename files? ' |
||||
|
select CPON no 'CP - copy file? ' |
||||
|
select LTON yes 'TYPE - display file on console? ' |
||||
|
endif ; RCPTYPE='F' |
||||
|
|
||||
|
if LTON |
||||
|
select LISTON no 'LIST - list to printer? ' |
||||
|
else ; allowed only if TYPE is enabled |
||||
|
LISTON equ no |
||||
|
endif |
||||
|
|
||||
|
if RCPTYPE='F' ; Assemble in floppy order |
||||
|
select QUIETON yes 'Q - set or clear quiet status? ' |
||||
|
endif |
||||
|
|
||||
|
select PROTON no 'PROT - set file attributes? ' |
||||
|
select NOTEON no 'NOTE - command-line comment? ' |
||||
|
select REGON no 'REG - set and display user registers? ' |
||||
|
select WHLON no 'WHL - set or clear wheel status? ' |
||||
|
select PORTON no 'PORT - view and set I/O ports? ' |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; W H E E L P R O T E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; To prevent unauthorized users from performing certain dangerous or sensitive |
||||
|
; operations on the computer, ZCPR34 provides the capability of disabling the |
||||
|
; operation of certain commands when the wheel byte is off. In ZCPR30, an |
||||
|
; attempt to use one of these wheel-protected commands when the wheel byte was |
||||
|
; off resulted in an error message. In ZCPR34 things work differently. In the |
||||
|
; same situation, the command simply disappears. In this way a transient |
||||
|
; program or extended command processor function can take over and deal with |
||||
|
; the attempt to use the command in a much more flexible way. |
||||
|
; |
||||
|
; Wheel-protected commands in ZCPR30 had extra code to intercept the function |
||||
|
; and disable it. In ZCPR34, wheel protection is enabled and disabled in a |
||||
|
; different way. To wheel-protect a command the high bit of the first |
||||
|
; character in the command name is set. The command table scanner in ZCPR34 |
||||
|
; will not recognize these commands when the wheel byte is off. Since the same |
||||
|
; command scanner is used to scan the commands in the RCP and FCP (flow control |
||||
|
; package), commands there can be wheel protected in the same way. For skilled |
||||
|
; computer operators it is very easy to use a debugger, file patcher, or disk |
||||
|
; utility to enable and disable wheel protection without having to reassemble |
||||
|
; the CPR, RCP, or FCP. |
||||
|
; |
||||
|
; Because of the way the command scanner works, once wheel protection is |
||||
|
; implemented in the CCP, there is no further code penalty in protecting RCP |
||||
|
; commands. Therefore, we recommend protecting all possibly sensitive |
||||
|
; commands or none. |
||||
|
|
||||
|
wcled equ no ; CLED |
||||
|
wcp equ yes ; CP |
||||
|
wdir equ no ; DIR |
||||
|
wera equ yes ; ERA |
||||
|
wlist equ yes ; LIST |
||||
|
wpeek equ yes ; PEEK |
||||
|
wpoke equ yes ; POKE |
||||
|
wport equ yes ; PORT |
||||
|
wprot equ yes ; PROT |
||||
|
wquiet equ no ; QUIET |
||||
|
wreg equ yes ; REG |
||||
|
wren equ yes ; REN |
||||
|
wspop equ yes ; SPOP |
||||
|
wtype equ yes ; TYPE |
||||
|
whrc equ no ; H |
||||
|
|
||||
|
wheel defl wcp or wdir or wera or wlist or wpeek or wpoke or wport |
||||
|
wheel defl wheel or wprot or wreg or wren or wtype or whrc |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; C O M M A N D O P T I O N S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; Options affecting several commands |
||||
|
|
||||
|
; DSORT includes code to sort file entries for the D, TYPE, LIST, ERA, |
||||
|
; and PROT commands. |
||||
|
|
||||
|
dsort equ yes |
||||
|
|
||||
|
; LEFTRIGHT affects the COPY and RENAME commands. If yes, add code to allow |
||||
|
; CP and REN operations work from left to right, and CP to accept a |
||||
|
; single filespec as its source. |
||||
|
; Examples: |
||||
|
; B0>ren b1:old.nam new.nam Renames B1:old.nam to B1:new.nam |
||||
|
; B0>cp a15:that.fil Copies A15:that.fil to B0: |
||||
|
; B0>cp source.fil dest.fil Copies source.fil to dest.fil |
||||
|
|
||||
|
leftright equ yes |
||||
|
|
||||
|
; If LEFTRIGHT is yes, setting TESTEQ to yes also allows CP and REN commands |
||||
|
; to be processed from right to left if they contain an equal sign ("="). |
||||
|
; Costs 11 bytes. |
||||
|
; Example: |
||||
|
; B0>cp dest.fil=source.fil Copies source.fil to dest.fil |
||||
|
|
||||
|
testeq equ yes |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'CLS' command |
||||
|
|
||||
|
; This command clears the console screen. It can either use a fixed string |
||||
|
; (for shorter code if the same terminal is always used) or use the TCAP |
||||
|
; entry for automatic adaptation to any terminal. |
||||
|
|
||||
|
clstcap equ true ; Use TCAP for clear-screen string |
||||
|
|
||||
|
; If CLSTCAP is not enabled, then the string below must be provided and |
||||
|
; it must end with a character with the high bit set |
||||
|
|
||||
|
if not clstcap |
||||
|
clsstr macro |
||||
|
db 'Z'-'@'+80h ; Control-Z to clear screen |
||||
|
endm |
||||
|
endif ;not clstcap |
||||
|
|
||||
|
typecls equ true ; Clear between screens when typing files |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'CP' command |
||||
|
|
||||
|
; This command copies a single file. The destination file can have a different |
||||
|
; name from the source file. Set the size of the memory buffer in K below (do |
||||
|
; not change the second definition). The copy buffer is placed at the top of |
||||
|
; the TPA, where it will generally not interfere with subsequent use of the GO |
||||
|
; command to rerun a program loaded in the TPA. |
||||
|
|
||||
|
cpblocks defl 16 ; Size of copy buffer in K |
||||
|
|
||||
|
cpblocks defl cpblocks * 8 ; Convert to number of records |
||||
|
|
||||
|
; If you will be using a BDOS or RSX which supports new functions 102 (Get |
||||
|
; Stamp) and 103 (Set Stamp), set STPCALL to true, and datestamps of files |
||||
|
; will be preserved across copies. The "last access" stamps of both copies |
||||
|
; are set to the time the copy took place if access stamping is enabled. |
||||
|
|
||||
|
stpcall equ true ; Copy file stamps with functions 102/3 |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'DIR' command |
||||
|
|
||||
|
; This command displays a sorted listing of the files in a directory. The |
||||
|
; file name buffer is allocated at the top of the TPA so as not to modify |
||||
|
; any program loaded in low memory. Consequently, the size of the buffer |
||||
|
; must be set in advance. |
||||
|
|
||||
|
|
||||
|
maxdirs equ 256 ; Maximum number of names in directory buffer |
||||
|
|
||||
|
nosys equ yes ; suppress 'A' and 'S' options if wheel off |
||||
|
|
||||
|
slashchk equ yes ; allow "DIR /S" or "DIR /A" formats (costs |
||||
|
; about 12 bytes) |
||||
|
|
||||
|
allflag equ 'A' ; Option character for showing |
||||
|
; all file (both SYS and DIR) |
||||
|
sysflag equ 'S' ; Option character for showing |
||||
|
; SYS files only |
||||
|
sortnt equ yes ; Sort file by name then type |
||||
|
wide equ yes ; Make display for 80-column screen |
||||
|
fence equ '|' ; Character to use as fence between columns |
||||
|
; ..if WIDE is false. |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'ECHO' command |
||||
|
|
||||
|
; This command sends characters to the console or list device. If ECHOLST is |
||||
|
; enabled, then code is included for sending characters to the LST device. |
||||
|
; Characters normally go the the console device and are normally upper or lower |
||||
|
; case depending on the setting of UPCASE. The command line can have special |
||||
|
; command sequences to toggle the case of the output and to change the |
||||
|
; destination between the console and printer. Any other character following |
||||
|
; the command character will be sent as is. For the normal setting of the |
||||
|
; equates below (upcase/yes, cmdchar/%, prtchar/P, crtchar/C, lcasech/>, |
||||
|
; and ucasech/<) an example command line would be: |
||||
|
; A0:ROOT>ECHO T%>HIS IS A TEST^M^J^IDONE%PONE, TWO, %<THREE |
||||
|
; The following text would be echoed to the console (inlcuding carriage return, |
||||
|
; linefeed, and tab characters, '|' indicates the left margin): |
||||
|
; |This is a test |
||||
|
; | done |
||||
|
; The string "one, two, THREE" would be sent to the printer. |
||||
|
|
||||
|
echolst equ yes ; Allow ECHO to LST device |
||||
|
|
||||
|
upcase equ yes ; Initial case of output |
||||
|
|
||||
|
cmdchar equ '%' ; Character to flag case change |
||||
|
|
||||
|
prtchar equ 'P' ; Character to start sending output to |
||||
|
; the printer (must be upper case) |
||||
|
crtchar equ 'C' ; Character to start sending output to |
||||
|
; the CRT (must be upper case) |
||||
|
ucasechar equ '<' ; Character after CASECHAR that toggles |
||||
|
; subsequent output to upper case |
||||
|
lcasechar equ '>' ; Character after CASECHAR that toggles |
||||
|
; subsequent output to lower case |
||||
|
|
||||
|
; ---------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'H' command |
||||
|
|
||||
|
; This command displays a list of the resident commands implemented in the |
||||
|
; system. FCP, CPR, and RCP commands can be displayed. The basic command is |
||||
|
; not optional; it is always included. |
||||
|
|
||||
|
listcpr equ yes ; Include list of CPR-resident commands in |
||||
|
; display (highly recommended) |
||||
|
|
||||
|
listfcp equ yes ; Include list of FCP-resident commands in |
||||
|
; display (recommended if there is room) |
||||
|
|
||||
|
noshow equ yes ; Suppress listing commands that are wheel- |
||||
|
; restricted unless wheel byte is set (i.e., |
||||
|
; don't show commands that won't run) |
||||
|
|
||||
|
cmdsline equ 5 ; Number of commands on each line of display |
||||
|
|
||||
|
cmdspace equ 8 ; Space in display for each command name |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'LIST' and 'TYPE' commands |
||||
|
|
||||
|
pgdflt equ yes ; Default to paging of console output |
||||
|
|
||||
|
pgdflg equ 'P' ; Character to toggle paging status |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'PEEK' command |
||||
|
|
||||
|
peekhdr equ yes ; Label columns in PEEK display |
||||
|
|
||||
|
peekbdr equ yes ; Include line of hyphens under labels |
||||
|
|
||||
|
peekchk equ yes ; If yes, the ending address will be tested to |
||||
|
; prevent overflow past FFFF (costs 5 bytes) |
||||
|
|
||||
|
peeklen equ 127 ; Display 1 record (128 bytes) as default. |
||||
|
; PEEK displays in increments of 16 bytes. |
||||
|
; You may set PEEKLEN for 0 to 65525. |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'S' command |
||||
|
|
||||
|
; Print disk space with other commands (recommended) |
||||
|
|
||||
|
dirsp equ true ; Show space after DIR |
||||
|
erasp equ true ; Show space after ERA |
||||
|
cpsp equ true ; Show space after CP |
||||
|
resetsp equ true ; Show space after R |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'WHL' command |
||||
|
|
||||
|
whlquiet equ false ; If true, don't report wheel state with |
||||
|
; .."WHL password" command (costs 1 byte) |
||||
|
|
||||
|
wpass macro |
||||
|
db 'SYSTEM ' |
||||
|
endm |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'CLED' command |
||||
|
; |
||||
|
; Command line editing takes place in the line buffer. It does not take up |
||||
|
; room in the RCP. The editor will handle a 255 byte line. Although that |
||||
|
; is larger than the maximum command line size, it allows you to edit a long |
||||
|
; line without deleting something first. The history is kept inside the RCP, |
||||
|
; so its size will depend upon how many other RCP commands are enabled. |
||||
|
; HISTSIZE should be at least as large as the multiple command line buffer |
||||
|
; (204 bytes). |
||||
|
|
||||
|
lbufwid equ 255 ; Line buffer size, byte |
||||
|
histsize equ 204 ; History buffer size, word |
||||
|
|
||||
|
; CLERA controls whether to null the internal history when CLED is exited, or |
||||
|
; to leave it for the next run. Secure systems will want to set it to YES. |
||||
|
|
||||
|
clera equ no ; Erase history on terminating shell |
||||
|
|
||||
|
; CLMIN sets the cutoff for discarding short lines from history recording. |
||||
|
; A setting of 3 would discard a command such as DIR. |
||||
|
|
||||
|
clmin equ 5 ; Discard lines which do not exceed this |
||||
|
|
||||
|
clins equ yes ; Initial insert state ON |
||||
|
clsav equ yes ; Initial history recording ON |
||||
|
|
||||
|
; The appearance of the command line prompt may include the system time if a |
||||
|
; DateStamper or ZS/ZDDOS clock is implemented. The DU:DIR separator character |
||||
|
; can be changed to indicate that CLED is running. |
||||
|
|
||||
|
dudir_sep equ '/' ; DU:DIR separator char |
||||
|
puser0 equ no ; Print user #0 in prompt |
||||
|
systime equ yes ; Include system time in prompt |
||||
|
|
||||
|
if systime |
||||
|
civtim equ yes ; Yes for 12-hr civil time vs. 24-hr military |
||||
|
timesep equ '.' ; Separator between hours and minutes |
||||
|
endif |
||||
|
|
||||
|
; The editor must use EREOL. The VLIB routine to send the EREOL sequence |
||||
|
; to the terminal needs to test for a video delay and the presence of the "/" |
||||
|
; quote character. Most terminals can just print the TCAP sequence as is. If |
||||
|
; that doesn't work, set ERLQUICK to NO. If you are using only one terminal, |
||||
|
; it will be most efficient to set ERLTCAP to NO and use the CLR_EOL macro. |
||||
|
|
||||
|
erltcap equ yes ; Use TCAP routine vs macro |
||||
|
|
||||
|
if erltcap |
||||
|
erlquick equ yes ; Use simplified TCAP routine |
||||
|
else |
||||
|
|
||||
|
clr_eol macro ; Define terminal specific string |
||||
|
dc 1bh,'T' ; ...set high bit on last character |
||||
|
endm |
||||
|
|
||||
|
endif ;erltcap |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; Command names |
||||
|
|
||||
|
; The CTABLE macro, which constructs the command dispatch table, includes a |
||||
|
; line for each command, the first parameter of which is the name of the |
||||
|
; command. These names may be changed if you wish. But make sure that you |
||||
|
; do not use a name that is longer than the maximum allowed length. If you |
||||
|
; do, the name will be truncated and a nonfatal error will occur during |
||||
|
; assembly. DO NOT CHANGE ANY PARAMETER OTHER THAN THE COMMAND NAME. Lower |
||||
|
; case letters will be converted to upper case. The macro COMMAND is defined |
||||
|
; in Z34MAC.LIB. |
||||
|
|
||||
|
cmdsize equ 4 ; Length of each command name |
||||
|
|
||||
|
cmdtbl macro |
||||
|
command CLED, cledon, wcled, cled |
||||
|
command CLS, clson, false, cls |
||||
|
command CP, cpon, wcp, copy |
||||
|
command D, diron, wdir, dir |
||||
|
command ECHO, echoon, false, echo |
||||
|
command ERA, eraon, wera, era |
||||
|
command H, true, whrc, clist |
||||
|
command LIST, liston, wlist, list |
||||
|
command NOTE, noteon, false, note |
||||
|
command P, peekon, wpeek, peek |
||||
|
command POKE, pokeon, wpoke, poke |
||||
|
command PORT, porton, wport, port |
||||
|
command PROT, proton, wprot, att |
||||
|
command Q, quieton,wquiet, quset |
||||
|
command R, reson, false, reset |
||||
|
command REG, regon, wreg, register |
||||
|
command REN, renon, wren, ren |
||||
|
command SP, spaceon,false, space |
||||
|
command SPOP, cledon, wspop, shpop |
||||
|
command TYPE, lton, wtype, type |
||||
|
command WHL, whlon, false, whl |
||||
|
endm |
||||
|
|
||||
|
; END Z34RCP.LIB |
||||
|
|
||||
@ -0,0 +1,515 @@ |
|||||
|
|
||||
|
; File: Z34RCP.LIB |
||||
|
; Description: Resident Command Package (RCP) for ZCPR34 |
||||
|
; Version: 1.4 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: October 4, 1989 |
||||
|
; Changes: Added PUSER0 equate suggested by Rob Friefeld. |
||||
|
; |
||||
|
; Version: 1.3 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: September 29, 1989 |
||||
|
; Changes: Added CLED (Command Line Editor Shell) command options |
||||
|
; and equates. |
||||
|
; |
||||
|
; Version: 1.2 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: August 11, 1989 |
||||
|
; Changes: Removed several "quiet" conditional assembly equates as |
||||
|
; we are now sensing the QUIET flag instead. |
||||
|
; Changed default of WHLQUIET to false. |
||||
|
; |
||||
|
; Version: 1.1 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: July 10, 1989 |
||||
|
; Changes: Changed 'S' command name to 'SP'. |
||||
|
; Removed wheel protection from 'Q' command and set QQUIET |
||||
|
; on by default. |
||||
|
; Changed command order. |
||||
|
|
||||
|
; Version: 1.0 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: June 15, 1988 |
||||
|
|
||||
|
; This is the configuration file for the ZCPR Version 3.4 resident command |
||||
|
; package. You should read through this file and set the equates according |
||||
|
; to the features you want to implement. Since most systems have a limited |
||||
|
; amount of space for the resident command package, it will probably be |
||||
|
; impossible to include all features. |
||||
|
|
||||
|
; If you are using an SLR or equivalent assembler, you will be prompted |
||||
|
; at assembly time for which commands to include in the RCP. |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; A S S E M B L Y O P T I O N S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; SLR controls whether special pseudo-ops such as ".printx" and ".accept", |
||||
|
; and complex macros are used at assembly time. For SLR Systems or compatible |
||||
|
; macro assemblers, set this equate to true. |
||||
|
|
||||
|
SLR equ true |
||||
|
|
||||
|
; RCPTYPE is the final character of the RCP name in the H(elp) command, |
||||
|
; and determines the order in which commands are added. |
||||
|
|
||||
|
if SLR |
||||
|
Y equ true |
||||
|
N equ false |
||||
|
H equ 'H' |
||||
|
F equ 'F' |
||||
|
|
||||
|
.accept 'Enter "F" for floppy, "H" for fixed disk version: ',rcptype |
||||
|
else |
||||
|
rcptype equ 'F' ; Floppy disk version |
||||
|
endif ; SLR |
||||
|
|
||||
|
; ZRL controls whether named common labels are used in the code. To create |
||||
|
; absolute code, modify RCPBASE.LIB to reflect your system's addresses, set |
||||
|
; ZRL to false and instruct your assembler to generate absolute code (either |
||||
|
; a .COM or .HEX file). |
||||
|
; |
||||
|
; To create a relocatable file for use with Bridger Mitchell's JetLDR or |
||||
|
; Joe Wright's NZCOM, you must use an assembler which recognizes named |
||||
|
; common blocks. If your assembler has this capability, set ZRL to true |
||||
|
; and instruct the assembler to generate relocatable (.REL) code. |
||||
|
|
||||
|
ZRL equ true |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; M A C R O S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; SLR assemblers allow selection of options during assembly. |
||||
|
|
||||
|
if SLR |
||||
|
|
||||
|
select macro option default comment |
||||
|
.accept comment,option ; Prompt user for selection |
||||
|
endm |
||||
|
|
||||
|
.printx |
||||
|
.printx Answer "Y" to include, "N" to exclude commands: |
||||
|
.printx |
||||
|
|
||||
|
else |
||||
|
|
||||
|
select macro option default comment |
||||
|
option equ default ; Use selections from file |
||||
|
endm |
||||
|
endif ; SLR |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; R E S I D E N T C O M M A N D S S E L E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; Commands to include in the resident command package |
||||
|
|
||||
|
; There are some interrelations between a number of the possible resident |
||||
|
; commands. Some are so close (LIST and TYPE) that a single equate controls |
||||
|
; both functions. Others like DIR and ERA share code (both display file |
||||
|
; listings). It is efficient to select or deselect them together. |
||||
|
|
||||
|
; If you are using an SLR or compatible assembler, you will be prompted |
||||
|
; at assembly time for command selections. Otherwise, select commands to |
||||
|
; be included by setting each SELECT macro below to yes or no. |
||||
|
|
||||
|
select CLEDON no 'CLED - command line editor shell? ' |
||||
|
select CLSON yes 'CLS - clear screen? ' |
||||
|
select RESON yes 'R - reset disk system? ' |
||||
|
select SPACEON yes 'SP - show space remaining on disk? ' |
||||
|
|
||||
|
if RCPTYPE='F' ; Assemble in floppy order |
||||
|
select DIRON yes 'D - disk directory? ' |
||||
|
select ERAON yes 'ERA - erase files? ' |
||||
|
select ECHOON yes 'ECHO - send text to screen or printer? ' |
||||
|
select RENON yes 'REN - rename files? ' |
||||
|
select CPON yes 'CP - copy file? ' |
||||
|
select LTON yes 'TYPE - display file on console? ' |
||||
|
select POKEON yes 'POKE - set memory? ' |
||||
|
select PEEKON yes 'PEEK - view memory? ' |
||||
|
else ; Assemble in fixed-disk order |
||||
|
select ECHOON yes 'ECHO - send text to screen or printer? ' |
||||
|
select POKEON yes 'POKE - set memory? ' |
||||
|
select PEEKON yes 'PEEK - view memory? ' |
||||
|
select QUIETON yes 'Q - set or clear quiet status? ' |
||||
|
select DIRON yes 'D - disk directory? ' |
||||
|
select ERAON yes 'ERA - erase files? ' |
||||
|
select RENON yes 'REN - rename files? ' |
||||
|
select CPON yes 'CP - copy file? ' |
||||
|
select LTON yes 'TYPE - display file on console? ' |
||||
|
endif ; RCPTYPE='F' |
||||
|
|
||||
|
if LTON |
||||
|
select LISTON no 'LIST - list to printer? ' |
||||
|
else ; allowed only if TYPE is enabled |
||||
|
LISTON equ no |
||||
|
endif |
||||
|
|
||||
|
if RCPTYPE='F' ; Assemble in floppy order |
||||
|
select QUIETON yes 'Q - set or clear quiet status? ' |
||||
|
endif |
||||
|
|
||||
|
select PROTON no 'PROT - set file attributes? ' |
||||
|
select NOTEON no 'NOTE - command-line comment? ' |
||||
|
select REGON no 'REG - set and display user registers? ' |
||||
|
select WHLON no 'WHL - set or clear wheel status? ' |
||||
|
select PORTON no 'PORT - view and set I/O ports? ' |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; W H E E L P R O T E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; To prevent unauthorized users from performing certain dangerous or sensitive |
||||
|
; operations on the computer, ZCPR34 provides the capability of disabling the |
||||
|
; operation of certain commands when the wheel byte is off. In ZCPR30, an |
||||
|
; attempt to use one of these wheel-protected commands when the wheel byte was |
||||
|
; off resulted in an error message. In ZCPR34 things work differently. In the |
||||
|
; same situation, the command simply disappears. In this way a transient |
||||
|
; program or extended command processor function can take over and deal with |
||||
|
; the attempt to use the command in a much more flexible way. |
||||
|
; |
||||
|
; Wheel-protected commands in ZCPR30 had extra code to intercept the function |
||||
|
; and disable it. In ZCPR34, wheel protection is enabled and disabled in a |
||||
|
; different way. To wheel-protect a command the high bit of the first |
||||
|
; character in the command name is set. The command table scanner in ZCPR34 |
||||
|
; will not recognize these commands when the wheel byte is off. Since the same |
||||
|
; command scanner is used to scan the commands in the RCP and FCP (flow control |
||||
|
; package), commands there can be wheel protected in the same way. For skilled |
||||
|
; computer operators it is very easy to use a debugger, file patcher, or disk |
||||
|
; utility to enable and disable wheel protection without having to reassemble |
||||
|
; the CPR, RCP, or FCP. |
||||
|
; |
||||
|
; Because of the way the command scanner works, once wheel protection is |
||||
|
; implemented in the CCP, there is no further code penalty in protecting RCP |
||||
|
; commands. Therefore, we recommend protecting all possibly sensitive |
||||
|
; commands or none. |
||||
|
|
||||
|
wcled equ no ; CLED |
||||
|
wcp equ yes ; CP |
||||
|
wdir equ no ; DIR |
||||
|
wera equ yes ; ERA |
||||
|
wlist equ yes ; LIST |
||||
|
wpeek equ yes ; PEEK |
||||
|
wpoke equ yes ; POKE |
||||
|
wport equ yes ; PORT |
||||
|
wprot equ yes ; PROT |
||||
|
wquiet equ no ; QUIET |
||||
|
wreg equ yes ; REG |
||||
|
wren equ yes ; REN |
||||
|
wspop equ yes ; SPOP |
||||
|
wtype equ yes ; TYPE |
||||
|
whrc equ no ; H |
||||
|
|
||||
|
wheel defl wcp or wdir or wera or wlist or wpeek or wpoke or wport |
||||
|
wheel defl wheel or wprot or wreg or wren or wtype or whrc |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; C O M M A N D O P T I O N S |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
; Options affecting several commands |
||||
|
|
||||
|
; DSORT includes code to sort file entries for the D, TYPE, LIST, ERA, |
||||
|
; and PROT commands. |
||||
|
|
||||
|
dsort equ yes |
||||
|
|
||||
|
; LEFTRIGHT affects the COPY and RENAME commands. If yes, add code to allow |
||||
|
; CP and REN operations work from left to right, and CP to accept a |
||||
|
; single filespec as its source. |
||||
|
; Examples: |
||||
|
; B0>ren b1:old.nam new.nam Renames B1:old.nam to B1:new.nam |
||||
|
; B0>cp a15:that.fil Copies A15:that.fil to B0: |
||||
|
; B0>cp source.fil dest.fil Copies source.fil to dest.fil |
||||
|
|
||||
|
leftright equ yes |
||||
|
|
||||
|
; If LEFTRIGHT is yes, setting TESTEQ to yes also allows CP and REN commands |
||||
|
; to be processed from right to left if they contain an equal sign ("="). |
||||
|
; Costs 11 bytes. |
||||
|
; Example: |
||||
|
; B0>cp dest.fil=source.fil Copies source.fil to dest.fil |
||||
|
|
||||
|
testeq equ yes |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'CLS' command |
||||
|
|
||||
|
; This command clears the console screen. It can either use a fixed string |
||||
|
; (for shorter code if the same terminal is always used) or use the TCAP |
||||
|
; entry for automatic adaptation to any terminal. |
||||
|
|
||||
|
clstcap equ true ; Use TCAP for clear-screen string |
||||
|
|
||||
|
; If CLSTCAP is not enabled, then the string below must be provided and |
||||
|
; it must end with a character with the high bit set |
||||
|
|
||||
|
if not clstcap |
||||
|
clsstr macro |
||||
|
db 'Z'-'@'+80h ; Control-Z to clear screen |
||||
|
endm |
||||
|
endif ;not clstcap |
||||
|
|
||||
|
typecls equ true ; Clear between screens when typing files |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'CP' command |
||||
|
|
||||
|
; This command copies a single file. The destination file can have a different |
||||
|
; name from the source file. Set the size of the memory buffer in K below (do |
||||
|
; not change the second definition). The copy buffer is placed at the top of |
||||
|
; the TPA, where it will generally not interfere with subsequent use of the GO |
||||
|
; command to rerun a program loaded in the TPA. |
||||
|
|
||||
|
cpblocks defl 16 ; Size of copy buffer in K |
||||
|
|
||||
|
cpblocks defl cpblocks * 8 ; Convert to number of records |
||||
|
|
||||
|
; If you will be using a BDOS or RSX which supports new functions 102 (Get |
||||
|
; Stamp) and 103 (Set Stamp), set STPCALL to true, and datestamps of files |
||||
|
; will be preserved across copies. The "last access" stamps of both copies |
||||
|
; are set to the time the copy took place if access stamping is enabled. |
||||
|
|
||||
|
stpcall equ true ; Copy file stamps with functions 102/3 |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'DIR' command |
||||
|
|
||||
|
; This command displays a sorted listing of the files in a directory. The |
||||
|
; file name buffer is allocated at the top of the TPA so as not to modify |
||||
|
; any program loaded in low memory. Consequently, the size of the buffer |
||||
|
; must be set in advance. |
||||
|
|
||||
|
|
||||
|
maxdirs equ 256 ; Maximum number of names in directory buffer |
||||
|
|
||||
|
nosys equ yes ; suppress 'A' and 'S' options if wheel off |
||||
|
|
||||
|
slashchk equ yes ; allow "DIR /S" or "DIR /A" formats (costs |
||||
|
; about 12 bytes) |
||||
|
|
||||
|
allflag equ 'A' ; Option character for showing |
||||
|
; all file (both SYS and DIR) |
||||
|
sysflag equ 'S' ; Option character for showing |
||||
|
; SYS files only |
||||
|
sortnt equ yes ; Sort file by name then type |
||||
|
wide equ yes ; Make display for 80-column screen |
||||
|
fence equ '|' ; Character to use as fence between columns |
||||
|
; ..if WIDE is false. |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'ECHO' command |
||||
|
|
||||
|
; This command sends characters to the console or list device. If ECHOLST is |
||||
|
; enabled, then code is included for sending characters to the LST device. |
||||
|
; Characters normally go the the console device and are normally upper or lower |
||||
|
; case depending on the setting of UPCASE. The command line can have special |
||||
|
; command sequences to toggle the case of the output and to change the |
||||
|
; destination between the console and printer. Any other character following |
||||
|
; the command character will be sent as is. For the normal setting of the |
||||
|
; equates below (upcase/yes, cmdchar/%, prtchar/P, crtchar/C, lcasech/>, |
||||
|
; and ucasech/<) an example command line would be: |
||||
|
; A0:ROOT>ECHO T%>HIS IS A TEST^M^J^IDONE%PONE, TWO, %<THREE |
||||
|
; The following text would be echoed to the console (inlcuding carriage return, |
||||
|
; linefeed, and tab characters, '|' indicates the left margin): |
||||
|
; |This is a test |
||||
|
; | done |
||||
|
; The string "one, two, THREE" would be sent to the printer. |
||||
|
|
||||
|
echolst equ yes ; Allow ECHO to LST device |
||||
|
|
||||
|
upcase equ yes ; Initial case of output |
||||
|
|
||||
|
cmdchar equ '%' ; Character to flag case change |
||||
|
|
||||
|
prtchar equ 'P' ; Character to start sending output to |
||||
|
; the printer (must be upper case) |
||||
|
crtchar equ 'C' ; Character to start sending output to |
||||
|
; the CRT (must be upper case) |
||||
|
ucasechar equ '<' ; Character after CASECHAR that toggles |
||||
|
; subsequent output to upper case |
||||
|
lcasechar equ '>' ; Character after CASECHAR that toggles |
||||
|
; subsequent output to lower case |
||||
|
|
||||
|
; ---------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'H' command |
||||
|
|
||||
|
; This command displays a list of the resident commands implemented in the |
||||
|
; system. FCP, CPR, and RCP commands can be displayed. The basic command is |
||||
|
; not optional; it is always included. |
||||
|
|
||||
|
listcpr equ yes ; Include list of CPR-resident commands in |
||||
|
; display (highly recommended) |
||||
|
|
||||
|
listfcp equ yes ; Include list of FCP-resident commands in |
||||
|
; display (recommended if there is room) |
||||
|
|
||||
|
noshow equ yes ; Suppress listing commands that are wheel- |
||||
|
; restricted unless wheel byte is set (i.e., |
||||
|
; don't show commands that won't run) |
||||
|
|
||||
|
cmdsline equ 5 ; Number of commands on each line of display |
||||
|
|
||||
|
cmdspace equ 8 ; Space in display for each command name |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; 'LIST' and 'TYPE' commands |
||||
|
|
||||
|
pgdflt equ yes ; Default to paging of console output |
||||
|
|
||||
|
pgdflg equ 'P' ; Character to toggle paging status |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'PEEK' command |
||||
|
|
||||
|
peekhdr equ yes ; Label columns in PEEK display |
||||
|
|
||||
|
peekbdr equ yes ; Include line of hyphens under labels |
||||
|
|
||||
|
peekchk equ yes ; If yes, the ending address will be tested to |
||||
|
; prevent overflow past FFFF (costs 5 bytes) |
||||
|
|
||||
|
peeklen equ 127 ; Display 1 record (128 bytes) as default. |
||||
|
; PEEK displays in increments of 16 bytes. |
||||
|
; You may set PEEKLEN for 0 to 65525. |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'S' command |
||||
|
|
||||
|
; Print disk space with other commands (recommended) |
||||
|
|
||||
|
dirsp equ true ; Show space after DIR |
||||
|
erasp equ true ; Show space after ERA |
||||
|
cpsp equ true ; Show space after CP |
||||
|
resetsp equ true ; Show space after R |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'WHL' command |
||||
|
|
||||
|
whlquiet equ false ; If true, don't report wheel state with |
||||
|
; .."WHL password" command (costs 1 byte) |
||||
|
|
||||
|
wpass macro |
||||
|
db 'SYSTEM ' |
||||
|
endm |
||||
|
|
||||
|
;---------------------------------------- |
||||
|
|
||||
|
; 'CLED' command |
||||
|
; |
||||
|
; Command line editing takes place in the line buffer. It does not take up |
||||
|
; room in the RCP. The editor will handle a 255 byte line. Although that |
||||
|
; is larger than the maximum command line size, it allows you to edit a long |
||||
|
; line without deleting something first. The history is kept inside the RCP, |
||||
|
; so its size will depend upon how many other RCP commands are enabled. |
||||
|
; HISTSIZE should be at least as large as the multiple command line buffer |
||||
|
; (204 bytes). |
||||
|
|
||||
|
lbufwid equ 255 ; Line buffer size, byte |
||||
|
histsize equ 204 ; History buffer size, word |
||||
|
|
||||
|
; CLERA controls whether to null the internal history when CLED is exited, or |
||||
|
; to leave it for the next run. Secure systems will want to set it to YES. |
||||
|
|
||||
|
clera equ no ; Erase history on terminating shell |
||||
|
|
||||
|
; CLMIN sets the cutoff for discarding short lines from history recording. |
||||
|
; A setting of 3 would discard a command such as DIR. |
||||
|
|
||||
|
clmin equ 5 ; Discard lines which do not exceed this |
||||
|
|
||||
|
clins equ yes ; Initial insert state ON |
||||
|
clsav equ yes ; Initial history recording ON |
||||
|
|
||||
|
; The appearance of the command line prompt may include the system time if a |
||||
|
; DateStamper or ZS/ZDDOS clock is implemented. The DU:DIR separator character |
||||
|
; can be changed to indicate that CLED is running. |
||||
|
|
||||
|
dudir_sep equ '/' ; DU:DIR separator char |
||||
|
puser0 equ no ; Print user #0 in prompt |
||||
|
systime equ yes ; Include system time in prompt |
||||
|
|
||||
|
if systime |
||||
|
civtim equ yes ; Yes for 12-hr civil time vs. 24-hr military |
||||
|
timesep equ '.' ; Separator between hours and minutes |
||||
|
endif |
||||
|
|
||||
|
; The editor must use EREOL. The VLIB routine to send the EREOL sequence |
||||
|
; to the terminal needs to test for a video delay and the presence of the "/" |
||||
|
; quote character. Most terminals can just print the TCAP sequence as is. If |
||||
|
; that doesn't work, set ERLQUICK to NO. If you are using only one terminal, |
||||
|
; it will be most efficient to set ERLTCAP to NO and use the CLR_EOL macro. |
||||
|
|
||||
|
erltcap equ yes ; Use TCAP routine vs macro |
||||
|
|
||||
|
if erltcap |
||||
|
erlquick equ yes ; Use simplified TCAP routine |
||||
|
else |
||||
|
|
||||
|
clr_eol macro ; Define terminal specific string |
||||
|
dc 1bh,'T' ; ...set high bit on last character |
||||
|
endm |
||||
|
|
||||
|
endif ;erltcap |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
; Command names |
||||
|
|
||||
|
; The CTABLE macro, which constructs the command dispatch table, includes a |
||||
|
; line for each command, the first parameter of which is the name of the |
||||
|
; command. These names may be changed if you wish. But make sure that you |
||||
|
; do not use a name that is longer than the maximum allowed length. If you |
||||
|
; do, the name will be truncated and a nonfatal error will occur during |
||||
|
; assembly. DO NOT CHANGE ANY PARAMETER OTHER THAN THE COMMAND NAME. Lower |
||||
|
; case letters will be converted to upper case. The macro COMMAND is defined |
||||
|
; in Z34MAC.LIB. |
||||
|
|
||||
|
cmdsize equ 4 ; Length of each command name |
||||
|
|
||||
|
cmdtbl macro |
||||
|
command CLED, cledon, wcled, cled |
||||
|
command CLS, clson, false, cls |
||||
|
command CP, cpon, wcp, copy |
||||
|
command D, diron, wdir, dir |
||||
|
command ECHO, echoon, false, echo |
||||
|
command ERA, eraon, wera, era |
||||
|
command H, true, whrc, clist |
||||
|
command LIST, liston, wlist, list |
||||
|
command NOTE, noteon, false, note |
||||
|
command P, peekon, wpeek, peek |
||||
|
command POKE, pokeon, wpoke, poke |
||||
|
command PORT, porton, wport, port |
||||
|
command PROT, proton, wprot, att |
||||
|
command Q, quieton,wquiet, quset |
||||
|
command R, reson, false, reset |
||||
|
command REG, regon, wreg, register |
||||
|
command REN, renon, wren, ren |
||||
|
command SP, spaceon,false, space |
||||
|
command SPOP, cledon, wspop, shpop |
||||
|
command TYPE, lton, wtype, type |
||||
|
command WHL, whlon, false, whl |
||||
|
endm |
||||
|
|
||||
|
; END Z34RCP.LIB |
||||
|
|
||||
@ -0,0 +1,429 @@ |
|||||
|
|
||||
|
ZCPR Version 3.4 Resident Command Package |
||||
|
Source Code |
||||
|
|
||||
|
Revised Documentation for Version 1.1 |
||||
|
October 7, 1989 by Carson Wilson |
||||
|
|
||||
|
Version 1.0 Documentation |
||||
|
June 17, 1988 by Carson Wilson |
||||
|
|
||||
|
|
||||
|
Contents |
||||
|
-------- |
||||
|
|
||||
|
1. Files in this Library. |
||||
|
|
||||
|
2. Purpose of the Resident Command Package. |
||||
|
|
||||
|
2.1. "Resident" vs. "Transient" Commands. |
||||
|
|
||||
|
2.2. The Z-System Resident Command Package. |
||||
|
|
||||
|
2.2.1. Design Philosophy of the Z34 RCP. |
||||
|
|
||||
|
3. Structure and Operation of the RCP Segment. |
||||
|
|
||||
|
4. Generating an RCP for your System. |
||||
|
|
||||
|
4.1. The Z-Relocatable Approach. |
||||
|
|
||||
|
4.1.1. NZCOM and JetLDR. |
||||
|
4.1.2. Z-Relocatable (ZRL) Code |
||||
|
|
||||
|
4.2. The Assembly Approach. |
||||
|
|
||||
|
4.2.1. Note on Assemblers. |
||||
|
4.2.2. Assembly to Absolute Code. |
||||
|
4.2.3. Assembly to Z-Relocatable Code. |
||||
|
4.2.4. Adding Custom Commands to Z34RCP. |
||||
|
|
||||
|
5. Legal Use of These Files. |
||||
|
|
||||
|
|
||||
|
|
||||
|
1. Files in this Library. |
||||
|
|
||||
|
This library of files contains the assembler source code and |
||||
|
accompanying documentation for the Z-System Resident Command |
||||
|
Package (RCP). To use Z34RCP you must be running ZCPR versions |
||||
|
3.3 or above. For pre-assembled Z-Relocatable (ZRL) RCPs, see |
||||
|
RCPZRL11.LBR. Z34RCP11.LBR consists of the following files |
||||
|
(uncompress with UNCR.COM, QL.COM or LBRE.COM): |
||||
|
|
||||
|
CLEDINST.CZM - Installer for CLED command. |
||||
|
CLEDSAVE.CZM - Command file utility for CLED. |
||||
|
RCPCLED .DZC - Documentation on CLED. |
||||
|
RCPBASE .LZB - Used to assemble an absolute address RCP. |
||||
|
RCPCMD .LZB - Used to include custom commands in the RCP. |
||||
|
RCP?????.LZB - Code modules for the standard RCP commands. |
||||
|
SYSDEF .LZB - Commonly used equates. |
||||
|
Z34CMN .LZB - Used to assemble Z-Relocatable RCP's. |
||||
|
Z34DEFN .LZB - Offsets in the ZCPR 3.4 code. |
||||
|
Z34MAC .LZB - Assembler macros. |
||||
|
Z34RCP11.DZC - This file. |
||||
|
Z34RCP11.FOR - Short description of the library. |
||||
|
Z34RCP11.HZP - Help file for the RCP, gives command syntax and |
||||
|
examples. |
||||
|
Z34RCP .LZB - Used to select features when assembling the RCP. |
||||
|
Z34RCP11.NZW - Changes since Z34RCP10.LBR. Intended for former |
||||
|
RCP users, this will be only of passing interest |
||||
|
to new users. |
||||
|
Z34RCP11.ZZ0 - Main file for assembling the RCP. |
||||
|
ZSYSTEM .AZ - General information about Z System. |
||||
|
|
||||
|
|
||||
|
2. Purpose of the Resident Command Package. |
||||
|
|
||||
|
2.1. "Resident" vs. "Transient" Commands. |
||||
|
|
||||
|
Most of the commands used under CP/M and Z-System are "transient" |
||||
|
commands. The machine code for these commands (or "programs") is |
||||
|
stored in "command files," whose file type is normally .COM. |
||||
|
Thus, the machine code for WordStar is stored in a file called |
||||
|
"WS.COM". |
||||
|
|
||||
|
To run WordStar, the user issues the command "WS" at the command |
||||
|
line, the operating system loads WS.COM from the disk drive to |
||||
|
memory, and WS.COM takes over control of the computer. If the |
||||
|
user then exits WordStar and issues another command, the |
||||
|
operating system can load another command file from the disk, |
||||
|
reusing the area of memory previously occupied by WordStar. |
||||
|
|
||||
|
Recycling memory in this way makes personal computers quite |
||||
|
versatile, as the number of commands available to the user is |
||||
|
only limited to the number of command files stored on disk. |
||||
|
There are some drawbacks to this approach, however. Although |
||||
|
disk-based commands conserve memory by recycling it, they must be |
||||
|
loaded from disk each time they operate. This creates its own |
||||
|
costs in terms of speed of execution, disk storage space, and |
||||
|
memory reallocation. |
||||
|
|
||||
|
The most obvious disadvantage of loading a file from disk each |
||||
|
time a command is issued is that it takes time to find and load |
||||
|
disk files. Especially with floppy diskettes, the amount of time |
||||
|
which elapses after the command is issued and before the command |
||||
|
executes is significant. A second drawback to disk-based |
||||
|
commands is that commands will not execute unless their machine |
||||
|
code is available on the disk system. This means that the user |
||||
|
must know what command files are available on disk before issuing |
||||
|
commands. The final disadvantage of disk file based commands is |
||||
|
that some commands (e.g., SAVE) require that the area of memory |
||||
|
normally overwritten by command files (known as the "Transient |
||||
|
Program Area" or TPA) be preserved. |
||||
|
|
||||
|
In answer to these difficulties, the creators of CP/M designed |
||||
|
some of its commands as "built-in" commands. The DIR, REN, SAVE, |
||||
|
ERA, USER, and TYPE commands of CP/M 2.2 remain in memory and can |
||||
|
be issued without loading machine code files from disk. Thus, |
||||
|
the DIR command provides a disk directory regardless of whether |
||||
|
the command file "DIR.COM" is present on disk, and the SAVE |
||||
|
command saves the contents of memory at 100 hex to a disk file. |
||||
|
Residing permanently in memory, these commands are simple in |
||||
|
order to leave memory for disk-based commands to load in. |
||||
|
|
||||
|
2.2. The Z-System Resident Command Package. |
||||
|
|
||||
|
The creators of Z-System have followed the resident command |
||||
|
philosophy of CP/M, extending and enhancing the capabilities of |
||||
|
resident commands with the Z-System Resident Command Package. |
||||
|
Under CP/M 2.2, resident commands are tightly integrated with the |
||||
|
operating system. The user is therefore limited to a fixed set |
||||
|
of resident commands. The code in the Z-System Resident Command |
||||
|
Package is much more loosely linked with the operating system. |
||||
|
|
||||
|
The RCP occupies a section of protected memory, but how that |
||||
|
memory is used is only very loosely constrained. The Z-System |
||||
|
resident command package may be tailored for a wide variety of |
||||
|
installations, and easily altered within a single installation. |
||||
|
|
||||
|
2.2.1. Design Philosophy of the Z34 RCP. |
||||
|
|
||||
|
Though any set of commands which will fit in the RCP memory area |
||||
|
can be loaded as an RCP, a standard set of Z-System RCP commands |
||||
|
have evolved over the years. Distributed as the standard |
||||
|
Z-System RCP, this set of commands consists of universal, |
||||
|
single-purpose commands modeled after the resident command set of |
||||
|
CP/M 2.2, such as DIR, REN, and ERA. |
||||
|
|
||||
|
Keeping these commands simple both conserves memory and allows |
||||
|
their use in custom command scripts. None of the standard RCP |
||||
|
commands require interaction on the part of the user--they |
||||
|
perform a single function and quit. Aliases or other command |
||||
|
scripts which build complex commands from simple RCP commands |
||||
|
therefore retain complete control over the user interface. |
||||
|
|
||||
|
However, the standard RCP forms only one of many alternative uses |
||||
|
to which the Z-System RCP memory segment may be put. Since the |
||||
|
RCP memory is protected, it can be used by background programs |
||||
|
which continue to function even while other applications have |
||||
|
been loaded into the transient program area. Several such |
||||
|
programs, including key-redefiners, screen-trapping programs, |
||||
|
background numeric calculators, program assembly environments, |
||||
|
and memory utilities have been developed. |
||||
|
|
||||
|
Until Z34RCP, all but the most advanced users had to surrender |
||||
|
their entire RCP to use the custom commands, even if the commands |
||||
|
needed far less than the available RCP space. Thus, to use a |
||||
|
key-redefinition RCP, one was forced to give up all of his other |
||||
|
RCP commands. Z34RCP solves this problem by acting as a base to |
||||
|
which programmers may easily add code. By modifying the standard |
||||
|
file RCPCMD.LIB, programmers can implement and distribute custom |
||||
|
RCP commands which may be installed by those with only basic |
||||
|
knowledge of assembly language. See "Adding Custom Commands," |
||||
|
below, for details. |
||||
|
|
||||
|
|
||||
|
3. Structure and Operation of the RCP Segment. |
||||
|
|
||||
|
Typically, the Resident Command Package occupies 2 kilobytes of |
||||
|
memory, protected above the system's Basic Input Output System |
||||
|
(BIOS). Its internal structure is very simple, consisting of the |
||||
|
five byte string "Z3RCP", a table of command names and their |
||||
|
addresses within the RCP, and the machine code of the commands |
||||
|
themselves. This means that an RCP of a given length can contain |
||||
|
any number of resident commands which will fit in 2k, from one |
||||
|
large program to many shorter programs. |
||||
|
|
||||
|
Further, since the RCP is independent of the rest of the |
||||
|
operating system, the resident commands may be changed at will. |
||||
|
On system startup, a default RCP is loaded into memory. |
||||
|
Thereafter the RCP's commands remain active until the system is |
||||
|
turned off or another RCP is loaded. |
||||
|
|
||||
|
Using loader programs to load the RCP to memory allows another |
||||
|
important ability--it can exchange RCPs during a single session. |
||||
|
By allowing users to change their RCPs "on-the-fly," loader |
||||
|
programs provide some of the benefits of transient commands even |
||||
|
while preserving the benefits of resident commands. In fact, |
||||
|
even what portion of memory is allocated to the RCP can be |
||||
|
altered in this way by advanced users! (see the Z-System User's |
||||
|
Manual for more on this). |
||||
|
|
||||
|
|
||||
|
4. Generating an RCP for your System. |
||||
|
|
||||
|
Since Z80 computers come with a wide variety of operating system |
||||
|
environments, it is impossible for a single segment of machine |
||||
|
code function as a universal RCP. Due to differences in |
||||
|
operating system and hardware design, the size and location of |
||||
|
memory available to the Z-System RCP vary widely. Until |
||||
|
Z34RCP, this meant that each type of Z80 computer required an RCP |
||||
|
segment assembled specifically for that computer. |
||||
|
|
||||
|
Now, however, there are two basic means by which you may generate |
||||
|
an RCP for your system. The simplest route is to load already- |
||||
|
assembled Z-Relocatable code modules. This technique is |
||||
|
recommended for beginners and those with little experience in |
||||
|
assembly language. See RCPZRL11.LBR for pre-assembled RCP |
||||
|
modules. For more experienced users with an interest in |
||||
|
customizing or their RCPs or adding their own commands, custom |
||||
|
assembly of the files in this library is also an option. |
||||
|
|
||||
|
4.1. The Z-Relocatable Approach. |
||||
|
|
||||
|
4.1.1. NZCOM and JetLDR. |
||||
|
|
||||
|
LDR.COM, the familiar Z-System segment loader first introduced by |
||||
|
Rick Conn as a means of loading the various segments of the ZCPR |
||||
|
environment from disk to memory, required that system segments be |
||||
|
assembled to run only at system-specific addresses. For example, |
||||
|
if the system's RCP started at FA00 hex, only an RCP assembled to |
||||
|
run at that starting address would function on the system. |
||||
|
Therefore, separate SYS.RCP files were needed for each computer |
||||
|
installation. |
||||
|
|
||||
|
Thanks to several advanced loader utilities, namely NZCOM by Joe |
||||
|
Wright and JetLDR and Z3PLUS by Bridger Mitchell, custom- |
||||
|
assembling an RCP for a given target machine is no longer |
||||
|
necessary. These three programs can load specially assembled RCP |
||||
|
segments (known as Z-ReLocatable or "ZRL" segments) to any area |
||||
|
of memory. Z-System users now need only obtain previously |
||||
|
assembled RCP segments, much as they need only obtain assembled |
||||
|
.COM or .OBJ files to run transient programs. |
||||
|
|
||||
|
Using information in the system's environmental descriptor, |
||||
|
advanced loaders load pre-assembled segments to the proper |
||||
|
addresses in any system. The only remaining constraint is the |
||||
|
amount of memory allocated to the RCP. While the standard RCP |
||||
|
size is 2 kilobytes, many Z-System installations vary |
||||
|
considerably from this standard, so it is still necessary to |
||||
|
ensure that a ZRL segment does not exceed available RCP memory. |
||||
|
Fortunately, this is taken care of automatically by the advanced |
||||
|
loader programs. |
||||
|
|
||||
|
Using NZCOM or JetLDR, it is possible to load an RCP directly |
||||
|
from RCPZRL11.LBR. See NZCOM or JetLDR documentation for full |
||||
|
instructions on how to load Z-Relocatable RCPs with these |
||||
|
programs. |
||||
|
|
||||
|
4.1.2. Z-Relocatable (ZRL) Code |
||||
|
|
||||
|
The technique used by NZCOM and JetLDR to load a single RCP to |
||||
|
any address in memory involves relocatable code. Relocatable |
||||
|
code has been used for years by the "linker" programs available |
||||
|
to assembly language programmers. Since only portions of a given |
||||
|
Z80 machine code routine are specific to one memory address, it |
||||
|
is possible to create "relocatable" files of Z80 routines (known |
||||
|
by their file type .REL) containing all but the address-specific |
||||
|
codes. These files can then be very quickly relocated (or |
||||
|
"linked") by a linker program to operate at any memory address. |
||||
|
|
||||
|
Z-Relocatable code is simply a more sophisticated form of |
||||
|
relocatable code. ZRL files contain separately labeled segments, |
||||
|
known as "named common blocks." Where normal relocatable code is |
||||
|
all linked to operate at one address at a time by the linker |
||||
|
program, named common blocks allow the linker to distinguish |
||||
|
between different sections of the file and to link each "block" |
||||
|
to operate at a different address. |
||||
|
|
||||
|
This represents a major step forwards in user convenience, and |
||||
|
will certainly lead to more innovative work using the ZCPR system |
||||
|
segments. There is a minor drawback, however, inherent in the |
||||
|
form of assembly required by NZCOM and JetLDR. Before the advent |
||||
|
of these two programs, system segments were equivalent to .COM |
||||
|
files which were assembled to operate at addresses other than the |
||||
|
standard 100 hex. The ability to load a single system segment to |
||||
|
any address depends partially on the form of the assembled system |
||||
|
segment itself. |
||||
|
|
||||
|
While public domain assemblers will produce absolute object |
||||
|
files, more sophisticated assemblers, such as SLR's Z80ASM (a |
||||
|
bargain at $50) are required to assemble code with named common |
||||
|
addresses. NZCOM and JetLDR thus greatly reduce the time needed |
||||
|
by most users to install Z-System segments, but those wishing to |
||||
|
assemble Z-Relocatable segments will probably need a commercial |
||||
|
assembler. |
||||
|
|
||||
|
4.2. The Assembly Approach. |
||||
|
|
||||
|
Those with knowledge of assembly language may opt to assemble |
||||
|
their own custom RCPs, including only the commands and options |
||||
|
which match their exact requirements. Z34RCP.LBR contains the |
||||
|
complete source to the ZCPR 3.4 RCP. The file Z34RCP.Z80 |
||||
|
contains include statements to combine the various library files |
||||
|
during assembly. The file Z34RCP.LIB contains all of the equates |
||||
|
controlling assembly time options, and should be edited before |
||||
|
assembling Z34RCP.Z80. |
||||
|
|
||||
|
4.2.1. Note on Assemblers. |
||||
|
|
||||
|
The development work on Z34RCP was done exclusively with the SLR |
||||
|
Systems line of Z80 assemblers. Hence, some of the source code |
||||
|
is unavoidably specific to SLR and compatible assemblers. Those |
||||
|
using incompatible assemblers such as public-domain Z80 |
||||
|
assemblers should set the SLR equate in Z34RCP.LIB to FALSE. |
||||
|
This removes most SLR-specific pseudo-ops, but some additional |
||||
|
editing of the source files may be required for error-free |
||||
|
assembly. Unless your assembler can handle named common blocks, |
||||
|
you will also want to set the ZRL equate in Z34RCP.LIB to FALSE. |
||||
|
|
||||
|
4.2.2. Assembly to Absolute Code. |
||||
|
|
||||
|
If you are assembling a custom RCP for use at one memory address |
||||
|
only, or if your assembler can't handle named common blocks, you |
||||
|
can set the ZRL equate in Z34RCP.LIB to FALSE, and instruct your |
||||
|
assembler to produce absolute code (either a .HEX or a .COM file). |
||||
|
|
||||
|
Before generating absolute code you must set addresses in the |
||||
|
file RCPBASE.LIB for the particular installation. Once you have |
||||
|
set these addresses, you may proceed to assemble Z34RCP.Z80 to |
||||
|
either Z34RCP.COM or Z34RCP.HEX. If your assembler generated a |
||||
|
.HEX file, use LOAD.COM to convert Z34RCP.HEX to Z34RCP.COM. |
||||
|
|
||||
|
If you are running a version of ZCPR prior to 3.4, you must now |
||||
|
alter two bytes in your Z-System environment segment to point to |
||||
|
your system's CCP address. The bytes at offset 39 and 40 hex |
||||
|
(formerly containing "width of printer 2" and "lines on printer |
||||
|
2") should contain a 2-byte address of your system's CCP, most |
||||
|
significant byte last. |
||||
|
|
||||
|
Z34RCP.COM may now be renamed to SYS.RCP and loaded with the Z- |
||||
|
System loader program LDR.COM or Bridger Mitchell's JetLDR. |
||||
|
|
||||
|
4.2.3. Assembly to Z-Relocatable Code. |
||||
|
|
||||
|
Unlike absolute RCP segments, Z-Relocatable segments may be |
||||
|
loaded to ANY address, provided enough RCP space to contain them |
||||
|
is available. To assemble a Z-Relocatable RCP, you will need an |
||||
|
assembler which can handle named common blocks (see 4.2.1 above). |
||||
|
Set the ZRL equate in Z34RCP.LIB to TRUE, and instruct your |
||||
|
assembler to produce a relocatable (.REL) file. The resulting |
||||
|
Z34RCP.REL may then be renamed to Z34RCP.ZRL and loaded with |
||||
|
NZCOM, Z3PLUS, JetLDR. |
||||
|
|
||||
|
4.2.4. Adding Custom Commands to Z34RCP. |
||||
|
|
||||
|
As mentioned above, I have designed Z34RCP as a base to which |
||||
|
custom RCP commands may readily be added. All code and command |
||||
|
names for custom commands may be included in RCPCMD.LIB. |
||||
|
Thereafter, whenever the RCP is assembled the commands added to |
||||
|
RCPCMD.LIB will be included automatically. To remove the custom |
||||
|
commands, just replace the modified RCPCMD.LIB with an unmodified |
||||
|
copy. See RCPCMD.LIB for detailed instructions on how to add |
||||
|
code and command names. |
||||
|
|
||||
|
RCPCMD.LIB also facilitates distribution of custom commands to be |
||||
|
included by others in their RCPs. Simply distribute a copy of |
||||
|
your modified RCPCMD.LIB along with instructions on how to use |
||||
|
your custom commands. Users may then easily include the new |
||||
|
commands by substituting your modified RCPCMD.LIB for their |
||||
|
original copy and reassembling their RCPs. |
||||
|
|
||||
|
Of course, users of NZCOM, Z3PLUS, or JetLDR may simply trade |
||||
|
custom RCPs in Z-Relocatable form and dispense with the need for |
||||
|
any assembly work on the part of the user. All three of these |
||||
|
advanced loaders are available from Z Systems Associates (see |
||||
|
below). |
||||
|
|
||||
|
|
||||
|
5. Legal Use of These Files. |
||||
|
|
||||
|
Z34RCP is copyright 1989 by Z Systems Associates (ZSA), all |
||||
|
rights reserved. Any commercial use of Z34RCP, defined as any |
||||
|
situation where the duplicator recieves revenue by duplicating or |
||||
|
distributing Z34RCP by itself or in conjunction with any hardware |
||||
|
or software product, is expressly prohibited unless authorized in |
||||
|
writing by ZSA. |
||||
|
|
||||
|
Except for the file RCPCMD.LIB (see 4.2.4 above), you may |
||||
|
redistribute Z34RCP.LBR in its present form only. I encourage |
||||
|
you to explore the source code, suggest improvements, and |
||||
|
document errors. However, please obtain permission from Z |
||||
|
Systems Associates before redistributing any of these files in |
||||
|
altered form. This will prevent confusion by allowing your work |
||||
|
to be coordinated with the efforts of others. |
||||
|
|
||||
|
The Z Systems Associates are: |
||||
|
|
||||
|
Sage Microsystems East |
||||
|
Selling & Supporting the Best in 8-Bit Software |
||||
|
1435 Centre St., Newton Centre, MA 02159-2469 |
||||
|
Voice: 617/965-3552 (9:00am - 11:30pm) |
||||
|
Modem: 617/965-7259 (password = DDT)(MABOS on PC-Pursuit) |
||||
|
|
||||
|
and: |
||||
|
|
||||
|
Plu*Perfect Systems |
||||
|
"==World-Class Software" |
||||
|
410 23rd Street, Santa Monica, CA 90402 |
||||
|
Voice: 213/393-6105 (evenings) |
||||
|
Modem: 213/670-9465 (leave message for "Bridger Mitchell") |
||||
|
|
||||
|
For more information on Z System, check at the above bulletin |
||||
|
board systems, or consult The Computer Journal for excellent |
||||
|
articles on ZCPR and CP/M. The Computer Journal is published six |
||||
|
times a year by Publishing Consultants, 190 Sullivan Crossroad, |
||||
|
Columbia Falls, MT 59912, phone 406/257-9119. An issue averages |
||||
|
forty pages with few ads. Subscription rates are $16 for one |
||||
|
year (6 issues), or $28 for two years (12 issues) in the U.S., |
||||
|
$22 for one year Canada and Mexico, and $24 (surface) for one |
||||
|
year in other countries. |
||||
|
|
||||
|
|
||||
|
Carson Wilson is the operator of: |
||||
|
|
||||
|
Antelope Freeway Remote Access System |
||||
|
Chicago, 312-764-5162 |
||||
|
300-1200-2400 Baud, 24 Hours |
||||
|
|
||||
@ -0,0 +1,7 @@ |
|||||
|
Z-System Resident Command Package (RCP) in source code form, version |
||||
|
1.1. Complete Z80 source code to the RCP plus documentation, for |
||||
|
ZCPR versions 3.3 and above. Adds several exciting new commands and |
||||
|
features and fixes various bugs in the previous release. See |
||||
|
companion file RCPZRL11.LBR for pre-compiled RCP modules which may |
||||
|
be loaded with NZ-COM, Z3PLUS, or JetLDR. |
||||
|
|
||||
@ -0,0 +1,390 @@ |
|||||
|
The RCP Commands |
||||
|
CLED/SPOP Command Line Editor |
||||
|
CLS Clear the CRT screen |
||||
|
CP Copy a File |
||||
|
D Display Directory |
||||
|
ECHO Echo Command Tail |
||||
|
ERA Erase Files |
||||
|
H Display Available Commands |
||||
|
LIST/TYPE Display a File on Printer/CRT |
||||
|
NOTE Comment |
||||
|
P/POKE Display/Alter Memory |
||||
|
PORT Input/Output to system ports |
||||
|
PROT Protect Files |
||||
|
Q Alter or Query the Quiet Flag |
||||
|
R Reset Disk |
||||
|
REG ZCPR3 Register Display/Alter |
||||
|
REN Rename a File |
||||
|
SP Display Disk Space Remaining |
||||
|
WHL Alter or Query Wheel Byte � |
||||
|
:Thå RCÐ Commands |
||||
|
|
||||
|
|
||||
|
Thå standarä ZCPR³ Systeí Residenô Commanä Packagå (RCP© � |
||||
|
distributeä witè thå ZCPR³ systeí containó á numbeò oæ residenô � |
||||
|
commandó whicè maù bå enableä (dependinç oî systeí memorù anä � |
||||
|
securitù characteristics© aô thå discretioî oæ thå installer® � |
||||
|
Usagå oæ thå RCÐ commandó ió describeä iî thió HELÐ file. |
||||
|
|
||||
|
Thå RCÐ commandó residå iî memorù ratheò thaî beinç loadeä � |
||||
|
froí disk¬ anä thereforå operatå verù efficientlù anä arå disë � |
||||
|
independent® Oî thå otheò hand¬ duå tï memorù constraints¬ thå � |
||||
|
RCÐ commandó arå ofteî lesó powerfuì thaî theiò transienô prograí � |
||||
|
counterparts® |
||||
|
|
||||
|
|
||||
|
|
||||
|
Iæ aî erroò occurs¬ thå RCÐ commandó generallù chaiî tï thå � |
||||
|
installeä erroò handler¬ providinç á detaileä reporô oæ thå erroò � |
||||
|
anä allowinç thå commanä tï bå editeä oò aborted® Iæ nï erroò � |
||||
|
handleò ió installed¬ thå commanä whicè causeä thå erroò ió � |
||||
|
echoeä tï thå screen¬ followeä bù á questioî mark. |
||||
|
|
||||
|
Alì RCÐ commandó arå installatioî-dependent¬ anä manù maù bå � |
||||
|
configureä aô assemblù timå tï perforí iî slightlù differenô � |
||||
|
ways® Thå exampleó giveî iî thió HELÐ filå arå baseä oî thå � |
||||
|
distributeä seô oæ options® Seå sourcå codå filå Z34RCP.LIÂ foò � |
||||
|
morå detailó oî commanä anä optioî selection. |
||||
|
|
||||
|
:CLED anä SPOÐ Commands |
||||
|
Transient Counterparts: LSÈ anä SPOP |
||||
|
|
||||
|
Thå CLEÄ commanä invokeó á speciaì prograí whicè provideó � |
||||
|
WordStaò-likå editinç oæ commandó aô thå systeí prompt® Iô alsï � |
||||
|
allowó yoõ tï recalì thå lasô severaì commandó invokeä witè onlù � |
||||
|
onå keystroke® Finally¬ iæ available¬ CLEÄ displayó thå currenô � |
||||
|
systeí timå tï thå lefô oæ youò prompt® Thå syntaø is: |
||||
|
|
||||
|
CLED - invoke as shell |
||||
|
CLED / - invoke for next command only |
||||
|
|
||||
|
|
||||
|
|
||||
|
Thå SPOÐ commanä "pops¢ thå toð shelì froí thå shelì stack¬ � |
||||
|
sï thaô iô nï longeò loadó afteò everù command® Thió commanä ió � |
||||
|
rarelù needed¬ anä ió includeä onlù witè versionó oæ thå RCÐ � |
||||
|
includinç CLEÄ (seå above)® Thå syntaø ió simply: |
||||
|
|
||||
|
SPOP |
||||
|
:CLS Command |
||||
|
Transient Counterpart: None |
||||
|
|
||||
|
Thå CLÓ commanä clearó thå terminaì screen¬ removinç � |
||||
|
displayó whicè mighô havå beeî lefô bù previouó commandó oò � |
||||
|
programs® Thå syntaø is: |
||||
|
|
||||
|
CLS |
||||
|
|
||||
|
:CP Command |
||||
|
Transient Counterpart: MCOPY |
||||
|
|
||||
|
Thå CÐ commanä copieó onå filå froí onå DÕ tï anotheò oò � |
||||
|
intï thå samå DÕ undeò á differenô name® Iæ functionó 10² (geô � |
||||
|
stamp© anä 10³ (seô stamp© arå supporteä bù aî RSØ oò DOS¬ filå � |
||||
|
datestampó arå preserveä acrosó copies® Thå syntaø is: |
||||
|
|
||||
|
CP dir:ufn1 dir:ufn2 -- ufn1 to ufn2 |
||||
|
CP dir:ufn1 -- ufn1 to current dir: |
||||
|
CP dir:ufn2=dir:ufn1 -- ufn1 to ufn2 |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
CP f1.txt f2.txt |
||||
|
CP b0:f1.txt a15: |
||||
|
CP root:f1.txt |
||||
|
|
||||
|
:D Command |
||||
|
Transient Counterpart: DIR, XD, XDIR |
||||
|
|
||||
|
Thå Ä commanä displayó thå directorù oæ fileó iî � |
||||
|
alphabeticaì ordeò acrosó thå lineó tï thå user® Thå syntaø is: |
||||
|
|
||||
|
D dir:afn.aft o |
||||
|
D .aft o |
||||
|
D /o |
||||
|
|
||||
|
Options (wheel only) are: |
||||
|
|
||||
|
S - Display System Files Only |
||||
|
A - Display Both Non-System and System Files |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
D /a |
||||
|
D root:myfile.txt
Š D .com |
||||
|
|
||||
|
:ECHO Command |
||||
|
Transient Counterpart: ECHO |
||||
|
|
||||
|
ECHÏ ió usefuì iî issuinç botè messageó (tï thå user¬ � |
||||
|
saù withiî á commanä filå durinç execution© anä escapå sequences® � |
||||
|
Bù uså oæ thå %¾ anä %¼ parameters¬ ECHÏ caî senä itó outpuô iî � |
||||
|
combinationó oæ uppeò anä loweò case® Bù uså oæ thå %Ð anä %Ã � |
||||
|
parameters¬ ECHÏ outpuô caî bå toggleä betweeî screeî anä � |
||||
|
printer® ECHÏ useó BIOÓ calls¬ sï alì controì characteró � |
||||
|
(entereä aó ^character© arå passeä exactly® Hence¬ consolå-leveì � |
||||
|
programminç oæ sucè deviceó (CRTó anä printers© ió possible. |
||||
|
|
||||
|
Examples: |
||||
|
ECHO %Pthis is a test%Cof echo%P |
||||
|
-- "THIS IS A TEST" goes to the printer |
||||
|
"OF ECHO" goes to the console |
||||
|
(trailing %P flushes printer buffer) |
||||
|
|
||||
|
ECHO t%>his is a %<test^j |
||||
|
-- "This is a TEST", followed by Control-J, |
||||
|
goes to the console� |
||||
|
:ERA Command |
||||
|
Transient Counterpart: ERASE |
||||
|
|
||||
|
Thå ERÁ commanä eraseó files® Iæ anù characteò ió entereä � |
||||
|
afteò thå filespec¬ thå useò ió prompteä beforå eacè erasure® � |
||||
|
Thå syntaø is: |
||||
|
|
||||
|
ERA dir:afn |
||||
|
or: |
||||
|
ERA dir:afn o -- Inspect files first |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
ERA b7:*.bak |
||||
|
ERA text:*.tmp i |
||||
|
|
||||
|
:H Command |
||||
|
Transient Counterpart: SHOW |
||||
|
|
||||
|
Thå È (help© commanä displayó tï thå consolå alì oæ thå � |
||||
|
builô-iî commandó currentlù availablå oî thå system¬ includinç � |
||||
|
RCP¬ FCP¬ anä CCÐ commands® Iæ á commanä ió wheeì-protected¬ iô � |
||||
|
ió noô displayeä whilå thå wheeì bytå ió off. |
||||
|
|
||||
|
The syntax is simply: |
||||
|
|
||||
|
H |
||||
|
|
||||
|
:LIST and TYPE Commands |
||||
|
Transient Counterparts: PRINT and PAGE |
||||
|
|
||||
|
Thå TYPÅ commanä displayó á grouð oæ fileó oî thå CRÔ whilå �Šthå LISÔ commanä printó á grouð oæ fileó oî thå printer® Whilå � |
||||
|
thå fileó arå beinç displayeä oò printed¬ controì-Ø entereä aô � |
||||
|
thå consolå skipó tï thå nexô filå anä controì-Ã cancels® Whilå � |
||||
|
TYPEinç á filå oò files¬ paginç maù bå switcheä ofæ witè controì � |
||||
|
Z® Iæ LISÔ ió giveî withouô parameters¬ á forí feeä ió senô tï � |
||||
|
thå printer® Thå syntaø is: |
||||
|
|
||||
|
TYPE dir:afn o -or- LIST dir:afn -or- LIST |
||||
|
|
||||
|
Option to TYPE: |
||||
|
|
||||
|
P - Do NOT Page Output to CRT |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
TYPE b7:*.asm p |
||||
|
LIST text:*.txt� |
||||
|
:NOTE Command |
||||
|
Transient Counterpart: NOTE |
||||
|
|
||||
|
NOTÅ ió simplù á "dï nothing¢ commanä whicè caî bå useä tï � |
||||
|
placå commentó intï multiplå commanä lines® Foò instance¬ iî thå � |
||||
|
followinç line: |
||||
|
|
||||
|
d *.com;note this is a dir display;era *.bak |
||||
|
|
||||
|
thå Ä anä ERÁ commandó perforí normally¬ anä thå NOTÅ commanä � |
||||
|
simplù doeó nothinç verù efficiently. |
||||
|
|
||||
|
:P and POKE Commands |
||||
|
Transient Counterparts: None (Subset of DDT) |
||||
|
|
||||
|
Thå Ð commanä allowó thå useò tï examinå á chunë oæ memory® � |
||||
|
Iæ thå useò simplù typeó "P¢ witè nï address¬ thå nexô 12¸ byteó � |
||||
|
oæ memorù arå displayed® Iæ thå useò typeó "Ð address"¬ 12¸ � |
||||
|
byteó oæ memorù startinç aô thå indicateä addresó arå displayed® � |
||||
|
Iæ thå useò typeó "Ð address± address2"¬ memorù iî thió addresó � |
||||
|
rangå ió displayed® Thå syntax: |
||||
|
|
||||
|
P |
||||
|
or: |
||||
|
P address |
||||
|
or: |
||||
|
P address1 address2� |
||||
|
|
||||
|
|
||||
|
|
||||
|
Thå POKÅ commanä allowó thå useò tï changå thå contenô oæ � |
||||
|
memory® Thå useò musô specifù aî addresó tï POKE¬ anä twï basiã � |
||||
|
formó arå allowed: |
||||
|
|
||||
|
POKE address val1 val2 ... valn |
||||
|
and: |
||||
|
POKE address "character string |
||||
|
|
||||
|
Thå twï formó maù bå intermixeä witè leadinç valueó anä á � |
||||
|
trailinç characteò string: |
||||
|
|
||||
|
POKE address val1 val2 ... valn "character string� |
||||
|
|
||||
|
|
||||
|
|
||||
|
Examples: |
||||
|
P |
||||
|
P f400 |
||||
|
P f400 f425 |
||||
|
POKE f400 0 1 2 |
||||
|
POKE f400 "this is a test |
||||
|
POKE f400 1 2 3 "hello, world |
||||
|
|
||||
|
:PORT Command |
||||
|
Transient Counterpart: None |
||||
|
|
||||
|
Thå PORÔ commanä allowó thå useò tï inpuô anä outpuô valueó � |
||||
|
tï thå computer'ó input/outpuô ports® Thå syntaø is: |
||||
|
|
||||
|
PORT addr -- Read and display value |
||||
|
PORT addr value -- Send value to port |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
PORT fc |
||||
|
PORT fd 21 |
||||
|
|
||||
|
:PROT Command |
||||
|
Transient Counterpart: PROTECÔ |
||||
|
|
||||
|
Thå PROÔ commanä setó thå filå protectioî attributeó foò á � |
||||
|
grouð oæ files® Thå R/O¬ System¬ anä Archivå attributeó maù bå � |
||||
|
seô witè thå R¬ S¬ anä Á options¬ respectively¬ giveî iî anù � |
||||
|
ordeò aó "RSA¢ oò "ASR"® Omissioî oæ onå oæ theså optionó � |
||||
|
toggleó thå oppositå (ie¬ omissioî oæ Ò makeó thå fileó R/W)® � |
||||
|
Thå É optioî allowó onå tï inspecô eacè filenamå beforå settinç � |
||||
|
itó filå attributes® Thå syntax: |
||||
|
|
||||
|
PROT dir:afn - set to read write, directory, modified |
||||
|
PROT dir:afn R - set to read only, directory, modified |
||||
|
PROT dir:afn RA - set to read only, directory, archived |
||||
|
PROT dir:afn RASI - set to read only, system, archived, |
||||
|
with inspection |
||||
|
Examples: |
||||
|
PROT b7:*.com rai |
||||
|
PROT this.doc� |
||||
|
:Q Command |
||||
|
Transient Counterpart: QUIET |
||||
|
|
||||
|
Thå Ñ commanä turnó thå ZCPÒ quieô flaç oî oò off® Thå � |
||||
|
quieô flaç ió useä bù somå programó anä partó oæ thå operatinç � |
||||
|
systeí tï determinå ho÷ mucè informatioî theù shoulä displaù tï � |
||||
|
thå screen® Aó á rule¬ wheî thå quieô flaç ió on¬ programó � |
||||
|
displaù onlù erroò messageó tï thå screen® Thå syntaø is: |
||||
|
|
||||
|
"Q" or "Q Dis" -- display quiet flag |
||||
|
"Q S" or "Q Set" -- turn quiet flag ON
Š "Q R" or "Q Reset" -- turn quiet flag OFF |
||||
|
|
||||
|
:R Command |
||||
|
Transient Counterpart: None |
||||
|
|
||||
|
Thå Ò (reset© commanä resetó á floppù disë anä displayó thå � |
||||
|
amounô oæ spacå remaining® ZSDOÓ doeó noô requirå diskó tï bå � |
||||
|
reseô witè controì-C¬ buô programó wilì reporô disë spacå � |
||||
|
properlù untiì á disë ió reset¬ anä iô ió á gooä practice® Ò � |
||||
|
alsï forceó á reseô oæ alì diskó usinç thå "fasô fixeä disë � |
||||
|
relog¢ featurå oæ ZSDOS. |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
R -- Reset current disk |
||||
|
R b: -- Reset disk B |
||||
|
|
||||
|
|
||||
|
:REG Command |
||||
|
Transient Counterpart: REG |
||||
|
|
||||
|
Á registeò ió á ZCPR³ buffer¬ indicateä bù á digiô froí ° tï � |
||||
|
31¬ oò thå letteò Å foò prograí Erroò byte® Thå registeró arå � |
||||
|
useä tï pasó informatioî betweeî programó oò portionó oæ thå � |
||||
|
operatinç system. |
||||
|
|
||||
|
The REG command forms are: |
||||
|
REG D or REG = display values of first 10 registers |
||||
|
REG Mreg = subtract 1 from a register (Minus) |
||||
|
REG Preg = add 1 to a register (Plus) |
||||
|
REG Sreg value = set value of indicated register |
||||
|
REG reg = display a single register value� |
||||
|
|
||||
|
|
||||
|
|
||||
|
Examples: |
||||
|
REG S0 4 -- reg 0 = 4 |
||||
|
REG S12 -- reg 12 = 0 |
||||
|
REG P -- reg 0 = reg 0 + 1 |
||||
|
REG P5 -- reg 5 = reg 5 + 1 |
||||
|
REG M9 -- reg 9 = reg 9 - 1 |
||||
|
REG -- show first ten values |
||||
|
REG SE 0 -- zero program error byte |
||||
|
|
||||
|
:REN Command |
||||
|
Transient Counterpart: RENAME |
||||
|
|
||||
|
Thå REÎ commanä changeó thå namå oæ onå filå tï another® � |
||||
|
Thå filå nameä oî thå lefô wilì bå renameä witè thå namå tï thå � |
||||
|
right® Iæ aî equaì sigî ("="© ió used¬ thå oldeò CP/Í syntaø ió � |
||||
|
used¬ anä thå filå nameä oî thå righô ió renameä tï thå namå oî � |
||||
|
thå left® Iæ anotheò filå alreadù haó thió name¬ thå useò ió � |
||||
|
askeä whetheò oò noô tï eraså thå olä file® Thå syntaø is: |
||||
|
|
||||
|
REN dir:ufn1 ufn2 |
||||
|
REN ufn1 dir:ufn2 |
||||
|
REN ufn2=ufn1 |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
REN oldfile.txt newfile.txt |
||||
|
REN root:sys.rcp sys1.rcp |
||||
|
REN oldname work:newname |
||||
|
REN work:newname=oldname� |
||||
|
:SP Command |
||||
|
Transient Counterpart: None (Subset of STAT) |
||||
|
|
||||
|
Thå Ó commanä displayó spacå remaininç oî thå currenô oò � |
||||
|
specifieä disk. |
||||
|
|
||||
|
Examples: |
||||
|
|
||||
|
SP -- Display space on current disk |
||||
|
SP a: -- Display space on disk A |
||||
|
:WHL Command |
||||
|
Transient Counterpart: WHEEL |
||||
|
|
||||
|
Thå WHÌ commanä ió useä tï turî ofæ thå Wheeì Bytå (makå � |
||||
|
thå useò noî-privileged)¬ tï turî oî thå Wheeì Bytå (makå thå � |
||||
|
useò privileged)¬ oò tï displaù thå Wheeì state® Thå syntaø is: |
||||
|
|
||||
|
WHL password - Turn wheel ON if password correct, |
||||
|
turn wheel OFF if not. |
||||
|
|
||||
|
WHL - Display wheel state |
||||
|
|
||||
|
Examples:
Š |
||||
|
WHL |
||||
|
WHL mypass� |
||||
|
|
||||
|
|
||||
|
|
||||
|
Bù default¬ thå followinç RCÐ commandó arå noô availablå � |
||||
|
whilå thå wheeì bytå ió off: |
||||
|
|
||||
|
CP Copy a File |
||||
|
ERA Erase Files |
||||
|
LIST/TYPE Display a File on Printer/CRT |
||||
|
P/POKE Display/Alter Memory |
||||
|
PORT Input/Output to system ports |
||||
|
PROT Protect Files |
||||
|
SPOP Pop Shell Stack |
||||
|
REG ZCPR3 Register Display/Alter |
||||
|
REN Rename a File |
||||
|
|
||||
|
Thå commandó dï noô appeaò iî thå È (help© display¬ anä � |
||||
|
attemptó tï uså theí invokå thå erroò handleò (iæ present© oò � |
||||
|
echï thå baä commanä bacë tï thå screeî followeä bù á questioî � |
||||
|
mark® |
||||
|
|
||||
@ -0,0 +1,136 @@ |
|||||
|
|
||||
|
Enhancements to the ZCPR 3.4 Resident Command Package |
||||
|
October 8, 1989 by Carson Wilson |
||||
|
|
||||
|
The following is a description of the functional enhancements I have made |
||||
|
since Z34RCP10.LBR. Most of the changes are relatively minor, but several |
||||
|
exciting new capabilities have been added, and a few important bugs have been |
||||
|
fixed. |
||||
|
|
||||
|
New CLED (Command Line EDitor) Command: |
||||
|
-------------------------------------- |
||||
|
Rob Friefeld, author of LSH and many other excellent Z System tools, has |
||||
|
outdone himself with a new RCP command line editor. CLED is different from |
||||
|
other RCP commands, in that it is the first RCP command which also works as a |
||||
|
shell. By combining the memory-resident characteristics of the RCP with the |
||||
|
shell concept, Rob has created a command which significantly transforms the Z |
||||
|
System environment. CLED greatly expands the user's ability to edit and |
||||
|
correct command lines with such features as insert and move and delete word |
||||
|
left and right, but that isn't all--it also stores a queue of previous |
||||
|
commands (up to 203 bytes total) which can then be recalled (and edited). And |
||||
|
since CLED is memory-resident, there are NO time disk access penalties |
||||
|
involved! Please see RCPCLED.DOC for details on this exciting enhancement. |
||||
|
|
||||
|
Enhancements Pertaining to Several Commands: |
||||
|
------------------------------------------- |
||||
|
1. Dynamic Quiet Flag Sensing. |
||||
|
|
||||
|
I have added dynamic QUIET flag sensing to the CP, DIR, ERA, POKE, PORT, PROT, |
||||
|
REG, and Reset commands. These commands should now only display error |
||||
|
messages if QUIET is active. Otherwise they should just go about their |
||||
|
business with as little screen activity as possible. The only change to DIR |
||||
|
is that it doesn't show SPace remaining if QUIET is on (this is actually just |
||||
|
a side effect from ERA and CP). Note the anomaly that if QUIET is on, Reset |
||||
|
now operates somewhat differently on non-default drives: since SPace is no |
||||
|
longer called, the drive doesn't actually log back (no physical activity) |
||||
|
until accessed by another command. Also note that using the "Inspect" option |
||||
|
of ERA will produce odd results if Quiet is on: you will be prompted for each |
||||
|
file, but no filenames will be displayed. I don't really know an ideal |
||||
|
solution for this, but in general I think someone who gives their computer |
||||
|
contradictory instructions should expect contradictory results! |
||||
|
|
||||
|
Some confusion has arisen as to the purpose of the Quiet flag. It is not, nor |
||||
|
was it ever intended to be, a security feature. As Richard Conn, original |
||||
|
author of ZCPR states on page 77 of _ZCPR3: The Manual_, if the Quiet flag is |
||||
|
on, certain informative messages are suppressed "in order to cut down on the |
||||
|
'noise' created by the command." I feel that it is far better in a security |
||||
|
sensitive situation to simply turn off the remote terminal using the remote |
||||
|
terminal software than to rely on the QUIET flag. BYE supports two system |
||||
|
calls which can turn off the remote console altogether (both input AND |
||||
|
output), and I think this a better solution where sensitive commands are |
||||
|
concerned than use of QUIET. For one thing, QUIET wasn't designed to disable |
||||
|
interruption by the remote terminal of commands such as ERA or PROT. |
||||
|
Additionally, control of console I/O through BYE allows ANY CP/M program to be |
||||
|
used "quietly." Finally, Z System programs vary somewhat in their treatment |
||||
|
of QUIET. |
||||
|
|
||||
|
For these reasons I now consider QUIET purely a display control flag, rather |
||||
|
than a security device. For similar reasons, I have changed the default of |
||||
|
WHLQUIET to FALSE, causing WHL to display the new setting. I realize this is |
||||
|
a departure from recent practice, but I think the advantages in terms of |
||||
|
clarity, uniformity, and safety outweigh any disadvantages that may result. |
||||
|
|
||||
|
2. Intelligent Error Handling |
||||
|
|
||||
|
The CP, ERA, and REN commands now allow an intelligent error handler to act |
||||
|
differently when certain errors occur. The main idea is to allow larger, more |
||||
|
powerful transient equivalents of the resident commands to take over when more |
||||
|
features are required (much the same as CP/M Plus), but the interface also |
||||
|
allows other actions to be taken if desired. If the CP or REN commands detect |
||||
|
an ambiguous file specification, or if the ERA command detects a read-only |
||||
|
file, bit 4 of ZCPR's command status flag (CST) is set before chaining to the |
||||
|
error handler (if installed). Newer error handlers will bypass normal error |
||||
|
handling when this bit is set, instead prepending a user-installable string to |
||||
|
the original command and re-executing the new command. Typically, the new |
||||
|
string will be a single colon, or a drive, user, or directory name. |
||||
|
|
||||
|
For example, in order to save memory, the RCP CP command will not copy |
||||
|
multiple files, and the command |
||||
|
|
||||
|
CP *.* B: |
||||
|
|
||||
|
normally results in an error. However, if the error handler is configured to |
||||
|
recognize CST bit 4, it prepends a ":" to the original command, resulting in |
||||
|
|
||||
|
:CP *.* B: |
||||
|
|
||||
|
Because a leading colon (or directory specification) causes ZCPR to skip |
||||
|
resident command processing, a search is now made for a command file named |
||||
|
"CP". By storing a more powerful copy program under this name at the current |
||||
|
directory (or along the path if available), you can use this feature to invoke |
||||
|
the transient program only when needed, using the faster resident command for |
||||
|
single files. |
||||
|
|
||||
|
A similar approach can be used with the ERA and REN commands. |
||||
|
|
||||
|
Since any string of up to 9 characters can be installed to prepend the errant |
||||
|
commands, you can also gain even greater control by prepending the command |
||||
|
with "/" (or "ARUNZ ") to invoke ARUNZ with an arbitrary command (or no |
||||
|
command at all) for each CP, ERA, and/or REN. See ZERRxx.LBR for details on |
||||
|
how to install the error handler. |
||||
|
|
||||
|
|
||||
|
Enhancements Pertaining to Specific Commands: |
||||
|
-------------------------------------------- |
||||
|
(Selectable = may be deselected at assembly time) |
||||
|
|
||||
|
Cmnd Selectable Enhancement(s): |
||||
|
---- ---------- -------------------------------------------------------------- |
||||
|
CLED - New command. |
||||
|
|
||||
|
CP - Now works properly with Z3PLUS. |
||||
|
- Now properly sets destination datestamps of multiple-extent |
||||
|
files. |
||||
|
|
||||
|
D - Now allows the syntax "DIR [dir:].aft" to display all files |
||||
|
matching a filetype (e.g., "D .COM now the same as "D *.COM"). |
||||
|
|
||||
|
H - RCP name now appended with 'C' if CLED is included. |
||||
|
|
||||
|
Q - Now "Q R[eset]" and "Q S[et]" just reset and set quiet |
||||
|
status without showing it, and Q alone (or with any other |
||||
|
character, e.g., "Q ?") always just shows status. |
||||
|
* - No longer wheel protected. |
||||
|
|
||||
|
R - Revised to work properly with ZRDOS. |
||||
|
- Now properly resets individual drives under Z3PLUS. |
||||
|
|
||||
|
SP * - Command name changed from 'S'. |
||||
|
|
||||
|
SPOP - New command. |
||||
|
|
||||
|
TYPE - Control characters other than ^I, ^M, and ^J are filtered out, |
||||
|
allowing legible display of WordStar files. |
||||
|
|
||||
|
WHL * - Now always reports Wheel status. |
||||
|
|
||||
@ -0,0 +1,268 @@ |
|||||
|
|
||||
|
; Program: Z34RCP |
||||
|
; Description: Resident Command Package (RCP) for ZCPR34 |
||||
|
; Version: 1.3 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: September 13, 1989 |
||||
|
; Changes: Added CLED (command line editor shell) command. |
||||
|
; To save space, JetLDR ID section no longer pads end of each |
||||
|
; line. (JetLDR allows only 256 bytes maximum in its |
||||
|
; description field). |
||||
|
|
||||
|
; Version: 1.2 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: July 9, 1989 |
||||
|
; Changes: Uses spaces instead of tabs in JetLDR displays. |
||||
|
; Copyright now ZSA. |
||||
|
|
||||
|
; Version: 1.1 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: September 14, 1988 |
||||
|
; Changes: RCPID macro called from RCPID.LIB so that the final INCLUDE |
||||
|
; macro call gives total size of the RCP, including the ID |
||||
|
; string, with SLR assemblers. |
||||
|
; Label WHLQ changed to WHLQUIET in Option macro to match |
||||
|
; Z34HDR.LIB equate. |
||||
|
|
||||
|
; Version: 1.0 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: June 15, 1988 |
||||
|
|
||||
|
; Derivation: SYSRCP (Richard Conn) |
||||
|
|
||||
|
; Z34RCP is copyright 1989 by Z Systems Associates. All rights reserved. |
||||
|
; End-user distribution and duplication permitted for non-commercial purposes |
||||
|
; only. Any commercial use of Z34RCP, defined as any situation where the |
||||
|
; duplicator recieves revenue by duplicating or distributing Z34RCP by itself |
||||
|
; or in conjunction with any hardware or software product, is expressly |
||||
|
; prohibited unless authorized in writing by Z Systems Associates. |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; D E F I N I T I O N S S E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
maclib sysdef.lib ; Common logic, sys, ascii defines |
||||
|
maclib z34defn.lib ; Defines offsets in Z34 command processor |
||||
|
maclib z34mac.lib ; Macros |
||||
|
maclib z34rcp.lib ; Defines command options |
||||
|
|
||||
|
if ZRL |
||||
|
maclib z34cmn.lib ; Defines universal ZCPR named common blocks |
||||
|
else |
||||
|
maclib rcpbase.lib ; Defines addresses for one system |
||||
|
endif |
||||
|
|
||||
|
name RCP11 ; Declare module name |
||||
|
|
||||
|
; ============================================================================ |
||||
|
|
||||
|
; M A C R O S S E C T I O N |
||||
|
|
||||
|
; ============================================================================ |
||||
|
|
||||
|
; Macros to include module file and print module length. |
||||
|
; Under SLR and compatible assemblers, a running account of current RCP |
||||
|
; size and bytes added will be given for each module. |
||||
|
; |
||||
|
; For other assemblers you may have to either modify the non-SLR include |
||||
|
; macro or use a text editor to read in the actual contents of each file |
||||
|
; in place of the include statement. |
||||
|
|
||||
|
if SLR |
||||
|
; |
||||
|
; General purpose macro to display decimal values and messages |
||||
|
; |
||||
|
prtdec macro m1,m2,m3,m4,m5 |
||||
|
.radix 10 ; Decimal output |
||||
|
.printx m1 m2 m3 m4 m5 ; Print to screen |
||||
|
endm |
||||
|
; |
||||
|
; Macro to include modules and display lengths. |
||||
|
; |
||||
|
include macro filename |
||||
|
before defl $ |
||||
|
$include filename&.lib |
||||
|
after defl $ |
||||
|
modlen defl after - before ; Module length |
||||
|
rcplen defl after - RCPbegin ; RCP length |
||||
|
recs defl rcplen / 128 ; ..in records |
||||
|
bytes defl rcplen mod 128 ; ..and additional bytes |
||||
|
prtdec %modlen,<bytes added by filename&> |
||||
|
prtdec <Current length is>,%recs,<records>,%bytes,<bytes.> |
||||
|
prtdec ; Trailing CRLF |
||||
|
endm |
||||
|
|
||||
|
else ; Non-SLR assemblers |
||||
|
include macro filename |
||||
|
$include filename&.lib |
||||
|
endm |
||||
|
endif ; SLR |
||||
|
|
||||
|
|
||||
|
if ZRL |
||||
|
|
||||
|
; ============================================================================= |
||||
|
|
||||
|
; J e t L D R I D S E C T I O N |
||||
|
|
||||
|
; ============================================================================= |
||||
|
|
||||
|
; Macro to build ID block message for JetLDR. Max. length is ~256 chars. |
||||
|
|
||||
|
optcnt defl 0 ; Options counter |
||||
|
|
||||
|
option macro string1,enable1,string2,enable2 |
||||
|
|
||||
|
if enable1 ;; Skip if command not present |
||||
|
if [optcnt mod 4] eq 0 |
||||
|
db cr,lf ;; New line every four options |
||||
|
endif |
||||
|
optcnt defl optcnt + 1 ;; Increment options counter |
||||
|
count defl 0 ;; Initialize character count |
||||
|
|
||||
|
irpc char,string1 ;; Count and define characters |
||||
|
count defl count + 1 |
||||
|
db '&char' |
||||
|
endm ; irpc |
||||
|
|
||||
|
if not nul enable2 ;; Sub-option label present |
||||
|
if enable2 ;; Sub-option enabled |
||||
|
db ' (' ;; Begin sub-opt description |
||||
|
irpc char,string2 ;; Count and define characters |
||||
|
count defl count + 1 |
||||
|
db '&char' |
||||
|
endm ; irpc |
||||
|
db ')' ;; End sub-opt description |
||||
|
count defl count + 3 ;; For ' ()' |
||||
|
endif ; enable2 |
||||
|
endif ; not nul enable2 |
||||
|
|
||||
|
if [optcnt mod 4] ne 0 |
||||
|
count defl 11 - count |
||||
|
rept count |
||||
|
db ' ' ;; Pad to 11 spaces |
||||
|
endm ; rept |
||||
|
endif ; [optcnt mod 4] ne 0 |
||||
|
|
||||
|
endif ; enable1 |
||||
|
endm ; option macro |
||||
|
|
||||
|
; --------------------------------------------------------- |
||||
|
|
||||
|
COM /_ID_/ ; JetLDR ID block |
||||
|
db 'Copr. 1989 ZSA. Enabled Commands:' |
||||
|
option Cled,cledon |
||||
|
option Cls,clson,TC,clstcap |
||||
|
option Cp,cpon,stp,stpcall |
||||
|
option Dir,diron,sp,<spaceon and dirsp> |
||||
|
option Echo,echoon,lst,echolst |
||||
|
option Era,eraon,sp,<spaceon and erasp> |
||||
|
option Help,true |
||||
|
option List,liston |
||||
|
option Note,noteon |
||||
|
option Peek,peekon,hdr,peekhdr |
||||
|
; option Poke,pokeon,q,pokeq |
||||
|
option Poke,pokeon |
||||
|
option Port,porton |
||||
|
option Protect,proton |
||||
|
option Quiet,quieton |
||||
|
option Register,regon |
||||
|
option Rename,renon |
||||
|
option Reset,reson,sp,<spaceon and resetsp> |
||||
|
option Space,spaceon |
||||
|
option Spop,cledon |
||||
|
option Type,lton,cls,<clson and typecls> |
||||
|
option Wheel,whlon,q,whlquiet |
||||
|
db 0 ; ID string terminator |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; E N T R Y C O D E S E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
cseg |
||||
|
else |
||||
|
org z3rcp |
||||
|
endif ; ZRL |
||||
|
|
||||
|
RCPbegin: |
||||
|
db 'Z3RCP' ; Package ID |
||||
|
|
||||
|
include RCPcmd ; Command table and custom commands |
||||
|
|
||||
|
include RCPsubs ; File of subroutines |
||||
|
|
||||
|
include RCPh ; 'H' help (command list) command |
||||
|
|
||||
|
; Include only selected code sections. |
||||
|
|
||||
|
if cledon ; 'CLED' and 'SPOP' commands |
||||
|
include RCPcled |
||||
|
endif ;cledon |
||||
|
|
||||
|
if clson |
||||
|
include RCPcls ; 'CLS' clear screen command |
||||
|
endif ;clson |
||||
|
|
||||
|
if reson |
||||
|
include RCPr ; 'R' disk reset command |
||||
|
endif ;reson |
||||
|
|
||||
|
if spaceon |
||||
|
include RCPsp ; 'SP' space on disk command |
||||
|
endif ;spaceon |
||||
|
|
||||
|
if diron |
||||
|
include RCPdir ; 'DIR' directory command |
||||
|
endif ;diron |
||||
|
|
||||
|
if eraon |
||||
|
include RCPera ; 'ERA' erase command |
||||
|
endif ;eraon |
||||
|
|
||||
|
if renon |
||||
|
include RCPren ; 'REN' rename command |
||||
|
endif ;renon |
||||
|
|
||||
|
if cpon |
||||
|
include RCPcp ; 'CP' file copying command |
||||
|
endif ;cpon |
||||
|
|
||||
|
if echoon |
||||
|
include RCPecho ; 'ECHO' command |
||||
|
endif ;echoon |
||||
|
|
||||
|
if quieton |
||||
|
include RCPquiet ; 'Q' quiet flag |
||||
|
endif ;quieton |
||||
|
|
||||
|
if lton |
||||
|
include RCPlt ; 'LIST' and 'TYPE' commands |
||||
|
endif ;lton |
||||
|
|
||||
|
if proton |
||||
|
include RCPprot ; 'PROT' file attribute setting command |
||||
|
endif ;proton |
||||
|
|
||||
|
if peekon or pokeon or porton |
||||
|
include RCPiom ; 'PEEK', 'POKE', 'PORT' commands |
||||
|
endif ;peekon or pokeon or porton |
||||
|
|
||||
|
if regon |
||||
|
include RCPreg ; 'REG' register operation commands |
||||
|
endif ;regon |
||||
|
|
||||
|
if whlon |
||||
|
include RCPwhl ; 'WHL' command |
||||
|
endif ;whlon |
||||
|
|
||||
|
include RCPid ; Add ID string (must come last) |
||||
|
|
||||
|
RCPend: ; Used to calculate length |
||||
|
end |
||||
|
|
||||
|
; End of Z34RCP.Z80 |
||||
|
|
||||
@ -0,0 +1,267 @@ |
|||||
|
|
||||
|
; Program: Z34RCP |
||||
|
; Description: Resident Command Package (RCP) for ZCPR34 |
||||
|
; Version: 1.3 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: September 13, 1989 |
||||
|
; Changes: Added CLED (command line editor shell) command. |
||||
|
; To save space, JetLDR ID section no longer pads end of each |
||||
|
; line. (JetLDR allows only 256 bytes maximum in its |
||||
|
; description field). |
||||
|
|
||||
|
; Version: 1.2 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: July 9, 1989 |
||||
|
; Changes: Uses spaces instead of tabs in JetLDR displays. |
||||
|
; Copyright now ZSA. |
||||
|
|
||||
|
; Version: 1.1 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: September 14, 1988 |
||||
|
; Changes: RCPID macro called from RCPID.LIB so that the final INCLUDE |
||||
|
; macro call gives total size of the RCP, including the ID |
||||
|
; string, with SLR assemblers. |
||||
|
; Label WHLQ changed to WHLQUIET in Option macro to match |
||||
|
; Z34HDR.LIB equate. |
||||
|
|
||||
|
; Version: 1.0 |
||||
|
; Author: Carson Wilson |
||||
|
; Date: June 15, 1988 |
||||
|
|
||||
|
; Derivation: SYSRCP (Richard Conn) |
||||
|
|
||||
|
; Z34RCP is copyright 1989 by Z Systems Associates. All rights reserved. |
||||
|
; End-user distribution and duplication permitted for non-commercial purposes |
||||
|
; only. Any commercial use of Z34RCP, defined as any situation where the |
||||
|
; duplicator recieves revenue by duplicating or distributing Z34RCP by itself |
||||
|
; or in conjunction with any hardware or software product, is expressly |
||||
|
; prohibited unless authorized in writing by Z Systems Associates. |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; D E F I N I T I O N S S E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
maclib sysdef.lib ; Common logic, sys, ascii defines |
||||
|
maclib z34defn.lib ; Defines offsets in Z34 command processor |
||||
|
maclib z34mac.lib ; Macros |
||||
|
maclib z34rcp.lib ; Defines command options |
||||
|
|
||||
|
if ZRL |
||||
|
maclib z34cmn.lib ; Defines universal ZCPR named common blocks |
||||
|
else |
||||
|
maclib rcpbase.lib ; Defines addresses for one system |
||||
|
endif |
||||
|
|
||||
|
name RCP11 ; Declare module name |
||||
|
|
||||
|
; ============================================================================ |
||||
|
|
||||
|
; M A C R O S S E C T I O N |
||||
|
|
||||
|
; ============================================================================ |
||||
|
|
||||
|
; Macros to include module file and print module length. |
||||
|
; Under SLR and compatible assemblers, a running account of current RCP |
||||
|
; size and bytes added will be given for each module. |
||||
|
; |
||||
|
; For other assemblers you may have to either modify the non-SLR include |
||||
|
; macro or use a text editor to read in the actual contents of each file |
||||
|
; in place of the include statement. |
||||
|
|
||||
|
if SLR |
||||
|
; |
||||
|
; General purpose macro to display decimal values and messages |
||||
|
; |
||||
|
prtdec macro m1,m2,m3,m4,m5 |
||||
|
.radix 10 ; Decimal output |
||||
|
.printx m1 m2 m3 m4 m5 ; Print to screen |
||||
|
endm |
||||
|
; |
||||
|
; Macro to include modules and display lengths. |
||||
|
; |
||||
|
include macro filename |
||||
|
before defl $ |
||||
|
$include filename&.lib |
||||
|
after defl $ |
||||
|
modlen defl after - before ; Module length |
||||
|
rcplen defl after - RCPbegin ; RCP length |
||||
|
recs defl rcplen / 128 ; ..in records |
||||
|
bytes defl rcplen mod 128 ; ..and additional bytes |
||||
|
prtdec %modlen,<bytes added by filename&> |
||||
|
prtdec <Current length is>,%recs,<records>,%bytes,<bytes.> |
||||
|
prtdec ; Trailing CRLF |
||||
|
endm |
||||
|
|
||||
|
else ; Non-SLR assemblers |
||||
|
include macro filename |
||||
|
$include filename&.lib |
||||
|
endm |
||||
|
endif ; SLR |
||||
|
|
||||
|
|
||||
|
if ZRL |
||||
|
|
||||
|
; ============================================================================= |
||||
|
|
||||
|
; J e t L D R I D S E C T I O N |
||||
|
|
||||
|
; ============================================================================= |
||||
|
|
||||
|
; Macro to build ID block message for JetLDR. Max. length is ~256 chars. |
||||
|
|
||||
|
optcnt defl 0 ; Options counter |
||||
|
|
||||
|
option macro string1,enable1,string2,enable2 |
||||
|
|
||||
|
if enable1 ;; Skip if command not present |
||||
|
if [optcnt mod 4] eq 0 |
||||
|
db cr,lf ;; New line every four options |
||||
|
endif |
||||
|
optcnt defl optcnt + 1 ;; Increment options counter |
||||
|
count defl 0 ;; Initialize character count |
||||
|
|
||||
|
irpc char,string1 ;; Count and define characters |
||||
|
count defl count + 1 |
||||
|
db '&char' |
||||
|
endm ; irpc |
||||
|
|
||||
|
if not nul enable2 ;; Sub-option label present |
||||
|
if enable2 ;; Sub-option enabled |
||||
|
db ' (' ;; Begin sub-opt description |
||||
|
irpc char,string2 ;; Count and define characters |
||||
|
count defl count + 1 |
||||
|
db '&char' |
||||
|
endm ; irpc |
||||
|
db ')' ;; End sub-opt description |
||||
|
count defl count + 3 ;; For ' ()' |
||||
|
endif ; enable2 |
||||
|
endif ; not nul enable2 |
||||
|
|
||||
|
if [optcnt mod 4] ne 0 |
||||
|
count defl 11 - count |
||||
|
rept count |
||||
|
db ' ' ;; Pad to 11 spaces |
||||
|
endm ; rept |
||||
|
endif ; [optcnt mod 4] ne 0 |
||||
|
|
||||
|
endif ; enable1 |
||||
|
endm ; option macro |
||||
|
|
||||
|
; --------------------------------------------------------- |
||||
|
|
||||
|
COM /_ID_/ ; JetLDR ID block |
||||
|
db 'Copr. 1989 ZSA. Enabled Commands:' |
||||
|
option Cled,cledon |
||||
|
option Cls,clson,TC,clstcap |
||||
|
option Cp,cpon,stp,stpcall |
||||
|
option Dir,diron,sp,<spaceon and dirsp> |
||||
|
option Echo,echoon,lst,echolst |
||||
|
option Era,eraon,sp,<spaceon and erasp> |
||||
|
option Help,true |
||||
|
option List,liston |
||||
|
option Note,noteon |
||||
|
option Peek,peekon,hdr,peekhdr |
||||
|
option Poke,pokeon,q,pokeq |
||||
|
option Port,porton |
||||
|
option Protect,proton |
||||
|
option Quiet,quieton |
||||
|
option Register,regon |
||||
|
option Rename,renon |
||||
|
option Reset,reson,sp,<spaceon and resetsp> |
||||
|
option Space,spaceon |
||||
|
option Spop,cledon |
||||
|
option Type,lton,cls,<clson and typecls> |
||||
|
option Wheel,whlon,q,whlquiet |
||||
|
db 0 ; ID string terminator |
||||
|
|
||||
|
;============================================================================= |
||||
|
; |
||||
|
; E N T R Y C O D E S E C T I O N |
||||
|
; |
||||
|
;============================================================================= |
||||
|
|
||||
|
cseg |
||||
|
else |
||||
|
org z3rcp |
||||
|
endif ; ZRL |
||||
|
|
||||
|
RCPbegin: |
||||
|
db 'Z3RCP' ; Package ID |
||||
|
|
||||
|
include RCPcmd ; Command table and custom commands |
||||
|
|
||||
|
include RCPsubs ; File of subroutines |
||||
|
|
||||
|
include RCPh ; 'H' help (command list) command |
||||
|
|
||||
|
; Include only selected code sections. |
||||
|
|
||||
|
if cledon ; 'CLED' and 'SPOP' commands |
||||
|
include RCPcled |
||||
|
endif ;cledon |
||||
|
|
||||
|
if clson |
||||
|
include RCPcls ; 'CLS' clear screen command |
||||
|
endif ;clson |
||||
|
|
||||
|
if reson |
||||
|
include RCPr ; 'R' disk reset command |
||||
|
endif ;reson |
||||
|
|
||||
|
if spaceon |
||||
|
include RCPsp ; 'SP' space on disk command |
||||
|
endif ;spaceon |
||||
|
|
||||
|
if diron |
||||
|
include RCPdir ; 'DIR' directory command |
||||
|
endif ;diron |
||||
|
|
||||
|
if eraon |
||||
|
include RCPera ; 'ERA' erase command |
||||
|
endif ;eraon |
||||
|
|
||||
|
if renon |
||||
|
include RCPren ; 'REN' rename command |
||||
|
endif ;renon |
||||
|
|
||||
|
if cpon |
||||
|
include RCPcp ; 'CP' file copying command |
||||
|
endif ;cpon |
||||
|
|
||||
|
if echoon |
||||
|
include RCPecho ; 'ECHO' command |
||||
|
endif ;echoon |
||||
|
|
||||
|
if quieton |
||||
|
include RCPquiet ; 'Q' quiet flag |
||||
|
endif ;quieton |
||||
|
|
||||
|
if lton |
||||
|
include RCPlt ; 'LIST' and 'TYPE' commands |
||||
|
endif ;lton |
||||
|
|
||||
|
if proton |
||||
|
include RCPprot ; 'PROT' file attribute setting command |
||||
|
endif ;proton |
||||
|
|
||||
|
if peekon or pokeon or porton |
||||
|
include RCPiom ; 'PEEK', 'POKE', 'PORT' commands |
||||
|
endif ;peekon or pokeon or porton |
||||
|
|
||||
|
if regon |
||||
|
include RCPreg ; 'REG' register operation commands |
||||
|
endif ;regon |
||||
|
|
||||
|
if whlon |
||||
|
include RCPwhl ; 'WHL' command |
||||
|
endif ;whlon |
||||
|
|
||||
|
include RCPid ; Add ID string (must come last) |
||||
|
|
||||
|
RCPend: ; Used to calculate length |
||||
|
end |
||||
|
|
||||
|
; End of Z34RCP.Z80 |
||||
|
|
||||
@ -0,0 +1,97 @@ |
|||||
|
|
||||
|
Z System Upgrades CP/M |
||||
|
|
||||
|
Z System is first-rate, state-of-the-art software for your CP/M machine. |
||||
|
ZCPR has been with us for over five years now, and has enhanced computer |
||||
|
productivity for thousands of CP/M users. Z System is now a mature |
||||
|
replacement for CP/M 2.2 or CP/M Plus, yet is "backward compatible" with |
||||
|
almost all programs written for CP/M. This means that you can still run |
||||
|
the CP/M programs you now use, yet take advantage of greatly increased |
||||
|
power and performance at the same time. |
||||
|
|
||||
|
NZ-COM and Z3PLUS form the heart of Z System. They replace the most |
||||
|
visible parts of CP/M 2.2 and CP/M Plus respectively, adding enhanced |
||||
|
command processing, named directories, vastly improved resident |
||||
|
commands, flow control processing, error handling, and much more. But |
||||
|
it isn't necessary to master all of these (at least at first!) to take |
||||
|
advantage of NZ-COM and Z3PLUS. In fact, though both packages come with |
||||
|
several disks of software and excellent manuals, almost anyone can |
||||
|
install either of these packages on their CP/M computer in just a few |
||||
|
minutes' time. The price for either NZ-COM or Z3PLUS is $69.95 plus $3 |
||||
|
shipping. |
||||
|
|
||||
|
The next step up in sophistication for CP/M 2.2 users is ZSDOS. ZSDOS |
||||
|
replaces the less visible portion of CP/M 2.2 which controls program |
||||
|
input and output. Through clever coding and exhaustive testing, the |
||||
|
authors of ZSDOS offer significant improvements in performance, safety, |
||||
|
and versatility for CP/M 2.2, including file time and date stamping, |
||||
|
file archiving for faster backups, public files (accessable from all |
||||
|
user areas), path access to files, and improved error messages and |
||||
|
handling. As with NZ-COM and Z3PLUS, ZSDOS installation is completely |
||||
|
menu-driven. ZSDOS comes with a collection of state-of-the-art utility |
||||
|
programs and a 140 page manual to help you make the most of the extended |
||||
|
features. ZSDOS costs $75 ($60 when purchased with NZ-COM) plus $3 |
||||
|
shipping. |
||||
|
|
||||
|
Another path to system enhancement for CP/M 2.2 users with hard or RAM |
||||
|
disks is available in the form of BackGrounder ii (BGii). BGii allows |
||||
|
you to "suspend" any program at the touch of a button and use a wide |
||||
|
range of resident commands such as DIR, REN, ERA, CALC, or TYPE. Then |
||||
|
hit the button again and BGii quickly returns you to the program you |
||||
|
suspended, right where you left off. Or use BGii's SWAP command and |
||||
|
you're back at the CP/M prompt, ready to run any other CP/M program. |
||||
|
When you're through, SWAP again and BGii returns you to your original |
||||
|
program, exactly as you left it! Advanced "Cut" and "Paste" commands |
||||
|
are also available for many terminals, allowing you to transfer sections |
||||
|
of screen directly from one program to another. Print spooling, |
||||
|
advanced key redefinition and recording capabilities, and a beautifully |
||||
|
designed 140-page user's manual are included. Installation is |
||||
|
menu-driven and easy. BGii is compatible with either ZCPR or CP/M 2.2, |
||||
|
and costs $75.00 plus $3 shipping. |
||||
|
|
||||
|
Last but not least is DosDisk, a small but powerful program which allows |
||||
|
you to read or write DIRECTLY to MS-DOS disks with your CP/M computer. |
||||
|
No more file transfers--simply insert a standard MS-DOS DSDD diskette in |
||||
|
your CP/M machine, type "DosDisk <drive>:", and away you go--all files |
||||
|
on the diskette are now accessable by all of your CP/M programs--even |
||||
|
files in MS-DOS subdirectories! DosDisk comes with a handsome 38-page |
||||
|
user's manual, and is available preconfigured for most machines at just |
||||
|
$30.00 plus $3 shipping. DosDisk is compatible with either ZCPR or |
||||
|
CP/M 2.2. |
||||
|
|
||||
|
These and other fine products for CP/M and CP/M Plus are available from |
||||
|
users groups around the country, or directly from Z Systems Associates. |
||||
|
Sizeable discounts for users' groups are also available from Z Systems |
||||
|
Associates through the Z Plan. The Z Systems Associates are: |
||||
|
|
||||
|
Sage Microsystems East |
||||
|
Selling & Supporting the Best in 8-Bit Software |
||||
|
1435 Centre St., Newton Centre, MA 02159-2469 |
||||
|
Voice: 617/965-3552 (9:00am - 11:30pm) |
||||
|
Modem: 617/965-7259 (password = DDT)(MABOS on PC-Pursuit) |
||||
|
|
||||
|
Same-day shipping of most products with modem download and support |
||||
|
available. Order by phone, mail, or modem. Shipping and handling $4 |
||||
|
per order (USA). Check, VISA, or MasterCard. Specify exact disk format. |
||||
|
|
||||
|
and: |
||||
|
|
||||
|
Plu*Perfect Systems |
||||
|
"==World-Class Software" |
||||
|
410 23rd Street, Santa Monica, CA 90402 |
||||
|
Voice: 213/393-6105 (evenings) |
||||
|
Modem: 213/670-9465 (leave message for "Bridger Mitchell") |
||||
|
|
||||
|
To order: Specify product, operating system, computer, 5 1/4" disk |
||||
|
format. Enclose check, adding $3 shipping ($5 foreign) + 6.5% tax in |
||||
|
California. Enclose invoice if upgrading BGii or ZRDOS. |
||||
|
|
||||
|
For more information on Z System, check at the above bulletin board |
||||
|
systems, or consult The Computer Journal for excellent articles on ZCPR |
||||
|
and CP/M. The Computer Journal is published six times a year by |
||||
|
Publishing Consultants, 190 Sullivan Crossroad, Columbia Falls, MT |
||||
|
59912, phone 406/257-9119. An issue averages forty pages with few ads. |
||||
|
Subscription rates are $16 for one year (6 issues), or $28 for two years |
||||
|
(12 issues) in the U.S., $22 for one year Canada and Mexico, and $24 |
||||
|
(surface) for one year in other countries. |
||||
|
|
||||
@ -0,0 +1,18 @@ |
|||||
|
OBJECTS = zcpr33n.rel zcpr33t.rel |
||||
|
OTHERS = z3basen.lib z3baset.lib |
||||
|
TOOLS = ../../../Tools |
||||
|
DEST = .. |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
DIFFPATH = $(DIFFTO)/Source/BPBIOS |
||||
|
|
||||
|
zcpr33t.rel: ../z3baset.lib |
||||
|
cp ../z3baset.lib z3baset.lib |
||||
|
$(ZXCC) $(CPM)/ZMAC -zcpr33t.z80 -/P |
||||
|
rm z3baset.lib |
||||
|
|
||||
|
zcpr33n.rel: ../z3basen.lib |
||||
|
cp ../z3basen.lib z3basen.lib |
||||
|
$(ZXCC) $(CPM)/ZMAC -zcpr33n.z80 -/P |
||||
|
rm z3basen.lib |
||||
@ -1,373 +0,0 @@ |
|||||
;:::::::::::::::::::::::::::::::::::::::::::::::********************** |
|
||||
; B/P BIOS Configuration and Equate File. ** System Dependant ** |
|
||||
; - D-X Designs Pty Ltd P112 CPU Board - ********************** |
|
||||
; Tailor your system here. |
|
||||
; |
|
||||
; 30 Aug 01 - Cleaned up for GPL release. HFB |
|
||||
; 11 May 97 - Added GIDE and adjusted HD equates. HFB |
|
||||
; 5 Jan 97 - Reformatted to Standard. HFB |
|
||||
; 10 Jun 96 - Initial Test Release. HFB |
|
||||
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: |
|
||||
; BIOS Configuration Equates and Macros |
|
||||
|
|
||||
DATE MACRO |
|
||||
DEFB '17 Jan 14' ; Date of this version |
|
||||
ENDM |
|
||||
|
|
||||
AUTOCL MACRO |
|
||||
DEFB 8,'ZEX Z41 ',0 ; Autostart command line |
|
||||
ENDM |
|
||||
|
|
||||
;--- Basic System and Z-System Section --- |
|
||||
|
|
||||
MOVCPM EQU no ; Integrate into MOVCPM "type" loader? |
|
||||
IF MOVCPM |
|
||||
VERS EQU 13H ; Version number in BCD (Hex) (Major/Minor) |
|
||||
ELSE |
|
||||
VERS EQU 21H ; Version number w/Device Swapping permitted |
|
||||
ENDIF |
|
||||
BANKED EQU YES ; Is this a banked BIOS? |
|
||||
ZSDOS2 EQU YES ; Yes = Banked Dos, No = CP/M 2.2 Compatible |
|
||||
INROM EQU NO ; Alternate bank in ROM? |
|
||||
MHZ EQU 18 ; Set to Speed in MHZ (6/9/12/16/18/24) |
|
||||
FASTWB EQU YES ; Yes if restoring CPR from banked RAM |
|
||||
; ..No if restoring from Drive A |
|
||||
Z3 EQU YES ; Include ZCPR init code? |
|
||||
HAVIOP EQU NO ; Include IOP code into Jump table? |
|
||||
INTPXY EQU YES ; Internal HBIOS Mini Proxy |
|
||||
CONF_T EQU NO ; Set for Segment Configuration T |
|
||||
CONF_N EQU YES ; Set for Segment Configuration N |
|
||||
|
|
||||
;--- Memory configuration Section --- (Expansion Memory configured here) |
|
||||
|
|
||||
IBMOVS EQU NO ; Yes = Inter-bank Moves allowed (Z180/64180) |
|
||||
; No = Include Common RAM transfer buffer |
|
||||
;--- Character Device Section --- |
|
||||
|
|
||||
MORDEV EQU NO ; YES = Include any extra Char Device Drivers |
|
||||
; NO = Only use the 4 defined Char Devices |
|
||||
ESCC_B EQU no ; Include ESCC Channel B Driver? |
|
||||
; The following two devices result in non-standard data rates |
|
||||
; with the standard 16.00 MHz crystal in the P112. If a more |
|
||||
; "standard" crystal is used (12.288, 18.432, 24.576 MHz etc) |
|
||||
; is used, the ports become usable. |
|
||||
; Driver code for ASCI0 and ASCI1 includes an option for |
|
||||
; assembling Polled or Interrupt-driven buffered input. |
|
||||
; Select the desired option for ASCI0 with the BUFFA0 flag, |
|
||||
; and BUFFA1 for ASCI1. |
|
||||
ASCI_0 EQU false ; Include ASCI0 Driver? |
|
||||
BUFFA0 EQU false ; Use buffered ASCI0 Input Driver? |
|
||||
ASCI_1 EQU false ; Include ASCI1 Driver? |
|
||||
BUFFA1 EQU false ; Use buffered ASCI1 Input Driver? |
|
||||
|
|
||||
QSIZE EQU 32 ; size of interrupt typeahead buffers (if used) |
|
||||
; ..must be 2^n with n<8 |
|
||||
RTSCTS EQU no ; Include RTS/CTS code on Serial Outputs? |
|
||||
XONOFF EQU no ; Include Xon/Xoff handshaking in Serial lines? |
|
||||
|
|
||||
;--- Clock and Time Section --- |
|
||||
|
|
||||
CLOCK EQU YES ; Include ZSDOS Clock Driver Code? |
|
||||
DS1202 EQU YES ; Use Dallas DS-1202 instead of Interrupt RTC? |
|
||||
CLKSET EQU YES ; Allow DS-1202 Clock Sets? (Error if No) |
|
||||
TICTOC EQU NO ;== NOT USED IN P112 ("heartbeat" count) |
|
||||
|
|
||||
;--- Floppy Diskette Section --- |
|
||||
|
|
||||
BIOERM EQU yes ; Print BIOS error messages? |
|
||||
CALCSK EQU YES ; Calculate skew table? |
|
||||
AUTOSL EQU YES ; Auto select floppy formats? |
|
||||
; If AUTOSL=True, the next two are active... |
|
||||
FDDMA EQU no ; Use DMA Control for Floppy Drive Transfers? |
|
||||
FLOPYH EQU no ; Include "Hi-Density" Floppy Formats? |
|
||||
FLOPY8 EQU no ; Include 8" Floppy Formats? |
|
||||
MORDPB EQU NO ; Include additional Floppy DPB Formats? |
|
||||
|
|
||||
;--- RAM Disk Section --- |
|
||||
|
|
||||
RAMDSK EQU YES ; YES = Make RAM-Disk Code, NO = No code made |
|
||||
|
|
||||
;--- Hard Disk Section --- |
|
||||
|
|
||||
HARDDSK EQU YES ; YES = Add Hard-disk Code, NO = Floppy Only |
|
||||
; (Pick 1 of 3 options below) |
|
||||
SCSI EQU NO ; YES = Use SCSI Driver |
|
||||
IDE EQU NO ; YES = Use IDE Driver |
|
||||
SIMHDSK EQU NO ; YES = Use SIMH HDSK Driver |
|
||||
HBDSK EQU YES ; YES = Use HBIOS Disk Driver |
|
||||
HDDMA EQU NO ; Use DMA-Controlled Hard Disk Data Transfers? |
|
||||
; (DMA not implemented for GIDE) |
|
||||
UNIT_0 EQU YES ; Hard Disk Physical Unit 1 |
|
||||
UNIT_1 EQU YES ; Hard Disk Physical Unit 2 |
|
||||
UNIT_2 EQU YES ; Hard Disk Physical Unit 3 |
|
||||
|
|
||||
;--- Logical Drive Section --- |
|
||||
|
|
||||
DRV_A EQU no ; Set each of these equates for the drive and |
|
||||
DRV_B EQU no ; partition complement of your system. Assume |
|
||||
DRV_C EQU no ; that A-D are Floppies. |
|
||||
DRV_D EQU no |
|
||||
DRV_E EQU yes ; Assume that E-L and N-P are Hard Disk |
|
||||
DRV_F EQU yes ; Partitions |
|
||||
DRV_G EQU yes |
|
||||
DRV_H EQU yes |
|
||||
DRV_I EQU yes |
|
||||
DRV_J EQU yes |
|
||||
DRV_K EQU yes |
|
||||
DRV_L EQU yes |
|
||||
DRV_M EQU RAMDSK ; This is Yes for RAM drive |
|
||||
DRV_N EQU yes |
|
||||
DRV_O EQU ~RAMDSK ; Use HBIOS RAM disk if BPBIOS RAM disk is not enabled |
|
||||
DRV_P EQU no |
|
||||
|
|
||||
;========== Configuration Unique Equates (P112) =========== |
|
||||
;>>>>>>>>>>>>>>>>>>>>>>>>>>> W A R N I N G <<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
|
||||
;>>> Do NOT Alter these unless you KNOW what you're doing <<< |
|
||||
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
|
||||
|
|
||||
REFRSH EQU NO ; Set to NO for only Static RAM, needed for |
|
||||
; systems with dynamic RAMs. |
|
||||
NOWAIT EQU NO ; Set to NO to use configured Wait States in |
|
||||
; Hard Disk Driver. Yes to eliminate Waits. |
|
||||
|
|
||||
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
|
||||
; For Z-180/HD64180 systems, The Bank numbers should reflect Physical |
|
||||
; memory in 32k increments. In P112, the ROM occupies the first 32k |
|
||||
; increment and is ambiguously addressed occupying 0-1FFFFH. The upper |
|
||||
; memory bounds (BNKU, BNK3 and BNKM) should be set for your configuration. |
|
||||
|
|
||||
BNK0 EQU BID_USR ; First TPA Bank (switched in/out) 40000H |
|
||||
BNK1 EQU BID_HB ; Second TPA Bank (Common Bank) 48000H |
|
||||
BNK2 EQU BID_SYS ; System Bank (BIOS, DOS, CPR) 50000H |
|
||||
BNKU EQU 00H ; User Area Bank 58000H |
|
||||
; (set to 0 to disable) |
|
||||
BNK3 EQU BID_RAMD ; First Bank for RAM disk 60000H |
|
||||
BNKM EQU BID_RAMM ; Maximum Bank # F8000H |
|
||||
; With both on-board RAMs only (MEM1 or MEM2), |
|
||||
; the maximum Bank number is 11 (0BH). |
|
||||
|
|
||||
;=========== CPU-dependent Equates, Zilog Z-180/Hitachi HD64180 ========== |
|
||||
|
|
||||
CNTLA0 EQU 00H ; Control Port ASCI 0 |
|
||||
CNTLA1 EQU 01H ; Control Port ASCI 1 |
|
||||
STAT0 EQU 04H ; Serial port 0 Status |
|
||||
STAT1 EQU 05H ; Serial port 1 Status |
|
||||
TDR0 EQU 06H ; Serial port 0 Output Data |
|
||||
TDR1 EQU 07H ; Serial port 1 Output Data |
|
||||
RDR0 EQU 08H ; Serial port 0 Input Data |
|
||||
RDR1 EQU 09H ; Serial Port 1 Input Data |
|
||||
CNTR EQU 0AH ; HD64180 Counter port |
|
||||
TMDR0L EQU 0CH ; HD64180 DMA channel reg (low) |
|
||||
TMDR0H EQU 0DH ; HD64180 DMA channel reg (hi) |
|
||||
RLDR0L EQU 0EH ; CTC0 Reload Count, Low |
|
||||
RLDR0H EQU 0FH ; CTC0 Reload Count, High |
|
||||
TCR EQU 10H ; Interrupt Control Register |
|
||||
TMDR1L EQU 14H ; Timer Data Reg Ch1 (Low) |
|
||||
TMDR1H EQU 15H ; Timer Data Reg Ch1 (High) |
|
||||
RLDR1L EQU 16H ; Timer Reload Reg Ch1 (Low) |
|
||||
RLDR1H EQU 17H ; Timer Reload Reg Ch1 (High) |
|
||||
FRC EQU 18H ; Free-Running Counter |
|
||||
CCR EQU 1FH ; CPU Control Register (ZS8180/Z80182) |
|
||||
SAR0L EQU 20H ; DMA Channel 0 Register start (8 ports) |
|
||||
MAR1L EQU 28H ; DMA Channel 1 Register start (8 ports) |
|
||||
DSTAT EQU 30H ; DMA Status/Control port |
|
||||
DMODE EQU 31H ; DMA Mode Control port |
|
||||
DCNTL EQU 32H ; DMA/WAIT Control Register |
|
||||
IL EQU 33H ; Interrupt Segment Register |
|
||||
ITC EQU 34H ; Interrupt/Trap Control Register |
|
||||
RCR EQU 36H ; HD64180 Refresh Control register |
|
||||
CBR EQU 38H ; MMU Common Base Register |
|
||||
BBR EQU 39H ; MMU Bank Base Register |
|
||||
CBAR EQU 3AH ; MMU Common/Bank Area Register |
|
||||
OMCR EQU 3EH ; Operation Mode Control Reg |
|
||||
ICR EQU 3FH ; I/O Control Register |
|
||||
|
|
||||
; Some bit definitions used with the Z-180 on-chip peripherals: |
|
||||
|
|
||||
TDRE EQU 02H ; ACSI Transmitter Buffer Empty |
|
||||
RDRF EQU 80H ; ACSI Received Character available |
|
||||
|
|
||||
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
|
||||
; Extended Features of Z80182 for P112 |
|
||||
|
|
||||
WSGCS EQU 0D8H ; Wait-State Generator CS |
|
||||
ENH182 EQU 0D9H ; Z80182 Enhancements Register |
|
||||
PINMUX EQU 0DFH ; Interrupt Edge/Pin Mux Register |
|
||||
RAMUBR EQU 0E6H ; RAM End Boundary |
|
||||
RAMLBR EQU 0E7H ; RAM Start Boundary |
|
||||
ROMBR EQU 0E8H ; ROM Boundary |
|
||||
FIFOCTL EQU 0E9H ; FIFO Control Register |
|
||||
RTOTC EQU 0EAH ; RX Time-Out Time Constant |
|
||||
TTOTC EQU 0EBH ; TX Time-Out Time Constant |
|
||||
FCR EQU 0ECH ; FIFO Register |
|
||||
SCR EQU 0EFH ; System Pin Control |
|
||||
RBR EQU 0F0H ; MIMIC RX Buffer Register (R) |
|
||||
THR EQU 0F0H ; MIMIN TX Holding Register (W) |
|
||||
IER EQU 0F1H ; Interrupt Enable Register |
|
||||
LCR EQU 0F3H ; Line Control Register |
|
||||
MCR EQU 0F4H ; Modem Control Register |
|
||||
LSR EQU 0F5H ; Line Status Register |
|
||||
MDMSR EQU 0F6H ; Modem Status Register |
|
||||
MSCR EQU 0F7H ; MIMIC Scratch Register |
|
||||
DLATL EQU 0F8H ; Divisor Latch (Low) |
|
||||
DLATM EQU 0F9H ; Divisor Latch (High) |
|
||||
TTCR EQU 0FAH ; TX Time Constant |
|
||||
RTCR EQU 0FBH ; RX Time Constant |
|
||||
IVEC EQU 0FCH ; MIMIC Interrupt Vector |
|
||||
MIMIE EQU 0FDH ; MIMIC Interrupt Enable Register |
|
||||
IUSIP EQU 0FEH ; MIMIC Interrupt Under-Service Register |
|
||||
MMCR EQU 0FFH ; MIMIC Master Control Register |
|
||||
|
|
||||
; Z80182 PIO Registers |
|
||||
|
|
||||
DDRA EQU 0EDH ; Data Direction Register A |
|
||||
DRA EQU 0EEH ; Port A Data |
|
||||
DDRB EQU 0E4H ; Data Direction Register B |
|
||||
DRB EQU 0E5H ; Data B Data |
|
||||
DDRC EQU 0DDH ; Data Direction Register C |
|
||||
DRC EQU 0DEH ; Data C Data |
|
||||
|
|
||||
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
|
||||
; ESCC Registers on Z80182 |
|
||||
|
|
||||
SCCACNT EQU 0E0H ; ESCC Control Channel A |
|
||||
SCCAD EQU 0E1H ; ESCC Data Channel A |
|
||||
SCCBCNT EQU 0E2H ; ESCC Control Channel B |
|
||||
SCCBD EQU 0E3H ; ESCC Data Channel B |
|
||||
|
|
||||
; [E]SCC Internal Register Definitions |
|
||||
|
|
||||
RR0 EQU 00H |
|
||||
RR1 EQU 01H |
|
||||
RR2 EQU 02H |
|
||||
RR3 EQU 03H |
|
||||
RR6 EQU 06H |
|
||||
RR7 EQU 07H |
|
||||
RR10 EQU 0AH |
|
||||
RR12 EQU 0CH |
|
||||
RR13 EQU 0DH |
|
||||
RR15 EQU 0FH |
|
||||
|
|
||||
WR0 EQU 00H |
|
||||
WR1 EQU 01H |
|
||||
WR2 EQU 02H |
|
||||
WR3 EQU 03H |
|
||||
WR4 EQU 04H |
|
||||
WR5 EQU 05H |
|
||||
WR6 EQU 06H |
|
||||
WR7 EQU 07H |
|
||||
WR9 EQU 09H |
|
||||
WR10 EQU 0AH |
|
||||
WR11 EQU 0BH |
|
||||
WR12 EQU 0CH |
|
||||
WR13 EQU 0DH |
|
||||
WR14 EQU 0EH |
|
||||
WR15 EQU 0FH |
|
||||
|
|
||||
; FDC37C665/6 Parallel Port in Standard AT Mode |
|
||||
|
|
||||
DPORT EQU 8CH ; Data Port |
|
||||
SPORT EQU 8DH ; Status Port |
|
||||
CPORT EQU 8EH ; Control Port |
|
||||
|
|
||||
; FDC37C665/6 Configuration Control (access internal registers) |
|
||||
|
|
||||
CFCNTL EQU 90H ; Configuration control port |
|
||||
CFDATA EQU 91H ; Configuration data port |
|
||||
|
|
||||
; FDC37C665/6 Floppy Controller on P112 (Intel 80277 compatible) |
|
||||
|
|
||||
DCR EQU 92H ; Drive Control Register (Digital Output) |
|
||||
MSR EQU 94H ; Main Status Register |
|
||||
DR EQU 95H ; Data/Command Register |
|
||||
DRR EQU 97H ; Data Rate Register/Disk Changed Bit in B7 |
|
||||
|
|
||||
_DMA EQU 0A0H ; Diskette DMA Address |
|
||||
|
|
||||
; FDC37C665/6 Serial Port (National 16550 compatible) |
|
||||
|
|
||||
_RBR EQU 68H ;R Receiver Buffer |
|
||||
_THR EQU 68H ;W Transmit Holding Reg |
|
||||
_IER EQU 69H ;RW Interrupt-Enable Reg |
|
||||
_IIR EQU 6AH ;R Interrupt Ident. Reg |
|
||||
_FCR EQU 6AH ;W FIFO Control Reg |
|
||||
_LCR EQU 6BH ;RW Line Control Reg |
|
||||
_MCR EQU 6CH ;RW Modem Control Reg |
|
||||
_LSR EQU 6DH ;RW Line Status Reg |
|
||||
_MMSR EQU 6EH ;RW Modem Status Reg |
|
||||
_SCR EQU 6FH ;N/A Scratch Reg. (not avail in XT) |
|
||||
_DDL EQU 68H ;RW Divisor LSB | wih DLAB |
|
||||
_DLM EQU 69H ;RW Divisor MSB | set High |
|
||||
|
|
||||
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
|
||||
; Equates for the National DP8490/NCR 5380 Prototype SCSI controller |
|
||||
|
|
||||
IF HARDDSK |
|
||||
NCR EQU 40H ; Base of NCR 5380 |
|
||||
|
|
||||
; 5380 Chip Registers |
|
||||
|
|
||||
NCRDAT EQU NCR ; Current SCSI Data (Read) |
|
||||
; Output Data Register (Write) |
|
||||
NCRCMD EQU NCR+1 ; Initiator Command Register (Read/Write) |
|
||||
NCRMOD EQU NCR+2 ; Mode Register (Read/Write) |
|
||||
NCRTGT EQU NCR+3 ; Target Command Register (Read/Write) |
|
||||
NCRBUS EQU NCR+4 ; Current SCSI Bus Status (Read) |
|
||||
NCRST EQU NCR+5 ; Bus & Status Register (Read) |
|
||||
; Start DMA Send (Write) |
|
||||
NCRINT EQU NCR+7 ; Reset Parity/Interrupt (Read) |
|
||||
; Start DMA Initiator Receive (Write) |
|
||||
DMAACK EQU NCR+8 ; SCSI Dack IO Port (Read/Write) |
|
||||
|
|
||||
; Bit Assignments for NCR 5380 Ports as indicated |
|
||||
|
|
||||
B_ARST EQU 10000000B ; Assert *RST (NCRCMD) |
|
||||
B_AACK EQU 00010000B ; Assert *ACK (NCRCMD) |
|
||||
B_ASEL EQU 00000100B ; Assert *SEL (NCRCMD) |
|
||||
B_ABUS EQU 00000001B ; Assert *Data Bus (NCRCMD) |
|
||||
|
|
||||
B_BSY EQU 01000000B ; *Busy (NCRBUS) |
|
||||
B_REQ EQU 00100000B ; *Request (NCRBUS) |
|
||||
B_MSG EQU 00010000B ; *Message (NCRBUS) |
|
||||
B_CD EQU 00001000B ; *Command/Data (NCRBUS) |
|
||||
B_IO EQU 00000100B ; *I/O (NCRBUS) |
|
||||
B_SEL EQU 00000010B ; *Select (NCRBUS) |
|
||||
|
|
||||
B_PHAS EQU 00001000B ; Phase Match (NCRST) |
|
||||
B_BBSY EQU 00000100B ; Bus Busy (NCRST) |
|
||||
|
|
||||
B_MBSY EQU 00000100B ; Monitor Busy Flag (NCRMOD) |
|
||||
B_DMA EQU 00000010B ; DMA Mode of transfer (NCRMOD) |
|
||||
ENDIF ;harddsk |
|
||||
|
|
||||
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
|
||||
; Equates reflecting GIDE Base address from Address Jumpers (if GIDE added) |
|
||||
; Set the base GIDE equate to the jumper setting on the GIDE board. |
|
||||
|
|
||||
IF IDE |
|
||||
GIDE EQU 50H ; Set base of 16 byte address range |
|
||||
|
|
||||
IDEDOR EQU GIDE+6 ; Digital Output Register |
|
||||
IDEDat EQU GIDE+8 ; IDE Data Register (16-bit wide) |
|
||||
IDEErr EQU GIDE+9 ; IDE Error Register |
|
||||
IDESCnt EQU GIDE+0AH ; IDE Sector Count Register |
|
||||
IDESNum EQU GIDE+0BH ; IDE Sector Number Register |
|
||||
IDECLo EQU GIDE+0CH ; IDE Cylinder Number (Low) |
|
||||
IDECHi EQU GIDE+0DH ; IDE Cylinter Number (High) |
|
||||
IDESDH EQU GIDE+0EH ; IDE S-Drive-Head Register |
|
||||
IDECmd EQU GIDE+0FH ; IDE Command/Status Register |
|
||||
|
|
||||
CMDHOM EQU 10H ; Home Drive Heads |
|
||||
CMDRD EQU 20H ; Read Sector Command (w/retry) |
|
||||
CMDWR EQU 30H ; Write Sector Command (w/retry) |
|
||||
CMDVER EQU 40H ; Verify Sector(s) Command (w/retry) |
|
||||
CMDFMT EQU 50H ; Format Track Command |
|
||||
CMDDIAG EQU 90H ; Execute Diagnostics Command |
|
||||
CMDINIT EQU 91H ; Initialize Drive Params Command |
|
||||
CMDPW0 EQU 0E0H ; Low Range of Power Control Commands |
|
||||
CMDPW3 EQU 0E3H ; High Range of Power Control Commands |
|
||||
CMDPWQ EQU 0E5H ; Power Status Query Command |
|
||||
CMDID EQU 0ECH ; Read Drive Ident Data Command |
|
||||
ENDIF ;ide |
|
||||
;=================== End Unique Equates ======================= |
|
||||
|
|
||||
Some files were not shown because too many files changed in this diff
Loading…
Reference in new issue