home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / msr313src.zip / msgibm.asm < prev    next >
Assembly Source File  |  1993-07-12  |  237KB  |  7,302 lines
  1.      Name msgibm
  2. ; File MSGIBM.ASM
  3.     include mssdef.h
  4. ;       Copyright (C) 1982,1993, Trustees of Columbia University in the
  5. ;       City of New York.  Permission is granted to any individual or
  6. ;       institution to use, copy, or redistribute this software as long as
  7. ;       it is not sold for profit and this copyright notice is retained.
  8. ; Tektronix emulator for use with MS Kermit/IBM.
  9. ; Edit history:
  10. ; 2 June 1993 version 3.13
  11. ; 6 Sept 1991 version 3.11
  12. ; 2 March 1991 version 3.10
  13. ; Last edit 2 June 1993
  14. ; June 1993 store EGA images in expanded memory if available and if used
  15. ;  for screen rollback.
  16. ; March 1993 Read GRight font from Code Page DOS file EGA.CPI, add CP850
  17. ;  compressed font.
  18. ; Feb 1992 Add DG 470 color graphics, cursor, etc.
  19. ; Dec 1992 Add DG compressed fonts, line, bar, etc graphics support.
  20. ; August 1992 Add beginnings of Data General D463 support.
  21. ; 12 Nov 1990 Add text cursor symbol, and on 17 Nov add cursor on/off.
  22. ; 2 Nov 1990 Add Microsoft mouse direct support.
  23. ; 8 June 1989 Added Wyse-700 support from Mikko Laanti.
  24. ; 21 Nov 1988 Version 2.32
  25. ; 1 Nov 1987 Heavy rewrite to integrate code into regular MS Kermit/IBM
  26. ;  material. [jrd]
  27. ;==============================================================================
  28. ; Original version for TI Pro computers by
  29. ; 12-Dec-84  Joe Smith, CSM Computing Center, Golden CO 80401
  30. ; adapted to IBM PC June 1987 by    Brian Holley,
  31. ;                    Faculty of Economics and Politics
  32. ;                    University of Cambridge, England
  33. ;                    Email: BJH6@UK.AC.CAM.PHX
  34. ; Upgraded and integrated into MS Kermit 2.30 by Joe Doupnik, Utah State Univ.
  35. ;
  36. ;           Description of Tektronix commands
  37. ;
  38. ; ESC CONTROL-E (ENQ) requests a status report
  39. ; ESC FORMFEED erases the screen.
  40. ; ESC CONTROL-X turns on bypass mode (ignore incoming characters).
  41. ; ESC CONTROL-Z turns on the crosshairs (not on 4006 or 4025)
  42. ; ESC 2  exit Tek submode for text mode (ignore if doing full Tek)
  43. ; ESC ? is replaced by DEL code, to assist line plots with 7 bit systems.
  44. ; ESC [ Pn ; Pn m  set screen colors. Pn = 30 + sum of colors for foregnd,
  45. ;  40 + sum of colors for background, Pn = 0 sets b/w, Pn = 1 for high
  46. ;  intensity. Colors are red = 1, green = 2, blue = 4.
  47. ; ESC [ ? 3 8 l  exits Tek mode and returns to host text terminal type
  48. ;  (VT102 if none defined yet). This is an extension from DEC VT340's.
  49. ; ESC [ ? 256 n  invokes a screen size report, for Word Perfect. Report is
  50. ;   ESC [ ? 256; height; width; num colors n   where num colors is 0, 1 or
  51. ;   16; report ESC [ ? 24; 80; 0 n  for pure text mono systems.
  52. ; ESC @  through  ESC M  sets default fill pattern as below (1=@...).
  53. ; ESC Z  report terminal type (as VT320)
  54. ; ESC [ 2; 2 $ u  host request color palette report.
  55. ; ESC / xhome;yhome;xwidth;yheight x           draw an empty rectangle
  56. ; ESC / xhome;yhome;xwidth;yheight;pattern y   fill rectangle with pattern
  57. ; ESC / xhome;yhome;xwidth;yheight;pattern z   fill rect with pattern+border
  58. ;  where x/yhome is the lower left Tek corner, xwidth and yheight are the
  59. ;  Tek width and height. All values are decimal numbers.
  60. ;  Patterns 0:use default, 1:solid, 2:grey, 3:left to right slant, 4:right to
  61. ;  left slant, 5:horizontal lines, 6:vertical lines, 7:slanted cross-hatch,
  62. ;  8:vertical cross-hatch, 9:checkerboard; 10:dotted, 11:horiz herringbone,
  63. ;  12:vertical herringbone,13 and above:border without fill. All are tiling
  64. ;  8x8 pixel patterns.
  65. ; ESC / param a, ... ESC / param c  set user definable line drawing pattern
  66. ;  to 16 bit value of param; plot as lsb first.
  67. ; ESC / 2 h or l,  ESC / 9 h or l. h is set, l is reset, 2 is destructive
  68. ;  space and 9 is destructive backspace. Defaults are reset.
  69. ; ESC x  ESC y  ESC z   selects one of these user definable patterns above.
  70. ; ESC P  P1; P2; P3 q string ESC \        a Sixel Graphics command
  71. ;   P1 and P3 ignored, P2 = 0 or 2 means draw 0 bits in background, 1 means
  72. ;    skip them.
  73. ;   string is
  74. ;     sixel chars (3fh..7eh, lower 6 bits+3fh, displayed lsb at the top)
  75. ;     ! Pn sixel char        where Pn is a repeat count
  76. ;     " Pan; Pad; Ph; Pv    raster attributes (all ignored for now)
  77. ;     # Pc; Pu; Px; Py; Pz  coloring as follows
  78. ;    Pc is color palette, 0-255  (note, only 0..15 are predefined)
  79. ;    Pu is color units, 1=HLS, 2=RGB
  80. ;    For Hue Lightness Saturation:
  81. ;        Px = Hue angle, 0-360 degrees. The colors are mapped around
  82. ;        the color wheel in 60 degree segments as Hues:
  83. ;        0-29 deg = blue, 30-89 = magenta (blue + red), 90-149 = red,
  84. ;        150-209 = yellow (red + green), 210-269 = green,
  85. ;        270-329 = cyan (green + blue), 330-359 = blue.
  86. ;        Py = Lightness, 0-100%, Pz = Saturation, 0-100%
  87. ;          Lightness    Sat = 51-100    Sat = 11-50     Sat = 0-10
  88. ;          86-100    bold white    bold white     bold white
  89. ;          71-85        bold hue    bold white     bold white
  90. ;          57-70        bold hue    grey (dim white) grey
  91. ;          43-56        bold hue    dim hue         black
  92. ;          29-42        dim hue        grey         grey
  93. ;          14-28        dim hue        black         black
  94. ;           0-13     black        black         black
  95. ;        Note that Py = Pz = 50 gives the widest spectrum.
  96. ;    For RGB: Px = red, 0-100%, Py = green, 0-100%, Pz = blue, 0-100%
  97. ;        If any color exceeds 50% then the bold bit is turned on for
  98. ;        the ensemble (IBM ega display adapter constraint for RGBi).
  99. ;
  100. ;    Palette registers can be selected by the substring
  101. ;        # Pc    followed by a non-numeric char other than ";"
  102. ;            and Pc is the palette register, 0-255.
  103. ;
  104. ;     $  (dollar sign )     meaning go to left margin
  105. ;     -  (minus)         meaning go to left margin 6 dots down.
  106. ;   This command yields one or more sets of 6 vertically arranged dots. They
  107. ;   are placed starting at the top and left side of the current text cell.
  108. ;   Escape sequences are permitted within string and occur without disruption.
  109. ; CONTROL-] (GS) turns on plot mode, the first move will be with beam off.
  110. ; CONTROL-^ (RS) turns on incremental plot mode. RS space means move pen up
  111. ;  RS P means move pen down, following letters: A, E, D, F, B, J, H, I mean
  112. ;  move right, right and up, up, left and up, left, left and down, down, and
  113. ;  right and down, respectively. Ex: RS <space> J J J  means move three Tek
  114. ;  positions left and down with the pen up (invisibly).
  115. ; CONTROL-UNDERLINE (US) turns off plot mode, as does CR (for all but 4025).
  116. ; CONTROL-X switches from TEKTRONIX sub mode to NORMAL alpha mode but is
  117. ;  ignored if we are emulating a full Tek terminal rather than a sub mode
  118. ;  of DEC or Heath.
  119. ; FF erases screen.
  120. ; ESC letter, where letter is accent grave (`) a..e, sets the line drawing
  121. ;   pattern until reset to solid lines (same as escape accent) by command or
  122. ;   a terminal reset.
  123. ; 
  124. ;    ENQ = Control E
  125. ;    ESC = Control [ (left square bracket)
  126. ;    FF = Control L
  127. ;    FS = Control \ (backslash)
  128. ;    GS = Control ] (right square bracket)
  129. ;    RS = Control ^ (caret)
  130. ;    US = Control _ (underscore)
  131. ;
  132. ; The plot commands are characters which specify the absolute position to move
  133. ; the beam.  All moves except the one immediately after the GS character
  134. ; (Control-]) are with a visible trace.
  135. ;
  136. ; For 4010-like devices - The positions are from 0 to 1023 for both X and Y,
  137. ; although only 0 to 780 are visible for Y due to screen geometry.  The screen
  138. ; is 10.23 by 7.80 inches, and coordinates are sent as 1 to 4 characters.
  139. ;
  140. ; For 4014-like devices - The positions are from 0 to 4096, but each movement
  141. ; is a multiple of 4 positions unless the high-resolution LSBXY are sent.  This
  142. ; makes it compatible with the 4010 in that a full sized plot fills the screen.
  143. ;
  144. ; HIX,HIY = High-order 5 bits of position
  145. ; LOX,LOY = Middle-order 5 bits of position
  146. ; LSBXY      = Low-order 2 bits of X + low-order 2 bits of Y (4014 mode)
  147. ;
  148. ; Hi Y      Lo Y      Hi X      LSBXY      Characters sent (Lo-X always sent)
  149. ; ----      ----      ----      -----      ----------------------------------
  150. ; Same      Same      Same      Same                 Lo-X
  151. ; Same      Same      Same      Diff        LSB, Lo-Y,     Lo-X    4014
  152. ; Same      Same      Diff      Same             Lo-Y, Hi-X, Lo-X
  153. ; Same      Same      Diff      Diff        LSB, Lo-Y, Hi-X, Lo-X    4014
  154. ; Same      Diff      Same      Same             Lo-Y,     Lo-X
  155. ; Same      Diff      Same      Diff        LSB, Lo-Y,     Lo-X    4014
  156. ; Same      Diff      Diff      Same             Lo-Y, Hi-X, Lo-X
  157. ; Same      Diff      Diff      Diff        LSB, Lo-Y, Hi-X, Lo-X    4014
  158. ; Diff      Same      Same      Same      Hi-Y,             Lo-X
  159. ; Diff      Same      Same      Diff      Hi-Y, LSB, Lo-Y,     Lo-X    4014
  160. ; Diff      Same      Diff      Same      Hi-Y,         Lo-Y, Hi-X, Lo-X
  161. ; Diff      Same      Diff      Diff      Hi-Y, LSB, Lo-Y, Hi-X, Lo-X    4014
  162. ; Diff      Diff      Same      Same      Hi-Y,         Lo-Y,     Lo-X
  163. ; Diff      Diff      Same      Diff      Hi-Y, LSB, Lo-Y,     Lo-X    4014
  164. ; Diff      Diff      Diff      Same      Hi-y,         Lo-Y, Hi-X, Lo-X
  165. ; Diff      Diff      Diff      Diff      Hi-y, LSB, Lo-Y, Hi-X, Lo-X    4014
  166. ; Offset for byte:          20h    60h  60h   20h     40h
  167. ;
  168. ; Note that LO-Y must be sent if HI-X has changed so that the TEKTRONIX knows
  169. ; the HI-X byte (in the range of 20h-3fh) is HI-X and not HI-Y.     LO-Y must
  170. ; also be sent if LSBXY has changed, so that the 4010 will ignore LSBXY and
  171. ; accept LO-Y.    The LSBXY byte is 60h + MARGIN*10h + LSBY*4 + LSBX. (MARGIN=0)
  172. ;
  173. ;
  174. ;
  175. ; External variable tekflg and calls to tekini, tekemu, tekesc, tekcls:
  176. ; Byte TEKFLG is non-zero when the Tek emulator is active; it is set by the
  177. ; startup code in tekini and is maintained in mszibm. Internal variable
  178. ; inited remembers if we have a graphics screen saved, etc.
  179. ; TEKINI must be called when entering the emulator to establish the graphics
  180. ; screen mode and to calculate the screen dimensions.
  181. ; TEKRINT reinitialize complete emulator.
  182. ; TEKESC is called from say mszibm.asm to invoke Tek emulation when the
  183. ; external procedures have detected an Escape Control-L sequence. An implicit
  184. ; initialization is done if necessary.
  185. ; TEKEMU is the normal entry point to pass a received character to the emulator.
  186. ; It too will do an implicit initialization, if required.
  187. ; TEKCLS clears the graphics screen, but only if the emulator is active.
  188. ; The emulator remains active during Connect mode Help, Status, and other
  189. ; interrupts which do not change the terminal type.
  190.  
  191.      
  192.     public    tekemu,tekini,tekrint,tekend,tekgraf ; Terminal emulation
  193.         public    tekdmp, tekinq, tekpal, tekrpal    ; used by mszibm file
  194.     public    chcontrol, tekcursor, tekgcptr        ; used by msyibm file
  195.     public    ttxtchr,ttxtline, dgline, dgbar, teksetcursor, tekremcursor
  196.     public    cursorst, croshair, dgcrosson, dgcrossoff, dgcrossrpt
  197.     public    dgsetcrloc, dgarc, dgpoly, savegoff, saveglen, cspb2
  198.  
  199. ENQ    equ    05h            ; ^E ENQ for TEK enquiries
  200. CAN    equ    18h            ; ^X to return to ANSI mode
  201. ESCZ    equ    1Ah            ; SUB, ESC-^Z triggers crosshairs
  202. VT    equ    0Bh            ; ^K go up one line
  203. CR    equ    0Dh
  204. FS    equ    1Ch            ; ^\ for point plot mode
  205. GS    equ    1Dh            ; ^] draw line (1st move is invisible)
  206. RS    equ    1Eh                   ; ^^ for incremental line plot mode
  207. US    equ    1Fh            ; ^_ (underscore) returns to text mode
  208. accent    equ    60h            ; accent grave
  209.  
  210. txtmode    equ    4            ; text mode for TEKTRONIX status
  211. maxtekx equ    1024            ; horizontal and
  212. maxteky equ    780            ; vertical resolution of TEK 4010
  213.      
  214. screen    equ    10h            ; IBM Bios screen call
  215.      
  216. uparr    equ    72            ; DOS scan codes for arrow keys
  217. dnarr    equ    80
  218. lftarr    equ    75
  219. rgtarr    equ    77
  220. homscn    equ    71            ; DOS home screen scan code
  221. shuparr    equ    '8'            ; ascii codes for shifted arrows
  222. shdnarr    equ    '2'
  223. shlftarr equ    '4'
  224. shrgtarr equ    '6'
  225. mouse    equ    33h            ; Microsoft mouse interrupt
  226. msread    equ    3            ; mouse, read status and position
  227. mswrite    equ    4            ; mouse, set position
  228. mshoriz    equ    7            ; mouse, set min/max horizontal motion
  229. msvert    equ    8            ; mouse, set min/max vertical motion
  230. msgetbf    equ    21            ; mouse, get state buffer size
  231. msgetst    equ    22            ; mouse, get mouse state to buffer
  232. mssetst    equ    23            ; mouse, set mouse state from buffer
  233. msreset    equ    33            ; mouse, software reset
  234.  
  235.                     ; Graph_mode for different systems:
  236. cga    equ    6            ; highest resolution mode for CGA
  237. mono    equ    7            ; real monochrome display adapter
  238. colorega equ    14            ; Low-res mode, color EGA
  239. monoega equ    15            ; mono ega needs mode 15
  240. ega    equ    16            ; Hi-res mode - EGA
  241. olivetti equ    72            ; Olivetti's Hi-res - 50 lines text
  242. toshiba    equ    74h            ; Toshiba T3100, like Olivetti
  243. vaxmate    equ    0D0h            ; DEC VAXmate II, like Olivetti
  244. wyse700 equ    0D3h            ; Wyse-700 1280 * 400
  245. hercules equ    255            ; pseudo mode for Hercules graphics
  246. ; Note: IBM VGA modes 17 & 18, 640 by 480, can be used by setting "ega" above
  247. ; to 17 or 18 and modifying ybot to be 479 and ymult to be 48 at label tekin5.
  248. ; The code will scale everything appropriately for the new screen size, but
  249. ; there will be insufficient memory to retain the entire graphics image.
  250. ; Manual override SET TERMINAL GRAPHICS VGA accomplishes these two steps.
  251. ;
  252. ; Note: WYSE-700 mode 1024 * 780 and 1280 * 800 can be set only by
  253. ; manual override SET TERMINAL GRAPHICS WYSET or WYSEA, respectively.
  254. ; No automatic sensing for Wyse.
  255.  
  256. ;; tekflg bits in byte
  257. ;tek_active equ    1            ; actively in graphics mode
  258. ;tek_tek equ    2            ; Tek terminal
  259. ;tek_dec equ    4            ; Tek submode of DEC terminals
  260. ;tek_sg    equ    8            ; special graphics mode
  261.  
  262. segega    equ    0a000h            ; segments of display memory, EGA,VGA
  263. segcga    equ    0b800h            ; CGA, AT&T/Olivetti and relatives
  264. seghga    equ    0b000h            ; HGA
  265. segmono    equ    0b000h            ; Monochrome
  266. segwyse equ    0a000h            ; wyse-700, both banks start from here
  267.                     ; Wyse equates:
  268. wystoff equ    03ddh            ; set bank start offset
  269. wystseg equ    03deh            ; set bank start base
  270. wymode    equ    03dfh            ; register to select mode & bank
  271. wybeven equ    0c8h            ; mask for R/W even bank
  272. wybodd    equ    0cbh            ; mask for R/W odd bank
  273.  
  274.                     ; Hercules equates:
  275. index    equ    03b4h            ; 6845 index register
  276. cntrl    equ    03b8h            ; Display mode control port
  277. hstatus    equ    03bah            ; status port
  278. scrn_on equ    8            ; bit to turn screen on
  279. grph    equ    2            ; graphics mode
  280. text    equ    20h            ; text mode
  281. config    equ    03bfh            ; configuration port
  282. genable equ    1+2            ; enable graphics (1) on two pages (2) 
  283. rgbbold    equ    80            ; nor/bold threshold for RGB intensity
  284. hiy    equ    1            ; codes for Tek graphics components
  285. loy    equ    2
  286. hix    equ    4
  287. lox    equ    3
  288. ; maxparam and maxinter must agree with the prime equ's in file mszibm.asm
  289. maxparam equ    10            ; number of ESC and DCS Parameters
  290. maxinter equ    10            ; number of ESC and DCS Intermediates
  291.  
  292.                     ; Pixel basic operation codes
  293. pixor    equ    1            ; write as foreground OR current dot
  294. pixbak    equ    2            ; write as absolute background color
  295. pixxor    equ    4            ; write as foreground XOR current dot 
  296. pixfor    equ    8            ; write absolute foreground color
  297.  
  298. emsint    equ    67h            ; EMS interrupt
  299. xmspresent equ    4300h            ; EMS presence check for XMS mgr
  300. emsmgrstat equ    40h            ; EMS get manager status
  301. emsgetseg equ    41h            ; EMS get segment of page frame
  302. emsgetnpgs equ    42h            ; EMS get number free pages
  303. emsalloc equ    43h            ; EMS get handle and allocate memory
  304. emsmapmem equ    44h            ; EMS map memory
  305. emsrelease equ    45h            ; EMS release mapped memory
  306. emsgetver equ    46h            ; EMS get version number
  307. emssetname equ    5301h            ; EMS LIM 4, set name
  308.  
  309. data    segment
  310.     extrn    flags:byte, rxtable:byte, vtemu:byte, vtcpage:word
  311.     extrn    tv_mode:byte, yflags:byte, low_rgt:byte, tekflg:byte
  312.     extrn    param:word, nparam:word, inter:byte, ninter:word, lparam:byte
  313.     extrn    parstate:word, pardone:word, parfail:word
  314.     extrn    dnparam:word, dparam:word, dlparam:byte, dninter:word
  315.     extrn    dinter:byte, dcsstrf:byte, emubufc:word, emubuf:byte
  316.     extrn    emubufl:word, ttyact:byte, vtclear:byte, cursor:word
  317.     extrn    dgwindcomp:byte, atctype:byte, dgcross:byte, scbattr:byte
  318.     extrn    rdbuf:byte, decbuf:byte, curattr:byte, dosnum:word
  319.     extrn    parmsk:byte, flowon:byte, flowoff:byte, flowcnt:byte
  320.     extrn    emsrbhandle:word, emsgshandle:word
  321.  
  322. ; required for Hercules screen handling
  323.      
  324. gtable    db    35h,2dh,2eh,7        ; bytes for 6845 controller
  325.     db    5bh,2,57h,57h        ; - graphics mode
  326.     db    2,3,0,0
  327.      
  328. ttable    db    61h,50h,52h,0fh        ; bytes for 6845 controller
  329.     db    19h,6,19h,19h        ; - text mode
  330.     db    2,0dh,0bh,0ch
  331.  
  332. attlogo    db    'OLIVETTI'        ; Olivetti M24/28, AT&T 6300 rom id
  333. attllen    equ    $-attlogo        ; length
  334. toshlogo db    '  TT33110000  TTOOSSHHIIBBAA' ; Toshiba T3100 logo
  335. toshlen    equ    $-toshlogo        ; length
  336. declogo    db    'Copyright Digital Equipment Corp' ; DEC VAXmate
  337. declen    equ    $-declogo
  338. dumpname db    'TEKPLT.TIF',0        ; dump name
  339. dumplen    equ    $-dumpname
  340. dhandle    dw    -1            ; dump file handle
  341. emsgsname db    'KERMIT  ',0        ; 8 byte EMS region name, + safety
  342. emsseg    dw    0            ; segment of ems memory
  343. emsbytes dw    0            ; pixel bytes in ems storage
  344. ;;;;;;;;;;;;;;; start session save area
  345.     even
  346. savegoff label    word
  347.  
  348. ttstate    dw    tektxt            ; state machine control pointer
  349. prestate dw    0            ; previous state, across interruptions
  350. visible db    0            ; 0 to move, 1 to draw a line
  351. tek_hiy dw    0            ; Y coordinate in Tektronix mode
  352. tek_loy db    0
  353. tek_hix dw    0            ; X coordinate in Tektronix mode
  354. tek_lox db    0
  355. tek_lsb db    0            ; Low-order 2 bits of X + low Y
  356.                     ;    (4014 mode)
  357. status    db    0
  358. lastc    db    0            ; last x/y coord fragment seen       
  359. bnkchan db    0            ; a flag so we can select which bank
  360.                     ; to write in Wyse 1280*800 mode
  361. colpal    db    0,9,0ch,0ah        ; VT340 color palette table, IRGB
  362.     db    0dh,0bh,0eh,7, 8,1,4,2, 5,3,6,0fh ; 16 bytes, active table
  363.     db    256-($-colpal) dup (0)    ; to make 256 entries overall
  364. coldef    db    0,9,0ch,0ah, 0dh,0bh,0eh,7, 8,1,4,2, 5,3,6,0fh ; color def
  365. mondef    db    0,7 dup (0fh), 8 dup (7) ; monochrome default "colors"
  366. havepal    db    0            ; 1 if have selected palette
  367. masktab db    80h,40h,20h,10h,8,4,2,1 ; quicker than calculations!
  368.                     ; dashed line patterns
  369. linetab    dw    0ffffh            ; ESC accent    11111111 11111111
  370.     dw    0aaaah            ; ESC a        10101010 10101010
  371.     dw    0f0f0h            ; ESC b        11110000 11110000
  372.     dw    0fafah            ; ESC c        11111010 11111010
  373.     dw    0ffcch            ; ESC d        11111111 11001100
  374.     dw    0fc92h            ; ESC e        11111100 10010010
  375.     dw    0ffffh            ; ESC x    user defined
  376.     dw    0ffffh            ; ESC y user defined
  377.     dw    0ffffh            ; ESC z user defined
  378. linepat    dw    0ffffh            ; active line pattern, from above
  379. ginlpsave dw    0            ; saved linepat while in GIN mode
  380.  
  381. tekid    db    escape,'[?63;1;2;4;8;9;15c',0; VT320, level 3, etc
  382. ;End of init data
  383.  
  384.     even
  385. xmult    dw    1            ; scaling factor for x is
  386. xdiv    dw    1            ;     xmult/xdiv
  387. ymult    dw    1            ; scaling factor for y is
  388. ydiv    dw    1            ;     ymult/ydiv
  389. xmax    dw    640-8            ;
  390. ybot    dw    350-1            ;
  391. x_coord dw    0            ; Tek text char X coordinate
  392. y_coord dw    0            ; Tek text char Y coordinate
  393. xcursor    dw    0            ; PC x_coord of text cursor symbol
  394. ycursor    dw    0            ; PC y_coord of text cursor symbol
  395. save_xcor dw    0            ; save with save-screen
  396. save_ycor dw    0            ; ditto
  397. xcross    dw    0            ; crosshair coordinates
  398. ycross    dw    0
  399. xcenter    dw    0            ; center of screen
  400. ycenter    dw    0            ; center of screen
  401. crossactive db    0            ; non-zero if crosshair is active
  402. tekcursor db    1            ; show text cursor (non-zero)
  403. cursorst db    0            ; cursor state (non-zero is displayed)
  404. oldx    dw    0            ; Tek coordinates of last point
  405. oldy    dw    767            ;  initially top left
  406. scalex    dw    0            ; PC coord for scaled x value
  407. scaley    dw    0            ;  for scaled y value
  408. rectx1    dw    0            ; Rectangle PC x lower left corner
  409. recty1    dw    0            ; Rectangle PC y lower left corner
  410. rectx2    dw    0            ; Rectangle PC x width
  411. recty2    dw    0            ; Rectangle PC y height
  412. angle    dw    0,0            ; arc worker area
  413. dgxmax    dw    640-1            ; DG 470
  414. dgymax    dw    480-1
  415. ;dgxmax    dw    800-1            ; DG 463
  416. ;dgymax    dw    576-1
  417.  
  418. numlines dw    0            ; number of lines to fill
  419. charhgt    dw    8            ; scan lines per character
  420. charwidth dw    8            ; dots across character cell
  421. fontlptr dd    font            ; pointer to high bit clear char fonts
  422. fontrptr dd    font            ; pointer to high bit set char fonts
  423. dotbuf    db    16 dup (0)        ; buffer to hold char dot pattern
  424. fontfile db    'EGA.CPI',0        ; DOS Code Page file, ASCIIZ
  425. havefont dw    0            ; holds Code Page if have GRight font
  426. curcharw dw    8            ; char width of cursor font
  427. curgcol dw    0            ; last used colors of cursor
  428.                     ; area fill material
  429. fill    db    0            ; current fill byte pattern
  430. fillptr    dw    filpat1            ; pointer to current fill pattern
  431. fillist    dw    filpat1,filpat2,filpat3,filpat4,filpat5,filpat6,filpat7
  432.     dw    filpat8,filpat9,filpat10,filpat11,filpat12,filpat13
  433.     dw    filpat14
  434. numfil    equ    ($-fillist)/2        ; number of fill patterns
  435.     ; fill patterns, 8 bits wide, first byte is at top of PC screen
  436.     ; 8 bytes per pattern for 8 scan line repetition
  437. filpat1    db    8 dup (0ffh)        ; solid fill
  438. filpat2    db    4 dup (0aah, 55h)    ; grey (alternating dots)
  439. filpat3    db    80h,01h,02h,04h, 08h,10h,20h,40h ; right to left slant up
  440. filpat4    db    80h,40h,20h,10h, 08h,04h,02h,01h ; left to right slant up
  441. filpat5 db    2 dup (0,0,0aah,0)    ; horizontal lines
  442. filpat6    db    8 dup (44h)        ; vertical lines
  443. filpat7    db    80h,41h,22h,14h, 08h,14h,22h,41h   ; slanted crosshatch
  444. filpat8    db    2 dup (0aah,80h,80h,80h)  ; vertical crosshatch
  445. filpat9    db    4 dup (0f0h), 4 dup (0fh) ; checkerboard
  446. filpat10 db    4 dup (44h, 11h)    ; dots
  447. filpat11 db    2 dup (10h,28h,44h,82h)    ; horizontal herringbone
  448. filpat12 db    80h,40h,20h,10h,08h,10h,20h,40h ; vertical herringbone
  449. filpat13 db    8 dup (0ffh)        ; first user definable fill
  450. filpat14 db    8 dup (0ffh)        ; second user definable fill
  451.                     ; end of area fill material
  452. defcurpat db    0ffh,6 dup (81h),0ffh    ; 8x8 def Tek cursor
  453. dgcurupat db    11 dup (0),0ffh,0ffh,0,0; D463/470 cursor underline pattern
  454. dgcurbpat db    0,12 dup (0ffh),0    ; D463/470 cursor block pattern
  455. dgctype    db    0            ; D463/470 last written cursor type
  456. curmode    db    0            ; screen mode before graphics
  457. tekgraf    db    0        ; Tek graphics board selection (def=auto)
  458.                 ; local variables for LINE plotting routine
  459. graph_mode db    0            ; graphics video mode, default is none
  460. inited    db    0            ; non-zero if inited (retains page)
  461. tekident db    0            ; Tek ident request flag
  462. gpage    db    0            ; display adapter graphics page
  463. gfcol    db    15            ; graphics foreground color
  464. gbcol    db    0            ; graphics background color
  465. tfcol    db    0            ; temp foreground color
  466. tbcol    db    0            ; temp background color
  467. colortb    db    0,4,2,6,1,5,3,7        ; color reversed-bit setting bytes
  468. ccode    db    pixfor            ; temp for holding plot color code
  469. bypass    db    0            ; GIN mode bypass condition (0=off)
  470. esctype    db    0            ; first char after ESCAPE char
  471. bscontrol db    0            ; non-zero for destructive BS
  472. spcontrol db    0            ; non-zero for destructive SPACE
  473. chcontrol db    0            ; char-writing, 1=opaque,0=transparent
  474.     even
  475. putc    dw    mputc            ; ptr to plot a character routine
  476. psetup    dw    psetupm            ; ptr to plot setup routine
  477. pincy    dw    pincym            ; ptr to inc y routine
  478. plotptr    dw    pltmon            ; ptr to dot plot routine
  479. gfplot    dw    bpltmon            ; ptr to area-fill plot routine
  480. segscn    dw    0b800h            ; actual screen segment to use
  481. linelen    dw    0            ; offset increment between scan lines
  482. temp    dw    0
  483.  
  484. saveglen dw    ($-savegoff)        ; length of z save area
  485. ;;;;;;;;;;;;;;;;; end of session save area
  486.  
  487. ten    dw    10            ; word 10 for multiplying
  488. mousebuf dw    0            ; segment of mouse save buffer
  489.  
  490. ; TIFF version 5.0 data fields
  491. ; Reference: Aldus/Microsoft Technical Memorandum dated 8/8/88
  492.                     ; TIFF data item size indicators
  493. uchar    equ    1            ; unsigned byte
  494. ascii    equ    2            ; asciiz string byte
  495. integer    equ    3            ; 16 bit unsigned integer
  496. long    equ    4            ; 32 bit unsigned integer
  497. rational equ    5            ; 32 bit numerator, 32 bit denominator
  498.  
  499. entry    struc                ; 12 byte image file directory entries
  500.     dw    ?            ; tag
  501.     dw    integer            ; type, of data item
  502. entcnt    dd    1            ; length, count of data items
  503. entval    dw    0            ; long value or long offset to value
  504.     dw    0
  505. entry    ends
  506.     
  507.     even                ; TIFF 5.0,  8 byte header
  508. header    dw    4949h            ; 'll', low byte stored first
  509.     dw    42            ; TIFF identification, 42 decimal
  510.     dw    nentry-header,0        ; long offset to image file directory
  511.                     ; Image File Directory
  512. nentry    dw    entrycnt        ; number of entries to follow
  513.                     ; 12-byte directory entries
  514. newsub    entry    <0feh,long>        ; new subfield type
  515. iwidth    entry    <100h,integer>        ; image width,  integer for WP 5
  516. ilength entry    <101h,integer>        ; image length, integer for WP 5
  517. bps    entry    <102h,,,4>         ; bits per sample, 4=iRGB, 1=B/W
  518. comp    entry    <103h,,,1>        ; compression, none
  519. photo     entry    <106h,,,3>        ; photometric interpret, palette 
  520. strip     entry    <111h,long,25,stripoff-header> ; offset to long strip offsets
  521. spp    entry    <115h,,,1>        ; samples/pixel, 1
  522. rps    entry    <116h,long,1,25>    ; long rows per strip
  523. sbc    entry    <117h,integer,25,stripbc-header> ; offset to strip byte counts
  524. xres    entry    <11ah,rational,1,xresval-header> ; x axis resolution
  525. yres    entry    <11bh,rational,1,yresval-header> ; y axis resolution
  526. resunit entry    <128h,integer,1,1>    ; resolution unit, no absolute units
  527. soft    entry    <131h,ascii,proglen,prog-header> ; software ident
  528. stamp    entry    <132h,ascii,dtlen,dandt-header>  ; date and time stamp
  529. cmap    entry    <140h,integer,3*16,colmap-header> ; palette color map
  530. entrycnt equ    ($-nentry-2+11)/12    ; compute number of entries for nentry
  531.     dd    0            ; long offset of next directory (none)
  532.                     ; supporting data pointed at above
  533. prog    db    'MS Kermit 300',0    ; originating program, asciiz
  534. proglen equ    $-prog
  535. dandt    db    '1989:12:25 00:00:01',0    ; date and time format
  536. dtlen    equ    $-dandt
  537. xresval dw    0,0,1,0            ; two double words (top / bottom)
  538. yresval dw    0,0,1,0            ; two double words (top / bottom)
  539. stripoff dd    25 dup (0)        ; long file offset for each strip
  540. stripbc dw    25 dup (0)        ; integer byte count for each strip
  541.     ; color map for red, green, blue; index by IRGB bits from ega sample
  542. colmap    dw    4 dup (0), 4 dup (007ffh), 4 dup (0), 4 dup (0ffffh) ; red
  543.     dw    2 dup (0,0,007ffh,007ffh), 2 dup (0,0,0ffffh,0ffffh) ; green
  544.     dw    2 dup (0,007ffh,0,007ffh), 2 dup (0,0ffffh,0,0ffffh) ; blue
  545. tifflen equ    $-header         ; length of header + directory + info
  546. pixdata equ    $              ; pixel data start here on disk
  547.                     ; end of TIFF information
  548.  
  549. esctab    db    33            ; table of ESC <char> dispatches
  550.     dw    escjmp            ; address of table for action routines
  551.     db    ENQ,FF,CAN,CTLZ,'/'            ; ^E,^L,^X,^Z,/
  552.     db    '@ABCD','EFGHI','JKLM'
  553.     db    3fh,'PZ[\'                ; '?PZ[\'
  554.     db    60h,'abcde','fghij','klmno','xyz'    ; accent, a..o,x,y,z
  555.  
  556. ; Dispatch for esctab table
  557.     even
  558. escjmp    dw    tekenq, tekcls,tekcan, tekgin,tekeseq    ; ^E,^L,^X,^Z,/
  559.     dw    14 dup (tekfill)            ; '@ABCDEFGHIJKLM'
  560.     dw    tekqury,tekeseq,sendid,tekeseq,tekgotst ; '?PZ[\'
  561.     dw    19 dup (teklpat)            ; accent, a..o,x,y,z
  562.  
  563. ; Final char table for ANSI escape sequences
  564. anstab    db    21            ; number of entries
  565.     dw    ansjmp            ; address of action routines
  566.     db    '@ABCD','EFGHJ','KXade','fhlmn','u'
  567.  
  568. ; Dispatch for anstab table
  569.     even
  570. ansjmp    dw    ansich, atcuu,   atcud,   atcuf,  atcub        ; '@ABCD'
  571.     dw    atcnl,  atcpl,   atcha,   atcup,  ated        ; 'EFGHJ'
  572.     dw    atel,   atech,   atcuf,   atcva,  atcud        ; 'KXade'
  573.     dw    atcup,  escexit, escexit, tekcol, tekrid    ; 'fhlmn'
  574.     dw    tekprpt                        ; 'u'
  575. data    ends
  576.  
  577. data1    segment
  578.  
  579. ; 8*8 font for Hercules and such, CGA, and EGA
  580. ; - allows 43 lines, and 80 (90 for Hercules) chars per line.
  581. ; all printing (?) characters from <space> to <del> - two characters per line
  582. ; 8 bits per scan line, top line given first, 8 scan lines.    
  583. font    db    0,0,0,0,0,0,0,0,           18h,18h,18h,18h,18h,0,18h,0
  584.     db    6ch,6ch,6ch,0,0,0,0,0,           36h,36h,7fh,36h,7fh,36h,36h,0
  585.     db    0ch,3fh,68h,3eh,0bh,7eh,18h,0, 60h,66h,0ch,18h,30h,66h,06h,0
  586.     db    38h,6ch,6ch,38h,6dh,66h,3bh,0, 0ch,18h,30h,0,0,0,0,0
  587.     db    0ch,18h,30h,30h,30h,18h,0ch,0, 30h,18h,0ch,0ch,0ch,18h,30h,0
  588.     db    0,18h,7eh,3ch,7eh,18h,0,0,     0,18h,18h,7eh,18h,18h,0,0
  589.     db    0,0,0,0,0,18h,18h,30h,           0,0,0,7eh,0,0,0,0
  590.     db    0,0,0,0,0,18h,18h,0,           0,06h,0ch,18h,30h,60h,0,0
  591.     db    3ch,66h,6eh,7eh,76h,66h,3ch,0, 18h,38h,18h,18h,18h,18h,7eh,0
  592.     db    3ch,66h,06h,0ch,18h,30h,7eh,0, 3ch,66h,06h,1ch,06h,66h,3ch,0
  593.     db    0ch,1ch,3ch,6ch,7eh,0ch,0ch,0, 7eh,60h,7ch,06h,06h,66h,3ch,0
  594.     db    1ch,30h,60h,7ch,66h,66h,3ch,0, 7eh,06h,0ch,18h,30h,30h,30h,0
  595.     db    3ch,66h,66h,3ch,66h,66h,3ch,0, 3ch,66h,66h,3eh,06h,0ch,38h,0
  596.     db    0,0,18h,18h,0,18h,18h,0,       0,0,18h,18h,0,18h,18h,30h
  597.     db    0ch,18h,30h,60h,30h,18h,0ch,   0,0,0,7eh,0,7eh,0,0,0
  598.     db    30h,18h,0ch,06h,0ch,18h,30h,   0,3ch,66h,0ch,18h,18h,0,18h,0
  599.     db    3ch,66h,6eh,6ah,6eh,60h,3ch,   0,3ch,66h,66h,7eh,66h,66h,66h,0
  600.     db    7ch,66h,66h,7ch,66h,66h,7ch,   0,3ch,66h,60h,60h,60h,66h,3ch,0
  601.     db    78h,6ch,66h,66h,66h,6ch,78h,   0,7eh,60h,60h,7ch,60h,60h,7eh,0
  602.     db    7eh,60h,60h,7ch,60h,60h,60h,   0,3ch,66h,60h,6eh,66h,66h,3ch,0
  603.     db    66h,66h,66h,7eh,66h,66h,66h,   0,7eh,18h,18h,18h,18h,18h,7eh,0
  604.     db    3eh,0ch,0ch,0ch,0ch,6ch,38h,   0,66h,6ch,78h,70h,78h,6ch,66h,0
  605.     db    60h,60h,60h,60h,60h,60h,7eh,   0,63h,77h,7fh,6bh,6bh,63h,63h,0
  606.     db    66h,66h,76h,7eh,6eh,66h,66h,   0,3ch,66h,66h,66h,66h,66h,3ch,0
  607.     db    7ch,66h,66h,7ch,60h,60h,60h,   0,3ch,66h,66h,66h,6ah,6ch,36h,0
  608.     db    7ch,66h,66h,7ch,6ch,66h,66h,   0,3ch,66h,60h,3ch,06h,66h,3ch,0
  609.     db    7eh,18h,18h,18h,18h,18h,18h,   0,66h,66h,66h,66h,66h,66h,3ch,0
  610.     db    66h,66h,66h,66h,66h,3ch,18h,   0,63h,63h,6bh,6bh,7fh,77h,63h,0
  611.     db    66h,66h,3ch,18h,3ch,66h,66h,   0,66h,66h,66h,3ch,18h,18h,18h,0
  612.     db    7eh,06h,0ch,18h,30h,60h,7eh,   0,7ch,60h,60h,60h,60h,60h,7ch,0
  613.     db    0,60h,30h,18h,0ch,06h,0,0,     3eh,06h,06h,06h,06h,06h,3eh,0
  614.     db    18h,3ch,66h,42h,0,0,0,0,       0,0,0,0,0,0,0,0ffh
  615.     db    30h,18h,0ch,0,0,0,0,0,           0,0,3ch,06h,3eh,66h,3eh,0
  616.     db    60h,60h,7ch,66h,66h,66h,7ch,0, 0,0,3ch,66h,60h,66h,3ch,0
  617.     db    06h,06h,3eh,66h,66h,66h,3eh,0, 0,0,3ch,66h,7eh,60h,3ch,0
  618.     db    0eh,18h,18h,3ch,18h,18h,18h,0, 0,0,3eh,66h,66h,3eh,06h,3ch
  619.     db    60h,60h,7ch,66h,66h,66h,66h,0, 18h,0,38h,18h,18h,18h,3ch,0
  620.     db    18h,0,38h,18h,18h,18h,18h,70h, 60h,60h,66h,6ch,78h,6ch,66h,0
  621.     db    38h,18h,18h,18h,18h,18h,3ch,0, 0,0,76h,7fh,6bh,6bh,63h,0
  622.     db    0,0,7ch,66h,66h,66h,66h,0,     0,0,3ch,66h,66h,66h,3ch,0
  623.     db    0,0,7ch,66h,66h,7ch,60h,60h,0, 0,3eh,66h,66h,3eh,06h,07h
  624.     db    0,0,6ch,76h,60h,60h,60h,0,     0,0,3eh,60h,3ch,06h,7ch,0
  625.     db    30h,30h,7ch,30h,30h,30h,1ch,0, 0,0,66h,66h,66h,66h,3eh,0
  626.     db    0,0,66h,66h,66h,3ch,18h,0,     0,0,63h,6bh,6bh,7fh,36h,0
  627.     db    0,0,66h,3ch,18h,3ch,66h,0,     0,0,66h,66h,66h,3eh,06h,3ch
  628.     db    0,0,7eh,0ch,18h,30h,7eh,0,     0ch,18h,18h,70h,18h,18h,0ch,0
  629.     db    18h,18h,18h,0,18h,18h,18h,0,   30h,18h,18h,0eh,18h,18h,30h,0
  630.     db    31h,6bh,46h,0,0,0,0,0,           0ffh,6 dup (81h),0ffh
  631.     ; note, the last 8 bytes comprise the text cursor symbol pattern
  632.  
  633.     ; 5x14 font cell, space is on the left, 4 dot descender region
  634. fivedot    db    14 dup (0)                    ; 0 null
  635.     db    0,0,0,70h,88h,0d8h,88h,0d8h,0a8h,70h,0,0,0,0    ; 1 happy face
  636.     db    0,0,0,70h,0f8h,0a8h,0f8h,0a8h,0d8h,70h,0,0,0,0    ; 2 happy face
  637.     db    0,0,0,0d8h,4 dup (0f8h),70h,20h,0,0,0,0        ; 3 heart
  638.     db    0,0,0,20h,70h,0f8h,0f8h,70h,70h,20h,0,0,0,0    ; 4 diamond
  639.     db    0,0,0,70h,20h,0a8h,0f8h,0a8h,20h,20h,0,0,0,0    ; 5 club
  640.     db    0,0,0,20h,70h,0f8h,0f8h,0a8h,20h,20h,0,0,0,0    ; 6 spade
  641.     db    4 dup (0),20h,70h,70h,70h,20h,5 dup (0)        ; 7 dot
  642.     db    5 dup (0f8h),0d8h,98h,98h,0d8h,5 dup (0f8h)    ; 8 floppy
  643.     db    4 dup (0),20h,50h,98h,98h,50h,20h,0,0,0,0    ; 9 circle
  644.     db    4 dup (0f8h),0d8h,0a8h,70h,70h,0a8h,0d8h,4 dup (0f8h) ; 10
  645.     db    0,0,0,18h,8,20h,50h,98h,50h,20h,0,0,0,0        ; 11 male
  646.     db    5 dup (0),20h,50h,98h,50h,20h,20h,70h,20h,0    ; 12 female
  647.     db    0,0,0,30h,28h,20h,20h,20h,0e0h,0c0h,0,0,0,0    ; 13 note
  648.     db    0,0,0,40h,70h,50h,70h,50h,0d0h,0d0h,30h,30h,0,0    ; 14 notes
  649.     db    0,0,20h,98h,20h,70h,70h,20h,98h,20h,0,0,0,0    ; 15 sun
  650.     db    0,0,0,40h,60h,70h,78h,70h,60h,40h,0,0,0,0    ; 16 rt arrow
  651.     db    0,0,0,8,18h,38h,78h,38h,18h,8,0,0,0,0        ; 17 lft arrow
  652.     db    0,20h,50h,98h,20h,20h,20h,98h,50h,20h,0,0,0,0    ; 18 t/b arrow
  653.     db    0,0,6 dup (50h),0,50h,0,0,0,0            ; 19 dbl bang
  654.     db    0,0,0,78h,0a8h,0a8h,68h,28h,28h,28h,0,0,0,0    ; 20 paragraph
  655.     db    0,20h,50h,40h,20h,50h,20h,10h,50h,20h,0,0,0,0     ; 21 section
  656.     db    5 dup (0),70h,70h,7 dup (0)            ; 22 bar
  657.     db    0,20h,50h,98h,20h,20h,20h,98h,50,20h,0,0f8h,0,0    ; 23 arrow,bar
  658.     db    0,20h,50h,98h,6 dup (20h),0,0,0,0        ; 24 up arrow
  659.     db    0,0,5 dup (20h),98h,50h,20h,0,0,0,0        ; 25 dn arrow
  660.     db    0,0,0,20h,10h,0e8h,10h,20h,6 dup (0)        ; 26 rt arrow
  661.     db    0,0,0,20h,40h,0b8h,40h,20h,6 dup (0)        ; 27 lf arrow
  662.     db    5 dup (0),40h,40h,78h,6 dup (0)            ; 28
  663.     db    4 dup (0),50h,98h,50h,7 dup (0)            ; 29
  664.     db    4 dup (0),20h,70h,0f8h,7 dup (0)        ; 30 up triang
  665.     db    4 dup (0),0f8h,70h,20h,7 dup (0)        ; 31 dn traing
  666.     db    14 dup (0)                    ; space
  667.     db    0,0,20h,20h,20h,20h,20h,0,20h,0,0,0,0,0        ; !
  668.     db    0,0,50h,50h,50h,9 dup (0)            ; "
  669.     db    0,0,50h,50h,0f8h,50h,50h,0f8h,50h,50h,0,0,0,0     ; #
  670.     db    0,20h,30h,60h,40h,60h,30h,30h,60h,20h,0,0,0,0     ; $
  671.     db    0,0,0c0h,0c8h,10h,20h,40h,98h,18h,0,0,0,0,0    ; %
  672.     db    0,20h,50h,70h,20h,68h,90h,90h,90h,68h,0,0,0,0    ; &
  673.     db    0,0,20h,20h,20h,9 dup (0)            ; '
  674.     db    0,0,10h,20h,40h,40h,40h,40h,20h,10h,0,0,0,0    ; (
  675.     db    0,0,40h,20h,10h,10h,10h,10h,20h,40h,0,0,0,0    ; )
  676.     db    0,0,0,20h,0a8h,70h,70h,70h,0a8h,20h,0,0,0,0    ; *
  677.     db    0,0,20h,20h,20h,0f8h,20h,20h,20h,0,0,0,0,0    ; +
  678.     db    8 dup (0),10h,10h,10h,20h,0,0            ; ,
  679.     db    5 dup (0),70h,8 dup (0)                ; -
  680.     db    8 dup (0),20h,20h,0,0,0,0            ; .
  681.     db    0,0,0,0,08h,10h,20h,40h,80h,5 dup (0)        ; /
  682.     db    0,0,78h,48h,48h,58h,68h,48h,48h,78h,0,0,0,0    ; 0
  683.     db    0,0,20h,60h,5 dup (20h),70h,0,0,0,0        ; 1
  684.     db    0,0,70h,50h,10h,30h,60h,40h,40h,70h,0,0,0,0    ; 2
  685.     db    0,0,70h,50h,10h,30h,10h,10h,50h,70h,0,0,0,0    ; 3
  686.     db    0,0,10h,30h,30h,50h,50h,78h,10h,10h,0,0,0,0    ; 4
  687.     db    0,0,70h,40h,40h,70h,10h,10h,50h,70h,0,0,0,0    ; 5
  688.     db    0,0,70h,50h,40h,40h,70h,50h,50h,70h,0,0,0,0    ; 6
  689.     db    0,0,70h,10h,10h,10h,20h,20h,40h,40h,0,0,0,0    ; 7
  690.     db    0,0,70h,50h,50h,70h,50h,50h,50h,70h,0,0,0,0    ; 8
  691.     db    0,0,70h,50h,50h,70h,10h,10h,50h,70h,0,0,0,0    ; 9
  692.     db    0,0,0,20h,20h,0,0,20h,20h,5 dup (0)        ; :
  693.     db    5 dup (0),20h,20h,0,0,20h,20h,40h,0,0        ; ;
  694.     db    0,0,08h,10h,20h,40h,20h,10h,08h,5 dup(0)    ; <
  695.     db    0,0,0,0,70h,0,70h,7 dup (0)            ; =
  696.     db    0,0,40h,20h,10h,08h,10h,20h,40h,5 dup (0)    ; >
  697.     db    0,0,70h,50h,10h,30h,20h,20h,0,20h,0,0,0,0    ; ?
  698.     db    0,0,0,78h,88h,0b8h,0a8h,0b8h,80h,70h,0,0,0,0    ; @
  699.     db    0,0,30h,48h,48h,48h,78h,48h,48h,48h,0,0,0,0    ; A
  700.     db    0,0,70h,50h,48h,70h,50h,48h,48h,70h,0,0,0,0    ; B
  701.     db    0,0,30h,48h,4 dup (40h),48h,30h,0,0,0,0        ; C
  702.     db    0,0,70h,50h,4 dup (48h),50h,70h,0,0,0,0        ; D
  703.     db    0,0,78h,40h,40h,70h,40h,40h,40h,78h,0,0,0,0    ; E
  704.     db    0,0,78h,40h,40h,70h,40h,40h,40h,40h,0,0,0,0    ; F
  705.     db    0,0,30h,48h,40h,40h,58h,48h,48h,38h,0,0,0,0    ; G
  706.     db    0,0,48h,48h,48h,78h,48h,48h,48h,48h,0,0,0,0    ; H
  707.     db    0,0,70h,6 dup (20h),70h,0,0,0,0            ; I
  708.     db    0,0,38h,08h,08h,08h,08h,48h,48h,78h,0,0,0,0    ; J
  709.     db    0,0,48h,48h,50h,60h,60h,50h,50h,48h,0,0,0,0    ; K
  710.     db    0,0,7 dup (40h),70h,0,0,0,0            ; L
  711.     db    0,0,48h,78h,78h,5 dup (48h),0,0,0,0         ; M
  712.     db    0,0,48h,48h,48h,68h,58h,48h,48h,48h,0,0,0,0    ; N
  713.     db    0,0,30h,6 dup (48h),30h,0,0,0,0            ; O
  714.     db    0,0,70h,48h,48h,48h,70h,40h,40h,40h,0,0,0,0    ; P
  715.     db    0,0,30h,48h,48h,48h,48h,58h,58h,30h,10h,0,0,0    ; Q
  716.     db    0,0,70h,48h,48h,70h,50h,50h,48h,48h,0,0,0,0    ; R
  717.     db    0,0,30h,50h,40h,60h,30h,10h,50h,60h,0,0,0,0    ; S
  718.     db    0,0,0f8h,7 dup (20h),0,0,0,0            ; T
  719.     db    0,0,7 dup (48h),78h,0,0,0,0            ; U
  720.     db    0,0,6 dup (48h),30h,30h,0,0,0,0            ; V
  721.     db    0,0,5 dup (48h),78h,78h,48h,0,0,0,0         ; W
  722.     db    0,0,50h,50h,50h,20h,20h,50h,50h,50h,0,0,0,0    ; X
  723.     db    0,0,88h,88h,50h,50h,20h,20h,20h,20h,0,0,0,0    ; Y
  724.     db    0,0,78h,08h,10h,10h,20h,20h,40h,78h,0,0,0,0    ; Z
  725.     db    0,0,70h,6 dup (40h),70h,0,0,0,0            ; [
  726.     db    0,0,0,0,80h,40h,20h,10h,08h,5 dup (0)        ; \
  727.     db    0,0,70h,6 dup (10h),70h,0,0,0,0            ; ]
  728.     db    0,0,20h,50h,88h,9 dup (0)            ; ^
  729.     db    10 dup (0),0f8h,0,0,0                ; _
  730.     db    0,0,40h,60h,10h,9 dup (0)            ; `
  731.     db    5 dup (0),70h,10h,70h,50h,78h,0,0,0,0        ; a
  732.     db    0,0,40h,40h,40h,70h,50h,50h,50h,70h,0,0,0,0    ; b
  733.     db    5 dup (0),70h,50h,40h,50h,70h,0,0,0,0        ; c
  734.     db    0,0,10h,10h,10h,70h,50h,50h,50h,70h,0,0,0,0    ; d
  735.     db    5 dup (0),70h,50h,70h,40h,70h,0,0,0,0        ; e
  736.     db    0,0,30h,20h,20h,70h,20h,20h,20h,20h,0,0,0,0    ; f
  737.     db    5 dup (0),70h,50h,50h,70h,10h,50h,70h,0,0    ; g
  738.     db    0,0,40h,40h,40h,70h,50h,50h,50h,50h,0,0,0,0    ; h
  739.     db    0,0,0,20h,0,60h,20h,20h,20h,70h,0,0,0,0        ; i
  740.     db    0,0,0,10h,0,30h,10h,10h,10h,50h,70h,0,0,0    ; j
  741.     db    0,0,40h,40h,40h,48h,50h,60h,50h,48h,0,0,0,0    ; k
  742.     db    0,0,60h,6 dup (20h),70h,0,0,0,0            ; l
  743.     db    5 dup (0),0d8h,0f8h,0a8h,88h,88h,0,0,0,0    ; m
  744.     db    5 dup (0),0f0h,4 dup (50h),0,0,0,0        ; n
  745.     db    5 dup (0),70h,50h,50h,50h,70h,0,0,0,0        ; o
  746.     db    5 dup (0),70h,50h,50h,50h,70h,40h,40h,0,0    ; p
  747.     db    5 dup (0),70h,50h,50h,50h,70h,10h,10h,0,0    ; q
  748.     db    5 dup (0),58h,60h,40h,40h,40h,0,0,0,0        ; r
  749.     db    5 dup (0),30h,40h,20h,10h,60h,0,0,0,0        ; s
  750.     db    0,0,20h,20h,20h,70h,20h,20h,20h,30h,0,0,0,0    ; t
  751.     db    5 dup (0),4 dup (50h),70h,0,0,0,0        ; u
  752.     db    5 dup (0),50h,50h,50h,20h,20h,0,0,0,0        ; v
  753.     db    5 dup (0),88h,0a8h,0a8h,0a8h,50h,0,0,0,0    ; w
  754.     db    5 dup (0),88h,50h,20h,50h,88h,0,0,0,0        ; x
  755.     db    5 dup (0),4 dup (50h),30h,10h,70h,0,0        ; y
  756.     db    5 dup (0), 70h,10h,20h,40h,70h,0,0,0,0        ; z
  757.     db    0,0,0,30h,20h,20h,60h,20h,20h,30h,0,0,0,0    ; {
  758.     db    0,0,8 dup (20h),0,0,0,0                ; |
  759.     db    0,0,0,60h,20h,20h,30h,20h,20h,60h,0,0,0,0    ; }
  760.     db    0,0,0,40h,0a8h,10h,8 dup (0)            ; ~
  761.     db    0,0,0,20h,50h,98h,98h,98h,0f8h,5 dup (0)    ; 127 DEL
  762.  
  763.                             ; begin CP437 GRight
  764. gr437    db    0,0,30h,48h,40h,40h,40h,40h,48h,30h,10h,70h,0,0    ; Cedillia
  765.     db    0,0,48h,0,0,4 dup (48h),78h,0,0,0,0        ; u umlate
  766.     db    0,0,10h,20h,0,70h,50h,70h,40h,70h,0,0,0,0    ; e accent
  767.     db    0,0,20h,50h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a caret
  768.     db    0,0,0,50h,0,70h,10h,70h,50h,78h,0,0,0,0        ; a umlate
  769.     db    0,0,40h,20h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a accent
  770.     db    0,20h,50h,20h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a ring
  771.     db    5 dup (0),70h,50h,40h,50h,70h,20h,60h,0,0    ; cedillia
  772.     db    0,0,20h,50h,0,70h,50h,70h,40h,70h,0,0,0,0    ; e caret
  773.     db    0,0,0,50h,0,70h,50h,70h,40h,70h,0,0,0,0        ; e umlate
  774.     db    0,0,40h,20h,0,70h,50h,70h,40h,70h,0,0,0,0    ; e accent
  775.     db    0,0,0,50h,0,60h,20h,20h,20h,70h,0,0,0,0        ; i umlate
  776.     db    0,0,20h,50h,0,60h,20h,20h,20h,70h,0,0,0,0    ; i caret
  777.     db    0,0,40h,20h,0,60h,20h,20h,20h,70h,0,0,0,0    ; i accent
  778.     db    0,28h,0,30h,48h,48h,78h,48h,48h,48h,0,0,0,0    ; A umlate
  779.     db    10h,28h,10h,30h,48h,48h,78h,48h,48h,48h,0,0,0,0    ; A ring
  780.  
  781.     db    10h,20h,0,78h,40h,40h,70h,40h,40h,78h,0,0,0,0    ; E accent
  782.     db    5 dup (0),78h,0a8h,0b8h,0d0h,0b8h,0,0,0,0    ; ae
  783.     db    0,0,78h,0a0h,0a0h,0b0h,0a0h,0e0h,0a0h,0b8h,0,0,0,0 ; AE
  784.     db    0,0,20h,50h,0,70h,50h,50h,50h,70h,0,0,0,0    ; o caret
  785.     db    0,0,0,50h,0,70h,50h,50h,50h,70h,0,0,0,0        ; o umlate
  786.     db    0,0,40h,20h,0,70h,50h,50h,50h,70h,0,0,0,0    ; o accent
  787.     db    0,0,20h,50h,0,50h,50h,50h,50h,70h,0,0,0,0    ; u caret
  788.     db    0,0,40h,20h,0,50h,50h,50h,50h,70h,0,0,0,0    ; u accent
  789.     db    0,0,0,50h,0,4 dup (50h),30h,10h,70h,0,0        ; y umlate
  790.     db    0,28h,0,30h,5 dup (48h),30h,0,0,0,0        ; O umlate
  791.     db    0,28h,0,6 dup (48h),78h,0,0,0,0            ; U umlate
  792.     db    0,20h,20h,70h,50h,40h,50h,70h,20h,20h,0,0,0,0    ; cent sign
  793.     db    0,30h,28h,20h,20h,70h,20h,20h,40h,78h,0,0,0,0    ; Sterling
  794.     db    0,0,88h,88h,50h,20h,70h,20h,70h,20h,0,0,0,0    ; Yen
  795.     db    0,0,0e0h,90h,90h,0e0h,80h,90h,0b8h,90h,18h,0,0,0 ; Piaster
  796.     db    0,10h,28h,20h,20h,70h,20h,20h,0c0h,40h,0,0,0,0    ; Florin
  797.  
  798.     db    0,0,10h,20h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a accent
  799.     db    0,0,20h,40h,0,60h,20h,20h,20h,70h,0,0,0,0    ; i accent
  800.     db    0,0,10h,20h,0,70h,50h,50h,50h,70h,0,0,0,0    ; o accent
  801.     db    0,0,10h,20h,0,50h,50h,50h,50h,70h,0,0,0,0    ; u accent
  802.     db    0,0,28h,50h,0,60h,50h,50h,50h,50h,0,0,0,0    ; n tilde
  803.     db    0,28h,50h,0,48h,48h,68h,58h,48h,48h,0,0,0,0    ; N tilde
  804.     db    0,70h,50h,78h,0,78h,8 dup (0)            ; male ord
  805.     db    0,70h,50h,70h,0,78h,8 dup (0)            ; female ord
  806.     db    0,0,10h,0,10h,10h,20h,40h,48h,30h,0,0,0,0    ; inv query
  807.     db    5 dup (0),78h,40h,40h,6 dup (0)            ; inv not
  808.     db    5 dup (0),78h,8,8,6 dup (0)            ; not
  809.     db    40h,40h,48h,50h,20h,78h,88h,18h,20h,38h,0,0,0,0    ; one half
  810.     db    40h,40h,48h,50h,28h,58h,0a8h,48h,78h,10h,0,0,0,0 ; one quarter
  811.     db    0,0,0,20h,0,5 dup (20h),0,0,0,0            ; inv bang
  812.     db    0,0,0,0,28h,50h,0a0h,50h,28h,0,0,0,0,0        ; left chevron
  813.     db    0,0,0,0,0a0h,50h,28h,50h,0a0h,0,0,0,0,0        ; rgt chevron
  814.  
  815.     db    90h,48h,20h,90h,48h,20h,90h,48h,20h,90h,48h,20h,90h,48h
  816.     db    0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h
  817.     db    48h,0a0h,20h,48h,0a0h,20h,48h,0a0h,20h,48h,0a0h,20h,48h,0a0h
  818.     db    14 dup (30h)
  819.     db    5 dup (30h),0f0h,8 dup (30h)
  820.     db    4 dup (30h),0f0h,30h,30h,0f0h,6 dup (30h)
  821.     db    6 dup (50h),0d0h,7 dup (50h)
  822.     db    6 dup (0),0f0h,7 dup (50h)
  823.     db    4 dup (0),0f0h,30h,30h,0f0h,6 dup (30h)
  824.     db    4 dup (50h),0d0h,50h,50h,0d0h,6 dup (50h)
  825.     db    14 dup (50h)                    ; 186
  826.     db    4 dup (0),0f0h,10h,10h,0d0h,6 dup (50h)
  827.     db    4 dup (50h),0d0h,10h,10h,0f0h,6 dup (0)
  828.     db    5 dup (50h),0f0h,8 dup (0)
  829.     db    4 dup (30h),0f0h,30h,30h,0f0h,6 dup (0)
  830.     db    4 dup (0),0f0h,9 dup (30h)
  831.  
  832.     db    5 dup (30h),038h,8 dup (0)            ; 192
  833.     db    5 dup (30h),0f8h,8 dup (0)
  834.     db    5 dup (0),0f8h,8 dup (30h)
  835.     db    5 dup (30h),38h,8 dup (30h)
  836.     db    5 dup (0),0f8h,8 dup (0)            ; 196
  837.     db    5 dup (30h),0f8h,8 dup (30h)
  838.     db    4 dup (30h),38h,30h,30h,38h,6 dup (30h)
  839.     db    5 dup (50h),58h,8 dup (50h)
  840.     db    4 dup (50h),58h,40h,40h,48h,6 dup (0)
  841.     db    4 dup (0),78h,40h,40h,58h,6 dup (50h)
  842.     db    4 dup (50h),58h,40h,40h,48h,6 dup (0)
  843.     db    4 dup (0),0f0h,0,0,0d8h,6 dup (50h)        ; 202
  844.     db    4 dup (50h),58h,40h,40h,58h,6 dup (50h)
  845.     db    4 dup (0),0f8h,0,0,0f8h,6 dup (0)        ; 205
  846.     db    4 dup (50h),0d8h,0,0,0d8h,6 dup (50h)
  847.     db    5 dup (30h),0f8h,0,0f8h,6 dup (0)
  848.  
  849.     db    5 dup (50h),0f8h,8 dup (0)
  850.     db    4 dup (0),0f8h,0,0,0f8h,6 dup (30h)
  851.     db    5 dup (0),0f8h,8 dup (50h)
  852.     db    5 dup (50h),0f8h,8 dup (0)
  853.     db    4 dup (30h),38h,30h,30h,38h,6 dup (0)
  854.     db    4 dup (0),38h,30h,30h,38h,6 dup (30h)        ; 213
  855.     db    5 dup (0),78h,8 dup (50h)
  856.     db    5 dup (50h),0d8h,8 dup (50h)
  857.     db    4 dup (30h),0f8h,0,0,0f8h,6 dup (30h)
  858.     db    5 dup (30h),0f0h,8 dup (0)
  859.     db    5 dup (0),38h,8 dup (30h)            ; 218
  860.     db    14 dup (0f8h)
  861.     db    7 dup (0),7 dup (0f8h)
  862.     db    14 dup (0e0h)
  863.     db    7 dup (0f8h),7 dup (0)
  864.     db    14 dup (38h)
  865.  
  866.     db    0,0,0,60h,98h,90h,90h,90h,98h,60h,0,0,0,0    ; Alpha
  867.     db    0,0,70h,58h,48h,70h,50h,48h,48h,70h,40h,40h,20h,0 ; Beta
  868.     db    0,0,78h,48h,6 dup (40h),0,0,0,0            ; Gamma
  869.     db    0,0,0,0,0f8h,5 dup (50h),0,0,0,0        ; Pi
  870.     db    0,0,78h,48h,20h,10h,10h,20h,48h,78h,0,0,0,0    ; Sigma
  871.     db    0,0,0,0,78h,90h,90h,90h,90h,60h,0,0,0,0        ; sigma
  872.     db    5 dup (0),4 dup (48h),78h,40h,40h,80h,0        ; mu
  873.     db    0,0,0,50h,0a8h,20h,20h,20h,20h,10h,0,0,0,0    ; tau
  874.     db    0,0,0f8h,20h,70h,98h,98h,70h,20h,0f8h,0,0,0,0    ; Phi
  875.     db    0,0,30h,48h,48h,78h,48h,48h,48h,30h,0,0,0,0    ; Theta
  876.     db    0,0,70h,4 dup (90h),50h,50h,0d8h,0,0,0,0    ; Omega
  877.     db    0,0,70h,48h,20h,50h,98h,98h,98h,70h,0,0,0,0    ; delta
  878.     db    4 dup (0),50h,98h,98h,98h,98h,50h,0,0,0,0    ; infinity
  879.     db    0,0,30h,48h,48h,58h,68h,48h,0c8h,30h,0,0,0,0    ; phi
  880.     db    0,0,18h,20h,40h,78h,40h,40h,20h,18h,0,0,0,0    ; epsilon
  881.     db    0,0,0,30h,6 dup (48h),0,0,0,0            ; intersect
  882.  
  883.     db    0,0,0,70h,0,70h,0,70h,6 dup (0)            ; defined
  884.     db    0,0,20h,20h,70h,20h,20h,0,70h,5 dup (0)        ; +/-
  885.     db    0,40h,20h,10h,8,10h,20h,40h,0,78h,0,0,0,0    ; geq
  886.     db    0,8,10h,20h,40h,20h,10h,8,0,78h,0,0,0,0        ; leq
  887.     db    0,0,30h,48h,48h,40h,40h,20h,20h,5 dup (10h)    ; integral top
  888.     db    4 dup (10h),5 dup (8),48h,48h,30h,0,0        ; integral bot
  889.     db    4 dup (0),10h,0,78h,0,10h,5 dup (0)        ; divide
  890.     db    4 dup (0),28h,50h,0,28h,50h,5 dup (0)        ; approx equ
  891.     db    0,0,30h,48h,48h,48h,30h,7 dup (0)        ; open circle
  892.     db    0,0,30h,78h,78h,78h,30h,7 dup (0)        ; closed circ
  893.     db    4 dup (0),30h,78h,78h,30h,6 dup (0)        ; bullet
  894.     db    0,0,18h,4 dup (10h),0d0h,30h,10h,0,0,0,0    ; sqrt
  895.     db    0,10h,68h,48h,48h,48h,8 dup (0)            ; super n
  896.     db    0,20h,50h,10h,20h,40h,70h,7 dup (0)        ; super 2
  897.     db    4 dup (0),5 dup (30h),5 dup (0)            ; square
  898.     db    14 dup (0)                    ; 255, empty
  899.  
  900.                             ; begin CP850 GRight
  901. gr850    db    0,0,30h,48h,40h,40h,40h,40h,48h,30h,10h,70h,0,0    ; Cedillia
  902.     db    0,0,48h,0,0,4 dup (48h),78h,0,0,0,0        ; u umlate
  903.     db    0,0,10h,20h,0,70h,50h,70h,40h,70h,0,0,0,0    ; e accent
  904.     db    0,0,20h,50h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a caret
  905.     db    0,0,0,50h,0,70h,10h,70h,50h,78h,0,0,0,0        ; a umlate
  906.     db    0,0,40h,20h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a accent
  907.     db    0,20h,50h,20h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a ring
  908.     db    5 dup (0),70h,50h,40h,50h,70h,20h,60h,0,0    ; cedillia
  909.     db    0,0,20h,50h,0,70h,50h,70h,40h,70h,0,0,0,0    ; e caret
  910.     db    0,0,0,50h,0,70h,50h,70h,40h,70h,0,0,0,0        ; e umlate
  911.     db    0,0,40h,20h,0,70h,50h,70h,40h,70h,0,0,0,0    ; e accent
  912.     db    0,0,0,50h,0,60h,20h,20h,20h,70h,0,0,0,0        ; i umlate
  913.     db    0,0,20h,50h,0,60h,20h,20h,20h,70h,0,0,0,0    ; i caret
  914.     db    0,0,40h,20h,0,60h,20h,20h,20h,70h,0,0,0,0    ; i accent
  915.     db    0,28h,0,30h,48h,48h,78h,48h,48h,48h,0,0,0,0    ; A umlate
  916.     db    10h,28h,10h,30h,48h,48h,78h,48h,48h,48h,0,0,0,0    ; A ring
  917.     
  918.     db    10h,20h,0,78h,40h,40h,70h,40h,40h,78h,0,0,0,0    ; E accent
  919.     db    5 dup (0),78h,0a8h,0b8h,0d0h,0b8h,0,0,0,0    ; ae
  920.     db    0,0,78h,0a0h,0a0h,0b0h,0a0h,0e0h,0a0h,0b8h,0,0,0,0 ; AE
  921.     db    0,0,20h,50h,0,70h,50h,50h,50h,70h,0,0,0,0    ; o caret
  922.     db    0,0,0,50h,0,70h,50h,50h,50h,70h,0,0,0,0        ; o umlate
  923.     db    0,0,40h,20h,0,70h,50h,50h,50h,70h,0,0,0,0    ; o accent
  924.     db    0,0,20h,50h,0,50h,50h,50h,50h,70h,0,0,0,0    ; u caret
  925.     db    0,0,40h,20h,0,50h,50h,50h,50h,70h,0,0,0,0    ; u accent
  926.     db    0,0,0,50h,0,4 dup (50h),30h,10h,70h,0,0        ; y umlate
  927.     db    0,28h,0,30h,5 dup (48h),30h,0,0,0,0        ; O umlate
  928.     db    0,28h,0,6 dup (48h),78h,0,0,0,0            ; U umlate
  929.     db    4 dup (0),8h,78h,58h,48h,68h,78h,80h,0,0,0    ; o slash
  930.     db    0,30h,28h,20h,20h,70h,20h,20h,40h,78h,0,0,0,0    ; Sterling
  931.     db    0,0,0,38h,48h,58h,48h,68h,48h,0b0h,0,0,0,0    ; O slash
  932.     db    0,0,0,88h,50h,20h,50h,88h,0,0,0,0,0,0         ; times (x)
  933.     db    0,10h,28h,20h,20h,70h,20h,20h,0c0h,40h,0,0,0,0    ; Florin
  934.  
  935.     db    0,0,10h,20h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a accent
  936.     db    0,0,20h,40h,0,60h,20h,20h,20h,70h,0,0,0,0    ; i accent
  937.     db    0,0,10h,20h,0,70h,50h,50h,50h,70h,0,0,0,0    ; o accent
  938.     db    0,0,10h,20h,0,50h,50h,50h,50h,70h,0,0,0,0    ; u accent
  939.     db    0,0,28h,50h,0,60h,50h,50h,50h,50h,0,0,0,0    ; n tilde
  940.     db    0,28h,50h,0,48h,48h,68h,58h,48h,48h,0,0,0,0    ; N tilde
  941.     db    0,70h,50h,78h,0,78h,8 dup (0)            ; male ord
  942.     db    0,70h,50h,70h,0,78h,8 dup (0)            ; female ord
  943.     db    0,0,10h,0,10h,10h,20h,40h,48h,30h,0,0,0,0    ; inv query
  944.     db    0,0,70h,88h,0f8h,0d8h,0f8h,0d0h,70h,5 dup (0)    ; registered
  945.     db    5 dup (0),78h,8,8,6 dup (0)            ; not
  946.     db    40h,40h,48h,50h,20h,78h,88h,18h,20h,38h,0,0,0,0    ; one half
  947.     db    40h,40h,48h,50h,28h,58h,0a8h,48h,78h,10h,0,0,0,0 ; one quarter
  948.     db    0,0,0,20h,0,5 dup (20h),0,0,0,0            ; inv bang
  949.     db    0,0,0,0,28h,50h,0a0h,50h,28h,0,0,0,0,0        ; left chevron
  950.     db    0,0,0,0,0a0h,50h,28h,50h,0a0h,0,0,0,0,0        ; rgt chevron
  951.  
  952.     db    90h,48h,20h,90h,48h,20h,90h,48h,20h,90h,48h,20h,90h,48h
  953.     db    0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h,0a8h,50h
  954.     db    48h,0a0h,20h,48h,0a0h,20h,48h,0a0h,20h,48h,0a0h,20h,48h,0a0h
  955.     db    14 dup (30h)
  956.     db    5 dup (30h),0f0h,8 dup (30h)
  957.     db    10h,20h,0,30h,48h,48h,78h,48h,48h,48h,4 dup (0)    ; A acute
  958.     db    10h,28h,0,30h,48h,48h,78h,48h,48h,48h,4 dup (0)    ; A caret
  959.     db    20h,10h,0,30h,48h,48h,78h,48h,48h,48h,4 dup (0)    ; A grave
  960.     db    0,70h,88h,0a8h,0d8h,0a8h,0d8h,0a8h,88h,70h,4 dup (0);copyright
  961.     db    4 dup (50h),0d0h,50h,50h,0d0h,6 dup (50h)
  962.     db    14 dup (50h)                    ; 184
  963.     db    4 dup (0),0f0h,10h,10h,0d0h,6 dup (50h)
  964.     db    4 dup (50h),0d0h,10h,10h,0f0h,6 dup (0)
  965.     db    0,20h,20h,70h,50h,40h,50h,70h,20h,20h,0,0,0,0    ; cent sign
  966.     db    0,0,88h,88h,50h,20h,70h,20h,70h,20h,0,0,0,0    ; Yen
  967.     db    4 dup (0),0f0h,9 dup (30h)
  968.  
  969.     db    5 dup (30h),0f0h,8 dup (0)
  970.     db    5 dup (30h),0f8h,8 dup (0)
  971.     db    5 dup (0),0f8h,8 dup (30h)
  972.     db    5 dup (30h),38h,8 dup (30h)
  973.     db    5 dup (0),0f8h,8 dup (0)            ; 196
  974.     db    5 dup (30h),0f8h,8 dup (30h)
  975.     db    0,0,28h,50h,0,70h,10h,70h,50h,78h,0,0,0,0    ; a tilde
  976.     db    28h,50h,0,30h,48h,48h,78h,48h,48h,48h,0,0,0,0    ; A tilde
  977.     db    4 dup (50h),58h,40h,40h,48h,6 dup (0)
  978.     db    4 dup (0),78h,40h,40h,58h,6 dup (50h)
  979.     db    4 dup (50h),58h,40h,40h,48h,6 dup (0)
  980.     db    4 dup (0),0f0h,0,0,0d8h,6 dup (50h)        ; 202
  981.     db    4 dup (50h),58h,40h,40h,58h,6 dup (50h)
  982.     db    4 dup (0),0f8h,0,0,0f8h,6 dup (0)        ; 205
  983.     db    4 dup (50h),0d8h,0,0,0d8h,6 dup (50h)
  984.     db    0,88h,0,70h,88h,88h,88h,70h,0,88h,4 dup (0)    ; sun/currency
  985.  
  986.     db    0,0,10h,60h,60h,90h,28h,48h,48h,30h,4 dup (0)    ; Icelandic d
  987.     db    0,0,70h,50h,48h,0e8h,48h,48h,50h,70h,0,0,0,0    ; Icelandic D
  988.     db    20h,50h,0,78h,40h,40h,70h,40h,40h,78h,0,0,0,0    ; E caret
  989.     db    0,28h,0,78h,40h,40h,70h,40h,40h,78h,0,0,0,0    ; E umlate
  990.     db    20h,10h,0,78h,40h,40h,70h,40h,40h,78h,0,0,0,0    ; E accent
  991.     db    3 dup (0),20h,60h,20h,20h,20h,70h,5 dup (0)    ; numeral 1
  992.     db    28h,50h,0,70h,5 dup (20h),70h,0,0,0,0        ; I tilde
  993.     db    20h,50h,0,70h,5 dup (20h),70h,0,0,0,0        ; I caret
  994.     db    0,50h,0,70h,5 dup (20h),70h,0,0,0,0        ; I umlate
  995.     db    5 dup (30h),0f0h,8 dup (0)
  996.     db    5 dup (0),38h,8 dup (30h)            ; 218
  997.     db    14 dup (0f8h)
  998.     db    7 dup (0),7 dup (0f8h)
  999.     db    0,4 dup (20h),0,4 dup (20h),0,0,0,0        ; v bkn bar
  1000.     db    20h,10h,0,70h,5 dup (20h),70h,0,0,0,0        ; I grave
  1001.     db    14 dup (38h)
  1002.  
  1003.     db    10h,20h,0,30h,48h,48h,48h,68h,48h,30h,0,0,0,0    ; O acute
  1004.     db    0,0,70h,58h,48h,70h,50h,48h,48h,70h,40h,40h,20h,0 ; Beta
  1005.     db    10h,28h,0,30h,48h,48h,48h,68h,48h,30h,0,0,0,0    ; O caret
  1006.     db    0,0,0,30h,48h,58h,48h,68h,48h,30h,0,0,0,0    ; O slash
  1007.     db    0,0,28h,50h,0,70h,50h,50h,50h,70,0,0,0,0    ; o tilde
  1008.     db    28h,50h,0,30h,48h,48h,48h,68h,48h,30h,0,0,0,0    ; O tilde
  1009.     db    5 dup (0),4 dup (48h),78h,40h,40h,80h,0        ; mu
  1010.     db    0,0,40h,40h,40h,70h,88h,88h,70h,40h,40h,0,0,0    ; Icelandic p
  1011.     db    0,0,40h,40h,70h,48h,48h,48h,70h,40h,40h,0,0,0    ; Icelandic P
  1012.     db    10h,20h,0,6 dup (48h),78h,0,0,0,0        ; U acute
  1013.     db    10h,28h,0,6 dup (48h),78h,0,0,0,0        ; U caret
  1014.     db    20h,10h,0,6 dup (48h),78h,0,0,0,0        ; U grave
  1015.     db    0,10h,20h,0,0,4 dup (50h),30h,10h,70h,0,0    ; y acute
  1016.     db    10h,20h,0,88h,88h,50h,20h,20h,20h,20h,0,0,0,0    ; Y acute
  1017.     db    5 dup (0),70h,8 dup (0)                ; minus sign
  1018.     db    0,0,0,10h,20h,40h,8 dup (0)            ; acute
  1019.  
  1020.     db    5 dup (0),70h,8 dup (0)                ; minus sign
  1021.     db    0,0,20h,20h,70h,20h,20h,0,70h,5 dup (0)        ; +/-
  1022.     db    4 dup (0),70h,0,70h,7 dup (0)            ; equals
  1023.     db    0,0c0h,20h,40h,28h,0dh,28h,0d8h,0a8h,48h,78h,8,8,0 ; 3/4
  1024.     db    0,0,78h,0e8h,0e8h,60h,4 dup (28h),4 dup (0)    ; Paragraph
  1025.     db    30h,40h,20h,70h,50h,50h,20h,10h,60h,0,0,0,0    ; section
  1026.     db    4 dup (0),10h,0,78h,0,10h,5 dup (0)        ; divide
  1027.     db    6 dup (0),18h,18h,60h,5 dup (0)            ; cedilla
  1028.     db    0,0,30h,48h,48h,48h,30h,7 dup (0)        ; open circle
  1029.     db    4 dup (0),50h,50h,8 dup (0)            ; diaerese
  1030.     db    4 dup (0),30h,78h,78h,30h,6 dup (0)        ; bullet
  1031.     db    3 dup (0),20h,60h,20h,20h,20h,70h,5 dup (0)    ; numeral 1
  1032.     db    0,70h,10h,30h,10h,10h,70h,7 dup (0)        ; super 3
  1033.     db    0,20h,50h,10h,20h,40h,70h,7 dup (0)        ; super 2
  1034.     db    4 dup (0),5 dup (30h),5 dup (0)            ; square
  1035.     db    14 dup (0FH)                    ; 255, empty
  1036.  
  1037.  
  1038.         ; 256 * sin(x), 0..89 degrees in steps of 1 degree
  1039. sin    db    0,4,8,13,17,22,26,31,35,40,44,48,53,57,61,66,70,74,79,83,87
  1040.     db    91,95,100,104,108,112,116,120,124,128,131,135,139,143,146,150
  1041.     db    154,157,161,164,167,171,174,177,181,184,187,190,193,196,198
  1042.     db    201,204,207,209,212,214,217,219,221,223,226,228,230,232,233
  1043.     db    235,237,238,240,242,243,244,246,247,248,249,250,251,252,252
  1044.     db    253,254,254,255,255,255,255,255
  1045.  
  1046. data1    ends
  1047.  
  1048. code    segment                    ; main body code segment
  1049.     extrn    outchr:near, beep:near, cmblnk:near
  1050.     extrn    cptchr:near, clrbuf:near, iseof:near, unique:near
  1051.     extrn    pcwait:near, spath:near
  1052.  
  1053.     assume    cs:code, ds:data, es:nothing
  1054.  
  1055. ; These far routines are called by the Tek emulator; they are here to provide
  1056. ; a bridge to the main code segment near procedures.
  1057.      
  1058. ; Procedures for calling to the main body of MS Kermit. Most are FAR and
  1059. ; must be in in code segment named code, not in code2.
  1060.  
  1061. outmodem proc    far            ; send Tek char out serial port
  1062.     push    ax
  1063.     mov    ah,al
  1064.     call    outchr            ; outchr works from ah
  1065.     mov    ax,50            ; 50 millsecond pause
  1066.     call    pcwait
  1067.     pop    ax
  1068.     ret
  1069. outmodem ENDP
  1070.  
  1071. tekbeep    proc    far            ; sound a beep from Tek mode
  1072.     call    beep
  1073.     ret
  1074. tekbeep    endp
  1075.  
  1076. tcmblnk    proc    far            ; blank the screen from Tek mode
  1077.     call    cmblnk
  1078.     ret
  1079. tcmblnk    endp
  1080.  
  1081. tcptchr    proc    far            ; call session logger while in Tek
  1082.     call    cptchr            ;  mode
  1083.     ret
  1084. tcptchr    endp
  1085.  
  1086. tiseof    proc    far            ; call iseof while in Tek mode
  1087.     call    iseof
  1088.     ret
  1089. tiseof    endp
  1090.  
  1091. tunique    proc    far            ; reach to real unique name procedure
  1092.     call    unique            ;  while in Tek mode
  1093.     ret
  1094. tunique    endp
  1095.  
  1096. tekwait    proc    far            ; call pcwait while in Tek mode
  1097.     call    pcwait
  1098.     ret
  1099. tekwait    endp
  1100.  
  1101. ; Return in BX the offset of the master color palette table. Used by SET TERM
  1102. ; GRAPHICS COLOR <color value> to obtain foreground and background colors
  1103. ; in palette slots 7 and 0, resp.
  1104. tekgcptr proc    near
  1105.     mov    tekident,1        ; say this is an ident request
  1106.     call    far ptr tekini        ; do init steps to get screen sizes
  1107.     mov    bx,offset mondef    ; default monochrome colors
  1108.     cmp    plotptr,offset pltcga    ; using CGA style graphics?
  1109.     je    tekgcpt1        ; e = yes
  1110.     cmp    graph_mode,mono        ; pure mono text system?
  1111.     je    tekgcpt1        ; e = yes
  1112.     cmp    graph_mode,monoega    ; ega, but monochrome?
  1113.     je    tekgcpt1        ; e = no
  1114.     mov    bx,offset coldef    ; return offset of color palette
  1115. tekgcpt1:mov    havepal,0        ; say don't have a palette setup
  1116.     mov    tekident,0
  1117.     mov    inited,0
  1118.     ret
  1119. tekgcptr endp
  1120.  
  1121. ; These routines can be called by either the main body or from within Tek
  1122. ; mode.
  1123. tekdmp    proc    near            ; Tek screen dump routine
  1124.     call    far ptr dump        ; callable from main body
  1125.     clc
  1126.     ret
  1127. tekdmp    endp
  1128.  
  1129. fspath    proc    far
  1130.     call    spath
  1131.     ret
  1132. fspath    endp
  1133. code    ends
  1134.  
  1135. code1    segment
  1136.     extrn    scrseg:near, atparse:near, frepaint:far
  1137.     assume    cs:code1
  1138.  
  1139. ; Return screen info for Tek screen report: ax=screen height, bx=width,
  1140. ; cx=number of colors (0=none for pure text, 1=b/w, 16=ega)
  1141. tekinq    proc    near
  1142.     mov    tekident,1        ; say this is an ident request
  1143.     call    far ptr tekini        ; do init steps to get screen sizes
  1144.     mov    ax,ybot            ; lowest screen line
  1145.     inc    ax            ; screen height, in lines
  1146.     mov    bx,xmax
  1147.     add    bx,8            ; screen width, in dots
  1148.     cmp    graph_mode,mono        ; pure text mono (no graphics at all)?
  1149.     jne    tekinq1            ; ne = no
  1150.     mov    ax,24            ; bottom screen line
  1151.     mov    bx,80            ; screen width
  1152.     xor    cx,cx            ; pure mono, say 0 colors
  1153.     jmp    short tekinq2
  1154. tekinq1:mov    cx,1            ; say b/w screen
  1155.     cmp    plotptr,offset pltcga    ; using CGA style graphics?
  1156.     je    tekinq2            ; e = yes
  1157.     cmp    graph_mode,monoega    ; monochrome monitor on ega?
  1158.     je    tekinq2            ; e = yes
  1159.     mov    cx,16            ; say 16 colors
  1160. tekinq2:mov    tekident,0
  1161.     ret
  1162. tekinq    endp
  1163.  
  1164. tparstart proc    far            ; start escape sequence parser
  1165.     mov    parstate,0        ; set to initialize automatically
  1166.     mov    pardone,offset tpardone    ; jmp to this when completed
  1167.     mov    parfail,0        ; no failure case jump
  1168.     ret
  1169. tparstart endp
  1170.  
  1171. tparser    proc    far
  1172.     call    atparse            ; reach to real parser
  1173.     ret
  1174. tparser    endp
  1175.  
  1176. tpardone proc    near            ; called by real parser
  1177.     call    far ptr xpardone
  1178.     ret
  1179. tpardone endp
  1180.  
  1181. tekpal    proc    near            ; do palette report tekrpt
  1182.     call    far ptr tekrpt        ; callable from main body
  1183.     ret
  1184. tekpal    endp
  1185.  
  1186. tekrpal    proc    near            ; restore color palette
  1187.     call    far ptr tekxco4        ; callable from main body
  1188.     ret
  1189. tekrpal endp
  1190.  
  1191. tscrseg    proc    far            ; get video segment while in Tek mode
  1192.     call    scrseg
  1193.     ret
  1194. tscrseg    endp
  1195.  
  1196. code1    ends                ; main body code segment
  1197.  
  1198. ; Code segment code2 is allocated to Tektronix emulation
  1199. code2    segment                ; supplementary code segment
  1200.  
  1201.     assume    cs:code2, ds:data, es:nothing
  1202.  
  1203. cspb2    db    256    dup (0)        ; code2 segment patch buffer
  1204.  
  1205. tekxco4    proc    FAR            ; call local tekgco4, return far
  1206.     call    tekgco4
  1207.     ret
  1208. tekxco4    endp
  1209.  
  1210. ; Initialise TEK mode by setting high resolution screen, etc
  1211. tekini    proc    far
  1212.     push    ax            ; do presence tests
  1213.     push    bx
  1214.     push    cx
  1215.     push    dx
  1216.     push    si
  1217.     push    di
  1218.     push    es
  1219.     cmp    tekident,0        ; just identifying?
  1220.     jne    tekin0            ; ne = yes
  1221.     mov    al,flowoff
  1222.     or    al,al            ; able to do xoff?
  1223.     jz    tekin0            ; z = no
  1224.     call    outmodem        ; tell host xoff while we change modes
  1225. tekin0:    test    tekflg,tek_active    ; active now?
  1226.     jnz    tekin2            ; nz = yes
  1227.     cmp    inited,0        ; inited yet?
  1228.     jne    tekin2            ; ne = yes, use existing coloring
  1229.     mov    ax,linetab        ; get default line pattern
  1230.     mov    linepat,ax        ; init active line pattern
  1231.     mov    fillptr,offset filpat1    ; init active fill pointer
  1232.     cmp    havepal,0        ; have a color palette yet?
  1233.     jne    tekin0a            ; ne = yes
  1234.     mov    bx,vtemu.att_ptr    ; emulator screen color ptr
  1235.     mov    al,[bx]
  1236.     mov    gfcol,al        ; save foreground color
  1237.     and    gfcol,0fh        ; save just foreground bits
  1238.     and    al,70h            ; select background color, no bold
  1239.     mov    cl,4
  1240.     shr    al,cl            ; get background colors
  1241.     mov    gbcol,al        ; set graphics background color
  1242. tekin0a:mov    ah,15            ; get current screen mode
  1243.     int    screen
  1244.     and    al,not 80h        ; strip "preserve regen" bit 80h
  1245.     cmp    al,mono            ; mono text mode (7)?
  1246.     je    tekin1            ; e = yes
  1247.     cmp    tekident,0        ; doing an ident request?
  1248.     jne    tekin2            ; ne = yes, don't mess with screen
  1249. tekin1:    mov    curmode,al        ; save mode here
  1250.     mov    ah,3            ; get cursor position
  1251.     xor    bh,bh            ; page 0
  1252.     int    screen
  1253.  
  1254.                     ; Presence tests.
  1255. tekin2:    mov    graph_mode,cga        ; Color. Assume CGA
  1256.     mov    segscn,segcga        ; assume cga screen segment
  1257.     mov    gpage,0            ; graphics page 0 but no page 1
  1258.     mov    word ptr fontlptr,offset font    ; offset of in-built 8x8 font
  1259.     mov    word ptr fontlptr+2,seg font    ; segment
  1260.     cmp    word ptr fontrptr+2,0    ; have a GRight now?
  1261.     jne    tekin2e            ; ne = yes
  1262.     mov    word ptr fontrptr+2,seg font    ; no high bit set font
  1263.     mov    word ptr fontrptr,offset font
  1264. tekin2e:mov    charhgt,8        ; 8 scan lines/char
  1265.     mov    charwidth,8        ; 8 dots across each char
  1266.     mov    putc,offset gputc    ; CGA character display routine
  1267.     mov    gfplot,offset bpltcga    ; CGA area fill routine
  1268.     mov    psetup,offset psetupc    ; CGA plot setup routine
  1269.     mov    plotptr,offset pltcga    ; CGA dot plot routine
  1270.     mov    pincy,offset pincyc    ; CGA inc y routine
  1271.     mov    xmult,5            ; CGA. Scale TEK to PC by 640/1024
  1272.     mov    xdiv,8            ;  so that 0-1023 converts to 0-639
  1273.     mov    ax,640            
  1274.     sub    ax,charwidth
  1275.     mov    xmax,ax            ; x-coord of rightmost character
  1276.     mov    ymult,10        ; vertical scale for IBM is 200/780
  1277.     mov    ydiv,39            ;
  1278.     mov    ybot,199        ; Bottom of screen is Y=199
  1279.     mov    al,tekgraf        ; user video board specification
  1280.     or    al,al            ; auto-sensing?
  1281.     jnz    tekin2d            ; nz = no
  1282.     jmp    tekin2c            ; yes (default)
  1283. tekin2d:cmp    al,1            ; user wants CGA?
  1284.     jne    tekin2a            ; ne = no
  1285.     jmp    tekin13            ; do CGA
  1286. tekin2a:cmp    al,4            ; user wants Hercules?
  1287.     jne    tekin2b            ; ne = no
  1288.     jmp    tekin8            ; do Hercules
  1289. tekin2b:cmp    al,5            ; user wants AT&T style?
  1290.     jne    tekinwy            ; ne = no
  1291.     jmp    tekin7            ; do AT&T kind
  1292.                     ; Wyse-700
  1293. tekinwy:cmp    al,8            ; user wants Wyse-700 1024*780 ?
  1294.     jne    tekinw0            ; ne = no
  1295.     call    chkwyse            ; presence test
  1296.     jc    tekinwf            ; c = failed
  1297.     mov    ax,1024        
  1298.     sub    ax,charwidth
  1299.     mov    xmax,ax            ; x-coord of rightmost character
  1300.     mov    ybot,779        ; Bottom of screen is Y=780
  1301.     mov    xmult,1            ; Wyse. Scale TEK to PC by 1024/1024
  1302.     mov    xdiv,1            ;  so that 0-1023 converts to 0-1023
  1303.     mov    ymult,1            ; vertical scale is 780/780
  1304.     mov    ydiv,1            ;
  1305.     jmp    short tekinw2        ;
  1306. tekinw0:cmp    al,7            ; user wants Wyse-700 1280*780 ?
  1307.     jne    tekinw1            ; ne = no
  1308.     call    chkwyse            ; presence test
  1309.     jc    tekinwf            ; c = failed
  1310.     mov    ax,1280        
  1311.     sub    ax,charwidth
  1312.     mov    xmax,ax            ; x-coord of rightmost character
  1313.     mov    ybot,779        ; Bottom of screen is Y=800
  1314.     mov    xmult,10        ; Wyse. Scale TEK to PC by 1280/1024
  1315.     mov    xdiv,8            ;  so that 0-1023 converts to 0-1279
  1316.     mov    ymult,1            ; vertical scale is 780/780
  1317.     mov    ydiv,1            ;
  1318.     jmp    short tekinw2        ;
  1319. tekinwf:jmp    tekin2c            ; failure jump point
  1320. tekinw1:cmp    al,6            ; user wants Wyse-700 1280*800 ?
  1321.     jne    tekin2c            ; no = no
  1322.     call    chkwyse            ; presence test
  1323.     jc    tekinwf            ; c = failed
  1324.     mov    ax,1280            
  1325.     sub    ax,charwidth
  1326.     mov    xmax,ax            ; x-coord of rightmost character
  1327.     mov    ybot,799        ; Bottom of screen is Y=800
  1328.     mov    xmult,10        ; Wyse. Scale TEK to PC by 1280/1024
  1329.     mov    xdiv,8            ;  so that 0-1023 converts to 0-1279
  1330.     mov    ymult,40        ; vertical scale for IBM is 800/780
  1331.     mov    ydiv,39            ;  so scale those 20 pixels more
  1332. tekinw2:mov    graph_mode,wyse700    ; Assume Wyse Graphics
  1333.     mov    segscn,segwyse        ; assume wyse screen segment
  1334.     mov    gpage,0            ; only one graphics page 0
  1335.     mov    putc,offset gputc    ; CGA character display routine
  1336.     mov    psetup,offset psetupw    ; Wyse plot setup routine
  1337.     mov    plotptr,offset pltcga    ; CGA dot plot routine
  1338.     mov    pincy,offset pincyw    ; Wyse inc y routine
  1339.     jmp    tekin13            ; do Wyse
  1340.                     ; do auto-sensing of display board
  1341.                     ; test for EGA
  1342. tekin2c:mov    ax,1200H        ; EGA: Bios alternate select
  1343.     mov    bl,10H                  ; Ask for EGA info
  1344.     mov    bh,0ffH            ; Bad info, for testing
  1345.     mov    cl,0fH            ; Reserved switch settings
  1346.     int    screen            ; EGA, are you there?
  1347.     and    cl,0fh            ; four lower switches
  1348.     cmp    cl,0cH            ; Test reserved switch settings
  1349.     jb    tekin3            ; b = ega present
  1350.     jmp    tekin7            ; else no EGA, check other adapters
  1351.  
  1352. tekin3:    mov    ax,40h            ; check Bios 40:87h for ega being
  1353.     mov    es,ax            ;  the active display adapter
  1354.     test    byte ptr es:[87h],8    ; is ega active?
  1355.     jz    tekin3a            ; z = yes
  1356.     jmp    tekin7            ; ega is inactive, check others
  1357. tekin3a:cmp    bl,1            ; is there 128KB on ega board?
  1358.     jb    tekin4            ; b = less, so no screen saves
  1359.     mov    gpage,1            ; >=128 KB, use two graphics pages
  1360. tekin4:    mov    graph_mode,ega        ; assume high resolution color
  1361.     cmp    cl,3            ; high resolution color?
  1362.     je    tekin5            ; e = yes
  1363.     cmp    cl,9            ; high resolution color?
  1364.     je    tekin5            ; e = yes
  1365.     mov    graph_mode,monoega    ; assume mono monitor on ega board
  1366.     test    bh,1            ; ega mono mode in effect?
  1367.      jnz    tekin5            ; nz = yes
  1368.     mov    graph_mode,colorega    ; say ordinary cga on ega board, 64KB
  1369.     mov    gpage,1            ; is enough memory with 200 scan lines
  1370.     jmp    short tekin5a        ; use current cga parameters
  1371. tekin5:    mov    ybot,349        ; text screen bottom is 349 on EGA
  1372.     mov    ymult,35        ;
  1373.     mov    ydiv,78            ; scale y by 350/780
  1374. tekin5a:mov    segscn,segega        ; use ega screen segment
  1375.     mov    psetup,offset psetupe    ; plot setup routine
  1376.     mov    plotptr,offset pltega    ; ega dot plot routine
  1377.     mov    gfplot,offset bpltega    ; ega area fill routine
  1378.     mov    pincy,offset pincye    ; inc y routine
  1379.     mov    putc,offset gputc    ; character display routine
  1380.     test    tekflg,tek_sg        ; special graphics?
  1381.     jz    tekin5d            ; z = no, use Tek 8x8 font
  1382.     mov    bh,2            ; 8x14 ROM double dot (EGA, 640x350)
  1383.     mov    charhgt,14        ; 8x14 dots
  1384.     mov    ax,1130h        ; char generator routines, info req
  1385.     int    screen            ; returns es:bp, cx, and dl (rows)
  1386.     mov    word ptr fontlptr,bp    ; offset of GLeft font table
  1387.     mov    ax,es
  1388.     mov    word ptr fontlptr+2,ax    ; segment of font table
  1389.     mov    cx,vtcpage        ; terminal emulation code page
  1390.     cmp    cx,437            ; using CP437?
  1391.     je    tekin5b            ; e = yes, then have the font
  1392.     cmp    havefont,cx        ; do we have this font?
  1393.     je    tekin5d            ; e = yes
  1394.     mov    havefont,cx        ; set rememberance flag, even if bad
  1395.     push    ax            ; save hardware pointer
  1396.     push    bp
  1397.     call    getfont            ; try to get new GRight font for CP
  1398.     pop    bp
  1399.     pop    ax
  1400.     jnc    tekin5d            ; nc = success
  1401. tekin5b:mov    word ptr fontrptr+2,ax    ; segment of hardware font table
  1402.     add    bp,128*14
  1403.     mov    word ptr fontrptr,bp    ; offset of GRight part
  1404. tekin5d:jmp    tekin13            ; end of EGA part, do VGA tests below
  1405.  
  1406. tekin7:    mov    ax,0fc00h        ; Olivetti/AT&T 6300, check rom id
  1407.     mov    es,ax
  1408.     xor    di,di            ; start here
  1409.     mov    graph_mode,olivetti    ; Olivetti
  1410.     mov    cx,attllen        ; length of logo
  1411.     mov    si,offset ATTLOGO    ; master string
  1412.     repe    cmpsb            ; do a match
  1413.     je    tekin7c            ; e = a match
  1414.     mov    di,0050h        ; look here too
  1415.     mov    si,offset ATTLOGO
  1416.     mov    cx,attllen
  1417.     repe    cmpsb
  1418.     je    tekin7c            ; e = a match
  1419.     mov    di,2014h        ; and look here
  1420.     mov    si,offset ATTLOGO
  1421.     mov    cx,attllen
  1422.     repe    cmpsb            ; do a match
  1423.     je    tekin7c            ; e = a match, else try other types
  1424. tekin7a:mov    graph_mode,toshiba
  1425.     mov    ax,0f000h        ; Check for Toshiba T3100, rom scan
  1426.     mov    es,ax
  1427.     mov    di,0014h        ; start here
  1428.     mov    si,offset TOSHLOGO    ; master string
  1429.     mov    cx,toshlen        ; length
  1430.     repe    cmpsb            ; do a match
  1431.     je    tekin7c            ; e = a match, else try other types
  1432. tekin7b:mov    graph_mode,vaxmate    ; DEC VAXmate II
  1433.     mov    ax,0f000h        ; Check for VAXmate II rom signature
  1434.     mov    es,ax
  1435.     mov    di,0e000h        ; start here
  1436.     mov    si,offset DECLOGO    ; master string
  1437.     mov    cx,declen        ; length
  1438.     repe    cmpsb            ; do a match
  1439.     jne    tekin7d            ; ne = mismatch, try other types
  1440.  
  1441.                     ; Olivetti/AT&T, Toshiba, VAXmate
  1442. tekin7c:mov    gpage,0            ; only page 0 with 640 by 400 mode
  1443.     mov    segscn,segcga        ; use cga screen segment (0b800h)
  1444.     mov    psetup,offset psetupo    ; plot setup routine
  1445.     mov    plotptr,offset pltcga    ; cga dot plot routine
  1446.     mov    gfplot,offset bpltcga    ; area fill plot routine
  1447.     mov    pincy,offset pincyh    ; inc y routine (Herc style addresses)
  1448.     mov    putc,offset gputc    ; character display routine
  1449.     mov    ybot,399        ; bottom of screen is y = 399
  1450.     mov    ymult,20        ; vertical scale = 400/780
  1451.     mov    ydiv,39            ; same as cga setup
  1452.     jmp    tekin13
  1453.  
  1454. tekin7d:cmp    curmode,mono        ; mono text mode?
  1455.     je    tekin8            ; e = yes
  1456.     jmp    tekin11            ; ne = no, try cga
  1457.                     ; test for Hercules
  1458. tekin8:    cmp    tv_mode,1        ; Environment active?
  1459.     jne    tekin8a            ; ne = no, ok to test for Hercules
  1460.     jmp    tekin10            ; don't do Herc mode, do Mono
  1461. tekin8a:mov    dx,hstatus        ; Herc status port
  1462.     in    al,dx            ; read it
  1463.     mov    bl,al            ; save here
  1464.     and    bl,80h            ; remember retrace bit
  1465.     mov    cx,0ffffh        ; do many times (for fast machines)
  1466. tekin8b:mov    dx,hstatus        ; check status port
  1467.     in    al,dx
  1468.     and    al,80h            ; select bit
  1469.     jmp    $+2            ; use a little time
  1470.     cmp    bl,al            ; did it change?
  1471.     loope    tekin8b            ; test again if not
  1472.     je    tekin10            ; e = no change in bit, not Herc
  1473.     mov    graph_mode,hercules    ; say have Herc board
  1474.     mov    segscn,seghga        ; assume hga screen segment
  1475.     mov    putc,offset gputc    ; character display routine
  1476.     mov    gfplot,offset bpltcga    ; area fill plot routine
  1477.     mov    psetup,offset psetuph    ; plot setup routine to use
  1478.     mov    plotptr,offset pltcga    ; use cga dot plot routine for Herc
  1479.     mov    pincy,offset pincyh    ; inc y routine
  1480.     mov    xmult,45        ; Scale TEK to Hercules by 720/1024
  1481.     mov    xdiv,64            ;  so that 0-1023 converts to 0-719
  1482.     mov    ax,720            
  1483.     sub    ax,charwidth
  1484.     mov    xmax,ax            ; x-coord of rightmost character
  1485.     mov    ymult,87        ; vertical scale for Hercules is
  1486.     mov    ydiv,195        ;  348/780
  1487.     mov    ybot,347        ; bottom of screen is y = 347
  1488.     mov    ax,seghga        ; segment of Herc video display
  1489.     mov    es,ax
  1490.     mov    al,es:[8000h]        ; read original contents, page 1
  1491.     not    byte ptr es:[8000h]    ; write new pattern
  1492.     mov    ah,es:[8000h]        ; read back
  1493.     not    byte ptr es:[8000h]    ; restore original contents
  1494.     not    ah            ; invert this too
  1495.     cmp    ah,al            ; same (memory present?)
  1496.     jne    tekin9            ; ne = not same, no memory there
  1497.     mov    gpage,1            ; say two pages of display memory
  1498. tekin9:    jmp    tekin13
  1499.                     ; set to MONO
  1500. tekin10:mov    graph_mode,mono        ; force monochrome adapter text
  1501.     mov    segscn,segmono        ; assume mono screen segment
  1502.     call    tscrseg            ; Environments: get virtual screen
  1503.     mov    segscn,ax        ;  seg returned in ax and es:di
  1504.     mov    gpage,0
  1505.     mov    putc,offset mputc    ; character display routine
  1506.     mov    psetup,offset psetupm    ; plot setup routine to use
  1507.     mov    gfplot,offset bpltmon    ; area fill plot routine
  1508.     mov    plotptr,offset pltmon    ; use hga dot plot routine
  1509.     mov    pincy,offset pincym    ; inc y routine
  1510.     mov    xmult,5            ; Scale TEK to mono by 640/1024
  1511.     mov    xdiv,8            ;  so that 0-1023 converts to 0-639
  1512.     mov    ax,640            
  1513.     sub    ax,charwidth
  1514.     mov    xmax,ax            ; x-coord of rightmost character
  1515.     mov    ymult,10        ; vertical scale for mono is 200/780
  1516.     mov    ydiv,39
  1517.     mov    ybot,200        ; bottom of screen is y = 200 for Bios
  1518.     jmp    tekin13            ; Uses TEXT mode, for safety
  1519.  
  1520.                     ; test for CGA
  1521. tekin11:mov    graph_mode,cga        ; set CGA high resolution graphics
  1522.     mov    segscn,segcga        ; CGA screen segment
  1523.     jmp    tekin13
  1524.  
  1525.                     ; Set Graphics mode
  1526. tekin13:cmp    tekident,0        ; just identifying?
  1527.     je    tekin13b        ; e = no
  1528.     jmp    tekin16            ; ne = yes
  1529. tekin13b:cmp    graph_mode,wyse700    ; Wyse ?
  1530.     jne    tekin13a        ; ne = no
  1531.     call    wygraf            ; set Wyse graphics mode, clear regen
  1532.     jmp    tekin16            ; restore screen
  1533. tekin13a:cmp    graph_mode,hercules    ; Hercules?
  1534.     jne    tekin14            ; ne = no
  1535.     call    hgraf            ; set Herc graphics mode, clear regen
  1536.     or    tekflg,tek_active    ; say becoming active
  1537.     jmp    tekin16            ; restore screen
  1538. tekin14:xor    ah,ah            ; set screen mode
  1539.     mov    al,graph_mode        ;  to this screen mode
  1540.     test    flags.vtflg,ttd463+ttd470 ; D463/D470?
  1541.     jnz    tekin14a        ; nz = yes, use EGA modes
  1542.     cmp    tekgraf,3        ; user wants "VGA" modes (640x480)?
  1543.     jne    tekin14a        ; ne = no
  1544.     push    ax
  1545.     mov    ax,1a00h        ; VGA, read display config code
  1546.     int    screen
  1547.     pop    ax
  1548.     cmp    bl,0bh            ; MCGA mono?
  1549.     jne    tekin14b        ; ne = no
  1550.     mov    al,monoega
  1551.     mov    graph_mode,al
  1552.     jmp    short tekin14c
  1553. tekin14b:cmp    bl,0ch            ; MCGA color?
  1554.     jne    tekin14d        ; ne = no
  1555.     mov    al,ega
  1556.     mov    graph_mode,al
  1557. tekin14c:mov    ydiv,78            ; scale y by 350/780
  1558.     mov    segscn,segega        ; use ega screen segment
  1559.     mov    psetup,offset psetupe    ; plot setup routine
  1560.     mov    plotptr,offset pltcga    ; ega dot plot routine
  1561.     mov    gfplot,offset bpltcga    ; ega area fill routine
  1562.     mov    pincy,offset pincye    ; inc y routine
  1563.     mov    putc,offset gputc    ; character display routine
  1564. tekin14d:cmp    al,monoega        ; yes, allow high resolution stuff?
  1565.     jb    tekin14a        ; b = no
  1566.     cmp    al,ega            ; ditto
  1567.     ja    tekin14a        ; a = no
  1568.     add    al,2            ; use modes 17(b/w) and 18(10)(color)
  1569.     mov    ybot,479        ; text screen bottom is 479 on VGA
  1570.     mov    ymult,48
  1571. tekin14a:cmp    tekident,0        ; just identifying screen size etc?
  1572.     jne    tekin16            ; ne = yes, do not invoke graphics
  1573.     cmp    gpage,0            ; only page 0 available?
  1574.     je    tekin15            ; e = yes, and watch for Bios errors
  1575.     cmp    inited,0        ; first time through?
  1576.     je    tekin15            ; e = yes, clear the page of old junk
  1577.     test    tekflg,tek_sg        ; special graphics
  1578.     jnz    tekin15            ; nz = yes, always repaints
  1579.     or    al,80h            ; save regen buffer (save area too)
  1580.  
  1581. tekin15:int    screen            ; Bios Set Mode.
  1582.     mov    ax,40h            ; DOS 4 GRAPHICS.COM may see high bit
  1583.     mov    es,ax            ;  and be confused. Clear it from Bios
  1584.     and    byte ptr es:[49h],7fh    ;  word area for some clones
  1585.     or    tekflg,tek_active    ; say becoming active
  1586.     mov    dgxmax,640-1        ; D470 color
  1587.     mov    dgymax,480-1
  1588.     test    flags.vtflg,ttd463+ttd470 ; DG D463/D470?
  1589.     jz    tekin16            ; z = no
  1590.     or    tekflg,tek_sg        ; say special graphics mode
  1591.     cmp    flags.vtflg,ttd470    ; correct guess?
  1592.     je    tekin16            ; e = yes
  1593.     mov    dgxmax,800-1        ; D463 monochrome
  1594.     mov    dgymax,576-1
  1595.  
  1596. tekin16:cmp    tekident,0        ; just identifying?
  1597.     jne    tekin16a        ; ne = yes
  1598.     cmp    inited,0        ; inited yet?
  1599.     jne    tekin19            ; ne = yes, restore screen
  1600.     mov    ttstate,offset tektxt    ; do displayable text
  1601.     mov    prestate,offset tektxt    ; set a previous state of text
  1602.     mov    inited,1        ; say we have initialized
  1603.     jmp    short tekin16b        ; and init the color palette
  1604. tekin16a:mov    si,offset colpal    ; active color palette
  1605.     cmp    havepal,0        ; have a color palette yet?
  1606.     jne    tekin17            ; yes, use active palette
  1607. tekin16b:mov    si,offset mondef    ; default monochrome colors
  1608.     cmp    plotptr,offset pltcga    ; using CGA style graphics?
  1609.     je    tekin17            ; e = yes
  1610.     cmp    graph_mode,mono        ; pure mono text system?
  1611.     je    tekin17            ; e = yes
  1612.     cmp    graph_mode,monoega    ; ega, but monochrome?
  1613.     je    tekin17            ; e = no
  1614.     mov    si,offset coldef    ; use color palette
  1615. tekin17:mov    havepal,1        ; say have a color palette
  1616.     mov    al,[si+7]        ; foreground color = palette 7
  1617.     mov    gfcol,al
  1618.     mov    al,[si]            ; background color = palette 0
  1619.     mov    gbcol,al
  1620.     mov    cx,16
  1621.     mov    di,offset colpal    ; VT340 active color palette
  1622.     push    es
  1623.     push    ds
  1624.     pop    es
  1625.     cld
  1626.     rep    movsb            ; reinit palette entries
  1627.     pop    es
  1628.     call    fixcolor        ; correct color mapping for some bds
  1629.     mov    al,gfcol
  1630.     mov    tfcol,al        ; remember current coloring
  1631.     mov    al,gbcol
  1632.     mov    tbcol,al
  1633.     cmp    tekident,0        ; just identifying?
  1634.     jne    tekin21            ; ne = yes
  1635.     test    tekflg,tek_sg        ; special graphics active?
  1636.     jnz    tekin20            ; nz = yes
  1637.     call    tekcls            ; clear screen, for ega coloring
  1638.     jmp    short tekin20
  1639.  
  1640. tekin19:cmp    vtclear,0        ; clear screen?
  1641.     je    tekin19a        ; e = no
  1642.     call    tekcls            ; clear screen, use existing colors
  1643.     mov    vtclear,0
  1644.     jmp    short tekin20
  1645. tekin19a:test    flags.vtflg,ttd463+ttd470 ; DG D463/D470?
  1646.     jnz    tekin19b        ; nz = yes
  1647.     test    tekflg,tek_sg        ; special graphics active?
  1648.     jnz    tekin19b        ; nz = yes
  1649.     call    tekrest            ; restore old graphics screen
  1650.     mov    ax,save_xcor        ; and saved cursor
  1651.     mov    x_coord,ax
  1652.     mov    ax,save_ycor
  1653.     mov    y_coord,ax
  1654. tekin19b:mov    al,tfcol        ; and coloring
  1655.     mov    gfcol,al
  1656.     mov    al,tbcol
  1657.     mov    gbcol,al
  1658.     
  1659. tekin20:cmp    tekident,0        ; just identifying screen size etc?
  1660.     jne    tekin21            ; ne = yes, do not invoke graphics
  1661.     test    tekflg,tek_sg        ; special graphics?
  1662.     jz    tekin20a        ; z = no
  1663.     test    flags.vtflg,ttd463+ttd470 ; DG D463/D470?
  1664.     jz    tekin20c        ; z = no
  1665.     mov    al,scbattr        ; get default colors
  1666.     mov    cl,4
  1667.     shr    al,cl            ; get background color bits
  1668.     mov    gbcol,al        ; set the for screen clearing
  1669.     call    tekcls            ; clear screen for nice repainting
  1670.     test    flags.vtflg,ttd463+ttd470 ; DG D463/D470?
  1671.     jz    tekin20a        ; z = no
  1672.     test    dgcross,1        ; is crosshair to be active?
  1673.     jz    tekin20b        ; z = no
  1674.     call    crossini
  1675. tekin20b:call    frepaint        ; repaint screen
  1676. tekin20c:mov    dx,cursor
  1677.     call    teksetcursor        ; set the cursor
  1678. tekin20a:mov    ax,250
  1679.     call    tekwait            ; 250 ms wait for display adapter
  1680.     mov    al,flowon        ; get flowon control byte
  1681.     or    al,al            ; able to send xon?
  1682.     jz    tekin21            ; z = no
  1683.     call    outmodem        ; tell host xon
  1684.     test    flags.vtflg,ttd463+ttd470 ; DG D463/D470?
  1685.     jnz    tekin21            ; nz = yes
  1686.     test    tekflg,tek_sg        ; special graphics?
  1687.     jnz    tekin21            ; nz = yes
  1688.     mov    cx,seg font        ; use Tek 8x8 font for non-DG work
  1689.     mov    word ptr fontlptr+2,cx
  1690.     mov    word ptr fontrptr+2,cx    ; no high bit set font
  1691.     mov    cx,offset font
  1692.     mov     word ptr fontlptr,cx
  1693.     mov    word ptr fontrptr,cx
  1694.     call    setcursor        ; set the cursor
  1695.  
  1696. tekin21:mov    al,chcontrol        ; opaque/transparent char writing
  1697.     mov    bscontrol,al        ; set destructive BS control
  1698.     mov    spcontrol,al        ; set destructive SPACE control
  1699.     mov    tekident,0
  1700.     mov    bypass,0        ; clear Bypass flag
  1701.     clc                ; clear carry for success
  1702.     pop    es
  1703.     pop    di
  1704.     pop    si
  1705.     pop    dx
  1706.     pop    cx
  1707.     pop    bx
  1708.     pop    ax
  1709.     ret
  1710. tekini    endp
  1711.  
  1712. TEKRINT proc    far            ; Tek reinitialization entry point
  1713.     call    far ptr tekend        ; exit cleanly if already in Tek mode
  1714.     xor    ax,ax            ; get a null
  1715.     mov    inited,al        ; do complete reinitialization
  1716.     mov    xcenter,ax        ; forget center of screen
  1717.     mov    ycenter,ax
  1718.     mov    x_coord,ax
  1719.     mov    y_coord,ax
  1720.     mov    vtclear,1        ; clear the screen
  1721.     call    tekini
  1722.     ret
  1723. TEKRINT    endp
  1724.  
  1725. ; End TEK emulation, recover previous screen
  1726. TEKEND    proc    far
  1727.     mov    ttstate,offset tektxt    ; set an initial state
  1728.     mov    prestate,offset tektxt    ; and a previous state
  1729.     test    tekflg,tek_active    ; running as a Tek terminal now?
  1730.     jnz    teknd1            ; nz = yes
  1731.     ret                ; else return as is
  1732. teknd1:    call    remcursor        ; remove text cursor, if any
  1733.     call    crossfin        ; clean up crosshair activity
  1734.     test    tekflg,tek_sg        ; special graphics?
  1735.     jnz    teknd1a            ; nz = yes, do not save screen
  1736.     call    teksave            ; save graphics screen to page 1
  1737.     mov    ax,x_coord        ; save cursor location too
  1738.     mov    save_xcor,ax
  1739.     mov    ax,y_coord
  1740.     mov    save_ycor,ax
  1741. teknd1a:cmp    graph_mode,hercules    ; Hercules?
  1742.     jne    teknd2            ; ne = no
  1743.     call    htext            ; yes then set up Hercules text mode
  1744. teknd2:    call    mousexit        ; restore mouse state, if any
  1745.     xor    ah,ah            ; set video mode
  1746.     mov    al,curmode        ; restore previous screen mode
  1747.     int    screen            ; revert to text screen mode
  1748.     mov    lastc,0
  1749.     mov    bypass,0        ; reset bypass condition
  1750.     mov    visible,0        ; next move is invisible
  1751.     test    tekflg,tek_sg        ; were doing special graphics?
  1752.     jz    teknd3            ; z = no
  1753.     mov    inited,0        ; yes, reinit next time
  1754. teknd3:    and    tekflg,not (tek_active+tek_sg)    ; say we are inactive
  1755.     clc
  1756.     ret
  1757. TEKEND    ENDP
  1758.  
  1759. ; Save EGA/VGA register and Bios info in array egadata.
  1760. ; Returns carry clear if done, else carry set
  1761.  
  1762. ;Terminal emulation. Enter with received character in AL.
  1763. TEKEMU    proc    far            ; main emulator
  1764.     call    tektt            ; local emulator routine
  1765.     ret
  1766. TEKEMU    endp
  1767.  
  1768. tektt    proc    near
  1769.     test    tekflg,tek_active    ; running as a Tek device?
  1770.     jnz    tektt1            ; nz = yes
  1771.     push    ax
  1772.     call    tekini            ; init now
  1773.     pop    ax
  1774.     or    tekflg,tek_dec        ; setup Tek submode of DEC terminal
  1775.     mov    ttstate,offset tektxt    ; initial state
  1776.     mov    prestate,offset tektxt    ; set a previous state of text
  1777.     jnc    tektt1            ; nc = succeeded
  1778.     ret                ; else failed to init, just return
  1779. tektt1:    test    al,80h            ; high bit set?
  1780.     jz    tektt1a            ; z = no
  1781.     cmp    al,9fh            ; in range for C1 controls?
  1782.     ja    tektt1a            ; a = no
  1783.     push    ax            ; save the char
  1784.     mov    al,escape        ; make 7-bit control version
  1785.     call    tektt2            ; act on escape
  1786.     pop    ax
  1787.     sub    al,40h            ; get second char of 7-bit control
  1788.  
  1789. tektt1a:and    al,7fh            ; force Tek chars to be 7 bits
  1790.     or    al,al            ; NUL char?
  1791.     jnz    tektt2            ; nz = no
  1792.     ret                ; yes, ignore it (before logging)
  1793. tektt2:    test    yflags,capt        ; capturing output?
  1794.     jz    tektt4            ; z = no, forget this part
  1795.     push    ax            ; save char
  1796.     call    tcptchr            ; give it captured character
  1797.     pop    ax            ; restore character and keep going
  1798. tektt4:    test    yflags,trnctl        ; debug? if so use tty mode
  1799.     jz    tektt5            ; z = no
  1800.     cmp    al,DEL            ; DEL char?
  1801.     jne    tektt4a            ; ne = no
  1802.     mov    al,5eh            ; make DEL a caret query mark
  1803.     call    outscrn
  1804.     mov    al,3fh            ; the query mark
  1805.     call    outscrn
  1806.     ret
  1807. tektt4a:cmp    al,' '            ; control char?
  1808.     jae    tektt4b            ; ae = no
  1809.     push    ax
  1810.     mov    al,5eh            ; caret
  1811.     call    outscrn
  1812.     pop    ax
  1813.     add    al,'A'-1        ; make char printable
  1814. tektt4b:call    outscrn
  1815.     ret
  1816.  
  1817. tektt5:    cmp    bypass,0        ; Bypass mode off?
  1818.     jne    tektt5a            ; ne = no, on, ignore all incoming
  1819.     call    ttstate            ; do current state
  1820.     ret
  1821. tektt5a:cmp    al,' '            ; incoming control code?
  1822.     jae    tektt5b            ; ae = no
  1823.     mov    bypass,0        ; turn off bypass
  1824.     call    ttstate            ; act on it
  1825. tektt5b:ret
  1826. tektt    endp
  1827.      
  1828. TEKTXT    proc    near            ; Dispatch on text characters
  1829.     mov    ttstate,offset tektxt    ; this is our state
  1830.     push    ax
  1831.     call    setcursor        ; show text cursor
  1832.     pop    ax
  1833.     cmp    al,DEL            ; RUBOUT?
  1834.     jne    tektx1            ; ne = no
  1835.     mov    al,bs            ; make BS
  1836.     jmp    short tektx7
  1837. tektx1:    cmp    al,CR            ; carriage return (^M)?
  1838.     je    tektx7            ; e = yes
  1839.     cmp    al,LF            ; line feed (^J)?
  1840.     je    tektx7            ; e = yes
  1841.     cmp    al,FF            ; form feed (^L)?
  1842.     jne    tektx4            ; ne = no
  1843.     call    tekcls            ; clear the screen
  1844.     ret
  1845. tektx4:    cmp    al,VT            ; vertical tab (^K)?
  1846.     je    tektx7
  1847.     cmp    al,bell            ; bell (^G)?
  1848.     jne    tektx5            ; ne = no
  1849.     call    tekbeep
  1850.     ret
  1851. tektx5:    cmp    al,tab            ; horizontal tab (^I)?
  1852.     je    tektx7            ; e = yes
  1853.     cmp    al,BS            ; backspace (^H)?
  1854.     je    tektx7            ; e = yes
  1855.     cmp    al,' '            ; control char?
  1856.     jae    tektx7            ; ae = no
  1857.     jmp    tekctl            ; process control char
  1858. tektx7:    call    outscrn            ; output character to the screen
  1859. tektx8:    ret
  1860. TEKTXT    endp
  1861.  
  1862.  
  1863. tekctl    proc    near            ; Control characters:
  1864.     cmp    al,GS            ; Line plot command?
  1865.     jne    tekctl1            ; ne = no
  1866.     mov    visible,0        ; next move is invisible
  1867.     and    status,not txtmode    ; set status report byte
  1868.     mov    ttstate,offset tekline    ; expect coordinates next
  1869.     call    remcursor        ; remove text cursor
  1870.     ret
  1871. tekctl1:cmp    al,RS            ; Incremental dot command?
  1872.     jne    tekctl2            ; ne = no
  1873.     and    status,not txtmode    ; set status report
  1874.     mov    ttstate,offset tekrlin    ; expect pen command next
  1875.     call    remcursor        ; remove text cursor
  1876.     ret
  1877. tekctl2:cmp    al,FS            ; Point plot command?
  1878.     jne    tekctl3            ; ne = no
  1879.     mov    visible,0        ; next move is invisible
  1880.     and    status,not txtmode    ; set status report byte
  1881.     mov    ttstate,offset tekpnt
  1882.     call    remcursor        ; remove text cursor
  1883.     ret
  1884. tekctl3:cmp    al,US            ; assert text mode? [bjh]
  1885.     jne    tekctl4            ; ne = no
  1886.     or    status,txtmode        ; set status report byte
  1887.     mov    ttstate,offset tektxt    ; go to TEKTXT next time
  1888.     mov    visible,0        ; next move is invisible
  1889.     call    setcursor        ; restore text cursor
  1890.     ret
  1891. tekctl4:cmp    al,ESCAPE        ; Escape?
  1892.     jne    tekctl5            ; ne = no
  1893.     call    remcursor        ; remove text cursor
  1894.     or    status,txtmode        ; set status report byte
  1895.     cmp    ttstate,offset tekesc    ; already in escape state?
  1896.     je    tekctl7            ; e = yes, nest no further
  1897.     push    ttstate            ; current state
  1898.     pop    prestate        ; save here as previous state
  1899.     mov    ttstate,offset tekesc    ; next state parses escapes
  1900.     ret
  1901.  
  1902. tekctl5:cmp    al,CAN            ; Control X? (exits Tek sub mode)
  1903.     jne    tekctl7            ; ne = no, stay in current state
  1904.     mov    ttstate,offset tektxt    ; back to text mode
  1905.     mov    bypass,1        ; turn on bypass mode
  1906.     cmp    flags.vtflg,tttek    ; main Tek emulator?
  1907.     je    tekctl6            ; e = yes, ignore the ^X
  1908.     call    tekend            ; else exit sub mode
  1909.     and    tekflg,not tek_dec    ; returning to text emulator
  1910.     mov    visible,0        ; next move is invisible
  1911.     call    frepaint        ; regenerate text screen
  1912. tekctl6:mov    prestate,offset tektxt    ; make previous state text
  1913. tekctl7:ret
  1914. tekctl    endp
  1915.  
  1916. TEKESC    proc    near            ; Process ESC <following text>
  1917.     mov    ninter,0        ; initialize parsing
  1918.     mov    ttstate,offset tekesc    ; in case get here from msz file
  1919.     cmp    inited,0        ; inited yet? (msz call)
  1920.     jne    tekesc1            ; ne = yes
  1921.     call    tekini            ; init now
  1922.     mov    prestate,offset tektxt    ; set a previous state of text
  1923.     jnc    tekesc1            ; nc = succeeded
  1924.     ret                ; else failed to init, just return
  1925.     
  1926. tekesc1:cmp    al,20h            ; in intermediates, column 2?
  1927.     jb    tekesc3            ; b = no
  1928.     cmp    al,2fh
  1929.     ja    tekesc3            ; a = no
  1930.     mov    ttstate,offset tekesc1    ; stay in this state while intermeds
  1931.     mov    bx,ninter        ; number of intermediates
  1932.     cmp    bx,maxinter        ; done enough already?
  1933.     jae    tekesc2            ; ae = yes, ignore the excess
  1934.     mov    inter[bx],al        ; store this one
  1935.     inc    ninter            ; one more
  1936.     cmp    inter,'/'        ; HDS2000/3000 Final char?
  1937.     je    tekesc3            ; e = yes, process specially like '['
  1938. tekesc2:ret                ; get more input
  1939.     
  1940.                     ; Final char is in AL, dispatch on it
  1941. tekesc3:mov    ttstate,offset tektxt    ; set new state
  1942.     mov    esctype,al        ; save kind of escape sequence
  1943.     mov    bx,offset esctab    ; ESC dispatch table
  1944.     call    atdispat        ; dispatch on AL
  1945.     ret
  1946. TEKESC    endp    
  1947.  
  1948. tekeseq    proc    near            ; process Escape and Device Contrl seq
  1949.     call    tparstart        ; init escape sequence parser
  1950.     mov    ttstate,offset escparse    ; do parsing next
  1951.     ret
  1952. tekeseq    endp
  1953.  
  1954. ; State for gathering text to feed escape sequence parser
  1955. escparse proc    near
  1956.     cmp    al,' '            ; embedded control code?
  1957.     jb    escpar2            ; b = yes, process now
  1958.     call    tparser            ; far call, to call real parser
  1959.     jnc    escpar1            ; nc = success
  1960.     push    prestate        ; recover previous state
  1961.     pop    ttstate
  1962.     stc
  1963. escpar1:ret
  1964. escpar2:call    tekctl            ; process embedded control code
  1965.     push    prestate        ; get previous state
  1966.     pop    ttstate            ; restore it
  1967.     ret
  1968. escparse endp
  1969.  
  1970. ; Escape sequence parser completion routine
  1971. ; AL has Final character of escape sequence
  1972. XPARDONE PROC    FAR            ; called by tpardone when done
  1973.     cmp    esctype,'['        ; ansi escape sequence (ESC [)?
  1974.     jne    xpardo3            ; ne = no
  1975.     mov    bx,offset anstab    ; ANSI ESC [ table
  1976.     call    atdispat        ; dispatch on Final char in AL
  1977.     jmp    short xpardo5
  1978.  
  1979. xpardo3:cmp    esctype,'/'        ; HDS escape sequence (ESC /)?
  1980.     jne    xpardo4            ; ne = no
  1981.     call    hdsesc            ; analyze
  1982.     jmp    short xpardo5
  1983.  
  1984. xpardo4:cmp    esctype,'P'        ; DCS introducer?
  1985.     jne    xpardo5            ; ne = no
  1986.     call    tekdcs            ; grab parameters etc, prep strings
  1987.     ret
  1988.  
  1989. xpardo5:push    prestate        ; recover previous state
  1990.     pop    ttstate
  1991.     ret
  1992. XPARDONE ENDP
  1993.                 ; ESC <char> action routines
  1994.                 ; exit each by putting prestate into ttstate
  1995.  
  1996. tekenq    proc    near            ; ESC-^E Enquiry for cursor position
  1997.     mov    bypass,1        ; set bypass mode
  1998.     call    sendstat        ; send status
  1999.     push    prestate        ; get previous state
  2000.     pop    ttstate            ; restore it
  2001.     ret
  2002. tekenq    endp
  2003.  
  2004. tekcan    proc    near            ; ESC ^X
  2005.     push    prestate        ; get previous state
  2006.     pop    ttstate            ; restore it
  2007.     jmp    tekctl            ; process in controls section
  2008. tekcan    endp
  2009.  
  2010. tekgin    proc    near            ; ESC-^Z Enter GIN mode
  2011.     cmp    graph_mode,mono        ; Monochrome text mode?
  2012.     je    tekgin1            ; e = yes, no crosshairs in text mode
  2013.     mov    bypass,1        ; turn on GIN mode bypass conditon
  2014.     call    crossini        ; preset crosshairs
  2015. tekgin3:call    far ptr croshair    ; activate the cross-hairs
  2016.     jnc    tekgin3            ; loop until exit is signaled
  2017.     call    crossfin        ; clean up
  2018.     jmp    short tekgin2
  2019. tekgin1:call    tekbeep            ; tell the user we are unhappy
  2020. tekgin2:push    prestate        ; get previous state
  2021.     pop    ttstate            ; restore it
  2022.     ret
  2023. tekgin    endp
  2024.  
  2025. tektwo    proc    near            ; ESC 2 (Exit Tek mode)
  2026.     mov    al,CAN            ; force Control-X
  2027.     jmp    tekcan            ; process there as ESC ^X
  2028. tektwo    endp
  2029.  
  2030. tekqury    proc    near            ; query mark (ESC ? means DEL)
  2031.     mov    al,DEL            ; replace with DEL code
  2032.     push    prestate        ; get previous state
  2033.     pop    ttstate            ; restore it
  2034.     ret
  2035. tekqury    endp
  2036.  
  2037. tekfill    proc    near            ; Fill series ESC @ .. ESC M
  2038.     sub    al,'@'            ; remove bias
  2039.     mov    bl,al
  2040.     xor    bh,bh
  2041.     shl    bx,1            ; make a word index
  2042.     mov    bx,fillist[bx]        ; get pointer to the pattern from list
  2043.     mov    fillptr,bx        ; assign this pattern pointer
  2044.     push    prestate        ; get previous state
  2045.     pop    ttstate            ; restore it
  2046.     ret
  2047. tekfill    endp
  2048.  
  2049. teklpat    proc    near            ; ESC accent grave line pattern series
  2050.     cmp    al,'g'            ; accent ... lowercase g?
  2051.     jbe    teklpa2            ; be = yes
  2052.     cmp    al,'o'            ; bold patterns ESC h..ESC o?
  2053.     ja    teklpa1            ; a = no
  2054.     sub    al,'h'-accent        ; map bold to normal
  2055.     jmp    short teklpa2
  2056. teklpa1:sub    al,'x'-'f'        ; user sets,map x to f, y to g, z to h
  2057. teklpa2:push    bx
  2058.     mov    bl,al
  2059.     sub    bl,accent        ; remove bias
  2060.     cmp    bl,8            ; nine patterns, ignore others
  2061.     jbe    teklpa3            ; be = ok, make others accent, solid
  2062.     xor    bl,bl            ; solid pattern
  2063. teklpa3:xor    bh,bh
  2064.     shl    bx,1            ; make this a word index
  2065.     mov    bx,linetab[bx]        ; get line pattern word
  2066.     mov    linepat,bx        ; save in active word
  2067.     pop    bx            ; return to previous mode
  2068.     push    prestate        ; get previous state
  2069.     pop    ttstate            ; restore it
  2070.     ret
  2071. teklpat    endp
  2072.  
  2073. ; Detect exit Tek submode command ESC [ ? 38 l  from VT340's
  2074. escexit    proc    near
  2075.     cmp    lparam,'?'        ; possible "ESC [ ? 38 l"?
  2076.     jne    escex2            ; ne = no
  2077.     cmp    nparam,1        ; just one numeric parameter?
  2078.     jne    escex2            ; ne = no
  2079.     cmp    al,'l'            ; ESC [ ? Pn l?
  2080.     jne    escex2            ; ne = no
  2081.     cmp    param,38        ; correct value?
  2082.     jne    escex2            ; ne = no
  2083.     cmp    flags.vtflg,tttek    ; are we a full Tek terminal now?
  2084.     je    escex1            ; e = yes, stay that way
  2085.     call    far ptr tekend
  2086.     and    tekflg,not tek_dec    ; returning to text emulator
  2087.     call    frepaint
  2088.     ret
  2089. escex1:    mov    ttstate,offset tektxt
  2090.     mov    al,CAN            ; simulate arrival of Control-X
  2091.     jmp    tektxt            ; process char as text
  2092. escex2:    ret
  2093. escexit    endp
  2094.  
  2095. ; Human Data Systems 2000/3000 style escape sequences (ESC / params Final)
  2096. ; Final character is in AL
  2097. hdsesc    proc    near
  2098.     cmp    al,'x'            ; draw an empty rectangle?
  2099.     jne    hdsesc0            ; ne = no
  2100.     call    rectdraw
  2101.     jmp    short hdsesc2a
  2102. hdsesc0:cmp    al,'y'            ; draw a filled rectangle?
  2103.     jne    hdsesc1            ; ne = no
  2104.     call    rectfil            ;do xhome,yhome,xwidth,yheight,pattern
  2105.     jmp    short hdsesc2a
  2106. hdsesc1:cmp    al,'z'            ; draw and fill rectangle?
  2107.     jne    hdsesc2            ; ne = no
  2108.     call    rectfil            ; do fill before border
  2109.     call    rectdraw        ; do border
  2110.     jmp    short hdsesc2a
  2111. hdsesc2:cmp    ninter,0        ; any intermediates?
  2112.     jne    hdsesc2a        ; ne = yes, failure
  2113.     cmp    lparam,0        ; letter parameter?
  2114.     jne    hdsesc2a        ; ne = yes, failure
  2115.     cmp    nparam,1        ; just zero or one numeric parameter?
  2116.     ja    hdsesc9            ; a = no
  2117.     cmp    al,'a'            ; user defined pattern?
  2118.     jb    hdsesc3            ; b = no
  2119.     cmp    al,'c'
  2120.     ja    hdsesc3            ; a = no
  2121.     sub    al,'a'            ; 'a' is first of three user patterns
  2122.     xor    ah,ah            ;  store as 'f,g,h' in the series
  2123.     mov    bx,ax
  2124.     shl    bx,1            ; make a word index
  2125.     mov    ax,param[0]        ; get the 16-bit pattern
  2126.     mov    linetab[bx+12],ax    ; store in user defined pattern
  2127. hdsesc2a:push    prestate        ; get previous state
  2128.     pop    ttstate            ; restore it
  2129.     ret
  2130.  
  2131. hdsesc3:cmp    al,'d'            ; "Data Level" (pixel ops)?
  2132.     jne    hdsesc4            ; ne = no
  2133.     mov    cx,param        ; get the parameter value
  2134.     mov    al,pixfor        ; assume foreground only ESC / 0 d
  2135.     cmp    cl,1            ; something else?
  2136.     jb    hdsesc3a        ; b = no
  2137.     mov    al,pixbak        ; assume background only ESC / 1 d
  2138.     cmp    cl,2            ; something else?
  2139.     jb    hdsesc3a        ; b = no
  2140.     mov    al,pixxor        ; assume XOR  ESC / 2 d
  2141.     cmp    cl,3            ; something else?
  2142.     jb    hdsesc3a        ; b = no
  2143.     ja    hdsesc3b        ; a = unknown, ignore
  2144.     mov    al,pixfor+pixbak    ; write both absolute  ESC / 3 d
  2145. hdsesc3a:mov    ccode,al        ; use as pixel op coding
  2146. hdsesc3b:push    prestate        ; get previous state
  2147.     pop    ttstate            ; restore it
  2148.     ret
  2149.  
  2150. hdsesc4:cmp    al,'h'            ; set space, backspace control?
  2151.     je    hdsesc4a        ; e = yes
  2152.     cmp    al,'l'            ; reset space, backspace control?
  2153.     jne    hdsesc9            ; ne = no
  2154.     xor    ah,ah            ; say resetting
  2155.     jmp    short hdsesc5
  2156. hdsesc4a:mov    ah,1            ; say setting
  2157. hdsesc5:cmp    param,2            ; space control?
  2158.     jne    hdsesc5a        ; ne = no
  2159.     mov    spcontrol,ah        ; reset (0) or set destructive SPACE
  2160.     push    prestate        ; get previous state
  2161.     pop    ttstate            ; restore it
  2162.     ret
  2163. hdsesc5a:cmp    param,9            ; destructive backspace?
  2164.     jne    hdsesc13        ; ne = no
  2165.     mov    bscontrol,ah        ; reset (0) or set destructive BS
  2166.  
  2167. hdsesc9:cmp    al,'C'            ; user defined fill pattern #1?
  2168.     jne    hdsesc10        ; ne = no
  2169.     mov    di,offset filpat13    ; storage area for user pattern #1
  2170.     jmp    short hdsesc11
  2171. hdsesc10:cmp    al,'D'            ; user defined fill pattern #2?
  2172.     jne    hdsesc11        ; ne = no
  2173.     mov    di,offset filpat14    ; storage area for user pattern #2
  2174. hdsesc11:mov    cx,8            ; do 8 paramters
  2175.     xor    bx,bx
  2176. hdsesc12:mov    ax,param[bx]        ; copy 8 bit fill pattern
  2177.     mov    [di],al            ; to array
  2178.     add    bx,2
  2179.     inc    di
  2180.     loop    hdsesc12
  2181. hdsesc13:push    prestate        ; get previous state
  2182.     pop    ttstate            ; restore it
  2183.     ret
  2184. hdsesc    endp
  2185.  
  2186. ; Analyze ESC [ Pn ; Pn m  color command    
  2187. ; where Pn = 30-37 foreground color, 40-47 background color, ANSI standard
  2188. ; Enter with escape sequence already parsed.
  2189. TEKCOL    proc    near
  2190.     push    si
  2191.     cld
  2192.     mov    al,gfcol        ; update these in case error
  2193.     mov    tfcol,al
  2194.     mov    al,gbcol
  2195.     mov    tbcol,al
  2196.     mov    si,offset param        ; parameters from parser
  2197.     mov    cx,nparam        ; number of parameters
  2198. tekco1:    jcxz    tekco5            ; z = none left
  2199.     lodsw                ; parameter to ax
  2200.     dec    cx
  2201.     or    ax,ax            ; 0, remove intensity, set b/w?
  2202.     jnz    tekco2            ; nz = no
  2203.     mov    tfcol,7            ; regular white
  2204.     mov    tbcol,0            ;  on black
  2205.     jmp    short tekco1
  2206.  
  2207. tekco2:    cmp    ax,1            ; intensity bit?
  2208.     jne    tekco3            ; ne = no
  2209.     or    tfcol,8            ; set foreground intensity
  2210.     jmp    short tekco1
  2211.     
  2212. tekco3:    cmp    ax,30            ; foreground series?
  2213.     jb    tekco1            ; b = no
  2214.     cmp    ax,37
  2215.     ja    tekco4            ; a = no
  2216.     sub    ax,30            ; remove bias
  2217.     push    bx
  2218.     mov    bl,al
  2219.     xor    bh,bh
  2220.     mov    al,byte ptr colortb[bx]    ; reverse coloring
  2221.     pop    bx
  2222.     and    tfcol,not (7)        ; retain intensity bit
  2223.     or    tfcol,al        ; remember foreground color
  2224.     jmp    short tekco1
  2225.  
  2226. tekco4:    cmp    ax,40
  2227.     jb    tekco1
  2228.     cmp    ax,47            ; legal value?
  2229.     ja    tekco1            ; a = no
  2230.     sub    al,40
  2231.     push    bx
  2232.     mov    bl,al
  2233.     xor    bh,bh
  2234.     mov    al,byte ptr colortb[bx]    ; reverse coloring
  2235.     pop    bx
  2236.     mov    tbcol,al        ; remember background color
  2237.     jmp    short tekco1
  2238.  
  2239. tekco5:    cmp    ninter,0        ; intermediates?
  2240.     jne    tekco7            ; ne = yes, no go
  2241.     cmp    lparam,0        ; letter parameter?
  2242.     jne    tekco7            ; ne = yes, no go
  2243.     cmp    nparam,0        ; number of ansi arguments, zero?
  2244.     ja    tekco6            ; a = no, got some
  2245.     mov    tbcol,0            ; none is same as 0, set b/w
  2246.     mov    tfcol,7
  2247. tekco6:    mov    al,tbcol        ; success, store coloring
  2248.     mov    gbcol,al        ; set background color
  2249.     mov    al,tfcol
  2250.     mov    gfcol,al        ; set foreground color
  2251.     call    fixcolor        ; do special ega corrections
  2252.     mov    al,gfcol        ; update these in case error
  2253.     mov    tfcol,al
  2254.     mov    colpal[7],al        ; foreground goes here
  2255.     mov    al,gbcol
  2256.     mov    tbcol,al
  2257.     mov    colpal[0],al        ; background goes here
  2258. tekco7:    pop    si
  2259.     clc
  2260.     ret
  2261. TEKCOL    endp
  2262.  
  2263. ; Revise screen color codes for ega boards with mono displays and limited
  2264. ; memory.
  2265. fixcolor proc    near
  2266.     cmp    graph_mode,ega        ; one of these ega modes?
  2267.     je    fixcol6            ; e = yes
  2268.     cmp    graph_mode,colorega
  2269.     je    fixcol6
  2270.     cmp    graph_mode,monoega
  2271.     je    fixcol6
  2272.     cmp    plotptr,offset pltcga    ; using CGA style graphics?
  2273.     jne    fixcol5            ; ne = no
  2274.     and    gfcol,7            ; strip intensity
  2275.     jmp    short fixcol6        ; keep colors different
  2276. fixcol5:ret                ; else ignore color corrections
  2277. fixcol6:mov    ah,gfcol
  2278.     mov    al,gbcol
  2279.     cmp    plotptr,offset pltcga    ; CGA style?
  2280.     jne    fixcol8            ; ne = no
  2281.     or    ah,ah            ; bright foreground?
  2282.     jnz    fixcol7            ; nz = yes
  2283.     mov    al,1            ; make background illuminated
  2284.     jmp    short fixcol3
  2285. fixcol7:xor    al,al            ; force background to dark
  2286. fixcol8:cmp    graph_mode,monoega    ; monochrome ega display?
  2287.     jne    fixcol3            ; ne = no
  2288.     test    al,7            ; bright backgound?
  2289.     jnz    fixcol1            ; nz = yes
  2290.     mov    ah,1            ; normal foreground
  2291.     test    gfcol,8            ; intensity on?
  2292.     jz    fixcol1            ; z = no
  2293.     mov    ah,5            ; say bright foreground
  2294. fixcol1:test    al,7            ; black backgound?
  2295.     jz    fixcol2            ; z = yes
  2296.     mov    al,1            ; regular video
  2297. fixcol2:cmp    ah,al            ; same color in both?
  2298.     jne    fixcol3            ; ne = no
  2299.     mov    ah,1            ; make foreground regular
  2300.     xor    al,al            ;  and background black
  2301. fixcol3:mov    gfcol,ah
  2302.     mov    gbcol,al
  2303.     cmp    gpage,0            ; minimal memory (64KB mono and ega)?
  2304.     ja    fixcol4            ; a = no, enough, else strange mapping
  2305.     mov    al,gfcol        ; fix coloring to map planes C0 to C1
  2306.     and    al,5            ; and C2 to C3 (as 0, 3, 0Ch, or 0Fh)
  2307.     mov    ah,al            ; make a copy
  2308.     shl    ah,1            ; duplicate planes C0, C2 in C1, C3
  2309.     or    al,ah            ; merge the bits
  2310.     mov    gfcol,al        ; store proper foreground color
  2311.     mov    al,gbcol        ; repeat for background color
  2312.     and    al,5
  2313.     mov    ah,al
  2314.     shl    ah,1
  2315.     or    al,ah
  2316.     mov    gbcol,al
  2317. fixcol4:ret
  2318. fixcolor endp
  2319.  
  2320. tekrid    proc    near            ; report Tek screen parameters
  2321.     cmp    lparam,'?'        ; possible "ESC [ ? 38 l"?
  2322.     jne    tekridx            ; ne = no
  2323.     cmp    nparam,1        ; just one numeric parameter?
  2324.     jne    tekridx            ; ne = no
  2325.     cmp    param,256        ; correct value?
  2326.     je    tekrid1            ; e = yes
  2327. tekridx:ret
  2328. tekrid1:push    es            ; as ESC [ ? 256; height; len; #col n
  2329.     push    ds
  2330.     pop    es
  2331.     cld
  2332.     mov    di,offset rdbuf        ; a temp buffer
  2333.     mov    al,escape        ; report
  2334.     stosb
  2335.     mov    al,'['
  2336.     stosb
  2337.     mov    al,'?'
  2338.     stosb
  2339.     mov    ax,256
  2340.     call    dec2di            ; write ascii digits
  2341.     mov    al,';'
  2342.     stosb
  2343.     mov    ax,ybot            ; do height
  2344.     inc    ax
  2345.     cmp    graph_mode,mono        ; pure mono text system?
  2346.     jne    tekrid7a        ; ne = no
  2347.     mov    ax,24
  2348. tekrid7a:call    dec2di
  2349.     mov    al,';'            ; separator
  2350.     stosb
  2351.     mov    ax,xmax            ; width
  2352.     add    ax,8            ; in dots
  2353.     cmp    graph_mode,mono        ; pure mono text system?
  2354.     jne    tekrid7b        ; ne = no
  2355.     mov    ax,80
  2356. tekrid7b:call    dec2di
  2357.     mov    al,';'            ; separator
  2358.     stosb
  2359.     mov    al,'1'            ; screen colors, assume 1
  2360.     stosb
  2361.     cmp    plotptr,offset pltcga    ; using CGA style graphics?
  2362.     je    tekrid4            ; e = yes
  2363.     cmp    graph_mode,monoega    ; monochrome monitor on ega?
  2364.     je    tekrid4            ; e = yes
  2365.     cmp    graph_mode,mono        ; pure mono text system?
  2366.     jne    tekrid3
  2367.     mov    byte ptr [di-1],'0'    ; say zero colors
  2368.     jmp    short tekrid4
  2369. tekrid3:mov    al,'6'
  2370.     stosb                ; say 16
  2371. tekrid4:mov    al,'n'            ; end of string
  2372.     stosb
  2373.     call    outstrng        ; send the string
  2374.     pop    es
  2375.     ret
  2376. tekrid    endp
  2377.  
  2378. tekprpt    proc    near
  2379.     cmp    nparam,1        ; one or more numeric parameters?
  2380.     jb    tekrprx            ; b = no
  2381.     cmp    param,2            ; "CSI 2 $ u"?
  2382.     jne    tekrprx            ; ne = no
  2383.     cmp    inter,'$'        ; correct Intermediate?
  2384.     jne    tekrprx            ; ne = no
  2385.     call    far ptr tekrpt        ; invoke the palette report generator
  2386. tekrprx:ret
  2387. tekprpt    endp
  2388.  
  2389. tekrpt    proc    FAR            ; report VT340 color palette
  2390.     push    es            ; DECRQTSR(request), DECCTR(response)
  2391.     push    ds
  2392.     pop    es
  2393.     push    di
  2394.     push    bx
  2395.     cld
  2396.     mov    di,offset rdbuf        ; a temp buffer
  2397.     mov    al,escape        ; report
  2398.     stosb
  2399.     cmp    plotptr,offset pltcga    ; using CGA style graphics?
  2400.     je    tekrpt9            ; e = yes
  2401.     cmp    graph_mode,mono        ; pure mono text system?
  2402.     je    tekrpt9            ; e = yes
  2403.     cmp    graph_mode,monoega    ; monochrome monitor on ega?
  2404.     jne    tekrpt10        ; ne = no
  2405. tekrpt9:mov    ax,'0P'            ; b/w systems report DCS 0 $ s ST
  2406.     stosw
  2407.     mov    ax,'s$'
  2408.     stosw
  2409.     call    outstrng
  2410.     jmp    tekrpt8
  2411.  
  2412. tekrpt10:mov    ax,'2P'            ; color systems report DCS 2 $ s...ST
  2413.     stosw
  2414.     mov    ax,'s$'
  2415.     stosw                ; "ESC [ 2 $ s"
  2416.     call    outstrng        ; output this string
  2417.     mov    cx,16            ; number of palette registers to do
  2418.     xor    bx,bx            ; begin with color palette 0
  2419. tekrpt1:push    bx            ; save palette index
  2420.     push    cx            ; save loop counter
  2421.     mov    di,offset rdbuf        ; buffer
  2422.     mov    ax,bx            ; palette number
  2423.     call    dec2di            ; palette register, to buffer
  2424.     mov    ax,'2;'            ; ";2;" means sending RGB values
  2425.     stosw
  2426.     mov    al,';'
  2427.     stosb
  2428.     mov    ah,colpal[bx]        ; get palette iRGB
  2429.     mov    al,rgbbold/4        ; assume dark red for bold black
  2430.     cmp    ah,8            ; bold black?
  2431.     je    tekrpt2            ; e = yes
  2432.     xor    al,al
  2433.     test    ah,4            ; red?
  2434.     jz    tekrpt2            ; z = no
  2435.     mov    al,rgbbold/2        ; say red, 40%
  2436.     test    ah,8            ; bold?
  2437.     jz    tekrpt2            ; z = no
  2438.     mov    al,rgbbold        ; more if bold
  2439. tekrpt2:push    ax
  2440.     xor    ah,ah            ; clear high byte
  2441.     call    dec2di            ; store red
  2442.     pop    ax
  2443.     mov    al,';'            ; separator
  2444.     stosb
  2445.     mov    al,rgbbold/4        ; assume dark green for bold black
  2446.     cmp    ah,8            ; bold black?
  2447.     je    tekrpt4            ; e = yes
  2448.     xor    al,al
  2449.     test    ah,2            ; green?
  2450.     jz    tekrpt4            ; z = no
  2451.     mov    al,rgbbold/2        ; say green, 40%
  2452.     test    ah,8            ; bold?
  2453.     jz    tekrpt4            ; z = no
  2454.     mov    al,rgbbold        ; more if bold
  2455. tekrpt4:push    ax
  2456.     xor    ah,ah            ; clear high byte
  2457.     call    dec2di            ; store green
  2458.     pop    ax
  2459.     mov    al,';'            ; separator
  2460.     stosb
  2461.     mov    al,rgbbold/4        ; assume dark blue for bold black
  2462.     cmp    ah,8            ; bold black?
  2463.     je    tekrpt6            ; e = yes
  2464.     xor    al,al
  2465.     test    ah,1            ; blue?
  2466.     jz    tekrpt6            ; z = no
  2467.     mov    al,rgbbold/2        ; say blue, 40%
  2468.     test    ah,8            ; bold?
  2469.     jz    tekrpt6            ; z = no
  2470.     mov    al,rgbbold        ; more if bold
  2471. tekrpt6:xor    ah,ah            ; clear high byte
  2472.     call    dec2di            ; store blue
  2473.     pop    cx            ; recover loop counter
  2474.     cmp    cx,1            ; doing last item?
  2475.     je    tekrpt7            ; e = yes, do not send another "/"
  2476.     mov    al,'/'            ; separator
  2477.     stosb
  2478. tekrpt7:push    cx
  2479.     call    outstrng        ; output this string
  2480.     pop    cx
  2481.     pop    bx            ; recover palette index
  2482.     inc    bx            ; ready for next palette
  2483.     dec    cx
  2484.     jz    tekrpt8            ; z = done
  2485.     jmp    tekrpt1            ; do all palettes
  2486. tekrpt8:mov    al,escape        ; DCS terminator ST
  2487.     call    outmodem
  2488.     mov    al,'\'
  2489.     call    outmodem
  2490.     pop    bx
  2491.     pop    di
  2492.     pop    es
  2493.     ret
  2494. tekrpt    endp
  2495.  
  2496. ; Output string in rdbuf. Enter with di pointing at last byte+1. Return
  2497. ; with di at the same place.
  2498. outstrng proc    near
  2499.     mov    ttyact,0        ; group output for network
  2500.     push    cx
  2501.     mov    cx,di            ; compute length
  2502.     mov    di,offset rdbuf        ; start of buffer
  2503.     sub    cx,di            ; start of buffer
  2504.     jle    outstn3            ; le = nothing to do
  2505. outstn1:mov    al,[di]
  2506.     inc    di
  2507.     cmp    cx,1            ; last character?
  2508.     ja    outstn2            ; a = no
  2509.     mov    ttyact,1        ; end group output for network
  2510. outstn2:call    outmodem        ; send the byte
  2511.     loop    outstn1            ; do the string
  2512. outstn3:pop    cx
  2513.     ret
  2514. outstrng endp
  2515.  
  2516. ; Process Device Control Strings (DCS or ESC P lead-in chars, parameters,
  2517. ; and Final character already read). Prepare to gather strings.
  2518. tekdcs    proc    near
  2519.     mov    dcsstrf,al        ; record Final char
  2520.     mov    emubufc,0        ; clear string count
  2521.     mov    cx,maxparam        ; number of DCS parameters
  2522.     push    si            ; copy these to the DCS area so that
  2523.     push    di            ;  they are not lost when an ST is
  2524.     push    es            ;  parsed (parser clears ESC items)
  2525.     push    ds
  2526.     pop    es
  2527.     mov    si,offset param        ; ESC paramater storage area, numeric
  2528.     mov    di,offset dparam    ; DCS parameter storage area, numeric
  2529.     cld
  2530.     rep    movsw            ; copy set to DCS storage area
  2531.     mov    cl,lparam         ; copy letter Paramter
  2532.     mov    dlparam,cl
  2533.     mov    cx,maxinter        ; number of intermediate characters
  2534.     mov    si,offset inter        ; source
  2535.     mov    di,offset dinter    ; destination
  2536.     rep    movsb
  2537.     mov    si,nparam        ; number of parameters
  2538.     mov    dnparam,si
  2539.     mov    si,ninter
  2540.     mov    dninter,si        ; number of intermediates
  2541.     pop    es
  2542.     pop    di
  2543.     pop    si
  2544.     cmp    dcsstrf,'q'        ; Sixel Graphics?
  2545.     jne    tekdcs3            ; ne = no
  2546.     mov    ttstate,offset tekgets    ; get string as next state
  2547.     mov    al,chcontrol        ; opaque/transparent char writing
  2548.     or    al,al            ; is it being set?
  2549.     jz    tekdcs2            ; z = no, do not force condition
  2550.     mov    bscontrol,al        ; set destructive BS control
  2551.     mov    spcontrol,al        ; set destructive SPACE control
  2552. tekdcs2:ret
  2553. tekdcs3:cmp    dcsstrf,'p'        ; restore color palette (DCS 2 $ p)?
  2554.     jne    tekdcs1            ; ne = no
  2555.     cmp    nparam,1        ; just one parameter?
  2556.     jne    tekdcs1            ; ne = no
  2557.     cmp    param,2            ; correct parameter?
  2558.     jne    tekdcs1            ; ne = no
  2559.     cmp    dinter,'$'        ; correct intermediate?
  2560.     jne    tekdcs1            ; ne = no
  2561.     mov    ttstate,offset tekrcol    ; get color report as next state
  2562.     ret
  2563. tekdcs1:mov    ttstate,offset tekdcsnul ; consume unknown DCS
  2564.     ret
  2565. tekdcs    endp
  2566.  
  2567. ; Read and discard OSC (ESC ]), PM (ESC ^), APC (ESC _) control sequences
  2568. ; through final ST (ESC \) terminator.
  2569. tekdcsnul proc    near
  2570.     mov    dcsstrf,0        ; simulate a null (dummy) Final char
  2571.     cmp    al,20h            ; control char?
  2572.     jae    tekdcsnu1        ; ae = no, skip
  2573.     jmp    tekctl            ; do control char
  2574. tekdcsnu1:ret
  2575. tekdcsnul endp
  2576.  
  2577. ; State machine to process DCS strings of type "p" (restore color palette)
  2578. ; Enter with "p" char in AL. Callable from outside this file via tekrpal.
  2579. tekrcol    proc    near
  2580.     mov    ttstate,offset tekrco1    ; next state is get parameter
  2581.     push    ax            ; save character
  2582.     push    es
  2583.     push    ds
  2584.     pop    es
  2585.     push    di
  2586.     mov    cx,5            ; five words
  2587.     xor    ax,ax
  2588.     mov    di,offset param        ; clear parameters Pc,Pu,Px,Py,Pz
  2589.     cld
  2590.     rep    stosw
  2591.     pop    di
  2592.     pop    es
  2593.     mov    nparam,0        ; work on initial parameter first
  2594.     pop    ax
  2595. tekrco1:cmp    al,escape        ; escape, as in ESC \?
  2596.     je    tekrcost        ; e = yes, finish command
  2597.     cmp    al,' '            ; control code?
  2598.     jb    tekrco5            ; b = yes, ignore it
  2599.     push    bx
  2600.     mov    bx,nparam        ; parameter number
  2601.     shl    bx,1            ; make it a word index
  2602.     mov    cx,param[bx]        ; accumulated parameter
  2603.     call    getdec            ; accumulate decimal value
  2604.     mov    param[bx],cx        ; remember accumulation
  2605.     pop    bx
  2606.     jnc    tekrco5            ; nc = got a digit char
  2607.     inc    nparam            ; say have another complete parameter
  2608.     cmp    al,'/'            ; this kind of separator?
  2609.     je    tekrco3            ; e = yes, finish
  2610.     cmp    al,';'            ; break char is separator?
  2611.     jne    tekrco4            ; ne = no, decode current sequence
  2612. tekrco3:cmp    nparam,5        ; have 5 params already?
  2613.     jb    tekrco5            ; n = no, continue reading
  2614. tekrco4:call    tekgco4            ; process parameters in msgibm file
  2615.     mov    ttstate,offset tekrcol    ; next state is get parameter
  2616. tekrco5:ret                ; start over on next field
  2617.  
  2618. tekrcost:                ; get here on ST
  2619.     cmp    nparam,5        ; enough parameters to finish cmd?
  2620.     jb    tekrcos1        ; b = no, abandon it
  2621.     call    tekgco4            ; update from last data item
  2622.     mov    al,escape
  2623. tekrcos1:jmp    tekctl
  2624. tekrcol    endp
  2625.  
  2626. ; State machine to process DCS strings of type "q" (Sixel Command and Data)
  2627. ; Enter with new char in AL.
  2628. tekgets    proc    near
  2629.     mov    ttstate,offset tekgets    ; set state to ourselves
  2630.     mov    nparam,0        ; say no pending control sequences
  2631.     cmp    al,20h            ; control character?
  2632.     jae    tekgsch            ; ae = no, analyze
  2633.     jmp    tekctl            ; do control char
  2634.                     ; single sixel char state
  2635. tekgsch:cmp    al,3fh            ; legal sixel data char?
  2636.     jb    tekgrpt            ; b = no, try repeated char
  2637.     mov    cx,1            ; repeat count of 1
  2638.     jmp    sixplt            ; plot the six dots
  2639.  
  2640. tekgrpt:cmp    al,'!'            ; repeated char?
  2641.     jne    tekgera            ; ne = no
  2642.     mov    ttstate,offset tekgrpt0    ; next state is get repeat parameter
  2643.     mov    param,0
  2644.     mov    nparam,0
  2645.     ret
  2646.  
  2647. tekgrpt0:cmp    al,' '            ; control char?
  2648.     jae    tekgrpt1        ; ae = no
  2649.     jmp    tekctl            ; process control char
  2650. tekgrpt1:mov    cx,param        ; first param is used here
  2651.     call    getdec            ; accumulate repeat count to cx
  2652.     mov    param,cx        ; retain current count
  2653.     jc    tekgrpt2        ; c = ended on non-numeric
  2654.     ret                ; get more characters
  2655. tekgrpt2:cmp    al,3fh            ; break char, is it a sixel datum?
  2656.     jb    tekgrpt3        ; b = no, it is illegal, quit
  2657.     call    sixplt            ; plot cx versions of the six bits
  2658.     mov    ttstate,offset tekgets    ; return to sixel idle state
  2659.     ret
  2660. tekgrpt3:jmp    short tekgets        ; reprocess break character
  2661.  
  2662. tekgera:cmp    al,22h            ; double quote raster attribute?
  2663.     jne    tekgco            ; ne = no, try color
  2664.     mov    param,0            ; clear parameters, Pan
  2665.     mov    param[2],0        ; Pad
  2666.     mov    param[4],0        ; Ph
  2667.     mov    param[6],0        ; Pv
  2668.     mov    nparam,0        ; work on initial parameter first
  2669.     mov    ttstate,offset tekgra1    ; next state is get parameter
  2670.     ret
  2671. tekgra1:cmp    al,' '            ; control char?
  2672.     jb    tekgra2            ; b = yes, finish this work first
  2673.     push    bx
  2674.     mov    bx,nparam        ; parameter number
  2675.     shl    bx,1            ; make it a word index
  2676.     mov    cx,param[bx]        ; accumulated parameter
  2677.     call    getdec            ; accumulate decimal value into cx
  2678.     mov    param[bx],cx        ; remember accumulation
  2679.     pop    bx
  2680.     jc    tekgra2            ; c = failure to get a digit char
  2681.     ret
  2682. tekgra2:inc    nparam            ; say have another complete parameter
  2683.     cmp    nparam,4        ; got all four params Pan,Pad,Ph,Pv?
  2684.     je    tekgra4            ; e = yes
  2685.     cmp    al,';'            ; break char is separator?
  2686.     jne    tekgra3            ; ne = no, quit now
  2687.     ret                ; get more characters
  2688. tekgra3:jmp    tekgets            ; restart with the break char
  2689.  
  2690. tekgra4:;;; perform raster attributes work here
  2691.     mov    ttstate,offset tekgets
  2692.     ret
  2693.  
  2694. tekgco:    cmp    al,'#'            ; color introducer?
  2695.     je    tekgco0            ; e = yes
  2696.     jmp    tekgcr            ; ne = no
  2697. tekgco0:mov    ttstate,offset tekgco1    ; next state is get parameter
  2698.     push    ds
  2699.     pop    es
  2700.     push    di
  2701.     mov    cx,5            ; five words
  2702.     xor    ax,ax
  2703.     mov    di,offset param        ; clear parameters Pc,Pu,Px,Py,Pz
  2704.     cld
  2705.     rep    stosw
  2706.     pop    di
  2707.     pop    es
  2708.     mov    nparam,0        ; work on initial parameter first
  2709.     ret
  2710. tekgco1:cmp    al,' '            ; control char?
  2711.     jb    tekgco2            ; b = yes, finish this work first
  2712.     push    bx
  2713.     mov    bx,nparam        ; parameter number
  2714.     shl    bx,1            ; make it a word index
  2715.     mov    cx,param[bx]        ; accumulated parameter
  2716.     call    getdec            ; accumulate decimal value
  2717.     mov    param[bx],cx        ; remember accumulation
  2718.     pop    bx
  2719.     jc    tekgco2            ; c = failure to get a digit char
  2720.     ret
  2721. tekgco2:inc    nparam            ; say have another complete parameter
  2722.     cmp    al,';'            ; break char is separator?
  2723.     jne    tekgco3            ; ne = no, decode current sequence
  2724.     cmp    nparam,5        ; have 5 params already?
  2725.     jae    tekgco3            ; ae = yes, process them now
  2726.     ret                ;  else get more parameters
  2727. tekgco3:cmp    nparam,1        ; just one parameter?
  2728.     je    tekgco3a        ; e = yes, select from palette
  2729.     jb    tekgco3b        ; b = none, reprocess as sixel
  2730.     call    tekgco4            ; process parameters
  2731.     mov    nparam,0        ; clear parameters
  2732.     jmp    tekgets            ; reprocess char as sixel
  2733.  
  2734. tekgco3a:push    bx            ; select color from palette
  2735.     mov    bx,param[0]        ; get color number
  2736.     xor    bh,bh            ; make 0-255
  2737.     mov    bl,colpal[bx]        ; get color from palette
  2738.     mov    gfcol,bl        ; set active foreground color
  2739.     pop    bx
  2740.     push    ax            ; save char in al
  2741.     call    fixcolor        ; fix color too, if req'd
  2742.     pop    ax
  2743. tekgco3b:mov    nparam,0        ; clear parameters
  2744.     jmp    tekgets            ; reprocess char as sixel
  2745.  
  2746.                     ; set IRGB/HLS color to color palette
  2747. tekgco4:cmp    param[2],2        ; Pu (1-2), wanted RBG?
  2748.     je    tekgco4b        ; e = yes
  2749.     cmp    param[2],1        ; Pu, wanted HLS?
  2750.     jne    tekgco4a        ; ne = no
  2751.     jmp    tekgco9            ; do HLS scheme
  2752. tekgco4a:mov    nparam,0        ; clear parameters
  2753.     ret                ; return without doing work
  2754. tekgco4b:push    ax            ; iRGB, save break char in al
  2755.     mov    ax,param[4]        ; red
  2756.     mov    bx,param[6]        ; green
  2757.     mov    dx,param[8]        ; blue
  2758.     xor    cx,cx            ; cl has final color index, 0-15
  2759.     or    ch,al
  2760.     or    ch,bl
  2761.     or    ch,dl            ; any color?
  2762.     jcxz    tekgco7            ; z = no, use cl = 0 black
  2763.     cmp    ax,rgbbold        ; setting red bold?
  2764.     jae    tekgco4c        ; ae = yes
  2765.     cmp    bx,rgbbold        ; setting green bold?
  2766.     jae    tekgco4c        ; ae = yes
  2767.     cmp    dx,rgbbold        ; setting blue bold?
  2768.     jb    tekgco4d        ; b = no
  2769. tekgco4c:mov    cl,8            ; set the bold bit
  2770.     jmp    tekgco4e        ; do hues
  2771. tekgco4d:cmp    ax,rgbbold/2        ; all in dim intensities?
  2772.     jae    tekgco4e        ; ae = no
  2773.     cmp    bx,rgbbold/2        ; green?
  2774.     jae    tekgco4e        ; ae = no
  2775.     cmp    dx,rgbbold/2        ; blue
  2776.     jae    tekgco4e        ; ae = no
  2777.     mov    cl,8            ; use bold black (dark grey)
  2778.     jmp    tekgco7
  2779. tekgco4e:or    ax,ax            ; Hues, any red?
  2780.     jz    tekgco5            ; z = no
  2781.     or    cl,4            ; set red bit
  2782.     cmp    ax,rgbbold/2        ; dim?
  2783.     jae    tekgco5            ; ae = no
  2784.     test    cl,8            ; doing bold?
  2785.     jz    tekgco5            ; z = no
  2786.     xor    cl,4            ; clear dim red
  2787. tekgco5:or    bx,bx            ; any green?
  2788.     jz    tekgco6            ; z = no
  2789.     or    cl,2            ; set green bit
  2790.     cmp    bx,rgbbold/2        ; dim?
  2791.     jae    tekgco6            ; ae = no
  2792.     test    cl,8            ; doing bold?
  2793.     jz    tekgco6            ; z = no
  2794.     xor    cl,2            ; clear dim green
  2795. tekgco6:or    dx,dx            ; any blue?
  2796.     jz    tekgco7            ; z = no
  2797.     or    cl,1            ; set blue bit
  2798.     cmp    dx,rgbbold/2        ; dim?
  2799.     jae    tekgco7            ; ae = no
  2800.     test    cl,8            ; doing bold?
  2801.     jz    tekgco7            ; z = no
  2802.     xor    cl,1            ; clear dim blue
  2803. tekgco7:push    bx
  2804.     mov    bx,param[0]        ; Pc, color palette being defined
  2805.     xor    bh,bh            ; make 0-255
  2806.     mov    colpal[bx],cl        ; store color code in palette
  2807.     pop    bx
  2808.     mov    nparam,0        ; say done with this sequence
  2809.     pop    ax            ; recover break char in al
  2810.     ret
  2811.  
  2812.                     ; Hue, Lightness, Saturation
  2813. tekgco9:push    ax            ; save break char
  2814.     xor    cl,cl            ; assummed color of black
  2815.     mov    ax,param[4]        ; Px, Hue, 60 degree slices
  2816.     push    cx
  2817.     mov    cx,360            ; do modulo 360
  2818.     xor    dx,dx            ; clear high order numerator
  2819.     div    cx            ; dx has remainder
  2820.     pop    cx
  2821.     mov    ax,dx            ; put remainder in ax
  2822.     cmp    ax,30            ; blue?
  2823.     jae    tekgco10        ; ae = no
  2824.     or    cl,1            ; blue
  2825.     jmp    short tekgco15
  2826. tekgco10:cmp    ax,90            ; magenta?
  2827.     jae    tekgco11        ; ae = no
  2828.     or    cl,1+4            ; magenta = blue + red
  2829.     jmp    short tekgco15
  2830. tekgco11:cmp    ax,150            ; red?
  2831.     jae    tekgco12        ; ae = no
  2832.     or    cl,4            ; red
  2833.     jmp    short tekgco15
  2834. tekgco12:cmp    ax,210            ; yellow?
  2835.     jae    tekgco13        ; ae = no
  2836.     or    cl,4+2            ; yellow = reg + green
  2837.     jmp    short tekgco15
  2838. tekgco13:cmp    ax,270            ; cyan?
  2839.     jae    tekgco14        ; ae = no
  2840.     or    cl,2+1            ; cyan = green+blue
  2841.     jmp    short tekgco15
  2842. tekgco14:or    cl,1            ; blue
  2843.  
  2844. tekgco15:mov    ax,param[6]        ; Py, Lightness
  2845.     mov    dx,param[8]        ; Pz, Saturation
  2846.     cmp    ax,86            ; lightness is max?
  2847.     jb    tekgco16        ; b = no
  2848.     mov    cl,0fh            ; greater than 85% means bold white
  2849.     jmp    short tekgco22
  2850. tekgco16:cmp    ax,71            ; high lightness?
  2851.     jb    tekgco17        ; b = not that light
  2852.     or    cl,8            ; turn on bold bit
  2853.     cmp    dx,51            ; saturated?
  2854.     jae    tekgco22        ; ae = yes
  2855.     mov    cl,0fh            ; low saturation yields bold white
  2856.     jmp    short tekgco22
  2857. tekgco17:cmp    ax,57            ; central coloring, upper?
  2858.     jb    tekgco18        ; b = no
  2859.     or    cl,8            ; turn on bold bit
  2860.     cmp    dx,51            ; saturated?
  2861.     jae    tekgco22        ; ae = yes, use bold colors
  2862.     mov    cl,7            ; s < 50 is dim white
  2863.     cmp    dx,11            ; saturated less than 11%
  2864.     jae    tekgco22        ; ae = no
  2865.     xor    cl,cl            ; s < 11 is black here
  2866.     jmp    short tekgco22
  2867. tekgco18:cmp    ax,43            ; dim colors, upper?
  2868.     jb    tekgco19        ; b = no
  2869.     or    cl,8            ; turn on bold bit
  2870.     cmp    dx,51            ; saturated?
  2871.     jae    tekgco22        ; ae = yes, use bold colors
  2872.     and    cl,not 8        ; use dim colors
  2873.     jmp    short tekgco22
  2874. tekgco19:cmp    ax,29            ; dim colors, lower?
  2875.     jb    tekgco20        ; b = no
  2876.     cmp    dx,51            ; saturated?
  2877.     jae    tekgco22        ; ae = yes
  2878.     mov    cl,7            ; use dim white
  2879.     jmp    short tekgco22
  2880. tekgco20:cmp    ax,14            ; dark colors?
  2881.     jb    tekgco21        ; b = no
  2882.     cmp    dx,51            ; saturated?
  2883.     jae    tekgco22        ; ae = yes
  2884. tekgco21:xor    cl,cl            ; use black
  2885. tekgco22:push    bx
  2886.     mov    bx,param[0]        ; Pc, color palette being defined
  2887.     xor    bh,bh            ; get palette 0-255
  2888.     mov    colpal[bx],cl        ; store color code in palette
  2889.     pop    bx
  2890.     mov    nparam,0        ; say done with this sequence
  2891.     pop    ax            ; recover break char
  2892.     ret
  2893.  
  2894. tekgcr:    cmp    al,'$'            ; graphics carriage return?
  2895.     jne    tekgnl            ; ne = no
  2896.     mov    x_coord,0        ; go to left margin, no line feed
  2897.     ret
  2898. tekgnl:    cmp    al,'-'            ; graphics new line?
  2899.     jne    tekgunk            ; ne = no
  2900.     mov    x_coord,0        ; go to left margin, no line feed
  2901.     mov    ax,y_coord        ; bottom of char cell
  2902.     add    ax,6            ; go down 6 dots
  2903.     cmp    ax,ybot            ; wrapping below bottom?
  2904.     jbe    tekgnl1            ; be = no
  2905.     mov    ax,ybot            ; stop at bottom (leaves 2 dots free!)
  2906. tekgnl1:mov    y_coord,ax
  2907.     ret
  2908. tekgunk:mov    ttstate,offset tekgets    ; unknown char
  2909.     cmp    al,' '            ; control char?
  2910.     jae    tekgun1            ; ae = no
  2911.     jmp    tektxt            ; process control char
  2912. tekgun1:ret                ; ignore the unknown char
  2913. tekgets    endp
  2914.  
  2915. ; Accumulate decimal value in CX using ascii char in al.
  2916. ; Return with value in CX. Return carry clear if ended on a digit,
  2917. ; return carry set and ascii char in al if ended on a non-digit.
  2918. getdec    proc    near
  2919.     cmp    al,'0'            ; a number?
  2920.     jb    getdecx            ; b = no, quit
  2921.     cmp    al,'9'
  2922.     ja    getdecx            ; a = not a number, quit
  2923.     sub    al,'0'            ; remove ascii bias
  2924.     xchg    cx,ax            ; put char in cx, decimal value in ax
  2925.     push    dx            ; save reg
  2926.     mul    ten            ; times ten for a new digit
  2927.     pop    dx            ; recover reg, ignore overflow
  2928.     add    al,cl            ; add current digit
  2929.     adc    ah,0            ; 16 bits worth
  2930.     xchg    ax,cx            ; rpt cnt back to cx
  2931.     clc                ; say found a digit
  2932.     ret
  2933. getdecx:stc                ; say non-digit (in al)
  2934.     ret
  2935. getdec    endp
  2936.  
  2937. ; Display lower six bits of AL in a column, a sixel datum. Do CX times.
  2938. ; Location is PC text cursor, x_coord, y_coord, with least significant bit
  2939. ; at the top (at y_coord-8). Increments x_coord by one for each interation
  2940. ; but stops at right margin and does not change y_coord. If dparam[2], P2,
  2941. ; is 1 then color pattern 0 bits in current background, else skip them.
  2942. sixplt    proc    near
  2943.     or    cx,cx            ; repeat count present?
  2944.     jnz    sixplt1            ; nz = yes
  2945.     ret
  2946. sixplt1:push    ax
  2947.     push    bx
  2948.     push    linepat            ; save line pattern
  2949.     sub    al,3fh            ; remove ascii bias from sixel char
  2950.     xor    ah,ah
  2951.     mov    linepat,ax        ; our dot pattern in lower 6 bits
  2952.     mov    di,y_coord        ; text bottom cell line
  2953.     sub    di,charhgt        ; go to top of charhgt high char cell
  2954.     jnc    sixplt2            ; nc = no wrap over top
  2955.     xor    di,di            ; limit to screen top
  2956. sixplt2:mov    bx,di            ; bx = ending y
  2957.     add    bx,5            ; plus our six dots (goes down screen)
  2958.     cmp    bx,ybot            ; wrapping below bottom?
  2959.     jbe    sixplt3            ; be = no
  2960.     mov    bx,ybot            ; stop at bottom
  2961. sixplt3:mov    ax,x_coord        ; left edge of text cell
  2962.     mov    si,ax            ; si=starting, ax=ending PC x coord
  2963.     add    xmax,7            ; refer to right edge, not right char
  2964.     push    es            ; set up for dot plotting, save regs
  2965.     push    si
  2966.     push    di
  2967.     push    dx
  2968.     push    bp
  2969.     mov    dl,ccode        ; existing pixel op code
  2970.     push    dx            ; save ccode around line drawing
  2971.     mov    ccode,pixor        ; set OR pixel op for use by plot()
  2972.     cmp    gfcol,0            ; all black dots?
  2973.     jne    sixplt3a        ; ne = no
  2974.     mov    ccode,pixfor        ; yes, force overwriting to nulls
  2975. sixplt3a:push    cx
  2976.     call    psetup            ; setup display and es:di and es:si
  2977.     pop    cx
  2978.                     ; start sixel repeat loop
  2979. sixplt4:push    cx            ; save sixel repeat count
  2980.     push    di            ; save y starting screen address
  2981.     mov    bp,linepat        ; store active line pattern word in BP
  2982.     mov    cx,6            ; six dots per sixel
  2983.                     ; start six dot loop
  2984. sixplt5:push    cx            ; save dot count
  2985.     mov    cl,pixFor        ; assume foreground coloring
  2986. ;;;;    test    bp,1            ; bit to be plotted, is it a 1?
  2987. ;;;;    jnz    sixplt6            ; nz = yes, plot in foreground color
  2988. ;;;;    cmp    dparam[2],1        ; P2 = 1, skip over 0's?
  2989. ;;;;    je    sixplt6            ; e = yes
  2990. ;;;;    mov    cl,pixbak        ; use background write pixel op
  2991. ;;;;    or    bp,1            ; set pattern bit so we see a pixel
  2992. sixplt6:mov    ccode,cl        ; desired pixel op
  2993.     call    plotptr            ; plot a dot if it is a 1
  2994.     call    pincy            ; next dot down the screen (di)
  2995.     pop    cx            ; recover dot counter
  2996.     loop    sixplt5            ; do each of 6 dots
  2997.                     ;
  2998.     pop    di            ; recover starting y screen coord
  2999.     pop    cx            ; recover repeat count
  3000.     cmp    ax,xmax            ; off right edge?
  3001.     jae    sixplt8            ; ae = yes
  3002.     inc    ax            ; move right one pixel
  3003.     inc    si            ; start and stop x's
  3004. sixplt8:loop    sixplt4            ; repeat sixel cx times
  3005.     pop    dx
  3006.     mov    ccode,dl        ; recover main color code
  3007.     pop    bp
  3008.     pop    dx
  3009.     pop    di
  3010.     pop    si
  3011.     pop    es
  3012.     mov    x_coord,ax        ; new text starting x coord
  3013.     sub    xmax,7            ; restore to right most char cell
  3014.     pop    linepat            ; restore normal line pattern
  3015.     pop    bx
  3016.     pop    ax
  3017.     ret
  3018. sixplt    endp
  3019.  
  3020. ; Process ST or ESC \  String Terminator.
  3021. tekgotst proc    near
  3022.     mov    dcsstrf,0        ; clear DCS Final char
  3023.     mov    nparam,0
  3024.     mov    ninter,0
  3025.     mov    al,colpal[7]        ; reset foreground to palette 7
  3026.     mov    gfcol,al
  3027.     mov    al,colpal[0]        ; and background to palette 0
  3028.     mov    gbcol,al
  3029.     call    fixcolor        ; and fix up coloring, if req'd
  3030.     mov    prestate,offset tektxt    ; reset state of emulator to normal
  3031.     mov    ttstate,offset tektxt
  3032.     call    setcursor        ; restore text cursor
  3033.     ret
  3034. tekgotst endp
  3035.  
  3036. TEKLINE    proc    near            ; GS line drawing
  3037.     cmp    al,' '            ; control char?
  3038.     jae    teklin3            ; ae = no
  3039.     cmp    al,CR            ; exit drawing on CR,LF,RS,US,FS,CAN
  3040.     je    teklin2            ; e = yes, a cr
  3041.     cmp    al,LF            ; these terminate line drawing cmds
  3042.     je    teklin2
  3043.     cmp    al,FS            ; <FS>
  3044.     je    teklin2
  3045.     cmp    al,GS            ; <GS>
  3046.     je    teklin2
  3047.     cmp    al,RS            ; <RS>
  3048.     je    teklin2
  3049.     cmp    al,US            ; <US>
  3050.     je    teklin2
  3051.     cmp    al,CAN            ; and <CAN>
  3052.     je    teklin2            ; BUT ignore other control chars
  3053.     cmp    al,escape        ; escape?
  3054.     je    teklin1            ; e = yes, come back to this state
  3055.     ret                ; ignore stray control char
  3056. teklin1:jmp    tekctl            ; process control char
  3057. teklin2:mov    lastc,0            ; clear last drawing coordinate flag
  3058.     mov    visible,0        ; invisible again
  3059.     jmp    tektxt            ; process char under text mode
  3060.  
  3061. teklin3:call    tekxyc            ; parse coordinates from input bytes
  3062.     jc    teklin4            ; c = done, do the plotting
  3063.     ret                ; nc = not done yet
  3064. teklin4:mov    cl,visible        ; get moveto or drawto variable
  3065.     call    tekdraw            ; move that point
  3066.     mov    visible,1        ; say next time we draw
  3067.     ret
  3068. TEKLINE    endp
  3069.     
  3070. TEKPNT    proc    near            ; FS plot single point
  3071.     cmp    al,' '            ; control char?
  3072.     jae    tekpnt3            ; ae = no
  3073.     cmp    al,CR            ; exit drawing on CR,LF,RS,US,FS,CAN
  3074.     je    tekpnt2            ; e = yes, a cr
  3075.     cmp    al,LF             ; these terminate line drawing cmds
  3076.     je    tekpnt2
  3077.     cmp    al,FS            ; <FS>
  3078.     je    tekpnt2
  3079.     cmp    al,GS            ; <GS>
  3080.     je    tekpnt2
  3081.     cmp    al,RS            ; <RS>
  3082.     je    tekpnt2
  3083.     cmp    al,US            ; <US>
  3084.     je    tekpnt2
  3085.     cmp    al,CAN            ; and <CAN>
  3086.     je    tekpnt2            ; BUT ignore other control chars
  3087.     cmp    al,escape        ; escape?
  3088.     je    tekpnt1            ; e = yes
  3089.     clc
  3090.     ret                ; ignore stray control char
  3091. tekpnt1:jmp    tekctl            ; process control char
  3092. tekpnt2:mov    lastc,0            ; clear last drawing coordinate flag
  3093.     mov    visible,0        ; invisible again
  3094.     jmp    tektxt            ; process char under text mode
  3095.  
  3096. tekpnt3:call    tekxyc            ; parse coordinates
  3097.     jc    tekpnt4            ; c = done, do the plotting
  3098.     ret                ; nc = not done yet
  3099. tekpnt4:xor    cl,cl            ; do not draw
  3100.     call    tekdraw            ; move to the point
  3101.     mov    ax,si            ; copy starting point to end point
  3102.     mov    bx,di            ; ax,bx,si,di are in PC coordinates
  3103.     mov    cl,1            ; make plot visible
  3104.     call    line            ; draw the dot
  3105.     mov    visible,0        ; return to invisibility
  3106.     clc
  3107.     ret
  3108. TEKPNT    endp
  3109.  
  3110. ; Decode graphics x,y components. Returns carry set to say have all
  3111. ; components for a line, else carry clear. Understands 4014 lsb extensions.
  3112. ; Permits embedded escape sequences.
  3113. TEKXYC    proc    near
  3114.     cmp    al,40h
  3115.     jb    tekgh2            ; 20-3F are HIX or HIY
  3116.     cmp    al,60h            ; 40-5F are LOX (causes beam movement)
  3117.     jb    tekgh4            ; 60-7F are LOY
  3118.                     ; extract low-order 5 bits of Y coord
  3119.     mov    ah,tek_loy        ; copy previous LOY to MSB (4014)
  3120.     mov    tek_lsb,ah
  3121.     and    al,1Fh            ; LOY is 5 bits
  3122.     mov    tek_loy,al
  3123.     cmp    lastc,loy        ; 2nd LOY in a row?
  3124.     je    tekgh1            ; e = yes, then LSB is valid
  3125.     mov    tek_lsb,0        ; 1st one, clear LSB
  3126. tekgh1:    mov    lastc,loy        ; LOY seen, expect HIX (instead of HIY)
  3127. tekgh0:    clc                ; c clear = not completed yet
  3128.     ret
  3129. tekghx:    mov    ttstate,offset tektxt    ; go to TEKTXT next time
  3130.     mov    lastc,0            ; clear last drawing coordinate flag
  3131.     or    status,txtmode        ; set text mode in status byte
  3132.     clc                ; carry clear means done
  3133.     ret
  3134.  
  3135.         ; Extract high-order 5 bits (X or Y, depending on lastc)
  3136. tekgh2: and    ax,1Fh            ; just 5 bits
  3137.     mov    cl,5
  3138.     shl    ax,cl            ; shift over 5 bits
  3139.     cmp    lastc,loy        ; was last coordinate a low-y?
  3140.     je    tekgh3            ; e = yes, parse hix
  3141.     mov    tek_hiy,ax        ; this byte has HIY
  3142.     mov    lastc,hiy
  3143.     clc
  3144.     ret
  3145. tekgh3: mov    tek_hix,ax        ; this byte has HIX
  3146.     mov    lastc,hix
  3147.     clc
  3148.     ret
  3149. tekgh4: and    al,1Fh            ; just 5 bits
  3150.     mov    tek_lox,al
  3151.     mov    lastc,lox
  3152.     mov    ax,tek_hix        ; combine HIX*32
  3153.     or    al,tek_lox        ;  with LOX
  3154.     mov    bx,tek_hiy        ; same for Y
  3155.     or    bl,tek_loy
  3156.     stc                ; set c to say completed operation
  3157.     ret
  3158. TEKXYC    endp
  3159.  
  3160. TEKRLIN    proc    near            ; RS relative line drawing
  3161.     cmp    al,' '            ; control char?
  3162.     jae    tekrli1            ; ae = no
  3163.     jmp    tektxt            ; process control char
  3164. tekrli1:cmp    al,' '            ; pen up command?
  3165.     jne    tekrli2            ; ne = no, try pen down
  3166.     mov    visible,0        ; do invisible movements
  3167.     jmp    short tekrli3        ; do the command
  3168. tekrli2:cmp    al,'P'            ; pen down command?
  3169.     jne    tekrli4            ; ne = no, return to text mode
  3170.     mov    visible,1        ; set visible moves
  3171.  
  3172. tekrli3:mov    ax,x_coord        ; PC x coordinate of pen
  3173.     mov    bx,y_coord        ;    y coordinate
  3174.     call    pctotek            ; get current pen position in Tek coor
  3175.     xor    cl,cl            ; invisible, moveto
  3176.     call    tekdraw            ; move that point, set oldx and oldy
  3177.     mov    ttstate,offset tekinc    ; next get incremental movement cmds
  3178.     ret
  3179.  
  3180. tekrli4:mov    visible,0        ; bad char, reset visibility
  3181.     mov    ttstate,offset tektxt    ; assume text
  3182. tekrli5:jmp    ttstate            ; deal with bad char
  3183. TEKRLIN    endp
  3184.                     ; interpret RS inc plot command byte
  3185. TEKINC    proc    near            ; get movement character and do cmd
  3186.     cmp    al,' '            ; control char?
  3187.     jae    tekinc1            ; ae = no
  3188.     jmp    tektxt            ; process control char
  3189. tekinc1:mov    bx,oldx
  3190.     mov    cx,oldy
  3191.     test    al,1            ; 'A', 'E', 'I'?  Do by bit fields
  3192.     jz    tekinc2            ; z = no
  3193.     inc    bx            ; adjust beam position
  3194. tekinc2:test    al,2            ; 'B', 'F', 'J'?
  3195.     jz    tekinc4
  3196.     dec    bx
  3197. tekinc4:test    al,4            ; 'D', 'E', 'F'?
  3198.     jz    tekinc8            ; z = no
  3199.     inc    cx
  3200. tekinc8:test    al,8            ; 'H', 'I', 'J'?
  3201.     jz    tekinc9
  3202.     dec    cx
  3203. tekinc9:cmp    bx,0            ; too far left?
  3204.     jge    tekinc10        ; ge = no
  3205.     xor    bx,bx            ; else stop at the left margin
  3206. tekinc10:cmp    bx,maxtekx-1        ; too far left?
  3207.     jle    tekinc11        ; le = no
  3208.     mov    bx,maxtekx-1        ; else stop that the left margin
  3209. tekinc11:cmp    cx,maxteky-1        ; above the top?
  3210.     jle    tekinc12        ; le = not above the top
  3211.     mov    cx,maxteky-1        ; else stop at the top
  3212. tekinc12:cmp    cx,0            ; below bottom?
  3213.     jge    tekinc13        ; ge = not below bottom
  3214.     xor    cx,cx            ; else stop at the bottom
  3215. tekinc13:mov    ax,bx            ; ax is vector x end point
  3216.     mov    oldx,bx
  3217.     mov    bx,cx            ; bx is vector y end point
  3218.     mov    oldy,cx
  3219.     mov    cl,visible
  3220.     jmp    tekdraw            ; move/draw to that point
  3221. tekincb:mov    visible,0
  3222.     jmp    tektxt            ; reparse the bad char
  3223. TEKINC    endp
  3224.     
  3225.  
  3226. crossini proc    near            ; set crosshairs for initial screen
  3227.     cmp    crossactive,0        ; inited already?
  3228.     je    crossin1        ; e = no
  3229.     ret
  3230. crossin1:mov    ax,xmax            ; right margin minus 7 dots
  3231.     add    ax,7            ; right most dot
  3232.     shr    ax,1            ; central position
  3233.     mov    bx,ybot            ; last scan line
  3234.     shr    bx,1
  3235.     cmp    ax,xcenter        ; same as previous call?
  3236.     jne    crossin2        ; ne = no, recenter
  3237.     cmp    bx,ycenter        ; same as previous call?
  3238.     je    crossin3        ; e = yes, don't recenter crosshairs
  3239. crossin2:
  3240.     mov    xcenter,ax        ; remember center coord
  3241.     mov    ycenter,bx        ; remember center coord
  3242.     mov    xcross,ax        ; save PC coord for crosshair
  3243.     mov    ycross,bx
  3244. crossin3:                ; Mouse setup
  3245.     mov    mousebuf,0        ; assume no active mouse driver
  3246.     mov    al,mouse        ; mouse interrupt 33h
  3247.     mov    ah,35h            ; get vector for mouse driver
  3248.     int    dos
  3249.     mov    ax,es
  3250.     cmp    ax,0f000h        ; in ROM Bios?
  3251.     jae    crosin4            ; ae = yes
  3252.     or    ax,bx            ; check for no vector at all
  3253.     jz    crosin4            ; z = none
  3254.     cmp    byte ptr es:[bx],0cfh    ; is this an IRET instruction?
  3255.     je    crosin4            ; e = yes, not our driver
  3256.     mov    ax,msgetbf        ; get state buffer size (bytes) to BX
  3257.     int    mouse
  3258.     add    bx,15            ; round up to next paragraph
  3259.     shr    bx,1
  3260.     shr    bx,1
  3261.     shr    bx,1
  3262.     shr    bx,1            ; bytes to paragraphs
  3263.     mov    ah,alloc        ; allocate memory
  3264.     int    dos
  3265.     jc    crosin4            ; c = failed
  3266.     mov    mousebuf,ax        ; save seg of the mouse status buffer
  3267.     mov    es,ax
  3268.     xor    dx,dx            ; buffer address to es:dx
  3269.     mov    ax,msgetst        ; get mouse state info
  3270.     int    mouse
  3271.     jnc    crosin2            ; nc = presumed success
  3272.     call    mousefree        ; return mouse save buffer
  3273.     jmp    short crosin4
  3274. crosin2:xor    cx,cx            ; minimum horizontal/vertical motion
  3275.     mov    dx,xmax            ; right most char
  3276.     add    dx,7            ; right most dot (counted from 0)
  3277.     mov    ax,mshoriz        ; set min/max horizontal motion
  3278.     int    mouse
  3279.     mov    dx,ybot            ; max y (counted from 0)
  3280.     mov    ax,msvert        ; set min/max vertical motion
  3281.     int    mouse
  3282.  
  3283. crosin4:mov    ax,linepat        ; save line drawing pattern
  3284.     mov    ginlpsave,ax        ; save it here
  3285.     mov    linepat,0ffffh        ; reset line type to solid
  3286.     cmp    tekflg,tek_active+tek_sg; in DG special graphics mode?
  3287.     jne    crosin5            ; e = yes, DG uses left bottom corner
  3288.     or    dgcross,1        ; say crosshair is activiated
  3289.     and    dgcross,not 8        ; and not invisible
  3290.     mov    xcross,0        ; left side
  3291.     mov    ax,ybot
  3292.     sub    ax,charhgt        ; skip status line
  3293.     mov    ycross,ax        ; bottom
  3294. crosin5:call    crosdrawh        ; draw initial crosshairs
  3295.     call    crosdrawv
  3296.     call    setmouse        ; set mouse there too
  3297.     mov    crossactive,1        ; say we are active
  3298.     ret
  3299. crossini endp
  3300.  
  3301. crossfin proc    near
  3302.     cmp    crossactive,0        ; is crosshair material active?
  3303.     je    crossfin1        ; e = no
  3304.     mov    crossactive,0
  3305.     call    crosdrawh        ; erase crosshairs
  3306.     call    crosdrawv
  3307.     call    mousefree        ; return mouse save buffer
  3308.     mov    ax,ginlpsave
  3309.     mov    linepat,ax        ; restore line pattern
  3310.     mov    ttstate,offset tektxt    ; go to TEKTXT next time
  3311.     mov    lastc,0            ; clear last drawing coordinate flag
  3312.     or    status,txtmode        ; set text mode in status byte
  3313. crossfin1:ret
  3314. crossfin endp
  3315.  
  3316. ; Routine to trigger the crosshairs, wait for a key to be struck, and send
  3317. ; the typed char (if printable ascii) plus four Tek encoded x,y position
  3318. ; coordinates and then a carriage return.
  3319. ; ax, cx, xcross, ycross operate in PC coordinates.
  3320. ; For DG special graphics enter with scan code in AL
  3321. CROSHAIR PROC FAR
  3322.     cmp    tekflg,tek_active+tek_sg; in DG special graphics mode?
  3323.     jne    crosha1a        ; ne = no, try regular Tek GIN mode
  3324.     test    dgcross,8        ; should be on but has been removed?
  3325.     jz    crosha5            ; z = no, cross is visible
  3326.     push    ax
  3327.     call    crosdrawv        ; show vertical line
  3328.     call    crosdrawh
  3329.     pop    ax
  3330.     and    dgcross, not 8        ; say cross is visible again
  3331. crosha5:test    dgcross,2        ; track keyboard?
  3332.     jz    crosha1            ; z = no, try mouse
  3333.     or    al,al            ; anything in keyboard trapping buf?
  3334.     jnz    crosha4b        ; process it as if key scan code
  3335. crosha1:test    dgcross,4        ; track mouse?
  3336.     jnz    short crosha1c        ; nz = yes, try the mouse
  3337.     jmp    croshaexit        ; neither, do nothing
  3338. crosha1a:
  3339.     call    tiseof            ; is stdin at EOF?
  3340.     jc    crosha2            ; c = yes, exit this mode now
  3341.     mov    dl,0ffh
  3342.     mov    ah,dconio        ; read console
  3343.     int    dos
  3344.     jnz    crosha4            ; nz = have char in AL
  3345. crosha1c:
  3346.     cmp    mousebuf,0        ; is mouse driver active?
  3347.     je    croshaexit        ; e = no
  3348.     mov    ax,msread        ; mouse, read status and position
  3349.     int    mouse
  3350.     push    bx            ; save button press information
  3351.     cmp    cx,xcross        ; moved in x direction?
  3352.     je    crosm1            ; e = no
  3353.     push    dx            ; save mouse y
  3354.     call    crosdrawv        ; erase vertical line
  3355.     call    crosdrawh
  3356.     mov    xcross,cx        ; new position
  3357.     call    crosdrawv        ; draw new vertical line
  3358.     call    crosdrawh
  3359.     pop    dx
  3360. crosm1:    cmp    dx,ycross        ; moved in y direction?
  3361.     je    crosm2            ; e = no
  3362.     call    crosdrawh        ; erase horizontal line
  3363.     test    dgcross,1        ; is DG crosshair active?
  3364.     jz    crosm3            ; z = no
  3365.     call    crosdrawv
  3366.     mov    ax,ybot
  3367.     sub    ax,charhgt        ; avoid status line
  3368.     cmp    dx,ax            ; too far down?
  3369.     jbe    crosm3            ; be = no
  3370.     mov    dx,ax            ; stop here
  3371. crosm3:    mov    ycross,dx
  3372.     call    crosdrawh        ; draw new horizontal line
  3373.     test    dgcross,1        ; is DG crosshair active?
  3374.     jz    crosm3a            ; z = no
  3375.     call    crosdrawv
  3376. crosm3a:call    setmouse        ; set mouse there too
  3377. crosm2:    pop    bx
  3378.     test    bx,7            ; mouse, was a button pressed?
  3379.     jz    croshaexit        ; z = no
  3380.     cmp    tekflg,tek_active+tek_sg ; DG special graphics mode?
  3381.     je    crosm4            ; e = yes, do POINT command
  3382.     mov    al,CR            ; simulate a CR
  3383.     jmp    short crosha4
  3384. crosm4:    cmp    bl,1            ; left button? (rt button is 2)
  3385.     je    crosm5            ; e = yes
  3386.     mov    al,RS            ; send DG F1 code RS q for EXECUTE
  3387.     call    outmodem
  3388.     mov    al,'q'
  3389.     call    outmodem
  3390.     clc
  3391.     ret
  3392. crosm5:    call    dgcrossrpt        ; send DG POINT command
  3393. croshaexit:clc                ; c clear means not done yet
  3394.     ret
  3395.  
  3396. crosha4:or    al,al            ; ascii or scan code returned
  3397.     jnz    arrow5            ; nz = ascii char returned
  3398.     call    tiseof            ; is stdin at EOF?
  3399.     jc    crosha2            ; c = yes, exit this mode now
  3400.     mov    ah,coninq        ; read scan code
  3401.     int    dos
  3402. crosha4b:
  3403.     or    al,al            ; Control-Break?
  3404.     jnz    crosha3            ; nz = no, something else
  3405. crosha2:call    crosdrawh        ; erase crosshairs
  3406.     call    crosdrawv
  3407.     mov    ax,ginlpsave
  3408.     mov    linepat,ax        ; restore line pattern
  3409.     ret                ; exit crosshairs mode
  3410.  
  3411. crosha3:cmp    al,homscn        ; is it 'home'?
  3412.     jne    arrow1            ; ne = no, try other keys
  3413.     call    crosdrawh        ; erase crosshairs
  3414.     call    crosdrawv
  3415.     mov    ax,xmax            ; right margin
  3416.     add    ax,7
  3417.     shr    ax,1            ; central position
  3418.     mov    xcross,ax        ; save PC coord for crosshair
  3419.     mov    ax,ybot            ; last scan line
  3420.     shr    ax,1
  3421.     mov    ycross,ax        ; this is the center of the screen
  3422.     call    crosdrawh        ; draw home'd crosshairs
  3423.     call    crosdrawv
  3424.     call    setmouse        ; set mouse there too
  3425.     jmp    croshaexit
  3426.  
  3427. arrow1:    cmp    al,lftarr        ; left arrow?
  3428.     jne    arrow2            ; ne = no
  3429.     mov    cx,-1            ; left shift
  3430.     jmp    short xkeys
  3431. arrow2:    cmp    al,rgtarr        ; right arrow?
  3432.     jne    arrow3            ; ne = no
  3433.     mov    cx,1            ; right shift
  3434.     jmp    short xkeys
  3435. arrow3:    cmp    al,uparr        ; up arrow?
  3436.     jne    arrow4            ; ne = no
  3437.     mov    cx,-1            ; up shift
  3438.     jmp    short vertkey
  3439. arrow4:    cmp    al,dnarr        ; down arrow?
  3440.     jne    badkey            ; ne = no, ignore it
  3441.     mov    cx,1                  ; down shift
  3442.     jmp    short vertkey
  3443.  
  3444. badkey:    call    tekbeep            ; tell user we don't understand
  3445.     jmp    croshaexit        ; keep going
  3446.  
  3447.                     ; Shifted keys yield ascii keycodes
  3448. arrow5:    cmp    al,'C' and 1fh        ; Control-C?
  3449.     je    crosha2            ; e = yes, exit crosshairs mode now
  3450.     cmp    al,shlftarr        ; shifted left arrow?
  3451.     jne    arrow6            ; ne = no
  3452.     mov    cx,-10            ; big left shift
  3453.     jmp    short xkeys
  3454. arrow6:    cmp    al,shrgtarr        ; shifted right arrow?
  3455.     jne    arrow7            ; ne = no
  3456.     mov    cx,10            ; big right shift
  3457.     jmp    short xkeys
  3458. arrow7:    cmp    al,shuparr        ; shifted up arrow?
  3459.     jne    arrow8            ; ne = no
  3460.     mov    cx,-10            ; big up shift
  3461.     jmp    short vertkey
  3462. arrow8:    cmp    al,shdnarr        ; shifted down arrow?
  3463.     jne    charkey            ; ne = no, send this key as is
  3464.     mov    cx,10            ; big down shift
  3465.     jmp    short vertkey
  3466.  
  3467. xkeys:    call    crosdrawv        ; erase vertical line
  3468.     call    crosdrawh
  3469.     add    cx,xcross        ; add increment
  3470.     jns    noxc            ; gone too far negative?
  3471.     xor    cx,cx            ; s = yes, make it 0
  3472. noxc:    mov    ax,xmax
  3473.     add    ax,7            ; right most dot
  3474.     cmp    cx,ax            ; too far right?
  3475.     jb    xdraw9            ; b = no
  3476.     mov    cx,ax            ; yes, make it the right
  3477. xdraw9: mov    xcross,cx        ; new x value for cross hairs
  3478.     call    crosdrawv        ; draw new vertical line
  3479.     call    crosdrawh
  3480.  
  3481.     call    setmouse        ; set mouse there too
  3482.     jmp    croshaexit
  3483.      
  3484. vertkey:call    crosdrawh        ; erase horizontal line
  3485.     call    crosdrawv
  3486.     add    cx,ycross        ; adjust cx
  3487.     jns    noyc            ; gone negative?
  3488.     xor    cx,cx            ; s = yes then make 0
  3489. noyc:    test    dgcross,1        ; is DG crosshair active?
  3490.     jz    noyc2            ; z = no
  3491.     push    ax
  3492.     mov    ax,ybot
  3493.     sub    ax,charhgt        ; avoid status line
  3494.     cmp    cx,ax            ; too far down?
  3495.     jbe    noyc1            ; be = no
  3496.     mov    cx,ax            ; stop here
  3497. noyc1:    pop    ax
  3498.  
  3499. noyc2:    cmp    cx,ybot            ; too high?
  3500.     jb    yok            ; b = no
  3501.     mov    cx,ybot            ; make it maximum
  3502. yok:    mov    ycross,cx        ; save new y crosshair
  3503.     call    crosdrawh        ; draw new vertical line
  3504.     call    crosdrawv
  3505.     call    setmouse        ; set mouse there too
  3506.     jmp    croshaexit
  3507.      
  3508. charkey:call    outmodem        ; send the break character
  3509.     mov    ax,xcross        ; set beam to xcross,ycross
  3510.     mov    bx,ycross        ; must convert to Tek coordinates
  3511.     call    pctotek            ; scale from PC screen coord to Tek
  3512.     push    ax            ; save around drawing
  3513.     push    bx
  3514.     xor    cx,cx            ; just a move
  3515.     call    tekdraw            ; moveto ax,bx in Tek coord
  3516.     pop    bx            ; recover Tek y
  3517.     pop    ax            ; recover Tek x
  3518.     call    sendpos            ; send position report to host
  3519.     call    crossfin        ; finish up
  3520.     STC                ; set carry to say end of GIN mode
  3521.     ret
  3522. CROSHAIR ENDP
  3523.      
  3524. ; draw vertical crosshair line at x = xcross, xor with picture
  3525. crosdrawv proc near
  3526.     push    bp
  3527.     push    x_coord
  3528.     push    y_coord
  3529.     mov    al,ccode        ; save current pixel op
  3530.     push    ax
  3531.     push    cx
  3532.     mov    si,xcross        ; move to x= xcross
  3533.     mov    ax,si            ; ending x coord
  3534.     xor    di,di            ; starting y coord
  3535.     mov    bx,ybot            ; bottom y coord
  3536.     test    dgcross,1        ; DG cursor?
  3537.     jz    crosdrawv2        ; z = no
  3538.     sub    bx,charhgt        ; omit status line
  3539.     test    flags.vtflg,ttd470    ; D470 short cursor
  3540.     jz    crosdrawv2        ; z = no, use D463 large cursor
  3541.     mov    cx,charhgt
  3542.     shr    cx,1            ; half a cell
  3543.     mov    di,ycross        ; D470 start at top of char cell
  3544.     mov    bx,di
  3545.     sub    bx,cx
  3546.     jnc    crosdrawv1        ; nc = in bounds
  3547.     xor    bx,bx            ; clip at top
  3548. crosdrawv1:
  3549.     add    di,cx            ; down half a cell
  3550.     mov    cx,ybot
  3551.     sub    cx,charhgt        ; omit status line
  3552.     dec    cx
  3553.     cmp    di,cx            ; too far down?
  3554.     jbe    crosdrawv2        ; be = no
  3555.     mov    di,cx            ; clip at bottom
  3556. crosdrawv2:mov    cl,pixxor        ; xor pixels
  3557.     call    line            ; draw vertical
  3558.     pop    cx
  3559.     pop    ax            ; recover current pixel op
  3560.     mov    ccode,al        ; restore it
  3561.     pop    y_coord
  3562.     pop    x_coord
  3563.     pop    bp
  3564.     ret
  3565. crosdrawv endp
  3566.  
  3567. ; draw horizontal crosshair line at y = ycross, xor with picture
  3568. crosdrawh proc near
  3569.     push    bp
  3570.     push    x_coord
  3571.     push    y_coord
  3572.     mov    al,ccode        ; save current pixel op
  3573.     push    ax
  3574.     push    cx
  3575.     mov    di,ycross        ; set y = ycross
  3576.     mov    bx,di            ; ending y
  3577.     xor    si,si            ; starting x
  3578.     mov    ax,xmax
  3579.     add    ax,7
  3580.     test    dgcross,1        ; DG cross?
  3581.     jz    crosdrawh1        ; z = no
  3582.     test    flags.vtflg,ttd470    ; D470 short cursor
  3583.     jz    crosdrawh1        ; z = no, use D463 large cursor
  3584.     mov    si,xcross        ; start x
  3585.     mov    ax,si
  3586.     sub    si,7
  3587.     add    ax,7            ; width
  3588. crosdrawh1:
  3589.     mov    cl,pixxor        ; set XOR code
  3590.     call    line            ; draw to (xcross+12, ycross)
  3591.     pop    cx
  3592.     pop    ax            ; recover current pixel op
  3593.     mov    ccode,al        ; restore it
  3594.     pop    y_coord
  3595.     pop    x_coord
  3596.     pop    bp
  3597.     ret
  3598. crosdrawh endp
  3599.           
  3600. ; Set mouse cursor position to xcross,ycross. Ignored if no active mouse.
  3601. setmouse proc    near
  3602.     cmp    mousebuf,0        ; is mouse driver is active?
  3603.     je    setmou1            ; e = no
  3604.     mov    cx,xcross
  3605.     mov    dx,ycross
  3606.     mov    ax,mswrite        ; set mouse position
  3607.     int    mouse
  3608. setmou1:ret
  3609. setmouse endp
  3610.  
  3611. ; Return DOS memory allocated as mouse status buffer
  3612. mousefree proc    near
  3613.     push    es
  3614.     mov    ax,mousebuf        ; seg of mouse save buffer
  3615.     mov    es,ax            ; allocated segment
  3616.     mov    ah,freemem        ; free it
  3617.     int    dos
  3618.     mov    mousebuf,0        ; clear mouse presence too
  3619.     pop    es
  3620.     ret
  3621. mousefree endp
  3622.  
  3623. ; Return mouse state and free state save buffer
  3624. mousexit proc    near
  3625.     mov    ax,mousebuf        ; segment of state save buffer
  3626.     or    ax,ax            ; is mouse driver active?
  3627.     jz    mousex1            ; z = no
  3628.     push    es
  3629.     mov    es,ax
  3630.     xor    dx,dx            ; address is in es:dx
  3631.     mov    ax,mssetst        ; set mouse driver state from buffer
  3632.     int    mouse
  3633.     pop    es
  3634.     call    mousefree        ; return memory to DOS
  3635. mousex1:ret
  3636. mousexit endp
  3637.  
  3638. ; SENDPOS sends position of cross-hairs to the host.
  3639. ; ax has Tek X and bx has Tek Y coord of center of crosshair     
  3640. SENDPOS PROC NEAR
  3641.     push    bx            ; preserve register
  3642.     call    sendxy            ; send x coord
  3643.     pop    ax
  3644.     call    sendxy            ; send y coord
  3645.     mov    al,cr            ; follow up with cr
  3646.     call    outmodem
  3647.     ret
  3648. SENDPOS ENDP
  3649.  
  3650. ; Write binary number in AX as decimal asciiz to buffer pointer DI.
  3651. dec2di    proc    near        ; output number in ax using base in cx
  3652.                 ; corrupts ax, cx, and dx
  3653.     mov    cx,10
  3654. dec2di1:xor    dx,dx        ; clear high word of numerator
  3655.     div    cx        ; (ax / cx), remainder = dx, quotient = ax
  3656.     push    dx        ; save remainder for outputting later
  3657.     or    ax,ax        ; any quotient left?
  3658.     jz    dec2di2        ; z = no
  3659.     call    dec2di1        ; yes, recurse
  3660. dec2di2:pop    dx        ; get remainder
  3661.     add    dl,'0'        ; make digit printable
  3662.     mov    [di],dl        ; store char in buffer
  3663.     inc    di
  3664.     mov    byte ptr[di],0    ; add terminator
  3665.     ret
  3666. dec2di    endp
  3667.      
  3668. ; SENDXY sends value of ax as Tek encoded bytes
  3669. ; ax is in Tek coordinates     
  3670. SENDXY    PROC    NEAR
  3671.     shl    ax,1
  3672.     shl    ax,1            ; move all but lower 5 bits to ah
  3673.     shl    ax,1
  3674.     shr    al,1
  3675.     shr    al,1            ; move low five bits to low 5 bits
  3676.     shr    al,1
  3677.     or    ah,20h            ; make it a printing char as per TEK
  3678.     xchg    al,ah            ; send high 5 bits first
  3679.     call    outmodem
  3680.     xchg    al,ah            ; then low five bits
  3681.     or    al,20h
  3682.     call    outmodem
  3683.     xchg    ah,al            ; al is first sent byte
  3684.     ret
  3685. SENDXY    ENDP
  3686.      
  3687.      
  3688. SENDID    PROC NEAR            ; pretend VT340
  3689.     mov    bx,offset tekid        ; VT320 identification string
  3690. sndid1: mov    al,[bx]            ; get char from sequence
  3691.     or    al,al            ; end of sequence?
  3692.     jz    sndid0            ; z = yes, return
  3693.     call    outmodem        ; send it out the port
  3694.     inc    bx
  3695.     jmp    sndid1
  3696. sndid0:    ret
  3697. SENDID    ENDP
  3698.      
  3699. ; SENDSTAT - send status and cursor position to host
  3700.      
  3701. SENDSTAT PROC NEAR
  3702.     mov    al,STATUS        ; get tek status
  3703.     or    al,20h            ; make it printable
  3704.     call    OUTMODEM        ; and send it
  3705.     mov    ax,oldx            ; now send x coordinate (oldx is Tek)
  3706.     call    SENDXY
  3707.     mov    ax,oldy            ; and y coordinate (oldy is Tek coord)
  3708.     call    SENDXY
  3709.     mov    al,cr            ; end with a cr
  3710.     call    OUTMODEM
  3711.     ret
  3712. SENDSTAT ENDP
  3713.      
  3714.  
  3715. ; Convert X and Y from PC coordinates to Tek coordinates. AX = X, BX = Y
  3716. ; for both input and output.
  3717. pctotek    proc    near
  3718.     mul    xdiv            ; scale from PC screen coord to Tek
  3719.     div    xmult
  3720.     xchg    bx,ax            ; save Tek x coord in bx
  3721.     neg    ax            ; y axis. Turn upside down for Tek
  3722.     add    ax,ybot
  3723.     mul    ydiv            ; scale y from PC screen coord to Tek
  3724.     div    ymult
  3725.     xchg    ax,bx            ; ax has X, bx has Y in Tek coords
  3726.     ret
  3727. pctotek    endp
  3728.  
  3729. ; Routine to output character in AL to the screen.
  3730.  
  3731. OUTSCRN PROC NEAR            ; put one character to the screen
  3732.     cmp    rxtable+256,0        ; translation turned off?
  3733.     je    outscr2            ; e = yes, no translation
  3734.     push    bx
  3735.     mov    bx,offset rxtable    ; address of translate table
  3736.     xlatb                ; new char is in al
  3737.     and    al,7fh            ; retain only lower seven bits
  3738.     pop    bx
  3739.  
  3740. outscr2:mov    ah,ccode        ; assume transparent chars
  3741.     push    ax            ; save ccode
  3742.     mov    ccode,pixfor        ; write in foreground
  3743.     cmp    chcontrol,0        ; transparent char writing?
  3744.     je    outscr3            ; e = yes
  3745.     or    ccode,pixbak        ; write background dots too
  3746. outscr3:call    remcursor        ; remove text cursor symbol
  3747.     cmp    al,' '            ; printable?
  3748.     ja    outscr6            ; a = yes
  3749.     je    outscr5            ; e = space
  3750. outscr4:call    putctrl            ; handle controls at putctrl
  3751.     jmp    short outscr9
  3752. outscr5:cmp    spcontrol,0        ; destructive space?
  3753.     jne    outscr6            ; ne = yes, do actual writing
  3754.     cmp    chcontrol,0        ; write transparently?
  3755.     jne    outscr6            ; ne = no, opaque, draw the char
  3756.     call    testfull        ; check on full screen
  3757.     call    incx            ; move to next char position
  3758.     jmp    short outscr9
  3759.  
  3760. outscr6:call    testfull        ; check for full screen
  3761.     sub    al,' '            ; Tek chars are biased to start at ' '
  3762.     call    putc            ; routine to draw characters
  3763. outscr9:call    setcursor        ; draw text cursor symbol
  3764.     pop    ax            ; recover ccode
  3765.     mov    ccode,ah
  3766.     ret
  3767. OUTSCRN ENDP
  3768.  
  3769. ; Data General D463/D470 support routine, used by touchup
  3770. ; Display whole line, es:si holds char+attribute words, cursor is at DX
  3771. ttxtline proc    far
  3772.     push    word ptr fontlptr
  3773.     push    word ptr fontlptr+2
  3774.     push    word ptr fontrptr
  3775.     push    word ptr fontrptr+2
  3776.     push    dx            ; cursor position
  3777.     push    bx
  3778.     test    dgcross,1        ; is cross hair on?
  3779.     jz    ttxtlin0        ; z = no
  3780.     test    dgcross,8        ; is cross hair invisible?
  3781.     jnz    ttxtlin0        ; nz = yes
  3782.     push    es
  3783.     push    si
  3784.     push    dx
  3785.     call    crosdrawh        ; remove present crosshairs
  3786.     call    crosdrawv
  3787.     or    dgcross,8        ; say cross is invisible
  3788.     pop    dx
  3789.     pop    si
  3790.     pop    es
  3791. ttxtlin0:
  3792.     mov    bl,dh            ; get line row
  3793.     xor    bh,bh
  3794.     mov    charwidth,8        ; use regular width font
  3795.     cmp    dgwindcomp[bx],0    ; regular width chars?
  3796.     pop    bx
  3797.     je    ttxtlin1        ; e = yes
  3798.     cmp    plotptr,offset pltega    ; ega dot plot routine?
  3799.     jne    ttxtlin1        ; no, use 8 wide
  3800.     mov    charwidth,5        ; use compressed font
  3801.     mov    word ptr fontlptr,offset fivedot
  3802.     mov    word ptr fontlptr+2,seg fivedot
  3803.     mov    word ptr fontrptr+2,seg fivedot
  3804.     mov    word ptr fontrptr,offset gr437
  3805.     cmp    vtcpage,437        ; using CP437?
  3806.     je    ttxtlin1              ; e = yes, use GR437 slim font
  3807.     mov    word ptr fontrptr,offset gr850 ; GR850 slim font
  3808. ttxtlin1:mov    ccode,pixfor+pixbak
  3809.     mov    ax,charhgt
  3810.     inc    dh            ; count text lines from 1
  3811.     mul    dh            ; compute scan row
  3812.     dec    ax            ; count scan lines from zero
  3813.     mov    y_coord,ax
  3814.     mov    x_coord,0
  3815.     mov    cx,80            ; normal columns/screen
  3816.     cmp    charwidth,8        ; wide chars?
  3817.     je    ttxtlin2        ; e = yes
  3818.     mov    cx,128            ; 128*5=640
  3819. ttxtlin2:push    charwidth
  3820.     mov    ax,es:[si]        ; char+attribute from virtual screen
  3821.     add    si,2
  3822.     cmp    al,' '            ; space is same pattern, use short cut
  3823.     je    ttxtlin2a        ; e = space
  3824.     cmp    charwidth,8        ; can we use byte-wise short cut?
  3825.     jne    ttxtlin4        ; ne = no
  3826. ttxtlin2a:push    di
  3827.     push    ax
  3828.     sub    si,2
  3829.     mov    di,si
  3830.     cld
  3831.     repe    scasw            ; find repeats
  3832.     je    ttxtlin3
  3833.     sub    di,2            ; inc'd beyond break word, backup
  3834.     add    cx,2            ; and the counter
  3835. ttxtlin3:mov    ax,di
  3836.     sub    ax,si            ; qty repeated, cx dec'd too
  3837.     mov    si,di            ; update source pointer
  3838.     shr    ax,1            ; count words
  3839.     cmp    ax,1
  3840.     jbe    ttxtlin3a        ; be = no change to charwidth
  3841.     mul    charwidth
  3842.     mov    charwidth,ax        ; make wider chars from repeats
  3843. ttxtlin3a:pop    ax
  3844.     pop    di
  3845.  
  3846. ttxtlin4:push    es
  3847.     push    si
  3848.     push    cx
  3849.     mov    gfcol,ah        ; foreground color
  3850.     and    gfcol,0fh        ; lower four bits
  3851.     cmp    plotptr,offset pltega    ; ega dot plot routine?
  3852.     je    ttxtlin4a        ; e = yes
  3853.     xor    ah,ah            ; no background for monochrome systems
  3854.     and    al,7fh            ; no high bit
  3855.     sub    al,' '            ; font begins with space
  3856.     jnc    ttxtlin4a        ; nc = not a control
  3857.     xor    al,al
  3858. ttxtlin4a:mov    cl,4
  3859.     shr    ah,cl
  3860.     and    ah,0fh
  3861.     mov    gbcol,ah        ; background color
  3862.     call    putc        ; draw the char, cursor done separately later
  3863.     pop    cx
  3864.     pop    si
  3865.     pop    es
  3866.     pop    charwidth
  3867.     dec    cx
  3868.     jle    ttxtlin6
  3869.     jmp    ttxtlin2
  3870.  
  3871. ttxtlin6:pop    dx            ; recover cursor
  3872.     pop    word ptr fontrptr+2
  3873.     pop    word ptr fontrptr
  3874.     pop    word ptr fontlptr+2
  3875.     pop    word ptr fontlptr
  3876.     ret
  3877. ttxtline endp
  3878.  
  3879. ; display char in AL, normal attributes in AH, text screen at DX 
  3880. ttxtchr proc    far
  3881.     push    cx
  3882.     push    dx
  3883.     push    word ptr fontlptr
  3884.     push    word ptr fontlptr+2
  3885.     push    word ptr fontrptr
  3886.     push    word ptr fontrptr+2
  3887.     mov    bl,dh            ; get line row
  3888.     xor    bh,bh
  3889.     mov    charwidth,8        ; use regular width font
  3890.     cmp    dgwindcomp[bx],0    ; regular width chars?
  3891.     je    ttxtchr1        ; e = yes
  3892.     cmp    plotptr,offset pltega    ; ega dot plot routine?
  3893.     jne    ttxtchr1        ; no, use 8 wide
  3894.     mov    charwidth,5        ; use compressed font
  3895.     mov    word ptr fontlptr,offset fivedot
  3896.     mov    word ptr fontlptr+2,seg fivedot
  3897.     mov    word ptr fontrptr+2,seg fivedot
  3898.     mov    word ptr fontrptr,offset gr437
  3899.     cmp    vtcpage,437        ; using CP437?
  3900.     je    ttxtchr1              ; e = yes, use GR437 slim font
  3901.     mov    word ptr fontrptr,offset gr850 ; GR850 slim font
  3902. ttxtchr1:mov    ccode,pixfor+pixbak
  3903.     mov    gfcol,ah        ; foreground color
  3904.     and    gfcol,0fh        ; lower four bits
  3905.     cmp    plotptr,offset pltega    ; ega dot plot routine?
  3906.     je    ttxtchr2        ; e = yes
  3907.     xor    ah,ah            ; no background on monochrome systems
  3908.     and    al,7fh            ; no high bit
  3909.     sub    al,' '            ; font begins with space
  3910.     jnc    ttxtchr2        ; nc = not a control
  3911.     xor    al,al            ; omit controls
  3912. ttxtchr2:mov    cl,4
  3913.     shr    ah,cl
  3914.     and    ah,0fh
  3915.     mov    gbcol,ah        ; background color
  3916.     push    ax
  3917.     mov    ax,charwidth
  3918.     mul    dl            ; compute scan column
  3919.     mov    cx,xmax
  3920.     add    cx,8            ; right most dot
  3921.     sub    cx,charwidth        ; right most char cell
  3922.     cmp    cx,ax            ; char still on screen?
  3923.     jc    ttxtchr2a        ; c = out of range
  3924.     mov    x_coord,ax
  3925. ttxtchr2a:pop    ax
  3926.     jc    ttxtchr5        ; c = out of range
  3927.     push    ax
  3928.     mov    ax,charhgt
  3929.     inc    dh            ; count text lines from 1
  3930.     mul    dh            ; compute scan row
  3931.     dec    ax            ; count scan lines from zero
  3932.     mov    y_coord,ax
  3933.     pop    ax
  3934.     mov    cursorst,0        ; say cursor is off (is overwritten)
  3935.     test    dgcross,1        ; is cross hair on?
  3936.     jz    ttxtchr3        ; z = no
  3937.     test    dgcross,8        ; is cross hair invisible?
  3938.     jnz    ttxtchr3        ; nz = yes
  3939.     push    es
  3940.     push    si
  3941.     push    dx
  3942.     push    ax
  3943.     call    crosdrawh        ; remove present crosshairs
  3944.     call    crosdrawv
  3945.     or    dgcross,8        ; say cross is on but invisible
  3946.     pop    ax
  3947.     pop    dx
  3948.     pop    si
  3949.     pop    es
  3950. ttxtchr3:call    putc        ; draw the char, cursor done separately later
  3951. ttxtchr5:
  3952.     pop    word ptr fontrptr+2
  3953.     pop    word ptr fontrptr
  3954.     pop    word ptr fontlptr+2
  3955.     pop    word ptr fontlptr
  3956.     pop    dx
  3957.     pop    cx
  3958.     ret
  3959. ttxtchr endp
  3960.  
  3961. ; Test if screen is full. If full sound beep, wait for any keyboard input
  3962. ; (skip kbd reading if stdin is redirected).
  3963. testfull proc    near
  3964.     push    ax
  3965.     mov    ax,x_coord
  3966.     cmp    ax,xmax            ; at end of the line?
  3967.     jbe    testfu1            ; be = no
  3968.     mov    x_coord,0        ; wrap to next line
  3969.     mov    ax,charhgt
  3970.     add    y_coord,ax        ; next row
  3971. testfu1:mov    ax,ybot            ; get last scan line
  3972.     inc    ax            ; number of scan lines
  3973.     cmp    ax,y_coord        ; minus where char bottom needs to go
  3974.     jae    testfu3            ; ae = enough space for char
  3975.     call    tekbeep            ; tell the user we are waiting
  3976.     call    tiseof            ; EOF on redirected stdin?
  3977.     jc    testfu2            ; c = yes, proceed anyway
  3978.     mov    ah,coninq        ; read keyboad via DOS
  3979.     int    dos            ; wait for keystroke
  3980.     or    al,al            ; scan code being returned?
  3981.     jne    testfu2            ; ne = no
  3982.     mov    ah,coninq        ; clear away scan code too
  3983.     int    dos
  3984. testfu2:call    tekcls            ; clear the screen
  3985.     mov    x_coord,0
  3986.     mov    y_coord,0
  3987. testfu3:pop    ax            ; recover current character
  3988.     ret
  3989. testfull endp
  3990.  
  3991. ; Draw text cursor symbol by xor-ing. Sets xcursor,ycursor to symbol position.
  3992. teksetcursor proc FAR
  3993.     call    remcursor        ; remove old cursor
  3994.     test    atctype,4        ; is cursor to be invisible?
  3995.     jz    teksetcur1        ; z = no
  3996.     ret
  3997. teksetcur1:
  3998.     push    ax
  3999.     mov    ax,charhgt
  4000.     inc    dh            ; count text rows from 1
  4001.     mul    dh            ; compute scan row
  4002.     dec    dh            ; restore DX
  4003.     dec    ax            ; count scan rows from 0
  4004.     mov    y_coord,ax
  4005.     push    bx
  4006.     mov    bl,dh            ; get line row
  4007.     xor    bh,bh
  4008.     mov    ax,8            ; use regular width font
  4009.     cmp    dgwindcomp[bx],0    ; regular width chars?
  4010.     pop    bx
  4011.     je    teksetcur3        ; e = yes
  4012.     cmp    plotptr,offset pltega    ; ega dot plot routine?
  4013.     jne    teksetcur3        ; no, use 8 wide
  4014.     mov    ax,5            ; use compressed font
  4015. teksetcur3:
  4016.     mov    charwidth,ax
  4017.     mul    dl            ; compute scan column
  4018.     push    cx
  4019.     mov    cx,xmax
  4020.     add    cx,8
  4021.     sub    cx,charwidth
  4022.     cmp    ax,cx
  4023.     jbe    teksetcur4        ; be = in range
  4024.     mov    ax,cx
  4025. teksetcur4:pop    cx
  4026.     mov    x_coord,ax
  4027.     pop    ax
  4028.     call    setcursor
  4029.     ret
  4030. teksetcursor endp
  4031.  
  4032. setcursor proc    near
  4033.     cmp    tekcursor,0        ; suppress cursor?
  4034.     je    setcurs0        ; e = yes
  4035.     cmp    cursorst,0        ; is cursor off now?
  4036.     jne    setcurs0        ; ne = no
  4037.     cmp    putc,offset mputc    ; pure mono character display routine?
  4038.     jne    setcurs1        ; ne = no
  4039. setcurs0:ret                ; no cursor for pure mono
  4040. setcurs1:push    ax
  4041.     push    bx
  4042.     push    cx
  4043.     push    dx
  4044.     push    si
  4045.     push    di
  4046.     push    es
  4047.     mov    bh,gbcol
  4048.     mov    bl,gfcol
  4049.     push    bx
  4050.     mov    bh,ccode        ; current drawing code, save it
  4051.     push    bx            ; save ccode
  4052.     push    x_coord            ; save current operating point (PC)
  4053.     push    y_coord
  4054.     mov    ax,x_coord        ; where cursor symbol starts, X axis
  4055.     mov    bx,xmax
  4056.     add    bx,8            ; real screen width
  4057.     sub    bx,charwidth        ; where last char could go
  4058.     cmp    ax,bx            ; beyond last character position?
  4059.     jbe    setcurs2        ; be = no
  4060.     mov    ax,bx            ; yes, stop at last, for wrapping
  4061. setcurs2:mov    xcursor,ax        ; remember where we drew symbol
  4062.     mov    x_coord,ax        ; set this for drawing the symbol
  4063.     mov    ax,y_coord
  4064.     mov    ycursor,ax
  4065.     push    word ptr fontlptr    ; save active font GLeft pointer
  4066.     push    word ptr fontlptr+2
  4067.     mov    ax,charwidth
  4068.     mov    curcharw,ax        ; current cursor width
  4069.     mov    ax,seg defcurpat    ; default Tek cursor pattern, seg
  4070.     mov    word ptr fontlptr+2,ax    ; point to us
  4071.     mov    ax,offset defcurpat     ; default Tek cursor pattern
  4072.     xor    bl,bl            ; initial (and only char in font)
  4073.     test    tekflg,tek_sg        ; special graphics?
  4074.     jz    setcurs4        ; z = no, use default
  4075.     call    dgsetcol
  4076.     and    al,0fh            ; retain foreground dots
  4077.     mov    gfcol,al        ; set foreground coloring
  4078.     mov    cl,atctype        ; active cursor type
  4079.     mov    dgctype,cl        ; type of cursor being written
  4080.     xor    ch,ch
  4081.     jcxz    setcurs5        ; z = nothing to do
  4082.     and    cl,3            ; visible cursor kinds, two bits
  4083.     mov    ax,offset dgcurbpat    ; block pattern
  4084.     cmp    cl,1            ; underline?
  4085.     ja    setcurs3        ; a = no, block
  4086.     mov    ax,offset dgcurupat    ; use DG cursor underline pattern
  4087. setcurs3:cmp    plotptr,offset pltega    ; ega dot plot routine?
  4088.     je    setcurs4        ; e = yes, else CGA style
  4089.     add    ax,5            ; use lower lines of 14L pattern
  4090. setcurs4:mov    word ptr fontlptr,ax    ; set offset of pattern
  4091.     mov    al,gfcol        ; get foreground coloring
  4092.     xor    ah,ah
  4093.     mov    gbcol,ah        ; no change to background
  4094.     mov    curgcol,ax        ; save it for cursor removal
  4095.     mov    ccode,pixxor        ; xor with foreground coloring
  4096.     mov    al,bl            ; symbol code to draw, first in font
  4097.     call    putc            ; routine to draw characters
  4098. setcurs5:
  4099.     pop    word ptr fontlptr+2
  4100.     pop    word ptr fontlptr
  4101.     pop    y_coord
  4102.     pop    x_coord
  4103.     pop    bx            ; recover ccode
  4104.     mov    ccode,bh
  4105.     mov    cursorst,1        ; say cursor is on
  4106.     pop    bx
  4107.     mov    gbcol,bh
  4108.     mov    gfcol,bl
  4109.     pop    es
  4110.     pop    di
  4111.     pop    si
  4112.     pop    dx
  4113.     pop    cx
  4114.     pop    bx
  4115.     pop    ax
  4116.     ret
  4117. setcursor endp
  4118.  
  4119. ; Remove text cursor symbol by xor-ing with itself. Xcursor, ycursor is the
  4120. ; PC coord of the cursor symbol.
  4121. tekremcursor proc FAR
  4122.     call    remcursor
  4123.     ret
  4124. tekremcursor endp
  4125.  
  4126. remcursor proc    near
  4127.     cmp    tekcursor,0        ; suppress cursor?
  4128.     je    remcurs0        ; e = yes
  4129.     cmp    cursorst,0        ; is cursor off now?
  4130.     je    remcurs0        ; e = yes
  4131.     cmp    putc,offset mputc    ; pure mono character display routine?
  4132.     jne    remcurs1        ; ne = no
  4133. remcurs0:ret                ; no cursor for pure mono
  4134. remcurs1:push    ax
  4135.     push    bx
  4136.     push    cx
  4137.     push    dx
  4138.     push    si
  4139.     push    di
  4140.     push    es
  4141.     mov    bh,gbcol
  4142.     mov    bl,gfcol
  4143.     push    bx
  4144.     mov    bh,ccode        ; current drawing code, save it
  4145.     push    bx            ; save ccode
  4146.     push    x_coord            ; save current operating point (PC)
  4147.     push    y_coord
  4148.     mov    ax,xcursor        ; where last cursor was written
  4149.     mov    x_coord,ax        ; setup for xor writing to remove it
  4150.     mov    ax,ycursor
  4151.     mov    y_coord,ax
  4152.     push    word ptr fontlptr
  4153.     push    word ptr fontlptr+2
  4154.     push    charwidth
  4155.     mov    ah,gbcol
  4156.     mov    al,gfcol
  4157.     push    ax
  4158.     mov    ax,curcharw        ; get old cursor char width
  4159.     mov    charwidth,ax
  4160.     mov    ax,curgcol        ; get old cursor colors
  4161.     mov    gfcol,al        ; set it for removal
  4162.     mov    ax,seg defcurpat
  4163.     mov    word ptr fontlptr+2,ax    ; point to our data segment
  4164.     mov    ax,offset defcurpat     ; default cursor pattern
  4165.     xor    bl,bl            ; initial (and only char in font)
  4166.     test    tekflg,tek_sg        ; special graphics?
  4167.     jz    remcurs4        ; z = no, use default
  4168.     mov    cl,dgctype        ; last used emulation cursor type
  4169.     and    cl,3            ; keep just two lower bits
  4170.     xchg    dgctype,cl        ; update cursor type
  4171.     xor    ch,ch
  4172.     jcxz    remcurs5        ; z = nothing to do
  4173.     mov    ax,offset dgcurbpat    ; use block pattern
  4174.     cmp    cl,2            ; last used cursor type
  4175.     je    remcurs3        ; 0/4 is no cursor, 1=uline, 2=block
  4176.     mov    ax,offset dgcurupat    ; use DG cursor underline pattern
  4177. remcurs3:cmp    plotptr,offset pltega    ; ega dot plot routine?
  4178.     je    remcurs4        ; e = yes, else CGA 8x8 style
  4179.     add    ax,5            ; use lower scan lines for mono
  4180. remcurs4:mov    word ptr fontlptr,ax
  4181.     mov    ccode,pixxor        ; xor with foreground coloring
  4182.     mov    gbcol,0            ; no change to background
  4183.     mov    al,bl            ; character from font
  4184.     call    putc            ; routine to draw characters
  4185. remcurs5:
  4186.     pop    ax
  4187.     mov    gbcol,ah
  4188.     mov    gfcol,al
  4189.     pop    charwidth
  4190.     pop    word ptr fontlptr+2
  4191.     pop    word ptr fontlptr
  4192.     pop    y_coord
  4193.     pop    x_coord
  4194.     pop    bx            ; recover ccode
  4195.     mov    ccode,bh
  4196.     mov    cursorst,0        ; say cursor is off
  4197.     pop    bx
  4198.     mov    gbcol,bh
  4199.     mov    gfcol,bl
  4200.     pop    es
  4201.     pop    di
  4202.     pop    si
  4203.     pop    dx
  4204.     pop    cx
  4205.     pop    bx
  4206.     pop    ax
  4207.     ret
  4208. remcursor endp
  4209.       
  4210. ; TEKCLS routine to clear the screen.
  4211. ; Entry point tekcls1 clears screen without resetting current point.     
  4212. TEKCLS    PROC    NEAR
  4213.     test    tekflg,tek_active    ; Tek mode active yet?
  4214.     jnz    tekcls0            ; nz = yes
  4215.     ret                ; else ignore this call
  4216. tekcls0:mov    x_coord,0        ; starting text coordinates
  4217.     mov    y_coord,0
  4218.     mov    oldx,0            ; assumed cursor starting location
  4219.     mov    oldy,maxteky        ;  top right corner (Tek coord)
  4220.     mov    scalex,0        ; clear last plotted point (PC coord)
  4221.     mov    scaley,0
  4222.     mov    lastc,0            ; last parsed x,y coordinate
  4223.     mov    visible,0        ; make lines invisible
  4224.     mov    bypass,0        ; clear bypass condition
  4225.     mov    ttstate,offset tektxt    ; do displayable text
  4226.     mov    prestate,offset tektxt
  4227. tekcls1:push    ax            ; save registers
  4228.     push    cx
  4229.     mov    bl,ccode        ; save pixel op code
  4230.     push    bx
  4231.     cmp    graph_mode,hercules    ; Hercules?
  4232.     jne    tekclsw            ; ne = no
  4233.     call    hgraf            ; set Hercules board to Graphics mode
  4234.     jmp    tekcls7
  4235.  
  4236. tekclsw:cmp    graph_mode,wyse700    ; Wyse 700?
  4237.     jne    tekcls2            ; ne = no
  4238.     call    wygraf            ; set board to Graphics mode & cls
  4239.     jmp    tekcls7
  4240.  
  4241. tekcls2:xor    di,di            ; point to start of screen, di=row
  4242.     mov    ccode,pixbak        ; write in background
  4243.     call    psetup            ; setup graphics routine and es:di
  4244.     mov    cx,4000h        ; CGA, 200 lines times 80 bytes worth
  4245.     cmp    graph_mode,cga        ; cga?
  4246.     je    tekcls3            ; e = yes
  4247.     mov    cx,8000h        ; Olivetti, 400 lines times 80 bytes
  4248.     cmp    graph_mode,olivetti    ; AT&T-Olivetti?
  4249.     je    tekcls3            ; e = yes
  4250.     cmp    graph_mode,toshiba    ; Toshiba?
  4251.     je    tekcls3            ; e = yes
  4252.     cmp    graph_mode,vaxmate    ; VAXmate?
  4253.     jne    tekcls4            ; ne = no
  4254. tekcls3:cld                ; clear screen directly of text stuff
  4255.     xor    ax,ax
  4256.     test    gbcol,7            ; background is dark?
  4257.     jz    tekcls3a        ; z = yes
  4258.     mov    ax,0ffffh        ; light, set all pixels
  4259. tekcls3a:shr    cx,1            ; do words
  4260.     rep    stosw            ; clear the words
  4261.     jmp    short tekcls7
  4262.  
  4263. tekcls4:cmp    graph_mode,ega        ; EGA?
  4264.     je    tekcls5            ; e = yes
  4265.     cmp    graph_mode,monoega    ; EGA with mono display?
  4266.     je    tekcls5            ; e = yes
  4267.     cmp    graph_mode,colorega    ; EGA with medium resolution monitor?
  4268.     je    tekcls5            ; e = yes
  4269.     jmp    short tekcls6        ; else use Bios
  4270.  
  4271. tekcls5:                ; EGA clear screen quickly
  4272.     mov    ax,0ff08h        ; set all 8 bits to be changed
  4273.     call    ega_gc            ; set bit mask register accordingly
  4274.     mov    ax,0003h        ; data rotate reg, write unmodified
  4275.     call    ega_gc            ; 
  4276.     mov    cx,ybot            ; last scan line
  4277.     inc    cx            ; number of scan lines
  4278.     mov    ax,80/2            ; words (2*bytes) per scan line
  4279.     mul    cx
  4280.     mov    cx,ax            ; cx = number of bytes to clear
  4281.     cmp    tekflg,tek_active+tek_sg; in special graphics mode?
  4282.     jne    tekcls5a        ; ne = no, try regular Tek GIN mode
  4283.     test    flags.vtflg,ttd463+ttd470 ; doing DG D463/D470 emulation?
  4284.     jz    tekcls5a        ; z = no
  4285.     call    dgsetcol
  4286.     jmp    short tekcls5b
  4287. tekcls5a:call    fixcolor        ; fix colors first, if req'd
  4288. tekcls5b:mov    al,gbcol        ; select background colour
  4289.     mov    ah,al            ; copy for word stores
  4290.     cld
  4291.     rep    stosw            ; write backgound color
  4292.     jmp    short tekcls7
  4293.  
  4294. tekcls6:push    es            ; clear screen by scrolling up
  4295.     call    tcmblnk            ; clear screen, for Environments
  4296.     pop    es
  4297.  
  4298. tekcls7:xor    si,si            ; starting x  (in case screen is
  4299.     xor    di,di            ; starting y    cleared by user)
  4300.     pop    bx
  4301.     mov    ccode,bl        ; restore pixel op code
  4302.     mov    xcursor,0        ; position of text cursor symbol
  4303.     mov    ycursor,0
  4304.     mov    cursorst,0        ; cursor has been erased
  4305.     call    setcursor        ; draw text cursor symbol
  4306.     pop    cx
  4307.     pop    ax
  4308.     ret
  4309. TEKCLS    ENDP
  4310.      
  4311. ; Routine to draw a line on the screen, using TEKTRONIX coordinates.
  4312. ; X coordinate in AX, 0=left edge of screen, 1023=right edge of screen.
  4313. ; Y coordinate in BX, 0=bottom of screen, 779=top of screen.
  4314. ; CL=0 - invisible move, else draw in foreground colors
  4315.      
  4316. TEKDRAW PROC NEAR
  4317.     mov    si,scalex        ; get old x already scaled
  4318.     mov    di,scaley        ; get old y already scaled
  4319.     call    scale             ; scale new end point to PC coords
  4320.     or    cl,cl            ; invisible drawing?
  4321.     jz    moveto            ; z = just move, skip draw part
  4322.     mov    cl,pixfor        ; draw in foreground color
  4323.     call    LINE            ; draw the line
  4324. moveto:    mov    x_coord,ax        ; update text coordinates to match
  4325.     mov    y_coord,bx        ;  last drawn point
  4326.     ret
  4327. TEKDRAW ENDP
  4328.      
  4329. ; Scale TEKTRONIX coordinates to the currently defined screen coordinates
  4330. ; AX holds X axis, BX holds Y axis. Both are changed from Tektronix coord
  4331. ; to PC coordinates by this procedure.
  4332. SCALE    PROC    NEAR
  4333.     push    dx
  4334.     push    si
  4335.     cmp    ax,1023            ; limit x axis
  4336.     jbe    scale1            ; be = not out of bounds
  4337.     mov    ax,1023
  4338. scale1:    cmp    bx,779            ; limit y axix
  4339.     jbe    scale2            ; be = not out of bounds
  4340.     mov    bx,779
  4341. scale2:    mov    oldx,ax            ; save current Tek x for next draw
  4342.     mov    oldy,bx            ; save current Tek y for next draw
  4343.     mul    xmult            ; scale x-coord
  4344.     mov    si,xdiv            ; get the divisor
  4345.     shr    si,1            ; halve it
  4346.     add    ax,si            ; add in - to round to nearest integer
  4347.     adc    dx,0
  4348.     div    xdiv
  4349.     push    ax
  4350.     mov    ax,bx
  4351.     mul    ymult            ; scale y-coord
  4352.     mov    si,ydiv            ; get divisor
  4353.     shr    si,1            ; halve it
  4354.     add    ax,si            ; add in - to round to nearest integer
  4355.     adc    dx,0
  4356.     div    ydiv
  4357.     mov    bx,ybot
  4358.     sub    bx,ax            ; put new Y in right reg
  4359.     jns    scale3            ; ns = not too far
  4360.     xor    bx,bx
  4361. scale3:    pop    ax            ; put new X in right reg
  4362.     mov    scalex,ax        ; save scaled values
  4363.     mov    scaley,bx
  4364.     pop    si
  4365.     pop    dx
  4366.     ret
  4367. SCALE    ENDP
  4368.       
  4369. ; LINE    Subroutine to plot a line with endpoints in AX,BX and SI,DI.
  4370. ;    fast line drawing routine for the IBM PC
  4371. ;
  4372. ; Registers at CALL
  4373. ; -----------------
  4374. ; SI=Start X coord, all in PC coordinates
  4375. ; DI=Start Y coord
  4376. ; AX=End X coord
  4377. ; BX=End Y coord
  4378. ; CCODE=CL=pixel operation code
  4379. ; LINEPAT=BP= line drawing pattern (is changed here by rotation)
  4380. ; registers are all unchanged
  4381.      
  4382. LINE    PROC    NEAR
  4383.     push    ax
  4384.     push    bx
  4385.     push    cx
  4386.     push    dx
  4387.     push    si
  4388.     push    di
  4389.     push    es
  4390.     mov    bp,linepat        ; store active line pattern word in BP
  4391.     mov    dl,ccode        ; existing pixel op code
  4392.     push    dx            ; save around line drawing
  4393.     mov    ccode,cl    ; save color code in ccode for use by plot()
  4394.             ; first get coord to achieve increasing x; deltax >= 0
  4395.     sub    ax,si            ; deltax = x2 - x1
  4396.     jge    line1            ; ge = going to the right, as desired
  4397.     neg    ax            ; make deltax non-negative
  4398.     sub    si,ax            ; swap the x coordinates
  4399.     xchg    bx,di            ; swap the y coordinates too
  4400.                 ; second, compute deltay. ax = deltax, si = x1
  4401. line1:    sub    bx,di            ; deltay = y2 - y1
  4402.     call    psetup            ; setup display adapter for plotting
  4403.                     ;  and setup es:di to screen memory
  4404.   ; Choose algorithm based on |deltay| < |deltax| (use shallow) else steep.
  4405.   ; We arrange matters such that both deltas are non-negative.
  4406.     or    bx,bx            ; deltay
  4407.     jge    line2            ; ge = non-negative
  4408.     neg    linelen
  4409.     neg    bx            ; make non-negative
  4410. line2:    cmp    bx,ax            ; |deltay| versus |deltax|
  4411.     jbe    shallow            ; be = do shallow algorithm
  4412.     jmp    steep            ; else do steep algorithm
  4413.  
  4414.     ; shallow algorithm, move along x, di=y1, bx=deltay, si=x1, ax=deltax
  4415. shallow:add    bx,bx            ; bx = 2*deltay
  4416.     mov    cx,ax            ; cx = number of steps (deltax here)
  4417.     inc    cx            ; loop dec's cx before testing
  4418.     mov    dx,bx            ; dx holds error
  4419.     sub    dx,ax            ; error = 2*deltay - deltax
  4420.     add    ax,ax            ; ax = 2*|deltax|
  4421. shal1:    call    plotptr            ; Plot(x,y)
  4422.     or    dx,dx
  4423.     jle    shal2            ; le =     error <= 0
  4424.     call    pincy            ; increment y by one scan line
  4425.     sub    dx,ax            ; error = error - 2*deltax
  4426. shal2:    add    dx,bx            ; error = error + 2*deltay
  4427.     inc    si            ; x = next dot right
  4428.     loop    shal1
  4429.     jmp    short plotex
  4430.  
  4431.     ; steep algorithm, move along y, di=y1, bx=deltay, si=x1, ax=deltax
  4432. steep:    add    ax,ax            ; ax = 2*deltax
  4433.     mov    dx,ax            ; dx holds error
  4434.     sub    dx,bx            ; error = 2*deltax (ax) - deltay (bx)
  4435.     mov    cx,bx            ; cx = number of steps (deltay here)
  4436.     inc    cx            ; loop dec's cx before testing
  4437.     add    bx,bx            ; bx = 2*|deltay|
  4438. stee1:    call    plotptr            ; Plot(x,y) x = ax, y = di
  4439.     or    dx,dx
  4440.     jle    stee2            ; le  error <= 0
  4441.     inc    si            ; x = next dot right
  4442.     sub    dx,bx            ; error = error - 2*deltay
  4443. stee2:    add    dx,ax            ; error = error + 2*deltax
  4444.     call    pincy            ; increment y
  4445.     loop    stee1
  4446. ;;;    jmp    plotex
  4447.  
  4448. plotex:    pop    dx            ; dl has orginal pixel op
  4449.     mov    ccode,dl        ; restore it
  4450.     pop    es
  4451.     pop    di
  4452.     pop    si
  4453.     pop    dx            ; restore the world
  4454.     pop    cx
  4455.     pop    bx
  4456.     pop    ax
  4457.     ret
  4458. LINE    ENDP
  4459.  
  4460. ; Draw a rectangle.
  4461. ;  lower left corner: x = param[0], y = param[2], Tek coordinates
  4462. ;  distance: dx = param[4], dy = param[6], Tek coordinates, all positive
  4463. rectdraw proc    near
  4464.     push    x_coord
  4465.     push    y_coord
  4466.     mov    ax,param[0]        ; lower left corner is start, x part
  4467.     mov    bx,param[2]        ; y part
  4468.     push    ax            ; x0
  4469.     push    bx            ; y0
  4470.     xor    cl,cl            ; moveto
  4471.     call    tekdraw
  4472.     pop    bx
  4473.     pop    ax
  4474.     add    bx,param[6]        ; y0 + dy
  4475.     mov    cl,1            ; draw x0,y0  to  x0,y0+dy
  4476.     push    ax
  4477.     push    bx
  4478.     call    tekdraw
  4479.     pop    bx
  4480.     pop    ax
  4481.     add    ax,param[4]        ; x0+dx
  4482.     mov    cl,1            ; draw x0,y0+dy  to  x0+dx,y0+dy
  4483.     push    ax
  4484.     call    tekdraw
  4485.     pop    ax
  4486.     mov    bx,param[2]        ; y0
  4487.     push    bx
  4488.     mov    cl,1
  4489.     call    tekdraw
  4490.     pop    bx
  4491.     mov    ax,param[0]        ; x0
  4492.     mov    cl,1
  4493.     call    tekdraw            ; complete the box
  4494.     pop    y_coord
  4495.     pop    x_coord
  4496.     ret
  4497. rectdraw endp
  4498.  
  4499. ; Fill a rectangle with a given pattern.
  4500. ;  lower left corner: x = param[0], y = param[2], Tek coordinates
  4501. ;  distance: dx = param[4], dy = param[6], Tek coordinates, all positive
  4502. ;  fill pattern = param[8]
  4503. rectfil    proc    near
  4504.     push    oldx
  4505.     push    oldy            ; save regular point/line old coords
  4506.     mov    ax,param        ; get Tek X coord of lower left corner
  4507.     mov    bx,param[2]        ; get Tek Y coord
  4508.     call    scale            ; convert to PC in ax,bx, scalex/y
  4509.     mov    rectx1,ax        ; lower left corner in PC coords
  4510.     mov    recty1,bx
  4511.     mov    ax,param        ; convert ending points, start Tek X
  4512.     add    ax,param[4]        ; Tek X + DX
  4513.     mov    bx,param[2]        ; start Tek Y
  4514.     add    bx,param[6]        ; Tek Y + DY
  4515.     call    scale
  4516.     pop    oldy
  4517.     pop    oldx
  4518.     mov    rectx2,ax        ; upper right corner PC X coord
  4519.     mov    recty2,bx        ; upper right corner PC Y coord
  4520.     mov    si,rectx1        ; starting x PC coord to si
  4521.     mov    di,recty2        ; starting y PC coord to di
  4522.     mov    cx,recty1        ; plotting from top down on screen
  4523.     sub    cx,bx            ; cx = # scan lines - 1
  4524.     mov    numlines,cx        ; remember here
  4525.     mov    bx,param[8]        ; fill pattern number
  4526.     or    bx,bx            ; zero?
  4527.     jz    rectfi1            ; z = yes, use current pointer
  4528.     cmp    bx,numfil        ; pattern number is too large?
  4529.     ja    rectfi1            ; a = yes, use current pointer
  4530.     dec    bx            ; count internally from 0
  4531.     shl    bx,1            ; make this a word pointer
  4532.     mov    bx,fillist[bx]        ; get pointer to pattern
  4533.     mov    fillptr,bx        ; remember it here
  4534. rectfi1:mov    cx,rectx2        ; ending x coord
  4535.     sub    cx,rectx1        ; number of horizontal pixels - 1
  4536.     inc    cx            ; number of horizontal pixels
  4537.     call    psetup            ; set up dsp and di to screen offset
  4538.             ; di points to whole byte, do bits in byte in gfplot
  4539. rectfi2:push    bx
  4540.      mov    bx,recty1        ; lower screen y (larger value)
  4541.     sub    bx,numlines        ; alignment: global screen sync
  4542.     and    bx,7            ; modulo 8
  4543.     add    bx,fillptr        ; offset of fill pattern start
  4544.     mov    bl,[bx]            ; pattern byte
  4545.     mov    fill,bl            ; save here for gfplot
  4546.     pop    bx
  4547.     call    gfplot            ; line fill routine
  4548.     call    pincy            ; next line
  4549.     dec    numlines
  4550.     jns    rectfi2            ; ns = more to do
  4551.     ret
  4552. rectfil    endp
  4553.  
  4554. ; Data General D463/D470 plotting routines
  4555.  
  4556. ; RS G B turn on DG crosshairs
  4557. dgcrosson proc    far
  4558.     test    dgcross,1        ; on now?
  4559.     jnz    dgcroson1        ; nz = yes
  4560.     call    crossini        ; init crosshair routine
  4561.     or    dgcross,1        ; say crosshairs are on
  4562. dgcroson1:ret
  4563. dgcrosson endp
  4564.  
  4565. ; RS G C turn off DG crosshairs
  4566. dgcrossoff proc far
  4567.     test    dgcross,1        ; off now?
  4568.     jz    dgcrosof2        ; z = yes
  4569.     test    dgcross,8        ; on but invisible?
  4570.     jz    dgcrosof1        ; z = no
  4571.     call    crosdrawh        ; restore crosshairs
  4572.     call    crosdrawv
  4573. dgcrosof1:call    crossfin        ; finish crosshair routine & exit
  4574.     and    dgcross,not 1+8        ; say crosshair is deactiviated
  4575. dgcrosof2:ret
  4576. dgcrossoff endp
  4577.  
  4578. ; Set DG crosshairs to DG locations x (ax) and y (bx)
  4579. dgsetcrloc proc    far
  4580.     test    dgcross,1        ; is cross hair on?
  4581.     jz    dgsetcr1        ; z = no
  4582.     test    dgcross,8        ; is cross hair invisible?
  4583.     jnz    dgsetcr1        ; nz = yes
  4584.     push    ax            ; save arguments
  4585.     push    bx
  4586.     call    crosdrawh        ; remove present crosshairs
  4587.     call    crosdrawv
  4588.     pop    bx
  4589.     pop    ax
  4590. dgsetcr1:cmp    ax,dgxmax        ; DG x max, exceeded?
  4591.     jb    dgsetcr2        ; b = in range
  4592.     mov    ax,dgxmax        ; else set to max
  4593.     dec    ax
  4594. dgsetcr2:mov    si,ax
  4595.     call    dg2pcx            ; convert DG to PC x in SI
  4596.     mov    xcross,si
  4597.     mov    di,bx
  4598.     call    dg2pcy            ; convert DG to PC y in DI
  4599.     sub    di,ybot
  4600.     add    di,charhgt
  4601.     neg    di            ; reflect top to bottom
  4602.     mov    ycross,di
  4603.     test    dgcross,1        ; is crosshair on?
  4604.     jz    dgsetcr4        ; z = no
  4605.     call    setmouse        ; set the mouse there too
  4606.     call    crosdrawh        ; draw crosshairs
  4607.     call    crosdrawv
  4608.     and    dgcross,not 8        ; say cross is visible
  4609. dgsetcr4:ret
  4610. dgsetcrloc endp
  4611.  
  4612. ; Data General D463/D470  RS G ? |  report crosshair location
  4613. dgcrossrpt proc    far
  4614.     mov    al,RS            ; report RS O |  <nnnnn> <nnnnn><CR>
  4615.     call    outmodem
  4616.     mov    al,'o'            ; must be lower case, manual is wrong
  4617.     call    outmodem
  4618.     mov    al,'|'
  4619.     call    outmodem
  4620.     mov    al,' '            ; space separator
  4621.     call    outmodem
  4622.     mov    ax,xcross        ; x PC coordinate
  4623.     mov    cx,dgxmax        ; DG max X
  4624.     mul    cx
  4625.     mov    cx,xmax            ; max PC x coordinate
  4626.     add    cx,7            ; account for char width effect
  4627.     div    cx            ; use quotient in AX
  4628.     call    out5digit        ; output 5 digit ASCII result
  4629.     mov    al,' '            ; space separator
  4630.     call    outmodem
  4631.     mov    ax,ybot
  4632.     sub    ax,charhgt
  4633.     mov    cx,ax            ; save PC screen height
  4634.     sub    ax,ycross        ; PC coordinates from bottom
  4635.     mul    dgymax            ; DG max y
  4636.     div    cx            ; use quotient in AX
  4637.     call    out5digit        ; output 5 digit ASCII result
  4638.     mov    al,CR            ; terminal character
  4639.     call    outmodem
  4640.     ret
  4641. dgcrossrpt endp
  4642.  
  4643. ; send 5 digit ASCII number (zero filled on the left) found in AX
  4644. out5digit proc near
  4645.     push    di
  4646.     mov    di,offset stripbc    ; use this as temp buffer
  4647.     mov    word ptr [di],'00'
  4648.     mov    word ptr [di+2],'00'
  4649.     inc    di            ; first digit is always 0
  4650.     cmp    ax,1000
  4651.     jae    out5d2
  4652.     inc    di
  4653.     cmp    ax,100
  4654.     jae    out5d2
  4655.     inc    di
  4656.     cmp    ax,10
  4657.     jae    out5d2
  4658.     inc    di
  4659. out5d2:    call    dec2di            ; convert and write to di
  4660.     mov    di,offset stripbc
  4661.     mov    cx,5
  4662. out5d4:    mov    al,[di]
  4663.     push    cx
  4664.     push    di
  4665.     call    outmodem
  4666.     pop    di
  4667.     pop    cx
  4668.     inc    di
  4669.     loop    out5d4
  4670.     pop    di
  4671.     ret
  4672. out5digit endp
  4673.  
  4674. ; Set Data General coloring for graphics fore/background, gfcol and gbcol,
  4675. ; by breaking apart the "curattr" from text mode.
  4676. dgsetcol proc    near
  4677.     push    ax
  4678.     push    cx
  4679.     mov    al,curattr
  4680.     mov    ah,al            ; copy it
  4681.     and    al,0fh            ; isolate foreground color
  4682.     mov    gfcol,al        ; set it
  4683.     mov    cl,4
  4684.     and    ah,70h
  4685.     shr    ah,cl            ; get to background field
  4686.     cmp    plotptr,offset pltega    ; ega dot plot routine?
  4687.     je    dgsetco2        ; e = yes
  4688.     cmp    ah,al            ; same color for fore/back?
  4689.     jne    dgsetco1        ; ne = no
  4690.     mov    gfcol,0            ; set foreground to black
  4691.     jmp    short dgsetco2
  4692. dgsetco1:xor    ah,ah            ; set background to black
  4693. dgsetco2:mov    gbcol,ah        ; set it
  4694.     pop    cx
  4695.     pop    ax
  4696.     ret
  4697. dgsetcol endp
  4698.  
  4699. dgline    proc    far             ; (x,y,x,y,pattern,mar_bot+mar_top)
  4700.     push    bp
  4701.     mov    bp,sp            ; C calling convention
  4702.     push    es
  4703.     push    si
  4704.     push    di
  4705.     push    dx
  4706.     push    linepat
  4707.     mov    al,gfcol        ; current screen background
  4708.     mov    ah,gbcol
  4709.     push    ax
  4710.     test    dgcross,1        ; is cross hair on?
  4711.     jz    dgline1            ; z = no
  4712.     test    dgcross,8        ; is cross hair invisible?
  4713.     jnz    dgline1            ; nz = yes
  4714.     call    crosdrawh        ; remove present crosshairs
  4715.     call    crosdrawv
  4716.     or    dgcross,8        ; say cross is invisible
  4717. dgline1:call    dgsetcol        ; get current coloring
  4718.  
  4719.     mov    di,[bp+6+6]        ; end y, DG coordinates
  4720.     call    dg2pcy            ; scale to PC y in di
  4721.     add    di,charhgt
  4722.     sub    di,ybot
  4723.     neg    di            ; PC end y, top to bottom flip
  4724.     mov    bx,di            ; PC end y in BX
  4725.  
  4726.     mov    di,[bp+6+2]        ; start y, DG coordinates
  4727.     call    dg2pcy            ; scale to PC y in di
  4728.     add    di,charhgt
  4729.     sub    di,ybot
  4730.     neg    di            ; start y, top to bottom flip
  4731.  
  4732.     mov    si,[bp+6+4]        ; end DG X
  4733.     call    dg2pcx            ; convert to PC x in SI
  4734.     mov    ax,si            ; AX is end x
  4735.  
  4736.     mov    si,[bp+6+0]        ; start x
  4737.     call    dg2pcx            ; convert to PC x in SI
  4738.  
  4739.     mov    cl,pixfor+pixbak    ; do all dots
  4740.     push    [bp+6+8]        ; line pattern
  4741.     pop    linepat            ; set it
  4742.     call    line            ; draw the line
  4743.     pop    ax
  4744.     mov    gfcol,al
  4745.     mov    gbcol,ah
  4746.     pop    linepat
  4747.     pop    dx
  4748.     pop    di
  4749.     pop    si
  4750.     pop    es
  4751.     pop    bp
  4752.     ret
  4753. dgline    endp
  4754.  
  4755. dgbar    proc    far ; (startx,starty,width,height,code, mar_top, mar_bot)
  4756.     push    bp
  4757.     mov    bp,sp            ; C calling convention
  4758.     push    es
  4759.     push    si
  4760.     push    di
  4761.     push    dx
  4762.     mov    ah,gbcol
  4763.     mov    al,gfcol
  4764.     push    ax
  4765.  
  4766.     mov    ax,charhgt        ; current char height
  4767.     mov    dx,[bp+6+10]        ; dx = mar_top
  4768.     mul    dl            ; dots to top of mar_top line
  4769.     mov    yresval,ax        ; top margin line
  4770.     mov    ax,charhgt        ; current char height
  4771.     mov    dx,[bp+6+12]        ; dx = mar_bot
  4772.     mul    dl            ; dots to bot of mar_bot line
  4773.     add    ax,charhgt        ; dots to bottom of mar_bot line
  4774.     mov    yresval+2,ax        ; bottom margin line
  4775.  
  4776.     mov    si,[bp+6+0]        ; DG start x
  4777.     add    si,[bp+6+4]        ; DG x width
  4778.     call    dg2pcx            ; convert to PC x in SI
  4779.     mov    ax,xmax
  4780.     add    ax,7            ; right most dot
  4781.     cmp    si,ax            ; out of bounds?
  4782.     jbe    dgbar1            ; be = no
  4783.     mov    si,ax            ; clip to right margin
  4784. dgbar1:    mov    rectx2,si        ; PC end/right x in rectx2
  4785.  
  4786.     mov    si,[bp+6+0]        ; DG start x
  4787.     call    dg2pcx            ; convert to PC x in SI
  4788.     mov    rectx1,si        ; PC start/left x in rectx1
  4789.  
  4790.     mov    di,[bp+6+2]        ; start y, DG coordinates
  4791.     add    di,[bp+6+6]        ; plus DG height
  4792.     call    dg2pcy            ; convert to PC y in DI
  4793.     add    di,charhgt
  4794.     sub    di,ybot
  4795.     neg    di            ; top to bottom flip
  4796.     cmp    di,yresval        ; above top margin line?
  4797.     jae    dgbar2            ; ae = no
  4798.     mov    di,yresval
  4799. dgbar2:    mov    recty2,di        ; PC end/top y in recty2
  4800.  
  4801.     mov    di,[bp+6+2]        ; start y, DG coordinates
  4802.     call    dg2pcy            ; convert to PC y in DI
  4803.     add    di,charhgt
  4804.     sub    di,ybot
  4805.     neg    di            ; top to bottom flip
  4806.     cmp    di,yresval+2        ; below bottom margin?
  4807.     jbe    dgbar3            ; be = no
  4808.     mov    di,yresval+2        ; clip to bottom margin
  4809. dgbar3:    mov    recty1,di        ; PC start/bot y in recty1
  4810.     call    remcursor        ; remove text cursor
  4811.     test    dgcross,1        ; is cross hair on?
  4812.     jz    dgbar4            ; z = no
  4813.     test    dgcross,8        ; is cross hair visible?
  4814.     jnz    dgbar4            ; nz = no
  4815.     call    crosdrawh        ; remove present crosshairs
  4816.     call    crosdrawv
  4817.     or    dgcross,8        ; say cross is invisible
  4818. dgbar4:    mov    si,rectx1        ; left x PC coord to si
  4819.     mov    di,recty2        ; top y PC coord to di
  4820.     mov    cx,recty1        ; plotting from top down on screen
  4821.     sub    cx,di            ; cx = # scan lines - 1
  4822.     inc    cx
  4823.     mov    numlines,cx        ; remember here
  4824.     call    dgsetcol
  4825.     mov    ccode,pixfor        ; write in foreground color
  4826.     cmp    byte ptr [bp+6+8],0    ; color, 0=background, 1=foreground
  4827.     jne    dgbar5            ; ne = foreground
  4828.     mov    ccode,pixbak        ; write in background color
  4829. dgbar5:    mov    cx,rectx2        ; ending x coord
  4830.     sub    cx,rectx1        ; number of horizontal pixels - 1
  4831.     inc    cx            ; number of horizontal pixels
  4832.     call    psetup            ; set up dsp and di to screen offset
  4833.             ; di points to whole byte, do bits in byte in gfplot
  4834.     mov    fill,0ffffh
  4835. dgbar6:    call    gfplot            ; line fill routine, uses CX
  4836.     call    pincy            ; next line
  4837.     dec    numlines
  4838.     cmp    numlines,0        ; done all lines?
  4839.     jg    dgbar6            ; g = still lines to do
  4840.     pop    ax
  4841.     mov    gbcol,ah
  4842.     mov    gfcol,al
  4843.     pop    dx
  4844.     pop    di
  4845.     pop    si
  4846.     pop    es
  4847.     pop    bp
  4848.     ret
  4849. dgbar    endp
  4850.  
  4851. dgarc    proc    far ;dgarc(center x, center y, radius, start angle, end angle,
  4852. ;                mar_top, mar_bot)
  4853.     push    bp
  4854.     mov    bp,sp
  4855.     mov    al,gfcol
  4856.     mov    ah,gbcol
  4857.     push    ax
  4858.     push    si
  4859.     push    di
  4860.     push    es
  4861.     call    remcursor        ; remove text cursor
  4862.     call    dgsetcol
  4863.     mov    si,[bp+6+0]        ; x center
  4864.     call    dg2pcx            ; x center in PC units in SI
  4865.     inc    si            ; plus one dot safety on PC screen
  4866.     mov    scalex,si        ; store here
  4867.  
  4868.     mov    di,[bp+6+2]        ; y center
  4869.     call    dg2pcy            ; y center in PC units in DI
  4870.     mov    scaley,di        ; store here
  4871.  
  4872.     mov    ax,[bp+6+6]        ; start angle for CCW motion
  4873.     xor    dx,dx
  4874.     mov    cx,360
  4875.     div    cx            ; start angle in ax, modulo 360
  4876.     mov    angle,dx        ; actual start angle, mod 360
  4877.  
  4878.     mov    ax,[bp+6+8]        ; end angle for CCW motion
  4879.     mov    bx,[bp+6+6]        ; start angle
  4880.     mov    cx,bx
  4881.     add    cx,ax
  4882.     cmp    cx,720            ; more than one circle?
  4883.     jb    dgarc1            ; b = no
  4884.     mov    ax,cx            ; make end angle much larger than strt
  4885.     cmp    ax,bx            ; less than starting angle?
  4886.     jae    dgarc1            ; ae = no
  4887.     add    ax,360            ; add one rev
  4888. dgarc1:    cmp    ax,angle        ; starting angle
  4889.     jae    dgarc2            ; ae = angle <= angle+2, is ok
  4890.     cmp    angle,360        ; special case?
  4891.     je    dgarc2            ; e = yes
  4892.     xchg    ax,angle        ; make angle <= angle+2
  4893. dgarc2:    mov    angle+2,ax        ; ending angle
  4894.  
  4895.     mov    ax,charhgt        ; current char height
  4896.     mov    dx,[bp+6+10]        ; dx = mar_top
  4897.     mul    dl            ; dots to top of mar_top line
  4898.     mov    yresval,ax        ; top margin line
  4899.     mov    ax,charhgt        ; current char height
  4900.     mov    dx,[bp+6+12]        ; dx = mar_bot
  4901.     mul    dl            ; dots to bot of mar_bot line
  4902.     add    ax,charhgt        ; dots to bottom of mar_bot line
  4903.     mov    yresval+2,ax        ; bottom margin line
  4904.     test    dgcross,1        ; is cross hair on?
  4905.     jz    dgarc3            ; z = no
  4906.     test    dgcross,8        ; is cross hair invisible?
  4907.     jnz    dgarc3            ; nz = yes
  4908.     call    crosdrawh        ; remove present crosshairs
  4909.     call    crosdrawv
  4910.     or    dgcross,8        ; say cross is invisible
  4911. dgarc3:
  4912.     mov    dl,ccode        ; existing pixel op code
  4913.     push    dx            ; save around line drawing
  4914.     push    linepat
  4915.     mov    si,[bp+6+4]        ; radius
  4916.     mov    di,si
  4917.     call    dg2pcx            ; x axis
  4918.     mov    yresval+4,si        ; save radius in PC x units
  4919.     call    dg2pcy
  4920.     mov    yresval+6,di        ; save radius in PC y units
  4921.     call    dg2pcx
  4922.  
  4923.     mov    bx,angle        ; start angle
  4924.     call    dgasin            ; convert point to SI,DI DG coord
  4925.     call    dg2pcy            ; and to PC y coordinate
  4926.     add    di,scaley        ; add center
  4927.     sub    di,ybot
  4928.     add    di,charhgt
  4929.     neg    di
  4930.     mov    recty1,di        ; y1 in virtual units
  4931.  
  4932.     add    si,scalex        ; add center to PC x coord
  4933.     mov    rectx1,si        ; x1 in virtual units
  4934.     mov    linepat,0ffffh
  4935.     mov    bx,angle        ; start angle
  4936.  
  4937. dgarc4:    inc    bx            ; step angle
  4938.     cmp    bx,angle+2        ; done yet?
  4939.     jbe    dgarc5            ; be = no
  4940.     mov    bx,angle+2        ; end angle
  4941. dgarc5:    mov    angle,bx        ; new start
  4942.     call    dgasin            ; convert BX point to SI,DI PC coord
  4943.     add    di,scaley        ; add center
  4944.     sub    di,ybot            ; flip top to bottom
  4945.     add    di,charhgt
  4946.     neg    di
  4947.     mov    recty2,di        ; y2 in PC units
  4948.     add    si,scalex        ; add center
  4949.     mov    rectx2,si        ; x2 in PC units
  4950.  
  4951.     mov    si,rectx1
  4952.     mov    di,recty1        ; start x,y
  4953.     mov    ax,rectx2    
  4954.     mov    bx,recty2        ; end x,y
  4955.     cmp    di,yresval        ; is start above top margin?
  4956.     jb    dgarc6            ; b = yes, no plot
  4957.     cmp    bx,yresval        ; and end point?
  4958.     jb    dgarc6            ; b = yes, no plot
  4959.     cmp    di,yresval+2        ; is start below bottom margin?
  4960.     ja    dgarc6            ; a = yes, no plot
  4961.     cmp    bx,yresval+2        ; end point?
  4962.     ja    dgarc6            ; a = yes, no plot
  4963.     mov    cl,pixfor
  4964.     call    line            ; draw line segment
  4965. dgarc6:    mov    ax,rectx2        ; shift end to start
  4966.     mov    rectx1,ax
  4967.     mov    ax,recty2
  4968.     mov    recty1,ax
  4969.     mov    bx,angle        ; start angle
  4970.     cmp    bx,angle+2        ; done to end angle yet?
  4971.     jb    dgarc4            ; b = no
  4972.     pop    linepat
  4973.     pop    dx            ; save around line drawing
  4974.     mov    ccode,dl        ; existing pixel op code
  4975.     pop    es
  4976.     pop    di
  4977.     pop    si
  4978.     pop    ax
  4979.     mov    gfcol,al
  4980.     mov    gbcol,ah
  4981.     pop    bp
  4982.     ret
  4983. dgarc    endp
  4984.  
  4985. ; Provide x,y coordinates in DG address frame, given radius and angle (deg,
  4986. ; ccw from the positve x axis). X is in SI, Y is in DI.
  4987. ; Radius is in yresval+4 for x and yresval+6 for y, angle is in bx.
  4988. dgasin    proc    near            ; x = r cos(theta), y = r sin(x)
  4989.     push    ax
  4990.     push    bx
  4991.     push    cx
  4992.     push    dx
  4993.     push    es
  4994.     mov    cx,seg sin        ; sine lookup table, 90/64 deg steps
  4995.     mov    es,cx
  4996.     mov    ax,bx
  4997.     mov    cx,360
  4998.     push    dx
  4999.     xor    dx,dx
  5000.     div    cx            ; remove extra 360's
  5001.     mov    bx,dx            ; keep remainder
  5002.     pop    dx            ; bx now has angle mod 360
  5003.                     ; do quadrants
  5004.     xor    si,si            ; assume right side
  5005.     xor    di,di            ; and top
  5006.     cmp    bx,180            ; left or right?
  5007.     jbe    dgasin1            ; be = right
  5008.     mov    di,-1            ; remember to flip sign
  5009.     sub    bx,360
  5010.     neg    bx
  5011. dgasin1:cmp    bx,90            ; top or bottom
  5012.     jbe    dgasin2            ; be = top
  5013.     mov    si,-1            ; say bottom
  5014.     sub    bx,180            ; flip
  5015.     neg    bx
  5016. dgasin2:cmp    bx,90            ; at the upper limit?
  5017.     jne    dgsin2a            ; ne = no
  5018.     mov    ax,256            ; set 16 bit value
  5019.     jmp    short dgsin2b
  5020. dgsin2a:mov    al,es:sin[bx]        ; 256 times sine
  5021.     xor    ah,ah
  5022. dgsin2b:push    dx
  5023.     mul    yresval+6        ; times radius in y reference frame
  5024.     mov    al,ah
  5025.     mov    ah,dl            ; divide by 256
  5026.     pop    dx
  5027.     or    di,di            ; need a sign change?
  5028.     jz    dgasin3            ; z = no
  5029.     neg    ax            ; flip it
  5030. dgasin3:mov    di,ax
  5031.     
  5032.     sub    bx,90            ; bx is an index by now
  5033.     neg    bx            ; 90 - theta for cos
  5034.     cmp    bx,90            ; at the limit?
  5035.     jne    dgsin3a            ; ne = no
  5036.     mov    ax,256            ; set 16 bit value
  5037.     jmp    short dgsin3b
  5038. dgsin3a:mov    al,es:sin[bx]        ; 256 times cosine
  5039.     xor    ah,ah
  5040. dgsin3b:mul    yresval+4        ; radius in x reference frame
  5041.     mov    al,ah
  5042.     mov    ah,dl            ; divide by 256
  5043.     or    si,si            ; need a sign change?
  5044.     jz    dgasin4            ; z = no
  5045.     neg    ax
  5046. dgasin4:mov    si,ax
  5047.     pop    es
  5048.     pop    dx
  5049.     pop    cx
  5050.     pop    bx
  5051.     pop    ax
  5052.     ret
  5053. dgasin    endp
  5054.  
  5055. ; Convert DG X coordinate in SI to PC screen coordinate in SI
  5056. dg2pcx    proc    near
  5057.     push    ax
  5058.     push    cx
  5059.     push    dx
  5060.     mov    ax,si
  5061.     mov    cx,xmax            ; PC screen width - 8 dots
  5062.     add    cx,7            ; right most dot
  5063.     imul    cx
  5064.     mov    cx,dgxmax        ; DG width
  5065.     idiv    cx            ; AX gets PC dots across
  5066.     mov    si,ax
  5067.     pop    dx
  5068.     pop    cx
  5069.     pop    ax
  5070.     ret
  5071. dg2pcx    endp
  5072.  
  5073. ; Convert DG Y coordinate in DI to PC screen coordinate in DI
  5074. dg2pcy    proc    near
  5075.     push    ax
  5076.     push    cx
  5077.     push    dx
  5078.     mov    ax,di
  5079.     mov    cx,ybot            ; PC screen height
  5080.     sub    cx,charhgt        ; minus status line
  5081.     imul    cx
  5082.     mov    cx,dgymax        ; DG height
  5083.     idiv    cx
  5084.     mov    di,ax            ; ax has PC dots y dots
  5085.     pop    dx
  5086.     pop    cx
  5087.     pop    ax
  5088.     ret
  5089. dg2pcy    endp
  5090.  
  5091. ; Fill non-intersecting polygon whose vertices are specified as x,y word 
  5092. ; pairs in rdbuf+2. Word rdbuf has count of the pairs. Closure is implied. 
  5093. ; Coordinates are DG. Permit up to 255 vertices. PC text lines mar_top
  5094. ; and mar_bot are in the last two words of rdbuf+2.
  5095. dgpoly    proc    far
  5096.     push    linepat            ; save existing line pattern
  5097.     push    si
  5098.     push    di
  5099.     mov    al,gfcol
  5100.     mov    ah,gbcol
  5101.     push    ax
  5102.     call    remcursor        ; remove text cursor
  5103.     test    dgcross,1        ; is cross hair on?
  5104.     jz    dgpoly1            ; z = no
  5105.     test    dgcross,8        ; is cross hair invisible?
  5106.     jnz    dgpoly1            ; nz = yes
  5107.     call    crosdrawh        ; remove present crosshairs
  5108.     call    crosdrawv
  5109.     or    dgcross,8        ; say cross is invisible
  5110. dgpoly1:call    dgsetcol        ; set coloring
  5111.     mov    bx,offset rdbuf        ; list: count, pairs of x,y
  5112.     mov    cx,[bx]            ; get pair count
  5113.     add    bx,2            ; start of x,y word pairs
  5114.     mov    ax,ybot            ; largest PC y value
  5115.     mov    recty1,ax        ; smallest PC y
  5116.     mov    recty2,0        ; largest PC y
  5117. dgpoly2:mov    si,[bx]            ; get DG x
  5118.     call    dg2pcx            ; convert to PC x coord
  5119.     mov    [bx],si            ; write back to list
  5120.     add    bx,2
  5121.     mov    di,[bx]            ; get DG y
  5122.     cmp    di,dgymax        ; too tall?
  5123.     jbe    dgpoly2a        ; be = no
  5124.     mov    di,dgymax        ; clip to top
  5125. dgpoly2a:call    dg2pcy            ; convert to PC y coord
  5126.     sub    di,ybot
  5127.     add    di,charhgt
  5128.     neg    di            ; invert for PC coord
  5129.     mov    [bx],di            ; write back to list
  5130.     cmp    di,recty1        ; smaller?
  5131.     jae    dgpoly3            ; ae = no
  5132.     mov    recty1,di        ; smallest PC y
  5133. dgpoly3:cmp    di,recty2        ; larger?
  5134.     jbe    dgpoly4            ; be = no
  5135.     mov    recty2,di        ; largest PC y
  5136. dgpoly4:add    bx,2
  5137.     loop    dgpoly2            ; do entire list
  5138.                     ; top/bottom margin clipping
  5139.     mov    ax,charhgt        ; current char height
  5140.     mov    dx,[bx]            ; dx = mar_top
  5141.     mul    dl            ; dots to top of mar_top line
  5142.     cmp    ax,recty1        ; is top margin higher (less)?
  5143.     jbe    dgpoly4a        ; be = yes, no top clipping
  5144.     mov    recty1,ax        ; clip to top margin
  5145. dgpoly4a:mov    ax,charhgt        ; current char height
  5146.     mov    dx,[bx+2]        ; dx = mar_bot
  5147.     mul    dl            ; dots to bot of mar_bot line
  5148.     add    ax,charhgt        ; dots to bottom of mar_bot line
  5149.     dec    ax
  5150.     cmp    ax,recty2        ; is bot margin lower (more)?
  5151.     jae    dgpoly4b        ; ae = yes, no bottom clipping
  5152.     mov    recty2,ax        ; clip to bottom margin
  5153. dgpoly4b:mov    si,word ptr rdbuf+2    ; get start of list
  5154.     mov    di,word ptr rdbuf+4
  5155.     mov    [bx],si            ; close the polygon
  5156.     mov    [bx+2],di
  5157.  
  5158.     mov    di,recty1        ; starting scan line, smallest PC y
  5159.     mov    linepat,0ffffh        ; solid lines
  5160. dgpoly5:call    dginter            ; make list of intersections to decbuf
  5161.     cmp    word ptr decbuf,2    ; any elements to be sorted/plotted?
  5162.     jb    dgpoly7            ; b = no
  5163.     call    dgsort            ; sort x list in decbuf
  5164.     mov    bx,offset decbuf+2
  5165. dgpoly6:mov    si,[bx]            ; start x
  5166.     mov    ax,[bx+2]         ; end x
  5167.     mov    cx,xmax            ; right edge clipping test
  5168.     add    cx,7            ; last dot to the right
  5169.     cmp    ax,cx            ; offscreen to the right?
  5170.     jbe    dgpoly6a        ; be = no
  5171.     mov    ax,cx            ; clip to right edge
  5172. dgpoly6a:cmp    si,cx            ; this edge too?
  5173.     jbe    dgpoly6b        ; be = in bounds
  5174.     mov    si,cx
  5175. dgpoly6b:add    bx,4            ; two words processed from list
  5176.     sub    word ptr decbuf,2    ; two x elements taken care of
  5177.     cmp    si,ax            ; same place?
  5178.     je    dgpoly6c        ; e = yes
  5179.     push    bx
  5180.     push    di            ; save reg
  5181.     mov    bx,di            ; end y, start y is in di
  5182.     mov    cl,pixfor        ; do just foreground dots
  5183.     call    line            ; draw the line
  5184.     pop    di
  5185.     pop    bx
  5186. dgpoly6c:cmp    word ptr decbuf,2    ; done all?
  5187.     jge    dgpoly6            ; ge = no, do reset of list
  5188. dgpoly7:inc    di            ; next scan line
  5189.     cmp    di,recty2        ; at end of figure?
  5190.     jbe    dgpoly5            ; be = no, do more scan lines
  5191.     pop    ax
  5192.     mov    gfcol,al
  5193.     mov    gbcol,ah
  5194.     pop    di
  5195.     pop    si
  5196.     pop    linepat            ; restore line pattern
  5197.     ret
  5198. dgpoly    endp
  5199.  
  5200. ; Provide PC x coordinate of intersections of a line with logical scan line 
  5201. ; DI. List of x,y pairs (nodes) is in rdbuf+2 et seq, count of them in rdbuf
  5202. ; Writes x intersections to words in decbuf+2 et seq, count in decbuf.
  5203. dginter proc    near
  5204.     push    dx
  5205.     mov    si,offset decbuf+2    ; final x list
  5206.     mov    word ptr decbuf,0    ; number detected for this scan line
  5207.     mov    bx,offset rdbuf+2    ; index into x,y array
  5208.     mov    cx,[bx-2]        ; count of nodes (3 or more)
  5209. dginter1:push    cx            ; see if line crosses this scan line
  5210.     mov    ax,[bx+2]         ; y[index]
  5211.     mov    cx,[bx+2+4]        ; y[index+1]
  5212.     cmp    ax,cx
  5213.     jbe    dginter2        ; be = ax is higher or same on screen
  5214.     xchg    ax,cx            ; make ax smaller than cx
  5215.  
  5216. dginter2:cmp    di,ax             ; yscan vs y[index]
  5217.     jb    dginter7        ; b = above this scan line
  5218.     cmp    di,cx             ; yscan vs y[index+1]
  5219.     ja    dginter7        ; a = below this line
  5220.     mov    ax,di            ; yscan
  5221.     sub    ax,[bx+2]         ; ax = yscan - y[index]
  5222.     or    ax,ax
  5223.     jnz    dginter5        ; nz = not at a starting node
  5224.     push    ax
  5225.     mov    ax,[bx+2]         ; current y[index]
  5226.     cmp    bx,offset rdbuf+2+2    ; list start (wrap back situation)?
  5227.     jae    dginter3        ; ae = no
  5228.     push    bx
  5229.     mov    bx,word ptr rdbuf    ; count of x,y pairs
  5230.     shl    bx,1
  5231.     shl    bx,1            ; count pairs
  5232.     sub    ax,word ptr rdbuf+2[bx-2] ; y[0] - y[maxindex-1]
  5233.     pop    bx
  5234.     jmp    short dginter4
  5235. dginter3:sub    ax,[bx-2]         ; y[index] - y[index-1]
  5236. dginter4:mov    cx,[bx+2+4]         ; y[index+1]
  5237.     sub    cx,[bx+2]         ; cx = delta y = y[index+1] - y[index]
  5238.     xor    ax,cx            ; compare with above slope
  5239.     pop    ax
  5240.     jns    dginter7        ; ns = same sign, do not count node
  5241.  
  5242. dginter5:or    ax,ax            ; yscan - y[index]
  5243.     jz    dginter6        ; z = at node, don't interpolate
  5244.     mov    cx,[bx+4]         ; x[index+1]
  5245.     sub    cx,[bx]            ; delta x = x[index+1] - x[index]
  5246.     imul    cx
  5247.     mov    cx,[bx+2+4]         ; y[index+1]
  5248.     sub    cx,[bx+2]         ; cx = delta y = y[index+1] - y[index]
  5249.     idiv    cx
  5250. dginter6:add    ax,[bx]            ; plus x[index]
  5251.     mov    [si],ax            ; store in decbuf
  5252.     add    si,2
  5253.     inc    word ptr decbuf        ; say counted a node
  5254. dginter7:pop    cx
  5255.     add    bx,4            ; next x,y pair
  5256.     loop    dginter1
  5257.     pop    dx
  5258.     ret
  5259. dginter endp
  5260.  
  5261. ; Sort array of words decbuf, count then list of elements
  5262. dgsort    proc    near
  5263.     push    dx
  5264.     push    si
  5265.     push    di
  5266.     mov    si,offset decbuf    ; count + list
  5267.     mov    cx,[si]            ; count of items in list
  5268.     dec    cx
  5269.     jcxz    dgsort5    
  5270.     add    si,2            ; point to first element
  5271.     mov    dx,si            ; offset of first element
  5272.     add    dx,cx            ; plus count of elements
  5273.     add    dx,cx            ; offset of last element
  5274. dgsort1:mov    di,si            ; first element
  5275.     add    di,2            ; next element
  5276. dgsort2:mov    ax,[di]            ; next x
  5277.     cmp    ax,[si]            ; current x
  5278.     jae    dgsort3            ; ae = next is larger than current x
  5279.     xchg    ax,[si]            ; interchange elements
  5280.     xchg    ax,[di]
  5281. dgsort3:add    di,2
  5282.     cmp    di,dx            ; finished last element?
  5283.     jbe    dgsort2            ; be = no
  5284.     add    si,2            ; next element of outer loop
  5285.     loop    dgsort1
  5286. dgsort5:pop    di
  5287.     pop    si
  5288.     pop    dx
  5289.     ret
  5290. dgsort    endp
  5291.  
  5292. ;;;;;;; EGA plot support routines
  5293. psetupe    proc    near            ; EGA setup for plotting
  5294.     push    ax
  5295.     mov    linelen,80        ; for y going down screen by pincy
  5296.     mov    ax,segscn        ; set es to screen memory segment
  5297.     mov    es,ax
  5298.     mov    ax,0205h        ; mode: write mode 2
  5299.     call    ega_gc
  5300.     mov    ax,0003h        ; assume writing bits directly
  5301.     test    ccode,pixfor+pixbak    ; direct foreground/background write?
  5302.     jnz    psete2            ; nz = yes
  5303.     mov    ax,1003h        ; assume OR
  5304.     test    ccode,pixor        ; OR?
  5305.     jnz    psete2            ; nz = yes
  5306.     mov    ax,1803h        ; assume XOR
  5307.     test    ccode,pixxor        ; inverting bits?
  5308.     jnz    psete2            ; nz = yes
  5309.     mov    ax,0803h        ; then use AND
  5310. psete2:    call    ega_gc            ; set controller
  5311.     mov    ax,80            ; compute starting point in regen buff
  5312.     mul    di
  5313.     mov    di,ax            ; di = di * 80
  5314.     pop    ax
  5315.     ret
  5316. psetupe    endp
  5317.  
  5318. pincye    proc    near            ; EGA inc y
  5319.     add    di,linelen        ; includes sign of deltay
  5320.     ret
  5321. pincye    endp
  5322.  
  5323. pltega    proc    near        ; EGA plot(x,y). x is in si, y is in di
  5324.     ror    bp,1            ; rotate line pattern
  5325.     jc    pltega1            ; c = a 1 bit to be plotted
  5326.     cmp    ccode,pixfor+pixbak    ; plot both 1's and 0's?
  5327.     je    pltega1            ; e = yes
  5328.     ret                ; else ignore the 0 bit
  5329. pltega1:push    bx
  5330.     push    si
  5331.     push    di
  5332.     mov    bx,xmax
  5333.     add    bx,7            ; last right dot
  5334.     cmp    si,bx            ; going out of bounds?
  5335.     ja    pltega3            ; a = yes, omit the dot plot
  5336.     mov    bx,si            ; want si/8 for bytes along line
  5337.     shr    si,1
  5338.     shr    si,1
  5339.     shr    si,1
  5340.     add    di,si            ; starting point in regen buffer
  5341.     and    bx,0007h        ; leave lower 3 bits for bit in byte
  5342.     mov    bh,masktab[bx]        ; 0-7 into bit mask in byte, x pos
  5343.     mov    bl,ccode        ; get line type code
  5344.     cmp    bl,pixfor+pixbak    ; plot both 1's and 0's?
  5345.     jne    pltega2            ; ne = no
  5346.     mov    bl,pixfor        ; use foreground for ones
  5347.     test    bp,80h            ; bit is a one?
  5348.     jnz    pltega2            ; nz = yes
  5349.     mov    bl,pixbak        ; use background for zeros
  5350. pltega2:call    ega_plt
  5351. pltega3:pop    di
  5352.     pop    si
  5353.     pop    bx
  5354.     ret
  5355. pltega    endp
  5356.  
  5357. ;; Plot bit pattern in "fill" as 8 horizontal pixels, starting at x,y (si,di)
  5358. ; and continuing across the line for cx pixels. psetupe has been called.
  5359. bpltega    proc    near        ; EGA plot(x,y). x is in si, y is in di
  5360.     push    bx
  5361.     push    cx
  5362.     push    si
  5363.     push    di
  5364.     mov    bx,si            ; want si/8 for bytes along line
  5365.     shr    si,1
  5366.     shr    si,1
  5367.     shr    si,1
  5368.     add    di,si            ; starting byte in regen buffer
  5369.                     ; di = offset in regen buffer
  5370.     and    bl,7            ; get bit in byte (di = byte aligned)
  5371.     jz    bplteg1            ; z = aligned already
  5372.     xchg    bl,cl            ; get shift to cl, low count to bl
  5373.     mov    bh,fill            ; 8-bit fill pattern
  5374.     mov    al,bh            ; get complement of pattern too
  5375.     not    al
  5376.     shl    bh,cl            ; trim cl bits from the left
  5377.     shr    bh,cl
  5378.     shl    al,cl            ; trim them from the right edge
  5379.     shr    al,cl            ; restore pattern
  5380.     xchg    cl,bl            ; put count back in cx
  5381.     add    cl,bl            ; add bits taken care of
  5382.     adc    ch,0
  5383.     jmp    short bplteg2        ; do this partial byte now
  5384.  
  5385. bplteg1:mov    bh,fill            ; fill pattern
  5386.     mov    al,bh            ; make inverted pattern
  5387.     not    al
  5388.     cmp    cx,8            ; do all 8 bits?
  5389.     jae    bplteg2            ; ae = yes
  5390.     push    cx            ; final byte fixup
  5391.     sub    cl,8            ; cl = - (number of bits to omit)
  5392.     neg    cl            ; cl = number of bits to omit
  5393.     mov    al,bh            ; get complement of pattern too
  5394.     not    al
  5395.     shr    bh,cl            ; trim them from the right edge
  5396.     shl    bh,cl            ; restore pattern
  5397.     shr    al,cl            ; trim them from the right edge
  5398.     shl    al,cl            ; restore pattern
  5399.     pop    cx
  5400. bplteg2:push    ax
  5401.     cmp    ccode,pixfor+pixbak    ; do both fore and background?
  5402.     jne    bplteg2a        ; ne = no
  5403.     push    bx
  5404.     mov    bh,al            ; get complemented pattern
  5405.     mov    bl,pixbak        ; write background
  5406.     call    ega_plt
  5407.     pop    bx
  5408. bplteg2a:mov    bl,ccode        ; get line type code
  5409.     call    ega_plt
  5410. bplteg3:pop    ax
  5411.     inc    di            ; next byte right
  5412.     sub    cx,8            ; did these
  5413.     cmp    cx,0            ; anything left to do?
  5414.     jg    bplteg1            ; a = yes, repeat
  5415.     pop    di
  5416.     pop    si
  5417.     pop    cx
  5418.     pop    bx
  5419.     ret
  5420. bpltega    endp
  5421.  
  5422. ;;;;;;;; CGA plot support routines
  5423. ; The CGA graphics memory mapping in mode 6 (640 by 200) is 8 dots per byte,
  5424. ; left most dot in the high bit, 80 bytes per scan line, scan line segments
  5425. ; alternating between 0b800h (even lines 0, 2, ...) and 0ba00h (odd lines).
  5426. psetupc    proc    near            ; CGA setup for plotting
  5427.     push    ax
  5428.     push    cx
  5429.     mov    linelen,80        ; 80 bytes per scan line
  5430.     mov    cx,segscn
  5431.     mov    es,cx
  5432.     mov    cx,di            ; save copy of di, start y line
  5433.                     ; compute starting point in regen buff
  5434.     shr    di,1            ; half the lines in each bank
  5435.     mov    ax,80            ; 80 bytes per line
  5436.     mul    di
  5437.     mov    di,ax            ; di = di * 80 / 2
  5438.     test    cx,1            ; even or odd line
  5439.     jz    psetc1            ; z = even
  5440.     add    di,2000h        ; offset to odd bank (seg 0ba00h)
  5441. psetc1:    and    di,3fffh
  5442.     pop    cx
  5443.     pop    ax
  5444.     ret
  5445. psetupc    endp
  5446.  
  5447. pincyc    proc    near            ; CGA inc y
  5448.     cmp    linelen,0        ; increasing or decreasing y?
  5449.     jl    pinyc2            ; l = decreasing
  5450.     cmp    di,2000h        ; in upper bank now?
  5451.     jb    pinyc1            ; b = no, in lower bank
  5452.     add    di,linelen        ; add a line
  5453. pinyc1:    add    di,2000h        ; switch banks
  5454.     and    di,3fffh        ; roll over address
  5455.     ret
  5456. pinyc2:    cmp    di,2000h        ; in upper bank now?
  5457.     jae    pinyc4            ; ae = yes
  5458.     add    di,linelen        ; subtract a line
  5459. pinyc4:    add    di,2000h        ; switch banks
  5460.     and    di,3fffh        ; roll over address
  5461.     ret
  5462. pincyc    endp
  5463.  
  5464. pltcga    proc    near        ; CGA plot(x,y). x is in si, y is in di
  5465.     ror    bp,1            ; rotate line pattern
  5466.     jc    pltcg6            ; c = 1 bit to be plotted
  5467.     cmp    ccode,pixfor+pixbak    ; plot both 1's and 0's?
  5468.     je    pltcg6            ; e = yes
  5469.     ret
  5470. pltcg6:    push    bx        ; used for HGA and Wyse plots also.
  5471.     push    si
  5472.     push    di
  5473.     mov    bx,xmax
  5474.     add    bx,7            ; last right dot
  5475.     cmp    si,bx            ; going out of bounds?
  5476.     ja    pltcg3            ; a = yes, omit the dot plot
  5477.     mov    bx,si            ; want si/8 for bytes along line
  5478.     shr    si,1
  5479.     shr    si,1
  5480.     shr    si,1
  5481.     add    di,si            ; starting point in regen buffer
  5482.     and    bx,0007h        ; leave lower 3 bits for bit in byte
  5483.                     ; di = offset in regen buffer
  5484.     mov    bh,masktab[bx]        ; 0-7 into bit mask in byte. x position
  5485.     mov    bl,ccode        ; get line type code
  5486.     cmp    bl,pixfor+pixbak    ; plot both 1's and 0's?
  5487.     jne    pltcg7            ; ne = no
  5488.     mov    bl,pixfor        ; use foreground for ones
  5489.     test    bp,80h            ; bit is a one?
  5490.     jnz    pltcg7            ; nz = yes
  5491.     mov    bl,pixbak        ; use background for zeros
  5492. pltcg7:
  5493.     test    bl,pixfor+pixor        ; draw in foreground color or OR?
  5494.     jz    pltcg1            ; z = no
  5495.     test    bl,pixor        ; OR?
  5496.     jnz    pltcg5            ; nz = yes
  5497.     test    gfcol,7            ; is foreground dark?
  5498.     jz    pltcg4            ; z = yes, punch a hole
  5499. pltcg5:    or    es:[di],bh        ; drawn
  5500.     jmp    short pltcg3
  5501. pltcg1:    test    bl,pixbak        ; draw in background (erase)?
  5502.     jz    pltcg2            ; z = no
  5503.     test    gbcol,7            ; is background light?
  5504.     jnz    pltcg5            ; nz = yes
  5505. pltcg4:    not    bh            ; invert the bit
  5506.     and    es:[di],bh        ; erase the dot
  5507.     jmp    short pltcg3
  5508. pltcg2:    xor    es:[di],bh        ; xor in this color
  5509. pltcg3:    pop    di
  5510.     pop    si
  5511.     pop    bx
  5512.     ret
  5513. pltcga    endp
  5514.  
  5515. ; Plot bit pattern in fill as 8 horizontal pixels, starting at x,y (si,di)
  5516. ; and continuing across the line for cx pixels. psetupc has been called.
  5517. bpltcga    proc    near        ; CGA plot(x,y). x is in si, y is in di
  5518.     push    bx        ; used for HGA and Wyse plots also.
  5519.     push    cx
  5520.     push    si
  5521.     push    di
  5522.     mov    bx,si            ; want si/8 for bytes along line
  5523.     shr    si,1
  5524.     shr    si,1
  5525.     shr    si,1
  5526.     add    di,si            ; starting byte in regen buffer
  5527.                     ; di = offset in regen buffer
  5528.     and    bl,7            ; get bit in byte (di = byte aligned)
  5529.     jz    bpltcg5            ; z = aligned already
  5530.     xchg    bl,cl            ; get shift to cl, low count to bl
  5531.     mov    bh,fill            ; 8-bit fill pattern
  5532.     shl    bh,cl            ; trim cl bits from the left
  5533.     shr    bh,cl
  5534.     push    cx
  5535.     mov    al,0ffh            ; 1's are original bits to be saved
  5536.     sub    cl,8            ; max field width is 8 bits
  5537.     neg    cl            ; 8-number of bits trimmed from left
  5538.     shl    al,cl            ; al now holds save-field bit pattern
  5539.     pop    cx
  5540.     xchg    cl,bl            ; put count back in cx
  5541.     add    cl,bl            ; add bits taken care of
  5542.     adc    ch,0
  5543.     jmp    short bpltcg4        ; do this partial byte now
  5544.  
  5545. bpltcg5:mov    bh,fill            ; fill pattern
  5546.     xor    al,al            ; assume saving no bits
  5547.     cmp    cx,8            ; do all 8 bits?
  5548.     jae    bpltcg4            ; ae = yes
  5549.     push    cx            ; final byte fixup
  5550.     mov    al,0ffh            ; 1's are original bits to be saved
  5551.     shl    al,cl
  5552.     shr    al,cl            ; al now holds save-field bit pattern
  5553.     sub    cl,8            ; cl = - (number of bits to omit)
  5554.     neg    cl            ; cl = number of bits to omit
  5555.     shr    bh,cl            ; trim them from the right edge
  5556.     shl    bh,cl            ; restore pattern
  5557.     pop    cx
  5558. bpltcg4:mov    bl,ccode        ; get line type code
  5559.     cmp    bl,pixfor+pixbak    ; set both fore and background?
  5560.     jne    bpltcg9            ; ne = no
  5561.     test    gfcol,7            ; is foreground dark?
  5562.     jnz    bpltcg8            ; nz = no
  5563.     not    bh            ; invert the bit pattern
  5564.     or    bh,al            ; set bits to be saved
  5565.     sub    bh,al            ; trim off saved bits from this field
  5566. bpltcg8:mov    ah,es:[di]        ; get contents of memory cell
  5567.     and    ah,al            ; preserve bit field given by al
  5568.     or    bh,ah            ; mask in saved bits
  5569.     mov    es:[di],bh        ; write the byte
  5570.     jmp    short bpltcg3        ; done
  5571. bpltcg9:test    bl,pixfor+pixor        ; draw in foreground?
  5572.     jz    bpltcg1            ; z = no
  5573.     test    bl,pixor        ; OR?
  5574.     jnz    bpltcg7            ; nz = yes
  5575.     test    gfcol,7            ; is foreground dark?
  5576.     jz    bpltcg6            ; z = yes, punch a hole
  5577. bpltcg7:or    es:[di],bh        ; drawn
  5578.     jmp    short bpltcg3
  5579. bpltcg1:test    bl,pixbak        ; draw as background (erase)?
  5580.     jz    bpltcg2            ; z= do not draw as background (erase)
  5581.     test    gbcol,7            ; is background light?
  5582.     jz    bpltcg6            ; z = no
  5583.     or    es:[di],bh        ; drawn
  5584.     jmp    short bpltcg3
  5585. bpltcg6:not    bh
  5586.     and    es:[di],bh        ; erase background dots (0's)
  5587.     jmp    short bpltcg3
  5588. bpltcg2:xor    es:[di],bh        ; xor with these dots
  5589. bpltcg3:inc    di            ; next byte right
  5590.     sub    cx,8            ; did these
  5591.     cmp    cx,0            ; anything left to do?
  5592.     jg    bpltcg5            ; a = yes, repeat
  5593.     pop    di
  5594.     pop    si
  5595.     pop    cx
  5596.     pop    bx
  5597.     ret
  5598. bpltcga    endp
  5599.  
  5600. ;;;;;;; Wyse-700 plot support routines
  5601. ; The Wyse graphics memory map in mode 0D3h (1280 by 800) is 8 dots per byte,
  5602. ; left most dot in the high bit, 160 bytes per scan line, scan line segments
  5603. ; sequence as 0a000h even lines, and same for odd lines
  5604. psetupw proc    near            ; Wyse setup for plotting
  5605.     push    ax
  5606.     push    cx
  5607.     push    dx
  5608.     mov    linelen,160        ; for y going down screen by incy
  5609.     mov    ax,segscn        ; base segment of display memory
  5610.     mov    es,ax
  5611.     mov    cx,di            ; save copy of di, start y line
  5612.                     ; compute starting point in regen buff
  5613.     shr    di,1            ; half the lines in each bank
  5614.     mov    ax,160
  5615.     mul    di
  5616.     mov    di,ax            ; di = di * 160 / 2
  5617.     mov    dx,wymode
  5618.     shr    cx,1            ; compute bank from 1 lsb of line num
  5619.     jnc    psetw2            ; nc = it is in bank 0 (0b000h)
  5620.     mov    ax,wybodd        ; select odd bank
  5621.     out    dx,al
  5622.     jmp    short psetw3
  5623. psetw2: mov    ax,wybeven        ; select even bank
  5624.     out    dx,al
  5625. psetw3: mov    bnkchan, al        ; bank has changed
  5626.     pop    dx
  5627.     pop    cx
  5628.     pop    ax
  5629.     ret
  5630. psetupw endp
  5631.  
  5632. ;
  5633. ; Wyse-700 has two banks. Line 0, 2, 4 ... are in bank 0, and 1, 3, 5 ... are
  5634. ; in bank 1. Lines 0 and 1 have same addresses, lines 2 and 3 have same
  5635. ; addresses etc. We have to change bank every time Y changes but we
  5636. ; have to count new address only after two Y-value changes. Variable
  5637. ; bnkchan is a flag for us to know into which bank to write.
  5638. ;
  5639. pincyw    proc    near            ; Wyse inc y, step offset of line
  5640.     push    ax
  5641.     push    dx
  5642.     mov    dx,wymode        ; Wyse conrol register
  5643.     mov    al,wybeven        ;
  5644.     cmp    bnkchan,wybeven        ; was last write into even bank ?
  5645.     jne    pincywe            ; ne = no
  5646.     mov    al,wybodd        ; yes, set ready for odd bank
  5647.     out    dx,al            ;
  5648.     mov    bnkchan,al        ; set to odd
  5649.     jmp    short pincywo
  5650. pincywe:mov    al,wybeven        ; set ready foe even bank
  5651.     out    dx,al            ; select it
  5652.     mov    bnkchan,al        ; set to odd
  5653. pincywo:cmp    linelen,0        ; increasing y?
  5654.     jg    pinyw2            ; g = yes
  5655.     cmp    al,wybeven        ; from high (1) to low (0) bank ?
  5656.     je    pinyw4            ; e = yes
  5657.     add    di,linelen        ; no, add a line
  5658.     jmp    short pinyw4
  5659. pinyw2: cmp    al,wybodd        ; from low (0) to high (1) bank ?
  5660.     je    pinyw4            ; e = yes
  5661.     add    di,linelen        ; no, add a line
  5662. pinyw4: and    di,0ffffh        ; roll over address
  5663.     pop    dx
  5664.     pop    ax
  5665.     ret
  5666. pincyw    endp
  5667.  
  5668. ;;;;;;; HGA plot support routines
  5669. ; The HGA graphics memory mapping in mode 255 (720 by 348) is 8 dots per byte,
  5670. ; left most dot in the high bit, 90 bytes per scan line, scan line segments
  5671. ; sequence as 0b000h, 0b200h, 0b400h, 0b800h for lines 0-3 and repeat 90 bytes
  5672. ; higher for the rest.
  5673. psetuph    proc    near            ; HGA setup for plotting
  5674.     push    ax
  5675.     push    cx
  5676.     mov    linelen,90        ; for y going down screen by incy
  5677.     mov    ax,segscn        ; base segment of display memory
  5678.     mov    es,ax
  5679.     mov    cx,di            ; save copy of di, start y line
  5680.                     ; compute starting point in regen buff
  5681.     shr    di,1            ; quarter the lines in each bank
  5682.     shr    di,1
  5683.     mov    ax,90
  5684.     mul    di
  5685.     mov    di,ax            ; di = di * 90 / 4
  5686.     and    cx,3            ; compute bank from 2 lsb of line num
  5687.     jcxz    pseth2            ; z means it is in bank 0 (0b000h)
  5688. pseth1:    add    di,2000h        ; add offset for each bank
  5689.     loop    pseth1            ; do cx times
  5690. pseth2:    pop    cx
  5691.     pop    ax
  5692.     ret
  5693. psetuph    endp
  5694.  
  5695. pincyh    proc    near            ; HGA inc y, step offset of line
  5696.     cmp    linelen,0        ; increasing y?
  5697.     jg    pinyh2            ; g = yes
  5698.     cmp    di,2000h        ; in lowest for four banks?
  5699.     ja    pinyh1            ; a = no
  5700.     add    di,linelen        ; yes, add a line
  5701. pinyh1:    add    di,6000h        ; move back by adding a lot
  5702.     and    di,7fffh        ; roll over address
  5703.     ret
  5704. pinyh2:    cmp    di,6000h        ; in top most bank?
  5705.     jb    pinyh4            ; b = no
  5706.     add    di,linelen        ; yes, first add a line
  5707. pinyh4:    add    di,2000h        ; switch to next bank
  5708.     and    di,7fffh        ; roll over address
  5709.     ret
  5710. pincyh    endp
  5711.  
  5712. ;;;;;;; AT&T-Olivetti, Toshiba, VAXmate Graphics Adapter plot support routines
  5713. ; The graphics memory mapping in 640 by 400 mode is 8 dots per byte,
  5714. ; left most dot in the high bit, 80 bytes per scan line, scan line segments
  5715. ; sequence as 0b800h, 0ba00h, 0bc00h, 0be00h for lines 0-3 and repeat 80 bytes
  5716. ; higher for the rest. Use Hercules line incrementing (inc y) and CGA dot
  5717. ; writing. This is a monographic display.
  5718. psetupo    proc    near            ; setup for plotting
  5719.     push    ax
  5720.     push    cx
  5721.     mov    linelen,80        ; for y going down screen by incy
  5722.     mov    ax,segscn        ; base segment of display memory
  5723.     mov    es,ax
  5724.     mov    cx,di            ; save copy of di, start y line
  5725.                     ; compute starting point in regen buff
  5726.     shr    di,1            ; quarter the lines in each bank
  5727.     shr    di,1
  5728.     mov    ax,80
  5729.     mul    di
  5730.     mov    di,ax            ; di = di * 80 / 4
  5731.     and    cx,3            ; compute bank from 2 lsb of line num
  5732.     jcxz    pseto2            ; z means it is in bank 0 (0b800h)
  5733. pseto1:    add    di,2000h        ; add offset for each bank
  5734.     loop    pseto1            ; do cx times
  5735. pseto2:    pop    cx
  5736.     pop    ax
  5737.     ret
  5738. psetupo    endp
  5739.  
  5740. ;;;;;;;; Monochrome, simulate dots with text char
  5741. psetupm    proc    near
  5742.     mov    linelen,1        ; 80 characters but one line
  5743.     ret
  5744. psetupm    endp
  5745.  
  5746. pltmon    proc    near            ; Monochrome dot plot
  5747.     mov    x_coord,si        ; put dot at row=di, col=si, PC Coord
  5748.     mov    y_coord,di
  5749.     push    ax
  5750.     mov    al,'+'-' '        ; our dot character
  5751.     call    mputc            ; display text char
  5752.     pop    ax
  5753.     ret
  5754. pltmon    endp
  5755.  
  5756. ; Plot bit pattern in fill as 8 horizontal pixels, starting at x,y (si,di)
  5757. ; and continuing across the line for cx pixels. Destroys CX.
  5758. bpltmon    proc    near        ; Mono plot(x,y). x is in si, y is in di
  5759.     jmp    pltmon        ; a dummy for the present
  5760. bpltmon    endp
  5761.  
  5762. pincym    proc    near            ; Monochrome inc y
  5763.     add    di,linelen        ; includes sign
  5764.     ret
  5765. pincym    endp
  5766.  
  5767. ; GPUTC - a routine to send text characters from font to true graphics boards
  5768. ; such as EGA, Hercules or CGA. Char is in al. Drawing routine ptr is gcplot.
  5769. gputc    proc    near
  5770.     push    bx            ; first save some registers
  5771.     push    cx
  5772.     push    es
  5773.     push    di
  5774.      mov    bl,al            ; now BL has char to be displayed
  5775.     xor    bh,bh
  5776.                     ; set board mode
  5777.     mov    di,y_coord        ; get current y coord (char bottom)
  5778.     inc    di
  5779.     sub    di,charhgt        ; start charlines-1 lines higher
  5780.     jnc    gputc3            ; nc = ok
  5781.     mov    di,charhgt
  5782.     dec    di
  5783.     mov    y_coord,di        ; reset scan line indicator
  5784.     xor    di,di            ; move up to first line
  5785. gputc3:    call    psetup    ; enter with di=line number, sets es:di to start of
  5786.             ; line in regen buffer and sets byte-wide plot mode
  5787.     mov    si,x_coord        ; si has x-axis in PC screen coord
  5788.     mov    cx,charhgt        ; bytes (scan lines) to transfer
  5789.     call    gcplot            ; call character plot routine
  5790.     call    incx            ; move to next char position
  5791.     pop    di
  5792.     pop    es
  5793.     pop    cx
  5794.     pop    bx
  5795.     ret
  5796. gputc    endp
  5797.  
  5798. putctrl    proc    near            ; CONTROL CHARS = cursor movement
  5799.     cmp    al,FF            ; formfeed?
  5800.      jne    putct0            ; ne = no
  5801.     jmp    TEKCLS            ; FF clears the screen
  5802.  
  5803. putct0:    cmp    al,BS            ; BS? sends (logical) cursor back one
  5804.     jne    putct2            ; ne = no, try next
  5805.     mov    ax,charwidth        ; char width
  5806.     sub    x_coord,ax        ; delete charwidth dots (move left)
  5807.     jnc    putct1            ; nc = ok
  5808.     mov    x_coord,0        ; limit to left margin
  5809. putct1:    cmp    bscontrol,0        ; non-destructive backspace?
  5810.     je    putctx            ; e = yes
  5811.     push    x_coord            ; destructive backspace
  5812.     mov    al,' '            ; a space to be written
  5813.     call    gputc            ; write it
  5814.     pop    x_coord            ; restore cursor
  5815.     ret
  5816.  
  5817. putct2:    cmp    al,TAB            ; tabs move forward one char position
  5818.     jne    putct4            ; ne = not a tab
  5819. ;;;    OR    X_COORD,7*8
  5820.     jmp    incx            ; let incx move cursor right one col
  5821.  
  5822. putct4:    cmp    al,CR            ; <CR> means go to beginning of line
  5823.     jne    putct5
  5824.     mov    x_coord,0        ; zero the x coordinate
  5825.     ret
  5826.  
  5827. putct5:    cmp    al,LF            ; <LF> means go down 8 pixels (1 line)
  5828.     jne    putct7            ; ne = not LF
  5829.     mov    ax,charhgt
  5830.     add    y_coord,ax        ; border managed by outscrn and incx
  5831.     ret
  5832.  
  5833. putct7:    cmp    al,VT            ; <VT> move up screen 1 line (8 pixels)
  5834.     jne    putctx
  5835.     mov    ax,charhgt        ; character height
  5836.     sub    y_coord,ax        ; subtract one line (charhgt pixels)
  5837.     jnc    putctx            ; nc = space left
  5838.     mov    y_coord,ax        ; else set to top of screen
  5839. putctx:    ret
  5840. putctrl    endp
  5841.  
  5842. mputc    proc    near            ; MONO put char in AL via Bios
  5843.     push    bx            ; updates x_coord,y_coord with
  5844.     push    cx            ; new cursor position
  5845.     push    dx
  5846.     xor    ah,ah            ; marker for cursor setting not needed
  5847.  
  5848. mputc1:    push    ax            ; save char and marker
  5849.     mov    cl,3            ; char cell is 8 x 8 dots
  5850.     mov    ax,x_coord        ; get resulting cursor PC positions
  5851.     shr    ax,cl
  5852.     mov    dl,al            ; column
  5853.     mov    ax,y_coord
  5854.     inc    ax
  5855.     sub    ax,charhgt        ; minus (charhgt-1) dots
  5856.     jnc    mputc2            ; nc = non-negative
  5857.     mov    ax,charhgt        ; else start at the top
  5858.     inc    ax
  5859.     mov    y_coord,ax        ; here too
  5860. mputc2:    shr    ax,cl
  5861.     mov    dh,al            ; row
  5862.     mov    ah,2            ; set cursor to x_coord,y_coord
  5863.     xor    bh,bh            ; page 0
  5864.     int    screen
  5865.     pop    ax
  5866.     or    ah,ah            ; write a char in al?
  5867.     jnz    mputcx            ; nz = no
  5868.     mov    ah,09h            ; write char at cursor postion
  5869.     mov    cx,1            ; just one char
  5870.     xor    bh,bh            ; page 0
  5871.     mov    bl,gfcol        ; foreground coloring
  5872.     int    screen
  5873.     inc    dl            ; next column
  5874.     mov    ah,2            ; set real cursor ahead of last char
  5875.     int    screen
  5876.     call    incx            ; move logical cursor
  5877. mputcx:    pop    dx
  5878.     pop    cx
  5879.     pop    bx
  5880.     ret
  5881. mputc    endp
  5882.  
  5883. incx    proc    near            ; move the logical cursor right
  5884.     mov    ax,xmax
  5885.     add    ax,8
  5886.     sub    ax,charwidth        ; last column+1
  5887.     cmp    ax,x_coord        ; beyond right most column?
  5888.     jae    incx1            ; ae = no
  5889.     mov    x_coord,ax        ; set up for wrap
  5890.     ret
  5891. incx1:    mov    ax,charwidth
  5892.     add    x_coord,ax        ; shift the (logical) cursor right
  5893.     ret                ;  one character cell
  5894. incx    endp
  5895.  
  5896. ; Character plot routine. Enter with BL holding char code
  5897. ; cx = number of bytes in char font, es:di = screen memory. Worker for gputc.
  5898. ; ccode: pixbak=plot in backgrd colors, pixfor=foregrd, pixxor=xor with screen
  5899. gcplot    proc    near
  5900.     mov    al,ccode        ; save original ccode and fill pattern
  5901.     mov    ah,fill
  5902.     push    ax
  5903.  
  5904.     push    cx
  5905.     push    ds
  5906.     push    es
  5907.     push    si
  5908.     push    di
  5909.     mov    di,seg dotbuf        ; destination buffer for font dots
  5910.     mov    es,di
  5911.     mov    di,offset dotbuf
  5912.     xor    bh,bh
  5913.     test    bl,80h            ; high bit set?
  5914.     jz    gcplot1            ; z = no
  5915.     lds    si,fontrptr        ; use GRight font set
  5916.     and    bl,not 80h        ; strip high bit now
  5917.     jmp    short gcplot2
  5918. gcplot1:lds    si,fontlptr        ; use GLeft font set
  5919. gcplot2:mov    ax,cx            ; char height (bytes per char)
  5920.     mul    bl            ; bytes into table for char in bl
  5921.     add    si,ax            ; offset into font by char
  5922.     cld
  5923.     rep    movsb            ; copy font dots to dotbuf
  5924.     pop    di
  5925.     pop    si
  5926.     pop    es
  5927.     pop    ds
  5928.     pop    cx
  5929.     xor    bx,bx            ; index into dotbuf
  5930. gcplot3:push    bx
  5931.     push    cx
  5932.     mov    al,dotbuf[bx]        ; get 8 bits from font
  5933.     mov    cx,si            ; x-axis in PC screen coordinates
  5934.     and    cl,0111b        ; bit in byte across the screen
  5935.     ror    al,cl            ; rotate pattern for gfplot filling
  5936.     mov    cx,charwidth        ; do charwidth bits on the line
  5937.     mov    fill,al            ; use "fill" as fill pattern
  5938.     call    gfplot            ; fill a scan line for cx bits
  5939.     call    pincy            ; next scan line (linelen is preset)
  5940.     pop    cx
  5941.     pop    bx
  5942.     inc    bx            ; next byte of char pattern
  5943.     loop    gcplot3
  5944.     pop    ax
  5945.     mov    ccode,al        ; recover variables
  5946.     mov    fill,ah
  5947.     ret
  5948. gcplot    endp
  5949.  
  5950. ; routines to manipulate ega graphics controller and mode register
  5951. ; command code in al, value in ah - destroys al and dx
  5952.      
  5953. ega_gc    proc    near            ; ega graphics controller
  5954.     mov    dx,3ceh
  5955.     out    dx,al            ; output command code
  5956.     inc    dx            ; dx is now data port
  5957.     mov    al,ah            ; get value to al
  5958.     out    dx,al            ; output value
  5959.     ret
  5960. ega_gc    endp
  5961. ega_md    proc    near            ; ega mode controller
  5962.     mov    dx,3c4h
  5963.     out    dx,al            ; output command code
  5964.     inc    dx            ; dx is now data port
  5965.     mov    al,ah            ; get value to al
  5966.     out    dx,al            ; output value
  5967.     ret
  5968. ega_md endp
  5969.      
  5970. ; Plot eight pixels using an EGA board
  5971. ; Enter with ES:[DI] pointing to screen address of byte,
  5972. ; bh has pattern of bits to be set, bl has attributes:
  5973. ;  pixbak = draw in background color, pixfor = draw in foreground color,
  5974. ;  pixor = OR with foreground color, pixxor = XOR with foreground color.
  5975. ; registers preserved
  5976. ; Note: this function operates on 8 pixels. One bits in bh select pixels to
  5977. ; be changed, bl determines which color planes will be affected for every
  5978. ; selected pixel.
  5979. ega_plt proc    near
  5980.     push    ax
  5981.     push    dx
  5982.     mov    dx,3ceh            ; (ega_gc) unprotect the bit positions
  5983.     mov    al,8            ; command to set bit mask register
  5984.     out    dx,al            ; output command code
  5985.     inc    dx            ; dx is now data port
  5986.     mov    al,bh            ; get pixels to be modified (1's)
  5987.     out    dx,al            ; output value (end of ega_gc)
  5988.     pop    dx
  5989.  
  5990.     mov    ah,gfcol        ; foreground color bit planes
  5991. ega1:    test    bl,pixfor+pixor        ; write foreground or OR?
  5992.     jnz    ega3            ; nz = yes
  5993.     mov    ah,gbcol        ; background color bit planes
  5994.     test    bl,pixbak        ; write in background coloring?
  5995.     jnz    ega3            ; nz = yes
  5996.     mov    ah,0fh            ; xor, touch each bit plane
  5997. ega3:    mov    al,es:[di]        ; latch byte
  5998.     mov    es:[di],ah        ; merge with untouched bits
  5999.     pop    ax
  6000.     ret
  6001. ega_plt endp
  6002.  
  6003. ; Presence test for Wyse-700: info in B000h and B800h are supposed to be equal
  6004. chkwyse    proc    near
  6005.     push    es
  6006.     push    ds
  6007.     mov    ax,0b800h        ; CGA segment
  6008.     mov    es,ax
  6009.     mov    ax,0b000h        ; Mono segment
  6010.     mov    ds,ax
  6011.     mov    ch,byte ptr es:[0]    ; CGA seg
  6012.     mov    cl,byte ptr ds:[0]    ; Mono seg
  6013.     push    cx            ; save original contents
  6014.     mov    byte ptr ds:[0],ch    ; copy CGA to Mono
  6015.     cmp    byte ptr ds:[0],ch    ; if different then not Wyse
  6016.     jne    chkwys1            ; ne = not Wyse
  6017.     not    byte ptr es:[0]        ; change CGA contents
  6018.     not    ch            ; and original pattern
  6019.     cmp    ch,byte ptr ds:[0]    ; if different then not Wyse
  6020.     jne    chkwys1            ; ne = not Wyse
  6021.     pop    cx
  6022.     mov    byte ptr es:[0],ch    ; restore CGA
  6023.     mov    byte ptr ds:[0],cl    ; restore Mono
  6024.     pop    ds
  6025.     pop    es
  6026.     clc
  6027.     ret
  6028.  
  6029. chkwys1:pop    cx
  6030.     mov    byte ptr es:[0],ch    ; restore CGA
  6031.     mov    byte ptr ds:[0],cl    ; restore Mono
  6032.     pop    ds
  6033.     pop    es
  6034.     stc
  6035.     ret
  6036. chkwyse    endp
  6037. ;
  6038. ; routine to set Wyse-700 board to graphics mode - 1280 * 800 & cls
  6039. ;
  6040. WYGRAF    PROC    NEAR
  6041.     push    ax
  6042.     push    bx            ; save used registers
  6043.     push    cx
  6044.     push    dx
  6045.     push    di
  6046.     xor    al,al
  6047.     mov    dx,wystoff        ; map video memory offset to zero
  6048.     out    dx,al            ;
  6049.     mov    dx,wystseg        ; map video memory segment to zero
  6050.     out    dx,al            ;
  6051.     mov    ax,segwyse        ; set es to Wyse start segment
  6052.     mov    es,ax            ;
  6053.     mov    al,wybeven        ; graph mode - even bank
  6054.     mov    dx,wymode        ; Wyse mode control register
  6055.     out    dx,al            ; select even bank
  6056.     cld
  6057.     xor    ax,ax            ; zero ax
  6058.     xor    di,di            ; start from zero
  6059.     mov    cx,0ffffh        ; clear 10000h bytes, whole even bank
  6060.     rep    stosb            ; store blanking char in whole screen
  6061.     mov    al,wybodd        ; graph mode - odd bank
  6062.     mov    dx,wymode        ; select it
  6063.     out    dx,al            ;
  6064.     xor    ax,ax            ; zero ax
  6065.     xor    di,di            ;
  6066.     mov    cx,0ffffh        ; clear 10000h bytes, whole odd bank
  6067.     rep    stosb            ; store blanking char in whole screen
  6068.     mov    bnkchan, 0        ; assume bank 0
  6069.     pop    di            ; restore regs
  6070.     pop    dx
  6071.     pop    cx
  6072.     pop    bx
  6073.     pop    ax
  6074.     ret
  6075. WYGRAF    ENDP
  6076.  
  6077. ; routine to set Hercules card to graphics mode - both pages are enabled
  6078.      
  6079. HGRAF    PROC    NEAR
  6080.     push    ax
  6081.     push    bx            ; save used registers
  6082.     push    cx
  6083.     push    si
  6084.     mov    al,grph            ; graph mode
  6085.     lea    si,gtable        ;  requires graphics table
  6086.     xor    bx,bx
  6087.     mov    cx,4000h        ; clear 4000h words
  6088.     test    gbcol,7            ; any (light) background color bits?
  6089.     jz    hgraf1            ; z = no, we are ok
  6090.     dec    bx            ; light background, set all the bits
  6091. hgraf1:    call    setmd            ; and set the mode
  6092.     pop    si
  6093.     pop    cx
  6094.     pop    bx
  6095.     pop    ax
  6096.     ret
  6097. HGRAF    ENDP
  6098.      
  6099. ; set Hercules card to text mode
  6100. HTEXT    PROC    NEAR
  6101.     push    ax
  6102.     push    bx
  6103.     push    cx
  6104.     push    si
  6105.     mov    al,text            ; text mode
  6106.     lea    si,ttable        ; requires text table
  6107.     mov    bx,0720h        ; blank value (space, white on black)
  6108.     mov    cx,2000            ; whole screen to clear (80*25)
  6109.     call    setmd            ; set the mode
  6110.     pop    si
  6111.     pop    cx
  6112.     pop    bx
  6113.     pop    ax
  6114.     ret
  6115. HTEXT    ENDP
  6116.      
  6117. ; Hercules mode set - called from HTEXT and HGRAF
  6118. SETMD    PROC    NEAR
  6119.     push    dx
  6120.     push    ax
  6121.     mov    dx,config        ; configuration port
  6122.     mov    al,genable        ; allow graphics mode to be set
  6123.     out    dx,al
  6124.     pop    ax
  6125.     push    ax
  6126.     push    cx            ; save count
  6127.     mov    dx,cntrl        ; control port
  6128.     out    dx,al            ; set to text or graphics
  6129.     mov    dx,index        ; send 12 bytes from table to 6845
  6130.     mov    cx,12            ; number of registers to load
  6131.     xor    ah,ah            ; start with register 0 of 6845
  6132.     cld
  6133. setmd1:    jmp    $+2            ; small pause for hardware
  6134.     mov    al,ah            ; ah is counter
  6135.     out    dx,al            ; set register
  6136.     inc    dx            ; point to data port
  6137.     lodsb                ; get next byte in table
  6138.     jmp    $+2            ; small pause for hardware
  6139.     out    dx,al            ; and send to 6845
  6140.     inc    ah            ; next register
  6141.     dec    dx            ; point to register port
  6142.     loop    setmd1            ; and continue 'til cx=0
  6143.     pop    cx            ; recover count
  6144.     cld
  6145.     push    di
  6146.     push    es
  6147.     mov    ax,segscn        ; start of screen
  6148.     mov    es,ax
  6149.     xor    di,di
  6150.     mov    ax,bx            ; get blanking character
  6151.     rep    stosw            ; store blanking char in whole screen
  6152.     pop    es
  6153.     pop    di
  6154.     mov    dx,cntrl        ; now to re-enable screen
  6155.     pop    ax            ; get mode
  6156.     or    al,scrn_on        ; enable screen
  6157.     out    dx,al
  6158.     pop    dx
  6159.     ret
  6160. SETMD    ENDP
  6161.      
  6162. teksave    proc    near        ; saves graphics screen from page 0 to page 1
  6163.     mov    temp,1        ; say saving from video to storage
  6164.     push    si
  6165.     push    di
  6166.     cmp    gpage,0        ; only graphics page 0 on display board?
  6167.     je    teksavx        ; e = yes, no saving possible here
  6168.     mov    si,segscn    ; segment (!) of current screen
  6169.     cmp    graph_mode,ega
  6170.     je    teksav1
  6171.     cmp    graph_mode,monoega
  6172.     je    teksav1
  6173.     cmp    graph_mode,colorega
  6174.     je    teksav1
  6175.     cmp    graph_mode,hercules
  6176.     je    teksav2
  6177.     jmp    short teksavx    ; else nothing
  6178. teksav1:mov    di,segega+800h    ; EGA page 1 screen segment
  6179.     call    egasr        ; call common save/restore code
  6180.     jmp    short teksavx
  6181. teksav2:mov    di,seghga+800h    ; Hercules page 1 screen segment
  6182.     call    hgasr        ; call common save/restore code
  6183. teksavx:pop    di
  6184.     pop    si
  6185.     ret
  6186. teksave    endp
  6187.  
  6188. tekrest    proc    near        ; restores graphics screen in page 1 to page 0
  6189.     mov    temp,-1        ; say restoring storage to video
  6190.     push    si
  6191.     push    di
  6192.     cmp    gpage,0        ; only graphics page 0 on display board?
  6193.      jne    tekres0        ; ne = no, more so work to do here
  6194.     call    tekcls1        ;  else clear the screen to color it
  6195.     jmp    short tekresx    ;  and exit
  6196. tekres0:mov    di,segscn    ; segment (!) of new graphics screen
  6197.     cmp    graph_mode,ega
  6198.     je    tekres1
  6199.     cmp    graph_mode,monoega
  6200.     je    tekres1
  6201.     cmp    graph_mode,colorega
  6202.     je    tekres1
  6203.     cmp    graph_mode,hercules
  6204.     je    tekres2
  6205.     jmp    short tekresx    ; else nothing
  6206. tekres1:mov    si,segega+800h    ; segment of EGA page 1
  6207.     call    egasr        ; call common save/restore code
  6208.     jmp    short tekresx
  6209. tekres2:mov    si,seghga+800h    ; segment of Hercules page 1
  6210.     call    hgasr        ; call common save/restore code
  6211. tekresx:pop    di
  6212.     pop    si
  6213.     ret
  6214. tekrest    endp
  6215.  
  6216. egasr    proc    near        ; common code for Tek ega save/restore ops
  6217.     push    ax
  6218.     push    cx
  6219.     push    dx
  6220.     mov    ax,0f00h    ; enable 4 plane set/resets
  6221.     call    ega_gc        ; set controller
  6222.     mov    ax,0f01h    ; enable Set/Reset register
  6223.     call    ega_gc
  6224.     mov    ax,0f02h    ; set color compare register for 4 planes
  6225.     call    ega_gc
  6226.     mov    ax,0905h    ; set mode reg: write latches, read mode
  6227.     call    ega_gc
  6228.     mov    ax,0ff02h    ; enable all planes
  6229.     call    ega_md
  6230.     mov    cx,ybot        ; last scan line
  6231.     inc    cx        ; number of scan lines
  6232.     mov    ax,80        ; bytes per scan line
  6233.     mul    cx
  6234.     mov    cx,ax
  6235.     push    es        ; save es
  6236.     push    ds        ; save ds
  6237.     call    gsems        ; try to store to/from expanded memory
  6238.     jnc    egasr1        ; nc = success
  6239.     mov    es,di        ; destination, set es to video memory
  6240.     mov    ds,si        ; source, set ds to video memory
  6241.     xor    si,si        ; clear offset fields
  6242.     xor    di,di
  6243.     cld            ; byte moves for ega adaptor
  6244.     rep    movsb        ; copy from page (ds:si) to page (es:di)
  6245. egasr1:    pop    ds        ; recover ds
  6246.     pop    es        ; and other registers
  6247.     call    gcreset        ; reset controller
  6248.     pop    dx
  6249.     pop    cx
  6250.     pop    ax
  6251.     ret
  6252. egasr    endp
  6253.  
  6254. ; Transfer video to/from EMS memory for EGA/VGA boards
  6255. ; SI is source seg, DI is dest seg, CX is pixel count, temp > 0 for saving
  6256. ; to ems, temp < 0 for saving to video memory.
  6257. ; Return carry set if failure, else carry clear
  6258. gsems    proc    near
  6259.     cmp    emsrbhandle,0        ; have rollback in expanded memory?
  6260.     jg    gsems1            ; g = yes, else use video memory
  6261.     stc
  6262.     ret
  6263. gsems1:    cmp    cx,emsbytes        ; same as last time used?
  6264.     je    gsems4            ; e = yes, use present allocation
  6265.     mov    ah,emsrelease        ; release handle and memory
  6266.     mov    dx,emsgshandle        ; handle
  6267.     or    dx,dx            ; is handle valid (>= 0)?
  6268.     jl    gsems1a            ; l = no
  6269.     int    emsint            ; ems interrupt
  6270. gsems1a:mov    emsgshandle,-1
  6271.     cmp    temp,0            ; is this a restore operation?
  6272.     jl    gsems1b            ; l = yes, absent ems screen
  6273.     mov    emsbytes,cx        ; remember qty pixel bytes
  6274.     mov    ax,cx
  6275.     add    ax,1000h-1        ; one ems page size/4 - 1 byte
  6276.     mov    cl,12            ; bits to slide
  6277.     shr    ax,cl            ; divide by 4000h bytes per ems page
  6278.     mov    cx,ax            ; save desired page count
  6279.     mov    ah,emsgetnpgs        ; get number 16KB pages free
  6280.     int    emsint            ; to bx
  6281.     cmp    bx,cx            ; ((640x480/8)*4)=153,6400B = 10 pages
  6282.     jae    gsems2            ; ae = have enough space
  6283. gsems1b:mov    emsbytes,0
  6284.     call    gcreset            ; reset controller
  6285.     call    tekcls            ; clear screen
  6286.     clc                ; fake success with fresh screen
  6287.     ret
  6288. gsems2:    mov    bx,cx            ; number of pages wanted
  6289.     mov    ah,emsalloc        ; allocate bx pages
  6290.     int    emsint
  6291.     or    ah,ah            ; successful?
  6292.     jz    gsems3            ; z = yes
  6293.     mov    emsbytes,0
  6294.     stc
  6295.     ret
  6296. gsems3:    mov    emsgshandle,dx        ; returned handle
  6297.     mov    ah,emsgetseg        ; get segment of page frame
  6298.     int    emsint            ;  to bx
  6299.     mov    emsseg,bx        ; save here
  6300.     mov    ah,emsgetver        ; get EMS version number
  6301.     int    emsint            ; to al (high=major, low=minor)
  6302.     cmp    al,40h            ; at least LIM 4.0?
  6303.     jb    gsems4            ; b = no, so no name for our area
  6304.     push    si
  6305.     push    di
  6306.     mov    si,offset emsgsname    ; point to name for graphics area
  6307.     mov    di,offset emsgsname+6    ; add digits
  6308.     mov    ax,emsgshandle
  6309.     call    dec2di            ; write to handle name
  6310.     mov    byte ptr [di],' '    ; must end in a space
  6311.     mov    dx,emsgshandle
  6312.     mov    ax,emssetname        ; set name for handle from ds:si
  6313.     int    emsint
  6314.     pop    di
  6315.     pop    si
  6316.  
  6317. gsems4:    call    gcreset            ; reset controller
  6318.     mov     ax,0005h         ; read mode 0, write mode 0
  6319.     call    ega_gc
  6320.     cmp    temp,0            ; get direction of saving/restoring
  6321.     jl    gsems7            ; l = restore (storage to video)
  6322.                     ; Save (video to ems)
  6323.     mov    ax,emsseg        ; get ems segment
  6324.     mov    es,ax            ; set destination
  6325.     mov    ds,si            ; save (video to storage)
  6326.     xor    bx,bx            ; page 0
  6327.     call    getpage            ; get EMS page bx
  6328.     xor    di,di            ; start of page frame
  6329.     mov    cx,4            ; plane loop
  6330.     
  6331. gsems4a:push    cx            ; save plane counter
  6332.     call    selplane        ; select plane in cl (1..4)
  6333.     push    ds
  6334.     mov    cx,seg emsbytes
  6335.     mov    ds,cx
  6336.     mov    cx,emsbytes        ; pixel counter
  6337.     pop    ds
  6338.     xor    si,si            ; start of video buffer
  6339.  
  6340. gsems5:    mov    ax,cx            ; save total byte count
  6341.     cmp    cx,dx            ; larger than one page?
  6342.     jbe    gsems6            ; be = no
  6343.     mov    cx,dx            ; one page
  6344. gsems6:    sub    ax,cx            ; ax is bytes remaining to do
  6345.     sub    dx,cx            ; bytes to be used in EMS page
  6346.     cld
  6347.     rep    movsb            ; video to ems page
  6348.     mov    cx,ax            ; pixels to do
  6349.     or    dx,dx            ; EMS bytes left in page?
  6350.     jnz    gsems6a            ; nz = yes
  6351.     inc    bx            ; next ems page
  6352.     call    getpage
  6353.     xor    di,di            ; start of page
  6354. gsems6a:inc    cx            ; inc for loop dec below
  6355.     loop    gsems5            ; do all pixels
  6356.  
  6357.     pop    cx            ; recover plane counter
  6358.     loop    gsems4a            ; do next plane
  6359.     clc
  6360.     ret
  6361.                     ; copy from ems to video
  6362. gsems7:    mov    es,di            ; destination segment (video)
  6363.     mov    ax,emsseg        ; get ems segment
  6364.     mov    ds,ax            ; set source
  6365.     xor    bx,bx            ; page
  6366.     call    getpage            ; get EMS page bx
  6367.     xor    si,si            ; start of frame buffer
  6368.     mov    cx,4            ; plane counter
  6369.  
  6370. gsems7a:push    cx            ; save plane counter
  6371.     call    selplane        ; select plane in cl (1..4)
  6372.     push    ds
  6373.     mov    cx,seg emsbytes
  6374.     mov    ds,cx
  6375.     mov    cx,emsbytes        ; pixel counter
  6376.     pop    ds
  6377.     xor    di,di            ; start of video buffer
  6378.  
  6379. gsems8:    mov    ax,cx            ; save total byte count
  6380.     cmp    cx,dx            ; larger than this page can hold?
  6381.     jbe    gsems9            ; be = no
  6382.     mov    cx,dx            ; use value available
  6383. gsems9:    sub    ax,cx            ; ax is bytes remaining to do
  6384.     sub    dx,cx            ; bytes to be used in EMS page
  6385.     cld
  6386.     rep    movsb            ; EMS page to video
  6387.     mov    cx,ax            ; pixels to do
  6388.     or    dx,dx            ; EMS bytes left in page?
  6389.     jnz    gsems9a            ; nz = yes
  6390.     inc    bx            ; next ems page
  6391.     call    getpage
  6392.     xor    si,si            ; start of page
  6393. gsems9a:inc    cx            ; inc for loop dec below
  6394.     loop    gsems8            ; do all pixels
  6395.  
  6396.     pop    cx            ; recover plane counter
  6397.     loop    gsems7a            ; do next plane
  6398.     clc
  6399.     ret
  6400. gsems    endp
  6401.  
  6402. ; Get EMS logical page BX into EMS physical page 0
  6403. ; Returns in DX the number of free bytes (16KB). Modifies AX
  6404. getpage    proc    near
  6405.     push    ds
  6406.     mov    ax,seg emsgshandle
  6407.     mov    ds,ax
  6408.     mov    ah,emsmapmem        ; map logical page in bx
  6409.     xor    al,al            ;  to physical page zero
  6410.     mov    dx,emsgshandle        ; our ems handle
  6411.     int    emsint
  6412.     mov    dx,4000h        ; bytes in this page
  6413.     pop    ds
  6414.     ret
  6415. getpage    endp
  6416.  
  6417. ; Select EGA video plane in cl (1..4) for r/w
  6418. selplane proc    near
  6419.     push    cx
  6420.     push    dx
  6421.     dec    cl            ; count planes as 0..3
  6422.     and    cl,3            ; range bound (planes 0..3)
  6423.     mov    ah,cl            ; binary value for read map select
  6424.     mov    al,4            ; read map select register
  6425.     call    ega_gc            ; set read map plane
  6426.     mov    ah,1            ; convert to plane number
  6427.     shl    ah,cl            ; convert plane number to bit position
  6428.     mov    al,2            ; map mask register
  6429.     call    ega_md            ; select plane for writing
  6430.     pop    dx
  6431.     pop    cx
  6432.     ret
  6433. selplane endp
  6434.  
  6435. ; Reset EGA board prior to video<->ems copying
  6436. gcreset proc    near
  6437.     push    ax
  6438.     push    dx
  6439.     mov    ax,0ff08h    ; bit mask reg to all 8 bits
  6440.     call    ega_gc
  6441.     mov    ax,0003h    ; direct write
  6442.     call    ega_gc            
  6443.     mov    ax,0004h    ; read map select to map 0
  6444.     call    ega_gc
  6445.     mov    ax,0000h    ; set/reset latches
  6446.     call    ega_gc
  6447.     mov    ax,0001h    ; set/reset enable, disable
  6448.     call    ega_gc
  6449.     mov    ax,0f02h    ; enable all planes for write
  6450.     call    ega_md
  6451.     pop    dx
  6452.     pop    ax
  6453.     ret
  6454. gcreset endp
  6455.  
  6456. hgasr    proc    near        ; Hercules save restore screen
  6457.     push    cx
  6458.     mov    cx,4000h    ; number of words to move
  6459.     push    es        ; save es
  6460.     push    ds        ; save ds
  6461.     mov    es,di        ; destination, set es to video memory
  6462.     mov    ds,si        ; source, set ds to video memory
  6463.     xor    si,si        ; clear offset fields
  6464.     xor    di,di
  6465.     cld
  6466.     rep    movsw        ; copy from page [si] to page [di]
  6467.     pop    ds        ; recover ds
  6468.     pop    es        ; and other registers
  6469.     pop    cx
  6470.     ret
  6471. hgasr    endp
  6472.  
  6473. dump    proc    FAR            ; Write screen as TIFF v5.0 file
  6474.     push    ax
  6475.     push    bx
  6476.     push    cx
  6477.     push    dx
  6478.     push    si
  6479.     push    di
  6480.     call    remcursor        ; remove the cursor from the screen
  6481.     mov    si,offset dumpname    ; name of dump file
  6482.     mov    di,offset rdbuf        ; destination
  6483.     push    es
  6484.     push    ds
  6485.     pop    es
  6486.     mov    cx,dumplen        ; length of dump name
  6487.     cld
  6488.     rep    movsb            ; copy it, asciiz
  6489.     pop    es
  6490.     mov    ax,offset rdbuf        ; address to ax for unique
  6491.     call    tunique            ; get unique name into ax
  6492.     mov    dx,ax            ; ds:dx is asciiz filename
  6493.     xor    cx,cx            ; normal attributes
  6494.     mov    ah,creat2        ; create the file
  6495.     int    dos
  6496.     jc    dmp3            ; c = failure
  6497. dmp1:    mov    dhandle,ax        ; file handle
  6498.     call    dmpdate            ; do time stamp
  6499.     cmp    plotptr,offset pltcga    ; using CGA style graphics?
  6500.     jne    dmp2            ; ne = no
  6501.     call    cgadmp            ; do CGA style dump routine
  6502.     jmp    short dmp3
  6503. dmp2:    call    egadmp
  6504. dmp3:    jnc    dmp5            ; nc = successful dump
  6505.     mov    cx,4
  6506. dmp4:    push    cx
  6507.     call    tekbeep            ; make a noise
  6508.     mov    ax,250            ; wait 250ms
  6509.     call    tekwait
  6510.     pop    cx
  6511.     loop    dmp4            ; four beeps
  6512. dmp5:    mov    cursorst,1        ; pretend cursor was on
  6513.     call    remcursor        ; restore the cursor to the screen
  6514.     mov    cursorst,1        ; say it is on
  6515.     pop    di
  6516.     pop    si
  6517.     pop    dx
  6518.     pop    cx
  6519.     pop    bx
  6520.     pop    ax
  6521.     ret
  6522. dump    endp
  6523.  
  6524. ; CGA TIFF 5.0 screen-to-file dump routine
  6525. cgadmp    proc    near
  6526.     push    es            ; do the bookkeeping math first
  6527.     mov    bps.entval,1        ; bits/sample, mono
  6528.     mov    photo.entval,1        ; mono, one bit after the other
  6529.     mov    word ptr cmap.entcnt,0    ; no palette color map entries
  6530.     mov    ax,xmax            ; image width - 8 pixels
  6531.     add    ax,8            ; plus 8, for pixels per line
  6532.     mov    iwidth.entval,ax    ; store in directory
  6533.     mov    xresval,ax        ; x resolution
  6534.     mov    xresval+2,0        ; high order part
  6535.     mov    ax,ybot            ; lines per screen - 1
  6536.     inc    ax            ; lines per screen
  6537.     mov    ilength.entval,ax    ; image length, scan lines
  6538.     mov    yresval,ax        ; y resolution
  6539.     mov    yresval+2,0        ; high order part
  6540.     mov    cx,25            ; try dividing into this many strips
  6541. cgadmp5:xor    dx,dx            ; image pixels
  6542.     mov    ax,yresval        ; number of scan lines
  6543.     div    cx            ; try dividing into 25 strips,ax=quo
  6544.     or    dx,dx            ; did we get null remainder?
  6545.     loopnz    cgadmp5            ; nz = no, try again with fewer strips
  6546.     inc    cx            ; inc for dec by loop, cx = # strips
  6547.     mov    word ptr strip.entcnt,cx ; store number of strips
  6548.     mov    word ptr sbc.entcnt,cx    ; store number of strip byte counts
  6549.     mov    rps.entval,ax        ; rows per strip
  6550.     push    cx
  6551.     mov    cx,iwidth.entval    ; dots per line (row)
  6552.     shr    cx,1            ; get bytes/row
  6553.     shr    cx,1
  6554.     shr    cx,1
  6555.     mul    cx            ; rows/strip * bytes/row = bytes/strip
  6556.     pop    cx
  6557.     push    cx            ; save strip count for loop below
  6558.     push    ds            ; ax = bytes per strip
  6559.     pop    es            ; es:di to our data segment
  6560.     mov    di,offset stripbc    ; where to write strip byte counts
  6561.     cld
  6562.     rep    stosw            ; write ax as bytes/strip, cx times
  6563.     pop    cx            
  6564.     mov    dx,ax            ; bytes/strip = increment, put here
  6565.     mov    di,offset stripoff    ; where we write
  6566.     mov    ax,offset pixdata-offset header ; where first strip starts
  6567. cgadmp4:stosw                ; write strip file offset
  6568.     mov    word ptr [di],0        ; high order part
  6569.     add    di,2            ; next double word
  6570.     add    ax,dx            ; next file strip offset
  6571.     loop    cgadmp4            ; do all strip offsets
  6572.                     ; file i/o starts here
  6573.     mov    bx,dhandle        ; dump's file handle
  6574.     mov    dx,offset header    ; write TIFF header and directory
  6575.     mov    cx,tifflen        ; length of header plus directory
  6576.     mov    ah,write2
  6577.     int    dos
  6578.     jc    cgadmp2            ; c = failure
  6579.     xor    di,di            ; start at y = top
  6580.     call    psetup            ; setup cga and di
  6581.     mov    cx,ybot            ; number of scan lines-1
  6582.     inc    cx            ; number of scan lines
  6583. cgadmp1:push    cx
  6584.     mov    cx,iwidth.entval    ; dots per line (row)
  6585.     shr    cx,1            ; get bytes/row
  6586.     shr    cx,1
  6587.     shr    cx,1            ; line length, bytes
  6588.     mov    dx,di            ; offset in screen buffer
  6589.     mov    bx,dhandle        ; file handle
  6590.     push    ds
  6591.     mov    ax,segscn        ; screen seg
  6592.     mov    ds,ax
  6593.     mov    ah,write2        ; write directly from screen memory
  6594.     int    dos
  6595.     pop    ds
  6596.     jc    cgadmp2            ; c = failure
  6597.     call    pincy            ; next line down, y = y + 1
  6598.     pop    cx
  6599.     loop    cgadmp1            ; do all scan lines
  6600. cgadmp2:mov    ah,close2        ; close the file
  6601.     int    dos
  6602.     mov    dhandle,-1        ; set handle to unused
  6603.     pop    es
  6604.     ret
  6605. cgadmp    endp
  6606.  
  6607. ; EGA TIFF 5.0 screen-to-file dump routine
  6608. egadmp    proc    near
  6609.     push    es            ; do the bookkeeping math first
  6610.     mov    bps.entval,4        ; bits/sample, iRGB
  6611.     mov    photo.entval,3        ; photo interp, palette
  6612.     mov    word ptr cmap.entcnt,3*16 ; palette color map entries
  6613.     mov    ax,xmax            ; image width - 8 pixels
  6614.     add    ax,8            ; plus 8, for pixels per line
  6615.     mov    iwidth.entval,ax    ; store in directory
  6616.     mov    xresval,ax        ; x resolution
  6617.     mov    xresval+2,0        ; high order part
  6618.     mov    ax,ybot            ; lines per screen - 1
  6619.     inc    ax            ; lines per screen
  6620.     mov    ilength.entval,ax    ; image length, scan lines
  6621.     mov    yresval,ax        ; y resolution
  6622.     mov    yresval+2,0        ; high order part
  6623.     mov    cx,25            ; try dividing into this many strips
  6624. egadmp10:xor    dx,dx            ; image pixels
  6625.     mov    ax,yresval        ; number of scan lines
  6626.     div    cx            ; try dividing into 25 strips, ax=quo
  6627.     or    dx,dx            ; did we get null remainder?
  6628.     loopnz    egadmp10        ; nz = no, try again with fewer strips
  6629.     inc    cx            ; inc for dec by loop, cx = # strips
  6630.     mov    word ptr strip.entcnt,cx ; store number of strips
  6631.     mov    word ptr sbc.entcnt,cx    ; store number of strip byte counts
  6632.     mov    rps.entval,ax        ; rows per strip
  6633.     shl    ax,1
  6634.     shl    ax,1            ; times 4 bits / pixel
  6635.     push    cx
  6636.     mov    cx,iwidth.entval    ; dots per line (row)
  6637.     shr    cx,1            ; get bytes/row
  6638.     shr    cx,1
  6639.     shr    cx,1
  6640.     mul    cx            ; rows/strip * bytes/row = bytes/strip
  6641.     pop    cx
  6642.     push    cx            ; save strip count for loop below
  6643.     push    ds            ; ax = bytes per strip
  6644.     pop    es            ; es:di to our data segment
  6645.     mov    di,offset stripbc    ; where to write strip byte counts
  6646.     cld
  6647.     rep    stosw            ; write ax as bytes/strip, cx times
  6648.     pop    cx            
  6649.     mov    dx,ax            ; bytes/strip = increment, put here
  6650.     mov    di,offset stripoff    ; where we write
  6651.     mov    ax,offset pixdata-offset header ; where first strip starts
  6652.     xor    bx,bx
  6653. egadmp11:stosw                ; write strip file offset
  6654.     mov    es:[di],bx        ; high order part
  6655.     add    di,2            ; next double word
  6656.     add    ax,dx            ; next file strip offset
  6657.     adc    bx,0
  6658.     loop    egadmp11        ; do all strip offsets
  6659.                     ; screen to file i/o starts here
  6660.     mov    bx,dhandle        ; dump's file handle
  6661.     mov    dx,offset header    ; write TIFF header and directory
  6662.     mov    cx,tifflen        ; length of header plus directory
  6663.     mov    ah,write2
  6664.     int    dos
  6665.     jnc    egadmp12
  6666.     jmp    egadmp9            ; c = failure
  6667. egadmp12:
  6668.     xor    di,di            ; start at y = top
  6669.     call    psetup            ; setup adapter and es:di
  6670.     xor    di,di
  6671.     mov    bx,offset rdbuf        ; set buffer address
  6672.     mov    cx,ybot            ; number of scan lines-1
  6673.     inc    cx            ; number of scan lines
  6674. egadmp1:push    cx            ; save scan line counter
  6675.     mov    cx,iwidth.entval    ; dots per line (row)
  6676.     shr    cx,1            ; get bytes/row
  6677.     shr    cx,1
  6678.     shr    cx,1            ; 8*dots across the screen (640)
  6679. egadmp2:push    cx            ; save counter of inner loops
  6680.     mov    cx,4            ; number of planes to do
  6681.     mov    word ptr [bx],0        ; clear the four bytes for this loop
  6682.     mov    word ptr [bx+2],0
  6683. egadmp3:push    cx            ; save plane counter
  6684.     push    bx            ; don't advance buffer pointer here
  6685.     mov    dx,3ceh            ; (ega_gc)
  6686.     mov    al,4            ; command to select read map register
  6687.     out    dx,al            ; output command code
  6688.     inc    dx            ; dx is now data port
  6689.     mov    al,cl            ; do planes 3(I), then 2(R),1(G),0(B)
  6690.     dec    al            ; cx is one higher than plane
  6691.     out    dx,al            ; output value (end of ega_gc)
  6692.     mov    al,es:[di]        ; latch byte
  6693.                     ; got 8 bits from a plane
  6694.     mov    cx,4            ; do this for four output bytes
  6695. egadmp4:mov    ah,[bx]            ; eventually iRGB in each nibble
  6696.     shl    al,1            ; get left most pixel bit in plane
  6697.     jnc    egadmp5
  6698.     or    ah,8            ; set high nibble least sig bit
  6699. egadmp5:shl    al,1            ; odd numbered pixel
  6700.      rcl    ah,1            ; set low nibble least sig bit if c
  6701.     mov    [bx],ah
  6702.     inc    bx            ; next byte
  6703.     loop    egadmp4            ; do all four bytes
  6704.  
  6705.     pop    bx
  6706.     pop    cx            ; restore plane counter
  6707.     loop    egadmp3            ; do all planes
  6708.  
  6709.     inc    di            ; next screen memory address
  6710.     add    bx,4            ; just did four bytes
  6711.     cmp    bx,offset rdbuf+80    ; at end of 80 bytes?
  6712.     jb    egadmp6            ; b = no
  6713.     call    egadmpw            ; write the buffer
  6714.     mov    bx,offset rdbuf        ; reset buffer address
  6715.     jnc    egadmp6            ; nc = success
  6716.     pop    cx            ; clean stack
  6717.     pop    cx
  6718.     jmp    egadmp9            ; error
  6719.  
  6720. egadmp6:pop    cx            ; recover bytes per line counter
  6721.     loop    egadmp2            ; next group across scan line
  6722.     pop    cx            ; recover scan line counter
  6723.     loop    egadmp1            ; do next scan line
  6724.     call    egadmpw            ; flush the buffer for last scan line
  6725. egadmp9:mov    ah,close2        ; close the file
  6726.     mov    bx,dhandle
  6727.     int    dos
  6728.     mov    dhandle,-1        ; set handle to unused
  6729.     xor    di,di
  6730.     call    psetup
  6731.     pop    es
  6732.     ret
  6733.                        ; local worker
  6734. egadmpw:push    bx            ; write tempbuf from start to [bx-1]
  6735.     push    cx
  6736.     mov    dx,offset rdbuf        ; work buffer
  6737.     mov    cx,bx            ; buffer pointer to next free byte
  6738.     sub    cx,dx            ; buffer size to write
  6739.     cmp    cx,0
  6740.     jle    egadmpw1        ; le = nothing to write
  6741.     mov    bx,dhandle        ; file handle
  6742.     mov    ah,write2        ; write cx bytes from rdbuf
  6743.     int    dos
  6744.     jc    egadmpw2        ; c = error
  6745.     cmp    ax,cx            ; wrote all?
  6746.     jne    egadmpw2        ; ne = no
  6747. egadmpw1:clc                ; clc
  6748.     pop    cx
  6749.     pop    bx
  6750.     ret
  6751. egadmpw2:stc                ; carry set for failure
  6752.     pop    cx
  6753.     pop    bx
  6754.     ret
  6755. egadmp    endp
  6756.  
  6757. ; Worker. Write Kermit version and current date and time in TIFF header
  6758. dmpdate    proc    near
  6759.     mov    di,offset prog+10    ; place for version in prog field
  6760.     mov    ax,version        ; Kermit version
  6761.     call    dec2di            ; write the version
  6762.     mov    ah,getdate        ; DOS date (cx= yyyy, dh= mm, dl= dd)
  6763.     int    dos
  6764.     mov    di,offset dandt        ; where to write
  6765.     mov    ax,cx            ; get yyyy
  6766.     push    dx
  6767.     call    dec2di            ; write to buffer
  6768.     pop    dx
  6769.     mov    byte ptr [di],':'
  6770.     inc    di
  6771.     mov    al,dh            ; mm
  6772.     cmp    al,10            ; leading digit?
  6773.     jae    dmpdat1            ; ae = yes
  6774.     mov    byte ptr [di],'0'    ; make our own
  6775.     inc    di
  6776. dmpdat1:xor    ah,ah
  6777.     push    dx
  6778.     call    dec2di
  6779.     mov    byte ptr [di],':'
  6780.     pop    dx
  6781.     inc    di
  6782.     mov    al,dl            ; dd
  6783.     cmp    al,10            ; leading digit?
  6784.     jae    dmpdat2            ; ae = yes
  6785.     mov    byte ptr [di],'0'    ; make our own
  6786.     inc    di
  6787. dmpdat2:xor    ah,ah
  6788.     call    dec2di
  6789.     mov    byte ptr [di],' '
  6790.     inc    di
  6791.     mov    ah,gettim        ; DOS tod (ch=hh, cl=mm, dh=ss, dl=.s)
  6792.     int    dos
  6793.     push    dx            ; save dx
  6794.     xor    ah,ah
  6795.     mov    al,ch            ; Hours
  6796.     cmp    al,10            ; leading digit?
  6797.     jae    dmpdat3            ; ae = yes
  6798.     mov    byte ptr [di],'0'    ; make our own
  6799.     inc    di
  6800. dmpdat3:push    cx
  6801.     call    dec2di            ; write decimal asciiz to buffer
  6802.     pop    cx
  6803.     mov    byte ptr [di],':'
  6804.     inc    di
  6805.     xor    ah,ah
  6806.     mov    al,cl            ; Minutes
  6807.     cmp    al,10            ; leading digit?
  6808.     jae    dmpdat4            ; ae = yes
  6809.     mov    byte ptr [di],'0'    ; make our own
  6810.     inc    di
  6811. dmpdat4:call    dec2di            ; write decimal asciiz to buffer
  6812.     mov    byte ptr [di],':'
  6813.     inc    di
  6814.     pop    dx
  6815.     xor    ah,ah
  6816.     mov    al,dh            ; Seconds
  6817.     cmp    al,10            ; leading digit?
  6818.     jae    dmpdat5            ; ae = yes
  6819.     mov    byte ptr [di],'0'    ; make our own
  6820.     inc    di
  6821. dmpdat5:call    dec2di            ; write decimal asciiz to buffer
  6822.     inc    di
  6823.     ret
  6824. dmpdate    endp
  6825.  
  6826. ; Read 8x14 GRight font for current Code Page from DOS file EGA.CPI to 
  6827. ; array fontgright. Returns carry set if failed.
  6828. getfont proc    near
  6829.     mov    ax,offset fontfile    ; EGA.CPI filename
  6830.     call    fspath            ; search path for it
  6831.     jnc    getfont1        ; nc = found, ax has full path
  6832.     ret                ; not found, fail
  6833. getfont1:mov    dx,ax            ; point to name from spath
  6834.     mov    ah,open2        ; open file
  6835.     xor    al,al            ; 0 = open for reading
  6836.     cmp    dosnum,300h        ; at or above DOS 3?
  6837.     jb    getfont2        ; b = no, so no shared access
  6838.     or    al,40h            ; open for reading, deny none
  6839. getfont2:int    dos
  6840.     jnc    getfont3        ; nc = success
  6841.     ret                ; failure
  6842.  
  6843. getfont3:mov    temp,ax            ; file handle
  6844.     mov    bx,ax            ; handle
  6845.     mov    cx,23            ; read "head" information, 23 bytes
  6846.     mov    dx,offset stripoff    ; ds:dx = temp work buffer
  6847.     mov    ah,readf2        ; read file
  6848.     int    dos
  6849.     jnc    getfont4        ; nc = successful read
  6850. getfont3a:jmp    getfont12        ; fail
  6851.  
  6852. getfont4:cmp    byte ptr stripoff,0ffh    ; file signature
  6853.     jne    getfont3a        ; ne = not a CPI file internally
  6854.     mov    dx,word ptr stripoff[19] ; offset of word "info"
  6855.     mov    cx,word ptr stripoff[21] ; high order part
  6856.     mov    ah,lseek
  6857.     xor    al,al            ; seek from BOF
  6858.     int    dos
  6859.     mov    cx,2            ; read a word
  6860.     mov    dx,offset stripoff
  6861.     mov    ah,readf2
  6862.     int    dos
  6863.     mov    di,word ptr stripoff    ; number of Code Page entities
  6864.  
  6865. getfont6:mov    bx,temp            ; handle
  6866.     mov    cx,128            ; buffer with font info
  6867.     mov    dx,offset stripoff
  6868.     mov    ah,readf2
  6869.     int    dos
  6870.     cmp    word ptr stripoff[8],'GE' ; "EGA"?
  6871.     jne    getfont7        ; ne = no, keep looking
  6872.     mov    dx,vtcpage        ; current Code Page
  6873.     cmp    word ptr stripoff[16],dx ; Code Page ident, same?
  6874.     je    getfont8        ; e = yes
  6875. getfont7:mov    dx,word ptr stripoff[2] ; ptr to next CP entry
  6876.     mov    cx,word ptr stripoff[4] ; high order part
  6877.     mov    bx,temp            ; file handle for seeking
  6878.     mov    ah,lseek
  6879.     xor    al,al            ; seek from BOF
  6880.     int    dos
  6881.     dec    di            ; one less Code Page
  6882.     cmp    di,0            ; done all?
  6883.     jg    getfont6        ; g = no, get next header
  6884.     stc                ; failed to find CP material
  6885.     jmp    getfont12        ; fail
  6886.                     ; found CP section, find fonts
  6887. getfont8:mov    dx,word ptr stripoff[24]  ; offset of fonts data
  6888.     mov    cx,word ptr stripoff[26]  ; high order part
  6889.     mov    ah,lseek
  6890.     xor    al,al            ; seek from BOF
  6891.     int    dos
  6892.     mov    bx,temp            ; handle
  6893.     mov    cx,6            ; read font's "dathead"
  6894.     mov    dx,offset stripoff
  6895.     mov    ah,readf2
  6896.     int    dos
  6897.     mov    di,word ptr stripoff[2] ; number of fonts in this CP item
  6898.  
  6899. getfont9:mov    bx,temp            ; handle
  6900.     mov    cx,6            ; read fonthead: hgt,width,0,0,# chars
  6901.     mov    dx,offset stripoff
  6902.     mov    ah,readf2
  6903.     int    dos
  6904.     mov    ax,word ptr stripoff    ; cell height (low byte)
  6905.     push    ax            ; save for test below
  6906.     mov    cl,ah            ; cell width (typically 8)
  6907.     mul    cl            ; number of bytes per char
  6908.     mul    word ptr stripoff[4]    ; number chars in table=bits to skip
  6909.     mov    cx,8            ; divide by 8 for bytes, hope is ok
  6910.     div    cx
  6911.     xor    cx,cx            ; high part, for lseek
  6912.     mov    dx,ax            ; low part (whole bytes)
  6913.     pop    ax
  6914.     cmp    ax,8*256+14         ; is this font 14x8?
  6915.     je    getfont10        ; e = yes, that is what we want
  6916.     mov    bx,temp            ; handle
  6917.     mov    ah,lseek
  6918.     mov    al,1            ; seek from current position
  6919.     int    dos
  6920.     dec    di            ; one less font in this CP section
  6921.     cmp    di,0            ; done all?
  6922.     jg    getfont9        ; g = no
  6923.     stc
  6924.     jmp    short getfont12        ; fail
  6925.                     ; read the 8x14 patterns
  6926. getfont10:mov    dx,128*14        ; bytes in GLeft patterns (128 chars)
  6927.     xor    cx,cx
  6928.     mov    bx,temp            ; handle
  6929.     mov    ah,lseek
  6930.     mov    al,1            ; seek from current position
  6931.     int    dos
  6932.                     ; malloc memory for font table
  6933.     mov    bx,(128*14)/16        ; paragraphs for 128*14 bytes
  6934.     mov    cx,bx            ; remember desired paragraphs
  6935.     mov    ah,alloc        ; allocate a memory block
  6936.     int    dos
  6937.     jc    getfont12        ; c = error, not enough memory
  6938.      cmp    bx,cx            ; obtained vs wanted
  6939.     jae    getfont11        ; ae = enough
  6940.     mov    es,ax            ; allocated segment
  6941.     mov    ah,freemem        ; free it
  6942.     int    dos
  6943.     jmp    short getfont12        ; quit here
  6944.  
  6945. getfont11:mov    word ptr fontrptr+2,ax    ; address of allocated memory
  6946.     mov    word ptr fontrptr,0    ; offset is zero
  6947.     mov    cx,128*14        ; bytes in GRight patterns
  6948.     mov    bx,temp            ; handle
  6949.     push    ds
  6950.     mov    ds,ax
  6951.     xor    dx,dx            ; ds:dx is buffer, from malloc
  6952.     mov    ah,readf2
  6953.     int    dos
  6954.     pop    ds
  6955.     jnc    getfont12        ; nc = success
  6956.     mov    ax,word ptr fontrptr+2    ; get segment
  6957.     mov    es,ax            ; allocated segment
  6958.     mov    ah,freemem        ; free it
  6959.     int    dos
  6960.     stc                ; say failure
  6961. getfont12:pushf                ; save carry bit
  6962.     mov    bx,temp            ; handle
  6963.     mov    ah,close2        ; close file
  6964.     int    dos
  6965.     popf
  6966.     ret
  6967. getfont endp
  6968.  
  6969. ; Dispatch table processor. Enter with BX pointing at table of {char count,
  6970. ; address of action routines, characters}. Jump to matching routine or return.
  6971. ; Enter with AL holding received Final char.
  6972. atdispat proc near
  6973.     mov    cl,[bx]            ; get table length from first byte
  6974.     xor    ch,ch
  6975.     mov    di,bx            ; main table
  6976.     add    di,3            ; point di at first char in table
  6977.     push    es
  6978.     push    ds
  6979.     pop    es            ; use data segment for es:di below
  6980.     cld                ; set direction forward
  6981.     repne    scasb            ; find matching character
  6982.     pop    es
  6983.     je    atdisp2            ; e = found a match, get action addr
  6984.     cmp    al,' '            ; control char?
  6985.     jb    atdisp1            ; b = yes
  6986.     ret                ; ignore escape sequence
  6987. atdisp1:jmp    tekctl            ; process control char
  6988. atdisp2:sub    di,bx            ; distance scanned in table
  6989.     sub    di,4            ; skip count byte, address word, inc
  6990.     shl    di,1            ; convert to word index
  6991.     inc    bx            ; point to address of action routines
  6992.     mov    bx,[bx]            ; get address of action table
  6993.     jmp    word ptr [bx+di]    ; dispatch to the routine
  6994. atdispat endp
  6995.  
  6996. ansich    proc    near            ; insert Pn spaces at and after cursor
  6997.     mov    cx,param        ; get Pn
  6998.     or    cx,cx
  6999.     jnz    ansich1            ; got a value
  7000.     inc    cx            ; zero means one
  7001. ansich1:push    x_coord
  7002.     push    y_coord
  7003.     and    x_coord,not 7        ; modulo 8x8 cells
  7004.     mov    ax,xmax            ; start of last cell
  7005.     sub    ax,x_coord        ; start of current cell
  7006.     shr    ax,1            ; divide by 8 dots per char
  7007.     shr    ax,1
  7008.     shr    ax,1
  7009.     cmp    ax,cx            ; want more spaces than are on line?
  7010.     jae    ansich2            ; ae = no
  7011.     mov    cx,ax            ; clip to right margin
  7012.     jcxz    ansich3            ; z = nothing to do
  7013. ansich2:push    cx
  7014.     mov    al,' '            ; a space
  7015.     call    putc            ; write to screen
  7016.     pop    cx
  7017.     loop    ansich2            ; do them
  7018. ansich3:pop    x_coord
  7019.     pop    y_coord
  7020.     call    remcursor        ; remove text cursor symbol
  7021.     call    setcursor        ; draw cursor at new location
  7022.     ret
  7023. ansich    endp
  7024.                     ; scaled by text screen height
  7025. atcuu    proc    near            ; cursor up Pn lines
  7026.     cmp    param,0            ; empty arg?
  7027.     jne    atcuu1            ; got a value
  7028.     inc    param            ; zero means one
  7029. atcuu1:    mov    ax,y_coord        ; where we are now
  7030.     add    ax,4            ; round up a smidge
  7031.     mov    cl,byte ptr low_rgt+1    ; highest text line
  7032.     xor    ch,ch
  7033.     mul    cx            ; proportion
  7034.     xor    dx,dx
  7035.     mov    cx,ybot            ; highest scan line
  7036.     div    cx            ; end, estimate currren text line
  7037.     sub    ax,param
  7038.     inc    ax            ; count lines from 1 again
  7039.     mov    param,ax        ; new text row
  7040.     jmp    atcva            ; do as absolute
  7041. atcuu    endp
  7042.  
  7043.                     ; scaled by text screen height
  7044. atcud    proc    near            ; cursor down Pn lines
  7045.     cmp    param,0            ; get Pn
  7046.     jne    atcud1            ; ne = got a value
  7047.     inc    param            ; zero means one
  7048. atcud1:    mov    ax,y_coord        ; where we are now
  7049.     add    ax,4            ; round up a smidge
  7050.     mov    cl,byte ptr low_rgt+1    ; highest text line
  7051.     xor    ch,ch
  7052.     mul    cx            ; proportion
  7053.     xor    dx,dx
  7054.     mov    cx,ybot            ; highest scan line
  7055.     div    cx            ; end, estimate currren text line
  7056.     inc    ax            ; count lines from 1 again
  7057.     add    param,ax        ; new text row
  7058.     jmp    atcva            ; do as absolute
  7059. atcud    endp
  7060.  
  7061. atcuf    proc    near            ; cursor forward Pn columns
  7062.     mov    ax,param        ; get Pn
  7063.     or    ax,ax
  7064.     jnz    atcuf1            ; got a value
  7065.     inc    ax            ; zero means one
  7066. atcuf1:    shl    ax,1            ; times 8 dots per char cell
  7067.     shl    ax,1
  7068.     shl    ax,1            ; Tek columns worth
  7069.     and    x_coord,not 7        ; modulo 8x8 cells
  7070.     add    x_coord,ax        ; forward to absolute column
  7071.     mov    ax,xmax
  7072.     cmp    x_coord,ax        ; beyond right most cell?
  7073.     jbe    atcuf2            ; be = no
  7074.     mov    x_coord,ax        ; limit to right
  7075. atcuf2:    call    remcursor        ; remove text cursor symbol
  7076.     call    setcursor        ; draw cursor at new location
  7077.     ret
  7078. atcuf    endp
  7079.  
  7080. atcub    proc    near            ; cursor left/back Pn columns
  7081.     mov    ax,param        ; get Pn
  7082.     or    ax,ax
  7083.     jnz    atcub1            ; got a value
  7084.     inc    ax            ; zero means one
  7085. atcub1:    shl    ax,1
  7086.     shl    ax,1
  7087.     shl    ax,1            ; times 8 dots per cell
  7088.     and    x_coord,not 7        ; modulo 8x8 cells
  7089.     mov    cx,xmax
  7090.     cmp    x_coord,cx        ; beyond last col (wrap pending)?
  7091.     jbe    atcub3            ; be = no
  7092.     mov    x_coord,cx        ; set to last col
  7093. atcub3:    sub    x_coord,ax        ; back up
  7094.     jnc    atcub2            ; nc = ok
  7095.     mov    x_coord,0        ; stop in column zero
  7096. atcub2:    call    remcursor        ; remove text cursor symbol
  7097.     call    setcursor        ; draw cursor at new location
  7098.     ret
  7099. atcub    endp
  7100.  
  7101. atcnl    proc    near            ; do Pn cr/lf's
  7102.     mov    x_coord,0        ; to left margin
  7103.     jmp    atcud            ; do the cursor downs
  7104. atcnl    endp
  7105.  
  7106. atcpl    proc    near            ; do Pn cursor ups
  7107.     jmp    atcuu            ; do the cursor ups
  7108. atcpl    endp
  7109.  
  7110.                     ; scaled by text screen width
  7111. atcha    proc    near            ; cursor to absolute column
  7112.     and    x_coord,not 7        ; modulo 8x8 cells
  7113.     mov    ax,param        ; get Pn
  7114.     or    ax,ax
  7115.     jz    atcha1            ; z = zero already
  7116.     dec    param            ; count columns from 0
  7117.     mov    ax,xmax            ; number of Tek dots/row
  7118.     mul    param            ; times columns they want
  7119.     mov    cl,byte ptr low_rgt    ; number of last text column
  7120.     xor    ch,ch
  7121.     xor    dx,dx
  7122.     div    cx            ; scale to ~80 column screen
  7123.     cmp    ax,xmax            ; too far?
  7124.     jbe    atcha1            ; be = no
  7125.     mov    ax,xmax            ; right most column
  7126. atcha1:    mov    x_coord,ax
  7127.     call    remcursor        ; remove text cursor symbol
  7128.     call    setcursor        ; draw cursor at new location
  7129.     ret
  7130. atcha    endp
  7131.                     ; scaled by text screen height
  7132. atcva    proc    near            ; cursor to absolute row
  7133.     dec    param            ; count from 0
  7134.     mov    ax,param        ; desired text row
  7135.     or    ax,ax            ; zero or now -1?
  7136.     jg    atcva1            ; g = no, further down
  7137.     mov    ax,7            ; bottom of top text cell
  7138.     jmp    short atcva2
  7139. atcva1:    mov    ax,ybot
  7140.     inc    ax            ; number of scan lines on screen
  7141. ;;;;    and    ax,not 7        ; whole 8x8 char cells
  7142.     mul    param            ; times row they want
  7143.     mov    cl,byte ptr low_rgt+1    ; number of last text line (0..23)
  7144.     xor    ch,ch
  7145.     xor    dx,dx
  7146.     div    cx            ; scale to ~24 line screen 
  7147.     mov    cx,ybot
  7148. ;;;;    and    cx,not 7        ; whole 8x8 char cells
  7149.     cmp    ax,cx            ; too far?
  7150.     jbe    atcva2            ; be = no
  7151.     mov    ax,cx
  7152. atcva2:    mov    y_coord,ax        ; go to that line
  7153.     call    remcursor        ; remove text cursor symbol
  7154.     call    setcursor        ; draw cursor at new location
  7155.     ret
  7156. atcva    endp
  7157.     
  7158. atcup    proc    near            ; cursor to absolute row, column
  7159.     call    atcva            ; process param[0] as absolute row
  7160.     push    param[2]        ; column
  7161.     pop    param
  7162.     jmp    atcha            ; process param[2] as absolute column
  7163. atcup    endp
  7164.  
  7165. ated    proc    near            ; erase display
  7166.     mov    al,spcontrol        ; preserve space control
  7167.     mov    rdbuf,al        ; save here
  7168.     mov    spcontrol,1        ; turn on destructive space
  7169.     push    x_coord
  7170.     push    y_coord            ; save cursor
  7171.     cmp    param,0            ; cursor to end of screen?
  7172.     je    ated1            ; e = yes
  7173.     cmp    param,1            ; start of screen to cursor?
  7174.     je    ated3            ; e = yes
  7175.     cmp    param,2            ; entire screen?
  7176.     je    ated5            ; e = yes
  7177.     ret                ; else ignore
  7178.  
  7179. ated1:    mov    param,0            ; cursor to end of this line
  7180.     call    atel            ; erase cursor to end of line
  7181.     add    y_coord,8        ; look at next line
  7182.     mov    ax,ybot
  7183.     cmp    y_coord,ax        ; are we at the end now?
  7184.     ja    ated6            ; a = yes
  7185.     mov    x_coord,0        ; start of line is here
  7186.     jmp    ated1            ; do through last line
  7187.  
  7188. ated3:    and    y_coord,not 7        ; modulo 8x8 char cells
  7189.     mov    cx,y_coord        ; start of screen to cursor
  7190.     shr    cx,1            ; char lines at 8 dots/char
  7191.     shr    cx,1
  7192.     shr    cx,1
  7193.     dec    cx            ; omit current line= # whole lines
  7194.     or    cx,cx            ; any whole lines?
  7195.     jle    ated3b            ; le = no
  7196.     mov    y_coord,7        ; start at the top line
  7197. ated3a:    push    cx
  7198.     mov    param,2            ; entire line
  7199.     call    atel            ; erase entire line
  7200.     add    y_coord,8        ; next line
  7201.     pop    cx
  7202.     loop    ated3a
  7203. ated3b:    mov    param,1            ; start of line to cursor
  7204.     call    atel            ; erase to cursor on this (last) line
  7205.     jmp    short ated6
  7206.  
  7207. ated5:    call    tekcls            ; erase whole screen
  7208.  
  7209. ated6:    mov    al,rdbuf        ; spacing control
  7210.     mov    spcontrol,al
  7211.     pop    y_coord
  7212.     pop    x_coord
  7213.     call    remcursor        ; remove last cursor
  7214.     call    setcursor        ; set cursor to original position
  7215.     ret
  7216. ated    endp
  7217.  
  7218. atech    proc    near            ; erase Pn chars from cursor to eol
  7219.     mov    al,spcontrol        ; preserve space control
  7220.     mov    rdbuf,al        ; save here
  7221.     mov    spcontrol,1        ; turn on destructive space
  7222.     push    x_coord
  7223.     push    y_coord            ; save cursor
  7224.     mov    cx,x_coord
  7225.     and    cx,not 7        ; modulo 8x8 cells
  7226.     mov    ax,xmax
  7227.     sub    ax,cx            ; number of chars remaining on line
  7228.     shr    ax,1
  7229.     shr    ax,1
  7230.     shr    ax,1
  7231.     inc    ax            ; count cursor cell
  7232.     mov    cx,param        ; how many chars to erase
  7233.     or    cx,cx
  7234.     jz    atech1            ; z = zero, use one
  7235.     inc    cx
  7236. atech1:    cmp    ax,cx            ; want more than line length?
  7237.     jae    atech2            ; ae = no
  7238.     mov    cx,ax            ; clip at right margin
  7239.     or    cx,cx
  7240.     jle    atech3            ; le = nothing to do
  7241. atech2:    push    cx
  7242.     mov    al,' '
  7243.     call    outscrn            ; write spaces
  7244.     pop    cx
  7245.     loop    atech2
  7246. atech3:    mov    al,rdbuf        ; spacing control
  7247.     mov    spcontrol,al
  7248.     pop    y_coord
  7249.     pop    x_coord
  7250.     call    remcursor        ; remove last cursor
  7251.     call    setcursor        ; set cursor to original position
  7252.     ret
  7253. atech    endp
  7254.  
  7255. atel    proc    near            ; erase on this line
  7256.     call    remcursor        ; remove cursor
  7257.     push    x_coord
  7258.     push    y_coord
  7259.     cmp    param,0            ; cursor to end of line?
  7260.     je    atel1            ; e = yes
  7261.     cmp    param,1            ; start of line to cursor?
  7262.     je    atel3            ; e = yes
  7263.     cmp    param,2            ; whole line?
  7264.     jne    atel5            ; ne = no, fail
  7265.     mov    x_coord,0        ; erase entire line
  7266.  
  7267. atel1:    mov    cx,xmax            ; cursor to end of line
  7268.     mov    ax,x_coord
  7269.     and    ax,not 7        ; modulo 8x8 cells
  7270.     sub    cx,ax
  7271.     shr    cx,1
  7272.     shr    cx,1
  7273.     shr    cx,1            ; 8 dots/char
  7274.     inc    cx            ; count the cursor cell
  7275.     or    cx,cx
  7276.     jle    atel5            ; le = do nothing
  7277.     mov    al,spcontrol        ; preserve space control
  7278.     mov    rdbuf,al        ; save here
  7279.     mov    spcontrol,1        ; turn on destructive space
  7280. atel2:    push    cx            ; start of line to cursor
  7281.     mov    al,' '
  7282.     call    outscrn
  7283.     pop    cx
  7284.     loop    atel2
  7285.     mov    al,rdbuf        ; space control
  7286.     mov    spcontrol,al        ; restored
  7287. atel5:    pop    y_coord
  7288.     pop    x_coord
  7289.     call    remcursor        ; remove last cursor
  7290.     call    setcursor        ; set cursor to original position
  7291.     ret
  7292. atel3:    mov    cx,x_coord        ; start of line to cursor
  7293.     shr    cx,1
  7294.     shr    cx,1
  7295.     shr    cx,1
  7296.     inc    cx            ; count cursor cell
  7297.     mov    x_coord,0        ; go to start of line
  7298.     jmp    atel2            ; do the loops
  7299. atel    endp
  7300. code2    ends
  7301.     end
  7302.