home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug001.ark / GETVEC.LIB < prev    next >
Encoding:
Text File  |  1984-04-29  |  453 b   |  30 lines
  1. ;*****
  2. ; OBTAIN BIOS VECTORS
  3. ;*****
  4. VECTRS:    JMP    GETVEC
  5.     DS    42
  6. WBOOTE    EQU    VECTRS+3
  7. CSTS    EQU    VECTRS+6
  8. CI    EQU    VECTRS+9
  9. CO    EQU    VECTRS+12
  10. LO    EQU    VECTRS+15
  11. PO    EQU    VECTRS+18
  12. RI    EQU    VECTRS+21
  13. HOME    EQU    VECTRS+24
  14. SELDSK    EQU    VECTRS+27
  15. SETTRK    EQU    VECTRS+30
  16. SETSEC    EQU    VECTRS+33
  17. SETDMA    EQU    VECTRS+36
  18. READ    EQU    VECTRS+39
  19. WRITE    EQU    VECTRS+42
  20. GETVEC:    LXI    D,WBOOTE
  21.     LHLD    1
  22.     MVI    B,42
  23. GETVE1:    MOV    A,M
  24.     STAX    D
  25.     INX    H
  26.     INX    D
  27.     DCR    B
  28.     JNZ    GETVE1
  29. ;
  30.