home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug029.ark / MON1.MAC < prev    next >
Encoding:
Text File  |  1984-04-29  |  301 b   |  14 lines
  1.     ;MON1(FUN,ARG) - CALL CP/M WITH 1-BYTE RESULT
  2.     ENTRY    MON1
  3. ;
  4. MON1:    MOV    C,M    ;GET FUNCTION CODE FROM FIRST ARG
  5.     XCHG        ;GET SECOND ARG (CPM ARGUMENT)
  6.     MOV    E,M
  7.     INX    H
  8.     MOV    D,M    ;TWO BYTES WORTH
  9.     CALL    5    ;CP/M WILL DO THE REST
  10.     MOV    L,A    ;ALLOW BOTH INTEGER AND LOGICAL RETURNS
  11.     MVI    H,0
  12.     RET
  13.     END
  14.