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 ; (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