Google
 

Trailing-Edge - PDP-10 Archives - bb-d868c-bm_tops20_v4_2020_distr - language-sources/d60unv.mac
There are 62 other files named d60unv.mac in the archive. Click here to see a list.
;<DN65-DEVELOPMENT>D60UNV.MAC.5, 21-Oct-79 11:42:18, Edit by JENNESS
; Add SLHWA, SLCSD, SLSWL definitions for IBMCON.
;<DN65-DEVELOPMENT>D60UNV.MAC.2, 18-Oct-79 15:12:53, Edit by JENNESS
; Decoupled from D60JSY.MAC to remove deadly embrace with QSRMAC.
;   D60UNV - Universal definitions for DN60 communications

;
;
;			  COPYRIGHT (c) 1979
;                    DIGITAL EQUIPMENT CORPORATION
;
;     This software is furnished under a license and may  be  used
;     and copied only in accordance with the terms of such license
;     and with the inclusion of the above copyright notice.   This
;     software  or any other copies thereof may not be provided or
;     otherwise made available to any other person.  No  title  to
;     and ownership of the software is hereby transferred.
;
;     The information  in  this  software  is  subject  to  change
;     without  notice  and should not be construed as a commitment
;     by DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL assumes no responsibility for the use or reliability
;     of  its  software  on  equipment  which  is  not supplied by
;     DIGITAL.
;
	UNIVERSAL D60UNV universal symbol file
	SUBTTL	Values of interest for linkage

	SALL				; Make nice clean listing

	SEARCH	GLXMAC			; GALAXY macro/symbol definitions

; Version

	D6UEDT==100			; Edit number
	D6UVER==1			; Version number
	D6UMIN==0			; Minor version number
	D6UWHO==0			; Who edited last (DEC=0)

; Error codes

	XP	$ER1ST,	660000		; First error number to allocate


; Function codes for D60OPR

	XP	.MORQI,	76		; Request I/O on device
	XP	.MOABT,	75		; Set I/O transfer abort for device
	XP	.MOTHR,	74		; Set device off line threshold

; Function codes for D60CND

	XP	.CNENB,	1		; Enable the line
	XP	.CNDIS,	2		; Disable the line (hang-up)

; Function codes for D60STS

	XP	.STDEV,	0		; Device status
	XP	.STPRT,	1		; Port activity status
	XP	.STLIN,	2		; Line status flags

; Device codes for D60OPN

	XP	.OPLPT,	1		; Line printer
	XP	.OPCDP,	2		; Card punch
	XP	.OPCDR,	3		; Card reader
	XP	.OPCIN,	4		; Console input
	XP	.OPCOU,	5		; Console output
	XP	.OPSGN,	6		; Signon device
	SUBTTL	Universal error symbol definitions

; Macro - D60ERR
;
; Function - To define a set of macro calls (to ERRS) that will then define
;	the error return value set for the D60JSY calls.
;
; Use -
;
;	A macro called ERRS must be defined that has two parameters
;
;	NAM	Error value name
;	TXT	Error text, describes the error.
;
;	A default macro is defined that will assign the proper values to
;	the error names and does not user the error text in any way.

	Define D60ERR

<	ERRS (D6AUT,<Port/line/dev/unit already used by this process>)
	ERRS (D6AUA,<Port/line/dev/unit already in use by another process>)
	ERRS (D6NSP,<No such port>)
	ERRS (D6NSL,<No such line on the port>)
	ERRS (D6NSD,<No such device on the station>)
	ERRS (D6NSU,<No such unit number of the specified device type>)
	ERRS (D6PLD,<Process lacks DTE I/O priviledges>)
	ERRS (D6NJA,<No JFN's available to open logical FE: on>)
	ERRS (D6DNR,<DN60 not running>)
	ERRS (D6PIU,<Port is useless to us, but it's running>)
	ERRS (D6COF,<Can't open a front end for use>)
	ERRS (D6UNS,<Unit number specified on non-HASP station>)
	ERRS (D6UND,<Unknown device type or unit>)
	ERRS (D6NBR,<Non-Blocking I/O Return>)
	ERRS (D6EOF,<End of file encountered while reading in data>)
	ERRS (D6NSH,<No such handle exists, call D60OPN first>)
	ERRS (D6CNN,<Byte count not negative>)
	ERRS (D6DOL,<Device seems to be offline>)
	ERRS (D6DCI,<Device can't do input>)
	ERRS (D6DCO,<Device can't do output>)
	ERRS (D6EEO,<Error while sending EOF, stream aborted>)
	ERRS (D6CGO,<Can't get output permission>)
	ERRS (D6FNI,<Function not implemented>)
	ERRS (D6IOE,<Unknown I/O error occured>)
	ERRS (D6CTF,<Can't talk to front end, SIN/SOUT or BOOT JSYS failed>)
	ERRS (D6BLS,<Bad line signature specified on open>)
	ERRS (D6LGA,<Line gone away, either hung up or hardware failure>)
	ERRS (D6DNU,<DSR not up, line is not connected>)
    > ;End D60ERR definition
	SUBTTL	Macros -- ERRS

; Macro - ERRS
;
; Function - To define a common method of allocating sequential error numbers.
;
; Parameters -
;
;	$%NAM	Mnemonic name of error
;	$%TXT	Text describing the error
;
; Use -
;
;	ERRS	(ERNAM,<This is the text describing ERNAM>)

	Define ERRS ($%NAM,$%TXT)

<IF1,<	IFNDEF $ERNXT,<$ERNXT==$ER1ST>	; If 1st time called .. init 1st value
	$ERNXT==$ERNXT+1		; Increment the error counter
	$%NAM=$ERNXT-1>		; Assign symbol to value (show value)

 IF2,<	IFG $ERNXT,<$ERNXT==-$ER1ST>	; If 1st time in pass2 .. init negative
	$ERNXT==$ERNXT-1		; Increment error counter
	$%NAM=-$ERNXT-1>		; Assign symbol value
    >; End ERRS definition
	SUBTTL	Internal definitions for D60JSY

; Fields in PDD (packed device descriptor)

	XP	PD$PRT,	777b8		; Port number
	XP	PD$LIN, 777b17		; Line number
	XP	PD$DEV,	777b26		; Device number
	XP	PD$UNT,	777b35		; Unit number
	SUBTTL	Definitions -- Handle list

; Definition - Handle list
;
; Function - This list stores all the data needed for using the handle that is
;	given to the user.
;
; Entries -
;
;	H$PDD	Unique descriptor of a device for list searching
;	 H$DEV	 Device type on 2780/3780/HASP station.
;	 H$UNT	 Unit number of multiple device on HASP station.
;	 H$PRT	 Port number that comm. to device is done on.
;	 H$LIN	 Line number that station is off port (11).
;	H$HAN	Handle identifier for this list entry
;	 H$HDV	 Unique device code (RCB for HASP stations)
;	 H$HPR	 Port number that line is on
;	 H$HLN	 Line number from port to station
;	H$CDV	Device number used when talking to 11
;	H$STS	Status of this entry.
;	 H$TEM	 Termination (0,default)/Emulation (1) bit
;	 H$MSG	 Number of bytes maximum for message
;	 H$STY	 Station type (1=3780,2=2780,3=HASP)
;	 H$IOM	 Input/output I/O mode
;	 H$RTI	 Return immediate flag. If delay occurs .. return.
;	H$SIG	Signature of line device is on

	XP	H$ASS,	1b0		; Flag to say that handle is assigned
	SYSPRM	H$SIZ,5,11		; Size of handle table entry in words

	MSKSTR	(H$PDD,0,FWMASK)	; Packed device descriptor
	 MSKSTR	 (H$PRT,0,PD$PRT)	;  Port number
	 MSKSTR	 (H$LIN,0,PD$LIN)	;  Line number
	 MSKSTR	 (H$DEV,0,PD$DEV)	;  Device type code
	 MSKSTR	 (H$UNT,0,PD$UNT)	;  Unit number
	MSKSTR	(H$HAN,1,RHMASK)	; Handle is in the RH
	 MSKSTR	 (H$HPR,1,37b22)	;  5 bits of port number
	 MSKSTR	 (H$HLN,1,37b27)	;  5 bits of line number
	 MSKSTR	 (H$HDV,1,377b35)	;  8 bits of device num. (RCB for HASP)
	MSKSTR	(H$CDV,1,LHMASK)	; Communication device number
	MSKSTR	(H$STS,2,FWMASK)	; Status and other needed values
	 MSKSTR	 (H$TEM,2,1b1)		;  Termination/Emulation mode flag
	 DEFSTR	 (H$STY,2,^d9,^d8)	;  Station type code
	 MSKSTR	 (H$IOM,2,1b10)		;  Input/output device mode
	 MSKSTR	 (H$RUN,2,1b11)		;  Permission given/gotten, I/O going
	 DEFSTR	 (H$BPM,2,^d27,^d16)	;  Number of bytes max per message
	 MSKSTR	 (H$RTI,2,1b35)		;  Return immediately if delay occurs
	MSKSTR	(H$THR,3,LHMASK)	; Threshold of delays to off-line
	MSKSTR	(H$DLY,3,RHMASK)	; Count of consecutive delayed CAL11.s
	MSKSTR	(H$SIG,4,RHMASK)	; Line signature

TOPS20 <
	LSTPNT==5			; Pointer to next byte in output
	NBXFRD==6			; Number of bytes transfered so far
	NBTXFR==7			; Number of bytes yet to transfer
	NBSDLY==10			; Bytes output since last delay

    > ;End of TOPS20 dependant handle list data
	SUBTTL	Argument block for front end I/O

; Definition - Argument block format for front end I/O routines
;
; Function - To pass the parameters to the front end I/O routines

	MSKSTR	(ARG$FC,0,FWMASK)	; Function code (.C11QU code)
	MSKSTR	(ARG$BC,1,FWMASK)	; Byte count to transfer
	MSKSTR	(ARG$PT,2,FWMASK)	; Byte pointer to input/output string
	MSKSTR	(ARG$XF,3,FWMASK)	; Number of bytes actually transfered
	MSKSTR	(ARG$RC,4,FWMASK)	; Result code

; Definition - Command string format for the line and device command routines

	XP	CMD$WD,	5		; Full word here for command string

	DEFSTR	(CMD$FC,5,^d7,^d8)	; Function code
	DEFSTR	(CMD$1B,5,^d15,^d8)	; Single byte data value for command
	DEFSTR	(CMD$2B,5,^d23,^d16)	; 2 byte data value for command

	XP	ARGSIZ,	6		; Number of words in arg block
	SUBTTL	Argument block for D60CND (condition line)

; Definition - Argument block structure for D60CND condition line global
;	routine

	MSKSTR	(CN$PRT,0,LHMASK)	; Port number to operate on
	MSKSTR	(CN$LIN,0,RHMASK)	; Line to start station on
	MSKSTR	(CN$TRA,1,1b15)		; Transparent flag
	MSKSTR	(CN$MAP,1,3b17)		; Mode and protocol fields
	 MSKSTR	(CN$PSP,1,1b16)		;  Primary/secondary protocol
	 MSKSTR	(CN$ETF,1,1b17)		;  Emulation/termination flag
	MSKSTR	(CN$TYP,1,RHMASK)	; Station type
	MSKSTR	(CN$CTS,2,FWMASK)	; Clear to send delay
	MSKSTR	(CN$WRN,3,FWMASK)	; Silo warning area
	MSKSTR	(CN$BPM,4,FWMASK)	; Number of bytes/message
	MSKSTR	(CN$RPM,5,FWMASK)	; Number of records/message
	MSKSTR	(CN$SIG,6,FWMASK)	; Line signature

	XP	CN$SIZ,	7		; Length of condition argument block
	SUBTTL	Argument block format for D60OPN

; Definition - This is the argument block format for the D60OPN device open
;	routine

	MSKSTR	(OP$DEV,0,FWMASK)	; Unique device specification
	 MSKSTR	(OP$TYP,0,LHMASK)	;  Device type
	 MSKSTR	(OP$UNT,0,RHMASK)	;  Unit number
	MSKSTR	(OP$STA,1,FWMASK)	; Unique station specification
	 MSKSTR	(OP$PRT,1,LHMASK)	;  Port number
	 MSKSTR	(OP$LIN,1,RHMASK)	;  Line number
	MSKSTR	(OP$SIG,2,FWMASK)	; Line signature

	XP	OP$SIZ,	3		; Open block size
	SUBTTL	.C11QU function of CAL11. UUO

; Calling sequence of CAL11. UUO
;
;	MOVE	AC,[XWD length,addr]
;	CAL11.	AC,
;	 error return
;	normal return
;
;
; addr:	XWD	port #, .C11QU (=2)
;	XWD	line #, device #
;	XWD	# of bytes, .C11QU subfunction code
;	XWD	length of buffer (36 bit words), buffer address
;	BYTE	(12) # bytes/word (24) byte position of 1st byte in buffer
;	XWD	# of bytes transfered, result code

; Definition - CAL11. argument block definitions


	MSKSTR	(C$PRT,0,LHMASK)	; Port number
	MSKSTR	(C$FNC,0,RHMASK)	; CAL11. function code
	MSKSTR	(C$LIN,1,LHMASK)	; Line number
	MSKSTR	(C$DEV,1,RHMASK)	; Device number
	MSKSTR	(C$NBT,2,LHMASK)	; Number of bytes to be transfered
	MSKSTR	(C$FC,2,RHMASK)		; Subfunction code to .C11QU CAL11. UUO
	MSKSTR	(C$BFS,3,LHMASK)	; Buffer size
	MSKSTR	(C$BFA,3,RHMASK)	; Buffer address
	MSKSTR	(C$BPW,4,-1B11)		; Number of bytes per word
	MSKSTR	(C$PFB,4,77777777)	; Position of first byte in buffer
	MSKSTR	(C$BXF,5,LHMASK)	; Number of bytes transfered
	MSKSTR	(C$RC,5,RHMASK)		; Result code

	XP	C$SIZ,	6		; Length of a CAL11. block
	SUBTTL	TOPS20 Receive/transmit header structures

; Definition - TOPS20 Receive/transmit headers
;
; Function - To define the bytes in the I/O headers for communication with
;	the 11's hung off a TOPS20 system.  These headers are the first things
;	sent (before the data) and the first received (on input).  They also
;	contain the result (receive) code that comes from any I/O operation.

	MSKSTR	(RCVRC,RCVHDR,377b7)	; Receive (result) code
	MSKSTR	(RCVFC,RCVHDR,377b15)	; Function code receiving result from
	MSKSTR	(RCVLN,RCVHDR,377b23)	; Line number receiving from
	MSKSTR	(RCVDV,RCVHDR,377b31)	; Device-type number
	MSKSTR	(RCVBC,RCVHDR+1,-1b15)	; # bytes transfered
	 MSKSTR	 (RCVHB,RCVHDR+1,377b7)	 ; High order # of bytes transfered
	 MSKSTR	 (RCVLB,RCVHDR+1,377b15) ; Low order # of bytes transfered


	MSKSTR	(XMTFC,XMTHDR,377b15)	; Function for output
	MSKSTR	(XMTLN,XMTHDR,377b23)	; Line number transmitting to
	MSKSTR	(XMTDV,XMTHDR,377b31)	; Device-type transmitting out to.
	MSKSTR	(XMTBC,XMTHDR+1,-1b15)	; Number of bytes to transfer
	 MSKSTR	 (XMTHB,XMTHDR+1,377b7)	 ; High order # of bytes to output
	 MSKSTR	 (XMTLB,XMTHDR+1,377b15) ; Low order # of bytes to output.
	SUBTTL	CAL11. UUO symbol definitions

; Function codes

	XP	.C11DP,	0	; Deposit function
	XP	.C11EX,	1	; Examine function
	XP	.C11QU,	2	; Queue request function
	XP	.C11NM,	3	; Return name of 11 program running
	XP	.C11UP,	4	; Return 0 if PDP11 is down
				; Return 1 if PDP11 is up


; Error return codes from CAL11. UUO

	XP	C11NP%,	1	; Caller does not have poke privileges
	XP	C11UF%,	2	; Undefined function for this type of FE
	XP	C11ND%,	3	; Invalid DL10 port number
	XP	C11IU%,	4	; CAL11. in use (try again later)
	XP	C11NA%,	5	; No answer from FE after 1-2 seconds
	XP	C11TS%,	6	; Queue entry too short (DC76 only)
	XP	C11NE%,	7	; Not enough arguments
	XP	C11AI%,	10	; Examine/deposit address was invalid (more
				;  than 16 bits in address/data, or FE flagged
				;  it as bad)
	XP	C11OR%,	11	; Illegal function code to .C11QU
				;  Address check, illegal byte size, byte
				;  offset is outside buffer, or buffer is too
				;  large (requires more than 16 DL10 pointers)
;	XP	C11??%,	12	; On a DN61-S, DTESER can't get any free core
;	XP	C11??%,	13	; On a DN61-S, the reload bit is set or primary
				;  protocol is not running.  This means that
				;  front end is down.
;	XP	C11??%,	14	; On a DN61-S, there will never be enough Exec
				;  Virt Mem to process req.

; Under TOPS20, error codes with bits 18 and 19 set (600000) are JSYS errors.
; DN60 .C11QU subfunction codes
;
; Note - notice that the reads are odd and the writes are even values.

	XP	FC.RD,	1	; Read data from device
	XP	FC.WD,	2	; Write data to device
	XP	FC.RDS,	3	; Read device status
	XP	FC.WDC,	4	; Write device command
	XP	FC.RLS,	5	; Read line status
	XP	FC.WLC,	6	; Write line command
	XP	FC.R6S,	7	; Read DN60 status
	XP	FC.W6C,	10	; Write DN60 command
	XP	FC.EXM,	11	; Examine memory in -11
	XP	FC.DEP,	12	; Deposit into -11 memory

; DN60 .C11QU result codes

	XP	RC.SUC,	1	; Operation was successful
	XP	RC.DLY,	2	; Operation was delayed
	XP	RC.REJ,	3	; Operation was rejected

; DN60 .C11QU device commands

	XP	DC.SC,	1	; Set device characteristics
				; byte 1 = device type:
				;	0 = unknown
				;	1 = printer
				;	2 = punch
				;	3 = card reader
				;	4 = console input
				;	5 = console output
				;	6-255 reserved.
	XP	DC.REC,	2	; Set max logical records/transmission
				; Bytes 1 and 2 = max records
				;	0 = no limit
				;	2 for 2780 w/o multi-record feature.
				;	7 for 2780 w/ MRF
				;	0 for 3780.
	XP	DC.DOB,	3	; Dump output buffers (used for SIGNON)
	XP	DC.CIP,	4	; Clear input permission was requested
;	XP	DC.???,	5	; Reserved
	XP	DC.SCI,	6	; Set "Interpret carriage control on input"
				;  (simulate a printer)
	XP	DC.CCI,	7	; Clear "Interpret carriage control on input"
	XP	DC.SCO,	^d8	; Set "Interpret carriage control on output"
	XP	DC.CCO,	^d9	; Clear "Interpret carriage control on output"
;	XP	DC.???,	^d10	; Reserved
;	XP	DC.???,	^d11	; Reserved
	XP	DC.SCC,	^d12	; Specify output component
				;  byte 1 = component code
	XP	DC.DCC,	^d13	; Don't do output component selection
	XP	DC.SLC,	^d14	; Set printer line counter and enable for over-
				;  flow.  Bytes 1-2 = value of line counter
	XP	DC.CLC,	^d15	; Disable printer line counter overflow
	XP	DC.SBS,	^d16	; Set max transmission block size (bytes 1-2)
	XP	DC.SSC,	^d17	; Do space compression on output
	XP	DC.CSC,	^d18	; Don't do space compression on output
	XP	DC.S27,	^d19	; Use old BSC protocol (IUS, ETB and ETX imply
				;  IRS, overprinting is ignored, card output 
				;  is padded to 80 characters with spaces)
	XP	DC.C27,	^d20	; Don't use old protocol
	XP	DC.ROP,	^d21	; Request output permission
	XP	DC.GIP,	^d22	; Grant input permission
	XP	DC.SOE,	^d23	; Signal output EOF
	XP	DC.COE,	^d24	; Clear output EOF complete flag
	XP	DC.SOA,	^d25	; Signal output abort
	XP	DC.COA,	^d26	; Clear output abort complete
	XP	DC.CIE,	^d27	; Clear input EOF complete
	XP	DC.SIA,	^d28	; Signal input abort
	XP	DC.CIA,	^d29	; Clear input abort complete
	XP	DC.SPD,	^d30	; Suspend device (HASP only)
	XP	DC.USD,	^d31	; Unsuspend device (HASP only)
	XP	DC.BPR,	^d32	; Set bytes per record

; DN60 .C11QU line commands

	XP	LC.EL,	1	; Enable line and set characteristics
				;  byte 1 = terminal type: 0 = unknown,
				;   1 = 3780, 2 = 2780, 3 = HASP
				;  byte 2 = flags:
				;	bit 0 set = simulate
				;	      clear = support
				;	bit 1 set = primary BSC station (1 sec)
				;	      clear = secondary BCS station (3)
				;   usually primary & support or sec & sim,
				;   this sets the bid time for line different
				;   on each end of the line
	XP	LC.DTR,	2	; Set DTR (data terminal ready), allow answer
				;  of modem and receipt of data
	XP	LC.ABT,	3	; Abort all data transfers and clear DTR
	XP	LC.DIS,	4	; Disable the line
	XP	LC.CSD,	5	; Clear to send delay in jiffies (bytes 1-2)
	XP	LC.WAR,	6	; Number of bytes in warning silo (FIFO) area.
				;  (bytes 1-2)
	XP	LC.STR,	7	; Set output transparency
	XP	LC.CTR,	^d8	; Clear output transparency
	XP	LC.BPM,	^d9	; Set max number of bytes per message
	XP	LC.RPM,	^d10	; Set number of records per message
	XP	LC.SLS,	^d11	; Set line signature

; Number of bytes returned while reading .C11QU status'

	XP	D6.BYT,	^d79+1	; DN60 status
	XP	LS.BYT,	^d69+1	; Line status
	XP	DS.BYT,	^d13+1	; Device status

	MAX	<D6.BYT,LS.BYT,DS.BYT>,STSMAX	; Largest status buffer size
	SUBTTL	Macros -- STSBYT, BIT11

; Macro - STSBYT
;
; Function - To define a pointer to an entry in the status string.
;
; Parameters -
;
;	$%MNE	Mnemonic name to be given to the field
;	$%1ST	First byte in the field (lowest order)
;	$%LEN	Length of field in bytes.
;
;	Note: this assumes that the status string is in 8 bit bytes, which
;		is normal.

	Define STSBYT ($%MNE,$%1ST,$%LEN)

<	%$LEN==$%LEN			;; Save length of field for BIT11
	%$LM==MOD.(<^d<$%1ST>*^d8>,^d32) ;; Left most bit in word
	%$WID==^d<$%LEN>*^d8		;; Width of mask in bits
	%$RM==%$LM+%$WID-1		;; Right most bit in word
	DEFSTR ($%MNE,STSBUF+^d<$%1ST>/4,%$RM,%$WID)
    > ;End STSBYT definition


; Macro - BIT11
;
; Function - To define mnemonic names that map PDP11 bit values (or masks)
;	into a 10/20 36 bit word.
;
; Parameters -
;
;	$%MNE	Mnemonic name to be given to the field
;	$%RM	Bit to be assigned (or rightmost bit in the mask field)
;	$%VAL	Optional value that has it's LSB as $%RM.
;
;	%$LEN	Length of field in bytes (from STSBYT)

Define BIT11 ($%MNE,$%RM,$%VAL<1>) <$%MNE==<$%VAL>b<35-<%$LEN-1-$%RM/8>*8-MOD.($%RM,8)>>
	SUBTTL	CAL11. status strings

; The status strings are returned as 8 bit byte string packed 4 bytes left
;  justified in a 36 bit word.  In each byte the bit numbering is bit 0 to
;  the right (LSB) and bit 7 to the left (MSB).
; Any 16 bit values that are returned have the 8bit bytes that make it up
;  swapped. So before these bits defined below are valid, the bytes have to
;  be swapped back again.


;	 7       0 15      8 7       0 15      8	Bit no.'s in -11's word
;	 !       ! !       ! !       ! !       !
;	+------------------------------------------+
;	! byte 0  ! byte 1  ! byte 2  ! byte 3  !  !	Byte no. in -11
;	+------------------------------------------+
;	 !    word 0       ! !      word 1     !  !	Word no. in -11
;        35               20 19                4  0	Bit no.'s in -10's word


; DN60 port status string  [ 80 (8 bit) bytes, 20 (36 bit) words ]
;
; Byte		Meaning
; ----		-------
;
; 0-7		DN60 version number
; 8-9		window version number (must match D60SER)
; 10-11		Current number of free "chunks" in the DN60
; 12-13		Number of lines on this DN60
; 14-15		Number of bytes of data in a chunk
; 16-17		Translation options avaiable:
;		 Bit 0 = IBM 3780/2780
;		 Bit 1 = HASP multileaving
;		 Bit 2 = IBM 3270
; 18-25		KMC11 microcode version number
; 26-27		Error code of last error that occured
; 28-29		Line number that last error occured on
; 30-31		Device that last error occured on
; 32-33		Bit	Meaning
;		 0-5	 Reserved
;		 6	 Console output data ready
;		 7	 Console input data ready
;		 8	 CDR0 has data ready (active)
;		  up to
;		 15	 CDR7 has data ready
; 34-35		Bit	Meaning
;		 0	 LPT0 has is active
;		  up to
;		 7	 LPT7 is ready for data
;		 8	 CDP0 is ready for data
;		  up to
;		 15	 CDP7 is ready for data
;
; Repeat bytes 32-35 11 more times for a total of 12 lines.
;	32-35	line 0
;	36-39	line 1
;	40-43	line 2
;	44-47	line 3
;	48-51	line 4
;	52-55	line 5
;	56-59	line 6
;	60-63	line 7
;	64-67	line 8
;	68-71	line 9
;	72-75	line 10
;	76-79	line 11

	STSBYT	(S6LIN,12,1)		; Maximum line number on DN60
	STSBYT	(S6TRN,16,1)		; Translation options on DN6x
	 BIT11	 TR$X78, 0		;  Translate to 2780/3780 stations
	 BIT11	 TR$HSP, 1		;  Translate to HASP stations
	 BIT11	 TR$327, 2		;  Translate to 3270 stations
	 BIT11	 TR$IBM, 0,7		;  Any IBM translation
	XP	S6ACT,	^d8		; Offset to start of active flags
	XP	S6ALN,	^d12		; Length of active flag area (in words)
; Line status  [ 70 (8 bit) bytes, 18 (36 bit) words ]
;
; Byte		Meaning
; ----		-------
;
; 0		Terminal type: 0 = unknown, 1 = 3780, 2 = 2780, 3 = HASP
; 1-2		Flags:	bit 0 set = simulate, clear = support
;			bit 1 set = primary BSC protocol, clear = secondary
;			bit 2 set = signed on
;			bit 3 set = transparent
;			bit 4 set = disable in progress
;			bit 5 set = line enable complete
;			bit 6 set = line abort complete
;			bit 7 set = off line (2780/3780 only)
;			bit 8 set = line disable complete
;			bit 9 set = disable done by DTE failure
;			bit 10 set = Line aborted by hardware failure
;			bit 11 set = Communications established
; 3		Line info:
;			bit 0 set = line is enabled
;			bit 1 set = DTR (data terminal ready)
;			bit 2 set = DSR (data set ready)
; 4-5		Count of DQ11/DUP11 error interrupts
; 6-7		DQ11/DUP11 status register 1 at last error
; 8-9		DQ11/DUP11 status register 2 at last error
; 10-11		Count of times receiver wasn't fast enough
; 12-13		Count of times transmitter wasn't fast enough
; 14-15		Count of CTS (clear to send) failures
; 16-17		Count of message sent and ACK'ed
; 18-19		Count of NAK's received (+wrong acknowledge after timeout)
; 20-21		Count of invalid responses to TTD
; 22-23		Count of invalid responses to messages
; 24-25		Count of TTD's sent
; 26-27		Count of WACK's received in response to messages
; 28-29		Count of EOT's (aborts) in response to messages
; 30-31		Count of invalid bids of responses to bids
; 32-33		Count of RVI's received while transmitting
; 34-35		Count of message received ok
; 36-37		Count of bad BCC's
; 38-39		Count of NAK's sent in response to data messages
; 40-41		Count of WACK's sent
; 42-43		Count of TTD's received
; 44-45		Count of EOT's sent or received which abort the stream
; 46-47		Count of messages ignored (out of chunks, unrecognizable or 
;		 timeout)
; 48-49		Count of transparent msg with an invalid character after DLE
; 50-51		Count of attempts to change between transparent and normal mode
;		 in a blocked message
; 52-53		Count of transmitter timeouts
; 54-55		Clear to send delay in jiffies
; 56-57		Count of silo overflows
; 58-59		Number of bytes in silo warning area (usually 64, must be even)
; 60-61		Max number of bytes used in silo warning area since set last
; 62-63		Max bytes per message
; 64-65		Number of records per message
; 66-67		Line signature
; 68-69		Line driver type: 1 = DQ11, 2 = KMC11/DUP11, 3 = DUP11 w/o KMC

	STSBYT	(SLTYP,0,1)		; Translation type (type of station)
	 XP	 SL378,	1		;  IBM 3780
	 XP	 SL278,	2		;  IBM 2780
	 XP	 SLHSP,	3		;  IBM HASP
	STSBYT	(SLFLG,1,2)		; Line flags (term/emul)
	 BIT11	 SLETF,	0		;  Emulation/termination flag
	 BIT11	 SLPRO,	1		;  Primary/secondary protocol
	 BIT11	 SLSON,	2		;  Station is signed on
	 BIT11	 SLTRA,	3		;  Transparent mode flag
	 BIT11	 SLHWA,	10		;  Hardware abort
	 BIT11	 SLCME,	11		;  Communications established
	STSBYT	(SLINF,3,1)		; Line info (DTR, DSR, enabled)
	 BIT11	 SLLEN,	0		;  Line enable flag
	 BIT11	 SLDTR,	1		;  DTR flag (data terminal ready)
	 BIT11	 SLDSR,	2		;  DSR flag (data set ready)
	STSBYT	(SLCSD,54,2)		; Clear to send delay
	STSBYT	(SLSWL,58,2)		; Silo warning level
	STSBYT	(SLBPM,62,2)		; Maximum bytes per message
	STSBYT	(SLRPM,64,2)		; Records per message
	STSBYT	(SLSIG,66,2)		; Line signature
; Device status string	[ 14 (8 bit) bytes, 3 (36 bit) words ]
;
; Byte		Meaning
; ----		-------
;
; 0		Device type (2780/3780) 0 = unknown, 1 = printer, 2 = punch
;		 3 = reader. (HASP) 1 = console-in, 2 = console-out
; 1		Component selection code: 0 = unknown, 1= printer, 2 = punch
; 2-3		Printer line counter
; 4-7		Flags:
;		 Bits	0-3	reserved
;			4	interpret input carriage control
;			5	interpret output carriage control
;			6	reserved
;			7	do component selection
;			8	do compress/expand
;			9	page counter has overflowed
;			10	page counter interrupts enabled
;			11	old BSC protocol
;			12	output buffers being dumped
;			13-15	reserved
;			16	output permission requested
;			17	output permission granted
;			18	output running
;			19	output EOF signaled
;			20	output EOF complete
;			21	output abort started
;			22	output abort completed
;			23	input permission requested
;			24	input permission granted
;			25	input running
;			26	input abort started
;			27	input abort completed
;			28	input EOF completed
;			29	input permission was requested
; 8-9		Device record size
; 10-11		Line flags: (duplicate of line status flags)
;			bit 0 set = simulate, clear = support
;			bit 1 set = primary BSC protocol, clear = secondary
;			bit 2 set = signed on
;			bit 3 set = transparent
;			bit 4 set = disable in progress
;			bit 5 set = line enable complete
;			bit 6 set = line abort complete
;			bit 7 set = off line (2780/3780 only)
;			bit 8 set = line disable complete
;			bit 9 set = disable done by DTE failure
;			bit 10 set = line aborted by hardware failure
;			bit 11 set = communication established
; 12-13		Line signature

	STSBYT	(SDDEV,0,1)		; Device type
	 XP	 SDLPT,	1		;  Line printer
	 XP	 SDCDP,	2		;  Card punch
	 XP	 SDCDR,	3		;  Card reader
	STSBYT	(SDCSD,1,1)		; Component selction code (HASP only)
	 XP	 SDREQ,	220		;  Req output permission (DN65 does it)
	 XP	 SDCOU,	221		;  Console output
	 XP	 SDCIN,	222		;  Console input
	 XP	 SDCR1,	223		;  Card reader 1
	 XP	 SDLP1,	224		;  Line printer 1
	 XP	 SDCP1,	225		;  Card punch 1
	 XP	 SDPRG,	240		;  Grant intput per. (DN65 does it)
	 XP	 SDSON,	360		;  Signon device
	STSBYT	(SDFLG,4,4)		; Device flags
	 BIT11	 SDIIC,	4		;  Interpret input carriage control
	 BIT11	 SDIOC,	5		;  Interpret output carriage control
	 BIT11	 SDCSL,	7		;  Do component selection
	 BIT11	 SDDCE,	8		;  Do compression/expansion
	 BIT11	 SDPCO,	9		;  Page count has overflowed
	 BIT11	 SDPCI,	10		;  Page counter interrupts enabled
	 BIT11	 SDOBP,	11		;  Old BSC protocol
	 BIT11	 SDOBB,	12		;  Output buffers being dumped
	 BIT11	 SDIPH,	13		;  Input permisson sent to HASP (if 0)
	 BIT11	 SDIOM,	14		;  I/O mode of device (1=input, HASP)
	 BIT11	 SDDEP,	15		;  Dump or EOF in progress (if on)
	 BIT11	 SDOPR,	16		;  Output permission requested
	 BIT11	 SDOPG,	17		;  Output permission granted
	 BIT11	 SDORN,	18		;  Output running
	 BIT11	 SDEOS,	19		;  Output EOF signaled
	 BIT11	 SDEOC,	20		;  Output EOF complete
	 BIT11	 SDOAS,	21		;  Output abort started
	 BIT11	 SDOAC,	22		;  Output abort complete
	 BIT11	 SDIPR,	23		;  Input permission requested
	 BIT11	 SDIPG,	24		;  Input permission granted
	 BIT11	 SDIRN,	25		;  Input running
	 BIT11	 SDIAS,	26		;  Input abort started
	 BIT11	 SDIAC,	27		;  Input abort complete
	 BIT11	 SDIEC,	28		;  Input EOF complete
	 BIT11	 SDIPW,	29		;  Input permission was requested
	 BIT11	 SDOPW,	30		;  Output permission was requested
	 BIT11	 SDSUS,	31		;  Device suspended (HASP only)
	STSBYT	(SDLFG,10,2)		; Line flags
	 BIT11	 SDHWA,	10		;  Hardware abort
	 BIT11	 SDCME,	11		;  Communcations established
	STSBYT	(SDSIG,12,2)		; Signature of line device is on

	END				; End of D60JSY universal file
; Local Modes:
; Mode:Fundamental
; Comment Column:40
; Comment Start:;
; Auto Save Mode:2
; Word Abbrev Mode:1
; End: