home *** CD-ROM | disk | FTP | other *** search
/ 20th Century Video Alman…Century in Depth - Sports / ALMANAC_03.iso / vesa / everex / e626vesa.exe / VIDUTIL.ASM < prev    next >
Assembly Source File  |  1991-03-29  |  9KB  |  424 lines
  1. ;------------------------------------------------------------------------
  2. ;02/19/90 GL    - Source code created
  3. ;------------------------------------------------------------------------
  4. ;------------------------------------------------------------------------
  5. ; BIOS data area variables
  6.  
  7. cSegMono    equ    0B000h
  8. cSegColor    equ    0B800h
  9. cSegGrfx    equ    0A000h
  10.  
  11. mSysEquip         equ    0410h
  12.  
  13. mSysMode          equ    0449h
  14. mSysColumns       equ    044Ah
  15. mSysRegenLen      equ    044Ch
  16. mSysRegenOfs      equ    044Eh
  17. mSysCursorPos     equ    0450h
  18. mSysCursorType     equ    0460h
  19. mSysVideoPage     equ    0462h
  20. mSysCRTC          equ    0463h
  21. mSys3x8           equ    0465h
  22. mSys3x9           equ    0466h
  23.  
  24. mSysRows          equ    0484h
  25. mSysPoints        equ    0485h
  26. mSysEGAInfo       equ    0487h
  27. mSysSwitches      equ    0488h
  28. mSysVGAInfo       equ    0489h
  29. mSysDCCIndex      equ    048Ah
  30.  
  31. mSysSavePtr       equ    04A8h
  32.  
  33. mSysPrntScrnStat equ    0500h
  34.  
  35. CR        equ    0Dh
  36. LF        equ    0Ah
  37. BS        equ    08h
  38.  
  39. ;------------------------------------------------------------------------
  40.  
  41.     cseg    segment word public 'CODE'
  42.  
  43.     assume    cs:cseg
  44.     assume    ds:cseg
  45.     assume    es:cseg
  46.  
  47.     org    0100h
  48.  
  49.     public    EndTSRCode
  50.  
  51. Start:
  52.  
  53.     jmp    Initialize
  54.  
  55.         db 'VIDUTIL'
  56. ShiftMask       label byte
  57.         db cShiftMask
  58. HotKey          label byte
  59.         db cHotKey
  60.     
  61. ;------------------------------------------------------------------------
  62. ; 
  63. INSACTIVE    equ    10000000b
  64. CAPSACTIVE    equ    01000000b
  65. NUMACTIVE    equ    00100000b
  66. SCRLACTIVE    equ    00010000b
  67. ALTACTIVE    equ    00001000b
  68. CTRLACTIVE    equ    00000100b
  69. LSHFTACTIVE    equ    00000010b
  70. RSHFTACTIVE    equ    00000001b
  71.  
  72. cHotKey        equ    31h        ; 'N'
  73.             ;37h        ; Prnt Scrn on keypad(*) key
  74. cShiftMask    equ    CTRLACTIVE + ALTACTIVE
  75.                     ; [Ctrl][Alt] key
  76.                     ; b7 - Insert Active
  77.                     ; b6 - Caps Lock Active
  78.                     ; b5 - Num Lock Active
  79.                     ; b4 - Scroll Lock Active
  80.                     ; b3 - Alt key depressed
  81.                     ; b2 - Ctrl key depressed
  82.                     ; b1 - Left shift key depressed
  83.                     ; b0 - Right shift key depressed
  84.  
  85. BusyFlags    db    00h        ; Active bit flags
  86.                     ;  b0 : video active
  87. OldInt09    dd 0000h    ; Keyboard Break vector
  88.  
  89. ;------------------------------------------------------------------------
  90.  
  91. NewInt09    proc    far
  92.  
  93.     sti
  94.     push    ax
  95.  
  96.     in    al,60h        ; Get scan code
  97.     cmp    al,cs:[HotKey]
  98.     je    Trigger
  99. Int09Exit:
  100.     pop    ax
  101.     jmp    dword ptr cs:[OldInt09]
  102.  
  103. Trigger:
  104.     mov    ah,2
  105.     int    16h
  106.  
  107.     and    al,0Fh
  108.     cmp    al,cs:[ShiftMask]        ; Alt key?
  109.     jne    Int09Exit
  110.  
  111.     test    cs:[BusyFlags],00000001b    ; Is VIDUTIL active?
  112.     jnz    Int09Exit
  113.     or    cs:[BusyFlags],00000001b    ; VIDUTIL is active now
  114.  
  115.     pushf
  116.     call    dword ptr cs:[OldInt09]
  117.  
  118.     push    bx
  119.     push    cx
  120.     push    dx
  121.     push    bp
  122.     push    si
  123.     push    di
  124.     push    ds
  125.     push    es
  126.  
  127.     push    cs
  128.     pop    ds            ; DS = CS
  129.  
  130.     xor    ax,ax
  131.     mov    es,ax            ; ES = 0
  132.  
  133.     call    VideoUtil
  134.  
  135.     and    cs:[BusyFlags],11111110b    ; VIDUTIL done
  136.  
  137.     pop    es
  138.     pop    ds
  139.     pop    di
  140.     pop    si
  141.     pop    bp
  142.     pop    dx
  143.     pop    cx
  144.     pop    bx
  145.     pop    ax
  146.     iret
  147.  
  148. NewInt09    endp
  149.  
  150. ;------------------------------------------------------------------------
  151. ;------------------------------------------------------------------------
  152.  
  153. VideoUtil        proc    near
  154.  
  155. GetKB1:
  156.     xor    ah,ah
  157.     int    16h            ; Check keyboard
  158.  
  159.     cmp    ah,1            ; Esc key?
  160.     jne    NotEsc
  161.  
  162.     jmp    VideoUtilDone          ; Exit on Esc key
  163.  
  164. NotEsc:
  165.     cmp    ah,21h            ; Is it F? (Flicker filter)
  166.     je    FlickerFilter
  167.     cmp    ah,16h            ; Is it U? (Underscan mode)
  168.     je    Underscan
  169.     cmp    ah,2Fh            ; Is it V? (Video enable)
  170.     je    VideoBlank
  171.         cmp     ah,0Bh                  ; Is it 0? (Center H&V Pan)
  172.         je      HorzVertPan0
  173.     cmp    ah,48h            ; Is it up arrow?
  174.     je    DoUpArrow
  175.     cmp    ah,50h            ; Is it dn arrow?
  176.     je    DoDnArrow
  177.     cmp    ah,4Bh            ; Is it left arrow?
  178.     je    DoLeftArrow
  179.     cmp    ah,4Dh            ; Is it right arrow?
  180.     je    DoRightArrow
  181.     jmp    short GetKB1
  182.  
  183. DoUpArrow:
  184.         jmp     UpArrow
  185. DoDnArrow:
  186.         jmp     DnArrow
  187. DoLeftArrow:
  188.         jmp     LeftArrow
  189. DoRightArrow:
  190.         jmp     RightArrow
  191.  
  192. FlickerFilter:
  193.         mov     ax,7000h
  194.         mov     bx,0007h
  195.         mov     cl,00h
  196.         int     10h                     ;Get Video Status
  197.  
  198.         mov     ax,7000h
  199.         mov     bx,0007h
  200.         mov     cl,02h
  201.  
  202.         and     ch,00000001b
  203.         xor     ch,1
  204.  
  205.         int     10h
  206.  
  207.         jmp     short GetKB1
  208.  
  209. Underscan:
  210.         mov     ax,7000h
  211.         mov     bx,0007h
  212.         mov     cl,00h
  213.         int     10h                     ;Get Video Status
  214.  
  215.         mov     ax,7000h
  216.         mov     bx,0007h
  217.         mov     cl,03h
  218.  
  219.         shr     ch,1
  220.         and     ch,00000001b
  221.         xor     ch,1
  222.  
  223.         int     10h
  224.  
  225.         jmp     short GetKB1
  226.  
  227. VideoBlank:
  228.         mov     ax,7000h
  229.         mov     bx,0007h
  230.         mov     cl,00h
  231.         int     10h                     ;Get Video Status
  232.  
  233.         mov     ax,7000h
  234.         mov     bx,0007h
  235.         mov     cl,01h
  236.  
  237.         shr     ch,1
  238.         shr     ch,1
  239.         and     ch,00000001b
  240.         xor     ch,1
  241.  
  242.         int     10h
  243.  
  244.         jmp     GetKB1
  245.  
  246. HorzVertPan0:
  247.         mov     ax,7000h
  248.         mov     bx,0007h
  249.         mov     cl,04h
  250.         mov     ch,00h
  251.         int     10h
  252.  
  253.         mov     ax,7000h
  254.         mov     bx,0007h
  255.         mov     cl,05h
  256.         mov     ch,00h
  257.         int     10h
  258.  
  259.         jmp     GetKB1
  260.  
  261. UpArrow:
  262.         mov     ax,7000h
  263.         mov     bx,0007h
  264.         mov     cl,00h
  265.         int     10h                     ;Get Video Status
  266.  
  267.         mov     ax,7000h
  268.         mov     bx,0007h
  269.         mov     cl,05h
  270.         mov     ch,dl
  271.         inc     ch
  272.  
  273.         int     10h
  274.  
  275.         jmp     GetKB1
  276.  
  277. DnArrow:
  278.         mov     ax,7000h
  279.         mov     bx,0007h
  280.         mov     cl,00h
  281.         int     10h                     ;Get Video Status
  282.  
  283.         mov     ax,7000h
  284.         mov     bx,0007h
  285.         mov     cl,05h
  286.         mov     ch,dl
  287.         dec     ch
  288.  
  289.         int     10h
  290.  
  291.         jmp     GetKB1
  292.  
  293. LeftArrow:
  294.         mov     ax,7000h
  295.         mov     bx,0007h
  296.         mov     cl,00h
  297.         int     10h                     ;Get Video Status
  298.  
  299.         mov     ax,7000h
  300.         mov     bx,0007h
  301.         mov     cl,04h
  302.         mov     ch,dh
  303.         inc     ch
  304.  
  305.         int     10h
  306.  
  307.         jmp     GetKB1
  308.  
  309. RightArrow:
  310.         mov     ax,7000h
  311.         mov     bx,0007h
  312.         mov     cl,00h
  313.         int     10h                     ;Get Video Status
  314.  
  315.         mov     ax,7000h
  316.         mov     bx,0007h
  317.         mov     cl,04h
  318.         mov     ch,dh
  319.         dec     ch
  320.  
  321.         int     10h
  322.  
  323.         jmp     GetKB1
  324.  
  325. VideoUtilDone:
  326.         ret
  327.  
  328. VideoUtil        endp
  329.  
  330. ;------------------------------------------------------------------------
  331. ;------------------------------------------------------------------------
  332.  
  333. EndTSRCode    label byte
  334.  
  335. ;------------------------------------------------------------------------
  336. ;------------------------------------------------------------------------
  337. Initialize:
  338.     mov    dx,offset Copyright
  339.     mov    ah,9
  340.     int    21h            ; Display title message
  341.  
  342.     not    byte ptr cs:[Start]    ; Search for previous VideoUTIL
  343.     xor    bx,bx
  344.     mov    ax,cs
  345.  
  346. NextSeg:
  347.     inc    bx
  348.     cmp    ax,bx            ; Search up to this segment
  349.     mov    es,bx
  350.     je    NotInstalled
  351.  
  352.     mov    si,offset Start
  353.     mov    di,si
  354.     mov    cx,0Ah
  355.     rep    cmpsb            ; Check for signature string
  356.  
  357.     or    cx,cx            ; Did they match
  358.     jnz    NextSeg
  359.  
  360.     mov    dx,offset InstalledMesg
  361.     jmp    short ErrExit
  362.  
  363. NotInstalled:
  364.     mov    ah,30h
  365.     int    21h            ; Check for DOS 2.0 or later
  366.  
  367.     cmp    al,2
  368.     jae    VerOK
  369.     mov    dx,offset BadDosMesg
  370.  
  371. ErrExit:
  372.     mov    ah,9
  373.     int    21h
  374.  
  375.     int    20h            ; Display error and exit
  376.  
  377. VerOK:
  378.     mov    ax,3509h        ; Keyboard break vector
  379.     int    21h
  380.  
  381.     mov    word ptr ds:[OldInt09  ],bx
  382.     mov    word ptr ds:[OldInt09+2],es    ; Save old vector
  383.     mov    dx,offset NewInt09
  384.     mov    ax,2509h
  385.     int    21h            ; Install new handler
  386.  
  387.     push    cs
  388.     pop    ds
  389.  
  390.     mov    ax,ds:[002Ch]        ; Get environment seg
  391.     mov    es,ax
  392.     mov    ah,49h            ; Release memory
  393.     int    21h
  394.  
  395.     mov    dx,offset EndTSRCode
  396. ;    mov    dx,ds:[BuffEnd]
  397.     int    27h            ; TSR
  398.  
  399. ;------------------------------------------------------------------------
  400. Copyright    db 'VIDUTIL v1.0 (c) 1990 Everex Systems, Inc.',CR,LF
  401.         db 'Hotkey is [Alt][Ctrl][N]',CR,LF
  402.         db 'Courtesy of Gary Lorensen',CR,LF
  403.         db CR,LF
  404.         db '╓─────────────────────────────────╥──────────────────────────────────────╖',CR,LF
  405.         db '║[Up]           - Pan Up          ║[U]     - Underscan mode              ║',CR,LF
  406.         db '║[Down]         - Pan Down        ║[V]     - Video enable/disable        ║',CR,LF
  407.         db '║[Left]         - Pan Left        ║[0]     - Center Horz&Vert Pan        ║',CR,LF
  408.         db '║[Right]        - Pan Right       ║[ESC]   - Exit TSR and return to app  ║',CR,LF
  409.         db '║[F]            - Flicker filter  ║                                      ║',CR,LF
  410.         db '╙─────────────────────────────────╨──────────────────────────────────────╜',CR,LF
  411.         db '$',1Ah
  412.  
  413. InstalledMesg    db 'VIDUTIL has been previously installed.',CR,LF,'$'
  414. BadDosMesg    db 'VIDUTIL requires DOS 2.0 or later.',CR,LF,'$'
  415. ;------------------------------------------------------------------------
  416.  
  417. cseg    ends
  418.  
  419.     end    Start
  420.  
  421.     
  422. ;------------------------------------------------------------------------
  423.  
  424.