home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug049.ark / READLB.Z80 < prev    next >
Encoding:
Text File  |  1984-04-29  |  309 b   |  18 lines
  1. ;MCOS/CDOS call 131 from FORTRAN
  2. ;Read from disk B into user buffer
  3.     ENTRY    READLB
  4. READLB:    EQU    $
  5.     PUSH    BC
  6. ;Set disk buffer
  7.     LD    C,26
  8.     CALL    5
  9.     LD    E,(HL)    ;Block argument
  10.     INC    HL
  11.     LD    D,(HL)
  12.     LD    BC,283H    ;read disk B non-interleaved
  13.     CALL    5
  14.     POP    DE
  15.     LD    (DE),A    ;return status 2nd arg INT*1
  16.     RET
  17.     END
  18.