home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug029.ark / MON2.MAC < prev    next >
Encoding:
Text File  |  1984-04-29  |  298 b   |  14 lines
  1.     ;MON2(FUN,ARG) - CALL CP/M WITH 2-BYTE RESULT
  2.     ENTRY    MON2
  3. ;
  4. MON2:    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    ;PASS RESULT IN HL
  11.     MOV    H,B
  12.     RET        ;BACK TO FORTRAN
  13.     END
  14.