home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / drvlog.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.1 KB  |  28 lines
  1. ***************************************************************
  2. *                                                             *
  3. * A PASCAL/Z EXTERNAL ROUTINE TO DETERMINE WHICH DISK-DRIVE   *
  4. * IS CURRENTLY LOGGED IN.THE CALLING PROGRAM MUST DECLARE     *
  5. *                                                             *
  6. *         VAR DRIVE:CHAR;                                     *
  7. *                                                             *
  8. *         PROCEDURE DRVLOG( VAR DRIVE : CHAR );EXTERNAL;      *
  9. *                                                             *
  10. ***************************************************************
  11.  
  12.                  NAME DRVLOG
  13.                  ENTRY DRVLOG
  14.  
  15. VBYTES EQU 02    # OF BYTES ON STACK
  16. DRVPTR EQU 09    OFFSET TO (IX) FOR HI-BYTE OF ADDRESS OF "DRIVE"
  17.  
  18. DRVLOG: ENTR D,2,0
  19.         MVI C,25              ASK CP/M FOR # OF
  20.         CALL 5                LOGGED-IN DRIVE,
  21.         ADI 41H               CONVERT TO ASCII,
  22.         MOV H,DRVPTR(IX)      GET ADDRESS OF "DRIVE"
  23.         MOV L,DRVPTR-1(IX)    INTO HL REGISTER,
  24.         MOV M,A               STORE DRIVE# IN "DRIVE",
  25.         EXIT D,VBYTES
  26.  
  27.         END DRVLOG
  28.