mirror of https://github.com/wwarthen/RomWBW.git
Wayne Warthen
4 years ago
33 changed files with 9831 additions and 6 deletions
@ -0,0 +1,24 @@ |
|||||
|
|
||||
|
----------------------------------------------------------------------- |
||||
|
Copyright (c) 1987, 1988 by Robert W. Kramer III, ALL RIGHTS RESERVED |
||||
|
Release 1.50 1569 40th St. |
||||
|
09/29/88 Rock Island, Il. 61201 |
||||
|
Voice: (309) 786-6711, 24hr |
||||
|
RI RCPM-RDOS (128 Meg) Data: (309) 786-6227, 24hr, 300/1200/2400 |
||||
|
----------------------------------------------------------------------- |
||||
|
|
||||
|
|
||||
|
USER AGREEMENT: |
||||
|
--------------- |
||||
|
|
||||
|
ZMD is free to use, providing program signon messages (my name, program |
||||
|
name, release date and copyright notices) remain intact as released. |
||||
|
You may modify any .Z80 file as you wish so long as your modified copy |
||||
|
is used for your own personal non-profit use and is NOT passed on to |
||||
|
any other party. |
||||
|
|
||||
|
You are encouraged to distribute ZMD releases to any interested party |
||||
|
providing all files remain in their ORIGINAL UNMODIFIED RELEASE FORM |
||||
|
as distributed from RI RCPM-RDOS. |
||||
|
|
||||
|
|
||||
@ -0,0 +1,10 @@ |
|||||
|
----- |
||||
|
ZMD150.LBR - CP/M Communications |
||||
|
09/29/88 - This release is super clean, super fast - and smaller. |
||||
|
Some major problems in the way Ymodem Batch protocol was implemented |
||||
|
on CP/M systems has been fixed, virtually eliminating all delays |
||||
|
between files. CPM3 systems can now run all ZMD programs with no |
||||
|
problems. Some other bug fixes, modifications and enhancements. |
||||
|
This is probably the last release of ZMD until ZMD with ZMODEM is |
||||
|
released. Bob Kramer - RI RCPM-RDOS (128 Mb) - (309) 786-6711 |
||||
|
|
||||
@ -0,0 +1,37 @@ |
|||||
|
@echo off |
||||
|
setlocal |
||||
|
|
||||
|
set TOOLS=..\..\..\Tools |
||||
|
|
||||
|
set PATH=%TOOLS%\zx;%PATH% |
||||
|
|
||||
|
set ZXBINDIR=%TOOLS%\cpm\bin\ |
||||
|
set ZXLIBDIR=%TOOLS%\cpm\lib\ |
||||
|
set ZXINCDIR=%TOOLS%\cpm\include\ |
||||
|
|
||||
|
zx z80asm -zmd/fm |
||||
|
zx l80 -zmd,zmd/n/e |
||||
|
|
||||
|
zx z80asm -zmap/fm |
||||
|
zx l80 -zmap,zmap/n/e |
||||
|
|
||||
|
zx z80asm -znews/fm |
||||
|
zx l80 -znews,znews/n/e |
||||
|
|
||||
|
zx z80asm -znewp/fm |
||||
|
zx l80 -znewp,znewp/n/e |
||||
|
|
||||
|
zx z80asm -zfors/fm |
||||
|
zx l80 -zfors,zfors/n/e |
||||
|
|
||||
|
zx z80asm -zforp/fm |
||||
|
zx l80 -zforp,zforp/n/e |
||||
|
|
||||
|
zx z80asm -zmdel/fm |
||||
|
zx l80 -zmdel,zmdel/n/e |
||||
|
|
||||
|
zx z80asm -zmdhb/fh |
||||
|
zx mload25 zmd=zmd.com,zmdhb |
||||
|
|
||||
|
copy /Y zmd.com ..\..\..\Binary\Apps\ || exit /b |
||||
|
|
||||
@ -0,0 +1,10 @@ |
|||||
|
@echo off |
||||
|
setlocal |
||||
|
|
||||
|
ren zmdsubs.rel zmdsubs.rel.sav |
||||
|
if exist *.rel del *.rel |
||||
|
ren zmdsubs.rel.sav zmdsubs.rel |
||||
|
if exist *.hex del *.hex |
||||
|
if exist *.prn del *.prn |
||||
|
if exist *.lst del *.lst |
||||
|
if exist *.com del *.com |
||||
@ -0,0 +1,10 @@ |
|||||
|
OBJECTS = zmd.com |
||||
|
DEST = ../../../Binary/Apps |
||||
|
TOOLS = ../../../Tools |
||||
|
OTHERS = *.hex zmd.rel |
||||
|
|
||||
|
include $(TOOLS)/Makefile.inc |
||||
|
|
||||
|
zmd.com: zmd.rel zmdhb.hex |
||||
|
$(ZXCC) $(CPM)/l80 -zmd,zmd/n/e |
||||
|
$(ZXCC) $(CPM)/MLOAD25 zmd=zmd.com,zmdhb |
||||
@ -0,0 +1,36 @@ |
|||||
|
|
||||
|
----------------------------------------------------------------------- |
||||
|
Copyright (c) 1987, 1988 by Robert W. Kramer III, ALL RIGHTS RESERVED |
||||
|
Release 1.50 1569 40th St. |
||||
|
09/29/88 Rock Island, Il. 61201 |
||||
|
Voice: (309) 786-6711, 24hr |
||||
|
RI RCPM-RDOS (128 Meg) Data: (309) 786-6227, 24hr, 300/1200/2400 |
||||
|
----------------------------------------------------------------------- |
||||
|
|
||||
|
|
||||
|
ZMD AUTO-INSTALL FEATURE |
||||
|
------------------------ |
||||
|
|
||||
|
ZINSTL can automatically install the new release of ZMD (and utilities) |
||||
|
with the use of the '!' option. ZINSTL ! will read all switch/toggle |
||||
|
configurations and port/modem/rtc overlays from your already installed |
||||
|
version of ZMD where you can then use them to install this new release. |
||||
|
|
||||
|
Follow these steps: |
||||
|
|
||||
|
1) Extract all files from ZMDnnn.LBR |
||||
|
2) Rename your already configured ZMD.COM to ZMD149.COM |
||||
|
3) Run ZINSTL (Release 1.50) with the '!' option: ZINSTL ! |
||||
|
4) Answer any questions ZINSTL may ask |
||||
|
5) Use the 'J' option to save configurations |
||||
|
6) Rename ZMD150.COM to ZMD.COM |
||||
|
|
||||
|
|
||||
|
NOTE: This will not work with any other version of ZMD except for 1.49 |
||||
|
and 1.50. Running ZINSTL without the ! option will cause it to run just |
||||
|
like you've all been used to. In the future, if the new release header |
||||
|
file ZMDHDR.Z80 becomes incompatible with that of the previous release |
||||
|
this feature will be disabled. |
||||
|
|
||||
|
|
||||
|
|
||||
@ -0,0 +1,88 @@ |
|||||
|
; |
||||
|
; Version identification |
||||
|
; |
||||
|
VERS EQU 1 ; Release |
||||
|
MODLEV EQU 5 ; Major modification level |
||||
|
REV EQU 0 ; Minor revision number |
||||
|
|
||||
|
VMONTH EQU 09 ; Version month |
||||
|
VDAY EQU 29 ; Version day |
||||
|
VYEAR EQU 88 ; Version year |
||||
|
; |
||||
|
;========================================================================== |
||||
|
; |
||||
|
NO EQU 0 |
||||
|
YES EQU 0FFH |
||||
|
; |
||||
|
;-------------------------------------------------------------------------- |
||||
|
; Define ASCII characters used |
||||
|
;-------------------------------------------------------------------------- |
||||
|
|
||||
|
SOH EQU 1 ; ^A - start of header |
||||
|
STX EQU 2 ; ^B - start of 1k header |
||||
|
CTRLC EQU 3 ; ^C - abort/break character |
||||
|
EOT EQU 4 ; ^D - end of transmission |
||||
|
ACK EQU 6 ; ^F - acknowledge |
||||
|
BELL EQU 7 ; ^G - bell |
||||
|
BS EQU 8 ; ^H - backspace |
||||
|
TAB EQU 9 ; ^I - horizontal tab |
||||
|
LF EQU 10 ; ^J - line feed |
||||
|
CTRLK EQU 11 ; ^K - abort character |
||||
|
CR EQU 13 ; ^M - carriage return |
||||
|
PAUSE EQU 19 ; ^S - pause request |
||||
|
NAK EQU 21 ; ^U - negative acknowledge |
||||
|
CANCEL EQU 24 ; ^X - cancel |
||||
|
EOF EQU 26 ; ^Z - end of file |
||||
|
CRC EQU 67 ; C - CRC request character |
||||
|
KSND EQU 75 ; K - 1k block request character |
||||
|
DEL EQU 127 ; Delete/Rubout |
||||
|
; |
||||
|
; |
||||
|
; Define standard CP/M BDOS equates |
||||
|
; |
||||
|
DIRCON EQU 6 ; Direct console output |
||||
|
PRINT EQU 9 ; Print string function |
||||
|
GETVER EQU 12 ; Get CP/M version |
||||
|
SELDSK EQU 14 ; Select drive |
||||
|
OPEN EQU 15 ; Open file |
||||
|
CLOSE EQU 16 ; Close file |
||||
|
SRCHF EQU 17 ; Search for first occurence |
||||
|
SRCHN EQU 18 ; Search for next occurence |
||||
|
DELETE EQU 19 ; Delete file |
||||
|
READ EQU 20 ; Read record |
||||
|
WRITE EQU 21 ; Write record |
||||
|
MAKE EQU 22 ; Make new file |
||||
|
RENAME EQU 23 ; Rename a file |
||||
|
CURDRV EQU 25 ; Get current drive |
||||
|
SETDMA EQU 26 ; Set DMA |
||||
|
SETFILE EQU 30 ; Set file attributes |
||||
|
SETUSR EQU 32 ; Set user area to receive file |
||||
|
RRDM EQU 33 ; Read random |
||||
|
WRDM EQU 34 ; Write random |
||||
|
FILSIZ EQU 35 ; Compute file size |
||||
|
SETRRD EQU 36 ; Set random record |
||||
|
|
||||
|
BDOS EQU 0005H ; Address for BDOS jump vectors |
||||
|
TBUF EQU 0080H ; Default DMA address |
||||
|
FCB EQU 005CH ; System FCB |
||||
|
FCB1 EQU 006CH ; Secondary FCB area |
||||
|
FCBEXT EQU FCB+12 ; File extent |
||||
|
FCBRNO EQU FCB+32 ; Record number |
||||
|
RANDOM EQU FCB+33 ; Random record field |
||||
|
RLEN EQU 128 ; Record length |
||||
|
ITEMSZ EQU 16 ; Number of data bytes in each filename entry |
||||
|
; |
||||
|
; |
||||
|
TAGFIL EQU 7 |
||||
|
DWNTAG EQU 6 |
||||
|
NOSYS EQU 5 |
||||
|
NOLBS EQU 4 |
||||
|
NOCOMS EQU 3 |
||||
|
NOCOMR EQU 2 |
||||
|
RESERV1 EQU 1 |
||||
|
ZCPR EQU 0 |
||||
|
; |
||||
|
; |
||||
|
; |
||||
|
;-------------------------------------------------------------------------- |
||||
|
|
||||
@ -0,0 +1,44 @@ |
|||||
|
; |
||||
|
; |
||||
|
; MKCOMS.SUB - 09/29/88 - Assemble/Link ZMD and utilities |
||||
|
; |
||||
|
; To use this file with M80, you'll have to edit all 'z80asm ' |
||||
|
; to 'm80 ='. Older versions of M80 which truncate labels to 6 |
||||
|
; bytes will not assemble the programs properly. |
||||
|
; |
||||
|
; --> MICROSOFT MACRO-80 v3.43 has been tested and proven to |
||||
|
; assemble them without error. |
||||
|
; |
||||
|
; |
||||
|
z80asm zmd/m |
||||
|
l80 zmd,zmd/n/e |
||||
|
era zmd.rel |
||||
|
; |
||||
|
z80asm zmap/m |
||||
|
l80 zmap,zmap/n/e |
||||
|
era zmap.rel |
||||
|
; |
||||
|
z80asm znews/m |
||||
|
l80 znews,znews/n/e |
||||
|
era znews.rel |
||||
|
; |
||||
|
z80asm znewp/m |
||||
|
l80 znewp,znewp/n/e |
||||
|
era znewp.rel |
||||
|
; |
||||
|
z80asm zfors/m |
||||
|
l80 zfors,zfors/n/e |
||||
|
era zfors.rel |
||||
|
; |
||||
|
z80asm zforp/m |
||||
|
l80 zforp,zforp/n/e |
||||
|
era zforp.rel |
||||
|
; |
||||
|
z80asm zmdel/m |
||||
|
l80 zmdel,zmdel/n/e |
||||
|
era zmdel.rel |
||||
|
; |
||||
|
; |
||||
|
; Done... |
||||
|
; |
||||
|
|
||||
@ -0,0 +1,420 @@ |
|||||
|
; |
||||
|
|
||||
|
TITLE ZFORP.Z80 - 09/29/88 - ZMD Public Description Utility |
||||
|
; Copyrighted (c) 1987, 1988 |
||||
|
; Robert W. Kramer III |
||||
|
|
||||
|
PAGE |
||||
|
;- -; |
||||
|
; Update History ; |
||||
|
; ; |
||||
|
; Date Release Comments ; |
||||
|
; -------- ------- ---------------------------------------------- ; |
||||
|
; ; |
||||
|
; 09/29/88 v1.50 - No change(s) made to this file. ; |
||||
|
; 03/18/88 v1.49 - No change(s) made to this file ; |
||||
|
; 03/13/88 v1.48 - Redefined buffer table at end of programs. STACK; |
||||
|
; and filename buffers now EQUated with offsets ; |
||||
|
; from the last switch/toggle in program instead ; |
||||
|
; of with DS directive. ; |
||||
|
; - Some systems which do NOT have an interrupt ; |
||||
|
; driven keyboard may have noticed problems when ; |
||||
|
; an invalid key was entered in the ZNEWP, ZFORP ; |
||||
|
; and ZMDEL programs. In ZNEWP and ZFORP, if a ; |
||||
|
; CR was entered to pause the output, output was ; |
||||
|
; limited to one line at a time per key pressed. ; |
||||
|
; If an invalid key was hit, output would have ; |
||||
|
; remained in a paused state until one of the ; |
||||
|
; abort keys were pressed. This was difficult to ; |
||||
|
; find since my keyboard is interrupt driven and ; |
||||
|
; I could not duplicate the problem on my own ; |
||||
|
; system. ; |
||||
|
; 02/25/88 v1.47 - No change(s) made to this file ; |
||||
|
; 01/27/88 v1.46 - Some changes were made to ZMDSUBS that are not ; |
||||
|
; directly related to this file ; |
||||
|
; - Fixed typo in help guide reflecting '/' as the ; |
||||
|
; flag to force LF in search routine ; |
||||
|
; 01/17/88 v1.45 - First public release ; |
||||
|
; 12/24/87 v1.01 - Some trivial bugs fixed ; |
||||
|
; 11/10/87 v1.00 - Initial version ; |
||||
|
;- -; |
||||
|
|
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EXTERNAL Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
EXTRN CKABRT,CMDBUF,DBUF,ERXIT,EXIT,ILPRTB,LINCNT,NOFILE |
||||
|
EXTRN NOFOR,OLDDRV,OLDUSR,PRINTV,RECAR1,RECDR1,RENFCB |
||||
|
EXTRN RSDMA,SHONM4,STACK,TYPE,UCASE,NOFOR |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Program Starts Here | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
.Z80 |
||||
|
ASEG |
||||
|
ORG 100H ; Program starts |
||||
|
JP BEGIN ; Jump around configuration table |
||||
|
INCLUDE ZMDHDR.Z80 ; Include the ZMD header overlay |
||||
|
.REQUEST ZMDSUBS ; Include the ZMD subroutines |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; Save CP/M stack, initialize new one for this program |
||||
|
; |
||||
|
BEGIN: LD (STACK),SP ; Save return address to CCP |
||||
|
LD SP,STACK ; Initialize new one for this program |
||||
|
|
||||
|
; |
||||
|
; Get current drive/user and save for later |
||||
|
; |
||||
|
LD A,255 |
||||
|
CALL RECAR1 |
||||
|
LD (OLDUSR),A ; Save current user area |
||||
|
LD C,CURDRV |
||||
|
CALL BDOS |
||||
|
LD (OLDDRV),A ; Save current drive |
||||
|
|
||||
|
; |
||||
|
; Tell em who we are |
||||
|
; |
||||
|
LD HL,PUBFOR |
||||
|
CALL PRINTV |
||||
|
|
||||
|
; |
||||
|
; See if descriptions enabled |
||||
|
; |
||||
|
LD A,(DESCRIB) |
||||
|
OR A |
||||
|
JP NZ,BEGIN1 |
||||
|
LD A,(MSGDESC) |
||||
|
OR A |
||||
|
JP Z,NOFOR |
||||
|
|
||||
|
BEGIN1: CALL ILPRTB |
||||
|
DB '(S to Pause - C K or X Abort - ? for Help)' |
||||
|
DB CR,LF,LF,0 |
||||
|
LD A,8 |
||||
|
LD (LINCNT),A |
||||
|
|
||||
|
; |
||||
|
; See if user wants file displayed 'nonstop' ($N) |
||||
|
; |
||||
|
LD A,(TBUF) ; Number of bytes in command tail |
||||
|
OR A ; Were there any? |
||||
|
LD (SHOWALL),A ; Tell rest of program |
||||
|
JP Z,OPNFIL ; Just go display the file if not |
||||
|
|
||||
|
LD A,(FCB+1) ; Get first character on command line |
||||
|
CP '$' ; Must specify '$' first for pause disabling |
||||
|
JP NZ,CKHLP ; Nope, continue normal |
||||
|
|
||||
|
LD A,(FCB+2) ; Get second character on command line |
||||
|
CP 'N' ; 'N' for nonstop display? |
||||
|
JP NZ,CKHLP ; No |
||||
|
|
||||
|
XOR A |
||||
|
LD (SHOWALL),A ; Disable string search |
||||
|
LD (PAGLEN),A ; Else disable page pauses |
||||
|
JP OPNFIL |
||||
|
|
||||
|
; |
||||
|
; See if requesting help |
||||
|
; |
||||
|
CKHLP: LD A,(TBUF+2) ; Get character after space |
||||
|
CP '?' ; ?? |
||||
|
JP NZ,SAVTAIL ; No, save command tail for comparison |
||||
|
|
||||
|
LD A,(TBUF+3) ; Any more chracters? |
||||
|
OR A |
||||
|
JP Z,HELP ; No, so must want HELP |
||||
|
|
||||
|
; |
||||
|
; Move command line buffer to internal buffer |
||||
|
; |
||||
|
SAVTAIL:LD HL,TBUF ; Point to command line buffer |
||||
|
LD B,(HL) ; Character count is first byte into 'B' |
||||
|
LD DE,CMDBUF ; Destination is internal buffer |
||||
|
INC HL ; Increment to ' ', next INC gets first chr |
||||
|
LD A,(HL) ; Get this character |
||||
|
CP ' ' ; Is it a space? |
||||
|
JR Z,SVTAIL1 ; Yes, leave things alone |
||||
|
DEC HL ; No, decrement pointer |
||||
|
|
||||
|
SVTAIL1:INC HL ; Increment to next character |
||||
|
LD A,(HL) ; Into A |
||||
|
LD (DE),A ; Store in internal buffer |
||||
|
INC DE ; Increment pointer |
||||
|
DJNZ SVTAIL1 ; One less character on command line |
||||
|
|
||||
|
; |
||||
|
; Open FOR file |
||||
|
; |
||||
|
OPNFIL: LD A,(USER) ; Get user area to find FOR file |
||||
|
CALL RECAR1 ; Log into it |
||||
|
LD A,(DRIVE) ; Get drive to find FOR file |
||||
|
CALL RECDR1 ; Log into it |
||||
|
|
||||
|
LD HL,FILE ; Initialize internal FCB1 |
||||
|
LD DE,FORNAM ; With FOR filename |
||||
|
CALL RENFCB |
||||
|
|
||||
|
LD DE,FILE ; Internal FCB1 contains filename |
||||
|
LD C,OPEN ; Now attempt open |
||||
|
CALL BDOS |
||||
|
INC A ; Open successful? |
||||
|
LD HL,FORNAM ; Point to FOR filename for 'not found' |
||||
|
JP Z,NOFILE ; No, inform user and abort |
||||
|
|
||||
|
; |
||||
|
; Read a 128 byte record into DBUF at end of program |
||||
|
; |
||||
|
XOR A |
||||
|
LD (FILE+12),A ; Start with first extent |
||||
|
LD (FILE+32),A ; And first record |
||||
|
LD DE,DBUF ; Destination buffer |
||||
|
|
||||
|
; |
||||
|
RDRECD: PUSH DE ; Save current data buffer address |
||||
|
CALL RSDMA ; Reset DMA |
||||
|
|
||||
|
LD C,READ ; Read next record |
||||
|
LD DE,FILE ; From FOR file |
||||
|
CALL BDOS |
||||
|
POP DE ; Get current DBUF address back |
||||
|
OR A ; Read successful? |
||||
|
JP NZ,RERROR ; No, go check EOF |
||||
|
LD HL,TBUF ; 128 byte buffer in page 0 |
||||
|
|
||||
|
WRDLP: LD A,(LINEND) ; At end of line? |
||||
|
OR A |
||||
|
JP Z,WDLP1 ; No |
||||
|
|
||||
|
XOR A |
||||
|
LD (LINEND),A ; Else we aren't anymore |
||||
|
|
||||
|
LD A,(HL) ; Get the character |
||||
|
AND 7FH ; Strip parity |
||||
|
CP '-' ; Start of next description? |
||||
|
JP NZ,WDLP1 ; No |
||||
|
|
||||
|
LD A,3 |
||||
|
LD (DE),A ; Stuff a break for beginning of last descrip |
||||
|
JP SEARCH |
||||
|
|
||||
|
WDLP1: LD A,(HL) ; Get character |
||||
|
AND 7FH ; Strip high bit |
||||
|
CP DEL ; Rubout? |
||||
|
JP Z,NEXT ; Yes, ignore and get next character |
||||
|
CP EOF ; EOF - End of file marker? |
||||
|
JP Z,ENDFIL ; Yes, all done |
||||
|
LD B,A ; Save character for now |
||||
|
LD A,(SHOWALL) ; Looking for specified string? |
||||
|
OR A |
||||
|
LD A,B ; Get our character back now |
||||
|
JP NZ,WDLP2 ; Yes, just write to memory |
||||
|
CALL TYPE ; Output to console |
||||
|
EX AF,AF' ; Save flags (NZ=displaying to console) |
||||
|
LD A,0 ; A=0 disables pausing while checking abort |
||||
|
EX AF,AF' ; Save it for now, get character back |
||||
|
JP WDLP3 ; And see if at end of line |
||||
|
|
||||
|
WDLP2: LD (DE),A ; Else writing to memory |
||||
|
INC DE ; Next buffer position |
||||
|
EX AF,AF' ; Save flags (Z=writing to memory) |
||||
|
LD A,1 ; A=1 enables puasing while checking abort |
||||
|
EX AF,AF' ; Save it for now, get character back |
||||
|
|
||||
|
WDLP3: CP LF ; Are we at end of line? |
||||
|
JP NZ,NEXT ; No get next character |
||||
|
|
||||
|
LD A,(SHOWALL) ; Get string search toggle |
||||
|
LD (LINEND),A ; If set, at end of line, and writng to memory |
||||
|
EX AF,AF' ; AF'=1 enable pauses, disable if 0 |
||||
|
CALL CKABRT ; Check for user abort (and pauses if A=1) |
||||
|
|
||||
|
NEXT: INC L ; One more byte |
||||
|
JP Z,RDRECD ; If no more get next record |
||||
|
JP WRDLP ; Else get next character |
||||
|
|
||||
|
; |
||||
|
; Search for a match with search string |
||||
|
; |
||||
|
SEARCH: PUSH HL ; Save HL |
||||
|
LD HL,CMDBUF ; Point to buffer containing command tail |
||||
|
|
||||
|
SEARC1: LD (CMDPTR),HL ; Save command tail buffer pointer |
||||
|
LD HL,DBUF ; Disk buffer with FOR text |
||||
|
|
||||
|
SEARC2: LD DE,(CMDPTR) ; Get command tail buffer pointer again |
||||
|
PUSH HL ; Save it (command tail pointer still in DE) |
||||
|
|
||||
|
SEARC3: LD A,(DE) ; Get a character |
||||
|
CP '\' ; Force LF? |
||||
|
JP NZ,SEARC4 ; No |
||||
|
LD A,LF ; Else LF value in A for comparison |
||||
|
|
||||
|
SEARC4: INC DE ; Increment to next command tail character |
||||
|
OR A ; Anything there? |
||||
|
JP Z,SEARC8 ; No |
||||
|
CP '|' ; String seperator? |
||||
|
JP Z,SEARC8 ; Yes |
||||
|
LD B,A ; Save character for compare |
||||
|
LD A,(HL) ; Get a FOR text character in A |
||||
|
CALL UCASE ; Convert it to uppercase |
||||
|
|
||||
|
SEARC5: LD C,A ; Put FOR text character in C for now |
||||
|
INC HL ; And increment to next one |
||||
|
LD A,B ; Get comparison character back (from CMDBUF) |
||||
|
CP '?' ; Accept any character? |
||||
|
JP Z,SEARC3 ; Yes, call it a match |
||||
|
CP C ; Else are they the same? |
||||
|
JP Z,SEARC3 ; Yes, call it a match |
||||
|
POP HL ; Else get FOR buffer address back |
||||
|
INC HL ; Increment to next character |
||||
|
LD B,0 ; Initialize count to 0 |
||||
|
LD A,(HL) ; Get next character from FOR buffer |
||||
|
CP CTRLC ; Beginning of description entry? |
||||
|
JP Z,SEARC6 ; Yes |
||||
|
CP 4 ; End of file? |
||||
|
JP NZ,SEARC2 ; No |
||||
|
INC B ; Else, show we hit end of buffer |
||||
|
|
||||
|
SEARC6: LD HL,(CMDPTR) ; Get command tail pointer back |
||||
|
|
||||
|
SEARC7: LD A,(HL) ; Get character from saved command tail |
||||
|
INC HL ; Point to next one |
||||
|
CP '|' ; Searching for multiple strings? |
||||
|
JP Z,SEARC1 ; Yes, go search next one |
||||
|
OR A ; Else are we all done? |
||||
|
JP NZ,SEARC7 ; No, keep looking |
||||
|
LD A,B ; Else see if at end of buffer |
||||
|
OR A |
||||
|
JP NZ,ENDFL1 ; Yes |
||||
|
LD DE,DBUF+1 |
||||
|
POP HL ; Get record count back |
||||
|
JP NEXT ; Go get next |
||||
|
|
||||
|
SEARC8: POP HL |
||||
|
LD A,CR |
||||
|
CALL TYPE ; Output CR for end of line |
||||
|
LD HL,DBUF |
||||
|
|
||||
|
SEARC9: LD A,(HL) ; Get character |
||||
|
CP CTRLC ; Start of description? |
||||
|
JP Z,SEARC10 ; Yes, go get next character |
||||
|
CP 4 ; End of file? |
||||
|
JP Z,ENDFL1 ; Yes |
||||
|
CALL TYPE ; Output character to console |
||||
|
CP LF ; At end of line? |
||||
|
LD A,0 ; Disable page pauses |
||||
|
CALL Z,CKABRT ; Check for aborts |
||||
|
INC HL ; Next character |
||||
|
JP SEARC9 ; Loop until a ^C or ^D |
||||
|
|
||||
|
SEARC10:POP HL |
||||
|
LD DE,DBUF+1 |
||||
|
JP NEXT ; Go get next byte |
||||
|
|
||||
|
; |
||||
|
; The following routine displays the help guide to the user |
||||
|
; |
||||
|
HELP: CALL PRTABT |
||||
|
DB CR,LF |
||||
|
DB 'Usage examples:' |
||||
|
DB CR,LF |
||||
|
DB CR,LF,' FOR Show entire file' |
||||
|
DB CR,LF,' FOR $N Show entire file without paging' |
||||
|
DB CR,LF,' FOR ZMD All descriptions containing string ''ZMD''' |
||||
|
DB CR,LF,' FOR ZMD|LU ''|'' seperates multiple strings to search' |
||||
|
DB CR,LF,' FOR \ZMD ''\'' forces line feed and looks at filenames' |
||||
|
DB CR,LF,' FOR ZM? ''?'' matches any character in this position' |
||||
|
DB CR,LF,0 |
||||
|
|
||||
|
LD A,(INCLDU) |
||||
|
OR A |
||||
|
JP Z,HELP1 |
||||
|
CALL PRTABT |
||||
|
DB ' FOR (B0:) Descriptions for files received on B0:',0 |
||||
|
|
||||
|
HELP1: CALL PRTABT |
||||
|
DB CR,LF,0 |
||||
|
LD A,(DSTAMP) |
||||
|
OR A |
||||
|
JP Z,HELP4 |
||||
|
LD A,(EDATE) |
||||
|
OR A |
||||
|
JP Z,HELP2 |
||||
|
CALL PRTABT |
||||
|
DB ' FOR ??/12',0 |
||||
|
JP HELP3 |
||||
|
|
||||
|
HELP2: CALL PRTABT |
||||
|
DB ' FOR 12/??',0 |
||||
|
|
||||
|
HELP3: CALL PRTABT |
||||
|
DB ' Show files received in month of December',0 |
||||
|
|
||||
|
HELP4: CALL ERXIT |
||||
|
DB CR,LF,LF,LF,LF,'$' |
||||
|
|
||||
|
; |
||||
|
; Inline print routine checks for user abort on each line feed |
||||
|
; |
||||
|
PRTABT: POP HL ; Get address following CALL |
||||
|
|
||||
|
AM1: LD A,(HL) ; Character in A |
||||
|
OR A ; Null terminator? |
||||
|
JP Z,AM2 ; Yes, all done |
||||
|
CALL TYPE ; Else output to console |
||||
|
CP LF ; Was it a LF? |
||||
|
LD A,0 ; Enable page pauses |
||||
|
CALL Z,CKABRT ; Check for user abort, or pause request |
||||
|
INC HL ; Point to next character |
||||
|
JP AM1 ; Loop until a null |
||||
|
|
||||
|
AM2: PUSH HL ; Current address in HL=return address |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
RERROR: CP 1 |
||||
|
JP Z,ENDFIL |
||||
|
CALL ERXIT |
||||
|
DB '-- Source file read error$' |
||||
|
; |
||||
|
ENDFIL: LD A,(SHOWALL) |
||||
|
OR A |
||||
|
JP Z,ENDFL1 |
||||
|
LD A,4 |
||||
|
LD (DE),A |
||||
|
JP SEARCH |
||||
|
|
||||
|
ENDFL1: LD C,CLOSE |
||||
|
LD DE,FILE |
||||
|
CALL BDOS |
||||
|
CALL ERXIT |
||||
|
DB CR |
||||
|
DB '-----' |
||||
|
DB CR,LF |
||||
|
DB '-- End of file --$' |
||||
|
|
||||
|
|
||||
|
; |
||||
|
; These next are dummy routines to satisfy external ZMDSUBS requests. |
||||
|
; They do nothing, but leave alone |
||||
|
; |
||||
|
DONE:: JP EXIT |
||||
|
TIME:: RET |
||||
|
|
||||
|
|
||||
|
LINEND: DB 0 |
||||
|
SHOWALL:DB 0 |
||||
|
CMDPTR: DW 0 |
||||
|
|
||||
|
|
||||
|
END |
||||
|
|
||||
@ -0,0 +1,233 @@ |
|||||
|
; |
||||
|
|
||||
|
TITLE ZFORS.Z80 - 09/29/88 - ZMD Sysop Description Utility |
||||
|
; Copyrighted (c) 1987, 1988 |
||||
|
; Robert W. Kramer III |
||||
|
|
||||
|
PAGE |
||||
|
;- -; |
||||
|
; Update History ; |
||||
|
; ; |
||||
|
; Date Release Comments ; |
||||
|
; -------- ------- ---------------------------------------------- ; |
||||
|
; ; |
||||
|
; 09/29/88 v1.50 - Added trivial routines to display the user's ; |
||||
|
; prompt selections to screen. ; |
||||
|
; 03/13/88 v1.49 - No changes made to this file ; |
||||
|
; 03/13/88 v1.48 - Had a small problem with TPA fix which has been ; |
||||
|
; corrected. CHKTPA was calculating the total ; |
||||
|
; number of bytes available for DBUF, but wasn't ; |
||||
|
; clearing register L (forcing an even amount of ; |
||||
|
; sectors before initializing OUTSIZ buffer limit ; |
||||
|
; comparison word). This may have introduced ; |
||||
|
; minimal garbage to your FOR file if your FOR ; |
||||
|
; file is large enough to fill available TPA with ; |
||||
|
; ZMD, ZFORS or to the log file if running ZMDEL. ; |
||||
|
; - Rewrote OUTCHR routine in ZMDSUBS. ; |
||||
|
; - Redefined buffer table at end of programs. STACK; |
||||
|
; and filename buffers now EQUated with offsets ; |
||||
|
; from the last switch/toggle in program instead ; |
||||
|
; of with DS directive. ; |
||||
|
; - Some systems which do NOT have an interrupt ; |
||||
|
; driven keyboard may have noticed problems when ; |
||||
|
; an invalid key was entered in the ZNEWP, ZFORP ; |
||||
|
; and ZMDEL programs. In ZNEWP and ZFORP, if a ; |
||||
|
; CR was entered to pause the output, output was ; |
||||
|
; limited to one line at a time per key pressed. ; |
||||
|
; If an invalid key was hit, output would have ; |
||||
|
; remained in a paused state until one of the ; |
||||
|
; abort keys were pressed. This was difficult to ; |
||||
|
; find since my keyboard is interrupt driven and ; |
||||
|
; I could not duplicate the problem on my own ; |
||||
|
; system. ; |
||||
|
; 02/25/88 v1.47 - No change(s) made to this file |
||||
|
; 01/27/88 v1.46 - Set MODE to 255 so ZMDSUBS knows we might be ; |
||||
|
; running in local mode and not to worry if BYE ; |
||||
|
; is running or not when CHKENV checks to see ; |
||||
|
; which clock features are valid. ; |
||||
|
; 01/17/88 v1.45 - First public release ; |
||||
|
; 12/06/87 v1.02 - Fixed numerous trivial bugs. ; |
||||
|
;- -; |
||||
|
|
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EXTERNAL Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
EXTRN CLRLIN,DECOUT,DSCFLG,ERXIT,EXIT,FILCNT,GETDAT |
||||
|
EXTRN GETDSC,GETFN,GETKIND,ILPRTB,INPUT,NEWNAM,OLDDRV |
||||
|
EXTRN OLDUSR,OPNFOR,PRINTV,RECAR1,SHOCAT,STACK,TYPE |
||||
|
EXTRN UCASE,NOFOR,MODE |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Program Starts Here | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
.Z80 |
||||
|
ASEG |
||||
|
ORG 100H ; Program starts |
||||
|
JP BEGIN ; Jump around configuration table |
||||
|
INCLUDE ZMDHDR.Z80 ; Include the ZMD header overlay |
||||
|
.REQUEST ZMDSUBS ; Include the ZMD subroutines |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; Save CP/M stack, initialize new one for this program |
||||
|
; |
||||
|
BEGIN: LD (STACK),SP ; Save return address to CCP |
||||
|
LD SP,STACK ; Initialize new one for this program |
||||
|
|
||||
|
; |
||||
|
; Save current drive/user |
||||
|
; |
||||
|
LD A,255 ; Get current user |
||||
|
CALL RECAR1 |
||||
|
LD (OLDUSR),A ; Store it |
||||
|
LD C,CURDRV ; Get current drive |
||||
|
CALL BDOS |
||||
|
LD (OLDDRV),A ; Store it |
||||
|
|
||||
|
; |
||||
|
; Disable sleepy caller timeout and set description routines for up to |
||||
|
; 50 new entries |
||||
|
; |
||||
|
XOR A |
||||
|
LD (DESWAIT),A ; Disable sleepy caller timer |
||||
|
LD A,50 |
||||
|
LD (FILCNT),A ; Allow up to 50 descriptions |
||||
|
|
||||
|
LD A,255 |
||||
|
LD (MODE),A ; Tell ZMDSUBS we're a sysop utility |
||||
|
|
||||
|
; |
||||
|
; Display program name and version |
||||
|
; |
||||
|
BEGIN1: LD HL,SYSFOR ; Point to name of this program |
||||
|
CALL PRINTV ; Display it |
||||
|
|
||||
|
LD A,(DESCRIB) ; Regular FOR descriptions? |
||||
|
OR A |
||||
|
JP NZ,MAKDESC ; Yes, skip next |
||||
|
|
||||
|
LD A,(MSGDESC) ; BBS message base descriptions? |
||||
|
OR A |
||||
|
JP Z,NOFOR ; No, descriptions disabled |
||||
|
LD A,1 |
||||
|
LD (DSCFLG),A ; Set flag to show message base descriptions |
||||
|
LD A,(PRUSR) ; Get the private user |
||||
|
LD (USER),A ; FOR destination |
||||
|
LD A,(PRDRV) ; Get the private drive |
||||
|
LD (DRIVE),A ; FOR destination |
||||
|
JP MAKFN ; Skip date stuff |
||||
|
|
||||
|
; |
||||
|
; Get the date of the upload if suppose to. |
||||
|
; |
||||
|
MAKDESC:LD A,(DSTAMP) ; Datestamping description header? |
||||
|
OR A |
||||
|
JP Z,MAKFN ; No, go get filename |
||||
|
CALL ILPRTB |
||||
|
DB 'Date of upload: ',0 |
||||
|
CALL GETDAT ; Get the date |
||||
|
|
||||
|
; |
||||
|
; Get the filename (no spaces with '.' filename seperator) |
||||
|
; |
||||
|
MAKFN: CALL ILPRTB |
||||
|
DB CR,LF |
||||
|
DB ' Name of file: ',0 |
||||
|
CALL GETFN ; Get filename |
||||
|
CALL CLRLIN ; Clear current line |
||||
|
LD A,B ; Get filename bytes remaining count in A |
||||
|
CP 11 ; Anything entered? |
||||
|
JP NZ,GOTNM1 ; Yes, skip this |
||||
|
|
||||
|
; |
||||
|
; No filename was entered, check for save or abort, else continue |
||||
|
; |
||||
|
CALL ILPRTB |
||||
|
DB 'Save, Continue, Abort: ',0 |
||||
|
CALL INPUT ; Get character |
||||
|
CALL UCASE ; Convert to uppercase |
||||
|
CP 'S' ; Save changes? |
||||
|
JP Z,OPNFOR ; Yes, write current buffer to FOR file |
||||
|
|
||||
|
CP 'A' ; Abort program? |
||||
|
JP NZ,BEGIN1 ; No, get next character |
||||
|
CALL ILPRTB |
||||
|
DB CR |
||||
|
DB 'Abort with NO changes? ',0 |
||||
|
CALL INPUT |
||||
|
CALL UCASE |
||||
|
CP 'Y' |
||||
|
JP NZ,BEGIN1 |
||||
|
JP EXIT ; Then abort |
||||
|
|
||||
|
; |
||||
|
; Display file descriptor/upload areas and get choice |
||||
|
; |
||||
|
GOTNM1: CALL GETKIND ; Get file category for description header |
||||
|
|
||||
|
; |
||||
|
; Show the drive/user |
||||
|
; |
||||
|
LD A,(MSGDESC) ; Using BBS message base for descriptions? |
||||
|
OR A |
||||
|
JP NZ,SHOWDU ; Yes, show drive/user of uploaded file |
||||
|
LD A,(INCLDU) ; Include du in description header? |
||||
|
OR A |
||||
|
JP Z,SHOWFN ; No, then skip this stuff |
||||
|
|
||||
|
SHOWDU: LD A,(DRV) ; Get upload drive |
||||
|
CALL TYPE ; Output to console |
||||
|
LD A,(USR) ; Get upload user area |
||||
|
LD H,0 |
||||
|
LD L,A ; In A |
||||
|
CALL DECOUT ; Decimal output routine |
||||
|
LD A,':' ; Output colon |
||||
|
CALL TYPE |
||||
|
|
||||
|
; |
||||
|
; Show the filename |
||||
|
; |
||||
|
SHOWFN: LD HL,NEWNAM |
||||
|
|
||||
|
SHONM1: LD A,(HL) |
||||
|
CP LF |
||||
|
JP Z,SHOWCT |
||||
|
CALL TYPE |
||||
|
INC HL |
||||
|
JP SHONM1 |
||||
|
|
||||
|
; |
||||
|
; Show the file descriptor/upload area |
||||
|
; |
||||
|
SHOWCT: LD A,(ASKIND) ; Supposed to be showing file descriptor? |
||||
|
OR A |
||||
|
JP Z,MKENTRY ; No, get the description |
||||
|
CALL ILPRTB |
||||
|
DB ' - ',0 |
||||
|
CALL SHOCAT ; If so, show it |
||||
|
|
||||
|
; |
||||
|
; Get up to 7 lines for description |
||||
|
; |
||||
|
MKENTRY:CALL GETDSC ; Get up to 7 lines for description |
||||
|
JP NZ,BEGIN1 ; If none entered, or incorrect, skip next |
||||
|
|
||||
|
LD IY,FILCNT ; Else point to maximum entries left |
||||
|
DEC (IY) ; One less to go |
||||
|
JP BEGIN1 ; Get next one |
||||
|
|
||||
|
; |
||||
|
; These next are dummy routines to satisfy ZMDSUBS external requests. |
||||
|
; They do nothing, but leave them alone. |
||||
|
; |
||||
|
DONE:: JP EXIT ; Exit routine can take care of us |
||||
|
TIME:: RET |
||||
|
|
||||
|
|
||||
|
END |
||||
|
|
||||
@ -0,0 +1,268 @@ |
|||||
|
; |
||||
|
|
||||
|
TITLE ZMAP.Z80 - 09/29/88 - ZMD System MAP Utility |
||||
|
; Copyrighted (c) 1988 |
||||
|
; Robert W. Kramer III |
||||
|
|
||||
|
PAGE |
||||
|
;- -; |
||||
|
; Update History ; |
||||
|
; ; |
||||
|
; Date Release Comments ; |
||||
|
; -------- ------- ---------------------------------------------- ; |
||||
|
; ; |
||||
|
; 09/29/88 v1.50 - Initial release ; |
||||
|
;- -; |
||||
|
|
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EXTERNAL Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
EXTRN EXIT,ILPRTB,OLDDRV,OLDUSR,PRINTV,RECAR1,STACK,TYPE |
||||
|
EXTRN KIND,CATADR,SHONM4,WHLCHK,DECOUT |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Program Starts Here | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
.Z80 |
||||
|
ASEG |
||||
|
ORG 100H ; Program starts |
||||
|
JP BEGIN ; Jump around configuration table |
||||
|
INCLUDE ZMDHDR.Z80 ; Include the ZMD header overlay |
||||
|
.REQUEST ZMDSUBS ; Include the ZMD subroutines |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; Save CP/M stack, initialize new one for this program |
||||
|
; |
||||
|
BEGIN: LD (STACK),SP ; Save return address to CCP |
||||
|
LD SP,STACK ; Initialize new one for this program |
||||
|
|
||||
|
; |
||||
|
; Save current drive/user |
||||
|
; |
||||
|
LD A,255 ; Get current user |
||||
|
CALL RECAR1 |
||||
|
LD (OLDUSR),A ; Store it |
||||
|
LD C,CURDRV ; Get current drive |
||||
|
CALL BDOS |
||||
|
LD (OLDDRV),A ; Store it |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; Display program name and version |
||||
|
; |
||||
|
BEGIN1: LD HL,MAPNAM ; Point to name of this program |
||||
|
CALL PRINTV ; Display it |
||||
|
|
||||
|
LD A,(ASKAREA) |
||||
|
OR A |
||||
|
JP Z,NOTDEF ; Upload areas not enabled, Abort |
||||
|
|
||||
|
CALL WHLCHK |
||||
|
JP Z,BEGIN2 |
||||
|
LD A,1 |
||||
|
LD (SPECIAL),A |
||||
|
|
||||
|
BEGIN2: CALL HBORD |
||||
|
|
||||
|
LD A,'A' |
||||
|
LD (KIND),A |
||||
|
|
||||
|
LD A,(MAXTYP) |
||||
|
RRA |
||||
|
PUSH AF |
||||
|
|
||||
|
LD A,(MAXTYP) |
||||
|
SUB A,'A' |
||||
|
RRA |
||||
|
LD C,A |
||||
|
|
||||
|
POP AF |
||||
|
JP NC,NOTODD |
||||
|
LD A,1 |
||||
|
LD (ISODD),A |
||||
|
|
||||
|
NOTODD: INC C |
||||
|
LD A,'A' |
||||
|
ADD A,C |
||||
|
LD C,A ; C contains letter of 2nd column descriptors |
||||
|
|
||||
|
LD A,(MAXTYP) |
||||
|
SUB A,'@' |
||||
|
LD B,A ; B contains binary number of descriptors |
||||
|
|
||||
|
LD DE,DESTBL ; DE contains address to 26 byte table |
||||
|
LD A,C |
||||
|
EX AF,AF' |
||||
|
LD A,'A' ; Initialize first entry |
||||
|
|
||||
|
SETLP: LD (DE),A |
||||
|
INC DE |
||||
|
INC A |
||||
|
EX AF,AF' |
||||
|
DJNZ SETLP |
||||
|
LD A,0 |
||||
|
LD (DE),A ; Stuff terminator for display routines |
||||
|
|
||||
|
; |
||||
|
; Main program loop |
||||
|
; |
||||
|
LOOP: LD A,(COLM) |
||||
|
OR A |
||||
|
JP NZ,DOCOL2 |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB ' | ',0 |
||||
|
JP ATEND |
||||
|
|
||||
|
DOCOL2: CALL ILPRTB |
||||
|
DB ' || ',0 |
||||
|
|
||||
|
ATEND: CALL SHOWFD |
||||
|
CALL SHOWDU |
||||
|
LD A,(COLM) |
||||
|
OR A |
||||
|
JP Z,ATEND1 |
||||
|
CALL ILPRTB |
||||
|
DB ' |' |
||||
|
DB CR,LF,0 |
||||
|
XOR A |
||||
|
JP ATEND2 |
||||
|
|
||||
|
ATEND1: LD A,1 |
||||
|
|
||||
|
ATEND2: LD (COLM),A |
||||
|
|
||||
|
LD HL,(TBLSAV) |
||||
|
INC HL |
||||
|
LD (TBLSAV),HL |
||||
|
LD A,(HL) |
||||
|
LD (KIND),A |
||||
|
OR A |
||||
|
JP NZ,LOOP |
||||
|
|
||||
|
LD A,(ISODD) |
||||
|
OR A |
||||
|
JP Z,ISDN1 |
||||
|
|
||||
|
ISDONE: CALL ILPRTB |
||||
|
DB ' || ',0 |
||||
|
LD A,(SPECIAL) |
||||
|
OR A |
||||
|
JP Z,IS1 |
||||
|
CALL ILPRTB |
||||
|
DB ' ',0 |
||||
|
|
||||
|
IS1: CALL ILPRTB |
||||
|
DB ' |',CR,LF,0 |
||||
|
|
||||
|
ISDN1: CALL HBORD |
||||
|
CALL ILPRTB |
||||
|
DB CR,LF |
||||
|
DB ' Use FOR/NEW to view recent upload description/log listings.' |
||||
|
DB 0 |
||||
|
JP EXIT |
||||
|
; |
||||
|
; |
||||
|
SHOWDU: LD A,(KIND) |
||||
|
SUB 'A' |
||||
|
RLA |
||||
|
RLA |
||||
|
LD D,0 |
||||
|
LD E,A |
||||
|
LD IY,TYPTBL |
||||
|
ADD IY,DE |
||||
|
LD A,(IY) |
||||
|
CALL TYPE |
||||
|
|
||||
|
LD A,(IY+1) |
||||
|
CALL SHODU1 |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB ' ',0 |
||||
|
|
||||
|
LD A,(SPECIAL) |
||||
|
OR A |
||||
|
RET Z |
||||
|
|
||||
|
LD A,(IY+2) |
||||
|
CALL TYPE |
||||
|
|
||||
|
LD A,(IY+3) |
||||
|
|
||||
|
SHODU1: CP 10 |
||||
|
PUSH AF |
||||
|
|
||||
|
LD H,0 |
||||
|
LD L,A |
||||
|
CALL DECOUT |
||||
|
CALL ILPRTB |
||||
|
DB ':',0 |
||||
|
|
||||
|
POP AF |
||||
|
RET C |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB ' ',0 |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
SHOWFD: CALL CATADR |
||||
|
INC DE |
||||
|
INC DE |
||||
|
LD B,23 |
||||
|
|
||||
|
SHOFD1: LD A,(DE) |
||||
|
CALL TYPE |
||||
|
INC DE |
||||
|
DJNZ SHOFD1 |
||||
|
CALL ILPRTB |
||||
|
DB ' ',0 |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
; Show horizontal border for top and bottom |
||||
|
; |
||||
|
HBORD: CALL ILPRTB |
||||
|
DB ' ================================================================',0 |
||||
|
LD A,(SPECIAL) |
||||
|
OR A |
||||
|
JP Z,HBORD1 |
||||
|
CALL ILPRTB |
||||
|
DB '==========',0 |
||||
|
|
||||
|
HBORD1: CALL ILPRTB |
||||
|
DB CR,LF,0 |
||||
|
RET |
||||
|
|
||||
|
NOTDEF: CALL ILPRTB |
||||
|
DB CR,LF |
||||
|
DB 'ZMD Upload Routing feature not enabled, ',0 |
||||
|
LD HL,MAPNAM |
||||
|
CALL SHONM4 |
||||
|
CALL ILPRTB |
||||
|
DB 'aborting...',0 |
||||
|
JP EXIT |
||||
|
; |
||||
|
; These next are dummy routines to satisfy ZMDSUBS external requests. |
||||
|
; They do nothing, but leave them alone. |
||||
|
; |
||||
|
DONE:: JP EXIT ; Exit routine can take care of us |
||||
|
TIME:: RET |
||||
|
|
||||
|
TBLSAV: DW DESTBL |
||||
|
DESTBL: DB 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' |
||||
|
ISODD: DB 0 |
||||
|
COUNT: DB 0 |
||||
|
COLM: DB 0 |
||||
|
SPECIAL:DB 0 |
||||
|
|
||||
|
|
||||
|
END |
||||
|
|
||||
Binary file not shown.
File diff suppressed because it is too large
File diff suppressed because it is too large
@ -0,0 +1,264 @@ |
|||||
|
; |
||||
|
|
||||
|
TITLE ZMDEL.Z80 - 09/29/88 - ZMD Sysop Transfer Log Purge Utility |
||||
|
; Copyrighted (c) 1987, 1988 |
||||
|
; Robert W. Kramer III |
||||
|
|
||||
|
PAGE |
||||
|
;- -; |
||||
|
; Update History ; |
||||
|
; ; |
||||
|
; Date Release Comments ; |
||||
|
; -------- ------- ---------------------------------------------- ; |
||||
|
; ; |
||||
|
; 09/29/88 v1.50 - No change(s) made to this file ; |
||||
|
; 03/18/88 v1.49 - No change(s) made to this file ; |
||||
|
; 03/13/88 v1.48 - Had a small problem with TPA fix which has been ; |
||||
|
; corrected. CHKTPA was calculating the total ; |
||||
|
; number of bytes available for DBUF, but wasn't ; |
||||
|
; clearing register L (forcing an even amount of ; |
||||
|
; sectors before initializing OUTSIZ buffer limit ; |
||||
|
; comparison word). This may have introduced ; |
||||
|
; minimal garbage to your FOR file if your FOR ; |
||||
|
; file is large enough to fill available TPA with ; |
||||
|
; ZMD, ZFORS or to the log file if running ZMDEL. ; |
||||
|
; - Rewrote OUTCHR routine in ZMDSUBS. ; |
||||
|
; - Redefined buffer table at end of programs. STACK; |
||||
|
; and filename buffers now EQUated with offsets ; |
||||
|
; from the last switch/toggle in program instead ; |
||||
|
; of with DS directive. ; |
||||
|
; - Some systems which do NOT have an interrupt ; |
||||
|
; driven keyboard may have noticed problems when ; |
||||
|
; an invalid key was entered in the ZNEWP, ZFORP ; |
||||
|
; and ZMDEL programs. In ZNEWP and ZFORP, if a ; |
||||
|
; CR was entered to pause the output, output was ; |
||||
|
; limited to one line at a time per key pressed. ; |
||||
|
; If an invalid key was hit, output would have ; |
||||
|
; remained in a paused state until one of the ; |
||||
|
; abort keys were pressed. This was difficult to ; |
||||
|
; find since my keyboard is interrupt driven and ; |
||||
|
; I could not duplicate the problem on my own ; |
||||
|
; system. ; |
||||
|
; 02/25/88 v1.47 - Fixed line count display routine. Number of ; |
||||
|
; lines read was being improperly decremented ; |
||||
|
; before displaying. Same fix included removing ; |
||||
|
; code that added an extra CR,LF to the beginning ; |
||||
|
; of the file. Count is now right. ; |
||||
|
; 01/27/88 v1.46 - Some changes were made to the ZMDSUBS file that ; |
||||
|
; are not directly related to this file ; |
||||
|
; 01/17/88 v1.45 - First public release ; |
||||
|
; 11/20/87 v1.00 - Initial version ; |
||||
|
;- -; |
||||
|
|
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EXTERNAL Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
EXTRN CKABRT,CLEARIT,CLRLIN,DBUF,DECOUT,ERXIT,EXIT,ILPRTB |
||||
|
EXTRN INPUT,NOFILE,NOLOG,NOROOM,OLDDRV,OLDUSR,OUTCHR,PRINTV |
||||
|
EXTRN RECAR1,RECDR1,RENFCB,RERROR,RSDMA,SHONM4,STACK,STDMA |
||||
|
EXTRN TDONE,TYPE,UCASE |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Program Starts Here | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
.Z80 |
||||
|
ASEG |
||||
|
ORG 100H ; Program starts |
||||
|
JP BEGIN ; Jump around configuration table |
||||
|
INCLUDE ZMDHDR.Z80 ; Include the ZMD header overlay |
||||
|
.REQUEST ZMDSUBS ; Include the ZMD subroutines |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; Save CP/M stack, initialize new one for this program |
||||
|
; |
||||
|
BEGIN: LD (STACK),SP ; Save return address to CCP |
||||
|
LD SP,STACK |
||||
|
|
||||
|
; |
||||
|
; Save current drive/user |
||||
|
; |
||||
|
LD A,255 ; Get user function |
||||
|
CALL RECAR1 |
||||
|
LD (OLDUSR),A ; Save user area for later |
||||
|
LD C,CURDRV ; Get current drive function |
||||
|
CALL BDOS |
||||
|
LD (OLDDRV),A ; Save drive for later |
||||
|
|
||||
|
; |
||||
|
; Tell em who we are and ask if they want to continue |
||||
|
; |
||||
|
LD HL,PRGUTL |
||||
|
CALL PRINTV |
||||
|
|
||||
|
LD A,(LOGCAL) ; Log file enabled? |
||||
|
OR A |
||||
|
JP Z,NOLOG ; No, then don't run program |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB 'Purge all except "R" entries from log? ',0 |
||||
|
LD A,0 |
||||
|
LD (DESWAIT),A ; Disable sleepy caller timout |
||||
|
CALL INPUT |
||||
|
CALL UCASE |
||||
|
CP 'Y' ; Continue? |
||||
|
JP NZ,EXIT ; No, exit to CP/M |
||||
|
CALL CLRLIN |
||||
|
|
||||
|
; |
||||
|
; Now log into drive/user area of ZMD.LOG |
||||
|
; |
||||
|
LD A,(LOGUSR) ; Get user area to find ZMD.LOG file |
||||
|
CALL RECAR1 |
||||
|
LD A,(LOGDRV) ; Get drive to find ZMD.LOG file |
||||
|
CALL RECDR1 |
||||
|
|
||||
|
; |
||||
|
; Open the 'ZMD .LOG' file |
||||
|
; |
||||
|
LD DE,LOGNAM ; Point to LOG filename |
||||
|
LD HL,FILE ; Destination is internal FCB1 |
||||
|
CALL RENFCB ; Initialize FCB |
||||
|
|
||||
|
LD DE,FILE ; Point to ZMD.LOG FCB |
||||
|
LD C,OPEN ; Open file |
||||
|
CALL BDOS |
||||
|
INC A ; Does file exist? |
||||
|
LD HL,LOGNAM ; Point to log filename |
||||
|
JP Z,NOFILE ; No, inform user and abort to CP/M |
||||
|
|
||||
|
; |
||||
|
; Open the ' .$$$' file |
||||
|
; |
||||
|
LD DE,TEMPFIL ; Point to temporary filename |
||||
|
LD HL,DEST ; Destination is internal FCB2 |
||||
|
CALL RENFCB ; Initialize FCB |
||||
|
|
||||
|
LD HL,FILE ; Point to default FCB |
||||
|
LD DE,DEST ; |
||||
|
LD BC,9 ; Move drive and filename bytes |
||||
|
LDIR |
||||
|
|
||||
|
LD C,DELETE ; Delete possible '$$$' temporary file |
||||
|
LD DE,DEST |
||||
|
CALL BDOS |
||||
|
|
||||
|
LD C,MAKE ; And make new one for this session |
||||
|
LD DE,DEST |
||||
|
CALL BDOS |
||||
|
INC A ; Successful create? |
||||
|
JP Z,NOROOM ; No, inform user and exit to CP/M |
||||
|
|
||||
|
CALL ILPRTB ; Warn them of the wait |
||||
|
DB CR |
||||
|
DB 'Cleaning ',0 |
||||
|
LD HL,LOGNAM |
||||
|
CALL SHONM4 |
||||
|
|
||||
|
RDRECD: CALL RSDMA ; Reset DMA |
||||
|
LD DE,FILE ; Read a record from ZMD.LOG |
||||
|
LD C,READ |
||||
|
CALL BDOS |
||||
|
OR A ; Read ok? |
||||
|
JP NZ,RERROR ; No, inform user and exit |
||||
|
LD HL,TBUF ; Point to first character in read buffer |
||||
|
|
||||
|
GETBYT: LD A,(HL) ; Get a byte from read buffer |
||||
|
AND 7FH ; Strip parity bit |
||||
|
CP 7FH ; Del (Rubout) |
||||
|
JP Z,NEXT ; Yes, ignore it |
||||
|
CP EOF ; End of file marker |
||||
|
JP Z,TDONE ; Transfer done. Close and exit |
||||
|
LD B,A ; Save character |
||||
|
CP LF ; Was it a line feed? |
||||
|
JP Z,NEWLIN ; Yes toggle line counters, start new line |
||||
|
|
||||
|
; |
||||
|
; LOGMODE is set to 0 everytime a line feed is encountered. If LOGMODE is |
||||
|
; is 0 at this point, the current byte is anylized as this log entry's |
||||
|
; mode of transfer. Only entries made in the 'R' receive mode are written |
||||
|
; to the new ZMD.$$$ file. Encountering an 'R' when LOGMODE is 0 causes |
||||
|
; KEEPER to be set non zero |
||||
|
; |
||||
|
LD A,(LOGMODE) ; Start of new line? |
||||
|
OR A |
||||
|
JP NZ,NXTBYT ; No, then we don't care what this byte is |
||||
|
INC A |
||||
|
LD (LOGMODE),A ; Else show we are not on LOGMODE byte anymore |
||||
|
LD A,B ; Get the character back |
||||
|
CP 'R' ; Is this an upload entry? |
||||
|
LD (KEEPER),A ; Indicate saving byte just in case |
||||
|
JP Z,NXTBYT ; Yes, leave KEEPER non-zero so it's written |
||||
|
XOR A |
||||
|
LD (KEEPER),A ; Else 0 keep flag (0=don't keep this entry) |
||||
|
|
||||
|
NXTBYT: LD A,(KEEPER) ; Keeping this log entry? |
||||
|
OR A |
||||
|
JP Z,NEXT ; No, get next byte |
||||
|
|
||||
|
; |
||||
|
; Place current byte in buffer and write to disk if buffer full |
||||
|
; |
||||
|
WRTBYT: LD A,B |
||||
|
CALL OUTCHR |
||||
|
|
||||
|
NEXT: INC L ; Done with sector? |
||||
|
JP Z,RDRECD ; Yes, get another sector |
||||
|
JP GETBYT ; Else get another byte |
||||
|
|
||||
|
NEWLIN: XOR A ; Zero accumulator |
||||
|
LD (LOGMODE),A ; Show current byte is log mode byte |
||||
|
LD IY,(LNSREAD) ; Get lines read counter |
||||
|
INC IY ; Add one more |
||||
|
LD (LNSREAD),IY |
||||
|
LD A,1 ; Disable page pauses |
||||
|
CALL CKABRT ; User abort? |
||||
|
LD A,(KEEPER) ; Are we keeping this entry? |
||||
|
OR A |
||||
|
JP Z,NEXT ; No, read another byte |
||||
|
LD IY,(LNSWROT) ; Get lines written count |
||||
|
INC IY ; Add one more |
||||
|
LD (LNSWROT),IY |
||||
|
JP WRTBYT |
||||
|
|
||||
|
; |
||||
|
DONE:: CALL CLRLIN |
||||
|
CALL ILPRTB |
||||
|
DB CR,'Finished.' |
||||
|
DB CR,LF |
||||
|
DB ' ',0 |
||||
|
|
||||
|
LD HL,(LNSREAD) |
||||
|
CALL DECOUT |
||||
|
CALL ILPRTB |
||||
|
DB TAB |
||||
|
DB 'original lines',CR,LF |
||||
|
DB ' ',0 |
||||
|
|
||||
|
LD HL,(LNSWROT) |
||||
|
CALL DECOUT |
||||
|
CALL ILPRTB |
||||
|
DB TAB |
||||
|
DB 'retained lines ',0 |
||||
|
JP EXIT |
||||
|
|
||||
|
; |
||||
|
; These next are dummy routines to satisfy external ZMDSUBS requests. |
||||
|
; They do nothing, but leave alone. |
||||
|
; |
||||
|
TIME:: RET |
||||
|
|
||||
|
|
||||
|
KEEPER: DB 0 |
||||
|
LOGMODE:DB 0 |
||||
|
LNSREAD:DW 0 |
||||
|
LNSWROT:DW 0 |
||||
|
|
||||
|
|
||||
|
END |
||||
|
|
||||
@ -0,0 +1,916 @@ |
|||||
|
;======================================================================= |
||||
|
; |
||||
|
; XMHB.Z80 - XMODEM12 PATCH FILE FOR ROMWBW HBIOS |
||||
|
; |
||||
|
; Wayne Warthen - wwarthen@gmail.com |
||||
|
; |
||||
|
; 2020-05-23 WBW Rewrite for HBIOS FastPath(tm) |
||||
|
; |
||||
|
;======================================================================= |
||||
|
; |
||||
|
ASEG |
||||
|
; |
||||
|
BASE EQU 100H ; Start of CP/M normal program area |
||||
|
FCB EQU 005CH ; System FCB |
||||
|
; |
||||
|
BDOS EQU 0005H ; BDOS function dispatch vector |
||||
|
; |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; Jump table: The jump table must be in exactly the same sequence as the |
||||
|
; one in ZMD. |
||||
|
; |
||||
|
ORG 0580H ; ZMD I/O overlay address |
||||
|
; |
||||
|
JP CONOUT ; must be 00000h if not used, see below |
||||
|
JP MINIT ; initialization routine (if needed) |
||||
|
JP UNINIT ; undo whatever 'MINIT' did (or return) |
||||
|
JPTBL: |
||||
|
JP SENDR ; send character (via pop psw) |
||||
|
JP CAROK ; test for carrier |
||||
|
;JP MDIN ; receive data byte (not present in ZMD) |
||||
|
JP GETCHR ; get character from modem |
||||
|
JP RCVRDY ; check receive ready |
||||
|
JP SNDRDY ; check send ready |
||||
|
JP SPEED ; get speed value for file transfer time |
||||
|
JP EXTRA1 ; extra for custom routine |
||||
|
JP EXTRA2 ; extra for custom routine |
||||
|
JP EXTRA3 ; extra for custom routine |
||||
|
; |
||||
|
ORG 0600H |
||||
|
; |
||||
|
; ZMD expects to find a byte with the baud rate code somewhere. For |
||||
|
; lack of a better location, we put it at 0600H. The highest baud |
||||
|
; rate code understood by ZMD is 9 which means 19200 baud. We just |
||||
|
; use that since we are almost certainly running faster than this. |
||||
|
; |
||||
|
BAUDCD DB 9 ; Baud rate storage |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Output character to console |
||||
|
; |
||||
|
; This is intended to write file transfer progress to a RCPM |
||||
|
; BBS console. It is stubbed out because it will write to the |
||||
|
; active file transfer port when not using an RCPM. |
||||
|
; |
||||
|
CONOUT: |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Initialize modem |
||||
|
; |
||||
|
; This procedure has been usurped to dynamically detect the type |
||||
|
; of system we are running on and install the *real* jump table |
||||
|
; entries as appropriate. |
||||
|
; |
||||
|
MINIT: |
||||
|
; |
||||
|
; Scan the command line for a number. If found, this is used |
||||
|
; as the HBIOS unit number. |
||||
|
; |
||||
|
LD HL,FCB+1 ; Start after drive byte |
||||
|
LD B,8 ; Check 8 characters |
||||
|
MINIT1: |
||||
|
LD A,(HL) ; Get character |
||||
|
CP '0' ; Start of numerics |
||||
|
JR C,MINIT2 ; If below '0', continue scan |
||||
|
CP '9' ; Last numeric |
||||
|
JR NC,MINIT2 ; If above '9', continue scan |
||||
|
SUB '0' ; Got it, convert to binary |
||||
|
LD (UNIT),A ; Save it |
||||
|
LD A,' ' ; Space character to accum |
||||
|
LD (HL),A ; Remove numberic from FCB |
||||
|
JR MINIT3 ; Proceed with initialization |
||||
|
|
||||
|
MINIT2: |
||||
|
INC HL |
||||
|
DJNZ MINIT1 |
||||
|
|
||||
|
MINIT3: |
||||
|
; Announce |
||||
|
LD DE,TAG ; Tagline |
||||
|
LD C,9 ; BDOS string display function |
||||
|
CALL BDOS ; Do it |
||||
|
; |
||||
|
; Identify BIOS (RomWBW HBIOS or UNA UBIOS) |
||||
|
CALL IDBIO ; 1=HBIOS, 2=UBIOS |
||||
|
LD (BIOID),A ; Save it |
||||
|
DEC A ; Test for HBIOS |
||||
|
JR Z,MINIT_HB ; Do HBIOS setup |
||||
|
DEC A ; Test for UBIOS |
||||
|
JR Z,MINIT_UB ; Do UBIOS setup |
||||
|
; |
||||
|
; Neither UNA nor RomWBW |
||||
|
LD DE,ERR_BIO ; BIOS error message |
||||
|
JP FAIL ; Print msg and bail out |
||||
|
; |
||||
|
MINIT_HB: |
||||
|
; Display RomWBW notification string |
||||
|
LD DE,HB_TAG ; BIOS notification string |
||||
|
LD C,9 ; BDOS string display function |
||||
|
CALL BDOS ; Do it |
||||
|
; |
||||
|
; Get CPU speed from RomWBW HBIOS and save it |
||||
|
LD B,0F8H ; HBIOS SYSGET function 0xF8 |
||||
|
LD C,0F0H ; CPUINFO subfunction 0xF0 |
||||
|
RST 08 ; Do it, L := CPU speed in MHz |
||||
|
LD A,L ; Move it to A |
||||
|
LD (CPUSPD),A ; Save it |
||||
|
; |
||||
|
; Get HBIOS bank id |
||||
|
LD BC,0F8F2H ; HBIOS SYSGET, Bank Info |
||||
|
RST 08 ; do it |
||||
|
JP NZ,APIERR ; handle API error |
||||
|
LD A,D ; BIOS bank id to A |
||||
|
LD (BIOSBID),A ; save it |
||||
|
; |
||||
|
LD A,(UNIT) ; get current unit specified |
||||
|
CP 0FFH ; check for undefined |
||||
|
JR NZ,MINIT_HB1 ; if not undefined, go ahead |
||||
|
; |
||||
|
; Lookup current console to use as default for transfer |
||||
|
LD B,0FAH ; HBIOS PEEK |
||||
|
LD A,(BIOSBID) ; get BIOS bank id |
||||
|
LD D,A ; ... and put in D |
||||
|
LD HL,100H + 12H ; HCB console unit address |
||||
|
RST 08 ; E := value |
||||
|
LD A,E ; put in A |
||||
|
LD (UNIT),A ; replace UNIT with console UNIT |
||||
|
; |
||||
|
MINIT_HB1: |
||||
|
; Get HBIOS device type |
||||
|
LD B,06H ; HBIOS DEVICE function 0x06 |
||||
|
LD A,(UNIT) ; Get xfer unit |
||||
|
LD C,A ; Put in C |
||||
|
RST 08 ; Do it, D=device type |
||||
|
LD A,D ; Put result in A |
||||
|
CP 00H ; UART? |
||||
|
JP Z,MINIT_HB2 ; If so, do UART H/W init |
||||
|
CP 80H ; USB-FIFO? |
||||
|
JP Z,UF_INIT ; If so, do USB-FIFO H/W init |
||||
|
JP HB_INIT ; Otherwise, use BIOS I/O |
||||
|
; |
||||
|
MINIT_HB2: |
||||
|
; Handle UART driver special. If receive interrupts active, |
||||
|
; we must use BIOS I/O. Otherwise, direct UART I/O is best |
||||
|
LD B,06H ; Serial device function |
||||
|
LD A,(UNIT) ; Get xfer unit |
||||
|
LD C,A ; Put in C |
||||
|
RST 08 ; Do it, H = UART TYPE |
||||
|
BIT 7,H ; Check for interrupt driven receive |
||||
|
JP Z,UA_INIT ; If not, do direct UART I/O |
||||
|
JP HB_INIT ; else use BIOS I/O |
||||
|
; |
||||
|
MINIT_UB: |
||||
|
; Display UNA notification string |
||||
|
LD DE,UB_TAG ; BIOS notification string |
||||
|
LD C,9 ; BDOS string display function |
||||
|
CALL BDOS ; Do it |
||||
|
; |
||||
|
; Get CPU speed from UNA and save it |
||||
|
LD C,0F8H ; UNA BIOS Get PHI function |
||||
|
RST 08 ; Returns speed in Hz in DE:HL |
||||
|
LD B,4 ; Divide MHz in DE:HL by 100000H |
||||
|
MINIT_UB1: |
||||
|
SRL D ; ... to get approx CPU speed in |
||||
|
RR E ; ...MHz. Throw away HL, and |
||||
|
DJNZ MINIT_UB1 ; ...right shift DE by 4. |
||||
|
INC E ; Fix up for value truncation |
||||
|
LD A,E ; Put in A |
||||
|
LD (CPUSPD),A ; Save it |
||||
|
; |
||||
|
JP UB_INIT ; UNA BIOS init |
||||
|
; |
||||
|
MINIT_RET: |
||||
|
PUSH HL ; Save HL (JP table adr) |
||||
|
|
||||
|
; Display handler label |
||||
|
LD C,9 ; BDOS string display function |
||||
|
CALL BDOS ; Do it |
||||
|
; |
||||
|
; Display port (unit number) |
||||
|
LD DE,COM_LBL ; Prefix |
||||
|
LD C,9 ; BDOS string display function |
||||
|
CALL BDOS ; Do it |
||||
|
LD A,(UNIT) ; Get unit number |
||||
|
ADD A,'0' ; Make displayable |
||||
|
LD E,A ; Put in E for display |
||||
|
LD C,2 ; BDOS console write char |
||||
|
CALL BDOS ; Do it |
||||
|
; |
||||
|
; Newline |
||||
|
LD C,9 ; BDOS string display function |
||||
|
LD DE,CRLF ; Newline |
||||
|
CALL BDOS ; Do it |
||||
|
; |
||||
|
; Copy real vectors into active jump table |
||||
|
POP HL ; Recover HL |
||||
|
LD DE,JPTBL ; Real jump table is destination |
||||
|
LD BC,7 * 3 ; Copy 7 3-byte entries |
||||
|
LDIR ; Do the copy |
||||
|
; |
||||
|
; Return with CPU speed in A |
||||
|
LD A,(CPUSPD) ; A := CPU speed in MHz |
||||
|
LD HL,(RCVSCL) ; HL := receive scalar |
||||
|
RET ; and return |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Uninitialize modem |
||||
|
; |
||||
|
UNINIT: |
||||
|
LD A,(BIOID) |
||||
|
CP 1 ; Is HBIOS? |
||||
|
JR Z,HUNINIT ; Handle HBIOS |
||||
|
CP 2 ; Is UBIOS? |
||||
|
JR Z,UUNINIT ; Handle UBIOS |
||||
|
RET ; Just return |
||||
|
; |
||||
|
HUNINIT: |
||||
|
; HBIOS: Reset character device 0 |
||||
|
LD B,04H ; HBIOS CIOINIT function 0x04 |
||||
|
LD A,(UNIT) ; HBIOS serial unit number |
||||
|
LD C,A ; Put in C for func call |
||||
|
LD DE,-1 ; Reset w/ current settings |
||||
|
RST 08 ; Do it |
||||
|
RET ; not initialized, so no 'UN-INITIALIZE' |
||||
|
; |
||||
|
UUNINIT: |
||||
|
; UBIOS: Reset character device 0 |
||||
|
LD C,10H ; UNA INIT function 0x10 |
||||
|
LD A,(UNIT) ; UBIOS serial unit number |
||||
|
LD B,A ; Put in B for func call |
||||
|
LD DE,-1 ; Reset w/ current settings |
||||
|
RST 08 ; Do it |
||||
|
RET ; not initialized, so no 'UN-INITIALIZE' |
||||
|
; |
||||
|
; Identify active BIOS. RomWBW HBIOS=1, UNA UBIOS=2, else 0 |
||||
|
; |
||||
|
IDBIO: |
||||
|
; |
||||
|
; Check for UNA (UBIOS) |
||||
|
LD A,(0FFFDH) ; fixed location of UNA API vector |
||||
|
CP 0C3H ; jp instruction? |
||||
|
JR NZ,IDBIO1 ; if not, not UNA |
||||
|
LD HL,(0FFFEH) ; get jp address |
||||
|
LD A,(HL) ; get byte at target address |
||||
|
CP 0FDH ; first byte of UNA push ix instruction |
||||
|
JR NZ,IDBIO1 ; if not, not UNA |
||||
|
INC HL ; point to next byte |
||||
|
LD A,(HL) ; get next byte |
||||
|
CP 0E5H ; second byte of UNA push ix instruction |
||||
|
JR NZ,IDBIO1 ; if not, not UNA, check others |
||||
|
LD A,2 ; UNA BIOS id = 2 |
||||
|
RET ; and done |
||||
|
; |
||||
|
IDBIO1: |
||||
|
; Check for RomWBW (HBIOS) |
||||
|
LD HL,(0FFFEH) ; HL := HBIOS ident location |
||||
|
LD A,'W' ; First byte of ident |
||||
|
CP (HL) ; Compare |
||||
|
JR NZ,IDBIO2 ; Not HBIOS |
||||
|
INC HL ; Next byte of ident |
||||
|
LD A,~'W' ; Second byte of ident |
||||
|
CP (HL) ; Compare |
||||
|
JR NZ,IDBIO2 ; Not HBIOS |
||||
|
LD A,1 ; HBIOS BIOS id = 1 |
||||
|
RET ; and done |
||||
|
; |
||||
|
IDBIO2: |
||||
|
; No idea what this is |
||||
|
XOR A ; Setup return value of 0 |
||||
|
RET ; and done |
||||
|
; |
||||
|
HWERR: |
||||
|
; Failed to identify target comm hardware |
||||
|
LD DE,ERR_HW ; Hardware error message |
||||
|
JP FAIL ; Print message and bail out |
||||
|
; |
||||
|
APIERR: |
||||
|
; API returned unepected failure |
||||
|
LD DE,ERR_API ; API error message |
||||
|
JP FAIL ; Pprint message and bail out |
||||
|
; |
||||
|
FAIL: |
||||
|
; DE has error string address |
||||
|
LD C,9 ; BDOS string display function |
||||
|
CALL BDOS ; Do it |
||||
|
JP 0 ; Bail out! |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; The following are all dummy routines that are unused because MINIT |
||||
|
; dynamically installs the real jump table. |
||||
|
; |
||||
|
SENDR: |
||||
|
CAROK: |
||||
|
MDIN: |
||||
|
GETCHR: |
||||
|
RCVRDY: |
||||
|
SNDRDY: |
||||
|
SPEED: |
||||
|
EXTRA1: |
||||
|
EXTRA2: |
||||
|
EXTRA3: |
||||
|
RET |
||||
|
; |
||||
|
BIOID DB 0 ; BIOS ID, 1=HBIOS, 2=UBIOS |
||||
|
CPUSPD DB 10 ; CPU speed in MHz |
||||
|
RCVSCL DW 6600 ; RECV loop timeout scalar |
||||
|
UNIT DB 0FFH ; BIOS serial device unit number |
||||
|
BIOSBID DB 00H ; BIOS bank id |
||||
|
; |
||||
|
TAG DB "RomWBW, 30-May-2020$" |
||||
|
; |
||||
|
HB_LBL DB ", HBIOS FastPath$" |
||||
|
UB_LBL DB ", UNA UBIOS$" |
||||
|
UA_LBL DB ", UART$" |
||||
|
UF_LBL DB ", USB-FIFO$" |
||||
|
COM_LBL DB " on COM$" |
||||
|
; |
||||
|
UB_TAG DB " [UNA]$" |
||||
|
HB_TAG DB " [WBW]$" |
||||
|
; |
||||
|
CRLF DB 13, 10, "$" |
||||
|
; |
||||
|
ERR_BIO DB 13, 10, 13, 10, "++ Unknown BIOS ++", 13, 10, "$" |
||||
|
ERR_HW DB 13, 10, 13, 10, "++ Unknown Hardware ++", 13, 10, "$" |
||||
|
ERR_API DB 13, 10, 13, 10, "++ BIOS API Error ++", 13, 10, "$" |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; RomWBW HBIOS Interface |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; Following jump table is dynamically patched over initial jump |
||||
|
; table at program startup. See MINIT above. Note that only a |
||||
|
; subset of the jump table is overlaid (SENDR to SPEED). |
||||
|
; |
||||
|
HB_JPTBL: |
||||
|
JP HB_SENDR ; send character (via pop psw) |
||||
|
JP HB_CAROK ; test for carrier |
||||
|
;JP HB_MDIN ; receive data byte (not present in ZMD) |
||||
|
JP HB_GETCHR ; get character from modem |
||||
|
JP HB_RCVRDY ; check receive ready |
||||
|
JP HB_SNDRDY ; check send ready |
||||
|
JP HB_SPEED ; get speed value for file transfer time |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; HBIOS initialization |
||||
|
; |
||||
|
HB_INIT: |
||||
|
LD HL,2150 ; Smaller receive loop timeout scalar |
||||
|
LD (RCVSCL),HL ; ... to compensate for BIOS overhead |
||||
|
; |
||||
|
; Patch SENDR w/ FastPath addresses |
||||
|
LD BC,0F801H ; Get CIO func/data adr |
||||
|
LD D,01H ; Func=CIO OUT |
||||
|
LD A,(UNIT) ; get desired char unit |
||||
|
LD E,A ; and put in E |
||||
|
RST 08 |
||||
|
JP NZ,APIERR ; handle API error |
||||
|
LD (HB_UDAT),DE ; Plug in data adr |
||||
|
LD (HB_SCFN),HL ; Plug in func adr |
||||
|
; |
||||
|
; Patch GETCHR/MDIN w/ FastPath addresses |
||||
|
LD BC,0F801H ; Get CIO func/data adr |
||||
|
LD D,00H ; Func=CIO IN |
||||
|
LD A,(UNIT) ; get desired char unit |
||||
|
LD E,A ; and put in E |
||||
|
RST 08 |
||||
|
JP NZ,APIERR ; handle API error |
||||
|
LD (HB_GCFN),HL ; Plug in func adr |
||||
|
; |
||||
|
; Patch RCVRDY w/ FastPath addresses |
||||
|
LD BC,0F801H ; Get CIO func/data adr |
||||
|
LD D,02H ; Func=CIO IST |
||||
|
LD A,(UNIT) ; get desired char unit |
||||
|
LD E,A ; and put in E |
||||
|
RST 08 |
||||
|
JP NZ,APIERR ; handle API error |
||||
|
LD (HB_RRFN),HL ; Plug in func adr |
||||
|
; |
||||
|
; Patch SNDRDY w/ FastPath addresses |
||||
|
LD BC,0F801H ; Get CIO func/data adr |
||||
|
LD D,03H ; Func=CIO OST |
||||
|
LD A,(UNIT) ; get desired char unit |
||||
|
LD E,A ; and put in E |
||||
|
RST 08 |
||||
|
JP NZ,APIERR ; handle API error |
||||
|
LD (HB_SRFN),HL ; Plug in func adr |
||||
|
; |
||||
|
; Claim 1 MHz CPU to offset overhead of HBIOS |
||||
|
LD A,1 |
||||
|
LD (CPUSPD),A ; Save it |
||||
|
; |
||||
|
LD HL,HB_JPTBL |
||||
|
LD DE,HB_LBL |
||||
|
JP MINIT_RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Send character on top of stack |
||||
|
; |
||||
|
HB_SENDR: |
||||
|
POP AF ; get character to send from stack |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD E,A ; character to E |
||||
|
LD IY,(HB_UDAT) |
||||
|
LD A,(BIOSBID) ; call into HBIOS bank |
||||
|
LD IX,0000H |
||||
|
HB_SCFN EQU $-2 |
||||
|
CALL 0FFF9H ; HBIOS bank call |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test and report carrier status, Z set if carrier present |
||||
|
; |
||||
|
HB_CAROK: |
||||
|
XOR A ; not used, always indicate present |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Get a character |
||||
|
; |
||||
|
; GETCHR must not block |
||||
|
; |
||||
|
HB_GETCHR: |
||||
|
CALL HB_RCVRDY |
||||
|
RET NZ |
||||
|
; Fall thru if char ready |
||||
|
; |
||||
|
; MDIN can assume a character is ready |
||||
|
; |
||||
|
HB_MDIN: |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD IY,(HB_UDAT) |
||||
|
LD A,(BIOSBID) ; call into HBIOS bank |
||||
|
LD IX,0000H |
||||
|
HB_GCFN EQU $-2 |
||||
|
CALL 0FFF9H ; HBIOS bank call |
||||
|
LD A,E ; byte received to A |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for character ready to receive, Z = ready |
||||
|
; Error code returned in A register |
||||
|
; *** Error code does not seem to be used *** |
||||
|
; |
||||
|
HB_RCVRDY: |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD IY,(HB_UDAT) |
||||
|
LD A,(BIOSBID) ; call into HBIOS bank |
||||
|
LD IX,0000H |
||||
|
HB_RRFN EQU $-2 |
||||
|
CALL 0FFF9H ; HBIOS bank call |
||||
|
SUB 1 ; CF set IFF zero |
||||
|
RL A ; CF to bit 0 of A |
||||
|
AND 01H ; set Z flag as needed |
||||
|
LD A,0 ; report no line errors |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for ready to send a character, Z = ready |
||||
|
; |
||||
|
HB_SNDRDY: |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD IY,(HB_UDAT) |
||||
|
LD A,(BIOSBID) ; call into HBIOS bank |
||||
|
LD IX,0000H |
||||
|
HB_SRFN EQU $-2 |
||||
|
CALL 0FFF9H ; HBIOS bank call |
||||
|
SUB 1 ; CF set IFF zero |
||||
|
RL A ; CF to bit 0 of A |
||||
|
AND 01H ; set Z flag as needed |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Report baud rate (index into SPTBL returned in register A) |
||||
|
; |
||||
|
HB_SPEED: |
||||
|
LD A,8 ; arbitrarily return 9600 baud |
||||
|
RET |
||||
|
; |
||||
|
; |
||||
|
; |
||||
|
HB_UDAT DW 0000H ; Unit data address |
||||
|
; |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; UNA UBIOS Interface |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; Following jump table is dynamically patched over initial jump |
||||
|
; table at program startup. See MINIT above. Note that only a |
||||
|
; subset of the jump table is overlaid (SENDR to SPEED). |
||||
|
; |
||||
|
UB_JPTBL: |
||||
|
JP UB_SENDR ; send character (via pop psw) |
||||
|
JP UB_CAROK ; test for carrier |
||||
|
;JP UB_MDIN ; receive data byte (not present in ZMD) |
||||
|
JP UB_GETCHR ; get character from modem |
||||
|
JP UB_RCVRDY ; check receive ready |
||||
|
JP UB_SNDRDY ; check send ready |
||||
|
JP UB_SPEED ; get speed value for file transfer time |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; UBIOS initialization |
||||
|
; |
||||
|
UB_INIT: |
||||
|
; |
||||
|
; TODO: |
||||
|
; - TEST!!! |
||||
|
; - ADJUST RCVSCL? |
||||
|
; |
||||
|
LD HL,3000 ; Smaller receive loop timeout scalar |
||||
|
LD (RCVSCL),HL ; ... to compensate for BIOS overhead |
||||
|
; |
||||
|
; Claim 1 MHz CPU to offset overhead of HBIOS |
||||
|
LD A,1 |
||||
|
LD (CPUSPD),A ; Save it |
||||
|
; |
||||
|
LD HL,UB_JPTBL |
||||
|
LD DE,UB_LBL |
||||
|
JP MINIT_RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Send character on top of stack |
||||
|
; |
||||
|
UB_SENDR: |
||||
|
POP AF ; get character to send from stack |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD BC,0012H ; unit 0, func 12h (write char) |
||||
|
LD E,A ; character to E |
||||
|
RST 08 |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test and report carrier status, Z set if carrier present |
||||
|
; |
||||
|
UB_CAROK: |
||||
|
XOR A ; not used, always indicate present |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Get a character |
||||
|
; |
||||
|
; GETCHR must not block |
||||
|
; |
||||
|
UB_GETCHR: |
||||
|
CALL UB_RCVRDY |
||||
|
RET NZ |
||||
|
; Fall thru if char ready |
||||
|
; |
||||
|
; MDIN can assume a character is ready |
||||
|
; |
||||
|
UB_MDIN: |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD BC,0011H ; unit 0, func 12h (write char) |
||||
|
RST 08 |
||||
|
LD A,E ; byte received to A |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for character ready to receive, Z = ready |
||||
|
; Error code returned in A register |
||||
|
; *** Error code does not seem to be used *** |
||||
|
; |
||||
|
UB_RCVRDY: |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD BC,0013H ; unit 0, func 13h (input stat) |
||||
|
RST 08 |
||||
|
XOR A ; zero accum ; 4 |
||||
|
CP E ; CF means not zero ; 4 |
||||
|
CCF ; CF means zero ; 4 |
||||
|
RLA ; ZF means not zero ; 4 |
||||
|
LD A,0 ; report no line errors |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for ready to send a character, Z = ready |
||||
|
; |
||||
|
UB_SNDRDY: |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD BC,0014H ; unit 0, func 14h (output stat) |
||||
|
RST 08 |
||||
|
XOR A ; zero accum ; 4 |
||||
|
CP E ; CF means not zero ; 4 |
||||
|
CCF ; CF means zero ; 4 |
||||
|
RLA ; ZF means not zero ; 4 |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Report baud rate (index into SPTBL returned in register A) |
||||
|
; |
||||
|
UB_SPEED: |
||||
|
LD A,8 ; arbitrarily return 9600 baud |
||||
|
RET |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; 8250-like UART |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; UART constants |
||||
|
; |
||||
|
UA_SNDB EQU 20H ; bit to test for send ready |
||||
|
UA_SNDR EQU 20H ; value when ready to send |
||||
|
UA_RCVB EQU 01H ; bit to test for receive ready |
||||
|
UA_RCVR EQU 01H ; value when ready to receive |
||||
|
UA_PARE EQU 04H ; bit for parity error |
||||
|
UA_OVRE EQU 02H ; bit for overrun error |
||||
|
UA_FRME EQU 08H ; bit for framing error |
||||
|
UA_ERRS EQU UA_FRME | UA_OVRE | UA_PARE |
||||
|
; |
||||
|
; Following jump table is dynamically patched into real jump |
||||
|
; table at program startup. See MINIT above. Note that only a |
||||
|
; subset of the jump table is overlaid (SENDR to SPEED). |
||||
|
; |
||||
|
UA_JPTBL: |
||||
|
JP UA_SENDR ; send character (via pop psw) |
||||
|
JP UA_CAROK ; test for carrier |
||||
|
;JP UA_MDIN ; receive data byte (not present in ZMD) |
||||
|
JP UA_GETCHR ; get character from modem |
||||
|
JP UA_RCVRDY ; check receive ready |
||||
|
JP UA_SNDRDY ; check send ready |
||||
|
JP UA_SPEED ; get speed value for file transfer time |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; UART initialization |
||||
|
; |
||||
|
UA_INIT: |
||||
|
LD DE,13000 ; receive loop timeout scalar |
||||
|
LD (RCVSCL),DE ; ... for UART RCVRDY timing |
||||
|
; |
||||
|
LD A,L ; get base I/O port address |
||||
|
LD (UA_SCP),A ; set port value in SENDR |
||||
|
LD (UA_GCP),A ; set port value in GETCHR |
||||
|
ADD A,5 ; UART control port is 5 higher |
||||
|
LD (UA_RRP),A ; set port value in RCVRDY |
||||
|
LD (UA_SRP),A ; set port value in SNDRDY |
||||
|
; |
||||
|
LD HL,UA_JPTBL |
||||
|
LD DE,UA_LBL |
||||
|
JP MINIT_RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Send character on top of stack |
||||
|
; |
||||
|
UA_SENDR: |
||||
|
POP AF ; get character to send from stack |
||||
|
OUT (0FFH),A ; send to port |
||||
|
UA_SCP EQU $-1 ; port value |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test and report carrier status, Z set if carrier present |
||||
|
; |
||||
|
UA_CAROK: |
||||
|
XOR A ; not used, always indicate present |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Get a character |
||||
|
; |
||||
|
; GETCHR must not block |
||||
|
; |
||||
|
UA_GETCHR: |
||||
|
CALL UA_RCVRDY |
||||
|
RET NZ |
||||
|
; Fall thru if char ready |
||||
|
; |
||||
|
; MDIN can assume a character is ready |
||||
|
; |
||||
|
UA_MDIN: |
||||
|
IN A,(0FFH) ; read character from port |
||||
|
UA_GCP EQU $-1 ; port value |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for character ready to receive, Z = ready |
||||
|
; Error code returned in A register |
||||
|
; *** Error code does not seem to be used *** |
||||
|
; |
||||
|
UA_RCVRDY: |
||||
|
IN A,(0FFH) ; get modem status |
||||
|
UA_RRP EQU $-1 ; port value |
||||
|
AND UA_RCVB ; isolate ready bit |
||||
|
CP UA_RCVR ; test it (set flags) |
||||
|
LD A,0 ; report no line errors |
||||
|
; |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for ready to send a character, Z = ready |
||||
|
; |
||||
|
UA_SNDRDY: |
||||
|
IN A,(0FFH) ; get status |
||||
|
UA_SRP EQU $-1 ; port value |
||||
|
AND UA_SNDB ; isolate transmit ready bit |
||||
|
CP UA_SNDR ; test for ready value |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Report baud rate (index into SPTBL returned in register A) |
||||
|
; |
||||
|
UA_SPEED: |
||||
|
LD A,8 ; arbitrarily return 9600 baud |
||||
|
RET |
||||
|
; |
||||
|
; |
||||
|
; |
||||
|
UA_BASE DB 00H ; UART base port I/O address |
||||
|
UA_CTLP DB 00H ; UART control port I/O address |
||||
|
; |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
; WILL SOWERBUTTS ECB USB-FIFO |
||||
|
; |
||||
|
;======================================================================= |
||||
|
;======================================================================= |
||||
|
; |
||||
|
UF_BASE EQU 0CH |
||||
|
UF_DATA EQU (UF_BASE+0) |
||||
|
UF_STATUS EQU (UF_BASE+1) |
||||
|
UF_SEND_IMM EQU (UF_BASE+2) |
||||
|
; |
||||
|
; Following jump table is dynamically patched over initial jump |
||||
|
; table at program startup. See MINIT above. Note that only a |
||||
|
; subset of the jump table is overlaid (SENDR to SPEED). |
||||
|
; |
||||
|
UF_JPTBL: |
||||
|
JP UF_SENDR ; send character (via pop psw) |
||||
|
JP UF_CAROK ; test for carrier |
||||
|
;JP UF_MDIN ; receive data byte (not present in ZMD) |
||||
|
JP UF_GETCHR ; get character from modem |
||||
|
JP UF_RCVRDY ; check receive ready |
||||
|
JP UF_SNDRDY ; check send ready |
||||
|
JP UF_SPEED ; get speed value for file transfer time |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; USB-FIFO initialization |
||||
|
; |
||||
|
UF_INIT: |
||||
|
LD DE,12000 ; receive loop timeout scalar |
||||
|
LD (RCVSCL),DE ; ... for UART RCVRDY timing |
||||
|
; |
||||
|
LD A,L ; get base I/O port address (data port) |
||||
|
LD (UF_SCDP),A ; set data port in SENDR |
||||
|
LD (UF_GCDP),A ; set data port in GETCHR/MDIN |
||||
|
INC A ; bump to status port |
||||
|
LD (UF_RRSP),A ; set status port in RCVRDY |
||||
|
LD (UF_SRSP),A ; set status port in SNDRDY |
||||
|
INC A ; bump to send immediate port |
||||
|
LD (UF_SCIP),A ; set send immed port in SENDR |
||||
|
; |
||||
|
LD HL,UF_JPTBL |
||||
|
LD DE,UF_LBL |
||||
|
JP MINIT_RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Send character on top of stack |
||||
|
; |
||||
|
UF_SENDR: |
||||
|
|
||||
|
POP AF ; get character to send from stack |
||||
|
OUT (0FFH),A ; write to fifo |
||||
|
UF_SCDP EQU $-1 ; data port |
||||
|
OUT (0FFH),A ; send immediate |
||||
|
UF_SCIP EQU $-1 ; send immediate port |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test and report carrier status, Z set if carrier present |
||||
|
; |
||||
|
UF_CAROK: |
||||
|
XOR A ; not used, always indicate present |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Get a character (assume character ready has already been tested) |
||||
|
; |
||||
|
; GETCHR must not block |
||||
|
; |
||||
|
UF_GETCHR: |
||||
|
CALL UF_RCVRDY ; check for char ready |
||||
|
RET NZ ; return if not |
||||
|
; Fall thru if char ready |
||||
|
; |
||||
|
; MDIN can assume a character is ready |
||||
|
; |
||||
|
UF_MDIN: |
||||
|
IN A,(0FFH) ; get char |
||||
|
UF_GCDP EQU $-1 ; data port |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for character ready to receive, Z = ready |
||||
|
; Error code returned in A register |
||||
|
; *** Error code does not seem to be used *** |
||||
|
; |
||||
|
UF_RCVRDY: |
||||
|
IN A,(0FFH) ; bit 7 = 0 if char avail, = 1 if no char. |
||||
|
UF_RRSP EQU $-1 ; status port |
||||
|
RLCA ; bit 0 = 0 if char avail, = 1 if no char. |
||||
|
AND 00000001B ; A = 0, ZF = 1 if no char, A = 1, ZF = 0 if char avail. |
||||
|
LD A,0 ; no errors |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Test for ready to send a character, Z = ready |
||||
|
; |
||||
|
UF_SNDRDY: |
||||
|
IN A,(0FFH) ; bit 0 = 0 if space avail, = 1 if full |
||||
|
UF_SRSP EQU $-1 ; status port |
||||
|
AND 00000001B ; A = 0, ZF = 1 if space avail, A = 1, ZF = 0 if full. |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------- |
||||
|
; |
||||
|
; Report baud rate (index into SPTBL returned in register A) |
||||
|
; |
||||
|
UF_SPEED: |
||||
|
LD A,8 ; arbitrarily return 9600 baud |
||||
|
RET |
||||
|
; |
||||
|
END |
||||
@ -0,0 +1,637 @@ |
|||||
|
; |
||||
|
|
||||
|
TITLE ZMDHDR.Z80 - 09/29/88 - ZMD Configuration Header |
||||
|
; Copyrighted (c) 1987, 1988 |
||||
|
; Robert W. Kramer III |
||||
|
|
||||
|
PAGE |
||||
|
;- -; |
||||
|
; Update History ; |
||||
|
; ; |
||||
|
; Date Release Comments ; |
||||
|
; -------- ------- ---------------------------------------------- ; |
||||
|
; ; |
||||
|
; 09/29/88 v1.50 - Changed file descriptor table. (Sorry, but as ; |
||||
|
; many times as I am required to reassemble the ; |
||||
|
; ZMD system, it saves alot of time for me). ; |
||||
|
; 03/18/88 v1.49 - No change(s) were made to this file ; |
||||
|
; 03/13/88 v1.48 - Added STDBUF switch to enable/disable automatic ; |
||||
|
; calculation of memory available for DBUF. If ; |
||||
|
; enabled, CHKTPA will set OUTSIZ with an even ; |
||||
|
; paged maximum memory comparison word according ; |
||||
|
; to the address contained at location 6 and 7. ; |
||||
|
; The value set as end of program during assembly ; |
||||
|
; is subtracted from it. If BYE is NOT running, ; |
||||
|
; an additional 806H is subtracted. The LSB of ; |
||||
|
; the result is discarded and the new even paged ; |
||||
|
; value is stored for later comparison as maximum ; |
||||
|
; Read/Write memory available for disk buffer ; |
||||
|
; operations. ; |
||||
|
; ; |
||||
|
; * * SPECIAL NOTE * * MOST ALL systems will benefit by enabling this ; |
||||
|
; feature. Some special CP/M systems which place ; |
||||
|
; buffers below location (6 and 7), may need to ; |
||||
|
; disable this feature in which case DBUF size ; |
||||
|
; will be set to 16k. This fix consumed 1 more ; |
||||
|
; byte in the switch/value table below. Previous ; |
||||
|
; configuration headers are incompatible with this; |
||||
|
; release. Additional program code is 9 bytes. ; |
||||
|
; (See explaination at STDBUF:) ; |
||||
|
; ; |
||||
|
; 02/25/88 v1.47 - No change(s) made to configuration file ; |
||||
|
; 01/27/88 v1.46 - No change(s) made to configuration file ; |
||||
|
; 01/17/88 v1.45 - First public release ; |
||||
|
; 11/19/87 v1.00 - Initial version ; |
||||
|
;- -; |
||||
|
|
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Introduction | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; This document is a detailed listing of all the program option toggles |
||||
|
; and their functions within the ZMD environment which when used in |
||||
|
; conjunction with the source listings, install program and reference |
||||
|
; manual, provide all the necessary documentation to support program |
||||
|
; maintenance. |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EQUates Header | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
INCLUDE EQUATES.INS ; Include system constant definitions |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; PUBLIC Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
PUBLIC ACCMAP,ASKAREA,ASKIND,CLRSCRN,CLRSTR,DESWAIT,DRV |
||||
|
PUBLIC LOCOFF,MHZ,MINKSPD,MSPEED,PAGLEN,PRDRV,PRUSR,USR,WHEEL |
||||
|
PUBLIC WRAP,WRTLOC,CONOUT,MDINST,MDINP,MDOUTST,MDCARCK,MDOUTP |
||||
|
PUBLIC KNDTBL,TYPTBL,MAXTYP,DESCRIB,FORNAM,MSGDESC,DSTAMP |
||||
|
PUBLIC INCLDU,UNINIT,DRIVE,USER,LOGNAM,SETAREA,CLOCK,RTC |
||||
|
PUBLIC TIMEON,CREDIT,EDATE,DSPTOS,STDBUF |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EXTERNAL Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
EXTRN MONTH,DAY,YEAR,HOUR,MINUTE,DEST,FILE,ZMDNAM,INSNAM |
||||
|
EXTRN MAPNAM,PRGUTL,PUBFOR,PUBNEW,SYSFOR,PUBFOR,INSNAM |
||||
|
EXTRN SYSNEW,FCBCLR,FCBLOG,TEMPFIL,BCDBIN,TIMBUF,DUD,DUU |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Program configuration starts here | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; Options that are most often changed are marked with ';*' at the start of |
||||
|
; the comment line for that option. Simple systems not using time clocks, |
||||
|
; user logs, etc. will keep most of those 'NO'. RCPM systems running the |
||||
|
; usual bulletin board systems, etc., will change most of those to 'YES'. |
||||
|
; |
||||
|
MHZ: DB 10 ; Microprocessor speed - use integer 1,4,5, etc. |
||||
|
;MSPEED: DW 003CH ; Location of modem speed indicator byte |
||||
|
MSPEED: DW 0600H ; Location of modem speed indicator byte |
||||
|
; [WBW] placed in I/O overlay |
||||
|
|
||||
|
WRTLOC: DB NO ; Set/reset WRTLOC so BYE won't hang up. Check |
||||
|
LOCOFF: DB 12 ; your BBS documentation - many modern systems |
||||
|
; don't need WRTLOC. If unsure, set WRTLOC to NO. |
||||
|
; Code to set and reset WRTLOC assumes the WRTLOC |
||||
|
; byte to be located "LOCOFF" bytes from the JP |
||||
|
; COLDBOOT instruction at the beginning of the BYE |
||||
|
; BIOS jump table. (YES for MBBS and PBBS). |
||||
|
|
||||
|
STDBUF: DB NO ; If the size of your TPA cannot be calculated by |
||||
|
; using one of the two following methods, disable |
||||
|
; this by setting to NO. ZMD will Automatically |
||||
|
; calculate the maximum disk buffer size allowed. If |
||||
|
; enabled, CHKTPA will determine whether or not |
||||
|
; BYE is running, if so uses (0006)-1. Else |
||||
|
; subtracts 806H from (0006). If disabled, DBUF |
||||
|
; setting will be used as default (Normally set to |
||||
|
; 16k). Either way, if descriptions are allowed, |
||||
|
; the total number of uploads allowed is set based |
||||
|
; on the value of OUTSIZ divided by maximum bytes |
||||
|
; per description entry. |
||||
|
|
||||
|
DESWAIT:DB 2 ; This is the number of minutes of inactivity during |
||||
|
; an upload description or Help Guide prompt before |
||||
|
; logging aborting the input routine. If the |
||||
|
; caller was entering a description, the current |
||||
|
; description buffer is written to disk before |
||||
|
; resetting your BYE program's disk write lock flag |
||||
|
; (WRTLOC), if enabled. |
||||
|
|
||||
|
MINKSPD:DB 1 ; Minimum speed acceptable for 1k packet file |
||||
|
; transfers. If you are on a network such as PC |
||||
|
; Pursuit, and are able to RECEIVE incoming calls, |
||||
|
; set this byte to 1. The delays these networks |
||||
|
; use to send data back and forth make 1k packets |
||||
|
; advantageous to even 300 bps users. If you are |
||||
|
; not on a network such as PC Pursuit, it's simply |
||||
|
; a matter of preference, but why not let the 300 |
||||
|
; bps callers experience the 1k packet transfers? |
||||
|
; (1 = 300, 5 = 1200, 6 = 2400, ..., 9 = 19,200) |
||||
|
|
||||
|
BUFSIZ: DB 16 ; Normal disk systems can transfer 16k from |
||||
|
; computer to disk in 2-3-4 seconds and less. Some |
||||
|
; very slow 5-1/4" floppy systems (such as North |
||||
|
; Star) may take up to 20-30 seconds to transfer |
||||
|
; 16k. This would cause several timeouts at 10 |
||||
|
; seconds each. If you experience any timeouts, |
||||
|
; try changing BUFSIZ to something smaller, perhaps |
||||
|
; 8k or even 4k. |
||||
|
|
||||
|
CLRSCRN:DB NO ; Yes, you want ZMD to clear your screen locally |
||||
|
CLRSTR: DB 1AH,00H ; during display of batch file transfers and all |
||||
|
DB 00H,00H ; the help menus. If you set CLRSCRN to YES, enter |
||||
|
DB 00H,00H ; your clear screen sequence in the 6 bytes aside. |
||||
|
DB '$' ; (If your terminal uses ^Z, leave as is, 1AH = ^Z) |
||||
|
|
||||
|
PAGLEN: DB 24 ; This is the number of lines to display in between |
||||
|
; [more] pauses. (Set to 0 to disable pauses). |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Timekeeping Considerations | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; If you have a clock installed (either in your BYE program or internal), |
||||
|
; set the following switches to your liking. If running ZMD without a |
||||
|
; clock, set these all NO. |
||||
|
; |
||||
|
CLOCK: DB NO ; Clock/date reader code installed in BYE program |
||||
|
RTC: DB NO ; Clock/date reader code installed at RTCTIM: |
||||
|
|
||||
|
TIMEON: DB NO ; Restrict downloads to maximum time allowed |
||||
|
MAXMIN: DB 60 ; Total minutes allowed for downloads. This should |
||||
|
; be set if TIMEON is YES and CLOCK is NO. |
||||
|
DSPTOS: DB NO ; Yes to display 'Online nn minutes' messages |
||||
|
LHOUR: DW 0000H ; Logon hour address (If RTC). LHOUR+2 = logon |
||||
|
; minute address. |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Bit Map Layout | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; The following byte contains information corresponding to the filename |
||||
|
; bytes of the file being considered for transfer. Enabling any of the |
||||
|
; options causes ZMD to look at the high bit of the byte position |
||||
|
; indicated below (F1=filename byte 1, T2=file type byte 2, etc). These |
||||
|
; restrictions are always bypassed when using ZCPR and the WHEEL is set. |
||||
|
; |
||||
|
; Bit: 76543210 ; Correspond to definitions below |
||||
|
; |||||||| |
||||
|
ACCMAP: DB 11111101B ; Set any bits of this byte according |
||||
|
; __________\______/ ; to your own preference. |
||||
|
; / |
||||
|
; |
||||
|
; 7 | F1 | File not for distribution. If file is a ARK/ARC/LBR |
||||
|
; | | file, individual members may be downloaded (no Batch) |
||||
|
; 6 | F3 | File can be downloaded regardless of user's access |
||||
|
; 5 | T2 | $SYS files not sent or reported |
||||
|
; 4 | T3 | .??# files with labels not sent |
||||
|
; 3 | T1/2/3 | .COM files not sent or reported |
||||
|
; 2 | T1/2/3 | Rename .COM to .OBJ and .PRL to .OBP on receive |
||||
|
; 1 | -- | RESERVED FOR FUTURE USE |
||||
|
; 0 | T1/2/3 | .SYS, .NDR, .RCP, file extents not accepted. (ZCPR) |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; ZCMD/ZCPR | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; If using ZCPR low memory bytes to keep track of maximum drive and user, |
||||
|
; set USEMAX to yes. ZMD will use the values at locations DRIVMAX and |
||||
|
; USRMAX for maximum drive/user. If USEMAX is NO, hardcode MAXDRV and |
||||
|
; MAXUSR to your own requirements. |
||||
|
; |
||||
|
WHEEL: DW 3EH ; Location of ZCPR wheel byte |
||||
|
USEMAX: DB NO ;*Use values at DRIVMAX and USRMAX for maximum |
||||
|
; (Else use MAXDRV and MAXUSR values) |
||||
|
DRIVMAX:DW 3DH ; ZCPR maximum drive memory byte |
||||
|
USRMAX: DW 3FH ; ZCPR maximum user memory byte |
||||
|
MAXDRV: DB 16 ; Maximum download drive allowed |
||||
|
MAXUSR: DB 16 ; Maximum download user allowed |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Access Restrictions | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; If ACCESS is YES, ZMD will inspect AFBYTE (located ACBOFF bytes from JP |
||||
|
; COLDBOOT) for the following flag data: |
||||
|
; |
||||
|
; |
||||
|
; Bit: 7 6 5 4 3 2 1 0 |
||||
|
; | | | | | | | | |
||||
|
; Privileged user ---* | | | | | | | |
||||
|
; Upload -----* | | | | | | |
||||
|
; Download -------* | | | | | * Of these bits, only 3, 5, 6 |
||||
|
; CP/M ---------+ | | | | and 7 are used by ZMD. Bit |
||||
|
; Write -----------* | | | numbers are powers of 2, with |
||||
|
; Read -------------+ | | bit 0 being least significant |
||||
|
; BBS ---------------+ | bit of byte. |
||||
|
; System -----------------+ |
||||
|
; |
||||
|
; |
||||
|
ACCESS: DB NO ;*Yes, your system sets BYE's bit-mapped flag |
||||
|
; register to restrict user's ability to upload, |
||||
|
; download, use the 'RM' option to upload message |
||||
|
; files to your BBS's message base, or to use the |
||||
|
; 'RW' option for 'privileged user' upload without |
||||
|
; being required to give upload descriptions. |
||||
|
|
||||
|
ACBOFF: DB 21 ; If you set ACCESS to YES, you 'might' need to |
||||
|
; set this to reflect the number of bytes from JP |
||||
|
; COLDBOOT to ACCESS byte. In most cases, leave |
||||
|
; alone. |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Upload Configurations | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
MSGFIL: DB NO ; Some BBS's allow callers to upload preformatted |
||||
|
; text files which are appended to the message |
||||
|
; base. (MBBS and PBBS are examples of this). If |
||||
|
; you're running MBBS or PBBS and wish to support |
||||
|
; this, simply set MSGFIL to YES. Message file |
||||
|
; uploads go to PRDRV and PRUSR. |
||||
|
|
||||
|
HIDEIT: DB NO ; Yes, make all normal uploads $SYS files. This |
||||
|
; way, new uploads will not appear in a DIRectory |
||||
|
; listing and cannot be viewed or even downloaded |
||||
|
; until they are cleared by SYSOP. (New uploads |
||||
|
; will show up when the WHEEL byte is ON and a $S |
||||
|
; option is used to show SYSTEM files. Use the $O |
||||
|
; option to list ONLY $SYS files. Reference will |
||||
|
; be made to these files in the in the NEW and FOR |
||||
|
; listings if those features are enabled). Private |
||||
|
; uploads, and uploads made with the WHEEL byte |
||||
|
; set are NOT made $SYS. You can use POWER or |
||||
|
; NSWEEP to set to $DIR. |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Upload Routing Options | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; The following equates determine what drive/user area uploads will be sent |
||||
|
; to. If you prefer to enable upload routing (ASKAREA set YES), you will |
||||
|
; have to set MAXTYP to the letter of the highest category you wish to |
||||
|
; support, and configure TYPTBL: and KNDTBL: tables below for your own |
||||
|
; system. Do NOT set ASKAREA and SETAREA both to YES. |
||||
|
; |
||||
|
ASKAREA:DB NO ;*Yes, you want upload routing to multiple drive |
||||
|
; and user areas. The caller will be asked what |
||||
|
; the file (or files) he is uploading are for and |
||||
|
; his uploads will then be forwarded to the |
||||
|
; appropriate area. You will need to set up the |
||||
|
; categories at KNDTBL: for your own system and |
||||
|
; set the drive/user area each category belongs on |
||||
|
; at label TYPTBL:. There can be up to 26 different |
||||
|
; drive/user and category combinations. This applies |
||||
|
; for both private and normal uploads. Upload |
||||
|
; routing is disabled when the WHEEL byte is set, |
||||
|
; in which case, normal uploads will go to the |
||||
|
; current drive/user area and private uploads will |
||||
|
; go to the drive/user equated at PRDRV and PRUSR. |
||||
|
|
||||
|
SETAREA:DB NO ;*Yes, you wish to have all regular uploads sent |
||||
|
DRV: DB 'B' ; to the drive/user equated at DRV and USR to left. |
||||
|
USR: DB 0 ; If WHEEL byte is set, regular uploads will go to |
||||
|
; the current or specified drive/user. Unless you |
||||
|
; ASKAREA is YES, all private files uploaded with |
||||
|
; the 'RP' option will be sent to PRDRV and PRUSR |
||||
|
; regardless of WHEEL status. |
||||
|
|
||||
|
PRDRV: DB 'H' ;*This is the drive/user area where ALL files sent |
||||
|
PRUSR: DB 15 ;*to the sysop with the 'RP' option will go (unless |
||||
|
; ASKAREA below is YES). This permits experimental |
||||
|
; files, replacement and/or proprietary programs to |
||||
|
; be sent to an area only accessible by the sysop. |
||||
|
; This is also the drive and user area where message |
||||
|
; files are uploaded, if MSGFIL is set YES. (If |
||||
|
; ASKAREA is YES, this is the drive/user where |
||||
|
; uploads will go when 'RP' is specified, and WHEEL |
||||
|
; is set). (If MSGDESC is YES, this is the drive |
||||
|
; and user area the FOR text file will be placed |
||||
|
; before appending it to the BBS system's message |
||||
|
; base). |
||||
|
|
||||
|
CREDIT: DB NO ;*Yes, callers are given credit for the amount of |
||||
|
; time they spend uploading non-private files. A |
||||
|
; caller who spends 30 minutes sending an upload |
||||
|
; gets 30 minutes added to his TLOS. (You must |
||||
|
; set either CLOCK or TIMEON to YES to use this |
||||
|
; feature). |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Upload Description Options | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; This section has to do with upload descriptions. If you do not intend |
||||
|
; on implementing upload descriptions, set DESCRIB and MSGDESC to NO. The |
||||
|
; rest of these values are then ignored. If using descriptions, set ONLY |
||||
|
; one of these to YES, not both. |
||||
|
; |
||||
|
MSGDESC:DB NO ; Yes, your BBS system supports message uploads, |
||||
|
; and you prefer upload descriptions to be placed |
||||
|
; in your BBS message system (set DESCRIB NO). |
||||
|
; MBBS users need to install MFMSG.COM with the |
||||
|
; MBBSINIT program. Then set your BYE program to |
||||
|
; know about message file uploads by setting the |
||||
|
; MSGFIL option in BYE/MBYE to YES. If set YES, |
||||
|
; ZMD will produce a FOR text file when writing |
||||
|
; upload descriptions. This FOR file will go to |
||||
|
; the drive and user area equated at PRDRV and |
||||
|
; PRUSR just before being appended to your BBS |
||||
|
; system's message base. |
||||
|
|
||||
|
DESCRIB:DB NO ;*Yes, requiring users to provide descriptions for |
||||
|
; any files they upload. These descriptions will |
||||
|
; be added to the current FOR file where they can |
||||
|
; be viewed by callers with the ZFORP utility. |
||||
|
; Sysop can add new descriptions with the ZFORS |
||||
|
; utility (See ZMD.WS for more information on ZMD |
||||
|
; support files). Uploads sent to the SYSOP private |
||||
|
; upload area will not be require descriptions, nor |
||||
|
; will files uploaded with the 'RW' option - user |
||||
|
; must be a privileged user (bit 7 in ACCESS byte |
||||
|
; set) or have WHEEL access and PUPOPT must be set |
||||
|
; YES to use the 'RW' option. |
||||
|
|
||||
|
FORNAM: DB 'FOR ' ; Description text file (Must be 11 bytes) |
||||
|
DRIVE: DB 'A' ;*If using with DESCRIB set YES, you must indicate |
||||
|
USER: DB 14 ;*what drive/user you want the 'FOR' file to be |
||||
|
; placed. |
||||
|
|
||||
|
; |
||||
|
; If DESCRIB above is set to YES, you'll have to tell ZMD what information |
||||
|
; you want included in the first line of each description. Code is included |
||||
|
; in ZMD to place all (any) information in the upload description header in |
||||
|
; in the same column position no matter what the filename or file category |
||||
|
; length is. The following illustrates a full implementation of DESCRIB. |
||||
|
; |
||||
|
; Example upload description header: |
||||
|
; |
||||
|
; ----- |
||||
|
; ZMD150.LBR - Communications (C3:) Rcvd: 09/21/88 |
||||
|
; / / / |
||||
|
; _______/ ______/ _______/ |
||||
|
; ASKIND INCLDU DSTAMP |
||||
|
; |
||||
|
; |
||||
|
ASKIND: DB NO ;*Yes, ask for the category of uploads and write it |
||||
|
; into the upload description header. If you set |
||||
|
; this to YES, make sure you set MAXTYP below to |
||||
|
; the highest letter choice you wish to support and |
||||
|
; edit the text at KNDTBL: up to and including your |
||||
|
; MAXTYP setting. (Used only with DESCRIB). |
||||
|
|
||||
|
INCLDU: DB YES ;*Yes, include the drive/user area of the uploaded |
||||
|
; file into the upload description header. |
||||
|
; (Used only with DESCRIB). |
||||
|
|
||||
|
DSTAMP: DB YES ;*Yes, include the date the upload was received into |
||||
|
; the upload description header. (NO if no clock) |
||||
|
; (Used only with DESCRIB). |
||||
|
|
||||
|
PUPOPT: DB YES ;*Yes, description request of file upload will be |
||||
|
; skipped when "RW" is used in the ZMD command line |
||||
|
; (i.e. ZMD RW FILE.EXT). This command may only be |
||||
|
; used by those considered "priviledged" users on |
||||
|
; your system or WHEEL users. Uploads of this type |
||||
|
; will be tagged in the ZMD.LOG file as private, so |
||||
|
; as not to display with the NEW command. (See |
||||
|
; ACCESS equate description above for information |
||||
|
; on 'priviledged' users). |
||||
|
|
||||
|
WRAP: DB 64 ; Column position where word wrap will occur. If |
||||
|
; you are using MSGDESC and have problems with an |
||||
|
; 'Invalid format' error from MFMSG.COM, try setting |
||||
|
; WRAP to something smaller, like 62 or 63. (Word |
||||
|
; wrap can be disabled by the user with ^W during |
||||
|
; description entry. Enter 72 here to disable |
||||
|
; completely). |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Special Sysop Downloads | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
SPLDRV: DB 'H' ;*Drive/user area for downloading private files |
||||
|
SPLUSR: DB 14 ;*from sysop. This permits him to put a special |
||||
|
; file in this area, then leave a private note |
||||
|
; to that person mentioning the name of the file |
||||
|
; and how to download it (ZMD SP filename.ext). |
||||
|
; Although anybody 'could' download that program, |
||||
|
; they don't know what (if any) files are there. |
||||
|
; A high degree of security exists, while the |
||||
|
; SYSOP still has the ability to make special |
||||
|
; files available. Thus any person can be a |
||||
|
; temporary 'privileged user'. |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; File Transfer Log | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
LOGCAL: DB NO ;*ZMD.LOG is produced if LOGCAL is set YES. All |
||||
|
; file transfers are logged. You can then use |
||||
|
; ZNEWP.COM to show listings of recent uploads. |
||||
|
EDATE: DB NO ; Yes, show date in ZMD.LOG in dd/mm/yy format |
||||
|
; instead of mm/dd/yy format. |
||||
|
|
||||
|
LOGNAM: DB 'ZMD LOG' ; File transfer log (Must be 11 bytes) |
||||
|
LOGDRV: DB 'A' ;*Drive to find ZMD.LOG on. |
||||
|
LOGUSR: DB 14 ;*User area to find ZMD.LOG on. |
||||
|
|
||||
|
LSTCLR: DB 'LASTCALR???' ; Last caller file (Must be 11 bytes) |
||||
|
LASTDRV:DB 'A' ;*Drive to find LASTCALR??? file on. |
||||
|
LASTUSR:DB 14 ;*User area to find LASTCALR??? file on. |
||||
|
LCNAME: DB 0 ;*Position of last caller's name in the LASTCALR??? |
||||
|
; file. (MBBS is 11, PBBS is 0). |
||||
|
|
||||
|
LOGLDS: DB NO ;*Count number of up/down loads since login. Your |
||||
|
UPLDS: DW 0054H ; BBS program can check UPLDS and DNLDS when a user |
||||
|
DNLDS: DW 0055H ; logs out and update either the user's file or a |
||||
|
; file for this purpose. You can either modify |
||||
|
; your BBS entry program to check the LASTCALR file |
||||
|
; before updating and then update (risky), or make |
||||
|
; a separate program that BYE calls when logging off |
||||
|
; a user (preferred). (YES for PBBS). Clear UPLDS |
||||
|
; and DNLDS to 0 from your BBS program when somebody |
||||
|
; logs in. NOTE: Clear ONLY when a user logs in, |
||||
|
; not when he re-enters the BBS program from CP/M. |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; File Descriptors | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; This table defines the text to be included in upload description headers |
||||
|
; (DESCRIB and ASKIND) and/or defines categories for uploading to multiple |
||||
|
; drive/user areas (If ASKAREA and NOT SETAREA). Change as desired, if |
||||
|
; this list is not suitable. Do NOT remove any of the text at KNDTBL:. |
||||
|
; Simply edit the text below up to/and including your MAXTYP setting. |
||||
|
; MAXTYP below must be set to whatever letter your maximum choice will be. |
||||
|
; Make sure you leave all the following categories EXACTLY 31 bytes long |
||||
|
; (29 bytes of text plus the CR,LF equals 31) or you will be CERTAIN to |
||||
|
; have problems with the double column formatting later on in the program. |
||||
|
; |
||||
|
MAXTYP: DB 'W' ; Letter of highest category you will support. |
||||
|
|
||||
|
KNDTBL: DB ' A) - BBS Lists, PC Pursuit ',CR,LF |
||||
|
DB ' B) - CP/M Modem Program ',CR,LF |
||||
|
DB ' C) - CP/M Utility ',CR,LF |
||||
|
DB ' D) - CP/M Lbr, Ark, Catalog',CR,LF |
||||
|
DB ' E) - CP/M Plus Specific ',CR,LF |
||||
|
DB ' F) - CP/M Games & Humor ',CR,LF |
||||
|
DB ' G) - CP/M Wordprocessing ',CR,LF |
||||
|
DB ' H) - CP/M Printer Utility ',CR,LF |
||||
|
DB ' I) - CP/M OS Enhancement ',CR,LF |
||||
|
DB ' J) - CP/M BBS Software ',CR,LF |
||||
|
DB ' K) - CP/M Assemb/Disassemb ',CR,LF |
||||
|
DB ' L) - CP/M Language (Other) ',CR,LF |
||||
|
DB ' M) - Turbo Pascal ',CR,LF |
||||
|
DB ' N) - dBase & Database ',CR,LF |
||||
|
DB ' O) - "C" ',CR,LF |
||||
|
DB ' P) - Text & Information ',CR,LF |
||||
|
DB ' Q) - DOS Modem Program ',CR,LF |
||||
|
DB ' R) - DOS BBS Software ',CR,LF |
||||
|
DB ' S) - DOS Language ',CR,LF |
||||
|
DB ' T) - DOS Assemb/Disassemb ',CR,LF |
||||
|
DB ' U) - DOS Lbr, Arc, Catalog ',CR,LF |
||||
|
DB ' V) - DOS Wordprocessing ',CR,LF |
||||
|
DB ' W) - DOS Printer Utility ',CR,LF |
||||
|
DB ' X) - DOS Games & Humor ',CR,LF |
||||
|
DB ' Y) - DOS Application ',CR,LF |
||||
|
DB ' Z) - DOS Utility ',CR,LF |
||||
|
DB 0 ; leave the table terminator alone. |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Upload Routing Table | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; If ASKAREA is set YES, then set these areas up to match the message text |
||||
|
; in KNDTBL: above. Note that PRIVATE uploads may be sent to a different |
||||
|
; drive as well as a different user area. Each entry is expressed as |
||||
|
; 'drive letter',user area. Simply set MAXTYP above to the highest |
||||
|
; letter choice supported. (Do NOT comment out any of the following |
||||
|
; storage bytes). |
||||
|
; |
||||
|
; _________ |
||||
|
; NOTE: / A \ <--- 'A' Corresponds to category 'A' above |
||||
|
; 'A',1,'B',15, |
||||
|
; \ / \ / |
||||
|
; Normal upload --+ | |
||||
|
; Private upload -------+ |
||||
|
; |
||||
|
|
||||
|
TYPTBL: |
||||
|
; _________ _________ _________ _________ |
||||
|
; / A \ / B \ / C \ / D \ |
||||
|
DB 'B',1,'F',15, 'B',0,'F',15, 'B',2,'F',15, 'B',4,'F',15 |
||||
|
; _________ _________ _________ _________ |
||||
|
; / E \ / F \ / G \ / H \ |
||||
|
DB 'B',5,'F',15, 'B',6,'F',15, 'C',0,'F',15, 'C',1,'F',15 |
||||
|
; _________ _________ _________ _________ |
||||
|
; / I \ / J \ / K \ / L \ |
||||
|
DB 'C',2,'F',15, 'C',3,'F',15, 'A',1,'F',15, 'A',5,'F',15 |
||||
|
; _________ _________ _________ _________ |
||||
|
; / M \ / N \ / O \ / P \ |
||||
|
DB 'A',2,'F',15, 'A',3,'F',15, 'A',4,'F',15, 'A',6,'F',15 |
||||
|
; _________ _________ _________ _________ |
||||
|
; / Q \ / R \ / S \ / T \ |
||||
|
DB 'E',0,'F',15, 'E',1,'F',15, 'E',2,'F',15, 'E',3,'F',15 |
||||
|
; _________ _________ _________ _________ |
||||
|
; / U \ / V \ / W \ / X \ |
||||
|
DB 'F',0,'F',15, 'F',1,'F',15, 'F',2,'F',15, 'F',3,'F',15 |
||||
|
; _________ _________ |
||||
|
; / Y \ / Z \ |
||||
|
DB 'G',0,'F',15, 'H',0,'F',15 |
||||
|
|
||||
|
; |
||||
|
;=========================================================================; |
||||
|
;>>>>>>>>>>>>>> DO NOT CHANGE ANYTHING BEYOND THIS POINT <<<<<<<<<<<<<<<| |
||||
|
;=========================================================================; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Version Identification | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; If/when INSTALL is first ran, it checks these next 3 bytes to make sure |
||||
|
; it is installing the proper version of ZMD.COM. If these bytes do not |
||||
|
; match, the INSTALL procedure will abort. (Don't change this one) |
||||
|
; |
||||
|
INSVERS:DB '150' ; Don't change this one |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; User Definable Storage Bytes | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; If you make changes to the configuration table, make them here. You |
||||
|
; are allowed 2 bytes for switches, or storage for an address, etc. Any |
||||
|
; changes before this point and ZINSTL will not run. |
||||
|
; |
||||
|
SPARE1: DB 0 ; User definable storage |
||||
|
SPARE2: DB 0 |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Clock/Date Reader Code | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; |
||||
|
; Install your clock/date reader code here. RTCTIM gets called to retrieve |
||||
|
; the current date and time. All values must be stored in binary form. |
||||
|
; A 6 byte clock buffer called TIMBUF can be used as a work area. Call |
||||
|
; BCDBIN to convert your BCD (Binary Coded Decimal) value in A to binary |
||||
|
; value in A. Delete all ';<=' lines; after installing your custom |
||||
|
; routine. |
||||
|
; |
||||
|
ORG 4FEH ; Allow 130 bytes for RTC insert |
||||
|
; |
||||
|
RTCTIM::LD A,0 ;<= Delete lines if reader code installed |
||||
|
LD (MONTH),A ;<= Current month (1-12) |
||||
|
LD (DAY),A ;<= Current date (1-31) |
||||
|
LD (YEAR),A ;<= Current year (0-99) |
||||
|
LD (MINUTE),A ;<= Current minute (0-59) |
||||
|
LD (HOUR),A ;<= Current hour (0-23) |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Input/Output Patch Area | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
ORG 580H ; Modem routine starts here |
||||
|
|
||||
|
CONOUT: JP 0000H ; BIOS local console output routine address |
||||
|
MINIT: JP 0000H ; Startup initialization routine |
||||
|
UNINIT: JP 0000H ; Exit uninitialize routine |
||||
|
MDOUTP: JP 0000H ; Send character out modem |
||||
|
MDCARCK:JP 0000H ; Test for carrier |
||||
|
MDINP: JP 0000H ; Get character from modem |
||||
|
MDINST: JP 0000H ; Check receive ready |
||||
|
MDOUTST:JP 0000H ; Check send ready |
||||
|
|
||||
|
;ORG 600H ; Allow 128 bytes for I/O overlay |
||||
|
ORG 1000H ; Allow for large I/O overlay |
||||
|
|
||||
|
|
||||
|
; |
||||
|
; Overlay ends here |
||||
|
; |
||||
|
|
||||
@ -0,0 +1,517 @@ |
|||||
|
; |
||||
|
|
||||
|
TITLE ZNEWP.Z80 - 09/29/88 - ZMD Public Transfer Log Utility |
||||
|
; Copyrighted (c) 1987, 1988 |
||||
|
; Robert W. Kramer III |
||||
|
|
||||
|
;- -; |
||||
|
; Update History ; |
||||
|
; ; |
||||
|
; Date Release Comments ; |
||||
|
; -------- ------- ---------------------------------------------- ; |
||||
|
; ; |
||||
|
; 09/29/88 v1.50 - No change(s) made to this file ; |
||||
|
; 03/18/88 v1.49 - No change(s) made to this file ; |
||||
|
; 03/13/88 v1.48 - Redefined buffer table at end of programs. STACK; |
||||
|
; and filename buffers now EQUated with offsets ; |
||||
|
; from the last switch/toggle in program instead ; |
||||
|
; of with DS directive. ; |
||||
|
; - Some systems which do NOT have an interrupt ; |
||||
|
; driven keyboard may have noticed problems when ; |
||||
|
; an invalid key was entered in the ZNEWP, ZFORP ; |
||||
|
; and ZMDEL programs. In ZNEWP and ZFORP, if a ; |
||||
|
; CR was entered to pause the output, output was ; |
||||
|
; limited to one line at a time per key pressed. ; |
||||
|
; If an invalid key was hit, output would have ; |
||||
|
; remained in a paused state until one of the ; |
||||
|
; abort keys were pressed. This was difficult to ; |
||||
|
; find since my keyboard is interrupt driven and ; |
||||
|
; I could not duplicate the problem on my own ; |
||||
|
; system. ; |
||||
|
; 02/25/88 v1.47 - Fixed to determine if CLOCK is enabled before ; |
||||
|
; inserting spaces after 8 'date' positions. ; |
||||
|
; (Keeps caller name from being split with an ; |
||||
|
; extra space at column 52). ; |
||||
|
; 01/27/88 v1.46 - Now uses BDOS call 35 to calculate virtual size ; |
||||
|
; of log file (in records) which is returned in ; |
||||
|
; bytes 33 and 34 of log FCB. It then uses BDOS ; |
||||
|
; call 33 to compute the extent of the specified ; |
||||
|
; record number (bytes 33 and 34 of log FCB), ; |
||||
|
; decrements the record number for next random ; |
||||
|
; read and displays current record. This method ; |
||||
|
; of reading the log file allows for files up to ; |
||||
|
; 8,388,480 bytes in size to be displayed at an ; |
||||
|
; instant. ; |
||||
|
; 01/17/88 v1.45 - First public release ; |
||||
|
; 11/01/87 v1.00 - Initial version ; |
||||
|
;- -; |
||||
|
|
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EXTERNAL Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
EXTRN CKABRT,CLEARIT,DBUF,ERXIT,EXIT,ILPRTB,LINCNT,MODE |
||||
|
EXTRN NOFILE,NOLOG,OLDDRV,OLDUSR,PRINTV,PRIVATE,RECAR1 |
||||
|
EXTRN RECDR1,RENFCB,RSDMA,SHONM4,STACK,TYPE,WHLCHK |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Program Starts Here | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
.Z80 |
||||
|
ASEG |
||||
|
ORG 100H ; Program starts |
||||
|
JP BEGIN ; Jump around configuration table |
||||
|
INCLUDE ZMDHDR.Z80 ; Include the ZMD header overlay |
||||
|
.REQUEST ZMDSUBS ; Include the ZMD subroutines |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; Save CP/M stack, initialize new one for this program |
||||
|
; |
||||
|
BEGIN: LD (STACK),SP ; Save return address to CCP |
||||
|
LD SP,STACK ; Initialize new one for this program |
||||
|
|
||||
|
; |
||||
|
; Get current drive/user |
||||
|
; |
||||
|
LD A,255 ; Get current user |
||||
|
CALL RECAR1 |
||||
|
LD (OLDUSR),A ; Store it |
||||
|
LD C,CURDRV ; Get current drive |
||||
|
CALL BDOS |
||||
|
LD (OLDDRV),A ; Store it |
||||
|
|
||||
|
; |
||||
|
; Tell em who we are |
||||
|
; |
||||
|
LD A,255 ; Need this so discrepency check will |
||||
|
LD (MODE),A ; Leave clock settings alone in case local |
||||
|
LD HL,PUBNEW ; Point to this filename |
||||
|
CALL PRINTV ; Display it |
||||
|
|
||||
|
LD A,(LOGCAL) ; See if log file enabled |
||||
|
OR A |
||||
|
JP Z,NOLOG ; Don't run program if not |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB '(S to Pause - C K or X Abort)' |
||||
|
DB CR,LF,LF |
||||
|
DB 0 |
||||
|
|
||||
|
LD A,9 ; Leave program name on first screen |
||||
|
LD (LINCNT),A |
||||
|
|
||||
|
; |
||||
|
; If WHEEL byte set, check to see if 'A' specified in command tail. If |
||||
|
; it is, set switch to display entire transfer log |
||||
|
; |
||||
|
CALL WHLCHK ; WHEEL byte set? |
||||
|
JP Z,BEGIN2 ; No don't look for options |
||||
|
LD A,(FCB+1) ; Get possible option |
||||
|
CP 'A' ; Want to show all of file? |
||||
|
JP NZ,BEGIN2 ; No |
||||
|
LD A,1 |
||||
|
LD (SHOWALL),A ; Set to show all entries |
||||
|
LD A,8 |
||||
|
LD (LINCNT),A |
||||
|
|
||||
|
; |
||||
|
; See if user wants file displayed 'nonstop' ($N) |
||||
|
; |
||||
|
BEGIN2: LD HL,FCB+1 ; Get first character on command line |
||||
|
LD A,(HL) ; Into A |
||||
|
CP '$' ; Must specify '$' first |
||||
|
JP NZ,OPNLOG ; Nope, continue normal |
||||
|
INC HL ; Point to next byte |
||||
|
LD A,(HL) ; Into A for comparison |
||||
|
CP 'N' ; 'N' for nonstop display? |
||||
|
JP NZ,OPNLOG ; No |
||||
|
LD A,0 |
||||
|
LD (PAGLEN),A ; Else disable page pauses |
||||
|
|
||||
|
; |
||||
|
; Set drive/user to the log file area and open ZMD.LOG |
||||
|
; |
||||
|
OPNLOG: LD A,(LOGUSR) ; Set user area to ZMD.LOG area |
||||
|
CALL RECAR1 |
||||
|
LD A,(LOGDRV) ; Set drive to ZMD.LOG area |
||||
|
CALL RECDR1 |
||||
|
|
||||
|
LD HL,FILE ; Destination is internal FCB |
||||
|
LD DE,LOGNAM ; For log filename |
||||
|
CALL RENFCB ; Initialize and rename |
||||
|
|
||||
|
LD DE,FILE |
||||
|
LD C,OPEN ; Open log file |
||||
|
CALL BDOS |
||||
|
INC A ; Check for no open |
||||
|
LD HL,FILE+1 |
||||
|
JP Z,NOFILE ; No file, exit |
||||
|
|
||||
|
; |
||||
|
; See if special sysop access was allowed/requested. Display enabled |
||||
|
; message if so. |
||||
|
; |
||||
|
LD A,(SHOWALL) ; Showing entire transfer log? |
||||
|
OR A |
||||
|
JP Z,SHOHDR ; No, display header as usual |
||||
|
CALL ILPRTB |
||||
|
DB CR |
||||
|
DB '-- Sysop access enabled --',0 |
||||
|
JP CALCSIZ |
||||
|
|
||||
|
; |
||||
|
; Display all applicable field titles |
||||
|
; |
||||
|
SHOHDR: CALL ILPRTB |
||||
|
DB CR |
||||
|
DB 'D/u Filename Size Speed ',0 |
||||
|
|
||||
|
LD A,(CLOCK) |
||||
|
OR A |
||||
|
JP Z,SHOHDR1 |
||||
|
CALL ILPRTB |
||||
|
DB ' Date Time ',0 |
||||
|
|
||||
|
SHOHDR1:CALL ILPRTB |
||||
|
DB ' Uploaded by' |
||||
|
DB CR,LF,0 |
||||
|
|
||||
|
; |
||||
|
; Get number of records in log file |
||||
|
; |
||||
|
CALCSIZ:LD DE,FILE ; Point to log FCB |
||||
|
LD C,FILSIZ ; Compute file size function |
||||
|
CALL BDOS |
||||
|
LD DE,DBUF+81 ; Point to beggining of write buffer |
||||
|
LD A,CR |
||||
|
LD (DE),A ; Force first CR |
||||
|
DEC E |
||||
|
|
||||
|
; |
||||
|
; Decrement number of records left. If any left, read on into write |
||||
|
; buffer, otherwise close file and exit |
||||
|
; |
||||
|
NXTRCD: PUSH DE ; Save write buffer address |
||||
|
LD HL,FILE+33 ; Get current record counter |
||||
|
LD E,(HL) ; LSB record count |
||||
|
INC HL |
||||
|
LD D,(HL) ; MSB record count |
||||
|
DEC DE ; Decrement it |
||||
|
LD (HL),D ; Put it back |
||||
|
DEC HL |
||||
|
LD (HL),E |
||||
|
LD A,E |
||||
|
CP 0FFH ; Any more records? |
||||
|
JP NZ,RDRCD ; Yes, go read it |
||||
|
LD A,D ; Maybe not, check MSB |
||||
|
CP 0FFH ; Any more? |
||||
|
JP Z,TDONE ; No, all done |
||||
|
|
||||
|
; |
||||
|
; Read a record from source file |
||||
|
; |
||||
|
RDRCD: CALL RSDMA ; Reset DMA to 80H |
||||
|
LD DE,FILE |
||||
|
LD C,RRDM ; Random read |
||||
|
CALL BDOS |
||||
|
POP DE ; Get write buffer address back |
||||
|
OR A ; Read ok? |
||||
|
JP NZ,RDERR ; Yes |
||||
|
LD HL,TBUF+127 ; End address of read buffer |
||||
|
LD B,128 ; Buffer is filled backwards |
||||
|
|
||||
|
; |
||||
|
; Write record from disk to memory (in reverse order) |
||||
|
; |
||||
|
WRTBYT: LD A,(HL) ; Get byte from read buffer |
||||
|
AND 7FH ; Strip parity bit |
||||
|
CP LF ; End of line? |
||||
|
JP Z,DSPLIN ; Yes, show it if supposed to |
||||
|
CP 7FH ; Del (rubout)? |
||||
|
JP Z,NXTBYT ; Yes, ignore it |
||||
|
CP EOF ; End of file marker? |
||||
|
JP Z,NXTBYT ; Yes, ignore it |
||||
|
LD (DE),A |
||||
|
DEC E ; Decrement write buffer pointer |
||||
|
|
||||
|
NXTBYT: DEC L ; Decrement read buffer pointer |
||||
|
DJNZ WRTBYT ; And character count, get next if any left |
||||
|
JP NXTRCD ; Else read another record |
||||
|
|
||||
|
; |
||||
|
; Found end (CR) of current entry. Display it. |
||||
|
; |
||||
|
DSPLIN: DEC B ; Decrement character counter |
||||
|
PUSH AF ; Save flags |
||||
|
DEC L ; Decrement write buffer pointer |
||||
|
PUSH HL ; Save write address |
||||
|
PUSH BC ; Save character count |
||||
|
EX DE,HL ; HL now contains current buffer read address |
||||
|
LD (HL),A ; Store the LF |
||||
|
|
||||
|
LD A,(SHOWALL) ; Show entire file? |
||||
|
OR A |
||||
|
JP NZ,NEXT ; Yes |
||||
|
|
||||
|
INC L ; Else next character is transfer mode |
||||
|
LD A,(HL) ; Get it |
||||
|
DEC L ; Restore read pointer |
||||
|
CP 'R' ; Uploaded entry? |
||||
|
JP NZ,SENDLF1 ; No, ignore it and reset pointers |
||||
|
|
||||
|
; |
||||
|
; Get next character from read buffer. If end of line, go display CR,LF. |
||||
|
; |
||||
|
NEXT: INC L ; Increment next read byte |
||||
|
LD A,(HL) ; Get character |
||||
|
LD B,A ; Into B |
||||
|
CP CR ; End of line? |
||||
|
JP Z,SENDLF ; Yes, send a CR,LF and reset pointers |
||||
|
|
||||
|
LD A,(COLUMN) ; Get column count |
||||
|
CP 79 ; End of line? |
||||
|
JP Z,DSPLP2 ; Yes, start new line |
||||
|
OR A ; At beginning of line? |
||||
|
JP NZ,DSPLP3 ; No, continue |
||||
|
INC A |
||||
|
LD (COLUMN),A ; We aren't anymore |
||||
|
|
||||
|
LD A,B ; Get the character back |
||||
|
LD (STORE),A ; Store it for later comparison |
||||
|
|
||||
|
CP 'P' ; This entry private upload? |
||||
|
JP NZ,DSPLP1 ; No, check for regular upload |
||||
|
LD A,(SHOWALL) ; Yes, were we supposed to show entire file? |
||||
|
OR A |
||||
|
JP Z,DSPLP2 ; No, so ignore it |
||||
|
LD (PRIVATE),A ; Set private flag |
||||
|
JP DSPLP4 ; Go show it |
||||
|
|
||||
|
DSPLP1: CP 'R' ; Regular upload? |
||||
|
JP Z,DSPLP4 ; Yes, keep the flag set |
||||
|
|
||||
|
LD A,(SHOWALL) |
||||
|
OR A |
||||
|
JP NZ,DSPLP4 |
||||
|
|
||||
|
XOR A |
||||
|
LD (STORE),A |
||||
|
LD (COLUMN),A ; Start in column 0 |
||||
|
JP NEXT |
||||
|
|
||||
|
DSPLP2: XOR A |
||||
|
LD (STORE),A ; Otherwise reset flag to zero |
||||
|
|
||||
|
DSPLP3: LD A,(STORE) ; Storing into memory? |
||||
|
OR A |
||||
|
JP Z,NEXT ; If not, exit |
||||
|
|
||||
|
DSPLP4: LD A,(COLUMN) ; Increment the column counter |
||||
|
INC A |
||||
|
LD (COLUMN),A |
||||
|
|
||||
|
CP 3 ; User's modem speed is in column 2 |
||||
|
JP NZ,DSPLP5 ; If not column 2, continue |
||||
|
LD A,B ; Otherwise get the character |
||||
|
LD (STORE),A ; Store it for conversion to baud rate |
||||
|
JP NEXT ; Do not print the "MSPEED" number |
||||
|
|
||||
|
DSPLP5: CP 11 |
||||
|
JP C,NEXT ; Skip everything through column 10 |
||||
|
|
||||
|
; |
||||
|
; Display drive and user of file |
||||
|
; |
||||
|
CP 14 |
||||
|
JP C,SEND ; Print everything through column 13 |
||||
|
JP NZ,DSPFN |
||||
|
|
||||
|
; |
||||
|
; If a private file, make a special note of it |
||||
|
; |
||||
|
LD A,(PRIVATE) ; Private entry? |
||||
|
OR A |
||||
|
JP Z,DSPDU ; No |
||||
|
|
||||
|
XOR A ; Reset flag for next time |
||||
|
LD (PRIVATE),A |
||||
|
LD A,'*' ; Displays entry is private |
||||
|
CALL TYPE |
||||
|
LD B,' ' ; Keep our distance from next field |
||||
|
JP SEND |
||||
|
|
||||
|
DSPDU: LD A,':' ; Stick in a colon after column 12 |
||||
|
CALL TYPE |
||||
|
LD B,' ' ; Send a space |
||||
|
JP SEND |
||||
|
|
||||
|
; |
||||
|
; Display filename and extent |
||||
|
; |
||||
|
DSPFN: CP 22 ; Print through column 20 |
||||
|
JP C,SEND |
||||
|
JP NZ,DSPFT |
||||
|
LD A,B |
||||
|
CALL TYPE ; Send character in colum 21 |
||||
|
LD B,'.' ; Add a period after the file name |
||||
|
JP SEND |
||||
|
|
||||
|
DSPFT: CP 27 |
||||
|
JP C,SEND ; Print file type and some spaces |
||||
|
CALL Z,PRTSPC |
||||
|
CP 39 |
||||
|
JP C,NEXT ; Ignore the "big gap" |
||||
|
CP 43 |
||||
|
JP C,SEND ; Print the file size |
||||
|
JP Z,DSPBD |
||||
|
JP DSPDAT |
||||
|
|
||||
|
; |
||||
|
; Display the baud rate (300-19200 bps) |
||||
|
; |
||||
|
DSPBD: PUSH HL |
||||
|
LD A,(STORE) |
||||
|
CP '1' |
||||
|
JP Z,B300 |
||||
|
CP '5' |
||||
|
JP Z,B1200 |
||||
|
CP '6' |
||||
|
JP Z,B2400 |
||||
|
CP '7' |
||||
|
JP Z,B4800 |
||||
|
CP '8' |
||||
|
JP Z,B9600 |
||||
|
CP '9' |
||||
|
JP Z,B19200 |
||||
|
CALL ILPRTB |
||||
|
DB ' ',0 |
||||
|
POP HL |
||||
|
JP NEXT ; Go get next byte from read buffer |
||||
|
|
||||
|
B300: CALL ILPRTB |
||||
|
DB ' 3',0 |
||||
|
JP BFINISH |
||||
|
|
||||
|
B1200: CALL ILPRTB |
||||
|
DB ' 12',0 |
||||
|
JP BFINISH |
||||
|
|
||||
|
B2400: CALL ILPRTB |
||||
|
DB ' 24',0 |
||||
|
JP BFINISH |
||||
|
|
||||
|
B4800: CALL ILPRTB |
||||
|
DB ' 48',0 |
||||
|
JP BFINISH |
||||
|
|
||||
|
B9600: CALL ILPRTB |
||||
|
DB ' 96',0 |
||||
|
JP BFINISH |
||||
|
|
||||
|
B19200: CALL ILPRTB |
||||
|
DB ' 192',0 |
||||
|
|
||||
|
BFINISH:CALL ILPRTB |
||||
|
DB '00 bps ',0 |
||||
|
POP HL |
||||
|
JP NEXT |
||||
|
|
||||
|
; |
||||
|
; Display time and date |
||||
|
; |
||||
|
DSPDAT: LD A,(CLOCK) ; Clock enabled? |
||||
|
OR A |
||||
|
LD A,(COLUMN) |
||||
|
JP Z,SEND ; No, leave caller's name alone |
||||
|
CP 52 |
||||
|
JP C,SEND ; Print the date |
||||
|
JP NZ,DSPTIM |
||||
|
CALL PRTSPC ; Keep our distance from next field |
||||
|
JP SEND |
||||
|
|
||||
|
DSPTIM: CP 58 |
||||
|
JP C,SEND ; Print the time |
||||
|
JP NZ,SEND |
||||
|
CALL PRTSPC ; Keep our distance from next field |
||||
|
|
||||
|
; |
||||
|
; Display character in B |
||||
|
; |
||||
|
SEND: LD A,B ; Get the character back |
||||
|
CALL TYPE ; Display it |
||||
|
JP NEXT |
||||
|
|
||||
|
; |
||||
|
; Reached end of entry. Send CR,LF and reset pointers |
||||
|
; |
||||
|
SENDLF: LD A,CR ; Output CR |
||||
|
CALL TYPE |
||||
|
LD A,LF ; And LF for next line |
||||
|
CALL TYPE |
||||
|
XOR A ; Enable page pauses for output |
||||
|
JP $+5 |
||||
|
|
||||
|
SENDLF1:LD A,1 |
||||
|
CALL CKABRT ; Check for aborts/pauses |
||||
|
XOR A ; Start new line |
||||
|
LD (COLUMN),A ; And indicate column 0 |
||||
|
LD DE,DBUF+80 ; Beginning of write buffer again |
||||
|
POP BC ; Number of characters left in buffer |
||||
|
POP HL ; Current read buffer address |
||||
|
POP AF ; Were there any characters left? |
||||
|
JP Z,NXTRCD ; No, get next record |
||||
|
JP WRTBYT ; Else get next character |
||||
|
|
||||
|
; |
||||
|
; S u b r o u t i n e s |
||||
|
;----------------------- |
||||
|
; |
||||
|
; Routine to display a space - saves character in A on entry |
||||
|
; |
||||
|
PRTSPC: PUSH AF |
||||
|
LD A,' ' |
||||
|
CALL TYPE |
||||
|
POP AF |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
; Transfer is done - close destination file |
||||
|
; |
||||
|
TDONE: LD C,CLOSE |
||||
|
LD DE,FILE |
||||
|
CALL BDOS |
||||
|
CALL ERXIT |
||||
|
DB CR,LF |
||||
|
DB '-- End of listing','$' |
||||
|
|
||||
|
; |
||||
|
RDERR: CALL ILPRTB |
||||
|
DB CR,LF |
||||
|
DB '-- Read Error: ',0 |
||||
|
LD HL,FILE+1 |
||||
|
CALL SHONM4 |
||||
|
JP EXIT |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; These next are just to satisfy ZMDSUBS external requests. Leave alone. |
||||
|
; |
||||
|
DONE:: JP EXIT |
||||
|
TIME:: RET |
||||
|
; |
||||
|
; |
||||
|
; Initialized storage area |
||||
|
;-------------------------- |
||||
|
; |
||||
|
COLUMN: DB 0 ; Column of ZMD.LOG line |
||||
|
STORE: DB 0 |
||||
|
SHOWALL:DB 0 ; 1=all transfers, 0=uploads only |
||||
|
|
||||
|
|
||||
|
END |
||||
|
|
||||
@ -0,0 +1,298 @@ |
|||||
|
; |
||||
|
|
||||
|
TITLE ZNEWS.Z80 - 09/29/88 - ZMD Sysop Transfer Log Utility |
||||
|
; Copyrighted (c) 1987, 1988 |
||||
|
; Robert W. Kramer III |
||||
|
|
||||
|
PAGE |
||||
|
;- -; |
||||
|
; Update History ; |
||||
|
; ; |
||||
|
; Date Release Comments ; |
||||
|
; -------- ------- ---------------------------------------------- ; |
||||
|
; ; |
||||
|
; 09/29/88 v1.50 - Fixed problem that caused a 'ZMD .L$$' file ; |
||||
|
; to not be deleted from directory after aborted ; |
||||
|
; sessions. ; |
||||
|
; - Also, was moving 9 filename bytes intead of 8, ; |
||||
|
; this is what caused the mysterious filename of ; |
||||
|
; '.L$$' as mentioned above. The filename left ; |
||||
|
; in the directory should have been '.$$$'. ; |
||||
|
; - Some minor cosmetic changes. ; |
||||
|
; 03/18/88 v1.49 - No change(s) made to this file ; |
||||
|
; 03/13/88 v1.48 - Redefined buffer table at end of programs. STACK; |
||||
|
; and filename buffers now EQUated with offsets ; |
||||
|
; from the last switch/toggle in program instead ; |
||||
|
; of with DS directive. ; |
||||
|
; 02/25/88 v1.47 - No change(s) made to this file |
||||
|
; 01/27/88 v1.46 - Some changes were made to ZMDSUBS file that are ; |
||||
|
; not directly related to this file ; |
||||
|
; 01/17/88 v1.45 - First public release ; |
||||
|
; 11/19/87 v1.00 - Initial version ; |
||||
|
;- -; |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; EXTERNAL Declarations: | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
EXTRN CASEFLG,CKABRT,CLEARIT,CMDBUF,DESC,DSTOR,DSTOR1,ERXIT |
||||
|
EXTRN EXIT,ILPRTB,INPUT,LNLNGTH,NOFILE,NOLOG,NOROOM,OLDDRV |
||||
|
EXTRN OLDUSR,OLINE,PRINTV,RECAR1,RECDR1,RENFCB,RERROR,RSDMA |
||||
|
EXTRN SHONM4,STACK,TDONE,UCASE |
||||
|
|
||||
|
; |
||||
|
;-------------------------------------------------------------------------; |
||||
|
; Program Starts Here | |
||||
|
;-------------------------------------------------------------------------; |
||||
|
|
||||
|
|
||||
|
.Z80 |
||||
|
ASEG |
||||
|
ORG 100H ; Program starts |
||||
|
JP BEGIN ; Jump around configuration table |
||||
|
INCLUDE ZMDHDR.Z80 ; Include the ZMD header overlay |
||||
|
.REQUEST ZMDSUBS ; Include the ZMD subroutines |
||||
|
|
||||
|
; |
||||
|
; |
||||
|
; Save CP/M stack, initialize new one for this program |
||||
|
; |
||||
|
BEGIN: LD (STACK),SP ; Save current CCP stack address |
||||
|
LD SP,STACK ; Initialize new one for this program |
||||
|
|
||||
|
; |
||||
|
; Get current drive/user area and store for later |
||||
|
; |
||||
|
LD A,255 ; Get current user area |
||||
|
CALL RECAR1 |
||||
|
LD (OLDUSR),A ; Save it |
||||
|
LD C,CURDRV ; Get current drive |
||||
|
CALL BDOS |
||||
|
LD (OLDDRV),A ; Save it |
||||
|
|
||||
|
; |
||||
|
; Display program name, version, and copyright notice |
||||
|
; |
||||
|
BEGIN1: LD HL,SYSNEW |
||||
|
CALL PRINTV |
||||
|
|
||||
|
LD A,(LOGCAL) ; Log file enabled? |
||||
|
OR A |
||||
|
JP Z,NOLOG ; No, then don't run program |
||||
|
|
||||
|
LD A,(GOTLAST) ; Already located last entry? |
||||
|
OR A |
||||
|
JP NZ,GTNEW ; Yes, then just show it |
||||
|
LD (DESWAIT),A ; Disable sleepy caller time out |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB 'Working.',0 |
||||
|
|
||||
|
; |
||||
|
; Log into log file drive/user |
||||
|
; |
||||
|
LD A,(LOGUSR) ; User area to find ZMD.LOG |
||||
|
CALL RECAR1 |
||||
|
LD A,(LOGDRV) ; Drive to find ZMD.LOG |
||||
|
CALL RECDR1 |
||||
|
|
||||
|
; |
||||
|
; Open 'ZMD .LOG' file |
||||
|
; |
||||
|
LD DE,LOGNAM ; Current log filename |
||||
|
LD HL,FILE ; Internal FCB |
||||
|
CALL RENFCB ; Initialize |
||||
|
|
||||
|
LD DE,FILE |
||||
|
LD C,OPEN ; Open log file |
||||
|
CALL BDOS |
||||
|
INC A ; ZMD.LOG file exist? |
||||
|
LD HL,LOGNAM |
||||
|
JP Z,NOFILE ; No, inform user and exit to CP/M |
||||
|
|
||||
|
; |
||||
|
; Open 'ZMD .$$$' file |
||||
|
; |
||||
|
LD DE,TEMPFIL ; Current '$$$' filename |
||||
|
LD HL,DEST ; Internal FCB |
||||
|
CALL RENFCB ; Initialize |
||||
|
|
||||
|
LD HL,FILE+1 ; Point to log filename |
||||
|
LD DE,DEST+1 ; And temporary filename |
||||
|
LD BC,8 ; Set to move filename bytes only |
||||
|
LDIR |
||||
|
|
||||
|
LD C,OPEN ; Open new log file |
||||
|
LD DE,DEST |
||||
|
CALL BDOS |
||||
|
INC A ; Did file already exist? |
||||
|
|
||||
|
LD C,DELETE ; Prepare for delete |
||||
|
LD DE,DEST |
||||
|
CALL NZ,BDOS ; Yes, delete existing file |
||||
|
|
||||
|
LD C,MAKE ; Make new temporary file |
||||
|
LD DE,DEST |
||||
|
CALL BDOS |
||||
|
INC A |
||||
|
LD HL,DEST+1 |
||||
|
JP Z,NOROOM ; Exit if no more disk space |
||||
|
|
||||
|
; |
||||
|
; Read record from ZMD.LOG file |
||||
|
; |
||||
|
LD DE,CMDBUF ; Point to last log entry buffer |
||||
|
|
||||
|
RDRECD: PUSH DE ; Save current buffer position |
||||
|
CALL RSDMA ; Reset DMA |
||||
|
LD DE,FILE |
||||
|
LD C,READ |
||||
|
CALL BDOS |
||||
|
POP DE ; Last entry buffer address |
||||
|
OR A ; Read ok? |
||||
|
JP NZ,RERROR ; No |
||||
|
|
||||
|
; |
||||
|
; Now look for the end of the file overwriting OLINE with each entry found |
||||
|
; (from LF to LF). Upon ^Z (EOF) display last entry and get prompt for new |
||||
|
; one |
||||
|
; |
||||
|
LD HL,TBUF |
||||
|
|
||||
|
WRDLP: LD A,(HL) ; Get a character |
||||
|
AND 7FH |
||||
|
CP 7FH ; Delete character? |
||||
|
JP Z,NEXT ; Yes, don't store this character |
||||
|
|
||||
|
CP EOF ; End of file? |
||||
|
JP Z,GTNEW ; Yes, display last entry and get new one |
||||
|
|
||||
|
LD (DE),A ; Else store character in last entry buffer |
||||
|
INC DE ; Next positition in last entry buffer |
||||
|
CP LF ; Was it a line feed? |
||||
|
JP NZ,NEXT ; No, get next character |
||||
|
|
||||
|
; |
||||
|
; Check periodically (every LF) for user abort |
||||
|
; |
||||
|
LD A,1 ; Disable page pausing |
||||
|
CALL CKABRT ; Check for user requests |
||||
|
LD A,'$' ; Terminator for BDOS print function |
||||
|
LD (DE),A ; At end of last entry string |
||||
|
|
||||
|
PUSH HL |
||||
|
LD HL,CMDBUF |
||||
|
CALL DSTOR1 |
||||
|
POP HL |
||||
|
LD DE,CMDBUF |
||||
|
|
||||
|
NEXT: INC L |
||||
|
JP Z,RDRECD |
||||
|
JP WRDLP |
||||
|
|
||||
|
; |
||||
|
; Get new entry to ZMD.LOG. First display the last entry added to the file |
||||
|
; for use as a typing guide. |
||||
|
; |
||||
|
GTNEW: CALL ILPRTB |
||||
|
DB CR |
||||
|
DB 'Current format of ',0 |
||||
|
|
||||
|
LD HL,LOGNAM ; Point to log filename |
||||
|
CALL SHONM4 |
||||
|
|
||||
|
CALL SHWLAST ; Show last entry in log file |
||||
|
LD A,1 |
||||
|
LD (GOTLAST),A ; Show we've found/displayed last entry |
||||
|
|
||||
|
; |
||||
|
; Get the new entry. Process input - CR terminates entry. |
||||
|
; |
||||
|
LD A,79 |
||||
|
LD (LNLNGTH+1),A ; Set for up to 79 character string |
||||
|
LD (WRAP),A ; Disable word wrap |
||||
|
LD (CASEFLG),A ; Convert all input to uppercase |
||||
|
CALL DESC ; Go get string |
||||
|
LD A,0 |
||||
|
LD (CASEFLG),A ; Disable uppercase lock |
||||
|
JP Z,NOCHANG ; Z=CR entered on blank line |
||||
|
LD (HL),'$' ; Place a '$' for BDOS print function |
||||
|
|
||||
|
; |
||||
|
; Done with entry, ask for verification before writing to disk |
||||
|
; |
||||
|
CALL ILPRTB |
||||
|
DB CR,LF |
||||
|
DB ' Repeating to verify:',0 |
||||
|
|
||||
|
CALL SHWLAST ; Show last entry |
||||
|
LD DE,OLINE ; Point to new entry buffer |
||||
|
LD C,PRINT ; BDOS print function |
||||
|
CALL BDOS |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB CR,LF |
||||
|
DB 'Correct? (Y/N): ',0 |
||||
|
|
||||
|
GETOK1: CALL INPUT ; Get repsonse |
||||
|
CALL UCASE ; Convert to uppercase |
||||
|
CP 'N' ; No? |
||||
|
JP NZ,GETOK2 ; Yes, all done |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB 'No.' |
||||
|
DB CR,LF,0 |
||||
|
JP BEGIN1 |
||||
|
|
||||
|
GETOK2: CP 'Y' ; Yes? |
||||
|
JP NZ,GETOK1 ; Loop until we get a yes or no |
||||
|
|
||||
|
CALL ILPRTB |
||||
|
DB CR |
||||
|
DB 'Writing log entry to ',0 |
||||
|
LD HL,LOGNAM |
||||
|
CALL SHONM4 |
||||
|
CALL ILPRTB |
||||
|
DB '...',0 |
||||
|
CALL DSTOR ; Go store it in disk buffer |
||||
|
JP TDONE ; Transfer to disk |
||||
|
; |
||||
|
; |
||||
|
;------------------- |
||||
|
; UTILITIES SECTION |
||||
|
;------------------- |
||||
|
; |
||||
|
NOCHANG:CALL ILPRTB ; Else nothing typed, abort |
||||
|
DB CR,LF |
||||
|
DB '-- Log entry aborted... ',0 |
||||
|
|
||||
|
LD C,DELETE |
||||
|
LD DE,DEST |
||||
|
CALL BDOS ; Clean up (Erase 'ZMD .$$$' file) |
||||
|
|
||||
|
JP EXIT |
||||
|
|
||||
|
; |
||||
|
; Show last entry in ZMD.LOG file |
||||
|
; |
||||
|
SHWLAST:CALL ILPRTB |
||||
|
DB CR,LF,LF,0 |
||||
|
LD DE,CMDBUF ; Point to last entry buffer |
||||
|
LD C,PRINT ; BDOS print function |
||||
|
JP BDOS |
||||
|
|
||||
|
; |
||||
|
; These next are just dummy routines to satisfy external ZMDSUBS requests. |
||||
|
; They do nothing but leave alone. |
||||
|
; |
||||
|
DONE:: JP EXIT |
||||
|
TIME:: RET |
||||
|
|
||||
|
|
||||
|
GOTLAST:DB 0 |
||||
|
|
||||
|
|
||||
|
END |
||||
|
|
||||
Loading…
Reference in new issue