home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB139 / rb-tsr.lzh / RB-TSR.ASM next >
Assembly Source File  |  1986-11-03  |  3KB  |  112 lines
  1. ; RB-TSR.ASM
  2. ; Grabs firmware calls for Level 2 character input
  3. ; adapted from "Writing Desk accessories" by Tom Wadlow
  4. ;    BYTE magazine, Fall 1985 IBM issue, page 108
  5. ; Modified for Rainbow by Booth Hartley
  6. ;
  7. ; To build into an executable program:
  8. ; MASM RB-TSR;
  9. ; LINK RB-TSR;
  10. ; EXE2BIN RB-TSR RB-TSR.COM
  11. ; 
  12. ;
  13. RB_firmware             equ     18h
  14. DOS_function            equ     21h
  15. DOS_terminate_resident  equ     27h
  16. get_vector              equ     35h
  17. set_vector              equ     25h
  18. ;
  19. cseg segment
  20.         assume  cs:cseg,ds:cseg
  21.         org     100h
  22. start:
  23.         jmp     initialize
  24. old_firmware  dd      ;set aside a double word for old keyboard vector
  25. n_chars_avail   db      0       ;number of chars avail
  26. char_buf        db      'a',0
  27. orig_di         dw
  28. ;
  29. keyboard_interceptor    proc far
  30.         assume  cs:cseg,ds:nothing
  31.         sti
  32.         cmp     di,2    ;is this a level 2 char_input request?        
  33.         jz      ki4
  34.         cmp     di,4    ;is this a level 2 status request?
  35.         jnz     ki2     ;jump if not
  36. ki4:    mov     orig_di,di     ;save di
  37.         mov     al,n_chars_avail   ;first see if we already have a char
  38.         cmp     al,0
  39.         jne     ki5     ;jump if have one
  40.         pushf           ;push flags to simulate an INT call
  41.         mov     di,6
  42.         assume  ds:nothing
  43.         call    old_firmware   ;use old firmware interrupt
  44.         cmp     cl,0    ;did we get a char?
  45.         je      ki1     ;jump if not
  46.         cmp     cl,01h  ;see if char in level 2 buffer
  47.         jne     ki3
  48.         mov     di,2    ;level 2 char input
  49.         jmp     ki2     ;use the char from level 2 buffer
  50. ;        
  51. ki3:
  52. ; check for lower case z. If found, convert to upper case
  53.         cmp     al,'z' 
  54.         jne     ki0     ;jump if not z
  55.         mov     al,'Z'
  56.         jmp     ki6
  57. ; same for upper case Z
  58. ki0:    cmp     al,'Z'  
  59.         jne     ki6
  60.         mov     al,'z'
  61. ki6:
  62.         mov     char_buf,al     ;put char into buffer
  63.         mov     al,1
  64.         mov     n_chars_avail,al
  65. ki5:    ; we know that there is a char in char_buf
  66.         mov     cl,0ffh ;say that char is avail
  67.         mov     di,orig_di
  68.         cmp     di,4    ;status only
  69.         je      ki1
  70.         dec     n_chars_avail
  71.         mov     al,n_chars_avail
  72.         mov     ah,0
  73.         mov     di,ax
  74.         mov     al,char_buf[di]
  75. ki1:    iret            ;return from the interrupt
  76. ;
  77. ;the following processes other functions by transferring control to
  78. ;the old handler
  79. ki2:
  80.         assume ds:nothing
  81.         jmp     old_firmware
  82. keyboard_interceptor    endp
  83. ;
  84. ;Application code should end here
  85. ;
  86. initialize:
  87.         mov     bx,cs
  88.         mov     ds,bx   ;ds points to code seg
  89. ; get the old firmware vector
  90.         mov     al,RB_firmware
  91.         mov     ah,get_vector
  92.         int     DOS_function
  93. ; save it
  94.         mov      word ptr old_firmware,bx
  95.         mov      word ptr old_firmware[2],es
  96. ;
  97. ;Set the firmware vector to our routine
  98.         mov     bx,cs
  99.         mov     ds,bx
  100.         mov     dx,offset keyboard_interceptor
  101.         mov     al,RB_firmware
  102.         mov     ah,set_vector 
  103.         int     DOS_function
  104. ;
  105.         mov     bx,cs
  106.         mov     ds,bx
  107.         mov     dx,offset initialize    ;point to the end of the resident code
  108.         int     DOS_terminate_resident
  109. ;
  110. cseg    ends
  111.         end     start
  112.