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
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
|
IF NOT lasm
.printx * CPXVDU.ASM *
ENDIF ;NOT lasm
; 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.
;
;edit 6, 12-Oct-1990 by MF. Added a semicolon to the comment "If we
; need cursor ..." so it isn't seen as an undefined symbol
; edit 5, 20 July by OBSchou. Put in the cursor positioning code for
; all the terminal supported, and moved the vtval EQUs and defesc EQUs
; here if the system requires andn external terminal. If the system
; has a 'built in' terminal (ie own scrteen driver) you will not come
; to this file, so you must declare these three lables etc in your
; own code.
; This will allow only those systems requiring a terminal to require
; CPXVDU.ASM during assembly.
;
; edit 4, 16 July, 1987 by OBSchou for will Rose.
; Added code for Ampro 230 terminal
;
; edit 3, 15 July, 1987 by OBSchou for David Moore. Added adm22 terminal
; codes.
;
; edit 2 21 May, 1987 by OBSchou. Added in definitions for Hazeltine 1500
; submitted by Colin Burns of the Institute of Neurological Sciences
; in Glasgow.
; edit 1 ??? date. Split the terminal codes off from the CPXSYS.ASM file
;
vduver: db 'CPXVDU.ASM (6) 12-Oct-1990 $' ;file, edit version,, date.
; First, print out what terminal (if any) we are assembling for
IF crt
.printx * generic CRT selected *
ENDIF
IF adm3a
.printx * ADM3A selected *
ENDIF
IF adm22
.printx * ADM22 selected *
ENDIF
IF smrtvd ;[7]
.printx * Netronics Smartvid-80 selected *
ENDIF ;[7]
IF tvi912
.printx * TVI912/920 selected *
ENDIF
IF tvi925
.printx * TVI925 selected *
ENDIF
IF vt52
.printx * VT52 selected *
ENDIF
IF vt100
.printx * VT100 selected *
ENDIF
IF am230
.printx * Ampro 230 terminal selected *
ENDIF
IF wyse
.printx * Wyse 100 terminal selected *
ENDIF
;
;
; If we need cursor positioning, here is the code to do it
;
; Screen manipulation routines
; csrpos - move to row B, column C
;
; csrpos for terminals that use a leadin sequence followed
; by (row + 31.) and (column + 31.)
;
IF NOT (vt100 OR crt OR h1500)
csrpos: push b ; save coordinates
lxi d,curldn ; get cursor leadin sequence
call prtstr ; print it
pop h ; restore coordinates
mov a,h ; get row
adi (' '-1) ; space is row one
mov e,a
push h
call outcon ; output row
pop h
mov a,l ; get column
adi (' '-1) ; space is column one
mov e,a
jmp outcon ; output it and return
ENDIF;NOT (vt100 OR crt OR h1500)
;
;
;
;
; csrpos for ANSI terminals
;
IF vt100
csrpos: push b ; save coordinates
lxi d,curldn ; get cursor leadin sequence
call prtstr ; print it
pop h ; peek at coordinates
push h ; then save away again
mov l,h ; l = row
mvi h,0 ; hl = row
call nout ; output in decimal
mvi e,';' ; follow with semicolon
call outcon ; print it
pop h ; restore column
mvi h,0 ; hl = column
call nout
mvi e,'H' ; terminate with 'move cursor' command
jmp outcon ; output it and return
ENDIF;vt100
;Definition for Hazeltine 1500 does things a little strange.
;
IF h1500
csrpos: push b ; save coordinates
lxi d,curldn ; get cursor leadin sequence
call prtstr ; print it
pop h ; restore coordinates
mov a,l ; get col
nop
nop
; adi (' '-1) ; space is row one
mov e,a
push h
call outcon ; output row
pop h
mov a,h ; get row
adi (' '-1) ; space is column one
mov e,a
jmp outcon ; output it and return
ENDIF; h1500
IF crt ; systems without cursor positioning
csrpos: ret ; dummy routine referenced by linkage section
ENDIF;crt
;
;
;
; Now for the rest of CPXVDU.ASM
;
;
;
IF crt ;Set flags etc for systems with CRT selected
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
vtval EQU 0FFH ; we can't support VT52 emulation
ttytyp: db 'Generic (Dumb) CRT Terminal type selected $'
ENDIF;crt
;
IF vt52 ; DEC VT52
ttytyp: db 'VT52$'
ENDIF;vt52
IF vt52
vtval EQU 0 ; we don't need VT52 emulation
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
outlin: db esc,'H',esc,'J',cr,lf,tab,tab,'$'
erascr: db esc,'H',esc,'J$' ;Clear screen and go home.
eralin: db cr,esc,'K$' ;Clear line.
curldn: db esc,'Y$' ;cursor leadin
ttab: ;Table start location.
ta: db esc,'A$',0 ;Cursor up.
tb: db esc,'B$',0 ;Cursor down.
tc: db esc,'C$',0 ;Cursor right.
td: db esc,'D$',0 ;Cursor left
te: db esc,'E$',0 ;Clear display
tf: db esc,'F$',0 ;Enter Graphics Mode
tg: db esc,'G$',0 ;Exit Graphics mode
th: db esc,'H$',0 ;Cursor home.
ti: db esc,'I$',0 ;Reverse linefeed.
tj: db esc,'J$',0 ;Clear to end of screen.
tk: db esc,'K$',0 ;Clear to end of line.
ENDIF;vt52
;
IF adm22
vtval EQU 1 ; we can do VT52 emulation
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
ttytyp: db 'ADM22$'
outlin: db 1ah,cr,lf,tab,tab,'$'
erascr: db 1ah,'$' ;Clear screen and go home.
eralin: db esc,'>$' ;Clear line.
curldn: db esc,'=$' ;Cursor lead-in
ttab: ;Table start location.
ta: db 0BH,'$',0,0 ;Cursor up.
tb: db lf,'$',0,0 ;Cursor down.
tc: db 0CH,'$',0,0 ;Cursor right.
td: db bs,'$',0,0 ;Cursor left
te: db 1ah,':$',0 ;Clear display
tf: db '$',0,0,0 ;(can't) Enter Graphics Mode
tg: db '$',0,0,0 ;(can't) Exit Graphics mode
th: db 1EH,'$',0,0 ;Cursor home.
ti: db 0BH,'$',0,0 ;Reverse linefeed.
tj: db esc,'Y$',0 ;Clear to end of screen.
tk: db esc,'T$',0 ;Clear to end of line.
ENDIF;adm22
;
IF am230
; Select initial setting for VT-52 emulation flag.
vtval EQU 1
defesc EQU '\'-100O ;The default is Control-\ -- it's easier
ttytyp: db 'Am230$'
outlin: db 'Z'-64,0,0,cr,lf,'$'
erascr: db 'Z'-64,0,0,'$' ;Clear screen and home
eralin: db esc,'R$',0 ;Erase line
curldn: db cr,esc,'=$' ;Cursor lead-in
ttab: ;Table start location ;(MUST be 4 bytes each)
ta: db 'K'-64,'$',0,0 ;Cursor up, stop at top
tb: db 'V'-64,'$',0,0 ;Cursor down, stop at bottom
tc: db 'L'-64,'$',0,0 ;Cursor right, stop at right
td: db 'H'-64,'$',0,0 ;Cursor left, stop at left
te: db 'Z'-64,0,0,'$' ;Clear display (2 pad nulls)
tf: db '$',0,0,0 ;(can't) Enter Graphics mode
tg: db '$',0,0,0 ;(can't) Exit Graphics mode
th: db 1EH,'$',0,0 ;Cursor home
ti: db esc,'j$',0 ;Reverse linefeed, scroll
tj: db esc,'Y$',0 ;Clear to end of sreen
tk: db esc,'T$',0 ;Clear to end of line
ENDIF
;
;
IF vt100
ttytyp: db 'VT100$'
ENDIF;vt100
IF vt100
; Note that we cannot support Graphics Mode or the H19 erase-screen command
; (<esc>E), because the sequences are more than three bytes.
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
vtval EQU 0 ; we probably don't want VT52 emulation
outlin: db esc,3CH,esc,'[H',esc,'[J',cr,lf,tab,tab,'$'
erascr: db esc,'[H',esc,'[J$' ;Clear screen and go home.
eralin: db cr,esc,'[K$' ;Clear line.
curldn: db esc,'[$' ; Cursor leadin
ttab:
ta: db esc,'[A$' ; Cursor up.
tb: db esc,'[B$' ; Cursor down.
tc: db esc,'[C$' ; Cursor right.
td: db esc,'[D$' ; Cursor left
te: db '$',0,0,0 ; (can't) Clear display
tf: db '$',0,0,0 ; (don't) Enter Graphics Mode
tg: db '$',0,0,0 ; (don't) Exit Graphics mode
th: db esc,'[H$' ; Cursor home.
ti: db esc,'M$',0 ; Reverse linefeed.
tj: db esc,'[J$' ; Clear to end of screen.
tk: db esc,'[K$' ; Clear to end of line.
ENDIF;vt100
;
IF gener or cpm3
sysver: db 'Generic CP/M-80$'
ENDIF;gener or cpm3
IF soroq ;[29] Should this not be with terminals.....
ttytyp: db 'Soroc IQ-120$'
outlin: db 1EH,esc,'Y',cr,lf,tab,tab,'$'
erascr: db 1EH,esc,'Y$' ;clear screen and home cursor
eralin: db cr,esc,'T$' ;clear line
curldn: db esc,'=$' ;cursor lead-in string
delstr: db bs,' ',bs,bs,'$' ;??adjust for echoing delete
ttab: ;table start location
ta: db 0BH,'$',0 ;cursor up
tb: db 0AH,'$',0 ;cursor down
tc: db 0CH,'$',0 ;cursor right
td: db 08H,'$',0 ;cursor left
te: db esc,'*$',0 ;clear display (homes cursor)
tf: db esc,')$',0 ;enter inverse video mode
tg: db esc,'($',0 ;exit inverse video mode
th: db 01EH,'$',0 ;home cursor
ti: db 0BH,'$',0 ;reverse linefeed (insert line)
tj: db esc,'Y$',0 ;clear to end of screen
tk: db esc,'T$',0 ;clear to end of line
ENDIF;soroq
IF crt
outlin: db cr,lf,'Starting ...$'
erascr equ crlf ;"Home & clear" (best we can do).
eralin: db '^U',cr,lf,'$' ;Clear line.
prpack: db cr,lf,'RPack: $'
pspack: db cr,lf,'SPack: $'
ttab equ 0 ; no VT52 table
ENDIF;crt
;
IF tvi912
vtval EQU 1 ; we do emulation
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
ttytyp: db 'TVI912/920$'
outlin: db 'Z'-64,0,0,cr,lf,'$'
erascr: db 'Z'-64,0,0,'$' ;Clear screen and home
eralin: db esc,'Y$',0 ;Clear to end of sreen
curldn: db cr,esc,'=$' ;Cursor lead-in
ttab: ;Table start location ;(MUST be 4 bytes each)
ta: db 'K'-64,'$',0,0 ;Cursor up, stop at top
tb: db 'J'-64,'$',0,0 ;Cursor down, stop at bottom
tc: db 'L'-64,'$',0,0 ;Cursor right, stop at right
td: db 'H'-64,'$',0,0 ;Cursor left, stop at left
te: db 'Z'-64,0,0,'$' ;Clear display (2 pad nulls)
tf: db '$',0,0,0 ;(can't) Enter Graphics mode
tg: db '$',0,0,0 ;(can't) Exit Graphics mode
th: db 1EH,'$',0,0 ;Cursor home
ti: db esc,'j$',0 ;Reverse linefeed, scroll
tj: db esc,'Y$',0 ;Clear to end of sreen
tk: db esc,'T$',0 ;Clear to end of line
ENDIF;tvi912
;
;
IF tvi925
;(incidentally, works fine for Freedom 100 also [Toad Hall])
;adm3a entry and tvi925 entry separated to remove warning message.
vtval EQU 1 ; we VT52 emulation
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
ttytyp: db 'TVI925$'
outlin: db 'Z'-64,0,0,cr,lf,'$'
erascr: db 'Z'-64,0,0,'$' ;Clear screen and home
eralin: db esc,'Y$',0 ;Clear to end of sreen
curldn: db cr,esc,'=$' ;Cursor lead-in
ttab: ;Table start location ;(MUST be 4 bytes each)
ta: db 'K'-64,'$',0,0 ;Cursor up, stop at top
tb: db 'V'-64,'$',0,0 ;Cursor down, stop at bottom
tc: db 'L'-64,'$',0,0 ;Cursor right, stop at right
td: db 'H'-64,'$',0,0 ;Cursor left, stop at left
te: db 'Z'-64,0,0,'$' ;Clear display (2 pad nulls)
tf: db '$',0,0,0 ;(can't) Enter Graphics mode
tg: db '$',0,0,0 ;(can't) Exit Graphics mode
th: db 1EH,'$',0,0 ;Cursor home
ti: db esc,'j$',0 ;Reverse linefeed, scroll
tj: db esc,'Y$',0 ;Clear to end of sreen
tk: db esc,'T$',0 ;Clear to end of line
ENDIF;tvi925
;
;
IF adm3a
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
ttytyp: db 'ADM3A$'
outlin: db 'Z'-64,0,0,cr,lf,'$'
erascr: db 'Z'-64,0,0,'$' ;Clear screen and home
eralin: db esc,'Y$',0 ;Clear to end of sreen
curldn: db cr,esc,'=$' ;Cursor lead-in
ttab: ;Table start location ;(MUST be 4 bytes each)
ta: db 'K'-64,'$',0,0 ;Cursor up, stop at top
tb: db 'J'-64,'$',0,0 ;Cursor down CTRL-J
tc: db 'L'-64,'$',0,0 ;Cursor right, stop at right
td: db 'H'-64,'$',0,0 ;Cursor left, stop at left
te: db 'Z'-64,0,0,'$' ;Clear display (2 pad nulls)
tf: db '$',0,0,0 ;(can't) Enter Graphics mode
tg: db '$',0,0,0 ;(can't) Exit Graphics mode
th: db 1EH,'$',0,0 ;Cursor home
ti: db 'K'-64,'$',0,0 ;Reverse linefeed
tj: db '$',0,0,0 ;(can't) Clear to end of screen
tk: db '$',0,0,0 ;(can't) Clear to end of line
ENDIF;adm3a
IF smrtvd ; [7] new terminal
vtval EQU 1 ; we do VT52 emulation
defesc EQU '\'-100O ; escpae character, ok?
ttytyp: db 'Smartvid-80$'
outlin: db esc,'+',cr,lf,tab,tab,'$'
eralin: db cr,esc,'T$' ;Clear to end of line.
erascr: db esc,'+$' ;Clear screen and go home.
curldn: db esc,'=$' ;Cursor lead-in
ttab: ;Table start location.
ta: db ('K'-100O),'$',0,0 ;Cursor up.
tb: db 12O,'$',0,0 ;Cursor down.
tc: db ('A'-100O),'$',0,0 ;Cursor right.
td: db ('H'-100O),'$',0,0 ;Cursor left.
te: db ('L'-100O),'$',0,0 ;Clear screen and home cursor
tf: db '$',0,0,0 ;(can't) Enter Graphics mode
tg: db '$',0,0,0 ;(can't) Exit Graphics mode
th: db ('Z'-100O),'$',0,0 ;Cursor home.
ti: db ('K'-100O),'$',0,0 ;Reverse linefeed.
tj: db esc,'Y$',0 ;Clear to end of screen.
tk: db esc,'T$',0 ;Clear to end of line.
ENDIF;smrtvd
IF h1500
vtval EQU 1 ; we can do VT52 emulation
defesc EQU '\'-100O ;Still Control-\ (just ran out of room...)
ttytyp: db 'Hazeltine$'
outlin: db 7eh,1ch,7eh,12h,'$'
erascr: db 7eh,1ch,7eh,12h,'$' ;Clear screen and home
eralin: db 7eh,13h,'$',0 ;Clear to end of sreen
curldn: db 7eh,11h,'$',0 ;Cursor lead-in
ttab: ;Table start location ;(MUST be 4 bytes each)
ta: db 7eh,0ch,'$',0 ;Cursor up, stop at top
tb: db 7eh,0bh,'$',0 ;Cursor down CTRL-J
tc: db 10h,'$',0,0 ;Cursor right, stop at right
td: db 8h,'$',0,0 ;Cursor left, stop at left
te: db 7eh,1ch,'$',0 ;Clear display (2 pad nulls)
tf: db '$',0,0,0 ;(can't) Enter Graphics mode
tg: db '$',0,0,0 ;(can't) Exit Graphics mode
th: db 7eh,0ch,'$',0 ;Cursor home
ti: db 7eh,0ch,'$',0 ;Reverse linefeed
tj: db '$',0,0,0 ;(can't) Clear to end of screen
tk: db 7eh,0fh,'$',0 ;Clear to end of line
ENDIF;h1500
IF wyse ;[gv]
vtval equ 1 ; we can do VT52 emulation
defesc EQU '\' ;Still Control-\ (just ran out of room...)
ttytyp: db ' [Wyse 100]',cr,lf,'$'
outlin: db esc,'+$',0 ;Clear screen and home
erascr: db esc,'+$',0 ;Clear screen and home
eralin: db esc,'Y$',0 ;Clear to end of sreen
curldn: db cr,esc,'=$' ;Cursor lead-in
ttab: ;Table start location ;(MUST be 4 bytes each)
ta: db 03h,'$',0,0 ;Cursor up, stop at top
tb: db lf,'$',0,0 ;Cursor down, stop at bottom
tc: db ff,'$',0,0 ;Cursor right, stop at right
td: db bs,'$',0,0 ;Cursor left, stop at left
te: db sub,0,0,'$' ;Clear display (2 pad nulls)
tf: db '$',0,0,0 ;Enter Graphics mode NONE
tg: db '$',0,0,0 ;Exit Graphics mode NONE
th: db 1eh,'$',0,0 ;Cursor home
ti: db esc,'v$',0 ;Reverse linefeed, scroll ???
tj: db esc,'Y$',0 ;Clear to end of sreen
tk: db esc,'T$',0 ;Clear to end of line
ENDIF;wyse
ovlend equ $ ; End of overlay
IF lasm ;Not really needed, as M80 ignores END in include files
END
ENDIF ;lasm
|
