!*** MODULE $XWDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! ++
 ! 
 !  XWDEF - System definitions for software DDCMP
 ! 
 ! --
	PARAMETER XW$M_CHA_FDX = '00000001'X
	PARAMETER XW$M_CHA_XPR = '00000002'X
	PARAMETER XW$M_CHA_DSR = '00000004'X
	PARAMETER XW$M_FAT_STAT = '000003FF'X
	PARAMETER XW$M_INFO_STAT = '0000FC00'X
	PARAMETER XW$M_EOT = '00000001'X
	PARAMETER XW$M_DATACK = '00000002'X
	PARAMETER XW$M_NODSR = '00000004'X
	PARAMETER XW$M_DISCON = '00000008'X
	PARAMETER XW$M_TRABINTMO = '00000010'X
	PARAMETER XW$M_PIPE_MARK = '00000020'X
	PARAMETER XW$M_BADCHAIN = '00000040'X
	PARAMETER XW$M_ILLMOD = '00000080'X
	PARAMETER XW$M_RVI = '00000400'X
	PARAMETER XW$M_CONACK = '00000800'X
	PARAMETER XW$M_XPR = '00001000'X
	PARAMETER XW$M_ETXEND = '00002000'X
	PARAMETER XW$M_PUNCH = '00010000'X
	PARAMETER XW$M_HOR_FOR = '00020000'X
	PARAMETER XW$M_IOMOD = '0000E000'X
	STRUCTURE /XWDEF/
	UNION
	    MAP
	        PARAMETER XW$S_CHA_FDX = 1
	        PARAMETER XW$V_CHA_FDX = 0		 !  Full duplex line 
	        PARAMETER XW$S_CHA_XPR = 1
	        PARAMETER XW$V_CHA_XPR = 1		 !  Transparency 
	        PARAMETER XW$S_CHA_DSR = 1
	        PARAMETER XW$V_CHA_DSR = 2		 !  Data Set Ready set 
	    BYTE %FILL (1)
	    END MAP
 ! 
 !  Device dependent status
 ! 
	    MAP
	        PARAMETER XW$S_FAT_STAT = 10
	        PARAMETER XW$V_FAT_STAT = 0		 !  Beginning of fatal stat flags 
	        PARAMETER XW$S_INFO_STAT = 6
	        PARAMETER XW$V_INFO_STAT = 10
	        BYTE %FILL (2)				 !  Start of informational status 
	    END MAP
 ! 
 !  Bit definitions for fatal and informational status fields
 ! 
	    MAP
	        PARAMETER XW$S_EOT = 1
	        PARAMETER XW$V_EOT = 0			 !  EOT received 
	        PARAMETER XW$S_DATACK = 1
	        PARAMETER XW$V_DATACK = 1		 !  Retry threshold exceeded 
	        PARAMETER XW$S_NODSR = 1
	        PARAMETER XW$V_NODSR = 2		 !  Line not connected 
	        PARAMETER XW$S_DISCON = 1
	        PARAMETER XW$V_DISCON = 3		 !  Disconnect (DLE, EOT) rcvd 
	        PARAMETER XW$S_TRABINTMO = 1
	        PARAMETER XW$V_TRABINTMO = 4		 !  Binary transmit timeout 
	        PARAMETER XW$S_PIPE_MARK = 1
	        PARAMETER XW$V_PIPE_MARK = 5		 !  Aborted because of pipe mark 
	        PARAMETER XW$S_BADCHAIN = 1
	        PARAMETER XW$V_BADCHAIN = 6		 !  Bad record list 
	        PARAMETER XW$S_ILLMOD = 1
	        PARAMETER XW$V_ILLMOD = 7		 !  Illegal QIO modifier 
	        PARAMETER XW$S_RVI = 1
	        PARAMETER XW$V_RVI = 10			 !  Buffer ACKed with RVI 
	        PARAMETER XW$S_CONACK = 1
	        PARAMETER XW$V_CONACK = 11		 !  Buffer ACKed with conver resp 
	        PARAMETER XW$S_XPR = 1
	        PARAMETER XW$V_XPR = 12			 !  Buffer rcvd with transparency 
	        PARAMETER XW$S_ETXEND = 1
	        PARAMETER XW$V_ETXEND = 13		 !  Rcvd block ended with ETX 
	        PARAMETER XW$S_PUNCH = 1
	        PARAMETER XW$V_PUNCH = 16		 !  Punch select found 
	        PARAMETER XW$S_HOR_FOR = 1
	        PARAMETER XW$V_HOR_FOR = 17		 !  Horizontal forms record rcvd 
	    BYTE %FILL (2)
	    END MAP
 ! 
 !  Read/Write function modifier definition
 ! 
	    MAP
	        PARAMETER XW$S_IOMOD = 3
	        PARAMETER XW$V_IOMOD = 13
	        BYTE %FILL (1)				 !  I/O modifier field start 
	    END MAP
	END UNION
	END STRUCTURE	! XWDEF
!DEC$ END OPTIONS