home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol021 / outport.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  510 b   |  24 lines
  1. ;ROUTINE TO DO DIRECT I/O TO A PORT
  2. ;EXTERNAL MODULE FOR PASCAL/Z VERS 3.0
  3. ;
  4. ;CALL AS:
  5. ;
  6. ;    PROCEDURE OUTPORT(PORT, VALUE : INTEGER); EXTERNAL;
  7. ;
  8. PORT:    EQU    10    ;---LOW BYTE OF PORT NUMBER
  9. VALUE:    EQU     8    ;---LOW BYTE OF OUTPUT VALUE
  10.  
  11.     NAME    OUTPORT
  12.  
  13.     ENTRY    OUTPORT        ;---FOR LINKER
  14.  
  15. OUTPORT:
  16.     ENTR    D,2,0        ;---NO LOCAL STORAGE
  17.     MOV    C,PORT(IX)    ;---C := OUTPUT PORT
  18.     MOV    B,VALUE(IX)    ;---B := OUTPUT VALUE
  19.     OUTP    B        ;---OUTPUT THE VALUE TO THE PORT
  20.     EXIT    D,4        ;---DONE, 4 BYTES OF PARAMETERS
  21. ;
  22. ;
  23. ;
  24.