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