home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / sclib2.lbr / BDOS.MZC / BDOS.MAC
Encoding:
Text File  |  1993-10-25  |  640 b   |  31 lines
  1. ;
  2. ; bdos.mac    by    F. A. Scacchitti    9 - 18 - 84
  3. ;
  4. ; This assembly routine allows CPM calls from Small C.
  5. ;
  6. ;     bdos(function,data) or cpm(function,data)
  7. ;
  8. ; NOTE    - This function only returns what the bdos call
  9. ;        placed in the accumulator
  10. ;
  11. BDOS::
  12. ;
  13. CPM::
  14. ;
  15.     POP    H    ; Pop rtn address
  16.     POP    D    ; Pop input parameter in DE register pair
  17.     POP    B    ; Pop function code into C register
  18.     PUSH    B    ; Restore stack
  19.     PUSH    D
  20.     PUSH    H
  21.     CALL    5
  22.     MOV    L,A    ; Sign extend A    into HL    register pair
  23.     RLC
  24.     SBB    A
  25.     MOV    H,A
  26. ;
  27.     RET
  28. ;
  29.     END
  30.  
  31.