home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / BIOS.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  5.6 KB  |  273 lines
  1. ;
  2. ; Name        bios -- Invoke a BIOS function
  3. ;
  4. ; Synopsis    ercode = bios(cmd,pax,pbx,pcx,pdx,pflags);
  5. ;
  6. ;        int ercode      Return code is 0 if a legal BIOS function
  7. ;                  is called; otherwise -1 is returned.
  8. ;        int cmd       BIOS interrupt number
  9. ;        int *pax,*pbx,*pcx,*pdx,*pflags
  10. ;                  Pointers to register values
  11. ;
  12. ;        extern unsigned b_es, b_bp
  13. ;                  Values for ES and BP registers.
  14. ;
  15. ; Description    The parameter cmd specifies the BIOS routine to invoke.
  16. ;        The parameters pax, pbx, pcx, pdx, and pflags are
  17. ;        pointers to values for the general registers AX, BX, CX,
  18. ;        and DX and for the flags register.  These registers (as
  19. ;        well as the external variables b_es and b_bp) supply
  20. ;        information for the function as well as return
  21. ;        information.  See the BIOS listing in the IBM Technical
  22. ;        Reference Manual for a full description of the available
  23. ;        BIOS routines and their calling sequences.
  24. ;
  25. ; Returns    ercode          Error code.  -1 if an illegal function
  26. ;                  call is made, 0 if OK.
  27. ;        pax,pbx,pcx,pdx   Register values upon exit from the BIOS
  28. ;        pflags          Flag register value upon exit from BIOS
  29. ;                  function.  (Flag settings are not used
  30. ;                  upon input.)
  31. ;        b_es,b_bp      Register values upon exit from the BIOS
  32. ;
  33. ; Version    3.0 (C)Copyright Blaise Computing Inc. 1983, 1984, 1985, 1986
  34.  
  35.     name     biosgate
  36.  
  37.     LONGPROG  = 0              ; initialize constants for
  38.     LONGDATA  = 0              ; Pass1 of the assembler
  39.  
  40.     include   compiler.mac          ; Specifies the C compiler
  41.  
  42.     if LAT200 or LAT210 or LAT300
  43.     include  dos.mac
  44.     LONGPROG = LPROG
  45.     LONGDATA = LDATA
  46.  
  47.     dseg
  48.     public      b_es,b_bp
  49. b_es    dw      0
  50. b_bp    dw      0
  51.     endds
  52.  
  53.     pseg
  54.     public     bios
  55.     if     LPROG
  56.     x   equ  6            ; parameter offset
  57. bios    proc     far
  58.     else
  59.     x   equ  4
  60. bios    proc     near
  61.     endif
  62.     if     LDATA
  63.     a   equ  2            ; location of parameters
  64.     b   equ  6            ; on the stack.  Offset is
  65.     c   equ  10            ; pointer size.
  66.     d   equ  14
  67.     e   equ  18
  68.     else
  69.     a   equ  2
  70.     b   equ  4
  71.     c   equ  6
  72.     d   equ  8
  73.     e   equ  10
  74.     endif
  75.     endif
  76.  
  77.  
  78.     if MSC300
  79.     include  dos.mac
  80.     LONGPROG = LPROG
  81.     LONGDATA = LDATA
  82.  
  83.     dseg
  84.     public      _b_es,_b_bp
  85. _b_es    dw     0
  86. _b_bp    dw     0
  87.     endds
  88.  
  89.     pseg     bios
  90.     public     _bios
  91.     if     LPROG
  92.     x   equ  6            ; parameter offset
  93. _bios    proc     far
  94.     else
  95.     x   equ  4
  96. _bios    proc     near
  97.     endif
  98.     if     LDATA
  99.     a   equ  2            ; location of parameters
  100.     b   equ  6            ; on the stack.  Offset is
  101.     c   equ  10            ; pointer size.
  102.     d   equ  14
  103.     e   equ  18
  104.     else
  105.     a   equ  2
  106.     b   equ  4
  107.     c   equ  6
  108.     d   equ  8
  109.     e   equ  10
  110.     endif
  111.     endif
  112.  
  113.  
  114.     push     bp            ; Save the frame pointer
  115.     mov     bp,sp
  116.  
  117.     push     di            ; Save register variables
  118.     push     si
  119.     push     es
  120.  
  121.     if     LONGDATA        ; Get values for AX,BX,CX,DX
  122.     les     si,dword ptr [bp + x + a]
  123.     mov     ax,es:[si]
  124.     les     si,dword ptr [bp + x + b]
  125.     mov     bx,es:[si]
  126.     les     si,dword ptr [bp + x + c]
  127.     mov     cx,es:[si]
  128.     les     si,dword ptr [bp + x + d]
  129.     mov     dx,es:[si]
  130.     else
  131.     mov     si,[bp + x + a]    ; Get the values for the registers
  132.     mov     ax,[si]
  133.     mov     si,[bp + x + b]
  134.     mov     bx,[si]
  135.     mov     si,[bp + x + c]
  136.     mov     cx,[si]
  137.     mov     si,[bp + x + d]
  138.     mov     dx,[si]
  139.     endif
  140.  
  141.     mov     si,[bp + x]
  142.  
  143.     if     MSC300
  144.     mov     es,_b_es        ; ES and BP needed for certain new
  145.     mov     bp,_b_bp        ;    BIOS functions for PC-AT, EGA, etc.
  146.     else
  147.     mov     es,b_es        ; ES and BP needed for certain new
  148.     mov     bp,b_bp        ;    BIOS functions for PC-AT, EGA, etc.
  149.     endif
  150.  
  151.     cmp     si,10h         ; Compare the command with each
  152.     je     video            ; interrupt and execute
  153.     cmp     si,11h         ; when equality is found.
  154.     je     equip
  155.     cmp     si,12h
  156.     je     memory
  157.     cmp     si,13h
  158.     je     disk
  159.     cmp     si,14h
  160.     je     comm
  161.     cmp     si,15h
  162.     je     cass
  163.     cmp     si,16h
  164.     je     keybd
  165.     cmp     si,17h
  166.     je     print
  167.     cmp     si,18h
  168.     je     cbasic
  169.     cmp     si,19h
  170.     je     boot
  171.     cmp     si,1ah
  172.     je     time
  173.     cmp     si,1bh
  174.     je     kbbrk
  175.     cmp     si,1ch
  176.     je     tick
  177.  
  178.     mov     ax,0ffffh        ; error
  179.     jmp     short quit
  180.  
  181. video:    int     10h            ; Video
  182.     jmp     short uret
  183. equip:    int     11h            ; Equipment Check
  184.     jmp     short uret
  185. memory: int     12h            ; Memory size determination
  186.     jmp     short uret
  187. disk:    int     13h            ; Diskette I/O
  188.     jmp     short uret
  189. comm:    int     14h            ; RS232 Communications I/O
  190.     jmp     short uret
  191. cass:    int     15h            ; Tape Cassette I/O
  192.     jmp     short uret
  193. keybd:    int     16h            ; Keyboard I/O
  194.     jmp     short uret
  195. print:    int     17h            ; Printer I/O
  196.     jmp     short uret
  197. cbasic: int     18h            ; Cassette BASIC
  198.     jmp     short uret
  199. boot:    int     19h            ; Bootstrap
  200.     jmp     short uret
  201. time:    int     1ah            ; Time of day
  202.     jmp     short uret
  203. kbbrk:    int     1bh            ; Keyboard break
  204.     jmp     short uret
  205. tick:    int     1ch            ; Timer tick
  206.  
  207.  
  208. uret:
  209.     if     MSC300
  210.     mov     _b_bp,bp
  211.     mov     _b_es,es
  212.     else
  213.     mov     b_bp,bp
  214.     mov     b_es,es
  215.     endif
  216.  
  217.     mov     bp,sp            ; Now recover the values of the
  218.                     ; parameters.
  219.     pushf
  220.     add     bp,6            ; DI, SI, and ES are on stack.
  221.  
  222.     if     LONGDATA
  223.     les     si,dword ptr [bp + x + a]
  224.     mov     es:[si],ax
  225.     les     si,dword ptr [bp + x + b]
  226.     mov     es:[si],bx
  227.     les     si,dword ptr [bp + x + c]
  228.     mov     es:[si],cx
  229.     les     si,dword ptr [bp + x + d]
  230.     mov     es:[si],dx
  231.     les     si,dword ptr [bp + x + e]
  232.     pop     ax            ; Get the flags
  233.     mov     es:[si],ax
  234.     else
  235.     mov     si,[bp + x + a]    ; Get the values for the registers
  236.     mov     [si],ax
  237.     mov     si,[bp + x + b]
  238.     mov     [si],bx
  239.     mov     si,[bp + x + c]
  240.     mov     [si],cx
  241.     mov     si,[bp + x + d]
  242.     mov     [si],dx
  243.     mov     si,[bp + x + e]
  244.     pop     ax            ; Get the flags
  245.     mov     [si],ax
  246.     endif
  247.     xor     ax,ax            ; Success code 0
  248.  
  249. quit:
  250.     pop     es
  251.     pop     si
  252.     pop     di
  253.     cld                ; Microsoft C 3 assumes DF = 0.
  254.  
  255.     pop     bp            ; Get the original frame pointer.
  256.     ret
  257.     if     MSC300
  258. _bios    endp
  259.     else
  260. bios    endp
  261.     endif
  262.  
  263.  
  264.     if LAT200 or LAT210 or LAT300
  265.     endps
  266.     endif
  267.  
  268.     if MSC300
  269.     endps     bios
  270.     endif
  271.  
  272.     end
  273.