;ROUTINE TO DO DIRECT I/O TO A PORT
;EXTERNAL MODULE FOR PASCAL/Z VERS 3.0
;
;CALL AS:
;
;       PROCEDURE OUTPORT(PORT, VALUE : INTEGER); EXTERNAL;
;
PORT:   EQU     10      ;---LOW BYTE OF PORT NUMBER
VALUE:  EQU      8      ;---LOW BYTE OF OUTPUT VALUE

       NAME    OUTPORT

       ENTRY   OUTPORT         ;---FOR LINKER

OUTPORT:
       ENTR    D,2,0           ;---NO LOCAL STORAGE
       MOV     C,PORT(IX)      ;---C := OUTPUT PORT
       MOV     B,VALUE(IX)     ;---B := OUTPUT VALUE
       OUTP    B               ;---OUTPUT THE VALUE TO THE PORT
       EXIT    D,4             ;---DONE, 4 BYTES OF PARAMETERS
;
;
;