home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG029.ARK / MON2.MAC < prev    next >
Text File  |  1984-04-29  |  298b  |  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.