home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
BEEHIVE
/
COMMS
/
MODEM9.ARC
/
FINISH.ASM
< prev
next >
Wrap
Assembly Source File
|
1991-02-02
|
2KB
|
112 lines
;
; FINISH.ASM
;
;Parameters and buffers for MODEM9.xx.
;
COMPLIST:
DB 6, 'S', 'R', 'T', 'E', 'H', 'L'
NFILFLG:
DB FALSE ;NORMALLY SET TO FALSE. ALLOWS WRITE TO..
; ;..MEMORY IN TERMINAL MODE.
OPTION:
DB 0
;
OPTBL EQU $
;
QFLG:
DB 'Q'
RSEEFLG:
DB 'R'
SSEEFLG:
DB 'S'
VSEEFLG:
DB 'V'
TERMFLG:
DB 'T'
LOCCHFLG:
DB 'L'
BATCHFLG:
DB 'B' ;SET TO 'B' BY MENU. DOES NOT ALLOW MULTIFILE
;XFER WHEN PROGRAM INITIALLY CALLED.
OPTBE EQU $
RESTROPT: ;MUST BE IN SAME ORDER AS TABLE ABOVE
DB 'Q','R','S','V','T','L','B'
;
;THE NEXT 12 BYTES EQUAL THE NUMBER OF BYTES BETWEEN SECTNOB AND SECTNOE
RESTSN:
DB 0,0,0,0,0
DW DBUF
DB 0,0,0,0,0
;
SECTNOB EQU $ ;START OF TABLE MARKER
RCVSNO: DB 0 ;\
SECTNO: DW 0 ; \
ERRCT: DB 0 ; \
EOFLG: DB 0 ; \
SECPTR: DW DBUF ; 12 BYTES BETWEEN TABLE MARKERS
SECINBF: DB 0 ; /
MAXEXT: DB 0 ; /
RCNT: DW 0 ; /
DATAFLG: DB 0 ;/
SECTNOE EQU $ ;END OF TABLE MARKER
;
MODCTLB: DB 07FH
SAVEFLG: DB FALSE
LASTBYT1: DB 0
LASTBYT2: DB 0
EXACFLG: DB 0
ECHOFLG: DB FALSE
LOCFLG: DB FALSE
CKSUMFLG: DB TRUE
LISTFLG: DB FALSE
LISTMOR: DB FALSE
FSTFLG: DB TRUE
FIRSTME: DB TRUE ;FIRST SOH RECEIVED SWITCH (ZERO AFTER 1ST SOH)
MFFLG1: DB 0 ;1ST TIME SW FOR MFACESS
HLSAVE: DW BOTTRAM
HLSAVE1: DW BOTTRAM
HLSAVE2: DW BOTTRAM
STRSAVE: DW STRINGS
CMDBUF: DB 80H,0
DS 80H
DISKNO: DS 1
DISKSAV: DS 1
SAVUSR: DS 1
SAVEOUT: DS 1
MECHDLY: DS 1
SENDFLG: DS 1
NBSAVE: DS 2
BGNMS: DS 2
FILECT: DS 1
SNAMECT: DS 1
FTYCNT: DS 1
DS 100
STACK: DS 2
FCB3: DS 33
FCB4: DS 33
FCBBUF: DS 15
;Multi-file access work area
MFREQ: DS 12 ;REQ NAME
MFCUR: DS 12 ;CURR NAME
;Unitialized storage for DIRLST
SRCHFCB: DS 33
NAMEGD: DS 1
NAMECT: DS 1
BMAX: DS 2 ;HIGHEST BLOCK NUMBER ON DRIVE
BMASK: DS 1 ;(RECORDS/BLOCK)-1
BSHIFTF: DS 1 ;NUMBER OF SHIFTS TO MULTIPLY BY REC/BLOCK
;
DBUF EQU $
NAMEBUF EQU DBUF+(DBUFSIZ*1024) ;BUFFER FOR NAMES IN BATCH MODE.
; ;OVERFLOWS ABOVE PROGRAM CODE.
LAST EQU $
BOTTRAM EQU LAST+100H AND 0FF00H
;
;
END 100H
;
LISTMOR: DB FALSE
FSTFLG: DB TRUE
FIRSTME: DB TRUE ;FIRST SOH RECEIVED SWITCH (ZERO AFTER 1ST SOH)
MFFLG1: DB 0 ;1