;
;       *********************************************************
;       ***                                                   ***
;       ***             Micro Concepts System Library         ***
;       ***             T925.M68                              ***
;       ***             Televideo 925 Terminal Driver         ***
;       ***                                                   ***
;       *********************************************************
;
;               Copyright (c) 1982 by Jim Rea
;
;
;  Edit history:
;
; jr  4-jun-83
;       created file
;
; Nov. 11,1984  modifed driver to work with GROUP III's function
;               key controller.
;               D.MCCABE ---> AKA "THE GREAT & MIGHTY OZ"


       OBJNAM  T925FK.TDV

       SEARCH  SYS
       SEARCH  TRM
       SEARCH  TDV

       AUTOEXTERN

       TDV     ,,INPUT,,,T950          ; set up header
                                       ; (use T950.SVX for function key xlat)

XY::    ADMXY                           ; gotoxy routine
INPUT:  CALL    TDVPF
       BYTE    33
       BYTE    1
       BYTE    0
       BYTE    0
       OFFSET  XLATE
       RTN
XLATE:
1$:     BYTE    01,'@
2$:     BYTE    01,'A
3$:     BYTE    01,'B
4$:     BYTE    01,'C
5$:     BYTE    01,'D
6$:     BYTE    01,'E
7$:     BYTE    01,'F
8$:     BYTE    01,'G
9$:     BYTE    01,'H
10$:    BYTE    01,'I
11$:    BYTE    01,'J
12$:    BYTE    01,'`
13$:    BYTE    01,'a
14$:    BYTE    01,'b
15$:    BYTE    01,'c
16$:    BYTE    01,'d
17$:    BYTE    01,'e
18$:    BYTE    01,'f
19$:    BYTE    01,'g
20$:    BYTE    01,'h
21$:    BYTE    01,'i
22$:    BYTE    01,'j
23$:    BYTE    33,'Q
24$:    BYTE    33,'W
25$:    BYTE    33,'E
26$:    BYTE    33,'R
27$:    BYTE    33,'I
28$:    BYTE    33,'P
       WORD    0
; BYTE 01
; BYTE 33
; BYTE 0
; BYTE 0
; CRT function table
       RADIX   10
       XTAB    0,ESC,'*                ; clear all to nulls
       XTAB    1,'^-'@                 ; home
       XTAB    2,^H8D                  ; carriage return
       XTAB    3,11.                   ; cursor up
       XTAB    4,10.                   ; cursor down
       XTAB    5,8.                    ; cursor left
       XTAB    6,12.                   ; move cursor right
       XTAB    7,ESC,'#                ; lock keyboard
       XTAB    8,ESC,'"                ; unlock keyboard
       XTAB    9,ESC,'T                ; erase to end of line
       XTAB    10,ESC,'Y               ; erase to end of screen
       XTAB    11,ESC,')               ; reduced intensity
       XTAB    12,ESC,'(               ; normal intensity
       XTAB    13,ESC,'&               ; enable protected fields
       XTAB    14,ESC,''               ; disable protected fields
       XTAB    15,ESC,'R               ; delete line
       XTAB    16,ESC,'E               ; insert line
       XTAB    17,ESC,'W               ; delete character
       XTAB    18,ESC,'Q               ; insert character
       XTAB    21,ESC,'G,'2            ; blinking field
       XTAB    22,ESC,'G,'0            ; stop blinking field

; line drawing
;;      XTAB    23,ESC,'$               ; graphics on
;;      XTAB    24,ESC,'%               ; graphics off

       XTAB    38,'+                   ; top left corner
       XTAB    39,'+                   ; top right corner
       XTAB    40,'+                   ; bottom left corner
       XTAB    41,'+                   ; bottom right corner
       XTAB    42,'+                   ; top intersect
       XTAB    43,'+                   ; right intersect
       XTAB    44,'+                   ; left intersect
       XTAB    45,'+                   ; bottom intersect
       XTAB    46,'-                   ; horizontal line
       XTAB    47,'|                   ; vertical line
       XTAB    48,'+                   ; intersection
       XTAB    49,ESC,'%,ESC,'U,^H7F,ESC,'u,ESC,'$     ; solid block (use monitor mode)
       XTAB    50,ESC,'%,ESC,'U,^H7F,ESC,'u,ESC,'$     ; slant block
       XTAB    51,ESC,'%,ESC,'U,^H7F,ESC,'u,ESC,'$     ; cross-hatch block
       XTAB    52,'=                   ; double line horizontal
       XTAB    53,'|                   ; double line vertical
       XTAB    54,ESC,'=,'7,'!         ; place cursor nbo line 24, col 2 [100]
       XTAB    55,ESC,'=,'7,'!         ; place cursor nbo line 24, col 2 [100]


       XTAB    36,ESC,'o               ; turn off screen display
       XTAB    37,ESC,'n               ; turn on screen display

; micro concepts extended TCRT calls (now moved to AMOS standard locations
       XTAB    30,ESC,'G,'8            ; underline
       XTAB    31,ESC,'G,'0            ; underline off
       XTAB    32,ESC,'G,'4            ; reverse video
       XTAB    33,ESC,'G,'0            ; reverse video off
       XTAB    29,ESC,'.,'0            ; cursor off
       XTAB    28,ESC,'.,'2            ; cursor on (solid block)

; micro concepts extended TCRT calls
       XTAB    128,ESC,'f              ; start 25th line message
       XTAB    129,^H8D,ESC,'g         ; end 25th line message
;;      XTAB    130,ESC,'!,'1           ; line lock line
;;      XTAB    131,ESC,'!,'2           ; remove linelock entire screen
       XTAB    132,ESC,'h              ; turn off 25th line message
;;      XTAB    133,                    ; start underline with no blank
;;      XTAB    134,                    ; end underline with no blank

       XTEND

       END