C C RSXDEF.FOR - RSX-11M Definition file. C LOGICAL*1 RIOSB(4), XIOSB(4) ! I/O status blocks. INTEGER*2 IRIOSB(2), IXIOSB(2) EQUIVALENCE (RIOSB(1),IRIOSB(1)), (XIOSB(1),IXIOSB(1)) INTEGER*2 TTBL(16) ! Termination table. DATA TTBL(1) /"020000/ ! Terminate read on . C C Parameters. C PARAMETER TIMOUT = 18 ! Timeout count (10 sec. intervals) C C Commons. C COMMON /BUFFER/ RIOSB, XIOSB COMMON /COUNTS/ TTBL C C Define I/O codes. C PARAMETER IOATT = "001400 ! Attach. PARAMETER IODET = "002000 ! Detach. PARAMETER IORAL = "001010 ! Read pass all. PARAMETER IORNE = "001020 ! Read w/no echo. PARAMETER IORTT = "005001 ! Read termination table. PARAMETER IOWAL = "000410 ! Write pass all. PARAMETER TFRNE = "000020 ! Subfunction read w/no echo. PARAMETER TFCCO = "000040 ! Subfunction cancel CTRL/O. PARAMETER TFRAL = "000010 ! Subfunction read all bits. PARAMETER TFTMO = "000200 ! Subfunction timeout. PARAMETER SFSMC = "002440 ! Set multiple characteristics. PARAMETER TCTBF = "000071 ! Flush the typeahead buffer. PARAMETER TCCTS = "000072 ! Clear the suspend state. C C Define Status Returns. C PARAMETER ISSUC = "000001 ! Successful I/O. PARAMETER ISTMO = "000002 ! Success terminated by timeout. PARAMETER IEBCC = "000276 ! Framing error (-66). PARAMETER IEDAO = "000363 ! Overrun error (-13). PARAMETER IEVER = "000374 ! Parity error (-04). C C End of RSXDEF.FOR C