Category : Assembly Language Source Code
Archive   : OLXMODEM.ZIP
Filename : XMODEM.ASM

TITLE 'MODEM FOR THE IBM PERSONAL COMPUTER: PC/DOS'
PAGE 63,132
;
;* M O D E M - - FOR THE IBM PERSONAL COMPUTER *
;* *
;* This program was developed from *
;* MODEM.ASM (Version 3.0) *
;* for CP/M to CP/M file transfers *
;* BY Ward Christensen (CPM-UG Disk # 25) *
;* Refer to the last section of this source file for *
;* a complete modification history and credits to *
;* those who contributed to this version. *
;* *
;* N O T I C E *
;* This program is supplied for your personal and *
;* non-commercial use only. No commercial use permitted. *
;* Users of this program are granted limited rights to *
;* reproduce and distribute this program, provided *
;* the following conditions are met: *
;* *
;* 1) This program must be supplied in original form, *
;* with no modifications. *
;* 2) Notices contained in this source file, and those *
;* produced by the executable program, must not be *
;* altered or removed. *
;* 3) This program may not be sold. Providing this *
;* program for consideration of any sort, including *
;* copying or distribution fees, is prohibited. *
;* 4) This program may not be used on timesharing *
;* systems where fees are charged for access, *
;* or or supplied as part of any other form of *
;* rental access computing, without the express *
;* written permission of the author. *
;* *
;* PLEASE SEND PROBLEM REPORTS AND SUGGESTIONS *
;* TO: John Chapman *
;* 844 S. Madison St. *
;* Hinsdale, Illinois 60521 *
;* Compuserve = 70205,1217 *
SUBTTL MACRO DEFINITIONS
page
;
DOSCALL MACRO FUNCTION,AREA ;INVOKE DOS SERVICE
IFNB
MOV DX,OFFSET AREA ;SET PARAMETER OFFSET
ENDIF
MOV AH,FUNCTION ;DOS FUNCTION CODE
INT 21H ;INVOKE DOS SERVICE
ENDM
;
PRCHAR MACRO CHAR ;PRINT A CHARACTER
IFNB
MOV DL,CHAR ;CHAR TO DL REG
ENDIF
DOSCALL DSPLO ; DOS PRINT CHARACTER FUNCTION
ENDM
;
SCROLL MACRO
MOV AX,600H ;AH=6 SCROLL, AL=0 ENTIRE WINDOW
INT 10H ;INVOKE BIOS SCROLL ROUTINE
ENDM
;
LOCATE MACRO
MOV AH,2 ;BIOS FUNCTION SELECT
MOV BH,0 ;USE SCREEN 0
INT 10H ;INVOKE BIOS CURSOR POSITIONING
ENDM
;
;
SUBTTL EQUATES
page
;
CANFLG EQU 1 ;NO CANCEL ABILITY
;
MODSNDB EQU 020H ;BIT TO TEST FOR SEND
MODSNDR EQU 020H ;VALUE WHEN READY
MODRCVB EQU 001H ;BIT TO TEST FOR RECEIVE
MODRCVR EQU 001H ;VALUE WHEN READY
;
BAUDRAT EQU 0C2H ;BAUD RATE OUTPUT
DTREADY EQU 01H ;MCR FLAG FOR DTR UP
;
;ORIGMOD EQU 1DH ;8 DATA, NO PARITY, ORIG
;ANSWMOD EQU 1EH ;8 DATA, NO PARITY, ANSW
;
INITREQ EQU 0 ;MODEM INIT. REQ'D?INITC1 EQU 64H ;FIRST INIT CHAR TO CTL PORT
INITC2 EQU 64H ;2ND INIT CHAR TO CTL PORT
;
FASTCLK EQU 1 ;PUT 1 HERE FOR 4 MHZ CLOCK
ERRLIM EQU 10 ;MAX ALLOWABLE ERRORS
EXITCHR EQU 'W'-40H ;CTL-W EXIT FROM T OR C
DISCCHR EQU 'D'-40H ;CTL-D DISCONNECTS MODEM T/C
CTLCCHR EQU 'I'-40H ;CTL-C REPLACEMENT (temporary)
CTLCHAR EQU 03H ;CTL-C ACTUAL (temporary)
;
;DEFINE ASCII CHARACTERS USED
;
SOH EQU 01H ;START OF HEADER
EOT EQU 04H ;END OF TRANSMISSION
ACK EQU 06H ;ACKNOWLEDGE
LF EQU 0AH ;LINEFEED
CR EQU 0DH ;CARRIAGE RETURN
NAK EQU 15H ;NEG ACKNOWLEDGE
CAN EQU 18H ;CANCEL
FF EQU 0CH ;FORM FEED (clear screen)
PAGE
;
; PC DOS EQUATES (VERSION 1.1)
;
REIPL EQU 0 ;PROGRAM TERMINATE
RDCON EQU 1 ;KEYBOARD INPUT
WRCON EQU 2 ;DISPLAY OUTPUT
PRTCHR EQU 5 ;PRINTER OUTPUT, CHAR IN DL
DCON EQU 6 ;DIRECT CONSOLE I/O
PRINT EQU 9 ;PRINT STRING
CONST EQU 11 ;CONSOLE STAT
OPEN EQU 15 ;0FFH=NOT FOUND
CLOSE EQU 16 ; " "
SRCHF EQU 17 ; " "
SRCHN EQU 18 ; " "
ERASE EQU 19 ;NO RET CODE
READ EQU 20 ;0=OK, 1=EOF
WRITE EQU 21 ;0=OK, 1=ERR, 2=?, 0FFH=NO DIR SPC
MAKE EQU 22 ;0FFH=BAD
REN EQU 23 ;0FFH=BAD
STDMA EQU 26 ;SET DMA
FATADDR EQU 27 ;FILE ALLOCATION TABLE ADDRESS
;
;
; d o s f u n c t i o n s
;
;
DSPLO EQU 2
PSTRING EQU 9
DRESET EQU 0DH
SELDSK EQU 0EH
SRCHF EQU 11H
SRCHN EQU 12H
CDISK EQU 19H
SETDTA EQU 1AH
FATADDR EQU 1BH
SETINTV EQU 25H
GETDATE EQU 2AH
GETTIME EQU 2CH
;
;
;
; PC DOS FCB EQUATES (VERSION 1.1)
;
INT20H EQU DS:00H
FCB EQU DS:5CH
FCBNAME EQU DS:5DH
FCBEXT EQU DS:65H
FCBSZL EQU DS:6CH
FCBSZH EQU DS:6DH
FCBCR EQU DS:7CH
FCBRR EQU DS:7DH
FCB2 EQU DS:6CH
SUBTTL 'PREFIX, CONSTANTS AND WORKAREA'
PAGE
MODEM SEGMENT PUBLIC 'CODE'
ASSUME CS:MODEM,DS:MODEM,ES:MODEM
;
; ----------------
; START OF ACTUAL PROGRAM AREA
; ----------------
ORG 100H
MAIN PROC FAR
JMP STARTS
OPTION DB 0 ;PRIMARY OPTION
;
;DATAFLG IS USED BY THE "V" SUBCOMMAND -
;IT IS 0 WHEN A HEADER OR CKSUM IS BEING
;SENT/RCD, AND 1 IF "VIEWABLE" DATA (THE
;SECTOR ITSELF) IS
;
DATAFLG DB 0 ;AT HEADER, FIRST
;
;
;SUB-OPTION TABLE. IF AN OPTION IS IN EFFECT,
; THE CHARACTER IS SET TO BINARY 0
;
OPTBL EQU OFFSET $
ANSWFLG DB 'A' ;ANSWER MODE
DISCFLG DB 'D' ;DISCONNECT WHEN DONE
ECHOFLG DB 'E' ;TO ECHO AFTER XFER
DUMYFLG DB 'U' ;DEFAULT UART FLAG
INITFLG DB 'I' ;TO INIT THE UART / MODEM
ORIGFLG DB 'O' ;ORIGINATE MODE
QFLG DB 'Q' ;QUIET TRANSFER (NO MSGS)
RSEEFLG DB 'R' ;SEE WHAT'S RECEIVED
SSEEFLG DB 'S' ;SEE WHAT'S SENT
TERMFLG DB 'T' ;TO TERM AFTER XFER
VSEEFLG DB 'V' ;VIEW MESSAGES (NO HDR, ETC)
urt2flg db '2' ;second UART
urt3flg db '3' ;third UART
OPTBE EQU OFFSET $ ;END OF OPTIONS
;
TABLESIZE EQU OPTBE-OPTBL
;
;------------------------------------------------------------------
; ** added for COM1/2/3 Select support for PC 8/82/jac
;------------------------------------------------------------------
;
;
OFFDATP EQU 0 ;DATA PORT OFFSET
OFFCTLP EQU 5 ;MODEM STATUS REGISTER OFFSET
OFFCTL2 EQU 4 ;MODEM CONTROL REGISTER OFFSET
OFFCTL3 EQU 3 ;LINE CONTROL REGISTER OFFSET
;
;
BASE1U dw 03f8h ;base address uart 1 (COM1)
base2u dw 02F8h ;base address uart 2 (COM2)
base3u dw 01F8h ;base address uart 3 (COM3) ??NOT TESTED??;
;
MODDATP dw 0 ;3F8H ;DATA PORT
MODCTLP dw 0 ;3FDH ;MODEM STATUS REGISTER
MODCTL2 dw 0 ;3FCH ;MODEM CONTROL REGISTER
MODCTL3 dw 0 ;3FBH ;LINE CONTROL REGISTER
;
;
RCVSNO DB 0 ;SECT # RECEIVED
SECTNO DB 0 ;CURRENT SECTOR NUMBER
ERRCT DB 0 ;ERROR COUNT
;
; FOLLOWING 3 USED BY DISK BUFFERING ROUTINES
;
EOFLG DB 0 ;EOF FLAG (1=TRUE)
SECPTR DW DBUF
SECINBF DB 0 ;# OF SECTORS IN BUFFER
;
; HELP MSGS
;
;
msg00 db cr,lf
db '+---------------------------------------------------------------------+',cr,lf
db '| F |',cr,lf
db '| M O D E M - - FOR THE IBM PERSONAL COMPUTER (PC/DOS 1.1) |',cr,lf
db '| |',cr,lf
DB '| All Rights Reserved |',cr,lf
db '|---------------------------------------------------------------------|',cr,lf
db '| |',cr,lf
db '| N O T I C E : Commercial use forbidden. |',cr,lf
db '| |',cr,lf
db '| This program is provided for personal and non-commercial use only. |',cr,lf
db '| Sale is forbidden. Users of this program are granted |',cr,lf
db '| limited rights to reproduce and distribute this program, provided |',cr,lf
db '| that a) the program is not sold, or provided for consideration |',cr,lf
db '| of any sort, including copying or distribution fees greater than |',cr,lf
db '| the face value of the media and postage. and b) the program is |',cr,lf
db '| provided in unmodified form, with this notice, and all other |',cr,lf
db '| documentation intact. |',cr,lf
db '| |',cr,lf
db '+---------------------------------------------------------------------+',cr,lf
db cr,lf,0,1
;
;
MSG01 DB CR,LF
; 1234567890123456789012345678901234567890123456789012345678901234567890
DB '---- M O D E M ---- ',cr,lf,cr,lf
db 'Converted from MODEM 3.0 by Ward Christensen ',cr,lf
DB 'Sale, or any other commercial use forbidden',cr,lf
DB 'Version 3.2 for IBM PC/DOS',cr,lf
DB ' R E A D Y ',cr,lf
db cr,lf,'$',1,0
MSG01A DB 'File Open, Ready to Receive',CR,LF,0
MSG02 DB 'Awaiting #',0
MSG03A DB 'h rcd, not soh',CR,LF,0
MSG03 DB '+++ TIMEOUT +++',0
MSG04 DB '++ Bad Sector # in Hdr',CR,LF,0
MSG05 DB '++ CKSUM ++',0
MSG06 DB 'Send # ',0
MSG07 DB 'h rcvd, not ack ',CR,LF,0
MSG08 DB 'Timeout on ack',CR,LF,0
MSG09 DB 'Modem Program Cancelled ',CR,LF,0
MSG10 DB 'File exists, Type Y to erase ',0
MSG11 DB 'Can not open file$'
MSG12 DB 'File open, Extent Length ',0
MSG13 DB 'Awaiting Initial nak',CR,LF,0
MSG14 DB cr,lf,'Transfer Complete',CR,LF,0
MSG15 DB cr,lf,'Press Return to Disconnect',0
MSG16 DB '++ DISCONNECTED ++',0
MSG17 DB cr,lf,'++ Do not Forget - The Modem is'
DB 'NOT Disconnected',CR,LF,0
; DB 'Use "M3 D" to Disconnect',CR,LF,0
MSG18 DB 'Multiple errors encountered. '
DB 'Type Q to quit, R to Retry ',0
MSG19 DB CR,LF,'Press Return to Continue'
DB CR,LF,0
MSG20 DB '++ Unable to Receive Block'
DB CR,LF,'++ ABORTING ++$'
MSG21 DB 'Can not Send Sector '
DB '- ABORTING',CR,LF,'$'
MSG22 DB '++ ERROR - Can not make file',CR,LF
DB '++ Directory must be full',CR,LF,'$'
MSG22A DB '++ Can not Close Files ++$'
MSG23 DB '++ File Read ERROR ++$'
MSG24 DB '++ ERROR Writing File ++',CR,LF,'$'
MSG25 DB 'Invalid option on modem command',CR,LF
DB 'PRESS RETURN FOR HELP, CTL-C IF NOT',CR,LF,1,0
MSG26 DB 'Format for command is',CR,LF,CR,LF
DB 'MODEM # FILENAME',CR,LF,CR,LF
DB 'Where # is a 1 character primary option,',CR,LF
DB ' which may be followed by sub-options,',CR,LF
; DB ' and by ".xxx" to set baud rate to xxx'
DB CR,LF,CR,LF,1
DB 'Primary Options',CR,LF
DB ' S to send a file',CR,LF
DB ' R to receive a file',CR,LF
DB ' T to act as a terminal',CR,LF
DB ' E to act as a computer (echo data)',CR,LF
; DB ' D to disconnect the phone'
; DB ' (S100 modems only)',CR,LF
DB ' H to print this help file'
DB CR,LF,CR,LF,1
DB 'Secondary options',CR,LF
; DB ' A answer mode',CR,LF
; DB ' O originate mode',CR,LF
; DB ' D disconnect after execution',CR,LF
; DB ' I initialize uart to defaults 300,n,8,1',CR,LF
DB ' T go to terminal mode after file xfer',CR,LF
DB ' E go to echo mode after file xfer',CR,LF
DB ' Q quiet mode - no status msgs',CR,LF
DB ' R show chars received',CR,LF
DB ' S show chars sent',CR,LF
DB ' V view file sent/received (no status)',CR,LF
; DB ' 2 switch to COM2: - second rs232 port',CR,LF
; DB ' 3 switch to COM3: - third rs232 port',CR,LF
DB CR,LF,'FOR EXAMPLES, TYPE MODEM X',CR,LF,1,0
MSG27 DB 'Send file, ',CR,LF
DB ' MODEM S fn.ft',CR,LF
DB 'Send another file',CR,LF
DB ' MODEM S fn.ft',CR,LF
; DB 'Then send a third file at 450 baud and disconnect'
; DB CR,LF,' MODEM SD.450 fn.ft',CR,LF
DB 'Act as a terminal ',CR,LF
DB ' MODEM T',CR,LF
DB ' Use ctl-D to disconnect)',CR,LF
DB 'Receive file, view it',CR,LF
DB ' MODEM RV fn.ft',CR,LF,1,0
;
DBUF DB 128*16 DUP(?) ;16 LOGICAL SECTOR BUFFER # 1
; (* Four physical sectors)
DB 128*16 DUP(?) ;16 LOGICAL SECTOR BUFFER # 2
; (* Four physical sectors)
TOTAL = one track on PC/DOS (8/512)
; DB 'POOT'
SUBTTL 'MAIN PROGRAM SECTION'
PAGE
STARTS:
;
;=============================================================================
;
; CLEAR THE SCREEN (cursor = 1,1)
;
push dx
SUB CX,CX ;UPPER LEFT CORNER
MOV DX,184FH ;BOTTOM RIGHT CORNER
MOV BH,7 ;NORMAL ATTRIB FOR CLS
SCROLL ;INVOKE BIOS TO CLEAR SCREEN
SUB DX,DX ;POINT TO ROW 1,COL 1
LOCATE ;SET THE CURSOR TO TOP LEFT
;
; PRINT THE STARTUP MESSAGE
;
MOV DX,OFFSET MSG01 ;GET ID MESSAGE
MOV CL,PRINT
CALL BDOS ;PRINT ID MESSAGE
pop dx
;
;=============================================================================
;
;
;SAVE PRIMARY OPTION, VALIDATE SECONDARY OPT.
;
CALL PROCOPT
; IF WE RETURN FROM PROCOPT, A VALID
; ACTION OPTION (not help or examples)
; WAS FOUND .. PROCESSING CONTINUES
;
;INIT THE MODEM OR SERIAL PORT (dtr UP always - THEN CHECK FOR "i" OPT.
;
CALL INITMOD
;
;MOVE THE FILENAME FROM FCB 2 TO FCB 1
;
CALL MOVEFCB
;
;
;GOBBLE UP GARBAGE CHARS FROM THE LINE
;PRIOR TO RECEIVE OR SEND
;
PUSH DX
MOV DX,MODDATP
IN AL,DX
IN AL,DX
POP DX
;
;JMP TO APPROPRIATE FUNCTION
;
MOV AL,OPTION ;GET PRIMARY OPTION
;
CMP AL,'C' ;(COMPAT W/EARLIER
JNZ L00001
JMP TRMECHO ;OPTION "COMPUTER")
;
L00001: CMP AL,'E' ;TERMINAL IN ECHO
JNZ L00002
JMP TRMECHO ;..MODE?;
L00002: CMP AL,'T' ;TERMINAL..
JNZ L00003

JMP TERM ;..MODE?;
L00003 LABEL NEAR
; CMP AL,'D'
; JNZ L00004
; JMP DISCONN
;L00004 LABEL NEAR
;
CMP AL,'S' ;SEND..
JNZ L00005
JMP SENDFIL ;..A FILE?;
L00005: CMP AL,'R' ;RECEIVE..
JNZ L00006
JMP RCVFIL ;..A FILE?;
;INVALID OPTION
;

L00006: JMP BADOPT ;BAD OPTIONS !
;
;RETURN TO PC DOS VIA INT 20H IN SEGMENT PREFIX
;
EXIT: PUSH ES ;SET RETURN SEGMENT TO STACK
SUB AX,AX ;CLEAR A REGISTER
PUSH AX ;PUT ZERO RETURN ADDR TO STACK
RET ;FAR RETURN TO FORCE CS TO ...
MAIN ENDP ;.. POINT TO SEGMENT PREFIX
; * * * * * * * * * * * * * * * * * * * *
; *
; TERM: TERMINAL MODE *
; *
; * * * * * * * * * * * * * * * * * * * *
;
;THIS PROGRAM SIMPLY SENDS KEYED CHARACTERS
;DOWN THE LINE, AND DISPLAYS CHARACTERS
;RECEIVED FROM THE LINE. THIS MAKES IT
;SUITABLE FOR COMMUNICATION WITH TIME SHARING
;COMPUTERS, CBBS'S, OR ANOTHER PROGRAM
;RUNING "MODEM E" (ECHO MODE)
;
;TYPEZZ THE "EXITCHR" (ORIGINALLY CTL-E) TO EXIT.
;OR THE "DISCCHR" (ORIGINALLY CTL-D) TO DISCONN.
;
;A FUTURE ENHANCEMENT WILL BE TO WRITE THE
;RECEIVED DATA IN MEMORY, AND ALLOW IT TO
;BE WRITTEN TO DISK
;
TERM PROC NEAR
CALL STAT ;LOCAL CHAR KEYED? JNZ L00007
JMP TERML ;..NO, CHECK LINE
L00007: CALL KEYIN ;GET CHAR
CMP AL,EXITCHR ;TIME TO END? JNZ L00008
JMP CKDIS ;YES, CK DISCONN
L00008: CMP AL,DISCCHR ;DISCONNECT REQUEST? JNZ L00009
JMP DISCONN ;YES, DO IT
L00009: PUSH DX
MOV DX,MODDATP
OUT DX,AL ;SEND THE CHAR
POP DX
;
;SEE IF CHAR FROM LINE
;
TERML: PUSH DX
MOV DX,MODCTLP
IN AL,DX ;READ STATUS
POP DX
AND AL,MODRCVB ;ISOLATE BIT
CMP AL,MODRCVR ;READY? JZ L00010
JMP TERM ;..NO, LOOP
L00010: PUSH DX
MOV DX,MODDATP
IN AL,DX ;READ DATA
POP DX
CALL TYPEZZ ;TYPEZZ IT
JMP TERM ;LOOP
TERM ENDP
;
; * * * * * * * * * * * * * * * * * * * *
; *
; TRMECHO: TERMINAL WITH ECHO *
; *
; * * * * * * * * * * * * * * * * * * * *
;
;TERMINAL PROGRAM WITH ECHO - SEE NOTES
;UNDER "TERM" ABOVE
;
;C A U T I O N DON'T RUN WITH BOTH COMPUTERS
;IN "ECHO" MODE - LINE ERRORS (OR ANY CHAR)
;WILL BE ECHOED BACK AND FORTH AD INFINITUM.
;
TRMECHO PROC NEAR
PUSH DX
MOV DX,MODCTLP
IN AL,DX ;GET STATUS
POP DX
AND AL,MODRCVB ;ISOLATE READY BIT
CMP AL,MODRCVR ;ARE WE READY? JNZ L00011
JMP LINECHR ;YES, READ THE CHR
L00011: CALL STAT ;CHECK LOCAL KB
JNZ L00012
JMP TRMECHO ;..NO CHAR
L00012: CALL KEYIN ;GET LOCAL CHAR
CMP AL,EXITCHR ;END? JNZ L00013
JMP CKDIS ;YES, CK DISCONN, EXIT
L00013: CMP AL,DISCCHR ;DISCONN? JNZ L00014
JMP DISCONN ;..YES, DO IT.
L00014: PUSH DX
MOV DX,MODDATP
OUT DX,AL ;SEND CHAR
POP DX
CALL TYPEZZ ;ECHO IT LOCALLY
JMP TRMECHO ;..AND LOOP
;
;GOT CHAR FROM LINE
;
LINECHR:
PUSH DX
MOV DX,MODDATP
IN AL,DX ;GET CHAR
OUT DX,AL ;ECHO IT
POP DX
CALL TYPEZZ ;TYPEZZ IT
JMP TRMECHO ;LOOP
TRMECHO ENDP
;
; * * * * * * * * * * * * * * * * * * * *
; *
; SENDFIL: SENDS A CP/M FILE *
; *
; * * * * * * * * * * * * * * * * * * * *
;
;THE CP/M FILE SPECIFIED IN THE MODEM COMMAND
;IS TRANSFERRED OVER THE PHONE TO ANOTHER
;COMPUTER RUNNING MODEM WITH THE "R" (RECEIVE)
;OPTION. THE DATA IS SENT ONE SECTOR AT A
;TIME WITH HEADERS AND CHECKSUMS, AND RE-
;TRANSMISSION ON ERRORS.
;
SENDFIL PROC NEAR
CALL OPENFIL ;OPEN THE FILE
MOV DL,80 ;WAIT 80 SEC..
CALL WAITNAK ;..FOR INITIAL NAK
SENDLP: CALL RDSECT ;READ A SECTOR
JAE L00016
JMP SENDEOF ;SEND EOF IF DONE
L00016: CALL INCRSNO ;BUMP SECTOR #
XOR AL,AL ;ZERO ERROR..
MOV ERRCT,AL ;..COUNT
SENDRPT:
CALL SENDHDR ;SEND A HEADER
CALL SENDSEC ;SEND DATA SECTOR
CALL SENDCKS ;SEND CKSUM
CALL GETACK ;GET THE ACK
JAE L00017
JMP SENDRPT ;REPEAT IF NO ACK
L00017: JMP SENDLP ;LOOP UNTIL EOF
;
;FILE SENT, SEND EOT'S
;
SENDEOF:
MOV AL,EOT ;SEND..
CALL SEND ;..AN EOT
CALL GETACK ;GET THE ACK
JAE L00018
JMP SENDEOF ;LOOP IF NO ACK
L00018: JMP DONE ;ALL DONE
SENDFIL ENDP
;
; * * * * * * * * * * * * * * * * * * * *
; *
; RCVFIL: RECEIVE A FILE *
; *
; * * * * * * * * * * * * * * * * * * * *
;
;RECEIVES A FILE IN BLOCK FORMAT AS SENT
;BY ANOTHER PERSON DOING "MODEM S FN.FT".
;
RCVFIL PROC NEAR
CALL ERASFIL ;ERASE THE FILE
CALL MAKEFIL ;..THEN MAKE NEW
MOV AL,QFLG ;SEE IF IN QUIET MODE
OR AL,AL
JZ L00019
JMP RCVLP ;NOT IN QUIET MODE, SKIP MSG
L00019: PUSH BX
MOV BX,OFFSET MSG01A
CALL ILPRT ;PRINT:
POP BX
RCVLP: CALL RCVSECT ;GET A SECTOR
JAE L00020
JMP RCVEOT ;GOT EOT
L00020: CALL WRSECT ;WRITE THE SECTOR
CALL INCRSNO ;BUMP SECTOR #
CALL SENDACK ;ACK THE SECTOR
JMP RCVLP ;LOOP UNTIL EOF
;
;GOT EOT ON SECTOR - FLUSH BUFFERS, END
;
RCVEOT: CALL WRBLOCK ;WRITE THE LAST BLOCK
CALL SENDACK ;ACK THE SECTOR
CALL CLOSFIL ;CLOSE THE FILE
MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ L00021
JMP CKDIS ;YES, CK DISCONN, END.
L00021: JMP DONE ;DISCONN IF REQ'D
RCVFIL ENDP
;
; * * * * * * * * * * * * * * * * * * * *
; *
; SUBROUTINES *
; *
; * * * * * * * * * * * * * * * * * * * *
;
;
;----> RCVSECT: RECEIVE A SECTOR
;
;RETURNS WITH CARRY SET IF EOT RECEIVED.
;
RCVSECT PROC NEAR
XOR AL,AL ;GET 0
MOV ERRCT,AL ;INIT ERROR COUNT
RCVRPT: MOV AL,QFLG ;QUIET? OR AL,AL
JNZ L00022
JMP RCVSQ ;YES, NO STAT MSG.
L00022: PUSH BX
MOV BX,OFFSET MSG02
CALL ILPRT ;PRINT:
POP BX
MOV AL,SECTNO ;GET SECTOR #
INC AL ;(REAL INR LATER)
CALL HEXO ;PRINT IN HEX
CALL CRLF ;..THEN CRLF
;
RCVSQ: MOV CH,10 ;10 SEC TIMEOUT
CALL RECV ;GET SOH/EOT
JAE L00023
JMP RCVSTOT ;TIMEOUT
L00023: CMP AL,SOH ;GET SOH? JNZ L00024
JMP RCVSOH ;..YES
;
;EARLIER VERS. OF MODEM PROG SENT SOME NULLS -
;IGNORE THEM
;
L00024: OR AL,AL ;00 FROM SPEED CHECK? JNZ L00025
JMP RCVSQ ;YES, IGNORE IT
L00025: CMP AL,EOT ;END OF TRANSFER? STC ;RETURN WITH CARRY..
JNZ L00026
RET ;..SET IF EOT
;
;DIDN'T GET SOH OR EOT -
;
L00026: MOV CH,AL ;SAVE CHAR
MOV AL,VSEEFLG ;VIEWING..
OR AL,AL ;..MODE? JNZ L00027
JMP RCVSEH ;YES, PRT.MSG
L00027: MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ RCVSEH
JMP RCVSERR ;YES, SKIP MSG
RCVSEH: MOV AL,CH ;GET CHAR
CALL HEXO ;SHOW IN HEX
PUSH BX
MOV BX,OFFSET MSG03
CALL ILPRT ;PRINT:
POP BX
;
;DIDN'T GET VALID HEADER - PURGE THE LINE,
;THEN SEND NAK.
;
RCVSERR:
MOV CH,1 ;WAIT FOR 1 SEC..
CALL RECV ;..WITH NO CHARS
JNAE L00029
JMP RCVSERR ;LOOP UNTIL SENDER DONE
L00029: MOV AL,NAK ;SEND..
CALL SEND ;..THE NAK
MOV AL,ERRCT ;ABORT IF..
INC AL ;..WE HAVE REACHED..
MOV ERRCT,AL ;..THE ERROR..
CMP AL,ERRLIM ;..LIMIT? JAE L00030
JMP RCVRPT ;..NO, TRY AGAIN
;
;10 ERRORS IN A ROW -
;
L00030: MOV AL,VSEEFLG ;VIEWING..
OR AL,AL ;..FILE? JNZ L00031
JMP RCVCKQ ;YES, ASK RETRY/QUIT
L00031: MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ RCVCKQ
JMP RCVSABT ;ABORT
RCVCKQ: CALL CKQUIT ;RETRY/QUIT? JNZ RCVSABT
JMP RCVSECT ;TRY AGAIN
;
RCVSABT:
CALL CLOSFIL ;KEEP WHATEVER WE GOT
MOV DX,OFFSET MSG20
CALL ERXIT
;
;TIMEDOUT ON RECEIVE
;
RCVSTOT:
STI
MOV AL,VSEEFLG ;VIEWING..
OR AL,AL ;..MODE? JNZ L00034
JMP RCVSPT ;YES, PRT MSG
L00034: MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ RCVSPT
JMP RCVSERR ;YES, NO MSG
RCVSPT: PUSH BX
MOV BX,OFFSET MSG03
CALL ILPRT
POP BX
RCVPRN: MOV AL,ERRCT ;PRINT ERROR..
CALL HEXO ;..COUNT
CALL CRLF
JMP RCVSERR ;BUMP ERR CT, ETC.
;
;GOT SOH - GET BLOCK #, BLOCK # COMPLEMENTED
;
RCVSOH: MOV CH,1 ;TIMEOUT = 1 SEC
CALL RECV ;GET SECTOR
JAE L00036
JMP RCVSTOT ;GOT TIMEOUT
L00036: MOV DH,AL ;D=BLK #
MOV CH,1 ;TIMEOUT = 1 SEC
CALL RECV ;GET CMA'D SECT #
JAE L00037
JMP RCVSTOT ;TIMEOUT
L00037: NOT AL ;CALC COMPLEMENT
CMP AL,DH ;GOOD SECTOR #? JNZ L00038
JMP RCVDATA ;YES, GET DATA
;
;GOT BAD SECTOR #
;
L00038: MOV AL,VSEEFLG ;VIEWING..
OR AL,AL ;..MODE? JNZ L00039
JMP RCVBSE ;..YES, PRT MSG
L00039: MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ RCVBSE
JMP RCVSERR ;..YES, NO MSG
;
RCVBSE: PUSH BX
MOV BX,OFFSET MSG04
CALL ILPRT ;PRINT:
POP BX
JMP RCVSERR ;BUMP ERROR CT.
;
;
RCVDATA:
MOV AL,DH ;GET SECTOR #
MOV RCVSNO,AL ;SAVE IT
MOV AL,1 ;SHOW..
MOV DATAFLG,AL ;GETTING DATA
MOV CL,0 ;INIT CKSUM
MOV BX,80H ;POINT TO BUFFER
CLI
RCVCHR: MOV CH,1 ;1 SEC TIMEOUT
CALL RECV ;GET CHAR
JAE L00041
JMP RCVSTOT ;TIMEOUT
L00041: MOV BYTE PTR [BX],AL ;STORE CHAR
INC BL ;DONE? JZ L00042
JMP RCVCHR ;NO, LOOP
;
;VERIFY CHECKSUM
;
L00042: MOV DH,CL ;SAVE CHECKSUM
XOR AL,AL ;SHOW..
MOV DATAFLG,AL ;..END OF DATA
MOV CH,1 ;TIMEOUT LEN.
CALL RECV ;GET CHECKSUM
JAE L00043
JMP RCVSTOT ;TIMEOUT
L00043: STI
CMP AL,DH ;CHECKSUM OK? JZ L00044
JMP RCVCERR ;NO, ERROR
;
;GOT A SECTOR, IT'S A DUP IF = PREV,
; OR OK IF = 1 + PREV SECTOR
;
L00044: MOV AL,RCVSNO ;GET RECEIVED
MOV CH,AL ;SAVE IT
MOV AL,SECTNO ;GET PREV
CMP AL,CH ;PREV REPEATED? JNZ L00045
JMP RECVACK ;ACK TO CATCH UP
L00045: INC AL ;CALC NEXT SECTOR #
CMP AL,CH ;MATCH? JZ L00046
JMP ABORT ;NO MATCH - STOP SENDER, EXIT
L00046: RET ;CARRY OFF - NO ERRORS
;
;GOT CKSUM
;
RCVCERR:
MOV AL,VSEEFLG ;VIEWING..
OR AL,AL ;..MODE? JNZ L00047
JMP RCVCPR ;..YES, PRT MSG
L00047: MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ RCVCPR
JMP RCVSERR ;YES, NO MSG
RCVCPR: PUSH BX
MOV BX,OFFSET MSG05
CALL ILPRT
POP BX
JMP RCVPRN ;PRINT ERROR #
;
;PREV SECT REPEATED, DUE TO THE LAST ACK
;BEING GARBAGED. ACK IT SO SENDER WILL CATCH UP
;
RECVACK:
CALL SENDACK ;SEND THE ACK,
JMP RCVSECT ;GET NEXT BLOCK
;
;SEND AN ACK FOR THE SECTOR
;
SENDACK:
MOV AL,ACK ;GET ACK
CALL SEND ;..AND SEND IT
RET
RCVSECT ENDP
;
;----> SENDHDR: SEND THE SECTOR HEADER
;
;SEND: (SOH) (BLOCK #) (COMPLEMENTED BLOCK #)
;
SENDHDR PROC NEAR
MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ L00049
JMP SENDHNM ;YES, SKIP STATUS MSG.
L00049: PUSH BX
MOV BX,OFFSET MSG06
CALL ILPRT ;PRINT:
POP BX
MOV AL,SECTNO ;PRINT..
CALL HEXO ;..SECT #
CALL CRLF ;..THEN CR/LF
;
SENDHNM:
MOV AL,SOH ;SEND..
CALL SEND ;..SOH,
MOV AL,SECTNO ;THEN SEND..
CALL SEND ;..SECTOR #
MOV AL,SECTNO ;THEN SENDOR #
NOT AL ;..COMPLEMENTED..
CALL SEND ;..SECTOR #
RET ;FROM SENDHDR
SENDHDR ENDP
;
;----> SENDSEC: SEND THE DATA SECTOR
;
;WHILE SENDING THE SECTOR, THE "DATAFLG" IS SET
;SUCH THAT IF "V" (VIEW THE FILE) WAS REQUESTED,
;THE "SHOW" ROUTINE WILL PRINT THE DATA, BUT NOT
;THE HDR OR CKSUM, OR ANY NON-FATAL MSGS.
;
SENDSEC PROC NEAR
MOV AL,1 ;SHOW NOW AT DATA..
MOV DATAFLG,AL ;..FOR VIEW COMMAND
MOV CL,0 ;INIT CKSUM
MOV BX,80H ;POINT TO BUFFER
SENDC: MOV AL,BYTE PTR [BX] ;GET A CHAR
CALL SEND ;SEND IT
INC BL ;POINT TO NEXT CHAR
JZ L00050
JMP SENDC ;LOOP IF <100H
L00050: XOR AL,AL ;SHOW NOT INTO DATA..
MOV DATAFLG,AL ;..FOR VIEW COMMAND
RET ;FROM SENDSEC
SENDSEC ENDP
;
;----> SENDCKS: SEND THE CHECKSUM
;
SENDCKS PROC NEAR
MOV AL,CL ;SEND THE..
CALL SEND ;..CHECKSUM
RET ;FROM SENDCKS
SENDCKS ENDP
;
;----> GETACK: GET THE ACK ON THE SECTOR
;
;RETURNS WITH CARRY CLEAR IF ACK RECEIVED.
;IF AN ACK IS NOT RECEIVED, THE ERROR COUNT
;IS INCREMENTED, AND IF LESS THAN "ERRLIM",
;CARRY IS SET AND CONTROL RETURNS. IF THE
;ERROR COUNT IS AT "ERRLIM", THE PROGRAM
;ABORTS IF IN "QUIET" MODE, OR ASKS THE
;USER FOR QUIT/RETRY IF NOT.
;
GETACK PROC NEAR
MOV CH,10 ;WAIT 10 SECONDS MAX
CALL RECVDG ;RECV W/GARBAGE COLLECT
JAE L00051
JMP GESATOT ;TIMED OUT
L00051: CMP AL,ACK ;OK? (CARRY OFF IF =)
JNZ L00052
RET ;YES, RET FROM GETACK
;
L00052 LABEL NEAR
IF CANFLG
CMP AL,CAN ;CANCEL TRANSMISSION? JNZ L00053
JMP ABORT ;..YES
L00053 LABEL NEAR
ENDIF
;
MOV CH,AL ;SAVE CHAR
MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ L00054
JMP ACKERR ;..YES, NO MSG
L00054: MOV AL,CH ;GET CHAR
CALL HEXO ;PRINT IN HEX
PUSH BX
MOV BX,OFFSET MSG07
CALL ILPRT ;PRINT:
POP BX
;
;TIMEOUT OR ERROR ON ACK - BUMP ERROR COUNT
;
ACKERR: MOV AL,ERRCT ;GET COUNT
INC AL ;BUMP IT
MOV ERRCT,AL ;SAVE BACK
CMP AL,ERRLIM ;AT LIMIT? JNB L00055
RET ;NOT AT LIMIT
;
;REACHED ERROR LIMIT
;
L00055: MOV AL,VSEEFLG ;VIEWING..
OR AL,AL ;..FILE? JNZ L00056
JMP GACKV ;YES, ASK QUIT/RETRY
L00056: MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ GACKV
JMP CSABORT ;..YES, NO MCG
GACKV: CALL CKQUIT ;SEE IF WANT TO QUIT
STC ;TO SHOW NO ACK
JNZ CSABORT
RET ;KEEP ON TRYIN'
CSABORT:
MOV DX,OFFSET MSG21
CALL ERXIT
GETACK ENDP
;
;TIMEOUT GETTING ACK
;
GESATOT PROC NEAR
MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ L00059
JMP ACKERR ;YES, NO MSG
L00059: PUSH BX
MOV BX,OFFSET MSG08
CALL ILPRT ;PRINT:
POP BX
JMP ACKERR
GESATOT ENDP
;
;----> CKABORT: CHECK FOR LOCAL ABORT
;
;IF THE USER WANTS TO CANCEL THE TRANSMISSION,
;TYPING CTL-X WILL ABORT IT. NOTE THIS TEST
;IS NOT MADE IF IN QUIET (NO CONSOLE I/O) MODE.
;
CKABORT PROC NEAR
MOV AL,VSEEFLG ;VIEWING? OR AL,AL
JNZ L00060
JMP CKABGO ;YES, CHECK
L00060: MOV AL,QFLG ;SUPPRESSED..
OR AL,AL ;..CONSOLE I/O? JNZ L00061
RET ;YES, NO TEST
;
L00061 LABEL NEAR
IF NOT CANFLG
RET
ENDIF
;
CKABGO: CALL STAT ;KEY PRESSED? JNZ L00062
RET ;NOTHING FROM KEYBOARD
L00062: CALL KEYIN ;GET DATA
CMP AL,EXITCHR ;TIME TO END? JZ ABORT
RET ;NO, CONTINUE
;
ABORT: NOP ;LEA SP,STACK
ABORTL: MOV CH,1 ;1 SEC. W/O CHARS.
CALL RECV
JNAE L00064
JMP ABORTL ;LOOP UNTIL SENDER DONE
L00064: MOV AL,CAN ;CONTROL X
CALL SEND ;STOP SENDING END
ABORTW: MOV CH,1 ;1 SEC W/O CHARS.
CALL RECV
JNAE L00065
JMP ABORTW ;LOOP UNTIL SENDER DONE
L00065: MOV AL,' ' ;GET A SPACE...
CALL SEND ;TO CLEAR OUT CONTROL X
PUSH BX
MOV BX,OFFSET MSG09
CALL ILPRT ;EXIT WITH ABORT MSG
POP BX
JMP CKDIS ;CHECK FOR DISCONN.
CKABORT ENDP
;
;----> INCRSNO: INCREMENT SECTOR #
;
INCRSNO PROC NEAR
MOV AL,SECTNO ;INCR..
INC AL ;..SECT..
MOV SECTNO,AL ;..NUMBER
RET
INCRSNO ENDP
;
;----> ERASFIL: ERASE THE INCOMING FILE.
;
;IF IT EXISTS, ASK IF IT MAY BE ERASED.
;
ERASFIL PROC NEAR
MOV DX,OFFSET FCB ;POINT TO CTL BLOCK
MOV CL,SRCHF ;SEE IF IT..
CALL BDOS ;..EXISTS
INC AL ;FOUND? JNZ L00066
RET ;..NO, RETURN
L00066: PUSH BX
MOV BX,OFFSET MSG10
CALL ILPRT ;PRINT:
POP BX
CALL KEYIN ;GET CHAR
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH
CALL TYPEZZ ;ECHO
POP AX
XCHG AL,AH
SAHF
AND AL,5FH ;MAKE UPPER CASE
CMP AL,'Y' ;WANT ERASED? JZ L00067
JMP CKDIS ;QUIT IF NOT ERASE
L00067: CALL CRLF ;BACK TO START OF LINE
;
;ERASE OLD FILE
;
MOV DX,OFFSET FCB ;POINT TO FCB
MOV CL,ERASE ;GET BDOS FNC
CALL BDOS ;DO THE ERASE
RET ;FROM "ERASFIL"
ERASFIL ENDP
;
;----> MAKEFIL: MAKES THE FILE TO BE RECEIVED
;
MAKEFIL PROC NEAR
MOV DX,OFFSET FCB ;POINT TO FCB
MOV CL,MAKE ;GET BDOS FNC
CALL BDOS ;TO THE MAKE
INC AL ;FF=BAD? JZ L00068
RET ;OPEN OK
;DIRECTORY FULL - CAN'T MAKE FILE
L00068: MOV DX,OFFSET MSG22
CALL ERXIT
MAKEFIL ENDP
;
;----> OPENFIL: OPENS THE FILE TO BE SENT
;
OPENFIL PROC NEAR
MOV DX,OFFSET FCB ;POINT TO FILE
MOV CL,OPEN ;GET FUNCTION
CALL BDOS ;OPEN IT
INC AL ;OPEN OK? JZ L00069
JMP OPENOK ;..YES
L00069: PUSH DX
MOV DX,OFFSET MSG11
CALL ERXIT ;..NO, ABORT
POP DX
;
OPENOK:
PUSH X
MOV BX,OFFSET MSG12
CALL ILPRT ;PRINT:
POP BX
MOV AL,FCBSZH ;GET FILE SIZE HIGH ORDER
CALL HEXO ;PRINT IN HEX
MOV AL,FCBSZL ;GET FILE SIZE LOW ORDER
CALL HEXO ;PRINT IN HEX
MOV AL,'H'
CALL TYPEZZ ;PRINT 'H' AFTER NUMBER
CALL CRLF ;..THEN CRLF
RET
OPENFIL ENDP
;
;----> CLOSFIL: CLOSES THE RECEIVED FILE
;
CLOSFIL PROC NEAR
MOV DX,OFFSET FCB ;POINT TO FILE
MOV CL,CLOSE ;GET FUNCTION
CALL BDOS ;CLOSE IT
INC AL ;CLOSE OK? JZ L00070
RET ;..YES, RETURN
L00070: MOV DX,OFFSET MSG22A
CALL ERXIT ;..NO, ABORT
CLOSFIL ENDP
;
;----> RDSECT: READS A SECTOR
;
;FOR SPEED, THIS ROUTINE BUFFERS UP 16
;SECTORS AT A TIME.
;
RDSECT PROC NEAR
MOV AL,SECINBF ;GET # SECT IN BUFF.
DEC AL ;DECREMENT..
MOV SECINBF,AL ;..IT
JNS L00071
JMP RDBLOCK ;EXHAUSTED? NEED MORE.
L00071: MOV BX,SECPTR ;GET POINTER
MOV DX,80H ;TO DATA
CALL MOVE128 ;MOVE TO BUFFER
MOV SECPTR,BX ;SAVE BUFFER POINTER
RET ;FROM "READSEC"
;
;BUFFER IS EMPTY - READ IN ANOTHER BLOCK OF 16
;
RDBLOCK LABEL NEAR
MOV AL,EOFLG ;GET EOF FLAG
CMP AL,1 ;IS IT SET/
STC ;TO SHOW EOF
JNZ L00072
RET ;GOT EOF
L00072: MOV CL,0 ;SECTORS IN BLOCK
LEA DX,DBUF ;TO DISK BUFFER
RDSECLP LABEL NEAR
PUSH CX
PUSH DX
MOV CL,STDMA ;SET DMA..
CALL BDOS ;..ADDR
MOV DX,OFFSET FCB
MOV CL,READ
CALL BDOS
POP DX
POP CX
OR AL,AL ;READ OK? JNZ L00073
JMP RDSECOK ;YES
L00073: DEC AL ;EOF? JZ REOF ; 1 = EOF (regular)
DEC AL
JZ L00074 ; 2 = ERROR (trans area too small)
DEC AL
JZ REOF ; 3 = EOF (partial block)
JMP L00074 ; ALL OTHER RETURNS CONSIDERED ERROR !!!
;
;READ ERROR
;
L00074: MOV DX,OFFSET MSG23
CALL ERXIT
;
RDSECOK:
MOV BX,80H
PUSH SI
PUSHF
ADD BX,DX
RCR SI,1
POPF
RCL SI,1
POP SI ;TO NEXT BUFF
XCHG BX,DX ;BUFF TO DE
INC CL ;MORE SECTORS? MOV AL,CL ;GET COUNT
CMP AL,16 ;DONE? JNZ L00075
JMP RDBFULL ;..YES, BUFF IS FULL
L00075: JMP RDSECLP ;READ MORE
;
REOF: MOV AL,1
MOV EOFLG,AL ;SET EOF FLAG
MOV AL,CL
;
;BUFFER IS FULL, OR GOT EOF
;
RDBFULL:
MOV SECINBF,AL ;STORE SECTOR COUNT
MOV BX,OFFSET DBUF ;INIT BUFFER..
MOV SECPTR,BX ;..POINTER
MOV DX,80H ;RESET..
MOV CL,STDMA ;..DMA..
CALL BDOS ;..ADDR
JMP RDSECT ;PASS SECT TO CALLER
RDSECT ENDP
;
;----> WRSECT: WRITE A SECTOR
;
;WRITES THE SECTOR INTO A BUFFER. WHEN 16
;HAVE BEEN WRITTEN, WRITES THE BLOCK TO DISK.
;
;ENTRY POINT "WRBLOCK" FLUSHES THE BUFFER AT EOF.
;
WRSECT PROC NEAR
MOV BX,SECPTR ;GET BUFF ADDR
XCHG BX,DX ;TO DE FOR MOVE
MOV BX,80H ;FROM HERE
CALL MOVE128 ;MOVE TO BUFFER
XCHG BX,DX ;SAVE NEXT..
MOV SECPTR,BX ;..BLOCK POINTER
MOV AL,SECINBF ;BUMP THE..
INC AL ;..SECTOR #..
MOV SECINBF,AL ;..IN THE BUFF
CMP AL,16 ;HAVE WE 16? JZ WRBLOCK
RET ;NO, RETURN
;
;----> WRBLOCK: WRITES A BLOCK TO DISK
;
WRBLOCK:
MOV AL,SECINBF ;# SECT IN BUFFER
OR AL,AL ;0 MEANS END OF FILE
JNZ L00077
RET ;NONE TO WRITE
L00077: MOV CL,AL ;SAVE COUNT
LEA DX,DBUF ;POINT TO DISK BUFF
DKWRLP: PUSH BX
PUSH DX
PUSH CX
MOV CL,STDMA ;SET DMA
CALL BDOS ;TO BUFFER
MOV DX,OFFSET FCB ;THEN WRITE
MOV CL,WRITE ;..THE..
CALL BDOS ;..BLOCK
POP CX
POP DX
POP BX
OR AL,AL
JZ L00078
JMP WRERR ;OOPS, ERROR
L00078: MOV BX,80H ;LENGTH OF 1 SECT
PUSH SI
PUSHF
ADD BX,DX
RCR SI,1
POPF
RCL SI,1
POP SI ;HL= NEXT BUFF
XCHG BX,DX ;TO DE FOR SETDMA
DEC CL ;MORE SECTORS? JZ L00079
JMP DKWRLP ;..YES, LOOP
L00079: XOR AL,AL ;GET A ZERO
MOV SECINBF,AL ;RESET # OF SECTORS
MOV BX,OFFSET DBUF ;RESET BUFFER..
MOV SECPTR,BX ;..POINTER
;
MOV DX,80H ;07/13/79 MOD..
MOV CL,STDMA ;..TO RESET..
CALL BDOS ;..DMA ADDR.
;
RET
;
WRERR: MOV CL,CAN ;CANCEL..
CALL SEND ;..SENDER
MOV DX,OFFSET MSG24
CALL ERXIT ;EXIT W/MSG:
WRSECT ENDP
;
;----> RECV: RECEIVE A CHARACTER
;
;TIMEOUT TIME IS IN B, IN SECONDS. ENTRY VIA
;"RECVDG" DELETES GARBAGE CHARACTERS ON THE
;LINE. FOR EXAMPLE, HAVING JUST SENT A SECTOR,
;CALLING RECVDG WILL DELETE ANY LINE-NOISE-INDUCED
;CHARACTERS "LONG" BEFORE THE ACK/NAK WOULD
;BE RECEIVED.
;
RECCHAR PROC NEAR
RECVDG LABEL NEAR ;RECEIVE W/GARBAGE DELETE
PUSH DX
MOV DX,MODDATP
IN AL,DX ;GET A CHAR
IN AL,DX ;..TOTALLY PURGE UART
POP DX
;
RECV: PUSH DX ;SAVE
;
IF FASTCLK ;4MHZ? MOV AL,CH ;GET TIME REQUEST
ADD AL,AL ;DOUBLE IT
MOV CH,AL ;NEW TIME IN B
ENDIF
;
MSEC: MOV DX,50000 ;1 SEC DCR COUNT
CALL CKABORT ;CHECK FOR EXIT REQUEST
MWTI: PUSH DX
MOV DX,MODCTLP
IN AL,DX ;CHECK STATUS
POP DX
AND AL,MODRCVB ;ISOLATE BIT
CMP AL,MODRCVR ;READY? JNZ L00080
JMP MCHAR ;GOT CHAR
L00080: DEC DL ;COUNT..
JZ L00081
JMP MWTI ;..DOWN..
L00081: DEC DH ;..FOR..
JZ L00082
JMP MWTI ;..TIMEOUT
L00082: DEC CH ;MORE SECONDS? JZ L00083
JMP MSEC ;YES, WAIT
;
;MODEM TIMED OUT RECEIVING
;
L00083: POP DX ;RESTORE D,E
STC ;CARRY SHOWS TIMEOUT
RET
;
;GOT CHAR FROM MODEM
;
MCHAR: PUSH DX
MOV DX,MODDATP
IN AL,DX ;READ THE CHAR
POP DX
POP DX ;RESTORE DE
;
;CALC CHECKSUM
;
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;SAVE THE CHAR
ADD AL,CL ;ADD TO CHECKSUM
MOV CL,AL ;SAVE CHECKSUM
;
;CHECK IF MONITORING REC'D DATA
;
MOV AL,RSEEFLG ;SEE RECEIVED..
OR AL,AL ;..DATA? JNZ L00084
JMP MONIN ;..YES
;
;CHECK IF "VIEWING" AND THIS IS A DATA CHAR
;
L00084: MOV AL,VSEEFLG ;VIEWING..
OR AL,AL ;..DATA? JZ L00085
JMP NOMONIN ;..NO
;
;"VIEW" REQUESTED. SHOW THE CHAR IT IS DATA
;
L00085: MOV AL,DATAFLG ;GET DATA FLAG
OR AL,AL ;TEST IT
JNZ MONIN
JMP NOMONIN ;..OFF, NOT DATA
MONIN: POP AX
XCHG AL,AH
SAHF ;..IS DATA,
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;GET IT,
CALL SHOW ;..AND SHOW IT
NOMONIN:
POP AX
XCHG AL,AH
SAHF ;RESTORE CHAR
OR AL,AL ;CARRY OFF: NO ERROR
RET ;FROM "RECV"
RECCHAR ENDP
;
;----> SEND: SEND A CHARACTER TO THE MODEM
;
SEND PROC NEAR
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;SAVE THE CHAR
;
;CHECK IF MONITORING SENT DATA
;
MOV AL,SSEEFLG ;CHECK IF MONITORING..
OR AL,AL ;..SENT DATA
JNZ L00087
JMP MONOUT ;..YES
;
;CHECK IF "VIEWING" THE FILE
;
L00087: MOV AL,VSEEFLG ;GET VIEW FLAG
OR AL,AL ;TEST IT
JZ L00088
JMP NOMONOT ;NO
L00088: MOV AL,DATAFLG ;IS THIS
OR AL,AL ;..DATA? JNZ MONOUT
JMP NOMONOT ;..NO.
MONOUT: POP AX
XCHG AL,AH
SAHF ;GET THE CHAR
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;SAVE IT
CALL SHOW ;SHOW IT
NOMONOT:
POP AX
XCHG AL,AH
SAHF ;RESTORE CHAR
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;SAVE IT
ADD AL,CL ;CALC CKSUM
MOV CL,AL ;SAVE CKSUM
SENDW: PUSH DX
MOV DX,MODCTLP
IN AL,DX ;GET STATUS
POP DX
AND AL,MODSNDB ;ISOLATE READY BIT
CMP AL,MODSNDR ;READY? JZ L00090
JMP SENDW ;..NO, WAIT
L00090: POP AX
XCHG AL,AH
SAHF ;GET CHAR
PUSH DX
MOV DX,MODDATP
OUT DX,AL ;OUTPUT IT
POP DX
RET ;FROM "SEND"
SEND ENDP
;
;----> WAITNAK: WAITS FOR INITIAL NAK
;
;TO ENSURE NO DATA IS SENT UNTIL THE RECEIVING
;PROGRAM IS READY, THIS ROUTINE WAITS FOR THE
;THE FIRST TIMEOUT-NAK FROM THE RECEIVER. (E)
;CONTAINS THE # OF SECONDS TO WAIT.
;
WAITNAK PROC NEAR
MOV AL,VSEEFLG ;VIEWING? OR AL,AL
JNZ L00091
JMP WAITNPR ;PRINT MSG
L00091: MOV AL,QFLG ;QUIET..
OR AL,AL ;..MODE? JNZ WAITNPR
JMP WAITNLP ;YES, SKIP MSG
WAITNPR LABEL NEAR
PUSH BX
MOV BX,OFFSET MSG13
CALL ILPRT ;PRINT:
POP BX
WAITNLP LABEL NEAR
CALL CKABORT ;ABORT IF LOCAL CTL-X
MOV CH,1 ;TIMEOUT DELAY
CALL RECV ;DID WE GET..
CMP AL,NAK ;..A NAK? JNZ L00093
RET ;YES, SEND BLOCK
;
L00093 LABEL NEAR
IF CANFLG
CMP AL,CAN ;CTL-X FROM REMOTE? JNZ L00094
JMP ABORT ;..YES, ABORT
L00094 LABEL NEAR
ENDIF
;
DEC DL ;80 TRIES? JNZ L00095
JMP ABORT ;YES, ABORT
L00095: JMP WAITNLP ;NO, LOOP
WAITNAK ENDP
;
;
;----> PROCOPT: PROCESS COMMAND OPTIONS
;
;1) SAVES THE PRIMARY OPTION IN 'OPTION';
;2) IF OPTION 'H' (HELP) IS ASKED FOR,
;TRANSFERS DIRECTLY TO THE HELP PRINT;
;3) SCANS THE SUB-OPTION CHARACTERS, AND FOR
;EACH FOUND, ZEROS THE APPROPRIATE ENTRY IN
;THE OPTION TABLE. FOR EXAMPLE, IF 'D' IS
;CODED (DISCONNECT) THEN THE 'D' STORED AT
;'DISCFLG' IS SET TO 0 SO IT CAN BE TESTED
;LATER.
;
PROCOPT PROC NEAR
MOV DX,OFFSET FCBNAME ;TO PRIMARY OPT.
XCHG BX,DX
MOV AL,ES:[BX] ;GET PRIMARY OPT.
XCHG BX,DX
MOV OPTION,AL ;SAVE IT
CMP AL,'X' ;MODEM EXAMPLES? JNZ L00096
JMP EXAM ;..YES, GIVE EXAMPLES
L00096: CMP AL,'H' ;MODEM H(ELP)? JNZ OPTLP
JMP HELP ;..YES, GIVE HELP
OPTLP: PUSHF
INC DX ;TO SECONDARY OPTION
POPF
XCHG BX,DX
MOV AL,ES:[BX] ;GET CHAR
XCHG BX,DX
;
;IF YOU MOD THIS PROGRAM FOR >7 OPTIONS,
;YOU MUST CHANGE THE FOLLOWING, SINCE
;THERE WON'T BE A ' ' AFTER THE OPTION
;IF A BAUD RATE WAS SPECIFIED.
;
CMP AL,' ' ;NO MORE OPT'NS? JNZ L00097
JMP ENDOPT ;..YES
;SET THE APPROP. OPT: STORE 0 IN IT
L00097: MOV BX,OFFSET OPTBL ;HL = ADDR OF 'OAQDSRV'
MOV CX,TABLESIZE ;OPT TABLE LEN
OPTCK: CMP AL,BYTE PTR [BX] ;FOUND THE OPTION? JZ L00098
JMP OPTNO ;NO, DON'T SET IT
L00098: MOV BYTE PTR [BX],0 ;SET THE OPTION
JMP OPTLP ;GET NEXT OPTION
OPTNO: PUSHF
INC BX
POPF ;TO NEXT
DEC CX ;MORE? JZ L00099
JMP OPTCK
;OPTION NOT IN TABLE
L00099: JMP BADOPT ;SHOW BAD SUB OPTION
;
;IF "VIEW" WAS ASKED FOR, SET QUIET FLAG
;
ENDOPT: MOV AL,VSEEFLG ;VIEW..
OR AL,AL ;..ASKED FOR? JZ L00100
RET ;..NO, RET FROM 'PROCOPT'
L00100: MOV QFLG,AL ;YES, NO HDR/CKSUM PRT
RET ;FROM 'PROCOPT'
PROCOPT ENDP
;
;DONE - CLOSE UP SHOP
;
DONE PROC NEAR
MOV AL,VSEEFLG ;VIEWING? OR AL,AL
JNZ L00101
JMP DONETC ;SHOW MSG
L00101: MOV AL,QFLG ;QUIET
OR AL,AL ;..MODE? JNZ DONETC
JMP DONECTE ;YES, CK TERM/ECHO
DONETC: PUSH BX
MOV BX,OFFSET MSG14
CALL ILPRT
POP BX
;
;CHECK IF TERMINAL OR ECHO SUB COMMAND
;WAS SPECIFIED
;
DONECTE:
MOV AL,TERMFLG ;TERM? OR AL,AL
JNZ L00103
JMP TERM ;..YES
L00103: MOV AL,ECHOFLG ;ECHO? OR AL,AL
JNZ CKDIS
JMP TRMECHO ;..YES
;
;FALL INTO 'CKDIS'
;
;----> CKDIS: CHECK IF DISCONNECT REQUESTED
;
;THIS ROUTINE IS JUMPED TO AT THE END OF
;PROCESSING, AND DISCONNECTS THE PHONE IF
;'D' WAS SPECIFIED AS A SUB-OPTION.
;
CKDIS: MOV AL,DISCFLG ;CHECK 'D' FLAG
OR AL,AL ;REQUESTED?; x d x
; IF NOT PMMI x e x
; JZ L00106 x l x
; JMP EXIT x e x
;L00106 LABEL NEAR x t x
; ENDIF x e x
; x d x
;AWAIT C/R TO DISC. SO WE DON'T LOSE THE PHONE
;
PUSH BX
MOV BX,OFFSET MSG15
CALL ILPRT
POP BX
CALL KEYIN
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH
CALL CRLF
POP AX
XCHG AL,AH
SAHF
CMP AL,0DH
JZ DISCONN
JMP CKDIS ;ASK AGAIN
;
;----> DISCONN: DISCONNECT THE PHONE
;
DISCONN LABEL NEAR
PUSH BX
MOV BX,OFFSET MSG16
CALL ILPRT ;PRINT:
POP BX
JMP EXIT
DONE ENDP
;
;NO DISCONNECT, TYPEZZ MSG AS REMINDER THAT PHONE'S
;ON HOOK
;
;
;----> INITMOD: INITIALIZED THE MODEM
;
;THIS ROUTINE IS USED TO INITIALIZE SERIAL
;PORT USED BY THE PROGRAM. IT INCLUDES SUPPORT FOR
;SELECTING WHICH OF THE THREE UARTS SUPPORTED BY THE IBM/PC
;ARCHITECTURE WILL BE USED FOR THIS TRANSMISSION
;
;
;
INITMOD PROC NEAR
;
; ONLY THE "dtr up" PORTION OF THIS MODEM INITIALIZATION,
; [and THE PORT SELECTION]
; IS STATIC -- ALL OTHER PORT SETUP IS DONE EXTERNALLY, OR BY
; THE "I" SECONDARY OPTION - WHICH DEFAULTS THE COMx PORT
; TO 300 baud, 8 bits, 1stop bit, AND n o parity
;
;
MOV BX,BASE1U ;POINT TO A UART
XOR AX,AX
CMP AL,URT3FLG ;IS 3 REQUESTED (flags zeroed if found)
JNE INIT1 ;CONTINUE IF NOT
MOV BX,BASE3U ;IF YES, POINT TO 3
JMP INIT2 ; AND DO PORT SETUP
INIT1: CMP AL,URT2FLG ;IS 2 REQUESTED
JNE INIT2 ;DEFAULT TO ONE IF NOT
MOV BX,BASE2U ;OR POINT TO TWO AND
; ; DO THE PORT POINTER SETUP
;
; SETUP POINTERS TO THE UART PORTS (SUPPORTS 3)
;
INIT2: MOV AX,BX ;BUILD
ADD AX,OFFDATP ;
MOV MODDATP,AX ; MODDATP
MOV AX,BX ;BUILD
ADD AX,OFFCTLP ;
MOV MODCTLP,AX ;MSR MODCTLP
MOV AX,BX ;BUILD
ADD AX,OFFCTL2 ;
MOV MODCTL2,AX ;MCR MODCTL2
MOV AX,BX ;BUILD
ADD AX,OFFCTL3 ;
MOV MODCTL3,AX ;LCR MODCTL3
;
;
; NOW THAT A PORT [COM1 COM2 or COM3] IS SELECTED
; put up dtr FOR POOR FOLKS WITH
; COMMERCIAL MODEMS THAT REQUIRE IT.
; (poor folks, of course, is a relative term)
;
; ;
MOV AL,DTREADY ;OUTPUT DTR UP
PUSH DX ; REQUEST TO
MOV DX,MODCTL2 ;MODEM CONTROL REGISTER
OUT DX,AL ;
;
; check for uart init request -- set COMx TO 300,N,8,1 IF 0
;
MOV al,DUMYFLG
or al,al
jnz noinit
push dx
mov dx,3fbh
mov al,80h
out dx,al
mov dx,3f9h
mov al,01h
out dx,al
mov dx,3f8h
mov al,80h
out dx,al
mov dx,3fbh
mov al,03h
out dx,al
;
; the above sequence defaults the modem to 300,n,8,1 ..
;
NOINIT: POP DX ;RESTORE DX BEFORE LEAVING
RET
INITMOD ENDP
;
;----> MOVEFCB: MOVES FCB(2) TO FCB
;
;I ATTEMPTED TO MAKE THE MODEM COMMAND 'NATURAL',
;I.E. MODEM SEND FILENAME (MODEM S FN.FT) RATHER
;THAT MODEM FILENAME SEND (MODEM FN.FT S) SO THIS
;ROUTINE MOVES THE FILENAME FROM THE SECOND FCB
;TO THE FIRST
;
MOVEFCB PROC NEAR
MOV BX,OFFSET FCB2 ;FROM
MOV DX,OFFSET FCB ;TO
MOV CH,16 ;LEN
PUSH DS ;SAVE DS
PUSH ES ;MOVE ES ...
POP DS ;... TO DS
CALL MOVE ;DO THE MOVE
POP DS ;RESTORE DS
XOR AL,AL ;GET 0
MOV FCBCR,AL ;ZERO CURRENT RECORD
MOV FCBRR,AL ;..AND RANDOM RECORD
RET
MOVEFCB ENDP
;
;----> SHOW: SHOWS CHAR SENT/RECEIVED
;
;CR, LF, AND TAB ARE SHOWN. ALL OTHER
;NON-PRINTABLE CHARACTERS ARE SHOWN IN
;HEX AS (XX)
;
SHOW PROC NEAR
CMP AL,LF ;LF? JNZ L00122
JMP CTYPEZZ ;..YES, TYPEZZ IT
L00122: CMP AL,CR ;CR? JNZ L00123
JMP CTYPEZZ ;..YES, TYPEZZ IT
L00123: CMP AL,09 ;TAB
JNZ L00124
JMP CTYPEZZ ;..YES, TYPEZZ IT
L00124: CMP AL,' ' ;CTL-CHR? JAE L00125
JMP SHOWHEX ;YES, SHOW IN HEX
L00125: CMP AL,7FH ;DEL? JAE SHOWHEX
JMP CTYPEZZ ;NO, TYPEZZ THE CHAR
SHOWHEX LABEL NEAR
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;SAVE THE CHAR
MOV AL,'(' ;TYPEZZ..
CALL CTYPEZZ ;..'('
POP AX
XCHG AL,AH
SAHF ;THEN..
CALL HEXO ;..THE CHAR
MOV AL,')' ;THEN..
JMP CTYPEZZ ;..')' AND RETURN.
;
;----> CTYPEZZ: TYPEZZS VIA CP/M SO TABS ARE EXPANDED
;
CTYPEZZ LABEL NEAR
PUSH CX ;SAVE..
PUSH DX ;..ALL..
PUSH BX ;..REGS
MOV DL,AL ;CHAR TO E
MOV CL,WRCON ;GET BDOS FNC
CALL BDOS ;PRIN THE CHR
POP BX ;RESTORE..
POP DX ;..ALL..
POP CX ;..REGS
RET ;FROM "CTYPEZZ"
SHOW ENDP
;
CRLF PROC NEAR
MOV AL,CR
CALL TYPEZZ
MOV AL,LF
CRLF ENDP
;
;----> TYPEZZ: TYPEZZ VIA DIRECT BDOS ACCESS
;
;THIS ROUTINE BYPASSES CP/M'S CTL-S, CTL-C
;TESTS.
;
TYPEZZ PROC NEAR
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;SAVE CHAR
PUSH CX ;AND B
VTYPEZZ LABEL NEAR
MOV CL,DCON ;GET BDOS FNC
MOV DL,AL
CALL BDOS
POP CX
POP AX
XCHG AL,AH
SAHF
RET ;FROM "TYPEZZ"
TYPEZZ ENDP
;
;KEYBOARD STATUS
;
; This routine has been changed from CP/M-86: the service for
; MS-DOS differs in several respects.. [CP/M version uses
; x'FE' in DL and calls "DCON" which isn't supported
; in MSDOS .. SO we use the CONSOLE STATUS service.
;
;
STAT PROC NEAR
MOV CL,CONST ;GET BDOS FNC
; MOV DL,0FfH ;**Conventions changed from CP/M !!!
CALL BDOS
OR AL,AL ;0 => NOT READY
; ;AL = FF if char ready: else =00
RET
STAT ENDP
;
;KEYBOARD INPUT
;
; This routine should be changed to use direct BIOS interface.
; with the current BDOS call [DCON = 6] the CTRL-BREAK and
; CTRL-C sequences are intercepted and interpreted as
; termination requests
;
;
;
KEYIN PROC NEAR
MOV CL,DCON ;GET BDOS FNC
MOV DL,0FFH
CALL BDOS
JZ KEYIN ;ZERO FLAG SET IF NO CHARACTER
CMP AL,CTLCCHR
JNE KEY001
MOV AL,CTLCHAR
ret ;return if ctl-c to be sent
;
; SPECIAL FUNCTION KEY SUPPORT
; **ALT-C ==> transmits CTRL-C
; Support will be added here for
; use of ALT-? keyins for shuch things as BAUD rate shift,
; mode changes (quiet/noisy On/Off of R,S,Q secondary optns.)
;
;
key001: cmp al,0
je altkey
RET ;return if not "00" for special function code
altkey: mov cl,dcon ;set bdos function
mov dl,0ffh ;ask for character
call bdos
jz altkey ;spin until second code
; if we got here it should be a special scan code
;
cmp al,46 ;replace
jne akey01 ; ALT-C
mov al,ctlchar ; WITH
ret ; CTRL-C
AKEY01: CMP AL,59
JNL AKEY02
RET
AKEY02: CMP AL,68
JL AKEY03
RET
AKEY03: NOP
NOP
RET
KEYIN ENDP
;
;HEX OUTPUT
;
HEXO PROC NEAR
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH ;SAVE FOR RIGHT DIGIT
RCR AL,1 ;RIGHT..
RCR AL,1 ;..JUSTIFY..
RCR AL,1 ;..LEFT..
RCR AL,1 ;..DIGIT..
CALL NIBBL ;PRINT LEFT DIGIT
POP AX
XCHG AL,AH
SAHF ;RESTORE RIGHT
NIBBL: AND AL,0FH ;ISOLATE DIGIT
CMP AL,10 ;IS IS <10? JAE L00127
JMP ISNUM ;YES, NOT ALPHA
L00127: ADD AL,7 ;ADD ALPHA BIAS
ISNUM: ADD AL,'0' ;MAKE PRINTABLE
JMP TYPEZZ ;..THEN TYPEZZ IT
HEXO ENDP
;
;----> CKQUIT: QUIT/RETRY AFTER MULTIPLE ERRS.
;
;RETURNS W/ ZERO SET IF "RETRY" ASKED FOR
;
CKQUIT PROC NEAR
XOR AL,AL ;ZERO..
MOV ERRCT,AL ;..ERROR COUNT
PUSH BX
MOV BX,OFFSET MSG18
CALL ILPRT ;PRINT:
POP BX
CALL KEYIN ;QUIT/RETRY
LAHF
XCHG AL,AH
PUSH AX
XCHG AL,AH
CALL CRLF
POP AX
XCHG AL,AH
SAHF
AND AL,5FH ;MAKE UPPER CASE
CMP AL,'R' ;RETRY? JNZ L00128
RET ;'KEEP ON TRUCKIN'
L00128: CMP AL,'Q' ;QUIT? JZ L00129
JMP CKQUIT ;NO, ASK AGAIN
L00129: OR AL,AL ;SET NON-ZERO
RET
CKQUIT ENDP
;
;----> ILPRT: INLINE PRINT OF MSG
;
;THE CALL TO ILPRT IS FOLLOWED BY A MESSAGE,
;BINARY 0 AS THE END. BINARY 1 MAY BE USED TO
;PAUSE (MESSAGE 'PRESS RETURN TO CONTINUE')
;
ILPRT PROC NEAR
ILPLP: MOV AL,BYTE PTR[BX]
OR AL,AL ;END OF MSG? JNZ L00130
JMP ILPRET ;..YES, RETURN
L00130: CMP AL,1 ;PAUSE? JNZ L00131
JMP ILPAUSE ;..YES
L00131: CALL CTYPEZZ ;TYPEZZ THE MSG
ILPNEXT:
PUSHF
INC BX
POPF ;TO NEXT CHAR
JMP ILPLP ;LOOP
;
;PAUSE WHILE TYPING HELP SO INFO DOESN'T
; SCROLL OFF OF VIDEO SCREENS
;
ILPAUSE:
PUSH BX
MOV BX,OFFSET MSG19
CALL ILPRT ;PRINT:
POP BX
CALL KEYIN ;GET ANY CHAR
CMP AL,'C'-40H ;REBOOT? JNZ L09132 ;EXIT IF QUITCHAR
JMP EXIT
L09132: CMP AL,'I'-40H ;ALT REBOOT? JNZ L00132 ;
JMP EXIT ;YES.
L00132: JMP ILPNEXT ;LOOP
ILPRET: RET ;PAST MSG
ILPRT ENDP
;
;----> PRTMSG: PRINTS MSG POINTED TO BY (DE)
;
;A '$' IS THE ENDING DELIMITER FOR THE PRINT.
;NO REGISTERS SAVED.
;
PRTMSG PROC NEAR
MOV CL,PRINT ;GET BDOS FNC
JMP BDOS ;PRINT MESSAGE, RETURN
PRTMSG ENDP
;
;----> ERXIT: EXIT PRINTING MSG FOLLOWING CALL
;
ERXIT PROC NEAR
POP BX ;GET MESSAGE
CALL PRTMSG ;PRINT IT
CALL CKDIS ;DISCONNECT? JMP EXIT ;RETURN TO PC DOS
ERXIT ENDP
;
;MOVE 128 CHARACTERS
;
MOVE128 PROC NEAR
MOV CH,128 ;SET MOVE COUNT
;
;MOVE FROM (HL) TO (DE) LENGTH IN (B)
;
MOVE: MOV AL,BYTE PTR [BX] ;GET A CHAR
XCHG BX,DX
MOV [BX],AL
XCHG BX,DX ;STORE IT
PUSHF
INC BX
POPF ;TO NEXT "FROM"
PUSHF
INC DX
POPF ;TO NEXT "TO"
DEC CH ;MORE? JZ L00133
JMP MOVE ;..YES, LOOP
L00133: RET ;..NO, RETURN
MOVE128 ENDP
;
BDOS PROC NEAR
PUSH BX
PUSH CX
PUSH DX
MOV AH,CL ;MOVE FNC FOR PC DOS
INT 21H ;INVOKE PC DOS SERVICE
POP DX
POP CX
POP BX
RET
BDOS ENDP
;
BADOPT: CALL TYPEZZ
PUSH BX
MOV BX,OFFSET MSG25
CALL ILPRT
POP BX
HELP: PUSH BX
MOV BX,OFFSET MSG26
CALL ILPRT
POP BX
JMP copyrt
EXAM: PUSH BX
MOV BX,OFFSET MSG27
CALL ILPRT
POP BX
JMP copyrt
;
; Print Limited license with "HELP" request output
;
copyrt: CALL STAT
;
; CLEAR THE SCREEN (cursor = 1,1)
;
SUB CX,CX ;UPPER LEFT CORNER
MOV DX,184FH ;BOTTOM RIGHT CORNER
MOV BH,7 ;NORMAL ATTRIB FOR CLS
SCROLL ;INVOKE BIOS TO CLEAR SCREEN
SUB DX,DX ;POINT TO ROW 1,COL 1
LOCATE ;SET THE CURSOR TO TOP LEFT
;
; PRINT COPYRIGHT NOTICE AND PAUSE
;
mov bx,offset msg00 ;point to copyright notice
call ilprt ; go print it (PAUSE)
;
; RETURN TO CALLER
;
jmp exit
;
;
;
MODEM ENDS
SUBTTL 'MODIFICATION HISTORY AND CREDITS'
PAGE
;
;* * * * * * * * * * * * * * * * * * * * * * * * *
;* *
;* THIS PROGRAM DOCUMENTED IN "MODEM.DOC" *
;* *
;* * * * * * * * * * * * * * * * * * * * * * * * *
;* THIS PROGRAM WAS "MODEM.ASM" BUT and then was *
;* TEMPORARILY NAMED "MODEM2.ASM" SO PEOPLE *
;* WILL REALIZE IT IS AN ENHANCEMENT OF *
;* THE ORIGINAL PROGRAM "MODEM.ASM" ON CP/M *
;* USER'S GROUP DISK 25. *
;* * * * * * * * * * * * * * * * * * * * * * * * *
;
;PLEASE PASS ON MODS, BUGS, ETC, SO YOUR
;FIXES OR ENHANCEMENTS MAY BE SHARED BY ALL,
;
;Please send to the bottom name on the list,
; OR TO ALL OF US - if you can afford
; the time
;
; Ward Christensen
; 688 E. 154th St. #5D
; Dolton, Il. 60419
;
; (312) 849-6279
;
;You may send a self-addressed stamped postcard
;to be informed of changes/bugs as they become
;known. [CP/M Version]
;
;
;
; 05/08/82
;Modified for CP/M 86 and the IBM PC
; by Randy Suess
; 5219 Warwick
; Chicago, Ill 60641
; 312-545 7535
;
; 06/03/82
;Modified for PC DOS and the IBM PC
;by Rick Mallinak
; 22451 Franklin Dr.
; Richton Park, Ill 60471
; (312) 481-6459
;
; 08/11/82
;Repaired for PC DOS 1.1 and IBM PC
;by John Chapman
; 844 S. Madison St.
; Hinsdale Illinois 60521
; (312) 325-3081
; CS: 70205,1217
;
;
;
; --------------------
; MODIFICATION HISTORY
; --------------------
;
; 09/23/77
;ORIGINALLY WRITTEN BY WARD CHRISTENSEN
;
; 04/26/79
;REWRITTEN BY WARD CHRISTENSEN TO COMBINE
;IMPROVEMENTS TO THE ORIGINAL MADE BY WARD
;AND BY KEITH PETERSEN, W8SDZ, AND SUGGESTIONS
;BY JIM BELL WHICH KEITH IMPLEMENTED. SEE
;MODEM.DOC FOR ADDITIONAL HISTORICAL
;INFORMATION AND DOCUMENSATION.
;
; 05/09/79
;ALLOW 'T' AND 'E' SUB-OPTIONS TO GO TO TERMINAL
;OR ECHO MODEM AFTER TRANSFERRING A FILE. (WLC)
;
; 05/22/79
;ADD FEATURE TO MAKE RECEIVE FILE ROUTINE SAY
;FILE SUCCESSFULLY OPENED, WHEN IN QUIET MODE.
;MOVE INITIAL GOBBLE GARBAGE INPUTS TO BEFORE
;COMMAND CPI'S SO ALL MODES ARE CLEARED. CHANGE
;INITIAL SEND WAIT TO 80 SECS TO ALLOW MORE TIME
;FOR RECEIVING END TO COME UP. ADD 'H' AFTER MSG
;THAT SHOWS NUMBER OF SECTORS IN EXTENT ABOUT TO
;BE SENT. (KBP)
;
; 05/24/79
;FIX MISSING RETURN INSTRUCTION AT END OF
;INITIALIZATION ROUTINE. (KBP)
;
; 07/13/79
;PUT IN RESET OF DMA ADDR TO 80H AFTER
;FILE RECEIVE, BECAUSE "SUBMIT" UNDER CP/M
;DOESN'T RESET IT BEFORE READING THE
;NEXT SUBMITTED COMMAND. /// ALSO DELETE
;CODE FOR "CANCEL" AS IT'S JUST TOO EASY
;TO INTENTIONALLY GET A CANCEL AS A
;GARBAGED LINE CHARACTER.
;
;;
; 05/82
;
;Rewitten for CP/M-86 by Randy Suess
; Changes mainly to interface with
; the CP/M-86 BDOS services
;
; 06/82
;
;Randy's version altered by Rick Mallinak
;to beacceptable to PC/DOS assembler.
;Comments added and changes made to
;support multiple segment version
;
; 08/82 ********CURRENT VERSION***********
;
;Rick's PC/DOS version reworked
;to: a) RUn as a .COM file by
;returning to single segment image;
;b)terminal bugs repaired,; c) code
;added to 'bring up' DTR as program
;starts up [necessary for non-autodial
;commercial modems]; and c) both
;source and execution time messages
;added to prevent Resale or Commmercial
;use of this program.
;
;
;
END MAIN