1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
; CPXLNK.ASM
; KERMIT - (Celtic for "FREE")
;
; This is the CP/M-80 implementation of the Columbia University
; KERMIT file transfer protocol.
;
; Version 4.0
;
; Copyright June 1981,1982,1983,1984
; Columbia University
;
; Originally written by Bill Catchings of the Columbia University Center for
; Computing Activities, 612 W. 115th St., New York, NY 10025.
;
; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben,
; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many
; others.
;
; This file describes the areas used to communicate between KERMIT
; and the customizing overlay. It is included by the overlay.
; This file should be changed only to reflect changes in the
; system-independent portion of Kermit (enhancements, I hope).
;
; revision history:
;edit 8, 14-Sep-1990 by MF. Added variable "incflg" to hold incomplete-
; file status for SET INCOMPLETE-FILES command.
; edit 7: 8 April, 1987 by OBSchou. Added a new entry EXTERN to leap off to
; code written by the user to emulate any terminal they want. All
; characters are sent here in stead of conout during connect state.
; In due course, Ill trap all prtstrs and dconio as well.
;
; edit 6: May 30, 1986 by OBSchou. Added two more entries to the link area:
; first to point to a "family" string giving the family name of the
; system. If the older CP4SYS.ASM still has the code, then the
; string is null. Secondly, a JMP to give printer status (should be
; a BIOS function). If 0 then printer is ready, if 0ffh then printer
; busy. This makes version 4.07 incompatable with 4.05
;
; edit 5: February 6, 1985
; Added a storage variable, "PORT", for the port-in-use value
; required for the port status routine (same purpose as SPEED).
; Also moved the printer copy flag (PRNFLG:) into the commun-
; ications storage area so machine dependant overlay can access it.
; [Hal Hostetler]
; Also, replace assembly-time conditional "ffussy" with run-time
; switch (CJC).
;
; edit 4: August 21, 1984 (CJC)
; Define a use for the third word of the linkage section: it points
; to the version string for CP4SYS.ASM. Add flsmdm, to flush comm line
; on startup. Add bufadr and bufsec for multiple-sector buffer support.
; Shift the entry section up two bytes so we can exit cleanly from DDT.
;
; edit 3: August 3, 1984 (CJC)
; put "mover" in CP4SYS, so we can do a Z80 block move if so inclined.
;
; edit 2: July 10, 1984 (CJC)
; integrate Toad Hall changes for LASM compatibility: CP4LNK is linked
; by CP4DEF, and links CP4SYS.
;
; edit 1: May, 1984 (CJC)
; extracted from CPMBASE.M80 version 3.9; modifications are described
; in the accompanying .UPD file.
;
; Define the entry section. These addresses contain jumps to
; useful routines in KERMIT. To show we know what we're doing,
; we store the length of this section (entsiz) in our linkage
; section. I didn't use ORG and DS because I don't want zeroes
; generated for all the space between here and the actual start
; of cp4sys.
entry equ 105H ; start of entry section
kermit equ entry+0 ; reentry address
nout equ entry+3 ; output HL in decimal
entsiz equ 2*3 ; 2 entries, so far.
;
; End of entry section.
;
; Linkage section. This block (through the definition of lnksiz)
; is used by Kermit to reach the routines and data in the overlay.
; The section length is stored at the beginning of the overlay
; area so Kermit can verify that the overlay section is (a) present,
; (b) in the right place, and (c) the same size as (and therefore
; presumably the same as) the linkage section Kermit is expecting.
;
ASEG
ORG OVLADR
;
lnkflg: dw lnksiz ; linkage information for consistency check.
dw entsiz ; length of entry table, for same.
dw swtver ; address of switcher. CPXSYS now a family
dw family ;*NEW* for V4.08. Address of the family string
;
; hooks for system-dependent routines:
;
; Input/output routines.
;
jmp selmdm ; select modem for I/O
jmp outmdm ; output character in E to modem
jmp inpmdm ; read character from modem. return character or 0 in A.
jmp flsmdm ; flush pending input from modem
jmp selcon ; select console for I/O
jmp outcon ; output character in E to console
jmp inpcon ; read char from console. return character or 0 in A
jmp outlpt ; output character in E to printer
jmp lptstat ;*NEW* get the status for the printer.
; 0=>ok, 0ffh=> not ok
jmp 0 ;*NEW for 4.09* Terminal Emulation code (optional)
; If terminal is set to EXTERNAL and this address
; has been filled, then user uses their own code.
xbdos: jmp 0 ;*NEW* Address of the BDOS trap in the independent
; code. Use this enty for BDOS calls if you want
; the printer handler to work properly.
; screen formatting routines
jmp clrlin ; erase current line
jmp clrspc ; erase current position (after backspace)
jmp delchr ; make delete look like backspace
jmp clrtop ; erase screen and go home
;
; these routines are called to display a field on the screen.
jmp scrend ; move to prompt field
jmp screrr ; move to error message field
jmp scrfln ; move to filename field
jmp scrnp ; move to packet count field
jmp scrnrt ; move to retry count field
jmp scrst ; move to status field
jmp rppos ; move to receive packet field (debug)
jmp sppos ; move to send packet field (debug)
;
jmp sysinit ; program initialization
jmp sysexit ; program termination
jmp syscon ; remote session initialization
jmp syscls ; return to local command level
jmp sysinh ; help text for interrupt (escape) extensions
jmp sysint ; interrupt (escape) extensions, including break
jmp sysflt ; filter for incoming characters.
; called with character in E.
jmp sysbye ; terminate remote session
jmp sysspd ; baud rate change routine.
; called with value from table in DE
jmp sysprt ; port change routine.
; called with value from table in HL
jmp sysscr ; screen setup for file transfer
; called with Kermit's version string in DE
jmp csrpos ; move cursor to row B, column C
jmp sysspc ; calculate free space for current drive
jmp mover ; do block move
jmp prtstr ; *** NEW *** Link from system indep equivalent
;
; Local parameter values
;
pttab: dw ttab ; points to local equivalents to VT52 escape sequences
spdtab: dw spdtbl ; address of baud rate command table, or zero
spdhlp: dw sphtbl ; address of baud rate help table, or zero
prttab: dw prttbl ; address of port command table, or zero
prthlp: dw prhtbl ; address of port help table, or zero
timout: dw fuzval ; Fuzzy timeout.
vtflg: db vtval ; VT52 emulation flag
escchr: db defesc ; Storage for the escape character.
speed: dw 0FFFFH ; storage for the baud rate (initially unknown)
port: dw 0FFFFH ; storage for port value (initially unknown) [hh]
prnflg: db 0 ; printer copy flag [hh]
dbgflg: db 0 ; debugging flag
ecoflg: db 0 ; Local echo flag (default off).
flwflg: db 1 ; File warning flag (default on).
ibmflg: db 0 ; IBM flag (default off).
cpmflg: db 0 ;[bt] file-mode flag (default is DEFAULT)
incflg: db 0 ;[MF]incomplete-file flag (default is DISCARD)
parity: db defpar ; Parity.
spsiz: db dspsiz ; Send packet size.
rpsiz: db drpsiz ; Receive packet size.
stime: db dstime ; Send time out.
rtime: db drtime ; Receive time out.
spad: db dspad ; Send padding.
rpad: db drpad ; Receive padding.
spadch: db dspadc ; Send padding char.
rpadch: db drpadc ; Receive padding char.
seol: db dseol ; Send EOL char.
reol: db dreol ; Receive EOL char.
squote: db dsquot ; Send quote char.
rquote: db drquot ; Receive quote char.
chktyp: db dschkt ; Checksum type desired
tacflg: ; TACtrap status:
IF tac
db tacval ; when non-zero, is current TAC intercept character;
ENDIF;tac
IF NOT tac
db 0 ; when zero, TACtrap is off.
ENDIF;tac
tacchr: db tacval ; Desired TAC intercept character (even when off)
bufadr: dw buff ; Address of possibly multi-sector buffer for I/O
bufsec: db 1 ; Number of sectors big buffer can hold (0 means 256)
ffussy: db 1 ; if nonzero, don't permit <>.,;?*[] in CP/M filespec.
; space used by directory command; here because space calculation is
; (operating) system-dependent
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
nnams: ds 1 ; counter for filenames per line
lnksiz equ $-lnkflg ; length of linkage section, for consistency check.
IF lasm ; If we're assembling with LASM,
LINK CPXCOM ; get the next section.
ENDIF;lasm
|
