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 / MON1.MAC < prev    next >
Text File  |  1984-04-29  |  301b  |  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.