home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progc / ce331src.arj / BIOS.ASM < prev    next >
Assembly Source File  |  1990-11-24  |  2KB  |  91 lines
  1.                 page    60,132
  2.                 title    BIOS - Assembler BIOS calls for CodEd
  3. ; 
  4. ; B I O S . A S M
  5. ;
  6. ; purpose:
  7. ;    Assembler level function calls for CodEd
  8. ;
  9. ; modification log:
  10. ;    7/14/88         John W. Grothman
  11. ;    2/7/89            jwg - mod for MASM 5.1
  12. ;    1/4/90            jwg - mod PcGetC for either the extended keyboard (EKBD
  13. ;                          defined) or the original keyboard (OKBD defined)
  14. ;    10/7            jwg - back to the C model
  15. ;
  16.  
  17. .MODEL LARGE,C
  18.  
  19. .CODE
  20.  
  21. CTRL        equ     1        ;MUST equal high byte of 'CTRL' #define in struct.h
  22. SPEC        equ     8        ;MUST equal high byte of 'SPEC' #define in struct.h
  23.  
  24.             public    PcGetC, PcPutC, PcMove
  25.  
  26. PcGetC      proc
  27.  
  28. IFDEF    EKBD
  29.             mov     ah,16                ;extended keyboard read
  30.             int     16h                 ;call keyboard BIOS
  31.             cmp     al,0                ;main byte = 0?
  32.             jne     chk4e0
  33.             cmp     ah,3                ;aux. byte = 3?
  34.             jne     addspec
  35.             xor        ax,ax                ;restore NUL's original value
  36.             jmp     short getout
  37.  
  38.   chk4e0:    cmp     al,0e0h             ;main byte = E0?
  39.             jne     normchar
  40.             cmp     ah,0                ;was E0 real?
  41.             jne     addspec
  42.             mov     ax,0e0h             ;restore real E0
  43.             jmp        short getexit        ;  and return
  44. ENDIF
  45.  
  46. IFDEF    OKBD
  47.             mov        ah,7                ; DOS direct console input
  48.             int        21h
  49.  
  50.             cmp        al,0                ; non-ascii char?
  51.             jne        normchar
  52.  
  53.             mov        ah, 7                ; get next aux. byte
  54.             int        21h
  55.  
  56.             cmp        al,3                ; aux. byte = 3?
  57.             jne        addspeco
  58.             xor        ax,ax                ; restore NUL's original value
  59.             jmp        short getout
  60. ENDIF
  61.  
  62.   normchar: xor     ah,ah                ;char was normal, so just return it with
  63.             jmp     short getout        ; no flag bits set (make sure ah = 0)
  64.  
  65.   addspec:    mov     al,ah                ;move aux. byte to main byte
  66.   addspeco:    mov     ah,SPEC
  67.  
  68.   getout:    cmp     ax,20h                ;check for a CTRL char
  69.             jae     getexit
  70.             or        al,40h                ;offset to CAP letters
  71.             mov     ah,CTRL
  72.   getexit:    ret
  73. PcGetC      endp
  74. ;
  75. PcPutC      proc    char:BYTE
  76.             mov     ah,14                ;write char with current attributes
  77.             mov     al,char             ;char to write
  78.             int     10h                 ;call video BIOS
  79.             ret
  80. PcPutC      endp
  81. ;
  82. PcMove      proc    row:BYTE, col:BYTE
  83.             mov     ah,2                ;set cursor position
  84.             mov     dh,row                ;row to move to
  85.             mov     dl,col                ;column to move to
  86.             mov     bh,0                ;video page 0
  87.             int     10h                 ;call video BIOS
  88.             ret
  89. PcMove      endp
  90.             end
  91.