Google
 

Trailing-Edge - PDP-10 Archives - bb-m403a-bk - ve1445.lst
There are no other files named ve1445.lst in the archive.
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56
TABLE OF CONTENTS

     8-  316	LOW CORE -- TRAP VECTORS
     9-  430	LOW CORE -- COMMON GLOBAL DATA
    10-  550	LOW CORE -- KLINIK DATA BASE
    11-  584	LOW CORE -- COMMIUNICATIONS REGION DATA BASE
    12-  619	LOW CORE -- QUEUED PROTOCOL DATA BASE
    13-  725	LOW CORE -- KEEP-ALIVE DATA BASE
    14-  739	LOW CORE -- CORE MANAGER DATA BASE
    15-  775	LOW CORE -- CLOCK REQUEST LIST
    17-  816	LOW CORE -- TERMINAL SERVICE DATA BASE
    18-  874	LOW CORE -- PDP-11 CTY SERVICE DATA BASE
    19-  889	LOW CORE -- TERMINAL DRIVER DATA BASE
    20-  909	LOW CORE -- DATA LINE SCANNER DATA BASE
    21-  939	LOW CORE -- DH-11 DATA BASE
    31- 1012	LOW CORE -- FLOPPY DRIVER DATA BASE
    32- 1028	LOW CORE -- DISC DRIVER DATA BASE
    33- 1047	LOW CORE -- FE DRIVER DATA BASE
    34- 1086	LOW CORE -- CD-11 DRIVER DATA BASE
    35- 1131	LOW CORE -- LP-20 DRIVER DATA BASE
    36- 1218	LOW CORE -- STD (SYSTEM TASK DIRECTORY)
    37- 1340	LOW CORE -- ATL (ACTIVE TASK LIST)
    38- 1403	LOW CORE -- TPD (TASK PARTITION DIRECTORY)
    39- 1464	LOW CORE -- DEVICE QUEUE POINTERS
    40- 1517	LOW CORE -- LOGICAL UNIT TABLES
    41- 1631	LOW CORE -- KL10 HARDWARE ENVIRONMENT DATA
    42- 1659	LOW CORE -- INITLM (INITIALIZATION)
    43- 1688	LOW CORE -- TRAP SERVICE FOR COMMON PROGRAM TRAPS
    44- 1808	LOW CORE -- CRASH ROUTINE
    45- 1895	LOW CORE -- I/O PAGE SNAPSHOT
    46- 1945	EXEC MODULE ONE -- TITLE PAGE
    47- 2002	EXEC MODULE ONE -- SYSTEM NOTES
    48- 2057	EXEC MODULE ONE -- GLOSSARY
    48- 2082	MACRO CALLS (MCALL)
    49- 2094	EXEC MODULE ONE -- SYMBOLIC DEFINITIONS
    65- 2676	EXEC MODULE ONE -- NUL TASK
    67- 2765	EXEC MODULE TWO -- SERVICE FOR "EMT" & "TRAP" INSTRUCTIONS
    68- 3031	EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST
    75- 3422	EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM
    80- 3833	SECONDARY PROTOCOL -- COPYRIGHT STATEMENT
    81- 3896	SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE
    82- 4138	POWERFAIL HANDLER -- COPYRIGHT STATEMENT
    83- 4189	POWERFAIL -- POWER DOWN
    84- 4274	POWERFAIL -- POWER UP ENTRY
    85- 4323	POWERFAIL -- POWER FAIL RESTART
    86- 4391	DTE DIRECTIVES -- COPYRIGHT STATEMENT
    87- 4447	DTE20 EMT DISPATCH DECODER
    88- 4526	$DORBL -- RING THE KL-10 DOORBELL
    89- 4557	$DTEOF -- TURN THE DTE20 OFF
    90- 4593	$DTEON -- TURN THE DTE20 ON
    91- 4720	$DPMYG -- DEPOSIT INTO MY GENERAL SECTION
    92- 4767	$EXMYG -- EXAMINE MY GENERAL SECTION
    93- 4803	$EXMYN -- EXAMINE MY SECTION FOR PROCESSOR N
    94- 4837	$DPMYN -- DEPOSIT INTO MY SECTION FOR COMM WITH PROCESSOR N
    95- 4871	$EXHSG -- EXAMINE HIS GENERAL COMMUNICATION SECTION
    96- 4906	$EXHSM -- EXAMINE HIS SECTION FOR COMMUNICATING WITH ME
    97- 4940	$KLDFX -- EXECUTE A DIAGNOSTIC FUNCTION
    98- 5037	$PRVDP -- PRIVILEDGED DEPOSIT
    99- 5068	$PRVEX -- PRIVILEDGED EXAMINE
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56
TABLE OF CONTENTS

   100- 5107	$RWDRG -- READ/WRITE DIAGNOSTIC REGISTER
   101- 5146	CESCHK -- CHECK FOR CLOCK ERROR STOP
   102- 5167	ASIGN LUN -- COPYRIGHT STATEMENT
   103- 5204	DIRECTIVE -- ASSIGN LUN
   104- 5309	GET LUN INFO -- COPYRIGHT STATEMENT
   105- 5345	DIRECTIVE -- GET LUN INFORMATION
   106- 5412	GET TIME PARAMETERS -- COPYRIGHT STATEMENT
   107- 5448	DIRECTIVE -- GET TIME PARAMETERS
   108- 5519	SIGNIFICANT EVENT DIRECTIVES -- COPYRIGHT STATEMENT
   109- 5561	DIRECTIVE -- CLEAR EVENT FLAG
   110- 5611	DIRECTIVE -- SET EVENT FLAG
   111- 5661	DIRECTIVE -- DECLARE SIGNIFICANT EVENT
   112- 5722	DIRECTIVE -- READ EVENT FLAG
   113- 5770	DIRECTIVE -- READ ALL EVENT FLAGS
   114- 5813	DIRECTIVE -- WAITFOR SINGLE EVENT FLAG
   115- 5876	DIRECTIVE -- WAITFOR LOGICAL 'OR' OF FLAGS
   116- 5968	DIRECTIVE -- WAITFOR NEXT SIGNIFICANT EVENT
   117- 6004	MARK TIME -- COPYRIGHT STATEMENT
   118- 6040	DIRECTIVE -- MARK TIME
   119- 6139	CANCEL MARK TIME -- COPYRIGHT STATEMENT
   120- 6176	DIRECTIVE -- CANCEL MARK-TIME REQUESTS
   121- 6236	EXIT -- COPYRIGHT STATEMENT
   122- 6273	DIRECTIVE -- TASK EXIT
   123- 6316	QUEUE I/O -- COPYRIGHT STATEMENT
   124- 6354	DIRECTIVE -- QUEUE I/O
   125- 6681	SEND AND RECEIVE -- COPYRIGT STATEMENT
   126- 6722	DIRECTIVE -- SEND DATA
   127- 6778	DIRECTIVE -- SEND AND REQUEST OR RESUME
   129- 6999	DIRECTIVE -- RECEIVE DATA
   130- 7036	DIRECTIVE -- RECEIVE DATA OR EXIT
   131- 7077	DIRECTIVE -- RECEIVE DATA OR SUSPEND
   132- 7218	SPECIFY SST TABLE -- COPYRIGHT STATEMENT
   133- 7254	DIRECTIVE -- SPECIFY SST VECTOR TABLE FOR TASK
   134- 7307	SPECIFY AST SERVICE -- COPYRIGHT STATEMENT
   135- 7343	DIRECTIVE -- SPECIFY POWER FAIL AST
   136- 7399	REQUEST AND EXECUTE -- COPYRIGHT STATEMENT
   137- 7435	DIRECTIVE -- TASK SCHEDULING -- REQUEST
   138- 7559	GET TASK PARAMETERS -- COPYRIGHT STATEMENT
   139- 7595	DIRECTIVE -- GET TASK PARAMETERS
   140- 7683	GET PARTITION PARAMETERS -- COPYRIGHT STATEMENT
   141- 7720	DIRECTIVE -- GET PARTITION PARAMETERS
   142- 7819	CLOCK HANDLER -- COPYRIGHT STATEMENT
   143- 7861	CLOCK TICK RECOGNITION
   144- 7925	QUEUED PROTOCOL DRIVER -- COPYRIGHT STATEMENT
   147- 8120	QUEUED PROTOCOL DRIVER -- PROTOCOL PACKET SERVICE DISPATCH
   148- 8159	QUEUED PROTOCOL DRIVER -- DISPATCH TABLE
   149- 8196	QUEUED PROTOCOL DRIVER -- UNRECOGNIZED FUNCTION
   150- 8206	QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE REMOTE TERMINALS
   151- 8217	QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE SENDALL AND XOFF PROCESSING
   152- 8230	QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE SENDALLS
   153- 8251	QUEUED PROTOCOL DRIVER -- HANGUP
   154- 8297	QUEUED PROTOCOL DRIVER -- ACKNOWLEDGE DEVICE
   155- 8309	QUEUED PROTOCOL DRIVER -- SET LINE ALLOCATION
   156- 8323	QUEUED PROTOCOL DRIVER -- SET LINE SPEED
   157- 8379	QUEUED PROTOCOL DRIVER -- STOP LINE INPUT
   158- 8410	QUEUED PROTOCOL DRIVER -- BREAK-THROUGH WRITE
   159- 8427	QUEUED PROTOCOL DRIVER -- XOFF
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56
TABLE OF CONTENTS

   160- 8455	QUEUED PROTOCOL DRIVER -- XON
   161- 8487	QUEUED PROTOCOL DRIVER -- HERE IS INITIAL STATUS
   162- 8528	QUEUED PROTOCOL DRIVER -- RETURN TIME OF DAY
   163- 8543	QUEUED PROTOCOL DRIVER -- STRING DATA
   164- 8576	QUEUED PROTOCOL DRIVER -- LINE NUMBER - CHARACTER
   165- 8621	QUEUED PROTOCOL DRIVER -- RETURN TIME OF DAY
   166- 8645	QUEUED PROTOCOL DRIVER -- FLUSH DEVICE OUTPUT QUEUE
   167- 8664	QUEUED PROTOCOL DRIVER -- RECIEVE KLINIK PARAMETERS
   168- 8684	QUEUED PROTOCOL DRIVER -- SET/CLEAR HOST DEBUG MODE
   169- 8699	QUEUED PROTOCOL DRIVER -- SENDALL
   170- 8848	QUEUED PROTOCOL DRIVER -- COPY BUFFER
   171- 8892	QUEUED PROTOCOL DRIVER -- MAP DH-11 TO DM-11
   172- 8921	QUEUED PROTOCOL DRIVER -- FIND LINE SPEED
   173- 8954	QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME
   174- 8989	QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME
   175- 9078	DTE-20 DRIVER -- COPYRIGHT STATEMENT
   176- 9122	DTE-20 DRIVER -- DTE-20 INTERRUPT HEAD
   177- 9198	DTE-20 DRIVER -- TO-10 DONE SERVICE
   178- 9302	DTE-20 DRIVER -- TO-11 DONE SERVICE
   179- 9418	DTE-20 DRIVER -- DOORBELL SERVICE
   180- 9555	DTE-20 DRIVER -- START TO ELEVEN DIRECT TRANSFER
   181- 9623	DTE-20 DRIVER -- START TO ELEVEN INDIRECT TRANSFER
   182- 9693	DTE-20 DRIVER -- UPDATE AND TRANSMIT FRONT-END KEEP-ALIVE COUNT
   183- 9728	DTE-20 DRIVER -- START TO TEN QUEUE
   184- 9789	DTE-20 DRIVER -- SEND STATUS TO TEN
   185- 9824	DTE-20 DRIVER -- GET A BUFFER FOR INCOMING TRANSFER
   186- 9875	DTE-20 DRIVER -- START BYTE TRANSFER
   187- 9901	DTE-20 DRIVER -- LOAD TO-11 QUEUE NODE
   188- 9927	TERMINAL DRIVER -- COPYRIGHT STATEMENT
   189-10051	TERMINAL DRIVER -- DEFINITIONS
   192-10270	TERMINAL DRIVER -- TTINI (TTY QUEUE SERVICE)
   193-10310	TERMINAL DRIVER -- TIMEOUT SERVICE
   194-10329	TERMINAL DRIVER -- ACK ALL SERVICE
   195-10346	TERMINAL DRIVER -- QUEUED PROTOCOL KEEP-ALIVE SERVICE
   196-10436	TERMINAL DRIVER -- GENERAL ERROR LOGGING
   197-10449	TERMINAL DRIVER -- CTY SERVICE
   198-10497	TERMINAL DRIVER -- CTY I/O DONE SERVICE
   199-10511	TERMINAL DRIVER -- CTY INPUT SERVICE
   200-10528	TERMINAL DRIVER -- CTY OUTPUT SERVICE
   201-10557	TERMINAL DRIVER -- $DHOUT (DH-11 OUTPUT INTERRUPT)
   202-10600	TERMINAL DRIVER -- STTYDN (REMOVE PROCESSED OUTPUT NODE)
   204-10671	TERMINAL DRIVER -- STNXT (START NEXT OUTPUT OPERATION)
   205-10718	TERMINAL DRIVER -- .DHSTO (START DH-11 OUTPUT)
   206-10747	TERMINAL DRIVER -- $TTOUT (DL11 OUTPUT INTERRUPT)
   207-10778	TERMINAL DRIVER -- .DLSTO (START DL-11 OUTPUT)
   208-10805	TERMINAL DRIVER -- .TTACK (ACKNOWLEDGE A TTY LINE)
   209-10852	TERMINAL DRIVER -- OUTPT3 (PDP-11 CTY OUTPUT ROUTINES)
   210-10930	TERMINAL DRIVER -- INPTT (PDP-11 CTY INPUT ROUTINES)
   211-10965	TERMINAL DRIVER -- ECHOB (PDP-11 CTY ECHO ROUTINES)
   212-11081	TERMINAL DRIVER -- .KW11S (KW11 LINE CLOCK INTERRUPT)
   213-11143	TERMINAL DRIVER -- $DHINP (DH-11 INPUT INTERRUPT)
   215-11315	TERMINAL DRIVER -- $TTINP (DL-11 INPUT INTERRUPT)
   216-11348	TERMINAL DRIVER -- TTSTCH (STORE CHARACTER IN TO10Q)
   217-11449	TERMINAL DRIVER -- .DLINT (DL-11E DATASET INTERRUPT SERVICE)
   218-11504	TERMINAL DRIVER -- TTCTY (CTY SERVICE)
   219-11651	TERMINAL DRIVER -- DHSAV (DH-11 REGISTER SAVE/RESTORE CO-ROUTINE)
   220-11710	TERMINAL DRIVER -- .STDHL (SET UP DH-11 LINE NUMBER IN CONTROLLER)
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56
TABLE OF CONTENTS

   221-11744	TERMINAL DRIVER -- .DHSPR (RESET TO DEFAULT AUTO-BAUD SPEED)
   222-11775	TERMINAL DRIVER -- .DHSPF (FLAG AUTO-BAUD REPORT)
   223-11804	TERMINAL DRIVER -- .DHSPD (SET LINE SPEED)
   224-11846	TERMINAL DRIVER -- $DMINT (DM-11/BB MODEM CONTROL INTERRUPT)
   225-11953	TERMINAL DRIVER -- .STTYD (DIALUP/HANGUP SERVICE)
   226-11997	TERMINAL DRIVER -- .DMHUP (DM-11/BB HANGUP)
   227-12026	TERMINAL DRIVER -- .STPDM (STOP DM-11/BB SCAN)
   228-12055	TERMINAL DRIVER -- .DLHUP (DL-11E HANGUP)
   229-12107	TERMINAL DRIVER -- .DLTMO (DL-11E MODEM CONTROL TIMEOUT)
   230-12243	TERMINAL DRIVER -- .DHTMO (DH-11 CONTROLLER TIMEOUT)
   231-12416	TERMINAL DRIVER -- .DMTMO (DM-11/BB MODEM CONTROL TIMEOUT)
   232-12512	TERMINAL DRIVER -- .TTFDI (INPUT CONTROL SERVICE)
   233-12550	TERMINAL DRIVER -- .TTERL (TERMINAL ERROR LOGGING)
   234-12607	TERMINAL DRIVER -- .TTXOF (DEVICE DEPENDENT XOFF PROCESSING)
   235-12659	TERMINAL DRIVER -- .TTSTP (STOP TERMINAL OUTPUT)
   236-12684	TERMINAL DRIVER -- .TTXON (DEVICE DEPENDENT XON PROCESSING)
   237-12751	TERMINAL DRIVER -- .TTRST (RESET A TERMINAL LINE)
   238-12794	TERMINAL DRIVER -- CHECK INPUT XOFF DELAY
   239-12822	TERMINAL DRIVER -- .TTICK (INPUT BUFFER CHECKS)
   240-12857	TERMINAL DRIVER -- .TTQDS (QUEUED PROTOCOL INPUT DISABLE SERVICE)
   241-12902	TERMINAL DRIVER -- .TTIXC (INPUT CONTROL CHECKS)
   242-12935	TERMINAL DRIVER -- .TTDIS (DISABLE INPUT FROM LINE)
   243-13015	TERMINAL DRIVER -- .TTENB (ENABLE INPUT FOR LINE)
   244-13082	TERMINAL DRIVER -- .TTBTW (BREAK-THROUGH WRITE FUNCTION)
   245-13138	TERMINAL DRIVER -- BLDPKT (BUILD A TERMINAL PACKET)
   246-13174	TERMINAL DRIVER -- .TTSW2 (FIND OFFSET INTO "STSW2" TABLE)
   247-13196	TERMINAL DRIVER -- .TFXON (FORCE AN XON FOR A LINE)
   249-13238	SYSTEM COMMON SUBROUTINES -- COPYRIGHT STATEMENT
   251-13324	SCOMM MODULE -- BITTBL (ASH/BIC/BIS SIMULATION)
   252-13344	SCOMM MODULE -- .CEFN   (CONVERT EFN)
   253-13415	SCOMM MODULE -- .CKDEL  (CLOCK DELETE)
   255-13497	SCOMM MODULE -- ..ERLG	(ERROR LOGGING)
   256-13551	SCOMM MODULE -- ..IODN	(SUBROUTINE TO COMPLETE I/O)
   257-13607	SCOMM MODULE -- ..DQRN	(DEQUEUE A NORMAL REQUEST)
   258-13725	SCOMM MODULE -- ..SEFN	(SET EVENT FLAG)
   259-13766	SCOMM MODULE -- ..DSEV	(DECLARE SIGNIFICANT EVENT)
   260-13784	SCOMM MODULE -- DIV216   (DIV R2 BY 16)
   261-13812	SCOMM MODULE -- ..NDEL	(NODE DELETE)
   262-13839	SCOMM MODULE -- ..IPRI	(INSERT NODE BY PRIORITY)
   263-13878	SCOMM MODULE -- ..NADD	(NODE ADD)
   264-13907	SCOMM MODULE -- ..PICK	(PICK A NODE)
   265-13952	SCOMM MODULE -- ..ENB0	(ENABLE TASK SWITCHING)
   266-13995	SCOMM MODULE -- ..FSTD	(FIND STD ENTRY)
   267-14046	SCOMM MODULE -- ..ALCB/..ALC2	(ALLOCATE CORE)
   268-14138	SCOMM MODULE -- ..DECB/..DECN/..DEC2 (DEALLOCATE CORE)
   269-14235	SCOMM MODULE -- ..ALOW	(ALLOCATE OR WAIT)
   270-14256	SCOMM MODULE -- ..STTY (START TERMINAL OUTPUT)
   271-14387	SCOMM MODULE -- ..STPT	(STOP TTY)
   272-14465	SCOMM MODULE -- ..STCH	(STORE CHARACTER IN TO 10 QUEUE)
   273-14506	SCOMM MODULE -- ..SACK	(SEND ACKNOWLEDGEMENT)
   274-14553	SCOMM MODULE -- ..STFC	(STORE FUNCTION)
   275-14609	SCOMM MODULE -- ..STIN	(START INDIRECT FUNCTION)
   276-14690	SCOMM MODULE -- ..STQ	(STORE IN TO 10 QUEUE)
   277-14756	SCOMM MODULE -- ..WFED	(WAIT FOR EXAMINE/DEPOSIT)
   279-14993	SCOMM MODULE -- ..SWED	(START AND WAIT FOR EXAMINE/DEPOSIT)
   280-15046	SCOMM MODULE -- ..DTSP	(STOP DTE PROTOCOLS)
   281-15071	SCOMM MODULE -- ..DTP2	(START SECONDARY PROTOCOL)
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56
TABLE OF CONTENTS

   282-15098	SCOMM MODULE -- ..DTP1 (START PRIMARY PROTOCOL)
   283-15124	SCOMM MODULE -- ..VXFR	(VALADATE TRANSFER)
   284-15278	SCOMM MODULE -- ..BLXO	(BLOCK OUTPUT) ..BLXI  (BLOCK INPUT)
   285-15375	SCOMM MODULE -- ..VTOL	(MAP VIRTUAL TO LOGICAL BLOCK, EXTERNAL)
   286-15460	SCOMM MODULE -- ..VVLL	(MAP VIRTUAL TO LOGICAL BLOCK, INTERNAL)
   288-15561	END
RSXFC	-- RSX20F PARAMETER FIL	MACRO M1113  10-NOV-81 18:56  PAGE 1


      1						.TITLE	RSXFC	-- RSX20F PARAMETER FILE (TOPS-10/1091 SYSTEM DEFINITION)
      2						.IDENT	/013100/
      3					;
      4					;                             COPYRIGHT (C) 1977, 1978 BY
      5					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
      6					;
      7					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
      8					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
      9					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
     10					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
     11					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
     12					;
     13					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
     14					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
     15					;       CORPORATION.
     16					;
     17					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
     18					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
     19					;
     20					; VERSION 13-10
     21					;
     22					; ALAN D. PECKHAM  19-APR-77
     23					;
     24					; MODIFIED BY:
     25					;
     26					;		R. BELANGER -- ELIMINATE 1090T "ARPA" CONFIGURATTION
     27					;		R. BELANGER -- ADD 1091 CONFIGURATION
     28					;
     29					; FUNCTION: THIS MODULE PROVIDES THE PARAMETERS FOR ASSEMBLY OF RSX20F FOR
     30					;  THE TOPS-10 (1091) SYSTEM.
     31					;
     32					; EQUATED SYMBOLS
     33					;
     34		000001 				$T1091	=1	; DEFINE TOPS-10/1091 OPTION
     35
     36		000001 				$LP20	=1	; INCLUDE LP20 DRIVER
     37		000002 				L$$P20	=2	; INCLUDE 2 LP-20'S
     38		000001 				$CD11	=1	; INCLUDE CD11 CARD READER DRIVER
     39		000001 				$RP04	=1	; INCLUDE RP04 DISK DRIVER
     40		000001 				$FE	=1	; INCLUDE FE PSEUDO-DEVICE DRIVER
     41		000001 				$F11	=1	; INCLUDE FILES-11 ACP
     42		000001 				$DH11	=1	; INCLUDE DH11 DRIVER
     43		000010 				D$$H11	=8.	; INCLUDE 8 DH-11'S
     44		000001 				$DBDTE	=1	; INCLUDE DTE20 DEBUGGING CODE
     45		000001 				$DTE	=1	; INCLUDE DTE20 DTE DRIVER
     46		000001 				R$$11D	=1	; RSX-11D BASE
     47
     48					.IF DF	$T1091
     49		000001 				$TOP10	=1	; DEFINE TOPS-10 BASE FOR 1091
     50					.ENDC			; $T1091
     51
     52					.IF DF	$TOP10
     53					.IF NDF	$T1091
     54						$DTA	=1	; INCLUDE DECTAPE DRIVER FOR TOPS-10
     55					.IFF
     56		000001 				$RX11	=1	; INCLUDE FLOPPY DRIVER FOR TOPS-10/1091
     57					.ENDC			; $T1091
RSXFC	-- RSX20F PARAMETER FIL	MACRO M1113  10-NOV-81 18:56  PAGE 1-1


     58					.ENDC			; $TOP10
     59
     60					.IF DF	$TOP20
     61						$RX11	=1	; INCLUDE FLOPPY DRIVER
     62					.ENDC			; $TOP20
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1113  10-NOV-81 18:56  PAGE 2


     64						.TITLE	RSX20F	-- RESIDENT EXECUTIVE (SYSTEM DEFINITION)
     65						.IDENT	/014450/
     66						.ENABL	AMA
     67						.LIST	MEB
     68						.NLIST	CND
     69					;
     70					;                             COPYRIGHT (C) 1975, 1978 BY
     71					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
     72					;
     73					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
     74					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
     75					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
     76					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
     77					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
     78					;
     79					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
     80					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
     81					;       CORPORATION.
     82					;
     83					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
     84					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
     85					;
     86					; R.  MCLEAN   19-MAR-75
     87					;
     88					;  VERSION 14-45
     89					;
     90					; MODIFIED BY:
     91					;
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1113  10-NOV-81 18:56  PAGE 3


     93					;
     94					; SET VERSION OF RSX20F EXEC HERE
     95					;
     96		000014 			RSX$$V	=	14		; VERSION 14
     97		000045 			RSX$$E	=	45		; EDIT 45
     98					;
     99					; RELEASE VERSION
    100					;
    101		000126 			RSX$$K	=	'V		; KEY FOR RELEASE-TYPE
    102									; "V" -- RELEASE
    103									; "X" -- EXPERIMENTAL
    104									; "Y" -- FIELD/LOAD TEST
    105		000000 			RSX$$F	=	0		; DEFINE FORM AS NULL
    110		000105 			RSX$$F	=	'E		; TOPS-10 / 1091
    119					;
    120					; DTE-20 REGISTER OFFSETS
    121					;
    122		000036 			DAG3	=36
    123		000034 			STATD	=34
    124		000032 			DAG2	=32
    125		000030 			DAG1	=30
    126		000022 			T11AD	=22
    127		000020 			T10AD	=20
    128		000016 			T11BC	=16
    129		000010 			TNAD1	=10
    130		000012 			TNAD2	=12
    131		000006 			DXWD1	=6
    132		000004 			DXWD2	=4
    133		000002 			DXWD3	=2
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1113  10-NOV-81 18:56  PAGE 4


    135					;+
    136					; MACRO TO SET IDENT FOR EXEC MODULES.
    137					; FORMAT OF CALL IS:
    138					;	IDENT$	VERSION,EDIT
    139					; OR
    140					;	IDENT$	VERSION,EDIT,RSX$$F
    141					; IF MODULE CODING CHANGES WITH DIFFERENT FORMS
    142					;-
    143
    144						.MACRO	IDENT$ VER,EDT,FRM,NUM
    145						.IF	B,NUM
    146						.IF	B,FRM
    147						IDENT$	\VER,\EDT,0,0
    148						.IFF
    149						.IF	EQ,<FRM-'A>
    150						IDENT$	\VER,\EDT,A,0
    151						.IFF
    152						.IF	EQ,<FRM-'B>
    153						IDENT$	\VER,\EDT,B,0
    154						.IFF
    155						IDENT$	\VER,\EDT,E,0
    156						.ENDC
    157						.ENDC
    158						.ENDC
    159						.MEXIT
    160						.IFF
    161						.IF	GE,VER-10
    162						.IF	GE,EDT-10
    163						.LIST
    164						.IDENT	/'FRM'VER'EDT'0/
    165						.NLIST
    166						.IFF
    167						.LIST
    168						.IDENT	/'FRM'VER'0'EDT'0/
    169						.NLIST
    170						.ENDC
    171						.IFF
    172						.IF	GE,EDT-10
    173						.LIST
    174						.IDENT	/'FRM'0'VER'EDT'0/
    175						.NLIST
    176						.IFF
    177						.LIST
    178						.IDENT	/'FRM'0'VER'0'EDT'0/
    179						.NLIST
    180						.ENDC
    181						.ENDC
    182						.ENDC
    183						.ENDM	IDENT$
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 6


    186						.TITLE	LC -- LOW CORE FOR RSX20F
    187	000000					IDENT$	RSX$$V,RSX$$E,RSX$$F
						.IDENT	/E14450/
    188					;
    189					;
    190					;                             COPYRIGHT (C) 1975, 1978 BY
    191					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
    192					;
    193					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
    194					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
    195					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
    196					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
    197					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
    198					;
    199					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
    200					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
    201					;       CORPORATION.
    202					;
    203					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
    204					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
    205					;
    206					;		MODULE: LOW CORE
    207					;
    208					;		VERSION: 14-36
    209					;
    210					;		AUTHOR: R. MCLEAN
    211					;
    212					;		DATE: 19 JUL 75
    213					;
    214					;
    215					;	THIS MODULE CONTAINS:
    216					;
    217					;	1 -- CODE TO SERVICE LOW CORE TRAPS AND ERRORS
    218					;	2 -- TRAP VECTORS
    219					;	3 -- SYSTEM COMMON DATABASE
    220					;	4 -- INITIALIZATION CODE
    221					;	5 -- PATCH SPACE
    222					;
    223					; MODIFICATIONS:
    224					;
    225					;	NO.	DATE		PROGRAMMER	PURPOSE
    226					;	---	----		----------	-------
    227					;	001	03-FEB-77	R. BELANGER	ADD DL11E INTERRUPT VECTORS
    228					;	002	15-MAR-77	R. BELANGER	LIMIT SIZE OF PATCH SPACE
    229					;						TO 40 BYTES AND DEFINE SYMBOL .PAT..
    230					;	003	18-AUG-77	R. BELANGER	DIFFERENTIATE BETWEEN DTE-20
    231					;						BUS TIMEOUTS AND OTHERS
    232					;	004	28-AUG-77	R. BELANGER	LOAD CRASH CODE INTO 0 AND 2
    233					; TCO 4.2212	08-MAR-79	R. BELANGER	INTEGRATE SYTEM COMMON DATABASE
    234					; TCO 4.2217	19-MAR-79	R. BELANGER	SNAPSHOT EBUS PARITY ERRORS
    235					; TCO 4.2245	10-APR-79	R. BELANGER	ADD FRAMING ERROR LOGGING
    236					; TCO 4.2263	29-MAY-79	R. BELANGER	PAD DECTAPE DRIVER DATABASE
    237					; TCO 4.2309	25-JUN-79	R. BELANGER	ADD BELL 212A MODEM SUPPORT
    238					; TCO 4.2314	29-JUN-79	R. BELANGER	SNAPSHOT I/O PAGE ON CRASH
    239					; TCO 4.2333	16-JUL-79	R. BELANGER	ADD KL10 HARDWARE DATA
    240					; TCO 5.1004	12-SEP-79	R. BELANGER	ADD NON-CONTIGUOUS DEVICE SUPPORT
    241					; TCO 5.1008	11-OCT-79	R. BELANGER	ADD EBUS PARITY ERROR AND DEX ERROR LOGGING
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 6-1


    242					; TCO 5.1009	15-0CT-79	R. BELANGER	ADD RH-11 ERROR LOGGING
    243					; TCO 5.1015	25-OCT-79	R. BELANGER	ADD TERMINAL INPUT CONTROL TABLE
    244					; TCO 4.1.1035	16-NOV-79	R. BELANGER	ADD QUEUE ARBITRATION
    245					; TCO 4.1.1066	10-JAN-80	R. BELANGER	ROUND-ROBIN DEFERRED ACKS
    246					; TCO 4.1.1091	12-FEB-80	R. BELANGER	FIX MISSING DM-11/BB'S
    247					; TCO 4.1.1092	25-FEB-80	R. BELANGER	LOCAL INPUT CONTROL
    248					; TCO 4.1.1104	05-MAR-80	R. BELANGER	CHANGE KEEP-ALIVE
    249					; TCO 4.1.1121	19-MAR-80	R. BELANGER	SUPPORT BLOCKED DTE-20
    250					; TCO 4.1.1137	-5-APR-80	R. BELANGER	REDEFINE PATCH SPACE TO UNUSED VECTORS
    251					;						REMOVE DEFERRED ACK SUPPORT
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 7


    253					;
    254					;
    255					; MACRO LIBRARY CALLS
    256					;
    257						.MCALL	.CRASH,MFPS,CALL
    258						.MCALL	.PUDEN,.STDEN,.ATLEN
    259						.MCALL	$DEF,F11DF$
    260						.MCALL	.TPDEN,.PUDEN,.DQPEN
    261
    262	000000					$DEF
    263	000000					F11DF$
    264
    265						.MACRO	RSXVR$ KEY,FRM,VER,EDT,NUM
    266						.IF	B,NUM
    267						.IF	NB,FRM
    268						RSXVR$	\KEY,\FRM,\VER,\EDT,0
    269						.IFF
    270						RSXVR$	\KEY,200,\VER,\EDT,0
    271						.ENDC
    272						.MEXIT
    273						.IFF
    274						.IF	GE,VER-10
    275						.IF	GE,EDT-10
    276						.ASCIZ	<KEY><FRM>\'VER'-'EDT'\<200>
    277						.IFF
    278						.ASCIZ	<KEY><FRM>\'VER'-0'EDT'\<200>
    279						.ENDC
    280						.IFF
    281						.IF	GE,EDT-10
    282						.ASCIZ	<KEY><FRM>\0'VER'-'EDT'\<200>
    283						.IFF
    284						.ASCIZ	<KEY><FRM>\0'VER'-0'EDT'\<200>
    285						.ENDC
    286						.ENDC
    287						.ENDC
    288						.ENDM	RSXVR$
    289					;
    290					;	MACRO FOR GENERATING LOW CORE
    291					;
    292						.MACRO	PSW	PRI,TRPADR,UNIT
    293						.IF	B,<TRPADR>
    294						 .WORD	.-LOWCOD+1
    295						.IFF
    296						 .WORD	TRPADR
    297						.ENDC		; IFB <TRPADR>
    298						.IF	B,<UNIT>
    299						 .WORD	0+<40*PRI>+4000
    300						.IFF
    301						 .WORD	UNIT+<40*PRI>+4000
    302						.ENDC		; IFB <UNIT>
    303						.ENDM		; PSW
    304					;
    305						.MACRO	DHPSW	U
    306						 .WORD	$DMINT		; DM-11/BB #'U INTERRUPT
    307						 .WORD	U+<40*6>+4000
    308						 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
    309						 .WORD	<40*6>+4000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 7-1


    310						 .WORD	$DHINP		; DH-11 #'U INPUT INTERRUPT
    311						 .WORD	U+<40*6>+4000
    312						 .WORD	$DHOUT		; DH-11 #'U OUTPUT INTERRUPT
    313						 .WORD	U+<40*6>+4000
    314						.ENDM
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 8
LOW CORE -- TRAP VECTORS

    316						.SBTTL	LOW CORE -- TRAP VECTORS
    317
    318		000000'			LOWCOD==.
    319	000000					PSW	6		; ILLEGAL INTERRUPT
	000000	000001 				 .WORD	.-LOWCOD+1
	000002	004300 				 .WORD	0+<40*6>+4000
    320					;
    321	000004					PSW	7,COMTRP,0	; TRAP TO 4 (TIMEOUT)
	000004	011426'				 .WORD	COMTRP
	000006	004340 				 .WORD	0+<40*7>+4000
    322					;
    323	000010					PSW	7,COMTRP,2	; RESERVED INSTRUCTION
	000010	011426'				 .WORD	COMTRP
	000012	004342 				 .WORD	2+<40*7>+4000
    324					;
    325	000014					PSW	6,COMTRP,4	; T BIT OR BPT TRAP
	000014	011426'				 .WORD	COMTRP
	000016	004304 				 .WORD	4+<40*6>+4000
    326					;
    327	000020					PSW	6,COMTRP,6	; IOT TRAP
	000020	011426'				 .WORD	COMTRP
	000022	004306 				 .WORD	6+<40*6>+4000
    328					;
    329	000024					PSW	7,.PWRDN	; POWER FAIL (POWER DOWN)
	000024	017574'				 .WORD	.PWRDN
	000026	004340 				 .WORD	0+<40*7>+4000
    330					;
    331	000030					PSW	7,EMTTRP,STXDX	; EMT TRAP
	000030	013036'				 .WORD	EMTTRP
	000032	004340 				 .WORD	STXDX+<40*7>+4000
    332					;
    333	000034					PSW	6,.DRSRN	; TRAP TRAP
	000034	013352'				 .WORD	.DRSRN
	000036	004300 				 .WORD	0+<40*6>+4000
    334					;
    335	000040				.PAT1.::			; [4.1.1137] PATCH SPACE -- 20 BYTES
    336		000004 				.REPT	4
    337						PSW	6		; ILLEGAL INTERRUPTS
    338						.ENDR
	000040	000041 				 .WORD	.-LOWCOD+1
	000042	004300 				 .WORD	0+<40*6>+4000
	000044	000045 				 .WORD	.-LOWCOD+1
	000046	004300 				 .WORD	0+<40*6>+4000
	000050	000051 				 .WORD	.-LOWCOD+1
	000052	004300 				 .WORD	0+<40*6>+4000
	000054	000055 				 .WORD	.-LOWCOD+1
	000056	004300 				 .WORD	0+<40*6>+4000
    339					;
    340	000060					PSW	6,$TTINP,0	; TTY LINE 0 INPUT (CTY)
	000060	036166'				 .WORD	$TTINP
	000062	004300 				 .WORD	0+<40*6>+4000
    341	000064					PSW	6,$TTOUT,0	; TTY LINE 0 OUTPUT (CTY)
	000064	034224'				 .WORD	$TTOUT
	000066	004300 				 .WORD	0+<40*6>+4000
    342					;
    343		000002 				.REPT	2.
    344						PSW	6		; ILLEGAL TRAPS
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 8-1
LOW CORE -- TRAP VECTORS

    345						.ENDR
	000070	000071 				 .WORD	.-LOWCOD+1
	000072	004300 				 .WORD	0+<40*6>+4000
	000074	000075 				 .WORD	.-LOWCOD+1
	000076	004300 				 .WORD	0+<40*6>+4000
    346					;
    347	000100					PSW	6,.KW11S	; CLOCK INTERRUPT
	000100	035366'				 .WORD	.KW11S
	000102	004300 				 .WORD	0+<40*6>+4000
    348					;
    349		000002 				.REPT	2
    350						PSW	6		; ILLEGAL INTERRUPT
    351						.ENDR
	000104	000105 				 .WORD	.-LOWCOD+1
	000106	004300 				 .WORD	0+<40*6>+4000
	000110	000111 				 .WORD	.-LOWCOD+1
	000112	004300 				 .WORD	0+<40*6>+4000
    352					;
    353	000114					PSW	7,.PARER	; PARITY ERROR
	000114	011702'				 .WORD	.PARER
	000116	004340 				 .WORD	0+<40*7>+4000
    354					;
    355	000120				.PAT2.::			; [4.1.1137] PATCH SPACE -- 74 BYTES
    356		000017 				.REPT	15.
    357						PSW	6		; ILLEGAL INTERRUPT
    358						.ENDR
	000120	000121 				 .WORD	.-LOWCOD+1
	000122	004300 				 .WORD	0+<40*6>+4000
	000124	000125 				 .WORD	.-LOWCOD+1
	000126	004300 				 .WORD	0+<40*6>+4000
	000130	000131 				 .WORD	.-LOWCOD+1
	000132	004300 				 .WORD	0+<40*6>+4000
	000134	000135 				 .WORD	.-LOWCOD+1
	000136	004300 				 .WORD	0+<40*6>+4000
	000140	000141 				 .WORD	.-LOWCOD+1
	000142	004300 				 .WORD	0+<40*6>+4000
	000144	000145 				 .WORD	.-LOWCOD+1
	000146	004300 				 .WORD	0+<40*6>+4000
	000150	000151 				 .WORD	.-LOWCOD+1
	000152	004300 				 .WORD	0+<40*6>+4000
	000154	000155 				 .WORD	.-LOWCOD+1
	000156	004300 				 .WORD	0+<40*6>+4000
	000160	000161 				 .WORD	.-LOWCOD+1
	000162	004300 				 .WORD	0+<40*6>+4000
	000164	000165 				 .WORD	.-LOWCOD+1
	000166	004300 				 .WORD	0+<40*6>+4000
	000170	000171 				 .WORD	.-LOWCOD+1
	000172	004300 				 .WORD	0+<40*6>+4000
	000174	000175 				 .WORD	.-LOWCOD+1
	000176	004300 				 .WORD	0+<40*6>+4000
	000200	000201 				 .WORD	.-LOWCOD+1
	000202	004300 				 .WORD	0+<40*6>+4000
	000204	000205 				 .WORD	.-LOWCOD+1
	000206	004300 				 .WORD	0+<40*6>+4000
	000210	000211 				 .WORD	.-LOWCOD+1
	000212	004300 				 .WORD	0+<40*6>+4000
    359					;
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 8-2
LOW CORE -- TRAP VECTORS

    363	000214					PSW	6		; DECTAPE INTERRUPT
	000214	000215 				 .WORD	.-LOWCOD+1
	000216	004300 				 .WORD	0+<40*6>+4000
    365					;
    366		000002 				.REPT	2.
    367						PSW	6		; ILLEGAL INTERRUPT
    368						.ENDR
	000220	000221 				 .WORD	.-LOWCOD+1
	000222	004300 				 .WORD	0+<40*6>+4000
	000224	000225 				 .WORD	.-LOWCOD+1
	000226	004300 				 .WORD	0+<40*6>+4000
    369					;
    370	000230					PSW	4,$CDINT	; CARD READER INTERRUPT
	000230	000000G				 .WORD	$CDINT
	000232	004200 				 .WORD	0+<40*4>+4000
    371					;
    372	000234				.PAT3.::			; [4.1.1137] PATCH SPACE -- 20 BYTES
    373		000004 				.REPT	4.
    374						PSW	6		; ILLEGAL INTERRUPT
    375						.ENDR
	000234	000235 				 .WORD	.-LOWCOD+1
	000236	004300 				 .WORD	0+<40*6>+4000
	000240	000241 				 .WORD	.-LOWCOD+1
	000242	004300 				 .WORD	0+<40*6>+4000
	000244	000245 				 .WORD	.-LOWCOD+1
	000246	004300 				 .WORD	0+<40*6>+4000
	000250	000251 				 .WORD	.-LOWCOD+1
	000252	004300 				 .WORD	0+<40*6>+4000
    376					;
    377	000254					PSW	4,.DBINT	; RH-11 (RP04/RP06) INTERRUPT
	000254	000000G				 .WORD	.DBINT
	000256	004200 				 .WORD	0+<40*4>+4000
    378					;
    379	000260					PSW	6		; ILLEGAL INTERRUPT
	000260	000261 				 .WORD	.-LOWCOD+1
	000262	004300 				 .WORD	0+<40*6>+4000
    380					;
    382	000264					PSW	6,$DXINT	; RX-11 INTERRUPT
	000264	000000G				 .WORD	$DXINT
	000266	004300 				 .WORD	0+<40*6>+4000
    386					;
    387	000270					PSW	6		; ILLEGAL INTERRUPT
	000270	000271 				 .WORD	.-LOWCOD+1
	000272	004300 				 .WORD	0+<40*6>+4000
    388	000274					PSW	6		; ILLEGAL INTERRUPT
	000274	000275 				 .WORD	.-LOWCOD+1
	000276	004300 				 .WORD	0+<40*6>+4000
    389					;
    390	000300					PSW	6,$TTINP,1	; DL-11E # 0 INPUT (KLINIK) INTERRUPT
	000300	036166'				 .WORD	$TTINP
	000302	004301 				 .WORD	1+<40*6>+4000
    391	000304					PSW	6,$TTOUT,1	; DL-11E # 0 OUTPUT (KLINIK) INTERRUPT
	000304	034224'				 .WORD	$TTOUT
	000306	004301 				 .WORD	1+<40*6>+4000
    392					;
    393	000310					PSW	6		; ILLEGAL INTERRUPT
	000310	000311 				 .WORD	.-LOWCOD+1
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 8-3
LOW CORE -- TRAP VECTORS

	000312	004300 				 .WORD	0+<40*6>+4000
    394	000314					PSW	6		; ILLEGAL INTERRUPT
	000314	000315 				 .WORD	.-LOWCOD+1
	000316	004300 				 .WORD	0+<40*6>+4000
    395					;
    396		000000 				U=0
    397						.IRP	U,<0,1,2,3,4,5,6,7>
    398						DHPSW	U
    399					;
    400						.ENDR
	000320	037626'				 .WORD	$DMINT		; DM-11/BB #0 INTERRUPT
	000322	004300 				 .WORD	0+<40*6>+4000
	000324	000325 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000326	004300 				 .WORD	<40*6>+4000
	000330	035534'				 .WORD	$DHINP		; DH-11 #0 INPUT INTERRUPT
	000332	004300 				 .WORD	0+<40*6>+4000
	000334	033552'				 .WORD	$DHOUT		; DH-11 #0 OUTPUT INTERRUPT
	000336	004300 				 .WORD	0+<40*6>+4000
	000340	037626'				 .WORD	$DMINT		; DM-11/BB #1 INTERRUPT
	000342	004301 				 .WORD	1+<40*6>+4000
	000344	000345 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000346	004300 				 .WORD	<40*6>+4000
	000350	035534'				 .WORD	$DHINP		; DH-11 #1 INPUT INTERRUPT
	000352	004301 				 .WORD	1+<40*6>+4000
	000354	033552'				 .WORD	$DHOUT		; DH-11 #1 OUTPUT INTERRUPT
	000356	004301 				 .WORD	1+<40*6>+4000
	000360	037626'				 .WORD	$DMINT		; DM-11/BB #2 INTERRUPT
	000362	004302 				 .WORD	2+<40*6>+4000
	000364	000365 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000366	004300 				 .WORD	<40*6>+4000
	000370	035534'				 .WORD	$DHINP		; DH-11 #2 INPUT INTERRUPT
	000372	004302 				 .WORD	2+<40*6>+4000
	000374	033552'				 .WORD	$DHOUT		; DH-11 #2 OUTPUT INTERRUPT
	000376	004302 				 .WORD	2+<40*6>+4000
	000400	037626'				 .WORD	$DMINT		; DM-11/BB #3 INTERRUPT
	000402	004303 				 .WORD	3+<40*6>+4000
	000404	000405 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000406	004300 				 .WORD	<40*6>+4000
	000410	035534'				 .WORD	$DHINP		; DH-11 #3 INPUT INTERRUPT
	000412	004303 				 .WORD	3+<40*6>+4000
	000414	033552'				 .WORD	$DHOUT		; DH-11 #3 OUTPUT INTERRUPT
	000416	004303 				 .WORD	3+<40*6>+4000
	000420	037626'				 .WORD	$DMINT		; DM-11/BB #4 INTERRUPT
	000422	004304 				 .WORD	4+<40*6>+4000
	000424	000425 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000426	004300 				 .WORD	<40*6>+4000
	000430	035534'				 .WORD	$DHINP		; DH-11 #4 INPUT INTERRUPT
	000432	004304 				 .WORD	4+<40*6>+4000
	000434	033552'				 .WORD	$DHOUT		; DH-11 #4 OUTPUT INTERRUPT
	000436	004304 				 .WORD	4+<40*6>+4000
	000440	037626'				 .WORD	$DMINT		; DM-11/BB #5 INTERRUPT
	000442	004305 				 .WORD	5+<40*6>+4000
	000444	000445 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000446	004300 				 .WORD	<40*6>+4000
	000450	035534'				 .WORD	$DHINP		; DH-11 #5 INPUT INTERRUPT
	000452	004305 				 .WORD	5+<40*6>+4000
	000454	033552'				 .WORD	$DHOUT		; DH-11 #5 OUTPUT INTERRUPT
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 8-4
LOW CORE -- TRAP VECTORS

	000456	004305 				 .WORD	5+<40*6>+4000
	000460	037626'				 .WORD	$DMINT		; DM-11/BB #6 INTERRUPT
	000462	004306 				 .WORD	6+<40*6>+4000
	000464	000465 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000466	004300 				 .WORD	<40*6>+4000
	000470	035534'				 .WORD	$DHINP		; DH-11 #6 INPUT INTERRUPT
	000472	004306 				 .WORD	6+<40*6>+4000
	000474	033552'				 .WORD	$DHOUT		; DH-11 #6 OUTPUT INTERRUPT
	000476	004306 				 .WORD	6+<40*6>+4000
	000500	037626'				 .WORD	$DMINT		; DM-11/BB #7 INTERRUPT
	000502	004307 				 .WORD	7+<40*6>+4000
	000504	000505 				 .WORD	.-LOWCOD+1	; ILLEGAL INTERRUPT
	000506	004300 				 .WORD	<40*6>+4000
	000510	035534'				 .WORD	$DHINP		; DH-11 #7 INPUT INTERRUPT
	000512	004307 				 .WORD	7+<40*6>+4000
	000514	033552'				 .WORD	$DHOUT		; DH-11 #7 OUTPUT INTERRUPT
	000516	004307 				 .WORD	7+<40*6>+4000
    401		000040 				U=<20-D$$H11>*4
    402					;
    403	000520				.PAT4.::			; [4.1.1137] PATCH SPACE -- 200 BYTES
    404		000040 				.REPT	U
    405						PSW	6		; ILLEGAL INTERRUPT
    406						.ENDR
	000520	000521 				 .WORD	.-LOWCOD+1
	000522	004300 				 .WORD	0+<40*6>+4000
	000524	000525 				 .WORD	.-LOWCOD+1
	000526	004300 				 .WORD	0+<40*6>+4000
	000530	000531 				 .WORD	.-LOWCOD+1
	000532	004300 				 .WORD	0+<40*6>+4000
	000534	000535 				 .WORD	.-LOWCOD+1
	000536	004300 				 .WORD	0+<40*6>+4000
	000540	000541 				 .WORD	.-LOWCOD+1
	000542	004300 				 .WORD	0+<40*6>+4000
	000544	000545 				 .WORD	.-LOWCOD+1
	000546	004300 				 .WORD	0+<40*6>+4000
	000550	000551 				 .WORD	.-LOWCOD+1
	000552	004300 				 .WORD	0+<40*6>+4000
	000554	000555 				 .WORD	.-LOWCOD+1
	000556	004300 				 .WORD	0+<40*6>+4000
	000560	000561 				 .WORD	.-LOWCOD+1
	000562	004300 				 .WORD	0+<40*6>+4000
	000564	000565 				 .WORD	.-LOWCOD+1
	000566	004300 				 .WORD	0+<40*6>+4000
	000570	000571 				 .WORD	.-LOWCOD+1
	000572	004300 				 .WORD	0+<40*6>+4000
	000574	000575 				 .WORD	.-LOWCOD+1
	000576	004300 				 .WORD	0+<40*6>+4000
	000600	000601 				 .WORD	.-LOWCOD+1
	000602	004300 				 .WORD	0+<40*6>+4000
	000604	000605 				 .WORD	.-LOWCOD+1
	000606	004300 				 .WORD	0+<40*6>+4000
	000610	000611 				 .WORD	.-LOWCOD+1
	000612	004300 				 .WORD	0+<40*6>+4000
	000614	000615 				 .WORD	.-LOWCOD+1
	000616	004300 				 .WORD	0+<40*6>+4000
	000620	000621 				 .WORD	.-LOWCOD+1
	000622	004300 				 .WORD	0+<40*6>+4000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 8-5
LOW CORE -- TRAP VECTORS

	000624	000625 				 .WORD	.-LOWCOD+1
	000626	004300 				 .WORD	0+<40*6>+4000
	000630	000631 				 .WORD	.-LOWCOD+1
	000632	004300 				 .WORD	0+<40*6>+4000
	000634	000635 				 .WORD	.-LOWCOD+1
	000636	004300 				 .WORD	0+<40*6>+4000
	000640	000641 				 .WORD	.-LOWCOD+1
	000642	004300 				 .WORD	0+<40*6>+4000
	000644	000645 				 .WORD	.-LOWCOD+1
	000646	004300 				 .WORD	0+<40*6>+4000
	000650	000651 				 .WORD	.-LOWCOD+1
	000652	004300 				 .WORD	0+<40*6>+4000
	000654	000655 				 .WORD	.-LOWCOD+1
	000656	004300 				 .WORD	0+<40*6>+4000
	000660	000661 				 .WORD	.-LOWCOD+1
	000662	004300 				 .WORD	0+<40*6>+4000
	000664	000665 				 .WORD	.-LOWCOD+1
	000666	004300 				 .WORD	0+<40*6>+4000
	000670	000671 				 .WORD	.-LOWCOD+1
	000672	004300 				 .WORD	0+<40*6>+4000
	000674	000675 				 .WORD	.-LOWCOD+1
	000676	004300 				 .WORD	0+<40*6>+4000
	000700	000701 				 .WORD	.-LOWCOD+1
	000702	004300 				 .WORD	0+<40*6>+4000
	000704	000705 				 .WORD	.-LOWCOD+1
	000706	004300 				 .WORD	0+<40*6>+4000
	000710	000711 				 .WORD	.-LOWCOD+1
	000712	004300 				 .WORD	0+<40*6>+4000
	000714	000715 				 .WORD	.-LOWCOD+1
	000716	004300 				 .WORD	0+<40*6>+4000
    407					;
    408	000720					PSW	6,$TTINP,4	; DL-11E # 3 INPUT (DN20 #2)
	000720	036166'				 .WORD	$TTINP
	000722	004304 				 .WORD	4+<40*6>+4000
    409	000724					PSW	6,$TTOUT,4	; DL-11E # 3 OUTPUT (DN20 #2)
	000724	034224'				 .WORD	$TTOUT
	000726	004304 				 .WORD	4+<40*6>+4000
    410					;
    411	000730					PSW	6,$TTINP,3	; DL-11E # 2 INPUT (DN20 #1)
	000730	036166'				 .WORD	$TTINP
	000732	004303 				 .WORD	3+<40*6>+4000
    412	000734					PSW	6,$TTOUT,3	; DL-11E # 2 OUTPUT (DN20 #1)
	000734	034224'				 .WORD	$TTOUT
	000736	004303 				 .WORD	3+<40*6>+4000
    413					;
    414	000740					PSW	6,$TTINP,2	; DL-11E # 1 INPUT (DN20 #0)
	000740	036166'				 .WORD	$TTINP
	000742	004302 				 .WORD	2+<40*6>+4000
    415	000744					PSW	6,$TTOUT,2	; DL-11E # 1 OUTPUT (DN20 #0)
	000744	034224'				 .WORD	$TTOUT
	000746	004302 				 .WORD	2+<40*6>+4000
    416					;
    418	000750					PSW	4,$LPINT,1	; LP-20 #1 INTERRUPT
	000750	000000G				 .WORD	$LPINT
	000752	004201 				 .WORD	1+<40*4>+4000
    419	000754					PSW	4,$LPINT,0	; LP-20 #0 INTERRUPT
	000754	000000G				 .WORD	$LPINT
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 8-6
LOW CORE -- TRAP VECTORS

	000756	004200 				 .WORD	0+<40*4>+4000
    424					;
    425		000004 				.REPT	4
    426						PSW	7,.DTINT	; DTE-20 # 0 INTERRUPT VECTORS
    427						.ENDR
	000760	027624'				 .WORD	.DTINT
	000762	004340 				 .WORD	0+<40*7>+4000
	000764	027624'				 .WORD	.DTINT
	000766	004340 				 .WORD	0+<40*7>+4000
	000770	027624'				 .WORD	.DTINT
	000772	004340 				 .WORD	0+<40*7>+4000
	000774	027624'				 .WORD	.DTINT
	000776	004340 				 .WORD	0+<40*7>+4000
    428					;
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 9
LOW CORE -- COMMON GLOBAL DATA

    430						.SBTTL	LOW CORE -- COMMON GLOBAL DATA
    431
    432	001000				.FESTB::
    433	001000	004150 				.WORD	<.LCEND-.FESTB>/2 ; [4.2333] WORD SIZE OF THIS STATUS BLOCK
    434	001002				.EXEND::
    435	001002	000000 	000000 			.LIMIT			; DEFINE LIMITS OF THE FRONT-END
    436									; FIRST WORD LOW LIMIT
    437									; SECOND WORD IS HIGH LIMIT
    438					;
    439					;	CURRENT TASK POINTER (POINTS TO ACTIVE TASK LIST NODE OF CURRENT TASK
    440					;
    441
    442	001006				.CRTSK::
    443	001006	000000 				.WORD	0
    444
    445	001010				.COMEF::
    446	001010	000000 	000000 			.WORD	0,0		; COMMON EVENT FLAGS
    447
    448	001014				.SERFG::
    449	001014	000000 				.WORD	0		; SIG EVENT FLAG
    450	001016				.SEWFL::
    451	001016	000000 				.WORD	0		; SIG EVENT WAIT FLAG
    452	001020				SPSAV::
    453	001020	000000 				.WORD	0		; SAVE AREA FOR STACK
    454					;
    455	001022				PARSAV::
    456	001022					.BLKW	2		; SAVE AREA FOR PARITY ERROR REGISTERS
    457									; (USED BY LC)
    458					;
    459					;	.PFAIL INDICATES POWER FAIL IN PROGRESS
    460					;	IT IS USED ONLY TO INDICATE TO PRI7 TASKS THAT
    461					;	POWER FAIL UNDERWAY AND A RETURN TO THE PROGRAM
    462					;	SHOULD NOT OCCUR
    463					;
    464	001026				.PFAIL::
    465	001026	000000 				.WORD	0
    466	001030				.PFIOW::
    467	001030	000000 				.WORD	0		; POWER FAIL RECOVERY FLAG
    468	001032				PWRXSP::
    469	001032	000000 				.WORD	0		; BUFFER FOR STACK POINTER
    470	001034				CROBAR::
    471	001034	000000 				.WORD	0		; POWER-UP CROBAR TIMER
    472	001036				.VERNO::
    473	001036					RSXVR$	RSX$$K,RSX$$F,RSX$$V,RSX$$E ; RSX20F VERSION NUMBER.
	001036	   126 	   105 	   061 		.ASCIZ	<126><105>\14-45\<200>
	001041	   064 	   055 	   064
	001044	   065 	   200 	   000
    474						.EVEN
    475	001050				.CKASS::
    476	001050	000000 				.WORD	0		; AST ADDRESS FOR CURRENT TASK (CLOCK)
    477	001052				.PFASS::
    478	001052	000000 				.WORD	0		; AST ADDRESS FOR CURRENT TASK (POWER FAIL)
    479
    480	001054					.BLKW	20
    481					;
    482	001114				.MSIZE::
    483	001114	001600 				.WORD	1600		; MEMORY SIZE
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 9-1
LOW CORE -- COMMON GLOBAL DATA

    484	001116				EMTSTK::
    485	001116	000000 				.WORD	0		; EMT SAVED DURING EMT STACK
    486	001120				TRPASV::
    487	001120	000000 				.WORD	0		; SAVED PS OF EMT/TRAP
    488
    489					;
    490					;	THE NEXT TWO BYTES MUST BE KEPT TOGETHER IN THEIR CURRENT ORDER !!!!
    491					;
    492
    493	001122				.NOERR::
    494	001122	000401 				.WORD	401		; DO NOT RECOGNIZE KL ERROR IF NON-ZERO
    495		001123'			.NOHLT	==	.NOERR+1	; DO NOT PANIC IF KL HALTS IF NON-ZERO
    496
    497	001124				.TKTN::
    498	001124	000000 				.WORD	0		; NON ZERO IF TKTN REQUIRED
    499	001126				.KLITK::
    500	001126	000000 				.WORD	0		; KL ATTENTION REQUEST
    501
    502	001130				.KLERQ::
    503	001130	000000 				.WORD	0		; KLERR SNAPSHOT INTERLOCK
    504
    505	001132				.KLIWD::
    506	001132	000000 				.WORD	0		; KL WORD TO DETERMINE BOOT PARAMETERS
    507
    508	001134				.TICKS::
    509	001134	000000 				.WORD	0		; CLOCK TICK COUNTER
    510	001136				.CLKSW::
    511	001136	000000 				.WORD	0		; CLOCK OVERFLOW SWITCH
    512	001140				.DATE::
    513	001140				.DATE3::
    514	001140	000000 				.WORD	0		; FRONT-END DATE VALID FLAG
    515									; FRONT-END DATE IS VALID IF .NE. 0
    516	001142				.YEAR::
    517	001142	003673 				.WORD	1979.		; DECIMAL YEAR
    518	001144				.DAY::
    519	001144	   000 				.BYTE	0.		; DAY OF MONTH
    520	001145				.MON::
    521	001145	   000 				.BYTE	0.		; MONTH OF YEAR
    522	001146				.DST::
    523	001146	   000 				.BYTE	0		; DAYLIGHT SAVING TIME FLAG
    524	001147				.DOW::
    525	001147	   000 				.BYTE	0		; DAY OF WEEK INDEX
    526	001150				.SSM::
    527	001150	000000 	000400 			.WORD	0,400		; ELAPSED TIME IN SECONDS SINCE MIDNIGHT
    528	001154				.TKPS::
    529	001154	000074 				.WORD	.CYLTM		; CLOCK RATE IN JIFFIES
    530
    531	001156				.SYUIC::
    532	001156	002405 				.WORD	5.*400+5.	; SYSTEM UIC [5,5]
    533	001160				.BTPRM::
    534	001160	000000 				.WORD	0		; BOOT PARAMETER
    535	001162				.BTSCH::
    536	001162	000000 				.WORD	0		; CHARACTER SAVED -- FOR SECONDARY PROTOCOL
    537	001164				.ACKAL::
    538	001164	000001 				.WORD	1		; ACK ALL SWITCH
    539	001166				.KLERW::
    540	001166	000000 				.WORD	0		; KL WORD FOR ERROR REPORTING BY SETSPD
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 9-2
LOW CORE -- COMMON GLOBAL DATA

    541	001170				.FEMOD::
    542	001170	000001 				.WORD	1		; FRONT END CONSOLE MODE FLAG
    543	001172				.KLRLD::
    544	001172	   000 				.BYTE	0		;KL RELOAD FLAG
    545	001173				.KLFCF::
    546	001173	   001 				.BYTE	1		;KL FAULT CONTINUATION FLAG
    547	001174				.KLFLG::
    548	001174	000000 				.WORD	0		; FLAG FOR PARSER TO INDICATE STATE OF KL10
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 10
LOW CORE -- KLINIK DATA BASE

    550						.SBTTL	LOW CORE -- KLINIK DATA BASE
    551					;
    552					;	NOTE --
    553					;	THE NEXT 32 BYTES MUST REMAIN CONTIGUOUS AND IN THE SAME ORDER
    554					;
    555
    556	001176				.KLNPB::
    557	001176	000026 				.WORD	KLNPLN		; KLINIK PARAMETER BLOCK LENGTH
    558									; BUFFER FOR PARAMETER SAVE STARTS HERE
    559	001200				.KLNLB::			;
    560	001200				.KLNBC::
    561	001200	000024 				.WORD	KLNPLN-2	; BYTE COUNT FOR TRANSFER
    562	001202				.KLNFT::
    563	001202	000000 				.WORD	0		; KLINIK ENABLE START TIME --
    564									;	SECONDS SINCE MIDNIGHT
    565	001204				.KLNFD::
    566	001204	   000 	   000 	   000 		.BYTE	0,0,0,0		; KLINIK ENABLE START DATE
	001207	   000
    567	001210				.KLNTT::
    568	001210	000000 				.WORD	0		; KLINIK ENABLE END TIME --
    569									;	 SECONDS SINCE MIDNIGHT
    570	001212				.KLNTD::
    571	001212	   000 	   000 	   000 		.BYTE	0,0,0,0		; KLINIK ENABLE END DATE
	001215	   000
    572	001216				.KLNMD::
    573	001216	   000 	   000 			.BYTE	0,0		; KLINIK MODE FLAGS
    574					.EVEN				;
    575		000016 			KLNLGL==.-.KLNFT		; KLINIK EVENT LOG BUFFER LENGTH IN BYTES
    576		001220'			.KLNPE==.
    577	001220				.KLNPW::
    578	001220	000000 	000000 	000000 		.WORD	0,0,0		; ASCII PASSWORD FOR KLINIK
    579					.EVEN
    580		000026 			KLNPLN==.-.KLNBC		; SAVE BUFFER LENGTH IN BYTES
    581	001226				.KLNSW::
    582	001226	   000 	   000 			.BYTE	0,0		; KLINIK LINE STATUS BYTES
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 11
LOW CORE -- COMMIUNICATIONS REGION DATA BASE

    584						.SBTTL	LOW CORE -- COMMIUNICATIONS REGION DATA BASE
    585
    586					;
    587					;	POINTERS TO COMMUNICATIONS AREA
    588					;
    589	001230				COMBSE::
    590	001230	000000 				.WORD	0	; BASE OF COMMUNICATION AREA
    591	001232				PRMEMN::
    592	001232	000000 				.WORD	0	; MY PROCESSOR NUMBER
    593	001234				DEPOF::
    594	001234	000000 				.WORD	0	; DEPOSIT OFFSET FROM EXAMINE
    595					;
    596					;
    597					;	PROCESSOR IDENTIFICATION TABLE
    598					;
    599					;	PROTBL FORMAT:
    600					;
    601					; 		DTENM -- ADDRESS OF DTE-20 TO ACCESS THIS PROCESSOR
    602		000000 			DTENM=0
    603					;		 EMYN -- ADDRESS TO COMMUNICATE TO PROCESSOR 0
    604		000002 			EMYN==2
    605					;		 DMYN -- ADDRESS TO COMMUNICATE TO PROCESSOR 0 (WRITE)
    606		000004 			DMYN==4
    607					;		 EHSG -- ADDRESS FROM GENERAL
    608		000006 			EHSG==6
    609					;		 EHSM -- ADDRESS FROM SPECIFIC
    610		000010 			EHSM==10
    611
    612	001236				PROTBL::
    613	001236	174400 				.WORD	174400	; DTENM
    614	001240	000000 				.WORD	0	; EMYN
    615	001242	000000 				.WORD	0	; DMYN
    616	001244	000000 				.WORD	0	; EHSG
    617	001246	000000 				.WORD	0	; EHSM
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 12
LOW CORE -- QUEUED PROTOCOL DATA BASE

    619						.SBTTL	LOW CORE -- QUEUED PROTOCOL DATA BASE
    620
    621	001250				.CRQZ::
    622	001250	000000 				.WORD	0		; CURRENT QUEUE SIZE
    623	001252				.CPFN::
    624	001252	000000 				.WORD	0		; CURRENT FUNCTION IN TO 10 QUEUE
    625	001254				.CPDV::
    626	001254	000000 				.WORD	0		; CURRENT DEVICE IN TO 10 QUEUE
    627	001256				.CRSZ::
    628	001256	000000 				.WORD	0		; CURRENT SIZE OF TO10 QUEUE
    629	001260				.CRPB::
    630	001260	000000 				.WORD	0		; CURRENT BUFFER POINTER IN TO10 QUEUE
    631	001262				.CRHD::
    632	001262	000000 				.WORD	0		; HEAD OF CURRENT TO10 QUEUE
    633	001264				.CRSB::
    634	001264	000000 				.WORD	0		; POINTER TO CURRENT FUNCTION SIZE
    635
    636	001266				DTEMSK::
    637	001266	000000 				.WORD	0		; DTE DEVICE EVENT FLAG MASK
    638	001270				DTEADR::
    639	001270	000000 				.WORD	0		; DTE DEVICE INDIRECT FLAG ADDRESS
    640
    641	001272				TO11NP::
    642	001272	000000 				.WORD	0		; NODE POINTER FOR NODE
    643	001274				TO11HD::
    644	001274	000000 				.WORD	0		; COUNT OF BYTES IN THIS QUEUE
    645	001276				TO11FN::
    646	001276	000000 				.WORD	0		; TO ELEVEN FUNCTION CODE
    647	001300				TO11DV::
    648	001300	000000 				.WORD	0		; TO ELEVEN DEVICE NUMBER
    649	001302				TO11SP::
    650	001302	000000 				.WORD	0		; SPACE
    651	001304				TO11FW::
    652	001304	000000 				.WORD	0		; FIRST WORD OF FUNCTION
    654	001306				TO11GW::
    655	001306	177777 				.WORD	-1		; GUARD WORD FOR DTE20
    656	001310				TO11AS::
    657	001310	000000 				.WORD	0		; ADDRESS SAVE
    658	001312				TO11BS::
    659	001312	000000 				.WORD	0		; BYTE COUNT SAVE
    660	001314				TO10SZ::
    661	001314	000000 				.WORD	0		; BYTE COUNT OF XFER
    662	001316				TO10AS::
    663	001316	000000 				.WORD	0
    665
    666	001320				STSTT::
    667	001320	000001 	000000 	000000 		.WORD	1,0,0		; TO 10 STATUS
    668
    669		001324'			TO10QC==STSTT+4			; TO 10 QUEUE COUNT
    670		001325'			TO11QC==STSTT+5			; TO 11 QUEUE COUNT
    671
    672	001326	001326'			TO10Q:: .WORD	.		; LISTHEAD FOR TO 10 QUEUE
    673	001330	001326'				.WORD	.-2
    674
    675	001332				EQSZ::
    676	001332	000000 				.WORD	0		; ELEVEN QUEUE SIZE
    677
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 12-1
LOW CORE -- QUEUED PROTOCOL DATA BASE

    678	001334				TO11Q::
    679	001334	000000 				.WORD	0		; TO 11 QUEUE
    680	001336				STATI::
    681	001336					.BLKW	3		; STATUS/SCRATCH WORD FOR EXAMINES/DEPOSITS
    682	001344				DEXST::
    683	001344	000000 				.WORD	0		; DEXDONE TIMEOUT
    684	001346				DEXTM3::
    685	001346	000000 				.WORD	0		; EXAMINE WORD 3 (TEMP STORAGE) TO BE
    686	001350				DEXTM2::
    687	001350	000000 				.WORD	0		; EXAMINE WORD 2 -USED ONLY BECAUSE EXAMINE
    688	001352				DEXTM1::
    689	001352	000000 				.WORD	0		; EXAMINE WORD 1 - OR DEPOSIT MAY FAIL AND MUST BE REDONE
    690	001354				.PRADR::
    691	001354	000000 				.WORD	0		; ADDRESS OF PRIV OFFSET TABLE ENTRY
    692	001356				.PRSTA::
    693	001356	174434 				.WORD	174434		; PRIVILEDGED DTE20 STATUS WORD
    694	001360				.PRDTE::
    695	001360	174400 				.WORD	174400		; FIRST DTE ADDRESS OF PRIVILEDGED DTE20
    696	001362				.PRDCT::
    697	001362	000000 				.WORD	0		; DOORBELL COUNTER FOR KLINIT.
    698					;
    699					;	THE NEXT TWO BYTES MUST REMAIN CONTIGUOUS AND IN THE SAME ORDER
    700					;
    701	001364				.DXRTY::
    702	001364	   001 				.BYTE	1		; [5.1008] DEX ERROR PROCESSING FLAG (SEE BELOW)
    703	001365				.EBRTY::
    704	001365	   001 				.BYTE	1		; [5.1008] EBUS PARITY ERROR PROCESSING FLAG
    705									;		+1 -- NO EBUS PARITY ERROR
    706									;		 0 -- RETRY SUCCEEDED
    707									;		-1 -- RETRY FAILED
    708					;
    709					;	THE NEXT TWO WORDS MUST REMAIN CONTIGUOUS AND IN THE SAME ORDER
    710					;
    711	001366				.EBPEQ::
    712	001366	000000 				.WORD	0		; [4.2217] CONTAINS POINTER TO DTE-20 EBUS PARITY
    713									;	       SNAPSHOT IF ALLOCATION WAS SUCCESSFUL
    714	001370				.EBPEC::
    715	001370	000000 				.WORD	0		; [5.1008] COUNT OF NODES IN THIS QUEUE (MAX = 2)
    716
    717	001372				.PRPSE::
    718	001372	   000 				.BYTE	0		; PROTOCOL PAUSE FLAG
    719	001373				TOXQIP::
    720	001373	   000 				.BYTE	0		; [4.1.1035] TO 10 QUEUE IN PROGRESS FLAG
    721						.EVEN
    722	001374				.DTBLK::
    723	001374	000000 				.WORD	0		; [4.1.1121] HOLDS RE-ENTRY POINT TO START BLOCKED TRANSFER
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 13
LOW CORE -- KEEP-ALIVE DATA BASE

    725						.SBTTL	LOW CORE -- KEEP-ALIVE DATA BASE
    726
    727	001376				KPAL0::
    728	001376	000000 	000000 	000000 		.WORD	0,0,0		; 10 KEEP ALIVE
    729	001404				OKPAL0::
    730	001404	000000 				.WORD	0		; SAVED KEEP ALIVE
    731	001406				KPAL1::
    732	001406	000000 				.WORD	0		; [4.1.1104] 11 KEEP ALIVE
    733	001410				.KPAC::
    734	001410	000005 				.WORD	5		; COUNTER FOR KEEP-ALIVE.
    735	001412				.KACFL::
    736	001412	000001 				.WORD	1		; [4.2107] FLAG TO ALLOW XCT 71
    737									; [4.2107] OR DUMP/RELOAD ON KEEP-ALIVE CEASE
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 14
LOW CORE -- CORE MANAGER DATA BASE

    739						.SBTTL	LOW CORE -- CORE MANAGER DATA BASE
    740
    741		076000 				.BGBST==76000		; START OF BIG BUFFER
    742		002000 				.BGLEN==2000		; LENGTH OF BIG BUFFER
    743
    744					;
    745					;	POOL FREE CORE AREA
    746					;
    747	001414				.BGBUF::
    748	001414	076000 				.WORD	.BGBST		; BIG BUFFER SPACE (1000 EACH)
    749	001416	002000 				.WORD	.BGLEN
    750
    751	001420				.FREPL::
    752	001420	000000 				.WORD	0		; FREE POOL BASE ADDRESS
    753	001422	000000 				.WORD	0		; FREE POOL SIZE IN BYTES
    754
    755	001424				.POLLH::
    756	001424	001430'				.WORD	.POLST		; HEAD OF POOL
    757	001426	002330'				.WORD	.POLND		; END OF POOL
    758
    759	001430				.POLST::
    760	001430	001470'				.WORD	.+40
    761	001432	001424'				.WORD	.POLLH
    762	001434					.BLKW	14.
    763
    764		000015 				.REPT	15
    765						.WORD	.+40
    766						.WORD	.-40
    767						.BLKW	14.
    768						.ENDR
	001470	001530'				.WORD	.+40
	001472	001432'				.WORD	.-40
	001530	001570'				.WORD	.+40
	001532	001472'				.WORD	.-40
	001570	001630'				.WORD	.+40
	001572	001532'				.WORD	.-40
	001630	001670'				.WORD	.+40
	001632	001572'				.WORD	.-40
	001670	001730'				.WORD	.+40
	001672	001632'				.WORD	.-40
	001730	001770'				.WORD	.+40
	001732	001672'				.WORD	.-40
	001770	002030'				.WORD	.+40
	001772	001732'				.WORD	.-40
	002030	002070'				.WORD	.+40
	002032	001772'				.WORD	.-40
	002070	002130'				.WORD	.+40
	002072	002032'				.WORD	.-40
	002130	002170'				.WORD	.+40
	002132	002072'				.WORD	.-40
	002170	002230'				.WORD	.+40
	002172	002132'				.WORD	.-40
	002230	002270'				.WORD	.+40
	002232	002172'				.WORD	.-40
	002270	002330'				.WORD	.+40
	002272	002232'				.WORD	.-40
    769
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 14-1
LOW CORE -- CORE MANAGER DATA BASE

    770	002330				.POLND::
    771	002330	001424'				.WORD	.POLLH
    772	002332	002272'				.WORD	.-40
    773	002334					.BLKW	14.
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 15
LOW CORE -- CLOCK REQUEST LIST

    775						.SBTTL	LOW CORE -- CLOCK REQUEST LIST
    776
    777					;
    778					;	CLOCK LIST (LIST OF ENTRIES IN THE CLOCK QUEUE TO RECEIVE
    779					;	EVENT FLAGS SET ON COMPLETION OF CLOCK TIMER
    780					;
    781		000007 			.CLKSZ==7.	; CLOCK QUEUE SIZE
    782		000014 			C.SZ=14		; CLOCK ENTRY SIZE LOCAL DEFINITION (NOTE: IS A GLOBAL VAR.)
    783
    784	002370				.CLKBA::
    785	002370	007152'				.WORD	TTYTSK
    786	002372	000000 				.WORD	0
    787	002374	000074 				.WORD	.CYLTM
    788	002376	000074 				.WORD	.CYLTM
    789	002400	000100 				.WORD	EF.TMO
    790	002402	007172'				.WORD	TTYTSK+A.EF
    791		000074 				.REPT	.CLKSZ-2*C.SZ
    792						.WORD	0
    793						.ENDR
	002404	000000 				.WORD	0
	002406	000000 				.WORD	0
	002410	000000 				.WORD	0
	002412	000000 				.WORD	0
	002414	000000 				.WORD	0
	002416	000000 				.WORD	0
	002420	000000 				.WORD	0
	002422	000000 				.WORD	0
	002424	000000 				.WORD	0
	002426	000000 				.WORD	0
	002430	000000 				.WORD	0
	002432	000000 				.WORD	0
	002434	000000 				.WORD	0
	002436	000000 				.WORD	0
	002440	000000 				.WORD	0
	002442	000000 				.WORD	0
	002444	000000 				.WORD	0
	002446	000000 				.WORD	0
	002450	000000 				.WORD	0
	002452	000000 				.WORD	0
	002454	000000 				.WORD	0
	002456	000000 				.WORD	0
	002460	000000 				.WORD	0
	002462	000000 				.WORD	0
	002464	000000 				.WORD	0
	002466	000000 				.WORD	0
	002470	000000 				.WORD	0
	002472	000000 				.WORD	0
	002474	000000 				.WORD	0
	002476	000000 				.WORD	0
	002500	000000 				.WORD	0
	002502	000000 				.WORD	0
	002504	000000 				.WORD	0
	002506	000000 				.WORD	0
	002510	000000 				.WORD	0
	002512	000000 				.WORD	0
	002514	000000 				.WORD	0
	002516	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 15-1
LOW CORE -- CLOCK REQUEST LIST

	002520	000000 				.WORD	0
	002522	000000 				.WORD	0
	002524	000000 				.WORD	0
	002526	000000 				.WORD	0
	002530	000000 				.WORD	0
	002532	000000 				.WORD	0
	002534	000000 				.WORD	0
	002536	000000 				.WORD	0
	002540	000000 				.WORD	0
	002542	000000 				.WORD	0
	002544	000000 				.WORD	0
	002546	000000 				.WORD	0
	002550	000000 				.WORD	0
	002552	000000 				.WORD	0
	002554	000000 				.WORD	0
	002556	000000 				.WORD	0
	002560	000000 				.WORD	0
	002562	000000 				.WORD	0
	002564	000000 				.WORD	0
	002566	000000 				.WORD	0
	002570	000000 				.WORD	0
	002572	000000 				.WORD	0
    794	002574				.CLKEA::
    795	002574	000000 				.WORD	0		; END OF CLOCK LIST
    796
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 17
LOW CORE -- TERMINAL SERVICE DATA BASE

    816						.SBTTL	LOW CORE -- TERMINAL SERVICE DATA BASE
    817
    818	002576				.INHDM::
    819	002576	000001 				.WORD	1		; INBIBIT/ENABLE REMOTE LINES (0)=ENABLE
    820	002600				.ABCNT::
    821	002600	000000 				.WORD	0		; COUNT OF AUTO BAUDED LINES
    822	002602				.ABFLG::
    823	002602	000000 				.WORD	0		; FLAG FOR "SETSPD"
    824					;
    825					;	SENDALL MESSAGE POINTERS
    826					;
    827	002604				.SNDLP::
    828	002604	000000 				.WORD	0		; POINTER TO SENDALL BUFFER IN USE
    829	002606				.SNDBF::
    830	002606	000000 	000000 	000000 		.WORD	0,0,0,0		; SENDALL BUFFER RING
	002614	000000
    831	002616				.SNDCN::
    832	002616	000000 	000000 	000000 		.WORD	0,0,0,0		; SENDALL TTY COUNT (THIS AND ABOVE MUST BE TOGETHER)
	002624	000000
    833	002626				.CRSND::
    834	002626	000000 				.WORD	0		; CURRENT SENDALL NODE POINTER -- USED BY ..STTY
    835	002630				.BRKCH::
    836	002630	000034 				.WORD	'\-100		; BREAK CHARACTER (^\)
    837	002632				.TTP11::
    838	002632	000000 				.WORD	0		; TTY PDP11 INPUT IN PROGRESS
    839	002634				.CTYPT::
    840	002634				CTYPTR::
    841	002634	002776'				.WORD	DLTBL		; CONSOLE TTY TABLE POINTER
    842	002636				.KLNPT::
    843	002636				KLNPTR::
    844	002636	003006'				.WORD	DLETBL		; KLINIK LINE POINTER
    845	002640				$UNIT::
    846	002640	000000 				.WORD	0		; DH-11 UNIT NUMBER IF CTY
    847	002642				$BTMSK::
    848	002642	000000 				.WORD	0		; MASK TO START CONSOLE TTY (DH-11)
    849	002644				DMTMP::
    850	002644	000000 				.WORD	0		; TEMPORARY STORAGE FOR DM-11/BB CONTROLLER NUMBER
    851	002646				DHTMP::
    852	002646	000000 				.WORD	0		; TEMPORARY STORAGE FOR DH-11 CONTROLLER NUMBER
    853	002650				DLTMP::
    854	002650	000000 				.WORD	0		; TEMPORARY STORAGE FOR DL-11 CONTROLLER NUMBER
    855	002652				DHSTSV::
    856	002652	000000 				.WORD	0		; DH-11 TABLE POINTER SAVE
    857	002654				.TTELQ::
    858	002654	000000 				.WORD	0		; [4.2245] TERMINAL ERROR LOGGING QUEUE POINTER
    859					;
    860					;	THE NEXT TWO WORDS MUST REMAIN CONTIGUOUS AND IN THE SAME ORDER
    861					;
    862	002656				.TTELC::
    863	002656	000000 				.WORD	0		; [5.1008] COUNT OF NODES IN THIS QUEUE
    864	002660				.TTELB::
    865	002660	000000 				.WORD	0		; [4.2245] TEMPORARY BUFFER FOR ERROR LOGGING
    866					;
    867					;	THE NEXT TWO BYTES MUST REMAIN CONTIGUOUS AND IN THE SAME ORDER
    868					;
    869	002662				TMOCNT::
    870	002662	   012 				.BYTE	^D10		; [4.2309] TERMINAL TIMEOUT COUNTER
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 17-1
LOW CORE -- TERMINAL SERVICE DATA BASE

    871	002663	   026 				.BYTE	^D22		; [4.2309] MODEM TIMEOUT COUNTER
    872						.EVEN
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 18
LOW CORE -- PDP-11 CTY SERVICE DATA BASE

    874						.SBTTL	LOW CORE -- PDP-11 CTY SERVICE DATA BASE
    875
    876	002664				CTYSTS::
    877		000020 				.REPT	16.		; CONSOLE TTY STATUS BLOCK
    878						.WORD	0
    879						.ENDR
	002664	000000 				.WORD	0
	002666	000000 				.WORD	0
	002670	000000 				.WORD	0
	002672	000000 				.WORD	0
	002674	000000 				.WORD	0
	002676	000000 				.WORD	0
	002700	000000 				.WORD	0
	002702	000000 				.WORD	0
	002704	000000 				.WORD	0
	002706	000000 				.WORD	0
	002710	000000 				.WORD	0
	002712	000000 				.WORD	0
	002714	000000 				.WORD	0
	002716	000000 				.WORD	0
	002720	000000 				.WORD	0
	002722	000000 				.WORD	0
    880	002724				CNT::
    881	002724	000000 				.WORD	0
    882	002726				BYCNT::
    883	002726	000000 				.WORD	0
    884	002730				CRADR::
    885	002730	000000 				.WORD	0
    886	002732				TTPKT::
    887	002732	000000 				.WORD	0		; I/O PACKET ADDRESS
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 19
LOW CORE -- TERMINAL DRIVER DATA BASE

    889						.SBTTL	LOW CORE -- TERMINAL DRIVER DATA BASE
    890
    891					;
    892					;	TTY TABLES
    893					;
    894					; CONTROLLER IMPURE DATA TABLES (INDEXED BY CONTROLLER (UNIT) NUMBER)
    895					;
    896
    897	002734				DMTBL::
    898	002734	170500 	003046'			.WORD	170500,DHTBL		; DM11BB TABLE
    899	002740	170510 	003246'			.WORD	170510,16.*8.+DHTBL
    900	002744	170520 	003446'			.WORD	170520,16.*8.*2.+DHTBL
    901	002750	170530 	003646'			.WORD	170530,16.*8.*3.+DHTBL
    902	002754	170540 	004046'			.WORD	170540,16.*8.*4.+DHTBL
    903	002760	170550 	004246'			.WORD	170550,16.*8.*5.+DHTBL
    904	002764	170560 	004446'			.WORD	170560,16.*8.*6.+DHTBL
    905	002770	170570 	004646'			.WORD	170570,16.*8.*7.+DHTBL
    906	002774	000000 				.WORD	0			; [5.1004] END OF TABLE MARKER
    907		002776'			DMTBE==.
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 20
LOW CORE -- DATA LINE SCANNER DATA BASE

    909						.SBTTL	LOW CORE -- DATA LINE SCANNER DATA BASE
    910
    911					;	THE DATA LINE SCANNER TABLE IS ORGANIZED AS FOLLOWS:
    912					;	THE DL-11'S ARE FIRST IN THE TABLE AND THE DL-11C (CTY) IS UNIT 0,
    913					;	THE DL-11E(S) FOLLOW AND BEGIN AT UNIT 1. THE DH-11'S FOLLOW THE
    914					;	DL-11E'S
    915					;
    916					;	ALL TERMINALS HAVE A FOUR WORD ENTRY IN THE FOLLOWING FORMAT:
    917					;
    918					;	+----------------------------------+
    919					;	!    OUTPUT THREAD LIST POINTER    !
    920					;	+----------------------------------+
    921					;	!	EXTERNAL PAGE POINTER	   !
    922					;	+----------------------------------+
    923					;	!	 TERMINAL SPEED WORD	   !
    924					;	+----------------------------------+
    925					;	!	 TERMINAL STATUS WORD	   !
    926					;	+----------------------------------+
    927
    928	002776				TTTBL::					; START OF DATA LINE SCANNER TABLE
    929	002776				DLTBL::
    930	002776	000000 	177560 	000000 		.WORD	0,177560,0,TT.CTY	; TERMINAL STATUS FOR DL-11C
	003004	000002
    931	003006				DLETBL::				; DL-11E TABLE
    932	003006	000000 	175610 	000000 		.WORD	0,175610,0,TT.RMT	; DL-11E # 0 (KLINIK)
	003014	000100
    933	003016	000000 	175630 	000000 		.WORD	0,175630,0,TT.RMT	; DL-11E # 1
	003024	000100
    934	003026	000000 	175640 	000000 		.WORD	0,175640,0,TT.RMT	; DL-11E # 2
	003034	000100
    935	003036	000000 	175650 	000000 		.WORD	0,175650,0,TT.RMT	; DL-11E # 3
	003044	000100
    936		000005 			DLCNT	==.-DLTBL/8.			; NUMBER OF DL-11'S
    937		000004 			DLECNT	==.-DLETBL/8.			; NUMBER OF DL-11E'S
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 21
LOW CORE -- DH-11 DATA BASE

    939						.SBTTL	LOW CORE -- DH-11 DATA BASE
    940
    941	003046				DHTBL::
    942		000020 				.REPT	16.
    943						.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
    944						.ENDR
	003046	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003054	000000
	003056	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003064	000000
	003066	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003074	000000
	003076	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003104	000000
	003106	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003114	000000
	003116	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003124	000000
	003126	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003134	000000
	003136	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003144	000000
	003146	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003154	000000
	003156	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003164	000000
	003166	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003174	000000
	003176	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003204	000000
	003206	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003214	000000
	003216	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003224	000000
	003226	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003234	000000
	003236	000000 	160020 	016003 		.WORD	0,160020,16003,0	; DH-11 MUX CONRTOLLER 0
	003244	000000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 22
LOW CORE -- DH-11 DATA BASE

    946		000020 				.REPT	16.
    947						.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
    948						.ENDR
	003246	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003254	000000
	003256	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003264	000000
	003266	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003274	000000
	003276	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003304	000000
	003306	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003314	000000
	003316	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003324	000000
	003326	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003334	000000
	003336	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003344	000000
	003346	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003354	000000
	003356	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003364	000000
	003366	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003374	000000
	003376	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003404	000000
	003406	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003414	000000
	003416	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003424	000000
	003426	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003434	000000
	003436	000000 	160040 	016003 		.WORD	0,160040,16003,0	; DH-11 MUX CONTROLLER 1
	003444	000000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 23
LOW CORE -- DH-11 DATA BASE

    950		000020 				.REPT	16.
    951						.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
    952						.ENDR
	003446	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003454	000000
	003456	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003464	000000
	003466	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003474	000000
	003476	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003504	000000
	003506	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003514	000000
	003516	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003524	000000
	003526	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003534	000000
	003536	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003544	000000
	003546	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003554	000000
	003556	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003564	000000
	003566	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003574	000000
	003576	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003604	000000
	003606	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003614	000000
	003616	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003624	000000
	003626	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003634	000000
	003636	000000 	160060 	016003 		.WORD	0,160060,16003,0	; DH-11 MUX CONTROLLER 2
	003644	000000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 24
LOW CORE -- DH-11 DATA BASE

    954		000020 				.REPT	16.
    955						.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
    956						.ENDR
	003646	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003654	000000
	003656	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003664	000000
	003666	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003674	000000
	003676	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003704	000000
	003706	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003714	000000
	003716	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003724	000000
	003726	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003734	000000
	003736	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003744	000000
	003746	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003754	000000
	003756	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003764	000000
	003766	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	003774	000000
	003776	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	004004	000000
	004006	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	004014	000000
	004016	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	004024	000000
	004026	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	004034	000000
	004036	000000 	160100 	016003 		.WORD	0,160100,16003,0	; DH-11 MUX CONTROLLER 3
	004044	000000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 25
LOW CORE -- DH-11 DATA BASE

    958		000020 				.REPT	16.
    959						.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
    960						.ENDR
	004046	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004054	000000
	004056	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004064	000000
	004066	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004074	000000
	004076	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004104	000000
	004106	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004114	000000
	004116	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004124	000000
	004126	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004134	000000
	004136	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004144	000000
	004146	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004154	000000
	004156	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004164	000000
	004166	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004174	000000
	004176	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004204	000000
	004206	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004214	000000
	004216	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004224	000000
	004226	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004234	000000
	004236	000000 	160120 	016003 		.WORD	0,160120,16003,0	; DH-11 MUX CONTROLLER 4
	004244	000000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 26
LOW CORE -- DH-11 DATA BASE

    962		000020 				.REPT	16.
    963						.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
    964						.ENDR
	004246	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004254	000000
	004256	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004264	000000
	004266	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004274	000000
	004276	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004304	000000
	004306	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004314	000000
	004316	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004324	000000
	004326	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004334	000000
	004336	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004344	000000
	004346	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004354	000000
	004356	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004364	000000
	004366	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004374	000000
	004376	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004404	000000
	004406	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004414	000000
	004416	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004424	000000
	004426	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004434	000000
	004436	000000 	160140 	016003 		.WORD	0,160140,16003,0	; DH-11 MUX CONTROLLER 5
	004444	000000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 27
LOW CORE -- DH-11 DATA BASE

    966		000020 				.REPT	16.
    967						.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
    968						.ENDR
	004446	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004454	000000
	004456	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004464	000000
	004466	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004474	000000
	004476	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004504	000000
	004506	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004514	000000
	004516	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004524	000000
	004526	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004534	000000
	004536	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004544	000000
	004546	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004554	000000
	004556	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004564	000000
	004566	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004574	000000
	004576	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004604	000000
	004606	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004614	000000
	004616	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004624	000000
	004626	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004634	000000
	004636	000000 	160160 	016003 		.WORD	0,160160,16003,0	; DH-11 MUX CONTROLLER 6
	004644	000000
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 28
LOW CORE -- DH-11 DATA BASE

    970		000020 				.REPT	16.
    971						.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
    972						.ENDR
	004646	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004654	000000
	004656	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004664	000000
	004666	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004674	000000
	004676	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004704	000000
	004706	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004714	000000
	004716	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004724	000000
	004726	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004734	000000
	004736	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004744	000000
	004746	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004754	000000
	004756	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004764	000000
	004766	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	004774	000000
	004776	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	005004	000000
	005006	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	005014	000000
	005016	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	005024	000000
	005026	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	005034	000000
	005036	000000 	160200 	016003 		.WORD	0,160200,16003,0	; DH-11 MUX CONTROLLER 7
	005044	000000
    973
    974		000200 			DHCNT	==.-DHTBL/8.			; COUNT OF DH-11'S
    975		000205 			TTCNT	==.-TTTBL/8.			; NUMBER OF ENTRIES OF DATA LINE SCANNER TABLE
    976		005046'			TTYEND==.
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 29
LOW CORE -- DH-11 DATA BASE

    978					;
    979					; TERMINAL INPUT CONTROL TABLE, ONE WORD PER LINE
    980					;
    981	005046				.TTS2F::
    982	005046	000000 				.WORD	0		; [5.1015] FLAG FOR CLOCK SERVICE
    983	005050				.S2IDC::
    984	005050	000000 				.WORD	0		; [4.1.1092] CURRENT COUNT OF LOCALLY DISABLED LINES
    985	005052				.S2ITP::
    986	005052	002776'				.WORD	TTTBL		; [4.1.1092] TABLE POSITION OF LAST LOCALLY ENABLED LINE
    987	005054				.IBFLO::
    988	005054	001600 				.WORD	1600		; [4.1.1092] INPUT BUFFER LOW THRESHOLD
    989	005056				.IBFOK::
    990	005056	002000 				.WORD	2000		; [4.1.1092] INPUT BUFFER OK THRESHOLD
    991	005060				STSW2::
    992	005060					.BLKW	TTCNT		; [5.1015] STATUS BLOCK FOR EACH LINE
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 31
LOW CORE -- FLOPPY DRIVER DATA BASE

   1012						.SBTTL	LOW CORE -- FLOPPY DRIVER DATA BASE
   1013
   1014	005472				DXRTC::
   1015	005472	000000 				.WORD	0		; ERROR RETRY COUNT FOR CURRENT UNIT
   1016	005474				DXCNT::
   1017	005474	000000 				.WORD	0		; BYTE COUNT
   1018	005476				DXBUF::
   1019	005476	000000 				.WORD	0		; CURRENT ADDRESS POINTER
   1020	005500				DXVCB::
   1021	005500					.BLKW	6
   1022	005514				DXUNIT::
   1023	005514	000000 				.WORD	0		; CURRENT UNIT
   1024	005516				DXPKT::
   1025	005516	000000 				.WORD	0		; I/O PACKET ADDRESS
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 32
LOW CORE -- DISC DRIVER DATA BASE

   1028						.SBTTL	LOW CORE -- DISC DRIVER DATA BASE
   1029
   1030	005520				RPRTC::
   1031	005520	000000 				.WORD	0		; RETRY COUNT FOR CURRENT OPERATION
   1032	005522				RPRNA::
   1033	005522	000000 				.WORD	0		; ADDRESS OF RNA
   1034	005524				RPBUF::
   1035	005524	000000 	000000 			.WORD	0,0		; BUFFER ADDRESS
   1036	005530				RPCNT::
   1037	005530	000000 				.WORD	0		; SIZE
   1038	005532				RPUNIT::
   1039	005532	000000 				.WORD	0		; CURRENT UNIT
   1040	005534				RPCW2::
   1041	005534	000000 				.WORD	0
   1042	005536				.RPELQ::
   1043	005536	000000 				.WORD	0		; [5.1009] RH-11 ERROR LOGGING QUEUE LISTHEAD
   1044	005540				.RPELC::
   1045	005540	000000 				.WORD	0		; [5.1009] RH-11 ERROR LOGGING QUEUE COUNT
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 33
LOW CORE -- FE DRIVER DATA BASE

   1047						.SBTTL	LOW CORE -- FE DRIVER DATA BASE
   1048
   1049	005542				FETBL::
   1050	005542	000000 				.WORD	0		; ENTRY FOR FE0:
   1051	005544	000000 				.WORD	0		; ENTRY FOR FE1:
   1052	005546	000000 				.WORD	0		; ENTRY FOR FE2:
   1053	005550	000000 				.WORD	0		; ENTRY FOR FE3:
   1054	005552				NODADR::
   1055	005552	000000 				.WORD	0
   1056	005554				ADRSAV::
   1057	005554	000000 				.WORD	0		; ADDRESS SAVED
   1058	005556				BYTESA::
   1059	005556	000000 				.WORD	0		; COUNT
   1060	005560				STSWD::
   1061	005560	000000 	000000 			.WORD	0,0		; STATUS WORDS
   1062	005564				TO10PK::
   1063	005564	000000 				.WORD	0		; -11 REQUEST TO -10
   1064	005566					.BLKB	20
   1065	005606				DNBLK::
   1066	005606	000000 				.WORD	0		; RESPONSE TO -10 REQUEST
   1067	005610				DNFCN::
   1068	005610	000000 				.WORD	0
   1069	005612	000000 	000000 			.WORD	0,0
   1070	005616				DNSTS::
   1071	005616	000000 	000000 			.WORD	0,0
   1072	005622	000000 				.WORD	0
   1073	005624				BLKTT::
   1074	005624					.BLKW	20
   1075	005664				.RPUNT::
   1076	005664	000000 				.WORD	0		; RP UNIT NUMBER FOR RPADR ETC.
   1077	005666				.FEACT::
   1078	005666	000000 				.WORD	0		; FE DEVICE AVAILABLE FOR DB ACCESS WHEN .NE. 0
   1079	005670				.RPADR::
   1080	005670	000000 	000000 			.WORD	0,0		; !!!!RPADR AND RPSIZ MUST BE IN THIS ORDER
   1081	005674				.RPSIZ::
   1082	005674	000000 	000000 			.WORD	0,0		; !!!
   1083
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 34
LOW CORE -- CD-11 DRIVER DATA BASE

   1086						.SBTTL	LOW CORE -- CD-11 DRIVER DATA BASE
   1087
   1088		177160 				CDST==177160		; CONTROL AND STATUS REGISTER ADDRESS
   1089		177162 				CDCC==177162		; COLUMN COUNT REGISTER ADDRESS
   1090		177164 				CDBA==177164		; BUS ADDRESS REGISTER ADDRESS
   1091		177166 				CDDB==177166		; DATA BUFFER REGISTER ADDRESS
   1092
   1093	005700				CREVFG::
   1094	005700	005702'				.WORD	CRCEVF		; ADDRESS OF CR TASK'S EVENT FLAGS
   1095	005702				CRCEVF::
   1096	005702					.BLKW	1		; CURRENT EVENT FLAGS
   1097	005704				CRHUNG::
   1098	005704	000000 				.WORD	0		; # TIMES CR WAS CAUGHT SNOOZING
   1099	005706				.CRPFL::
   1100	005706	000000 				.WORD	0		; POWER FAIL FLAG FOR CARD READER
   1101					;
   1102	005710				CRSTBH::
   1103	005710					.BLKW	1		; HEADER WORD (UNIT/BYTE COUNT) OF STATUS BLOCK
   1104	005712				CRSTBK::
   1105	005712					.BLKW	2+1+<<CDDB+2-CDST>/2> ; STATUS RETURN BLOCK TO -10
   1106		000016 			CRSTLN==.-CRSTBK
   1107					;
   1108	005730				CRBUFH::
   1109	005730					.BLKW	1		; HEADER WORD (UNIT/BYTE COUNT) OF DATA BUFFER
   1110	005732				CRBUFF::
   1111	005732					.BLKW	80.		; DATA BUFFER FROM CD-11
   1112		000240 			CRBFLN==.-CRBUFF
   1113	006172	000000 				.WORD	0		; FOR OVERRUN
   1114					;
   1115					; CR DEVICE STATUS TABLE
   1116					;
   1117	006174				CRTBL::
   1118		006174'			CRTHD==.			; THREADED LIST POINTER (FOR ..STCR)
   1119	006174	000000 				.WORD	0
   1120		006176'			CREXP==.			; EXTERNAL PAGE ADDR OF CD-11
   1121	006176	177160 				.WORD	CDST
   1122		006200'			CRSTS==.			; STATUS BITS
   1123	006200	000000 				.WORD	0
   1124	006202	000000 				.WORD	0		; (NOT USED)
   1125					;
   1126		000010 			CRSIZE==.-CRTBL
   1127
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 35
LOW CORE -- LP-20 DRIVER DATA BASE

   1131						.SBTTL	LOW CORE -- LP-20 DRIVER DATA BASE
   1132
   1133		175400 				LPEXPA==175400		; EXTERNAL PAGE ADDRESS OF LPCSRA
   1134		000020 				LPEXPZ==20		; SIZE OF  EXTERNAL PAGE ADDRESSES IN BYTES
   1135
   1136					;
   1137					; MISCELLANEOUS VARIABLES
   1138					;
   1139	006204				LPUNIT::
   1140	006204					.BLKW	1		; LP UNIT # FROM PS ON INTERRUPT
   1141					;
   1142	006206				LPEVFG::
   1143	006206	006210'				.WORD	LPCEVF		; ADDRESS OF WHERE TO SET EVENT FLAGS FOR LP TASK
   1144					;
   1145	006210				LPCEVF::
   1146	006210					.BLKW	1		; CURRENT EVENT FLAGS
   1147					;
   1148	006212				LPHUNG::
   1149	006212	000000 				.WORD	0		; COUNT OF # TIMES LP WAS HUNG
   1150					;
   1151	006214				.LPPFL::
   1152	006214	000000 				.WORD	0		; POWER FAIL FLAG
   1153					;
   1154	006216				LPSTBH::
   1155	006216					.BLKW	1		; HEADER WORD (UNIT/BYTE COUNT)
   1156	006220				LPSTBK::
   1157	006220					.BLKB	4+2+2+LPEXPZ	; STATUS RETURN BLOCK TO -10
   1158						.EVEN
   1159		000030 			LPSTLN==.-LPSTBK
   1160					;
   1161					;
   1162					; LP DEVICE STATUS TABLE
   1163					;  ONE ENTRY FOR EVERY LP, SIZE= LPSIZE
   1164					;
   1165	006250				LPTBL::
   1166		000000 			$$$UNI=0			; START WITH UNIT 0
   1167		000002 				.REPT	L$$P20		; MAKE ONE FOR EACH LP
   1168					;
   1169					LPSTS==	0			; MISC STATUS BITS: *** MUST BE ZERO ***
   1170						.WORD	$$$UNI
   1171					LPCSA==	2			; EXTERNAL PAGE ADDRESS FOR THIS LP
   1172						.WORD	LPEXPA+<20*$$$UNI>
   1173					LPTHD==	4			; POINTER TO THREADED OUTPUT QUEUE
   1174									; ZERO IF NO QUEUE
   1175						.WORD	0
   1176					LPITH==	6			; INTERRUPT-LEVEL THREAD POINTER
   1177									; POINTS TO CURRENT BUFFER BEING
   1178									; OUTPUT AT INTERRUPT LEVEL
   1179						.WORD	0
   1180					;
   1181					$$$UNI=$$$UNI+1
   1182						.ENDR
	006250	000000 				.WORD	$$$UNI
	006252	175400 				.WORD	LPEXPA+<20*$$$UNI>
	006254	000000 				.WORD	0
	006256	000000 				.WORD	0
	006260	000001 				.WORD	$$$UNI
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 35-1
LOW CORE -- LP-20 DRIVER DATA BASE

	006262	175420 				.WORD	LPEXPA+<20*$$$UNI>
	006264	000000 				.WORD	0
	006266	000000 				.WORD	0
   1183		000010 			LPSIZE==<.-LPTBL>/L$$P20	; SIZE OF EACH ENTRY
   1184					;
   1185					; SECOND (PARALLEL) LP TABLE-- INDEXES ARE FROM LPTBL
   1186					;
   1187	006270				LPTBL2::
   1188		000010 				.REPT	LPSIZE*L$$P20/2	; MAKE SPACE
   1189						.WORD	0
   1190						.ENDR
	006270	000000 				.WORD	0
	006272	000000 				.WORD	0
	006274	000000 				.WORD	0
	006276	000000 				.WORD	0
	006300	000000 				.WORD	0
	006302	000000 				.WORD	0
	006304	000000 				.WORD	0
	006306	000000 				.WORD	0
   1191					;
   1192		000020 			LPMCB==	0+LPTBL2-LPTBL		; MULTI-CHARACTER BUFFER (TWO BYTES)
   1193		000022 			LPCSM==	2+LPTBL2-LPTBL		; ACCUMULATED CHECKSUM (LOW BYTE IS TRASH)
   1194		000024 			LPRTY==	4+LPTBL2-LPTBL		; RETRY COUNTER
   1195					;
   1196					; THIRD (PARALLEL) LP TABLE-- INDEXES ARE ALSO FROM LPTBL
   1197					;
   1198	006310				LPTBL3::
   1199		000010 				.REPT	LPSIZE*L$$P20/2	; MAKE SPACE
   1200						.WORD	0
   1201						.ENDR
	006310	000000 				.WORD	0
	006312	000000 				.WORD	0
	006314	000000 				.WORD	0
	006316	000000 				.WORD	0
	006320	000000 				.WORD	0
	006322	000000 				.WORD	0
	006324	000000 				.WORD	0
	006326	000000 				.WORD	0
   1202					;
   1203		000040 			LPRMA==	0+LPTBL3-LPTBL		; RAM/VFU DATA ADDRESS
   1204		000042 			LPRMZ==	2+LPTBL3-LPTBL		; RAM/VFU DATA BUFFER SIZE
   1205		000044 			LPRMC==	4+LPTBL3-LPTBL		; CURRENT POINTER INTO RAM/VFU DATA
   1206					;
   1207					; POINTERS TO LPTBL BY UNIT NUMBER
   1208					;
   1209	006330				LPUTBL::
   1210		000000 			$$$UNI=0
   1211		000002 				.REPT	L$$P20		; ONE PER LP
   1212						.WORD	LPTBL+<$$$UNI*LPSIZE>
   1213					$$$UNI=$$$UNI+1
   1214						.ENDR
	006330	006250'				.WORD	LPTBL+<$$$UNI*LPSIZE>
	006332	006260'				.WORD	LPTBL+<$$$UNI*LPSIZE>
   1215
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 36
LOW CORE -- STD (SYSTEM TASK DIRECTORY)

   1218						.SBTTL	LOW CORE -- STD (SYSTEM TASK DIRECTORY)
   1219
   1220					;
   1221					;	SYSTEM TASK DIRECTORY
   1222					;
   1223	006334				.STDTA::
   1224	006334	006342'				.WORD	.STDTB		; STD ALPHA TABLE ADDRESS
   1225	006336				.STDTC::
   1226	006336	000044 				.WORD	36.		; STD ALPHA TABLE MAX SIZE *2
   1227	006340				.STDTZ::
   1228	006340	000024 				.WORD	24		; STD "SIZE" (2N-2)
   1229					;
   1230	006342				.STDTB::
   1232	006342	006746'				.WORD	STDCDR		; CARD READER ENTRY
   1234	006344	006406'				.WORD	STDDTE		; DTE CLOCK ENTRY
   1239	006346	006446'				.WORD	STDFED		; FE DRIVER
   1242	006350	006506'				.WORD	STDDX		; FLOPPY DRIVER
   1245	006352	006546'				.WORD	STDF11		; F11ACP
   1248	006354	006706'				.WORD	STDLPT		; LP20
   1250	006356	007046'				.WORD	STDQPR		; QUEUE'D PROTOCOL
   1252	006360	006606'				.WORD	STDRPT		; RP04 ENTRY
   1254	006362	007006'				.WORD	STDTTY		; TTY ENTRY
   1256	006364	006646'				.WORD	STDINS		; INSTALL
   1258	006366	000000 	000000 	000000 		.WORD	0,0,0,0,0,0,0
	006374	000000 	000000 	000000
	006402	000000
   1278	006404	000000 				.WORD	0
   1280					;
   1281					;
   1282					;
   1283	006406				STDDTE::
   1284	006406					.STDEN	DTE20,DTETPD,SF.TA!SF.FX!SF.ST,200,0,DTEHD,0,0,0,0,0,0
	006406	016045 	146260 			.RAD50	"DTE20"
	006412	007572'				.WORD	DTETPD
	006414	100003 				.WORD	SF.TA!SF.FX!SF.ST
	006416	   200 	   000 			.BYTE	200,0
	006420	024652'				.WORD	DTEHD
	006422	000000 				.WORD	0
	006424	000000 				.WORD	0
	006426	000000 				.WORD	0
	006430	000000 				.WORD	0
	006432	006432'				.WORD	.
	006434	006432'				.WORD	.-2
	006436	000000 				.WORD	0
	006440	000000 				.WORD	0
	006442	000000 				.WORD	0
	006444	000000 				.WORD	0
   1286					;
   1287	006446				STDFED::
   1288	006446					.STDEN	FE....,FETPD,SF.TA!SF.FX!SF.ST,176,0,FEHD,0,0,0,0,0,0
	006446	023144 	131574 			.RAD50	"FE...."
	006452	007612'				.WORD	FETPD
	006454	100003 				.WORD	SF.TA!SF.FX!SF.ST
	006456	   176 	   000 			.BYTE	176,0
	006460	000000G				.WORD	FEHD
	006462	000000 				.WORD	0
	006464	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 36-1
LOW CORE -- STD (SYSTEM TASK DIRECTORY)

	006466	000000 				.WORD	0
	006470	000000 				.WORD	0
	006472	006472'				.WORD	.
	006474	006472'				.WORD	.-2
	006476	000000 				.WORD	0
	006500	000000 				.WORD	0
	006502	000000 				.WORD	0
	006504	000000 				.WORD	0
   1296					;
   1297	006506				STDDX::
   1298	006506					.STDEN	DX....,DXTPD,SF.TA!SF.FX!SF.ST,176,0,DXHD,0,0,0,0,0,0
	006506	016334 	131574 			.RAD50	"DX...."
	006512	007732'				.WORD	DXTPD
	006514	100003 				.WORD	SF.TA!SF.FX!SF.ST
	006516	   176 	   000 			.BYTE	176,0
	006520	000000G				.WORD	DXHD
	006522	000000 				.WORD	0
	006524	000000 				.WORD	0
	006526	000000 				.WORD	0
	006530	000000 				.WORD	0
	006532	006532'				.WORD	.
	006534	006532'				.WORD	.-2
	006536	000000 				.WORD	0
	006540	000000 				.WORD	0
	006542	000000 				.WORD	0
	006544	000000 				.WORD	0
   1301					;
   1302	006546				STDF11::
   1304	006546					.STDEN	F11ACP,F11TPD,SF.ST,220,<<DX0PEN-.PUDBA>/U.SZ>,145400,7700,0,145400,145400,0,5
	006546	025167 	003310 			.RAD50	"F11ACP"
	006552	007772'				.WORD	F11TPD
	006554	100000 				.WORD	SF.ST
	006556	   220 	   011 			.BYTE	220,<DX0PEN-.PUDBA>/U.SZ
	006560	145400 				.WORD	145400
	006562	007700 				.WORD	7700
	006564	000000 				.WORD	0
	006566	145400 				.WORD	145400
	006570	145400 				.WORD	145400
	006572	006572'				.WORD	.
	006574	006572'				.WORD	.-2
	006576	000000 				.WORD	0
	006600	000000 				.WORD	0
	006602	000005 				.WORD	5
	006604	000000 				.WORD	0
   1314					;
   1315	006606				STDRPT::
   1316	006606					.STDEN	RP....,RPTPD,SF.TA!SF.FX!SF.ST,176,0,RPHD,0,0,0,0,0,0
	006606	071434 	131574 			.RAD50	"RP...."
	006612	007752'				.WORD	RPTPD
	006614	100003 				.WORD	SF.TA!SF.FX!SF.ST
	006616	   176 	   000 			.BYTE	176,0
	006620	000000G				.WORD	RPHD
	006622	000000 				.WORD	0
	006624	000000 				.WORD	0
	006626	000000 				.WORD	0
	006630	000000 				.WORD	0
	006632	006632'				.WORD	.
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 36-2
LOW CORE -- STD (SYSTEM TASK DIRECTORY)

	006634	006632'				.WORD	.-2
	006636	000000 				.WORD	0
	006640	000000 				.WORD	0
	006642	000000 				.WORD	0
	006644	000000 				.WORD	0
   1319					;
   1320	006646				STDINS::
   1321	006646					.STDEN	.INST.,INSTPD,SF.FX!SF.ST,200,0,INSHD,0,0,INSTAL,INSTK-16,0,0
	006646	130166 	074774 			.RAD50	".INST."
	006652	007552'				.WORD	INSTPD
	006654	100002 				.WORD	SF.FX!SF.ST
	006656	   200 	   000 			.BYTE	200,0
	006660	000000G				.WORD	INSHD
	006662	000000 				.WORD	0
	006664	000000 				.WORD	0
	006666	000000G				.WORD	INSTAL
	006670	177762G				.WORD	INSTK-16
	006672	006672'				.WORD	.
	006674	006672'				.WORD	.-2
	006676	000000 				.WORD	0
	006700	000000 				.WORD	0
	006702	000000 				.WORD	0
	006704	000000 				.WORD	0
   1324					;
   1325	006706				STDLPT::
   1326	006706					.STDEN	LPDRV,LPTPD,SF.TA!SF.FX!SF.ST,176,0,LPHD,0,0,0,0,0,0
	006706	046604 	071760 			.RAD50	"LPDRV"
	006712	007652'				.WORD	LPTPD
	006714	100003 				.WORD	SF.TA!SF.FX!SF.ST
	006716	   176 	   000 			.BYTE	176,0
	006720	000000G				.WORD	LPHD
	006722	000000 				.WORD	0
	006724	000000 				.WORD	0
	006726	000000 				.WORD	0
	006730	000000 				.WORD	0
	006732	006732'				.WORD	.
	006734	006732'				.WORD	.-2
	006736	000000 				.WORD	0
	006740	000000 				.WORD	0
	006742	000000 				.WORD	0
	006744	000000 				.WORD	0
   1329					;
   1330	006746				STDCDR::
   1331	006746					.STDEN	CDDRV,CDRTPD,SF.TA!SF.FX!SF.ST,210,0,CRHD,0,0,57252,55130-16,0,0
	006746	011544 	071760 			.RAD50	"CDDRV"
	006752	007672'				.WORD	CDRTPD
	006754	100003 				.WORD	SF.TA!SF.FX!SF.ST
	006756	   210 	   000 			.BYTE	210,0
	006760	000000G				.WORD	CRHD
	006762	000000 				.WORD	0
	006764	000000 				.WORD	0
	006766	057252 				.WORD	57252
	006770	055112 				.WORD	55130-16
	006772	006772'				.WORD	.
	006774	006772'				.WORD	.-2
	006776	000000 				.WORD	0
	007000	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 36-3
LOW CORE -- STD (SYSTEM TASK DIRECTORY)

	007002	000000 				.WORD	0
	007004	000000 				.WORD	0
   1333					;
   1334	007006				STDTTY::
   1335	007006					.STDEN	TTYDRV,TTYTPD,SF.TA!SF.FX!SF.ST,177,0,TTYHD,0,0,0,0,0,0
	007006	100071 	015746 			.RAD50	"TTYDRV"
	007012	007632'				.WORD	TTYTPD
	007014	100003 				.WORD	SF.TA!SF.FX!SF.ST
	007016	   177 	   000 			.BYTE	177,0
	007020	031736'				.WORD	TTYHD
	007022	000000 				.WORD	0
	007024	000000 				.WORD	0
	007026	000000 				.WORD	0
	007030	000000 				.WORD	0
	007032	007032'				.WORD	.
	007034	007032'				.WORD	.-2
	007036	000000 				.WORD	0
	007040	000000 				.WORD	0
	007042	000000 				.WORD	0
	007044	000000 				.WORD	0
   1336					;
   1337	007046				STDQPR::
   1338	007046					.STDEN	QDPROT,QPRTPD,SF.TA!SF.FX!SF.ST,176,0,BTPHD,0,0,0,0,0,0
	007046	065360 	071354 			.RAD50	"QDPROT"
	007052	007712'				.WORD	QPRTPD
	007054	100003 				.WORD	SF.TA!SF.FX!SF.ST
	007056	   176 	   000 			.BYTE	176,0
	007060	016032'				.WORD	BTPHD
	007062	000000 				.WORD	0
	007064	000000 				.WORD	0
	007066	000000 				.WORD	0
	007070	000000 				.WORD	0
	007072	007072'				.WORD	.
	007074	007072'				.WORD	.-2
	007076	000000 				.WORD	0
	007100	000000 				.WORD	0
	007102	000000 				.WORD	0
	007104	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 37
LOW CORE -- ATL (ACTIVE TASK LIST)

   1340						.SBTTL	LOW CORE -- ATL (ACTIVE TASK LIST)
   1341
   1342					;
   1343					;	ACTIVE TASK LISTHEAD
   1344					;
   1345	007106				.ATLLH::
   1346	007106	007112'				.WORD	DTETSK		; FORWARD POINTER IN ACTIVE TASK LIST
   1347	007110	007512'				.WORD	NULTSK		; NULL TASK
   1348					;
   1349					;
   1350	007112				DTETSK::
   1351	007112					.ATLEN	TTYTSK,.ATLLH,DTESP,0,200,DTEHD,TS.RUN,0,STDDTE,0,0,0,0,0,0,0
	007112	007152'				.WORD	TTYTSK
	007114	007106'				.WORD	.ATLLH
	007116	025132'				.WORD	DTESP
	007120	000000 				.WORD	0
	007122	000200 				.WORD	200
	007124	024652'				.WORD	DTEHD
	007126	   010 	   000 			.BYTE	TS.RUN,0
	007130	006406'				.WORD	STDDTE
	007132	000000 	000000 			.WORD	0,0
	007136	000000 	000000 	000000 		.WORD	0,0,0,0
	007144	000000
	007146	000000 				.WORD	0
	007150	000000 				.WORD	0
   1352					;
   1353	007152				TTYTSK::
   1354	007152					.ATLEN	RPTSK,DTETSK,TTYSP,0,177,TTYHD,TS.RUN,0,STDTTY,0,0,0,0,0,0,0
	007152	007212'				.WORD	RPTSK
	007154	007112'				.WORD	DTETSK
	007156	032216'				.WORD	TTYSP
	007160	000000 				.WORD	0
	007162	000177 				.WORD	177
	007164	031736'				.WORD	TTYHD
	007166	   010 	   000 			.BYTE	TS.RUN,0
	007170	007006'				.WORD	STDTTY
	007172	000000 	000000 			.WORD	0,0
	007176	000000 	000000 	000000 		.WORD	0,0,0,0
	007204	000000
	007206	000000 				.WORD	0
	007210	000000 				.WORD	0
   1355					;
   1357	007212				RPTSK::
   1358	007212					.ATLEN	LPTSK,TTYTSK,RPSTK,0,176,RPHD,TS.RUN,0,STDRPT,0,0,0,0,0,0,0
	007212	007252'				.WORD	LPTSK
	007214	007152'				.WORD	TTYTSK
	007216	000000G				.WORD	RPSTK
	007220	000000 				.WORD	0
	007222	000176 				.WORD	176
	007224	000000G				.WORD	RPHD
	007226	   010 	   000 			.BYTE	TS.RUN,0
	007230	006606'				.WORD	STDRPT
	007232	000000 	000000 			.WORD	0,0
	007236	000000 	000000 	000000 		.WORD	0,0,0,0
	007244	000000
	007246	000000 				.WORD	0
	007250	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 37-1
LOW CORE -- ATL (ACTIVE TASK LIST)

   1362					;
   1364	007252				LPTSK::
   1365	007252					.ATLEN	CDTSK,RPTSK,LPSTK,0,176,LPHD,TS.RUN,0,STDLPT,0,0,0,0,0,0,0
	007252	007312'				.WORD	CDTSK
	007254	007212'				.WORD	RPTSK
	007256	000000G				.WORD	LPSTK
	007260	000000 				.WORD	0
	007262	000176 				.WORD	176
	007264	000000G				.WORD	LPHD
	007266	   010 	   000 			.BYTE	TS.RUN,0
	007270	006706'				.WORD	STDLPT
	007272	000000 	000000 			.WORD	0,0
	007276	000000 	000000 	000000 		.WORD	0,0,0,0
	007304	000000
	007306	000000 				.WORD	0
	007310	000000 				.WORD	0
   1370	007312				CDTSK::
   1371	007312					.ATLEN	DTTSK,LPTSK,CRSTK,CDRTPD,176,CRHD,TS.RUN,0,STDCDR,0,0,0,0,0,0,0
	007312	007352'				.WORD	DTTSK
	007314	007252'				.WORD	LPTSK
	007316	000000G				.WORD	CRSTK
	007320	007672'				.WORD	CDRTPD
	007322	000176 				.WORD	176
	007324	000000G				.WORD	CRHD
	007326	   010 	   000 			.BYTE	TS.RUN,0
	007330	006746'				.WORD	STDCDR
	007332	000000 	000000 			.WORD	0,0
	007336	000000 	000000 	000000 		.WORD	0,0,0,0
	007344	000000
	007346	000000 				.WORD	0
	007350	000000 				.WORD	0
   1375					;
   1380	007352				DTTSK::
   1382					;
   1384	007352				FETSK::
   1385	007352					.ATLEN	DXTSK,DTTSK,FESTK,0,176,FEHD,TS.RUN,0,STDFED,0,0,0,0,0,0,0
	007352	007412'				.WORD	DXTSK
	007354	007352'				.WORD	DTTSK
	007356	000000G				.WORD	FESTK
	007360	000000 				.WORD	0
	007362	000176 				.WORD	176
	007364	000000G				.WORD	FEHD
	007366	   010 	   000 			.BYTE	TS.RUN,0
	007370	006446'				.WORD	STDFED
	007372	000000 	000000 			.WORD	0,0
	007376	000000 	000000 	000000 		.WORD	0,0,0,0
	007404	000000
	007406	000000 				.WORD	0
	007410	000000 				.WORD	0
   1389					;
   1391	007412				DXTSK::
   1392	007412					.ATLEN	QPRTSK,FETSK,DXSTK,0,176,DXHD,TS.RUN,0,STDDX,0,0,0,0,0,0,0
	007412	007452'				.WORD	QPRTSK
	007414	007352'				.WORD	FETSK
	007416	000000G				.WORD	DXSTK
	007420	000000 				.WORD	0
	007422	000176 				.WORD	176
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 37-2
LOW CORE -- ATL (ACTIVE TASK LIST)

	007424	000000G				.WORD	DXHD
	007426	   010 	   000 			.BYTE	TS.RUN,0
	007430	006506'				.WORD	STDDX
	007432	000000 	000000 			.WORD	0,0
	007436	000000 	000000 	000000 		.WORD	0,0,0,0
	007444	000000
	007446	000000 				.WORD	0
	007450	000000 				.WORD	0
   1396					;
   1397	007452				QPRTSK::
   1398	007452					.ATLEN	NULTSK,DXTSK,.BTSTK,0,1,BTPHD,TS.RUN,0,STDQPR,0,0,0,0,0,0,0
	007452	007512'				.WORD	NULTSK
	007454	007412'				.WORD	DXTSK
	007456	016312'				.WORD	.BTSTK
	007460	000000 				.WORD	0
	007462	000001 				.WORD	1
	007464	016032'				.WORD	BTPHD
	007466	   010 	   000 			.BYTE	TS.RUN,0
	007470	007046'				.WORD	STDQPR
	007472	000000 	000000 			.WORD	0,0
	007476	000000 	000000 	000000 		.WORD	0,0,0,0
	007504	000000
	007506	000000 				.WORD	0
	007510	000000 				.WORD	0
   1399					;
   1400	007512				NULTSK::
   1401	007512					.ATLEN	.ATLLH,QPRTSK,NTKXSP,0,0,NULHD,TS.RUN,0,0,0,0,0,0,0,0,0
	007512	007106'				.WORD	.ATLLH
	007514	007452'				.WORD	QPRTSK
	007516	012522'				.WORD	NTKXSP
	007520	000000 				.WORD	0
	007522	000000 				.WORD	0
	007524	012242'				.WORD	NULHD
	007526	   010 	   000 			.BYTE	TS.RUN,0
	007530	000000 				.WORD	0
	007532	000000 	000000 			.WORD	0,0
	007536	000000 	000000 	000000 		.WORD	0,0,0,0
	007544	000000
	007546	000000 				.WORD	0
	007550	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 38
LOW CORE -- TPD (TASK PARTITION DIRECTORY)

   1403						.SBTTL	LOW CORE -- TPD (TASK PARTITION DIRECTORY)
   1404
   1405					;
   1406					;	TASK PARTITION DIRECTORY
   1407					;
   1408	007552				.TPDBA::
   1410					;
   1411	007552				INSTPD::
   1412	007552					.TPDEN	INSTPD,INSHD,0,0,TF.OU
	007552	000000 	000000 			.WORD	0,0
	007552	035203 	077604 			.RAD50	"INSTPD"
	007556	000000G				.WORD	INSHD
	007560	000000 				.WORD	0
	007562	000000 				.WORD	0
	007564	000002 				.WORD	TF.OU
	007566	007566'				.WORD	.
	007570	007566'				.WORD	.-2
   1414					;
   1415	007572				DTETPD::
   1416	007572					.TPDEN	DTETPD,DTEHD,0,0,TF.OU
	007572	000000 	000000 			.WORD	0,0
	007572	016045 	077604 			.RAD50	"DTETPD"
	007576	024652'				.WORD	DTEHD
	007600	000000 				.WORD	0
	007602	000000 				.WORD	0
	007604	000002 				.WORD	TF.OU
	007606	007606'				.WORD	.
	007610	007606'				.WORD	.-2
   1418					;
   1419	007612				FETPD::
   1420	007612					.TPDEN	FETPD,FEHD,0,0,TF.OU
	007612	000000 	000000 			.WORD	0,0
	007612	023134 	062240 			.RAD50	"FETPD"
	007616	000000G				.WORD	FEHD
	007620	000000 				.WORD	0
	007622	000000 				.WORD	0
	007624	000002 				.WORD	TF.OU
	007626	007626'				.WORD	.
	007630	007626'				.WORD	.-2
   1422					;
   1423	007632				TTYTPD::
   1424	007632					.TPDEN	TTYTPD,TTYHD,0,0,TF.OU
	007632	000000 	000000 			.WORD	0,0
	007632	100071 	077604 			.RAD50	"TTYTPD"
	007636	031736'				.WORD	TTYHD
	007640	000000 				.WORD	0
	007642	000000 				.WORD	0
	007644	000002 				.WORD	TF.OU
	007646	007646'				.WORD	.
	007650	007646'				.WORD	.-2
   1426					;
   1427	007652				LPTPD::
   1428	007652					.TPDEN	LPTPD,LPHD,0,0,TF.OU
	007652	000000 	000000 			.WORD	0,0
	007652	046624 	062240 			.RAD50	"LPTPD"
	007656	000000G				.WORD	LPHD
	007660	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 38-1
LOW CORE -- TPD (TASK PARTITION DIRECTORY)

	007662	000000 				.WORD	0
	007664	000002 				.WORD	TF.OU
	007666	007666'				.WORD	.
	007670	007666'				.WORD	.-2
   1431					;
   1432	007672				CDRTPD::
   1433	007672					.TPDEN	CDRTPD,CRHD,0,0,TF.OU
	007672	000000 	000000 			.WORD	0,0
	007672	011562 	077604 			.RAD50	"CDRTPD"
	007676	000000G				.WORD	CRHD
	007700	000000 				.WORD	0
	007702	000000 				.WORD	0
	007704	000002 				.WORD	TF.OU
	007706	007706'				.WORD	.
	007710	007706'				.WORD	.-2
   1435					;
   1436	007712				QPRTPD::
   1437	007712					.TPDEN	QPRTPD,BTPHD,0,0,TF.OU
	007712	000000 	000000 			.WORD	0,0
	007712	066322 	077604 			.RAD50	"QPRTPD"
	007716	016032'				.WORD	BTPHD
	007720	000000 				.WORD	0
	007722	000000 				.WORD	0
	007724	000002 				.WORD	TF.OU
	007726	007726'				.WORD	.
	007730	007726'				.WORD	.-2
   1444					;
   1445	007732				DXTPD::
   1446	007732					.TPDEN	DXTPD,DXHD,0,0,TF.OU
	007732	000000 	000000 			.WORD	0,0
	007732	016324 	062240 			.RAD50	"DXTPD"
	007736	000000G				.WORD	DXHD
	007740	000000 				.WORD	0
	007742	000000 				.WORD	0
	007744	000002 				.WORD	TF.OU
	007746	007746'				.WORD	.
	007750	007746'				.WORD	.-2
   1449					;
   1450	007752				RPTPD::
   1451	007752					.TPDEN	RPTPD,RPHD,0,0,TF.OU
	007752	000000 	000000 			.WORD	0,0
	007752	071424 	062240 			.RAD50	"RPTPD"
	007756	000000G				.WORD	RPHD
	007760	000000 				.WORD	0
	007762	000000 				.WORD	0
	007764	000002 				.WORD	TF.OU
	007766	007766'				.WORD	.
	007770	007766'				.WORD	.-2
   1454					;
   1455	007772				F11TPD::
   1456	007772					.TPDEN	F11TPD,145400,12400,0,0
	007772	000000 	000000 			.WORD	0,0
	007772	025167 	077604 			.RAD50	"F11TPD"
	007776	145400 				.WORD	145400
	010000	012400 				.WORD	12400
	010002	000000 				.WORD	0
	010004	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 38-2
LOW CORE -- TPD (TASK PARTITION DIRECTORY)

	010006	010006'				.WORD	.
	010010	010006'				.WORD	.-2
   1458					;
   1459	010012				GENTPD::
   1460	010012					.TPDEN	GEN,100000,45400,0,0
	010012	000000 	000000 			.WORD	0,0
	010012	026226 				.RAD50	"GEN"
	010016	100000 				.WORD	100000
	010020	045400 				.WORD	45400
	010022	000000 				.WORD	0
	010024	000000 				.WORD	0
	010026	010026'				.WORD	.
	010030	010026'				.WORD	.-2
   1461					;
   1462	010032				.TPDEA::		;END OF TPD
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 39
LOW CORE -- DEVICE QUEUE POINTERS

   1464						.SBTTL	LOW CORE -- DEVICE QUEUE POINTERS
   1465
   1466					;
   1467					;	DEVICE QUEUE POINTERS
   1468					;
   1469		000020 			Q.SZ=20		; QUEUE ENTRY SIZE (NOTE:IS A GLOBAL VAR.)
   1470
   1471		000001 				D.CCTY==1	; DEVICE CODE FOR CTY
   1472	010032				.DQPBA::
   1473	010032					.DQPEN	TTTBL,8.,..STTY,..STPT,IGNO,IGNO,0,TTCNT
	010032	002776'				.WORD	TTTBL
	010034	000010 				.WORD	8.
	010036	044726'				.WORD	..STTY
	010040	045142'				.WORD	..STPT
	010042	012140'				.WORD	IGNO
	010044	012140'				.WORD	IGNO
	010046	000000 				.WORD	0
	010050	000205 				.WORD	TTCNT
   1474
   1475		000002 				D.CDL1==2	; DEVICE CODE FOR DL-11
   1476	010052				.DQDL1::
   1477	010052					.DQPEN	DLTBL,8.,..STTY,..STPT,IGNO,IGNO,0,DLCNT
	010052	002776'				.WORD	DLTBL
	010054	000010 				.WORD	8.
	010056	044726'				.WORD	..STTY
	010060	045142'				.WORD	..STPT
	010062	012140'				.WORD	IGNO
	010064	012140'				.WORD	IGNO
	010066	000000 				.WORD	0
	010070	000005 				.WORD	DLCNT
   1478
   1479		000003 				D.CDH1==3	; DEVICE CODE FOR DH-11 (1)
   1480	010072				.DQDH0::
   1481	010072					.DQPEN	DHTBL,8.,..STTY,..STPT,IGNO,IGNO,0,DHCNT
	010072	003046'				.WORD	DHTBL
	010074	000010 				.WORD	8.
	010076	044726'				.WORD	..STTY
	010100	045142'				.WORD	..STPT
	010102	012140'				.WORD	IGNO
	010104	012140'				.WORD	IGNO
	010106	000000 				.WORD	0
	010110	000200 				.WORD	DHCNT
   1482
   1483		000004 				D.CDLS==4	; DEVICE CODE FOR DATA LINE SCANNER (1)
   1484	010112				.DQDLS::
   1485	010112					.DQPEN	TTTBL,8.,..STTY,..STPT,IGNO,IGNO,0,TTCNT
	010112	002776'				.WORD	TTTBL
	010114	000010 				.WORD	8.
	010116	044726'				.WORD	..STTY
	010120	045142'				.WORD	..STPT
	010122	012140'				.WORD	IGNO
	010124	012140'				.WORD	IGNO
	010126	000000 				.WORD	0
	010130	000205 				.WORD	TTCNT
   1486
   1487		000005 				D.CLPT==5	; DEVICE CODE FOR LPT
   1488	010132				.DQLPT::
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 39-1
LOW CORE -- DEVICE QUEUE POINTERS

   1489	010132					.DQPEN	LPTBL,8.,..STLP,..SPLP,IGNO,..AKLP,0,2
	010132	006250'				.WORD	LPTBL
	010134	000010 				.WORD	8.
	010136	000000G				.WORD	..STLP
	010140	000000G				.WORD	..SPLP
	010142	012140'				.WORD	IGNO
	010144	000000G				.WORD	..AKLP
	010146	000000 				.WORD	0
	010150	000002 				.WORD	2
   1490
   1491		000006 				D.CCDR==6	; DEVICE CODE FOR CDR
   1492	010152				.DQCDR::
   1493	010152					.DQPEN	CRTBL,8.,..STCR,IGNO,IGNO,..AKCR,0,1
	010152	006174'				.WORD	CRTBL
	010154	000010 				.WORD	8.
	010156	000000G				.WORD	..STCR
	010160	012140'				.WORD	IGNO
	010162	012140'				.WORD	IGNO
	010164	000000G				.WORD	..AKCR
	010166	000000 				.WORD	0
	010170	000001 				.WORD	1
   1494
   1495		000007 				D.CCLK==7	; DEVICE CODE FOR CLOCK
   1496	010172					.DQPEN	0,0,IGNO,IGNO,IGNO,IGNO,0,1
	010172	000000 				.WORD	0
	010174	000000 				.WORD	0
	010176	012140'				.WORD	IGNO
	010200	012140'				.WORD	IGNO
	010202	012140'				.WORD	IGNO
	010204	012140'				.WORD	IGNO
	010206	000000 				.WORD	0
	010210	000001 				.WORD	1
   1497
   1498		000010 				D.FEPD==10	; PSEUDO DEVICE FOR FE
   1499	010212					.DQPEN	FETBL,2.,.FEST,IGNO,IGNO,.FEACK,0,4
	010212	005542'				.WORD	FETBL
	010214	000002 				.WORD	2.
	010216	000000G				.WORD	.FEST
	010220	012140'				.WORD	IGNO
	010222	012140'				.WORD	IGNO
	010224	000000G				.WORD	.FEACK
	010226	000000 				.WORD	0
	010230	000004 				.WORD	4
   1500
   1501
   1502	010232				.DQPEA::			; END OF DEVICE QUEUE POINTER TABLE
   1503		000010 			.DQPSZ==.DQPEA-.DQPBA/Q.SZ	; SIZE OF DEVICE QUEUE POINTER TABLE
   1504
   1505					;
   1506					;	NOTE -- THESE PSUEDO-DEVICES ARE OUTPUT-ONLY AND
   1507					;		ARE ASSOCIATED WITH ERROR LOGGING
   1508					;
   1509		000200 				D.CCPU==200		; PSEUDO DEVICE PDP10 CPU
   1510		000201 				D.CKLE==201		; KL ERROR PSEUDO DEVICE
   1511		000202 				D.CDTE==202		; [5.1008] DTE-20 PSEUDO DEVICE CODE
   1512		000203 				D.CRJP==203		; [5.1009] RH-11/RJP-04/06 PSEUDO DEVICE CODE
   1513		000204 				D.CDMB==204		; [4.1.1091] DM-11/BB CONFIGURATION CODE
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 39-2
LOW CORE -- DEVICE QUEUE POINTERS

   1514		000205 				D.CLOG==205		; ASCII 'PARSER.LOG'
   1515		000210 				D.CKLN==210		; KLINIK PSEUDO-DEVICE
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 40
LOW CORE -- LOGICAL UNIT TABLES

   1517						.SBTTL	LOW CORE -- LOGICAL UNIT TABLES
   1518
   1519					;
   1520					;	LOGICAL UNIT TABLE
   1521					;
   1522	010232				.PUDBA::			; START OF LOGICAL UNIT TABLE
   1523					;
   1524		000001 				L.TTY==1	; LOGICAL UNIT 1
   1525	010232				TTPEN::
   1526	010232					.PUDEN	TT,0,0,UC.REC!UC.CCL!UC.TTY,0,0,80.,TTPEN,TTYTSK,0,0,0
	010232	   124 	   124 			.ASCII	"TT"
	010234	   000 				.BYTE	0
	010235	   000 				.BYTE	0
	010236	000007 				.WORD	UC.REC!UC.CCL!UC.TTY
	010240	000000 				.WORD	0
	010242	000000 				.WORD	0
	010244	000120 				.WORD	80.
	010246	000000 				.WORD	0
	010250	010232'				.WORD	TTPEN
	010252	007152'				.WORD	TTYTSK
	010254	010254'				.WORD	.
	010256	010254'				.WORD	.-2
	010260	000000 				.WORD	0
	010262	   005 	   005 			.BYTE	5,5
	010264	000000 				.WORD	0
	010266	177777 				.WORD	-1
	010270	135600 				.RAD50	/0/
	010272	000000 				.WORD	0
	010274	000000 				.WORD	0
	010276	000000 				.WORD	0
	010300	000000 				.WORD	0
   1527					;
   1528		000002 				L.RP4==2
   1529						;DVCH=CH.OFF+CH.NAT*400+CH.OFF+CH.NAT
   1530		110220 				DVCH=110220
   1531						;FW=UF.TL!UF.RH
   1532		000300 				FW=300
   1533						;C1=UC.MNT!UC.F11!UC.DIR
   1534		140010 				C1=140010
   1535						;C1DB=UC.MNT!UC.F11!UC.DIR!UC.ETB
   1536		140110 				C1DB=140110
   1537					;
   1539	010302				RPPEN::
   1540	010302					.PUDEN	DB,0,FW,C1DB,0,0,512.,RPPEN,RPTSK,DVCH,F11,0
	010302	   104 	   102 			.ASCII	"DB"
	010304	   000 				.BYTE	0
	010305	   300 				.BYTE	FW
	010306	140110 				.WORD	C1DB
	010310	000000 				.WORD	0
	010312	000000 				.WORD	0
	010314	001000 				.WORD	512.
	010316	000000 				.WORD	0
	010320	010302'				.WORD	RPPEN
	010322	007212'				.WORD	RPTSK
	010324	010324'				.WORD	.
	010326	010324'				.WORD	.-2
	010330	000000 				.WORD	0
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 40-1
LOW CORE -- LOGICAL UNIT TABLES

	010332	   005 	   005 			.BYTE	5,5
	010334	110220 				.WORD	DVCH
	010336	177777 				.WORD	-1
	010340	025167 				.RAD50	/F11/
	010342	000000 				.WORD	0
	010344	000000 				.WORD	0
	010346	000000 				.WORD	0
	010350	000000 				.WORD	0
   1541					; THIS IS DONE TO KEEP .PUDEN MACROS SHORTER THAN 80 CHARS
   1542		010346'			.=.-4
   1543	010346	000002 				.WORD	2
   1544	010350	050700 				.WORD	50700		; RP SIZE IS 140000. BLOCKS
   1545	010352				.RP1PE::
   1546	010352					.PUDEN DB,1,FW,C1DB,0,0,512.,.RP1PE,RPTSK,DVCH,F11,0
	010352	   104 	   102 			.ASCII	"DB"
	010354	   001 				.BYTE	1
	010355	   300 				.BYTE	FW
	010356	140110 				.WORD	C1DB
	010360	000000 				.WORD	0
	010362	000000 				.WORD	0
	010364	001000 				.WORD	512.
	010366	000000 				.WORD	0
	010370	010352'				.WORD	.RP1PE
	010372	007212'				.WORD	RPTSK
	010374	010374'				.WORD	.
	010376	010374'				.WORD	.-2
	010400	000000 				.WORD	0
	010402	   005 	   005 			.BYTE	5,5
	010404	110220 				.WORD	DVCH
	010406	177777 				.WORD	-1
	010410	025167 				.RAD50	/F11/
	010412	000000 				.WORD	0
	010414	000000 				.WORD	0
	010416	000000 				.WORD	0
	010420	000000 				.WORD	0
   1547		010416'				.=.-4
   1548	010416	000002 				.WORD	2
   1549	010420	050700 				.WORD	50700
   1550	010422				.RP2PE::
   1551	010422					.PUDEN DB,2,FW,C1DB,0,0,512.,.RP2PE,RPTSK,DVCH,F11,0
	010422	   104 	   102 			.ASCII	"DB"
	010424	   002 				.BYTE	2
	010425	   300 				.BYTE	FW
	010426	140110 				.WORD	C1DB
	010430	000000 				.WORD	0
	010432	000000 				.WORD	0
	010434	001000 				.WORD	512.
	010436	000000 				.WORD	0
	010440	010422'				.WORD	.RP2PE
	010442	007212'				.WORD	RPTSK
	010444	010444'				.WORD	.
	010446	010444'				.WORD	.-2
	010450	000000 				.WORD	0
	010452	   005 	   005 			.BYTE	5,5
	010454	110220 				.WORD	DVCH
	010456	177777 				.WORD	-1
	010460	025167 				.RAD50	/F11/
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 40-2
LOW CORE -- LOGICAL UNIT TABLES

	010462	000000 				.WORD	0
	010464	000000 				.WORD	0
	010466	000000 				.WORD	0
	010470	000000 				.WORD	0
   1552		010466'				.=.-4
   1553	010466	000002 				.WORD	2
   1554	010470	050700 				.WORD	50700
   1555	010472				.RP3PE::
   1556	010472					.PUDEN DB,3,FW,C1DB,0,0,512.,.RP3PE,RPTSK,DVCH,F11,0
	010472	   104 	   102 			.ASCII	"DB"
	010474	   003 				.BYTE	3
	010475	   300 				.BYTE	FW
	010476	140110 				.WORD	C1DB
	010500	000000 				.WORD	0
	010502	000000 				.WORD	0
	010504	001000 				.WORD	512.
	010506	000000 				.WORD	0
	010510	010472'				.WORD	.RP3PE
	010512	007212'				.WORD	RPTSK
	010514	010514'				.WORD	.
	010516	010514'				.WORD	.-2
	010520	000000 				.WORD	0
	010522	   005 	   005 			.BYTE	5,5
	010524	110220 				.WORD	DVCH
	010526	177777 				.WORD	-1
	010530	025167 				.RAD50	/F11/
	010532	000000 				.WORD	0
	010534	000000 				.WORD	0
	010536	000000 				.WORD	0
	010540	000000 				.WORD	0
   1557		010536'				.=.-4
   1558	010536	000002 				.WORD	2
   1559	010540	050700 				.WORD	50700
   1560	010542				.RP4PE::
   1561	010542					.PUDEN DB,4,FW,C1DB,0,0,512.,.RP4PE,RPTSK,DVCH,F11,0
	010542	   104 	   102 			.ASCII	"DB"
	010544	   004 				.BYTE	4
	010545	   300 				.BYTE	FW
	010546	140110 				.WORD	C1DB
	010550	000000 				.WORD	0
	010552	000000 				.WORD	0
	010554	001000 				.WORD	512.
	010556	000000 				.WORD	0
	010560	010542'				.WORD	.RP4PE
	010562	007212'				.WORD	RPTSK
	010564	010564'				.WORD	.
	010566	010564'				.WORD	.-2
	010570	000000 				.WORD	0
	010572	   005 	   005 			.BYTE	5,5
	010574	110220 				.WORD	DVCH
	010576	177777 				.WORD	-1
	010600	025167 				.RAD50	/F11/
	010602	000000 				.WORD	0
	010604	000000 				.WORD	0
	010606	000000 				.WORD	0
	010610	000000 				.WORD	0
   1562		010606'				.=.-4
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 40-3
LOW CORE -- LOGICAL UNIT TABLES

   1563	010606	000002 				.WORD	2
   1564	010610	050700 				.WORD	50700
   1565	010612				.RP5PE::
   1566	010612					.PUDEN DB,5,FW,C1DB,0,0,512.,.RP5PE,RPTSK,DVCH,F11,0
	010612	   104 	   102 			.ASCII	"DB"
	010614	   005 				.BYTE	5
	010615	   300 				.BYTE	FW
	010616	140110 				.WORD	C1DB
	010620	000000 				.WORD	0
	010622	000000 				.WORD	0
	010624	001000 				.WORD	512.
	010626	000000 				.WORD	0
	010630	010612'				.WORD	.RP5PE
	010632	007212'				.WORD	RPTSK
	010634	010634'				.WORD	.
	010636	010634'				.WORD	.-2
	010640	000000 				.WORD	0
	010642	   005 	   005 			.BYTE	5,5
	010644	110220 				.WORD	DVCH
	010646	177777 				.WORD	-1
	010650	025167 				.RAD50	/F11/
	010652	000000 				.WORD	0
	010654	000000 				.WORD	0
	010656	000000 				.WORD	0
	010660	000000 				.WORD	0
   1567		010656'				.=.-4
   1568	010656	000002 				.WORD	2
   1569	010660	050700 				.WORD	50700
   1570	010662				.RP6PE::
   1571	010662					.PUDEN DB,6,FW,C1DB,0,0,512.,.RP6PE,RPTSK,DVCH,F11,0
	010662	   104 	   102 			.ASCII	"DB"
	010664	   006 				.BYTE	6
	010665	   300 				.BYTE	FW
	010666	140110 				.WORD	C1DB
	010670	000000 				.WORD	0
	010672	000000 				.WORD	0
	010674	001000 				.WORD	512.
	010676	000000 				.WORD	0
	010700	010662'				.WORD	.RP6PE
	010702	007212'				.WORD	RPTSK
	010704	010704'				.WORD	.
	010706	010704'				.WORD	.-2
	010710	000000 				.WORD	0
	010712	   005 	   005 			.BYTE	5,5
	010714	110220 				.WORD	DVCH
	010716	177777 				.WORD	-1
	010720	025167 				.RAD50	/F11/
	010722	000000 				.WORD	0
	010724	000000 				.WORD	0
	010726	000000 				.WORD	0
	010730	000000 				.WORD	0
   1572		010726'				.=.-4
   1573	010726	000002 				.WORD	2
   1574	010730	050700 				.WORD	50700
   1575	010732				.RP7PE::
   1576	010732					.PUDEN DB,7,FW,C1DB,0,0,512.,.RP7PE,RPTSK,DVCH,F11,0
	010732	   104 	   102 			.ASCII	"DB"
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 40-4
LOW CORE -- LOGICAL UNIT TABLES

	010734	   007 				.BYTE	7
	010735	   300 				.BYTE	FW
	010736	140110 				.WORD	C1DB
	010740	000000 				.WORD	0
	010742	000000 				.WORD	0
	010744	001000 				.WORD	512.
	010746	000000 				.WORD	0
	010750	010732'				.WORD	.RP7PE
	010752	007212'				.WORD	RPTSK
	010754	010754'				.WORD	.
	010756	010754'				.WORD	.-2
	010760	000000 				.WORD	0
	010762	   005 	   005 			.BYTE	5,5
	010764	110220 				.WORD	DVCH
	010766	177777 				.WORD	-1
	010770	025167 				.RAD50	/F11/
	010772	000000 				.WORD	0
	010774	000000 				.WORD	0
	010776	000000 				.WORD	0
	011000	000000 				.WORD	0
   1577		010776'				.=.-4
   1578	010776	000002 				.WORD	2
   1579	011000	050700 				.WORD	50700
   1581		000003 				L.DT0==3
   1593					;
   1594		000005 				L.DX0==5
   1595	011002				DX0PEN::
   1596	011002					.PUDEN	DX,0,FW,C1,0,0,512.,DX0PEN,DXTSK,DVCH,F11,0
	011002	   104 	   130 			.ASCII	"DX"
	011004	   000 				.BYTE	0
	011005	   300 				.BYTE	FW
	011006	140010 				.WORD	C1
	011010	000000 				.WORD	0
	011012	000000 				.WORD	0
	011014	001000 				.WORD	512.
	011016	000000 				.WORD	0
	011020	011002'				.WORD	DX0PEN
	011022	007412'				.WORD	DXTSK
	011024	011024'				.WORD	.
	011026	011024'				.WORD	.-2
	011030	000000 				.WORD	0
	011032	   005 	   005 			.BYTE	5,5
	011034	110220 				.WORD	DVCH
	011036	177777 				.WORD	-1
	011040	025167 				.RAD50	/F11/
	011042	000000 				.WORD	0
	011044	000000 				.WORD	0
	011046	000000 				.WORD	0
	011050	000000 				.WORD	0
   1597		011050'			.=.-2
   1598	011050	000756 				.WORD	494.
   1599		000006 				L.DX1==6
   1600	011052				DX1PEN::
   1601	011052					.PUDEN	DX,1,FW,C1,0,0,512.,DX1PEN,DXTSK,DVCH,F11,0
	011052	   104 	   130 			.ASCII	"DX"
	011054	   001 				.BYTE	1
	011055	   300 				.BYTE	FW
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 40-5
LOW CORE -- LOGICAL UNIT TABLES

	011056	140010 				.WORD	C1
	011060	000000 				.WORD	0
	011062	000000 				.WORD	0
	011064	001000 				.WORD	512.
	011066	000000 				.WORD	0
	011070	011052'				.WORD	DX1PEN
	011072	007412'				.WORD	DXTSK
	011074	011074'				.WORD	.
	011076	011074'				.WORD	.-2
	011100	000000 				.WORD	0
	011102	   005 	   005 			.BYTE	5,5
	011104	110220 				.WORD	DVCH
	011106	177777 				.WORD	-1
	011110	025167 				.RAD50	/F11/
	011112	000000 				.WORD	0
	011114	000000 				.WORD	0
	011116	000000 				.WORD	0
	011120	000000 				.WORD	0
   1602		011120'			.=.-2
   1603	011120	000756 				.WORD	494.
   1606					;
   1607	011122				LP0PUD::
   1608	011122					.PUDEN	LP,0,0,UC.REC!UC.CCL,0,0,132.,LP0PUD,LPTSK,0,0,0
	011122	   114 	   120 			.ASCII	"LP"
	011124	   000 				.BYTE	0
	011125	   000 				.BYTE	0
	011126	000003 				.WORD	UC.REC!UC.CCL
	011130	000000 				.WORD	0
	011132	000000 				.WORD	0
	011134	000204 				.WORD	132.
	011136	000000 				.WORD	0
	011140	011122'				.WORD	LP0PUD
	011142	007252'				.WORD	LPTSK
	011144	011144'				.WORD	.
	011146	011144'				.WORD	.-2
	011150	000000 				.WORD	0
	011152	   005 	   005 			.BYTE	5,5
	011154	000000 				.WORD	0
	011156	177777 				.WORD	-1
	011160	135600 				.RAD50	/0/
	011162	000000 				.WORD	0
	011164	000000 				.WORD	0
	011166	000000 				.WORD	0
	011170	000000 				.WORD	0
   1611					;
   1612	011172				FE0PUD::
   1613	011172					.PUDEN	FE,0,UF.RH,C1,0,0,512.,FE0PUD,FETSK,DVCH,T20,0
	011172	   106 	   105 			.ASCII	"FE"
	011174	   000 				.BYTE	0
	011175	   200 				.BYTE	UF.RH
	011176	140010 				.WORD	C1
	011200	000000 				.WORD	0
	011202	000000 				.WORD	0
	011204	001000 				.WORD	512.
	011206	000000 				.WORD	0
	011210	011172'				.WORD	FE0PUD
	011212	007352'				.WORD	FETSK
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 40-6
LOW CORE -- LOGICAL UNIT TABLES

	011214	011214'				.WORD	.
	011216	011214'				.WORD	.-2
	011220	000000 				.WORD	0
	011222	   005 	   005 			.BYTE	5,5
	011224	110220 				.WORD	DVCH
	011226	177777 				.WORD	-1
	011230	101036 				.RAD50	/T20/
	011232	000000 				.WORD	0
	011234	000000 				.WORD	0
	011236	000000 				.WORD	0
	011240	000000 				.WORD	0
   1615					;
   1616	011242				SY0PUD::
   1620
   1625	011242					.PUDEN	SY,0,0,0,0,0,0,DX0PEN,0,0,0,0
	011242	   123 	   131 			.ASCII	"SY"
	011244	   000 				.BYTE	0
	011245	   000 				.BYTE	0
	011246	000000 				.WORD	0
	011250	000000 				.WORD	0
	011252	000000 				.WORD	0
	011254	000000 				.WORD	0
	011256	000000 				.WORD	0
	011260	011002'				.WORD	DX0PEN
	011262	000000 				.WORD	0
	011264	011264'				.WORD	.
	011266	011264'				.WORD	.-2
	011270	000000 				.WORD	0
	011272	   005 	   005 			.BYTE	5,5
	011274	000000 				.WORD	0
	011276	177777 				.WORD	-1
	011300	135600 				.RAD50	/0/
	011302	000000 				.WORD	0
	011304	000000 				.WORD	0
	011306	000000 				.WORD	0
	011310	000000 				.WORD	0
   1628	011312				.PUDEA::
   1629							; END OF LOGICAL UNIT ABLE
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 41
LOW CORE -- KL10 HARDWARE ENVIRONMENT DATA

   1631						.SBTTL	LOW CORE -- KL10 HARDWARE ENVIRONMENT DATA
   1632
   1633
   1634	011312				.CPUSN::
   1635	011312	000000 				.WORD	0		; [4.2333] KL10 CPU SERIAL NUMBER
   1636									; [4.2333] .EQ. 0 ==> MUST BE READ
   1637									; [4.2333] .LT. 0 ==> CAN'T BE READ
   1638									; [4.2333] .GT. 0 ==> ALREADY READ
   1639	011314				.HRDWR::
   1640	011314	000000 				.WORD	0		; [4.2333] HARDWARE OPTION BIT MASK
   1641
   1642		000001 				H.KUDF==BIT0		; [4.2333] UNDEFINED
   1643		000002 				H.KMOS==BIT1		; [4.2333] MOS MASTER OSCILLATOR
   1644		000004 				H.KEXT==BIT2		; [4.2333] EXTENDED ADDRESING
   1645		000010 				H.KCHN==BIT3		; [4.2333] INTERNAL CHANNELS
   1646		000020 				H.KCAC==BIT4		; [4.2333] CACHE
   1647		000040 				H.KPWR==BIT5		; [4.2333] LINE FREQUENCY
   1648									; [4.2333] .EQ. 0 ==> 60 HZ.
   1649									; [4.2333] .NE. 0 ==> 50 HZ.
   1650	011316				.MISC::
   1651	011316	   000 				.BYTE	0		; MISC. , SEE BELOW FOR BIT DEFINETIONS
   1652
   1653		000001 				M.TAKP==BIT0		; USED IN KLEDEF TO SEE IF TAKE SHOULD BE DONE
   1654		000002 				M.PARQ==BIT1		; USED IN TTYDRR WHEN PARSER IS REQUESTED
   1655	011317				.ATOTAK::
   1656	011317	   001 				.BYTE	1		; THE AUTO-TAKE FLAG - DEFAULT OFF
   1657		011320'				.LCEND==.		; [4.2333] DEFINE THE END OF THE STATUS BLOCK
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 42
LOW CORE -- INITLM (INITIALIZATION)

   1659						.SBTTL	LOW CORE -- INITLM (INITIALIZATION)
   1660
   1661					;
   1662					;	INITIALIZATION CODE ALSO DOUBLES AS
   1663					;	EMERGENCY STACK AREA FOR CRASH
   1664					;
   1665	011320				INITLM::
   1666	011320	013700 	001004'			MOV	.EXEND+2,R0	; GET ABSOLUTE EXEC LIMIT
   1667	011324	062700 	000003 			ADD	#3,R0		; ROUND UP TO NEXT 4 BYTES
   1668	011330	042700 	000003 			BIC	#3,R0		; SO
   1669	011334	010037 	001420'			MOV	R0,.FREPL	; SET BASE OF FREE POOL
   1670	011340	012701 	075774 			MOV	#.BGBST-4,R1	; END OF FREE POOL MINUS 10 BYTES
   1671	011344	160001 				SUB	R0,R1		; COMPUTE SIZE OF FREE POOL
   1672	011346	005020 				CLR	(R0)+		; INDICATE NO LINKS
   1673	011350	010110 				MOV	R1,@R0		; SET FREE POOL SIZE
   1674	011352	010137 	001422'			MOV	R1,.FREPL+2	; HERE TOO
   1675	011356	013700 	001414'			MOV	.BGBUF,R0
   1676	011362	005020 				CLR	(R0)+
   1677	011364	012710 	002000 			MOV	#.BGLEN,@R0
   1678	011370	105237 	001123'			INCB	.NOERR+1	; SET FORCED STOP
   1679	011374	010706 				MOV	PC,SP		; SET UP THE STACK
   1680	011376	012737 	000200 	001014'		MOV	#EV.PF,.SERFG+0	; SET POWER FAIL
   1681	011404	012737 	004000 	177776 		MOV	#4000,@#PS	; ENABLE INTERRUPTS
   1682	011412	012746 	013610'			MOV	#ASXE1,-(SP)
   1683	011416	162706 	000006 			SUB	#6,SP		; SET UP INITIAL TO TEN Q
   1684	011422	000137 	046130'			JMP	INIAN		; GO DO IT
   1685						;
   1686	011426				EMGSTK::			; EMERGENCY STACK AREA
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 43
LOW CORE -- TRAP SERVICE FOR COMMON PROGRAM TRAPS

   1688						.SBTTL	LOW CORE -- TRAP SERVICE FOR COMMON PROGRAM TRAPS
   1689					;
   1690					;	TRAPS HANDLED HERE ARE:
   1691					;
   1692					;	TRAP TO 4 (DEVICE OR MEMORY TIMEOUT AND 11 CATCH ALL)
   1693					;	TRAP TO 10 (ILLEGAL INSTRUCTION)
   1694					;	T-BIT AND BPT TRAPS
   1695					;	IOT INSTRUCTION
   1696					;	TRAP INSTRUCTION
   1697					;
   1698					;	ILLEGAL INTERRUPTS TRAP HERE.  THEY ARE DETERMINED
   1699					;	BY PLACING AN ODD ADDRESS IN UNUSED TRAP VECTORS
   1700					;	WHEN THE PROCESSOR TRAPS TO AN ILLEGAL TRAP VECTOR IT WIL
   1701					;	PUT THE ILLEGAL (ODD) ADDRESS IN THE PC AND TRAP TO 4
   1702					;	THIS WILL THEN ALLOW THE FIELD SERVICE PEOPLE TO
   1703					;	DETERMINE WHAT LOCATION THE PROCESSOR HAS PICKED
   1704					;	TO DO AN ILLEGAL TRAP
   1705					;
   1706					;
   1707					;	GENERALLY THESE TRAPS LIKE THE OTHERS THAT TRAP TO UN ATTACHED
   1708					;	TRAP VECTORS ARE FATAL.  THESE HAVE BEEN SEPARATED OUT
   1709					;	BECAUSE THEY ARE PROBABLY PROGRAM ERRORS AND NOT
   1710					;	HARDWARE ERRORS.  IT IS POSSIBLE THAT IF THESE ARE
   1711					;	SEPARATED FROM HARDWARE TRAPS THAT IT WILL BE POSSIBLE
   1712					;	TO PROVIDE SOME PROGRAM DEBUGGING BY IDENTIFICATION OF
   1713					;	THESE SPECIFIC TYPES.
   1714					;
   1715					;	HARDWARE/SOFTWARE ERROR TRAPS HANDLED HERE ARE:
   1716					;
   1717					;	1. TRAP TO UNASSIGNED TRAP VECTOR
   1718					;	2. PARITY ERROR
   1719					;	3. RESERVED INSTRUCTION TRAP
   1720					;	4. IOT TRAP
   1721					;
   1722					;	STACK SUMMARY:
   1723					;			0(SP) -- TRAP PC
   1724					;			2(SP) -- TRAP PS
   1725					;
   1726						.ENABL	LSB
   1727	011426				COMTRP:
   1728	011426	013737 	177776 	001120'		MOV	PS,TRPASV	; SAVE THE COMTRP PS
   1729	011434	042737 	177760 	001120'		BIC	#177760,TRPASV	; MASK OFF PRIORITY BITS
   1730	011442	022706 	001000 			CMP	#1000,SP	; LEGAL STACK?
   1731	011446	103403 				BLO	10$		; YES -- NOT RED VIOLATION
   1732	011450	012706 	011426'			MOV	#EMGSTK,SP	; NO -- BETTER RESCUE STACK
   1733	011454	000450 				BR	30$		; THEN CRASH SYSTEM
   1734						;
   1735	011456				10$:
   1736	011456	010546 				MOV	R5,-(SP)
   1737	011460	032766 	000340 	000004 		BIT	#340,4(SP)	; EXEC?
   1738	011466	001043 				BNE	30$		; YES -- CRASH
   1739									; FIND THE TRAP VECTOR
   1740	011470	013705 	001006'			MOV	.CRTSK,R5	; FIND THE CURRENT TASK
   1741	011474	016505 	000016 			MOV	A.TD(R5),R5	; FIND STD POINTER
   1742	011500	016505 	000030 			MOV	S.SS(R5),R5	; FIND THE SST VECTOR
   1743	011504	001410 				BEQ	CMNABO		; NONE -- CRASH
   1744	011506	063705 	001120'			ADD	TRPASV,R5	; FIND WHICH VECTOR
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 43-1
LOW CORE -- TRAP SERVICE FOR COMMON PROGRAM TRAPS

   1745	011512					MFPS	@R5,R5		; FIND THE ADDRESS
	011512	011505 				MOV	@R5,R5
   1746	011514	001404 				BEQ	CMNABO		; NONE FOUND -QUIT
   1747	011516	012637 	001116'			MOV	(SP)+,EMTSTK	; SAVE R5 FOR COMMON TRAP
   1748	011522	000137 	013326'			JMP	.SSTCO
   1749						;
   1750	011526				CMNABO::
   1751	011526	013705 	001006'			MOV	.CRTSK,R5	; FIND THE CURRENT TASK
   1752	011532	013765 	001120'	000024 		MOV	TRPASV,A.FM+0(R5) ;SET THE REASON FOR ABORT
   1753	011540	112765 	000004 	000014 		MOVB	#TS.TKN,A.TS(R5) ;SET TASK STATUS TO ABORT
   1754	011546	005237 	001124'			INC	.TKTN		; SET TKTN FLAG
   1755	011552	026527 	000006 	007772'		CMP	A.PD(R5),#F11TPD ;FILES 11 TPD?
   1756	011560	001003 				BNE	20$		; NO -- TKTN WILL WORK
   1757	011562					.CRASH	FTA		; YES -- CAN'T GET TKTN IN
	011562	000004 				IOT
	011564	   106 	   124 	   101 		.ASCIZ	/FTA/
	011567	   000
   1758						;
   1759	011570				TRPXIT:
   1760	011570				20$:
   1761	011570	012605 				MOV	(SP)+,R5	; RESTORE R5
   1762	011572	000137 	014632'			JMP	..INTX		; RETURN
   1763						;
   1764	011576				30$:
   1765	011576	013705 	001120'			MOV	TRPASV,R5	; DO COMMON CRASH PROCEDURE
   1766	011602	000175 	011606'			JMP	@CRSTB(R5)	; CRASH
   1767						.DSABL	LSB
   1768					;
   1769	011606				CRSTB:
   1770	011606	011616'				.WORD	TRP4
   1771	011610	011666'				.WORD	RESERV
   1772	011612	011674'				.WORD	BPTTRP
   1773	011614	011732'				.WORD	IOTTRP
   1774					;
   1775	011616				TRP4:
   1776	011616	012705 	000004 			MOV	#4,R5		; POINT TO TRAP VECTOR
   1777	011622	011546 				MOV	(R5),-(SP)	; SAVE IT
   1778	011624	012715 	011644'			MOV	#10$,(R5)	; SET UP TEMPORARY VECTOR
   1779	011630	005777 	167522 			TST	@.PRSTA		; WAS IT THE DTE20??
   1780	011634	012615 				MOV	(SP)+,(R5)	; NO -- OTHER BUS TIMEOUT
   1781	011636					.CRASH	T04
	011636	000004 				IOT
	011640	   124 	   060 	   064 		.ASCIZ	/T04/
	011643	   000
   1782						;
   1783	011644				10$:				; HERE ON DTE-20 BUS TIMEOUT
   1784	011644	022626 				CMP	(SP)+,(SP)+	; GET RID OF SECOND TRAP PS, PC
   1785	011646	012615 				MOV	(SP)+,(R5)	; RESTORE TRAP VECTOR
   1786	011650	032737 	004000 	001012'		BIT	#EF.PFR,.COMEF+2 ; POWERFAIL IN PROGRESS??
   1787	011656	001344 				BNE	TRPXIT		; YES -- IGNORE TRAP
   1788	011660					.CRASH	DTD		; NO -- DTE20 IS DEAD
	011660	000004 				IOT
	011662	   104 	   124 	   104 		.ASCIZ	/DTD/
	011665	   000
   1789						;
   1790	011666				RESERV:
   1791	011666					.CRASH	RES
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 43-2
LOW CORE -- TRAP SERVICE FOR COMMON PROGRAM TRAPS

	011666	000004 				IOT
	011670	   122 	   105 	   123 		.ASCIZ	/RES/
	011673	   000
   1792						;
   1793	011674				BPTTRP:
   1794	011674					.CRASH	TBT
	011674	000004 				IOT
	011676	   124 	   102 	   124 		.ASCIZ	/TBT/
	011701	   000
   1795						;
   1796	011702				.PARER:
   1797	011702	012700 	172100 			MOV	#.PARRG,R0	; SET UP POINTER TO REGISTERS
   1798	011706	012737 	011724'	000004 		MOV	#20$,@#4	; SET UP TO POINT TO CRASH MESSAGE ON NXM
   1799	011714	012701 	001022'			MOV	#PARSAV,R1	; SET UP SAVE AREA POINTER
   1800	011720				10$:
   1801	011720	012021 				MOV	(R0)+,(R1)+
   1802	011722	000776 				BR	10$
   1803						;
   1804	011724				20$:
   1805	011724					.CRASH	MPE		; MEMORY PARITY ERROR
	011724	000004 				IOT
	011726	   115 	   120 	   105 		.ASCIZ	/MPE/
	011731	   000
   1806						;
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 44
LOW CORE -- CRASH ROUTINE

   1808						.SBTTL	LOW CORE -- CRASH ROUTINE
   1809					;
   1810					;	CRASH -- SUBROUTINE THAT WILL NOT RETURN TO SAVE THE
   1811					;	INFORMATION NECESSARY WHEN THE MACHINE ENTERS AN UNRECOVERABLE
   1812					;	STATE THAT REQUIRES RE-LOAD.  CRASH ATTEMPTS TO SAVE ALL THE
   1813					;	VOLATILE REGISTERS THAT MIGHT BE NECESSARY TO DEBUG
   1814					;	THE SOFTWARE OR HARDWARE WHEN THE PDP-11 SYSTEM CRASHES.
   1815					;
   1816					;	STACK SUMMARY:
   1817					;
   1818					;			0(SP) -- IOT TRAP PC
   1819					;			2(SP) -- IOT TRAP PS
   1820					;
   1821	011732				IOTTRP:
   1822	011732	016605 	000002 			MOV	2(SP),R5	; TRAP PC POINTS TO THE CRASH CODE TEXT
   1823	011736	010637 	001020'			MOV	SP,SPSAV	; SAVE SP
   1824	011742	012706 	011426'			MOV	#EMGSTK,SP	; SET UP THE EMERGENCY STACK POINTER
   1825	011746					CALL	.IOSNP		; [4.2314] SNAPSHOT THE I/O PAGE
	011746	004737 	012156'			JSR	PC,.IOSNP
   1826	011752	010546 				MOV	R5,-(SP)
   1827	011754	012705 	012142'			MOV	#CMSG,R5	; SET UP THE CRASH MESSAGE POINTER
   1828	011760					CALL	20$		; PRINT THE MESSAGE
	011760	004737 	012074'			JSR	PC,20$
   1829	011764	011605 				MOV	(SP),R5		; CRASH CODE POINTER TO R5
   1830	011766	010446 				MOV	R4,-(SP)	; SAVE R4
   1831	011770	005004 				CLR	R4		; CLEAR R4
   1832	011772	012524 				MOV	(R5)+,(R4)+	; SAVE THE CRASH CODE
   1833	011774	011524 				MOV	(R5),(R4)+	;
   1834	011776	013705 	001022'			MOV	PARSAV,R5	; GET PARITY ERROR DATA
   1835	012002	006205 				ASR	R5		; POSITION IT
   1836	012004	006205 				ASR	R5		;
   1837	012006	006205 				ASR	R5		;
   1838	012010	006205 				ASR	R5		;
   1839	012012	006205 				ASR	R5		;
   1840	012014	150544 				BISB	R5,-(R4)	; SAVE IT IN HIGH BYTE
   1841	012016	012604 				MOV	(SP)+,R4	; RESTORE REGISTERS
   1842	012020	012605 				MOV	(SP)+,R5	; CRASH CODE POINTER TO R5
   1843	012022					CALL	20$		; PRINT THE CRASH CODE
	012022	004737 	012074'			JSR	PC,20$
   1844					;
   1845					; CLOSED LOOP TO RING THE KL DOORBELL AND REQUEST A RELOAD.  IN RESPONSE TO
   1846					; THIS REQUEST, THE KL10 WILL "PUSH THE ELECTRONIC SWITCH" IN THE BM873 ROM.
   1847					; THIS WILL:
   1848					;
   1849					;	1. FORCE A "POWERFAIL" TRAP
   1850					;	2. DUMP AN RELOAD THE FRONT-END
   1851					;
   1852					; NOTE THAT THE FRONT-END CPU MUST BE RUNNING FOR THE CONTEXT SAVE OF THE
   1853					; POWERFAIL TRAP TO COMPLETE PROPERLY.
   1854					;
   1855	012026				10$:
   1856	012026	012737 	000006 	000004 		MOV	#6,@#4		; FORCE AN EARLY HALT IF NXM
   1857	012034	005037 	000006 			CLR	@#6
   1858	012040	013705 	001360'			MOV	.PRDTE,R5	; FIND DTE20
   1859	012044	062705 	000006 			ADD	#6,R5		; POINT TO DEXWD1
   1860	012050	012725 	000004 			MOV	#LOAD11,(R5)+
   1861	012054	012725 	010000 			MOV	#DEP,(R5)+
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 44-1
LOW CORE -- CRASH ROUTINE

   1862	012060	012725 	000022 			MOV	#22,(R5)+	; REQUEST RELOAD
   1863	012064	012777 	000400 	167264 		MOV	#TO10DB,@.PRSTA	; RING BELL
   1864	012072	000755 				BR	10$
   1865						;
   1866	012074				20$:				;
   1867	012074	105737 	001226'			TSTB	.KLNSW+0	; IS KLINIK ACTIVE??
   1868	012100	003402 				BLE	30$		; NOT THAT WE CARE...
   1869	012102	111537 	175616 			MOVB	(R5),@#PRB1	; YES -- PRINT A CHARACTER ON KLINIK LINE
   1870	012106				30$:				;
   1871	012106	112537 	177566 			MOVB	(R5)+,@#PRB0	; PRINT THE SAME CHARACTER ON THE CTY
   1872	012112				40$:				;
   1873	012112	105737 	177564 			TSTB	@#PRS0		; IS THE CTY DONE???
   1874	012116	100375 				BPL	40$		; NO -- WAIT SOME MORE
   1875	012120	105737 	001226'			TSTB	.KLNSW+0	; YES -- IS KLINIK ACTIVE??
   1876	012124	003403 				BLE	50$		; NO -- NOT THAT WE CARE...
   1877	012126	105737 	175614 			TSTB	@#PRS1		; YES -- IS THE KLINIK LINE FINISHED??
   1878	012132	100367 				BPL	40$		; NO -- WAIT SOME MORE
   1879	012134				50$:				;
   1880	012134	105715 				TSTB	(R5)		; MESSAGE DONE??
   1881	012136	001356 				BNE	20$		; NO -- CONTINUE THE MESSAGE
   1882	012140				IGNO::
   1883	012140					RETURN			; YES -- RETURN TO CALLER
	012140	000207 				RTS	PC
   1884					;
   1885					;
   1886					;
   1887					;	AFTER THE SYSTEM HALTS THE PDP-10 WILL EVENTUALLY REALIZE
   1888					;	THAT THE PDP11 HAS CRASHED AND ATTEMPT TO
   1889					;	RELOAD IT.
   1890					;
   1891	012142				CMSG:
   1892	012142	   015 	   012 	   061 		.ASCIZ	<15><12>"11-HALT"<15><12>
	012145	   061 	   055 	   110
	012150	   101 	   114 	   124
	012153	   015 	   012 	   000
   1893						.EVEN
LC -- LOW CORE FOR RSX20F	MACRO M1113  10-NOV-81 18:56  PAGE 45
LOW CORE -- I/O PAGE SNAPSHOT

   1895						.SBTTL	LOW CORE -- I/O PAGE SNAPSHOT
   1896
   1897					;+
   1898					; .IOSNP -- SNAPHOT THE I/O PAGE INTO THE GEN PARTITION
   1899					;
   1900					; THIS SUBROUTINE IS INVOKED WHENEVER RSX-20F REQUESTS A RELOAD.
   1901					; THE CONTENT OF ALL REGISTERS IN THE I/O PAGE (160000 - 177776) ARE
   1902					; LOADED INTO THE GEN PARTITION (100000 - 107776).  NON-EXISTENT REGISTERS
   1903					; CONTAIN "123456" IN THE DUMP.
   1904					;
   1905					; INPUTS:
   1906					;
   1907					;	NONE.
   1908					;
   1909					; OUTPUTS:
   1910					;
   1911					;	THE I/O PAGE IS LOADED INTO 100000 THRU 107776.
   1912					;
   1913					; NOTE:
   1914					;
   1915					;	THIS ROUTINE MUST BE CALLED AT BR6, OR HIGHER.
   1916					;-
   1917
   1918		007777 				IOPSIZ = <177776-160000>/2
   1919
   1920	012156				.IOSNP:
   1921	012156	010046 				MOV	R0,-(SP)	;;; [4.2314] SAVE REGISTERS
   1922	012160	010146 				MOV	R1,-(SP)
   1923	012162	010246 				MOV	R2,-(SP)
   1924	012164	013746 	000004 			MOV	@#4,-(SP)	;;; [4.2314] SAVE TRAP-AT-4 VECTOR
   1925	012170	012737 	012232'	000004 		MOV	#30$,@#4	;;; [4.2314] SET ALTERNATE VECTOR
   1926	012176	012700 	160000 			MOV	#160000,R0	;;; [4.2314] BASE OF I/O PAGE
   1927	012202	012701 	100000 			MOV	#100000,R1	;;; [4.2314] BASE OF GEN PARTITION
   1928	012206	012702 	007777 			MOV	#IOPSIZ,R2	;;; [4.2314] I/O PAGE SIZE
   1929	012212				10$:
   1930	012212	012021 				MOV	(R0)+,(R1)+	;;; [4.2314] SAVE THE I/O PAGE
   1931	012214				20$:
   1932	012214	077202 				SOB	R2,10$		;;; [4.2314] LOOP TILL DONE
   1933	012216	012637 	000004 			MOV	(SP)+,@#4	;;; [4.2314] RESTORE VECTOR
   1934	012222	012602 				MOV	(SP)+,R2	;;; [4.2314] AND REGISTERS
   1935	012224	012601 				MOV	(SP)+,R1
   1936	012226	012600 				MOV	(SP)+,R0
   1937	012230					RETURN			;;; [4.2314] TO CALLER
	012230	000207 				RTS	PC
   1938	012232				30$:
   1939	012232	012721 	123456 			MOV	#123456,(R1)+	;;; [4.2314] MARK NON-EXISTENT REGISTER
   1940	012236	032626 				BIT	(SP)+,(SP)+	;;; [4.2314] RESET STACK
   1941	012240	000765 				BR	20$		;;; [4.2314] AND CONTINUE
   1942						;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 46
LOW CORE -- I/O PAGE SNAPSHOT

   1944						.TITLE	SCH	- TASK SCHEDULER & GLOBAL DEFS
   1945						.SBTTL	EXEC MODULE ONE -- TITLE PAGE
   1946	012242					IDENT$	14,42,RSX$$F
						.IDENT	/E14420/
   1947					;
   1948					;                             COPYRIGHT (C) 1975, 1978 BY
   1949					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   1950					;
   1951					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   1952					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   1953					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   1954					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   1955					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   1956					;
   1957					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   1958					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   1959					;       CORPORATION.
   1960					;
   1961					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   1962					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   1963					;
   1964					;
   1965					;		MODULE: EXEC MODULE ONE
   1966					;
   1967					;		VERSION: 14-42
   1968					;
   1969					;		AUTHOR:  R. MCLEAN
   1970					;
   1971					;		DATE: 19 MAR 75
   1972					;
   1973					;
   1974					;	THIS MODULE CONTAINS:
   1975					;
   1976					;	1 -- SYSTEM NOTES,
   1977					;	2 -- GLOSSARY,
   1978					;	3 -- SYMBOLIC DEFINITIONS,
   1979					;	4 -- NUL TASK.
   1980					;
   1981					; MODIFICATIONS:
   1982					;
   1983					;	NO.	DATE		PROGRAMMER	PURPOSE
   1984					;	---	----		----------	-------
   1985					;	001	18-OCT-76	A. PECKHAM	ADDITIONAL .KLIWD FLAGS
   1986					;	002	20-OCT-76	A. PECKHAM	FIX FOR F11 PARTITION
   1987					;						LOAD REQUEST FAILURE.
   1988					;	003	03-FEB-77	R. BELANGER	CHANGED KLR EVENT FLAG
   1989					;						ADDED KLD EVENT FLAG
   1990					;	004	04-MAR-77	R. BELANGER	ADDED CODE IN NULL TASK
   1991					;						TO INVOKE TIME OF DAY TASK
   1992					;	005	07-MAR-77	A. PECKHAM	REMOVE BUG FROM DOWN MESSAGE CODE.
   1993					;	006	01-JUL-77	R. BELANGER	ADD KLINIK EVENT LOGGING CODES.
   1994					;	007	18-AUG-77	R. BELANGER	ADD POWER RESTART IN PROGRESS FLAG
   1995					;	008	05-OCT-77	R. BELANGER	ADD COMM REGION INVALID FLAG
   1996					;	009	27-MAY-78	R. BELANGER	DEFINE PROTOCOL TIMEOUT FLAG FOR "TKTN"
   1997					;  TCO 4.1.1035	16-NOV-79	R. BELANGER	CHANGES TO SUPPORT QUEUE ARBITRATION
   1998					;  TCO 4.1.1105	11-MAR-80	R. BELANGER	CHANGE "EF.PR1" RECOGNITION
   1999					;  TCO 5.1127	08-AUG-80	S. LEAPLINE	MAKE SNDMSG GLOBAL FOR HOST DEBUG
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 46-1
EXEC MODULE ONE -- TITLE PAGE

   2000					;	010	27-MAR-81	S. LEAPLINE	REMOVE "RSUM" AND "SPND"
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 47
EXEC MODULE ONE -- SYSTEM NOTES

   2002						.SBTTL	EXEC MODULE ONE -- SYSTEM NOTES
   2003					;+
   2004					; PROCESSOR PRIORITIES
   2005					;
   2006					; PERIPHERIAL DEVICE INTERRUPT SERVICE ROUTINES RUN AT PROCESSOR PRIORITY
   2007					; LEVELS FOUR THRU SEVEN (4-7).  ALSO, PARTS OF THE SOFTWARE THAT CANNOT BE
   2008					; INTERRUPTED ARE ALSO RUN AT PRIORITY SEVEN (PRI=7).  THESE UNINTERRUPTABLE
   2009					; PERIODS ARE AS SHORT AS POSSIBLE.
   2010					;
   2011					; PRIORITY LEVELS ZERO THRU THREE (0-3) ARE USED BY THE SYSTEM AS OPERATION
   2012					; INDICATORS.  I.E., THERE ARE NO "SOFTWARE INTERRUPTS", AND THEREFORE, THERE
   2013					; IS NO PRECEDENCE IMPLIED (OR ENVOKED) BY LEVELS ZERO THRU THREE.
   2014					;
   2015					; LEVEL ZERO (PRI=0) IS USED EXCLUSIVELY FOR TASK EXECUTION.
   2016					;
   2017					; LEVELS ONE, TWO, AND THREE ARE USED FOR "SYSTEM LEVEL" EXECUTION.
   2018					;
   2019					; LEVEL TWO (PRI=2) IS USED FOR THE RECOGNITION OF "SYSTEM EVENTS".
   2020					; THESE EVENTS ARE INDICATED IN THE "SYSTEM EVENT RECOGNITION" FLAG
   2021					; '.SERFG' AND ARE RECOGNIZED (SERVICED) ONLY WHEN RETURNING TO
   2022					; TASK EXECUTION (VIZ., FROM AN INTERRUPT, OR FROM A DIRECTIVE).
   2023					; SYSTEM EVENTS ARE (1) SIGNIFICANT EVENT DECLARATIONS, (2) CLOCK
   2024					; TICKS, AND (3) POWER FAILURE RECOVERIES.
   2025					;
   2026					; LEVEL THREE (PRI=3) IS USED FOR EXECUTION OF ROUTINES WHICH CANNOT BE
   2027					; INTERRUPTED BY SIGNIFICANT-EVENT OR CLOCK-TICK RECOGNITION, BUT CAN BE
   2028					; INTERRUPTED BY PERIPHERIAL DEVICE INTERRUPTS
   2029					;  IN THESE CASES, THE LEVEL
   2030					; MAY BE SET TO THREE BY ANY MEANS, BUT MUST BE LOWERED TO ZERO BY
   2031					; TRANSFERRING CONTROL TO '..INTX' TO ALLOW RECOGNITION OF "SYSTEM
   2032					; EVENTS THAT MIGHT HAVE OCCURED WHILE RUNNING AT PRI=3.
   2033					; THE SYSTEM TRACE (DEBUGGING) ROUTINE  RUNS AT PRI=7.
   2034					;
   2035					;
   2036					;
   2037					; FORMAT OF PROCESSOR STATUS (PS) WORD
   2038					;
   2039					;	C CPP RXX XLL LTN ZVC
   2040					;
   2041					;	CC	CURRENT MODE (00:KERNEL, 11:USER)
   2042					;	PP	PREVIOUS MODE (00:KERNEL, 11:USER)
   2043					;	R	REGISTER CLEAR (BIT ALWAYS CLEAR)
   2044					;	XXX	UNUSED BITS
   2045					;	LLL	PROCESSOR PRIORITY LEVEL
   2046					;	T	TRACE BIT
   2047					;	N	CONDITION CODE -- NEGATIVE
   2048					;	Z	CONDITION CODE -- ZERO
   2049					;	V	CONDITION CODE -- OVERFLOW
   2050					;	C	CONDITION CODE -- CARRY
   2051					;
   2052					; KEY TEXT IN THIS LISTING IS DELIMITED BY LINES CONATINING A ";+" AND A ";-"
   2053					; AS THE FIRST TWO CHARACTERS OF A SOURCE LINE.  A ";+" LINE  DEFINES THE
   2054					; BEGINNING OF A BLOCK OF KEY TEXT, AND A ";-" LINE DEFINES THE END.
   2055					;-
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 48
EXEC MODULE ONE -- GLOSSARY

   2057						.SBTTL	EXEC MODULE ONE -- GLOSSARY
   2058					;+
   2059					;
   2060					;
   2061					; ATL -- ACTIVE TASK LIST
   2062					;
   2063					; CKL -- CLOCK LIST
   2064					;
   2065					; DTL -- DTE20 LIST
   2066					;
   2067					; MRL -- MEMORY REQUEST LIST
   2068					;
   2069					; PUD -- PHYSICAL UNIT DEVICE TABLE
   2070					;
   2071					; DEQUE -- DOUBLE ENDED QUEUE.  FORWARD AND BACKWARD CIRCULAR LINKAGES.
   2072					;
   2073					; EXTERNAL PAGE -- 4K PAGE OF REAL MEMORY SPACE (760000-777776) CONTAINING
   2074					; CPU & PERIPHERIAL DEVICE CONTROL & STATUS REGISTERS (THE DEVICE PAGE).
   2075					;
   2076					; ISR -- INTERRUPT SERVICE ROUTINE
   2077					;
   2078					;
   2079					; STD -- SYSTEM TASK DIRECTORY
   2080					;-
   2081
   2082						.SBTTL	MACRO CALLS (MCALL)
   2083
   2087						.MCALL	.ENB0,.INH0,.ENB6,.INH6,.INH,.ENB,.INH5,.ENB5,.CRASH,RQST$
   2088						.MCALL	DIR$,CLEF$S,QIOW$,WTSE$,WTSE$S,.STKM,$DEF
   2089						.MCALL	CALL,RETURN,DTON$S,MFPS,MTPS,MTPI,MFPI,.DQPEN,DECL$S,CMKT$S
   2090						.MCALL	MRKT$,WTLO$,WSIG$S,WTLO$C,CLEF$C,QIOSY$,MRKT$S
   2091	012242					QIOSY$
   2092	012242					$DEF
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 49
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2094						.SBTTL	EXEC MODULE ONE -- SYMBOLIC DEFINITIONS
   2095					;
   2096					; EXTERNAL PAGE DEFINITIONS
   2097					;
   2098		177776 			PS==177776	;PROCESSOR STATUS WORD
   2099		177546 			LKS==177546	;KW11L CLOCK
   2100		177560 			KBS0==177560	;CTY TTY
   2101		177562 			KBB0==177562	;CTY BUFFER (INPUT)
   2102		177564 			PRS0==177564	;CTY OUTPUT STATUS
   2103		177566 			PRB0==177566	;CTY OUTPUT BUFFER
   2104		175610 			KBS1==175610
   2105		175612 			KBB1==175612
   2106		175614 			PRS1==175614
   2107		175616 			PRB1==175616
   2108		173000 			.BM873==173000	;START OF BOOTSTRAP
   2109		172100 			.PARRG==172100	;PARITY ERROR REGISTER 0
   2110					;
   2111		000340 			PR7==340	;PRIORITY 7
   2112		000340 			PRI7==340
   2113		000100 			.INTEN==000100	;INTERRUPT ENABLE BIT
   2114					;
   2115		172360 			KPAR0=172360	;KERNEL PAGE ADDRESS REG 0
   2116		172362 			KPAR1=172362	;REG 1
   2117		172364 			KPAR2=172364	;REG 2
   2118		172366 			KPAR3=172366	;REG 3
   2119		172370 			KPAR4=172370	;REG 4
   2120		172372 			KPAR5=172372	;REG 5
   2121		172374 			KPAR6=172374	;REG 6
   2122		172376 			KPAR7=172376	;REG 7
   2123					;
   2124		172300 			KPDR0=172300	;KERNEL PAGE DESCRIPTOR REGISTER 0
   2125		172302 			KPDR1=172302	;REG 1
   2126		172304 			KPDR2=172304	;REG 2
   2127		172306 			KPDR3=172306	;REG 6
   2128		172310 			KPDR4=172310	;REG 4
   2129		172312 			KPDR5=172312	;REG 5
   2130		172314 			KPDR6=172314	;REG 6
   2131		172316 			KPDR7=172316	;REG 7
   2132					;
   2133		177640 			UPAR0=177640	;USER PAGE ADDRESS REG 0
   2134		177642 			UPAR1=177642	;REG 1
   2135		177644 			UPAR2=177644	;REG 2
   2136		177646 			UPAR3=177646	;REG 3
   2137		177650 			UPAR4=177650	;REG 4
   2138		177652 			UPAR5=177652	;RRG 5
   2139		177654 			UPAR6=177654	;REG 6
   2140		177656 			UPAR7=177656	;REG 7
   2141					;
   2142		177600 			UPDR0=177600	;USER PAGE DESCRIPTOR REG 0
   2143		177602 			UPDR1=177602	;REG 1
   2144		177604 			UPDR2=177604	;REG 2
   2145		177606 			UPDR3=177606	;REG 3
   2146		177610 			UPDR4=177610	;REG 4
   2147		177612 			UPDR5=177612	;REG 5
   2148		177614 			UPDR6=177614	;REG 6
   2149		177616 			UPDR7=177616	;REG 7
   2150					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 49-1
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2151		000046 			$DSW==46	;DIRECTIVE STATUS WORD
   2152		000050 			.FSRPT==50	;FCS POINTER
   2153		000054 			N.OVPT==54	;FCP OVERLAY POINTER
   2154					;
   2155					;
   2156					; SYSTEM TRACE (T-BIT) DEBUGGING AID CONDITIONAL DEFINITIONS
   2157					;
   2158		000020 			TBIT==20	;TRACE BIT IN PS
   2159					;
   2160		000000 			STXAS==0	;SIGNIFICANT EVENT RECOGNITION (ATL SCAN) TRACE SWITCH
   2161		000000 			STXCS==0	;CLOCK TICK RECOGNITION TRACE SWITCH
   2162		000000 			STXDX==0	;DIRECTIVE EXECUTION TRACE SWITCH
   2163					;
   2164					; PRIVLEDGED TASK EVENT FLAG BIT MASKS
   2165					;
   2166		000001 			EF.DTE==1	;EVENT FLAG FOR DTE20 DOORBELL (UNUSED)
   2167		000001 			E.DTE==1.
   2168		000002 			EF.CLK==2	;EVENT FLAG FOR CLOCK (UNUSED)
   2169		000002 			E.CLK==2.
   2170		000004 			EF.TTY==4	;EVENT FLAG FOR TTY INPUT COMPLETE (UNUSED)
   2171		000003 			E.TTY==3.
   2172		000010 			EF.NIR==10	;EVENT FLAG TO SIGNAL QIO REQUEST ENTERED (DRIVERS)
   2173		000004 			E.NIR==4.
   2174		000020 			EF.IOD==20	;EVENT FLAG TO SIGNAL QIO REQUEST DONE (DRIVERS)
   2175		000005 			E.IOD==5.
   2176		000040 			EF.BOV==40	;EVENT FLAG TO SIGNAL NOT ENOUGH NODE SPACE (UNUSED)
   2177		000006 			E.BOV==6.
   2178		000100 			EF.TMO==100	;EVENT FLAG TO SIGNAL TIMOUT REQUEST FOR TTY (TTYDRR & SCOMM)
   2179		000007 			E.TMO==7.
   2180		000200 			EF.RQM==200	;REQUEST MCR (TTYDRR)
   2181		000010 			E.RQM==8.
   2182		000400 			EF.WFM==400	;WAIT FOR MARK TIME (UNUSED)
   2183		000011 			E.WFM==9.
   2184		001000 			EF.RKR==1000	; +++003 REQUEST KLINIK RING SERVICE (TTYDRR)
   2185		000012 			E.RKR==10.	; +++003
   2186		002000 			EF.RKH==2000	; +++003 REQUEST KLINIK HANG-UP SERVICE (TTYDRR)
   2187		000013 			E.RKH==11.	; +++003
   2188		004000 			EF.RSS==4000	; +++009 REQUEST SETSPD FOR AUTOBAUD (TTYDRR)
   2189		000014 			E.RSS==12.	; +++009
   2190					;
   2191					; RESERVED LOCAL EVENT FLAG BIT MASKS (25. - 32.)
   2192					;
   2193		100000 			EF.SND==100000	;SEND ALL FINISHED
   2194		000040 			E.FSND==32.
   2195					;
   2196					; RESERVED GLOBAL EVENT FLAG BIT MASKS (57. - 64.)
   2197					;
   2198		100000 			EF.PR1==100000	; [4.1.1105] PRIMARY PROTOCOL RUNNING FLAG
   2199		000100 			E.FPR1==64.
   2200		040000 			EF.CTC==040000	; [4.1.1105] ^C FLAG
   2201		000077 			E.FCTC==63.
   2202		020000 			EF.PR2==020000	;SECONDARY PROTOCOL RUNNING FLAG
   2203		000076 			E.FPR2==62.
   2204		010000 			EF.RKP==010000	; +++003 KLINIK PARAMETERS RECIEVED (QPRDTE, SAVE)
   2205		000075 			E.FRKP==61.
   2206		004000 			EF.PFR==004000	; +++007 POWER FAIL RESTART IN PROGRESS (SCOMM, KLINIT)
   2207		000074 			E.FPFR==60.
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 49-2
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2208		002000 			EF.CRI==002000	; +++008 COMM REGION IS INVALID (BOOT, TKTN)
   2209		000073 			E.FCRI==59.
   2210		001000 			EF.FCP==001000	; FAULT CONTINUATION IN PROGRESS (BOOT)
   2211		000072 			E.FFCP==58.
   2212					;
   2213					; COMMON NODE DEFINITONS
   2214					;
   2215		000000 			N.FP==0		;FORWARD POINTER
   2216		000002 			N.BP==2		;BACKWARD POINTER
   2217		000010 			N.PR==10	;PRIORITY BYTE
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 50
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2219					; TPD -- TASK PARTITION DIRECTORY
   2220					;
   2221					; THE "TPD" IS A FIXED LIST OF ENTRIES DESCRIBING EACH PARTITION IN A
   2222					; SYSTEM.
   2223					;  CONSISTING OF ENTRIES OF THE FOLLOWING FORMAT:
   2224					;
   2225		000000 			T.PN==00 ; WD. 00 (B 00) -- PARTITION NAME (FIRST HALF)
   2226						 ; WD. 01 (B 02) -- PARTITION NAME (SECOND HALF)
   2227		000004 			T.BA==04 ; WD. 02 (B 04) -- BASE ADDRESS OF PARTITION (IN BYTES)
   2228		000006 			T.PZ==06 ; WD. 03 (B 06) -- SIZE OF PARTITION (IN BYTES)
   2229		000010 			T.FW==10 ; WD. 04 (B 10) -- PARTITION FLAGS WORD
   2230		000012 			T.HP==12 ; WD. 05 (B 12) -- 1/64 TH OF BASE ADR OF FIRST HOLE, OR ZERO IF NO HOLES.
   2231		000014 			T.RF==14 ; WD. 06 (B 14) -- MRL LISTHEAD (FORWARD LINKAGE)
   2232		000016 			T.RB==16 ; WD. 07 (B 16) -- MRL LISTHEAD (BACKWARD LINKAGE)
   2233					;
   2234		000020 			T.SZ==20		;SIZE (IN BYTES) OF TPD ENTRIES
   2235					;
   2236					;
   2237					;	FLAGS WORD BIT DEFINITIONS:
   2238					;
   2239		000002 			TF.OU==000002	;[01] SET IF OCCUPIED USER CONTROLLED PARTITION.
   2240					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 51
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2242					;
   2243					;	TASK HEADER DEFINITIONS
   2244					;
   2245		000000 			H.CSP==0		;CURRENT STACK POINTER (UNUSED)
   2246		000002 			H.HSZ==2		;LENGTH OF HEADER
   2247		000046 			H.DSW==46		;DIRECTIVE STATUS WORD SAVE AREA
   2248		000050 			H.FCP==50		;FCP SAVE AREA
   2249		000052 			H.FOR==52		;FORTRAN SAVE AREA
   2250		000054 			H.OVL==54		;OVERLAY SAVE AREA
   2251		000074 			H.IPS==74		;INITIAL PS
   2252		000076 			H.IPC==76		;INITIAL PC
   2253		000100 			H.ISP==100		;INITIAL SP
   2254		000106 			H.TKVA==106		;TASK SST VECTOR ADDRESS
   2255		000130 			H.LUT==130		;LOGICAL UNIT TABLE SIZE
   2256					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 52
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2258					;
   2259					; STD -- SYSTEM TASK DIRECTORY
   2260					;
   2261					; THE SYSTEM TASK DIRECTORY IS A MEMORY RESIDENT DIRECTORY OF ALL TASKS
   2262					; THAT HAVE BEEN INSTALLED INTO A SYSTEM THAT ARE NOT PREMANENTLY RESIDENT.
   2263					;  THIS DIRECTORY CONSISTS OF TWO
   2264					; PARTS: (1) A FIXED SIZE AREA OF ONE WORD FOR EACH TASK THAT COULD
   2265					; BE INSTALLED AT ANY TIME, AND (2) AN STD ENTRY FOR EACH TASK THAT IS
   2266					; INSTALLED.  THE FIXED SIZED AREA IS CALLED THE "ALPHA TABLE AREA", AND
   2267					; PROVIDES SPACE FOR AN ALPHABETICALLY ORDERED CONTIGUOUS LIST POINTERS
   2268					; TO STD ENTRIES (TO FACILLATE BINARY SEARCH FOR STD ENTRY BY TASK NAME).
   2269					; EACH STD ENTRY IS OF THE FOLLOWING FORMAT:
   2270					;
   2271		000000 			S.TN==00 ; WD. 00 (B 00) -- TASK NAME (6 CHAR IN RADIX-50, 2 WORDS)
   2272						 ; WD. 01 (B 02) -- (SECOND HALF OF TASK NAME)
   2273		000004 			S.TD==04 ; WD. 02 (B 04) -- DEFAULT TASK PARTITION (TPD ADDRESS)
   2274		000006 			S.FW==06 ; WD. 03 (B 06) -- FLAGS WORD
   2275		000010 			S.DP==10 ; WD. 04 (B 10) -- DEFAULT PRIORITY (BYTE)
   2276		000011 			S.DI==11 ;        (B 11) -- SYSTEM DISK INDICATOR (BYTE)
   2277		000012 			S.BA==12 ; WD. 05 (B 12) -- 1/64 TH OF BASE ADDRESS OF LOAD IMAGE
   2278		000014 			S.LZ==14 ; WD. 06 (B 14) -- SIZE OF LOAD IMAGE
   2279		000016 			S.TZ==16 ; WD. 07 (B 16) -- MAX TASK SIZE
   2280		000020 			S.PC==20 ; WD. 10 (B 20) -- INITIAL PC OF TASK
   2281		000022 			S.SP==22 ; WD. 11 (B 22) -- INITIAL SP OF TASK
   2282		000024 			S.RF==24 ; WD. 12 (B 24) -- SEND AND REQUEST QUEUE FORWARD PTR
   2283		000026 			S.RB==26 ; WD. 13 (B 26) -- SEND AND REQUEST QUEUE BACKWARD PTR
   2284		000030 			S.SS==30 ; WD. 14 (B 30) -- SST VECTOR TABLE ADDRESS
   2285		000032 			S.DL==32 ; WD. 15 (B 32) -- LOAD IMAGE FIRST BLOCK NUMBER (32-BITS)
   2286						 ; WD. 16 (B 34)    (SECOND HALF OF DISK ADDRESS)
   2287					;
   2288		000036 			S.SZ==36		;SIZE OF STD ENTRY
   2289					;
   2290					;
   2291					;
   2292					;	FLAGS WORD BIT DEFINITIONS:
   2293					;
   2294		000001 			SF.TA==000001	;[00] SET WHEN TASK IS ACTIVE
   2295		000001 			SF.PT==000001	;[00] SET WHEN TASK IS PRIVILEDGED (ACTIVE FOR NOW)
   2296		000002 			SF.FX==000002	;[01] SET WHEN TASK IS FIXED IN MEMORY
   2297		000004 			SF.EX==000004	;[02] SET WHEN TASK IS TO BE REMOVED ON EXIT
   2298		040000 			SF.IR==040000	;[14] SET WHEN INSTALL IS REQUESTED
   2299		100000 			SF.ST==100000	;[15] SET WHEN TASK IS SYSTEM TASK
   2300					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 53
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2302					;
   2303					; ATL -- ACTIVE TASK LIST
   2304					;
   2305					; THE "ATL" IS A PRIORITY ORDERED DEQUE OF "ATL" NODES FOR ACTIVE TASKS
   2306					; THAT HAVE MEMORY ALLOCATED FOR THEIR EXECUTION.  THE TASKS REPRESENTED
   2307					; BY ENTRIES IN THE ATL ARE EITHER MEMORY RESIDENT, OR A REQUEST FOR THEIR
   2308					; LOADING HAS BEEN QUEUED.  THE LISTHEAD FOR THIS DEQUE IS IN THE SYSTEM
   2309					; COMMUNICATIONS AREA (SCOM), AND THE NODES ARE OF THE FOLLOWING FORMAT:
   2310					;
   2311						 ; WD. 00 (B 00) -- FORWARD LINKAGE
   2312						 ; WD. 01 (B 02) -- BACKWARD LINKAGE
   2313		000004 			A.SP==04 ; WD. 02 (B 04) -- STACK POINTER (R6) OF RUNNING TASK
   2314						 ;			WHEN TASK IS NOT CURRENT TASK
   2315		000006 			A.PD==06 ; WD. 03 (B 06) -- TASK'S RUN PARTITION (TPD ADDRESS)
   2316		000010 			A.RP==10 ; WD. 04 (B 10) -- TASK'S RUN PRIORITY (BYTE)
   2317		000012 			A.HA==12 ; WD. 05 (B 12) -- 1/64TH REAL ADR OF LOAD IMAGE
   2318		000014 			A.TS==14 ; WD. 06 (B 14) -- TASK STATUS (BYTE)
   2319		000015 			A.FB==15 ; WD. 06 (B 15) -- TASK FLAGS BYTE
   2320		000016 			A.TD==16 ; WD. 07 (B 16) -- SYSTEM TASK DIRECTORY (STD) ENTRY ADDRESS
   2321		000020 			A.EF==20 ; WD. 10 (B 20) -- TASK'S EVENT FLAGS (1-32)
   2322						 ; WD. 11 (B 22) -- (SECOND HALF OF TASK'S EVENT FLAGS)
   2323		000024 			A.FM==24 ; WD. 12 (B 24) -- TASK'S EVENT FLAGS MASKS (64-BITS)
   2324						 ; WD. 13 (B 26) -- (SECOND WORD OF FLAGS MASK)
   2325						 ; WD. 14 (B 30) -- (THIRD WORD OF FLAGS MASK)
   2326						 ; WD. 15 (B 32) -- (FOURTH WORD OF FLAGS MASK)
   2327		000034 			A.PF==34 ; WD. 16 (B 34) -- POWER FAIL AST TRAP ADDRESS
   2328					;
   2329		000036 			A.SZ==36		;SIZE OF ATL
   2330					;
   2331					; TASK STATUS VALUES ARE DESCRIBED AT 'ASXDT'
   2332					;
   2333					; BEFORE EXECUTION , THE FIRST THREE
   2334					; FLAGS MASK WORDS ARE USED AS FOLLOWS:
   2335					;
   2336					;	A.FM+0 -- ADDRESS OF TASK LOAD I/O REQUEST DEQUE LISTHEAD,
   2337					;	A.FM+2 -- ADDRESS OF TASK LOAD I/O REQUEST NODE,
   2338					;
   2339					; MRL -- MEMORY REQUIRED LIST
   2340					;
   2341					; THE "MRL" IS A PRIORITY ORDERED DEQUE OF "ATL" NODES FOR ACTIVE TASKS
   2342					; THAT REQUIRE MEMORY IN A PARTITION.  EACH PARTITION HAS ITS OWN MRL.
   2343					; WHENEVER A NON-FIXED TASK RUNNING IN A PARTITION EXITS, AN
   2344					; ATTEMPT IS MADE TO ASSIGN MEMORY TO THE FIRST (HIGHEST PRIORITY)
   2345					; TASK IN THE LIST.  IF MEMORY IS FOUND, THE TASK'S NODE IS
   2346					; MOVED FROM THE "MRL" TO THE "ATL" DEQUE.  THE MRL LISTHEAD IS IN
   2347					; THE TPD ENTRY FOR THE CORRESPONDING PARTITION.
   2348					;
   2349					;
   2350					;	FLAGS BYTE BIT DEFINITIONS
   2351					;
   2352		000200 			AF.PP==200	;[07] SET WHEN TASK IS PRIMARY PROTOCOL TASK
   2353					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 54
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2355					;
   2356					; CKL -- CLOCK TABLE
   2357					;
   2358					; THE CLOCK LIST IS A TABLE CONSISTING OF ONE ENTRY FOR EACH OPERATION
   2359					; SCHEDULED TO BE PERFORMED AT SOME FUTURE TIME.  A "SCHEDULE DELTA-
   2360					; TIME" EACH ENTRY (IF ANY) OF THE CLOCK QUEUE IS DECREMENTED
   2361					; AT EACH CLOCK TICK UNTIL THE ENTRY "COMES DUE", AT WHICH TIME THE
   2362					; INDICATED OPERATION IS PERFORMED.  CLOCK TABLE ENTRIES ARE OF
   2363					; FOLLOWING FORMAT.
   2364					;
   2365		000000 			C.AT==00 ; WD. 00 -- ATL NODE ADDRESS OF REQUESTOR
   2366		000002 			C.AS==02 ; WD. 02 -- AST TRAP ADDRESS OF REQUESTOR
   2367		000004 			C.SD==04 ; WD. 02 -- SCHEDULE DELTA IN TICKS (16-BITS)
   2368		000006 			C.RS==06 ; WD. 03 -- RESCHEDULE DELTA IN TICKS (16-BITS)
   2369		000010 			C.FM==10 ; WD. 04 -- FLAG MASK (BIS SRC)
   2370		000012 			C.FA==12 ; WD. 05 -- FLAGS WORD ADR (BIS DST ADR)
   2371					;
   2372		000014 			C.SZ==14 ; SIZE OF CLOCK TABLE ENTRY
   2373					;
   2374					;
   2375		000074 			.CYLTM==60.	;CYCLE TIME OF CLOCK
   2376					;
   2377		000005 			.KALSC==5	;TIMEOUT INTERVAL FOR KL10
   2378					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 55
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2380					;
   2381					; DTE -- DTE TABLE
   2382					;
   2383					; THE DTE LIST IS A TABLE CONSISTING OF ONE ENTRY FOR EACH OPERATION
   2384					; SCHEDULED TO BE PERFORMED AT SOME FUTURE TIME WHEN THE DTE20
   2385					; INTERRUPTS.  THE DTE20 TABLE ENTRIES ARE OF THE FOLLOWING
   2386					; FORMAT.
   2387					;
   2388		000000 			D.AT==00 ; WD. 00 -- ATL NODE ADDRESS OF REQUESTOR
   2389		000002 			D.FM==02 ; WD. 01 -- FLAG MASK (BIS SRC)
   2390		000004 			D.FA==04 ; WD. 02 -- FLAGS WORD ADR (BIS DIST ADR)
   2391					;
   2392		000006 			D.SZ==06 ; SIZE OF DTE20 TABLE ENTRY
   2393					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 56
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2395					;
   2396					;	KLI PARAMETER WORD DEFINITIONS (.KLIWD)
   2397					;
   2398		000001 			KL.LRM==1		;LOAD RAMS
   2399		000002 			KL.CFM==2		;CONFIGURE MEMORY
   2400		000004 			KL.LVB==4		;LOAD VBOOT
   2401		000010 			KL.VBN==10		;VBOOT START AT START+1
   2402		000020 			KL.VBD==20		;DUMP MONITOR
   2403		000040 			KL.SPF==40		;START AT LOC 70 (AFTER POWER FAIL)
   2404		000100 			KL.LCA==100		; +001 LOAD CACHE
   2406		000200 			KL.SSC==200		; +001 START AT LOCATION 407 (AFTER SYSTEM CRASH)
   2408		000400 			KL.CFL==400		; +001  IF = 0, CONFIGURE FROM FILE
   2409		001000 			KL.KAC==1000		; [4.2107] KEEP-ALIVE-CEASED ERROR
   2410		002000 			KL.DEF==2000		; OPERATOR ACTUATED REBOOT
   2411		004000 			KL.REQ==4000		; KLINIT REQUESTED
   2412		010000 			KL.ABO==10000		; KLINIT CANCELED
   2413					;
   2414					; ALL BITS 0 IMPLIES ASK QUESTIONS TO CONTROL LOADING
   2415					;
   2416					;
   2417					;	PARAMETER DEFINITIONS FOR KL ERROR WORD
   2418					;
   2419		000001 			KS.TSP==1		;TEN STOPPED (HALTED)
   2420		000002 			KS.CES==2		;CLOCK ERROR STOP
   2421		000004 			KS.EPE==4		;E BOX PARITY ERROR
   2422		000010 			KS.DEX==10		;DEPOSIT EXAMINE ERROR
   2423		000020 			KS.CST==20		;KEEP ALIVE STOPPED
   2424		000040 			KS.TRR==40		;TEN REQUEST'S RE-BOOT
   2425		000100 			KS.PFT==100		;POWER FAIL RESTART
   2426		000200 			KS.PTO==200		; +++012 PROTOCOL TIMEOUT
   2427		000400 			KS.FME==400		;FAST MEMORY PARITY ERROR
   2428		001000 			KS.CPE==1000		;CRAM PARITY ERROR
   2429		002000 			KS.DPE==2000		;DRAM PARITY ERROR
   2430		004000 			KS.FCF==4000		;FAULT-CONTNUATION FAILED
   2431					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 57
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2433					;
   2434					; PUD -- PHYSICAL UNIT DEVICE TABLE
   2435					;
   2436					; THE "PUD" IS A FIXED LIST OF ENTRIES DESCRIBING EACH PHYSICAL DEVICE-
   2437					; UNIT IN A SYSTEM.
   2438					;  CONSISTS OF ENTRIES OF THE FOLLOWING FORMAT:
   2439					;
   2440		000000 			U.DN==00 ; WD. 00 (B 00) -- DEVICE NAME (2 ASCII CHARS)
   2441		000002 			U.UN==02 ; WD. 01 (B 02) -- UNIT NUMBER (BYTE)
   2442		000003 			U.FB==03 ;        (B 03) -- FLAGS (BYTE)
   2443		000004 			U.C1==04 ; WD. 02 (B 04) -- CHARACTERISTICS WORD ONE (DEVICE INDEPENDENT INDICATORS)
   2444		000006 			U.C2==06 ; WD. 03 (B 06) -- CHARACTERISTICS WORD TWO (DEVICE DEPENDENT INDICATORS
   2445		000010 			U.C3==10 ; WD. 04 (B 10) -- CHARACTERISTICS WORD THREE (DEVICE DEPENDENT INDICATORS)
   2446		000012 			U.C4==12 ; WD. 05 (B 12) -- CHARACTERISTICS WORD FOUR (SIZE OF BLOCK, BUFFER, LINE)
   2447		000014 			U.AF==14 ; WD. 06 (B 14) -- ATTACH FLAG (ATL NODE ADDRESS OF ATTAC HING TASK
   2448		000016 			U.RP==16 ; WD. 07 (B 16) -- REDIRECT POINTER
   2449		000020 			U.HA==20 ; WD. 10 (B 20) -- HANDLER TASK ATL NODE ADDRESS
   2450		000022 			U.RF==22 ; WD. 11 (B 22) -- UNIT REQUEST DEQUE LISTHEAD (FWD PNTR)
   2451		000024 			U.RB==24 ; WD. 12 (B 24) -- UNIT REQUEST DEQUE LISTHEAD (BKG PNTR)
   2452					;
   2453					; PHYSICAL UITS ARE CONSIDERED "VOLUMES" BY THE FILES SYSTEM, AND THE
   2454					; REMAINDER OF THE PUD ENTRY IS A "VOLUME CONTROL BLOCK".
   2455					;
   2456		000026 			U.VA==26 ; WD. 13 (B 26) -- ADDRESS OF VOLUME CONTROL BLOCK EXTENSION
   2457		000030 			U.UI==30 ; WD. 14 (B 30) -- USER IDENTIFICATION CODE (UIC)
   2458		000030 			U.PC==30 ;        (B 30) -- UIC PROGRAMMER CODE
   2459		000031 			U.GC==31 ;        (B 31) -- UIC GROUP CODE
   2460		000032 			U.VP==32 ; WD. 15 (B 32) -- VOLUME PROTECTION WORD
   2461		000032 			U.CH==32 ;        (B 32) -- CHARACTERISTICS FLAGS
   2462						 ;        (B 33) -- RESERVED BYTE
   2463		000034 			U.AR==34 ; WD. 16 (B 34) -- ACCESS RIGHTS FLAGS WORD
   2464		000036 			U.DACP==36;WD. 20 (B 36) -- DEFAULT ACP NAME, RAD50 (FIRST WORD)
   2465		000040 			U.ACP==40 ; WD. 20 (B 40) -- STD ENTRY ADDRESS OF CURRENT ACP
   2466		000042 			U.TF==42 ; WD. 21 (B 42) -- TERMINAL FLAGS WORD
   2467		000042 			U.PR==42 ;        (B 42) -- TERMINAL PRIVILEDGE WORD
   2468		000043 			U.FO==43 ;        (B 43) -- TERMINAL FORMS BYTE
   2469		000044 			U.LBH==44 ; WD. 22 (B 44) -- HIGH ORDER - TOTAL # OF BLOCKS FOR DEVICE
   2470		000046 			U.LBN==46 ; WD. 24 (B46) -- LOW ORDER TOTAL # OF BLOCKS FOR DEVICE
   2471		000050 			U.SZ==50		;SIZE (IN BYTES OF PUD ENTRIES
   2472					;
   2473					;	FLAGS BYTE DEFINITIONS
   2474					;
   2475		000040 			UF.RD==040		; **************TEMP*********
   2476		000200 			UF.RH==200	; [7] SET WHEN HANDLER TASK IS DECLARED RESIDENT
   2477		000100 			UF.TL==100	; [6] SET WHEN HANDLER TASK RECOGNIZES LOAD AND RECORD
   2478		000040 			UF.OFL==040	; [5] SET WHEN DEVICE IS OFFLINE
   2479					;
   2480					;	BIT DEFINITIONS FOR CHARACTERISTICS WORD ONE
   2481					;
   2482		000001 			UC.REC==000001	;[00] SET IF RECORD ORIENTED DEVICE (VIZ., TT,LP, CR)
   2483		000002 			UC.CCL==000002	;[01] SET IF CARRIAGE CONTROL DEVICE (VIZ., TT LP)
   2484		000004 			UC.TTY==000004	;[02] SET IF TTY DEVICE (VIZ., KSR, LA30)
   2485		000010 			UC.DIR==000010	;[03] SET IF DEVICE IS A DIRECTORY DEVICE
   2486		000020 			UC.SDI==000020	;[04] SET  IF DEVICE IS A SINGLE DIRECTORY DEVICE
   2487		000040 			UC.SQD==000040	;[05] SET IF DEVICE IS A SEQUENTIAL DEVICE
   2488		000100 			UC.ETB==000100  ;[06] SET IF DEVICE IS EIGHTEEN BIT MODE
   2489		000400 			UC.INB==000400	;+003 [08] SET IF THE DEVICE IS INTERMEDIATE BUFFERED
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 57-1
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2490		001000 			UC.SWL==001000	;[09] SET IF THE DEVICE IS SOFTWARE WRITE LOCKED
   2491		002000 			UC.ISP==002000	;[10] SET IF DEVICE IS INPUT SPOOLED
   2492		004000 			UC.0SP==004000	;[11] SET IF DEVICE IS OUTPUT SPOOLED
   2493		010000 			UC.PSE==010000	;[12] SET IF DEVICE IS PSEUDO DEVICE
   2494		020000 			UC.COM==020000	;[13] SET IF DEVICE IS COMMUNICATIONS CHANNEL
   2495		040000 			UC.F11==040000	;[14] SET IF DEVICE IS FILES-11
   2496		100000 			UC.MNT==100000	;[15] SET IF DEVICE IS MOUNTABLE
   2497					;
   2498					;	BIT DEFINITIONS FOR CHARACTERISTICS WORD TWO
   2499					;
   2500		000200 			CH.OFF==200	;VOLUME IS OFF-LINE
   2501		000100 			CH.FOR==100	;VOLUME IS FOREIGN
   2502		000040 			CH.UNL==40	;DISMOUNT PENDING
   2503		000020 			CH.NAT==20	;ATTACH/DETACH NOT PERMITTED
   2504		000010 			CH.NDC==10	;DEVICE CONTROL FUNCTIONS NOT PERMITTED
   2505		000001 			CH.LAB==1	;VOLUME IS LABELED TAPE
   2506					;
   2507					;	BIT DEFINITIONS FOR TERMINAL PRIVILEDGE BYTE
   2508					;
   2509		000001 			UT.PR==1	;SET IF TY ID PRIVILEDGED
   2510		000002 			UT.SL==2	;SET IF TTY IS SLAVED
   2511		000004 			UT.LG==4	;SET IF TERMINAL IS LOGGED ON
   2512					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 58
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2514					;
   2515					; TASK TERMINATION NOTICE ERROR CODES FOR A.FM+0
   2516					;
   2517		000012 			TN.EMT==12		;NON-RSX EMT
   2518		000014 			TN.TRP==14		;TRAP INSTRUCTION
   2519		000040 			TN.LRF==40		;LOAD FAILURE
   2520					;
   2521					; SEND AND REQUEST QUEUE ENTRY
   2522					;
   2523		000004 			Q.SI==04 ; WD. 02 (B 04) -- SYSTEM TASK LIST ADDRESS
   2524		000006 			Q.D1==06 ; WD. 03 (B 06) -- FIRST DATA WORD
   2525					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 59
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2527					;
   2528					;	DEVICE QUEUE POINTER TABLE (TO 11 QUEUE ENTRIES)
   2529					;
   2530		000000 			Q.DA==0	; WD. 00 (B 00) -- ADDRESS OF DEVICE TABLE LIST
   2531		000002 			Q.TS==02 ; WD. 01 (B 02) -- SIZE OF AN ENTRY IN THE DEVICE TABLE LIST
   2532		000004 			Q.ST==04 ; WD. 02 (B 04) -- ADDRESS OF DEVICE START SUBROUTINE
   2533		000006 			Q.SP==06 ; WD. 03 (B 06) -- ADDRESS OF DEVICE STOP SUBROUTINE
   2534						; WD. 04 (B 10) -- SPARE
   2535		000012 			Q.AK==12 ; WD. 05 (B 12) -- ACKNOWLEDGE ROUTINE
   2536						 ; WD. 06 (B 14) -- SPARE
   2537		000016 			Q.DZ==16 ; WD. 07 (B 16) -- DEVICE COUNT
   2538		000020 			Q.SZ==20	; SIZE OF TABLE ENTRY
   2539					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 60
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2541					;
   2542					;	DEVICE ERROR LOGGING INFORMATION AND STATUS BLOCK DEFINITONS
   2543					;
   2544					;	WORD 0 -- STANDARD STATUS BITS (DV.XXX)
   2545					;
   2546					;	1	DEVICE-DEPENDENT BITS
   2547					;	2	...........
   2548					;	N
   2549					;
   2550					;	DEVICE ERROR LOGGING BITS (FIRST WORD BITS ONLY)
   2551					;
   2552		000001 			DV.NXD==1	;NON-EX DEVICE
   2553		000002 			DV.OFL==2	;OFF-LINE
   2554		000004 			DV.OIR==4	;HARDWARE ERROR. OPERATOR INTERVENTION REQ'D
   2555		000010 			DV.SCN==10	;SOFTWARE CONDITION. ACKNOWLEDGE REQUIRED
   2556		000020 			DV.IOP==20	;I/O IN PROGRESS
   2557		000040 			DV.EOF==40	;END-OF-FILE ENCOUNTERED
   2558		000100 			DV.LOG==100	;ERROR LOGGING REQUIRED
   2559		000200 			DV.URE==200	;UN-RECOVERABLE ERROR
   2560		000400 			DV.F11==400	;ERROR ON FROM -11 REQUEST
   2561		001000 			DV.HNG==1000	;DEVICE HUNG
   2562		002000 			DV.LIN==2000	;DEVICE LOST INTERRUPT ENABLE
   2563		004000 			DV.CFG==4000	; CONFIGURATION INFORMATION
   2564					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 61
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2566					;
   2567					; KLINIK EVENT LOGGING CODES
   2568					;
   2569
   2570		000000 			K.LUND==0		; UNDEFINED CODE
   2571
   2572		000001 			K.LSCK==1		; SET/CLEAR KLINIK COMMAND
   2573		000001 				K.LSKL==1	; SET KLINIK
   2574		177777 				K.LCKL==-1	; CLEAR KLINIK
   2575
   2576		000002 			K.LRNG==2		; KLINIK RING
   2577		000001 				K.LRAC==1	; ACCEPTED (WINDOW OPEN)
   2578		177777 				K.LRRJ==-1	; REJECTED (WINDOW CLOSED)
   2579
   2580		000003 			K.LDSC==3		; KLINIK LINE DISCONNECT
   2581		000001 				K.LDCM==1	; DIRECTED DISCONNECT (COMMAND)
   2582		177777 				K.LDRP==-1	; CARRIER DROP
   2583
   2584		000004 			K.LCON==4		; KLINIK LINE CONNECT
   2585		000001 				K.LROP==1	; REMOTE -- OPERATOR MODE
   2586		000002 				K.LRPR==2	; REMOTE -- PROGRAMMER MODE
   2587		000003 				K.LRMN==3	; REMOTE -- MAINTENANCE MODE
   2588		177777 				K.LUSR==-1	; USER MODE
   2589
   2590		000005 			K.LBPW==5		; BAD PASSWORD
   2591
   2592		000006 			K.LLTO==6		; LOGON TIMEOUT
   2593
   2594		000007 			K.LRBA==7		; KLINIK ACTIVE ON REBOOT
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 62
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2596					;
   2597					;	OFFSETS FOR SST TRAPS TABLE IN USER'S AREA
   2598					;
   2599		000000 			T.RAP4==0		;TRAP AT 4
   2600		000002 			T.RAPM==2		;MEMORY PROTECT VIOLATOION
   2601		000004 			T.RAPB==4		;T BIT OR BPT TRAP
   2602		000006 			T.RAPI==6		;IOT TRAP
   2603		000010 			T.RAPR==10		;RESERVED INSTRUCTION TRAP
   2604		000012 			T.RAPE==12		;EMT TRAP (NON RSX)
   2605		000014 			T.RAPT==14		;TRAP TRAP
   2606		000016 			T.RAPF==16		;FLOATING POINT TRAP
   2607					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 63
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2609					;
   2610					; IRQ -- I/O REQUEST QUEUE
   2611					;
   2612					; THE "IRQ" IS A PRIORITY ORDERED DEQUE OF I/O REQUEST NODES WITH ITS
   2613					; LISTHEAD IN THE PUD ENTRY OF THE PHYSICAL UNIT FOR WHICH THE I/O
   2614					; REQUEST WAS QUEUED.  EACH PHYSICAL UNIT HAS ITS OWN I/O REQUEST QUEUE.
   2615					; I/O REQUEST NODES ARE CREATED AND QUEUED PRIMARILY BY THE "QUEUE I/O"
   2616					; DIRECTIVE.  HOWEVER, THE EXEC ALSO CREATES I/O REQUESTS TO:
   2617					; (1) LOAD A TASK IMAGE,
   2618					; I/O REQUEST NODES ARE
   2619					; THE FOLLOWING FORMAT.
   2620					;
   2621						 ; WD. 00 (B 00) -- FORWARD LINKAGE
   2622						 ; WD. 01 (B 02) -- BACKWARD LINKAGE
   2623		000004 			R.TD==04 ; WD. 02 (B 04) -- STD NODE OF REQUESTOR
   2624		000006 			R.AT==06 ; WD. 03 (B 06) -- ATL NODE OF REQUESTOR ***
   2625		000010 			R.PR==10 ; WD. 04 (B 10) -- PRIORITY (BYTE)
   2626		000011 			R.DP==11 ;        (B 11) -- DPB SIZE (BYTE) ***
   2627		000012 			R.LU==12 ; WD. 05 (B 12) -- LOGICAL UNIT NUMBER (BYTE)
   2628		000013 			R.FN==13 ;        (B 13) -- EVENT FLAG NUMBER (BYTE)
   2629		000014 			R.FC==14 ; WD. 06 (B 14) -- I/O FUNCTION CODE
   2630		000016 			R.SB==16 ; WD. 07 (B 16) -- ADDRESS OF STATUS BLOCK
   2631		000020 			R.AS==20 ; WD. 10 (B 20) -- AST ADDRESS
   2632		000022 			R.UI==22 ; WD. 11 (B 22) -- UIC (UNUSED)
   2633		000024 			R.PB==24 ; WD. 12 (B 24) -- PARAMETER #1
   2634						 ; WD. 13 (B 26) -- PARAMETER #2
   2635						 ; WD. 14 (B 30) -- PARAMETER #3
   2636						 ; WD. 15 (B 32) -- PARAMETER #4
   2637						 ; WD. 16 (B 34) -- PARAMETER #5
   2638						 ; WD. 17 (B 36) -- PARAMETER #6
   2639					;
   2640					; THE LOW ORDER THREE-BITS OF THE I/O FUNCTION CODE ARE USED BY THE SYSTEM
   2641					; AS FOLLOWS:
   2642					;
   2643							;[0] -- RESERVED FOR FUTURE USE
   2644		000002 			RF.XR==000002	;RESERVED
   2645							;[2] -- RESERVED FOR FUTURE USE
   2646					;
   2647					; *** WHENEVER AN I/O REQUEST IS QUEUED BY THE "QUEUE I/O" DIRECTIVE, THE
   2648					; DPB SIZE AND THE REQUESTOR'S ATL NODE ADDRESS ARE RECORDED IN THE I/O
   2649					; REQUEST NODE.  WHENEVER AN I/O REQUEST IS QUEUED AS A RESULT OF ANOTHER
   2650					; DIRECTIVE (VIZ., "REQUEST" CAUSING A TASK IMAGE TO BE LOADED), THE DPB
   2651					; SIZE AND THE REQUESTOR'S ATL NODE ADDRESS ARE SET TO ZERO.  THUS, BOTH
   2652					; BOTH THE DPB SIZE AND THE ATL NODE ADDRESS ARE ALSO "EXEC REQUEST"
   2653					; INDICATORS.
   2654					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 64
EXEC MODULE ONE -- SYMBOLIC DEFINITIONS

   2656					;+
   2657					;  SIGNIFICANT EVENT FLAG DEFINITIONS
   2658					;
   2659					;
   2660					; THE HIGH-ORDER BYTE '.SERFG+1' IS INCREMENTED WHENEVER A CLOCK
   2661					; TICK OCCURS (WHENEVER THE CLOCK INTERRUPT SERVICE ROUTINE RUNS).
   2662					; HENCE, '.SERFG+1' IS A BYTE CONTAINING A COUNT OF UNRECOGNIZED
   2663					; CLOCK TICKS.
   2664					;
   2665					; THE BITS OF THE LOW-ORDER BYTE '.SERFG+0' ARE USED TO FLAG THE
   2666					; FOLLOWING EVENTS:
   2667					;
   2668		000001 			EV.SE==001 ; [0] SET WHENEVER A SIGNIFICANT EVENT IS TO BE
   2669						   ; RECOGNIZED,
   2670					;
   2671		000002 			EV.AS==002 ; [1] SET WHEN POWER FAIL IS REQUIRED
   2672		000200 			EV.PF==200 ; [7] SET WHEN POWER DOWN HAS OCCURRED AND MUST BE RECOGNIZED
   2673						   ;     ** MUST BE SIGN BIT **
   2674					;-
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 65
EXEC MODULE ONE -- NUL TASK

   2676						.SBTTL	EXEC MODULE ONE -- NUL TASK
   2677					;
   2678					; THE NUL TASK EXISTS TO ELIMINATE EXCEPTION TESTING WHEN SCANNING THE
   2679					; ACTIVE TASK LIST, AND WHEN PROCESSING DIRECTIVES THAT CAUSE AN
   2680					; ATL SCAN TO CONTINUE FROM THE NEXT TASK OF LOWER PRIORITY THAN THE
   2681					; DIRECTIVE ISSUING TASK.
   2682					;
   2683					; THE NUL TASK IS THE LOWEST PRIORITY TASK IN A SYSTEM.
   2684					;
   2685					; THE NUL TASK HAS AN ATL NODE WITH STATUS OF "RUNNING", BUT HAS NO STD
   2686					; ENTRY.
   2687					;
   2688					; THE NUL TASK DOES NOT RESIDE IN A PARTITION.
   2689					;
   2690					; THE NUL TASK EXECUTION CONSISTS OF "WAIT" INSTRUCTIONS (TO INCREASE
   2691					; UNIBUS THROUGHPUT).  HOWEVER, THE NUL TASK DOES HAVE CONTEXT, AND CAN
   2692					; EXECUTE PDP-11 INSTRUCTIONS
   2693					;
   2694					;
   2695	012242				NULHD::	.STKM	170017,0,0,0,0,0,0,NTKXEP,174000,NTKXSP
	012310	000000 	000000 	000000 		.WORD	0,0,0,0
	012316	000000
	012336	174000 	012546'	012522'		.WORD	174000,NTKXEP,NTKXSP
	012372	000005 				.WORD	5
	012374	010232'				.WORD	TTPEN
	012376	000000 				.WORD	0
	012400	000000 				.WORD	0
	012402	000000 				.WORD	0
	012404	000000 				.WORD	0
	012406	000000 				.WORD	0
	012410	000000 				.WORD	0
	012412	000000 				.WORD	0
	012414	000000 				.WORD	0
	012416	000000 				.WORD	0
	012420	000000 				.WORD	0
	012522	170017 				.WORD	170017
	012524	000000 				.WORD	0
	012526	000000 				.WORD	0
	012530	000000 				.WORD	0
	012532	000000 				.WORD	0
	012534	000000 				.WORD	0
	012536	012546'				.WORD	NTKXEP
	012540	174000 				.WORD	174000
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 66
EXEC MODULE ONE -- NUL TASK

   2697	012542				NTKXEN:
   2698	012542					.ENB6			; ENABLE INTERRUPTS
	012542	012637 	177776 			MOV	(SP)+,@#PS
   2699	012546				NTKXEP:
   2700	012546	000001 				WAIT
   2701	012550	000001 				WAIT
   2702	012552	005200 				INC	R0
   2703	012554					.INH6			; [4.1.1035] DISALLOW INTERRUPTS
	012554	013746 	177776 			MOV	@#PS,-(SP)
	012560	112737 	000300 	177776 		MOVB	#300,@#PS
   2704	012566	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] IF PRIMARY PROTOCOL IS DEAD
   2705	012572	100033 				BPL	40$		;;; [4.1.1105] THEN SEND DOWN MESSAGE
   2706	012574	005737 	001164'			TST	.ACKAL		;;; IF ACKAL HAS NOT BEEN SENT
   2707	012600	001002 				BNE	20$		;;; THEN KL MAY STILL BE SHAKY
   2708	012602	105037 	013034'			CLRB	SNDMSG		;;; OTHERWISE RESET MSG FLAG
   2709	012606				20$:
   2710	012606	005737 	001124'			TST	.TKTN		;;; CHECK FOR TASK TERMINATION REQUIRED
   2711	012612	001410 				BEQ	30$		;;; NO -- LOOK AT TIME OF DAY FLAG
   2712	012614	005037 	001124'			CLR	.TKTN		;;; CLEAR REQUEST FOR TASK TERMINTATION
   2714	012620					.ENB6			;;; ENABLE INTERRUPTS
	012620	012637 	177776 			MOV	(SP)+,@#PS
   2715	012624					DIR$	#.TKTN.		; REQUEST TASK TERMINATION
	012624	012746 	012740'			MOV	#.TKTN.,-(SP)
	012630	104375 				EMT	375
   2716	012632	000745 				BR	NTKXEP		; AND CONTINUE
   2717						;
   2721	012634				30$:
   2722	012634	005737 	001136'			TST	.CLKSW		;;; NEED TIME CHANGE?
   2723	012640	100340 				BPL	NTKXEN		;;; [4.1.1035] NO -- JUST GO ON
   2724	012642	005037 	001136'			CLR	.CLKSW		;;; YES -- RESET CLOCK SWITCH
   2725	012646					.ENB6			;;; ENABLE INTERRUPTS
	012646	012637 	177776 			MOV	(SP)+,@#PS
   2726	012652					DIR$	#.TOD.		; REQUEST TIME OF DAY TASK
	012652	012746 	012722'			MOV	#.TOD.,-(SP)
	012656	104375 				EMT	375
   2727	012660	000732 				BR	NTKXEP		; AND CONTINUE IDLE LOOP
   2728						;
   2729	012662				40$:
   2730	012662	105737 	001372'			TSTB	.PRPSE		;;; ARE WE JUST PAUSING??
   2731	012666	001347 				BNE	20$		;;; YES -- BACK TO MAIN LOOP
   2732	012670	005737 	013034'			TST	SNDMSG		;;; HAVE WE INFORMED THE TTYS ?
   2733	012674	001344 				BNE	20$		;;; YES -- DON'T RE-SEND
   2734	012676	012704 	012756'			MOV	#DWNMSG,R4	;;; SEND DOWN MESSAGE
   2735	012702					CALL	COPBUF		;;; COPY BUFFER TO FREE SPACE
	012702	004737 	027312'			JSR	PC,COPBUF
   2736	012706	010004 				MOV	R0,R4		;;; SET UP TO SEND IT
   2737	012710					CALL	.SNDAL		;;; SEND MESSAGE
	012710	004737 	027006'			JSR	PC,.SNDAL
   2738	012714	105237 	013034'			INCB	SNDMSG		;;; SYSTEM DOWN MESSAGE HAS BEEN SENT.
   2739	012720	000732 				BR	20$		;;; CHECK FOR TERMINATION NOTIFICATION
   2740						;
   2741	012722				.TOD.:
   2742	012722					RQST$	MIDNIT
	012722	   013 	   007 			.BYTE	11.,7
	012724	051254 	054374 			.RAD50	/MIDNIT/
	012730	000000 	000000 			.WORD	0,0
	012734	000000 				.WORD
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 66-1
EXEC MODULE ONE -- NUL TASK

	012736	   000 	   000 			.BYTE	,
   2743
   2745	012740				.TKTN.:
   2746	012740					RQST$	TKTN
	012740	   013 	   007 			.BYTE	11.,7
	012742	077314 	053600 			.RAD50	/TKTN/
	012746	000000 	000000 			.WORD	0,0
	012752	000000 				.WORD
	012754	   000 	   000 			.BYTE	,
   2748
   2749	012756				DWNMSG:
   2750	012756	000000 	000060 	012770'		.WORD	0,60,DWNMS,DWNMSZ,DWNMSZ*400
	012764	000043 	021400
   2751
   2756	012770				DWNMS:
   2757	012770	   015 	   012 	   007 		.ASCII	<15><12><7><7><7>/%DECSYSTEM-10 NOT RUNNING/<15><12><7><7><7>
	012773	   007 	   007 	   045
	012776	   104 	   105 	   103
	013001	   123 	   131 	   123
	013004	   124 	   105 	   115
	013007	   055 	   061 	   060
	013012	   040 	   116 	   117
	013015	   124 	   040 	   122
	013020	   125 	   116 	   116
	013023	   111 	   116 	   107
	013026	   015 	   012 	   007
	013031	   007 	   007
   2759		000043 			DWNMSZ=.-DWNMS
   2760						.EVEN
   2761	013034				SNDMSG::
   2762	013034	   001 				.BYTE	1		;  +++005 A SYSTEM DOWN MSG HAS BEEN SENT
   2763	013035	   000 				.BYTE	0		; [5.1127] HOST DEBUG NO MESSAGE FLAG
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 67
EXEC MODULE TWO -- SERVICE FOR "EMT" & "TRAP" INSTRUCTIONS

   2765						.SBTTL	EXEC MODULE TWO -- SERVICE FOR "EMT" & "TRAP" INSTRUCTIONS
   2766					;
   2767					;
   2768					;	EMT INSTRUCTIONS ARE ONLY EXECUTED BY NON-INTERRUPT SERVICE ROUTINES
   2769					;
   2770					;	DIRECTIVE DISPATCH -- CONTROL IS TRANSFERRED TO A DIRECTIVE SERVICE
   2771					;	ROUTINE PER DIRECTIVE IDENTIFICATION CODE (DIC)
   2772					;
   2773					;	REGISTER DEFINITIONS ON EXIT:
   2774					;	R0 -- PC OF EMT INSTRUCTION
   2775					;	R1 -- POINTER TO WORD FOLLOWING DIC & SIZE
   2776					;	R2 -- DPB SIZE
   2777					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   2778					;	R5 -- CURRENT TASK POINTER
   2779					;
   2780		000020 			EM.DRO==20	;OFFSET TO DPB OR DPB POINTER ON STACK
   2781					;
   2782					;
   2783					;
   2784	013036	010546 			EMTTRP::MOV	R5,-(SP)	;SAVE R5 INCASE OF TRAP(SST)
   2785	013040	016605 	000002 			MOV	2(SP),R5	;=PC+2 OF EMT INSTRUCTION
   2786	013044	024527 				CMP	-(R5),(PC)+	;WAS IT A
   2787	013046	104375 				EMT	375		; DIRECTIVE ?
   2788	013050	001421 				BEQ	10$		;YES -- LEGAL DIRECTIVE REQUEST
   2789	013052	011637 	001116'			MOV	@SP,EMTSTK	;SAVE R5
   2790	013056	111516 				MOVB	@R5,@SP		;NO -- MUST SET IT UP FOR SST
   2791	013060	013705 	001006'			MOV	.CRTSK,R5	;FIND THE CURRENT TASK POINTER
   2792	013064	016505 	000016 			MOV	A.TD(R5),R5	;FIND STD ADDRESS
   2793	013070	016505 	000030 			MOV	S.SS(R5),R5	;FIND THE SST TABLE
   2794	013074	001403 				BEQ	5$		;NONE -- FORGET IT
   2795	013076					MFPS	T.RAPE(R5),R5	;IS THERE AN ENTRY IN THE TABLE?
	013076	016505 	000012 			MOV	T.RAPE(R5),R5
   2796	013102	001106 				BNE	.SSTET		;DO SST SERVICE
   2797
   2798	013104	012737 	000012 	001120'	5$:	MOV	#TN.EMT,TRPASV	;SAVE THE TERMINATION TYPE
   2799	013112	000513 				BR	CMNABT		;AND GO TO COMMON ABORT
   2800
   2801	013114				10$:				;REMOVE THE SAVED R0 -- NOT NEEDED NOW
   2802									;SAVE REGISTERS
   2803	013114	010446 				MOV	R4,-(SP)
   2804	013116	010346 				MOV	R3,-(SP)
   2805	013120	010246 				MOV	R2,-(SP)
   2806	013122	010146 				MOV	R1,-(SP)
   2807	013124	010046 				MOV	R0,-(SP)
   2808	013126	010637 	001116'			MOV	SP,EMTSTK	;SAVE EMT STACK POINTER
   2810	013132	016601 	000020 			MOV	EM.DRO(SP),R1	;FIND THE DIRECTIVE OR DIRECTIVE POINTER
   2816					;
   2817					;	IF R1 IS EVEN, IT IS ASSUMED TO BE A DPB POINTER
   2818					;	IF R1 IS ODD, IT IS ASSUMED TO BE THE FIRST WORD OF A DPB THAT
   2819					;	HAS BEEN PUSHED ONTO THE STACK.
   2820					;
   2821					;
   2822					;	TEST FOR ODD OR EVEN
   2823					;
   2824	013136	032701 	000001 			BIT	#1,R1
   2825	013142	001003 				BNE	20$
   2826					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 67-1
EXEC MODULE TWO -- SERVICE FOR "EMT" & "TRAP" INSTRUCTIONS

   2827					;	EVEN -- R1 CONTAINS A DPB POINTER (ADDRESS).
   2828					;
   2829	013144					MFPS	@R1,R2		;FIND THE FIRST DPB WORD
	013144	011102 				MOV	@R1,R2
   2830	013146	010203 				MOV	R2,R3		;FIND THE DIRECTIVE IDENTIFICATION CODE
   2831	013150	000405 				BR	30$		;EXECUTE DIRECTIVE
   2832					;
   2833					;	ODD WORD ON STACK -- DPB IS ON THE ISSUING
   2834					;	TASK'S STACK, AND R1 CONTAINS THE FIRST DPB WORD.
   2835					;
   2836					;	SET R1 TO THE DPB ADDRESS, R2 TO THE DPB SIZE (IN WORDS),
   2837					;	R3 TO THE DIRECTIVE IDENTIFICATION CODE.
   2838					;
   2839	013152	010102 			20$:	MOV	R1,R2		;SET DPB SIZE IN R2
   2840	013154	010103 				MOV	R1,R3		;SET DIRECTIVE CODE
   2841	013156	010601 				MOV	SP,R1		;FIND THE ADDRESS OF THE DPB
   2842	013160	062701 	000020 			ADD	#EM.DRO,R1	;POINT PAST SAVED STACK
   2843	013164	042703 	177400 		30$:	BIC	#177400,R3
   2844	013170	105002 				CLRB	R2
   2845	013172	000302 				SWAB	R2		;SET SIZE IN LOW ORDER
   2846					;
   2847					;	R3 CONTAINS  THE DIRECTIVE IDENTIFICATION CODE.
   2848					; THE DIC IS AN ODD QUANTITY AND SHOULD BE IN THE RANGE
   2849					;	001-127.(MAX RANGE)
   2850					;
   2851	013174	005721 				TST	(R1)+		;ADVANCE R1 TO POINT TO THE WORD FOLLOWING
   2852									;THE FIRST WORD DPB WORD.
   2853	013176	013705 	001006'			MOV	.CRTSK,R5	;SET UP CURRENT TASK POINTER
   2854	013202	022703 	000102 			CMP	#DIRMAX,R3	;CHECK TO SEE IF LEGAL DIRECTIVE
   2855	013206	103001 				BHIS	DIROK		;OK -- LEGAL RANGE
   2856	013210	104635 			DS.99:	TRAP	DE.99		;ILLEGAL DIRECTIVE
   2857	013212	000173 	013215'		DIROK:	JMP	@DIRDPT-1(R3)	;DISPATCH TO APPROPRIATE DIRECTIVE SERVICE CODE.
   2858					;
   2859	013216	022542'			DIRDPT:	.WORD	.D.QIO	;001. -- QIO
   2860	013220	022542'				.WORD	.D.QIO	;003. -- QIO AND WAIT
   2861	013222	021670'				.WORD	.D.GLI	;005. -- GET LUN INFORMATION
   2862	013224	021564'				.WORD	.D.ASS	;007. -- ASSIGN LUN
   2863	013226	020344'				.WORD	.D.DTE	;009. -- DTE20 FUNCTIONS
   2864	013230	023662'				.WORD	.D.REQ	;011. -- REQUEST
   2865	013232	023212'				.WORD	.D.SEN	;013. -- SEND
   2866	013234	023226'				.WORD	.D.SAR	;015. -- SEND AND REQUEST
   2867	013236	023460'				.WORD	.D.REC	;017. -- RECEIVE
   2868	013240	023460'				.WORD	.D.ROE	;019. -- RECEIVE OR EXIT
   2869	013242	023460'				.WORD	.D.ROS	;021. -- RECEIVE OR SUSPEND
   2870	013244	022350'				.WORD	.D.MKT	;023. -- MARK TIME
   2871	013246	023640'				.WORD	.D.PUT	;025. -- POWER UP AST
   2872	013250	022452'				.WORD	.D.CMT	;027. -- CANCEL MARK TIME REQUESTS
   2873	013252	013210'				.WORD	DS.99	; 029. -- ILLEGAL DIRECTIVE
   2874	013254	022034'				.WORD	.D.CEF	;031. -- CLEAR EVENT FLAG
   2875	013256	022052'				.WORD	.D.SEF	;033. -- SET EVENT FLAG
   2876	013260	022070'				.WORD	.D.DSE	;035. -- DECLARE SIGNIFICANT EVENT
   2877	013262	022112'				.WORD	.D.REF	;037. -- READ EVENT FLAG
   2878	013264	022126'				.WORD	.D.RAF	;039. -- READ ALL EVENT FLAGS
   2879	013266	022152'				.WORD	.D.WFS	;041. -- WAIT FOR SINGLE EVENT FLAG
   2880	013270	022230'				.WORD	.D.WFL	;043. -- WAIT FOR LOGICAL "OR" OF EVENT FLAGS
   2881	013272	013210'				.WORD	DS.99	;045. -- SUSPEND EXECUTION -- 010 REMOVED -- ILLEGAL
   2882	013274	013210'				.WORD	DS.99	;047. -- RESUME TASK EXECUTION -- 010 REMOVED -- ILLEGAL
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 67-2
EXEC MODULE TWO -- SERVICE FOR "EMT" & "TRAP" INSTRUCTIONS

   2883	013276	022336'				.WORD	.D.WSE	;049. -- WAIT FOR NEXT SIGNIFICANT EVENT
   2884	013300	022520'				.WORD	.D.EXT	;051. -- TASK EXIT
   2889	013302	013210'				.WORD	DS.99	; 053. -- ILLEGAL DIRECTIVE
   2890	013304	013210'				.WORD	DS.99	; 055. -- ILLEGAL DIRECTIVE
   2892	013306	023626'				.WORD	.D.STV	;057. -- SPECIFY SST VECTOR
   2893	013310	021720'				.WORD	.D.GTP	;059. -- GET TIME PARAMETERS
   2894	013312	013210'				.WORD	DS.99	;061. -- ILLEGAL
   2895	013314	024110'				.WORD	.D.GPP	;063. -- GET TASK PARAMETERS
   2896	013316	024232'				.WORD	.D.GMP	;065. -- GET PARTITION PARAMETERS
   2897		000102 			DIRMAX=.-DIRDPT	;LEGAL NUMBER OF DIRECTIVES
   2898					;
   2899					; .SSTET -- SST FOR TRAP AND EMT'S
   2900					;
   2901	013320				.SSTET::
   2902	013320	105066 	000001 			CLRB	1(SP)		;CLEAR HIGH BYTE
   2903	013324	006316 				ASL	@SP		;MULTIPLY BY 2
   2904	013326				.SSTCO::
   2906	013326	012746 	004000 			MOV	#004000,-(SP)	;SET PS
   2910	013332	010546 				MOV	R5,-(SP)	;SET TRAP ADDRESS
   2911	013334	013705 	001116'			MOV	EMTSTK,R5	;RESTORE R5
   2912	013340	000002 				RTI			;RETURN TO USER
   2913					;
   2914	013342	013705 	001116'		CMNABT:	MOV	EMTSTK,R5	;RESTORE R5
   2915	013346	000137 	011526'			JMP	CMNABO		;AND GO TO COMMON ABORT
   2916					;
   2917					; CONTROL IS RETUNRED TO ".DR.NS" TO EXIT DIRECTIVE SERVICE WITHOUT ALTERING
   2918					; AN ISSUING TASK'S DIRECTIVE STATUS OR CONDITION CODES.
   2919					;
   2920					; DIRECTIVE RETURN STATUSES
   2921					;
   2922		000000 			DR.00==0		;DIRECTIVE RETURN 00
   2923		000001 			DR.01==1		;DIRECTIVE RETURN 01
   2924		000002 			DR.02==2		;DIRECTIVE RETURN 02
   2925		000003 			DR.03==3		;DIRECTIVE RETURN 03
   2926					;
   2927					; DIRECTIVE ERROR RETURNS
   2928					;
   2929		000377 			DE.01==-1&377		;ERR 01
   2930		000376 			DE.02==-2&377		;ERR 02
   2931		000375 			DE.03==-3&377		;ERR 03
   2932		000374 			DE.04==-4&377		;ERR 04
   2933		000373 			DE.05==-5&377		;ERR 05
   2934		000372 			DE.06==-6&377		;ERR 06
   2935		000371 			DE.07==-7&377		;ERR 07
   2936		000370 			DE.08==-8.&377		;ERR 08
   2937		000367 			DE.09==-9.&377		;ERR 09
   2938		000366 			DE.10==-10.&377		;ERR 10
   2939		000365 			DE.11==-11.&377		;ERR 11
   2940		000260 			DE.80==-80.&377		;ERR 80
   2941		000257 			DE.81==-81.&377		;ERR 81
   2942		000246 			DE.90==-90.&377		;ERR 90
   2943		000245 			DE.91==-91.&377		;ERR 91
   2944		000244 			DE.92==-92.&377		;ERR 92
   2945		000243 			DE.93==-93.&377		;ERR 93
   2946		000242 			DE.94==-94.&377		;ERR 94
   2947		000241 			DE.95==-95.&377		;ERR 95
   2948		000240 			DE.96==-96.&377		;ERR 96
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 67-3
EXEC MODULE TWO -- SERVICE FOR "EMT" & "TRAP" INSTRUCTIONS

   2949		000237 			DE.97==-97.&377		;ERR 97
   2950		000236 			DE.98==-98.&377		;ERR 98
   2951		000235 			DE.99==-99.&377		;ERR 99
   2952					;
   2953	013352	132766 	000340 	000002 	.DRSRN::BITB	#340,2(SP)	;FROM EXEC?
   2954	013360	001025 				BNE	20$		;YES -- CONTIUE
   2955	013362	011646 				MOV	@SP,-(SP)	;PUT IT ON STACK TWICE
   2956	013364	162716 	000002 			SUB	#2,@SP
   2957	013370	117616 	000000 			MOVB	@(SP),@SP
   2958	013374	010537 	001116'			MOV	R5,EMTSTK
   2959	013400	013705 	001006'			MOV	.CRTSK,R5	;FIND THE CURRENT TASK
   2960	013404	016505 	000016 			MOV	A.TD(R5),R5	;FIND STD ADDRESS
   2961	013410	016505 	000030 			MOV	S.SS(R5),R5	;IS THERE AN SST VECTOR?
   2962	013414	001403 				BEQ	10$		;NO -- CRASH
   2963	013416					MFPS	T.RAPT(R5),R5	;FIND THE ADDRESS
	013416	016505 	000014 			MOV	T.RAPT(R5),R5
   2964	013422	001336 				BNE	.SSTET		;NONE -- CRASH
   2965	013424	012737 	000014 	001120'	10$:	MOV	#TN.TRP,TRPASV	;SET TRAP TYPE
   2966	013432	000743 				BR	CMNABT		;AND GO TO COMMON ABORT
   2967					;
   2968					;
   2969	013434	162716 	000002 		20$:	SUB	#2,@SP		;FIND THE TRAP VALUE
   2970	013440	113600 				MOVB	@(SP)+,R0
   2971	013442	100006 				BPL	DRXCOM		;BRANCH IF THE DIRECTIVE SUCCEEDED
   2972	013444	013706 	001116'		DEXCOM:	MOV	EMTSTK,SP	;RESTORE STACK FOR REGISTER SAVE
   2973	013450	052766 	000001 	000016 		BIS	#1,EM.DRO-2(SP)	;SET CC-C -2(ISSUING TASK'S PS)
   2974	013456	000405 				BR	DRXRR		;---
   2975					;
   2976	013460				.DR.NS::			;RETURN NO STATUS
   2977	013460	013706 	001116'		DRXCOM:	MOV	EMTSTK,SP	;RESTORE STACK FOR REGISTER SAVE
   2978	013464	042766 	000001 	000016 		BIC	#1,EM.DRO-2(SP)	;CLEAR CC-C -2(ISSUING TASK'S PS)
   2979	013472				DRXRR:				;-----
   2980	013472	010037 	000046 			MOV	R0,$DSW		;SAVE THE DSW
   2981	013476	012600 				MOV	(SP)+,R0	;POP (RESORE) R0
   2982	013500	012601 				MOV	(SP)+,R1	;POP (RESTORE) R1
   2983	013502	012602 				MOV	(SP)+,R2	;POP (RESTORE) R2
   2984	013504	012603 				MOV	(SP)+,R3	;POP (RESTORE) R3
   2986	013506	016604 	000010 			MOV	10(SP),R4	;FIND DPB OR DPB ADDRESS
   2991	013512	106004 				RORB	R4		;ADDRESS OR DPB?
   2992	013514	103402 				BCS	10$		;DPB -- FOUND SIZE REQ'D
   2993	013516	012704 	000400 			MOV	#400,R4		;SET UP TO POP ONLY 1 WORD
   2994	013522	105004 			10$:	CLRB	R4
   2995	013524	000304 				SWAB	R4		;PUT SIZE IN LOW ORDER
   2996	013526	006304 				ASL	R4		;MAKE +2 FOR COUNT
   2998	013530	062704 	000020 			ADD	#EM.DRO,R4	;POINT TO USER STACK LOCATION
   2999	013534	063704 	001116'			ADD	EMTSTK,R4
   3005	013540	016644 	000006 			MOV	6(SP),-(R4)	;RESET STACK
   3006	013544	016644 	000004 			MOV	4(SP),-(R4)
   3007	013550	016644 	000002 			MOV	2(SP),-(R4)
   3008	013554	011644 				MOV	@SP,-(R4)
   3009	013556	010406 				MOV	R4,SP		;SET STACK POINTER
   3010					;
   3011					; A DIRECTIVE HAS BEEN PROCESSED -- IF A TASK IS CURRENT (THE ISSUING
   3012					; TASK) ITS PS, PC, R5, & R4 ARE ON THE KERNEL STACK, AND '.CRTSK' POINTS
   3013					; TO THE ATL NODE OF THAT TASK.  IF A TASK IS NOT CURRENT (ISSUING
   3014					; TASK EXIT'ED), '.CRTSK' IS SET TO ZERO.
   3015					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 67-4
EXEC MODULE TWO -- SERVICE FOR "EMT" & "TRAP" INSTRUCTIONS

   3016					; R0 CONTAINS THE ADDRESS OF THE NEXT ATL NODE TO BE EXAMINED.
   3017					;
   3018	013560	032766 	000340 	000006 		BIT	#PRI7,+6(SP)	;IS PROCESSOR PRIORITY OF DIRECTIVE ISSUING TASK ZERO?
   3019	013566	001403 				BEQ	20$		;YES -- SCAN ATL FROM ENTRY POINTED TO BY R5.
   3020	013570	012604 				MOV	(SP)+,R4	;NO -- TASK SWITCHING HAS BEEN INHIBITED BY ISSUING TASK,
   3021	013572	012605 				MOV	(SP)+,R5	;RESTORE R4, R5, PC, & PS, AND RETURN TO ISSUING TASK.
   3022	013574	000002 				RTI			;(PRIORITY IS ZEROED IF TASK EXIT'ED.)
   3023					;
   3024					; TRANSFER CONTROL TO THE SCAN ATL ROUTINE AT PRIORITY TWO,
   3025					; PREVIOUS MODE: USER, CURRENT MODE: KERNEL, AND CC'S ZERO.
   3026					;
   3027	013576	012746 	034100 		20$:	MOV	#034100+STXAS,-(SP)
   3028	013602	012746 	013624'			MOV	#ASXE2,-(SP)
   3029	013606	000002 				RTI
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 68
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3031						.SBTTL	EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST
   3032					;+
   3033					; THE ACTIVE TASK LIST (ATL) IS A PRIORITY ORDERED LIST OF TASKS THAT
   3034					; HAVE BEEN ASSIGNED MEMORY SPACE FOR EXECUTION, AND HAVE NOT EXIT'ED.
   3035					;
   3036					; THE SYSTEM IS DRIVEN BY SCANNING THE ATL FROM THE TOP (HIGH PRIORITY)
   3037					; WHETHER A TASK IS CAPABLE OF EXECUTION IS INDICATED BY THE 'A.TS'TH
   3038					; BYTE OF EACH ATL NODE (ENTRY).
   3039					;
   3040					; THE ATL IS SCANNED DOWNWARD FROM A TASK WHENEVER THAT TASK VOLUNTARILY
   3041					; STOPS EXECUTION (VIZ., WAITFOR, EXIT) AND A SIGNIFICANT
   3042					; EVENT HAS NOT BEEN DECLARED.
   3043					;
   3044					; SIGNIFICANT EVENTS ARE DECLARED BY TASKS (PRI=0) VIA SYSTEM DIRECTIVES,
   3045					; AND BY INTERRUPT SERVICE ROUTINES (PRI 4,5,6,7) VIA SYSTEM SUBROUTINES.
   3046					; A DECLARATION OF A SIGNIFICANT EVENT IS INDICATED BY THE SOFTWARE FLAG
   3047					; (BYTE) '.SERFG+0'.
   3048					;
   3049					; CONTROL IS TRANSFERRED TO THE ATL SCAN ROUTINE UNDER TWO CONDITIONS:
   3050					; (1) WHEN CONTROL IS RETURNED TO A TASK (PRI 0) VIA THE "COMMON RETURN TO
   3051					; INTERRUPTED PROGRAM" AND A SIGNIFICANT EVENT HAS BEEN DECLARED (NON-ZERO
   3052					; '.SERFG+0'), AND (2) WHEN CONTROL IS RETURNED FROM A DIRECTIVE SERVICE
   3053					; ROUTINE.
   3054					;
   3055					; THERE ARE TWO ENTRY POINTS TO THE ATL SCAN ROUTINE:
   3056					; ASXE1 -- TO SCAN THE ATL DOWNWARD FROM THE TOP.  I.E., TO EFFECT A
   3057					; DECLARATION OF A SIGNIFICANT EVENT.
   3058					;
   3059					; CONTROL IS TRANSFERRED TO 'ASXE1' FROM THE 'COMMON RETURN TO INTERRUPTED
   3060					; PROGRAM', OR FROM ATL SCAN TASK STATUS SERVICE, WHENEVER A SIGNIFICANT
   3061					; EVENT DECLARATION IS TO BE EFFECTED.
   3062					;
   3063					; ASXE2 -- TO SERVICE THE STATUS OF THE TASK WHOSE ATL NODE ADDRESS
   3064					; IS IN R5, AND THEN TO EITHER: (1) RETURN CONTROL TO THAT TASK,
   3065					; (2) SCAN THE ATL FROM THAT TASK THRU LOWER PRIORITY TASKS, OR
   3066					; (3) TO SCAN THE ATL FROM THE TOP.
   3067					;
   3068					; CONTROL IS TRANSFERRED TO 'ASXE2' FROM THE COMMON EXIT FOR DIRECTIVE
   3069					; (EMT 375) SERVICE CODE.
   3070					;
   3071					; IF A SIGNIFICANT EVENT HAS BEEN DECLARED (EITHER COINCIDENTLY OR AS
   3072					; A RESULT OF DIRECTIVE EXECUTION) CONTROL IS TRANSFERRED TO 'ASXE1'.
   3073					; HOWEVER, THE DECISION TO TRANSFER TO 'ASXE1' IS NOT MADE UNTIL THE
   3074					; "TASK STATUS SERVICE" FOR THE DIRECTIVE ISSUING TASK HAS BEEN PERFORMED.
   3075					;
   3076					; WHENEVER CONTROL IS TRANSFERRED TO THE ATL SCAN ROUTINE AND A TASK IS
   3077					; CURRENT, THE PS, PC, R5, & R4 OF THE CURRENT TASK  HAVE BEEN PUSHED
   3078					; ONTO THE  STACK.
   3079					;-
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 69
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3081	013610	142737 	000001 	001014'	ASXE1::	BICB	#EV.SE,.SERFG+0	;CLEAR SIGNIFICANT EVENT FLAG, AND SET
   3082	013616	012705 	007106'			MOV	#.ATLLH,R5	;R5 TO THE ADDRESS OF THE FIRST ATL NODE.
   3083									;DISPATCH PER TASK STATUS
   3084					;
   3085					; SCAN LOOP -- AFTER PROCESSING AN ATL ENTRY, CONTROL IS TRANSFERRED EITHER:
   3086					; (1) TO 'ASXSCN' TO PROCESS THE NEXT ATL NODE, OR (2) TO 'ASXTE' TO
   3087					; TERMINATE THE ATL SCAN (A RUNABLE TASK HAS BEEN FOUND).
   3088					;
   3089					; CONTROL IS TRANSFERRED HERE FROM A ATL SCAN SERVICE ROUTINE, WITH THE
   3090					;  STACK AND R5 UNCHANGED FROM THE DISPATCH TO THAT SERVICE ROUTINE.
   3091					;
   3092	013622	011505 			ASXSCN:	MOV	@R5,R5		;ADVANCE R5 TO THE NEXT ATL NODE,
   3093	013624	116504 	000014 		ASXE2:	MOVB	A.TS(R5),R4	;DISPATCH PER ACTIVE TASK STATUS, WITH
   3094	013630	000174 	013632'			JMP	@ASXDT-02(R4)	;R0 = ATL NODE ADR & R4 = STATUS.
   3095					;
   3096	013634				ASXDT:		;STATUS DEFINITIONS & DISPATCH ADDRESS TABLE.
   3097							;
   3098							;THE DISPATCH ROUTINE AT 'ASXE2' EXPECTS THE DISPATCH TABLE
   3099							;TO BEGIN WITH STATUS "02" AND INCREASE SEQUENTIALLY BY TWOS.
   3100							;
   3101					;
   3102		000002 			TS.LRQ==02	;TASK LOAD REQEUST QUEUED
   3103	013634	014032'				ASXLRQ
   3104		000004 			TS.TKN==04	;TASK WAITING FOR TERMINATION NOTICE
   3105	013636	013622'				ASXSCN
   3106		000006 			TS.LRF==06	;TASK LOAD REQUEST FAILED
   3107	013640	013774'				ASXLRF
   3108		000010 			TS.RUN==10	;** TASK IS RUNNING
   3109	013642	014442'				ASXTE
   3110		000012 			TS.SUS==12	;** TASK IS SUSPENDED
   3111	013644	013622'				ASXSCN
   3112		000014 			TS.WF0==14	;** TASK WAITING FOR AN EVENT FLAG 1-14
   3113							;** ('TS.WF0'-'TS.WS4' ARE EXPECTED IN SEQUENCE
   3114							;** BY THE WAITFOR DIRECTIVES.)
   3115	013646	013662'				ASXWR0
   3116		000016 			TS.WF1==16	;** TASK WAITING FOR AN EVENT FLAG 17-32
   3117	013650	013672'				ASXWR1
   3118		000020 			TS.WF2==20	;** TASK WAITING FOR AN EVENT FLAG 33-48
   3119	013652	013702'				ASXWR2
   3120		000022 			TS.WF3==22	;** TASK WAITING FOR AN EVENT FLAG 49-64
   3121	013654	013712'				ASXWR3
   3122		000024 			TS.WF4==24	;** TASK WAITING FOR AN EVENT FLAG 1-64
   3123	013656	013722'				ASXWR4
   3124		000026 			TS.EXT==26	;TASK EXITED
   3125	013660	014150'				ASXEXT
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 70
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3127					;
   3128					; SERVICE FOR "WAITFOR" TASK STATUSES
   3129					;
   3130					; A TASK (THE TASK WHOSE ATL NODE IS POINTED TO BY R5) HAS ISSUED A
   3131					; WAITFOR DIRECTIVE.  IF ANY INDICATED EVENT FLAG IS SET, CHANGE TASK'S
   3132					; TO "RUNNING", AND TERMINATE ATL SCAN TO RUN THE TASK.
   3133					;
   3134					; TASK IS WAITING FOR INDICATED FLAG(S) IN RANGE ZERO (FLAGS 1-16)
   3135					;
   3136	013662	036565 	000024 	000020 	ASXWR0:	BIT	A.FM+0(R5),A.EF+0(R5)
   3137	013670	000433 				BR	ASXCMN
   3138					;
   3139					; TASK IS WAITING FOR INDICATED FLAG(S) IN RANGE ONE (FLAGS 17-32)
   3140					;
   3141	013672	036565 	000024 	000022 	ASXWR1:	BIT	A.FM+0(R5),A.EF+2(R5)
   3142	013700	000427 				BR	ASXCMN
   3143					;
   3144					; TASK IS WAITING FOR INDICATED FLAG(S) IN RANGE TWO (FLAGS 33-48)
   3145					;
   3146	013702	036537 	000024 	001010'	ASXWR2:	BIT	A.FM+0(R5),.COMEF+0
   3147	013710	000423 				BR	ASXCMN
   3148					;
   3149					; TASK IS WAITING FOR INDICATED FLAG(S) IN RANGE THREE (FLAGS 49-64)
   3150					;
   3151	013712	036537 	000024 	001012'	ASXWR3:	BIT	A.FM+0(R5),.COMEF+2
   3152	013720	000417 				BR	ASXCMN
   3153					;
   3154					; TASK IS WAITING FOR INDICATED FLAG(S) IN RANGE FOUR (FLAGS 1-64)
   3155					;
   3156	013722	036565 	000024 	000020 	ASXWR4:	BIT	A.FM+0(R5),A.EF+0(R5)
   3157	013730	001014 				BNE	WFXSET
   3158	013732	036565 	000026 	000022 		BIT	A.FM+2(R5),A.EF+2(R5)
   3159	013740	001010 				BNE	WFXSET
   3160	013742	036537 	000030 	001010'		BIT	A.FM+4(R5),.COMEF+0
   3161	013750	001004 				BNE	WFXSET
   3162	013752	036537 	000032 	001012'		BIT	A.FM+6(R5),.COMEF+2
   3163	013760	001720 			ASXCMN:	BEQ	ASXSCN
   3164	013762				WFXSET:
   3165	013762	112765 	000010 	000014 		MOVB	#TS.RUN,A.TS(R5)
   3166	013770	000137 	014442'			JMP	ASXTE
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 71
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3168					;
   3169					; SERVICE FOR TASK STATUS: LOAD REQUEST FAILED
   3170					;
   3171	013774	012765 	000040 	000024 	ASXLRF:	MOV	#TN.LRF,A.FM+0(R5) ;SET LOAD REQUEST FAILURE
   3172	014002	112765 	000004 	000014 		MOVB	#TS.TKN,A.TS(R5) ;SET TERMINATION NOTICE REQUESTED
   3173	014010	005237 	001124'			INC	.TKTN		;REQUEST TASK TERMINATION
   3174	014014	026527 	000006 	007772'		CMP	A.PD(R5),#F11TPD ;F11  TPD PARTITION?
   3175	014022	001300 				BNE	ASXE2		;NO -- CONTINUE
   3176	014024					.CRASH	LRF		;LOAD REQUEST FAILURE
	014024	000004 				IOT
	014026	   114 	   122 	   106 		.ASCIZ	/LRF/
	014031	   000
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 72
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3178					;
   3179					; SERVICE FOR TASK REQUEST QUEUE'D SERVICE
   3180					;
   3181	014032	006265 	000020 		ASXLRQ:	ASR	A.EF+0(R5)	;CHECK FOR REQUEST TO LOAD DONE
   3182	014036	103271 				BCC	ASXSCN		;NO -- CONTINUE TO WAIT
   3183	014040	105765 	000030 			TSTB	A.FM+4(R5)	;DID THE I/O SUCCEED?
   3184	014044	100753 				BMI	ASXLRF		;NO -- COMPLAIN
   3185	014046	112765 	000010 	000014 		MOVB	#TS.RUN,A.TS(R5) ;SET THE TASK STATUS TO RUNNING
   3186	014054	016504 	000012 			MOV	A.HA(R5),R4	;FIND THE HEADER ADDRESS
   3193	014060	016446 	000106 			MOV	H.TKVA(R4),-(SP) ;SAVE THE SST ADDRESS
   3194	014064	016446 	000076 			MOV	H.IPC(R4),-(SP)	;SAVE INITIAL PC
   3195	014070	016446 	000074 			MOV	H.IPS(R4),-(SP)	;SAVE INITIAL PS
   3196	014074	016446 	000130 			MOV	H.LUT(R4),-(SP)	;FIND OVERLAY LUN
   3197	014100	006316 				ASL	@SP		;MAKE OFFSET
   3198	014102	006316 				ASL	@SP
   3199	014104	062716 	000126 			ADD	#H.LUT-2,@SP	;POINT TO START OF LUT
   3200	014110	060416 				ADD	R4,@SP		;POINT TO CORRECT LUT
   3201	014112	016536 	000022 			MOV	A.EF+2(R5),@(SP)+ ;SET LUT
   3202	014116	016404 	000100 			MOV	H.ISP(R4),R4	;FIND INITIAL STACK
   3203	014122	012644 				MOV	(SP)+,-(R4)	;STORE THE PS
   3204	014124	012644 				MOV	(SP)+,-(R4)	;STORE THE PC
   3205	014126	162704 	000014 			SUB	#14,R4		;INCLUDE REGISTER SAVE
   3206	014132	010465 	000004 			MOV	R4,A.SP(R5)	;SET STACK VALUE
   3207	014136	016504 	000016 			MOV	A.TD(R5),R4	;FIND THE STD ADDRESS
   3208	014142	012664 	000030 			MOV	(SP)+,S.SS(R4)	;SET SST ADDRESS
   3209	014146	000535 				BR	ASXTE		;GO TO START THE TASK
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 73
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3211					;
   3212					; SERVICE FOR TASK STATUS: EXIT
   3213					;
   3214	014150	010446 			ASXEXT:	MOV	R4,-(SP)
   3215	014152	010346 				MOV	R3,-(SP)
   3216	014154	010246 				MOV	R2,-(SP)
   3217	014156	010146 				MOV	R1,-(SP)
   3218	014160	010046 				MOV	R0,-(SP)
   3219	014162	016502 	000016 			MOV	A.TD(R5),R2	;FIND THE STD ADDRESS
   3220	014166	016500 	000006 			MOV	A.PD(R5),R0	;FIND THE TPD ADDRESS
   3221	014172	042762 	000001 	000006 		BIC	#SF.TA,S.FW(R2)	;CLEAR ACTIVE FLAG IN STD
   3222	014200				10$:
   3223	014200	032762 	000002 	000006 		BIT	#SF.FX,S.FW(R2)	;CHECK TO SEE IF TASK FIXED
   3224	014206	001003 				BNE	20$		;YES -- DON'T FREE CORE
   3225					;
   3226					;
   3227					; FREE MEMORY (AND POSSIBLY START TASK WAITING FOR MEMORY) AND RETURN
   3228					; ATL NODE TO POOL.
   3229					;
   3230	014210	042760 	000002 	000010 		BIC	#TF.OU,T.FW(R0) ;RELEASE PARTITION
   3231					;
   3232					;
   3233	014216	010504 			20$:	MOV	R5,R4		;POINT R5 TO THE NEXT LOWEST PRIORITY TASK'S
   3234	014220	010501 				MOV	R5,R1		;ATL NODE, DELETE NODE FROM ATL, AND RETURN
   3235	014222	011505 				MOV	@R5,R5		;IT TO THE POOL.
   3236	014224					CALL	..NDEL
	014224	004737 	044062'			JSR	PC,..NDEL
   3237	014230	012704 	001424'			MOV	#.POLLH,R4	;RETURN THE NODE TO THE POOL
   3238	014234					CALL	..NADD
	014234	004737 	044176'			JSR	PC,..NADD
   3239	014240	032762 	000004 	000006 		BIT	#SF.EX,S.FW(R2)	;HAS THE TASK BEEN REQUESTED TO EXIT?
   3240	014246	001426 				BEQ	50$		;NO -- JUST CONTINUE
   3241	014250	010046 				MOV	R0,-(SP)	;SAVE R0 (TPD ADDRESS)
   3242	014252	013700 	006334'			MOV	.STDTA,R0	;FIND THE HEAD OF THE STD LIST
   3243	014256	013703 	006340'			MOV	.STDTZ,R3	;FIND THE SIZE OF THE LIST
   3244	014262	162737 	000002 	006340'		SUB	#2,.STDTZ	;RESET THE SIZE FOR NOW IT IS SMALLER
   3245	014270	006203 				ASR	R3		;DIVIDE BY 2
   3246	014272	005203 				INC	R3		;MAKE 1 LARGER BECAUSE IT IS 2*N-2
   3247	014274	020210 			30$:	CMP	R2,@R0		;THE CORRECT ENTRY?
   3248	014276	001403 				BEQ	40$		;YES -- FOUND IT
   3249	014300	005720 				TST	(R0)+		;NO -- CONTINUE SEARCH
   3250	014302	005303 				DEC	R3		;CONTINUE SCAN
   3251	014304	000773 				BR	30$
   3252					;
   3253	014306	016020 	000002 		40$:	MOV	2(R0),(R0)+	;MOVE ENTRIES BACK
   3254	014312	077303 				SOB	R3,40$		;UNTIL DONE
   3255	014314	010201 				MOV	R2,R1		;RETURN NODE TO POOL
   3256									;NOTE -- R4 STILL POINTS TO .POLLH
   3257									;FROM ABOVE RETURN OF ATL!!!!!
   3258	014316					CALL	..NADD		;RETURN NODE
	014316	004737 	044176'			JSR	PC,..NADD
   3259	014322	012600 				MOV	(SP)+,R0	;RESTORE R0
   3260	014324	032760 	000002 	000010 	50$:	BIT	#TF.OU,T.FW(R0)	;CHECK FOR PARTITION OCCUPIED
   3261	014332	001025 				BNE	60$		;YES -- DON'T TRY TO START TASK
   3262	014334	010004 				MOV	R0,R4		;SET UP TO PICL A NODE FROM MRL
   3263	014336	062704 	000014 			ADD	#T.RF,R4	;POINT TO MRL
   3264	014342					CALL	..PICK		;PICK NODE
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 73-1
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

	014342	004737 	044240'			JSR	PC,..PICK
   3265	014346	103417 				BCS	60$		;NONE FOUND -- DON'T ATTEMPT TO START
   3266	014350	010401 				MOV	R4,R1		;SAVE THE NODE ADDRESS FOUND
   3267	014352	022424 				CMP	(R4)+,(R4)+	;POINT TO THE ENTRIES IN THE NDOE
   3268	014354	012402 				MOV	(R4)+,R2	;SET UP TO CALL .REQS
   3269	014356	012403 				MOV	(R4)+,R3
   3270	014360	012446 				MOV	(R4)+,-(SP)	;PUSH PRI
   3271	014362	012704 	001424'			MOV	#.POLLH,R4	;RETURN THE NODE TO THE POOL
   3272	014366					CALL	..NADD		;RETURN NODE
	014366	004737 	044176'			JSR	PC,..NADD
   3273	014372	012604 				MOV	(SP)+,R4	;GET THE PRIORITY
   3274	014374	042762 	000001 	000006 		BIC	#SF.TA,S.FW(R2) ;CLEAR TASK ACTIVE FLAGS
   3275	014402					CALL	.REQS		;REQUEST THE TASK
	014402	004737 	015046'			JSR	PC,.REQS
   3276					;
   3277	014406	012600 			60$:	MOV	(SP)+,R0	;POP (RESTORE) R0,R2,R1
   3278	014410	012601 				MOV	(SP)+,R1
   3279	014412	012602 				MOV	(SP)+,R2
   3280	014414	012603 				MOV	(SP)+,R3
   3281	014416	012604 				MOV	(SP)+,R4
   3282					;
   3283					; IF EXITING TASK IS NOT "CURRENT", ITS CONTEXT IS STORED IN ITS STACK.
   3284					; IF EXITING TASK IS "CURRENT", ITS PS, PC, R5, & R4 ARE STORED ON THE
   3285					;  STACK AND THE REMAINDER OF ITS CONTEXT IS LOADED.
   3286					;
   3287					; R1 CONTAINS THE ADDRESS OF THE ATL NODE (WHICH HAS BEEN RETURNED TO THE
   3288					; POOL) OF THE EXITING TASK.
   3289					;
   3290	014420	020537 	001006'			CMP	R5,.CRTSK	;IF EXITING TASK IS "CURRENT", REMOVE (POP)
   3291	014424	001004 				BNE	70$		;ITS R4, R5, PC, & PS FROM THE  STACK
   3292	014426	062706 	000010 			ADD	#8.,SP		;(POP)
   3293	014432	005037 	001006'			CLR	.CRTSK
   3294	014436				70$:
   3295	014436	000137 	013624'			JMP	ASXE2		;DISPATCH PER STATUS OF TASK POINTED TO BY R5.
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 74
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3297					;
   3298					; TERMINATION OF ATL SCAN -- A TASK THAT CAN BE RUN HAS BEEN FOUND
   3299					;
   3300					; CONTROL IS TRANSFERRED HERE WITH THE PS, PC, R5, & R4 OF THE CURRENT
   3301					; TASK PUSHED ONTO THE  STACK.
   3302					;
   3303					; CONTROL IS TRANSFERRED HERE EITHER BY DIRECT DISPATCH, OR FROM AN ATL
   3304					; SCAN SERVICE ROUTINE.  IN EITHER CASE, THE  STACK AND R5 ARE
   3305					; UNCHANGED FROM THE LAST ATL SCAN DISPATCH.
   3306	014442	020537 	001006'		ASXTE:	CMP	R5,.CRTSK	;IS CONTROL RETURNING TO CURRENT TASK?
   3307	014446	001461 				BEQ	CSDONE		;YES -- RESTORE R5, R4, PS, & PC FROM STACK
   3308	014450	132737 	000001 	001014'		BITB	#EV.SE,.SERFG+0	;NO -- HAS A SIGNIFICANT EVENT OCCURRED?
   3309	014456	001402 				BEQ	10$
   3310	014460	000137 	013610'			JMP	ASXE1		;YES -- RESTART ATL SCAN
   3311
   3312	014464	112737 	000340 	177776 	10$:	MOVB	#340,@#PS	;INHIBIT INTERRUPTS WHILE CONTEXT SWITCHING
   3313	014472	013704 	001006'			MOV	.CRTSK,R4	;NO -- IS THERE A CURRENT TASK?
   3314	014476	001420 				BEQ	40$		;NO -- (CURRENT TASK EXITED) NO CONTEXT TO SAVE
   3315									;YES -- SAVE CONTEXT OF OLD CURRENT TASK, AND
   3316									;LOAD CONTEXT OF NEW CURRENT TASK.
   3317
   3319	014500	010346 				MOV	R3,-(SP)	;PUSH R3
   3320	014502	010246 				MOV	R2,-(SP)	;PUSH R2
   3321	014504	010146 				MOV	R1,-(SP)	;PUSH R1
   3322	014506	010046 				MOV	R0,-(SP)	;PUSH R0
   3323	014510	016400 	000012 			MOV	A.HA(R4),R0	;FIND THE HEADER ADDRESS
   3330	014514	062700 	000046 			ADD	#H.DSW,R0	;POINT TO DSW
   3331	014520	012701 	000046 			MOV	#$DSW,R1	;POINT TO DSW
   3332	014524	012120 				MOV	(R1)+,(R0)+	;SAVE THE CONTEXT OF LOW CORE
   3333	014526	012120 				MOV	(R1)+,(R0)+
   3334	014530	012120 				MOV	(R1)+,(R0)+
   3335	014532	011110 				MOV	@R1,@R0
   3336	014534	010664 	000004 			MOV	SP,A.SP(R4)	;SAVE OLD PS
   3337	014540	016506 	000004 		40$:	MOV	A.SP(R5),SP	;SET UP NEW STACK
   3338	014544	016500 	000012 			MOV	A.HA(R5),R0	;RESTORE CONTEXT
   3345	014550	062700 	000054 			ADD	#H.DSW+6,R0	;POINT TO DSW SAVE
   3346	014554	012701 	000054 			MOV	#$DSW+6,R1
   3347	014560	011011 				MOV	@R0,@R1
   3348	014562	014041 				MOV	-(R0),-(R1)
   3349	014564	014041 				MOV	-(R0),-(R1)
   3350	014566	014041 				MOV	-(R0),-(R1)
   3351	014570	012600 				MOV	(SP)+,R0	;RESTORE REGISTERS FROM THE IS TASK
   3352	014572	012601 				MOV	(SP)+,R1
   3353	014574	012602 				MOV	(SP)+,R2
   3354	014576	012603 				MOV	(SP)+,R3
   3356
   3393
   3394	014600	010537 	001006'			MOV	R5,.CRTSK	;SET NEW '.CRTSK' (ATL NODE ADR OF CURRENT TASK).
   3395	014604	142737 	000300 	177776 		BICB	#300,@#PS	;LOWER TO PRI 1 AFTER CONTEXT SWITCH
   3396
   3397	014612				CSDONE:		;CONTEXT SWITCH (IF REQUIRED) IS DONE.
   3399	014612	052766 	004000 	000006 		BIS	#4000,6(SP)	;SET REG SET 1
   3400	014620	042766 	170000 	000006 		BIC	#170000,6(SP)	;CLEAR OFF MODE BITS
   3402					;
   3403					; A TASK'S PS, PC, R5, & R4 ARE ON THE  STACK, AND THE TASK'S ATL
   3404					; NODE ADDRESS IS IN R5.  I.E., CONDITIONS ARE CORRECT FOR AN ATL SCAN
   3405					;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 74-1
EXEC MODULE THREE -- SCAN OF ACTIVE TASK LIST

   3406					;
   3407					; IF THE TASK'S STATUS IS "RUNNING", CONTROL IS RETURNED TO THE TASK
   3408					; (UNLESS A SIGNIFICANT EVENT HAS BEEN DECLARED, IN WHICH CASE, CONTROL
   3409					; WILL BE RETURNED LATER).
   3410					;
   3411					;
   3412	014626	012604 				MOV	(SP)+,R4	;POP (RESTORE) R4
   3413	014630	012605 				MOV	(SP)+,R5	;POP (RESTORE) R5
   3414					;
   3415					; TRANSFER CONTROL TO TASK VIA COMMON "RETURN TO INTERRUPTED PROGRAM"
   3416					; ROUTINE (CLOCK AND/OR EVENT RECOGNITION MAY CAUSE ACTUAL TRANSFER TO
   3417					; OCCUR LATER IN REAL TIME).
   3418					;
   3419					;	BR	..INTX
   3420						;
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 75
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3422						.SBTTL	EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM
   3423					;
   3424					; MOST INTERRUPT SERVICE ROUTINES ARE CONTAINED WITHIN I/O HANDLER TASKS
   3425					; CONTROL IS TRANSFERRED TO A TASK CONTAINED INTERRUPT SERVICE ROUTINE,
   3426					; WHEN THE INTERRUPT SERVICE ROUTINE WAS "CONNECTED" TO THE INTERRUPT.
   3427					;
   3428					; CONTROL IS TRANSFERRED TO A TASK CONTAINED INTERRUPT SERVICE ROUTINE
   3429					; WITH THE INTERRUPTED PROGRAM'S PS & PC,
   3430					;
   3431					; ALL TASK CONTAINED INTERRUPT SERVICE ROUTINES EXIT VIA "JMP ..INTX" WITH
   3432					; PS & PC OF THE INTERRUPTED PROGRAM
   3433					;
   3434					; THE '..INTX' ROUTINE  EFFECTS A RETURN OF CONTROL
   3435					; TO THE INTERRUPTED PROGRAM.
   3436					;
   3437					; WITH THE PS & PC OF THE INTERRUPTED PROGRAM ON THE  STACK.
   3438					;
   3439					; THE 'EXINTX' ROUTINE EFFECTS A RETURN TO THE INTERRUPTED PROGRAM.
   3440					;
   3441					; WHENEVER CONTROL IS RETURNED TO OTHER THAN A TASK (NON-ZERO PRI),
   3442					; CONTROL IS TRANSFERRED DIRECTLY TO THE INTERRUPTED PROGRAM.  HOWEVER,
   3443					; WHEN CONTROL IS BEING RETURNED TO A TASK (PRI=0), THE "SYSTEM
   3444					; EVENT RECOGNITION FLAG" IN THE SYSTEM COMMUNICANTIONS AREA (SCOM) IS
   3445					; EXAMINED, AND IF FOUND NON-ZERO, THE INDICATED EVENTS ARE RECOGNIZED
   3446					; BEFORE CONTROL IS RETURNED TO THE INTERRUPTED TASK.
   3447					;
   3448
   3449	014632				..INTX::			;NORMAL ISR EXIT
   3450	014632	052737 	000340 	177776 		BIS	#000340,@#PS	;;;INHIBIT INTERRUPTS (RAISE PRIORITY TO 7)
   3451	014640	032766 	000340 	000002 		BIT	#000340,+2(SP)	;;;IS CONTROL RETURNING TO A TASK (PRI=0)?
   3452	014646	001010 				BNE	CRTNXA		;;;YES -- EXAMINE SYSTEM EVENT RECOGNITION FLAG
   3453
   3454	014650	005737 	001026'			TST	.PFAIL		;;;POWER FAIL SERVICE?
   3455	014654	001402 				BEQ	CRTNX1		;;;NO -- JUST RETURN
   3456	014656	000137 	017574'			JMP	.PWRDN		;;;YES -- POWER DOWN
   3457
   3458	014662	005737 	001014'		CRTNX1:	TST	.SERFG		;;;** ANY UNRECOGNIZED "SYSTEM EVENTS"?
   3459	014666	001001 				BNE	CRTNX3		;;;** YES -- TRANSFER CONTROL TO APPROPRIATE
   3460									;;;** EVENT RECOGNITON ROUTINE.
   3461	014670				CRTNXA:
   3462					;	CMP	.DBRTT,SP	;;;** ## NO -- IS CONTROL RETURNING FROM SYSTEM
   3463					;	BNE	10$		;;;** ## TRACE DEBUGGING ROUTINE?
   3464					;	CLR	.DBRTT		;;;** ## YES -- RETURN VIA "RTT" INSTEAD OF "RTI"
   3465					;	RTT			;;;** ##
   3466	014670				10$:				;;;** ##
   3467	014670	000002 			CRTNX2:	RTI			;;;** NO -- RETURN CONTROL TO TASK
   3468
   3469									;** A RACE CONDITION EXISTS WHENEVER A
   3470									;POWER FAILURE OCCURS WHILE EXECUTING
   3471									;BETWEEN 'CRTNX1' AND 'CRTNX2'.  TO
   3472									;AVOID THIS CONDITION, THE POWER FAIL
   3473									;TRAP SERVICE ROUTINE SETS THE PC TO
   3474									;'CRTNX1' WHENEVER IT INTERRUPTS EXECUTION
   3475									;IN THE RANGE 'CRTNX1' THRU 'CRTNX2'.
   3476					;
   3477					; A SYSTEM EVENT IS TO BE RECOGNIZED (NON-ZERO '.SERFG'), CONTROL IS
   3478					; TRANSFERRED TO SERVICE ROUTINE PER '.SERFG'
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 75-1
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3479					;   PRI=2, CONDITION CODES CLEARED, AND THE
   3480					; INTERRUPTED TASK'S PS, PC, R5 & R4 PUSHED ONTO THE  STACK.
   3481					;
   3482	014672	010546 			CRTNX3:	MOV	R5,-(SP)	;;;PUSH R5
   3483	014674	010446 				MOV	R4,-(SP)	;;;PUSH R4
   3484
   3485	014676	012746 	034100 			MOV	#034100,-(SP)
   3486	014702	105737 	001015'			TSTB	.SERFG+1	;;;UN-RECOGNIZED CLOCK TICK(S)?
   3487	014706	001403 				BEQ	10$		;;;
   3488						 			;;;YES -- RECOGNIZE CLOCK TICKS (NORMALLY
   3489	014710	012746 	024364'			MOV	#.TICK,-(SP)	;;;ONLY ONE)
   3490	014714	000002 				RTI			;;;
   3491	014716	132737 	000201 	001014'	10$:	BITB	#EV.SE!EV.PF,.SERFG+0	;;;NO -- SIGNIFICANT EVENT RECOGNITION?
   3492	014724	100437 				BMI	60$			;;;OR POWER FAIL
   3493	014726	001403 				BEQ	30$		;;;
   3494						 			;;;YES -- SCAN ATL FROM THE TOP
   3495	014730	012746 	013610'		20$:	MOV	#ASXE1,-(SP)	;;;
   3496	014734	000002 				RTI			;;;
   3497
   3498	014736	132737 	000002 	001014'	30$:	BITB	#EV.AS,.SERFG+0	;;;AST?
   3499	014744	001435 				BEQ	70$		;;;YIPES -- GOOFED AND SYSTEM BROKEN
   3500	014746	010316 				MOV	R3,@SP		;;;SAVE CONTEXT
   3501	014750	010246 				MOV	R2,-(SP)
   3502	014752	010146 				MOV	R1,-(SP)
   3503	014754	010046 				MOV	R0,-(SP)
   3507	014756	012746 	004000 			MOV	#004000,-(SP)
   3509	014762	013746 	001050'			MOV	.CKASS,-(SP)	;;;SET AST ADDRESS
   3510	014766	001411 				BEQ	50$		;;;NOT THIS TYPE
   3511	014770	005037 	001050'			CLR	.CKASS		;;;CLEAR THIS FOR NEXT TIME
   3512	014774	005737 	001052'			TST	.PFASS		;;;POWER FAIL ALSO?
   3513	015000	001334 				BNE	CRTNX3		;;;YES -- BETTER DO IT TOO
   3514	015002	142737 	000002 	001014'	40$:	BICB	#EV.AS,.SERFG+0	;;;CLEAR THIS FLAG
   3515	015010	000002 				RTI			;;;RETURN TO USER
   3516
   3517	015012	013716 	001052'		50$:	MOV	.PFASS,@SP	;;;SET UP POWER FAIL AST
   3518	015016	005037 	001052'			CLR	.PFASS		;;;CLEAR POWER FAIL AST ADDRESS
   3519	015022	000767 				BR	40$		;;;AND RETURN TO USER
   3520
   3521	015024	142737 	000200 	001014'	60$:	BICB	#EV.PF,.SERFG+0	;;;CLEAR POWER FAIL FLAG
   3522	015032					CALL	.PFRST		;;;POWER FAIL RESTART
	015032	004737 	020126'			JSR	PC,.PFRST
   3523	015036	000734 				BR	20$		;;;RETURN
   3524
   3525	015040				70$:	.CRASH	IAS		;;;CRASH SYSTEM UNKNOWN SIG EVENT
	015040	000004 				IOT
	015042	   111 	   101 	   123 		.ASCIZ	/IAS/
	015045	   000
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 76
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3527					;
   3528					;  .REQS -- SUBROUTINE TO ATTEMPT TO MAKE A TASK ACTIVE
   3529					;
   3530					; ENTRY CONDITIONS:
   3531					;
   3532					;	R2 -- STD ENTRY ADDRESS (TASK ID ) OF REQUESTED TASK
   3533					;	R3 -- TPD ENTRY ADDRESS, OR ZERO (DEFAULT PARTITION) , FOR REQUESTED TASK
   3534					;	R4 -- RUN PRIORITY, OR ZERO (DEFAULT PRIORITY), FOR REQUESTED TASK
   3535					;
   3536					;  CALLING SEQUENCE:
   3537					;
   3538					;	CALL	.REQS
   3539					;
   3540					;   EXIT CONDITIONS:
   3541					;
   3542					;	R2=00 -- TASK MADE ACTIVE
   3543					;	R2=02 -- TASK NOT MADE ACTIVE, TASK ALREADY ACTIVE
   3544					;	R2=06 -- TASK NOT MADE ACTIVE, INSUFFICIENT POOL NODE(S)
   3545					;
   3546					;	REGISTERS ALTERED:
   3547					;	R0,R1,R2,R3,R4
   3548					;
   3549					;
   3550	015046	032762 	000001 	000006 	.REQS::	BIT	#SF.TA,S.FW(R2)	;IS TASK ACTIVE?
   3551	015054	001403 				BEQ	10$		;NO -- IT IS LEGAL TO ACTIVATE IT
   3552	015056	012702 	000002 			MOV	#2,R2		;YES -- RETURN +2
   3553	015062					RETURN
	015062	000207 				RTS	PC
   3554
   3555	015064	005703 			10$:	TST	R3		;CHECK THE PARTITION
   3556	015066	001002 				BNE	20$		;PARTITION SPECIFIED
   3557	015070	016203 	000004 			MOV	S.TD(R2),R3	;PARTITION NOT SPECIFIED -- USE DEFAULT
   3558	015074	005704 			20$:	TST	R4		;PRIORITY?
   3559	015076	001002 				BNE	30$		;YES -- DON'T USE DEFAULT
   3560	015100	156204 	000010 			BISB	S.DP(R2),R4	;FIND THE DEFAULT PRIORITY
   3561	015104	010446 			30$:	MOV	R4,-(SP)	;SAVE PRI
   3562	015106	010346 				MOV	R3,-(SP)	;SAVE TPD
   3563	015110	012704 	001424'			MOV	#.POLLH,R4	;PICK AN ATL NODE
   3564	015114					CALL	..PICK
	015114	004737 	044240'			JSR	PC,..PICK
   3565	015120	103004 				BCC	50$		;GOT NODE
   3566	015122	022626 			40$:	CMP	(SP)+,(SP)+	;REMOVE SAVED TPD AND PRI
   3567	015124	012702 	000006 			MOV	#6,R2		;COMPLAIN NO NODES AVAILABLE
   3568	015130					RETURN			;RETURN TO CALLER
	015130	000207 				RTS	PC
   3569
   3570	015132	032762 	000002 	000006 	50$:	BIT	#SF.FX,S.FW(R2)	;FIXED IN CORE?
   3571	015140	001436 				BEQ	70$		;NO -- MUST READ THE TASK IN
   3572	015142	010401 				MOV	R4,R1		;SAVE NODE ADDRESS
   3573	015144	016204 	000022 			MOV	S.SP(R2),R4	;SET UP STACK
   3574	015150	062704 	000014 			ADD	#14,R4		;SET POINTER TO PC
   3575	015154	016224 	000020 			MOV	S.PC(R2),(R4)+	;SET PC
   3576	015160	012724 	174000 			MOV	#174000,(R4)+	;SET UP PS
   3577	015164	012703 	000010 			MOV	#TS.RUN,R3	;SET UP TO START TASK
   3578	015170	010104 			60$:	MOV	R1,R4		;SAVE THE ATL NODE ADDRESS
   3579	015172	022424 				CMP	(R4)+,(R4)+	;MOVE OVER LISTHEAD
   3580	015174	016224 	000022 			MOV	S.SP(R2),(R4)+	;SET INITIAL STACK POINTER
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 76-1
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3581	015200	012624 				MOV	(SP)+,(R4)+	;SET UP TPD AND PRI
   3582	015202	012624 				MOV	(SP)+,(R4)+
   3583	015204	016224 	000012 			MOV	S.BA(R2),(R4)+	;SET BASE ADDRESS
   3584	015210	010324 				MOV	R3,(R4)+	;SET RUN STATE
   3585	015212	010224 				MOV	R2,(R4)+	;SET STD NODE ADDRESS
   3586	015214	005024 				CLR	(R4)+
   3587	015216	005064 	000012 			CLR	A.PF-A.EF-2(R4)	;CLEAR POWER FAIL AST ADDRESS
   3588	015222	052762 	000001 	000006 		BIS	#SF.TA,S.FW(R2)	;SET TASK ACTIVE
   3589	015230	012702 	007106'			MOV	#.ATLLH,R2	;INSERT NODE INTO ATL
   3590	015234	000535 				BR	120$
   3591
   3592	015236	032763 	000002 	000010 	70$:	BIT	#TF.OU,T.FW(R3)	;PARTITION BUSY?
   3593	015244	001116 				BNE	110$		;YES -- BETER PUT IN MRL
   3594	015246	010446 				MOV	R4,-(SP)	;SAVE NODE ADDRESS OF ATL NODE
   3595	015250	012701 	000040 			MOV	#32.,R1		;PICK AN I/O NODE
   3596	015254					CALL	..ALCB
	015254	004737 	044416'			JSR	PC,..ALCB
   3597	015260	010004 				MOV	R0,R4		;SET CORRECT NODE ADDRESS
   3598	015262	103006 				BCC	80$		;GOT ONE
   3599	015264	012601 				MOV	(SP)+,R1	;NONE AVAILABLE -- RETURN ATL NODE
   3600	015266	012704 	001424'			MOV	#.POLLH,R4
   3601	015272					CALL	..NADD		;ADD NODE BACK TO ATL
	015272	004737 	044176'			JSR	PC,..NADD
   3602	015276	000711 				BR	40$		;RETURN +6
   3603
   3604	015300	010446 			80$:	MOV	R4,-(SP)	;SAVE NODE ADDRESS
   3605	015302	022424 				CMP	(R4)+,(R4)+	;MOVE OVER LISTHEAD
   3606	015304	010224 				MOV	R2,(R4)+	;SET UP STD ADDRESS
   3607	015306	016624 	000002 			MOV	2(SP),(R4)+	;SET UP ATL NODE ADDRESS
   3608	015312	012724 	175014 			MOV	#250.*400+12.,(R4)+ ;SET UP PRI/DPB SIZE
   3609	015316	012724 	000400 			MOV	#400,(R4)+	;SET EFN
   3610	015322	012724 	000050 			MOV	#IO.LTK,(R4)+	;CLAIM THIS IS A READ
   3611	015326	005024 				CLR	(R4)+		;NO I/O STATUS
   3612	015330	005024 				CLR	(R4)+		;NO AST ADDRESS
   3613	015332	022424 				CMP	(R4)+,(R4)+	;ADDRESS IS NOT SPECIFIED HERE
   3614	015334	016224 	000014 			MOV	S.LZ(R2),(R4)+	;SET UP INITIAL SIZE
   3615	015340	005024 				CLR	(R4)+		;SKIP THIS PARAMETER
   3616	015342	016224 	000032 			MOV	S.DL(R2),(R4)+	;SET UP DISK ADDRESS
   3617	015346	016224 	000034 			MOV	S.DL+2(R2),(R4)+ ;LOW ORDER DISK ADDRESS
   3618	015352	012601 				MOV	(SP)+,R1	;RESTORE R1
   3619	015354	016603 	000002 			MOV	2(SP),R3	;RESTORE THE TPD ADDRESS
   3620	015360	032763 	000002 	000010 		BIT	#TF.OU,T.FW(R3)	;PARTITON OCCUPIED?
   3621	015366	001407 				BEQ	90$		;NO -- MUST BE OK TO LOAD
   3622	015370	012603 				MOV	(SP)+,R3	;YES -- BETTER ADD IT TO MRL
   3623	015372	012601 				MOV	(SP)+,R1	;RESTORE ATL ADDRESS
   3624	015374	010361 	000030 			MOV	R3,A.FM+4(R1)	;SET THE NODE ADDRESS IN FLAGS MASK WORD TO PRESERVE IT
   3625	015400	012703 	100002 			MOV	#TS.LRQ+100000,R3 ;SET LOAD REQUEST QUEUE'D AND PARTITION BUSY
   3626	015404	000671 				BR	60$		;SET UP ATL
   3627
   3628	015406	010246 			90$:	MOV	R2,-(SP)	;SAVE STD ADDRESS
   3629	015410	052763 	000002 	000010 		BIS	#TF.OU,T.FW(R3)	;DECLARE THE PARTITION OCCUPIED
   3630	015416	005003 				CLR	R3		;FIND PUD ENTRY
   3631	015420	156203 	000011 			BISB	S.DI(R2),R3	;SET DISK INDICATOR
   3632	015424	012702 	010232'			MOV	#.PUDBA,R2	;SET UP FOR ..IPRI
   3633	015430	062702 	000050 		100$:	ADD	#U.SZ,R2	;POINT TO AN ENTRY
   3634	015434	077303 				SOB	R3,100$		;LOOP UNTIL CORRECT ENTRY FOUND
   3635	015436	010203 				MOV	R2,R3		;SAVE THE LOGICAL UNIT NUMBER
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 76-2
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3636	015440	062702 	000022 			ADD	#U.RF,R2	;POINT TO LISTHEAD
   3637	015444					CALL	..IPRI		;ENTER IN LIST
	015444	004737 	044122'			JSR	PC,..IPRI
   3638	015450	014202 				MOV	-(R2),R2	;FIND ATL NODE ADDRESS OF HANDLER TASK
   3639	015452	052762 	000010 	000020 		BIS	#EF.NIR,A.EF(R2) ;START HANDLER
   3640	015460					CALL	..DSEV		;DECLARE SIG EVENT
	015460	004737 	044026'			JSR	PC,..DSEV
   3641	015464	012602 				MOV	(SP)+,R2	;RESTORE STD ADDRESS
   3642	015466	012601 				MOV	(SP)+,R1	;RESTORE R1 (ATL NODE ADDRESS)
   3643	015470	010361 	000022 			MOV	R3,A.EF+2(R1)	;SAVE THE OVERLAY PUD ADDRESS
   3644	015474	012703 	000002 			MOV	#TS.LRQ,R3	;SET UP TO INDICATE LOAD REQUEST QUEUE'D
   3645	015500	000633 				BR	60$		;AND START TASK
   3646
   3647	015502	010401 			110$:	MOV	R4,R1		;SAVE THE NODE ADDRESS
   3648	015504	052762 	000001 	000006 		BIS	#SF.TA,S.FW(R2)	;SET TASK ACTIVE
   3649	015512	022424 				CMP	(R4)+,(R4)+
   3650	015514	010224 				MOV	R2,(R4)+	;SAVE THE ATTRIBUTES OF THIS CALL
   3651	015516	012624 				MOV	(SP)+,(R4)+
   3652	015520	012624 				MOV	(SP)+,(R4)+
   3653	015522	010302 				MOV	R3,R2		;FIND THE MRL
   3654	015524	062702 	000014 			ADD	#T.RF,R2	;POINT TO IT IN TPD
   3655	015530				120$:	CALL	..IPRI		;INSERT THIS NODE IN MRL BY PRI
	015530	004737 	044122'			JSR	PC,..IPRI
   3656	015534	005002 				CLR	R2		;DECLARE TASK ACTIVE
   3657	015536					RETURN			;RETURN TO CALLER
	015536	000207 				RTS	PC
   3658
   3659	015540	104401 			.RQESD::TRAP	DR.01		;RETURN +1
   3660	015542	104771 				TRAP	DE.07		;RETURN -7
   3661	015544	104401 				TRAP	DR.01		;RETURN+1 (CURRENTLY UNUSED)
   3662	015546	104777 				TRAP	DE.01		;RETURN -1
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 77
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3664					;
   3665					;  .FEPPU -- SUBROUTINE TO FETCH PARTITION AND PRIORITY
   3666					;
   3667					;  ENTRY CONDITIONS:
   3668					;
   3669					;	R1 -- DPB PLUS SIX -- POINTING TO FOLLOWING DATA IN PREVIOUS SPACE
   3670					;		[PARTITION NAME (FIRST HALF),
   3671					;		[PARTITION NAME (SECOND HALF),
   3672					;		[PRIORITY],
   3673					;		[UNUSED].
   3674					;
   3675					;	IT IS ASSUMED THAT THESE WORDS CAN BE FETCHED WITHOUT SEGMENT FAULT.
   3676					;
   3677					;	R2 -- STD ENTRY OF TASK TO FIT IN PARTITION
   3678					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK
   3679					;
   3680					;	CALLING SEQUENCE:
   3681					;
   3682					;	CALL	.FEPPU
   3683					;
   3684					;  EXIT CONDITIONS:
   3685					;
   3686					;	R1 -- ADVANCED BY 8 (4 WORDS)
   3687					;	R3 -- TPD ENTRY ADDRESS, OR ZERO (DEFAULT PARTITION)
   3688					;	R4 -- RUN PRIORITY, OR ZERO (DEFAULT PRIORITY)
   3689					;
   3690					;	REGISTERS ALTERED R1,R3,R4
   3691					;
   3692	015550				.FEPPU::MFPI	(R1)+		;PUSH 2-WORD PARTITION NAME ONTO STACK
	015550	012146 				MOV	(R1)+,-(SP)
   3693	015552					MFPI	(R1)+
	015552	012146 				MOV	(R1)+,-(SP)
   3694	015554	005003 				CLR	R3		;CLEAR R3 (TPD ADDRESS
   3695	015556	005766 	000002 			TST	2(SP)		;WAS A PARTITION NAME SPECIFIED?
   3696	015562	001423 				BEQ	20$		;NO -- RETURN WITH ZERO IN R3
   3697	015564	012703 	007552'			MOV	#.TPDBA,R3	;YES -- SET UP TO SCAN TPD FOR PARTITION
   3698	015570	020327 	007552'		10$:	CMP	R3,#.TPDBA	;END OF TPD?
   3699	015574	001425 				BEQ	X.X94		;YES -- RETURN STS=-94.
   3700	015576	162703 	000020 			SUB	#T.SZ,R3	;NO -- SET UP R3 TO EXAMINE ENTRY
   3701	015602	021366 	000002 			CMP	@R3,2(SP)	;PARTITION NAME MATCH?
   3702	015606	001370 				BNE	10$		;NO -- CHECK NEXT TPD
   3703	015610	026316 	000002 			CMP	2(R3),@SP	;MAYBE -- CHECK SECOND HALF OF NAME
   3704	015614	001365 				BNE	10$		;NO -- CHECK NEXT TPD
   3705	015616	016204 	000016 			MOV	S.TZ(R2),R4	;SET R4 TO THE NUMBER OF 32-WORD BLOCKS
   3706									;REQUIRED FOR THE TASK INDICATED BY R2.
   3707	015622	020463 	000006 			CMP	R4,T.PZ(R3)	;IS PARTITION LARG ENOUGH FOR TASK?
   3708	015626	101401 				BLOS	20$		;YES -- SET R4 PER PRIORITY SPECIFIED
   3709	015630	104775 				TRAP	DE.03		;NO -- RETURN STS=-03
   3710
   3711	015632	022626 			20$:	CMP	(SP)+,(SP)+	;REMOVE PARTITION NAME FROM STACK
   3712	015634					MFPS	(R1)+,R4	;SET R4 TO PRIORITY INDICATOR
	015634	012104 				MOV	(R1)+,R4
   3713	015636	020427 	000372 			CMP	R4,#250.	;IS PRIORITY GREATER THAN 250?
   3714	015642	101003 				BHI	X.X95		;YES -- RETURN STS=-95.
   3715	015644	005721 				TST	(R1)+		;MOVE OVER UNUSED WORD
   3716	015646					RETURN			;RETURN TO CALLER
	015646	000207 				RTS	PC
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 77-1
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3717
   3718	015650	104642 			X.X94:	TRAP	DE.94		;RETURN STS=94.
   3719	015652	104641 			X.X95:	TRAP	DE.95		;RETURN STS=95.
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 78
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3721					;
   3722					; .VCLUN -- VERIFY & CONVER LOGICAL UNIT NUMBER
   3723					;
   3724					; ENTRY CONDITIONS:
   3725					;
   3726					;	R5 -- ATL NODE ADR OF DIRECTIVE ISSUING TASK
   3727					;	TOP OF STACK -- LOGICAL UNIT NUMBER
   3728					;
   3729					; CALLING SEQUENCE:
   3730					;
   3731					;	CALL  .VCLUN
   3732					;
   3733					; EXIT CONDITIONS:
   3734					;
   3735					;	R4 -- POINTS TO FIRST LUT ENTRY
   3736					;	CC-C SET IF TASK NOT FOUND
   3737					;
   3738					;	IF LUN IS ASSIGNED TO A PHYSICAL UNIT, THE  LUN (ON TOP OF
   3739					;	STACK) IS REPLACED BY THE ADDRESS OF THE CORRESPONDING PUD
   3740					;	ENTRY.
   3741					;
   3742					;	IF AN INVALID LUN, RETURN STS-96.
   3743					;
   3744					;	IF THE LUN IS NOT ASSIGNED, IT IS REPLACED BY A ZERO.
   3745					;
   3746					;
   3747					; REGISTERS ALTERED:
   3748					;
   3749					;	NONE
   3750					;
   3751	015654	010046 			.VCLUN::MOV	R0,-(SP)	;PUSH  (SAVE) R0
   3752	015656	016600 	000004 			MOV	4(SP),R0	;LUN MINUS ONE TO R0
   3753	015662	005300 				DEC	R0
   3754
   3759	015664	016504 	000012 			MOV	A.HA(R5),R4	;POINT TO HEADER ADDRESS
   3766	015670	062704 	000130 			ADD	#H.LUT,R4
   3768
   3769	015674	020024 				CMP	R0,(R4)+	;IS LUN <1, OR >MAX FOR TASK?
   3770	015676	103013 				BHIS	X9X96		;YES -- RETURN STS=-96
   3771	015700	006300 				ASL	R0		;NO -- SET LUT CONTENTS (PER LUN) IN R0
   3772	015702	006300 				ASL	R0
   3773	015704	060400 				ADD	R4,R0
   3774	015706	011000 				MOV	@R0,R0		;(PUD ENT ADR OR ZERO IN R0)
   3775	015710	001402 				BEQ	10$		;IF ASSIGNED, EFFECT REDIRECTION (IF ANY)
   3776	015712	016000 	000016 			MOV	U.RP(R0),R0
   3777	015716				10$:
   3778	015716	010066 	000004 			MOV	R0,4(SP)	;REPLACE LUN (ON STACK) BY PUD
   3779									;ENTRY ADDRESS (OR ZERO).
   3780
   3781	015722	012600 				MOV	(SP)+,R0	;POP (RESTORE) R0
   3782	015724					RETURN			;EXIT SUBROUTINE
	015724	000207 				RTS	PC
   3783					;
   3784					; COMMON JMP'S TO DIRECTIVE EXITS
   3785					;
   3786	015726	104640 			X9X96:	TRAP	DE.96
SCH	- TASK SCHEDULER & GLOB	MACRO M1113  10-NOV-81 18:56  PAGE 79
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3788					;
   3789					;	.STAST -- SUBROUTINE TO SET AN AST IN A TASK
   3790					;
   3791					;  ENTRY CONDITONS:
   3792					;
   3793					;	R5 -- ACTIVE TASK LIST POINTER
   3794					;	R4 -- ENTRY ADDRESS
   3795					;
   3796					;	CALLING SEQUENCE:
   3797					;
   3798					;	CALL	.STAST
   3799					;
   3800					;	EXIT CONDITIONS:
   3801					;
   3802					;	CC-C CLEAR -- AST SET AND ALL OK
   3803					;	CC-C SET -- THE TASK IS CURRENT AND CAN'T SET AST
   3804					;
   3805	015730	010246 			.STAST::MOV	R2,-(SP)	;SAVE REGISTERS
   3806	015732	010346 				MOV	R3,-(SP)
   3807	015734					CALL	..DSEV		;DECLARE A SIG EVENT
	015734	004737 	044026'			JSR	PC,..DSEV
   3808	015740	012702 	000006 			MOV	#6,R2		;SET UP TO SAVE REGISTERS
   3809	015744	000241 				CLC			;ASSUME SUCCESS
   3810	015746					.INH0			;;INHIBIT INTERRUPTS
	015746	013746 	177776 			MOV	@#PS,-(SP)
	015752	112737 	000140 	177776 		MOVB	#140,@#PS
   3811	015760	020537 	001006'			CMP	R5,.CRTSK		;;CURRENT TASK?
   3812	015764	001415 				BEQ	30$		;;YES 0-- BETTER SET CARRY
   3813	015766	016503 	000004 			MOV	A.SP(R5),R3	;;SET UP A POINTER TO THE TASK'S STACK
   3814	015772	010443 				MOV	R4,-(R3)	;;SET UP NEW PC
   3818	015774	012743 	004000 			MOV	#004000,-(R3)
   3820	016000	016343 	000016 		10$:	MOV	16(R3),-(R3)	;SET UP NEW STACK SAVE
   3821	016004	077203 				SOB	R2,10$		;;CONTINUE TIL DONE
   3822	016006				20$:	.ENB0			;ENABLE INTERRUPTS
	016006	004737 	044302'			JSR	PC,..ENB0
   3823	016012	012603 				MOV	(SP)+,R3	;RESTORE
   3824	016014	012602 				MOV	(SP)+,R2
   3825	016016					RETURN			;RETURN TO CALLER
	016016	000207 				RTS	PC
   3826
   3827	016020	005216 			30$:	INC	@SP		;ENABLE INTERRUPTS
   3828	016022	152737 	000002 	001014'		BISB	#EV.AS,.SERFG+0	;SET AST REQUIRED
   3829	016030	000766 				BR	20$		;AND RETURN
   3830						;
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 80
EXEC MODULE NINE -- COMMON RETURN TO INTERRUPTED PROGRAM

   3832						.TITLE	BOOT -- BOOT PROTOCOL HANDLER
   3833						.SBTTL	SECONDARY PROTOCOL -- COPYRIGHT STATEMENT
   3834	016032					IDENT$	14,37
						.IDENT	/014370/
   3835
   3836					;
   3837					;                             COPYRIGHT (C) 1975, 1978 BY
   3838					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   3839					;
   3840					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   3841					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   3842					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   3843					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   3844					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   3845					;
   3846					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   3847					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   3848					;       CORPORATION.
   3849					;
   3850					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   3851					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   3852					;
   3853					;		MODULE: "BOOT PROTOCOL HANDLER"
   3854					;
   3855					;		VERSION: 14-37
   3856					;
   3857					;		AUTHOR: R. MCLEAN
   3858					;
   3859					;		DATE: 12 OCT 76
   3860					;
   3861					;	THIS MODULE CONTAINS:
   3862					;
   3863					;	1 -- CODE TO SERVICE BOOT PROTOCOL ETC.
   3864					;
   3865					; MODIFIED:
   3866					;	NO.	DATE		PROGRAMMER	PURPOSE
   3867					;	---	----		----------	-------
   3868					;	001	12-OCT-76	R. BELANGER	CHANGED PHYSICAL EXAMINES &
   3869					;						DEPOSITS TO EPT RELATIVE
   3870					;	002	21-OCT-76	A. PECKHAM	ADDITION OF CODE TO COUNT
   3871					;						DOORBELLS.
   3872					;
   3873					;	003	04-NOV-76	R. BELANGER	ADDED CODE TO DELETE
   3874					;						ENTRIES FROM TO10Q ON
   3875					;						PRIMARY PROTOCOL RESTART.
   3876					;	004	29-NOV-76	A. PECKHAM	CHANGES TOO NUMEROUS TO MENTION.
   3877					;	005	07-MAR-77	A. PECKHAM	ADDED CHANGE TO AVOID RESETTING TO -10 Q.
   3878					;	006	21-MAR-77	A. PECKHAM	FIXED BUG IN ACKNOWLEGE
   3879					;	007	28-AUG-77	R. BELANGER	RESET POWERFAIL FLAG ON
   3880					;						PRIMARY PROTOCOL START
   3881					;	008	07-OCT-77	R. BELANGER	IGNORE COMM REGION IF SO DIRECTED BY "TKTN"
   3882					;
   3883					;	009	27-MAY-78	R. BELANGER	ADD PROTOCOL TIMEOUT
   3884					;   TCO 4.2207	08-MAR-79	R. BELANGER	FIX BUG WHICH CAN CAUSE
   3885					;						PROTOCOL PAUSE LOOPS
   3886					;  TCO 4.1.1035	16-NOV-79	R. BELANGER	ADD QUEUE ARBITRATION
   3887					;  TCO 4.1.1121	19-MAR-80	R. BELANGER	SUPPORT BLOCKED DTE-20
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 80-1
SECONDARY PROTOCOL -- COPYRIGHT STATEMENT

   3888					;  TCO 4.1.1137	05-APR-80	R. BELANGER	REMOVE SUPPORT FOR RESTRICTED DTE-20
   3889					;
   3890					;	MACRO CALLS
   3891					;
   3892						.MCALL	CALL,RETURN,.STKM,CLEF$S,WTSE$S,QIOW$,DTON$S,.CRASH
   3893						.MCALL	WSIG$S,.ENB0,.INH6,.ENB6,$DEF
   3894	016032					$DEF
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 81
SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE

   3896						.SBTTL	SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE
   3897					;
   3898					;	BTPRO -- ROUTINE TO HANDLE THE PROTOCOL TRANSITION INTO
   3899					;	SECONDARY PROTOCOL.
   3900					;	IT IS ASSUMED THAT THIS PROTOCOL WILL BE USED
   3901					;	DURING INITALIZATION AND IN CASE OF MONITOR CRASHED ETC
   3902					;	WHEN THE NORMAL MEANS OF COMMUNICATIONS THRU THE COMM REGION ARE DESTROYED
   3903					;
   3904					;	"EF.CRI" INDICATES THAT THE FRONT-END BELEIVES THE COMM-REGION TO BE
   3905					;	INVALID.  THIS BIT IS SET ON POWERFAIL AND BY "KLI" ON A KL RELOAD.
   3906					;	IF THE COMM REGION INVALID FLAG IS NOT SET, THE TRANSITION INTO SECONDARY
   3907					;	PROTOCOL IS TIMED-OUT FOR 30 SECONDS.  IF NO TRANSITION IS MADE WITHIN
   3908					;	THAT PERIOD, THE KL IS RELOADED.
   3909					;
   3910					;	NOTE -- IF THE COMM-REGION IS FOUND TO BE VALID DURING A NORMAL PROTOCOL
   3911					;		TRANSITION, PRIMARY PROTOCOL IS IS IMMEDIATELY RE-ENTERED.
   3912					;
   3913					;	IF SUCCESS IN COMMUNICATION WITH THE KL IT WILL ENTER SECONDARY
   3914					;	PROTOCOL (OR RE-ENTER PRIMARY PROTOCOL)
   3915					;
   3916
   3917	016032				BTPHD::
   3918	016032					.STKM	0,1,2,3,4,5,0,BTPRO,174000,.BTSTK
	016100	000000 	000000 	000000 		.WORD	0,0,0,0
	016106	000000
	016126	174000 	016332'	016312'		.WORD	174000,BTPRO,.BTSTK
	016162	000005 				.WORD	5
	016164	010232'				.WORD	TTPEN
	016166	000000 				.WORD	0
	016170	000000 				.WORD	0
	016172	000000 				.WORD	0
	016174	000000 				.WORD	0
	016176	000000 				.WORD	0
	016200	000000 				.WORD	0
	016202	000000 				.WORD	0
	016204	000000 				.WORD	0
	016206	000000 				.WORD	0
	016210	000000 				.WORD	0
	016312	000000 				.WORD	0
	016314	000001 				.WORD	1
	016316	000002 				.WORD	2
	016320	000003 				.WORD	3
	016322	000004 				.WORD	4
	016324	000005 				.WORD	5
	016326	016332'				.WORD	BTPRO
	016330	174000 				.WORD	174000
   3919
   3920	016332				BTPRO:
   3921	016332	105037 	001372'			CLRB	.PRPSE		; RESET THE PAUSE FLAG
   3922	016336					WTSE$S	#E.FPR2		;WAIT FOR ACTIVATION.
	016336	012746 	000076 			MOV	#E.FPR2,-(SP)
	016342	012746 				MOV	(PC)+,-(SP)
	016344	   051 	   002 			.BYTE	41.,2
	016346	104375 				EMT	375
   3923	016350	052737 	100000 	007372'		BIS	#BIT15,FETSK+A.EF ;SET SECONDARY PROTOCOL FLAG FOR FETSK
   3924	016356	013700 	001154'			MOV	.TKPS,R0	; +++009 TICKS PER SECOND TO R0
   3925	016362	012701 	000036 			MOV	#^D30,R1	; +++009 30. SECONDS
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 81-1
SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE

   3926	016366				5$:
   3927	016366					CALL	$MUL		; +++009 CALCULATE PAUSE PERIOD
	016366	004737 	000000G			JSR	PC,$MUL
   3928	016372	010104 				MOV	R1,R4		; +++009 SAVE IT IN R4
   3929	016374	013700 	001360'			MOV	.PRDTE,R0	;FIND ADDRESS OF PRIVILEDGED DTE
   3930	016400	013705 	001356'			MOV	.PRSTA,R5
   3931	016404	012715 	000010 			MOV	#INTROF,@R5	;CLEAR THE STATUS
   3932	016410	000405 				BR	20$		;GO LOOK FOR CHANGE TO BOOT PROTOCOL
   3933						;
   3934	016412				10$:
   3935	016412					.ENB6			;;;ENABLE INTERRUPTS
	016412	012637 	177776 			MOV	(SP)+,@#PS
   3936	016416					WSIG$S			;WAIT FOR SIG EVENT
	016416	012746 				MOV	(PC)+,-(SP)
	016420	   061 	   001 			.BYTE	49.,1
	016422	104375 				EMT	375
   3937	016424				20$:
   3938	016424					.INH6			;INHIBIT INTERRUPTS
	016424	013746 	177776 			MOV	@#PS,-(SP)
	016430	112737 	000300 	177776 		MOVB	#300,@#PS
   3939	016436	032737 	002000 	001012'		BIT	#EF.CRI,.COMEF+2 ;;; +++008 IS THE COMM REGION VALID??
   3940	016444	001020 				BNE	30$		;;; +++008 NO -- GO ON
   3941	016446	112737 	177777 	001372'		MOVB	#-1,.PRPSE	;;; +++009 MARK THAT  WE ARE PAUSING
   3942	016454	005060 	000010 			CLR	TNAD1(R0)	;;; MAYBE -- LOOK FOR PROTOCOL CHANGE
   3943	016460	005060 	000012 			CLR	TNAD2(R0)	;;;BY TESTING RELATIVE ADDR WORD
   3944	016464					CALL	..WFED		;;; [4.1.1121] WAIT FOR EXAMINE
	016464	004737 	046216'			JSR	PC,..WFED
   3945	016470	103453 				BCS	47$		;;;KL HAS BEEN LOST..
   3946	016472	005760 	000002 			TST	DXWD3(R0)	;;;IF NON-ZERO
   3947	016476	001403 				BEQ	30$		;;;THEN EXAMINE VALID, SO
   3948	016500	010702 				MOV	PC,R2		;;; +++006 SAY NO ACKNOWLEGE NEEDED
   3949	016502	000137 	017440'			JMP	120$		;;; +++005 RETURN TO PRIMARY PROTOCOL.
   3950						;
   3951	016506				30$:
   3952	016506	032760 	004000 	000030 		BIT	#DS04,DAG1(R0)	;;;CHECK FOR CLOCK ERROR STOP
   3953	016514	001174 				BNE	86$		;;;STOP ALL PROTOCOLS IF SO
   3954	016516				31$:
   3955	016516	032715 	004000 			BIT	#TO11DB,@R5	;;;WAIT OR A DOORBELL INTERRUPT
   3956	016522	001021 				BNE	40$		;;; +++009 GOT ONE -- PROCESS IT
   3957	016524	032737 	002000 	001012'		BIT	#EF.CRI,.COMEF+2 ;;; +++009 IS THIS A PAUSE??
   3958	016532	001327 				BNE	10$		;;; +++009 YES -- WAIT FOR SECONDARY PROTOCOL
   3959	016534	077452 				SOB	R4,10$		;;; +++009 NO -- DID WE TIME OUT??
   3960	016536	105237 	001124'			INCB	.TKTN		;;; +++009 YES -- SAY GOODNIGHT....
   3961	016542	105237 	001122'			INCB	.NOERR		;;; +++009 DON'T CARE ABOUT ERRORS NOW
   3962	016546	052737 	000200 	001126'		BIS	#KS.PTO,.KLITK	;;; +++009 FLAG PROTOCOL TIMEOUT
   3963	016554					CALL	..DTSP		;;; [4.2207] STOP ALL PROTOCOLS
	016554	004737 	046770'			JSR	PC,..DTSP
   3964	016560					.ENB6			;;; +++009 ALLOW INTERRUPTS
	016560	012637 	177776 			MOV	(SP)+,@#PS
   3965	016564	000662 				BR	BTPRO		; +++009 AND GO BACK TO SLEEP
   3966						;
   3967	016566				40$:
   3968	016566	042737 	001000 	001012'		BIC	#EF.FCP,.COMEF+2 ;;;CLEAR FAULT CONTINUATION IN PROGRESS IN CASE
   3969	016574	005237 	001362'			INC	.PRDCT		;;; +002 ONE MORE DOORBELL....
   3970	016600	012760 	004000 	000010 		MOV	#PRTOFF!EPTR,TNAD1(R0) ;;; +001 PROTECT OFF
   3971	016606	012760 	000451 	000012 		MOV	#DTECMD,TNAD2(R0) ;;;READ THE COMMAND PASSED
   3972	016614					CALL	..WFED		;;; [4.1.1121] WAIT FOR EXAMINE DEPOSIT
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 81-2
SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE

	016614	004737 	046216'			JSR	PC,..WFED
   3973	016620				47$:
   3974	016620	103534 				BCS	87$
   3975	016622	012715 	002000 			MOV	#INT11C,@R5	;;;ALLOW MORE DOORBEL INTERRUPTS
   3976	016626	122760 	000011 	000003 		CMPB	#11,DXWD3+1(R0)	;;;LOOK AT THE COMMAND WORD
   3977	016634	001266 				BNE	10$		;;;NOT WHAT WE WANT...
   3978					;
   3979					;	CHANGE PROTOCOL TO SECONDARY (FUNCTION 11)
   3980					;
   3981	016636				50$:
   3982	016636	105037 	001372'			CLRB	.PRPSE		;;; +++009 RESET PAUSE FLAG
   3983	016642	012760 	177777 	000002 		MOV	#-1,DXWD3(R0)	;;;ACKNOWLEDGE THE COMMAND
   3984	016650	052760 	014000 	000010 		BIS	#DEP!EPTR!PRTOFF,TNAD1(R0) ;;; +001 SET DEPOSIT IN TEN MEMORY FLAG
   3985	016656	012760 	000444 	000012 		MOV	#DTEFLG,TNAD2(R0) ;;;START TRANSFER TO DTE FLAG WORD
   3986	016664					CALL	..WFED		;;; [4.1.1121] WAIT FOR EXAMINE DEPOSIT
	016664	004737 	046216'			JSR	PC,..WFED
   3987	016670	103510 				BCS	87$		;;;TEN STOPPED
   3988	016672	012715 	000400 			MOV	#TO10DB,@R5	;;;SET 10'S DOORBELL
   3989	016676	005037 	001162'			CLR	.BTSCH		;;;CLEAR ANY SAVED CHARACTERS
   3990					;
   3991					;	AT THIS POINT WE ARE OFFICIALLY IN SECONDARY PROTOCOL
   3992					;
   3993					;	THIS IS THE MAIN COMMAND LOOP WHICH PROCESSES THE SECONDARY
   3994					;	PROTOCOL COMMANDS AND PASSES CTY CHARACTERS TO THE -10.
   3995					;
   3996	016702				60$:
   3997	016702					.ENB6			;;;ENABLE INTERRUPTS
	016702	012637 	177776 			MOV	(SP)+,@#PS
   3998	016706					WSIG$S			;WAIT FOR SIG EVENT
	016706	012746 				MOV	(PC)+,-(SP)
	016710	   061 	   001 			.BYTE	49.,1
	016712	104375 				EMT	375
   3999	016714					.INH6			;INHIBIT INTERRUPTS
	016714	013746 	177776 			MOV	@#PS,-(SP)
	016720	112737 	000300 	177776 		MOVB	#300,@#PS
   4000	016726	032715 	004000 			BIT	#TO11DB,@R5	;;;WAIT FOR ANOTHER DOORBELL
   4001	016732	001073 				BNE	90$		;;;FOUND IT -- CHECK THE COMMAND
   4002	016734	032760 	004000 	000030 		BIT	#DS04,DAG1(R0)	;;;CHECK FOR CLOCK ERROR STOP
   4003	016742	001061 				BNE	86$		;;;YES -- STOP PROTOCOL
   4004	016744				70$:
   4005	016744	113701 	001162'			MOVB	.BTSCH,R1	;;;CHECK FOR CTY CHARACTER
   4006	016750	001754 				BEQ	60$
   4007					;
   4008					;	TRANSFER CTY CHARACTER TO -10
   4009					;
   4010	016752				80$:
   4011	016752	012760 	004000 	000010 		MOV	#PRTOFF!EPTR,TNAD1(R0) ;;; +001 SET PROTECT OFF
   4012	016760	012760 	000456 	000012 		MOV	#DTEMTI,TNAD2(R0) ;;;PICK UP THE INPUT BUSY FLAG
   4013	016766				81$:
   4014	016766					CALL	..WFED		;;; [4.1.1121] WAIT FOR EXAMINE DEPOSIT
	016766	004737 	046216'			JSR	PC,..WFED
   4015	016772	103447 				BCS	87$		;;;TEN STOPPED
   4016	016774	005760 	000004 			TST	DXWD2(R0)
   4017	017000	001340 				BNE	60$		;;;TEN CAN'T ACCEPT ANOTHER CHARACTER YET
   4018	017002	042701 	177600 			BIC	#^C177,R1	;;;MASK OFF JUNK
   4019	017006	010160 	000002 			MOV	R1,DXWD3(R0)	;;;PUT THE WORD IN THE DTE
   4020	017012	005060 	000004 			CLR	DXWD2(R0)
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 81-3
SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE

   4021	017016	005060 	000006 			CLR	DXWD1(R0)
   4022	017022	012760 	014000 	000010 		MOV	#DEP!PRTOFF!EPTR,TNAD1(R0) ;;; +001 SET DEP!PRTOFF!EPTR DEPOSIT FLAG
   4023	017030	012760 	000450 	000012 		MOV	#DTEF11,TNAD2(R0) ;;;STORE THE CHARACTER IN THE 10
   4024	017036					CALL	..WFED		;;; [4.1.1121] WAIT FOR EXAMINE/DEPOSIT
	017036	004737 	046216'			JSR	PC,..WFED
   4025	017042	103423 				BCS	87$		;;;TEN STOPPED
   4026	017044	105037 	001162'			CLRB	.BTSCH		;;;CHARACTER HAS NOW BEEN SENT
   4027	017050	012760 	177777 	000002 		MOV	#-1,DXWD3(R0)	;;;SET CHARACTER IN BUFFER FLAG
   4028	017056	012760 	014000 	000010 		MOV	#DEP!PRTOFF!EPTR,TNAD1(R0) ;;; +001 SET DEP!PRTOFF!EPTR DEPOSIT FLAG
   4029	017064	012760 	000456 	000012 		MOV	#DTEMTI,TNAD2(R0) ;;;TRANSFER TO 10 MEMORY
   4030	017072					CALL	..WFED		;;; [4.1.1121] WAIT FOR TRANSFER
	017072	004737 	046216'			JSR	PC,..WFED
   4031	017076	103405 				BCS	87$		;;;TEN STOPPED
   4032	017100	012715 	000400 			MOV	#TO10DB,@R5	;;;SET THE 10'S DOORBELL
   4033	017104	000676 				BR	60$		;;;CONTINUE POLLING
   4034					;
   4035					;	AN ERROR ON EXAMINE / DEPOSIT TURNS OFF BOOT PROTOCOL
   4036					;
   4037	017106				86$:
   4038	017106					CALL	..WFED		;;; [4.1.1121] RECOGNIZE ERROR, THEN
	017106	004737 	046216'			JSR	PC,..WFED
   4039	017112				87$:
   4040	017112					.ENB0			;;; +++006 ENABLE INTERRUPTS
	017112	004737 	044302'			JSR	PC,..ENB0
   4041	017116	000137 	016332'			JMP	BTPRO		;AND GO TO WAIT FOR REACTIVATION.
   4042					;
   4043					;	RECIEVE A COMMAND FROM THE -10
   4044					;
   4045	017122				90$:
   4046	017122	005237 	001362'			INC	.PRDCT		;;; +002 ONE MORE DOORBELL...
   4047	017126	012760 	004000 	000010 		MOV	#PRTOFF!EPTR,TNAD1(R0) ;;; +001 SET PROTECT OFF
   4048	017134	012760 	000451 	000012 		MOV	#DTECMD,TNAD2(R0) ;;;READ THE COMMAND WORD
   4049	017142					CALL	..WFED		;;; [4.1.1121] WAIT FOR EXAMINE DEPOSIT
	017142	004737 	046216'			JSR	PC,..WFED
   4050	017146	012715 	002000 			MOV	#INT11C,@R5	;;;WARNING !!!!!DON'T MOVE THIS INSTRUCTION!!!!!!!
   4051									;;;DOORBELL MUST NOT BE CLEARED BEFORE THE
   4052									;;;10 FINISHES THE SET DOORBELL!!!!!!
   4053									;;;IT IS GUARANTEED TO BE SAFE AFTER ..WFED
   4054	017152	103757 				BCS	87$		;;;TEN STOPPED
   4055	017154	122760 	000012 	000003 		CMPB	#12,DXWD3+1(R0)	;;;MONITOR MODE CONTROL OFF?
   4056	017162	001443 				BEQ	100$		;;;YES -- RE-ENTER RSX20F
   4057	017164	122760 	000011 	000003 		CMPB	#11,DXWD3+1(R0)	;;;MONITOR MODE CONTROL ON?
   4058	017172	001003 				BNE	95$		;;;NO -- MUST BE CTY CHARACTER
   4059	017174	012715 	002000 			MOV	#INT11C,@R5	;;;ALLOW MORE DOORBELLS AND
   4060	017200	000616 				BR	50$		;;;ACKNOWLEDGE THE COMMAND.
   4061					;
   4062					;	OUTPUT A CHARACTER TO THE CTY (FUNCTION 10)
   4063					;
   4064	017202				95$:
   4065	017202	116037 	000002 	017572'		MOVB	DXWD3(R0),QPROAD ;;;OUTPUT A CHARACTER
   4066	017210					.ENB6			;;;ENABLE INTERRUPTS
	017210	012637 	177776 			MOV	(SP)+,@#PS
   4067	017214					DIR$	#QPROMS		;OUTPUT CHARACTER
	017214	012746 	017550'			MOV	#QPROMS,-(SP)
	017220	104375 				EMT	375
   4068	017222					.INH6			;INHIBIT INTERRUPTS
	017222	013746 	177776 			MOV	@#PS,-(SP)
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 81-4
SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE

	017226	112737 	000300 	177776 		MOVB	#300,@#PS
   4069	017234	012760 	177777 	000002 		MOV	#-1,DXWD3(R0)	;;;ACKNOWLEDGE CHARACTER OUTPUT
   4070	017242	012760 	014000 	000010 		MOV	#DEP!PRTOFF!EPTR,TNAD1(R0) ;;; +001 SET DEPOSIT
   4071	017250	012760 	000455 	000012 		MOV	#DTEMTD,TNAD2(R0) ;;;START TRANSFER TO INDICATE CHARACTER OUTPUT
   4072	017256					CALL	..WFED		;;; [4.1.1121] WAIT FOR EXAMINE DEPOSIT
	017256	004737 	046216'			JSR	PC,..WFED
   4073	017262	103713 				BCS	87$		;;;WHOOPS !
   4074	017264	012715 	000400 			MOV	#TO10DB,@R5	;;;CLEAR THE 11 DOORBELL AND SET THE 10'S DOORBELL
   4075	017270	000625 				BR	70$		;;;CONTINUE POLLING
   4076					;
   4077					;	CHANGE PROTOCOL TO PRIMARY (FUNCTION 12)
   4078					;
   4079	017272				100$:
   4080	017272	005037 	001374'			CLR	.DTBLK		;;; [4.1.1121] DTE-20 IS NO LONGER BLOCKED
   4081	017276	005002 				CLR	R2		;;; +++006 NEED ACKNOWLEGE
   4082	017300	042737 	006000 	001012'		BIC	#EF.PFR!EF.CRI,.COMEF+2 ;;; +++007 GUARD AGAINST SPURIOUS POWERFAIL
   4083									;;; +++008 DECLARE COMM REGION VALID
   4084	017306	032760 	000001 	000002 		BIT	#1,DXWD3(R0)	;;;CHECK FOR RE-INIT
   4085	017314	001451 				BEQ	120$		;;; +++006 NO
   4086	017316				110$:
   4087	017316	010046 				MOV	R0,-(SP)
   4088	017320				113$:
   4089	017320	013704 	001326'			MOV	TO10Q,R4	;;; +003 Q LISTHEAD TO R4
   4090	017324	022704 	001326'			CMP	#TO10Q,R4	;;; +003 DONE?
   4091	017330	001416 				BEQ	112$		;;; +003 YES -- LEAVE
   4092	017332					CALL	..NDEL		;;; +003 NO -- REMOVE THIS ENTRY FROM Q
	017332	004737 	044062'			JSR	PC,..NDEL
   4093	017336	005764 	000012 			TST	12(R4)		;;; +003 TEST INDIRECT INDICATOR
   4094	017342	003003 				BGT	111$		;;; +003 NOT INDIRECT -- GO ON
   4095	017344	056474 	000024 	000026 		BIS	24(R4),@26(R4)	;;; +003 INDIRECT -- DECLARE XFER COMPLETE
   4096	017352				111$:
   4097	017352	010400 				MOV	R4,R0		;;; +003 SET UP TO
   4098	017354	016001 	000004 			MOV	4(R0),R1	;;; +003 RETURN CORE BLOCK
   4099	017360					CALL	..DECB		;;; +003 RETURN IT
	017360	004737 	044552'			JSR	PC,..DECB
   4100	017364	000755 				BR	113$		;;; +003 DO NEXT ENTRY IN Q
   4101						;
   4102	017366				112$:
   4103	017366	005037 	001324'			CLR	TO10QC		;;; +003 DONE -- CLEAR CURRENT COUNTS
   4104	017372	005037 	001254'			CLR	.CPDV		;;; CLEAR CURRENT TO-10 DEVICE
   4105	017376	013700 	001262'			MOV	.CRHD,R0	;;; GET CURRENT NODE
   4106	017402	062700 	000010 			ADD	#10,R0		;;; POINT TO DATA AREA
   4107	017406	010037 	001260'			MOV	R0,.CRPB	;;; AND SET BUFFER POINTER.
   4108	017412	005060 	177776 			CLR	-2(R0)		;;; CLEAR ENTRY COUNT
   4109	017416	016000 	177774 			MOV	-4(R0),R0	;;; GET LENGTH OF NODE
   4110	017422	162700 	000012 			SUB	#10.,R0		;;; ADJUST,
   4111	017426	010037 	001256'			MOV	R0,.CRSZ	;;; AND SET BUFFER SIZE.
   4112	017432	005037 	001250'			CLR	.CRQZ		;;; NOTHING ENTERED YET.
   4113	017436	012600 				MOV	(SP)+,R0
   4114	017440				120$:				;;; +++005
   4115	017440	105037 	001373'			CLRB	TOXQIP		;;; [4.1.1035] RESET THE QUEUE INTERLOCK
   4116	017444					CLEF$S	#E.FPR2		;;;TURN SECONDARY PROTOCOL OFF
	017444	012746 	000076 			MOV	#E.FPR2,-(SP)
	017450	012746 				MOV	(PC)+,-(SP)
	017452	   037 	   002 			.BYTE	31.,2
	017454	104375 				EMT	375
   4117	017456					DTON$S			;;;ENABLE DTE20
BOOT -- BOOT PROTOCOL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 81-5
SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE

	017456	012746 	000003 			MOV	#DF.ON,-(SP)
	017462	012746 	001011 			MOV	#400*2.+DR.DTE,-(SP)
	017466	104375 				EMT	375
   4118	017470	103610 				BCS	87$		;;; +++006 LOST COMM REGION
   4119	017472	005702 				TST	R2		;;; +++006 ACKNOWLEGE??
   4120	017474	001013 				BNE	130$		;;; +++006 NO -- GO ON
   4121	017476	012760 	177777 	000002 		MOV	#-1,DXWD3(R0)	;;; +++006 ACK THE COMMAND
   4122	017504	012760 	014000 	000010 		MOV	#DEP!EPTR!PRTOFF,TNAD1(R0) ;;; +++001 SET DEPOSIT
   4123	017512	012760 	000444 	000012 		MOV	#DTEFLG,TNAD2(R0)  ;;;  +++006 START IT
   4124	017520					CALL	..WFED		;;; [4.1.1121] WAIT FOR IT
	017520	004737 	046216'			JSR	PC,..WFED
   4125	017524				130$:				;;;  +++006
   4126	017524	012715 	000440 			MOV	#INTRON!TO10DB,@R5 ;;;ENABLE INTERRUPTS
   4127	017530					.ENB0			;;;ENABLE INTERRUPTS
	017530	004737 	044302'			JSR	PC,..ENB0
   4128	017534	005237 	001164'			INC	.ACKAL		;SEND ACK ALL
   4129	017540	005037 	005666'			CLR	.FEACT		;FE IS NOW AVAILABLE
   4130	017544	000137 	016332'			JMP	BTPRO		;WAIT FOR PROTOCOL REACTIVICATION.
   4131						;
   4132	017550				QPROMS:
   4133	017550					QIOW$	IO.WLB,1,2,0,0,0,<QPROAD,1,0>
	017550	   003 	   011 			.BYTE	3,$$$ARG
	017552	000400 				.WORD	IO.WLB
	017554	000001 				.WORD	1
	017556	   002 	   000 			.BYTE	2,0
	017560	000000 				.WORD	0
	017562	000000 				.WORD	0
	017564	017572'				.WORD	QPROAD
	017566	000001 				.WORD	1
	017570	000000 				.WORD	0
   4134	017572				QPROAD:
   4135	017572	000000 				.WORD	0
PF -- POWER FAIL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 82
SECONDARY PROTOCOL -- BOOT PROTOCOL SERVICE

   4137						.TITLE	PF -- POWER FAIL HANDLER
   4138						.SBTTL	POWERFAIL HANDLER -- COPYRIGHT STATEMENT
   4139	017574					IDENT$	14,05
						.IDENT	/014050/
   4140					;
   4141					;                             COPYRIGHT (C) 1975, 1978 BY
   4142					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   4143					;
   4144					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   4145					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   4146					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   4147					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   4148					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   4149					;
   4150					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   4151					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   4152					;       CORPORATION.
   4153					;
   4154					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   4155					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   4156					;
   4157					;		MODULE: "POWER FAIL"
   4158					;
   4159					;		VERSION: 14-05
   4160					;
   4161					;		AUTHOR: R. MCLEAN
   4162					;
   4163					;		DATE: 19 JUL 75
   4164					;
   4165					;
   4166					;	THIS MODULE CONTAINS:
   4167					;
   4168					;	1 -- CODE TO SUPPORT POWER FAIL
   4169					;
   4170					; MODIFICATIONS:
   4171					;
   4172					;	NO.	DATE		PROGRAMMER	REASON
   4173					;	---	----		----------	------
   4174					;	001	10-AUG-77	R. BELANGER	WAIT FOR KL CROBAR TO
   4175					;						SETTLE ON POWER RESTART
   4176					;	002	18-AUG-77	R. BELANGER	FLAG POWER RESTART
   4177					;  TCO 4.2205	08-MAR-79	R. BELANGER	RESET SENADALL DATABASE
   4178					;						ON POWER UP
   4179					;  TCO 4.2249	09-MAY-79	R. BELANGER	ALLOW POWER FAIL RECOVERY
   4180					;						TO COMPLETE BEFORE NOTIFYING KL10
   4181					;						MODIFY PARITY REGISTER INITIALIZATION
   4182					;						NOT NOT ALTER CPU PRIORITY ON TRAP
   4183
   4185						.MCALL	CALL,$DEF,.CRASH
   4186	017574					$DEF
PF -- POWER FAIL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 83
POWERFAIL -- POWER DOWN

   4189						.SBTTL	POWERFAIL -- POWER DOWN
   4190
   4191					;+
   4192					;	POWER FAILURE AND RECOVERY SERVICE
   4193					;
   4194					;	WHEN A POWER FAILURE TRAP OCCURS, THE VOLATILE REGISTERS
   4195					;	ARE SAVED AND THE TRAP VEECTOR FOR POWER UP IS SET.
   4196					;
   4197					;	IF POWER FAIL INTERRUPTS A PRI 7 (I/O INITALIZE OR DTE
   4198					;	EXAMINE/DEPOSIT) THEN .PFAIL IS SET AND RTI
   4199					;	IS EXECUTED.  ROUTINES WHICH BREAK DOWN FROM PRI7
   4200					;	MUST CHECK TO SEE IF .PFAIL IS SET AND JUMP TO
   4201					;	.PFRTN -- THIS WILL ALLOW THEM TO FINISH AND
   4202					;	STILL PROTECT POWERFAIL FROM FAILING
   4203					;
   4204					;
   4205					;	NOTE: POWERFAIL TRAP CANNOT BE INHIBITED.
   4206					;	POWER FAIL TRAP SERVICE CAN NOT USE ROUTINES THAT INHIBIT
   4207					;	INTERRUPTS TO AVOID RACE CONDITIONS
   4208					;
   4209					;	NOTE: ALL MEMORY IS ASSUMED TO BE NON-VOLATILE (IT CANNOT BE
   4210					;	SAVED IN THE TIME PERMITTED FOR POWER FAIL SAVE)
   4211					;
   4212					;	NOTE: A KL10 INITIATED FRONT-END RELOAD SIMULATES A POWER-FAIL
   4213					;	TRAP TO STOP THE FRONT-END
   4214					;
   4215					;	POWER DOWN ENTRY -- CONTROL IS TRANSFERRED HERE (VIA POWER
   4216					;	FAIL TRAP VECTOR) AT PRIORITY SEVEN.
   4217					;
   4218					;	STACK SUMMARY:
   4219					;
   4220					;	0(SP) -- POWERFAIL TRAP PC
   4221					;	2(SP) -- POWERFAIL TRAP PS
   4222					;	4(SP) -- BEGINNING OF INTERRUPTED PROCESS STACK
   4223					;-
   4224
   4225	017574				.PWRDN::
   4226	017574	052737 	006000 	001012'		BIS	#EF.PFR!EF.CRI,.COMEF+2 ; +++002 ALWAYS FLAG POWER FAIL (ALWAYS!)
   4227	017602	016646 	000002 			MOV	2(SP),-(SP)	;FIND THE PS
   4228	017606	042716 	177437 			BIC	#177437,@SP	;MASK OFF ALL BUT PRI
   4229	017612	022726 	000340 			CMP	#340,(SP)+	;IS IT PRI 7?
   4230	017616	001005 				BNE	10$		;NO -- THEN ACCEPT POWER FAIL
   4231	017620	005237 	001026'			INC	.PFAIL		;SET POWER FAIL ERROR
   4232	017624	105237 	001014'			INCB	.SERFG+0	; +++001 LEST WE FORGET...
   4233	017630	000006 				RTT			;RETURN TO CALLER
   4234
   4235	017632	013746 	000006 		10$:	MOV	@#6,-(SP)	;SAVE LOW CORE
   4236	017636	013746 	000004 			MOV	@#4,-(SP)
   4237	017642	012737 	017716'	000004 		MOV	#20$,@#4	;SET UP TO HALT IF FAKE POWER FAIL
   4238	017650	012737 	000340 	000006 		MOV	#340,@#6	;SET PRIORITY 7 IN ODD ADDRESS TRAP ADDRESS
   4239					;
   4240					; STACK SUMMARY:
   4241					;
   4242					;	 0(SP) -- SAVED ABSOLUTE 4
   4243					;	 2(SP) -- SAVED ABSOLUTE 6
   4244					;	 4(SP) -- POWERFAIL TRAP PC
   4245					;	 6(SP) -- POWERFAIL TRAP PS
PF -- POWER FAIL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 83-1
POWERFAIL -- POWER DOWN

   4246					;	10(SP) -- INTERRUPTED PROCESS STACK
   4247					;
   4248	017656	005737 	173000 			TST	.BM873		;IF NOT POWER FAIL THIS WILL TRAP TO 4
   4249									; AND IMMEDIATELY HALT AT "20$" BELOW,
   4250									; IN WHICH CASE THE TRAP PS/PC WILL BE ON STACK
   4251	017662	010046 				MOV	R0,-(SP)	;SAVE REGISTERS
   4252	017664	010146 				MOV	R1,-(SP)
   4253	017666	010246 				MOV	R2,-(SP)
   4254	017670	010346 				MOV	R3,-(SP)
   4255	017672	010446 				MOV	R4,-(SP)
   4256	017674	010546 				MOV	R5,-(SP)
   4257	017676	010637 	001032'			MOV	SP,PWRXSP	;SAVE STACK REGISTER
   4258	017702	012737 	017720'	000024 		MOV	#PWR.UP,@#24	;SET UP POWER UP TRAP VECTOR ADDRESS
   4259	017710	012737 	000006 	001034'		MOV	#6,CROBAR	; +++001 SET UP CROBAR COUNTER
   4260	017716	000000 			20$:	HALT
   4261					;
   4262					; CRASH (NON-POWERFAIL) STACK SUMMARY:
   4263					;
   4264					;	 0(SP) -- BM873 ROM TRAP PC
   4265					;	 2(SP) -- BM873 ROM TRAP PS
   4266					;	 4(SP) -- SAVED ABSOLUTE 4
   4267					;	 6(SP) -- SAVED ABSOLUTE 6
   4268					;	10(SP) -- POWERFAIL TRAP PC
   4269					;	12(SP) -- POWERFAIL TRAP PS
   4270					;	14(SP) -- INTERRUPTED PROCESS STACK
   4271					;
   4272					; THE TOP OF THIS STACK IS POINTED TO BY LOCATION 54 IN THE CRASH DUMP
PF -- POWER FAIL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 84
POWERFAIL -- POWER UP ENTRY

   4274						.SBTTL	POWERFAIL -- POWER UP ENTRY
   4275
   4276					;
   4277					;
   4278					;	POWER UP ENTRY
   4279					;
   4280	017720				PWR.UP::
   4281	017720	013706 	001032'			MOV	PWRXSP,SP	;RESTORE STACK POINTER
   4282	017724	012737 	017720'	000004 		MOV	#PWR.UP,@#4	; +++001 MAKE BUS TIMEOUT TRAP TO "PWR.UP"
   4283	017732	012737 	004340 	000006 		MOV	#4340,@#6
   4284	017740	005337 	001034'			DEC	CROBAR		; +++001 COUNT THIS ATTEMPT
   4285	017744	003003 				BGT	10$		; +++001 ALL OK IF STILL .GT. 0
   4286	017746					.CRASH	CBR		; +++001 CRASH IF MORE THAN ONE MINUTE
	017746	000004 				IOT
	017750	   103 	   102 	   122 		.ASCIZ	/CBR/
	017753	   000
   4287						;
   4288	017754				10$:
   4289	017754	013701 	001360'			MOV	.PRDTE,R1	; +++001 ADDRESS OF DTE20 TO R1
   4290	017760					CALL	20$		; +++001 WAIT FOR KL CROBAR
	017760	004737 	020100'			JSR	PC,20$
   4291	017764					CALL	20$		; +++001 AND BE VERY SURE OF IT
	017764	004737 	020100'			JSR	PC,20$
   4292	017770	012761 	000100 	000032 		MOV	#DRESET,DAG2(R1) ; +++001 RESET THE DTE20
   4293	017776	005037 	001026'			CLR	.PFAIL		;CLEAR POWER FAIL FLAG
   4294	020002	012737 	177777 	001030'		MOV	#-1,.PFIOW	;SET POWER FAIL BITS TO INTERRUPT ROUTINES
   4295	020010	012605 				MOV	(SP)+,R5	;RESTORE REGISTERS
   4296	020012	012604 				MOV	(SP)+,R4
   4297	020014	012603 				MOV	(SP)+,R3
   4298	020016	012602 				MOV	(SP)+,R2
   4299	020020	012601 				MOV	(SP)+,R1
   4300	020022	012600 				MOV	(SP)+,R0
   4301	020024	012637 	000004 			MOV	(SP)+,@#4	;RESTORE LOW CORE
   4302	020030	012637 	000006 			MOV	(SP)+,@#6
   4303	020034	012737 	017574'	000024 		MOV	#.PWRDN,@#24	;SET UP POWER DOWN TRAP AGAIN
   4304	020042	052737 	000100 	001126'		BIS	#KS.PFT,.KLITK	;FORCE POWER RESTART
   4305	020050	012737 	000401 	001122'		MOV	#401,.NOERR	;SET NO ERROR OR HALT
   4306	020056					CALL	..DTSP		;TURN OFF PROTOCOL TASKS
	020056	004737 	046770'			JSR	PC,..DTSP
   4307	020062	105237 	001124'			INCB	.TKTN		;TASK TERMINATION REQUEST
   4308	020066	152737 	000200 	001014'		BISB	#EV.PF,.SERFG+0	;INDICATE POWER FAIL & SIG EVENT
   4309	020074	000137 	014632'			JMP	..INTX		;RETURN TO INTERRUPTED ROUTINE
   4310						;
   4311	020100				20$:				; +++001
   4312	020100	012700 	000454 			MOV	#^D<5*60>,R0	; +++001 WAIT FOR CROWBAR TO SETTLE (5 SECONDS)
   4313	020104				30$:				; +++001
   4314	020104	105737 	177546 			TSTB	@#LKS		; +++001 CHECK WITH CLOCK
   4315	020110	100375 				BPL	30$		; +++001 WAIT FOR TICK
   4316	020112	105037 	177546 			CLRB	@#LKS		; +++001 CLEAR CLOCK FLAG
   4317	020116	077006 				SOB	R0,30$		; +++001 WAIT THE FULL COUNT
   4318	020120	005777 	161232 			TST	@.PRSTA		; +++001 LOOK AT DTE20 STATUS REGISTER
   4319									; +++001 IF NOT THERE (CROBAR TRUE) TRAP
   4320									; +++001 TO "PWR.UP", ELSE GO ON
   4321	020124					RETURN			; +++001 MADE IT -- RETURN
	020124	000207 				RTS	PC
PF -- POWER FAIL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 85
POWERFAIL -- POWER FAIL RESTART

   4323						.SBTTL	POWERFAIL -- POWER FAIL RESTART
   4324
   4325					;	.PFAIL INDICATES POWER FAIL IN PROGRESS
   4326					;	.PFIOW IS BIT ENCODED TO INDICATE POWER FAIL
   4327					;	OCCURED AND POWER UP RECOVERY IS NECESSARY
   4328
   4329	020126				.PFRST::
   4330	020126	013746 	000004 			MOV	@#4,-(SP)	; SAVE ABSOLUTE 4 (NEXM STOP)
   4331	020132	010046 				MOV	R0,-(SP)	; SAVE REGISTERS
   4332	020134	010146 				MOV	R1,-(SP)
   4333	020136	010246 				MOV	R2,-(SP)
   4334	020140	010346 				MOV	R3,-(SP)
   4335	020142	010446 				MOV	R4,-(SP)
   4336	020144	010546 				MOV	R5,-(SP)
   4337	020146	012737 	177777 	001030'		MOV	#-1,.PFIOW	; INDICATE POWER/FAIL TTY ENABLE
   4338	020154	012702 	002604'			MOV	#.SNDLP,R2	; [4.2205] INIT SENDALL POINTER
   4339	020160	012703 	000004 			MOV	#4,R3		; [4.2205] INIT SENDALL COUNTER
   4340	020164	005022 				CLR	(R2)+		; [4.2205] CLEAR SENDALL INDEX
   4341	020166				10$:
   4342	020166	005062 	000010 			CLR	10(R2)		; [4.2205] CLEAR SENDALL COUNT
   4343	020172	012200 				MOV	(R2)+,R0	; [4.2205] GET BUFFER POINTER
   4344	020174	001402 				BEQ	20$		; [4.2205] GO ON IF NULL
   4345	020176					CALL	..DECN		; [4.2205] DEALLOCATE THE BUFFER
	020176	004737 	044546'			JSR	PC,..DECN
   4346	020202				20$:
   4347	020202	077307 				SOB	R3,10$		; [4.2205] LOOP THROUGH ALL 4 NODES
   4348	020204					CALL	.DHTMO		; [4.2205] DO TIMEOUT
	020204	004737 	040646'			JSR	PC,.DHTMO
   4349	020210					CALL	.DLTMO
	020210	004737 	040336'			JSR	PC,.DLTMO
   4350	020214					CALL	.DMTMO
	020214	004737 	041126'			JSR	PC,.DMTMO
   4351	020220	005237 	006214'			INC	.LPPFL
   4352	020224	005237 	005706'			INC	.CRPFL
   4353	020230	005037 	002600'			CLR	.ABCNT
   4354	020234	005037 	002602'			CLR	.ABFLG
   4355	020240	105037 	001372'			CLRB	.PRPSE
   4356	020244	005037 	001030'			CLR	.PFIOW		; CLEAR POWER FAIL FLAG
   4357	020250	012704 	000020 			MOV	#16.,R4		; SET UP TO RESTORE PARITY ERROR REGISTERS
   4358	020254	012705 	172100 			MOV	#.PARRG,R5	; SET UP THE ADDRESS OF THE REGISTERS
   4359	020260	012737 	020340'	000004 		MOV	#PARLOT,@#4	; [4.2249] SET UP 4 TO TRAP TO "PARLOT"
   4360
   4361						.ENABL	LSB
   4362
   4363	020266				PARLOA:
   4364	020266	012725 	000001 			MOV	#1,(R5)+	; [4.2249] ENABLE PARITY CHECKING
   4365	020272				10$:
   4366	020272	077403 				SOB	R4,PARLOA	; [4.2249] LOOP THROUGH ALL REGISTERS
   4367	020274	012605 				MOV	(SP)+,R5	; [4.2249] DONE -- RESTORE REGISTERS
   4368	020276	012604 				MOV	(SP)+,R4
   4369	020300	012603 				MOV	(SP)+,R3
   4370	020302	012602 				MOV	(SP)+,R2
   4371	020304	012601 				MOV	(SP)+,R1
   4372	020306	012600 				MOV	(SP)+,R0
   4373	020310	012637 	000004 			MOV	(SP)+,@#4	; [4.2249] RESTORE LOW CORE
   4374	020314	042737 	004000 	001012'		BIC	#EF.PFR,.COMEF+2 ; [4.2249] CLEAR POWERFAIL IN PROGRESS FLAG
   4375	020322	012737 	000100 	177546 		MOV	#.INTEN,@#LKS	; [4.2249] ENABLE CLOCK
PF -- POWER FAIL HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 85-1
POWERFAIL -- POWER FAIL RESTART

   4377	020330	012777 	000400 	161020 		MOV	#TO10DB,@.PRSTA	; [4.2249] RING THE DOORBELL TO TELL 10 WE ARE HERE AND READY
   4379	020336					RETURN			; [4.2249] RETURN TO CALLER
	020336	000207 				RTS	PC
   4380					;
   4381					; HERE ON A TRAP FROM A NON-EXISTENT PARITY REGISTER
   4382					;
   4383	020340				PARLOT:
   4384	020340	032626 				BIT	(SP)+,(SP)+	; [4.2249] FLUSH THE TRAP PS/PC
   4385	020342	000753 				BR	10$		; [4.2249] AND CONTINUE THROUGH ALL REGISTERS
   4386						;
   4387
   4388						.DSABL	LSB
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 86
POWERFAIL -- POWER FAIL RESTART

   4390						.TITLE	DMDTE	- DTE DIRECTIVES MODULE
   4391						.SBTTL	DTE DIRECTIVES -- COPYRIGHT STATEMENT
   4392	020344					IDENT$	14,25
						.IDENT	/014250/
   4393					;
   4394					;                             COPYRIGHT (C) 1975, 1978 BY
   4395					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   4396					;
   4397					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   4398					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   4399					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   4400					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   4401					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   4402					;
   4403					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   4404					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   4405					;       CORPORATION.
   4406					;
   4407					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   4408					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   4409					;
   4410					;		MODULE: "DTE20" DIRECTIVE
   4411					;
   4412					;		VERSION: 14-25
   4413					;
   4414					;		AUTHOR: R. MCLEAN
   4415					;
   4416					;		DATE: 19 MAR 75
   4417					;
   4418					;
   4419					;	THIS MODULE CONTAINS:
   4420					;
   4421					;	1 --  CODE TO SERVICE THE DTE20 EMT SERVICE
   4422					;
   4423					; MODIFICATIONS:
   4424					;
   4425					;	NO.	DATE		PROGRAMMER	PURPOSE
   4426					;	---	----		----------	-------
   4427					;	001	14-MAR-77	R. BELANGER	CONDITIONALLY REMOVE UNUSED
   4428					;						DTE-20 EMT SERVICES
   4429					;	002	01-APR-77	A. PECKHAM	FIX BUG IN "$DTEON"
   4430					;	003	18-AUG-77	R. BELANGER	FIX "$DTEON" TO RETURN CORRECT STATUS
   4431					;						AND NOT START PRIMARY PROTOCOL IF
   4432					;						"..SWED" FAILS.
   4433					;	004	21-FEB-78	R. BELANGER	FIX "$DTEON" TO SET UP
   4434					;						"PROTBL" PROPERLY.
   4435					;  TCO 4.2107	06-DEC-78	R. BELANGER	INITIALIZE KEEP-ALIVE DATA-BASE
   4436					;						IN "$DTEON".
   4437					; TCO 4.1.1105	11-MAR-80	R. BELANGER	CHANGE "EF.PR1" RECOGNITION
   4438					; TCO 4.1.1121	19-MAR-80	R. BELANGER	SUPPORT BLOCKED DTE-20
   4439					; TCO 4.1.1137	05-APR-80	R. BELANGER	REMOVE RESTRICTED DTE-20 SUPPORT
   4440					;
   4441					;	MACRO CALLS
   4442
   4443						.MCALL	CALL,RETURN,MFPI,MTPI,MFPS,MTPS,.CRASH,.INH,.ENB,$DEF
   4444
   4445	020344					$DEF
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 87
DTE20 EMT DISPATCH DECODER

   4447						.SBTTL	DTE20 EMT DISPATCH DECODER
   4448					;
   4449					;	CALLED BY EMT DISPATCH
   4450					;	THIS ROUTINE DECODES THE SPECIFIC DTE FUNCTION CODE
   4451					;	AND DISPATCHES TO THE CORRECT FUNCTION
   4452					;
   4453					;	ENTRY CONDITIONS:
   4454					;
   4455					;	R1 -- ADDRESS OF DPB
   4456					;	R2 -- SIZE OF DPB
   4457					;	R3 -- DIRECTIVE IDENTIFICATION CODE
   4458					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   4459					;
   4460					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4461					;
   4462					;	R0,R1,R2,R3,R4,R5
   4463					;
   4464					;	REGISTERS FOR USER AND DOES NOT REQUIRE EMT SERVICE
   4465					;	ROUTINES TO SAVE EMT'S REGISTERS.
   4466					;
   4467					;	EXIT TO DTE EMT SERVICE ROUTINE CONDITIONS:
   4468					;
   4469					;	3(SP) -- FUNCTION CODE PLUS HIGH ORDER BYTE OF SECOND WORD  OF DPB
   4470					;	R0 -- POINTER TO EXAMINE/DEPOSIT ADDRESSES
   4471					;	R1 -- WORD 5 OF DPB
   4472					;	R2 -- WORD 3 OF DPB
   4473					;	R3 -- WORD 4 OF DPB
   4474					;	R4 -- ADDRESS OF DPB
   4475					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   4476					;
   4477					;
   4478					;
   4479	020344				.D.DTE::
   4480	020344	005046 				CLR	-(SP)
   4481	020346	005046 				CLR	-(SP)
   4482	020350	010146 				MOV	R1,-(SP)	;SAVE POINTER TO DPB FOR R4
   4483	020352					MFPS	(R1)+,R0	;PUT THE FUNCTION CODE IN R0
	020352	012100 				MOV	(R1)+,R0
   4484	020354	150066 	000002 			BISB	R0,2(SP)
   4485	020360	105000 				CLRB	R0
   4486	020362	010066 	000004 			MOV	R0,4(SP)
   4487	020366	010204 				MOV	R2,R4		;SAVE SIZE OF DPB
   4488	020370	005046 				CLR	-(SP)		;SET DEFAULT PROCESSOR NUMBER
   4489	020372	162704 	000002 			SUB	#2,R4		;CHECK COUNT OF PARAMETERS
   4490	020376	001407 				BEQ	10$		;IF ZERO REGISTERS DON'T NEED BE SET UP (NO PARAMS)
   4491	020400					MFPS	(R1)+,R2	;MOVE THE CPU ADDRESS
	020400	012102 				MOV	(R1)+,R2
   4492	020402					MFPS	(R1)+,R3	;MOVE IN OFFSET ADDRESS TO COMM AREA
	020402	012103 				MOV	(R1)+,R3
   4493	020404	162704 	000002 			SUB	#2,R4		;CHECK TO SEE IF CPU PARAMETER
   4494	020410	001402 				BEQ	10$		;NO -- DON'T ATTEMPT TO SET REGISTER
   4495	020412					MFPS	(R1)+,@SP	;YES -- SET CPU NUMBER
	020412	012116 				MOV	(R1)+,@SP
   4496	020414	001031 				BNE	CPUERR		; [4.1.1137] ERROR IF NOT CPU 0
   4497	020416				10$:
   4498	020416	012601 				MOV	(SP)+,R1	;SET CPU NUMBER
   4499	020420	012604 				MOV	(SP)+,R4
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 87-1
DTE20 EMT DISPATCH DECODER

   4500	020422	012700 	001236'			MOV	#PROTBL,R0	; [4.1.1137] FIND PROCESSOR BLOCK
   4501	020426	006316 				ASL	@SP		;MULTIPLY FUNCTION CODE BY 2 TO FORM OFFSET
   4502	020430	062716 	020440'			ADD	#DTEDSP-2,@SP	;POINT INTO DISPATCH TABLE
   4503	020434	017616 	000000 			MOV	@(SP),@SP
   4504	020440	000136 				JMP	@(SP)+		;GO TO ROUTINE AND REMOVE ELEMENTFROM STACK
   4505						;
   4506	020442	020502'			DTEDSP:	.WORD	$DORBL		;RING DORBELL (FUNCTION CODE 1)
   4507	020444	020504'				.WORD	$DTEOF		;TURN OFF DTE20 (FUNCTION CODE 2)
   4508	020446	020512'				.WORD	$DTEON		;TURN ON DTE20 (FUNCTION CODE 3)
   4509	020450	021110'				.WORD	$DPMYG		;DEPOSIT MY GENERAL SECTION (FUNCTION CODE 4)
   4510	020452	021142'				.WORD	$EXMYG		;EXAMINE MY GENERAL SECTION (FUNCTION CODE 5)
   4511	020454	021152'				.WORD	$EXMYN		;EXAMINE MY SECTION FOR CPU N (FUNCTION CODE 6)
   4512	020456	021160'				.WORD	$DPMYN		;DEPOSIT MY SECTION FOR CPU N (FUNCTION CODE 7)
   4513	020460	021166'				.WORD	$EXHSG		;EXAMINE HIS GENERAL COMM (FUNCTION CODE 10)
   4514	020462	021174'				.WORD	$EXHSM		;EXAMINE HIS SECTION FOR ME (FUNCTION CODE 11)
   4515	020464	021202'				.WORD	$KLDFR		;START KL10 DIAGNOSTIC FUNCTION READ
   4516	020466	021342'				.WORD	$KLDFW		;START KL10 DIAGNOSTIC FUNCTION WRITE
   4517	020470	021320'				.WORD	$KLDFX		;START KL10 DIAGNOSTIC FUNCTION (FUNCTION CODE 12)
   4518	020472	021454'				.WORD	$PRVEX		;PRIVILEDGED EXAMINE (FUNCTION 13)
   4519	020474	021440'				.WORD	$PRVDP		;PRIVILEDGED DEPOSIT (FUNCTION 14)
   4520	020476	021510'				.WORD	$RWDRG		;READ/WRITE DIAGNOSTIC REGISTER (FUNCTION 15)
   4521						;
   4522	020500				CPUERR:
   4523	020500	104776 				TRAP	DE.02		; ILLEGAL CPU
   4524						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 88
$DORBL -- RING THE KL-10 DOORBELL

   4526						.SBTTL	$DORBL -- RING THE KL-10 DOORBELL
   4527
   4528					;+
   4529					;	$DORBL -- RING THE DOORBELL OF THE KL-10 SPECIFIED
   4530					;
   4531					;		* * *  U N S U P P O R T E D  F U N C T I O N  * * *
   4532					;
   4533					;-
   4534
   4535	020502				$DORBL::
   4552
   4553	020502	104635 				TRAP	DE.99		; +++001 THIS ISN'T HERE
   4554						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 89
$DTEOF -- TURN THE DTE20 OFF

   4557						.SBTTL	$DTEOF -- TURN THE DTE20 OFF
   4558
   4559					;+
   4560					;	$DTEOF -- TURN OFF THE DTE20
   4561					;
   4562					;	CALLING SEQUENCE:
   4563					;
   4564					;	JMP	$DTEOF
   4565					;
   4566					;	EXIT CONDITIONS:
   4567					;
   4568					;	R0 --1 TO INDICATE SUCCESS
   4569					;	CC-C CLEAR TO INDICATE SUCCESS
   4570					;
   4571					;	ERROR CONDITIONS: NONE
   4572					;
   4573					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4574					;-
   4575
   4576	020504				$DTEOF::
   4589	020504					CALL	..DTP2		;+ START UP SECONDARY PROTOCOL.
	020504	004737 	047006'			JSR	PC,..DTP2
   4590	020510	104401 				TRAP	DR.01		;RETURN STATUS OK
   4591						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 90
$DTEON -- TURN THE DTE20 ON

   4593						.SBTTL	$DTEON -- TURN THE DTE20 ON
   4594
   4595					;+
   4596					;	$DTEON -- TURN ON THE DTE20
   4597					;	THIS ROUTINE WILL SET UP THE TABLES NECESSARY TO
   4598					;	INITALIZE THE COMMUNICATON BETWEEN THE PDP10 AND PDP11'S
   4599					;
   4600					;	CALLING SEQUENCE:
   4601					;
   4602					;	JMP	$DTEON
   4603					;
   4604					;	EXIT CONDITIONS:
   4605					;
   4606					;	R0 --1 TO INDICATE SUCCESS
   4607					;	CC-C CLEAR TO INDICATE SUCCESS
   4608					;
   4609					;	ERROR CONDITIONS:
   4610					;
   4611					;	R0 -2 -- E BOX STOPPED
   4612					;	CC-C SET
   4613					;
   4614					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4615					;-
   4616
   4617	020512				$DTEON::
   4618	020512	010546 				MOV	R5,-(SP)
   4619	020514	011000 				MOV	(R0),R0		;;; [4.1.1137] FIND THE COMMON DTE20
   4620	020516	005001 				CLR	R1		;;;SET UP TO FIND PROCESSOR NUMBER
   4621	020520	005002 				CLR	R2		;;;START TRANSFER OF ABS WORD 0 OF EPT (MY PROCESSOR NUMBER
   4622	020522	012703 	001346'			MOV	#DEXTM3,R3	;;;SET UP ADDRESS TO STORE WORDS
   4623	020526					CALL	..SWED		;;; [4.1.1121] WAIT FOR EXAMINE/DEPOSIT
	020526	004737 	046670'			JSR	PC,..SWED
   4624	020532	103417 				BCS	1$		;;;E BOX STOP
   4625	020534	011304 				MOV	@R3,R4		;;;YES --FIND OFFSET TO MY R/W AREA
   4626	020536	113702 	001351'			MOVB	@#DEXTM2+1,R2	;;;FIND THE PROCESSOR NUMBER
   4627									;;; PROCESSOR NUMBER TO LOW ORDER BITS
   4628	020542	042702 	177740 			BIC	#^C37,R2	;;;MASK OFF JUNK(0.-31. LEGAL)
   4629	020546	010237 	001232'			MOV	R2,PRMEMN	;;;SAVE PROCESSOR NUMBER
   4630	020552	005202 				INC	R2		;;;FIND COMMUNICATIONS VIRTUAL 2
   4631	020554	010237 	001230'			MOV	R2,COMBSE	;;;SAVE BASE OF COMMUNICATIONS AREA
   4632	020560	060402 				ADD	R4,R2		;;;ADD OFFSET TO BASE OF COMM AREA
   4633	020562	010237 	001234'			MOV	R2,DEPOF	;;;SET CORRECT OFFSETT
   4634	020566					CALL	..SWED		;;; [4.1.1121] WAIT FOR TRANSFER
	020566	004737 	046670'			JSR	PC,..SWED
   4635	020572				1$:
   4636	020572	103543 				BCS	80$		;;; +++003
   4637	020574				2$:
   4638	020574	013705 	001350'			MOV	@#DEXTM2,R5	;;;PICK UP THE NUMBER OF 8 TM BLOCKS
   4639	020600	042705 	177770 			BIC	#177770,R5	;;;FIND THE NUMBER OF 8 WORD BLOCKS IN MY AREA
   4640	020604	162705 	000002 			SUB	#2,R5		;;;ACCOUNT FOR MY GENERAL SECTION
   4641	020610	010246 				MOV	R2,-(SP)
   4642	020612	010546 				MOV	R5,-(SP)	;;;SAVE COUNT OF BLOCKS
   4643	020614				16$:
   4644									;;; +++002
   4645	020614	062766 	000020 	000002 		ADD	#FORPRO,2(SP)	;;;LOOK AT A COMMUNICATIONS AREA TO ANOTHER PROCESSOR
   4646	020622	016602 	000002 			MOV	2(SP),R2
   4647	020626					CALL	..SWED		;;; [4.1.1121] WAIT FOR TRANSFER
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 90-1
$DTEON -- TURN THE DTE20 ON

	020626	004737 	046670'			JSR	PC,..SWED
   4648	020632	103523 				BCS	80$		;;; +++003 E BOX STOPPED
   4649	020634	011304 				MOV	@R3,R4		;;;FIND PROCESSOR NUMBER
   4650	020636	012705 	001236'			MOV	#PROTBL,R5	;SET INITIAL POINTER
   4651	020642	042704 	177770 			BIC	#177770,R4	;;;MASK OFF JUNK
   4652
   4659
   4660	020646				19$:
   4661	020646	013704 	001350'			MOV	@#DEXTM2,R4	;;;FIND NUMBER OF 8 WORD BLOCS
   4662	020652	042704 	177770 			BIC	#177770,R4	;;;MASK OFF POSSIBLE GARBAGE
   4663	020656	160416 				SUB	R4,@SP		;;;UPDATE COUNT OF BLOCKS
   4664	020660	005015 				CLR	@R5		;;;SET UP TO CLEAR TABLE IF NO DTE
   4665	020662	013704 	001352'			MOV	@#DEXTM1,R4	;;;PICK UP DTE NUMBER
   4666	020666	032704 	000004 			BIT	#4,R4		;;;DTE HERE?
   4667	020672	001422 				BEQ	20$		;;;NO -- DON'T ENTER IN TABLE
   4668	020674	000304 				SWAB	R4		;;;MAKE MOD 40 (8)
   4669	020676	006004 				ROR	R4
   4670	020700	006004 				ROR	R4
   4671	020702	006004 				ROR	R4
   4672	020704	042704 	177637 			BIC	#177637,R4	;;;MASKOFF JUNK
   4673	020710	062704 	174400 			ADD	#174400,R4	;;;POINT TO FIRST BLOCK OF DTE'S
   4674	020714	020437 	001360'			CMP	R4,.PRDTE	;;;PRIMARY DTE?
   4675	020720	001002 				BNE	10$		;;;NO -- DON'T SET TABLE POINTER
   4676	020722	010537 	001354'			MOV	R5,.PRADR	;;;SAVE TABLE OFFSET
   4677	020726				10$:
   4678	020726	010415 				MOV	R4,@R5		;;;SET DTE ADDRESS IN TABLE
   4679	020730	005014 				CLR	@R4		 ;;; [4.1.1105] SET UP DELAY COUNTER
   4680	020732	012764 	000040 	000034 		MOV	#INTRON,STATD(R4) ;;;YES -- ENABLE INTERRUPT ON IT
   4681	020740				20$:
   4682	020740	010265 	000002 			MOV	R2,EMYN(R5) 	;;;SET THE ADDRESS OF EXAMINE MY AREA FOR N
   4683									;;;MAKE ADDRESS OF THE ADDRESS OF DEPOSIT MY AREA FOR N
   4684	020744	010265 	000004 			MOV	R2,DMYN(R5) 	;;;STORE IT
   4685	020750	163765 	001234'	000004 		SUB	DEPOF,DMYN(R5) 	;;;RESTORE ADDRESS FOR EXAMINE OF THIS BLOCK
   4686	020756	062702 	000001 			ADD	#PROPNT-FORPRO,R2 ;;;READ POINTER TO HIS COMM AREA
   4687	020762					CALL	..SWED		;;; [4.1.1121] WAIT FOR EXAMINE/DEPOSIT
	020762	004737 	046670'			JSR	PC,..SWED
   4688	020766	103445 				BCS	80$		;;; +++003 E BOX STOPPED
   4689	020770	011302 				MOV	@R3,R2		;;;FIND THE EXAMINE ADDRESS
   4690	020772	063702 	001230'			ADD	COMBSE,R2	;;;ADD OFFSET TO COMMON AREA
   4691	020776	010265 	000006 			MOV	R2,EHSG(R5) 	;;;SET EHSG ADDRESS IN TABLE
   4692	021002	062702 	000020 			ADD	#FORPRO,R2	;;;POINT TO HIS FIRST TABLE FOR OTHER PROCESSORS
   4693	021006				50$:
   4694	021006					CALL	..SWED		;;; [4.1.1121] WAIT FOR EXAMINE/DEPOSIT
	021006	004737 	046670'			JSR	PC,..SWED
   4695	021012	103433 				BCS	80$		;;; +++003
   4696	021014	123713 	001232'			CMPB	PRMEMN,@R3 	;;;SAME PROCESSOR NUMBER?
   4697	021020	001411 				BEQ	60$		;;;YES -- FOUND MY ENTRY
   4698	021022	013704 	001350'			MOV	@#DEXTM2,R4	;;;NO -- FIND NEXT ENTRY IN LIST
   4699	021026	042704 	177770 			BIC	#177770,R4	;;;IT IS IN 8 WORD INCREMENTS
   4700	021032	006304 				ASL	R4		;;;SO IT MUST BE SHIFTED LEFT 3 BITS
   4701	021034	006304 				ASL	R4		;;;
   4702	021036	006304 				ASL	R4		;;;
   4703	021040	060402 				ADD	R4,R2		;;;READ NEXT BLOCK
   4704	021042	000761 				BR	50$		;;;AND TRY AGAIN
   4705						;
   4706	021044				60$:
   4707	021044	010265 	000010 			MOV	R2,EHSM(R5)	;;;STORE EHSM ADDRESS
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 90-2
$DTEON -- TURN THE DTE20 ON

   4708	021050	011605 				MOV	@SP,R5		;;;DONE ALL BLOCKS??
   4709	021052	101260 				BHI	16$		;;; +++002 NO -- TRY NEXT BLOCK
   4710	021054				70$:
   4711	021054	112737 	000005 	001410'		MOVB	#.KALSC,.KPAC+0	;;; [4.2107] INIT KEEP-ALIVE TIMER
   4712	021062	112737 	000001 	001411'		MOVB	#1,.KPAC+1	;;; [4.2107] AND RETRY COUNTER
   4713	021070	013737 	001376'	001404'		MOV	KPAL0,OKPAL0	;;; [4.2107] INIT LAST KEEP ALIVE COUNT
   4714	021076					CALL	..DTP1		;;;START THE PRIMARY PROTOCOL TASK
	021076	004737 	047036'			JSR	PC,..DTP1
   4715	021102				80$:				;;; +++003
   4716	021102	012605 				MOV	(SP)+,R5	;;; +++003 RESTORE R5
   4717	021104	000137 	013460'			JMP	.DR.NS		;RETURN STATUS IN R0
   4718						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 91
$DPMYG -- DEPOSIT INTO MY GENERAL SECTION

   4720						.SBTTL	$DPMYG -- DEPOSIT INTO MY GENERAL SECTION
   4721
   4722					;+
   4723					;	$DPMYG -- DEPOSIT INTO MY GENERAL SECTION WITH PROCESSOR N
   4724					;
   4725					;	ENTRY CONDITIONS:
   4726					;
   4727					;	R2 -- ADDRESS OF PDP-10 LOCATION TO TRANSFER  RELATIVE TO MY GEN REGION
   4728					;	R3 -- ADDRESS OF PDP-11 CORE ADDRESS TO WRITE FROM
   4729					;	CALLING SEQUENCE:
   4730					;
   4731					;	JMP		$DPMYG
   4732					;
   4733					;	EXIT CONDITIONS:
   4734					;
   4735					;	R0 -- +1 TRANSFER COMPLETED
   4736					;	CC-C CLEAR -- TRANSFER COMPLETED
   4737					;
   4738					;	ERROR CONDITIONS:
   4739					;
   4740					;	CC-C SET
   4741					;
   4742					;	R0 -2  -- E BOX STOPPED
   4743					;	R0 -3 -- SECONDARY PROTOCOL IN USE
   4744					;
   4745					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4746					;-
   4747
   4748	021110				$DPMYG::
   4749	021110	005001 				CLR	R1
   4750	021112				DPCMN:
   4751	021112	052701 	010000 			BIS	#DEP,R1		;;;SET DEPOSIT BIT IN ADDRESS WORD
   4752	021116				CMEDP:
   4753	021116	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] PRIMARY PROTOCOL RUNNING?
   4754	021122	100006 				BPL	DPMSEP		;;; [4.1.1105] NO -- ERROR
   4755	021124	011000 				MOV	@R0,R0		;;;FIND DTE20 ADDRESS
   4756	021126					CALL	..SWED		;;; [4.1.1121] WAIT FOR EXAMINE/DEPOSIT
	021126	004737 	046670'			JSR	PC,..SWED
   4757	021132	103401 				BCS	DPSEC		;;;ERROR -2
   4758	021134	104401 				TRAP	DR.01
   4759						;
   4760	021136				DPSEC:
   4761	021136	104776 				TRAP	DE.02		;E BOX STOPPED
   4762						;
   4763	021140				DPMSEP:
   4764	021140	104775 				TRAP	DE.03		;SECONDARY PROTOCOL IN USE
   4765						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 92
$EXMYG -- EXAMINE MY GENERAL SECTION

   4767						.SBTTL	$EXMYG -- EXAMINE MY GENERAL SECTION
   4768
   4769					;+
   4770					;	$EXMYG -- EXAMINE MY (PDP-11) GENERAL SECTION
   4771					;
   4772					;	ENTRY CONDITIONS:
   4773					;
   4774					;	R2 -- ADDRESS OF A PDP10 ADDRESS TO EXAMINE RELATIVE TO THE BASE OF MY GENERAL SECTION
   4775					;	R3 -- ADDRESS OF THE THREE WORD BLOCK TO TRANSFER TO
   4776					;
   4777					;	CALLING SEQUENCE:
   4778					;
   4779					;	JMP	$EXMYG
   4780					;
   4781					;	EXIT CONDITIONS:
   4782					;
   4783					;	R0 -- +1 SUCCESS
   4784					;	CC-C CLEAR -- SUCCESS
   4785					;
   4786					;	ERROR CONDITIONS:
   4787					;
   4788					;	CC-C SET
   4789					;
   4790					;	R0 -2 -- E BOX STOPPED
   4791					;	R0 -3 -- SECONDARY PROTOCOL IN USE
   4792					;
   4793					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4794					;-
   4795
   4796	021142				$EXMYG::
   4797	021142	063702 	001234'			ADD	DEPOF,R2	;ADD DEPOSIT OFFSET TO EXAMINE ADDRESS
   4798	021146				EXCMN:
   4799	021146	005001 				CLR	R1		;;;CLEAR HIGH ORDER 10 ADDRESS (FORCES EXAMINE)
   4800	021150	000762 				BR	CMEDP
   4801						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 93
$EXMYN -- EXAMINE MY SECTION FOR PROCESSOR N

   4803						.SBTTL	$EXMYN -- EXAMINE MY SECTION FOR PROCESSOR N
   4804
   4805					;+
   4806					;	$EXMYN -- EXAMINE MY SECTION FOR COMMUNICATING WITH PROCESSOR N
   4807					;
   4808					;	ENTRY CONDITIONS:
   4809					;
   4810					;	R2 -- ADDRESS WORD WITHIN REGION TO EXAMINE
   4811					;	R3 -- PDP-11 CORE ADDRESS
   4812					;
   4813					;	CALLING SEQUENCE:
   4814					;
   4815					;	JMP	$EXMYN
   4816					;
   4817					;	EXIT CONDITIONS:
   4818					;
   4819					;	R0 -- +1 - SUCCESS
   4820					;	CC-C CLEAR -- SUCCESS
   4821					;
   4822					;	ERROR CONDITIONS:
   4823					;
   4824					;	CC-C SET
   4825					;	R0 -1 -- ILLEGAL CPU NUMBER
   4826					;	R0 -2 -- E BOX STOPPED
   4827					;	R0 -3 -- SECONDARY PROTOCOL IN USE
   4828					;
   4829					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4830					;-
   4831
   4832	021152				$EXMYN::
   4833	021152	066002 	000002 			ADD	EMYN(R0),R2	;SET CALCULATED ADDRESS TO COMM AREA
   4834	021156	000773 				BR	EXCMN		;GO TO COMMON AREA
   4835						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 94
$DPMYN -- DEPOSIT INTO MY SECTION FOR COMM WITH PROCESSOR N

   4837						.SBTTL	$DPMYN -- DEPOSIT INTO MY SECTION FOR COMM WITH PROCESSOR N
   4838
   4839					;+
   4840					;	$DPMYN --  DEPOSIT INTO MY SECTION FOR COMMUNICATING WITH PROCESSOR N
   4841					;
   4842					;	ENTRY CONDITIONS:
   4843					;
   4844					;	R2 -- ADDRESS WORD WITHIN REGION TO DEPOSIT
   4845					;	R3 -- ADDRESS IN PDP-11 TO TRANSFER FROM
   4846					;
   4847					;	CALLING SEQUENCE:
   4848					;
   4849					;	JMP	$DPMYN
   4850					;
   4851					;	EXIT CONDITIONS:
   4852					;
   4853					;	R0 -- +1 -SUCCESS
   4854					;	CC-C CLEAR - SUCCESS
   4855					;
   4856					;	ERROR CONDITIONS:
   4857					;
   4858					;	CC-C SET
   4859					;	R0 -1 -- ILLEGAL CPU NUMBER
   4860					;	R0 -2 -- E BOX STOPPED
   4861					;	R0 -3 -- SECONDARY PROTOCOL IN USE
   4862					;
   4863					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4864					;-
   4865
   4866	021160				$DPMYN::
   4867	021160	066002 	000004 			ADD	DMYN(R0),R2	;FIND CORRECT ADDRESS IN COMMON AREA
   4868	021164	000752 				BR	DPCMN		;DEPOSIT IN COMMON AREA
   4869						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 95
$EXHSG -- EXAMINE HIS GENERAL COMMUNICATION SECTION

   4871						.SBTTL	$EXHSG -- EXAMINE HIS GENERAL COMMUNICATION SECTION
   4872
   4873					;+
   4874					;	$EXHSG -- EXAMINE HIS GENERAL COMMUNICATION SECTION
   4875					;
   4876					;	ENTRY CONDITIONS:
   4877					;
   4878					;	R2 -- WORD NUMBER IN HIS GENERAL SECTION
   4879					;	R3 -- ADDRESS TO STORE EXAMINE
   4880					;
   4881					;	CALLING SEQUENCE:
   4882					;
   4883					;	JMP	$EXHSG
   4884					;
   4885					;	EXIT CONDITIONS:
   4886					;
   4887					;	R0 -- +1 - SUCCESS
   4888					;	CC-C CLEAR - SUCCESS
   4889					;
   4890					;	ERROR CONDITIONS:
   4891					;
   4892					;	R0 -1 -- ILLEGAL CPU NUMBER
   4893					;	R0 -2 -- EBOX STOPPED
   4894					;	R0 -3  -- SECONDARY PROTOCOL IN USE
   4895					;
   4896					;	CC-C SET
   4897					;
   4898					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4899					;-
   4900
   4901	021166				$EXHSG::
   4902	021166	066002 	000006 			ADD	EHSG(R0),R2	;FIND OFFSET TO COMMUNICATIONS AREA
   4903	021172	000765 				BR	EXCMN		;GO TO COMMON EXAMINE
   4904						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 96
$EXHSM -- EXAMINE HIS SECTION FOR COMMUNICATING WITH ME

   4906						.SBTTL	$EXHSM -- EXAMINE HIS SECTION FOR COMMUNICATING WITH ME
   4907
   4908					;+
   4909					;	$EXHSM -- EXAMINE HIS SECTION FOR COMMUNICATING WITH ME
   4910					;
   4911					;	ENTRY CONDITIONS:
   4912					;
   4913					;	R2 -- ADDRESS OF WORD WITHIN REGION TO EXAMINE
   4914					;	R3 -- ADDRESS TO STORE PDP-10 WORD
   4915					;
   4916					;	CALLING SEQUENCE:
   4917					;
   4918					;	JMP	$EXHSM
   4919					;
   4920					;	EXIT CONDITIONS:
   4921					;
   4922					;	R0 -- +1 - SUCCESS
   4923					;	CC-C CLEAR - SUCCESS
   4924					;
   4925					;	ERROR CONDITIONS:
   4926					;
   4927					;	CC-C SET
   4928					;	R0 -1 -- ILLEGAL CPU NUMBER
   4929					;	R0 -2 -- E BOX STOPPED
   4930					;	R0 -3 -- SECONDARY PROTOCOL IN USE
   4931					;
   4932					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4933					;-
   4934
   4935	021174				$EXHSM::
   4936	021174	066002 	000010 			ADD	EHSM(R0),R2	;FIND OFFSET INTO COMM AREA
   4937	021200	000762 				BR	EXCMN		;GO TO EXAMINE
   4938						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 97
$KLDFX -- EXECUTE A DIAGNOSTIC FUNCTION

   4940						.SBTTL	$KLDFX -- EXECUTE A DIAGNOSTIC FUNCTION
   4941
   4942					;+
   4943					;	$KLDFX -- EXECUTE A DIAGNOSTIC FUNCTION
   4944					;
   4945					;	THIS FUNCTION WILL LOAD AND READ THE EBUS.
   4946					;	IT DOES A DATA SEND OPERATION IF IT IS A WRITE FUNCTION
   4947					;	AND IT ALWAYS RETURNS THE STATUS OF THE DIAGNOSTIC REGISTERS
   4948					;	AND EBUS (DEXWD1-3) AFTER EACH FUNCTION.
   4949					;
   4950					;	ENTRY CONDITIONS:
   4951					;
   4952					;	00(SP) -- FUNCTION TO BE EXECUTED (BITS 15-9)
   4953					;	R3 -- ADDRESS OF FOUR WORD BLOCK TO STORE DIAG1-3
   4954					;	R2 -- PDP11 6 WORD BLOCK THE FIRST 3 WORDS ARE
   4955					;	USED TO STORE THE CONTENTS IN THE E BUS THE SECOND 3 WORDS
   4956					;	ARE USED TO STORE THE RESULTS OF THE DIAGNOSTIC FUNCTION E BUS
   4957					;
   4958					;	CALL	$KLDFX
   4959					;
   4960					;	EXIT CONDITIONS:
   4961					;
   4962					;	CC-C CLEAR
   4963					;	R0 -- +1 -- SUCCESS
   4964					;
   4965					;	ERROR CONDITIONS:
   4966					;
   4967					;	-2 -- FUNCTION FAILED
   4968					;
   4969					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   4970					;
   4971					;-
   4972
   4973	021202				$KLDFR::
   4974	021202	011001 				MOV	(R0),R1		; [4.1.1137] POINT TO THE DTE-20
   4975	021204	012600 				MOV	(SP)+,R0	;RESTORE FUNCTION
   4976	021206					CALL	CESCHK		;RESET DTE-20 IF CLOCK ERROR STOP
	021206	004737 	021540'			JSR	PC,CESCHK
   4977	021212	042700 	000777 			BIC	#777,R0		;MASK OFF FUNCTION CODE
   4978	021216	052700 	000211 			BIS	#DIKL10!DCOMST!DFUNC,R0 ;SET DIAGNOSTIC FUNCTION START BITS
   4979	021222	062702 	000006 			ADD	#6,R2		;DON'T DO THE E BUS WRITE
   4980	021226				KLCST:
   4981	021226	010061 	000030 			MOV	R0,DAG1(R1)	;START FUNCTION
   4982	021232	012737 	003000 	001344'		MOV	#3000,DEXST	;TIME OUT FUNCTION
   4983	021240				10$:
   4984	021240	032761 	000001 	000030 		BIT	#DCOMST,DAG1(R1) ;WAIT FOR THE FUNCTION TO COMPLETE
   4985	021246	001404 				BEQ	22$
   4986	021250	005337 	001344'			DEC	DEXST		;COUNT DOWN
   4987	021254	100371 				BPL	10$
   4988	021256	104776 				TRAP	DE.02		;TRAP ERROR
   4989						;
   4990	021260				22$:
   4991	021260					MTPS	DXWD3(R1),(R2)+	;STORE THE FOUND WORD IN PDP11
	021260	016122 	000002 			MOV	DXWD3(R1),(R2)+
   4992	021264					MTPS	DXWD2(R1),(R2)+
	021264	016122 	000004 			MOV	DXWD2(R1),(R2)+
   4993	021270					MTPS	DXWD1(R1),(R2)+
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 97-1
$KLDFX -- EXECUTE A DIAGNOSTIC FUNCTION

	021270	016122 	000006 			MOV	DXWD1(R1),(R2)+
   4994	021274	005703 				TST	R3		;ANYWHERE TO STORE?
   4995	021276	001407 				BEQ	20$		;NO -- FORGET IT
   4996	021300	010104 				MOV	R1,R4		; YES -- POINT TO THE DTE-20
   4997	021302	062704 	000030 			ADD	#DAG1,R4	; DIAGNOSTIC REGISTERS
   4998	021306					MTPS	(R4)+,(R3)+	;STORE DIAGNOSITC REGISTERS
	021306	012423 				MOV	(R4)+,(R3)+
   4999	021310					MTPS	(R4)+,(R3)+
	021310	012423 				MOV	(R4)+,(R3)+
   5000	021312					MTPS	(R4)+,(R3)+
	021312	012423 				MOV	(R4)+,(R3)+
   5001	021314					MTPS	(R4)+,(R3)+
	021314	012423 				MOV	(R4)+,(R3)+
   5002	021316				20$:
   5003	021316	104401 				TRAP	DR.01		;SET OK RETURN TO CALLER
   5004						;
   5005	021320				$KLDFX::
   5006	021320	011001 				MOV	(R0),R1		; [4.1.1137] POINT TO THE DTE-20
   5007	021322	012600 				MOV	(SP)+,R0	;FIND FUNCTION BITS
   5008	021324					CALL	CESCHK		;RESET DTE-20 IF CLOCK ERROR STOP
	021324	004737 	021540'			JSR	PC,CESCHK
   5009	021330	042700 	000777 			BIC	#777,R0		;CLEAR OFF LOW ORDER FUNCTION CODE
   5010	021334	052700 	000201 			BIS	#DCOMST!DFUNC,R0 ;SET DIAG FUNCTION EXECUTE
   5011	021340	000410 				BR	$KLDFC		;ENTER COMMON CODE
   5012						;
   5013	021342				$KLDFW::
   5014	021342	011001 				MOV	(R0),R1		; [4.1.1137] POINT TO THE DTE-20
   5015	021344	012600 				MOV	(SP)+,R0	;FIND FUNCTION BITS
   5016	021346					CALL	CESCHK		;RESET DTE-20 IF CLOCK ERROR STOP
	021346	004737 	021540'			JSR	PC,CESCHK
   5017	021352	042700 	000777 			BIC	#777,R0		;MASK OFF LOW ORDER FUNCTION CODE
   5018	021356	052700 	000215 			BIS	#DCOMST!DSEND!DIKL10!DFUNC,R0
   5019	021362				$KLDFC::
   5020	021362					MFPS	(R2)+,DXWD3(R1)	;STORE THE OUTPUT FOR THE EBUS
	021362	012261 	000002 			MOV	(R2)+,DXWD3(R1)
   5021	021366					MFPS	(R2)+,DXWD2(R1)
	021366	012261 	000004 			MOV	(R2)+,DXWD2(R1)
   5022	021372					MFPS	(R2)+,DXWD1(R1)
	021372	012261 	000006 			MOV	(R2)+,DXWD1(R1)
   5023	021376	032700 	000004 			BIT	#DSEND,R0	;DIAG WRITE?
   5024	021402	001711 				BEQ	KLCST		;GO TO COMMON OUTPUT EQOUTINE
   5025	021404				10$:
   5026	021404	012761 	000014 	000030 		MOV	#DIKL10!DSEND,DAG1(R1)	;WRITE
   5027	021412	012761 	010000 	000010 		MOV	#DEP,TNAD1(R1)	;SIMULATE DEPOSIT
   5028	021420	005061 	000012 			CLR	TNAD2(R1)
   5029	021424				20$:
   5030	021424	010046 				MOV	R0,-(SP)	;SAVE R0
   5031	021426	010100 				MOV	R1,R0
   5032	021430					CALL	..WFED		; [4.1.1121] WAIT FOR DEX DONE
	021430	004737 	046216'			JSR	PC,..WFED
   5033	021434	012600 				MOV	(SP)+,R0
   5034	021436	000673 				BR	KLCST
   5035						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 98
$PRVDP -- PRIVILEDGED DEPOSIT

   5037						.SBTTL	$PRVDP -- PRIVILEDGED DEPOSIT
   5038
   5039					;+
   5040					;	$PRVDP -- PRIVILEDGED DEPOSIT OF THE KL10 MEMORY
   5041					;
   5042					;
   5043					;	ENTRY CONDITIONS:
   5044					;
   5045					;	R0 -- PROCESSOR TABLE POINTER
   5046					;	R1 -- WORD 5 OF DPB
   5047					;	R2 -- WORD 3 OF DPB
   5048					;	R3 -- WORD 4 OF DPB
   5049					;	R4 -- ADDRESS OF DPB
   5050					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK
   5051					;
   5052					;	CALLING SEQUENCE:
   5053					;
   5054					;	JMP	$PRVDP
   5055					;
   5056					;	ERROR CONDITIONS:
   5057					;
   5058					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   5059					;-
   5060
   5061	021440				$PRVDP::
   5062	021440					MFPS	2(R2),R1	;SET UP THE INTERNAL ADDRESS 2(PDP11 ADDRESS
	021440	016201 	000002 			MOV	2(R2),R1
   5063	021444	052601 				BIS	(SP)+,R1	;SET HIGH ORDER OF PRIVILEDGE
   5064	021446	052701 	010000 			BIS	#DEP,R1		;SET PRIVILEDGED DEPOSIT
   5065	021452	000405 				BR	PRVCM
   5066						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 99
$PRVEX -- PRIVILEDGED EXAMINE

   5068						.SBTTL	$PRVEX -- PRIVILEDGED EXAMINE
   5069
   5070					;+
   5071					;	$PRVEX -- PRIVILEDGED EXAMINE OF THE KL10 MEMORY
   5072					;
   5073					;	ENTRY CONDITIONS:
   5074					;
   5075					;	R0 -- PROCESSOR TABLE POINTER
   5076					;	R1 -- WORD 5 OF DPB
   5077					;	R2 -- WORD 3 OF DPB
   5078					;	R3 -- WORD 4 OF DPB
   5079					;	R4 -- ADDRESS OF DPB
   5080					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK
   5081					;
   5082					;	CALLING SEQUENCE:
   5083					;
   5084					;	JMP	$PRVEX
   5085					;
   5086					;	ERROR CONDITIONS:
   5087					;
   5088					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   5089					;-
   5090
   5091	021454				$PRVEX::
   5092	021454					MFPS	2(R2),R1	;SET UP THE INTERNAL ADDRESS 2(PDP11 ADDRESS
	021454	016201 	000002 			MOV	2(R2),R1
   5093	021460	052601 				BIS	(SP)+,R1	;SET HIGH ORDER OF PRIVILEDGE
   5094	021462	042701 	010000 			BIC	#DEP,R1		;INSURE THAT IT IS AN EXAMINE
   5095	021466				PRVCM:
   5096	021466	052701 	004000 			BIS	#PRTOFF,R1	;SET PRIVILEDGED EXAMINE/DEPOSIT
   5097	021472					MFPS	@R2,R2		;LOWER ORDER HALF
	021472	011202 				MOV	@R2,R2
   5098	021474	011000 				MOV	(R0),R0		; [4.1.1137] POINT TO THE DTE-20
   5099	021476					CALL	..SWED		; [4.1.1121] START-WAIT FOR EXAMINE/DEPOSIT
	021476	004737 	046670'			JSR	PC,..SWED
   5100	021502	103401 				BCS	20$		;E BOX STOPPED ERROR
   5101	021504	104401 				TRAP	DR.01		;MUST BE OK -- RETURN TO USER
   5102						;
   5103	021506				20$:
   5104	021506	104776 				TRAP	DE.02		;RETURN EBOX STOPPED ERROR
   5105						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 100
$RWDRG -- READ/WRITE DIAGNOSTIC REGISTER

   5107						.SBTTL	$RWDRG -- READ/WRITE DIAGNOSTIC REGISTER
   5108
   5109					;+
   5110					;
   5111					;	$RWDRG -- PRIVILEDGED READ/WRITE OF DIAGNOSTIC DTE20 REGISTERS
   5112					;
   5113					;	ENTRY CONDITIONS:
   5114					;
   5115					;	R0 -- PROCESSOR TABLE POINTER
   5116					;	R1 -- WORD 5 OF DPB
   5117					;	R2 -- WORD 3 OF DPB
   5118					;	R3 -- WORD 4 OF DPB
   5119					;	R4 -- ADDRESS OF DPB
   5120					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK
   5121					;
   5122					;	CALLING SEQUENCE:
   5123					;
   5124					;	JMP	$RWDRG
   5125					;
   5126					;	ERROR CONDITIONS:
   5127					;
   5128					;	REGISTERS SAVED AND RESTORED BY EMT SERVICE
   5129					;-
   5130
   5131	021510				$RWDRG::
   5132	021510	011001 				MOV	(R0),R1		; [4.1.1137] POINT TO THE DTE-20
   5133	021512	000316 				SWAB	@SP		;FIND THE REGISTER NUMBER
   5134	021514	062601 				ADD	(SP)+,R1	;MAKE EXTERNAL PAGE OFFSET
   5135	021516	005702 				TST	R2		;IS IT WRITE?
   5136	021520	001402 				BEQ	10$		;NO -- DON'T SET IT
   5137	021522					MFPS	@R2,DAG1(R1)	;YES -- SET REGISTER
	021522	011261 	000030 			MOV	@R2,DAG1(R1)
   5138	021526				10$:
   5139	021526	005703 				TST	R3		;RETURN ADDRESS SPECIFIED?
   5140	021530	001402 				BEQ	20$		;NO -- THEN RETURN ALL OK
   5141	021532					MTPS	DAG1(R1),@R3	;SET IN USER SPACE
	021532	016113 	000030 			MOV	DAG1(R1),@R3
   5142	021536				20$:
   5143	021536	104401 				TRAP	DR.01		;MUST BE OK -- RETURN TO USER
   5144						;
DMDTE	- DTE DIRECTIVES MODULE	MACRO M1113  10-NOV-81 18:56  PAGE 101
CESCHK -- CHECK FOR CLOCK ERROR STOP

   5146						.SBTTL	CESCHK -- CHECK FOR CLOCK ERROR STOP
   5147
   5148					;+
   5149					;	CESCHK -- CHECK FOR CLOCK ERROR STOP
   5150					;
   5151					;	ENTRY CONDITIONS:
   5152					;
   5153					;	R1 -- ADDRESS OF CURRENT DTE-20
   5154					;
   5155					;	NO REGISTERS MODIFIED
   5156					;-
   5157
   5158	021540				CESCHK:
   5159	021540	005061 	000030 			CLR	DAG1(R1)	;CLEAR ALL FLAGS
   5160	021544	032761 	004000 	000030 		BIT	#DS04,DAG1(R1)	;CLOCK ERROR STOP UP?
   5161	021552	001403 				BEQ	10$		;NO-- JUST RETURN
   5162	021554	012761 	000100 	000032 		MOV	#DRESET,DAG2(R1) ;YES-- RESET DTE-20
   5163	021562				10$:
   5164	021562					RETURN			;FROM CESCHK
	021562	000207 				RTS	PC
DMASS	- "ASSIGN LUN" DIRECTIV	MACRO M1113  10-NOV-81 18:56  PAGE 102
CESCHK -- CHECK FOR CLOCK ERROR STOP

   5166						.TITLE	DMASS	- "ASSIGN LUN" DIRECTIVE MODULE
   5167						.SBTTL	ASIGN LUN -- COPYRIGHT STATEMENT
   5168	021564					IDENT$	1,0
						.IDENT	/001000/
   5169					;
   5170					;                             COPYRIGHT (C) 1975, 1978 BY
   5171					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   5172					;
   5173					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   5174					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   5175					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   5176					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   5177					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   5178					;
   5179					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   5180					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   5181					;       CORPORATION.
   5182					;
   5183					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   5184					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   5185					;
   5186					;		MODULE: "ASSIGN LUN" DIRECTIVE
   5187					;
   5188					;		VERSION: 01-00
   5189					;
   5190					;		AUTHOR: R. MCLEAN
   5191					;
   5192					;		DATE: 19 JUL 75
   5193					;
   5194					;
   5195					;	THIS MODULE CONTAINS:
   5196					;
   5197					;	1 -- CODE TO SERVICE THE "ASSIGN LUN" DIRECTIVE.
   5198					;
   5199					;	MACRO DEFINITIONS
   5200					;
   5201						.MCALL	CALL,RETURN
   5202						.MCALL	MFPI,MFPS
DMASS	- "ASSIGN LUN" DIRECTIV	MACRO M1113  10-NOV-81 18:56  PAGE 103
DIRECTIVE -- ASSIGN LUN

   5204						.SBTTL	DIRECTIVE -- ASSIGN LUN
   5205					;+
   5206					; THE "ASSIGN LUN" DIRECTIVE
   5207					;
   5208					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO ASSIGN A LOGICAL UNIT NUMBER (LUN)
   5209					; TO A PHYSICAL DEVICE-UNIT.
   5210					;
   5211					; A FOUR-WORD DPB OF THE FOLLOWING FORMAT IS USED TO ASSIGN A LUN
   5212					; TO A PHYSICAL DEVICE:
   5213					;
   5214					;	WD. 00 -- DIC (07.) & DPB SIZE (4.),
   5215					;	WD. 01 -- LOGICAL UNIT NUMBER,
   5216					;	WD. 02 -- PHYSICAL DEVICE NAME,
   5217					;	WD. 03 -- PHYSICAL DEVICE UNIT NUMBER.
   5218					;
   5219					; A TWO-WORD DPB OF THE FOLLOWING FORMAT IS USED TO DEASSIGN (ASSIGN
   5220					; TO "NONE") A LUN:
   5221					;
   5222					;	WD. 00 -- DIC (07.) & DPB SIZE (2.),
   5223					;	WD. 01 -- LOGICAL UNIT NUMBER.
   5224					;
   5225					; THE FOLLOWING STATUS IS RETURNED:
   5226					;
   5227					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   5228					; OF ONE (+1).
   5229					;
   5230					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5231					;
   5232					;	-90 -- LUN USAGE INTERLOCKED (VIZ., FILE OPEN),
   5233					;	-92 -- INVALID DEVICE AND/OR UNIT,
   5234					;	-96 -- INVALID LOGICAL UNIT NUMBER,
   5235					;	-98 -- PART OF DPB IS OUT OF ISSUING TASK'S ADDRESS SPACE,
   5236					;	-99 -- DIC OR DPB SIZE IS INVALID.
   5237					;-
   5238					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5239					; DIRECTIVE ISSUING TASK'S PS, PC, & R1-R5 PUSHED ONTO THE
   5240					;  STACK, AND R0-R5 SET AS FOLLOWS:
   5241					;	R0 -- PC OF EMT INSTRUCTION
   5242					;	R1 -- POINTER TO WORD FOLLOWING DIC & SIZE
   5243					;	R2 -- DPB SIZE
   5244					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5245					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK ('.CRTSK')
   5246					;
   5247					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   5248					;
   5249					;
   5250					; LUN ASSIGNMENT -- CHECK FOR VALIDITY OF LUN & DEVICE-UNIT AND ASSIGN
   5251					; IF NOT INTERLOCKED.
   5252					;
   5253	021564				.D.ASS::MFPI	@R1		;VALIDATE LUN, AND SETUP  TO ACCESS TASK
	021564	011146 				MOV	@R1,-(SP)
   5254									;HEADER, BY PUSHING LUN AND CALLING
   5255									;SUBROUTINE TO CONVERT & VERIFY.
   5256	021566					CALL	.VCLUN		;IF INVALID LUN, RETURN STS=-96.
	021566	004737 	015654'			JSR	PC,.VCLUN
   5257	021572	010416 				MOV	R4,@SP		;PUD ENTRY ADR ON STACK REPLACED BY LUT ADDRESS
   5258					;
DMASS	- "ASSIGN LUN" DIRECTIV	MACRO M1113  10-NOV-81 18:56  PAGE 103-1
DIRECTIVE -- ASSIGN LUN

   5259	021574	005003 				CLR	R3		;SET UP INCASE OF DEASSIGNMENT
   5260	021576	020227 	000002 			CMP	R2,#2		;IS THIS LUN DEASSIGNMENT?
   5261	021602	001422 				BEQ	60$		;YES -- DEASSIGN LUN
   5267					;
   5268	021604				45$:	MFPI	(R1)+		;PUSH LUN, AND LEAVE R1 POINTING TO DEV NAME
	021604	012146 				MOV	(R1)+,-(SP)
   5269					;
   5270	021606					MFPS	(R1)+,R4	;SET R4 TO DEVICE NAME.
	021606	012104 				MOV	(R1)+,R4
   5271									;R0 CONTAINS DEVICE UNIT NUMBER
   5272	021610					MFPS	@R1,R0
	021610	011100 				MOV	@R1,R0
   5273					;
   5274					; SCAN PUD FOR DEVICE-UNIT IN R4-R0.
   5275					;
   5276	021612	012703 	010232'			MOV	#.PUDBA,R3	;USE R3 TO SCAN PUD
   5277	021616				20$:
   5278	021616	020327 	011312'			CMP	R3,#.PUDEA	;END OF PUD?
   5279	021622	001001 				BNE	30$
   5280	021624	104644 				TRAP	DE.92		;YES -- DEVICE-UNIT NOT FOUND
   5281	021626	021304 			30$:	CMP	@R3,R4		;NO -- DEVICE NAME MATCH?
   5282	021630	001003 				BNE	40$		;NO -- CHECK NEXT ENTRY
   5283	021632	126300 	000002 			CMPB	U.UN(R3),R0	;YES -- UNIT NUMBER MATCH?
   5284	021636	001403 				BEQ	50$		;YES -- DEVICE-UNIT FOUND
   5285									;NO -- CHECK NEXT ENTRY
   5286	021640				40$:
   5287	021640	062703 	000050 			ADD	#U.SZ,R3	;ADVANCE R3 TO NEXT PUD ENTRY (IF ANY), AND
   5288	021644	000764 				BR	20$		;CHECK FOR DEVICE-UNIT MATCH.
   5289					;
   5290					; INDICATED DEVICE-UNIT FOUND IN PUD -- PUD ENTRY ADDRESS IS IN R3
   5291					;
   5292	021646	012600 			50$:	MOV	(SP)+,R0	;SET R0 TO LUN
   5293					;
   5294					; R3 CONTAINS A VALUE (PUD ENTRY ADDRESS OR ZERO) TO BE SET IN THE
   5295					; THE FIRST WORD OF THE LUT PER LUN IN R0.
   5296					;
   5297	021650				60$:
   5298	021650	006300 				ASL	R0		;SET R0 TO FOUR TIMES THE LUN
   5299	021652	006300 				ASL	R0
   5300	021654	062600 				ADD	(SP)+,R0	;POINT TO LUT AS SAVED
   5301					;
   5302	021656	005740 				TST	-(R0)		;IS LUN LOCKED IN USE?
   5303	021660	001401 				BEQ	70$
   5304	021662	104646 				TRAP	DE.90		;YES -- RETURN STS=-90.
   5305	021664	010340 			70$:	MOV	R3,-(R0)	;NO -- MAKE ASSIGNMENT, AND
   5306	021666	104401 				TRAP	DR.01		;RETURN STS=+1
DMGLI	- "GET LUN INFO" DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 104
DIRECTIVE -- ASSIGN LUN

   5308						.TITLE	DMGLI	- "GET LUN INFO" DIRECTIVE MODULE
   5309						.SBTTL	GET LUN INFO -- COPYRIGHT STATEMENT
   5310	021670					IDENT$	1,0
						.IDENT	/001000/
   5311					;
   5312					;                             COPYRIGHT (C) 1975, 1978 BY
   5313					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   5314					;
   5315					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   5316					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   5317					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   5318					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   5319					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   5320					;
   5321					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   5322					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   5323					;       CORPORATION.
   5324					;
   5325					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   5326					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   5327					;
   5328					;		MODULE: "GET LUN INFO" DIRECTIVE
   5329					;
   5330					;		VERSION: 01-00
   5331					;
   5332					;		AUTHOR: R. MCLEAN
   5333					;
   5334					;		DATE: 19 JUL 75
   5335					;
   5336					;
   5337					;	THIS MODULE CONTAINS:
   5338					;
   5339					;	1 -- CODE TO SERVICE THE "GET LUN INFO" DIRECTIVE.
   5340					;
   5341					;	MACROS
   5342					;
   5343						.MCALL	CALL,RETURN,MTPI,MFPI,MFPS
DMGLI	- "GET LUN INFO" DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 105
DIRECTIVE -- GET LUN INFORMATION

   5345						.SBTTL	DIRECTIVE -- GET LUN INFORMATION
   5346					;+
   5347					; THE "GET LUN INFORMATION" DIRECTIVE
   5348					;
   5349					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO FILL A SIX WORD BUFFER
   5350					; WITH INFORMATION ABOUT A PHYSICAL UNIT TO WHICH IT IS ASSIGNED.
   5351					; IF REQUESTS TO THE PHYSICAL UNIT HAVE BEEN RE-DIRECTED TO ANOTHER
   5352					; UNIT, THE INFORMATION RETURNED WILL DESCRIBE THE EFFECTIVE ASSIGNMENT.
   5353					;
   5354					; A THREE WORD DPB OF THE FOLLOWING FORMAT IS USED:
   5355					;
   5356					;	WD. 00 -- DIC (05.) & DPB SIZE (3.),
   5357					;	WD. 01 -- LUN,
   5358					;	WD. 02 -- ADDRESS OF SIX-WORD BUFFER.
   5359					;
   5360					;
   5361					; THE SIX WORD BUFFER IS FILLED WITH THE FIRST SIX WORDS OF THE
   5362					; CORRESPONDING PUD ENTRY AS FOLLOWS:
   5363					;
   5364					;	WD. 00 -- NAME OF ASSIGNED DEVICE,
   5365					;	WD. 01 -- UNIT NUMBER OF ASSIGNED DEVICE & FLAGS BYTE,
   5366					;	WD. 02 -- DEVICE CHARACTERISTICS WD. #1,
   5367					;	WD. 03 -- DEVICE CHARACTERISTICS WD. #2,
   5368					;	WD. 04 -- DEVICE CHARACTERISTICS WD. #3,
   5369					;	WD. 05 -- DEVICE CHARACTERISTICS WD. #4.
   5370					;
   5371					; THE FOLLOWING STATUS IS RETURNED:
   5372					;
   5373					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   5374					; OF ONE (+1).
   5375					;
   5376					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5377					;
   5378					;	-05 -- UNASSIGNED LUN,
   5379					;
   5380					;	-95 -- INVALID BUFFER SIZE ( 1> OR >U.SZ)
   5381					;	-96 -- INVALID LOGICAL UNIT NUMBER,
   5382					;	-98 -- PART OF DPB OR BUFFER IS OUT OF TASK'S ADDRESS SPACE,
   5383					;	-99 -- DIC OR DPB SIZE IS INVALID.
   5384					;-
   5385									;R0 CONTAINS BUFFER ADDRESS (LAST DPB WORD)
   5386					;
   5387	021670	006302 			.D.GLI::ASL	R2		;MULTIPLY THE DPB SIZE BY 2
   5393					;
   5394					;
   5395	021672				10$:	MFPI	(R1)+		;PUSH LUN, AND CONVERT TO PUD ENTRY ADR
	021672	012146 				MOV	(R1)+,-(SP)
   5396	021674					CALL	.VCLUN		;IF INVALID LUN, RETURN STS=-96.
	021674	004737 	015654'			JSR	PC,.VCLUN
   5397	021700	012604 				MOV	(SP)+,R4	;SET R4 TO PUD ENTRY ADR IF LUN ASSIGNED
   5398	021702	001001 				BNE	20$		;IF UN-ASSIGNED LUN, RETURN STS=-05.
   5399	021704	104773 				TRAP	DE.05
   5400					;
   5401					; FILL BUFFER -- IF SEGMENT FAULT, RETURN STS=-98.
   5402					;
   5403	021706				20$:	MFPS	(R1),R0
	021706	011100 				MOV	(R1),R0
DMGLI	- "GET LUN INFO" DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 105-1
DIRECTIVE -- GET LUN INFORMATION

   5404	021710	012446 			30$:	MOV	(R4)+,-(SP)
   5405	021712					MTPI	(R0)+
	021712	012620 				MOV	(SP)+,(R0)+
   5406	021714	077203 				SOB	R2,30$
   5407					;
   5408	021716	104401 				TRAP	DR.01		;RETURN STS=+1
   5409					;
DMGTP	- "GET TIME PARAMETERS"	MACRO M1113  10-NOV-81 18:56  PAGE 106
DIRECTIVE -- GET LUN INFORMATION

   5411						.TITLE	DMGTP	- "GET TIME PARAMETERS" DIRECTIVE MODULE
   5412						.SBTTL	GET TIME PARAMETERS -- COPYRIGHT STATEMENT
   5413	021720					IDENT$	1,0
						.IDENT	/001000/
   5414					;
   5415					;                             COPYRIGHT (C) 1975, 1978 BY
   5416					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   5417					;
   5418					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   5419					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   5420					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   5421					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   5422					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   5423					;
   5424					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   5425					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   5426					;       CORPORATION.
   5427					;
   5428					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   5429					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   5430					;
   5431					;		MODULE: "GET TIME PARAMETERS" DIRECTIVE
   5432					;
   5433					;		VERSION: 01-00
   5434					;
   5435					;		AUTHOR: R. MCLEAN
   5436					;
   5437					;		DATE: 19 JUL 75
   5438					;
   5439					;
   5440					;	THIS MODULE CONTAINS:
   5441					;
   5442					;	1 -- CODE TO SERVICE THE "GET TIME PARAMETERS" DIRECTIVE.
   5443					;
   5444					;	MACROS
   5445					;
   5446						.MCALL	CALL,RETURN,MTPI,MFPS
DMGTP	- "GET TIME PARAMETERS"	MACRO M1113  10-NOV-81 18:56  PAGE 107
DIRECTIVE -- GET TIME PARAMETERS

   5448						.SBTTL	DIRECTIVE -- GET TIME PARAMETERS
   5449					;+
   5450					; THE "GET TIME PARAMETERS" DIRECTIVE
   5451					;
   5452					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO FILL AN INDICATED EIGHT WORD BUFFER
   5453					; WITH CURRENT TIME PARAMETERS.
   5454					;
   5455					; A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED:
   5456					;
   5457					;	WD. 00 -- DIC (59.) & DPB SIZE (2.),
   5458					;	WD. 01 -- ADDRESS OF 8-WORD BUFFER.
   5459					;
   5460					; THE 8-WORD BUFFER IS FILLED AS FOLLOWS:
   5461					;
   5462					;	WD. 0 -- YEAR (SINCE 1900),
   5463					;	WD. 1 -- MONTH OF YEAR,
   5464					;	WD. 2 -- DAY OF MONTH,
   5465					;	WD. 3 -- HOUR OF DAY,
   5466					;	WD. 4 -- MINUTE OF HOUR,
   5467					;	WD. 5 -- SECOND OF MINUTE,
   5468					;	WD, 6 -- TICK OF SECOND,
   5469					;	WD. 7 -- TICKS PER SECOND.
   5470					;
   5471					; THE FOLLOWING STATUS IS RETURNED:
   5472					;
   5473					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   5474					; OF ONE (+1).
   5475					;
   5476					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5477					;
   5478					;	-98 -- PART OF DPB OR BUFFER IS OUT OF TASK'S ADDRESS SPACE,
   5479					;	-99 -- DIC OR DPB SIZE IS INVALID.
   5480					;
   5481	021720	013746 	001154'		.D.GTP::MOV	.TKPS,-(SP)	;PUSH TICKS-PER-SECOND
   5482	021724	010104 				MOV	R1,R4		;SAVE DPB POINTER
   5483	021726	013700 	001150'			MOV	.SSM,R0		;FIND HOURS
   5484	021732	012701 	003410 			MOV	#60.*30.,R1
   5485	021736					CALL	$DIV		;DIVIDE
	021736	004737 	000000G			JSR	PC,$DIV
   5486	021742	010003 				MOV	R0,R3		;SAVE ANSWER
   5487	021744	010100 				MOV	R1,R0		;SET UP REMAINDER FOR NEXT DIVIDE
   5488	021746	012701 	000036 			MOV	#30.,R1
   5489	021752					CALL	$DIV		;FIND MIN
	021752	004737 	000000G			JSR	PC,$DIV
   5490	021756	005046 				CLR	-(SP)		;TICKS NOT RETURNED
   5491	021760	006301 				ASL	R1
   5492	021762	010146 				MOV	R1,-(SP)	;SAVE SECONDS
   5493	021764	010046 				MOV	R0,-(SP)
   5494	021766	010346 				MOV	R3,-(SP)	;HOURS
   5495	021770	005046 				CLR	-(SP)
   5496	021772	113716 	001144'			MOVB	.DAY,@SP
   5497	021776	005216 				INC	@SP
   5498	022000	005046 				CLR	-(SP)
   5499	022002	113716 	001145'			MOVB	.MON,@SP
   5500	022006	005216 				INC	@SP
   5501	022010	013746 	001142'			MOV	.YEAR,-(SP)
   5502	022014	162716 	003554 			SUB	#1900.,@SP
DMGTP	- "GET TIME PARAMETERS"	MACRO M1113  10-NOV-81 18:56  PAGE 107-1
DIRECTIVE -- GET TIME PARAMETERS

   5503					;
   5504					;
   5505					; MOVE TIME PARAMETERS FROM KERNEL STACK TO 8-WORD BUFFER IN USER SPACE
   5506					;
   5507					;
   5508	022020	012703 	000010 			MOV	#8.,R3
   5509					;
   5510	022024					MFPS	(R4),R4		;FIND BUFFER ADDRESS
	022024	011404 				MOV	(R4),R4
   5511	022026				10$:
   5512	022026					MTPI	(R4)+		;MOVE WORD
	022026	012624 				MOV	(SP)+,(R4)+
   5513	022030	077302 				SOB	R3,10$		;LOOP 8 TIMES
   5514					;
   5515	022032	104401 				TRAP	DR.01		;RETURN STS=+1
   5516					;
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 108
DIRECTIVE -- GET TIME PARAMETERS

   5518						.TITLE	DMSED	- SIGNIFICANT EVENT DIRECTIVES MODULE
   5519						.SBTTL	SIGNIFICANT EVENT DIRECTIVES -- COPYRIGHT STATEMENT
   5520	022034					IDENT$	1,0
						.IDENT	/001000/
   5521					;
   5522					;                             COPYRIGHT (C) 1975, 1978 BY
   5523					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   5524					;
   5525					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   5526					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   5527					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   5528					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   5529					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   5530					;
   5531					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   5532					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   5533					;       CORPORATION.
   5534					;
   5535					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   5536					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   5537					;
   5538					;		MODULE: SIGNIFICANT EVENT DIRECTIVES
   5539					;
   5540					;		VERSION: 01-00
   5541					;
   5542					;		AUTHOR:  R. MCLEAN
   5543					;
   5544					;		DATE: 19 MAR 75
   5545					;
   5546					;
   5547					;	THIS MODULE CONTAINS:
   5548					;
   5549					;	1 -- CODE TO SERVICE THE "WAITFOR SINGLE EVENT FLAG" DIRECTIVE,
   5550					;	2 -- CODE TO SERVICE THE "WAITFOR LOGICAL 'OR' OF FLAGS" DIRECTIVE,
   5551					;	3 -- CODE TO SERVICE THE "WAIT FOR NEXT SIGNIFICANT EVENT" DIRECTIVE.
   5552					;	4 -- CODE TO SERVICE THE "CLEAR EVENT FLAG" DIRECTIVE,
   5553					;	5 -- CODE TO SERVICE THE "SET EVENT FLAG" DIRECTIVE,
   5554					;	6 -- CODE TO SERVICE THE "DECLARE SIG EVENT" DIRECTIVE,
   5555					;	7 -- CODE TO SERVICE THE "READ EVENT FLAGS" DIRECTIVE
   5556					;
   5557					;	MACROS
   5558
   5559						.MCALL	CALL,RETURN,MTPS,MFPS,MFPI,MTPI
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 109
DIRECTIVE -- CLEAR EVENT FLAG

   5561						.SBTTL	DIRECTIVE -- CLEAR EVENT FLAG
   5562					;+
   5563					;	THE "CLEAR EVENT FLAG" DIRECTIVE
   5564					;
   5565					;	THIS DIRECTIVE INSTRUCTS THE SYSTEM TO CLEAR AND INDICATE
   5566					;	EVENT FLAG AND REPORT THE FLAG'S POLARITY BEFORE CLEARING.
   5567					;
   5568					;	A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED;
   5569					;
   5570					;	WD. 00 -- DIC (31.) & DPB SIZE (2.)
   5571					;	WD. 01 -- EVENT FLAG NUMBER (EFN)
   5572					;
   5573					;	THE FOLLOWING STATUS IS RETURNED:
   5574					;
   5575					;
   5576					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS OF:
   5577					;
   5578					;	R0 -- +0 -- FLAG WAS ALREADY RESET,
   5579					;	R0 -- +2 -- FLAG WAS SET.
   5580					;
   5581					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5582					;
   5583					;	R0 -- -97 -- EFN>64 OR EFN<1,
   5584					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5585					;-
   5586					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5587					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5588					;  STACK, AND R0-R5 SET AS FOLLOWS:
   5589					;	R0 -- PC OF EMT INSTRUCTION
   5590					;	R1 -- WORD FOLLOWING THE DIC & SIZE
   5591					;	R2 -- SIZE OF DPB (IN WORDS),
   5592					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE )
   5593					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5594					;
   5595					;
   5596					;
   5597	022034				.D.CEF::CALL	.CEFN		;CONVERT EFN TO: (1) FLAG WORD ADDRESS
	022034	004737 	043062'			JSR	PC,.CEFN
   5598									;IN R2, AND (2) FLAG MASK IN R3 (R2 IS
   5599									;POINTING TO EFN).  IF EFN<0, OR EFN>64.,
   5600									;RETURN STS=-97.  IF EFN=0 (NO EVENT FLAG
   5601									;SPECIFIED), RETURN WITH R2=R3=00.
   5602									;CONDITION CODES ARE SET PER "TST R3".
   5603					;
   5604									;EVENT FLAG SPECIFIED?
   5605	022040	001443 				BEQ	SEX97		;NO -- RETURN STS=-97
   5606	022042	030312 				BIT	R3,@R2		;YES -- IS FLAG CLEARED?
   5607	022044	001410 				BEQ	SEXP0		;YES -- RETURN STS=+0
   5608	022046	040312 				BIC	R3,@R2		;NO -- CLEAR FLAG & RETURN STS=+2
   5609	022050	104402 			SEXP2:	TRAP	DR.02		;COMMON RETURN -- STS=+2
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 110
DIRECTIVE -- SET EVENT FLAG

   5611					.SBTTL	DIRECTIVE -- SET EVENT FLAG
   5612					;+
   5613					; THE "SET EVENT FLAG" DIRECTIVE
   5614					;
   5615					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO SET AND INDICATED EVENT FLAG
   5616					; AND REPORT THE FLAG'S POLARITY BEFORE SETTING.
   5617					;
   5618					; A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED:
   5619					;
   5620					;	WD. 00 -- DIC (33.) & DPB SIZE (2.),
   5621					;	WD. 01 -- EVENT FLAG NUMBER (EFN).
   5622					;
   5623					; THE FOLLOWING STATUS IS RETURNED:
   5624					;
   5625					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS OF:
   5626					;
   5627					;	R0 -- +0 -- FLAG WAS CLEARED,
   5628					;	R0 --+2 -- FLAG WAS SET.
   5629					;
   5630					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5631					;
   5632					;	R0 -- -97 -- EFN>64 OR EFN<1,
   5633					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5634					;-
   5635					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5636					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5637					;  STACK, AND R0-R5 SET AS FOLLOWS:
   5638					;	R0 -- PC OF EMT INSTRUCTION
   5639					;	R1 -- WORD FOLLOWING DIC % SIZE
   5640					;	R2 -- DPB SIZE
   5641					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5642					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5643					;
   5644					;
   5645									;R1 IS POINTING TO EFN IN DPB
   5646					;
   5647	022052				.D.SEF::CALL	.CEFN		;CONVERT EFN TO: (1) FLAG WORD ADDRESS
	022052	004737 	043062'			JSR	PC,.CEFN
   5648									;IN R2, AND (2) FLAG MASK IN R3 (R2 IS
   5649									;POINTING TO EFN).  IF EFN<0, OR EFN>64.,
   5650									;RETURN STS=-97.  IF EFN=0 (NO EVENT FLAG
   5651									;SPECIFIED), RETURN WITH R2=R3=00.
   5652									;CONDITION CODES ARE SET PER "TST R3".
   5653					;
   5654									;EVENT FLAG SPECIFIED?
   5655	022056	001434 				BEQ	SEX97		;NO -- RETURN STS=-97
   5656	022060	030312 			SEXCM:	BIT	R3,@R2		;YES -- IS FLAG ALREADY SET?
   5657	022062	001372 				BNE	SEXP2		;YES -- RETURN STS=+2
   5658	022064	050312 				BIS	R3,@R2		;NO -- SET FLAG & RETURN STS=+0
   5659	022066	104400 			SEXP0:	TRAP	DR.00		;COMMON RETURN -- STS=+0
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 111
DIRECTIVE -- DECLARE SIGNIFICANT EVENT

   5661					.SBTTL	DIRECTIVE -- DECLARE SIGNIFICANT EVENT
   5662					;+
   5663					; THE "DECLARE SIGNIFICANT EVENT" DIRECTIVE
   5664					;
   5665					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO DECLARE A SIGNIFICANT EVENT
   5666					; AND OPTIONALLY SET AN EVENT FLAG & AND REPORT ITS POLARITY BEFORE
   5667					; IT WAS SET.
   5668					;
   5669					; A TWO WORD DBP OF THE FOLLOWING FORMAT IS USED TO (1) READ AN EVENT
   5670					; FLAG, (2) SET THE EVENT FLAG, (3) DECLARE A SIGNIFICANT EVENT, AND
   5671					; (4) REPORT THE PRE-EVENT FLAG POLARITY:
   5672					;
   5673					;	WD. 00 -- DIC (35.) & DPB SIZE (2.),
   5674					;	WD. 01 -- EVENT FLAG NUMBER (EFN).
   5675					;
   5676					; A ONE WORD DPB OF THE FOLLOWING FORMAT IS USED TO (1) DECLARE A
   5677					; SIGNIFICANT EVENT:
   5678					;
   5679					;	WD. 00 -- DIC (07.) & DPB SIZE (2.).
   5680					;	WD. 01 -- NO EVENT FLAG SPECIFIED
   5681					;
   5682					; THE FOLLOWING STATUS IS RETURNED:
   5683					;
   5684					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS OF:
   5685					;
   5686					;	R0 -- +1 -- NO EVENT FLAG SPECIFIED,
   5687					;	R0 -- +0 -- SPECIFIED FLAG WAS CLEARED,
   5688					;	R0 --+2 -- SPECIFIED FLAG WAS SET.
   5689					;
   5690					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5691					;
   5692					;	R0 -- -97 -- EFN<1 OR EFN>64.,
   5693					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5694					;-
   5695					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5696					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5697					; KERNEL STACK, AND R0-R5 SET AS FOLLOWS:
   5698					;	R0 -- PC OF EMT INSTRUCTION
   5699					;	R1 -- WORD FOLLOWING DIC & SIZE
   5700					;	R2 -- DPB SIZE
   5701					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5702					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5703					;
   5704					;
   5705					;
   5706	022070				.D.DSE::CALL	..DSEV		;SET SIGNIFICANT EVENT FLAG
	022070	004737 	044026'			JSR	PC,..DSEV
   5707	022074	005302 				DEC	R2
   5708	022076	001401 				BEQ	5$
   5709	022100	104400 				TRAP	DR.00
   5710	022102				5$:	CALL	.CEFN		;YES -- R1 IS POINTING TO EFN IN DPB.
	022102	004737 	043062'			JSR	PC,.CEFN
   5711									;CONVERT EFN TO: (1) FLAG WORD ADDRESS
   5712									;IN R2, AND (2) FLAG MASK IN R3 (R2 IS
   5713									;POINTING TO EFN).  IF EFN<0, OR EFN>64.,
   5714									;RETURN STS=-97.  IF EFN=0 (NO EVENT FLAG
   5715									;SPECIFIED), RETURN WITH R2=R3=00.
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 111-1
DIRECTIVE -- DECLARE SIGNIFICANT EVENT

   5716									;CONDITION CODES ARE SET PER "TST R3".
   5717					;
   5718									;EVENT FLAG SPECIFIED?
   5719	022106	001417 				BEQ	SEXP1		;NO -- RETURN STS=1.
   5720	022110	000763 				BR	SEXCM		;GO TO COMMON TEST
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 112
DIRECTIVE -- READ EVENT FLAG

   5722					.SBTTL	DIRECTIVE -- READ EVENT FLAG
   5723					;+
   5724					; THE "READ EVENT FLAG" DIRECTIVE
   5725					;
   5726					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO READ AND INDICATED EVENT FLAG.
   5727					;
   5728					; A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED:
   5729					;
   5730					;	WD. 00 -- DIC (37.) & DPB SIZE (2.),
   5731					;	WD. 01 -- EVENT FLAG NUMBER (EFN).
   5732					;
   5733					; THE FOLLOWING STATUS IS RETURNED:
   5734					;
   5735					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS OF:
   5736					;
   5737					;	R0 -- +0 -- FLAG WAS CLEARED,
   5738					;	R0 -- +2 -- FLAG WAS SET.
   5739					;
   5740					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5741					;
   5742					;	R0 -- -97 -- EFN>64 OR EFN<1,
   5743					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5744					;-
   5745					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5746					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5747					;  STACK, AND R0-R5 SET AS FOLLOWS:
   5748					;	R0 -- PC OF EMT INSTRUCTION
   5749					;	R1 -- WORD FOLLOWING DIC & SIZE
   5750					;	R2 -- DPB SIZE
   5751					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5752					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5753					;
   5754					;
   5755									;R1 IS POINTING TO EFN IN DPB.
   5756					;
   5757	022112				.D.REF::CALL	.CEFN		;CONVERT EFN TO: (1) FLAG WORD ADDRESS
	022112	004737 	043062'			JSR	PC,.CEFN
   5758									;IN R2, AND (2) FLAG MASK IN R3 (R2 IS
   5759									;POINTING TO EFN).  IF EFN<0, OR EFN>64.,
   5760									;RETURN STS=-97.  IF EFN=0 (NO EVENT FLAG
   5761									;SPECIFIED), RETURN WITH R2=R3=00.
   5762									;CONDITION CODES ARE SET PER "TST R3".
   5763					;
   5764									;EVENT FLAG SPECIFIED?
   5765	022116	001414 				BEQ	SEX97		;NO -- RETURN STS=-97
   5766	022120	030312 				BIT	R3,@R2		;YES -- IS FLAG SET?
   5767	022122	001352 				BNE	SEXP2		;YES -- RETURN STS=+2
   5768	022124	104400 				TRAP	DR.00		;NO -- RETURN STS=+0
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 113
DIRECTIVE -- READ ALL EVENT FLAGS

   5770					.SBTTL	DIRECTIVE -- READ ALL EVENT FLAGS
   5771					;+
   5772					; THE "READ ALL FLAGS" DIRECTIVE
   5773					;
   5774					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO READ ALL SIXTY-FOUR
   5775					; EVENT FLAGS FOR THE ISSUING TASK AND RECORD THEIR POLARITIES
   5776					; IN A SIXTY-FOUR BIT (4-WORD) BUFFER.
   5777					;
   5778					; A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED:
   5779					;
   5780					;	WD. 00 -- DIC (39.) & DPB SIZE (2.),
   5781					;	WD. 01 -- ADDRESS  OF 64-BIT BUFFER.
   5782					;
   5783					; THE FOLLOWING STATUS IS RETURNED:
   5784					;
   5785					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   5786					; OF ONE (+1).
   5787					;
   5788					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5789					;
   5790					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5791					;-
   5792					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5793					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5794					;  STACK, AND R0-R5 SET AS FOLLOWS:
   5795					;	R0 -- PC OF EMT INSTRUCTION
   5796					;	R1 -- WORD FOLLOWING DIC & SIZE
   5797					;	R2 -- DPB SIZE
   5798					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5799					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5800					;
   5801					;
   5802					; FILL FOUR WORD BUFFER
   5803					;
   5804	022126				.D.RAF::MTPS   A.EF+0(R5),(R1)+	;FLAGS 1-16 TO BUF+0
	022126	016521 	000020 			MOV	A.EF+0(R5),(R1)+
   5805	022132					MTPS   A.EF+2(R5),(R1)+	;FLAGS 17-32 TO BUF+2
	022132	016521 	000022 			MOV	A.EF+2(R5),(R1)+
   5806	022136					MTPS	.COMEF+0,(R1)+	;FLAGS 33-48 TO BUF+4
	022136	013721 	001010'			MOV	.COMEF+0,(R1)+
   5807	022142					MTPS	.COMEF+2,(R1)+	;FLAGS 49-64 TO BUF+6
	022142	013721 	001012'			MOV	.COMEF+2,(R1)+
   5808					;
   5809	022146	104401 			SEXP1:	TRAP	DR.01		;RETURN STS=+1
   5810					;
   5811	022150	104637 			SEX97:	TRAP	DE.97
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 114
DIRECTIVE -- WAITFOR SINGLE EVENT FLAG

   5813					.SBTTL	DIRECTIVE -- WAITFOR SINGLE EVENT FLAG
   5814					;+
   5815					; THE "WAIT FOR SINGLE EVENT FLAG" DIRECTIVE
   5816					;
   5817					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO SUSPEND THE EXECUTION OF THE
   5818					; ISSUING TASK UNTIL AN INDICATED EVENT FLAG IS SET.  IF THE FLAG IS SET
   5819					; AT ISSUANCE, TASK EXECUTION IS EFFECTIVELY NOT SUSPENDED.  (ACTUALLY, THE
   5820					; TASK IS ALWAYS SUSPENDED, BUT R0 IS LEFT POINTING TO THE ISSUING TASK'S
   5821					; ATL NODE; AND THEREFORE, A CHECK IS ALWAYS MADE BY THE ATL SCAN ROUTINE.)
   5822					;
   5823					; A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED:
   5824					;
   5825					;	WD. 00 -- DIC (41.) & DPB SIZE (2.),
   5826					;	WD. 01 -- EVENT FLAG NUMBER (EFN).
   5827					;
   5828					; THE FOLLOWING STATUS IS RETURNED:
   5829					;
   5830					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   5831					; OF ONE (+1).
   5832					;
   5833					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5834					;
   5835					;	R0 -- -97 -- INVALID EVENT FLAG NUMBER (<1 OR >64.),
   5836					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5837					;-
   5838					;
   5839					;
   5840					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5841					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5842					;  STACK, AND R0-R5 SET AS FOLLOWS:
   5843					;	R0 -- PC OF EMT INSTRUCTION
   5844					;	R1 -- WORD FOLLOWING DIC & SIZE
   5845					;	R2 -- DPB SIZE
   5846					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5847					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5848					;
   5849					;
   5850	022152	011103 			.D.WFS::MOV	@R1,R3		;SET R3 TO EFN
   5851									;IS AN EVENT FLAG SPECIFIED (NON-ZERO EFN)?
   5852	022154				.D.WFO::			;SPECIAL ENTRY POINT FOR QIO AND WAIT
   5853	022154	001775 				BEQ	SEX97		;NO -- RETURN STS=-97.
   5854	022156	020327 	000100 			CMP	R3,#64.		;YES -- IS EFN IN RANGE: 0-64.?
   5855	022162	101372 				BHI	SEX97		;NO -- RETURN STS=-97.
   5856					;
   5857	022164	005303 				DEC	R3		;YES -- CONVERT EFN TO FLAG SET NUMBER (R2),
   5858	022166	005002 				CLR	R2		;AND FLAG MASK (R1)
   5859	022170					CALL	DIV216		;DIVIDE R2 BY 16.
	022170	004737 	044036'			JSR	PC,DIV216
   5860	022174	012701 	000001 			MOV	#1,R1
   5861	022200	005303 			10$:	DEC	R3		;DO AN ASH	R3,R1
   5862	022202	100402 				BMI	20$
   5863	022204	006301 				ASL	R1
   5864	022206	000774 				BR	10$
   5865	022210				20$:
   5866					;
   5867					;
   5868	022210	006302 				ASL	R2		;CONVERT SET NUMBER (0,1,2,3) TO TASK
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 114-1
DIRECTIVE -- WAITFOR SINGLE EVENT FLAG

   5869	022212	062702 	000014 			ADD	#TS.WF0,R2	;STATUS FOR ATL NODE.
   5870					;
   5871	022216	010165 	000024 			MOV	R1,A.FM+0(R5)	;SET MASK AND STATUS IN ATL NODE
   5872	022222	110265 	000014 			MOVB	R2,A.TS(R5)
   5873					;
   5874	022226	104401 				TRAP	DR.01		;RETURN STS=+1
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 115
DIRECTIVE -- WAITFOR LOGICAL 'OR' OF FLAGS

   5876					.SBTTL	DIRECTIVE -- WAITFOR LOGICAL 'OR' OF FLAGS
   5877					;+
   5878					; THE "WAITFOR LOGICAL 'OR' OF FLAGS" DIRECTIVE
   5879					;
   5880					;
   5881					; IF THE INDICATED CONDITION IS MET AT ISSUANCE, TASK EXECUTION IS
   5882					; EFFECTIVELY NOT SUSPENDED.  (ACTUALLY, THE TASK IS ALWAYS SUSPENDED,
   5883					;
   5884					;
   5885					; A THREE WORD DPB OF THE FOLLOWING FORMAT IS USED TO WAIT FOR EVENT FLAGS OF A GIVEN SET
   5886					;
   5887					;	WD. 00 -- DIC (43.) & DPB SIZE (3.)
   5888					;	WD. 01 -- SET NUMBER
   5889					;	WD. 02 -- FLAGS MASK FOR THIS SET
   5890					;
   5891					;
   5892					; A FIVE-WORD DPB OF THE FOLLOWING FORMAT IS USED TO WAITFOR EVENT FLAGS
   5893					; OF SET FOUR:
   5894					;
   5895					;	WD. 00 -- DIC (15.) & DPB SIZE (5.),
   5896					;	WD. 01 -- MASK WORD FOR FLAGS 1-16,
   5897					;	WD. 02 -- MASK WORD FOR FLAGS 17-32,
   5898					;	WD. 03 -- MASK WORD FOR FLAGS 33-48,
   5899					;	WD. 04 -- MASK WORD FOR FLAGS 49-64.
   5900					;
   5901					; MASK WORD BITS FROM RIGHT-TO-LEFT REPRESENT INCREASING EVENT FLAG
   5902					; NUMBERS, AND A SET MASK WORD BIT INDICATES "WAITFOR THE CORRESPONDING
   5903					; EVENT FLAG".
   5904					;
   5905					; THE FOLLOWING STATUS IS RETURNED.
   5906					;
   5907					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   5908					; OF ONE (+1).
   5909					;
   5910					; CC-C SET TO INDICATE REJECTION, AND DIRECTIVE STATUS OF:
   5911					;
   5912					;	R0 -- -97 -- NO EVENT FLAG SPECIFIED IN MASK WORD(S),
   5913					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5914					;-
   5915					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5916					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5917					; KERNEL STACK, AND R0-R5 SET AS FOLLOWS:
   5918					;	R0 -- PC OF EMT INSTRUCTION
   5919					;	R1 -- WORD FOLLOWING DIC & SIZE
   5920					;	R2 -- DPB SIZE
   5921					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5922					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5923					;
   5924					;
   5925					;
   5926					; EVEN FLAG SET IS FOUR.  I.E., WAIT FOR ANY OF SIXTY-FOUR EVENT FLAGS.
   5927					;
   5928					; SET 64-BIT FLAGS MASK IN ATL NODE AND ACCUMULATE 'OR' OF MASK WORDS
   5929					; IN R2.  THE 64-BIT MASK IS SET BY MOVING FOUR WORDS FROM THE DPB TO
   5930					; THE ATL NODE.
   5931					;
   5932					; IF NO FLAG INDICATED (ALL 64 BITS ARE ZERO), RETURN STS=-97.
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 115-1
DIRECTIVE -- WAITFOR LOGICAL 'OR' OF FLAGS

   5933					;
   5934	022230	022702 	000005 		.D.WFL::CMP	#5,R2		;THREE OR 5 WORD DPB?
   5935	022234	001020 				BNE	10$		;THREE WORD DPB (WAIT FOR ONE SET)
   5936	022236	010502 				MOV	R5,R2		;SETUP R2 TO FILL ATL NODE
   5937	022240	062702 	000024 			ADD	#A.FM,R2
   5938	022244					MFPS	(R1)+,@R2	;MASK FOR FLAGS 1-16
	022244	012112 				MOV	(R1)+,@R2
   5939	022246	012203 				MOV	(R2)+,R3
   5940									;MASK FOR FLAGS 17-32
   5941	022250					MFPS	(R1)+,@R2
	022250	012112 				MOV	(R1)+,@R2
   5942	022252	052203 				BIS	(R2)+,R3
   5943									;MASK FOR FLAGS 33-48
   5944	022254					MFPS	(R1)+,@R2
	022254	012112 				MOV	(R1)+,@R2
   5945	022256	052203 				BIS	(R2)+,R3
   5946	022260					MFPS	@R1,@R2		;MASK FOR FLAGS 49-64 (LAST DPB WORD)
	022260	011112 				MOV	@R1,@R2
   5947	022262	051203 				BIS	@R2,R3
   5948	022264	001731 				BEQ	SEX97		;RETURN STS=-97 IF NO FLAG INDICATED
   5949					;
   5950	022266	112765 	000024 	000014 		MOVB	#TS.WF4,A.TS(R5) ;SET WAITFOR-SET-FOUR TASK STATUS
   5951					;
   5952	022274	104401 				TRAP	DR.01		;RETURN DIRECTIVE STS=+1
   5953					;
   5954	022276				10$:	MFPS	(R1)+,R2	;FIND THE SET NUMBER
	022276	012102 				MOV	(R1)+,R2
   5955	022300	001415 				BEQ	30$		;ILLEGAL SET NUMBER
   5956	022302					MFPS	(R1)+,R3	;FIND THE FLAGS TO WAIT FOR
	022302	012103 				MOV	(R1)+,R3
   5957	022304	020227 	000004 			CMP	R2,#4		;LEGAL SET NUMBER?
   5958	022310	101011 				BHI	30$		;NO -- ILLEGAL SET TO WAIT FOR
   5959	022312	005302 				DEC	R2		;DECREMENT SO SET1 IS 0
   5960	022314	006302 				ASL	R2		;MULTIPLY BY 2
   5961	022316	062702 	000014 			ADD	#TS.WF0,R2	;POINT TO THE CORRECT ATL STATUS
   5962	022322	110265 	000014 			MOVB	R2,A.TS(R5)	;SET THE CORRECT STATUS IN THE ATL NODE
   5963	022326	010365 	000024 			MOV	R3,A.FM(R5)	;SET UP THE FLAGS MASK WORD FOR THESE EVENT FLAGS
   5964	022332	104401 				TRAP	DR.01		;RETURN STS +1
   5965					;
   5966	022334	104636 			30$:	TRAP	DE.98		;ILLEGAL SET NUMBER
DMSED	- SIGNIFICANT EVENT DIR	MACRO M1113  10-NOV-81 18:56  PAGE 116
DIRECTIVE -- WAITFOR NEXT SIGNIFICANT EVENT

   5968					.SBTTL	DIRECTIVE -- WAITFOR NEXT SIGNIFICANT EVENT
   5969					;+
   5970					; THE "WAIT FOR NEXT SIGNIFICANT EVENT" DIRECTIVE
   5971					;
   5972					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO SUSPEND THE EXECUTION OF THE
   5973					; ISSUING TASK UNTIL THE NEXT SIGNIFICANT EVENT HAS BEEN DECLARED.
   5974					;
   5975					; A ONE WORD DPB OF THE FOLLOWING FORMAT IS USED:
   5976					;
   5977					;	WD. 00 -- DIC (49.) & DPB SIZE (1.).
   5978					;
   5979					; THE FOLLOWING STATUS IS RETURNED:
   5980					;
   5981					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   5982					; OF ONE (+1).
   5983					;
   5984					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   5985					;
   5986					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   5987					;-
   5988					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   5989					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   5990					; KERNEL STACK, AND R0-R5 SET AS FOLLOWS:
   5991					;	R0 -- PC OF EMT INSTRUCTION
   5992					;	R1 -- WORD FOLLOWING DIC & SIZE
   5993					;	R2 -- DPB SIZE
   5994					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   5995					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   5996					;
   5997					;
   5998	022336	011505 			.D.WSE::MOV	@R5,R5		;ADVANCE R5 (ATL NODE POINTER)
   5999	022340	012737 	000001 	001016'		MOV	#EV.SE,.SEWFL
   6000	022346	104401 				TRAP	DR.01		;RETURN STS=+1.
   6001					;
DMMKT	- "MARK TIME" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 117
DIRECTIVE -- WAITFOR NEXT SIGNIFICANT EVENT

   6003						.TITLE	DMMKT	- "MARK TIME" DIRECTIVE MODULE
   6004						.SBTTL	MARK TIME -- COPYRIGHT STATEMENT
   6005	022350					IDENT$	1,0
						.IDENT	/001000/
   6006					;
   6007					;                             COPYRIGHT (C) 1975, 1978 BY
   6008					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   6009					;
   6010					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   6011					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   6012					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   6013					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   6014					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   6015					;
   6016					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   6017					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   6018					;       CORPORATION.
   6019					;
   6020					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   6021					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   6022					;
   6023					;		MODULE: "MARK TIME" DIRECTIVE
   6024					;
   6025					;		VERSION: 01-00
   6026					;
   6027					;		AUTHOR:  R. MCLEAN
   6028					;
   6029					;		DATE: 19 APR 75
   6030					;
   6031					;
   6032					;	THIS MODULE CONTAINS:
   6033					;
   6034					;	1 -- CODE TO SERVICE THE "MARK TIME" DIRECTIVE.
   6035					;
   6036					;	MACROS
   6037
   6038						.MCALL	CALL,RETURN,MFPI,MTPI,MTPS,MFPS
DMMKT	- "MARK TIME" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 118
DIRECTIVE -- MARK TIME

   6040						.SBTTL	DIRECTIVE -- MARK TIME
   6041					;+
   6042					; THE "MARK TIME" DIRECTIVE
   6043					;
   6044					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO DECLARE A SIGNIFICANT EVENT
   6045					; IN AN INDICATED TIME INTERVAL FROM ISSUANCE.
   6046					;
   6047					; IF AN EVENT FLAG IS SPECIFIED, IT IS CLEARED AT ISSUANCE AND SET
   6048					; AT THE TIME OF THE SIGNIFICANT EVENT.
   6049					;
   6050					;
   6051					; IF  AN EVENT FLAG NUMBER
   6052					; IS SPECIFIED, THE SIGNIFICANT EVENT WILL STILL OCCUR AFTER
   6053					; THE INDICATED TIME INTERVAL.
   6054					;
   6055					; A FOUR WORD DPB OF THE FOLLOWING FORMAT IS USED:
   6056					;
   6057					;	WD. 00 -- DIC (23.) & DPB SIZE (5.),
   6058					;	WD. 01 -- EVENT FLAG NUMBER (EFN),
   6059					;	WD. 02 -- TIME INTERVAL MAGNITUDE, ( IN TICS)
   6060					;	WD. 03 -- RESCHEDULE INTERVAL (IN TICS)
   6061					;	WD. 04 -- AST TRAP ADDRESS
   6062					;
   6063					; THE FOLLOWING STATUS IS RETURNED:
   6064					;
   6065					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   6066					; OF ONE (+1).
   6067					;
   6068					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   6069					;
   6070					;	-01 -- UNAVAILABLE ENTRY (FOR CLOCK LIST),
   6071					;
   6072					;	-97 -- INVALID EVENT FLAG NUMBER (EFN<0 OR EFN>64),
   6073					;	-99 -- DIC OR DPB SIZE IS INVALID.
   6074					;-
   6075					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   6076					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   6077					;  STACK, AND R0-R5 SET AS FOLLOWS:
   6078					;
   6079					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   6080					;
   6081					;
   6082									;R1 IS POINTING TO EFN IN DPB
   6083					;
   6084					;
   6085	022350				.D.MKT::CALL	.CEFN		;CONVERT EFN TO: (1) FLAG WORD ADDRESS
	022350	004737 	043062'			JSR	PC,.CEFN
   6086									;IN R2, AND (2) FLAG MASK IN R3 (R2 IS
   6087									;POINTING TO EFN).  IF EFN<0, OR EFN>64.,
   6088									;RETURN STS=-97.  IF EFN=0 (NO EVENT FLAG
   6089									;SPECIFIED), RETURN WITH R2=R3=00.
   6090									;CONDITION CODES ARE SET PER "TST R3".
   6091					;
   6092	022354	001001 				BNE	10$		;ALL OK WITH EFN
   6093	022356	104637 				TRAP	DE.97		;RETURN STS=-97
   6094	022360	062701 	000004 		10$:	ADD	#4,R1		;R1 IS POINTING TO THE EFN, ADVANCE TO THE
   6095									;FIRST WORD (MAGNITUDE) OF TIME INTERVAL.
DMMKT	- "MARK TIME" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 118-1
DIRECTIVE -- MARK TIME

   6096					;
   6097	022364	010246 				MOV	R2,-(SP)	;PUSH EFN WORD ADDRESS
   6098	022366	010346 				MOV	R3,-(SP)	;PUSH EFN MASK
   6099					;
   6100	022370					MFPI	(R1)		;PUSH THE RESCHED INTERVAL
	022370	011146 				MOV	(R1),-(SP)
   6101	022372					MFPI	-(R1)		;PUSH TIME INTERVAL MAGNITUED MAGNITUDE
	022372	014146 				MOV	-(R1),-(SP)
   6102	022374					MFPI	4(R1)		;PUSH AST TRAP ADDRES
	022374	016146 	000004 			MOV	4(R1),-(SP)
   6103					;
   6104					;
   6105					; STACK & REGISTER SUMMARY:
   6106					;
   6107					;	SP+10 -- FLAG WORD ADDRESS (OR ZERO)
   6108					;	SP+06 -- FLAG MASK (OR ZERO)
   6109					;	SP+04 -- TIME RESCHEDULE INTERVAL
   6110					;	SP+02 -- TIME INTERVAL
   6111					;	SP+00 -- AST TRAP ADDRESS
   6112					;
   6113					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK
   6114					;	R1 -- ADDRESS OF NODE FOR CLOCK QUEUE
   6115					;
   6116	022400	046676 	000006 	000010 		BIC	+6(SP),@+10(SP)	;CLEAR INDICATED EVENT FLAG
   6117					;
   6118	022406	012700 	002370'			MOV	#.CLKBA,R0	;POINT TO BEGINNING OF CLOCK LIST
   6119	022412	022700 	002574'		20$:	CMP	#.CLKEA,R0	;END OF LIST?
   6120	022416	001001 				BNE	30$		;NO -- MUST BE OK
   6121	022420	104777 				TRAP	DE.01		;YES -- RAN OUT OF CLOCK ENTRIES
   6122	022422	005710 			30$:	TST	@R0		;LOOK FOR A FREE ENTRY
   6123	022424	001403 				BEQ	40$		;FOUND ONE
   6124	022426	062700 	000014 			ADD	#C.SZ,R0	;NOT HERE -- TRYNEXT ENTRY
   6125	022432	000767 				BR	20$
   6126					;
   6127					;
   6128	022434	010520 			40$:	MOV	R5,(R0)+	;ATL NODE OF ISSUING TASK
   6129	022436	012620 				MOV	(SP)+,(R0)+	;AST ADDRESS
   6130	022440	012620 				MOV	(SP)+,(R0)+	;(POP) SCHEDULE INTERVAL
   6131	022442	012620 				MOV	(SP)+,(R0)+	;(POP) RESCHEDULE INTERVAL
   6132	022444	012620 				MOV	(SP)+,(R0)+	;(POP) EVENT FLAG MASK
   6133	022446	012620 				MOV	(SP)+,(R0)+	;(POP) EVENT FLAG WORD ADDRESS
   6134					;
   6135	022450	104401 				TRAP	DR.01		;RETURN STS=+1
   6136					;
DMCMT	- "CANCEL MARK TIME" DI	MACRO M1113  10-NOV-81 18:56  PAGE 119
DIRECTIVE -- MARK TIME

   6138						.TITLE	DMCMT	- "CANCEL MARK TIME" DIRECTIVE MODULE
   6139						.SBTTL	CANCEL MARK TIME -- COPYRIGHT STATEMENT
   6140	022452					IDENT$	1,0
						.IDENT	/001000/
   6141					;
   6142					;                             COPYRIGHT (C) 1975, 1978 BY
   6143					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   6144					;
   6145					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   6146					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   6147					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   6148					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   6149					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   6150					;
   6151					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   6152					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   6153					;       CORPORATION.
   6154					;
   6155					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   6156					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   6157					;
   6158					;		MODULE: "CANCEL MARK TIME" DIRECTIVE
   6159					;
   6160					;		VERSION: 01-00
   6161					;
   6162					;		AUTHOR:  R. MCLEAN
   6163					;
   6164					;		DATE: 19 MAR 75
   6165					;
   6166					;
   6167					;	THIS MODULE CONTAINS:
   6168					;
   6169					;	1 -- CODE TO SERVICE THE "CANCEL MARK TIME" DIRECTIVE.
   6170					;
   6171					;	MACROS
   6172					;
   6173
   6174						.MCALL	CALL,RETURN
DMCMT	- "CANCEL MARK TIME" DI	MACRO M1113  10-NOV-81 18:56  PAGE 120
DIRECTIVE -- CANCEL MARK-TIME REQUESTS

   6176						.SBTTL	DIRECTIVE -- CANCEL MARK-TIME REQUESTS
   6177					;+
   6178					; THE "CANCEL MARK-TIME REQUESTS" DIRECTIVE
   6179					;
   6180					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO CANCEL MARK-TIME REQUESTS
   6181					; THAT HAVE BEEN MADE BY THE ISSUING TASK.
   6182					;
   6183					; A ONE WORD DPB OF THE FOLLOWING FORMAT IS USED TO CANCEL ALL MARK-TIME
   6184					; REQUESTS THAT HAVE BEEN MADE BY THE ISSUING TASK:
   6185					;
   6186					;	WD. 00 -- DIC (21.) & DPB SIZE (1.).
   6187					;
   6188					;
   6189					; THE FOLLOWING STATUS IS RETURNED:
   6190					;
   6191					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   6192					; OF ONE (R0 - +1).
   6193					;
   6194					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   6195					;
   6196					;	R0 -- -97 -- INVALID EVENT FLAG NUMBER (EFN<0 OR EFN>64),
   6197					;	R0 -- -99 -- DIC OR DPB SIZE IS INVALID.
   6198					;-
   6199					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   6200					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   6201					;  STACK, AND R0-R5 SET AS FOLLOWS:
   6202					;	R0 -- PC OF EMT INSTRUCTION
   6203					;	R1 -- WORD FOLLOWING DIC & SIZE
   6204					;	R2 -- DPB SIZE
   6205					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   6206					;
   6207					;
   6208					; ALL MARK-TIME REQUESTS BY THE ISSUING TASK ARE TO BE DELETED
   6209					; FROM THE CLOCK QUEUE.
   6210					;
   6211					;
   6212	022452	010546 			.D.CMT::MOV	R5,-(SP)	;SAVE CURRENT TASK POINTER
   6213	022454	012704 	002370'			MOV	#.CLKBA,R4	;USE R4 TO SCAN DEQUE
   6214					;
   6215	022460	020427 	002574'		50$:	CMP	R4,#.CLKEA	;END OF SCAN (END OF DEQUE)?
   6216	022464	001002 				BNE	60$
   6217	022466	012605 				MOV	(SP)+,R5	;RESTORE CURRENT TASK POINTER
   6218	022470	104401 				TRAP	DR.01		;YES -- RETURN STS=+1.
   6219									;NO -- CHECK NODE POINTED TO BY R4
   6220	022472	026405 	000000 		60$:	CMP	C.AT(R4),R5	;YES -- WAS REQUEST MADE BY ISSUING TASK?
   6221	022476	001005 				BNE	45$		;NO -- NEXT NODE
   6222									;DELETE NODE (PER R4) FROM CLOCK QUEUE, AND
   6223	022500					CALL	.CKDEL		;QUEUE NODE (R4 IS NOT ALTERED).
	022500	004737 	043150'			JSR	PC,.CKDEL
   6224					;
   6225					;
   6226	022504	000765 				BR	50$		;TEST FOR END OF DEQUE
   6227					;
   6228	022506	012605 			90$:	MOV	(SP)+,R5	;RESTORE CURRENT TASK POINTER
   6229	022510	104637 				TRAP	DE.97		;TO RETURN STS=-97.
   6230					;
   6231	022512	062704 	000014 		45$:	ADD	#C.SZ,R4	;UPDATE THE Q SIZE TO LOOK AT NEXT ENTRY
DMCMT	- "CANCEL MARK TIME" DI	MACRO M1113  10-NOV-81 18:56  PAGE 120-1
DIRECTIVE -- CANCEL MARK-TIME REQUESTS

   6232	022516	000760 				BR	50$
   6233					;
DMEXT	- "EXIT" DIRECTIVE MODU	MACRO M1113  10-NOV-81 18:56  PAGE 121
DIRECTIVE -- CANCEL MARK-TIME REQUESTS

   6235						.TITLE	DMEXT	- "EXIT" DIRECTIVE MODULE
   6236						.SBTTL	EXIT -- COPYRIGHT STATEMENT
   6237	022520					IDENT$	1,0
						.IDENT	/001000/
   6238					;
   6239					;                             COPYRIGHT (C) 1975, 1978 BY
   6240					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   6241					;
   6242					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   6243					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   6244					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   6245					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   6246					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   6247					;
   6248					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   6249					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   6250					;       CORPORATION.
   6251					;
   6252					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   6253					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   6254					;
   6255					;		MODULE: "EXIT" DIRECTIVE
   6256					;
   6257					;		VERSION: 01-00
   6258					;
   6259					;		AUTHOR: R. MCLEAN
   6260					;
   6261					;		DATE: 19 MAR 75
   6262					;
   6263					;
   6264					;	THIS MODULE CONTAINS:
   6265					;
   6266					;	1 -- CODE TO SERVICE THE "EXIT" DIRECTIVE
   6267					;
   6268					;	MACROS
   6269					;
   6270
   6271						.MCALL	CALL,RETURN
DMEXT	- "EXIT" DIRECTIVE MODU	MACRO M1113  10-NOV-81 18:56  PAGE 122
DIRECTIVE -- TASK EXIT

   6273						.SBTTL	DIRECTIVE -- TASK EXIT
   6274					;+
   6275					; THE "TASK EXIT" DIRECTIVE
   6276					;
   6277					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO TERMINATE THE EXECUTION OF THE
   6278					; ISSUING TASK.
   6279					;
   6280					; A ONE WORD DPB OF THE FOLLOWING FORMAT IS USED:
   6281					;
   6282					;	WD. 00 -- DIC (27.) & DPB SIZE (1.).
   6283					;
   6284					; THE FOLLOWING STATUS IS RETURNED:
   6285					;
   6286					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   6287					; OF ONE (+1).
   6288					;
   6289					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   6290					;
   6291					;	-99 -- DIC OR DPB SIZE IS INVALID.
   6292					;-
   6293					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   6294					; DIRECTIVE ISSUING TASK'S PS, PC, & R1-R5 PUSHED ONTO THE
   6295					;  STACK, AND R0-R5 SET AS FOLLOWS:
   6296					;	R1 -- ADDRESS OF WORD FOLLOWING DIC & SIZE
   6297					;	R2 -- DPB SIZE
   6298					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   6299					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   6300					;
   6301					;
   6302					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   6303					;
   6304					; R5 CONTAINS THE EXITING TASK'S ATL NODE ADDRESS.
   6305					;
   6306	022520	042766 	000340 	000020 	.D.EXT::BIC  #000340,EM.DRO(SP)	;SET ISSUING TASK'S PROCESSRO PRIROITY TO ZERO TO
   6307									;PREVENT RETURN TO TASK IF EXIT DIRECTIVE HAS
   6308									;BEEN ISSUED FROM NON TASK LEVEL
   6309					;
   6310	022526	112765 	000026 	000014 		MOVB  #TS.EXT,A.TS(R5)	;CHANGE STATUS TO "EXIT", INDICATE
   6311	022534	005065 	000024 			CLR	A.FM+0(R5)	;NO TERMINATION NOTIFICATION, AND
   6312	022540	104401 				TRAP	DR.01		;EXIT DIRECTIVE SERVICE (SET STS=+1)
   6313					;
DMQIO	- "QUEUE I/O" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 123
DIRECTIVE -- TASK EXIT

   6315						.TITLE	DMQIO	- "QUEUE I/O" DIRECTIVE MODULE
   6316						.SBTTL	QUEUE I/O -- COPYRIGHT STATEMENT
   6317	022542					IDENT$	1,0
						.IDENT	/001000/
   6318					;
   6319					;                             COPYRIGHT (C) 1975, 1978 BY
   6320					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   6321					;
   6322					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   6323					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   6324					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   6325					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   6326					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   6327					;
   6328					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   6329					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   6330					;       CORPORATION.
   6331					;
   6332					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   6333					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   6334					;
   6335					;		MODULE: "QUEUE I/O" DIRECTIVE
   6336					;
   6337					;		VERSION: 01-00
   6338					;
   6339					;		AUTHOR: R. MCLEAN
   6340					;
   6341					;		DATE: 19 JUL 75
   6342					;
   6343					;
   6344					;	THIS MODULE CONTAINS:
   6345					;
   6346					;	1 -- CODE TO SERVICE THE "QUEUE I/O" DIRECTIVE.
   6347					;	2 -- CODE TO SERVICE THE "QUEUE I/O AND WAIT" DIRECTIVE.
   6348					;
   6349					;	MACROS
   6350					;
   6351
   6352						.MCALL	CALL,RETURN,MFPI,MTPI,MTPS,MFPS
DMQIO	- "QUEUE I/O" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 124
DIRECTIVE -- QUEUE I/O

   6354						.SBTTL	DIRECTIVE -- QUEUE I/O
   6355					;+
   6356					; THE "QUEUE I/O" DIRECITVE
   6357					;
   6358					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO PLACE AN I/O REQUEST FOR AN
   6359					; INDICATED DEVICE IN A QUEUE OF PRIORITY ORDERED REQUESTS FOR THAT DEVICE-
   6360					; UNIT.  THE DEVICE-UNIT IS SPECIFIED AS A LOGICAL UNIT NUMBER (LUN), WHICH
   6361					; IS MAPPED INTO A PHYSICAL UNIT SPECIFICATION PER LUN ASSIGNMENT.
   6362					;
   6363					; EACH LUN IS REPRESENTED BY AN ENTRY IN THE ISSUING TASK'S LUT (LOGICAL
   6364					; UNIT TABLE) IN THE TASK'S HEADER.  EACH PHYSICAL UNIT IS REPRESENTED
   6365					; BY AN ENTRY IN THE PUD (PHYSICAL UNIT DIRECTORY).  WHEN A LUN IS
   6366					; ASSIGNED TO A PHYSICAL UNIT, THE ADDRESS OF THE CORRESPONDING PUD
   6367					; ENTRY IS SET IN THE CORRESPONDING LUT ENTRY.  WHEN A LUN IS NOT
   6368					; ASSIGNED TO A PHYSICAL UNIT ("DEASSIGNED" OR "ASSIGNED TO NONE"), THE
   6369					; CORRESPONDING LUT ENTRY IS SET TO ZERO.
   6370					;
   6371					; NORMALLY, A SIGNIFICANT EVENT IS DECLARED BY HANDLER TASKS (VIA SYSTEM
   6372					; SUBROUTINES) UPON I/O COMPLETION.
   6373					;
   6374					;	IF AN EVENT FLAG IS SPECIFIED, IT IS CLEARED WHEN THE REQUEST
   6375					;	IS QUEUED, AND SET AT THE SIGNIFICANT EVENT.
   6376					;
   6377					;	IF AN AST SERVICE ENTRY POINT IS SPECIFIED, THE AST WILL OCCUR
   6378					;	UPON I/O COMPLETION WITH THE TASK'S PS, PC, VIRTUAL ZERO (DIRECTIVE
   6379					;	STATUS), AND [ADDRESS OF I/O STATUS BLOCK] PUSHED ONTO THE TASK'S
   6380					;	(USER) STACK.
   6381					;
   6382					; A 6-12 WORD DPB OF THE FOLLOWING FORMAT IS USED:
   6383					;
   6384					;	WD. 00 -- DIC (01.) & DPB SIZE (6-12),
   6385					;	WD. 01 -- I/O FUNCTION CODE,
   6386					;	WD. 02 -- LUN,
   6387					;	WD. 03 -- [EFN] & [PRIORITY],
   6388					;	WD. 04 -- [ADDRESS OF I/O STATUS BLOCK],
   6389					;	WD. 05 -- [I/O DONE AST SERVICE ENTRY POINT],
   6390					;	WD. 06 -- PARAMETER #1,
   6391					;	WD. 07 -- PARAMETER #2,
   6392					;	WD. 10 -- PARAMETER #3,
   6393					;	WD. 11 -- PARAMETER #4,
   6394					;	WD. 12 -- PARAMETER #5,
   6395					;	WD. 13 -- PARAMETER #6.
   6396					;
   6397					; THE FORMAT OF THE I/O REQUEST NODE CREATED IS DESCRIBED
   6398					; UNDER "SYMBOLIC DEFINITIONS".
   6399					;
   6400					; THE FOLLOWING STATUS IS RETURNED:
   6401					;
   6402					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   6403					; OF ONE (+1).
   6404					;
   6405					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   6406					;
   6407					;	-01 -- UNAVAILABLE POOL NODE FOR REQUEST QUEUE,
   6408					;	-05 -- UNASSIGNED LUN,
   6409					;
   6410					;	-95 -- INVALID PRIORITY (>250.),
DMQIO	- "QUEUE I/O" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 124-1
DIRECTIVE -- QUEUE I/O

   6411					;	-96 -- INVALID LUN,
   6412					;	-97 -- INVALID EFN (>64.),
   6413					;	-98 -- PART OF DPB IS OUT OF ISSUING TASK'S ADDRESS SPACE,
   6414					;	-99 -- DIC OR DPB SIZE IS INVALID.
   6415					; THE "QUEUE I/O AND WAIT" DIRECITVE
   6416					;
   6417					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO PLACE AN I/O REQUEST FOR AN
   6418					; INDICATED DEVICE IN A QUEUE OF PRIORITY ORDERED REQUESTS FOR THAT DEVICE-
   6419					; UNIT.  THE DEVICE-UNIT IS SPECIFIED AS A LOGICAL UNIT NUMBER (LUN), WHICH
   6420					; IS MAPPED INTO A PHYSICAL UNIT SPECIFICATION PER LUN ASSIGNMENT.
   6421					;
   6422					; EACH LUN IS REPRESENTED BY AN ENTRY IN THE ISSUING TASK'S LUT (LOGICAL
   6423					; UNIT TABLE) IN THE TASK'S HEADER.  EACH PHYSICAL UNIT IS REPRESENTED
   6424					; BY AN ENTRY IN THE PUD (PHYSICAL UNIT DIRECTORY).  WHEN A LUN IS
   6425					; ASSIGNED TO A PHYSICAL UNIT, THE ADDRESS OF THE CORRESPONDING PUD
   6426					; ENTRY IS SET IN THE CORRESPONDING LUT ENTRY.  WHEN A LUN IS NOT
   6427					; ASSIGNED TO A PHYSICAL UNIT ("DEASSIGNED" OR "ASSIGNED TO NONE"), THE
   6428					; CORRESPONDING LUT ENTRY IS SET TO ZERO.
   6429					;
   6430					; NORMALLY, A SIGNIFICANT EVENT IS DECLARED BY HANDLER TASKS (VIA SYSTEM
   6431					; SUBROUTINES) UPON I/O COMPLETION.
   6432					;
   6433					;	IF AN EVENT FLAG IS SPECIFIED, IT IS CLEARED WHEN THE REQUEST
   6434					;	IS QUEUED, AND SET AT THE SIGNIFICANT EVENT.
   6435					;	IF AN EVENT FLAG IS SPECIFIED, A WAIT DIRECTIVE IS ALSO
   6436					;	EXECUTED BEFORE TASK SWITCHING IS ENABLED.
   6437					;
   6438					;	IF NO EVENT FLAG IS SPECIFIED THE I/O WILL BE QUEUE'D
   6439					;	AND THE WAIT DIRECTIVE WILL BE REJECTED (STATUS -97.)
   6440					;
   6441					;
   6442					;	IF AN AST SERVICE ENTRY POINT IS SPECIFIED, THE AST WILL OCCUR
   6443					;	UPON I/O COMPLETION WITH THE TASK'S PS, PC, VIRTUAL ZERO (DIRECTIVE
   6444					;	STATUS), AND [ADDRESS OF I/O STATUS BLOCK] PUSHED ONTO THE TASK'S
   6445					;	(USER) STACK.
   6446					;
   6447					; A 6-12 WORD DPB OF THE FOLLOWING FORMAT IS USED:
   6448					;
   6449					;	WD. 00 -- DIC (03.) & DPB SIZE (6-12),
   6450					;	WD. 01 -- I/O FUNCTION CODE,
   6451					;	WD. 02 -- LUN,
   6452					;	WD. 03 -- [EFN] & [PRIORITY],
   6453					;	WD. 04 -- [ADDRESS OF I/O STATUS BLOCK],
   6454					;	WD. 05 -- [I/O DONE AST SERVICE ENTRY POINT],
   6455					;	WD. 06 -- PARAMETER #1,
   6456					;	WD. 07 -- PARAMETER #2,
   6457					;	WD. 10 -- PARAMETER #3,
   6458					;	WD. 11 -- PARAMETER #4,
   6459					;	WD. 12 -- PARAMETER #5,
   6460					;	WD. 13 -- PARAMETER #6.
   6461					;
   6462					; THE FORMAT OF THE I/O REQUEST NODE CREATED IS DESCRIBED
   6463					; UNDER "SYMBOLIC DEFINITIONS".
   6464					;
   6465					; THE FOLLOWING STATUS IS RETURNED:
   6466					;
   6467					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
DMQIO	- "QUEUE I/O" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 124-2
DIRECTIVE -- QUEUE I/O

   6468					; OF ONE (+1).
   6469					;
   6470					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   6471					;
   6472					;	-01 -- UNAVAILABLE POOL NODE FOR REQUEST QUEUE,
   6473					;	-05 -- UNASSIGNED LUN,
   6474					;	-06 -- HANDLER TASK NOT DECLARED RESIDENT,
   6475					;
   6476					;	-95 -- INVALID PRIORITY (>250.),
   6477					;	-96 -- INVALID LUN,
   6478					;	-97 -- INVALID EFN (>64.), OR 0 EVENT FLAG (I/O QUEUE'D BUT WAIT NOT EXECUTED),
   6479					;	-98 -- PART OF DPB IS OUT OF ISSUING TASK'S ADDRESS SPACE,
   6480					;	-99 -- DIC OR DPB SIZE IS INVALID.
   6481					;-
   6482					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   6483					; DIRECTIVE ISSUING TASK'S PS, PC, & R5-R0 PUSHED ONTO THE
   6484					; KERNEL STACK, AND R5-R0 SET AS FOLLOWS:
   6485					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   6486					;
   6487	022542	010346 			.D.QIO::MOV	R3,-(SP)	;SAVE THE DIC TO DETERMINE IF QIO& WAIT OR JUST QIO.
   6488					;
   6489	022544				20$:	MFPS	(R1)+,R3	;SET R3 TO FUNCTION CODE
	022544	012103 				MOV	(R1)+,R3
   6490									;(LEAVE R1 POINTING TO LUN WORD)
   6491					;
   6492	022546					MFPI	(R1)+		;PUSH LUN, AND CONVERT TO PUD ENTRY ADR
	022546	012146 				MOV	(R1)+,-(SP)
   6493	022550					CALL	.VCLUN		;(LEAVE R1 POINTING TO EFN/PRI WORD)
	022550	004737 	015654'			JSR	PC,.VCLUN
   6494									;IF INVALID LUN, RETURN STS=-96.
   6495	022554	011600 				MOV	@SP,R0		;SET R0 TO PUD ENTRY ADR IF LUN ASSIGNED
   6496	022556	001001 				BNE	40$		;IF UN-ASSIGNED LUN, RETURN STS=-05.
   6497	022560	104773 				TRAP	DE.05
   6498	022562	010246 			40$:	MOV	R2,-(SP)	;PUSH DPB SIZE
   6499					;
   6500									;TO ACCESS REQUESTOR'S HEADER BY '.VCLUN').
   6501					;
   6502	022564					MFPI	+4(R1)		;PUSH I/O DONE AST ENTRY PT (OR ZERO)
	022564	016146 	000004 			MOV	+4(R1),-(SP)
   6503					;
   6504	022570					MFPI	+02(R1)		;PUSH I/O STATUS BLOCK ADR (OR ZERO),
	022570	016146 	000002 			MOV	+02(R1),-(SP)
   6505	022574	011602 				MOV	@SP,R2		;AND CLEAR TWO-WORD STATUS BLOCK.
   6506	022576	001404 				BEQ	50$		;(IF SPECIFIED).  IF PART OF STATUS
   6507	022600	005046 				CLR	-(SP)		;OUT OF ADDRESS SPACE, RETURN
   6508	022602					MTPI	(R2)+
	022602	012622 				MOV	(SP)+,(R2)+
   6509	022604	005046 				CLR	-(SP)
   6510	022606					MTPI	@R2
	022606	012612 				MOV	(SP)+,@R2
   6511	022610				50$:
   6512	022610	010346 				MOV	R3,-(SP)	;PUSH I/O FUNCTION CODE WORD
   6513					;
   6514									;R1 IS POINTING TO [EFN] IN DPB.
   6515					;
   6516	022612					CALL	.CEFN		;CONVERT EFN TO: (1) FLAG WORD ADDRESS
	022612	004737 	043062'			JSR	PC,.CEFN
DMQIO	- "QUEUE I/O" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 124-3
DIRECTIVE -- QUEUE I/O

   6517									;IN R2, AND (2) FLAG MASK IN R3 (R2 IS
   6518									;POINTING TO EFN).  IF EFN<0, OR EFN>64.,
   6519									;RETURN STS=-97.  IF EFN=0 (NO EVENT FLAG
   6520									;SPECIFIED), RETURN WITH R2=R3=00.
   6521									;CONDITION CODES ARE SET PER "TST R3".
   6522					;
   6523	022616					MFPS	@R1,R4		;SET PRIORITY IN R4, EFN IN HIGH ORDER
	022616	011104 				MOV	@R1,R4
   6524									;BYTE OF R0, AND ZERO IN LOW ORDER BYTE
   6525	022620	010400 				MOV	R4,R0		;OF R0
   6526	022622	105004 				CLRB	R4
   6527	022624	000304 				SWAB	R4
   6528	022626	000300 				SWAB	R0
   6529	022630	105000 				CLRB	R0
   6530									;IS A PRIORITY SPECIFIED?
   6531	022632	001002 				BNE	70$		;YES -- CHECK ITS VALIDITY
   6532	022634	156504 	000010 			BISB	A.RP(R5),R4	;NO -- USE RUN PARIORITY OF ISSUING TASK
   6533									;("BISB" INTO A CLEARED R4 EFFECTS A
   6534									;"MOVB" WITHOUT SIGN EXTENSION.)
   6535					;
   6536	022640				70$:	MFPI	-(R1)		;PUSH LUN & FORM LUN/EFN WORD ON STACK.
	022640	014146 				MOV	-(R1),-(SP)
   6537	022642	050016 				BIS	R0,@SP		;(R1 IS LEFT POINTING TO LUN)
   6538					;
   6539	022644	010446 				MOV	R4,-(SP)	;PUSH PRI/BYTE RESERVED FOR DPB SIZE
   6540					;
   6541					; STACK & REGISTER SUMMARY:
   6542					;
   6543					;	SP+14 -- PUD ENTRY ADDRESS
   6544					;	SP+12 -- DPB SIZE
   6545					;	SP+10 -- AST ENTRY PT (OR ZERO)
   6546					;	SP+06 -- I/O STATUS BUF ADR (OR ZERO)
   6547					;	SP+04 -- I/O FUNCTION CODE
   6548					;	SP+02 -- LUN/EFN WORD
   6549					;	SP+00 -- PRI/RESERVED BYTE
   6550					;
   6551					;	R5 -- ATL NODE ADR OF ISSUING TASK
   6552					;	R2 & R3 SETUP TO CLEAR EVENT FLAG
   6553					;
   6554	022646	116666 	000012 	000001 		MOVB	+12(SP),+1(SP)	;SET DPB SIZE IN "PRI/DPB-SIZE" WORD
   6555					;
   6556	022654	010100 				MOV	R1,R0		;SETUP R0 TO FETCH I/O PARAMETERS (FROM DPB)
   6557	022656	062700 	000010 			ADD	#10,R0
   6558	022662	010046 				MOV	R0,-(SP)	;SAVE R0
   6559					;
   6560	022664	012701 	000040 			MOV	#32.,R1		;SET UP TO PICK A NODE
   6561	022670					CALL	..ALCB
	022670	004737 	044416'			JSR	PC,..ALCB
   6562	022674	010001 				MOV	R0,R1		;SET UP NODE ADDRESS
   6563	022676	103001 				BCC	79$		;OK -- CHECK FUNCTION CODE
   6564	022700	104777 				TRAP	DE.01		;NO -- RETURN POOL EMPTY ERROR
   6565					;
   6566					;
   6567					;
   6568					; REQUEST CAN BE MADE -- STACK & REGISTER SUMMARY:
   6569					;
   6570					;	SP+14 -- PUD ENTRY ADDRESS
DMQIO	- "QUEUE I/O" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 124-4
DIRECTIVE -- QUEUE I/O

   6571					;	SP+12 -- DPB SIZE
   6572					;	SP+10 -- AST ENTRY PT (OR ZERO)
   6573					;	SP+06 -- I/O STATUS BUF ADR (OR ZERO)
   6574					;	SP+04 -- I/O FUNCTION CODE
   6575					;	SP+02 -- LUN/EFN WORD
   6576					;	SP+00 -- PRI/DPB SIZE
   6577					;
   6578					;	R5 -- ATL NODE ADR OF ISSUING TASK
   6579					;	R1 -- I/O REQUEST NODE ADDRESS
   6580					;	R2 & R3 SETUP TO CLEAR EVENT FLAG
   6581					;	R0 -- POINTING TO FIRST PARAMETER WORD IN DPB
   6582					;
   6583	022702	040312 			79$:	BIC	R3,@R2		;CLEAR EVENT FLAG, IFF SPECIFIED.
   6584									;NOTE -- IF NO EFN SPECIFIED, R3=R3=00.
   6585									;I.E., NO BITS IN LOCATION ZERO ARE CLEARED.
   6586	022704	012600 				MOV	(SP)+,R0	;RESTORE BUFFER ADDRESS
   6587					;
   6588					; FILL I/O REQUEST NODE
   6589					;
   6590	022706	010104 				MOV	R1,R4		;SETUP R4 TO FILL NODE
   6591	022710	022424 				CMP	(R4)+,(R4)+	;MOVE OVER LISTHEAD
   6592	022712	016524 	000016 			MOV	A.TD(R5),(R4)+	;SET STD ADDRESS
   6593					;
   6594	022716	010524 				MOV	R5,(R4)+	;SET ATL NODE ADR OF REQUESTOR
   6595	022720	012624 				MOV	(SP)+,(R4)+	;(POP) SET PRI/DPB-SIZE WORD
   6596	022722	011603 				MOV	@SP,R3		;SAVE LUN/EFN
   6597	022724	012624 				MOV	(SP)+,(R4)+	;(POP) SET LUN/EFN WORD
   6598	022726	012624 				MOV	(SP)+,(R4)+	;(POP) SET I/O FUNCTION CODE
   6599	022730	012624 				MOV	(SP)+,(R4)+	;(POP) SET I/O STATUS BLK ADR (OR ZERO)
   6600	022732	012624 				MOV	(SP)+,(R4)+	;(POP) SET AST ENTRY PT (OR ZERO)
   6601	022734	013724 	001156'			MOV	.SYUIC,(R4)+	;SET THE UIC
   6602					;
   6603	022740	012602 				MOV	(SP)+,R2	;(POP) SET DPB SIZE IN R2, CONVERT
   6604	022742	162702 	000006 			SUB	#6.,R2		;TO NUMBER OF I/O PARAMETERS, AND
   6605	022746	001402 				BEQ	90$		;MOVE PARAMETERS FROM DPB TO I/O
   6606	022750				80$:				;REQUEST NODE.
   6607	022750					MFPS	(R0)+,(R4)+
	022750	012024 				MOV	(R0)+,(R4)+
   6608	022752	077202 				SOB	R2,80$
   6609	022754				90$:
   6610					;
   6611					;
   6612	022754	012602 				MOV	(SP)+,R2	;(POP) SET R2 TO PUD ENTRY ADDRESS, AND
   6613	022756	016204 	000020 			MOV	U.HA(R2),R4	;SET R2 TO HANDLER TASK'S ATL NODE ADDRESS.
   6614					;
   6615					; IF FUNCTION CODE 'RF.XR' IS SET, THIS FUNCTION IS AN "EXPRESS" FUNCTION.
   6616					; EXPRESS REQUESTS ARE NORMALLY DE-QUEUED BEFORE NORMAL REQUESTS. VIZ.,
   6617					; "KILL READ REQUEST", OR "RUNDOWN I/O ON TASK".
   6618					;
   6619	022762	010137 	023200'			MOV	R1,QNDSV	;SAVE THE QIO NODE ADDRESS
   6620	022766	016100 	000014 			MOV	R.FC(R1),R0	;FIND THE FUNCTION CODE
   6621	022772	020027 	002500 			CMP	R0,#IO.STC	;CHECK TO SEE IF LEGAL
   6622	022776	101457 				BLOS	95$		;YES -- DON'T NEED FCP
   6623	023000	010246 				MOV	R2,-(SP)
   6624	023002	010346 				MOV	R3,-(SP)
   6625	023004	010203 				MOV	R2,R3		;FIND THE PUD ADDRESS
   6626	023006	016302 	000040 			MOV	U.ACP(R3),R2	;FIND THE STD ADDRESS OF THE ACP
DMQIO	- "QUEUE I/O" DIRECTIVE	MACRO M1113  10-NOV-81 18:56  PAGE 124-5
DIRECTIVE -- QUEUE I/O

   6627	023012	001015 				BNE	77$		;FOUND ACP -- DON'T DIDDLE CODES
   6628	023014	022700 	011000 			CMP	#IO.WVB,R0	;IS CODE WRITE VIRTUAL?
   6629	023020	001003 				BNE	74$		;NO -- LOOK FOR READ
   6630	023022	012761 	000400 	000014 		MOV	#IO.WLB,R.FC(R1) ;YES SET FUNCTON CODE
   6631	023030	022700 	010400 		74$:	CMP	#IO.RVB,R0	;IS FUNCTION CODE READ VIRTUAL?
   6632	023034	001036 				BNE	93$		;NO -- FORGET IT
   6633	023036	012761 	001000 	000014 		MOV	#IO.RLB,R.FC(R1) ;SET FUNCTION CODE
   6634	023044	000432 				BR	93$
   6635	023046				77$:
   6639	023046	020027 	010400 			CMP	R0,#IO.RVB	;CHECK FOR READ/WRITE VIRTUAL
   6640	023052	001403 				BEQ	71$		;YES -- ATTEMPT TO MAP IT
   6641	023054	020027 	011000 			CMP	R0,#IO.WVB	;MAYBE TRY WRITE
   6642	023060	001003 				BNE	73$		;NO -- CALL FCP
   6643	023062				71$:	CALL	..VTOL		;TRY AND MAP
	023062	004737 	047150'			JSR	PC,..VTOL
   6644	023066	103021 				BCC	93$		;MADE IT -- DON'T CALL FCP
   6645	023070	010337 	023202'		73$:	MOV	R3,QNDSV+2	;SET PUD ADDRESS
   6646	023074	016137 	000014 	023204'		MOV	R.FC(R1),QNDSV+4	;SET FUNCTION CODE
   6647	023102	012701 	023206'			MOV	#PRMBLK,R1	;POINTER TO BUFFER ADDRESS AND EFN
   6648	023106					CALL	.SEND		;SEND BLOCK
	023106	004737 	023360'			JSR	PC,.SEND
   6649	023112	005003 				CLR	R3
   6650	023114	005004 				CLR	R4		;SET DEFAULT PARTITION AND PRI FOR ACP
   6651	023116	010102 				MOV	R1,R2
   6652	023120					CALL	.REQS		;REQ ACP
	023120	004737 	015046'			JSR	PC,.REQS
   6653	023124	012603 				MOV	(SP)+,R3
   6654	023126	012602 				MOV	(SP)+,R2
   6655	023130	000413 				BR	100$
   6656					;
   6657	023132	012603 			93$:	MOV	(SP)+,R3	;RESTORE
   6658	023134	012602 				MOV	(SP)+,R2
   6659	023136				95$:				;(R2 CONTAINS PUD ENTRY ADDRESS)
   6660	023136	062702 	000022 			ADD	#U.RF,R2	;SET R2 TO I/O REQUEST DEQUE LISTHEAD ADR
   6661									;(R1 IS SET TO REQUEST NODE ADDRESS)
   6662	023142					CALL	..IPRI		;AND INSERT REQUEST NODE BY PRIORITY.
	023142	004737 	044122'			JSR	PC,..IPRI
   6663	023146	052764 	000010 	000020 		BIS	#EF.NIR,A.EF+0(R4) ;NO -- SET TRIGGER EVENT FLAG 'EF.NIR'.
   6664	023154					CALL	..DSEV		;DECLARE SIGNIFICANT EVENT TO EFFECT "TRIGGER"
	023154	004737 	044026'			JSR	PC,..DSEV
   6665					;
   6666	023160	022627 	000003 		100$:	CMP	(SP)+,#3	;CHECK THE DIC TO SEE IF QIO AND WAIT
   6667	023164	001401 				BEQ	120$		;YES -- ISSUE THE WAIT
   6668					;				;NO -- JUST RETURN
   6669	023166	104401 				TRAP	DR.01		;RETURN STS=+1
   6670					;
   6671	023170	105003 			120$:	CLRB	R3		;SET UP FOR THE WAIT DIRECTIVE
   6672	023172	000303 				SWAB	R3
   6673	023174	000137 	022154'			JMP	.D.WFO		;ISSUE WAIT DIRECTIVE
   6674					;
   6675	023200	000000 	000000 	000000 	QNDSV:	.WORD	0,0,0		;SAVE AREA FOR NODE
   6676					;
   6677	023206	023200'			PRMBLK:	.WORD	QNDSV		;POINTER TO SEND BUFFER
   6678	023210	000000 				.WORD	0		;EFN (0)
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 125
DIRECTIVE -- QUEUE I/O

   6680						.TITLE	DMSAR	- SEND & RECEIVE DIRECTIVES MODULE
   6681						.SBTTL	SEND AND RECEIVE -- COPYRIGT STATEMENT
   6682	023212					IDENT$	2,0
						.IDENT	/002000/
   6683					;
   6684					;                             COPYRIGHT (C) 1975, 1978 BY
   6685					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   6686					;
   6687					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   6688					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   6689					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   6690					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   6691					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   6692					;
   6693					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   6694					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   6695					;       CORPORATION.
   6696					;
   6697					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   6698					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   6699					;
   6700					;
   6701					;		MODULE: SEND & RECEIVE DIRECTIVES
   6702					;
   6703					;		VERSION: 01-00
   6704					;
   6705					;		AUTHOR: R. MCLEAN
   6706					;
   6707					;		DATE: 19 MAY 75
   6708					;
   6709					;
   6710					;	THIS MODULE CONTAINS:
   6711					;
   6712					;	1 -- CODE TO SERVICE THE "SEND DATA" DIRECTIVE,
   6713					;	2 -- CODE TO SERVICE THE "SEND AND REQUEST OR RESUME" DIRECTIVE,
   6714					;	3 -- CODE TO SERVICE THE "RECEIVE DATA" DIRECTIVE,
   6715					;	4 -- CODE TO SERVICE THE "RECEIVE OR EXIT" DIRECTIVE,
   6716					;	5 -- CODE TO SERVICE THE "RECEIVE OR SUSPEND" DIRECTIVE,
   6717					;
   6718					;	MACROS
   6719					;
   6720						.MCALL	CALL,RETURN,MTPI,MTPS,MFPI,MFPS
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 126
DIRECTIVE -- SEND DATA

   6722						.SBTTL	DIRECTIVE -- SEND DATA
   6723					;+
   6724					; THE "SEND DATA" DIRECTIVE
   6725					;
   6726					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO QUEUE (FIFO) A THIRTEEN WORD
   6727					; BLOCK OF DATA FOR A TASK TO RECEIVE.
   6728					;
   6729					; A FIVE WORD DPB OF THE FOLLOWING FORMAT IS USED:
   6730					;
   6731					;	WD. 00 -- DIC (13.) & DPB SIZE (5.),
   6732					;	WD. 01 -- RECEIVER TASK NAME (FIRST HALF),
   6733					;	WD. 02 -- RECEIVER TASK NAME (SECOND HALF),
   6734					;	WD. 03 -- ADDRESS OF THIRTEEN WORD DATA BLOCK,
   6735					;	WD. 04 -- [EVENT FLAG NUMBER (EFN)].
   6736					;
   6737					; WHEN AN EVENT FLAG IS SPECIFIED, A SIGNIFICANT EVENT IS DECLARED
   6738					; (IF THE DIRECTIVE IS PERFORMED) AND THE INDICATED EVENT FLAG IS SET.
   6739					;
   6740					; THE FOLLOWING STATUS IS RETURNED:
   6741					;
   6742					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   6743					; OF ONE (+1).
   6744					;
   6745					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   6746					;
   6747					;	-02 -- RECEIVER TASK NOT INSTALLED (NO STD ENTRY FOUND),
   6748					;	-04 -- INSUFFICIENT POOL NODES FOR "SEND",
   6749					;
   6750					;	-97 -- INVALID EVENT FLAG NUMBER (EFN<0 OR EFN>64),
   6751					;	-99 -- DIC OR DPB SIZE IS INVALID.
   6752					;-
   6753					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   6754					; DIRECTIVE ISSUING TASK'S PS, PC, & R1-R5 PUSHED ONTO THE
   6755					;  STACK, AND R0-R5 SET AS FOLLOWS:
   6756					;	R0 -- PC OF EMT INSTRUCTION
   6757					;	R1 -- POINTER TO WORD FOLLOWING DIC & SIZE
   6758					;	R2 -- DPB SIZE
   6759					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   6760					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK ('.CRTSK')
   6761					;
   6762					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   6763					;
   6764	023212				.D.SEN::CALL	..FSTD		;SET R2 TO STD ENTRY ADDRESS, OR TO
	023212	004737 	044336'			JSR	PC,..FSTD
   6765									;ZERO IF TASK NAME NOT FOUND (AND SET
   6766									;CONDITION CODES PER "TST R2").
   6767									;
   6768									;ADVANCE R1 BY FOUR (PAST TASK NAME).
   6769					;
   6770	023216	001406 				BEQ	.X.02		;IF TASK NOT INSTALLED, RETURN STS=-02.
   6771					;
   6772					; R1 IS POINTING TO DPB WD. 03, AND R2 CONTAINS STD NODE ADR OF RECEIVER.
   6773					;
   6774	023220				10$:	CALL	.SEND		;SEND DATA & SET EVENT FLAG PER R1 & R2
	023220	004737 	023360'			JSR	PC,.SEND
   6775					;
   6776	023224	104401 				TRAP	DR.01		;RETURN STS=+1.
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 127
DIRECTIVE -- SEND AND REQUEST OR RESUME

   6778					.SBTTL	DIRECTIVE -- SEND AND REQUEST OR RESUME
   6779					;+
   6780					; THE "SEND AND REQUEST OR RESUME" DIRECTIVE
   6781					;
   6782					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO QUEUE (FIFO) A THIRTEEN WORD
   6783					; BLOCK OF DATA FOR A TASK TO RECEIVE, AND TO REQUEST OR RESUME THE
   6784					; EXECUTION OF THE RECEIVER TASK.
   6785					;
   6786					; THIS DIRECTIVE HAS THE EFFECT OF ISSUING A "SEND DATA" DIRECTIVE
   6787					; FOLLOWED BY A "REQUEST" OR "RESUME" DIRECTIVE, EXCEPT THAT (1) NO TASK
   6788					; SWITCHING CAN OCCUR BETWEEN THE SEND AND THE REQUEST OR RECEIVE, AND
   6789					; (2) IF THE SEND IS NOT PERFORMED, NEITHER THE REQEST NOR THE RESUME
   6790					; WILL BE ATTEMPTED.
   6791					;
   6792					; I.E., IF DATA IS SENT TO AN INACTIVE TASK, THAT TASK WILL BE REQUESTED;
   6793					; IF DATA IS SENT TO A SUSPENDED TASK, THAT TASK WILL BE RESUMED.
   6794					;
   6795					; A NINE WORD DPB OF THE FOLLOWING FORMAT IS USED:
   6796					;
   6797					;	WD. 00 -- DIC (15.) & DPB SIZE (9.),
   6798					;	WD. 01 -- RECEIVER TASK NAME (FIRST HALF),
   6799					;	WD. 02 -- RECEIVER TASK NAME (SECOND HALF),
   6800					;	WD. 03 -- [PARTITION NAME (FIRST HALF)],
   6801					;	WD. 04 -- [PARTITION NAME (SECOND HALF)],
   6802					;	WD. 05 -- [PRIORITY],
   6803					;	WD. 06 -- 0,
   6804					;	WD. 07 -- ADDRESS OF THIRTEEN WORD DATA BLOCK,
   6805					;	WD. 10 -- [EVENT FLAG NUMBER (EFN)].
   6806					;
   6807					; WHEN AN EVENT FLAG IS SPECIFIED, A SIGNIFICANT EVENT IS DECLARED
   6808					; (IF THE DIRECTIVE IS PERFORMED) AND THE INDICATED EVENT FLAG IS SET.
   6809					;
   6810					; THE FOLLOWING STATUS IS RETURNED:
   6811					;
   6812					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE
   6813					; STATUS OF:
   6814					;
   6815					;	+1 -- DATA SENT AND TASK REQUESTED,
   6816					;	+2 -- DATA SEND AND TASK RESUMED,
   6817					;	+3 -- DATA SENT TO AN NON-SUSPENDED ACTIVE TASK.
   6818					;
   6819					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   6820					;
   6821					;	-01 -- [R] INSUFFICIENT POOL NODES AVAILABLE FOR "REQUEST",
   6822					;	-02 -- [B] RECEIVER TASK NOT INSTALLED (NO STD ENTRY FOUND),
   6823					;	-03 -- [R] PARTITION TOO SMALL FOR RECEIVER TASK,
   6824					;	-04 -- [B] INSUFFICIENT POOL NODES FOR "SEND",
   6825					;	-08 -- [R] RECEIVER TASK IS DISABLED,
   6826					;
   6827					;	-80 -- [B] DIRECTIVE ISSUED BY "BACKGROUND" TASK,
   6828					;	-94 -- [R] PARTITION NOT IN SYSTEM (NO TPD ENTRY FOUND),
   6829					;	-95 -- [R] INVALID PRIORITY SPECIFIED (<0 OR >250.),
   6830					;	-97 -- [B] INVALID EVENT FLAG NUMBER (EFN<0 OR EFN>64),
   6831					;	-99 -- [B] DIC OR DPB SIZE IS INVALID.
   6832					;
   6833					; [R] -- REQUEST OR RESUME REJECTED
   6834					; [B] -- BOTH SEND & REQUEST OR RESUME REJECTED
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 127-1
DIRECTIVE -- SEND AND REQUEST OR RESUME

   6835					;-
   6836					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   6837					; DIRECTIVE ISSUING TASK'S PS, PC, & R1-R5 PUSHED ONTO THE
   6838					;  STACK, AND R0-R5 SET AS FOLLOWS:
   6839					;	R0 -- PC OF EMT INSTRUCTION
   6840					;	R1 -- POINTER TO WORD FOLLOWING DIC & SIZE
   6841					;	R2 -- DPB SIZE
   6842					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   6843					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK ('.CRTSK')
   6844					;
   6845					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   6846					;
   6847	023226				.D.SAR::CALL	..FSTD		;SET R2 TO STD ENTRY ADDRESS, OR TO
	023226	004737 	044336'			JSR	PC,..FSTD
   6848									;ZERO IF TASK NAME NOT FOUND (AND SET
   6849									;CONDITION CODES PER "TST R2").
   6850									;
   6851									;ADVANCE R1 BY FOUR (PAST TASK NAME).
   6852					;
   6853	023232	001001 				BNE	SKX		;IF TASK NOT INSTALLED, RETURN STS=-02.
   6854	023234	104776 			.X.02:	TRAP	DE.02
   6855					;
   6856	023236	010146 			SKX:	MOV	R1,-(SP)	;PUSH (SAVE) R1 & R2, AND ADVANCE R1 TO POINT
   6857	023240	010246 				MOV	R2,-(SP)	;TO DPB WD. 07.
   6858	023242	062701 	000010 			ADD	#8.,R1
   6859					;
   6860					; R1 IS POINTING TO DPB WD. 07, AND R2 CONTAINS STD ENTRY ADR OF RECEIVER.
   6861					;
   6862	023246					CALL	.SEND		;SEND DATA & SET EVENT FLAG PER R1 & R2
	023246	004737 	023360'			JSR	PC,.SEND
   6863									;(R1, R2, R3, R4, & R5 ARE ALTERED)
   6864					;
   6865	023252	012602 				MOV	(SP)+,R2	;POP (RESTORE) R2 & R1
   6866	023254	012601 				MOV	(SP)+,R1	;(R1 IS POINTING TO DPB WD. 03.)
   6867					;
   6868	023256					CALL	.FEPPU		;SET R3 TO TPD ADDRESS IF A PARTITION IS
	023256	004737 	015550'			JSR	PC,.FEPPU
   6869									;SPECIFIED, OR TO ZERO IF NOT SPECIFIED.
   6870									;
   6871									;SET R4 TO PRIORITY IF SPECIFIED, OR TO
   6872									;ZERO IF NOT SPECIFIED.
   6873									;
   6874									;
   6875									;ADVANCE R1 BY EIGHT (PAST PARTITION NAME,
   6876									;PRIORITY INDICATOR, AND UIC INDICATOR.).
   6877									;
   6878									;IF INVALID PRIORITY, RETURN STS=-95.
   6879									;IF PARTITION NOT IS SYSTEM, RETURN
   6880									;STS=-94.  IF NON-PRIVILEGED TASK HAS
   6881									;SPECIFIED OTHER THAN OWN UIC, RETURN
   6882									;STS=-91.  IF SPECIFIED PARTITION IS
   6883									;TOO SMALL FOR TASK, RETURN STS=-03.
   6884					;
   6885					;
   6886	023262	012701 	000001 			MOV	#1,R1		;SET R1 TO INDICATE "MAKE TASK ACTIVE WHETHER
   6887									;MEMORY IS AVAILABLE OR NOT"
   6888					;
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 127-2
DIRECTIVE -- SEND AND REQUEST OR RESUME

   6889	023266	016500 	000016 			MOV	A.TD(R5),R0	;SET R5 TO STD ADDRESS OF REQUESTOR
   6890					;
   6891	023272	010246 				MOV	R2,-(SP)	;PUSH STD ENTRY ADDRESS (FOR ATL SCAN)
   6892					;
   6893	023274					CALL	.REQS		;MAKE A TASK ACTIVE PER R0, R1, R2, R3, R4 & R5.
	023274	004737 	015046'			JSR	PC,.REQS
   6894									;(R1, R2, R3, R4, & R5 ARE ALTERED)
   6895	023300	012604 				MOV	(SP)+,R4	;POP STD ENTRY ADDRESS INTO R4
   6896					;
   6897	023302	020227 	000002 			CMP	R2,#02		;SPECIAL CASE -- IS TASK ACTIVE?
   6898	023306	001402 				BEQ	10$		;YES -- RESUME IF SUSPENDED
   6899	023310	000162 	015540'			JMP	.RQESD(R2)	;NO -- RETURN DIRECTIVE STATUS PER SUBROUTINE
   6900									;STATUS IN R2.
   6901					;
   6902					; RECEIVER TASK IS ACTIVE:
   6903					;
   6904					;	IF SUSPENDED, RESUME & RETURN STS=+2
   6905					;	IF NOT SUSPENDED, RETURN STS=+3
   6906					;
   6907					; R4 CONTAINS THE STD ENTRY ADDRESS OF THE RECEIVER TASK.
   6908					;
   6909	023314	012703 	007106'		10$:	MOV	#.ATLLH,R3	;SETUP FOR ATL SCAN
   6910	023320				20$:
   6911	023320	011303 				MOV	@R3,R3		;SETUP R3 TO EXAMINE NEXT ENTRY
   6912	023322	020337 	007110'			CMP	R3,.ATLLH+2	;IS R3 POINTING TO ENTRY FOR NUL TASK?
   6913	023326	001413 				BEQ	70$		;YES -- ATL NODE IS NOT IN THE ATL (IT IS
   6914									;IN THE "MRL" FOR A PARTITION) RETURN STS=+3.
   6915	023330	026304 	000016 			CMP	A.TD(R3),R4	;NO -- STD ADDRESS MATCH?
   6916	023334	001371 				BNE	20$		;NO -- CHECK NEXT ATL NODE
   6917	023336	126327 	000014 	000012 	60$:	CMPB  A.TS(R3),#TS.SUS	;NO -- IS TASK SUSPENDED?
   6918	023344	001004 				BNE	70$
   6919	023346	112763 	000010 	000014 		MOVB  #TS.RUN,A.TS(R3)	;YES -- CHANGE STATUS TO RUNNING (A SIGNIFICANT
   6920									;EVENT HAS BEEN DECLARED AS A RESULT OF THE
   6921	023354	104402 				TRAP	DR.02		;SEND), AND RETURN STS=+2.
   6922					;
   6923	023356	104403 			70$:	TRAP	DR.03		;STS +3
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 128
DIRECTIVE -- SEND AND REQUEST OR RESUME

   6925					; SEND -- SUBROUTINE TO PERFORM "SEND" FOR "SEND DATA" AND "SEND DATA &
   6926					; REQUEST RECEIVER" DIRECTIVES.
   6927					;
   6928					; ENTRY CONDITIONS:
   6929					;
   6930					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK
   6931					;	R1 -- POINTING (IN DPB) TO ADR OF 13 WORD BLOCK OF DATA,
   6932					;	WHICH IS FOLLOWED BY AN [EFN].  BOTH WORDS MUST BE FETCHABLE
   6933					;	WITHOUT SEGMENT FAULT.
   6934					;	R2 -- STD ENTRY ADDRESS OF RECEIVER TASK
   6935					;
   6936					; CALLING SEQUENCE:
   6937					;
   6938					;	JSR  PC,SEND
   6939					;
   6940					; EXIT CONDITIONS:
   6941					;
   6942					;	IF NO POOL NODE AVAILABLE, RETURN AT 'DE.01'
   6943					;	IF INVALID EFN, RETURN AT 'DE.97'
   6944					;	IF PART OF DATA OUT OF TASK'S ADDRESS SPACE, RETURN AT 'DE.98'
   6945					;
   6946					;	IF SUCCESSFUL, DATA IS QUEUED, EFN (IF SPECIFIED) IS SET,
   6947					;	AND A SIGNIFICANT EVENT IS DECLARED.
   6948					;
   6949					;	R1 -- STD OF RECEIVER TASK
   6950					;
   6951					;
   6952					; REGISTERS ALTERED:
   6953					;
   6954					;	R1, R2, R3, R4, & R0
   6955					;
   6956	023360				.SEND::	MFPI	(R1)+		;SET R5 TO ADDRESS OF DATA BLOCK, AND
	023360	012146 				MOV	(R1)+,-(SP)
   6957	023362	012600 				MOV	(SP)+,R0	;LEAVE R1 POINTING TO [EFN].
   6958					;
   6959	023364	010246 				MOV	R2,-(SP)	;SAVE RECEIVER STD ENTRY ADR IN -(SP)
   6960					;
   6961									;R1 IS POINTING TO [EFN] IN DPB.
   6962					;
   6963	023366					CALL	.CEFN		;CONVERT EFN TO: (1) FLAG WORD ADDRESS
	023366	004737 	043062'			JSR	PC,.CEFN
   6964									;IN R2, AND (2) FLAG MASK IN R3 (R1 IS
   6965									;POINTING TO EFN).  IF EFN<0, OR EFN>64.,
   6966									;RETURN STS=-97.  IF EFN=0 (NO EVENT FLAG
   6967									;SPECIFIED), RETURN WITH R2=R3=00.
   6968									;CONDITION CODES ARE SET PER "TST R3".
   6969					;
   6970	023372	010246 				MOV	R2,-(SP)	;PUSH "BIS" ADDRESS WORD
   6971	023374	010346 				MOV	R3,-(SP)	;PUSH "BIS" MASK WORD
   6972					;
   6973	023376	012704 	001424'			MOV	#.POLLH,R4	;LISTHEAD
   6974	023402					CALL	..PICK		;ISSUING TASK, AND SET R1 TO NODE ADR.
	023402	004737 	044240'			JSR	PC,..PICK
   6975	023406	103001 				BCC	10$		;IF NONE AVAILABLE, RETURN STS=-04.
   6976	023410	104774 				TRAP	DE.04
   6977					;
   6978	023412	010401 			10$:	MOV	R4,R1		;SETUP R3 TO FILL NODE
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 128-1
DIRECTIVE -- SEND AND REQUEST OR RESUME

   6979	023414	062704 	000006 			ADD	#Q.D1,R4
   6980	023420	012703 	000015 			MOV	#13.,R3
   6981	023424				20$:
   6982	023424					MFPI	(R0)+		;MOVE WORD FROM DATA BLOCK TO NODE
	023424	012046 				MOV	(R0)+,-(SP)
   6983	023426	012624 				MOV	(SP)+,(R4)+
   6984	023430	077303 				SOB	R3,20$
   6985	023432	052636 				BIS	(SP)+,@(SP)+	;SET EVENT FLAG IF SPECIFIED (IF NOT
   6986	023434	011604 				MOV	@SP,R4		;FIND RECEIVER'S STD ADDRESS
   6987	023436	010461 	000004 			MOV	R4,Q.SI(R1)	;SET SENDERS STD ADDRESS
   6988					;
   6989	023442	016404 	000026 			MOV	S.RB(R4),R4	;SET R4 TO ADDRESS OF LAST NODE (OR LISTHEAD)
   6990	023446					CALL	..NADD		;OF TASK'S RECEIVE DEQUE (LISTHEAD IN STD),
	023446	004737 	044176'			JSR	PC,..NADD
   6991									;AND ADD NODE AT END OF DEQUE.
   6992					;
   6993									;SPECIFIED, SET NO BITS IN WORD ZERO).
   6994					;
   6995	023452	012601 				MOV	(SP)+,R1	;SET RECEIVER STD ADDRESS
   6996	023454	000137 	044026'			JMP	..DSEV		;DECLARE A SIGNIFICANT EVENT AND EXIT
   6997						;
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 129
DIRECTIVE -- RECEIVE DATA

   6999					.SBTTL	DIRECTIVE -- RECEIVE DATA
   7000					;+
   7001					; THE "RECEIVE DATA" DIRECTIVE
   7002					;
   7003					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO RECEIVE A THIRTEEN WORD
   7004					; DATA BLOCK THAT HAS BEEN QUEUED (FIFO) FOR IT (VIA "SEND DATA" OR
   7005					; "SEND DATA & REQUEST RECEIVER" DIRECTIVES).
   7006					;
   7007					; WHEN A SENDER TASK IS SPECIFIED, ONLY DATA SENT BY THE INDICATED
   7008					; TASK IS RECEIVED.
   7009					;
   7010					; A TWO-WORD SENDER TASK NAME, AND THE THIRTEEN-WORD DATA BLOCK, ARE
   7011					; RETURNED IN AN INDICATED FIFTEEN WORD BUFFER, WITH THE TASK NAME IN
   7012					; THE FIRST TWO WORDS.
   7013					;
   7014					; A FOUR WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7015					;
   7016					;	WD. 00 -- DIC (17.) & DPB SIZE (4.),
   7017					;	WD. 01 -- [SENDER TASK NAME (FIRST HALF)],
   7018					;	WD. 02 -- [SENDER TASK NAME (SECOND HALF)],
   7019					;	WD. 03 -- ADDRESS OF FIFTEEN WORD BUFFER.
   7020					;
   7021					; THE FOLLOWING STATUS IS RETURNED:
   7022					;
   7023					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   7024					; OF ONE (+1).
   7025					;
   7026					;
   7027					; CC-C SET TO INDICATE REJECTIONAND A DIRECTIVE STATUS OF:
   7028					;
   7029					;	-02 -- SPECIFIED SENDER TASK NOT INSTALLED,
   7030					;	-08 -- NO DATA QUEUED (SENT),
   7031					;
   7032					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7033					;-
   7034					; THIS DIRECTIVE SERVICE HAS A COMMON ENTRY WITH "RECEIVE DATA OR SUSPEND".
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 130
DIRECTIVE -- RECEIVE DATA OR EXIT

   7036					.SBTTL	DIRECTIVE -- RECEIVE DATA OR EXIT
   7037					;+
   7038					; THE "RECEIVE DATA OR EXIT" DIRECTIVE
   7039					;
   7040					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO RECEIVE A THIRTEEN WORD
   7041					; DATA BLOCK IF AT LEAST ONE IS CAN BE RECEIVED, OR TO EXIT IF NO
   7042					; THIRTEEN WORD DATA BLOCKS ARE CAN BE RECEIVED.
   7043					;
   7044					; DATA BLOCKS ARE QUEUED (FIFO) FOR THE TASK VIA THE "SEND DATA" OR
   7045					; THE "SEND DATA & REQUEST RECEIVER" DIRECTIVES.
   7046					;
   7047					; WHEN A SENDER TASK IS SPECIFIED, ONLY DATA SENT BY THE INDICATED
   7048					; TASK IS RECEIVED.
   7049					;
   7050					; A TWO-WORD SENDER TASK NAME, AND THE THIRTEEN-WORD DATA BLOCK, ARE
   7051					; RETURNED IN AN INDICATED FIFTEEN WORD BUFFER, WITH THE TASK NAME IN
   7052					; THE FIRST TWO WORDS.
   7053					;
   7054					; A FOUR WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7055					;
   7056					;	WD. 00 -- DIC (19.) & DPB SIZE (4.),
   7057					;	WD. 01 -- [SENDER TASK NAME (FIRST HALF)],
   7058					;	WD. 02 -- [SENDER TASK NAME (SECOND HALF)],
   7059					;	WD. 03 -- ADDRESS OF FIFTEEN WORD BUFFER.
   7060					;
   7061					; THE FOLLOWING STATUS IS RETURNED:
   7062					;
   7063					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   7064					; OF ONE (+1).
   7065					;
   7066					;
   7067					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   7068					;
   7069					;	-02 -- SPECIFIED SENDER TASK NOT INSTALLED,
   7070					;
   7071					;	-80 -- DIRECTIVE ISSUED BY "BACKGROUND" TASK,
   7072					;	-98 -- PART OF DPB OR BUFFER IS OUT OF TASK'S ADDRESS SPACE,
   7073					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7074					;-
   7075					; THIS DIRECTIVE SERVICE HAS A COMMON ENTRY WITH "RECEIVE DATA OR SUSPEND".
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 131
DIRECTIVE -- RECEIVE DATA OR SUSPEND

   7077					.SBTTL	DIRECTIVE -- RECEIVE DATA OR SUSPEND
   7078					;+
   7079					; THE "RECEIVE DATA OR SUSPEND" DIRECTIVE
   7080					;
   7081					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO RECEIVE A THIRTEEN WORD
   7082					; DATA BLOCK IF AT LEAST ONE IS CAN BE RECEIVED, OR TO SUSPEND IF NO
   7083					; THIRTEEN WORD DATA BLOCKS ARE CAN BE RECEIVED.
   7084					;
   7085					; DATA BLOCKS ARE QUEUED (FIFO) FOR THE TASK VIA THE "SEND DATA" OR
   7086					; THE "SEND DATA & REQUEST RECEIVER" DIRECTIVES.
   7087					;
   7088					; WHEN A SENDER TASK IS SPECIFIED, ONLY DATA SENT BY THE INDICATED
   7089					; TASK IS RECEIVED.
   7090					;
   7091					; A TWO-WORD SENDER TASK NAME, AND THE THIRTEEN-WORD DATA BLOCK, ARE
   7092					; RETURNED IN AN INDICATED FIFTEEN WORD BUFFER, WITH THE TASK NAME IN
   7093					; THE FIRST TWO WORDS.
   7094					;
   7095					; A FOUR WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7096					;
   7097					;	WD. 00 -- DIC (21.) & DPB SIZE (4.),
   7098					;	WD. 01 -- [SENDER TASK NAME (FIRST HALF)],
   7099					;	WD. 02 -- [SENDER TASK NAME (SECOND HALF)],
   7100					;	WD. 03 -- ADDRESS OF FIFTEEN WORD BUFFER.
   7101					;
   7102					; THE FOLLOWING STATUS IS RETURNED:
   7103					;
   7104					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE
   7105					; STATUS OF:
   7106					;
   7107					;	+1 -- IF DATA WAS RECEIVED,
   7108					;	+2 -- IF TASK WAS SUSPENDED.
   7109					;
   7110					; CC-C SET TO INDICATE REJECTION AND A DIRECTIVE STATUS OF:
   7111					;
   7112					;	-02 -- SPECIFIED SENDER TASK NOT INSTALLED,
   7113					;
   7114					;	-80 -- DIRECTIVE ISSUED BY "BACKGROUND" TASK,
   7115					;	-98 -- PART OF DPB OR BUFFER IS OUT OF TASK'S ADDRESS SPACE,
   7116					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7117					;-
   7118					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   7119					; DIRECTIVE ISSUING TASK'S PS, PC, & R1-R5 PUSHED ONTO THE
   7120					;  STACK, AND R0-R5 SET AS FOLLOWS:
   7121					;	R0 -- PC OF EMT INSTRUCTION
   7122					;	R1 -- POINTER TO WORD FOLLOWING DIC & SIZE
   7123					;	R2 -- DPB SIZE
   7124					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   7125					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK ('.CRTSK')
   7126					;
   7127					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   7128					;
   7129									;R5 IS POINTING TO 15-WORD BUFFER IN TASK.
   7130					;
   7131									;R4 IS SET TO STD NODE ADDRESS OF RECEIVER TASK.
   7132					;
   7133					; COMMON ENTRY POINT FOR "RECEIVE", "RECEIVE OR EXIT", & "RECEIVE OR SUSPEND".
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 131-1
DIRECTIVE -- RECEIVE DATA OR SUSPEND

   7134					;
   7135
   7136	023460				.D.REC::
   7137	023460				.D.ROE::
   7138	023460				.D.ROS::
   7139	023460	016504 	000016 			MOV 	A.TD(R5),R4	;SET R4 TO RECEIVE DEQUE LISTHEAD (IN STD ENTRY).
   7140	023464	062704 	000024 			ADD	#S.RF,R4
   7141					;
   7142	023470					MFPI	(R1)+		;IS A SENDER TASK SPECIFIED?
	023470	012146 				MOV	(R1)+,-(SP)
   7143	023472					MFPI	(R1)+		;MAYBE -- CHECK SECOND HALF OF TASK NAME
	023472	012146 				MOV	(R1)+,-(SP)
   7144	023474	052626 				BIS	(SP)+,(SP)+
   7145	023476	001004 				BNE	10$		;NO -- RECEIVE FROM ANY SENDER
   7146									;YES -- RECEIVE ONLY FROM INDICATED SENDER
   7147									;NO -- RECEIVE FROM ANY SENDER
   7148	023500					CALL	..PICK		;PICK FIRST NODE FROM REC DEQUE, AND LEAVE NODE
	023500	004737 	044240'			JSR	PC,..PICK
   7149									;ADDRESS IN R4.
   7150									;NODE PICKED?
   7151	023504	103017 				BCC	40$		;YES -- FILL BUFFER
   7152	023506	000440 				BR	70$		;NO -- NO DATA BY ANY SENDER
   7153					;
   7154	023510	024141 			10$:	CMP	-(R1),-(R1)
   7155					; R1 IS POINTING TO SPECIFIED SENDER'S TASK NAME IN PREVIOUS SPACE.
   7156					;
   7157	023512					CALL	..FSTD		;SET R2 TO STD ENTRY ADDRESS, OR TO
	023512	004737 	044336'			JSR	PC,..FSTD
   7158									;ZERO IF TASK NAME NOT FOUND (AND SET
   7159									;CONDITION CODES PER "TST R2").
   7160									;
   7161									;ADVANCE R1 BY FOUR (PAST TASK NAME).
   7162					;
   7163	023516	001001 				BNE	20$		;IF TASK NOT INSTALLED, RETURN STS=-02.
   7164	023520	104776 				TRAP	DE.02		;RETURN STS=-02.
   7165					;
   7166	023522	010401 			20$:	MOV	R4,R1		;SAVE LISTHEAD ADDRESS IN R1, AND
   7167									;SCAN DEQUE FOR DATA SENT BY SENDER PER R2.
   7168	023524				30$:
   7169	023524	011404 				MOV	@R4,R4		;ADVANCE R4 TO NEXT NODE
   7170	023526	020401 				CMP	R4,R1		;END OF DEQUE?
   7171	023530	001427 				BEQ	70$		;YES -- NO DATA BY SPECIFIED SENDER
   7172	023532	026402 	000004 			CMP	Q.SI(R4),R2	;NO -- IS DATA SENT BY SPECIFIED SENDER?
   7173	023536	001372 				BNE	30$		;NO -- CHECK NEXT NODE
   7174	023540					CALL	..NDEL		;YES -- DELETE NODE FROM DEQUE
	023540	004737 	044062'			JSR	PC,..NDEL
   7175					;
   7176					; DATA RECEIVED -- R4 CONTAINS NODE ADDRESS & R1 CONTAINS DATA BUFFER
   7177					; ADDRESS.  FILL BUFFER (2-WORD TASK NAME & 13-WORD DATA BLOCK).
   7178					;
   7179	023544				40$:
   7180	023544					MFPS	@R1,R0	;FIND THE BUFFER ADDRESS
	023544	011100 				MOV	@R1,R0
   7181	023546	010401 				MOV	R4,R1		;SAVE NODE ADR IN R1 FOR '..RNTP'
   7182	023550	062704 	000004 			ADD	#Q.SI,R4	;ADVANCE R4 TO POINT TO SENDER ID WORD
   7183					;
   7184	023554	012403 				MOV	(R4)+,R3	;SET R3 TO SENDER STD NODE ADDRESS
DMSAR	- SEND & RECEIVE DIRECT	MACRO M1113  10-NOV-81 18:56  PAGE 131-2
DIRECTIVE -- RECEIVE DATA OR SUSPEND

   7185					;
   7186	023556				50$:
   7187	023556					MTPS  S.TN+0(R3),(R0)+	;SET SENDER TASK NAME IN FIRST TWO WORDS
	023556	016320 	000000 			MOV	S.TN+0(R3),(R0)+
   7188	023562					MTPS  S.TN+2(R3),(R0)+
	023562	016320 	000002 			MOV	S.TN+2(R3),(R0)+
   7189					;
   7190	023566	012703 	000015 			MOV	#13.,R3		;FILL REMAINING 13 WORDS FROM NODE.
   7191	023572				60$:
   7192	023572					MTPS	(R4)+,(R0)+
	023572	012420 				MOV	(R4)+,(R0)+
   7193	023574	077302 				SOB	R3,60$
   7194					;
   7195	023576	012704 	001424'			MOV	#.POLLH,R4	;RETURN NODE TO POOL
   7196	023602					CALL	..NADD		;RETURN NODE (PER R1) TO POOL
	023602	004737 	044176'			JSR	PC,..NADD
   7197					;
   7198	023606	104401 				TRAP	DR.01		;RETURN STS=+1.
   7199					;
   7200					; DATA NOT RECEIVED:
   7201					;	IF "RECEIVE", RETURN STS=-08.
   7202					;	IF "RECEIVE OR EXIT", EXIT.
   7203					;	IF "RECEIVE OR SUSPEND", SUSPEND.
   7204					;
   7205					; R3 CONTAINS THE DIC SIZE.
   7206					; R0 CONTAINS THE ISSUING TASK'S ATL NODE ADDRESS
   7207					;
   7208	023610	006303 			70$:	ASL	R3
   7209	023612	000173 	023552'			JMP	@80$-2-<17.*2.>(R3)
   7210	023616	023624'			80$:	.WORD	90$
   7211	023620	022520'				.WORD	.D.EXT
   7212	023622	023624'				.WORD	90$
   7213					;
   7214	023624	104770 			90$:	TRAP	DE.08
   7215					;
DMSDV	- SPECIFY SST TABLE DIR	MACRO M1113  10-NOV-81 18:56  PAGE 132
DIRECTIVE -- RECEIVE DATA OR SUSPEND

   7217						.TITLE	DMSDV	- SPECIFY SST TABLE DIRECTIVES MODULE
   7218						.SBTTL	SPECIFY SST TABLE -- COPYRIGHT STATEMENT
   7219	023626					IDENT$	1,0
						.IDENT	/001000/
   7220					;
   7221					;                             COPYRIGHT (C) 1975, 1978 BY
   7222					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   7223					;
   7224					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   7225					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   7226					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   7227					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   7228					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   7229					;
   7230					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   7231					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   7232					;       CORPORATION.
   7233					;
   7234					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   7235					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   7236					;
   7237					;		MODULE: SPECIFY SST TABLE DIRECTIVES
   7238					;
   7239					;		VERSION: 01-00
   7240					;
   7241					;		AUTHOR: R. MCLEAN
   7242					;
   7243					;		DATE: 19 JUN 75
   7244					;
   7245					;
   7246					;	THIS MODULE CONTAINS:
   7247					;
   7248					;	1 -- CODE TO SERVICE THE "SPECIFY SST VECTOR TABLE FOR TASK" DIRECTIVE.
   7249					;
   7250					;	MACRO LIBRARY CALLS
   7251
   7252						.MCALL	MTPS,MFPS,MFPI,MTPI,CALL,RETURN
DMSDV	- SPECIFY SST TABLE DIR	MACRO M1113  10-NOV-81 18:56  PAGE 133
DIRECTIVE -- SPECIFY SST VECTOR TABLE FOR TASK

   7254						.SBTTL	DIRECTIVE -- SPECIFY SST VECTOR TABLE FOR TASK
   7255					;+
   7256					; THE "SPECIFY SST VECTOR TABLE FOR TASK" DIRECTIVE
   7257					;
   7258					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO RECORD THE ADDRESS (VIRTUAL) OF
   7259					; A TABLE OF SYNCHRONOUS SYSTEM TRAP SERVICE ROUTINE ENTRY POINTS
   7260					; FOR USE BY THE ISSUING TASK.  WHENEVER AN SST SERVICE ROUTINE ENTRY IS
   7261					; SPECIFIED IN BOTH THE TASK'S TABLE & DDT'S TABLE, THE TRAP OCCURS
   7262					; FOR THE DEBUGGING AID, AND NOT FOR THE TASK.
   7263					;
   7264					;
   7265					;	WD. 00 -- "ODD ADDRESS" ERROR,
   7266					;	WD. 01 -- SEGMENT FAULT,
   7267					;	WD. 02 -- T-BIT TRAP OR EXECUTION OF A 'BPT' INSTRUCTION,
   7268					;	WD. 03 -- EXECUTION OF AN 'IOT' INSTRUCTION,
   7269					;	WD. 04 -- EXECUTION OF A "RESERVED" INSTRUCTION,
   7270					;	WD. 05 -- EXECUTION OF "NON-RSX EMT",
   7271					;	WD. 06 -- EXECUTION OF A 'TRAP' INSTRUCTION,
   7272					;	WD. 07 -- PDP-11/40 FLOATING POINT EXCEPTION.
   7273					;
   7274					; THE TABLE IS OF THE FOLLOWING FORMAT:
   7275					; A THREE WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7276					;
   7277					;	WD. 00 -- DIC (43.) & DPB SIZE (3.),
   7278					;	WD. 01 -- ADDRESS OF SST VECTOR TABLE,
   7279					;	WD. 02 -- NUMBER OF TABLE ENTRIES (8). (MUST BE AT LEAST 8!)
   7280					;
   7281					; THE FOLLOWING STATUS IS RETURNED:
   7282					;
   7283					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   7284					; OF ONE (+1).
   7285					;
   7286					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   7287					;
   7288					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7289					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   7290					; DIRECTIVE ISSUING TASK'S PS, PC, & R1-R5 PUSHED ONTO THE
   7291					;  STACK, AND R0-R5 SET AS FOLLOWS:
   7292					;	R1 -- ADDRESS OF WORD FOLLOWING DIC & SIZE
   7293					;	R2 -- DPB SIZE
   7294					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   7295					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   7296					;
   7297					;
   7298					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   7299									;R1 IS POINTING TO THE ADDRESS OF THE TABLE
   7300									;R5 CONTAINS THE TABLE SIZE
   7301					;
   7302	023626	016502 	000016 		.D.STV::MOV	A.TD(R5),R2	;FIND THE STD ADDRESS OF THIS TASK
   7303	023632					MFPS	@R1,S.SS(R2)	;SET UP SST VECTOR ADDRESS
	023632	011162 	000030 			MOV	@R1,S.SS(R2)
   7304	023636	104401 				TRAP	DR.01		;VALID DIRECTIVE RETURN
DMAST	- SPECIFY AST SERVICE D	MACRO M1113  10-NOV-81 18:56  PAGE 134
DIRECTIVE -- SPECIFY SST VECTOR TABLE FOR TASK

   7306						.TITLE	DMAST	- SPECIFY AST SERVICE DIRECTIVES
   7307						.SBTTL	SPECIFY AST SERVICE -- COPYRIGHT STATEMENT
   7308	023640					IDENT$	1,0
						.IDENT	/001000/
   7309					;
   7310					;                             COPYRIGHT (C) 1975, 1978 BY
   7311					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   7312					;
   7313					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   7314					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   7315					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   7316					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   7317					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   7318					;
   7319					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   7320					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   7321					;       CORPORATION.
   7322					;
   7323					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   7324					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   7325					;
   7326					;		MODULE: SPECIFY AST SERVICE DIRECTIVES
   7327					;
   7328					;		VERSION: 01-00
   7329					;
   7330					;		AUTHOR: R. MCLEAN
   7331					;
   7332					;		DATE: 19 JUN 75
   7333					;
   7334					;
   7335					;	THIS MODULE CONTAINS:
   7336					;
   7337					;	1 -- CODE TO SERVICE THE "SPECIFY POWER RECOVERY AST" DIRECTIVE,
   7338					;
   7339					;	MACRO LIBRARY CALLS
   7340					;
   7341						.MCALL	CALL,RETURN,MTPS,MTPI,MFPI,MFPS
DMAST	- SPECIFY AST SERVICE D	MACRO M1113  10-NOV-81 18:56  PAGE 135
DIRECTIVE -- SPECIFY POWER FAIL AST

   7343						.SBTTL	DIRECTIVE -- SPECIFY POWER FAIL AST
   7344					;+
   7345					; THE "SPECIFY POWER FAIL AST" DIRECTIVE
   7346					;
   7347					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO RECORD EITHER (1) THAT POWER
   7348					; RECOVERY AST'S FOR THE ISSUING TASK ARE DESIRED, AND WHERE CONTROL
   7349					; IS TO BE TRANSFERRED WHEN A POWER FAIL AST OCCURS, OR (2) THAT
   7350					; POWER FAIL AST'S FOR THE ISSUING TASK ARE NO LONGER DESIRED.
   7351					;
   7352					; A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7353					;
   7354					;	WD. 00 -- DIC (45..) & DPB SIZE (2.),
   7355					;	WD. 01 -- [AST SERVICE ENTRY POINT].
   7356					;
   7357					; WHEN AN "AST SERVICE ENTRY POINT" IS SPECIFIED, FUTURE POWER FAIL
   7358					; AST'S WILL OCCUR FOR THE ISSUING TASK, AND CONTROL WILL BE TRANSFERRED
   7359					; TO THE INDICATED LOCATION WHENEVER A POWER FAIL AST OCCURS.
   7360					;
   7361					; WHEN AN "AST SERVICE ENTRY POINT" IS NOT SPECIFIED (ZERO SECOND DPB
   7362					; WORD), FUTURE POWER FAIL AST'S WILL NOT OCCUR (UNTIL AN AST ENTRY
   7363					; POINT IS SPECIFIED AGAIN).
   7364					;
   7365					; THE FOLLOWING STATUS IS RETURNED:
   7366					;
   7367					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   7368					;
   7369					; OF ONE (+1).
   7370					;
   7371					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   7372					;
   7373					;	-08 -- AST ENTRY ALREADY UN-SPECIFIED,
   7374					;
   7375					;	-98 -- PART OF DPB IS OUT OF ISSUING TASK'S ADDRESS SPACE,
   7376					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7377					;
   7378					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   7379					; DIRECTIVE ISSUING TASK'S PS, PC, & R1-R5 PUSHED ONTO THE
   7380					;  STACK, AND R0-R5 SET AS FOLLOWS:
   7381					;	R1 -- ADDRESS OF WORD FOLLOWING DIC & SIZE
   7382					;	R2 -- DPB SIZE
   7383					;	R3 -- DIC (DIRECTIVE IDENTIFICATION CODE)
   7384					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
   7385					;
   7386					;
   7387					; R5 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   7388					;
   7389	023640				.D.PUT::MFPS	@R1,R1		;FIND THE LAST WORD OF THE DPB
	023640	011101 				MOV	@R1,R1
   7390	023642	001403 				BEQ	20$		;YES -- THEN CHECK IT OUT
   7391	023644	010165 	000034 		10$:	MOV	R1,A.PF(R5)	;SPECIFY POWER FAIL AST
   7392	023650	104401 				TRAP	DR.01		;AND RETURN +1
   7393					;
   7394	023652	005765 	000034 		20$:	TST	A.PF(R5)	;CHECK FOR ALREADY CLEAR
   7395	023656	001372 				BNE	10$		;NO -- ALL OK
   7396	023660	104770 				TRAP	DE.08		;YES -- ERROR
DMREQ	- "REQUEST AND EXECUTE"	MACRO M1113  10-NOV-81 18:56  PAGE 136
DIRECTIVE -- SPECIFY POWER FAIL AST

   7398						.TITLE	DMREQ	- "REQUEST AND EXECUTE" DIRECTIVES MODULE
   7399						.SBTTL	REQUEST AND EXECUTE -- COPYRIGHT STATEMENT
   7400	023662					IDENT$	1,0
						.IDENT	/001000/
   7401					;
   7402					;                             COPYRIGHT (C) 1975, 1978 BY
   7403					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   7404					;
   7405					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   7406					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   7407					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   7408					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   7409					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   7410					;
   7411					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   7412					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   7413					;       CORPORATION.
   7414					;
   7415					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   7416					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   7417					;
   7418					;		MODULE: "REQUEST" DIRECTIVE
   7419					;
   7420					;		VERSION: 01-00
   7421					;
   7422					;		AUTHOR: R. MCLEAN
   7423					;
   7424					;		DATE: 1 JUL 75
   7425					;
   7426					;
   7427					;	THIS MODULE CONTAINS:
   7428					;
   7429					;	1 -- CODE TO SERVICE THE "REQUEST" DIRECTIVE.
   7430					;
   7431					;	MACROS
   7432					;
   7433						.MCALL	CALL,RETURN,MFPS
DMREQ	- "REQUEST AND EXECUTE"	MACRO M1113  10-NOV-81 18:56  PAGE 137
DIRECTIVE -- TASK SCHEDULING -- REQUEST

   7435						.SBTTL	DIRECTIVE -- TASK SCHEDULING -- REQUEST
   7436					;+
   7437					; THE "REQUEST" DIRECTIVE
   7438					;
   7439					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO MAKE A TASK ACTIVE.  I.E., TO
   7440					; RUN CONTINGENT UPON PRIORITY AND MEMORY AVAILABILITY.
   7441					;
   7442					; A SEVEN WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7443					;
   7444					;	WD. 00 -- DIC (11.) & DPB SIZE (7.),
   7445					;	WD. 01 -- TASK NAME (FIRST HALF),
   7446					;	WD. 02 -- TASK NAME (SECOND HALF),
   7447					;	WD. 03 -- [PARTITION NAME (FIRST HALF)],
   7448					;	WD. 04 -- [PARTITION NAME (SECOND HALF)],
   7449					;	WD. 05 -- [PRIORITY],
   7450					;	WD. 06 -- [UIC].
   7451					;
   7452					; THE FOLLOWING STATUS IS RETURNED:
   7453					;
   7454					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   7455					; OF ONE (+1).
   7456					;
   7457					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   7458					;
   7459					;	-01 -- INSUFFICIENT POOL NODES AVAILABLE,
   7460					;	-03 -- PARTITION TOO SMALL FOR TASK,
   7461					;	-06 -- HANDLER TASK NOT RESIDENT TO LOAD TASK,
   7462					;	-07 -- TASK IS ACTIVE,
   7463					;
   7464					;	-94 -- PARTITION NOT IN SYSTEM (NO TPD ENTRY FOUND),
   7465					;	-95 -- INVALID PRIORITY SPECIFIED (<0 OR >250.),
   7466					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7467					;
   7468					;-
   7469	023662				.D.REQ::CALL	..FSTD		;SET R2 TO STD ENTRY ADDRESS, OR TO
	023662	004737 	044336'			JSR	PC,..FSTD
   7470									;ZERO IF TASK NAME NOT FOUND (AND SET
   7471									;CONDITION CODES PER "TST R2").
   7472									;
   7473									;ADVANCE R1 BY FOUR (PAST TASK NAME).
   7474					;
   7475					;
   7476	023666	001406 				BEQ	20$		;IF TASK IS NOT INSTALLED TRY TO GET IT INSTALLED
   7477	023670					CALL	.FEPPU		;SET R3 TO TPD ADDRESS IF A PARTITION IS
	023670	004737 	015550'			JSR	PC,.FEPPU
   7478									;SPECIFIED, OR TO ZERO IF NOT SPECIFIED.
   7479									;
   7480									;SET R4 TO PRIORITY IF SPECIFIED, OR TO
   7481									;ZERO IF NOT SPECIFIED.
   7482									;
   7483									;
   7484									;ADVANCE R1 BY EIGHT (PAST PARTITION NAME,
   7485									;PRIORITY INDICATOR, AND UIC INDICATOR.).
   7486									;
   7487									;IF INVALID PRIORITY, RETURN STS=-95.
   7488									;IF PARTITION NOT IS SYSTEM, RETURN
   7489									;STS=-94.  IF NON-PRIVILEGED TASK HAS
DMREQ	- "REQUEST AND EXECUTE"	MACRO M1113  10-NOV-81 18:56  PAGE 137-1
DIRECTIVE -- TASK SCHEDULING -- REQUEST

   7490									;SPECIFIED OTHER THAN OWN UIC, RETURN
   7491									;STS=-91.  IF SPECIFIED PARTITION IS
   7492									;TOO SMALL FOR TASK, RETURN STS=-03.
   7493					;
   7494					;
   7495					;
   7496					;
   7497	023674				10$:	CALL	.REQS		;MAKE A TASK ACTIVE PER R1, R2, R3, R4 & R5.
	023674	004737 	015046'			JSR	PC,.REQS
   7498									;(R1, R2, R3, R4, & R5 ARE ALTERED)
   7499					;
   7500	023700	000162 	015540'			JMP	.RQESD(R2)	;RETURN DIRECTIVE STATUS PER SUBROUTINE
   7501									;STATUS IN R2.
   7502					;
   7503	023704	012704 	024074'		20$:	MOV	#RQSPB,R4	;SET UP TO INSERT PARAMETERS INTO SEND
   7504	023710	024141 				CMP	-(R1),-(R1)	;BACKUP TO POINT TO TASK NAME
   7505	023712					MFPS	(R1)+,(R4)+	;TASK NAME
	023712	012124 				MOV	(R1)+,(R4)+
   7506	023714					MFPS	(R1)+,(R4)+
	023714	012124 				MOV	(R1)+,(R4)+
   7507	023716					MFPS	(R1)+,(R4)+	;PARTITION NAME
	023716	012124 				MOV	(R1)+,(R4)+
   7508	023720					MFPS	(R1)+,(R4)+
	023720	012124 				MOV	(R1)+,(R4)+
   7509	023722					MFPS	(R1)+,(R4)+	;PRIORITY
	023722	012124 				MOV	(R1)+,(R4)+
   7510	023724	012704 	001424'			MOV	#.POLLH,R4	;PICK A NODE FROM THE POOL
   7511	023730					CALL	..PICK
	023730	004737 	044240'			JSR	PC,..PICK
   7512	023734	103001 				BCC	30$		;GOT ONE
   7513	023736	104777 				TRAP	DE.01		;NONE RETURN -1
   7514					;
   7515	023740	010401 			30$:	MOV	R4,R1		;SAVE THE NODE ADDRESS
   7516	023742	012704 	001424'			MOV	#.POLLH,R4	;FIND THE LISTHEAD OF THE POOL
   7517	023746	021404 				CMP	@R4,R4		;ANY NODES?
   7518	023750	001003 				BNE	35$		;YES -- PROCEED
   7519	023752					CALL	..NADD		;NO RETURN NODE
	023752	004737 	044176'			JSR	PC,..NADD
   7520	023756	104777 				TRAP	DE.01		;NOT ENOUGH NODES
   7521					;
   7522	023760	010137 	024106'		35$:	MOV	R1,RQSTD	;SET UP THE STD ADDRESS
   7523	023764	005743 				TST	-(R3)		;BACK UP TO POINT TO CORRECT ENTRY TO INSERT
   7524	023766	012704 	024074'			MOV	#RQSPB,R4	;SET UP PARAMETERS IN STD
   7525	023772	012421 				MOV	(R4)+,(R1)+
   7526	023774	012421 				MOV	(R4)+,(R1)+
   7527	023776	005021 				CLR	(R1)+
   7528	024000	012721 	040005 			MOV	#SF.EX!SF.TA!SF.IR,(R1)+ ;DECLARE TASK ACTIVE
   7529	024004	062701 	000014 			ADD	#S.RF-S.DP,R1	;POINT TO SEND LISTHEAD
   7530	024010	010111 				MOV	R1,@R1		;SET UP LISTHEAD
   7531	024012	010161 	000002 			MOV	R1,2(R1)
   7532	024016	013704 	024106'			MOV	RQSTD,R4	;RESTORE STD ADDRESS
   7533	024022	011301 			40$:	MOV	@R3,R1		;MAKE ENTRY IN STD
   7534	024024	001403 				BEQ	50$		;END OF LIST
   7535	024026	010423 				MOV	R4,(R3)+	;MOVE LIST DOWN
   7536	024030	010104 				MOV	R1,R4		;SET NEXT ENTRY
   7537	024032	000773 				BR	40$		;GO NEXT ENTRY
   7538					;
DMREQ	- "REQUEST AND EXECUTE"	MACRO M1113  10-NOV-81 18:56  PAGE 137-2
DIRECTIVE -- TASK SCHEDULING -- REQUEST

   7539	024034	010413 			50$:	MOV	R4,@R3		;STORE LAST ENTRY
   7540	024036	062737 	000002 	006340'		ADD	#2,.STDTZ	;UPDATE SIZE
   7544	024044	012702 	006646'			MOV	#STDINS,R2	;SET UP STD NODE OF RECEIVER
   7545	024050	012701 	024070'			MOV	#RQSPT,R1	;SET UP TO SEND TO INSTALL
   7546	024054					CALL	.SEND		;SEND DATA
	024054	004737 	023360'			JSR	PC,.SEND
   7547	024060	005004 				CLR	R4		;START AT DEFAULT PART & PRI
   7548	024062	005003 				CLR	R3
   7549	024064	010102 				MOV	R1,R2		;SET UP STD OF INSTALL
   7550	024066	000702 				BR	10$
   7551					;
   7552	024070	024074'			RQSPT::	.WORD	RQSPB		;POINTER TO SEND BLOCK
   7553	024072	000000 				.WORD	0		;EVENT FLAG (NONE)
   7554	024074				RQSPB:	.BLKW	5		;DATA TO BE XMITTED
   7555	024106	000000 			RQSTD:	.WORD	0		;STD ADDRESS
   7556					;
DMGPP	- "GET TASK PARAMETERS"	MACRO M1113  10-NOV-81 18:56  PAGE 138
DIRECTIVE -- TASK SCHEDULING -- REQUEST

   7558						.TITLE	DMGPP	- "GET TASK PARAMETERS" DIRECTIVE MODULE
   7559						.SBTTL	GET TASK PARAMETERS -- COPYRIGHT STATEMENT
   7560	024110					IDENT$	1,0
						.IDENT	/001000/
   7561					;
   7562					;                             COPYRIGHT (C) 1975, 1978 BY
   7563					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   7564					;
   7565					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   7566					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   7567					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   7568					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   7569					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   7570					;
   7571					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   7572					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   7573					;       CORPORATION.
   7574					;
   7575					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   7576					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   7577					;
   7578					;		MODULE: "GET TASK PARAMETERS" DIRECTIVE
   7579					;
   7580					;		VERSION: 01-00
   7581					;
   7582					;		AUTHOR: R. MCLEAN
   7583					;
   7584					;		DATE: 19 AUG 75
   7585					;
   7586					;
   7587					;	THIS MODULE CONTAINS:
   7588					;
   7589					;	1 -- CODE TO SERVICE THE "GET TASK PARAMETERS" DIRECTIVE.
   7590					;
   7591					; MACRO CALLS
   7592
   7593						.MCALL	MTPS,MFPS
DMGPP	- "GET TASK PARAMETERS"	MACRO M1113  10-NOV-81 18:56  PAGE 139
DIRECTIVE -- GET TASK PARAMETERS

   7595						.SBTTL	DIRECTIVE -- GET TASK PARAMETERS
   7596					;+
   7597					; THE "GET TASK PARAMETERS" DIRECTIVE
   7598					;
   7599					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO FILL AN INDICATED SIXTEEN WORD
   7600					; BUFFER WITH PARAMETERS RELATING TO THE ISSUING TASK.
   7601					;
   7602					; A TWO WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7603					;
   7604					;	WD. 00 -- DIC (63.) & DPB SIZE (2.),
   7605					;	WD. 01 -- ADDRESS OF SIXTEEN WORD BUFFER.
   7606					;
   7607					; THE SIXTEEN WORD BUFFER IS FILLED AS FOLLOWS:
   7608					;
   7609					;	WD. 00 -- ISSUING TASK'S NAME (FIRST HALF),
   7610					;	WD. 01 -- ISSUING TASK'S NAME (SECOND HALF),
   7611					;	WD. 02 -- PARTITION NAME (FIRST HALF),
   7612					;	WD. 03 -- PARTITION NAME (SECOND HALF),
   7613					;	WD. 04 -- TASK NAME OF REQUESTOR OF ISSUING TASK (FIRST HALF),
   7614					;	WD. 05 -- TASK NAME OF REQUESTOR OF ISSUING TASK (SECOND HALF),
   7615					;	WD. 06 -- RUN PRIORITY,
   7616					;	WD. 07 -- USER IDENTIFICATION CODE (UIC FOR FILES SYSTEM),
   7617					;	WD. 10 -- NUMBER OF LOGICAL I/O UNITS (LUN'S),
   7618					;	WD. 11 -- MACHINE TYPE INDICATOR (VIZ., 45. FOR PDP-11/45),
   7619					;	WD. 12 -- STD FLAGS WORD,
   7620					;	WD. 13 -- [ADDRESS OF TASK SST VECTOR TABLE],
   7621					;	WD. 14 -- [SIZE OF TASK SST VECTOR TABLE (IN WORDS)],
   7622					;	WD. 15 -- TASK SIZE
   7623					;	WD. 16 -- ZERO (RESERVED),
   7624					;	WD. 17 -- ZERO (RESERVED).
   7625					;
   7626					; THE FOLLOWING STATUS IS RETURNED:
   7627					;
   7628					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   7629					; OF ONE (+1).
   7630					;
   7631					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   7632					;
   7633					;	-98 -- PART OF DPB OR BUFFER IS OUT OF TASK'S ADDRESS SPACE,
   7634					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7635					;-
   7636		000050 			.PDP11=40.		;PDP11/40
   7637					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   7638					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   7639					; KERNEL STACK, AND R0-R5 SET AS FOLLOWS:
   7640					;	R0 -- ATL NODE ADDRESS OF ISSUING TASK ('.CRTSK'),
   7641					;	R1 -- VIRTUAL ADDRESS OF DPB PLUS TWO,
   7642					;	R2 -- SIZE OF DPB (IN WORDS),
   7643					;	R3 -- TWICE THE DIRECTIVE IDENTIFICATION CODE (2*DIC),
   7644					;	R4 -- STD ENTRY ADDRESS OF ISSUING TASK, AND
   7645					;	R5 -- LAST WORD OF DPB.
   7646					;
   7647					; R0 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   7648					;
   7649					;
   7650	024110	005046 			.D.GPP::CLR	-(SP)		;PUSH ZERO
   7651	024112	005046 				CLR	-(SP)		;PUSH ZERO
DMGPP	- "GET TASK PARAMETERS"	MACRO M1113  10-NOV-81 18:56  PAGE 139-1
DIRECTIVE -- GET TASK PARAMETERS

   7652	024114	016504 	000016 			MOV	A.TD(R5),R4	;FIND STD ADDRESS
   7653	024120	016502 	000006 			MOV	A.PD(R5),R2	;FIND THE TPD ADDRESS
   7654	024124	016500 	000012 			MOV	A.HA(R5),R0	;FIND THE HEADER ADDRESS
   7655	024130	016246 	000006 			MOV	T.PZ(R2),-(SP)	;SET PARTITION SIZE (TASK SIZE)
   7656	024134	012746 	000010 			MOV	#8.,-(SP)	;PUSH VECTOR TBL SIZE
   7657	024140	016046 	000106 			MOV  H.TKVA(R0),-(SP)	;PUSH VECTOR TBL ADDRESS
   7658	024144	016446 	000006 			MOV	S.FW(R4),-(SP)	;PUSH STD FLAGS WORD
   7659	024150	012746 	000050 			MOV	#.PDP11,-(SP)	;PUSH MACHINE TYPE INDICATOR
   7660	024154	016046 	000130 			MOV  H.LUT(R0),-(SP)	;PUSH NUMBER OF LUN'S
   7661	024160	013746 	001156'			MOV	.SYUIC,-(SP)	;PUSH UIC
   7662	024164	005046 				CLR	-(SP)		;PUSH RUN PRIORITY
   7663	024166	116516 	000010 			MOVB	A.RP(R5),@SP
   7664	024172	005046 				CLR	-(SP)
   7665	024174	005046 				CLR	-(SP)
   7666	024176	016246 	000002 			MOV	T.PN+2(R2),-(SP)
   7667	024202	016246 	000000 			MOV	T.PN+0(R2),-(SP)
   7668	024206	016446 	000002 			MOV	S.TN+2(R4),-(SP);PUSH TASK NAME
   7669	024212	016446 	000000 			MOV	S.TN+0(R4),-(SP)
   7670					;
   7671	024216	012702 	000020 			MOV	#16.,R2		;POP SIXTEEN WORDS FROM STACK INTO BUFFER
   7672	024222					MFPS	@R1,R1		;PICK UP HIS ADDRESS
	024222	011101 				MOV	@R1,R1
   7673									;IN ISSUING TASK'S ADDRESS SPACE.
   7674									;R5 CONTAINS VIRTUAL ADDRESS OF BUFFER.
   7675	024224				10$:
   7676	024224					MTPS	(SP)+,(R1)+
	024224	012621 				MOV	(SP)+,(R1)+
   7677	024226	077202 				SOB	R2,10$
   7678					;
   7679	024230	104401 				TRAP	DR.01		;RETURN STS=+1.
   7680					;
DMGMP	- "GET PARTITION PARAME	MACRO M1113  10-NOV-81 18:56  PAGE 140
DIRECTIVE -- GET TASK PARAMETERS

   7682						.TITLE	DMGMP	- "GET PARTITION PARAMETERS" DIRECTIVE MODULE
   7683						.SBTTL	GET PARTITION PARAMETERS -- COPYRIGHT STATEMENT
   7684	024232					IDENT$	1,0
						.IDENT	/001000/
   7685					;
   7686					;                             COPYRIGHT (C) 1975, 1978 BY
   7687					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   7688					;
   7689					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   7690					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   7691					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   7692					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   7693					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   7694					;
   7695					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   7696					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   7697					;       CORPORATION.
   7698					;
   7699					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   7700					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   7701					;
   7702					;		MODULE: "GET PARTITION PARAMETERS" DIRECTIVE
   7703					;
   7704					;		VERSION: 01-00
   7705					;
   7706					;		AUTHOR: R. MCLEAN
   7707					;
   7708					;		DATE: 19 AUG 75
   7709					;
   7710					;
   7711					;	THIS MODULE CONTAINS:
   7712					;
   7713					;	1 -- CODE TO SERVICE THE "GET PARTITION PARAMETERS" DIRECTIVE.
   7714					;
   7715					; MACRO CALLS
   7716					;
   7717
   7718						.MCALL	MFPI,MTPI,MFPS,MTPS
DMGMP	- "GET PARTITION PARAME	MACRO M1113  10-NOV-81 18:56  PAGE 141
DIRECTIVE -- GET PARTITION PARAMETERS

   7720						.SBTTL	DIRECTIVE -- GET PARTITION PARAMETERS
   7721					;+
   7722					; THE "GET PARTITION PARAMETERS" DIRECTIVE
   7723					;
   7724					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO FILL AN INDICATED THREE WORD
   7725					; BUFFER WITH PARTITION PARAMETERS.
   7726					;
   7727					; A FOUR WORD DPB OF THE FOLLOWING FORMAT IS USED:
   7728					;
   7729					;	WD. 00 -- DIC (65.) & DPB SIZE (4.),
   7730					;	WD. 01 -- [PARTITION NAME (FIRST HALF)],
   7731					;	WD. 02 -- [PARTITION NAME (SECOND HALF)],
   7732					;	WD. 03 -- ADDRESS OF THREE WORD BUFFER.
   7733					;
   7734					; IF A PARTITION IS NOT SPECIFIED, THE PARTITION OF THE ISSUING TASK
   7735					; IS ASSUMED.
   7736					;
   7737					; THE THREE WORD BUFFER IS FILLED AS FOLLOWS:
   7738					;
   7739					;	WD. 00 -- 1/64TH BASE ADDRESS OF PARTITION,
   7740					;	WD. 01 -- 1/64TH SIZE OF PARTITION,
   7741					;	WD. 02 -- PARTITION FLAGS WORD.
   7742					;
   7743					; THE FOLLOWING STATUS IS RETURNED:
   7744					;
   7745					; CC-C CLEARED TO INDICATE SUCCESSFUL COMPLETION, AND A DIRECTIVE STATUS
   7746					; OF ONE (+0).
   7747					;
   7748					; CC-C SET TO INDICATE REJECTION, AND A DIRECTIVE STATUS OF:
   7749					;
   7750					;	-02 -- INDICATED PARTITION NOT IS SYSTEM,
   7751					;
   7752					;	-98 -- PART OF DPB OR BUFFER IS OUT OF TASK'S ADDRESS SPACE,
   7753					;	-99 -- DIC OR DPB SIZE IS INVALID.
   7754					;-
   7755					; CONTROL IS TRANSFERRED HERE (BY DIRECTIVE DISPATCH ROUTINE) WITH THE
   7756					; DIRECTIVE ISSUING TASK'S PS, PC, & R0-R5 PUSHED ONTO THE
   7757					; KERNEL STACK, AND R0-R5 SET AS FOLLOWS:
   7758					;	R0 -- ATL NODE ADDRESS OF ISSUING TASK ('.CRTSK'),
   7759					;	R1 -- VIRTUAL ADDRESS OF DPB PLUS TWO,
   7760					;	R2 -- SIZE OF DPB (IN WORDS),
   7761					;	R3 -- TWICE THE DIRECTIVE IDENTIFICATION CODE (2*DIC),
   7762					;	R4 -- STD ENTRY ADDRESS OF ISSUING TASK, AND
   7763					;	R5 -- LAST WORD OF DPB.
   7764					;
   7765					; R0 IS LEFT UNALTERED (I.E. POINTING TO ISSUING TASK'S ATL NODE).
   7766					;
   7767					; R5 CONTAINS ADDRESS OF THREE WORD BUFFER.
   7768					;
   7769	024232				.D.GMP::MFPI	(R1)+		;PUSH 2-WORD PARTITION NAME (OR TWO ZEROS)
	024232	012146 				MOV	(R1)+,-(SP)
   7770	024234					MFPI	(R1)+		;ONTO KERNEL STACK (IN REVERSE ORDER)
	024234	012146 				MOV	(R1)+,-(SP)
   7771									;WAS A NAME SPECIFIED?
   7772	024236	001011 				BNE	10$		;YES -- SCAN "TPD" FOR MATCH
   7773	024240	005766 	000002 			TST	+2(SP)		;MAYBE -- CHECK FIRST HALF OF NAME
   7774	024244	001006 				BNE	10$		;YES -- SCAN "TPD" FOR MATCH
DMGMP	- "GET PARTITION PARAME	MACRO M1113  10-NOV-81 18:56  PAGE 141-1
DIRECTIVE -- GET PARTITION PARAMETERS

   7775	024246	016504 	000006 			MOV	A.PD(R5),R4	;NO -- REPLACE TWO-ZEROS WITH NAME OF PARTITION
   7776	024252	016446 	000000 			MOV  T.PN+0(R4),-(SP)	;IN WHICH ISSUING TASK IS EXECUTING.
   7777	024256	016446 	000002 			MOV  T.PN+2(R4),-(SP)
   7778	024262				10$:
   7779	024262	012703 	010032'			MOV	#.TPDEA,R3	;SETUP R3 TO SCAN "TPD"
   7780	024266				20$:
   7781	024266	020327 	007552'			CMP	R3,#.TPDBA	;END OF SCAN?
   7782	024272	001001 				BNE	30$
   7783	024274	104776 				TRAP	DE.02		;YES -- RETURN STS=-02.
   7784					;
   7785	024276	162703 	000020 		30$:	SUB	#T.SZ,R3	;NO -- REDUCE R3 TO POINT TO TPD ENTRY
   7786	024302	010304 				MOV	R3,R4		;SETUP R4 TO INDEX THRU TPD ENTRY
   7787	024304	022466 	000002 			CMP	(R4)+,+2(SP)	;DOES NAME MATCH?
   7788	024310	001366 				BNE	20$		;NO -- CONTINUE SCAN
   7789	024312	022416 				CMP	(R4)+,@SP	;MAYBE -- CHECK SECOND HALF
   7790	024314	001364 				BNE	20$		;NO -- CONTINUE SCAN
   7791					;
   7792	024316	012703 	000002 			MOV	#2.,R3		;YES -- MOVE 2-WORDS TO BUF IN PREVIOUS SPACE
   7793	024322					MFPS	@R1,R1		;FIND BUFFER
	024322	011101 				MOV	@R1,R1
   7794	024324	011400 				MOV	@R4,R0		;FIND PARTITION START
   7795	024326				40$:
   7796	024326	012446 				MOV	(R4)+,-(SP)
   7798	024330	006216 				ASR	@SP
   7799	024332	006216 				ASR	@SP
   7800	024334	006216 				ASR	@SP
   7801	024336	006216 				ASR	@SP
   7802	024340	006216 				ASR	@SP
   7803	024342	006216 				ASR	@SP
   7804	024344	042716 	176000 			BIC	#176000,@SP	;MASK OFF CARRY FROM SHIFT
   7806	024350					MTPI	(R1)+
	024350	012621 				MOV	(SP)+,(R1)+
   7807	024352	077313 				SOB	R3,40$
   7808	024354	005724 				TST	(R4)+		;RETURN FLAGS WORD
   7809	024356					MTPS	(R4)+,(R1)+	;SET IN USER'S AREA
	024356	012421 				MOV	(R4)+,(R1)+
   7810					;
   7814	024360	000137 	013460'			JMP	.DR.NS		;RETURN R0 STATUS
   7816					;
RUN	- CLOCK HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 142
DIRECTIVE -- GET PARTITION PARAMETERS

   7818						.TITLE	RUN	- CLOCK HANDLER
   7819						.SBTTL	CLOCK HANDLER -- COPYRIGHT STATEMENT
   7820					;
   7821					;                             COPYRIGHT (C) 1975, 1978 BY
   7822					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   7823					;
   7824					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   7825					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   7826					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   7827					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   7828					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   7829					;
   7830					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   7831					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   7832					;       CORPORATION.
   7833					;
   7834					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   7835					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   7836					;
   7837					;		MODULE: "CLOCK TICK RECOGNITION"
   7838					;
   7839					;		VERSION: 07-00
   7840					;
   7841					;		AUTHOR: R. MCLEAN
   7842					;
   7843					;		DATE: 19 JUL 75
   7844					;
   7845					;
   7846					;	THIS MODULE CONTAINS:
   7847					;
   7848					;	1 -- CODE TO SERVICE CLOCK TICK RECOGNITION
   7849					;
   7850					;
   7851					; MODIFICATIONS:
   7852					;
   7853					;	NO.	DATE		PROGRAMMER	PURPOSE
   7854					;	---	----		----------	-------
   7855					;	001	04-MAR-77	R. BELANGER	CHANGE MIDNIGHT RECOGNITION
   7856					;
   7857					;	MACROS
   7858					;
   7859						.MCALL	CALL,RETURN,DIR$,.CRASH,.STKM
RUN	- CLOCK HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 143
CLOCK TICK RECOGNITION

   7861						.SBTTL	CLOCK TICK RECOGNITION
   7862					;
   7863					; UPDATE TICKS
   7864					;
   7865	024364	012704 	001134'		.TICK::	MOV	#.TICKS,R4	;POINT TO BASE OF TIME PARAMETERS
   7866	024370	005214 				INC	@R4		;UPDATE TICKS
   7867	024372	023714 	001154'			CMP	.TKPS,@R4	;1 SEC YET?
   7868	024376	101020 				BHI	3$		;NO DONE
   7869					;
   7870					; TICKS OVERFLOWED, UPDATE SECONDS
   7871					;
   7872	024400	005024 				CLR	(R4)+		;CLEAR FRACTIONS
   7873	024402	000337 	001152'			SWAB	.SSM+2		;FIND IF TIME TO UPDATE SSM
   7874	024406	001414 				BEQ	3$		;NO -- CONTINUE
   7875	024410	005237 	001150'			INC	.SSM		;UPDATE SECONDS SINCE MIDNIGHT
   7876	024414	022737 	124277 	001150'		CMP	#30.*60.*24.-1,.SSM ;MIDNIGHT?
   7877	024422	101006 				BHI	3$		;NO, CAN INCREMENT
   7878	024424	006337 	001136'			ASL	.CLKSW		;GIVE THE 10 TIME TO CHANGE IT'S DATE -- WE DON'T
   7879									; +++001 RREMOVED 10. INSTRUCTIONS
   7880	024430	001003 				BNE	3$		; +++001 NO -- GO ON
   7881	024432	012737 	177777 	001136'		MOV	#-1,.CLKSW	; +++001 YES -- FLAG NULL TASK TO REQUEST
   7882									; +++001 TIME-OF-DAY TASK
   7883					;
   7884					;INCREMENT IN NO OVERFLOW CASES - SECONDS OR MINUTES
   7885					;
   7886	024440				3$:
   7887					;
   7888					; SET UP FOR LINE FREQ. SERVICE
   7889					;
   7890					;
   7891	024440	012704 	002370'		4$:	MOV	#.CLKBA,R4	;DELETE THE ENTRY OR RESCHEDULE IT
   7892	024444	012405 			10$:	MOV	(R4)+,R5	;NO -- AN ENTRY HERE?
   7893	024446	001435 				BEQ	40$		;NO -- GO
   7894	024450	005724 				TST	(R4)+		;OVER AST ADDRESS
   7895	024452	005324 				DEC	(R4)+		;YES --DECREMENT THE COUNT
   7896	024454	001403 				BEQ	30$		;END OF COUNT SET EVENT FLAG
   7897	024456	062704 	000006 		20$:	ADD	#6,R4		;NO -- LOOK AT NEXT ENTRY
   7898	024462	000770 				BR	10$
   7899					;
   7900	024464				30$:	CALL	..DSEV		 ;DECLARE A SIG EVENT
	024464	004737 	044026'			JSR	PC,..DSEV
   7901	024470	012464 	177774 			MOV	(R4)+,-4(R4)	;RESET RESCHEDULE INTERVAL
   7902	024474	052434 				BIS	(R4)+,@(R4)+	;DO THE SETTING OF THE EVENT FLAG
   7903	024476	010446 				MOV	R4,-(SP)	;SAVE R4
   7904	024500	016404 	177766 			MOV	-12(R4),R4	;FIND AST ADDRESS
   7905	024504	001405 				BEQ	35$		;NONE -- FORGET IT
   7906	024506					CALL	.STAST		;START AST
	024506	004737 	015730'			JSR	PC,.STAST
   7907	024512	103002 				BCC	35$		;GOT IT -- CONTINUE
   7908	024514	010437 	001050'			MOV	R4,.CKASS	;NOT QUITE -- TASK IS CURRENT GET AT ..INTX
   7909	024520	012604 			35$:	MOV	(SP)+,R4
   7910	024522	005764 	177772 			TST	-6(R4)		;RESCHEDULE?
   7911	024526	001346 				BNE	10$		;NO -- DO NEXT ENTRY
   7912	024530	162704 	000014 			SUB	#C.SZ,R4	;BACK UP POINTER
   7913	024534					CALL	.CKDEL		;DELETE ENTRY
	024534	004737 	043150'			JSR	PC,.CKDEL
   7914	024540	000741 				BR	10$		;AND TRY AGAIN
RUN	- CLOCK HANDLER	MACRO M1113  10-NOV-81 18:56  PAGE 143-1
CLOCK TICK RECOGNITION

   7915					;
   7916	024542	105337 	001015'		40$:	DECB	.SERFG+1	;COUNT DOWN CLOCK COUNTER
   7917	024546	001306 				BNE	.TICK		;AND GO DO ANOTHER IF WE MISSED ONE
   7918	024550	012604 				MOV	(SP)+,R4	;RESTORE REGISTERS
   7919	024552	012605 				MOV	(SP)+,R5
   7920	024554	053737 	001016'	001014'		BIS	.SEWFL,.SERFG	;SET SIG EVENT FLAG IF NECESSARYH
   7921	024562	005037 	001016'			CLR	.SEWFL		;AND CLEAR FLAG
   7922	024566	000137 	014632'			JMP	..INTX		;AND RETURN TO INTERRUPT EXIT
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 144
CLOCK TICK RECOGNITION

   7924						.TITLE	QPRDRV	-- QUEUED PROTOCOL DRIVER FOR RSX-20F
   7925						.SBTTL	QUEUED PROTOCOL DRIVER -- COPYRIGHT STATEMENT
   7926	024572					IDENT$	14,43
						.IDENT	/014430/
   7927
   7928					;
   7929					;                             COPYRIGHT (C) 1975, 1980 BY
   7930					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   7931					;
   7932					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   7933					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   7934					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   7935					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   7936					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   7937					;
   7938					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   7939					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   7940					;       CORPORATION.
   7941					;
   7942					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   7943					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   7944					;
   7945					;
   7946					;		MODULE: QUEUED PROTOCOL DRIVER FOR RSX-20F
   7947					;
   7948					;		VERSION: V14-43
   7949					;
   7950					;		AUTHOR: R. MCLEAN
   7951					;
   7952					;		DATE: 19 JUL 75
   7953					;
   7954					;	THIS MODULE CONTAINS:
   7955					;
   7956					;	1 -- QUEUED PROTOCOL SERVICE
   7957					;
   7958					; MODIFICATIONS:
   7959					;
   7960					;	NO.	DATE		PROGRAMMER	PURPOSE
   7961					;	---	----		----------	-------
   7962					;	001	21-OCT-76	A. PECKHAM	INSERT CODING TO COUNT
   7963					;						DOORBELLS.
   7964					;	002	08-NOV-76	K. RETI		ADD SUPPRESS SEND-ALL
   7965					;				R. BELANGER	CODE.
   7966					;	003	03-FEB-77	R. BELANGER	ADDED GENERALIZED DL-11E
   7967					;						SUPPORT
   7968					;	004	10-FEB-77	A. PECKHAM	KEEP TO-11 QUEUE COUNT
   7969					;						STRAIGHT
   7970					;	005	16-FEB-77	A. PECKHAM	SET SPEED OF REMOTE LINES
   7971					;	006	07-MAR-77	A. PECKHAM	REORGANIZE SENDALL
   7972					;	007	08-MAR-77	A. PECKHAM	FIX "XOFF" FOR CTY
   7973					;	008	14-MAR-77	R. BELANGER	CONDITIONALLY REMOVE
   7974					;						SUPPORT FOR UNUSED DTE-20
   7975					;						DIRECTIVES
   7976					;	009	31-MAY-77	R. BELANGER	ADD SUPPORT FOR KLINIK
   7977					;						PARAMETER PASSING
   7978					;	010	15-JUL-77	R. BELANGER	ADD AUTO-BAUD SUPPORT
   7979					;	011	25-JUL-77	R. BELANGER	FIX BUG IN INITIAL STATUS
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 144-1
QUEUED PROTOCOL DRIVER -- COPYRIGHT STATEMENT

   7980					;	012	25-AUG-77	R. BELANGER	ADD KL POWERFAIL SUPPORT
   7981					;	013	02-SEP-77	R. BELANGER	XON/XOFF BUG FIX
   7982					;   TCO 4.2067	30-OCT-78	R. BELANGER	FIX XON TO ACCOUNT FOR NULL
   7983					;						BYTE IN THREAD PACKET
   7984					;   TCO 4.2096	30-NOV-78	R. BELANGER	REMOVE EXTRANEOUS CODE
   7985					;						FROM "XON" PROCESSOR
   7986					;   TCO 4.2181	01-FEB-79	R. BELANGER	ADD ENABLE/DISABLE XON/XOFF
   7987					;						MESSAGE.
   7988					;						MOVE DEVICE DEPENDENT XON/XOFF
   7989					;						PROCESSING TO TERMINAL DRIVER.
   7990					;   TCO 4.2216	16-MAR-79	R. BELANGER	ALLOW DTE-20 TO RUN AT FULL SPEED
   7991					;   TCO 4.2246	16-MAY-79	R. BELANGER	ELIMINATE RACE CONDITION IN SENDALL
   7992					;   TCO 4.2284	25-MAY-79	R. BELANGER	ADD NEW MODEM CONTROL SUPPORT
   7993					;   TCO 4.2524	01-OCT-79	R. BELANGER	FLUSH OUPUT QUEUE WHEN LINE SPEED SET TO 0
   7994					;   TCO 5.1004	10-OCT-79	R. BELANGER	ADD NON-CONTIGUOUS DEVICE SUPPORT
   7995					;   TCO 5.1015	25-OCT-79	R. BELANGER	ADD NEW TERMINAL INPUT CONTROL
   7996					;   TCO 5.1016	01-NOV-79	R. BELANGER	ADD BREAK-THROUGH WRITE
   7997					;  TCO 4.1.1035	16-NOV-79	R. BELANGER	ADD QUEUE ARBITRATION MECHANISM
   7998					;						PROCESS PACKETS INIBITTED
   7999					;  TCO 4.1.1091	12-FEB-80	R. BELANGER	FIX MISSING DM-11/BB PROBLEM
   8000					;  TCO 4.1.1092	25-FEB-80	R. BELANGER	LOCAL TERMINAL INPUT CONTROL
   8001					;  TCO 4.1.1104	05-MAR-80	R. BELANGER	SEND KEEP-ALIVE FROM DTE SERVICE
   8002					;  TCO 4.1.1105	11-MAR-80	R. BELANGER	CHANGE "EF.PR1" RECOGNITION
   8003					;  TCO 4.1.1121	19-MAR-80	R. BELANGER	BREAK QUEUED PROTOCOL DRIVER AND
   8004					;						DTE-20 DRIVER INTO SEPARATE MODULES
   8005					;  TCO 4.1.1137	05-APR-80	R. BELANGER	LIMIT TO-10 QUEUE NODE SIZE TO 60 BYTES
   8006					;  TCO 5.1127	08-AUG-80	S. LEAPLINE	ADD HOST DEBUG MODE MESSAGE
   8007					;  TCO 5.1248	26-JAN-81	S. LEAPLINE	SAVE R0 FOR XOFF/XON CODE
   8008					;  TCO 5.1249	26-JAN-81	S. LEAPLINE	FIX BUG IN SETSPD, HIT WHEN
   8009					;						GIVEN AN INCORRECT LINE SPEED
   8010					;  	014	18-AUG-81	S. LEAPLINE	REMOVE WSIG$S IN SENDALL
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 145
QUEUED PROTOCOL DRIVER -- COPYRIGHT STATEMENT

   8012					;
   8013					;	MACRO DEFINITIONS
   8014					;
   8015
   8016						.MCALL	RQST$,WTSE$S,$DEF,WSIG$S,.INH5,.ENB5
   8017						.MCALL	.DQPEN,MRKT$,WTLO$,WTSE$,.CRASH,CALL,RETURN,.STKM,DIR$,.INH6,.ENB6
   8018
   8019	024572					$DEF
   8020
   8021					;
   8022					;	LOCAL MACROS
   8023					;
   8024					;	MACRO TO ENABLE TASK SWITCHING
   8025					;
   8026						.MACRO	.ENBT
   8027						 MOV	@#PS,-(SP)
   8028						 BIC	#PRI7,@#PS
   8029						.ENDM
   8030					;
   8031					;	MACRO TO DISABLE TASK SWITCHING
   8032					;
   8033						.MACRO	.INHT
   8034						 MOV	(SP)+,@#PS
   8035						.ENDM
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 146
QUEUED PROTOCOL DRIVER -- COPYRIGHT STATEMENT

   8037					;
   8038					;	DATA AREAS
   8039					;
   8040		000060 				E.OPSZ==60	; [4.1.1137] OPTIMAL SIZE FOR A TO 10 QUEUE
   8041					;
   8042					; LOCAL DEFINITIONS FOR DTE20 TASK
   8043					;
   8044		000100 				EF.TED==100	; TO ELEVEN DONE EVENT FLAG
   8045					;
   8046					; TO ELEVEN QUEUE ENTRY
   8047					;
   8048		000000 				E.FP==0		; FORWARD POINTER
   8049		000002 				E.LS==2		; LIST SIZE
   8050		000004 				E.FN==4		; FUNCTION CODE
   8051		000006 				E.DV==6		; DEVICE CODE
   8052		000010 				E.FW==10	; FUNCTION FIRST WORD
   8053					;
   8054					;	FUNCTION CODE DEFINITIONS
   8055					;
   8056		000001 				BC.RQD==1	; REQUEST DEVICES
   8057		000002 				BC.HAD==2	; HERE ARE DEVICES
   8058		000003 				BC.STR==3	; STRING DATA
   8059		000004 				BC.LNC==4	; LINE/CHARACTER DATA
   8060		000005 				BC.RDS==5	; RETURN DEVICE STATUS
   8061		000006 				BC.SDS==6	; SET DEVICE STATUS
   8062		000007 				BC.HDS==7	; HERE IS DEVICE STATUS
   8063		000010 				BC.DES==10	; DEVICE ERROR STATUS
   8064		000011 				BC.RTD==11	; RETURN TIME OF DAY
   8065		000012 				BC.HTD==12	; HERE IS TIME OF DAY
   8066		000013 				BC.FOD==13	; FLUSH OUTPUT DEVICE QUEUE
   8067		000014 				BC.SNA==14	; SEND ALL
   8068		000015 				BC.TDU==15	; DEVICE DIAL UP
   8069		000016 				BC.THU==16	; DEVICE HANG UP
   8070		000017 				BC.SAK==17	; ACKNOWLEDGE DEVICE DONE
   8071		000020 				BC.XOF==20	; X-OFF (TTY ONLY)
   8072		000021 				BC.XON==21	; X-ON (TTY ONLY)
   8073		000022 				BC.STS==22	; SET TTY SPEED
   8074		000023 				BC.SLA==23	; SET LINE ALLOCATION
   8075		000024 				BC.BTP==24	; 11 REBOOT WORD
   8076		000025 				BC.AKA==25	; ACK ALL
   8077		000026 				BC.SPT==26	; START/STOP LINE
   8078		000027 				BC.EDR==27	; ENABLE/DISABLE REMOTES
   8079		000030 				BC.LDR==30	; LOAD LP RAM
   8080		000031 				BC.LDV==31	; LOAD LP VFU
   8081		000032 				BC.NSA==32	; SUPPRESS SEND-ALL FUNCTION (SET OR CLEAR BIT)
   8082		000033 				BC.SKP==33	; SEND KLINIK PARAMETERS
   8083		000034 				BC.XEN==34	; [4.2181] ENABLE/DISABLE XON/XOFF
   8084		000035 				BC.BTW==35	; [5.1016] BREAK-THROUGH WRITE
   8085		000036 				BC.DEB==36	; [5.1127] HOST DEBUG MODE
   8086		000037 				BC.NDM==37	; [5.1127] CLEAR HOST DEBUG MODE
   8087		000040 				BC.FNM==40	; [5.1016] 1 GREATER THAN MAX FUNCTION
   8088					;
   8089					;	DPB'S
   8090					;
   8091
   8092	024572				WTLODT:
   8093	024572					WTLO$	1,EF.TED	; WAIT FOR TEN DONE
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 146-1
QUEUED PROTOCOL DRIVER -- COPYRIGHT STATEMENT

	024572	   053 	   003 			.BYTE	43.,3
	024574	000001 				.WORD	1
	024576	000100 				.WORD	EF.TED
   8094
   8095	024600				.RQSPD::			; ALSO CALLED FROM "TTYDRR"
   8096	024600					RQST$	SETSPD
	024600	   013 	   007 			.BYTE	11.,7
	024602	073634 	074504 			.RAD50	/SETSPD/
	024606	000000 	000000 			.WORD	0,0
	024612	000000 				.WORD
	024614	   000 	   000 			.BYTE	,
   8097
   8098					;
   8099					;	LOCAL DATA
   8100					;
   8101
   8102	024616				SPDTBL:
   8103	024616	000000 				.WORD	0		; ZERO BAUD
   8104	024620	000062 				.WORD	50.		; 50 BAUD
   8105	024622	000113 				.WORD	75.		; ETC ......
   8106	024624	000156 				.WORD	110.
   8107	024626	000206 				.WORD	134.
   8108	024630	000226 				.WORD	150.
   8109	024632	000310 				.WORD	200.
   8110	024634	000454 				.WORD	300.
   8111	024636	001130 				.WORD	600.
   8112	024640	002260 				.WORD	1200.
   8113	024642	003410 				.WORD	1800.
   8114	024644	004540 				.WORD	2400.
   8115	024646	011300 				.WORD	4800.
   8116	024650	022600 				.WORD	9600.
   8117
   8118		000016 			SPDTBZ=.-SPDTBL/2
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 147
QUEUED PROTOCOL DRIVER -- PROTOCOL PACKET SERVICE DISPATCH

   8120						.SBTTL	QUEUED PROTOCOL DRIVER -- PROTOCOL PACKET SERVICE DISPATCH
   8121
   8122	024652				DTEHD::
   8123	024652					.STKM	0,0,0,0,0,0,0,QPRDTE,174000,DTESP
	024720	000000 	000000 	000000 		.WORD	0,0,0,0
	024726	000000
	024746	174000 	025156'	025132'		.WORD	174000,QPRDTE,DTESP
	025002	000005 				.WORD	5
	025004	010232'				.WORD	TTPEN
	025006	000000 				.WORD	0
	025010	000000 				.WORD	0
	025012	000000 				.WORD	0
	025014	000000 				.WORD	0
	025016	000000 				.WORD	0
	025020	000000 				.WORD	0
	025022	000000 				.WORD	0
	025024	000000 				.WORD	0
	025026	000000 				.WORD	0
	025030	000000 				.WORD	0
	025132	000000 				.WORD	0
	025134	000000 				.WORD	0
	025136	000000 				.WORD	0
	025140	000000 				.WORD	0
	025142	000000 				.WORD	0
	025144	000000 				.WORD	0
	025146	025156'				.WORD	QPRDTE
	025150	174000 				.WORD	174000
   8124
   8125						.ENABL	LSB
   8126
   8127	025152				QPRDTC::
   8128	025152					.ENB6			;;; [4.1.1035] ALLOW INTERRUPTS
	025152	012637 	177776 			MOV	(SP)+,@#PS
   8129	025156				QPRDTE::
   8130	025156					DIR$	#WTLODT		; WAIT FOR TEN DONE
	025156	012746 	024572'			MOV	#WTLODT,-(SP)
	025162	104375 				EMT	375
   8131	025164				10$:
   8132	025164					.INH6			; INHIBIT INTERRUPTS
	025164	013746 	177776 			MOV	@#PS,-(SP)
	025170	112737 	000300 	177776 		MOVB	#300,@#PS
   8133	025176	013700 	001006'			MOV	.CRTSK,R0	;;; POINT TO CURRENT TASK
   8134	025202	005060 	000020 			CLR	A.EF(R0)	;;; AND CLEAR THE EVENT FLAGS.
   8135	025206				20$:
   8136	025206	013704 	001334'			MOV	TO11Q,R4	;;; PICK IT FROM THE QUEUE
   8137	025212	001757 				BEQ	QPRDTC		;;; NO QUEUE -- BACK TO SLEEP
   8138	025214	011437 	001334'			MOV	@R4,TO11Q	;;; SET UP THE NEXT LISTHEAD OR ZERO
   8139	025220	010400 				MOV	R4,R0		;;; SET IN R0 ALSO
   8140	025222	116401 	000004 			MOVB	E.FN(R4),R1	;;; FIND THE FUNCTION CODE OF THE REQUEST
   8141	025226	006301 				ASL	R1		;;; MAKE IT 2* FUNCTION
   8142	025230	000171 	025300'			JMP	@DFTBL-2(R1)	;;; GO TO THE CORRECT ROUTINE
   8143						;
   8144	025234				QPRDTL:
   8145	025234					.ENB6			;;; [4.1.1035] ALLOW INTERRUPTS
	025234	012637 	177776 			MOV	(SP)+,@#PS
   8146	025240	000240 				NOP			; [4.1.1035] LET AN INTERRUPT HAPPEN
   8147	025242	005737 	001012'			TST	.COMEF+2	; [4.1.1105] ARE WE STILL IN PRIMARY PROTOCOL??
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 147-1
QUEUED PROTOCOL DRIVER -- PROTOCOL PACKET SERVICE DISPATCH

   8148	025246	100346 				BPL	10$		; [4.1.1105] NO -- CONTINUE EMPTYING TO 11 QUEUE
   8149	025250					.INH6			; [4.1.1035] YES -- DISALLOW INTERRUPTS
	025250	013746 	177776 			MOV	@#PS,-(SP)
	025254	112737 	000300 	177776 		MOVB	#300,@#PS
   8150	025262	013704 	001326'			MOV	TO10Q,R4	;;; [4.1.1035] POINT TO THE TO 10 QUEUE
   8151	025266	022704 	001326'			CMP	#TO10Q,R4	;;; [4.1.1035] ANYTHING THERE??
   8152	025272	001745 				BEQ	20$		;;; [4.1.1035] NO -- GO ON
   8153	025274					CALL	.STTNF		;;; [4.1.1121] YES -- FORCE THE START
	025274	004737 	031370'			JSR	PC,.STTNF
   8154	025300	000742 				BR	20$		;;; [4.1.1035] UNLOAD THE REST OF THE TO 11 QUEUE
   8155						;
   8156
   8157						.DSABL	LSB
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 148
QUEUED PROTOCOL DRIVER -- DISPATCH TABLE

   8159						.SBTTL	QUEUED PROTOCOL DRIVER -- DISPATCH TABLE
   8160
   8161	025302				DFTBL::
   8162	025302	026224'				HICTS			; (01) HERE IS INITIAL STATUS
   8163	025304	025400'				UNRGFN			; (02) UNRECGONIZED FUNCTION
   8164	025306	026420'				STRDAT			; (03) STRING DATA FOR DEVICE
   8165	025310	026464'				LINCHR			; (04) LINE NUMBER CHARACTER DATA FOR DEVICE
   8166	025312	026420'				RTDVST			; (05) RETURN DEVICE STATUS
   8167	025314	026420'				STDVST			; (06) SET DEVICE STATUS FOR DEVICE
   8168	025316	026420'				HIDVST			; (07) HERE IS DEVICE STATUS
   8169	025320	025400'				UNRGFN			; (10) ERROR DEVICE STATUS
   8170	025322	026374'				RTNTOD			; (11) RETURN TIME OF DAY
   8171	025324	026626'				RETTOD			; (12) SEND TIME OF DAY
   8172	025326	026664'				FLDVOT			; (13) FLUSH DEVICE OUTPUT QUEUE
   8173	025330	027000'				SNDALL			; (14) SEND ALL TTY'S
   8174	025332	025400'				UNRGFN			; (15) DIAL UP
   8175	025334	025466'				HANGUP			; (16) HANG UP
   8176	025336	025610'				ACKNOW			; (17) ACKNOWLEDGE END OF DATA IN BUFFER
   8177	025340	026166'				XOFF			; (20) XOFF (TTY)
   8178	025342	026202'				XON			; (21) XON (TTY)
   8179	025344	025642'				SETSPD			; (22) SET TTY SPEED
   8180	025346	025622'				SETLIN			; (23) SET LINE ALLOCATION
   8181	025350	025400'				UNRGFN			; (24) SET RELOAD PARAMETERS
   8182	025352	026220'				DEAND1			; (25) ACK ALL
   8183	025354	026042'				STPLIN			; (26) STOP LINE
   8184	025356	025406'				EDRMT			; (27) ENABLE/DISABLE REMOTE LINES
   8185	025360	026420'				LDLPR			; (30) LOAD LP RAM
   8186	025362	026420'				LDLPV			; (31) LOAD LP VFU
   8187	025364	025424'				NOSNDA			; (32) SET OR CLEAR "SUPPRESS SEND-ALL" BIT
   8188	025366	026722'				RCVKLP			; (33) RECIEVE KLINIK PARAMETERS FROM KL
   8189	025370	025416'				ENBXOF			; [4.2181] (34) ENABLE/DISABLE XOFF PROCESSING
   8190	025372	026140'				BTWCHR			; [5.1016] (35) BREAK-THROUGH WRITE
   8191	025374	026762'				SETDEB			; [5.1127] (36) HOST DEBUG MODE
   8192	025376	026772'				CLRDEB			; [5.1127] (37) CLEAR HOST DEBUG MODE
   8193
   8194		000076 			DFTSZ=.-DFTBL			; LEGAL FUNCTIONS COUNT *2
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 149
QUEUED PROTOCOL DRIVER -- UNRECOGNIZED FUNCTION

   8196						.SBTTL	QUEUED PROTOCOL DRIVER -- UNRECOGNIZED FUNCTION
   8197
   8198					;
   8199					;	UNRGFN -- UNRECOGNIZED FUNCTION
   8200					;
   8201
   8202	025400				UNRGFN::
   8203	025400					.CRASH	ILF		;;; ILF -- ILLEGAL FUNCTION
	025400	000004 				IOT
	025402	   111 	   114 	   106 		.ASCIZ	/ILF/
	025405	   000
   8204						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 150
QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE REMOTE TERMINALS

   8206						.SBTTL	QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE REMOTE TERMINALS
   8207
   8208					;
   8209					;	ENABLE/DISABLE REMOTE TERMINALS -- FUNCTION 27
   8210					;
   8211
   8212	025406				EDRMT::
   8213	025406	016037 	000010 	002576'		MOV	E.FW(R0),.INHDM	;;; ENABLE/DISABLE DM-11/BB'S
   8214	025414	000511 				BR	DEAND3		;;; AND QUIT
   8215						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 151
QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE SENDALL AND XOFF PROC

   8217						.SBTTL QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE SENDALL AND XOFF PROCESSING
   8218
   8219					;
   8220					;	ENBXOF FUNCTION (ENABLE/DISABLE XOFF PROCESSING) FUNCTION 34
   8221					;
   8222
   8223						.ENABL	LSB
   8224
   8225	025416				ENBXOF::
   8226	025416	012705 	000020 			MOV	#TT.XEN,R5	;;; [4.2181] SET UP STATUS BIT
   8227	025422	000402 				BR	10$		;;; [4.2181] DO COMMON CODE
   8228						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 152
QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE SENDALLS

   8230						.SBTTL	QUEUED PROTOCOL DRIVER -- ENABLE/DISABLE SENDALLS
   8231
   8232					;
   8233					;	NOSNDA FUNCTION (SET/CLEAR SUPPRESS SEND-ALL BIT) FUNCTION 32
   8234					;
   8235
   8236	025424				NOSNDA::			;;; [4.2181] SET OR CLEAR BIT TO SUPPRESS SEND-ALLS
   8237	025424	012705 	000400 			MOV	#TT.NSA,R5	;;; [4.2181] SET UP STATUS BIT
   8238	025430				10$:
   8239	025430	000360 	000010 			SWAB	E.FW(R0)	;;; [4.2181] SET UP DEVICE CODE FOR "FDVNMM"
   8240	025434					CALL	FDVNMM		;;; [4.2181] GET R2 TO POINT TO BLOCK FOR THIS LINE
	025434	004737 	027450'			JSR	PC,FDVNMM
   8241	025440	040562 	000006 			BIC	R5,STSW1(R2)	;;; [4.2181] ASSUME A CLEAR
   8242	025444	042762 	000200 	000006 		BIC	#TT.XOF,STSW1(R2) ;;; [5.1004] CLEAR XOFF BIT ALWAYS
   8243	025452	105760 	000010 			TSTB	E.FW(R0)	;;; [4.2181] TEST ARGUMENT BYTE
   8244	025456	001470 				BEQ	DEAND3		;;; [4.1.1035] IF .NE. 0,
   8245	025460	050562 	000006 			BIS	R5,STSW1(R2)	;;; [4.2181] THEN SET BIT.
   8246	025464	000465 				BR	DEAND3		;;; [4.1.1035] FREE THE NODE
   8247						;
   8248
   8249						.DSABL	LSB
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 153
QUEUED PROTOCOL DRIVER -- HANGUP

   8251						.SBTTL	QUEUED PROTOCOL DRIVER -- HANGUP
   8252
   8253					;
   8254					;	HANGUP -- FUNCTION 16
   8255					;
   8256
   8257	025466				HANGUP::
   8258	025466					CALL	FDVNMM		;;; FIND DEVICE
	025466	004737 	027450'			JSR	PC,FDVNMM
   8259	025472	010205 				MOV	R2,R5		;;; SET UP TABLE ADDRESS
   8260	025474	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS A CTY??
   8261	025502	001411 				BEQ	10$		;;; NO -- GO ON
   8262	025504	105737 	001226'			TSTB	.KLNSW+0	;;; YES -- IS KLINIK ACTIVE??
   8263	025510	003406 				BLE	10$		;;; NOT THAT WE CARE
   8264	025512	010546 				MOV	R5,-(SP)	;;; YES -- SAVE POINTER
   8265					;
   8266					; HERE TO HANG UP THE KLINIK LINE
   8267					;
   8268	025514	013705 	002636'			MOV	KLNPTR,R5	;;; POINT TO KLINIK LINE
   8269	025520					CALL	.DLHUP		;;; HANG UP THE KLINIK LINE
	025520	004737 	040214'			JSR	PC,.DLHUP
   8270	025524	012605 				MOV	(SP)+,R5	;;; RESTORE POINTER
   8271	025526				10$:
   8272	025526	022705 	003046'			CMP	#DHTBL,R5	;;; IS THIS A DH-11??
   8273	025532	101023 				BHI	20$		;;; NO -- DL-11'S ARE A SPECIAL CASE
   8274					;
   8275					; HERE TO HANG UP A DM-11/BB
   8276					;
   8277	025534	005001 				CLR	R1		;;; YES -- FIND THE LINE NUMBER
   8278	025536	156001 	000011 			BISB	E.FW+1(R0),R1	;;; SO
   8279	025542	162701 	000005 			SUB	#DLCNT,R1	;;; REMOVE DL-11'S
   8280	025546	042701 	177760 			BIC	#177760,R1	;;; MAKE IT A UNIT NUMBER
   8281	025552					CALL	FNDDM		;;; [5.1004] FIND THE DM-11/BB ADDRESS
	025552	004737 	027366'			JSR	PC,FNDDM
   8282	025556	001430 				BEQ	DEAND3		;;; [4.1.1091] NOT THERE -- IGNORE
   8283	025560					CALL	.DMHUP		;;; HANGUP
	025560	004737 	040144'			JSR	PC,.DMHUP
   8284	025564	032765 	000040 	000006 		BIT	#TT.ABL,STSW1(R5) ;;; IS THIS AN AUTO-BAUD LINE??
   8285	025572	001422 				BEQ	DEAND3		;;; [4.1.1035] NO -- GO ON
   8286	025574					CALL	.DHSPR		;;; YES RESET LINE SPEED TO DEFAULT
	025574	004737 	037460'			JSR	PC,.DHSPR
   8287	025600	000417 				BR	DEAND3		;;; [4.1.1035] RETURN THE NODE
   8288						;
   8289					;
   8290					; HERE TO HANG UP A DL-11E
   8291					;
   8292	025602				20$:
   8293	025602					CALL	.DLHUP		;;; HANG IT UP
	025602	004737 	040214'			JSR	PC,.DLHUP
   8294	025606	000414 				BR	DEAND3		;;; [4.1.1035] RETURN THE NODE
   8295						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 154
QUEUED PROTOCOL DRIVER -- ACKNOWLEDGE DEVICE

   8297						.SBTTL	QUEUED PROTOCOL DRIVER -- ACKNOWLEDGE DEVICE
   8298
   8299					;
   8300					;	ACKNOWLEDGE DEVICE -- FUNCTION 17
   8301					;
   8302
   8303	025610				ACKNOW::
   8304	025610					CALL	FDVNMM		;;; FIND UNIT ETC
	025610	004737 	027450'			JSR	PC,FDVNMM
   8305	025614					CALL	@.DQPBA-20+Q.AK(R1) ;;; GO TO USER STATUS ROUTINE
	025614	004771 	010024'			JSR	PC,@.DQPBA-20+Q.AK(R1)
   8306	025620	000407 				BR	DEAND3		;;; [4.1.1092] RETURN NODE
   8307						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 155
QUEUED PROTOCOL DRIVER -- SET LINE ALLOCATION

   8309						.SBTTL	QUEUED PROTOCOL DRIVER -- SET LINE ALLOCATION
   8310
   8311					;
   8312					;	SET LINE ALLOCATION -- FUNCTION 23
   8313					;
   8314
   8315	025622				SETLIN::
   8316	025622	000360 	000010 			SWAB	E.FW(R0)	;;; SWAP THE BYTES FOR "FDVNMM"
   8317	025626					CALL	FDVNMM		;;; FIND DEVICE
	025626	004737 	027450'			JSR	PC,FDVNMM
   8318	025632	116461 	000011 	010026'		MOVB	E.FW+1(R4),.DQPBA-20+14(R1) ;;; SET IT IN THE TABLE
   8319	025640				DEAND3:
   8320	025640	000567 				BR	DEAND1		;;; [4.1.1092] AND RETURN
   8321						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 156
QUEUED PROTOCOL DRIVER -- SET LINE SPEED

   8323						.SBTTL	QUEUED PROTOCOL DRIVER -- SET LINE SPEED
   8324
   8325					;
   8326					;	SETSPD -- SET SPEED OF TTY -- FUNCTION 22
   8327					;
   8328					; TCO 5.1249 CHANGES REFRENCES TO R4 TO R0 AND SAVES IN R4 INSTEAD OF SP
   8329
   8330	025642				SETSPD::
   8331	025642	016002 	000012 			MOV	E.FW+2(R0),R2	;;; FIND THE INPUT SPEED
   8332	025646					CALL	FNDSPD		;;; FIND THIS SPEED
	025646	004737 	027420'			JSR	PC,FNDSPD
   8333	025652	006203 				ASR	R3		;;; PUT IT IN THE CORRECT POSITION FOR DH-11
   8334	025654	006203 				ASR	R3		;;; SO
   8335	025656	010304 				MOV	R3,R4		;;; SAVE THE WORD
   8336	025660	016002 	000014 			MOV	E.FW+4(R0),R2	;;; FIND THE OUTPUT SPEED
   8337	025664					CALL	FNDSPD		;;; FIND THIS SPEED
	025664	004737 	027420'			JSR	PC,FNDSPD
   8338	025670	006303 				ASL	R3		;;; PUT OUTPUT SPEED IN CORRECT POSITION
   8339	025672	006303 				ASL	R3		;;; IS THE OUPUT SPEED ZERO??
   8340	025674	001002 				BNE	10$		;;; NO -- DON'T ALTER IT
   8341	025676	012703 	016003 			MOV	#16003,R3	;;; [5.1004] YES -- SET IT TO AN OUTPUT SPEED OF 300
   8342									;;; THIS IS DONE TO PREVENT PROBLEMS WHEN ZERO OUTPUT BAUD
   8343									;;; IS DONE AND THERE IS OUTPUT FOR THIS LINE
   8344	025702				10$:
   8345	025702	050403 				BIS	R4,R3		;;; SET THE INPUT AND OUTPUT TOGETHER
   8346	025704	016001 	000016 			MOV	E.FW+6(R0),R1	;;; GET THE STOP BIT PARAMETER
   8347	025710	006301 				ASL	R1		;;; 1 IS 1 STOP BIT 2 IS TWO STOP BITS
   8348	025712	042701 	177770 			BIC	#177770,R1	;;; CLEAR OFF JUNK
   8349	025716	050103 				BIS	R1,R3		;;; SET IN STATUS WORD
   8350	025720				20$:
   8351	025720	052703 	000003 			BIS	#3,R3		;;; SET 8 BIT CHARACTER LENGTH
   8352	025724	005005 				CLR	R5		;;; FIND THE LINE NUMBER
   8353	025726	156005 	000010 			BISB	E.FW(R0),R5	;;; FIND THE UNIT NUMBER
   8354	025732	162705 	000005 			SUB	#DLCNT,R5	;;; SUBTRACT OUT DL-11'S
   8355	025736	100530 				BMI	DEAND1		;;; [4.1.1035] DL-11'S ARE NOT LEGAL
   8356	025740	010304 				MOV	R3,R4
   8357	025742	000360 	000010 			SWAB	E.FW(R0)	;;; SWAP THE PLACE OF THE LINE NUMBER
   8358	025746					CALL	FDVNMM
	025746	004737 	027450'			JSR	PC,FDVNMM
   8359	025752	010403 				MOV	R4,R3
   8360	025754	010501 				MOV	R5,R1		;;; SAVE UNIT NUMBER
   8361	025756	010205 				MOV	R2,R5
   8362	025760	005760 	000016 			TST	E.FW+6(R0)	;;; CHECK FOR REMOTE FLAG
   8363	025764	100012 				BPL	30$		;;; NO -- DON'T SET REMOTE FLAG
   8364	025766	042701 	177760 			BIC	#177760,R1	;;; MASK UNIT NUMBER
   8365	025772					CALL	FNDDM		;;; [5.1004] FIND THE DM-11/BB ADDRESS
	025772	004737 	027366'			JSR	PC,FNDDM
   8366	025776	001510 				BEQ	DEAND1		;;; [4.1.1091] NOT THERE -- IGNORE
   8367	026000	052765 	000100 	000006 		BIS	#TT.RMT,STSW1(R5) ;;; SET REMOTE FLAG
   8368	026006					CALL	.DMHUP		;;; HANGUP THE DEVICE
	026006	004737 	040144'			JSR	PC,.DMHUP
   8369	026012				30$:
   8370	026012	032760 	040000 	000016 		BIT	#BIT14,E.FW+6(R0) ;;; IS THIS AN AUTO-BAUD LINE??
   8371	026020	001405 				BEQ	40$		;;; NO -- GO ON
   8372	026022	052765 	000040 	000006 		BIS	#TT.ABL,STSW1(R5) ;;; YES -- SET THE FLAG
   8373	026030	012703 	016703 			MOV	#16703,R3	;;; SET THE DEFAULT SPEED TO 300 BAUD
   8374	026034				40$:
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 156-1
QUEUED PROTOCOL DRIVER -- SET LINE SPEED

   8375	026034					CALL	.DHSPD		;;; SET DH-11 LINE SPEED
	026034	004737 	037554'			JSR	PC,.DHSPD
   8376	026040	000467 				BR	DEAND1		;;; DEALLOCATE NODE
   8377						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 157
QUEUED PROTOCOL DRIVER -- STOP LINE INPUT

   8379						.SBTTL	QUEUED PROTOCOL DRIVER -- STOP LINE INPUT
   8380
   8381					;
   8382					;	STOP INPUT FROM LINE -- FUNCTION 26
   8383					;
   8384	026042				STPLIN::
   8385	026042	000360 	000010 			SWAB	E.FW(R0)	;;; SWAP THE BYTES
   8386	026046					CALL	FDVNMM		;;; FIND DEVICE
	026046	004737 	027450'			JSR	PC,FDVNMM
   8387	026052	010205 				MOV	R2,R5		;;; [5.1015] DEVICE POINTER TO R5
   8388	026054	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; [5.1015] IS THIS A CTY?
   8389	026062	001411 				BEQ	10$		;;; NO -- GO ON
   8390	026064	105737 	001226'			TSTB	.KLNSW+0	;;; YES -- IS KLINIK ACTIVE?
   8391	026070	003406 				BLE	10$		;;; NOT THAT WE CARE -- GO ON
   8392	026072	010546 				MOV	R5,-(SP)	;;; [5.1015] YES -- SAVE R5
   8393	026074	013705 	002636'			MOV	KLNPTR,R5	;;; [5.1015] KLINIK POINTER TO R5
   8394	026100					CALL	20$		;;; [5.1015] STOP THE KLINIK LINE
	026100	004737 	026114'			JSR	PC,20$
   8395	026104	012605 				MOV	(SP)+,R5	;;; [5.1015] RESTORE POINTER
   8396	026106				10$:
   8397	026106					CALL	20$		;;; [5.1015] START OR STOP THE LINE
	026106	004737 	026114'			JSR	PC,20$
   8398	026112	000442 				BR	DEAND1		;;; [5.1015] DEALLOCATE THE NODE AND EXIT
   8399						;
   8400	026114				20$:
   8401	026114					CALL	.TTSW2		;;; [5.1015] FIND OUR ".STSW2" ENTRY
	026114	004737 	042754'			JSR	PC,.TTSW2
   8402	026120	012746 	042204'			MOV	#.TTQDS,-(SP)	;;; [4.1.1092] ASSUME A STOP
   8403	026124	105760 	000010 			TSTB	E.FW(R0)	;;; [4.1.1092] IS THIS A START OR A STOP??
   8404	026130	001402 				BEQ	30$		;;; [4.1.1092] STOP -- GO ON
   8405	026132	012716 	042214'			MOV	#.TTQEN,(SP)	;;; [4.1.1092] SET UP FOR A START
   8406	026136				30$:
   8407	026136	000136 				JMP	@(SP)+		;;; [4.1.1092] DO THE START OR STOP AND RETURN
   8408						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 158
QUEUED PROTOCOL DRIVER -- BREAK-THROUGH WRITE

   8410						.SBTTL	QUEUED PROTOCOL DRIVER -- BREAK-THROUGH WRITE
   8411
   8412					;
   8413					;	BTWCHR	-- BREAK-TROUGH WRITE FOR CHARACTER -- FUNCTION 35
   8414					;
   8415
   8416	026140				BTWCHR::
   8417	026140	000360 	000010 			SWAB	E.FW(R0)	;;; [5.1016] SWAP THE LINE NUMBER/FLAG
   8418	026144					CALL	FDVNMM		;;; [5.1016] FIND THE DEVICE
	026144	004737 	027450'			JSR	PC,FDVNMM
   8419									;;; [5.1016] DON'T RETURN IF IT DOESN'T EXIST
   8420	026150	010205 				MOV	R2,R5		;;; [5.1016] COPY DLS POINTER TO R5
   8421	026152	116004 	000010 			MOVB	E.FW(R0),R4	;;; [5.1016] GET THE CHARACTER IN R4
   8422	026156	001420 				BEQ	DEAND1		;;; [4.1.1035] IGNORE IF NULL
   8423	026160					CALL	.TTBTW		;;; [5.1016] FORCE THE CHARACTER OUT
	026160	004737 	042604'			JSR	PC,.TTBTW
   8424	026164	000415 				BR	DEAND1		;;; [5.1016] DEALLOCATE AND EXIT
   8425						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 159
QUEUED PROTOCOL DRIVER -- XOFF

   8427						.SBTTL	QUEUED PROTOCOL DRIVER -- XOFF
   8428
   8429					;
   8430					;	XOFF -- FUNCTION 20
   8431					;
   8432					;	THIS ROUTINE WILL INITIATE THE XOFF SEQUENCE FOR A TERMINAL LINE.
   8433					;	THE "XOFF" STATUS BIT ("TT.XOF") IS SET IN THE LINE STATUS WORD WHICH
   8434					;	BLOCKS ANY FURTHER OUTPUT FROM THE TERMINAL DRIVER. IF THE LINE IS
   8435					;	A DH-11, THE OUTPUT IS NOT STOPPED IMMEDIATELY, BUT A RUNDOWN SEQUENCE
   8436					;	IS INITATED SINCE EARLIER DH-11'S WILL "RUN AWAY" IF THE DEVICE BYTE
   8437					;	COUNT IS SIMPLY CLEARED. THE TERMINAL INTERRUPT SERVICE WILL RESET THE
   8438					;	PACKET ADDRESS AND BYTE COUNT AT OUTPUT DONE SO THAT THE XON CODE CAN
   8439					;	DO A NORMAL LINE START.
   8440					;
   8441					;	THIS MESSAGE IS IGNORED IF:
   8442					;
   8443					;		1. THE LINE IS ALREADY X'D OFF
   8444					;		2. THE LINE HAS NO OUTPUT PENDING (THREAD LIST EMPTY)
   8445					;		3. A SENDALL IS IN PROGRESS ON THIS LINE
   8446					;		4. THE CTY IS IN PDP-11 I/O WAIT AND THE CTY IS TO BE X'D OFF
   8447
   8448	026166				XOFF::
   8449	026166					CALL	FDVNMM		;;; FIND THE DEVICE NAME
	026166	004737 	027450'			JSR	PC,FDVNMM
   8450	026172	010205 				MOV	R2,R5		;;; COPY DLS POINTER TO R5
   8451	026174					CALL	.TTXOF		;;; DO THE XOFF
	026174	004737 	041554'			JSR	PC,.TTXOF
   8452	026200	000407 				BR	DEAND1		;;; AND EXIT
   8453						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 160
QUEUED PROTOCOL DRIVER -- XON

   8455						.SBTTL	QUEUED PROTOCOL DRIVER -- XON
   8456
   8457					;
   8458					;	XON -- FUNCTION 21
   8459					;
   8460					;	THIS ROUTINE WILL RESUME OUTPUT FOR A LINE WHICH WAS PREVIOUSLY
   8461					;	X'D OFF.  THE OUTPUT WILL BE RESUMED PER THE DATA IN THE CURRENT
   8462					;	NODE IN THE THREAD LIST FOR THIS LINE. (T.HCBC AND T.HACD) THIS
   8463					;	DATA IS SAVED AT OUTPUT INTERRUPT TIME FROM THE XOFF.
   8464					;
   8465					;	THIS MESSAGE WILL BE IGNORED IF:
   8466					;
   8467					;		1. THE LINE HAS NOT BEEN PREVIOUSLY X'D OFF
   8468					;		2. A SENDALL IS CURRENTLY IN PROGRESS ON THIS LINE
   8469					;
   8470					;	THE DEVICE WILL NOT BE RESTARTED IF:
   8471					;
   8472					;		1. OUTPUT IS ALREADY IN PROGRESS ON THIS LINE
   8473					;		2. THE OUTPUT THREAD LIST FOR THIS LINE IS EMPTY
   8474					;		3. THE DEVICE DOES NOT EXIST
   8475
   8476
   8477	026202				XON::
   8478	026202					CALL	FDVNMM		;;; [4.2181] FIND THIS DEVICE
	026202	004737 	027450'			JSR	PC,FDVNMM
   8479	026206	010205 				MOV	R2,R5		;;; [4.2181] COPY DLS POINTER TO R5
   8480	026210	010046 				MOV	R0,-(SP)	;;; [5.1248] SAVE R0
   8481	026212					CALL	.TTXON		;;; [4.2181] PROCESS THE DIRECTIVE
	026212	004737 	041676'			JSR	PC,.TTXON
   8482	026216	012600 				MOV	(SP)+,R0	;;; [5.1248] RESTORE R0
   8483	026220				DEAND1:
   8484	026220	000137 	026654'			JMP	DEANOD		;;; [4.2181] DEALLOCATE THE NODE
   8485						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 161
QUEUED PROTOCOL DRIVER -- HERE IS INITIAL STATUS

   8487						.SBTTL	QUEUED PROTOCOL DRIVER -- HERE IS INITIAL STATUS
   8488
   8489					;
   8490					;	HERE IS INITIAL STATUS -- FUNCTION 1
   8491					;	FW IS ALLOCATED WITH LOW ORDER PART AS # OF TTY'S
   8492					;	BIT 16 IS ALLOCATED TO INDICATE 50CPS
   8493					;
   8494
   8495	026224				HICTS::
   8496	026224	012737 	000074 	001154'		MOV	#60.,.TKPS	;;; SET UP THE CLOCK TO 60. CPS
   8497	026232	105760 	000010 			TSTB	E.FW+0(R0)	;;; CHECK FOR 50 CPS (BYTES ARE SWAPPED)
   8498	026236	100003 				BPL	10$		;;; HIGH ORDER BIT SET IS 50CPS
   8499	026240	162737 	000012 	001154'		SUB	#10.,.TKPS	;;; SET TO 50 HZ
   8500	026246				10$:
   8501	026246	012703 	000001 			MOV	#D.CCTY,R3	;;; SET DEVICE ID
   8502	026252	012701 	000002 			MOV	#BC.HAD,R1	;;; SET HERE IS DEVICE STATUS
   8503	026256	013704 	002634'			MOV	CTYPTR,R4	;;; FIND THE CTY NUMBER
   8504	026262	162704 	002776'			SUB	#TTTBL,R4
   8505	026266	006204 				ASR	R4		;;; MAKE NUMBER
   8506	026270	006204 				ASR	R4
   8507	026272	006204 				ASR	R4
   8508	026274					CALL	..STFC		;;; START FUNCTION
	026274	004737 	045456'			JSR	PC,..STFC
   8509	026300	105737 	001216'			TSTB	.KLNMD+0	;;; ANY KLINIK PARAMETERS TO SEND??
   8510	026304	001424 				BEQ	20$		;;; NO -- GO ON
   8511	026306	010046 				MOV	R0,-(SP)	;;; YES -- SAVE R0
   8512	026310	012700 	001176'			MOV	#.KLNPB,R0	;;; BUFFER POINTER TO R0
   8513	026314	012710 	000026 			MOV	#KLNPLN,(R0)	;;; BYTE COUNT TO BUFFER HEADER
   8514	026320	012701 	100033 			MOV	#BC.SKP+100000,R1 ;;; FUNCTION CODE TO R1
   8515	026324	005002 				CLR	R2		;;; DON'T WAIT FOR IT
   8516	026326	012703 	000200 			MOV	#D.CCPU,R3	;;; DEVICE ID TO R3
   8517	026332					.ENBT			;;; [4.1.1035] ALLOW TASK SWITCHING
	026332	013746 	177776 			 MOV	@#PS,-(SP)
	026336	042737 	000340 	177776 		 BIC	#PRI7,@#PS
   8518	026344					CALL	..STIN		; SEND THE KLINIK PARAMETERS
	026344	004737 	045646'			JSR	PC,..STIN
   8519	026350					.INHT			; [4.1.1035] DISABLE TASK SWITCHING
	026350	012637 	177776 			 MOV	(SP)+,@#PS
   8520	026354	012600 				MOV	(SP)+,R0	;;; RESTORE R0
   8521	026356				20$:
   8522	026356	013704 	001160'			MOV	.BTPRM,R4	;;; SEND BOOT PARAMETERS
   8523	026362	012701 	000024 			MOV	#BC.BTP,R1	;;; SET BOOT PARAMETERS
   8524	026366					CALL	..STFC		;;; [5.1004] SEND BOOT PARAMETERS
	026366	004737 	045456'			JSR	PC,..STFC
   8525	026372	000530 				BR	DEANOD		;;; [4.1.1035] DEALLOCATE NODE
   8526						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 162
QUEUED PROTOCOL DRIVER -- RETURN TIME OF DAY

   8528						.SBTTL	QUEUED PROTOCOL DRIVER -- RETURN TIME OF DAY
   8529
   8530					;
   8531					;	RTNTOD -- RETURN TIME OF DAY TO KL -- FUNCTION 11
   8532					;
   8533
   8534	026374				RTNTOD::
   8535	026374	005737 	001140'			TST	.DATE3		;;; [5.1004] IS OUR DATE VALID??
   8536	026400	001403 				BEQ	10$		;;; [5.1004] NO -- JUST REPORT CONFIGURATION
   8537	026402	012737 	177777 	002602'		MOV	#-1,.ABFLG	;;; FLAG "SETSPD" TO REPORT ALL LINES
   8538	026410				10$:
   8539	026410					DIR$	#.RQSPD		;;; SET SPEED AND THEN RETURN TIME OF DAY
	026410	012746 	024600'			MOV	#.RQSPD,-(SP)
	026414	104375 				EMT	375
   8540	026416	000516 				BR	DEANOD		;;; [4.1.1035] DEALLOCATE THIS NODE
   8541						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 163
QUEUED PROTOCOL DRIVER -- STRING DATA

   8543						.SBTTL	QUEUED PROTOCOL DRIVER -- STRING DATA
   8544
   8545					;
   8546					;	STRDAT -- ROUTINE TO HANDLE STRING DATA -- FUNCTION 3
   8547					;	HIDVST -- ROUTINE TO RECIEVE DEVICE STATUS -- FUNCTION 7
   8548					;	RTDVST -- ROUTINE TO RECEIVE REQUEST FOR DEVICE STATUS -- FUNCTION 5
   8549					;	STDVST -- ROUTINE TOSET DEVICE STATUS -- FUNCTION 6
   8550					;	LDLPR -- ROUTINE TO LOAD LP RAM -- FUNCTION 30
   8551					;	LDLPV -- ROUTINE TO LOAD LP VFU -- FUNCTION 31
   8552					;
   8553
   8554	026420				HIDVST::
   8555	026420				LDLPR::
   8556	026420				LDLPV::
   8557	026420				STDVST::
   8558	026420				RTDVST::
   8559	026420				STRDAT::
   8560	026420	012702 	000006 			MOV	#6,R2		;;; MOVE OVER THE LISTHEAD AND COUNT
   8561	026424	060204 				ADD	R2,R4		;;; FIND THE DEVICE ADDRESS
   8562	026426	012401 				MOV	(R4)+,R1	;;; FIND THE DEVICE ADDRESS
   8563	026430	012403 				MOV	(R4)+,R3	;;; FIND THE FIRST WORD
   8564	026432	160204 				SUB	R2,R4		;;; BACKUP TO STORE IN THE HEADER
   8565	026434	111464 	000003 			MOVB	@R4,3(R4)	;;; SAVE FUNCTION CODE
   8566	026440	010414 				MOV	R4,@R4		;;; SAVE THE ADDRESS
   8567	026442	060224 				ADD	R2,(R4)+	;;; UPDATE ADDRESS
   8568	026444	000303 				SWAB	R3		;;; SET UP BYTES SWAPED
   8569	026446	110314 				MOVB	R3,@R4		;;; STORE BYTE COUNT
   8570	026450					CALL	FDVNM		;;; FIND DEVICE TABLE ENTRY
	026450	004737 	027464'			JSR	PC,FDVNM
   8571	026454	103477 				BCS	DEANOD		;;; ILLEGAL DEVICE -- FORGET IT
   8572	026456					CALL	@.DQPBA+Q.ST-20(R1) ;;; START DEVICE
	026456	004771 	010016'			JSR	PC,@.DQPBA+Q.ST-20(R1)
   8573	026462	000476 				BR	QPRDTF		;;; [4.1.1035] GO TO DO MORE WORK
   8574						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 164
QUEUED PROTOCOL DRIVER -- LINE NUMBER - CHARACTER

   8576						.SBTTL	QUEUED PROTOCOL DRIVER -- LINE NUMBER - CHARACTER
   8577
   8578					;
   8579					;	LINCHR --LINE NUMBER - CHARACTER -- FUNCTION 4
   8580					;
   8581
   8582	026464				LINCHR::
   8583	026464	010046 				MOV	R0,-(SP)	;;; SAVE THE NODE ADDRESS
   8584	026466	005046 				CLR	-(SP)
   8585	026470	116416 	000005 			MOVB	E.FN+1(R4),@SP	;;; SAVE SIZE OF BLOCK
   8586	026474	162716 	000010 			SUB	#E.FW,@SP	;;; SUBTRACT THE SIZE OF THE HEADER
   8587	026500	010405 				MOV	R4,R5		;;; SET UP THE POINTER TO THE BUFFER
   8588	026502	016404 	000006 			MOV	E.DV(R4),R4	;;; FIND THE DEVICE
   8589	026506	062705 	000010 			ADD	#E.FW,R5	;;; POINT TO THE CHARACTER
   8590	026512				10$:
   8591	026512	012701 	000014 			MOV	#T.HHDS+4,R1	;;; SET UP THE BUFFER SIZE
   8592	026516					.ENBT			;;; [4.1.1035] ENABLE TASK SWITCHING
	026516	013746 	177776 			 MOV	@#PS,-(SP)
	026522	042737 	000340 	177776 		 BIC	#PRI7,@#PS
   8593	026530					CALL	..ALOW		; ALLOCATE A BLOCK
	026530	004737 	044706'			JSR	PC,..ALOW
   8594	026534					.INHT			; [4.1.1035] ALLOW TASK SWITCHING
	026534	012637 	177776 			 MOV	(SP)+,@#PS
   8595	026540	010002 				MOV	R0,R2		;;; SAVE THE NODE ADDRESS
   8596	026542	005722 				TST	(R2)+		;;; MOVE OVER THE THREAD POINTER
   8597	026544	010122 				MOV	R1,(R2)+	;;; SET UP THE CHARACTER COUNT
   8598	026546	010012 				MOV	R0,@R2		;;; SET UP THE MEMORY ADDRESS
   8599	026550	062722 	000012 			ADD	#T.HHDS+2,(R2)+	;;; POINT TO THE BUFFER
   8600	026554	012722 	000001 			MOV	#1,(R2)+	;;; SET UP THE CURRENT COUNT POINTER
   8601	026560	005722 				TST	(R2)+
   8602	026562	010401 				MOV	R4,R1		;;; PICK UP THE DEVICE
   8603	026564	112503 				MOVB	(R5)+,R3
   8604	026566	112522 				MOVB	(R5)+,(R2)+	;;; STORE THE CHARCTER
   8605	026570	000303 				SWAB	R3		;;; SET UP LINE NUMBER FOR FDVNM
   8606	026572					CALL	FDVNM		;;; FIND THE DEVICE NUMBER
	026572	004737 	027464'			JSR	PC,FDVNM
   8607	026576	103410 				BCS	30$		;;; ILLEGAL LINE NUMBER
   8608	026600					CALL	@.DQPBA+Q.ST-20(R1) ;;; START TTY
	026600	004771 	010016'			JSR	PC,@.DQPBA+Q.ST-20(R1)
   8609	026604				20$:
   8610	026604	162716 	000002 			SUB	#2,@SP		;;; POINT TO THE NEXT CHARACTER
   8611	026610	001340 				BNE	10$		;;; DO AT LEAST ONE MORE
   8612	026612	005726 				TST	(SP)+		;;; REMOVE COUNT
   8613	026614	012600 				MOV	(SP)+,R0	;;; SET UP TO RETURN NODE
   8614	026616	000416 				BR	DEANOD		;;; ALL DONE -- RETURN THE NODE
   8615						;
   8616	026620				30$:
   8617	026620					CALL	..DECN		;;; DEALLOCATE BUFFER
	026620	004737 	044546'			JSR	PC,..DECN
   8618	026624	000767 				BR	20$		;;; AND TRY NEXT BLOCK
   8619						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 165
QUEUED PROTOCOL DRIVER -- RETURN TIME OF DAY

   8621						.SBTTL	QUEUED PROTOCOL DRIVER -- RETURN TIME OF DAY
   8622
   8623					;
   8624					;	RETTOD -- RETURN TIME OF DAY -- FUNCTION 12
   8625					;
   8626
   8627	026626				RETTOD::
   8628	026626	062704 	000010 			ADD	#E.FW,R4	;;; MOVE OVER THE HEADER
   8629	026632	005724 				TST	(R4)+		;;; MOVE OVER THE VALID BIT AND CHECK IT
   8630	026634	001407 				BEQ	DEANOD		;;; TIME NOT VALID FORGET IT
   8631	026636	012703 	001140'			MOV	#.DATE,R3	;;; SET UP TO SET DATE
   8632	026642	012423 				MOV	(R4)+,(R3)+	;;; SET UP VALIDITY BITS
   8633	026644	012423 				MOV	(R4)+,(R3)+	;;; SET UP YEAR
   8634	026646	012423 				MOV	(R4)+,(R3)+	;;; SET UP DAY
   8635									;;; SET UP MONTH
   8636	026650	012423 				MOV	(R4)+,(R3)+	;;; SAVE DAYLIGHT SAVINGS TIME INDICATOR (1=DST)
   8637									;;; SET UP DAY OF WEEK
   8638	026652	012423 				MOV	(R4)+,(R3)+	;;; SET SECONDS SINCE MIDNIGHT
   8639	026654				DEANOD:
   8640	026654					CALL	..DECN		;;; DEALLOCATE BUFFER
	026654	004737 	044546'			JSR	PC,..DECN
   8641	026660				QPRDTF:
   8642	026660	000137 	025234'			JMP	QPRDTL		;;; GO TO NEXT FUNCTION
   8643						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 166
QUEUED PROTOCOL DRIVER -- FLUSH DEVICE OUTPUT QUEUE

   8645						.SBTTL	QUEUED PROTOCOL DRIVER -- FLUSH DEVICE OUTPUT QUEUE
   8646
   8647					;
   8648					;	FLDVOT -- FLUSH OUTPUT FOR THIS DEVICE -- FUNCTION 13
   8649					;
   8650
   8651	026664				FLDVOT::
   8652	026664					CALL	FDVNMM		;;; FIND THE DEVICE POINTER
	026664	004737 	027450'			JSR	PC,FDVNMM
   8653	026670	010146 				MOV	R1,-(SP)
   8654	026672					CALL	@.DQPBA+Q.SP-20(R1) ;;; STOP DEVICE
	026672	004771 	010020'			JSR	PC,@.DQPBA+Q.SP-20(R1)
   8655	026676	012601 				MOV	(SP)+,R1
   8656	026700	016100 	010012'			MOV	.DQPBA+Q.DA-20(R1),R0 ;;; FIND DEVICE TABLE BASE ADDRESS
   8657	026704	010205 				MOV	R2,R5		;;; FIND THIS DEVICE ADDRESS
   8658	026706	016403 	000006 			MOV	E.DV(R4),R3	;;; FIND DEVICE NUMBER
   8659	026712					CALL	..SACK		;;; SEND ACKNOWLEDGEMENT
	026712	004737 	045372'			JSR	PC,..SACK
   8660	026716	010400 				MOV	R4,R0		;;; SET UP TO RETURN NODE
   8661	026720	000755 				BR	DEANOD		;;; DEALLOCATE NODE
   8662						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 167
QUEUED PROTOCOL DRIVER -- RECIEVE KLINIK PARAMETERS

   8664						.SBTTL	QUEUED PROTOCOL DRIVER -- RECIEVE KLINIK PARAMETERS
   8665
   8666					;
   8667					;	RCVKLP -- RECIEVE KLINIK PARAMETERS -- FUNCTION 33
   8668					;
   8669
   8670	026722				RCVKLP::
   8671	026722	062704 	000012 			ADD	#E.FW+2,R4	;;; GET OVER THE INDIRECT HEADER
   8672	026726	012402 				MOV	(R4)+,R2	;;; BYTE COUNT TO R2
   8673	026730	001751 				BEQ	DEANOD		;;; QUIT IF NULL
   8674	026732	006202 				ASR	R2		;;; MAKE A WORD COUNT
   8675	026734	012703 	001202'			MOV	#.KLNFT,R3	;;; BUFFER POINTER TO R3
   8676	026740	042737 	010000 	001012'		BIC	#EF.RKP,.COMEF+2 ;;; CLEAR THE FLAG
   8677	026746				10$:
   8678	026746	012423 				MOV	(R4)+,(R3)+	;;; LOAD THE PARAMETERS
   8679	026750	077202 				SOB	R2,10$		;;; LOOP TILL DONE
   8680	026752	052737 	010000 	001012'		BIS	#EF.RKP,.COMEF+2 ;;; SET THE EVENT FLAG
   8681	026760	000735 				BR	DEANOD		;;; DEQUEUE THIS NODE AND EXIT
   8682						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 168
QUEUED PROTOCOL DRIVER -- SET/CLEAR HOST DEBUG MODE

   8684						.SBTTL	QUEUED PROTOCOL DRIVER -- SET/CLEAR HOST DEBUG MODE
   8685
   8686					;
   8687					;	SETDEB -- SET HOST DEBUG MODE (36)
   8688					;	CLRDEB -- CLEAR HOST DEBUG MODE (37)
   8689					;
   8690
   8691	026762				SETDEB::
   8692	026762	112737 	177777 	013035'		MOVB	#-1,SNDMSG+1	;;; [5.1127] SET HOST DEBUG MODE
   8693	026770	000731 				BR	DEANOD		;;; [5.1127] AND RETURN
   8694
   8695	026772				CLRDEB::
   8696	026772	105037 	013035'			CLRB	SNDMSG+1	;;; [5.1127] CLEAR HOST DEBUG MODE
   8697	026776	000726 				BR	DEANOD		;;; [5.1127] AND RETURN
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 169
QUEUED PROTOCOL DRIVER -- SENDALL

   8699						.SBTTL	QUEUED PROTOCOL DRIVER -- SENDALL
   8700
   8701					;
   8702					;	SNDALL -- SENDALL SERVICE -- FUNCTION 14
   8703					;
   8704
   8705	027000				SNDALL::
   8706	027000					CALL	.SNDAL		;;; DO SENDALL
	027000	004737 	027006'			JSR	PC,.SNDAL
   8707	027004	000725 				BR	QPRDTF		;;; AND RETURN
   8708						;
   8709					;
   8710					;	.SNDAL -- SUBROUTINE TO DO A SENDALL
   8711					;
   8712					;	CALLING SEQUENCE
   8713					;
   8714					;	R0 & R4 -- POINTER TO BUFFER TO BE SENT (QUEUED PROTOCOL FORMAT)
   8715					;
   8716					;	REGISTERS ALTERED
   8717					;
   8718					;	R0,R1,R2,R3,R5
   8719					;
   8720					;	THE SENDALL MESSAGES AND COUNTS ARE MAINTINED IN PARALLEL RING BUFFERS
   8721					;	IN ".SNDBF" AND ".SNDCN" (Q.V.). ".SNDLP" POINTS THE THE NEXT FREE LOGICAL
   8722					;	NODE IN THE SENDALL RING. EACH ENTRY IN THE DATA LINE SCANNER TABLE HAS
   8723					;	AS SENDALL INDEX BYTE IN "STSW1" ("TT.SND") WHICH POINTS TO THE LAST NODE
   8724					;	PROCESSED SENDALL RING. THE QUEUED PROTOCOL BUFFER IS DEALLOCATEED BY THE
   8725					;	TERMINAL DRIVER WHEN THE LAST TERMINAL HAS PROCESSED THAT NODE.
   8726					;
   8727					;	A SENDALL IS DEEMED TO BE PENDING FOR A LINE IF ITS SENDALL INDEX IS
   8728					;	DIFFERENT FROM THAT IN ".SNDLP". THE SENDALL WILL BE INITIATED AT "..STTY"
   8729					;	IF THE LINE IS IDLE, OR AT "STTYDN" IF THE LINE HAS ACTIVE OUTPUT.
   8730					;
   8731					;	IN ORDER TO PREVENT PROBLEMS ASSOCIATED WITH LARGE SENDALLS (A LARGE
   8732					;	SENDALL IS DEFINED AS ONE WHICH WILL FILL THE SENDALL RING), THE RING IS
   8733					;	ACTUALLY MANAGED AS A CIRCULAR LIST, WITH A GUARANTEED NULL ENTRY IN THE
   8734					;	LIST AT ALL TIMES. SHOULD A REQUEST BE MADE TO FILL AN EMPTY NODE IN THE
   8735					;	RING WITHOUT THE FOLLOWING NODE BEING EMPTY, THAT MODE WILL NOT BE FILLED
   8736					;	UNTIL THE FOLLOWING NODE BECOMES EMPTY (NULL). IN EFFECT, THE SENDALL
   8737					;	PROCESS IS DRIVEN BY THE SLOWEST TERMINAL(S) IN THE DATA LINE SCANNER.
   8738					;
   8739					;	TCO 4.2246 REMOVED SEVERAL INHIBIT AND ENABLE MACROS FROM THIS ROUTINE
   8740					;	014 -- REMOVED WSIG$S IF NO SPACE IN RING BUFFER
   8741
   8742	027006				.SNDAL::
   8743	027006	010004 				MOV	R0,R4		;;; COPY SENDALL POINTER
   8744	027010	022020 				CMP	(R0)+,(R0)+	;;; GET OVER LISTHEAD
   8745	027012	010010 				MOV	R0,(R0)		;;; SET UP CURRENT ADDRESS POINTER
   8746	027014	062720 	000006 			ADD	#6,(R0)+	;;; CORRECT BUFFER POINTER
   8747	027020	116010 	000003 			MOVB	3(R0),(R0)	;;; MOVE THE BYTE COUNT
   8748	027024				10$:
   8749	027024	013701 	002604'			MOV	.SNDLP,R1	;;; FIND THE CURRENT POINTER FOR SENDALL
   8750	027030	010102 				MOV	R1,R2		;;; COPY IT TO R2
   8751	027032	006301 				ASL	R1		;;; MAKE RING WORD INDEX
   8752	027034	005202 				INC	R2		;;; UPDATE THE POINTER TO NEXT NODE
   8753	027036	042702 	177774 			BIC	#^C3,R2		;;; MODULO 4
   8754	027042	010237 	002604'			MOV	R2,.SNDLP	;;; SET THE POINTER TO THE NEXT RING BUFFER
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 169-1
QUEUED PROTOCOL DRIVER -- SENDALL

   8755	027046	013761 	010110'	002616'		MOV	.DQDH0+Q.DZ,.SNDCN(R1) ;;; SET UP THE TTY COUNT
   8756					;	BEQ	15$		;;; GO ON IF NO DH-11'S
   8757	027054	010461 	002606'			MOV	R4,.SNDBF(R1)	;;; SET PACKET IN THE CURRENT RING BUFFER
   8758	027060				15$:
   8759	027060	012702 	002776'			MOV	#DLTBL,R2	;;; DO THE DL-11W AND DL-11E'S
   8760	027064				20$:
   8761	027064	020237 	002636'			CMP	R2,KLNPTR	;;; IS THIS THE KLINIK LINE??
   8762	027070	001003 				BNE	25$		;;; NO -- GO ON
   8763	027072	105737 	001226'			TSTB	.KLNSW+0	;;; YES -- IS IT ACTIVE AS USER CONSOLE??
   8764	027076	002015 				BGE	30$		;;; NO -- FORGET IT
   8765	027100				25$:
   8766	027100	005762 	000002 			TST	TTYEXP(R2)	;;; IS IT HERE??
   8767	027104	001412 				BEQ	30$		;;; NO -- FORGET IT
   8768	027106	032762 	000400 	000006 		BIT	#TT.NSA,STSW1(R2) ;;; YES -- SUPPRESS SENDALLS??
   8769	027114	001006 				BNE	30$		;;; YES -- SO DO IT
   8770	027116	010246 				MOV	R2,-(SP)	;;; SAVE R2 FROM "COPBUF"
   8771	027120					CALL	COPBUF		;;; COPY THE BUFFER
	027120	004737 	027312'			JSR	PC,COPBUF
   8772	027124	012602 				MOV	(SP)+,R2	;;; RESTORE R2
   8773	027126					CALL	..STTY		;;; START THE LINE UP
	027126	004737 	044726'			JSR	PC,..STTY
   8774	027132				30$:
   8775	027132	062702 	000010 			ADD	#^D8,R2		;;; POINT TO THE NEXT LINE
   8776	027136	022702 	003046'			CMP	#DHTBL,R2	;;; IS IT A DL-11??
   8777	027142	101350 				BHI	20$		;;; YES -- DO THIS LINE
   8778	027144	010400 				MOV	R4,R0		;;; NO -- SET UP POINTER TO TTY BUFFER FOR "..STTY"
   8779	027146	010037 	002626'			MOV	R0,.CRSND	;;; SET THAT THIS IS CURRENT SENDALL
   8780	027152				35$:
   8781	027152	032762 	000410 	000006 		BIT	#TT.NSA!TT.ABW,STSW1(R2) ;;; IGNORE SENDALL OR AUTO-BAUD WAIT??
   8782	027160	001033 				BNE	70$		;;; YES -- DON'T START THIS LINE BUT ACCOUNT FOR IT
   8783	027162	032762 	000002 	000006 		BIT	#TT.CTY,STSW1(R2) ;;; NO -- IS THIS A CTY??
   8784	027170	001403 				BEQ	45$		;;; NO -- GO ON
   8785	027172	005737 	002632'			TST	.TTP11		;;; YES -- IN -11 I/O WAIT??
   8786	027176	001014 				BNE	50$		;;; YES -- DON'T RESTART
   8787	027200				45$:
   8788	027200	032762 	000001 	000006 		BIT	#TT.OUT,STSW1(R2) ;;; ANY KIND OF OUTPUT PENDING??
   8789	027206	001010 				BNE	50$		;;; YES -- DON'T RESTART
   8790	027210	005762 	000002 			TST	TTYEXP(R2)	;;; [5.1004] DOES THE DEVICE EXIST??
   8791	027214	001415 				BEQ	70$		;;; [5.1004] NO -- ACCOUNT FOR SENDALL
   8792	027216					CALL	..STTY		;;; YES -- START SENDALL FOR THIS TTY
	027216	004737 	044726'			JSR	PC,..STTY
   8793	027222	052762 	001000 	000006 		BIS	#TT.SIP,STSW1(R2) ;;; MARK SENDALL IN PROGRESS
   8794	027230				50$:
   8795	027230	062702 	000010 			ADD	#8.,R2		;;; LOOK AT THE NEXT DH-11
   8796	027234	022702 	005046'			CMP	#TTYEND,R2	;;; [5.1004] DONE ALL DH-11'S??
   8797	027240	101344 				BHI	35$		;;; [5.1004] NO -- DO NEXT LINE
   8798	027242				55$:
   8799	027242	005037 	002626'			CLR	.CRSND		;;; YES -- CLEAR CURRENT SENDALL POINTER
   8803	027246					RETURN			;;; RETURN TO CALLER
	027246	000207 				RTS	PC
   8804						;
   8831
   8832	027250				70$:				;;; HERE TO PRETEND WE DID SENDALL ON LINE
   8833	027250	013701 	002604'			MOV	.SNDLP,R1	;;; GET POINTER TO CURRENT SENDALL + 1
   8834	027254	005301 				DEC	R1		;;; MAKE IT POINTER TO CURRENT
   8835	027256	042701 	177774 			BIC	#177774,R1	;;; WE ONLY WANT TWO BITS
   8836	027262	006301 				ASL	R1		;;; MAKE IT INTO A WORD INDEX
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 169-2
QUEUED PROTOCOL DRIVER -- SENDALL

   8837	027264	005361 	002616'			DEC	.SNDCN(R1)	;;; DECREMENT COUNT OF SENDALLS SENT
   8838	027270	003004 				BGT	80$		;;; IF SOME LEFT, DON'T FREE MESSAGE
   8839						;
   8840	027272				75$:
   8841	027272	005061 	002606'			CLR	.SNDBF(R1)	;;; INDICATE NONEXISTANT
   8842	027276					CALL	..DECN		;;; DEALLOCATE THE NODE
	027276	004737 	044546'			JSR	PC,..DECN
   8843	027302				80$:				;;; HERE TO FINISH DUMMY SENDALL
   8844	027302	062762 	040000 	000006 		ADD	#TT.SNI,STSW1(R2);;; BUMP INDEX TO NEXT SENDALL
   8845	027310	000747 				BR	50$		;;; AND DO THE NEXT LINE
   8846						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 170
QUEUED PROTOCOL DRIVER -- COPY BUFFER

   8848						.SBTTL	QUEUED PROTOCOL DRIVER -- COPY BUFFER
   8849
   8850					;
   8851					;	COPBUF -- ROUTINE TO COPY A TTY BUFFER AND CORRECT THE
   8852					;	ADDRESS OF THE BUFFER IN THE CURRENT ADDRESS POINTER
   8853					;
   8854					;	CALLING SEQUENCE:
   8855					;
   8856					;	R4 -- ADDRESS OF BUFFER TO BE COPIED
   8857					;
   8858					;	CALL	COPBUF
   8859					;
   8860					;	EXIT CONDITIONS:
   8861					;
   8862					;	R0 -- NEW BUFFER ADDRESS
   8863					;
   8864					;	REGISTERS ALTERED:
   8865					;
   8866					;	R1,R2,R5
   8867					;
   8868
   8869	027312				COPBUF::
   8870	027312	016401 	000002 			MOV	2(R4),R1	;;; SET UP THE BUFFER SIZE
   8871	027316					.ENBT			;;; [4.1.1035] ENABLE TASK SWITCHING
	027316	013746 	177776 			 MOV	@#PS,-(SP)
	027322	042737 	000340 	177776 		 BIC	#PRI7,@#PS
   8872	027330					CALL	..ALOW		; ALLOCATE A BUFFER
	027330	004737 	044706'			JSR	PC,..ALOW
   8873	027334					.INHT			; [4.1.1035] DISABLE TASK SWITCHING
	027334	012637 	177776 			 MOV	(SP)+,@#PS
   8874	027340	010405 				MOV	R4,R5		;;; SAVE R5 BUFFER POINTER
   8875	027342	010002 				MOV	R0,R2		;;; SAVE TTY BUFFER POINTER
   8876	027344	006201 				ASR	R1		;;; MAKE WORD INDEX
   8877	027346				10$:
   8878	027346	012522 				MOV	(R5)+,(R2)+	;;; COPY THE BUFFER
   8879	027350	077102 				SOB	R1,10$		;;; COPY UNTIL FINISHED
   8880	027352	010060 	000004 			MOV	R0,T.HCAD(R0)	;;; SET THE CURRENT ADDRESS
   8881	027356	062760 	000012 	000004 		ADD	#T.HHDS+2,T.HCAD(R0) ;;; CORRECT IT TO POINT TO BUFFER
   8882	027364					RETURN
	027364	000207 				RTS	PC
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 171
QUEUED PROTOCOL DRIVER -- MAP DH-11 TO DM-11

   8892						.SBTTL	QUEUED PROTOCOL DRIVER -- MAP DH-11 TO DM-11
   8893
   8894					;+
   8895					; FNDDM -- LOCAL SUBROUTINE TO MAP A DH-11 LINE TO A DM-11/BB
   8896					;
   8897					; INPUTS:
   8898					;
   8899					;	R5 -- POINTS TO DATA LINE SCANNER ENTRY FOR DH-11 LINE
   8900					;
   8901					; OUTPUTS:
   8902					;
   8903					;	R4 -- POINTS TO ASSOCIATED DM-11/BB CSR
   8904					;-
   8905
   8906	027366				FNDDM:
   8907	027366	010546 				MOV	R5,-(SP)	; [5.1004] SAVE R5
   8908	027370	012704 	002734'			MOV	#DMTBL,R4	; [5.1004] POINT TO THE DM-11/BB TABLE
   8909	027374	162705 	003046'			SUB	#DHTBL,R5	; [5.1004] GET OUR DISPLACMENT INTO "DHTBL"
   8910	027400				10$:
   8911	027400	162705 	000200 			SUB	#200,R5		; [5.1004] HAVE WE FOUND OUR DH-11??
   8912	027404	100402 				BMI	20$		; [5.1004] YES -- EXIT
   8913	027406	032424 				BIT	(R4)+,(R4)+	; [5.1004] NO -- TRY NEXT DM-11/BB
   8914	027410	000773 				BR	10$		; [5.1004] SO
   8915						;
   8916	027412				20$:
   8917	027412	012605 				MOV	(SP)+,R5	; [5.1004] RESTORE R5
   8918	027414	011404 				MOV	(R4),R4		; [5.1004] GET I/O PAGE ADDRESS OF DM-11/BB
   8919	027416					RETURN			; [5.1004] TO CALLER
	027416	000207 				RTS	PC
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 172
QUEUED PROTOCOL DRIVER -- FIND LINE SPEED

   8921						.SBTTL	QUEUED PROTOCOL DRIVER -- FIND LINE SPEED
   8922					;+
   8923					; FNDSPD -- FIND LINE SPEED
   8924					;
   8925					; THIS SUBROUTINE WILL MAP THE DECIMAL LINE SPEED IN R2 TO A DH-11 LINE SPEED MASK
   8926					;
   8927					; INPUTS:
   8928					;
   8929					;	R2 -- DECIMAL LINE SPEED
   8930					;
   8931					; OUTPUTS:
   8932					;
   8933					;	R3 -- DH-11 LINE SPEED MASK
   8934					;
   8935					;	IF A MATCH CANNOT BE FOUND, THE NODE IS DEALLOCATED AND CONTROL RETURNED
   8936					;	TO THE NEXT HIGHER LEVEL.
   8937					;-
   8938
   8939	027420				FNDSPD:
   8940	027420	012705 	024616'			MOV	#SPDTBL,R5	; FIND THE ADDRESS OF THE SPEED TABLE
   8941	027424	012701 	000016 			MOV	#SPDTBZ,R1	; SET UP THE TABLE SIZE
   8942	027430	005003 				CLR	R3		; SET UP COUNTER
   8943	027432				10$:
   8944	027432	020225 				CMP	R2,(R5)+	; COMPARE AGAINST TABLE
   8945	027434	001403 				BEQ	20$		; FOUND CORRECT ENTRY -- R3 IS CORRECT WHEN FOUND
   8946	027436	005203 				INC	R3		; UPDATE R3
   8947	027440	077104 				SOB	R1,10$		; TRY NEXT ENTRY
   8948	027442	000455 				BR	FDVNMF		; CAN'T FIND SPEED -- DEALLOCATE AND EXIT
   8949						;
   8950	027444				20$:
   8951	027444	000303 				SWAB	R3		; SET IN HIGH BYTE
   8952	027446					RETURN			; RETURN TO CALLER
	027446	000207 				RTS	PC
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 173
QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME

   8954						.SBTTL	QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME
   8955
   8956					;+
   8957					; FDVNMM -- FIND DEVICE NAME
   8958					;
   8959					; THIS SUBROUTINE WILL RETURN A POINTER TO A DEVICE TABLE ENTRY IN R2 IF THE
   8960					; DEVICE EXISTS IN THE SYSTEM.
   8961					;
   8962					; INPUTS:
   8963					;
   8964					;	R0 -- POINTS TO THE TO11Q PACKET
   8965					;	R4 -- POINTS TO THE TO11Q PACKET
   8966					;
   8967					; OUTPUTS:
   8968					;
   8969					;	R0 -- POINTS TO THE TO11Q PACKET
   8970					;	R1 -- POINTS TO THE DEVICE (PUD) TABLE FOR THIS DEVICE
   8971					;	R2 -- POINTS TO THE DRIVER TABLE ENTRY FOR THE DEVICE
   8972					;	R4 -- POINTS TO THE TO11Q PACKET
   8973					;
   8974					; NOTE:
   8975					;
   8976					; 	IF THE DEVICE DOES NOT EXIST, "FDVNMM" ACKNOWLEGES THE PACKET
   8977					;	AND IMMEDIATELY DEQUEUES IT WITHOUT RETURNING TO THE CALLING ROUTINE
   8978					;-
   8979
   8980						.ENABL	LSB
   8981
   8982	027450				FDVNMM:
   8983	027450	016001 	000006 			MOV	E.DV(R0),R1	;FIND DEVICE
   8984	027454	016003 	000010 			MOV	E.FW(R0),R3	;FIND FIRST WORD
   8985	027460	005046 				CLR	-(SP)		;SAVE ENTRY FLAG
   8986	027462	000402 				BR	10$
   8987						;
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 174
QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME

   8989						.SBTTL	QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME
   8990
   8991					;+
   8992					; FDVNM -- FIND DEVICE NAME
   8993					;
   8994					; THIS ROUTINE PERFORMS EXACTLY THE SAME THE SAME FUNCTION AS "FDVNMM",
   8995					; ABOVE, EXCEPT THAT IT WILL RETURN WITH CC-C SET IF THE DEVICE DOES NOT EXIST.
   8996					;
   8997					; INPUTS:
   8998					;
   8999					;	R0 -- POINTS TO THE TO11Q PACKET
   9000					;	R1 -- CONTAINS THE DEVICE CODE FOR THE DEVICE
   9001					;	R3 -- CONTAINS THE FIRST WORD FROM THE T011Q PACKET
   9002					;	R4 -- POINTS TO THE TO11Q PACKET
   9003					;
   9004					; OUTPUTS:
   9005					;
   9006					;	R0 -- POINTS TO THE TO11Q PACKET
   9007					;	R1 -- CONTAINS THE DEVICE (PUD) OFFSET + 20 FOR THIS DEVICE
   9008					;	R2 -- POINTS TO THE DRIVER TABLE ENTRY FOR THE DEVICE
   9009					;	R4 -- POINTS TO THE TO11Q PACKET
   9010					;
   9011					; NOTE:
   9012					;
   9013					; 	IF THE DEVICE DOES NOT EXIST, THE T011Q PACKET IS ACKNOWLEDGED
   9014					;	AND CC-C IS SET FOR THE RETURN.
   9015					;-
   9016
   9017	027464				FDVNM:
   9018	027464	012746 	177777 			MOV	#-1,-(SP)	; SAVE ENTRY FLAG
   9019	027470				10$:
   9020	027470	010546 				MOV	R5,-(SP)	; SAVE REGISTERS
   9021	027472	010446 				MOV	R4,-(SP)
   9022	027474	010146 				MOV	R1,-(SP)	; SAVE DEVICE
   9023	027476	006301 				ASL	R1		; FIND THE DEVICE ADDRESS
   9024	027500	006301 				ASL	R1
   9025	027502	006301 				ASL	R1
   9026	027504	006301 				ASL	R1
   9027	027506	116105 	010014'			MOVB	.DQPBA-20+Q.TS(R1),R5 ; FIND THE SIZE OF A TABLE ENTRY
   9028	027512	016102 	010012'			MOV	.DQPBA-20+Q.DA(R1),R2 ; FIND THE TABLE HEAD ADDRESS
   9029	027516	105003 				CLRB	R3		; FIND THE LINE NUMBER
   9030	027520	000303 				SWAB	R3		; PUT IT IN LOWER ORDER OF BYTE
   9031	027522	010346 				MOV	R3,-(SP)	; SAVE LINE NUMBER
   9032	027524	126103 	010030'			CMPB	.DQPBA-20+Q.DZ(R1),R3 ; IS THIS A LEGAL NUMBER?
   9033	027530	101425 				BLOS	80$		; NO -- IGNORE IT -- NOTE THIS SETS C BIT
   9034	027532				20$:
   9035	027532	005303 				DEC	R3		; ATTEMPT TO FIND THE ADDRESS OF THE HEAD OF THE LIST
   9036	027534	100402 				BMI	30$		; FOUND IT -- QUIT -- NOTE THIS SHOULD CLEAR C
   9037	027536	060502 				ADD	R5,R2		; MULTIPLY BY TABLE ENTRY SIZE
   9038	027540	000774 				BR	20$		; AND TRY AGAIN
   9039						;
   9040	027542				30$:
   9041	027542	026627 	000002 	000004 		CMP	2(SP),#D.CDLS	; [5.1004] TERMINAL DEVICE??
   9042	027550	101003 				BHI	40$		; [5.1004] NO -- GO ON - (NOTE: CC-C CLEAR)
   9043	027552	005762 	000002 			TST	TTYEXP(R2)	; [5.1004] YES -- DOES THE TERMINAL EXIST??
   9044	027556	001412 				BEQ	80$		; [5.1004] NO -- SAY THAT IT DOES NOT
   9045	027560				40$:
QPRDRV	-- QUEUED PROTOCOL DRIV	MACRO M1113  10-NOV-81 18:56  PAGE 174-1
QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME

   9046	027560	032626 				BIT	(SP)+,(SP)+	; [5.1004] YES -- CLEAR STACK
   9047	027562				50$:
   9048	027562	012604 				MOV	(SP)+,R4
   9049	027564	012605 				MOV	(SP)+,R5	; RESTORE REGISTERS
   9050	027566	005226 				INC	(SP)+		; REMOVE THE ENTRY FLAG
   9051	027570	103001 				BCC	60$		; [5.1004] JUST EXIT IF CC-C IS CLEAR
   9052	027572	001001 				BNE	70$		; [5.1004] DEQUEUE IMMEDIATELY IF WE MUST
   9053	027574				60$:
   9054	027574					RETURN			; RETURN TO CALLER
	027574	000207 				RTS	PC
   9055					;
   9056					; HERE TO SIMPLY DEALLOCATE TO11Q PACKET AND RETURN TO TOP OF TASK
   9057					;
   9058	027576				FDVNMF:
   9059	027576				70$:
   9060	027576	005726 				TST	(SP)+		; FLUSH RETURN
   9061	027600	000137 	026654'			JMP	DEANOD		; DEALLOCATE AND START NEXT PACKET
   9062						;
   9063					;
   9064					; HERE TO ACKNOWLEDGE NON-EXISTENT DEVICE
   9065					;
   9066	027604				80$:
   9067	027604	012604 				MOV	(SP)+,R4	; SET LINE NUMBER
   9068	027606	012603 				MOV	(SP)+,R3	; SET DEVICE NAME
   9069	027610	012701 	000017 			MOV	#BC.SAK,R1	; ACKNOWLEDGE PACKET
   9070	027614					CALL	..STFC		; START FUNCTION
	027614	004737 	045456'			JSR	PC,..STFC
   9071	027620	000261 				SEC			; SET ERROR
   9072	027622	000757 				BR	50$		; AND RETURN
   9073						;
   9074
   9075						.DSABL	LSB
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 175
QUEUED PROTOCOL DRIVER -- FIND DEVICE NAME

   9077						.TITLE	DTEDRV -- DTE-20 DRIVER FOR RSX-20F
   9078						.SBTTL	DTE-20 DRIVER -- COPYRIGHT STATEMENT
   9079	027624					IDENT$	14,31
						.IDENT	/014310/
   9080
   9081					;
   9082					;              	              COPYRIGHT (C) 1975, 1980 BY
   9083					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   9084					;
   9085					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   9086					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   9087					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   9088					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   9089					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   9090					;
   9091					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   9092					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   9093					;       CORPORATION.
   9094					;
   9095					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   9096					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   9097					;
   9098					;	MODULE:		DTE-20 DRIVER FOR RSX-20F
   9099					;
   9100					;	VERSION:	14-31
   9101					;
   9102					;	AUTHOR:		ROLAND BELANGER
   9103					;
   9104					;	DATE:		15-MAR-80
   9105					;
   9106					;	THIS MODULE CONTAINS:
   9107					;
   9108					;		1) DTE-20 INTERRUPT SERVICE
   9109					;		2) DEVICE DEPENDENT DTE-20 SERVICE
   9110					;		3) DEVICE DEPENDENT QUEUED PROTOCOL SERVICE
   9111					;
   9112					; THIS MODULE WAS SPLIT OUT OF "QPRDTE.MAC" AND REWRITTEN AS A PART OF
   9113					; TCO 4.1.1121
   9114					;
   9115					; TCO 4.1.1137	05-APR-80	R. BELANGER	LIMIT LENGTH OF TO-11 QUEUE
   9116					; TCO 5.1041	18-MAY-80	S. LEAPLINE	CHECK FREE POOL BYTES LEFT
   9117
   9118						.MCALL	CALL,RETURN,.CRASH,$DEF
   9119
   9120	027624					$DEF
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 176
DTE-20 DRIVER -- DTE-20 INTERRUPT HEAD

   9122						.SBTTL	DTE-20 DRIVER -- DTE-20 INTERRUPT HEAD
   9123
   9124					;+
   9125					; .DTINT -- DTE-20 INTERRUPT HEAD
   9126					;
   9127					; THIS IS THE HEAD OF THE DTE-20 INTERRUPT SERVICE.  ALL DTE-20 INTERRUPTS ARE
   9128					; VECTORED HERE, AND ALL DTE-20 INTERRUPTS ARE DISMISSED FROM THIS ROUTINE.
   9129					;
   9130					; SINCE A DTE-20 CAN HAVE MULTIPLE INTERRUPTS PENDING, AN ATTEMPT TO DISMISS
   9131					; ANY GIVEN INTERRUPT FORCES A SCAN FOR ALL OTHER POSSIBLE INTERRUPTS BEFORE
   9132					; THE DISMISSAL IS GRANTED.
   9133					;
   9134					; INTERRUPTS SERVICED HERE ARE:
   9135					;
   9136					;	TO-10 TRANSFER DONE
   9137					;	TO-11 TRANSFER DONE
   9138					;	DOORBELL
   9139					;
   9140					; ERRORS HANDLED HERE ARE:
   9141					;
   9142					;	TO-10 DONE ERROR TERMINATION (TET)
   9143					;	PDP-11 MEMORY PARITY ERROR ON BYTE TRANSFER (TET)
   9144					;	TO-11 DONE ERROR TERMINATION (ETE)
   9145					;
   9146					; INPUTS:
   9147					;
   9148					;	NONE
   9149					;
   9150					; OUTPUTS:
   9151					;
   9152					;	NO REGISTERS ALTERED ON DISMISSAL
   9153					;
   9154					;	R0 -- POINTS TO DTE-20 ON SERVICE DISPATCH
   9155					;	R1 -- POINTS TO DTE-20 STATUS REGISTER ON SERVICE DISPATCH
   9156					;	R3 -- POINTS TO "PROTBL" ON SERVICE DISPATCH
   9157					;-
   9158
   9159
   9160	027624				.DTINT::
   9161	027624	010046 				MOV	R0,-(SP)	;;; SAVE REGISTERS
   9162	027626	010146 				MOV	R1,-(SP)
   9163	027630	010246 				MOV	R2,-(SP)
   9164	027632	010346 				MOV	R3,-(SP)
   9165	027634	010446 				MOV	R4,-(SP)
   9166	027636	010546 				MOV	R5,-(SP)
   9167	027640				INTLPS:
   9168	027640	013700 	001360'			MOV	.PRDTE,R0	;;; BASE ADDRESS OF PRIVILEGED DTE-20
   9169	027644	013703 	001354'			MOV	.PRADR,R3	;;; POINTER TO OUR PROCESSOR TABLE
   9170	027650	013701 	001356'			MOV	.PRSTA,R1	;;; COPY INTERRUPT FLAGS TO R1
   9171	027654	032711 	121000 			BIT	#TO10DN!TO10ER!MPE11,(R1) ;;; TO-10 DONE OR ERROR??
   9172	027660	100432 				BMI	.TENDN		;;; TO-10 DONE
   9173	027662	001403 				BEQ	10$		;;; NO ERRORS -- GO ON
   9174	027664					.CRASH	TET		;;; ERROR -- DIE!
	027664	000004 				IOT
	027666	   124 	   105 	   124 		.ASCIZ	/TET/
	027671	   000
   9175						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 176-1
DTE-20 DRIVER -- DTE-20 INTERRUPT HEAD

   9176	027672				10$:
   9177	027672	132711 	000202 			BITB	#TO11DN!TO11ER,(R1) ;;; TO-11 DONE OR ERROR??
   9178	027676	100556 				BMI	.ELEDN		;;; TO-11 DONE
   9179	027700	001403 				BEQ	20$		;;; NO ERRORS -- GO ON
   9180	027702					.CRASH	ETE		;;; ERROR -- DIE AGAIN!
	027702	000004 				IOT
	027704	   105 	   124 	   105 		.ASCIZ	/ETE/
	027707	   000
   9181						;
   9182	027710				20$:
   9183	027710	032711 	004000 			BIT	#TO11DB,(R1)	;;; HOW ABOUT A DOORBELL??
   9184	027714	001404 				BEQ	DTEXIT		;;; NO -- DISMISS INTERRUPT
   9185	027716	005237 	001362'			INC	.PRDCT		;;; YES -- COUNT THE DOORBELL
   9186	027722	000137 	030540'			JMP	.DRBEL		;;; AND SERVICE IT
   9187						;
   9188	027726				DTEXIT:
   9189	027726	012605 				MOV	(SP)+,R5	;;; RESTORE THE REGISTERS
   9190	027730	012604 				MOV	(SP)+,R4
   9191	027732	012603 				MOV	(SP)+,R3
   9192	027734	012602 				MOV	(SP)+,R2
   9193	027736	012601 				MOV	(SP)+,R1
   9194	027740	012600 				MOV	(SP)+,R0
   9195	027742	000137 	014632'			JMP	..INTX		;;; COMMON INTERRUPT EXIT
   9196						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 177
DTE-20 DRIVER -- TO-10 DONE SERVICE

   9198						.SBTTL	DTE-20 DRIVER -- TO-10 DONE SERVICE
   9199
   9200					;+
   9201					; .TENDN -- TO-10 DONE INTERRUPT SERVICE
   9202					;
   9203					; THIS IS THE TO-10 DONE INTERRUPT SERVICE.  FUNCTIONS PROVIDED HERE ARE:
   9204					;
   9205					;	TO-10 TRANSFER END CHECKS
   9206					;	TO-10 TRANSFER TERMINATION PROCESSING
   9207					;	TO-10 QUEUE NODE DELETION AND DEALLOCATION
   9208					;	TO-10 TRANSFER INITIATION (".STTNQ")
   9209					;	TO-10 INDIRECT TRANSFER CONTINUATION
   9210					;
   9211					; ERRORS HANDLED HERE ARE:
   9212					;
   9213					;	TO-10 TRANSFER END CHECK FAILURE (DTF)
   9214					;
   9215					; INPUTS:
   9216					;
   9217					;	R0 -- POINTS TO DTE-20
   9218					;	R1 -- POINTS TO DTE-20 STATUS REGISTER
   9219					;	R3 -- POINTS TO PROCESSOR TABLE ENTRY
   9220					;
   9221					; OUTPUTS:
   9222					;
   9223					;	NONE -- REGISTERS ARE NOT NECESSARILY PRESERVED
   9224					;-
   9225
   9226	027746				.TENDN::
   9227	027746	012711 	040000 			MOV	#DON10C,(R1)	;;; CLEAR THE TO-10 DONE FLAG
   9228	027752	013704 	001314'			MOV	TO10SZ,R4	;;; GET THE TRANSFER SIZE
   9229	027756	063704 	001316'			ADD	TO10AS,R4	;;; ADD THE STARTING ADDRESS TO IT
   9230	027762	020460 	000020 			CMP	R4,T10AD(R0)	;;; DID IT FINISH WHERE WE EXPECTED IT TO??
   9231	027766	001403 				BEQ	10$		;;; YES -- GO ON
   9232	027770					.CRASH	DTF		;;; NO -- DIE!
	027770	000004 				IOT
	027772	   104 	   124 	   106 		.ASCIZ	/DTF/
	027775	   000
   9233						;
   9234					;
   9235					; HERE TO FINISH UP A TO-10 TRANSFER
   9236					;
   9237	027776				10$:
   9238	027776	012737 	000001 	001316'		MOV	#1,TO10AS	;;; SAY WE EXPECT NO TRANSFER
   9239	030004	013704 	001326'			MOV	TO10Q,R4	;;; POINT TO THE TO-10 QUEUE
   9240	030010	005764 	000012 			TST	12(R4)		;;; CHECK TRANSFER TYPE
   9241	030014	100432 				BMI	STIND2		;;; INDIRECT HEADER -- START SECOND PART
   9242	030016	001010 				BNE	20$		;;; DIRECT FUNCTION -- FINISH IT UP
   9243					;
   9244					; HERE TO FINISH A TO-10 INDIRECT TRANSFER
   9245					;
   9246	030020	053777 	001266'	151242 		BIS	DTEMSK,@DTEADR	;;; SET ANY EVENT FLAGS
   9247	030026					CALL	..DSEV		;;; AND DECLARE A SIGNIFICANT EVENT
	030026	004737 	044026'			JSR	PC,..DSEV
   9248	030032	042737 	000006 	001322'		BIC	#TOIP!TOBM,STSTT+2 ;;; CLEAR INDIRECT IN PROGRESS
   9249					;
   9250					; HERE TO FINISH A DIRECT OR INDIRECT TRANSFER
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 177-1
DTE-20 DRIVER -- TO-10 DONE SERVICE

   9251					;
   9252	030040				20$:
   9253	030040					CALL	..NDEL		;;; REMOVE THE NODE FROM THE TO-10 QUEUE
	030040	004737 	044062'			JSR	PC,..NDEL
   9254	030044	016401 	000004 			MOV	4(R4),R1	;;; FIND THE SIZE OF THE NODE TO RETURN
   9255	030050	010400 				MOV	R4,R0		;;; POINT TO THE NODE
   9256	030052					CALL	..DECB		;;; RETURN THE NODE
	030052	004737 	044552'			JSR	PC,..DECB
   9257	030056	105037 	001373'			CLRB	TOXQIP		;;; RESET THE TO-10 QUEUE IN PROGRESS FLAG
   9258	030062	013704 	001326'			MOV	TO10Q,R4	;;; POINT TO THE LISTHEAD
   9259	030066	022704 	001326'			CMP	#TO10Q,R4	;;; IS THE TO-10 QUEUE EMPTY??
   9260	030072	001662 				BEQ	INTLPS		;;; YES -- DONE WITH THIS INTERRUPT
   9261	030074					CALL	.STTNQ		;;; NO -- SEE IF ANOTHER NODE MAY BE STARTED
	030074	004737 	031362'			JSR	PC,.STTNQ
   9262	030100	000657 				BR	INTLPS		;;; AND EXIT
   9263						;
   9264					;
   9265					; HERE TO START SECOND HALF OF AN INDIRECT TRANSFER
   9266					;
   9267	030102				STIND2:
   9268	030102	005064 	000012 			CLR	12(R4)		;;; RESET INDIRECT PENDING SEMAPHORE
   9269					;
   9270					; HERE TO SET UP THE TRANSFER SIZE IN THE COMM REGION
   9271					;
   9272	030106	062704 	000020 			ADD	#20,R4		;;; POINT TO THE BYTE COUNT
   9273	030112	005060 	000006 			CLR	DXWD1(R0)	;;; LOAD UP THE TRANSFER SIZE
   9274	030116	005060 	000004 			CLR	DXWD2(R0)
   9275	030122	005005 				CLR	R5		;;; CLEAR R5
   9276	030124	152405 				BISB	(R4)+,R5	;;; GET THE TRANSFER SIZE
   9277	030126	105724 				TSTB	(R4)+		;;; ADVANCE TO NEXT WORD
   9278	030130	010537 	001314'			MOV	R5,TO10SZ	;;; SAVE THE BYTE COUNT FOR END CHECKS
   9279	030134	010560 	000002 			MOV	R5,DXWD3(R0)	;;; AND SET IT
   9280	030140	011437 	001316'			MOV	(R4),TO10AS	;;; SAVE THE START ADDRESS FOR END CHECKS
   9281	030144	012460 	000020 			MOV	(R4)+,T10AD(R0) ;;; SET UP THE SOURCE ADDRESS
   9282	030150	012705 	000003 			MOV	#QSIZE-FORPRO,R5 ;;; OFFSET FOR TRANSFER SIZE
   9283	030154	066305 	000004 			ADD	DMYN(R3),R5	;;; ADD IN COMM REGION OFFSET
   9284	030160	012760 	010000 	000010 		MOV	#DEP,TNAD1(R0)	;;; THIS IS A DEPOSIT
   9285	030166	010560 	000012 			MOV	R5,TNAD2(R0)	;;; THIS STARTS THE TRANSFER
   9286	030172					CALL	..WFED		;;; WAIT FOR IT TO COMPLETE
	030172	004737 	046216'			JSR	PC,..WFED
   9287					;
   9288					; HERE TO SEND OUR STATUS TO THE TEN
   9289					;
   9290	030176	052737 	000006 	001322'		BIS	#TOIP!TOBM,STSTT+2 ;;; SET INDIRECT IN PROGRESS AND BYTE MODE
   9291	030204	005060 	000036 			CLR	DAG3(R0)	;;; SET FRONT-END WORD MODE
   9292	030210					CALL	SNDSTS		;;; SEND STATUS TO THE TEN
	030210	004737 	031536'			JSR	PC,SNDSTS
   9293					;
   9294					; HERE TO SET UP FOR NORMAL INDIRECT TERMINATION
   9295					;
   9296	030214	012437 	001266'			MOV	(R4)+,DTEMSK	;;; FIND THE EVENT FLAGS
   9297	030220	011437 	001270'			MOV	(R4),DTEADR	;;; AND WHERE THEY BELONG
   9298	030224	012777 	000400 	151124 		MOV	#TO10DB,@.PRSTA	;;; RING HIS DOORBELL
   9299	030232	000602 				BR	INTLPS		;;; AND GO AWAY
   9300						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 178
DTE-20 DRIVER -- TO-11 DONE SERVICE

   9302						.SBTTL	DTE-20 DRIVER -- TO-11 DONE SERVICE
   9303
   9304					;+
   9305					; .ELEDN -- TO-11 DONE SERVICE
   9306					;
   9307					; THIS IS THE TO-11 DONE SERVICE.  FUNCTIONS PROVIDED HERE ARE:
   9308					;
   9309					;	TO-11 TRANSFER END CHECKS
   9310					;	TO-11 QUEUE NODE ENTRY
   9311					;	TO-11 TRANSFER TERMINATION POCESSING
   9312					;	BASIC PROTOCOL ERROR PROCESSING
   9313					;
   9314					; ERRORS PROCESSED HERE ARE:
   9315					;
   9316					;	TO-11 TRANSFER TERMINATION ERROR (DTB)
   9317					;	ILLEGAL PROTOCOL DEVICE CODE (PT1)
   9318					;	ILLEGAL PROTOCOL FUNCTION CODE (PT2)
   9319					;
   9320					; INPUTS:
   9321					;
   9322					;	R0 -- POINTS TO DTE-20
   9323					;	R1 -- POINTS TO DTE-20 STATUS REGISTER
   9324					;	R3 -- POINTS TO PROCESSOR TABLE ENTRY
   9325					;
   9326					; OUTPUTS:
   9327					;
   9328					;	NONE -- REGISTERS ARE NOT NECESSARILY PRESERVED
   9329					;-
   9330
   9331	030234				.ELEDN::
   9332	030234	012711 	000100 			MOV	#DON11C,(R1)	;;; CLEAR TO-11 DONE FLAG
   9333	030240	013701 	001312'			MOV	TO11BS,R1	;;; GET OUR SAVED BYTE COUNT
   9334	030244	052701 	170000 			BIS	#170000,R1	;;; DO THE SIGN EXTENSION
   9335	030250	005401 				NEG	R1		;;; MAKE IT A POSITIVE INTEGER
   9336	030252	032737 	020000 	001312'		BIT	#TO11BM,TO11BS	;;; WERE WE IN BYTE MODE??
   9337	030260	001001 				BNE	10$		;;; YES -- GO ON
   9338	030262	006301 				ASL	R1		;;; NO -- MAKE IT A WORD COUNT
   9339	030264				10$:
   9340	030264	063701 	001310'			ADD	TO11AS,R1	;;; COMPUTE WHERE WE SHOULD HAVE FINISHED
   9341	030270	020160 	000022 			CMP	R1,T11AD(R0)	;;; ARE WE THERE??
   9342	030274	001406 				BEQ	20$		;;; YES -- GO ON
   9343	030276	016027 	000022 			MOV	T11AD(R0),(PC)+	;;; NO -- SAVE WHERE WE ARE FOR DUMP
   9344	030302	000000 				.WORD	0
   9345	030304					.CRASH	DTB		;;; AND DIE!
	030304	000004 				IOT
	030306	   104 	   124 	   102 		.ASCIZ	/DTB/
	030311	   000
   9346						;
   9347	030312				20$:
   9348	030312	000337 	001276'			SWAB	TO11FN		;;; SWAP THE BYTES
   9349	030316	001017 				BNE	FELXFR		;;; IN PROGRESS -- PROCESS IT
   9350					;
   9351					; HERE TO ENTER A NEW NODE IN THE TO-11 QUEUE
   9352					;
   9353	030320				ENTELQ:
   9354	030320	013701 	001272'			MOV	TO11NP,R1	;;; DONE -- POINT TO THE NEW NODE
   9355	030324	012704 	001334'			MOV	#TO11Q,R4	;;; POINT TO THE LISTHEAD
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 178-1
DTE-20 DRIVER -- TO-11 DONE SERVICE

   9356	030330				10$:
   9357	030330	010402 				MOV	R4,R2		;;; SAVE CURRENT NODE POINTER
   9358	030332	011404 				MOV	(R4),R4		;;; FIND THE END OF THE QUEUE
   9359	030334	001375 				BNE	10$		;;; NOT YET -- KEEP GOING
   9360	030336	005011 				CLR	(R1)		;;; MARK NEW LIST TERMINATOR
   9361	030340	010112 				MOV	R1,(R2)		;;; AND LINK IN NEW NODE
   9362	030342	052737 	000100 	007132'		BIS	#EF.TED,DTETSK+A.EF ;;; WAKE UP THE QUEUED PROTOCOL DRIVER
   9363	030350					CALL	..DSEV		;;; SO
	030350	004737 	044026'			JSR	PC,..DSEV
   9364	030354	000462 				BR	TOITDN		;;; AND DONE...
   9365						;
   9366					;
   9367					; HERE TO FINISH A TO-11 DIRECT TRANSFER
   9368					;
   9369	030356				FELXFR:
   9370	030356	000337 	001274'			SWAB	TO11HD		;;; SWAP THE SIZE BYTES
   9371	030362	000337 	001300'			SWAB	TO11DV		;;; AND THE DEVICE CODE BYTES
   9372	030366	022737 	000010 	001300'		CMP	#.DQPSZ,TO11DV	;;; IS THE DEVICE CODE LEGAL??
   9373	030374	103003 				BHIS	10$		;;; YES -- GO ON
   9374	030376					.CRASH	PT1		;;; NO -- DIE!
	030376	000004 				IOT
	030400	   120 	   124 	   061 		.ASCIZ	/PT1/
	030403	   000
   9375						;
   9376	030404				10$:
   9377	030404	123727 	001276'	000040 		CMPB	TO11FN,#BC.FNM	;;; IS THIS A LEGAL FUNCTION??
   9378	030412	103403 				BLO	20$		;;; YES -- GO ON
   9379	030414					.CRASH	PT2		;;; NO -- DIE!
	030414	000004 				IOT
	030416	   120 	   124 	   062 		.ASCIZ	/PT2/
	030421	   000
   9380						;
   9381	030422				20$:
   9382	030422	005737 	001276'			TST	TO11FN		;;; INDIRECT IN PROGRESS??
   9383	030426	100007 				BPL	30$		;;; NO -- GO ON
   9384	030430	010046 				MOV	R0,-(SP)	;;; YES -- SAVE DTE-20 POINTER
   9385	030432	013700 	001272'			MOV	TO11NP,R0	;;; POINT TO PRE-ALLOCATED BUFFER
   9386	030436					CALL	..DECN		;;; AND GET RID OF IT
	030436	004737 	044546'			JSR	PC,..DECN
   9387	030442	012600 				MOV	(SP)+,R0	;;; RESTORE DTE-20 POINTER
   9388	030444	000426 				BR	TOITDN		;;; SET QUEUE IDLE STATE AND EXIT
   9389						;
   9390	030446				30$:
   9391	030446	013705 	001272'			MOV	TO11NP,R5	;;; GET THE NODE POINTER
   9392	030452					CALL	LODNOD		;;; AND LOAD IT UP
	030452	004737 	031712'			JSR	PC,LODNOD
   9393	030456	010502 				MOV	R5,R2		;;; SET UP THE ADDRESS IN CASE EXTENDED DIRECT
   9394	030460	005037 	001276'			CLR	TO11FN		;;; RELEASE FIXED BUFFER
   9395	030464	013701 	001274'			MOV	TO11HD,R1	;;; FIND THE BYTE COUNT
   9396	030470	162701 	000012 			SUB	#^D10,R1	;;; ARE WE FINISHED??
   9397	030474	001711 				BEQ	ENTELQ		;;; YES -- ENTER THE NODE IN THE QUEUE AND EXIT
   9398					;
   9399					; HERE FOR AN EXTENDED DIRECT TRANSFER
   9400					;
   9401	030476	160137 	001332'			SUB	R1,EQSZ		;;; NO -- ACCOUNT FOR THE HEADER
   9402	030502	005401 				NEG	R1		;;; NEGATE THE BYTE COUNT
   9403	030504	042701 	170000 			BIC	#^C7777,R1	;;; TRIM TO BYTE COUNT
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 178-2
DTE-20 DRIVER -- TO-11 DONE SERVICE

   9404	030510	052701 	120000 			BIS	#TO11BM!IFLOP,R1 ;;; SET THE MODE FLAGS
   9405	030514					CALL	STBXFR		;;; START THE TRANSFER
	030514	004737 	031670'			JSR	PC,STBXFR
   9406	030520	000405 				BR	TEDXIT		;;; AND EXIT
   9407						;
   9408					;
   9409					; HERE TO RETURN DONE STATUS TO THE KL
   9410					;
   9411	030522				TOITDN:
   9412	030522	042737 	000001 	001322'		BIC	#TOIT,STSTT+2	;;; CLEAR PROCESSING QUEUE STATUS
   9413	030530					CALL	SNDSTS		;;; SEND THE STATUS
	030530	004737 	031536'			JSR	PC,SNDSTS
   9414	030534				TEDXIT:
   9415	030534	000137 	027640'			JMP	INTLPS		;;; CHECK OTHER DTE-20 STATUS AND DISMISS
   9416						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 179
DTE-20 DRIVER -- DOORBELL SERVICE

   9418						.SBTTL	DTE-20 DRIVER -- DOORBELL SERVICE
   9419
   9420					;+
   9421					; .DRBEL -- DOORBELL SERVICE
   9422					;
   9423					; THIS IS THE DOORBELL SERVICE.  FUNCTIONS PROVIDED HERE ARE:
   9424					;
   9425					;	REQUESTED RELOAD SERVICE
   9426					;	POWERFAIL WARNING SERVICE
   9427					;	PROTOCOL PAUSE ENTRANCE SERVICE
   9428					;	TO-11 HEADER TRANSFER INITIATION
   9429					;	TO-11 INDIRECT TRANSFER CONTINUATION
   9430					;	DOORBELL ERROR PROCESSING
   9431					;
   9432					; ERRORS PROCESSED HERE ARE:
   9433					;
   9434					;	UNIMPLEMENTED DTE-20 PROTOCOL FUNCTION (UIE)
   9435					;	UNSYNCHRONIZED TO-11 INDIRECT TRANSFER (PT3)
   9436					;	UNSYNCHRONIZED HEADER TRANSFER (ILQ)
   9437					;	TO-11 TRANSFER TOO LARGE (PT4)
   9438					;
   9439					; INPUTS:
   9440					;
   9441					;	R0 -- POINTS TO DTE-20
   9442					;	R1 -- POINTS TO DTE-20 STATUS REGISTER
   9443					;	R3 -- POINTS TO PROCESSOR TABLE ENTRY
   9444					;
   9445					; OUTPUTS:
   9446					;
   9447					;	NONE -- REGISTERS ARE NOT NECESSARILY PRESERVED
   9448					;-
   9449
   9450	030540				.DRBEL::
   9451	030540	012711 	002000 			MOV	#INT11C,(R1)	;;; CLEAR RINGING DOORBELL
   9452	030544	005060 	000010 			CLR	TNAD1(R0)	;;; SET UP TO READ DOORBELL STATUS
   9453	030550	012702 	000002 			MOV	#STATUS-FORPRO,R2 ;;; POINT TO THE STATUS WORD
   9454	030554	066302 	000010 			ADD	EHSM(R3),R2	;;; IN HIS SECTION FOR ME
   9455	030560	010260 	000012 			MOV	R2,TNAD2(R0)	;;; START THE EXAMINE
   9456	030564					CALL	..WFED		;;; WAIT FOR IT TO FINISH
	030564	004737 	046216'			JSR	PC,..WFED
   9457	030570	103427 				BCS	DBLEPX		;;; EXIT IF ERROR
   9458	030572	012701 	001344'			MOV	#STATI+6,R1	;;; POINT TO BOTTOM OF STATUS BLOCK
   9459	030576	016041 	000002 			MOV	DXWD3(R0),-(R1)	;;; AND REVERSE-UNLOAD THE STATUS
   9460	030602	016041 	000004 			MOV	DXWD2(R0),-(R1)	;;; SO
   9461	030606	016041 	000006 			MOV	DXWD1(R0),-(R1)	;;; CHECK VALID EXAMINE
   9462	030612	001414 				BEQ	DBLEPP		;;; NOT THERE -- ENTER PROTOCOL PAUSE
   9463					;
   9464					; HERE TO CHECK FOR RELOAD AND POWERFAIL
   9465					;
   9466					;	R1 POINTS TO STATI
   9467					;
   9468	030614	032721 	000016 			BIT	#16,(R1)+	;;; IS THIS A RELOAD OR POWERFAIL??
   9469	030620	001433 				BEQ	DBLXFR		;;; NO -- SEE ABOUT HEADERS AND INDIRECTS
   9470	030622	032741 	000004 			BIT	#LOAD11,-(R1)	;;; YES -- IS IT A RELOAD??
   9471	030626	001012 				BNE	DBLRLD		;;; YES -- RELOAD HIM
   9472	030630	032711 	000010 			BIT	#KLPWRF,(R1)	;;; NO -- IS IT A POWERFAIL??
   9473	030634	001021 				BNE	DBLPWR		;;; YES -- SET UP TO TAKE IT
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 179-1
DTE-20 DRIVER -- DOORBELL SERVICE

   9474	030636					.CRASH	UIE		;;; NO -- UNIMPLEMENTED FUNCTION
	030636	000004 				IOT
	030640	   125 	   111 	   105 		.ASCIZ	/UIE/
	030643	   000
   9475						;
   9476					;
   9477					; HERE TO ENTER PROTOCOL PAUSE
   9478					;
   9479	030644				DBLEPP:
   9480	030644					CALL	..DTP2		;;; START SECONDARY PROTOCOL
	030644	004737 	047006'			JSR	PC,..DTP2
   9481	030650				DBLEPX:
   9482	030650	000137 	027726'			JMP	DTEXIT		;;; AND DISMISS
   9483						;
   9484					;
   9485					; HERE TO INITIATE A KL RELOAD
   9486					;
   9487	030654				DBLRLD:
   9488	030654	052737 	000040 	001126'		BIS	#KS.TRR,.KLITK	;;; REQUEST THE RELOAD
   9489	030662	105237 	001122'			INCB	.NOERR		;;; MARK THAT AN ERROR IS BEING SERVICED
   9490	030666					CALL	..DTSP		;;; CLEAR ALL PROTOCOLS
	030666	004737 	046770'			JSR	PC,..DTSP
   9491	030672	105237 	001124'			INCB	.TKTN		;;; REQUEST NOTIFICATION
   9492	030676	000462 				BR	DBLDON		;;; AND EXIT
   9493						;
   9494					;
   9495					; HERE TO INITIALIZE FOR IMPENDING POWERFAIL
   9496					;
   9497	030700				DBLPWR:
   9498	030700	052737 	004000 	001012'		BIS	#EF.PFR,.COMEF+2 ;;; MARK THAT WE ANTICIPATE A POWERFAIL
   9499	030706	000463 				BR	DBLXIT		;;; EXIT -- NO STATUS REQUIRED
   9500						;
   9501					;
   9502					; HERE TO SEE IF THIS IS A HEADER TO PROCESS
   9503					;
   9504					;	R1 POINTS TO STATI+2
   9505					;
   9506	030710				DBLXFR:
   9507	030710	032721 	000002 			BIT	#TOIP,(R1)+	;;; IS THIS AN INDIRECT IN PROGRESS??
   9508	030714	001411 				BEQ	DBLHDR		;;; NO -- MUST BE A HEADER (DIRECT)
   9509	030716	005737 	001276'			TST	TO11FN		;;; DO WE BELIEVE THAT IT IS INDIRECT??
   9510	030722	100403 				BMI	10$		;;; YES -- GO ON
   9511	030724					.CRASH	PT3		;;; NO -- DIE!
	030724	000004 				IOT
	030726	   120 	   124 	   063 		.ASCIZ	/PT3/
	030731	   000
   9512						;
   9513					;
   9514					; HERE TO PROCESS SECOND HALF OF AN INDIRECT TRANSFER
   9515					;
   9516	030732				10$:
   9517	030732					CALL	.STELI		;;; START THE INDIRECT PART
	030732	004737 	031150'			JSR	PC,.STELI
   9518	030736	000447 				BR	DBLXIT		;;; AND EXIT
   9519						;
   9520					;
   9521					; HERE TO START A DIRECT (HEADER) TRANSFER
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 179-2
DTE-20 DRIVER -- DOORBELL SERVICE

   9522					;
   9523					;	R1 POINTS TO STATI+4
   9524					;
   9525	030740				DBLHDR:
   9526	030740	121137 	001324'			CMPB	(R1),TO10QC	;;; IS THIS THE SAME NODE??
   9527	030744	001437 				BEQ	DBLDON		;;; YES -- SEND STATUS AND EXIT
   9528	030746	105237 	001324'			INCB	TO10QC		;;; NO -- UPDATE THE QUEUE COUNT
   9529	030752	121137 	001324'			CMPB	(R1),TO10QC	;;; IS IT NOW CORRECT??
   9530	030756	001403 				BEQ	10$		;;; YES -- GO ON
   9531	030760					.CRASH	ILQ		;;; NO -- DIE!
	030760	000004 				IOT
	030762	   111 	   114 	   121 		.ASCIZ	/ILQ/
	030765	   000
   9532						;
   9533	030766				10$:
   9534	030766	012702 	000003 			MOV	#QSIZE-FORPRO,R2 ;;; POINT TO THE QUEUE SIZE
   9535	030772	066302 	000010 			ADD	EHSM(R3),R2	;;; IN HIS GENERAL SECTION FOR ME
   9536	030776	005060 	000010 			CLR	TNAD1(R0)	;;; CLEAR THE DEPOSIT BIT
   9537	031002	010260 	000012 			MOV	R2,TNAD2(R0)	;;; SET THE ADDRESS AND START THE EXAMINE
   9538	031006					CALL	..WFED		;;; WAIT FOR IT TO COMPLETE
	031006	004737 	046216'			JSR	PC,..WFED
   9539	031012	016037 	000002 	001332'		MOV	DXWD3(R0),EQSZ	;;; READ THE DIRECT SIZE
   9540	031020	023727 	001332'	000144 		CMP	EQSZ,#^D100	;;; IS THE NODE OF A LEGAL SIZE??
   9541	031026	103403 				BLO	20$		;;; YES -- GO ON
   9542	031030					.CRASH	PT4		;;; NO -- DIE!
	031030	000004 				IOT
	031032	   120 	   124 	   064 		.ASCIZ	/PT4/
	031035	   000
   9543						;
   9544	031036				20$:
   9545	031036					CALL	.STELD		;;; ALLOCATE AND START THIS HEADER
	031036	004737 	031062'			JSR	PC,.STELD
   9546	031042	000405 				BR	DBLXIT		;;; AND EXIT
   9547						;
   9548	031044				DBLDON:
   9549	031044	052737 	000001 	001322'		BIS	#TOIT,STSTT+2	;;; SET PROCESSING QUEUE STATUS
   9550	031052					CALL	SNDSTS		;;; SEND THE STATUS
	031052	004737 	031536'			JSR	PC,SNDSTS
   9551	031056				DBLXIT:
   9552	031056	000137 	027640'			JMP	INTLPS		;;; AND EXIT
   9553						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 180
DTE-20 DRIVER -- START TO ELEVEN DIRECT TRANSFER

   9555					.SBTTL	DTE-20 DRIVER -- START TO ELEVEN DIRECT TRANSFER
   9556
   9557					;+
   9558					; .STELD -- START TO ELEVEN DIRECT TRANSFER
   9559					;
   9560					; THIS SUBROUTINE WILL ATTEMPT TO START A DIRECT TRANSFER TO THE TO-11 QUEUE.
   9561					; IF THE ALLOCATION FOR THE NODE TO BE TRANSFERRED IS SUCCESSFUL, THE NODE
   9562					; IS STARTED IMMEDIATELY.  IF THE ALLOCATION IS UNSUCCESSFUL, THE NODE START
   9563					; IS DEFERRED UNTIL THE NEXT CALL TO THE CORE MANAGER ("..DECB", Q.V.).
   9564					; UNDER THESE CIRCUMSTANCES THE TO-11 QUEUE BLOCKED FLAG, ".DTBLK", IS SET TO
   9565					; THE RE-ENTRY ADDRESS (".STELD") TO MARK THE BLOCKING OF THE QUEUE.  THE
   9566					; TO-11 QUEUE BECOMES UNBLOCKED AFTER SPACE FOR THE NODE IS SUCESSFULLY
   9567					; ALLOCATED AND THE TRANSFER STARTED.
   9568					;
   9569					; TO PREVENT KEEP-ALIVE PROBLEMS, THE FRONT-END'S KEEP-ALIVE COUNT IS TRANSMITTED
   9570					; TO THE HOST ONCE PER 256 HEADERS ACCEPTED.
   9571					;
   9572					; INPUTS:
   9573					;
   9574					;	R0 -- POINTS TO DTE-20
   9575					;	R3 -- POINTS TO PROCESSOR TABLE
   9576					;	EQSZ -- SIZE OF NODE TO BE ALLOCATED (SEE NOTE BELOW)
   9577					;
   9578					; OUTPUTS:
   9579					;
   9580					;	R1, R2 ALTERED
   9581					;		".DTBLK" .NE. 0 IF TO-11 QUEUE IS BLOCKED
   9582					;		".DTBLK" .EQ. 0 IF TO-11 QUEUE TRANSFER IS IN PROGRESS
   9583					;
   9584					;	EXIT CONDITIONS ARE SET UP PER CONTENTS OF ".DTBLK"
   9585					;
   9586					; NOTE:
   9587					;
   9588					;	THIS ROUTINE MUST BE ENTERED WITH INTERRUPTS INHIBITTED
   9589					;
   9590					;	THIS ROUTINE ASSUMES THAT ALL TRANSFERS ARE DIRECT TRANSFERS, AND
   9591					;	THUS ATTEMPTS TO PRE-ALLOCATE BUFFER SPACE FOR IT.  IF THE TRANSFER
   9592					;	IS AN INDIRECT TRANSFER, THE PRE-ALLOCATED BUFFER IS DISCARDED BY THE
   9593					;	TO-11 DONE INTERRUPT SERVICE IN ANTICIPATION OF THE INDIRECT TRANSFER
   9594					;	START BY THE DOORBELL SERVICE.
   9595					;-
   9596
   9597	031062				.STELD::
   9598	031062	013701 	001332'			MOV	EQSZ,R1		;;; PICK UP THE TRANSFER SIZE
   9599	031066	132121 				BITB	(R1)+,(R1)+	;;; ADD IN OUR OVERHEAD
   9600	031070					CALL	GETBUF		;;; TRY TO GET A BUFFER
	031070	004737 	031612'			JSR	PC,GETBUF
   9601	031074	103004 				BCC	10$		;;; ALL OK IF CC-C IS CLEAR
   9602	031076	012737 	031062'	001374'		MOV	#.STELD,.DTBLK	;;; FAILED -- SET RE-ENTRY ADDRESS AS BLOCKED FLAG
   9603	031104	000507 				BR	STELIX		;;; AND EXIT
   9604						;
   9605	031106				10$:
   9606	031106	105737 	001324'			TSTB	TO10QC		;;; HAVE WE ACCEPTED 256. HEADERS??
   9607	031112	001002 				BNE	20$		;;; NO -- GO ON
   9608	031114					CALL	.KPALV		;;; YES -- SEND OUR KEEP-ALIVE COUNT
	031114	004737 	031326'			JSR	PC,.KPALV
   9609					;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 180-1
DTE-20 DRIVER -- START TO ELEVEN DIRECT TRANSFER

   9610					; HERE TO START THE NEXT NODE IN THE TO-11 QUEUE
   9611					;
   9612	031120				20$:
   9613	031120	005001 				CLR	R1		;;; ASSUME NO INTERRUPT WANTED
   9614	031122	162737 	000012 	001332'		SUB	#^D10,EQSZ	;;; DISCOUNT THE HEADER
   9615	031130	001002 				BNE	30$		;;; DON'T NEED AN INTERRUPT THIS TIME
   9616	031132	052701 	100000 			BIS	#IFLOP,R1	;;; MUST INTERRUPT IF COUNT GOES TO ZERO
   9617	031136				30$:
   9618	031136	012702 	001274'			MOV	#TO11HD,R2	;;; ADDRESS TO R2
   9619	031142	052701 	027766 			BIS	#<-^D10&7777>!TO11BM,R1 ;;; SET UP BYTE COUNT AND MODE
   9620	031146	000455 				BR	STELIG		;;; START THE TRANSFER AND EXIT
   9621						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 181
DTE-20 DRIVER -- START TO ELEVEN INDIRECT TRANSFER

   9623						.SBTTL	DTE-20 DRIVER -- START TO ELEVEN INDIRECT TRANSFER
   9624
   9625					;+
   9626					; .STELI -- START TO ELEVEN INDIRECT TRANSFER
   9627					;
   9628					; THIS SUBROUTINE WILL ALLOCATE BUFFER SPACE FOR AND START A TO-11 INDIRECT
   9629					; TRANSFER.  IF THE ALLOCATION IS SUCCSSFUL, THE TRANSFER IS IN PROGRESS UPON
   9630					; EXIT FROM THIS ROUTINE.
   9631					;
   9632					; IF THE ALLOCATION IS UNSUCCESSFUL, THE TRANSFER IS DECLARED BLOCKED AND THE
   9633					; RESTART ADDRESS (".STELI") IS STORED AS THE BLOCKED FLAG.
   9634					;
   9635					; INPUTS:
   9636					;
   9637					;	R0 -- POINTS TO DTE-20
   9638					;	R3 -- POINTS TO PROCESSOR TABLE
   9639					;
   9640					; OUTPUTS:
   9641					;
   9642					;	R1, R2 ALTERED
   9643					;		".DTBLK" .NE. 0 IF TRANSFER IS BLOCKED
   9644					;		".DTBLK" .EQ. 0 IF TRANSFER IS IN PROGRESS
   9645					;
   9646					;	EXIT CONDITIONS ARE SET UP PER CONTENTS OF ".DTBLK"
   9647					;
   9648					; NOTE:
   9649					;
   9650					;	THIS ROUTINE MUST BE ENTERED WITH INTERRUPTS INHIBITTED
   9651					;-
   9652
   9653	031150				.STELI::
   9654	031150	012702 	000003 			MOV	#QSIZE-FORPRO,R2 ;;; POINT TO THE SIZE WORD
   9655	031154	066302 	000010 			ADD	EHSM(R3),R2	;;; ADD IN WINDOW OFFSET
   9656	031160	005060 	000010 			CLR	TNAD1(R0)	;;; CLEAR DEPOSIT
   9657	031164	010260 	000012 			MOV	R2,TNAD2(R0)	;;; START THE EXAMINE
   9658	031170					CALL	..WFED		;;; WAIT FOR THE EXAMINE TO COMPLETE
	031170	004737 	046216'			JSR	PC,..WFED
   9659	031174	016001 	000002 			MOV	DXWD3(R0),R1	;;; PICK UP THE INDIRECT SIZE
   9660	031200	062701 	000012 			ADD	#12,R1		;;; ADD IN SPACE FOR HEADER
   9661	031204					CALL	GETBUF		;;; GET A BUFFER FOR THE MESSAGE
	031204	004737 	031612'			JSR	PC,GETBUF
   9662	031210	103004 				BCC	20$		;;; ALL OK IF CC-C IS CLEAR
   9663	031212	012737 	031150'	001374'		MOV	#.STELI,.DTBLK	;;; SET THE RETRY ADDRESS AS FLAG
   9664	031220	000441 				BR	STELIX		;;; AND EXIT
   9665						;
   9666	031222				20$:
   9667	031222	010546 				MOV	R5,-(SP)	;;; SAVE R5
   9668	031224	013705 	001272'			MOV	TO11NP,R5	;;; GET THE NODE POINTER
   9669	031230					CALL	LODNOD		;;; GET THE HEADER OUT OF THE FIXED BUFFER
	031230	004737 	031712'			JSR	PC,LODNOD
   9670	031234	010502 				MOV	R5,R2		;;; SET UP TRANSFER ADDRESS
   9671	031236	012605 				MOV	(SP)+,R5	;;; RESTORE R5
   9672	031240	016001 	000002 			MOV	DXWD3(R0),R1	;;; GET THE TRANSFER COUNT
   9673	031244	005401 				NEG	R1		;;; CONVERT TO A BYTE COUNT
   9674	031246	042701 	170000 			BIC	#^C7777,R1	;;; SO
   9675	031252	106001 				RORB	R1		;;; NOW TO A WORD COUNT --
   9676									;;; NOTE: >> THIS ASSUMES CC-C SET BY "NEG R1"
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 181-1
DTE-20 DRIVER -- START TO ELEVEN INDIRECT TRANSFER

   9677	031254	032737 	000004 	001340'		BIT	#TOBM,STATI+2	;;; ARE WE IN WORD MODE??
   9678	031262	001003 				BNE	30$		;;; NO -- GO ON
   9679	031264	106101 				ROLB	R1		;;; YES -- RESTORE TO BYTE COUNT
   9680									;;; NOTE: >> SEE PREVIOUS NOTE
   9681	031266	052701 	020000 			BIS	#TO11BM,R1	;;; SET BYTE MODE
   9682	031272				30$:
   9683	031272	052701 	100000 			BIS	#IFLOP,R1	;;; INTERRUPT BOTH CPU'S WHEN DONE
   9684	031276	005037 	001276'			CLR	TO11FN		;;; RELEASE FIXED BUFFER
   9685	031302				STELIG:
   9686	031302					CALL	STBXFR		;;; START THE TRANSFER
	031302	004737 	031670'			JSR	PC,STBXFR
   9687	031306	052737 	000001 	001322'		BIS	#TOIT,STSTT+2	;;; SET QUEUE IN PROGRESS STATUS
   9688	031314					CALL	SNDSTS		;;; SEND THE STATUS
	031314	004737 	031536'			JSR	PC,SNDSTS
   9689	031320	005037 	001374'			CLR	.DTBLK		;;; CLEAR QUEUE BLOCKED FLAG (SETS CC-Z)
   9690	031324				STELIX:
   9691	031324					RETURN			;;; TO CALLER
	031324	000207 				RTS	PC
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 182
DTE-20 DRIVER -- UPDATE AND TRANSMIT FRONT-END KEEP-ALIVE COUN

   9693						.SBTTL	DTE-20 DRIVER -- UPDATE AND TRANSMIT FRONT-END KEEP-ALIVE COUNT
   9694
   9695					;+
   9696					; .KPALV -- UPDATE AND TRANSMIT FRONT-END KEEP-ALIVE COUNT
   9697					;
   9698					; THIS SUBROUTINE WILL UPDATE AND TRANSMIT THE FRONT-END KEEP-ALIVE COUNT.
   9699					; THE KEEP-ALIVE IS DONE HERE, "BY HAND", TO AVOID PROBLEMS ASSOCIATED WITH
   9700					; CALLING AN EMT FROM INTERRUPT LEVEL.
   9701					;
   9702					; INPUTS:
   9703					;
   9704					;	R0 -- POINTS TO THE DTE-20
   9705					;
   9706					; OUTPUTS:
   9707					;
   9708					;	NONE.
   9709					;
   9710					; NOTES:
   9711					;
   9712					;	THIS SUBROUTINE SHOULD ONLY BE CALLED AT PRI6 OR HIGHER
   9713					;	THIS SUBROUTINE EXITS THROUGH "..WFED", Q.V.
   9714					;-
   9715
   9716	031326				.KPALV::
   9717	031326	005237 	001406'			INC	KPAL1		;;; BUMP THE KEEP-ALIVE COUNT
   9718	031332	010001 				MOV	R0,R1		;;; COPY DTE-20 POINTER TO R1
   9719	031334	005021 				CLR	(R1)+		;;; CLEAR AND GET OVER DELAY COUNTER
   9720	031336	013721 	001406'			MOV	KPAL1,(R1)+	;;; SET DOWN THE KEEP-ALIVE COUNT
   9721	031342	005021 				CLR	(R1)+		;;; CLEAR REST OF WORD
   9722	031344	005021 				CLR	(R1)+		;;; SO
   9723	031346	012721 	010000 			MOV	#DEP,(R1)+	;;; SET UP DEPOSIT
   9724	031352	012711 	000005 			MOV	#PSWW1,(R1)	;;; SET ADDRESS AND START DEPOSIT
   9725	031356	000137 	046216'			JMP	..WFED		;;; WAIT FOR COMPLETION AND EXIT
   9726						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 183
DTE-20 DRIVER -- START TO TEN QUEUE

   9728						.SBTTL	DTE-20 DRIVER -- START TO TEN QUEUE
   9729
   9730					;+
   9731					; .STTNQ -- SUBROUTINE TO CONDITIONALLY START NEXT TO TEN QUEUE NODE
   9732					; .STTNF -- SUBROUTINE TO START NEXT TO-10 QUEUE NODE
   9733					;
   9734					; THESE SUBROUTINES WILL START THE NEXT NODE IN THE TO-10 QUEUE.  ".STTNQ"
   9735					; WILL START A NODE IF AND ONLY IF THE TO11Q IS EMPTY.  IF THIS IS NOT
   9736					; THE CASE, THE TO-10 QUEUE NODE START WILL BE DEFERRED TO WHEN THE
   9737					; NEXT TO-11 QUEUE NODE HAS FINISHED.  ".STTNF" WILL START THE NEXT
   9738					; TO-10 QUEUE NODE IF THE CURRENT TO-10 QUEUE NODE IS FINISHED.
   9739					;
   9740					; INPUTS:
   9741					;
   9742					;	R4 -- POINTS TO-10 QUEUE NODE TO BE STARTED
   9743					;
   9744					; OUTPUTS:
   9745					;
   9746					;	NO REGISTERS ALTERED
   9747					;
   9748					; NOTES:
   9749					;
   9750					;	THIS ROUTINE MUST BE ENTERED WITH INTERRUPTS INHIBITTED
   9751					;-
   9752
   9753						.ENABL	LSB
   9754
   9755	031362				.STTNQ::
   9756	031362	005737 	001334'			TST	TO11Q		;;; ANYTHING IN THE TO-11 QUEUE??
   9757	031366	001110 				BNE	20$		;;; YES -- WAIT FOR TO-11 QUEUE NODE TO FINISH
   9758	031370				.STTNF::
   9759	031370	105737 	001373'			TSTB	TOXQIP		;;; NO -- IS THERE A TO-10 QUEUE NODE IN PROGRESS??
   9760	031374	001105 				BNE	20$		;;; YES -- EXIT
   9761	031376	010546 				MOV	R5,-(SP)	;;; NO -- SAVE REGISTERS
   9762	031400	010346 				MOV	R3,-(SP)
   9763	031402	010046 				MOV	R0,-(SP)	;;; SO
   9764	031404	013700 	001360'			MOV	.PRDTE,R0	;;; SET UP ADDRESS OF DTE-20
   9765	031410	013703 	001354'			MOV	.PRADR,R3	;;; POINT TO THE PROCESSOR TABLE
   9766	031414	005060 	000006 			CLR	DXWD1(R0)	;;; SET UP THE TRANSFER
   9767	031420	005060 	000004 			CLR	DXWD2(R0)	;;; SO
   9768	031424	010405 				MOV	R4,R5		;;; SAVE THE NODE ADDRESS
   9769	031426	062705 	000006 			ADD	#6,R5		;;; MOVE OVER LISTHEAD AND NODE SIZE
   9770	031432	011537 	001314'			MOV	@R5,TO10SZ	;;; SAVE THE TRANSFER SIZE FOR END CHECKS
   9771	031436	012560 	000002 			MOV	(R5)+,DXWD3(R0)	;;; SET THE TRANSFER SIZE IN MY AREA TO HIM
   9772	031442	010560 	000020 			MOV	R5,T10AD(R0)	;;; SET UP THE TO-10 ADDRESS
   9773	031446	010537 	001316'			MOV	R5,TO10AS	;;; SAVE THE ADDRESS FOR END CHECKS
   9774	031452	012760 	000001 	000036 		MOV	#1,DAG3(R0)	;;; SET BYTE MODE
   9775	031460	016305 	000004 			MOV	DMYN(R3),R5	;;; FIND THE OFFSET INTO MY AREA
   9776	031464	062705 	000003 			ADD	#QSIZE-FORPRO,R5 ;;; POINT TO THE PROPER ITEM
   9777	031470	012760 	010000 	000010 		MOV	#DEP,TNAD1(R0)	;;; SET UP TO DO DEPOSIT
   9778	031476	010560 	000012 			MOV	R5,TNAD2(R0)	;;; START THE DEPOSIT
   9779	031502					CALL	..WFED		;;; WAIT FOR IT TO COMPLETE
	031502	004737 	046216'			JSR	PC,..WFED
   9780	031506	105237 	001325'			INCB	TO11QC		;;; INCREMENT THE QUEUE COUNT
   9781	031512					CALL	SNDSTS		;;; SEND THE STATUS TO THE KL10
	031512	004737 	031536'			JSR	PC,SNDSTS
   9782	031516	012777 	000400 	147632 		MOV	#TO10DB,@.PRSTA	;;; RING HIS DOORBELL
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 183-1
DTE-20 DRIVER -- START TO TEN QUEUE

   9783	031524	105237 	001373'			INCB	TOXQIP		;;; INTERLOCK THIS NODE
   9784	031530	012600 				MOV	(SP)+,R0	;;; RESTORE R0
   9785	031532	012603 				MOV	(SP)+,R3	;;; RESTORE R3
   9786	031534	000424 				BR	10$		;;; AND EXIT
   9787						;
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 184
DTE-20 DRIVER -- SEND STATUS TO TEN

   9789						.SBTTL	DTE-20 DRIVER -- SEND STATUS TO TEN
   9790
   9791					;+
   9792					; SNDSTS -- SEND STATUS TO THE KL10
   9793					;
   9794					; THIS SUBROUTINE WILL SEND THE STATUS IN "STSTT" TO THE KL10
   9795					;
   9796					; INPUTS:
   9797					;
   9798					;	R0 -- POINTS TO DTE-20
   9799					;	R3 -- POINTS TO TABLE OF COMM REGION OFFSETS ("PROTBL")
   9800					;
   9801					; OUTPUTS:
   9802					;
   9803					;	NO REGISTERS ALTERED
   9804					;-
   9805
   9806	031536				SNDSTS:
   9807	031536	010546 				MOV	R5,-(SP)	;;; SAVE R5
   9808	031540	012705 	001320'			MOV	#STSTT,R5	;;; POINT TO THE STATUS
   9809	031544	012560 	000006 			MOV	(R5)+,DXWD1(R0)	;;; LOAD UP THE TO-10 STATUS
   9810	031550	012560 	000004 			MOV	(R5)+,DXWD2(R0)
   9811	031554	011560 	000002 			MOV	(R5),DXWD3(R0)	;;; SO
   9812	031560	012705 	000002 			MOV	#STATUS-FORPRO,R5 ;;; POINT TO PROPER ITEM
   9813	031564	066305 	000004 			ADD	DMYN(R3),R5	;;; ADD COMM REGION OFFSET
   9814	031570	012760 	010000 	000010 		MOV	#DEP,TNAD1(R0)	;;; THIS IS A DEPOSIT
   9815	031576	010560 	000012 			MOV	R5,TNAD2(R0)	;;; START THE TRANSFER
   9816	031602					CALL	..WFED		;;; WAIT FOR COMPLETION
	031602	004737 	046216'			JSR	PC,..WFED
   9817	031606				10$:
   9818	031606	012605 				MOV	(SP)+,R5	;;; RESTORE R5
   9819	031610				20$:
   9820	031610					RETURN			;;; AND EXIT
	031610	000207 				RTS	PC
   9821
   9822						.DSABL	LSB
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 185
DTE-20 DRIVER -- GET A BUFFER FOR INCOMING TRANSFER

   9824						.SBTTL	DTE-20 DRIVER -- GET A BUFFER FOR INCOMING TRANSFER
   9825
   9826					;+
   9827					; GETBUF -- GET A BUFFER FOR INCOMING TRANSFER
   9828					;
   9829					; THIS SUBROUTINE WILL GET A BUFFER FOR A TO-11 TRANSFER.  IF THE ALLOCATION
   9830					; FAILS, OR THE CURRENT TO-11 QUEUE EXCEEDS THE MAXIMUM ALLOWABLE LENGTH, OR
   9831					; THE FREE-POOL IS BELOW THE MINIMUM THRESHOLD (".OBFLO"), THE ERROR
   9832					; (CC-C SET) RETURN IS TAKEN, WHICH SHOULD CAUSE THE TRANSFER TO BLOCK.
   9833					;
   9834					; INPUTS:
   9835					;
   9836					;	R1 -- SIZE OF BUFFER TO BE ALLOCATED
   9837					;
   9838					; OUTPUTS:
   9839					;
   9840					;	R1 -- SIZE OF BUFFER ALLOCATED
   9841					;	BUFFER POINTER IN "TO11NP"
   9842					;	CC-C CLEAR
   9843					;
   9844					;	CC-C SET IF ALLOCATION FAILS OR IF TO-11 QUEUE IS TOO LONG
   9845					;-
   9846		001200 				.OBFLO==1200		;;; [5.1041] AMOUNT OF FREE POOL BYTES
   9847									;;;		TO LEAVE
   9848
   9849	031612				GETBUF:
   9850	031612	010046 				MOV	R0,-(SP)	;;; SAVE R0
   9851	031614	012700 	001334'			MOV	#TO11Q,R0	;;; [4.1.1137] POINT TO TO-11 QUEUE LISTHEAD
   9852	031620	005046 				CLR	-(SP)		;;; [4.1.1137] CLEAR A COUNTER ON THE STACK
   9853	031622				10$:
   9854	031622	005216 				INC	(SP)		;;; [4.1.1137] COUNT A NODE
   9855	031624	011000 				MOV	(R0),R0		;;; [4.1.1137] MOVE OVER THE NODE
   9856	031626	001375 				BNE	10$		;;; [4.1.1137] TILL DONE
   9857					;
   9858					; NOTE --
   9859					;
   9860					;	IF ANY OF THE FOLLOWING TESTS FAIL, THIS ROUTINE MUST BE
   9861					;	EXITED WITH CC-C SET!
   9862					;
   9863	031630	022726 	000022 			CMP	#22,(SP)+	;;; [4.1.1137] CHECK QUEUE LENGTH
   9864	031634	103413 				BCS	20$		;;; [4.1.1137] TOO LONG -- EXIT (NOTE: CC-C SET)
   9865	031636	023727 	001422'	001200 		CMP	.FREPL+2,#.OBFLO ;;; [5.1041] LEAVE SOME POOL SPACE
   9866	031644	103407 				BCS	20$		;;; [5.1041] EXIT IF NOT ENOUGH LEFT (NOTE: CC-C SET)
   9867	031646					CALL	..ALCB		;;; ALL OK SO FAR -- ALLOCATE THE BUFFER
	031646	004737 	044416'			JSR	PC,..ALCB
   9868	031652	103404 				BCS	20$		;;; ALLOCATION FAILED (NOTE: CC-C SET)
   9869	031654	010160 	000002 			MOV	R1,T.HBCT(R0)	;;; SET THE NODE SIZE
   9870	031660	010037 	001272'			MOV	R0,TO11NP	;;; SAVE THE POINTER
   9871	031664				20$:
   9872	031664	012600 				MOV	(SP)+,R0	;;; RESTORE R0
   9873	031666					RETURN			;;; TO CALLER
	031666	000207 				RTS	PC
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 186
DTE-20 DRIVER -- START BYTE TRANSFER

   9875						.SBTTL	DTE-20 DRIVER -- START BYTE TRANSFER
   9876
   9877					;+
   9878					; STBXFR -- START A TO-11 BYTE TRANSFER
   9879					;
   9880					; THIS SUBROUTINE WILL START A TO-11 BYTE TRANSFER AND SAVE THE ADDRESS
   9881					; AND BYTE COUNT FOR END CHECKS
   9882					;
   9883					; INPUTS:
   9884					;
   9885					;	R0 -- POINTS TO THE DTE-20
   9886					;	R1 -- BYTE COUNT FOR TRANSFER
   9887					;	R2 -- ADDRESS FOR TRANSFER
   9888					;
   9889					; OUTPUTS:
   9890					;
   9891					;	NO REGISTERS ALTERED
   9892					;-
   9893
   9894	031670				STBXFR:
   9895	031670	010137 	001312'			MOV	R1,TO11BS	;;; SAVE THE BYTE COUNT
   9896	031674	010237 	001310'			MOV	R2,TO11AS	;;; AND THE ADDRESS
   9897	031700	010260 	000022 			MOV	R2,T11AD(R0)	;;; SET THE ADDRESS
   9898	031704	010160 	000016 			MOV	R1,T11BC(R0)	;;; SET THE BYTE COUNT AND START TRANSFER
   9899	031710					RETURN			;;; TO CALLER
	031710	000207 				RTS	PC
DTEDRV -- DTE-20 DRIVER FOR RSX	MACRO M1113  10-NOV-81 18:56  PAGE 187
DTE-20 DRIVER -- LOAD TO-11 QUEUE NODE

   9901						.SBTTL	DTE-20 DRIVER -- LOAD TO-11 QUEUE NODE
   9902
   9903					;+
   9904					; LODNOD -- LOAD A TO-11 QUEUE NODE
   9905					;
   9906					; THIS SUBROUTINE WILL LOAD A TO-11 QUEUE DIRECT PACKET OR INDIRECT HEADER
   9907					; FROM A FIXED BUFFER ("TO11HD") IN LOW CORE
   9908					;
   9909					; INPUTS:
   9910					;
   9911					;	R5 -- POINTS TO HEAD OF NODE TO BE LOADED
   9912					;
   9913					; OUTPUTS:
   9914					;
   9915					;	R5 -- POINTS TO CURRENT BUFFER POSITION
   9916					;-
   9917
   9918	031712				LODNOD:
   9919	031712	032525 				BIT	(R5)+,(R5)+	;;; GET OVER THE LINK AND SIZE
   9920	031714	113725 	001276'			MOVB	TO11FN,(R5)+	;;; SET DOWN THE FUNCTION (E.FN+0)
   9921	031720	113725 	001274'			MOVB	TO11HD,(R5)+	;;; AND THE TRANSFER SIZE (E.FN+1)
   9922	031724	013725 	001300'			MOV	TO11DV,(R5)+	;;; AND THE DEVICE CODE (E.DV)
   9923	031730	013725 	001304'			MOV	TO11FW,(R5)+	;;; AND THE FIRST WORD (E.FW)
   9924	031734					RETURN			;;; TO CALLER
	031734	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 188
DTE-20 DRIVER -- LOAD TO-11 QUEUE NODE

   9926						.TITLE	TTYDRR	- GENERAL TERMINAL HANDLER
   9927						.SBTTL	TERMINAL DRIVER -- COPYRIGHT STATEMENT
   9928	031736					IDENT$	14,45
						.IDENT	/014450/
   9929					;
   9930					;                             COPYRIGHT (C) 1975, 1978 BY
   9931					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
   9932					;
   9933					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
   9934					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
   9935					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
   9936					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
   9937					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
   9938					;
   9939					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
   9940					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
   9941					;       CORPORATION.
   9942					;
   9943					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
   9944					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
   9945					;
   9946					;	VERSION 14-45
   9947					;
   9948					;	R. MC LEAN
   9949					;	07-APR-75
   9950					;
   9951					; TERMINAL DRIVER FOR DL-11W AND DL-11E LINE INTERFACES AND DH-11 LINE MULTIPLEX
   9952					;
   9953					; MODIFICATIONS:
   9954					;
   9955					;	NO.	DATE		PROGRAMMER	PURPOSE
   9956					;	---	----		----------	-------
   9957					;	001	08-NOV-76	K. RETI		ADD SUPPRESS SEND-ALL
   9958					;				R. BELANGER	CODE.
   9959					;	002	16-NOV-76	R. BELANGER	FIX TYPO IN EDIT 001
   9960					;	003	16-NOV-76	T. PORCHER	ADD CODE TO ALLOW CTY
   9961					;				R. BELANGER	TO BE MOVED
   9962					;	004	29-NOV-76	A. PECKHAM	RELOCATED ACKAL FOR LPT
   9963					;	005	03-FEB-77	R. BELANGER	ADDED GENERALIZED DL-11E
   9964					;						SERVICE AND NEW KLINIK
   9965					;						HOOKS AND HANDLES
   9966					;	006	07-MAR-77	A. PECKHAM	CLEAN UP "TT.OUT" MANAGEMENT
   9967					;	007	01-JUL-77	R. BELANGER	FIX BUG IN INTERNAL I/O INITIALIZATION
   9968					;	008	14-JUL-77	R. BELANGER	ADD AUTO-BAUD SUPPORT
   9969					;	009	10-AUG-77	R. BELANGER	FIX DL-11E INPUT TO IGNORE
   9970					;						CHARACTERS WITH FRAMING ERRORS
   9971					;						(DN-20 RUNNING OPEN ON POWERFAIL)
   9972					;	010	02-SEP-77	R. BELANGER	XON/XOFF BUG FIX
   9973					;	011	06-SEP-77	R. BELANGER	SHORTEN TIMEOUT COUNT TO 4 SECONDS
   9974					;	012	28-OCT-77	R. BELANGER	IGNORE DH-11 CHARACTERS WITH FRMING ERRORS
   9975					;	013	02-NOV-77	R. BELANGER	FIX LONG SENDALLS
   9976					;  TCO 4.2054	20-OCT-78	R. BELANGER	FIX BUG IN DH-11 ERROR LOGGING
   9977					;  TCO 4.2055	20-OCT-78	R. BELANGER	ADD DETACH ON RING FEATURE
   9978					;						FIX BUGS IN MODEM CONTROL
   9979					;  TCO 4.2095	30-NOV-78	R. BELANGER	ELIMINATE DH-11 POLLING ON CLOCK
   9980					;						SET DH-11 SILO ALARM TO 0
   9981					;  TCO 4.2096	30-NOV-78	R. BELANGER	FIX OUTPUT INTERRUPT SERVICE
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 188-1
TERMINAL DRIVER -- COPYRIGHT STATEMENT

   9982					;						TO ELIMINATE XOFF/XON RACE CONDITION
   9983					;  TCO 4.2103	04-DEC-78	R. BELANGER	ADD AUTO-BAUD CAPABILITY TO
   9984					;						1200 BAUD
   9985					;  TCO 4.2105	04-DEC-78	R. BELANGER	IGNORE RING INTERRUPTS IF
   9986					;						NOT IN PRIMARY PROTOCOL
   9987					;  TCO 4.2107	06-DEC-78	R. BELANGER	NEW KEEP-ALIVE ERROR RECOVERY
   9988					;  TCO 4.2140	02-JAN-78	R. BELANGER	INHIBIT REQUEST FOR "SETSPD"
   9989					;						FROM AUTO-BAUD DISCONNECT WHEN
   9990					;						PRIMARY PROTOCOL IS NOT RUNNING
   9991					;  TCO 4.2181	01-FEB-79	R. BELANGER	ADD INTERNAL XOFF PROCESSING
   9992					;  TCO 4.2205	08-MAR-79	R. BELANGER	ADD CODE TO SHUT OFF LINES AFTER
   9993					;						4 CONSECUTIVE FRAMING ERRORS,
   9994					;						LOG THE LINE SHUTDOWN,
   9995					;						AND TO REENABLE THEM ON TIMEOUT
   9996					;						REMOVE REFERENCE TO "TT.ECH"
   9997					;  TCO 4.2206	08-MAR-79	R. BELANGER	MODIFY DM-11/BB TIMEOUT TO
   9998					;						ALWAYS MAINTAIN INTERRUPT ENABLE
   9999					;  TCO 4.2211	12-MAR-79	R. BELANGER	ALLOW RSX20F TO ACCEPT TERMINAL
  10000					;				K. LEFEBVRE	INPUT WHILE IN PROTOCOL PAUSE
  10001					;						UNTIL FREE-POOL IS EXHAUSTED,
  10002					;						THEN CRASH (B01).
  10003					;  TCO 4.2244	05-APR-79	R. BELANGER	FIX DH-11 SILO LOCKUP ON LOCAL XOFF
  10004					;  TCO 4.2245	10-APR-79	R. BELANGER	ADD ERROR LOGGING FOR DH-11 FRAMING ERROR
  10005					;  TCO 4.2246	16-MAY-79	R. BELANGER	ELIMINATE RACE CONDITION IN SENDALLS
  10006					;  TCO 4.2247	29-MAY-79	R. BELANGER	FIX PDP-11 I/O DONE PROCESSING
  10007					;  TCO 4.2264	30-MAY-79	R. BELANGER	RESET AUTO-BAUD LINE SPEED TO 300
  10008					;						BAUD ON CARRIER LOSS.
  10009					;  TCO 4.2284	14-JUN-79	R. BELANGER	FIX CARRIER PROCESSING IN MODEM
  10010					;						CONTROL; SUPERCEDES TCO 4.2264.
  10011					;  TCO 4.2309	25-JUN-79	R. BELANGER	ADD BELL 212A MODEM SUPPORT.
  10012					;  TCO 4.2333	16-JUL-79	R. BELANGER	REJECT CHARACTERS FROM LINES WHICH
  10013					;						ARE IN CARRIER WAIT.
  10014					;  TCO 5.1004	12-SEP-79	R. BELANGER	ADD NON-CONTIGUOUS DEVICE SUPPORT
  10015					;  TCO 5.1007	10-OCT-79	R. BELANGER	ADD ERROR LOGGING FOR DL-11'S AND DM-11/BB'S
  10016					;  TCO 5.1008	11-OCT-79	R. BELANGER	ADD EBUS AND DEX ERROR LOGGING
  10017					;  TCO 5.1009	15-OCT-79	R. BELANGER	ADD RH-11 ERROR LOGGING
  10018					;  TCO 5.1015	25-OCT-79	R. BELANGER	ADD NEW TERMINAL INPUT CONTROL
  10019					;  TCO 5.1016	01-NOV-79	R. BELANGER	ADD BREAK-THROUGH WRITE
  10020					;  TCO 5.1017	01-NOV-79	R. BELANGER	DEFER ACKS IF FREE-POOL LOW
  10021					; TCO 4.1.1035	16-NOV-79	R. BELANGER	ADD QUEUE ARBITRATION MECHANISM
  10022					; TCO 4.1.1066	10-JAN-80	R. BELANGER	DEFER ACKS IN ROUND-ROBIN FASHION
  10023					; TCO 4.1.1088	12-FEB-80	R. BELANGER	FIX AUTO-BAUD NOISE PROBLEM
  10024					; TCO 4.1.1089	12-FEB-80	R. BELANGER	ALLOW FULL DUMP OF DH-11 SILOS
  10025					; TCO 4.1.1091	12-FEB-80	R. BELANGER	FIX MISSING DM-11BB PROBLEM
  10026					; TCO 4.1.1092	25-FEB-80	R. BELANGER	LOCAL INPUT CONTROL
  10027					; TCO 4.1.1104	05-MAR-80	R. BELANGER	CHANGE KEEP-ALIVE
  10028					; TCO 4.1.1105	11-MAR-80	R. BELANGER	CHANGE "EF.PR1" RECOGNITION
  10029					; TCO 4.1.1121	19-MAR-80	R. BELANGER	DON'T DO KEEP-ALIVE IF DTE-20
  10030					;						IS BLOCKED
  10031					; TCO 4.1.1126	27-MAR-80	R. BELANGER	REMOVE SUPPORT FOR OLD-STYLE
  10032					;						<ESCAPE> CODES 175 AND 176
  10033					; TCO 4.1.1137	05-APR-80	R. BELANGER	REMOVE DEFERRED ACK SUPPORT
  10034					; TCO 5.1056	02-JUN-80	S. LEAPLINE	REMOVE CHECK FOR DTR IF NO CARRIER
  10035					; TCO 5.1099	08-JUL-80	S. LEAPLINE	DELAY EITHER 2 CHARACTERS OR
  10036					;						2 CLOCK TICKS BEFORE SETTING
  10037					;						INPUT SPEED TO 0
  10038					; TCO 5.1131	13-AUG-80	S. LEAPLINE	CORRECT TEST FOR RING IN DMINT
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 188-2
TERMINAL DRIVER -- COPYRIGHT STATEMENT

  10039					; RCO 9380	03-SEP-80	S. LEAPLINE	IGNORE RINGS FOR LOCAL LINES
  10040					; TCO 5.1149	17-SEP-80	S. LEAPLINE	CHECK FOR PARSER REQUEST ON CTY OUTPUT DONE
  10041					; TCO 5.1152	24-SEP-80	S. LEAPLINE	RESET ABW LINES CORRECTLY
  10042					; TCO 5.1246	26-JAN-81	S. LEAPLINE	ALLOW CTY AND KLINIK TO RUN AT
  10043					;						SPLIT SPEEDS
  10044					; TCO 5.1247	26-JAN-81	S. LEAPLINE	FIX BUG IN TERMINAL SHUTOFF CODE
  10045					; TCO 5.1248	26-JAN-81	S. LEAPLINE	REMOVE SAVE OF R0 IN XOFF/XON
  10046					; RCO 32681	26-MAR-81	S. LEAPLINE	ADD "BELL" TO OUTPUT IF NO
  10047					;						BUFFER SPACE AVAILABLE
  10048					; TCO 5.1011	25-AUG-81	S. LEAPLINE	CHECK FOR ERROR WHEN REQUESTING SETSPD
  10049					; TCO 5.1565	12-OCT-81	S. LEAPLINE	ACK CTY IF KLINIK IS IN USER MODE
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 189
TERMINAL DRIVER -- DEFINITIONS

  10051						.SBTTL	TERMINAL DRIVER -- DEFINITIONS
  10052
  10053					;
  10054					; MACRO LIBRARY CALLS
  10055					;
  10056						.MCALL	.STKM,WTLO$,CLEF$,CALL,RETURN,WSIG$S,.INH5,.ENB5,.INH6,.ENB6
  10057						.MCALL	DIR$,RQST$,EHSG$,$DEF,.CRASH
  10058	031736					$DEF
  10059					;
  10060					; EQUATED SYMBOLS
  10061					;
  10062					; TERMINAL CONTROL BLOCK OFFSET DEFINITIONS
  10063					;
  10064					; FOR USE ONLY WITH CTY
  10065					;
  10066		000000 				STATS=0			; TERMINAL STATUS WORD (MUST BE ZERO)
  10067		000002 				STRBF=2			; CURRENT BUFFER ADDRESS (INPUT)
  10068		000004 				RMBYT=4			; REMAINING BYTES IN BUFFER (INPUT)
  10069		000005 				FNBYT=5			; TERMINAL BYTE (INPUT)
  10070		000006 				CURBF=6			; STARTING BUFFER ADDRESS (INPUT)
  10071		000010 				MECNT=10		; MULTI-ECHO BYTE COUNT
  10072		000011 				FLBYT=11		; FILL BYTE
  10073		000012 				MEBUF=12		; MULTI-ECHO BUFFER ADDRESS
  10074		000014 				MBUFR=14		; DYNAMIC MULTI-ECHO BUFFER
  10075		000016 				HORPS=16		; HORIZONTAL POSITION OF CARRIAGE
  10076		000020 				DHBUF=20		; DH-11 CHARACTER BUFFER
  10077					;
  10078					; TERMINAL STATUS WORD BIT DEFINITIONS
  10079					;
  10080		100000 				MODE=100000		; MODE OF BUSY TERMINAL (0=INPUT 1=OUTPUT)
  10081		074000 				LFCT=074000		; UNPROCESSED LINE FEED COUNT FIELD
  10082		004000 				LFBT=004000		; UNPROCESSED LINE FEED ADD/SUB BIT
  10083		002000 				CRTY=002000		; CARRIAGE CONTROL AT END OF LINE (1=YES)
  10084		001000 				CRJT=001000		; CARRIAGE RETURN JUST TYPED (1=YES)
  10085		000400 				EOLS=000400		; END OF LINE SEEN (1=YES)
  10086		000040 				CTLO=000040		; OUTPUT DISABLED (1=YES)
  10087		000020 				RUBP=000020		; RUBOUT SEQUENCE IN PROGRESS (1=YES)
  10088		000017 				FLCT=000017		; UNPROCESSED FILL COUNT FIELD
  10089		000001 				FLBT=000001		; UNPROCESSED FILL COUNT BIT
  10090					;
  10091					; TERMINAL STATUS OFFSETS FOR ALL TTY'S
  10092					;
  10093		000000 				THRED==0		; OUTPUT THREAD WORD POINTER (MUST BE ZERO)
  10094		000002 				TTYEXP==2		; EXTERNAL PAGE ADDRESS
  10095		000004 				STSW0==4		; STATUS WORD 0 (SAME AS DH-11 LINE STATUS WORD)
  10096									; HOLDS AUTO-BAUD REQUEST IN BIT 15
  10097									; HOLDS CONNECTED BIT IN BIT 14
  10098									; HOLDS LINE SPEED FOR DH-11'S
  10099									; HOLDS INPUT BLOCK FLAG FOR DL-11'S IN LOW BYTE
  10100		000006 				STSW1==6		; STATUS WORD 1 -- SPECIFIC CHARACTERISTICS
  10101					;
  10102					;	STSW0 DEFINITIONS
  10103					;
  10104		100000 				S0.ABR==100000		; [4.2284] AUTO-BAUD REPORT PENDING
  10105		040000 				S0.CON==040000		; [4.2284] REMOTE LINE IS CONNECTED
  10106		001700 				S0.ISP==001700		; [4.2205] INPUT SPEED FIELD MASK
  10107		036000 				S0.OSP==036000		; [4.2205] OUTPUT SPEED FIELD MASK
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 189-1
TERMINAL DRIVER -- DEFINITIONS

  10108		140000 				S0.MSK==S0.ABR!S0.CON	; [4.2284] BIT MASK FOR "SETSPD" TASK
  10109		037700 				S0.SPD==S0.OSP!S0.ISP	; [4.2205] TERMINAL SPEED MASK
  10110					;
  10111					;	STSW1 BIT DEFINITIONS
  10112					;
  10113					;	HIGH BYTE
  10114					;
  10115		140000 				TT.SND==140000		; INDEX OF NEXT SEND-ALL TO DO FOR THIS LINE
  10116		040000 				TT.SNI==040000		; TO INCREMENT SEND-ALL INDEX
  10117									; [4.2205] NOTE: THE NEXT THREE BITS MUST REMAIN
  10118									; [4.2205]       CONTIGUOUS AND IN THE SAME ORDER!!
  10119		020000 				TT.RSI==020000		; [4.2205] RESTART TERMINAL INPUT ON TIMEOUT
  10120		014000 				TT.FEC==014000		; [4.2205] FRAMING ERROR COUNT FIELD
  10121					;
  10122		004000 				TT.FEI==004000		; [4.2205] TO INCREMENT FRAMING ERROR COUNT
  10123		002000 				TT.RIP==002000		; TTY REMOTE IN PROGRESS
  10124		001000 				TT.SIP==001000		; TTY SENDALL IN PROGRESS
  10125		000400 				TT.NSA==000400		; SUPPRESS SENDALLS
  10126					;
  10127					;	LOW BYTE
  10128					;
  10129		000200 				TT.XOF==000200		; TTY IS X'D OFF (WAS "TT.BSY")
  10130									; !!! MUST BE SIGN BIT OF LOW BYTE !!!!
  10131		000100 				TT.RMT==000100		; REMOTE FLAG
  10132		000040 				TT.ABL==000040		; AUTO-BAUD LINE
  10133		000020 				TT.XEN==000020		; [4.2181] XON/XOFF ENABLED ON THIS LINE
  10134		000010 				TT.ABW==000010		; LINE IS IN AUTO-BAUD WAIT
  10135		000004 				TT.CRW==000004		; WAITING FOR CARRIER FLAG
  10136		000002 				TT.CTY==000002		; TTY IS A CONSOLE TTY
  10137		000001 				TT.OUT==000001		; TTY OUTPUT FLAG
  10138					;
  10139					;	STSW2 DEFINITIONS
  10140					;
  10141		100000 				S2.DDN==BIT15		; [5.1015] INPUT IS X'D OFF
  10142		040000 				S2.DIP==BIT14		; [5.1015] INPUT XOFF SEQUENCE IS IN PROGRESS
  10143		020000 				S2.DIS==BIT13		; [5.1015] DEFERRED INPUT XOFF REQUEST
  10144		010000 				S2.ENB==BIT12		; [5.1015] DEFRRRED INPUT XON REQUEST
  10145		004000 				S2.LCL==BIT11		; [5.1015] INPUT XOFF LOCAL REQUEST
  10146		002000 				S2.RES==BIT10		; [4.1.1137] RESERVED FOR EXTENSION
  10147		001000 				S2.SSZ==BIT9		; [5.1015] SET INPUT SPEED TO ZERO
  10148		001400 				S2.CNT==BIT8!BIT9	; [5.1015] WAIT COUNT FIELD
  10149					;
  10150		000377 				S2.CHR==377		; [5.1016] LOW BYTE HOLDS DEFERRED BREAK-THROUGH WRITE CHARACTER
  10151					;
  10152					;	THREAD ENTRIES ARE IN THE FOLLOWING FORMAT
  10153					;
  10154		000000 				T.HRED==0		; THREAD WORD (MUST BE ZERO)
  10155		000002 				T.HBCT==2		; BYTE COUNT OF THIS BUFFER
  10156		000004 				T.HCAD==4		; CURRENT ADDRESS OF THIS POINTER
  10157		000006 				T.HCBC==6		; CURRENT BYTE COUNT OF CARS LEFT IN BUFFER
  10158		000007 				T.HFCN==7		; FUNCTION CODE
  10159		000010 				T.HHDS==10		; SIZE OF THIS HEADER
  10160					;
  10161					;	DL-11E RCSR BITS
  10162					;
  10163		100000 				DL.DSC==BIT15		; DL-11E DATASET STATUS CHANGE
  10164		040000 				DL.RNG==BIT14		; DL-11E RING INDICATOR
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 189-2
TERMINAL DRIVER -- DEFINITIONS

  10165		020000 				DL.CTS==BIT13		; DL-11E CLEAR TO SEND
  10166		010000 				DL.CAR==BIT12		; DL-11E CARRIER DETECT
  10167		004000 				DL.RAC==BIT11		; DL-11E RECIEVER ACTIVE
  10168		002000 				DL.SRD==BIT10		; DL-11E SECONDARY RECIEVED DATA
  10169		000200 				DL.RDN==BIT7		; DL-11E RECIVER DONE
  10170		000100 				DL.REN==BIT6		; DL-11E RECIEVER INTERRUPT ENABLE
  10171		000040 				DL.DEN==BIT5		; DL-11E DATASET INTERRUPT ENABLE
  10172		000010 				DL.STD==BIT3		; DL-11E SECONDARY TRANSMITTED DATA
  10173		000004 				DL.RTS==BIT2		; DL-11E REQUEST TO SEND
  10174		000002 				DL.DTR==BIT1		; DL-11E DATA TERMINAL READY
  10175		000001 				DL.RDE==BIT0		; DL-11E READER ENABLE
  10176		001420 				DL.UNA==BIT9!BIT8!BIT4	; DL-11E UNASSIGNED
  10177					;
  10178					;	DL-11E RBUF BITS
  10179					;
  10180		020000 				DL.FER==BIT13		; DL-11 FRAMING ERROR
  10181					;
  10182					;	DL-11E XCSR BITS
  10183					;
  10184		000100 				DL.XEN==BIT6		; DL-11E XMTR ENABLE
  10185					;
  10186					;	DH-11 NRCR BITS
  10187					;
  10188		020000 				DH.FER==BIT13		; DH-11 FRAMING ERROR
  10189					;
  10190					; SPECIAL CHARACTER DEFINITIONS
  10191					;
  10192		000011 				C.HTAB==11		; HORIZONTAL TAB CHARACTER
  10193		000012 				C.HLFD==12		; LINE FEED CHARACTER
  10194		000013 				C.HVTB==13		; VERTICAL TAB CHARACTER
  10195		000014 				C.HFFD==14		; FORM FEED CHARACTER
  10196		000015 				C.HCRT==15		; CARRIARGE RETURN CHARACTER
  10197		000021 				C.HXON==21		; XON CHARACTER
  10198		000023 				C.HXOF==23		; XOFF CHARACTER
  10199		000032 				C.HEOF==32		; END-OF-FILE CHARACTER
  10200		000033 				C.HESC==33		; ESCAPE CHARACTER
  10201		000033 				C.HALT==C.HESC		; ALIAS ALT-MODE
  10202		000040 				C.HSPC==40		; SPACE CHARACTER
  10203		000200 				C.HPAR==200		; PARITY BIT
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 190
TERMINAL DRIVER -- DEFINITIONS

  10205	031736				TTYHD::
  10206	031736					.STKM	0,0,0,0,0,0,0,TTINI,174000,TTYSP
	032004	000000 	000000 	000000 		.WORD	0,0,0,0
	032012	000000
	032032	174000 	032404'	032216'		.WORD	174000,TTINI,TTYSP
	032066	000005 				.WORD	5
	032070	010232'				.WORD	TTPEN
	032072	000000 				.WORD	0
	032074	000000 				.WORD	0
	032076	000000 				.WORD	0
	032100	000000 				.WORD	0
	032102	000000 				.WORD	0
	032104	000000 				.WORD	0
	032106	000000 				.WORD	0
	032110	000000 				.WORD	0
	032112	000000 				.WORD	0
	032114	000000 				.WORD	0
	032216	000000 				.WORD	0
	032220	000000 				.WORD	0
	032222	000000 				.WORD	0
	032224	000000 				.WORD	0
	032226	000000 				.WORD	0
	032230	000000 				.WORD	0
	032232	032404'				.WORD	TTINI
	032234	174000 				.WORD	174000
  10207					;
  10208					; LOCAL DATA
  10209					;
  10210					;
  10211					; CONTROL OUTPUT MESSAGES
  10212					;
  10213	032236				CTRLC:
  10214	032236	   136 	   103 	   015 		.ASCII	/^C/<15><12>
	032241	   012
  10215	032242				CTRLU:
  10216	032242	   136 	   125 	   015 		.ASCII	/^U/<15><12>
	032245	   012
  10217	032246				CTRLZ:
  10218	032246	   136 	   132 	   015 		.ASCII	/^Z/<15><12>
	032251	   012
  10219
  10220	032252				TTWLO:
  10221	032252					WTLO$	1,EF.NIR!EF.IOD!EF.TMO!EF.RQM!EF.RKR!EF.RKH!EF.RSS
	032252	   053 	   003 			.BYTE	43.,3
	032254	000001 				.WORD	1
	032256	007330 				.WORD	EF.NIR!EF.IOD!EF.TMO!EF.RQM!EF.RKR!EF.RKH!EF.RSS
  10222	032260				EXKAL:
  10223	032260					EHSG$	0,PSWW1,KPAL0
	032260	002411 				.WORD	400*5.+DR.DTE
	032262	000010 				.WORD	DF.EHG
	032264	000005 				.WORD	PSWW1
	032266	001376'				.WORD	KPAL0
	032270	000000 				.WORD	0
  10224	032272				RQMCR:
  10225	032272					RQST$	PARSER,,249.
	032272	   013 	   007 			.BYTE	11.,7
	032274	062072 	073632 			.RAD50	/PARSER/
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 190-1
TERMINAL DRIVER -- DEFINITIONS

	032300	000000 	000000 			.WORD	0,0
	032304	000371 				.WORD	249.
	032306	   000 	   000 			.BYTE	,
  10226	032310				RQKLR:
  10227	032310					RQST$	KLRING,,10
	032310	   013 	   007 			.BYTE	11.,7
	032312	043262 	035167 			.RAD50	/KLRING/
	032316	000000 	000000 			.WORD	0,0
	032322	000010 				.WORD	10
	032324	   000 	   000 			.BYTE	,
  10228	032326				RQKLD:
  10229	032326					RQST$	KLDISC,,10
	032326	   013 	   007 			.BYTE	11.,7
	032330	043244 	035473 			.RAD50	/KLDISC/
	032334	000000 	000000 			.WORD	0,0
	032340	000010 				.WORD	10
	032342	   000 	   000 			.BYTE	,
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 191
TERMINAL DRIVER -- DEFINITIONS

  10231					;
  10232					;	AUTO-BAUD TABLES
  10233					;
  10234	032344				CHTBL:
  10235	032344	   214 				.BYTE	214		; <CR> AT 110 BAUD
  10236	032345	   234 				.BYTE	234		; <CR> AT 110 BAUD
  10237	032346	   346 				.BYTE	346		; <CR> AT 150 BAUD
  10238	032347	   015 				.BYTE	15		; <CR> AT 300 BAUD
  10239	032350	   215 				.BYTE	215		; <CR> AT 300 BAUD
  10240	032351	   174 				.BYTE	174		; <^C> AT 110 BAUD
  10241	032352	   036 				.BYTE	36		; <^C> AT 150 BAUD
  10242	032353	   203 				.BYTE	203		; <^C> AT 300 BAUD
  10243	032354	   003 				.BYTE	3		; <^C> AT 300 BAUD
  10244	032355	   376 				.BYTE	376		; [4.2103] <ANYTHING> AT 1200 BAUD
  10245	032356	   377 				.BYTE	377		; [4.2103] <ANYTHING> AT 1200 BAUD
  10246
  10247		000013 				CHTBLN= .-CHTBL
  10248					.EVEN
  10249
  10250	032360				IDXTB:
  10251	032360	   000 				.BYTE	0		; [4.2103] INDEX FOR 110 BAUD
  10252	032361	   000 				.BYTE	0		; [4.2103] INDEX FOR 110 BAUD
  10253	032362	   002 				.BYTE	2		; [4.2103] INDEX FOR 150 BAUD
  10254	032363	   004 				.BYTE	4		; [4.2103] INDEX FOR 300 BAUD
  10255	032364	   004 				.BYTE	4		; [4.2103] INDEX FOR 300 BAUD
  10256	032365	   000 				.BYTE	0		; [4.2103] INDEX FOR 110 BAUD
  10257	032366	   002 				.BYTE	2		; [4.2103] INDEX FOR 150 BAUD
  10258	032367	   004 				.BYTE	4		; [4.2103] INDEX FOR 300 BAUD
  10259	032370	   004 				.BYTE	4		; [4.2103] INDEX FOR 300 BAUD
  10260	032371	   006 				.BYTE	6		; [4.2103] INDEX FOR 1200 BAUD
  10261	032372	   006 				.BYTE	6		; [4.2103] INDEX FOR 1200 BAUD
  10262					.EVEN
  10263
  10264	032374				SPDTB:
  10265	032374	006307 				.WORD	6307		; [4.2103] 110 BAUD LINE SPEED
  10266	032376	012503 				.WORD	12503		; [4.2103] 150 BAUD LINE SPEED
  10267	032400	016703 				.WORD	16703		; [4.2103] 300 BAUD LINE SPEED
  10268	032402	023103 				.WORD	23103		; [4.2103] 1200 BAUD LINE SPEED
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 192
TERMINAL DRIVER -- TTINI (TTY QUEUE SERVICE)

  10270						.SBTTL	TERMINAL DRIVER -- TTINI (TTY QUEUE SERVICE)
  10271
  10272						.ENABL	LSB
  10273
  10274					;
  10275					; TERMINAL DRIVER EVENT FLAG SERVICE
  10276					;
  10277
  10278	032404				TTINI::
  10279	032404					DIR$	#TTWLO		; WAIT FOR TTY
	032404	012746 	032252'			MOV	#TTWLO,-(SP)
	032410	104375 				EMT	375
  10280	032412					.INH6			;;; INHIBIT TASK SWITCHING
	032412	013746 	177776 			MOV	@#PS,-(SP)
	032416	112737 	000300 	177776 		MOVB	#300,@#PS
  10281	032424	013705 	001006'			MOV	.CRTSK,R5	;;; FIND THE CURRENT TASK POINTER
  10282	032430	016504 	000020 			MOV	A.EF(R5),R4	;;; FIND EVENT FLAGS
  10283	032434	005065 	000020 			CLR	A.EF(R5)	;;; CLEAR EVENT FLAGS
  10284	032440					.ENB6			; ENABLE TASK SWITCHING
	032440	012637 	177776 			MOV	(SP)+,@#PS
  10285	032444	010446 				MOV	R4,-(SP)	; [4.2247] STACK THE EVENT FLAGS
  10286	032446	032716 	000200 			BIT	#EF.RQM,(SP)	; [4.2247] REQUEST MCR??
  10287	032452	001406 				BEQ	10$		; NO -- MUST BE SOMETHING ELSE
  10288	032454	152737 	000002 	011316'		BISB	#M.PARQ,.MISC	; SET PRIORITY INPUT REQUEST
  10289	032462					DIR$	#RQMCR		; YES -- REQUEST PARSER
	032462	012746 	032272'			MOV	#RQMCR,-(SP)
	032466	104375 				EMT	375
  10290	032470				10$:
  10291	032470	032716 	001000 			BIT	#EF.RKR,(SP)	; [4.2247] KLINIK RING INTERRUPT??
  10292	032474	001403 				BEQ	15$		; NO -- FORGET IT
  10293	032476					DIR$	#RQKLR		; YES -- REQUEST KLRING
	032476	012746 	032310'			MOV	#RQKLR,-(SP)
	032502	104375 				EMT	375
  10294	032504				15$:
  10295	032504	032716 	002000 			BIT	#EF.RKH,(SP)	; [4.2247] KLINIK HANGUP??
  10296	032510	001403 				BEQ	20$		; NO -- GO ON
  10297	032512					DIR$	#RQKLD		; YES -- REQUEST KLDISC
	032512	012746 	032326'			MOV	#RQKLD,-(SP)
	032516	104375 				EMT	375
  10298	032520				20$:
  10299	032520	032716 	004000 			BIT	#EF.RSS,(SP)	; [4.2247] AUTO-BAUD REQUEST??
  10300	032524	001417 				BEQ	30$		; NO -- GO ON
  10301	032526	005737 	002602'			TST	.ABFLG		; YES -- INTERLOCK SET??
  10302	032532	001014 				BNE	30$		; YES -- GO ON
  10303	032534	013737 	002600'	002602'	25$:	MOV	.ABCNT,.ABFLG	; NO -- REAL REQUEST??
  10304	032542	001410 				BEQ	30$		; NO -- IGNORE IT
  10305	032544					DIR$	#.RQSPD		; YES -- REQUEST "SETSPD"
	032544	012746 	024600'			MOV	#.RQSPD,-(SP)
	032550	104375 				EMT	375
  10306	032552	103004 				BCC	30$		; [5.1011] ERROR FREE ??
  10307	032554					WSIG$S			; [5.1011] NO, WAIT A BIT
	032554	012746 				MOV	(PC)+,-(SP)
	032556	   061 	   001 			.BYTE	49.,1
	032560	104375 				EMT	375
  10308	032562	000764 				BR	25$		; [5.1011] RETRY THE REQUEST
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 193
TERMINAL DRIVER -- TIMEOUT SERVICE

  10310						.SBTTL	TERMINAL DRIVER -- TIMEOUT SERVICE
  10311
  10312	032564				30$:
  10313	032564	032716 	000100 			BIT	#EF.TMO,(SP)	; [4.2247] TIMEOUT??
  10314	032570	001431 				BEQ	45$		; [5.1008] NO -- GO ON
  10315	032572					.INH5			; [4.2309] YES -- DISALLOW TERMINAL INTERRUPTS
	032572	013746 	177776 			MOV	@#PS,-(SP)
	032576	112737 	000240 	177776 		MOVB	#240,@#PS
  10316	032604	105337 	002662'			DECB	TMOCNT+0	;;; [4.2309] ONLY DO TIMEOUT EVERY 10 SEC
  10317	032610	001007 				BNE	35$		;;; [5.1008] NOT YET -- SEE ABOUT ERROR LOGGING
  10318	032612	112737 	000012 	002662'		MOVB	#^D10,TMOCNT+0	;;; [4.2309] RESET TIMEOUT COUNT
  10319	032620					CALL	.DHTMO		;;; [4.2205] CHECK FOR TIMEOUT ON DM-11/BB'S AND DH-11'S
	032620	004737 	040646'			JSR	PC,.DHTMO
  10320	032624					CALL	.DLTMO		;;; CHECK FOR TIMEOUT ON DL-11E'S
	032624	004737 	040336'			JSR	PC,.DLTMO
  10321	032630				35$:
  10322	032630	105337 	002663'			DECB	TMOCNT+1	;;; [4.2309] MODEM TIMEOUT DUE??
  10323	032634	001005 				BNE	40$		;;; [5.1008] NO -- GO ON
  10324	032636	112737 	000026 	002663'		MOVB	#^D22,TMOCNT+1	;;; [4.2309] YES -- RESET TIMEOUT COUNT
  10325	032644					CALL	.DMTMO		;;; [4.2309] AND CHECK DM-11/BB'S
	032644	004737 	041126'			JSR	PC,.DMTMO
  10326	032650				40$:
  10327	032650					.ENB5			;;; [4.2054] ALLOW INTERRUPTS
	032650	012637 	177776 			MOV	(SP)+,@#PS
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 194
TERMINAL DRIVER -- ACK ALL SERVICE

  10329						.SBTTL	TERMINAL DRIVER -- ACK ALL SERVICE
  10330
  10331	032654				45$:
  10332	032654	005737 	001164'			TST	.ACKAL		; ACK ALL REQUESTED??
  10333	032660	001424 				BEQ	50$		; NO -- CONTINUE
  10334	032662	005037 	001164'			CLR	.ACKAL		; YES -- CLEAR FLAG
  10335	032666	012703 	000005 			MOV	#D.CLPT,R3	; SET LINE ALLOCATION ON LPT
  10336	032672	012704 	000214 			MOV	#140.,R4	; 140 BYTES
  10337	032676	012701 	000023 			MOV	#BC.SLA,R1	; SET LINE ALLOCATION
  10338	032702					CALL	..STFC
	032702	004737 	045456'			JSR	PC,..STFC
  10339	032706	062704 	000400 			ADD	#400,R4		; ALSO LPT1
  10340	032712					CALL	..STFC
	032712	004737 	045456'			JSR	PC,..STFC
  10341	032716	012701 	000025 			MOV	#BC.AKA,R1	; SEND ACK ALL
  10342	032722	012703 	000007 			MOV	#7,R3		; RANDOM FUNCTION CODE (ZERO A BAD IDEA HERE)
  10343									; DON'T CARE ABOUT FIRST WORD SENT
  10344	032726					CALL	..STFC		; START ACK FUNCTION
	032726	004737 	045456'			JSR	PC,..STFC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 195
TERMINAL DRIVER -- QUEUED PROTOCOL KEEP-ALIVE SERVICE

  10346						.SBTTL	TERMINAL DRIVER -- QUEUED PROTOCOL KEEP-ALIVE SERVICE
  10347
  10348					;+
  10349					; QUEUED PROTOCOL KEEP-ALIVE SERVICE
  10350					;
  10351					; THE QUEUED PROTOCOL KEEP-ALIVE SERVICE IS DONE AS PART OF THE TERMINAL
  10352					; DRIVER TIMEOUT SERVICE AS IS IT CONVENIENT AND ELIMINATESS THE NEED FOR
  10353					; A SEPARATE QUEUED PROTOCOL TIMEOUT SERVICE TASK.
  10354					;
  10355					; NO KEEP-ALIVE CHECKING OR MAINTENANCE WILL BE DONE IF THE FRONT-END IS NOT
  10356					; RUNNING PRIMARY PROTOCOL.
  10357					;
  10358					; KEEP-ALIVE MAINTENANCE IS ALWAYS DONE WHILE THE FRONT-END IS IN PRIMARY
  10359					; PROTOCOL BUT KEEP-ALIVE CHECKING IS DONE ONLY IF ".NOERR" IS CLEAR (ERRORS
  10360					; ARE TO BE IGNORED)
  10361					;
  10362					; THE HOST'S KEEP-ALIVE COUNT IS EXAMINED ONCE PER TIMEOUT AND CHECKED TO
  10363					; VERIFY THAT THE KEEP-ALIVE COUNT IS CHANGING. IF THE EXAMINE FAILS, THE
  10364					; HOST IS ASSUMED TO BE DEAD, AND THE ERROR IS IGNORED AT THIS LEVEL.
  10365					;
  10366					; IF THE EXAMINE SUCCEEDS AND THE HOST KEEP-ALIVE COUNT IS CHANGING, ALL IS
  10367					; WELL AND THE KEEP-ALIVE RETRY COUNTER, ".KPAC+0", IS RESET IN CASE THIS IS
  10368					; A CONTINUATION. THE CONTINUATION ATTEMPT IS MARKED BY DRIVING ".KPAC+1"
  10369					; NON-ZERO.
  10370					;
  10371					; IF THE HOST'S KEEP-ALIVE COUNT HAS NOT CHANGED, THE HOST IS ALLOWED 5 TIMEOUT
  10372					; PERIODS FOR THE KEEP-ALIVE COUNT TO BEGIN CHANGING. IF THIS TIME EXPIRES
  10373					; WITH NO RESUMPTION OF KEEP-ALIVE COUNTING, THE ERROR IS FLAGGED AND "TKTN"
  10374					; INVOKED.
  10375					;
  10376					; ON THE FIRST KEEP-ALIVE-CEASE, KLINIT (Q.V.) WILL EXECUTE THE KL10 INSTRUCTION
  10377					; IN LOCATION 71 IN ORDER THAT THE KL10 ATTEMPT TO DO SOMETHING ON ITS OWN ABOUT
  10378					; THE ERROR. THE FRONT-END WILL WAIT ONE KEEP-ALIVE PERIOD FOR THIS TO HAPPEN.
  10379					; IF THE SECOND KEEP-ALIVE PERIOD EXPIRES, A FULL ERROR DUMP AND RELOAD OF THE
  10380					; HOST IS REQUESTED.
  10381					;
  10382					; IN ALL CASES, THE FRONT-END WILL ATTEMPT TO CONTINUE ITS HALF OF THE KEEP-ALIVE
  10383					; DIALOG.
  10384					;-
  10385
  10386	032732				50$:
  10387	032732	032716 	000100 			BIT	#EF.TMO,(SP)	; [4.2247] IS THIS A CLOCK REQUEST??
  10388	032736	001507 				BEQ	95$		; [4.2247] NO -- GO ON
  10389	032740	005737 	001012'			TST	.COMEF+2	; [4.1.1105] YES -- ARE WE IN PRIMARY PROTOCOL??
  10390	032744	100104 				BPL	95$		; [4.1.1105] NO -- DON'T WORRY ABOUT KEEP-ALIVE
  10391	032746	005737 	001122'			TST	.NOERR		; [4.2107] YES -- DO WE CARE ABOUT HIS KEEP-ALIVE??
  10392	032752	001041 				BNE	80$		; [4.2107] NO -- GO ON
  10393	032754					DIR$	#EXKAL		; [4.2107] YES -- READ HOST KEEP-ALIVE COUNTER
	032754	012746 	032260'			MOV	#EXKAL,-(SP)
	032760	104375 				EMT	375
  10394	032762	103435 				BCS	80$		; [4.2107] HOST IS ALREADY DEAD IF CC-C IS SET
  10395	032764	123737 	001376'	001404'		CMPB	KPAL0,OKPAL0	; [4.2107] IS HIS COUNT CHANGING??
  10396	032772	001023 				BNE	70$		; [4.2107] YES -- GO ON
  10397	032774	105337 	001410'			DECB	.KPAC+0		; [4.2107] NO -- IS HE DEAD??
  10398	033000	003023 				BGT	75$		; [4.2107] NO -- NOT YET, ANYWAY
  10399	033002				55$:
  10400	033002	105337 	001411'			DECB	.KPAC+1		; [4.2107] YES -- SECOND TIME??
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 195-1
TERMINAL DRIVER -- QUEUED PROTOCOL KEEP-ALIVE SERVICE

  10401	033006	100404 				BMI	60$		; [4.2107] YES -- GO ON
  10402	033010	005737 	001412'			TST	.KACFL		; [4.2107] NO -- RETRIES ALLOWED??
  10403	033014	001005 				BNE	65$		; [4.2107] YES -- GO ON
  10404	033016	000771 				BR	55$		; [4.2107] NO -- FORCE SECOND ERROR
  10405						;
  10406					;
  10407					; HERE ON SECOND KEEP-ALIVE ERROR
  10408					;
  10409	033020				60$:
  10410	033020					CALL	..DTSP		; [4.2107] KILL ALL PROTOCOLS
	033020	004737 	046770'			JSR	PC,..DTSP
  10411	033024	105237 	001122'			INCB	.NOERR		; [4.2107] INDICATE WE ARE SERVICING A REAL ERROR
  10412					;
  10413					; HERE ON FIRST KEEP-ALIVE ERROR
  10414					;
  10415	033030				65$:
  10416	033030	052737 	000020 	001126'		BIS	#KS.CST,.KLITK	; [4.2107] FLAG THE ERROR
  10417	033036	105237 	001124'			INCB	.TKTN		; [4.2107] REQUEST TKTN
  10418					;
  10419					; HERE WHEN HIS KEEP-ALIVE IS RUNNING OR HAS TIMED OUT
  10420					;
  10421	033042				70$:
  10422	033042	112737 	000005 	001410'		MOVB	#.KALSC,.KPAC+0	; [4.2107] RESET RETRY COUNTER
  10423	033050				75$:
  10424	033050	013737 	001376'	001404'		MOV	KPAL0,OKPAL0	; [4.2107] SAVE HIS COUNT FOR THE NEXT TIME AROUND
  10425					;
  10426					; INCREMENT AND TRANSMIT OUR KEEP-ALIVE COUNT
  10427					;
  10428	033056				80$:
  10429	033056	005737 	001374'			TST	.DTBLK		; [4.1.1121] IS THE DTE-20 BLOCKED??
  10430	033062	001013 				BNE	85$		; [4.1.1121] YES -- GO ON
  10431	033064					.INH6			; [4.1.1104] NO -- DISALLOW INTERRUPTS
	033064	013746 	177776 			MOV	@#PS,-(SP)
	033070	112737 	000300 	177776 		MOVB	#300,@#PS
  10432	033076	013700 	001360'			MOV	.PRDTE,R0	;;; [4.1.1104] POINT TO THE DTE-20
  10433	033102					CALL	.KPALV		;;; [4.1.1104] DO KEEP-ALIVE
	033102	004737 	031326'			JSR	PC,.KPALV
  10434	033106					.ENB6			;;; [4.1.1104] ALLOW INTERRUPTS
	033106	012637 	177776 			MOV	(SP)+,@#PS
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 196
TERMINAL DRIVER -- GENERAL ERROR LOGGING

  10436						.SBTTL	TERMINAL DRIVER -- GENERAL ERROR LOGGING
  10437
  10438	033112				85$:
  10439	033112	012704 	002654'			MOV	#.TTELQ,R4	; [4.2245] POINT TO TERMINAL ERROR LOG QUEUE
  10440	033116	012703 	000004 			MOV	#D.CDLS,R3	; [5.1008] DEVICE CODE TO R3
  10441	033122					CALL	..ERLG		; [5.1008] DO TERMINAL ERROR LOGGING
	033122	004737 	043212'			JSR	PC,..ERLG
  10442	033126	012703 	000202 			MOV	#D.CDTE,R3	; [5.1008] DEVICE CODE TO R3
  10443	033132	012704 	001366'			MOV	#.EBPEQ,R4	; [5.1008] POINT TO DTE-20 ERROR LOG QUEUE
  10444	033136					CALL	..ERLG		; [5.1008] DO DTE-20 ERROR LOGGING
	033136	004737 	043212'			JSR	PC,..ERLG
  10445	033142	012703 	000203 			MOV	#D.CRJP,R3	; [5.1009] DEVICE CODE TO R3
  10446	033146	012704 	005536'			MOV	#.RPELQ,R4	; [5.1009] POINT TO ERROR LOG QUEUE
  10447	033152					CALL	..ERLG		; [5.1009] DO RH-11 ERROR LOGGING
	033152	004737 	043212'			JSR	PC,..ERLG
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 197
TERMINAL DRIVER -- CTY SERVICE

  10449						.SBTTL	TERMINAL DRIVER -- CTY SERVICE
  10450
  10451	033156				95$:
  10452	033156	032726 	000020 			BIT	#EF.IOD,(SP)+	; [4.2247] I/O DONE??
  10453	033162	001076 				BNE	105$		; [4.2247] YES -- HANDLE THAT FIRST
  10454	033164	005737 	002732'			TST	TTPKT		; NO -- CHECK PACKET
  10455	033170	001166 				BNE	TTINO		; PACKET IN USE -- WAIT
  10456	033172				DQNXT:
  10457	033172					.INH6			; DISALLOW INTERRUPTS
	033172	013746 	177776 			MOV	@#PS,-(SP)
	033176	112737 	000300 	177776 		MOVB	#300,@#PS
  10458	033204	132737 	000002 	011316'		BITB	#M.PARQ,.MISC	; PRIORTY INPUT REQUEST ?
  10459	033212	001017 				BNE	97$		; BRANCH IF YES
  10460	033214	105737 	001226'			TSTB	.KLNSW		;;; IS KLINIK ACTIVE ?
  10461	033220	003406 				BLE	100$		;;; NO -- GO ON
  10462	033222	013700 	002636'			MOV	KLNPTR,R0	;;; KLINIK LINE POINTER TO R0
  10463	033226	032760 	000001 	000006 		BIT	#TT.OUT,STSW1(R0) ;;; IS IT BUSY ??
  10464	033234	001142 				BNE	TTINX		;;; YES -- WAIT A WHILE
  10465	033236				100$:
  10466	033236	013700 	002634'			MOV	CTYPTR,R0	;;; CHECK AND WAIT FOR I/O FROM 10 TO STOP
  10467	033242	032760 	000001 	000006 		BIT	#TT.OUT,STSW1(R0) ;;; OUTPUT IN PROGRESS ?
  10468	033250	001134 				BNE	TTINX		;;; YES -- GO ON
  10469	033252				97$:
  10470	033252	012700 	052124 			MOV	#"TT,R0		;;; NO -- SET UP TO DEQUEUE FROM TTY LUN
  10471	033256					CALL	..DQRN		;;; GET AN I/O PACKET TO PROCESS
	033256	004737 	043432'			JSR	PC,..DQRN
  10472	033262	103527 				BCS	TTINX		;;; IF CC-C IS SET CONTROLLER BUSY OR NO REQUEST
  10473	033264	005237 	002632'			INC	.TTP11		;;; SET PDP11 I/O IN PROGRESS
  10474	033270					.ENB6			;;; ALLOW INTERRUPTS
	033270	012637 	177776 			MOV	(SP)+,@#PS
  10475					;
  10476					; THE FOLLOWING ARGUMENTS ARE RETURNED BY ..DQRN:
  10477					;
  10478					;	R0 -- LOGICAL UNIT NUMBER
  10479					;	R1 -- ADDRESS OF THE I/O REQUEST PACKET.
  10480					;
  10481	033274	010137 	002732'			MOV	R1,TTPKT	; SAVE PACKET ADDRESS
  10482	033300	010337 	002726'			MOV	R3,BYCNT 	; SAVE THE BYTE COUNT
  10483	033304	010337 	002724'			MOV	R3,CNT		; SAVE IT HERE ALSO
  10484	033310	010537 	002730'			MOV	R5,CRADR	; SAVE CURRENT ADDRESS
  10485	033314	013705 	002634'			MOV	CTYPTR,R5	; FIND THE CTY TERMINAL
  10486	033320	012703 	002664'			MOV	#CTYSTS,R3	; FIND TERMINAL STATUS WORD
  10487	033324	122761 	000001 	000015 		CMPB	#IO.WLB/256.,R.FC+1(R1) ; WRITE LOGICAL FUNCTION?
  10488	033332	001451 				BEQ	125$		; IF EQ YES
  10489	033334	042713 	000040 			BIC	#CTLO,@R3	; ENABLE OUTPUT
  10490	033340	122761 	000002 	000015 		CMPB	#IO.RLB/256.,R.FC+1(R1) ; READ LOGICAL FUNCTION?
  10491	033346	001422 				BEQ	115$		; YES -- PROCESS REQUEST
  10492	033350	012703 	000001 			MOV	#IS.SUC,R3	; SET UP THE ERROR STATUS
  10493	033354	005004 				CLR	R4		; INDICATE NO TRANSFER
  10494	033356	000407 				BR	110$		; TRY AGAIN
  10495						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 198
TERMINAL DRIVER -- CTY I/O DONE SERVICE

  10497						.SBTTL	TERMINAL DRIVER -- CTY I/O DONE SERVICE
  10498
  10499	033360				105$:
  10500	033360	013701 	002732'			MOV	TTPKT,R1	; FIND THE I/O PACKET
  10501	033364	001702 				BEQ	DQNXT
  10502	033366	016104 	000026 			MOV	R.PB+2(R1),R4	; SET THE COUNT XFERED
  10503	033372	013703 	002730'			MOV	CRADR,R3	; RETURN THE STATUS
  10504	033376				110$:
  10505	033376					CALL	..IODN		; CALL I/O DONE OUTINE
	033376	004737 	043312'			JSR	PC,..IODN
  10506	033402	005337 	002632'			DEC	.TTP11		; PDP11 INPUT NOT IN PROGREESS
  10507	033406	005037 	002732'			CLR	TTPKT		; SET NO PACKET IN USE
  10508	033412	000667 				BR	DQNXT		; AND WAIT FOR NEXT JOB
  10509						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 199
TERMINAL DRIVER -- CTY INPUT SERVICE

  10511						.SBTTL	TERMINAL DRIVER -- CTY INPUT SERVICE
  10512
  10513					;
  10514					; REQUEST IS A SOLICITED INPUT REQUEST-GET A BUFFER FOR INPUT
  10515					;
  10516	033414				115$:				; SET SOLICITED INPUT FLAG
  10517	033414	042713 	102400 			BIC	#MODE!EOLS!CRTY,@R3
  10518	033420	013763 	002730'	000006 		MOV	CRADR,CURBF(R3) ;SET RANDOM INPUT VALUES
  10519	033426	013763 	002726'	000004 		MOV	BYCNT,RMBYT(R3)
  10520	033434	013763 	002730'	000002 		MOV	CRADR,STRBF(R3)
  10521	033442	032713 	001000 			BIT	#CRJT,@R3	; CARRIAGE RETURN JUST TYPED?
  10522	033446	001426 				BEQ	135$		; NO -- NO CARRAGE CONTROL NECESSARY
  10523	033450				120$:
  10524	033450	062713 	004000 			ADD	#LFBT,@R3	; FORCE LINE FEED
  10525	033454	000423 				BR	135$		; AND FORCE IT OUT
  10526						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 200
TERMINAL DRIVER -- CTY OUTPUT SERVICE

  10528						.SBTTL	TERMINAL DRIVER -- CTY OUTPUT SERVICE
  10529
  10530					;
  10531					; REQUEST IS AN OUTPUT REQUEST-SET UP CARRIAGE CONTROL FLAGS
  10532					;
  10533	033456				125$:
  10534	033456	005737 	010246'			TST	TTPEN+U.AF	; CHECK FOR ATTACHED
  10535	033462	001002 				BNE	130$		; YES -- DON'T CLEAR STATUS FLAGS
  10536	033464	042713 	000040 			BIC	#CTLO,@R3	; ENABLE OUTPUT
  10537	033470				130$:
  10538	033470	042713 	076437 			BIC	#LFCT!CRTY!EOLS!RUBP!FLCT,@R3 ; CLEAR STATUS WORD
  10539	033474	052713 	100000 			BIS	#MODE,@R3	; SET OUTPUT MODE
  10540	033500	005761 	000030 			TST	R.PB+4(R1)	; CHECK FOR CARRAGE CONTROL
  10541	033504	001407 				BEQ	135$		; NO -- NOTHING TO DO
  10542	033506	122761 	000044 	000030 		CMPB	#'$,R.PB+4(R1)	; $?
  10543	033514	001755 				BEQ	120$		; YES -- DON'T FAKE CARRAGE CONTROL HERE
  10544	033516	052713 	002000 			BIS	#CRTY,@R3	; YES -- IT WILL ALWAYS BE ASSUMED ' '
  10545	033522	000752 				BR	120$		; OUTPUT CRLF
  10546						;
  10547	033524				135$:
  10548	033524					.INH6			; DISALLOW INTERRUPTS
	033524	013746 	177776 			MOV	@#PS,-(SP)
	033530	112737 	000300 	177776 		MOVB	#300,@#PS
  10549	033536					CALL	OUTPT		;;; START OUTPUT
	033536	004737 	034546'			JSR	PC,OUTPT
  10550	033542				TTINX:
  10551	033542					.ENB6			;;; ALLOW INTERRUPTS
	033542	012637 	177776 			MOV	(SP)+,@#PS
  10552	033546				TTINO:
  10553	033546	000137 	032404'			JMP	TTINI		; MAKE SURE OUTPUT IS ACTIVE
  10554						;
  10555						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 201
TERMINAL DRIVER -- $DHOUT (DH-11 OUTPUT INTERRUPT)

  10557						.SBTTL	TERMINAL DRIVER -- $DHOUT (DH-11 OUTPUT INTERRUPT)
  10558					;
  10559					;	DHOUT -- DH-11 TERMINAL MUX OUT INTERRUPTS
  10560					;
  10561	033552				$DHOUT::			;;; REF LABEL
  10562	033552	013737 	177776 	002646'		MOV	@#PS,DHTMP	;;; SAVE CONTROLLER NUMBER
  10563	033560					CALL	R3,DHSAV	;;; SAVE R3 AND SETUP R3 AND R4
	033560	004337 	037274'			JSR	R3,DHSAV
  10564	033564	001417 				BEQ	35$		;;; SPURIOUS INTERRUPT
  10565	033566				10$:
  10566	033566	042714 	101077 			BIC	#101077,@R4	;;; CLEAR CURRENT UNIT AND TRANSMIT INT
  10567	033572				20$:
  10568	033572	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; OUTPUT INTERRUPT EXPECTED?
  10569	033600	001403 				BEQ	30$		;;; IF EQ NO
  10570	033602	005764 	000010 			TST	10(R4)		;;; ZERO BYTE COUNT?
  10571	033606	001407 				BEQ	40$		;;; IF EQ YES
  10572	033610				30$:
  10573	033610	005214 				INC	@R4		;;; INCREMENT UNIT NUMBER
  10574	033612	062705 	000010 			ADD	#10,R5		;;; POINT TO NEXT ENTRY
  10575	033616	026504 	000002 			CMP	TTYEXP(R5),R4	;;; SAME DH-11 ??
  10576	033622	001763 				BEQ	20$		;;; YES -- CHECK NEXT UNIT
  10577	033624				35$:
  10578	033624					RETURN
	033624	000207 				RTS	PC
  10579	033626				40$:
  10580	033626	042765 	000001 	000006 		BIC	#TT.OUT,STSW1(R5) ;;; THIS OPERATION IS FINISHED
  10581	033634	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS A CTY??
  10582	033642	001003 				BNE	60$		;;; YES -- DO SPECIAL CTY CHECK
  10583	033644				50$:
  10584	033644					CALL	STTYDN		;;; NO -- START NEXT OUTPUT PACKET
	033644	004737 	033676'			JSR	PC,STTYDN
  10585	033650	000757 				BR	30$		;;; SEE ABOUT OTHER LINES IN THIS DH-11
  10586						;
  10587					;
  10588					; HERE FOR SPECIAL CTY CHECKS AND PROCESSING
  10589					;
  10590	033652				60$:
  10591	033652	005737 	002632'			TST	.TTP11		;;; IS THIS PDP11 OUTPUT?
  10592	033656	001772 				BEQ	50$		;;; NO -- THEN HANDLE AS NORMAL CASE
  10593	033660	010446 			65$:	MOV	R4,-(SP)	;;; SAVE R4
  10594	033662					CALL	OUTPT3		;;; FINISH OUTPUT PROCESSING
	033662	004737 	034466'			JSR	PC,OUTPT3
  10595	033666	012604 				MOV	(SP)+,R4	;;; RESTORE R4
  10596	033670					CALL	.TTIXC		;;; [5.1015] DO INPUT CONTROL CHECKS
	033670	004737 	042254'			JSR	PC,.TTIXC
  10597	033674	000745 				BR	30$		;;; GO AGAIN
  10598						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 202
TERMINAL DRIVER -- STTYDN (REMOVE PROCESSED OUTPUT NODE)

  10600						.SBTTL	TERMINAL DRIVER -- STTYDN (REMOVE PROCESSED OUTPUT NODE)
  10601
  10602					;+
  10603					;	STTYDN -- REMOVE ENTRY FOR LAST OPERATION
  10604					;
  10605					;	IF THIS IS A SENDALL WHICH HAS FINISHED, DECREMENT THE COUNT FOR
  10606					;	THE NODE IN THE SENDALL RING. IF THE COUNT HAS EXHAUSTED, DEALLOCATE
  10607					;	THER CURRENT SENDALL BUFFER. THE SENDALL OFFSET FOR THIS LINE IS MOVED
  10608					;	TO THE NEXT NODE IN THE SENDALL RING.
  10609					;
  10610					;	IF THIS IS A NORMAL I/O TERMINATION,, ALTER THE BUFFER ADDRESS AND BYTE
  10611					;	COUNT IN THE CURRENT NODE SO THAT THE XON CODE CAN DO A NORMAL LINE
  10612					;	START. THE PACKET WILL BE ACK'ED AND DEALLOCATED AFTER THE LINE HAS
  10613					;	BEEN X'D ON.
  10614					;
  10615					;	IF THE PACKET IS FINISHED, THE CURRENT NODE IS REMOVED FROM THE
  10616					;	THREAD LIST, DEALLOCATED AND AN ATTEMPT MADE TO START THE NEXT ENTRY
  10617					;	IN THE THREAD LIST. IF THE LIST IS EMPTY, THIS LINE WILL BE ACK'ED.
  10618					;-
  10619
  10620	033676				STTYDN:
  10621	033676	032765 	001000 	000006 		BIT	#TT.SIP,STSW1(R5) ;;; IS THIS A SENDALL IN PROGRESS??
  10622	033704	001444 				BEQ	20$		;;; NO -- DON'T MAKE SENDALL RETURN CHECKS
  10623	033706	042765 	001000 	000006 		BIC	#TT.SIP,STSW1(R5) ;;; YES -- CLEAR SENDALL IN PROGRESS
  10624	033714	016502 	000006 			MOV	STSW1(R5),R2	;;; FIND THE POSITION IN THE SEND ALL TABLE
  10625	033720	062765 	040000 	000006 		ADD	#TT.SNI,STSW1(R5) ;;; MOVE TO NEXT SENDALL RING WORD
  10626	033726	006102 				ROL	R2		;;; FIND THE POSITION IN THE TABLE
  10627	033730	006102 				ROL	R2		;;; OF THE CURRENT SENDALL
  10628	033732	006102 				ROL	R2		;;; JUST FINISHED
  10629	033734	042702 	177774 			BIC	#177774,R2	;;; MASK OFF JUNK
  10630	033740	006302 				ASL	R2		;;; MAKE A WORD INDEX
  10631	033742	005362 	002616'			DEC	.SNDCN(R2)	;;; DECREMENT THE CURRENT INUSE COUNT
  10632	033746	003045 				BGT	STNXT		;;; THIS SENDALL QUEUE NOT FINISHED -- DON'T RELEASE IT
  10633	033750	001415 				BEQ	10$		;;; ALL DONE -- RETURN IT
  10634						;
  10635					; THIS CODE REPLACES THE SAI STOPCODE. IT "FIXES" THIS LINES SENDALL INDEX.
  10636						;
  10637	033752	013702 	002604'			MOV	.SNDLP,R2	;;; GET THE SENDALL BUFFER INDEX
  10638	033756	000302 				SWAB	R2		;;; PUT COUNT IN THE HIGH BYTE
  10639	033760	012700 	000006 			MOV	#6,R0		;;; SET UP LOOP COUNT FOR LEFT SHIFTS
  10640	033764	006302 			5$:	ASL	R2		;;; SHIFT
  10641	033766	077002 				SOB	R0,5$		;;; LOOP FOR THE COUNT
  10642	033770	042765 	140000 	000006 		BIC	#140000,STSW1(R5) ;;; GET RID OF THE OLD INDEX
  10643	033776	050265 	000006 			BIS	R2,STSW1(R5)	;;; SET IN THE NEW ONE
  10644	034002	000427 				BR	STNXT
  10645						;
  10646	034004				10$:
  10647	034004	016200 	002606'			MOV	.SNDBF(R2),R0	;;; PICK UP THE ENTRY
  10648	034010	005062 	002606'			CLR	.SNDBF(R2)	;;; CLEAR OUT THIS ENTRY (MARK END OF RING)
  10649	034014	000420 				BR	30$		;;; AND CONTINUE
  10650						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 203
TERMINAL DRIVER -- STTYDN (REMOVE PROCESSED OUTPUT NODE)

  10652
  10653						;
  10654	034016				20$:				;;; HERE TO REMOVE THREAD ENTRY (NOT SENDALL)
  10655	034016	011500 				MOV	(R5),R0		;;; PICK UP THE THREAD POINTER
  10656	034020	001420 				BEQ	STNXT		;;; GO ON IF EMPTY
  10657									;;; [4.2096] REMOVED 2 INSTRUCTIONS
  10658	034022	016401 	000006 			MOV	6(R4),R1	;;; PICK UP CURRENT DH-11 ADDRESS
  10659	034026	116002 	000006 			MOVB	T.HCBC(R0),R2	;;; GET ORIGINAL BYTE COUNT
  10660	034032	016046 	000004 			MOV	T.HCAD(R0),-(SP) ;;; ORIGINAL ADDRESS TO STACK
  10661	034036	010160 	000004 			MOV	R1,T.HCAD(R0)	;;; CURRENT ADDRESS TO PACKET
  10662	034042	162601 				SUB	(SP)+,R1	;;; COMPUTE OFFSET INTO PACKET
  10663	034044	160102 				SUB	R1,R2		;;; DISCOUNT FROM PACKET SIZE
  10664	034046	110260 	000006 			MOVB	R2,T.HCBC(R0)	;;; AND SET NEW PACKET SIZE
  10665	034052	003003 				BGT	STNXT		;;; [4.2096] DON'T DEQUEUE IF NOT FINISHED
  10666	034054	011015 				MOV	@R0,(R5)	;;; DELINK THIS THREAD NODE
  10667	034056				30$:
  10668	034056					CALL	..DECN		;;; DEALLOCATE THE NODE
	034056	004737 	044546'			JSR	PC,..DECN
  10669									;;; AND START THE NEXT PACKET
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 204
TERMINAL DRIVER -- STNXT (START NEXT OUTPUT OPERATION)

  10671						.SBTTL	TERMINAL DRIVER -- STNXT (START NEXT OUTPUT OPERATION)
  10672
  10673					;+
  10674					;	STNXT -- START NEXT OUTPUT OPERATION
  10675					;
  10676					;	R0 -- POINTS TO THREAD NODE TO BE STARTED
  10677					;	R4 -- POINTS TO I/O PAGE ADDR THIS DEVICE
  10678					;	R5 -- POINTS TO DLS TABLE THIS DEVICE
  10679					;
  10680					;	BEFORE ATTEMPTING TO START THE NEXT NODE IN THE THREAD LIST, SEE IF A
  10681					;	SENDALL IS PENDING FOR THIS LINE, (".SNDLP" .NE. "TT.SND"). IF SO, START
  10682					;	THE SENDALL. IF SENDALLS ARE SUPPRESSED FOR THIS LINE, IGNORE IT.
  10683					;
  10684					;	IF NO SENDALL IS PENDING FOR THIS LINE, ATTEMPT TO START THE THE NEXT
  10685					;	NODE IN THE THREAD LIST. IF ANOTHER ENTRY EXISTS, START IT; IF NOT, SEND
  10686					;	AN ACK. IF THE LINE HAS BEEN X'D OFF, DO NOTHING.
  10687					;
  10688					;	NOTE: SENDALLS ARE FORCED OUT OVER THE XOFF -- THEY ARE NOT TO BE STOPPED.
  10689					;-
  10690
  10691	034062				STNXT:
  10692	034062					CALL	.TTIXC		;;; [5.1015] DO INPUT CONTROL CHECKS
	034062	004737 	042254'			JSR	PC,.TTIXC
  10693	034066	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; [5.1015] IS OUTPUT NOW IN PROGRESS??
  10694	034074	001134 				BNE	TTOUTR		;;; [5.1015] YES -- JUST EXIT
  10695	034076	016502 	000006 			MOV	STSW1(R5),R2	;;; FIND THE STATUS WORD TO LOOK AT
  10696	034102	006102 				ROL	R2		;;; GET THE RING INDEX OUT OF STATUS WORD
  10697	034104	006102 				ROL	R2
  10698	034106	006102 				ROL	R2
  10699	034110	042702 	177774 			BIC	#^C3,R2		;;; R2 NOW HAS OFFSET INTO SENDALL RING
  10700	034114	020237 	002604'			CMP	R2,.SNDLP	;;; ANY SENDALLS PENDING THIS LINE??
  10701	034120	001414 				BEQ	10$		;;; NO -- CONTINUE NORMAL I/O
  10702	034122	032765 	000400 	000006 		BIT	#TT.NSA,STSW1(R5) ;;; [4.2246] YES -- ARE WE SUPPRESSING SENDALL'S??
  10703	034130	001010 				BNE	10$		;;; [4.2246] YES -- IGNORE IT
  10704	034132	006302 				ASL	R2		;;; NO -- MAKE R2 A WORD INDEX INTO RING
  10705	034134	016200 	002606'			MOV	.SNDBF(R2),R0	;;; GET THE NEXT SENDALL NODE INTO R0
  10706	034140	001404 				BEQ	10$		;;; CONTINUE NORMAL I/O IF EMPTY
  10707	034142	052765 	001000 	000006 		BIS	#TT.SIP,STSW1(R5) ;;; SET SENDALL IN PROGRESS
  10708	034150	000405 				BR	.DHSTO		;;; AND START IT UP
  10709						;
  10710	034152				10$:
  10711	034152	011500 				MOV	(R5),R0		;;; [4.2096] START THE XFER ON THIS STRING
  10712	034154	001505 				BEQ	.TTACK		;;; [4.2096] SEND AN ACK IF END
  10713	034156	105765 	000006 			TSTB	STSW1+0(R5)	;;; [4.2096] IS THIS LINE X'D OFF??
  10714	034162	100501 				BMI	TTOUTR		;;; [4.2096] YES -- GO AWAY
  10715					;	BR	.DHSTO		;;; NO -- GO ON
  10716						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 205
TERMINAL DRIVER -- .DHSTO (START DH-11 OUTPUT)

  10718						.SBTTL	TERMINAL DRIVER -- .DHSTO (START DH-11 OUTPUT)
  10719
  10720					;+
  10721					; .DHSTO -- START DH-11 OUTPUT
  10722					;
  10723					; THIS SUBROUTINE WILL START OUTPUT ON A DH-11 LINE
  10724					;
  10725					; INPUTS:
  10726					;
  10727					;	R0 -- POINTS TO THE I/O PACKET
  10728					;	R4 -- EXTERNAL PAGE POINTER FOR THIS LINE
  10729					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS LINE
  10730					;
  10731					; OUTPUTS:
  10732					;
  10733					;	R2 IS CLOBBERED
  10734					;-
  10735
  10736	034164				.DHSTO::
  10737	034164	016064 	000004 	000006 		MOV	T.HCAD(R0),6(R4) ;;; SET UP THE DH-11 ADDRESS REGISTER
  10738	034172	016064 	000006 	000010 		MOV	T.HCBC(R0),10(R4) ;;; SET UP THE BYTE COUNT
  10739	034200	005464 	000010 			NEG	10(R4)		;;; MAKE THE BYTE COUNT NEGATIVE
  10740	034204	011402 				MOV	@R4,R2		;;; FIND THE UNIT NUMBER TO START THE DH-11
  10741	034206	042702 	177760 			BIC	#177760,R2	;;; MASK OFF HIGH ORDER JUNK
  10742	034212	006302 				ASL	R2		;;; MAKE AN INDEX INTO BIT TABLE
  10743	034214	056264 	043022'	000012 		BIS	BITTBL(R2),12(R4) ;;; START THE DH-11
  10744	034222	000456 				BR	TTOUTX		;;; MARK OUTPUT BUSY AND EXIT
  10745						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 206
TERMINAL DRIVER -- $TTOUT (DL11 OUTPUT INTERRUPT)

  10747						.SBTTL	TERMINAL DRIVER -- $TTOUT (DL11 OUTPUT INTERRUPT)
  10748					;+
  10749					; **-$TTOUT-DL11 TERMINAL OUTPUT INTERRUPTS
  10750					;-
  10751
  10752	034224				$TTOUT::			;;; REF LABEL
  10753	034224	013737 	177776 	002650'		MOV	@#PS,DLTMP	;;; SAVE CONTROLLER NUMBER
  10754	034232					CALL	R3,TTSAV	;;; SAVE R3 AND SETUP R3, R4, AND R5
	034232	004337 	037332'			JSR	R3,TTSAV
  10755	034236	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; OUTPUT INTERRUPT EXPECTED??
  10756	034244	001451 				BEQ	.TTACK		;;; NO -- SO ACK THE LINE
  10757	034246	042765 	000001 	000006 		BIC	#TT.OUT,STSW1(R5) ;;; YES -- MARK OUTPUT DONE
  10758	034254	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS A CONSOLE??
  10759	034262	001403 				BEQ	STTYO		;;; NO -- SEND THE LINE
  10760	034264	005737 	002632'			TST	.TTP11		;;; YES -- IS THIS PDP11 INPUT??
  10761	034270	001076 				BNE	OUTPT3		;;; YES -- SPECIAL CASE
  10762	034272				STTYO:
  10763	034272	011500 				MOV	(R5),R0		;;; [4.2096] NO -- PICK UP THIS LINE IN USE
  10764	034274	001435 				BEQ	.TTACK		;;; [4.2096] ACK THE LINE IF END OF THREAD LIST
  10765	034276	005360 	000006 			DEC	T.HCBC(R0)	;;; [5.1015] DECREMENT THE BYTE COUNT
  10766	034302	003011 				BGT	10$		;;; [5.1015] FINISHED?
  10767	034304	011015 				MOV	@R0,(R5)	;;; SAVE NEXT THREAD POINTER
  10768	034306					CALL	..DECN		;;; DEALLOCATE THE BUFFER
	034306	004737 	044546'			JSR	PC,..DECN
  10769	034312					CALL	.TTIXC		;;; [5.1015] DO INPUT CONTROL CHECKS
	034312	004737 	042254'			JSR	PC,.TTIXC
  10770	034316	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; [5.1015] I/O STARTED ALREADY??
  10771	034324	001020 				BNE	TTOUTR		;;; [5.1015] YES -- JUST EXIT
  10772	034326				10$:
  10773	034326	011500 				MOV	(R5),R0		;;; NO -- SET THE NEW THREAD POINTER
  10774	034330	001417 				BEQ	.TTACK		;;; GO ACK THE LINE IF DONE
  10775	034332	105765 	000006 			TSTB	STSW1+0(R5)	;;; [5.1015] IS THIS LINE X'D OFF??
  10776	034336	100413 				BMI	TTOUTR		;;; [5.1015] YES -- JUST GO AWAY
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 207
TERMINAL DRIVER -- .DLSTO (START DL-11 OUTPUT)

  10778						.SBTTL	TERMINAL DRIVER -- .DLSTO (START DL-11 OUTPUT)
  10779
  10780					;+
  10781					; .DLSTO -- START DL-11 OUTPUT
  10782					;
  10783					; THIS SUBROUTINE WILL START OUTPUT ON A DL-11 LINE
  10784					;
  10785					; INPUTS:
  10786					;
  10787					;	R0 -- POINTS TO THE I/O PACKET
  10788					;	R4 -- EXTERNAL PAGE ADDRESS OF THIS DEVICE
  10789					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS LINE
  10790					;
  10791					; OUTPUTS:
  10792					;
  10793					;	NO REGISTERS ARE ALTERED
  10794					;-
  10795
  10796	034340				.DLSTO::
  10797	034340	117064 	000004 	000006 		MOVB	@T.HCAD(R0),6(R4) ;;; START THE NEXT CHARACTER
  10798	034346	005260 	000004 			INC	T.HCAD(R0)	;;; UPDATE THE CHARACTER POINTER
  10799	034352	052764 	000100 	000004 		BIS	#DL.XEN,4(R4)	;;; INSURE INTERRUPT ENABLED
  10800	034360				TTOUTX:
  10801	034360	052765 	000001 	000006 		BIS	#TT.OUT,STSW1(R5) ;;; MARK OUTPUT BUSY
  10802	034366				TTOUTR:
  10803	034366					RETURN			;;; RETURN TO CALLER
	034366	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 208
TERMINAL DRIVER -- .TTACK (ACKNOWLEDGE A TTY LINE)

  10805						.SBTTL	TERMINAL DRIVER -- .TTACK (ACKNOWLEDGE A TTY LINE)
  10806
  10807					;+
  10808					; .TTACK - ACKNOWLEDGE A TERMINAL LINE
  10809					;
  10810					; THIS SUBROUTINE MAY BE CALLED FROM EITHER INTERRUPT LEVEL OR TASK LEVEL
  10811					; TO TRANSMIT AN ACK TO THE HOST, IF CONDITIONS WILL ALLOW.
  10812					;
  10813					; THE LINE WILL NOT BE ACK'ED IF IT IS THE CTY AND IT IS ACTIVE ON THE PDP-11,
  10814					; OR IF THE LINE IS THE KLINIK LINE IN REMOTE CONSOLE MODE.
  10815					;
  10816					; INPUTS:
  10817					;
  10818					;	R5 -- POINTS TO DLS TABLE ENTRY FOR LINE TO BE ACK'ED
  10819					;
  10820					; OUTPUTS:
  10821					;
  10822					;	NO REGISTERS ALTERED.
  10823					;-
  10824
  10825	034370				.TTACK::
  10826	034370	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS A CTY??
  10827	034376	001424 				BEQ	10$		;;; NO -- GO ON
  10828	034400	005737 	002632'			TST	.TTP11		;;; YES -- IS IT TALKING TO THE -11??
  10829	034404	001027 				BNE	20$		;;; YES -- JUST EXIT
  10830	034406	105737 	001226'			TSTB	.KLNSW+0	;;; NO -- IS KLINIK ACTIVE??
  10831	034412	001416 				BEQ	10$		;;; [4.1.1066] NO -- GO ON
  10832	034414	020537 	002634'			CMP	R5,CTYPTR	;;; IS THIS THE CTY ?
  10833	034420	001004 				BNE	5$		;;; [5.1565] BRANCH IF NOT
  10834	034422	105737 	001216'			TSTB	.KLNMD		;;; [5.1565] ACTIVE IN USER MODE ??
  10835	034426	002410 				BLT	10$		;;; [5.1565] YES, GO GIVE ACK
  10836	034430	000415 				BR	20$		;;; [5.1565] NO, WAIT FOR KLINIK LINE TO FINISH
  10837	034432				5$:
  10838	034432	010546 				MOV	R5,-(SP)	;;; [5.1246] SAVE THE REAL POINTER
  10839	034434	013705 	002634'			MOV	CTYPTR,R5	;;; [5.1246] TELL THE HOST THIS IS THE CTY
  10840	034440					CALL	10$		;;; [5.1246] SEND THE ACK
	034440	004737 	034450'			JSR	PC,10$
  10841	034444	012605 				MOV	(SP)+,R5	;;; [5.1246] RESTORE THE REAL PONITER
  10842	034446					RETURN			;;; [5.1246] AND EXIT
	034446	000207 				RTS	PC
  10843	034450				10$:
  10844	034450	010346 				MOV	R3,-(SP)	;;; NO -- SAVE R3
  10845	034452	012703 	000004 			MOV	#D.CDLS,R3	;;; SET DATA LINE SCANNER DEVICE CODE
  10846	034456					CALL	..SACK		;;; ACK THE LINE
	034456	004737 	045372'			JSR	PC,..SACK
  10847	034462	012603 				MOV	(SP)+,R3	;;; RESTORE R3
  10848	034464				20$:
  10849	034464					RETURN			;;; AND EXIT
	034464	000207 				RTS	PC
  10850
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 209
TERMINAL DRIVER -- OUTPT3 (PDP-11 CTY OUTPUT ROUTINES)

  10852						.SBTTL	TERMINAL DRIVER -- OUTPT3 (PDP-11 CTY OUTPUT ROUTINES)
  10853
  10854	034466				OUTPT3:				;;; HERE TO SYNCH CTY OUTPUT
  10855	034466	105737 	001226'			TSTB	.KLNSW+0	;;; KLINIK REMOTE CONSOLE ACTIVE?
  10856	034472	003425 				BLE	OUTPT		;;; NO -- CONTINUE
  10857	034474	010546 				MOV	R5,-(SP)	;;; SAVE CURRENT POINTER
  10858	034476	022705 	003046'			CMP	#DHTBL,R5	;;; IS CTY A DH-11 LINE??
  10859	034502	101410 				BLOS	10$		;;; YES -- GO ON
  10860	034504	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; NO -- IS THIS LINE FINISHED??
  10861	034512	001012 				BNE	30$		;;; NO -- EXIT
  10862	034514	013705 	002634'			MOV	CTYPTR,R5	;;; YES -- POINT TO THE CTY
  10863	034520	020516 				CMP	R5,(SP)		;;; HAVE WE ALREADY CHECKED IT??
  10864	034522	001002 				BNE	20$		;;; NO -- GO ON
  10865	034524				10$:
  10866	034524	013705 	002636'			MOV	KLNPTR,R5	;;; YES -- POINT TO THE KLINIK LINE
  10867	034530				20$:
  10868	034530	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; IS IT FINISHED??
  10869	034536	001402 				BEQ	90$		;;; YES -- TYPE IF FINISHED
  10870	034540				30$:
  10871	034540	012605 				MOV	(SP)+,R5	;;; NO -- RESTORE POINTER
  10872	034542					RETURN			;;; RETURN TO CALLER
	034542	000207 				RTS	PC
  10873	034544				90$:
  10874	034544	005726 				TST	(SP)+		;;; CLEAR STACK
  10875					;
  10876					; OUTPUT NEXT BYTE
  10877					;
  10878						.ENABL	LSB
  10879	034546				OUTPT:
  10880	034546	013705 	002634'			MOV	CTYPTR,R5	;;; POINT TO THE CTY
  10881	034552	012703 	002664'			MOV	#CTYSTS,R3	;;; GET CTY BLOCK POINTER
  10882	034556	032713 	000017 			BIT	#FLCT,@R3	;;; SHOULD A FILL BE ECHOED?
  10883	034562	001105 				BNE	60$		;;; IF NE YES
  10884	034564	032713 	074000 			BIT	#LFCT,@R3	;;; ANY UNPROCESSED LINE FEEDS?
  10885	034570	001066 				BNE	40$		;;; IF NE YES
  10886	034572	105763 	000010 			TSTB	MECNT(R3)	;;; MULTIECHO SEQUENCE IN PROGRESS?
  10887	034576	001070 				BNE	50$		;;; IF NE YES
  10888	034600	005713 				TST	@R3		;;; INPUT OR OUTPUT IN PROGRESS?
  10889	034602	100055 				BPL	INPPT		;;; IF PL INPUT
  10890					;
  10891					; OUTPUT REQUEST IN PROGRESS
  10892					;
  10893	034604	005737 	002726'			TST	BYCNT		;;; ANY MORE BYTES TO OUTPUT?
  10894	034610	100416 				BMI	20$		;;; IF MI NO
  10895	034612	005337 	002726'			DEC	BYCNT		;;; DECREMENT BYTE COUNT
  10896	034616	100405 				BMI	10$		;;; IF MI CHECK CARRIAGE CONTROL
  10897	034620	117746 	146104 			MOVB	@CRADR,-(SP)	;;; STORE CHARACTER ON STACK
  10898									;;; !!!NOTE: THIS SHOULD BE VXFR AND BLXI!!!!!
  10899	034624	005237 	002730'			INC	CRADR		;;; UPDATE POINTER TO NEXT CHARACTER
  10900	034630	000465 				BR	ECHOB		;;; ECHO NEXT BYTE
  10901						;
  10902	034632				10$:
  10903	034632	112746 	000015 			MOVB	#C.HCRT,-(SP)	;;; ASSUME TRAILING CARRIAGE RETURN REQUIRED
  10904	034636	032713 	002000 			BIT	#CRTY,@R3	;;; OUTPUT TRAILING CARRIAGE RETURN?
  10905	034642	001060 				BNE	ECHOB		;;; IF NE YES
  10906	034644	005726 				TST	(SP)+		;;; CLEAN STACK
  10907	034646				20$:
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 209-1
TERMINAL DRIVER -- OUTPT3 (PDP-11 CTY OUTPUT ROUTINES)

  10908	034646	012737 	000001 	002730'		MOV	#IS.SUC&377,CRADR ;;; SET SUCCESSFUL COMPLETION STATUS
  10909	034654				TTYDNE:
  10910	034654	052737 	000020 	007172'		BIS	#EF.IOD,TTYTSK+A.EF ;;; SET EVENT FLAG INDICATING I/O DONE
  10911	034662					CALL	..DSEV		;;; DECLARE A SIGNIFICANT EVENT
	034662	004737 	044026'			JSR	PC,..DSEV
  10912	034666	105737 	001226'			TSTB	.KLNSW+0	;;; IS KLINIK ACTIVE??
  10913	034672	003412 				BLE	TTYDNX		;;; NO -- GO ON
  10914	034674	010546 				MOV	R5,-(SP)	;;; YES -- SAVE R5
  10915	034676	010446 				MOV	R4,-(SP)	;;; AND R4
  10916	034700	013705 	002636'			MOV	KLNPTR,R5	;;; POINT TO THE KLINIK LINE
  10917	034704	016504 	000002 			MOV	TTYEXP(R5),R4	;;; I/O PAGE POINTER TO R5
  10918	034710					CALL	STTYO		;;; START OR DEALLOCATE
	034710	004737 	034272'			JSR	PC,STTYO
  10919	034714	012604 				MOV	(SP)+,R4	;;; RESTORE REGISTERS
  10920	034716	012605 				MOV	(SP)+,R5	;;; SO
  10921	034720				TTYDNX:
  10922	034720	022705 	003046'			CMP	#DHTBL,R5	;;; CALLED FROM DH-11??
  10923	034724	101002 				BHI	30$		;;; NO --TRY THE ONE ON DL-11
  10924	034726	000137 	033676'			JMP	STTYDN		;;; GO DO ACK AND CLEAR BUSY
  10925						;
  10926	034732				30$:
  10927	034732	000137 	034272'			JMP	STTYO		;;; SEE WHAT'S NEXT FOR DL-11
  10928						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 210
TERMINAL DRIVER -- INPTT (PDP-11 CTY INPUT ROUTINES)

  10930						.SBTTL	TERMINAL DRIVER -- INPTT (PDP-11 CTY INPUT ROUTINES)
  10931
  10932					;
  10933					; INPUT REQUEST IN PROGRESS
  10934					;
  10935	034736				INPPT:
  10936	034736	032713 	000400 			BIT	#EOLS,@R3	;;; END OF LINE SEEN?
  10937	034742	001157 				BNE	INPT1
  10938	034744				INPT0:
  10939	034744					RETURN
	034744	000207 				RTS	PC
  10940					;
  10941					; ECHO LINE FEED
  10942					;
  10943	034746				40$:
  10944	034746	162713 	004000 			SUB	#LFBT,@R3	;;; REDUCE LINE FEED COUNT
  10945	034752	112746 	000012 			MOVB	#C.HLFD,-(SP)	;;; SET TO ECHO LINE FEED
  10946	034756	000412 				BR	ECHOB		;;; ECHO BYTE
  10947						;
  10948					;
  10949					; MULTI-ECHO SEQUENCE
  10950					;
  10951	034760				50$:
  10952	034760	117346 	000012 			MOVB	@MEBUF(R3),-(SP) ;;; SET NEXT BYTE TO ECHO
  10953	034764	005263 	000012 			INC	MEBUF(R3)	;;; INCREMENT BUFFER ADDRESS
  10954	034770	105363 	000010 			DECB	MECNT(R3)	;;; DECREMENT MULTIECHO BYTE COUNT
  10955	034774	000403 				BR	ECHOB		;;; ECHO BYTE
  10956						;
  10957					;
  10958					; ECHO FILL BYTE
  10959					;
  10960	034776				60$:
  10961	034776	005313 				DEC	@R3		;;; DECREMENT FILL COUNT
  10962	035000	116346 	000011 			MOVB	FLBYT(R3),-(SP)	;;; SET TO ECHO FILL BYTE
  10963						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 211
TERMINAL DRIVER -- ECHOB (PDP-11 CTY ECHO ROUTINES)

  10965						.SBTTL	TERMINAL DRIVER -- ECHOB (PDP-11 CTY ECHO ROUTINES)
  10966
  10967					;
  10968					; ECHO NEXT BYTE
  10969					;
  10970
  10971	035004				ECHOB:
  10972	035004	042716 	177600 			BIC	#177600,@SP	;;; MASK OFF PARITY
  10973	035010	121627 	000037 			CMPB	@SP,#37		;;; IS THIS A CONTROL BYTE?
  10974	035014	101041 				BHI	70$		;;; IF HI NO
  10975	035016	122716 	000015 			CMPB	#C.HCRT,@SP	;;; CARRIAGE RETURN?
  10976	035022	001422 				BEQ	10$		;;; IF EQ YES
  10977	035024	101041 				BHI	80$		;;; IF HI GO ON
  10978	035026	122716 	000012 			CMPB	#C.HLFD,@SP	;;; LINE FEED, FORM FEED OR VERTICAL TAB?
  10979	035032	101424 				BLOS	50$		;;; IF LOS YES
  10980	035034	122716 	000011 			CMPB	#C.HTAB,@SP	;;; HORIZONTAL TAB?
  10981	035040	001033 				BNE	80$		;;; IF NE NO
  10982					;
  10983					; HORIZONTAL TAB
  10984					;
  10985	035042	116316 	000016 			MOVB	HORPS(R3),@SP	;;; GET CURRENT HORIZONTAL POSITION
  10986	035046	052716 	177770 			BIS	#177770,@SP	;;; CALCULATE BLANK COUNT TO NEXT TAB STOP
  10987	035052	005416 				NEG	@SP
  10988	035054	051613 				BIS	@SP,@R3		;;; MERGE BLANK COUNT
  10989	035056	112763 	000040 	000011 		MOVB	#' ,FLBYT(R3)	;;; SET FILL TO A BLANK
  10990	035064				5$:
  10991	035064	005726 				TST	(SP)+		;;; REMOVE BYTE FROM STACK
  10992	035066	000627 				BR	OUTPT		;;; START OUTPUT
  10993						;
  10994					;
  10995					; CARRIAGE RETURN
  10996					;
  10997	035070				10$:
  10998	035070				20$:
  10999	035070	052713 	001000 			BIS	#CRJT,@R3	;;; SET CARRIAGE RETURN JUST TYPED
  11000	035074	005213 				INC	@R3		;;; ALWAYS ONE FILL BYTE
  11001	035076	105063 	000016 			CLRB	HORPS(R3)	;;; CLEAR HORIZONTAL POSITION
  11002	035102	000403 				BR	60$		;;; OUTPUT CARRIAGE RETURN
  11003						;
  11004					;
  11005					; FORM FEED OR VERTICAL TAB OR LINE FEED
  11006					;
  11007	035104				50$:
  11008	035104	042713 	001000 			BIC	#CRJT,@R3	;;; CLEAR CARRIAGE RETURN JUST TYPED
  11009	035110	000407 				BR	80$
  11010						;
  11011	035112				60$:
  11012	035112	105063 	000011 			CLRB	FLBYT(R3)	;;; SET NULL FILL BYTE
  11013	035116	000404 				BR	80$
  11014						;
  11015					;
  11016					; BYTE REQUIRES HORIZONTAL POSITION
  11017					;
  11018	035120				70$:
  11019	035120	042713 	001000 			BIC	#CRJT,@R3	;;; CLEAR CARRIAGE RETURN JUST TYPED
  11020	035124	105263 	000016 			INCB	HORPS(R3)	;;; INCREMENT HORIZONTAL POSITION
  11021	035130				80$:
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 211-1
TERMINAL DRIVER -- ECHOB (PDP-11 CTY ECHO ROUTINES)

  11022	035130	005713 				TST	@R3		;;; INPUT MODE?
  11023	035132	100003 				BPL	81$		;;; IF PL YES
  11024	035134	032713 	000040 			BIT	#CTLO,@R3	;;; OUTPUT DISABLED?
  11025	035140	001351 				BNE	5$		;;; IF NE YES
  11026	035142				81$:
  11027	035142	105737 	001226'			TSTB	.KLNSW+0	;;; KLINIK REMOTE MODE ACTIVE?
  11028	035146	003420 				BLE	82$		;;; NO -- BETTER LEAVE IT ALONE
  11029	035150	010546 				MOV	R5,-(SP)	;;; SAVE DLS POINTER
  11030	035152	013705 	002636'			MOV	KLNPTR,R5	;;; GET KLINIK DLS POINTER
  11031	035156	016504 	000002 			MOV	TTYEXP(R5),R4	;;; POINT TO CSR
  11032	035162	001411 				BEQ	84$		;;; IGNORE IF NOT THERE
  11033	035164	116664 	000002 	000006 		MOVB	2(SP),6(R4)	;;; START KLINIK LINE
  11034	035172	052764 	000100 	000004 		BIS	#DL.XEN,4(R4)	;;; ENABLE XMTR INTERRUPTS
  11035	035200	052765 	000001 	000006 		BIS	#TT.OUT,STSW1(R5) ;;; SET TTY BUSY
  11036	035206				84$:
  11037	035206	012605 				MOV	(SP)+,R5	;;; RESTORE CTY POINTER
  11038	035210				82$:
  11039	035210	016504 	000002 			MOV	TTYEXP(R5),R4	;;; GET ADDRESS OF CONTROL STATUS REGISTER
  11040	035214	022705 	003046'			CMP	#DHTBL,R5	;;; IS THIS A DL-11 ??
  11041	035220	101021 				BHI	90$		;;; YES -- SPECIAL CASE
  11042	035222	112637 	002704'			MOVB	(SP)+,DHBUF+CTYSTS ;;; PUT BYTE IN OUTPUT BUFFER
  11043	035226	042714 	001077 			BIC	#1077,@R4	;;; CLEAR CURRENT UNIT
  11044	035232	153714 	002640'			BISB	$UNIT,@R4	;;; SELECT DESIRED UNIT
  11045	035236	042724 	000060 			BIC	#60,(R4)+
  11046	035242	062704 	000004 			ADD	#4,R4		;;; POINT TO CURRENT ADDRESS REGISTER
  11047	035246	012724 	002704'			MOV	#DHBUF+CTYSTS,(R4)+
  11048	035252	012724 	177777 			MOV	#-1,(R4)+	;;; SET BYTE COUNT TO MINUS ONE
  11049	035256	053714 	002642'			BIS	$BTMSK,@R4 	;;; START OUTPUT
  11050	035262	000405 				BR	99$		;;; MARK OUTPUT BUSY AND EXIT
  11051						;
  11052	035264				90$:
  11053	035264	112664 	000006 			MOVB	(SP)+,6(R4)	;;; OUTPUT BYTE
  11054	035270	052764 	000100 	000004 		BIS	#DL.XEN,4(R4)	;;; ENABLE OUTPUT INTERRUPT
  11055	035276				99$:
  11056	035276	000137 	034360'			JMP	TTOUTX		;;; MARK OUTPUT BUSY AND EXIT
  11057						;
  11058					;
  11059					; END OF INPUT LINE
  11060					;
  11061	035302				INPT1:
  11062	035302	012703 	002666'			MOV	#CTYSTS+2,R3	;;; FIND THE TERMINAL STATUS WORD
  11063	035306	117337 	000000 	002730'		MOVB	@(R3),CRADR	;;; FIND THE LAST CHARACTER
  11064	035314	016346 	000004 			MOV	4(R3),-(SP)
  11065	035320	162316 				SUB	(R3)+,@SP	;;; FIND THE BYTE COUNT
  11066	035322	112713 	000001 			MOVB	#IS.SUC&377,@R3 ;;; ASSUME NORMAL TERMINATION
  11067	035326	012300 				MOV	(R3)+,R0	;;; GET FINAL BYTE AND STATUS
  11068	035330	100006 				BPL	40$		;;; IF PL NORMAL TERMINATION
  11069	035332	012700 	015366 			MOV	#32*400+366,R0	;;; ASSUME ^Z
  11070	035336	105243 				INCB	-(R3)		;;; CONTROL Z?
  11071	035340	001402 				BEQ	40$		;;; IF EQ YES
  11072	035342	012700 	000361 			MOV	#IE.ABO&377,R0	;;; SET ABORT STATUS
  11073	035346				40$:
  11074	035346	013701 	002732'			MOV	TTPKT,R1	;;; FIND THE PACKET ADDRESS
  11075	035352	010037 	002730'			MOV	R0,CRADR	;;; SAVE THE STARTS FIRST WORD
  11076	035356	012661 	000026 			MOV	(SP)+,R.PB+2(R1) ;;; STORE THE BYTE COUNT
  11077	035362				50$:
  11078	035362	000137 	034654'			JMP	TTYDNE
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 211-2
TERMINAL DRIVER -- ECHOB (PDP-11 CTY ECHO ROUTINES)

  11079						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 212
TERMINAL DRIVER -- .KW11S (KW11 LINE CLOCK INTERRUPT)

  11081						.SBTTL	TERMINAL DRIVER -- .KW11S (KW11 LINE CLOCK INTERRUPT)
  11082
  11083					;+
  11084					; **- .KW11S -- LINE CLOCK INTERRUPT SERVICE HANDLER
  11085					;
  11086					;	THIS ROUTINE UPDATES THE COUNT OF CLOCK TICK WHICH ARE PENDING
  11087					;	SERVICE (NORMALLY ONLY ONE).  THESE CLOCK TICKS ARE HONORED AT
  11088					;	TASK LEVEL AT "..INTX".
  11089					;
  11090					;	THIS ROUTINE WILL:
  11091					;
  11092					;		1. INITIATE THE SECOND HALF OF THE INPUT DISABLE PROCESS FOR ALL
  11093					;		   WHICH HAVE FINISHED THE FIRST HALF
  11094					;		2. ENABLE A SINGLE LOCALLY (INPUT) DISABLED LINE, IF CONDITIONS ALLOW.
  11095					;		3. TRY TO UNBLOCK THE DTE IF IT WAS BLOCKED
  11096					;
  11097					;	AN ATTEMPT IS MADE TO START UP THE TO-10 QUEUE ON EVERY CLOCK TICK AS WELL.
  11098					;-
  11099
  11100	035366				.KW11S::
  11101	035366					CALL	R3,DHSAV	;;; [4.2095] MUST SAVE REGISTERS
	035366	004337 	037274'			JSR	R3,DHSAV
  11102	035372	105237 	001015'			INCB	.SERFG+1	;;; [4.2095] BUMP PENDING TICK COUNT
  11103	035376	005737 	005046'			TST	.TTS2F		;;; [5.1015] LINES NEED ATTENTION??
  11104	035402	001417 				BEQ	30$		;;; [4.4.1066] NO -- GO ON
  11105					;
  11106					; HERE TO CONTINUE INPUT DISABLE PROCESS
  11107					;
  11108	035404	012705 	002776'			MOV	#TTTBL,R5	;;; [5.1015] DLS TABLE POINTER TO R5
  11109	035410	012700 	000205 			MOV	#TTCNT,R0	;;; [5.1015] LINE COUNT TO R0
  11110	035414				10$:
  11111	035414					CALL	.TTSW2		;;; [5.1017] FIND OUT "STSW2" ENTRY
	035414	004737 	042754'			JSR	PC,.TTSW2
  11112	035420	032712 	040000 			BIT	#S2.DIP,(R2)	;;; [5.1015] YES -- INPUT XOFF IN PROGRESS??
  11113	035424	001403 				BEQ	20$		;;; [5.1015] NO -- GO ON
  11114	035426					CALL	.TTCHK		;;; [5.1015] YES -- COUNT THIS CLOCK TICK
	035426	004737 	042124'			JSR	PC,.TTCHK
  11115	035432	001403 				BEQ	30$		;;; [5.1015] EXIT IF DONE
  11116	035434				20$:
  11117	035434	062705 	000010 			ADD	#10,R5		;;; [5.1015] ADVANCE POINTER
  11118	035440	077013 				SOB	R0,10$		;;; [5.1015] CHECK ALL LINES
  11119	035442				30$:
  11120	035442	005737 	005050'			TST	.S2IDC		;;; [4.1.1092] ARE ANY DISABLED LINES PENDING??
  11121	035446	001412 				BEQ	40$		;;; [4.1.1092] NO -- TRY TO UNBLOCK THE DTE
  11122					;
  11123					; HERE TO ENABLE A LOCALLY DISABLED LINE
  11124					;
  11125	035450	023737 	005056'	001422'		CMP	.IBFOK,.FREPL+2	;;; [4.1.1092] YES -- CAN WE ENABLE NOW??
  11126	035456	101044 				BHI	DHISTQ		;;; [4.1.1092] NO -- GO ON
  11127	035460					CALL	.TTFDI		;;; [4.1.1092] YES -- FIND THE NEXT LINE TO ENABLE
	035460	004737 	041360'			JSR	PC,.TTFDI
  11128	035464					CALL	.TTENB		;;; [4.1.1092] AND ENABLE IT
	035464	004737 	042464'			JSR	PC,.TTENB
  11129	035470	005337 	005050'			DEC	.S2IDC		;;; [4.1.1092] ACCOUNT FOR THE LINE
  11130	035474				40$:
  11131	035474	005737 	001012'			TST	.COMEF+2	;;; [4.1.1092] PRIMARY PROTOCOL RUNNING ??
  11132	035500	100033 				BPL	DHISTQ		;;; [4.1.1092] NO -- GO ON
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 212-1
TERMINAL DRIVER -- .KW11S (KW11 LINE CLOCK INTERRUPT)

  11133	035502	005737 	001374'			TST	.DTBLK		;;; [4.1.1121] IS THE DTE BLOCKED??
  11134	035506	001430 				BEQ	DHISTQ		;;; [4.1.1121] NO -- START THE TO-10 QUEUE
  11135	035510	013700 	001360'			MOV	.PRDTE,R0	;;; [4.1.1121] POINT TO THE DTE-20
  11136	035514	013703 	001354'			MOV	.PRADR,R3	;;; [4.1.1121] AND THE PROCESSOR TABLE
  11137	035520					CALL	@.DTBLK		;;; [4.1.1121] TRY TO UNBLOCK THE DTE
	035520	004777 	143650 			JSR	PC,@.DTBLK
  11138	035524	001021 				BNE	DHISTQ		;;; [4.1.1121]  GO ON IF STILL BLOCKED
  11139	035526					CALL	.KPALV		;;; [4.1.1121] OTHERWISE DO KEEP-ALIVE
	035526	004737 	031326'			JSR	PC,.KPALV
  11140	035532	000416 				BR	DHISTQ		;;; [4.1.1066] START THE TO-10 QUEUE
  11141						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 213
TERMINAL DRIVER -- $DHINP (DH-11 INPUT INTERRUPT)

  11143						.SBTTL	TERMINAL DRIVER -- $DHINP (DH-11 INPUT INTERRUPT)
  11144
  11145					;+
  11146					; **-$DHINP-DH-11 TERMINAL MULTIPLEXER INPUT INTERRUPTS
  11147					;
  11148					; THIS IS THE DH-11 INTERRUPT SERVICE HEAD, ALL DEVICE DEPENDENT INPUT
  11149					; PROCESSING IS DONE IN THIS ROUTINE.  THE SPECIFIC FUNCTIONS PERFORMED
  11150					; HERE ARE:
  11151					;
  11152					;	1. SILO UNLOAD
  11153					;	2. AUTO-BAUD DETECT
  11154					;	3. FRAMING ERROR PROCESSING
  11155					;	4. TO-10 QUEUE ENTRY.
  11156					;	5. TO-10 QUEUE START-UP.
  11157					;
  11158					; THE SILO UNLOAD WILL DUMP THE INTERRUPTING DH-11'S SILO UNTIL:
  11159					;
  11160					;	1. THE SILO IS EMPTIED
  11161					;	2. AN XOFF CHARACTER IS UNLOADED FROM A LINE WHICH IS ENABLED FOR
  11162					;	   LOCAL XOFF PROCESSING.
  11163					;
  11164					; THE LAST POINT IS REQUIRED BECAUSE OF SUSPECTED DH-11 HARDWARE BUG WHICH
  11165					; APPEARS TO CAUSE THE SILO TO "LOCK-UP" AFTER THE TRANSMITTER IS X'D-OFF.
  11166					;
  11167					; WHEN THE SILO UNLOAD IS COMPLETE, AN ATTEMPT IS MADE TO START UP THE TO-10 QUEUE.
  11168					;
  11169					; AUTO-BAUD DETECTION IS PERFORMED FOR LINES WHICH ARE IN AUTO-BAUD WAIT; THAT IS,
  11170					; CONNECTED BUT NO SPEED DETERMINED AS YET.  AUTO-BAUD DETECTION IS KEYED ON
  11171					; <CONTROL-C> AND <CARRIAGE-RETURN> CHARACTERS FOR LINE SPEEDSS OF 110, 150, 300,
  11172					; AND 1200 BAUD.  AUTO-BAUD DETECT CONTINUES UNTIL A PATTERN MATCH IS MADE, OR
  11173					; THE LINE DISCONNECTS. CHARACTERS EXAMINED FOR AUTO-BAUD DETECT ARE NOT
  11174					; CHECKED FOR FRAMING ERRORS OR ENTERED INTO THE TO-10 QUEUE.
  11175					;
  11176					; WHEN THE LINE HAS SUCCESSFULLY AUTO-BAUDED, THE CONNECT MESSAGE IS SENT TO THE
  11177					; HOST, AS OPPOSED TO WHEN CARRIER IS ASSERTED FOR NON-AUTO-BAUD LINES.
  11178					; A REQUEST IS ALSO MADE TO REPORT THE LINE SPEED TO THE HOST.
  11179					;
  11180					; FRAMING ERRORS ARE SENSED AND COUNTED FOR EACH CHARACTER RECEIVED FROM A GIVEN
  11181					; LINE.  THE FRAMING ERROR COUNT IS CLEARED UPON RECEIPT OF A CHARACTER WITHOUT
  11182					; AN ASSOCIATED FRAMING ERROR.  WHEN FOUR (4) CONSECUTIVE FRAMING ERRORS HAVE
  11183					; BEEN TALLIED FOR A LINE, ITS INPUT SPEED IS SET TO ZERO BAUD, AND FLAGGED TO
  11184					; HAVE ITS INPUT SPEED REENABLED BY THE TERMINAL POLLING SERVICE (".DHTMO", Q.V.)
  11185					;
  11186					; THE FOUR ERROR CHARACTERS ARE PASSED TO THE HOST, ALL SUBSEQUENT ERROR CHARACTERS
  11187					; ARE IGNORED.
  11188					;
  11189					; NORMAL CHARACTERS ARE SIMPLY ENTERED INTO THE TO-10 QUEUE.
  11190					;-
  11191
  11192						.ENABL	LSB
  11193
  11194	035534				$DHINP::			;;; REFERENCE LABEL
  11195	035534	013737 	177776 	002646'		MOV	@#PS,DHTMP	;;; SAVE THE CONTROLLER NUMBER
  11196	035542					CALL	R3,DHSAV	;;; SAVE R3 AND SETUP R4 AND R5
	035542	004337 	037274'			JSR	R3,DHSAV
  11197	035546	001415 				BEQ	30$		;;; GUARD AGAINST SPURIOUS INTERRUPTS
  11198	035550				10$:
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 213-1
TERMINAL DRIVER -- $DHINP (DH-11 INPUT INTERRUPT)

  11199	035550	010537 	002652'			MOV	R5,DHSTSV	;;; SET UP THE HEAD OF THIS CONTROLLER TABLE ADDRESS
  11200	035554				20$:
  11201	035554	012746 	035554'			MOV	#20$,-(SP)	;;; [4.2244] SET RETURN ADDRESS
  11202	035560	016446 	000002 			MOV	2(R4),-(SP)	;;; GET NEXT BYTE FROM CONTROLLER SILO
  11203	035564	100407 				BMI	40$		;;; PROCESS CHARACTER FROM LINE IF THERE
  11204	035566	032626 				BIT	(SP)+,(SP)+	;;; REMOVE NULL CHARACTER AND RETURN ADDRESS
  11205	035570				DHISTQ:				;;; [4.2095] REMOVED 4 INSTRUCTIONS
  11206	035570	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] PRIMARY PROTOCOL RUNNING??
  11207	035574	100002 				BPL	30$		;;; [4.1.1105] NO -- DON'T BOTHER IT
  11208	035576					CALL	..STQ		;;; [4.2095] YES -- ATTEMPT TO START TO-10 QUEUE
	035576	004737 	046046'			JSR	PC,..STQ
  11209	035602				30$:
  11210	035602					RETURN			;;; DISMISS INTERRUPT
	035602	000207 				RTS	PC
  11211					;
  11212					;	HERE WITH A CHARACTER TO PROCESS
  11213					;
  11214	035604				40$:
  11215	035604	116605 	000001 			MOVB	1(SP),R5	;;; GET THE LINE NUMBER
  11216	035610	042705 	177760 			BIC	#^C17,R5	;;; GET RID OF ERRORS, ETC.
  11217	035614	010503 				MOV	R5,R3		;;; COPY LINE NUMBER TO R3
  11218	035616	006305 				ASL	R5		;;; MAKE A TABLE POINTER TO LINE WTHIN MUX
  11219	035620	006305 				ASL	R5		;;;
  11220	035622	006305 				ASL	R5		;;;
  11221	035624	063705 	002652'			ADD	DHSTSV,R5	;;; FROM BASE OF CONTROLLER TABLE
  11222	035630	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] IS PRIMARY PROTOCOL RUNNING??
  11223	035634	100052 				BPL	70$		;;; [4.1.1105] NO -- JUST CHECK FRAMING ERRORS
  11224	035636	032765 	000010 	000006 		BIT	#TT.ABW,STSW1(R5) ;;; YES -- IS THE LINE IN IN AUTO-BAUD WAIT??
  11225	035644	001446 				BEQ	70$		;;; [4.2205] NO -- CHECK FOR FRAMING ERROR
  11226					;
  11227					;	HERE WITH A CHARACTER FROM AN AUTO-BAUD LINE
  11228					;
  11229	035646	005002 				CLR	R2		;;; YES -- CLEAR TABLE INDEX
  11230	035650	012701 	000013 			MOV	#CHTBLN,R1	;;; [4.2103] TABLE LENGTH TO R1
  11231	035654				50$:
  11232	035654	121662 	032344'			CMPB	(SP),CHTBL(R2)	;;; MATCH A BIT PATTERN??
  11233	035660	001404 				BEQ	60$		;;; YES -- DONE
  11234	035662	005202 				INC	R2		;;; NO -- NEXT PATTERN
  11235	035664	077105 				SOB	R1,50$		;;; TRY AGAIN
  11236	035666	000137 	036374'			JMP	TTINPB		;;; NO MATCH -- FLUSH CHRARACTER AND DISMISS
  11237						;
  11238					;
  11239					;	HERE ON AUTO-BAUD PATTERN MATCH
  11240					;
  11241	035672				60$:				;;; HERE ON BIT PATTERN MATCH
  11242	035672	116202 	032360'			MOVB	IDXTB(R2),R2	;;; [4.2103] FIND INDEX FOR LINE SPEED
  11243	035676	016203 	032374'			MOV	SPDTB(R2),R3	;;; [4.2103] FIND THE SPEED
  11244	035702	016546 	000004 			MOV	STSW0(R5),-(SP)	;;; [4.1.1088] FIND THE CURRENT SPEED
  11245	035706	042716 	140000 			BIC	#S0.MSK,(SP)	;;; [4.1.1088] MASK OFF FLAGS
  11246	035712	020326 				CMP	R3,(SP)+	;;; [4.1.1088] DO THEY MATCH??
  11247	035714	001407 				BEQ	65$		;;; [4.1.1088] YES -- GO ON
  11248	035716	042765 	037777 	000004 		BIC	#^C<S0.MSK>,STSW0(R5) ;;; [4.1.1088] NO -- FLUSH OLD SPEED
  11249	035724	050365 	000004 			BIS	R3,STSW0(R5)	;;; [4.1.1088] AND SET THIS ONE
  11250	035730	000137 	036374'			JMP	TTINPB		;;; [4.1.1088] DISMISS AND WAIT FOR ANOTHER MATCH
  11251						;
  11252	035734				65$:
  11253	035734	042765 	000010 	000006 		BIC	#TT.ABW,STSW1(R5) ;;; NO LONGER IN AUTO-BAUD WAIT
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 213-2
TERMINAL DRIVER -- $DHINP (DH-11 INPUT INTERRUPT)

  11254	035742					CALL	.DHSPD		;;; SET THE LINE SPEED
	035742	004737 	037554'			JSR	PC,.DHSPD
  11255	035746					CALL	.DHSPF		;;; FLAG THE NEW SPEED
	035746	004737 	037514'			JSR	PC,.DHSPF
  11256	035752					CALL	.STTYD		;;; RING THE LINE
	035752	004737 	040060'			JSR	PC,.STTYD
  11257	035756	000137 	036374'			JMP	TTINPB		;;; DISMISS THE INTERRUPT
  11258						;
  11259					;
  11260					; HERE TO CHECK FOR A FRAMING ERROR
  11261					;
  11262	035762				70$:				;;; [4.2205]
  11263	035762	032765 	000100 	000006 		BIT	#TT.RMT,STSW1(R5)	;;; [RCO 32681] REMOTE LINE ?
  11264	035770	001404 				BEQ	75$		;;; [RCO 32681] BRANCH IF NOT
  11265	035772	032765 	040000 	000004 		BIT	#S0.CON,STSW0(R5) ;;; [RCO 32681] CONNECTED ?
  11266	036000	001575 				BEQ	TTINPB		;;; [RCO 32681] EXIT IF NOT
  11267	036002				75$:
  11268	036002					CALL	.TTSW2		;;; [RCO 32681] FIND OUR STSW2 ENTRY
	036002	004737 	042754'			JSR	PC,.TTSW2
  11269	036006	005712 				TST	(R2)		;;; [RCO 32681] LINE SHUT OFF BY US ?
  11270	036010	100440 				BMI	SNDBEL		;;; [RCO 32681] BRANCH IF SO
  11271	036012	032716 	020000 			BIT	#DH.FER,(SP)	;;; [4.2205] FRAMING ERROR PRESENT??
  11272	036016	001004 				BNE	80$		;;; [4.2205] YES -- COUNT IT UP
  11273	036020	042765 	014000 	000006 		BIC	#TT.FEC,STSW1(R5) ;;; [4.2205] NO -- FLUSH ANY PREVIOUS COUNT
  11274	036026	000501 				BR	TTSTCH		;;; [4.2205] STORE THE CHARACTER AND RETURN
  11275						;
  11276					;
  11277					; HERE TO COUNT A FRAMING ERROR AND SHUT OFF THE LINE IF REQUIRED
  11278					;
  11279	036030				80$:				;;; [4.2205]
  11280	036030	032765 	020000 	000006 		BIT	#TT.RSI,STSW1(R5) ;;; [4.2205] INPUT RESTART ALREADY PENDING??
  11281	036036	001156 				BNE	TTINPB		;;; [4.2205] YES -- FLUSH CHARACTER AND RETURN
  11282	036040	062765 	004000 	000006 		ADD	#TT.FEI,STSW1(R5) ;;; [4.2205] NO -- COUNT THIS FRAMING ERROR
  11283									;;; [4.2205] NOTE: THIS WILL ALSO SET "TT.RSI" ON
  11284									;;; [4.2205]       FRAMING ERROR COUNT OVERFLOW
  11285	036046	016502 	000006 			MOV	STSW1(R5),R2	;;; [4.2205] COPY STATUS WORD TO R2
  11286	036052	042702 	163777 			BIC	#^C<TT.FEC>,R2	;;; [4.2205] MASK AND TEST FRAMING ERROR COUNT
  11287	036056	001065 				BNE	TTSTCH		;;; [4.2205] STILL OK -- GO ON
  11288	036060	042714 	001077 			BIC	#1077,(R4)	;;; [4.2205] OVERFLOWED -- CLEAR LINE NUMBER
  11289	036064	050314 				BIS	R3,(R4)		;;; [4.2205] SET THIS LINE NUMBER
  11290	036066	042764 	001700 	000004 		BIC	#S0.ISP,4(R4)	;;; [4.2205] SET INPUT SPEED TO ZERO
  11291	036074	012703 	000300 			MOV	#DV.LOG!DV.URE,R3 ;;; [4.2245] SET STANDARD STATUS
  11292	036100	011637 	002660'			MOV	(SP),.TTELB	;;; [4.2245] SAVE THE ERROR DATA
  11293	036104					CALL	.TTERL		;;; [4.2245] LOG THE ERROR
	036104	004737 	041426'			JSR	PC,.TTERL
  11294	036110	000450 				BR	TTSTCH		;;; [4.2205] STORE THE CHARACTER AND EXIT
  11295						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 214
TERMINAL DRIVER -- $DHINP (DH-11 INPUT INTERRUPT)

  11297	036112				SNDBEL::
  11298	036112	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; [RCO 32681] OUTPUT IN PROGRESS ?
  11299	036120	001125 				BNE	TTINPB		;;; [RCO 32681] EXIT IF SO
  11300	036122	042714 	001077 			BIC	#1077,(R4)	;;; [RCO 32681] CLEAR OLD LINE NUMBER
  11301	036126	050314 				BIS	R3,(R4)		;;; [RCO 32681] SET NEW LINE NUMBER
  11302	036130	012764 	036164'	000006 		MOV	#BELADR,6(R4)	;;;[RCO 32681] SET THE ADDRESS FOR OUTPUT
  11303	036136	012764 	177777 	000010 		MOV	#-1,10(R4)	;;; [RCO 32681] AND THE BYTE COUNT
  11304	036144	011402 				MOV	@R4,R2		;;; [RCO 32681] GET THE DH UNIT NUMBER
  11305	036146	042702 	177760 			BIC	#177760,R2	;;; [RCO 32681] CLEAR ANY EXTRAS
  11306	036152	006302 				ASL	R2		;;; [RCO 32681] MAKE IT A WORD INDEX
  11307	036154	056264 	043022'	000012 		BIS	BITTBL(R2),12(R4) ;;; [RCO 32681] START THE DH GOING
  11308	036162	000504 				BR	TTINPB		;;; [RCO 32681] AND EXIT
  11309						;
  11310	036164				BELADR::
  11311	036164	   007 				.BYTE	7
  11312						.EVEN
  11313						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 215
TERMINAL DRIVER -- $TTINP (DL-11 INPUT INTERRUPT)

  11315						.SBTTL	TERMINAL DRIVER -- $TTINP (DL-11 INPUT INTERRUPT)
  11316
  11317					;+
  11318					; **-$TTINP-DL-11 TERMINAL INPUT INTERRUPTS
  11319					;
  11320					; THIS IS THE DL-11 INPUT INTERRUPT HEAD, ALL DEVICE DEPENDENT INPUT PROCESSING
  11321					; IS DONE HERE.
  11322					;
  11323					; THE DL-11 INPUT SERVICE IS MUCH SIMPLER THAT THAT OF THE DH-11.  CONTROL WILL
  11324					; BE TRANSFERRED TO THE DL-11E MODEM INTERRUPT SERVICE, IF REQUIRED.  CHARACTERS
  11325					; WITH FRAMING ERRORS ARE SIMPLY IGNORED, AND AN ATTMEPT IS MADE TO START THE
  11326					; TO-10 QUEUE WHE THE INTERRUPT IS DISMISSED.
  11327					;
  11328					; CHARACTERS FROM DL-11'S ARE ENTERED INTO THE TO-10 QUEUE FOR TRANSMISSION TO
  11329					; THE HOST IN THE SAME MANNER AS ARE CHARACTERS FROM DH-11'S.
  11330					;-
  11331
  11332						.ENABL	LSB
  11333
  11334	036166				$TTINP::			;;; REF LABEL
  11335	036166	013737 	177776 	002650'		MOV	@#PS,DLTMP	;;; SAVE CONTROLLER NUMBER
  11336	036174					CALL	R3,TTSAV	;;; SAVE R3 AND SETUP R4 AND R5
	036174	004337 	037332'			JSR	R3,TTSAV
  11337	036200	001536 				BEQ	80$		;;; SPURIOUS INTERRUPT
  11338	036202	011400 				MOV	(R4),R0		;;; GET STATUS
  11339	036204	100535 				BMI	.DLINT		;;; THIS IS MODEM INTERRUPT.
  11340	036206				TTINPA:
  11341	036206	012746 	035570'			MOV	#DHISTQ,-(SP)	;;; RETURN THROUGH TO10Q STARTUP
  11342	036212	016446 	000002 			MOV	2(R4),-(SP)	;;; GET INPUT BYTE AND FLAGS
  11343	036216	032716 	020000 			BIT	#DL.FER,(SP)	;;; FRAMING ERROR PRESENT??
  11344	036222	001064 				BNE	TTINPB		;;; YES -- FORGET IT
  11345	036224	105765 	000004 			TSTB	STSW0+0(R5)	;;; [4.2284] NO -- IS THIS LINE TURNED OFF??
  11346	036230	001061 				BNE	TTINPB		;;; YES -- GO AWAY
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 216
TERMINAL DRIVER -- TTSTCH (STORE CHARACTER IN TO10Q)

  11348						.SBTTL	TERMINAL DRIVER -- TTSTCH (STORE CHARACTER IN TO10Q)
  11349
  11350					;+
  11351					; TTSTCH -- STORE TERMINAL CHARACTER IN TO-10 QUEUE
  11352					;
  11353					; THIS ROUTINE PERFORMS DEVICE INDEPENDENT INPUT CHARACTER PROCESSING.
  11354					; SPECIFIC FUNCTIONS PERFORMED ARE:
  11355					;
  11356					;	1. KLINIK INPUT PROCESSING
  11357					;	2. PROTOCOL PAUSE INPUT PRECESSING
  11358					;	3. LOCAL XOFF PROCESSING
  11359					;	4. PDP-11 CTY INPUT PROCESSING
  11360					;	5. SECONDARY PROTOCOL INPUT PROCESSING.
  11361					;
  11362					; CHARACTERS FROM THE KLINIK LINE ARE IGNORED IF KLINIK IS NOT ENABLED.
  11363					;
  11364					; CHARACTERS RECEIVED DURING PROTOCOL PAUSE ARE BUFFERED UNTIL A MINIMUM THRESHOLD
  11365					; IS CROSSED, WHEREUPON THE FRONT-END IS CRASHED (B01).
  11366					;
  11367					; XOFF CHARACTERS ARE PROCESSED LOCALLY FOR LINES WHICH ARE SO ENABLED.  THE
  11368					; RETURN IS ALTERED SO AS TO TERMINATE A DH-11 SILO UNLOAD.
  11369					;
  11370					; PDP-11 CTY CHARACTERS ARE ECHOED AND PASSED TO THE TASK WHICH "OWNS" THE CTY.
  11371					;
  11372					; A <CONTROL-C> CHARACTER IS DECLARED AS A SIGNIFICANT EVENT.
  11373					; A <CONTROL-BACKSLASH> CHARACTER REQUESTS THE PARSER TASK.
  11374					;
  11375					; CHARACTERS RECEIVED WHILE IN SECONDARY PROTOCOL ARE PASSED TO THE BOOT
  11376					; PROTOCOL TASK.
  11377					;
  11378					; NORMAL CHARACTERS RECEIVED IN PRIMARY PROTOCOL ARE QUEUED UP FOR TRANSMISSION
  11379					; TO THE HOST.  CHARACTERS RECEIVED FROM A LINE WHICH IS IN CARRIER-WAIT ARE
  11380					; IGNORED.
  11381					;-
  11382
  11383	036232				TTSTCH:
  11384	036232	020537 	002636'			CMP	R5,KLNPTR	;;; IS THIS THE KLINIK LINE??
  11385	036236	001003 				BNE	10$		;;; NO -- GO ON
  11386	036240	105737 	001226'			TSTB	.KLNSW+0	;;; YES -- IS KLINIK ACTIVE??
  11387	036244	001453 				BEQ	TTINPB		;;; NO -- GO AWAY
  11388	036246				10$:
  11389	036246	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS THE CTY?
  11390	036254	001051 				BNE	50$		;;; YES -- SPECIAL CASE
  11391	036256				20$:				;;; [4.2211]
  11392	036256	032765 	000004 	000006 		BIT	#TT.CRW,STSW1(R5) ;;; [4.2333] NO -- IS THE LINE IN CARRIER-WAIT??
  11393	036264	001043 				BNE	TTINPB		;;; [4.2333] YES -- IGNORE IT
  11394	036266	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] NO -- IS PRIMARY PROTOCOL RUNNING?
  11395	036272	100410 				BMI	30$		;;; [4.1.1105] YES -- GO ON
  11396	036274	105737 	001372'			TSTB	.PRPSE		;;; [4.2211] NO -- PROTOCOL PAUSE??
  11397	036300	001435 				BEQ	TTINPB		;;; [4.2211] NO -- FLUSH CHARACTER AND DISMISS
  11398	036302	022737 	000140 	001422'		CMP	#140,.FREPL+2	;;; [4.2211] YES -- WITHIN  LIMITS??
  11399	036310	002401 				BLT	30$		;;; [4.2211] YES -- GO ON
  11400	036312	000677 				BR	SNDBEL		;;; [RCO 032681] SEND A BELL TO USER
  11401						;
  11402	036314				30$:				;;; [4.2211]
  11403	036314	032765 	000020 	000006 		BIT	#TT.XEN,STSW1(R5) ;;; [4.2181] IS INTERNAL XOFF ENABLED??
  11404	036322	001410 				BEQ	40$		;;; [4.2211] NO -- GO ON
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 216-1
TERMINAL DRIVER -- TTSTCH (STORE CHARACTER IN TO10Q)

  11405	036324	011646 				MOV	(SP),-(SP)	;;; [4.2181] YES -- GET CHARACTER FOR INPUT CHECK
  11406	036326	042716 	177600 			BIC	#^C177,(SP)	;;; [4.2181] FLUSH LINE NUMBER AND PARITY
  11407	036332	022726 	000023 			CMP	#C.HXOF,(SP)+	;;; [4.2181] IS IT AN XOFF??
  11408	036336	001002 				BNE	40$		;;; [4.2211] NO -- GO ON
  11409	036340					CALL	.TTXOF		;;; [4.2181] YES -- PROCESS XOFF
	036340	004737 	041554'			JSR	PC,.TTXOF
  11410	036344				40$:				;;; [4.2211]
  11411	036344					CALL	..STCH		;;; STORE CHARACTER WITH PARITY
	036344	004737 	045326'			JSR	PC,..STCH
  11412	036350					CALL	.TTSW2		;;; [5.1099] FIND OUR "STSW2" ENTRY
	036350	004737 	042754'			JSR	PC,.TTSW2
  11413	036354	032712 	040000 			BIT	#S2.DIP,(R2)	;;; [5.1099] INPUT XOFF IN PROGRESS??
  11414	036360	001403 				BEQ	45$		;;; [5.1099] NO -- CHECK FREE-POOL THRESHOLD
  11415	036362					CALL	.TTCHK		;;; [5.1099] YES -- COUNT THIS CHARACTER
	036362	004737 	042124'			JSR	PC,.TTCHK
  11416	036366	000402 				BR	TTINPB		;;; [5.1099] AND EXIT
  11417						;
  11418	036370				45$:
  11419	036370					CALL	.TTICK		;;; [4.1.1092] CHECK THE BUFFER
	036370	004737 	042150'			JSR	PC,.TTICK
  11420	036374				TTINPB:
  11421	036374	005726 				TST	(SP)+		;;; REMOVE THE CHARACTER
  11422	036376					RETURN			;;; AND EXIT
	036376	000207 				RTS	PC
  11423	036400				50$:
  11424	036400	013705 	002634'			MOV	CTYPTR,R5	;;; POINT TO REAL CTY
  11425	036404	011600 				MOV	(SP),R0		;;; GET THE CHARACTER AND
  11426	036406	042700 	177600 			BIC	#^C177,R0	;;; MASK OFF PARITY
  11427	036412	122700 	000003 			CMPB	#'C-100,R0	;;; ^C?
  11428	036416	001005 				BNE	60$		;;; NO -- DON'T SET EVENT FLAG
  11429	036420	052737 	040000 	001012'		BIS	#EF.CTC,.COMEF+2 ;;; TELL THE MONITOR
  11430	036426					CALL	..DSEV		;;; DECLARE A SIGNIFICANT EVENT
	036426	004737 	044026'			JSR	PC,..DSEV
  11431	036432				60$:
  11432	036432	123700 	002630'			CMPB	.BRKCH,R0	;;; NULL CHARACTER?
  11433	036436	001006 				BNE	70$		;;; NO -- ALL OK
  11434	036440	052737 	000200 	007172'		BIS	#EF.RQM,TTYTSK+A.EF ;;; START PARSER TASK
  11435	036446					CALL	..DSEV		;;; DECLARE A SIGNIFICANT EVENT
	036446	004737 	044026'			JSR	PC,..DSEV
  11436	036452	000750 				BR	TTINPB		;;; IGNORE CHARACTER
  11437						;
  11438	036454				70$:
  11439	036454	005737 	002632'			TST	.TTP11		;;; IS THIS PDP11 INPUT?
  11440	036460	001072 				BNE	TTCTY		;;; YES -- GO DO ECHO ETC
  11441	036462	032737 	020000 	001012'		BIT	#EF.PR2,.COMEF+2 ;;; IS THIS BOOT PROTOCOL?
  11442	036470	001672 				BEQ	20$		;;; [4.2211] NO -- THEN JUST TREAT IT AS A NORMAL REQUEST
  11443	036472	112637 	001162'			MOVB	(SP)+,.BTSCH	;;; STORE CHARACTER FOR BOOT PROTOCOL
  11444	036476				80$:
  11445	036476					RETURN
	036476	000207 				RTS	PC
  11446
  11447						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 217
TERMINAL DRIVER -- .DLINT (DL-11E DATASET INTERRUPT SERVICE)

  11449						.SBTTL	TERMINAL DRIVER -- .DLINT (DL-11E DATASET INTERRUPT SERVICE)
  11450					;+
  11451					;	.DLINT -- DL-11E DATASET INTERRUPT SERVICE
  11452					;
  11453					; ENTER WITH:
  11454					;
  11455					;	R0 -- CSR FOR THIS DEVICE
  11456					;	R4 -- POINTS TO EXTERNAL PAGE FOR THIS DEVICE
  11457					;	R5 -- POINTS TO DLS ENTRY FOR THIS DEVICE
  11458					;
  11459					;-
  11460
  11461	036500				.DLINT::			;;; CALLED FROM "$TTINP"
  11462	036500	032765 	000100 	000006 		BIT	#TT.RMT,STSW1(R5);;; REMOTE TERMINAL??
  11463	036506	001452 				BEQ	40$		;;; NO -- NOISE - GO AWAY
  11464	036510	032700 	040000 			BIT	#DL.RNG,R0	;;; YES -- DID IT RING??
  11465	036514	001421 				BEQ	20$		;;; NO -- GO LOOK AT CARRIER
  11466	036516	012714 	000046 			MOV	#DL.DTR!DL.DEN!DL.RTS,(R4)
  11467									;;; SET UP TO WAIT FOR CARRIER
  11468	036522	020537 	002636'			CMP	R5,KLNPTR	;;; IS THIS THE KLINIK LINE??
  11469	036526	001403 				BEQ	10$		;;; YES -- GO ON
  11470	036530					CALL	.TTRNG		;;; NO -- DISCONNECT AND SET CARRIER WAIT
	036530	004737 	040044'			JSR	PC,.TTRNG
  11471	036534	000411 				BR	20$		;;; AND GO  ON
  11472						;
  11473	036536				10$:
  11474	036536	105737 	001226'			TSTB	.KLNSW+0	;;; IS KLINIK ALREADY ACTIVE??
  11475	036542	001006 				BNE	20$		;;; YES -- NOISE - GO ON
  11476	036544	052737 	001000 	007172'		BIS	#EF.RKR,TTYTSK+A.EF ;;; NO -- REQUEST KLRING
  11477	036552					CALL	..DSEV		;;; DECLARE A SIGNIFICANT EVENT
	036552	004737 	044026'			JSR	PC,..DSEV
  11478	036556	000432 				BR	50$		;;; AND LET IT HANDLE CARRIER
  11479						;
  11480	036560				20$:
  11481	036560	032700 	010000 			BIT	#DL.CAR,R0	;;; CARRIER DETECT UP??
  11482	036564	001416 				BEQ	30$		;;; NO -- GO LOOK AT DATA TERMINAL READY
  11483	036566	032714 	000004 			BIT	#DL.RTS,(R4)	;;; YES -- IS REQUEST TO SEND UP??
  11484	036572	001424 				BEQ	50$		;;; NO -- JUST EXIT
  11485	036574	042765 	002004 	000006 		BIC	#TT.CRW!TT.RIP,STSW1(R5)
  11486	036602	052714 	000100 			BIS	#DL.REN,(R4)	;;; ENABLE RCVR INTERRUPTS
  11487	036606	020537 	002636'			CMP	R5,KLNPTR	;;; IS THIS THE KLINIK LINE??
  11488	036612	001410 				BEQ	40$		;;; YES -- GO ON
  11489	036614					CALL	.STTYD		;;; TELL -10 ABOUT DIALUP
	036614	004737 	040060'			JSR	PC,.STTYD
  11490	036620	000405 				BR	40$		;;; AND GO AWAY
  11491						;
  11492	036622				30$:				;;; HERE IF CARRIER IS OFF
  11493	036622	032714 	000002 			BIT	#DL.DTR,(R4)	;;; DATA TERMINAL READY LIT??
  11494	036626	001406 				BEQ	50$		;;; NO -- EXIT
  11495	036630					CALL	.TTSCW		;;; YES -- WAIT FOR CARRIER
	036630	004737 	040050'			JSR	PC,.TTSCW
  11496	036634				40$:
  11497	036634	105714 				TSTB	(R4)		;;; RCVR DONE LIT??
  11498	036636	100002 				BPL	50$		;;; [4.2211] NO -- EXIT
  11499	036640	000137 	036206'			JMP	TTINPA		;;; [4.2211] YES -- PROCESS DATA
  11500						;
  11501	036644				50$:
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 217-1
TERMINAL DRIVER -- .DLINT (DL-11E DATASET INTERRUPT SERVICE)

  11502	036644					RETURN			;;; TO CALLER
	036644	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 218
TERMINAL DRIVER -- TTCTY (CTY SERVICE)

  11504						.SBTTL	TERMINAL DRIVER -- TTCTY (CTY SERVICE)
  11505
  11506						.ENABL	LSB
  11507	036646				TTCTY:
  11508	036646	013705 	002634'			MOV	CTYPTR,R5	;;; RESET TO CTY AND
  11509	036652	012703 	002664'			MOV	#CTYSTS,R3	;;; GET CTY BLOCK POINTER.
  11510	036656	110016 				MOVB	R0,(SP)		;;; USE CHARACTER WITHOUT PARITY.
  11511	036660	122716 	000017 			CMPB	#'O-100,@SP	;;; CONTROL O?
  11512	036664	001010 				BNE	95$		;;; IF NE NO
  11513	036666	011346 				MOV	@R3,-(SP)	;;; XOR CTLO BIT
  11514	036670	042716 	177737 			BIC	#^C<CTLO>,@SP	;;; WITH STATUS WORD
  11515	036674	052713 	000040 			BIS	#CTLO,@R3
  11516	036700	042613 				BIC	(SP)+,@R3
  11517	036702				80$:
  11518					;
  11519					; CONTROLLER IS BUSY ON OUTPUT-IGNORE INPUT REQUEST
  11520					;
  11521	036702				85$:
  11522	036702	005726 				TST	(SP)+		;;; REMOVE BYTE FROM STACK
  11523	036704				90$:
  11524	036704					RETURN			;;; EXIT INTERRUPT
	036704	000207 				RTS	PC
  11525					;
  11526					; CONTROLLER IS BUSY ON INPUT OR OUTPUT
  11527					;
  11528	036706				95$:
  11529	036706	005713 				TST	@R3		;;; BUSY ON INPUT?
  11530	036710	100774 				BMI	80$		;;; IF MI NO
  11531					;
  11532					; PROCESS NEXT INPUT BYTE
  11533					;
  11534	036712				100$:
  11535	036712	122716 	000177 			CMPB	#177,@SP	;;; RUBOUT?
  11536	036716	001450 				BEQ	115$		;;; IF EQ YES
  11537	036720	122716 	000025 			CMPB	#25,@SP		;;; LINE DELETE?
  11538	036724	001474 				BEQ	125$		;;; IF EQ YES
  11539	036726	122716 	000033 			CMPB	#C.HESC,@SP	;;; ESCAPE?
  11540	036732	001506 				BEQ	1$		;;; IF EQ YES
  11541	036734	122716 	000032 			CMPB	#C.HEOF,@SP	;;; CONTROL Z?
  11542	036740	001507 				BEQ	11$		;;; IF EQ YES
  11543	036742	122716 	000015 			CMPB	#C.HCRT,@SP	;;; CARRIAGE RETURN?
  11544	036746	001524 				BEQ	41$		;;; IF EQ YES
  11545	036750	122716 	000003 			CMPB	#3,@SP		;;; ^C?
  11546	036754	001510 				BEQ	21$		;;; YES
  11547	036756	122716 	000140 			CMPB	#140,@SP	;;; CHECK FOR LC
  11548	036762	103005 				BHIS	105$		;;; NO
  11549	036764	122716 	000173 			CMPB	#173,@SP
  11550	036770	103402 				BLO	105$
  11551	036772	042716 	000040 			BIC	#40,@SP		;;; YES
  11552					;
  11553					; STORE BYTE IN INPUT BUFFER
  11554					;
  11555	036776				105$:
  11556	036776	111673 	000006 			MOVB	@SP,@CURBF(R3)	;;; STORE BYTE IN BUFFER
  11557	037002	005263 	000006 			INC	CURBF(R3)	;;; INCREMENT BUFFER ADDRESS
  11558	037006	105363 	000004 			DECB	RMBYT(R3)	;;; ANY REMAINING SPACE IN BUFFER
  11559	037012	001004 				BNE	110$		;;; IF NE YES
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 218-1
TERMINAL DRIVER -- TTCTY (CTY SERVICE)

  11560	037014	005363 	000006 			DEC	CURBF(R3)	;;; BACK UP TO END OF BUFFER
  11561	037020	052713 	000400 			BIS	#EOLS,@R3	;;; TERMINATE ON BYTE COUNT
  11562	037024				110$:
  11563	037024	032713 	000020 			BIT	#RUBP,@R3	;;; RUBOUT IN PROGRESS?
  11564	037030	001477 				BEQ	61$		;;; IF EQ NO
  11565	037032	042713 	000020 			BIC	#RUBP,@R3	;;; CLEAR RUBOUT IN PROGRESS
  11566	037036	000417 				BR	120$
  11567						;
  11568					;
  11569					; RUBOUT
  11570					;
  11571	037040				115$:
  11572	037040	026363 	000006 	000002 		CMP	CURBF(R3),STRBF(R3) ;;; ANY BYTES TO RUBOUT?
  11573	037046	001715 				BEQ	80$		;;; IF EQ NO
  11574	037050	005363 	000006 			DEC	CURBF(R3)	;;; BACK UP ONE BYTE
  11575	037054	117316 	000006 			MOVB	@CURBF(R3),@SP	;;; GET BYTE TO BE RUBBED OUT
  11576	037060	105263 	000004 			INCB	RMBYT(R3)	;;; INCREMENT REMAINING SPACE IN BUFFER
  11577	037064	032713 	000020 			BIT	#RUBP,@R3	;;; RUBOUT ALREADY IN PROGRESS?
  11578	037070	001057 				BNE	61$		;;; IF NE YES
  11579	037072	052713 	000020 			BIS	#RUBP,@R3	;;; SET RUBOUT IN PROGRESS
  11580	037076				120$:
  11581	037076	000316 				SWAB	@SP		;;; SWAP BYTE TO HIGH BYTE
  11582	037100	112716 	000134 			MOVB	#'\,@SP		;;; INSERT BACKSLASH
  11583	037104	011663 	000014 			MOV	@SP,MBUFR(R3)	;;; INSERT TEXT IN MULTI-ECHO BUFFER
  11584	037110	012716 	000002 			MOV	#2,@SP		;;; SET LENGTH OF BUFFER
  11585	037114	000456 				BR	81$
  11586						;
  11587					;
  11588					; LINE DELETE
  11589					;
  11590	037116				125$:
  11591	037116	012716 	000004 			MOV	#4,@SP		;;; SET LENGTH OF BUFFER
  11592	037122	012746 	032242'			MOV	#CTRLU,-(SP)	;;; SET ADDRESS OF MULTI-ECHO BUFFER
  11593	037126	042713 	000020 			BIC	#RUBP,@R3	;;; CLEAR RUBOUT IN PROGRESS FLAG
  11594	037132	013763 	002724'	000004 		MOV	CNT,RMBYT(R3)	;;; RESET REMAINING BYTES IN BUFFER
  11595	037140	016363 	000002 	000006 		MOV	STRBF(R3),CURBF(R3) ;;; RESET ADDRESS IN BUFFER
  11596	037146	000444 				BR	91$
  11597						;
  11598					;
  11599					; ESCAPE
  11600					;
  11601	037150				1$:
  11602	037150	111663 	000005 			MOVB	@SP,FNBYT(R3)	;;; [TCO 4.1.1126] SET FINAL BYTE
  11603	037154	105016 				CLRB	@SP		;;; [TCO 4.1.1126] SET TO ECHO ZERO BYTE
  11604	037156	000422 				BR	51$		;;; SET END OF LINE SEEN
  11605						;
  11606					;
  11607					; CONTROL Z
  11608					;
  11609	037160				11$:
  11610	037160	105363 	000005 			DECB	FNBYT(R3)	;;; SET CONTROL Z FLAG
  11611	037164	012716 	000004 			MOV	#4,@SP
  11612	037170	012746 	032246'			MOV	#CTRLZ,-(SP)	;;; SET ADDRESS OF MULTI-ECHO BUFFER
  11613	037174	000406 				BR	31$
  11614						;
  11615					;
  11616					; CONTROL C
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 218-2
TERMINAL DRIVER -- TTCTY (CTY SERVICE)

  11617					;
  11618	037176				21$:
  11619	037176	111663 	000005 			MOVB	@SP,FNBYT(R3)	;;; SET IN LAST CHARACTER
  11620	037202	012716 	000004 			MOV	#4,@SP		;;; SET COUNT
  11621	037206	012746 	032236'			MOV	#CTRLC,-(SP)	;;; SET  CNTRL C
  11622	037212				31$:
  11623	037212	052713 	000400 			BIS	#EOLS,@R3	;;; SET END OF LINE
  11624	037216	000420 				BR	91$		;;; AND ECHO
  11625						;
  11626					;
  11627					; CARRIAGE RETURN /CNTRL Z
  11628					;
  11629	037220				41$:
  11630	037220	111663 	000005 			MOVB	@SP,FNBYT(R3)
  11631	037224				51$:
  11632	037224	052713 	000400 			BIS	#EOLS,@R3	;;; SET END OF LINE SEEN
  11633	037230				61$:
  11634	037230	032713 	074000 			BIT	#LFCT,@R3	;;; ANY LINE FEEDS WAITING?
  11635	037234	001002 				BNE	71$		;;; IF NE YES
  11636	037236	000137 	035004'			JMP	ECHOB		;;; ECHO BYTE
  11637						;
  11638	037242				71$:
  11639	037242	111663 	000014 			MOVB	@SP,MBUFR(R3)	;;; SET FOR MULTI-ECHO OF ONE BYTE
  11640	037246	012716 	000001 			MOV	#1,@SP		;;; SET LENGTH OF BUFFER
  11641	037252				81$:
  11642	037252	010346 				MOV	R3,-(SP)	;;; CALCULATE ADDRESS OF MULTI-ECHO BUFFER
  11643	037254	062716 	000014 			ADD	#MBUFR,@SP
  11644	037260				91$:
  11645	037260	012663 	000012 			MOV	(SP)+,MEBUF(R3)	;;; INSERT ADDRESS OF MULTI-ECHO BUFFER
  11646	037264	112663 	000010 			MOVB	(SP)+,MECNT(R3)	;;; INSERT LENGTH OF BUFFER
  11647	037270	000137 	034546'			JMP	OUTPT		;;; START OUTPUT
  11648						;
  11649						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 219
TERMINAL DRIVER -- DHSAV (DH-11 REGISTER SAVE/RESTORE CO-ROUTI

  11651						.SBTTL	TERMINAL DRIVER -- DHSAV (DH-11 REGISTER SAVE/RESTORE CO-ROUTINE)
  11652
  11653					;+
  11654					; DHSAV -- DH-11 TERMINAL MULTIPLEXER SAVE ROUTINE
  11655					; TTSAV -- DL-11 TERMINAL SAVE ROUTINE
  11656					;
  11657					; THIS ROUTINE SAVES R0 THRU R5 ON THE STACK AND RETURNS:
  11658					;
  11659					;	R4 -- POINTS TO EXTERNAL PAGE FOR THIS DEVICE (UNIT)
  11660					;	R5 -- POINTS TO THE DLS ENTRY FOR THIS DEVICE (UNIT)
  11661					;	CC-Z SET -- DEVICE DOES NOT EXIST
  11662					;-
  11663
  11664						.ENABL LSB
  11665
  11666	037274				DHSAV:
  11667	037274	010046 				MOV	R0,-(SP)	; SAVE REGISTERS
  11668	037276	010146 				MOV	R1,-(SP)
  11669	037300	010246 				MOV	R2,-(SP)
  11670	037302	010446 				MOV	R4,-(SP)
  11671	037304	010546 				MOV	R5,-(SP)
  11672	037306	010346 				MOV	R3,-(SP)	;;; SET RETURN ADDRESS
  11673	037310	013705 	002646'			MOV	DHTMP,R5	;;; RET SAVED PS WORD
  11674	037314	042705 	177760 			BIC	#177760,R5	;;; CLEAR ALL BUT CONTROLLER NUMBER
  11675	037320	000305 				SWAB	R5		;;; CONVERT TO WORD INDEX
  11676	037322	006205 				ASR	R5
  11677	037324	062705 	003046'			ADD	#DHTBL,R5	;;; POINT TO THE BEGINNING OF DH-11 TABLE
  11678	037330	000417 				BR	20$		;;; FINISH IN COMMON CODE
  11679						;
  11680					;
  11681					; DL-11 TERMINAL SAVE ROUTINE
  11682					;
  11683	037332				TTSAV:
  11684	037332	010046 				MOV	R0,-(SP)	; SAVE REGISTERS
  11685	037334	010146 				MOV	R1,-(SP)
  11686	037336	010246 				MOV	R2,-(SP)
  11687	037340	010446 				MOV	R4,-(SP)
  11688	037342	010546 				MOV	R5,-(SP)
  11689	037344	010346 				MOV	R3,-(SP)	;;; SET RETURN ADDRESS
  11690	037346	013705 	002650'			MOV	DLTMP,R5	;;; RETRIEVE SAVED PS WORD
  11691	037352	042705 	177760 			BIC	#177760,R5	;;; CLEAR ALL BUT CONTROLLER (UNIT) NUMBER
  11692	037356	006305 				ASL	R5		;;; CONVERT TO WORD INDEX
  11693	037360	006305 				ASL	R5
  11694	037362	006305 				ASL	R5
  11695	037364	062705 	002776'			ADD	#TTTBL,R5	;;; POINT TO THE BEGINNING OF THE DL-11 TABLE
  11696	037370				20$:
  11697	037370	016504 	000002 			MOV	TTYEXP(R5),R4	;;; SET UP EXTERNAL PAGE ADDRESS OF THIS DEVICE
  11698	037374					CALL	@(SP)+		;;; CALL THE CALLER BACK
	037374	004736 				JSR	PC,@(SP)+
  11699	037376	012605 				MOV	(SP)+,R5	;;; RESTORE REGISTERS
  11700	037400	012604 				MOV	(SP)+,R4
  11701	037402	012602 				MOV	(SP)+,R2
  11702	037404	012601 				MOV	(SP)+,R1
  11703	037406	012600 				MOV	(SP)+,R0
  11704	037410	012603 				MOV	(SP)+,R3
  11705	037412	000137 	014632'			JMP	..INTX		;;; EXIT FROM INTERRUPT
  11706						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 219-1
TERMINAL DRIVER -- DHSAV (DH-11 REGISTER SAVE/RESTORE CO-ROUTI

  11707
  11708						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 220
TERMINAL DRIVER -- .STDHL (SET UP DH-11 LINE NUMBER IN CONTROL

  11710						.SBTTL	TERMINAL DRIVER -- .STDHL (SET UP DH-11 LINE NUMBER IN CONTROLLER)
  11711
  11712					;+
  11713					; .STDHL -- SET UP DH-11 LINE NUMBER IN CONTROLLER
  11714					;
  11715					; INPUTS:
  11716					;
  11717					;	R5 -- DLS BLOCK OFFSET FOR THIS LINE
  11718					;
  11719					; OUTPUTS:
  11720					;
  11721					;	R4 -- ADDRESS OF DH-11 CSR
  11722					;	CC-N CLEAR -- LINE NUMBER IS SET IN DH-11 CSR
  11723					;	CC-N SET -- R5 POINTS TO A DL-11 BLOCK
  11724					;	CC-Z SET -- LINE DOES NOT EXIST
  11725					;-
  11726
  11727	037416				.STDHL::
  11728	037416	016504 	000002 			MOV	TTYEXP(R5),R4	;;; [5,1015] FIND I/O PAGE ADDRESS
  11729	037422	001415 				BEQ	20$		;;; [5.1015] EXIT IF NON-EXISTENT
  11730	037424	010546 				MOV	R5,-(SP)	;;; [5.1015] DLS POINTER TO STACK
  11731	037426	162716 	003046'			SUB	#DHTBL,(SP)	;;; [5.1015] FIND OFFSET INTO "DHTBL"
  11732	037432	100410 				BMI	10$		;;; [5.1015] DONE WITH DL-11 AT THIS POINT
  11733	037434	006216 				ASR	(SP)		;;; [5.1015] COMPUTE DH-11
  11734	037436	006216 				ASR	(SP)		;;; [5.1015] LINE NUMBER
  11735	037440	006216 				ASR	(SP)		;;; [5.1015] SO
  11736	037442	042716 	177760 			BIC	#^C17,(SP)	;;; [5.1015] FLUSH EXTRANEOUS TRASH
  11737	037446	042714 	001077 			BIC	#1077,(R4)	;;; [5.1015] CLEAR LINE NUMBER REGISTER
  11738	037452	051614 				BIS	(SP),(R4)	;;; [5.1015] SET LINE NUMBER
  11739	037454				10$:
  11740	037454	005226 				INC	(SP)+		;;; [5.1015] CLEAR STACK AND SET RETURN FLAG
  11741	037456				20$:
  11742	037456					RETURN			;;; [5.1015] TO CALLER
	037456	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 221
TERMINAL DRIVER -- .DHSPR (RESET TO DEFAULT AUTO-BAUD SPEED)

  11744						.SBTTL	TERMINAL DRIVER -- .DHSPR (RESET TO DEFAULT AUTO-BAUD SPEED)
  11745
  11746					;+
  11747					; .DHSPR -- RESET A DH-11 LINE TO DEFAULT AUTO-BAUD SPEED
  11748					;
  11749					; THIS SUBROUTINE WILL RESET A LINE TO ITS DEFAULT AUTO-BAUD SPEED
  11750					;
  11751					; INPUTS:
  11752					;
  11753					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS DH-11 LINE
  11754					;
  11755					; OUTPUTS:
  11756					;
  11757					;	LINE'S SPEED IS RESET TO 300 BAUD
  11758					;	NO REGISTERS ALTERED
  11759					;-
  11760
  11761
  11762						.ENABL	LSB
  11763
  11764	037460				.DHSPR::
  11765	037460	032765 	000040 	000006 		BIT	#TT.ABL,STSW1(R5) ;;; [5.1152] ABW LINE ?
  11766	037466	001456 				BEQ	40$		;;; [5.1152] BRANCH IF NOT AUTO BAUD LINE
  11767	037470	016546 	000004 			MOV	STSW0(R5),-(SP) ;;; SAVE LINE SPEED WORD AS FLAG
  11768	037474	010346 				MOV	R3,-(SP)	;;; SAVE R3
  11769	037476	012703 	016703 			MOV	#16703,R3	;;; DEFAULT LINE SPEED TO R3 (300 BAUD)
  11770	037502					CALL	.DHSPD		;;; SET IT
	037502	004737 	037554'			JSR	PC,.DHSPD
  11771	037506	012603 				MOV	(SP)+,R3	;;; RESTORE R3
  11772	037510	005726 				TST	(SP)+		;;; HAS THE SETSPD TASK BEEN BLOCKED??
  11773	037512	100405 				BMI	10$		;;; YES -- DON'T COUNT THIS LINE
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 222
TERMINAL DRIVER -- .DHSPF (FLAG AUTO-BAUD REPORT)

  11775						.SBTTL	TERMINAL DRIVER -- .DHSPF (FLAG AUTO-BAUD REPORT)
  11776
  11777					;+
  11778					; .DHSPF -- FLAG LINE SPEED TO BE REPORTED TO THE HOST
  11779					;
  11780					; THIS SUBROUTINE WILL FLAG AN AUTO-BAUD LINE SPEED TO BE REPORTED
  11781					;
  11782					; INPUTS:
  11783					;
  11784					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS DH-11 LINE
  11785					;
  11786					; OUTPUTS:
  11787					;
  11788					;	THE LINE SPEED IS FLAGGED TO BE REPORTED TO THE HOST
  11789					;	NO REGISTERS ALTERED
  11790					;-
  11791
  11792	037514				.DHSPF::
  11793	037514	005237 	002600'			INC	.ABCNT		;;; INCREMENT THE COUNT
  11794	037520	052765 	100000 	000004 		BIS	#S0.ABR,STSW0(R5) ;;; [4.2284] FLAG THE LINE SPEED
  11795	037526				10$:
  11796	037526	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] IS PRIMARY PROTOCOL RUNNING??
  11797	037532	100034 				BPL	40$		;;; [4.1.1105] NO -- GO ON
  11798	037534	005737 	001140'			TST	.DATE3		;;; IS OUR DATE VALID ??
  11799	037540	001431 				BEQ	40$		;;; NO, DON'T CALL SETSPD
  11800	037542	052737 	004000 	007172'		BIS	#EF.RSS,TTYTSK+A.EF ;;; [4.2140] YES -- REQUEST THE TASK
  11801	037550	000137 	044026'			JMP	..DSEV		;;; DECLARE A SIGNIFICANT EVENT AND RETURN
  11802						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 223
TERMINAL DRIVER -- .DHSPD (SET LINE SPEED)

  11804						.SBTTL	TERMINAL DRIVER -- .DHSPD (SET LINE SPEED)
  11805
  11806					;+
  11807					; .DHSPD -- SET LINE SPEED FOR A DH-11 LINE
  11808					;
  11809					; THIS SUBROUTINE WILL SET THE LINE SPEED FOR A LINE
  11810					;
  11811					; INPUTS:
  11812					;
  11813					;	R3 -- LINE SPEED TO BE SET
  11814					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS DH-11 LINE
  11815					;
  11816					; OUTPUTS:
  11817					;
  11818					;	DH-11 LINE SPEED IS SET UP - DL-11 IS UNALTERED.
  11819					;	IF INPUT FOR THIS LINE WAS FORCIBLY TURNED OFF, THE ACTUAL SETTING
  11820					;	OF THE LINE SPEED IN THE HARDWARE IS DEFERRED UNTIL INPUT FOR THE
  11821					;	LINE IS RE-ENABLED BY THE HOST.
  11822					;	NO REGISTERS ALTERED
  11823					;-
  11824
  11825	037554				.DHSPD::
  11826	037554	010446 				MOV	R4,-(SP)	;;; SAVE R4
  11827	037556	010246 				MOV	R2,-(SP)	;;; [5.1015] SAVE R2 AS WELL
  11828	037560	042703 	140000 			BIC	#S0.MSK,R3	;;; [5.1015] FLUSH STATUS BITS
  11829	037564					CALL	.TTSW2		;;; [5.1015] FIND OUR "STSW2" ENTRY
	037564	004737 	042754'			JSR	PC,.TTSW2
  11830	037570					CALL	.STDHL		;;; SET THE DH-11 LINE NUMBER
	037570	004737 	037416'			JSR	PC,.STDHL
  11831	037574	003411 				BLE	30$		;;; [5.1015] EXIT IF DL-11 OR NON-EXISTENT
  11832	037576	005712 				TST	(R2)		;;; [4.1.1092] INPUT X'D OFF??
  11833	037600	100402 				BMI	20$		;;; [4.1.1092] YES -- GO ON
  11834	037602	010364 	000004 			MOV	R3,4(R4)	;;; SET THE NEW LINE SPEED
  11835	037606				20$:
  11836	037606	042765 	037777 	000004 		BIC	#^C<S0.MSK>,STSW0(R5) ;;; [4.2284] CLEAR OLD LINE SPEED
  11837	037614	050365 	000004 			BIS	R3,STSW0(R5)	;;; [4.2284] MARK IT IN LINE TABLE TOO
  11838	037620				30$:
  11839	037620	012602 				MOV	(SP)+,R2	;;; [5.1015] RESTORE R2
  11840	037622	012604 				MOV	(SP)+,R4	;;; AND R4
  11841	037624				40$:
  11842	037624					RETURN			;;; TO CALLER
	037624	000207 				RTS	PC
  11843
  11844						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 224
TERMINAL DRIVER -- $DMINT (DM-11/BB MODEM CONTROL INTERRUPT)

  11846						.SBTTL	TERMINAL DRIVER -- $DMINT (DM-11/BB MODEM CONTROL INTERRUPT)
  11847
  11848					;+
  11849					; **-$DMINT-DM-11/BB MODEM CONTROL MULTIPLEXER INTERRUPTS
  11850					;
  11851					;	THIS ROUTINE SERVICES INTERRUPTS FROM THE DM-11/BB MODEM CONTROLS
  11852					;	FOR THE FOLLOWING EVENTS:
  11853					;
  11854					;	1. DATA-SET RING
  11855					;	2. CARRIER DETECT TRANSITION
  11856					;	3. CARRIER DROP TRANSITION
  11857					;
  11858					;	ON DATA SET RING, IF THE DM-11/BB'S ARE NOT INHIBITED, THE FOLLOWING
  11859					;	IS DONE.
  11860					;
  11861					;	DATA-TERMINAL READY, DATA ENABLE AND RING ENABLE ARE SET FOR THE LINE.
  11862					;	THE LINE IS PUT INTO THE CARRIER-WAIT STATE.
  11863					;
  11864					;	ON CARRIER-DETECT TRANSITION THE FOLLOWING IS DONE:
  11865					;
  11866					;	THE LINE IS REMOVED FROM THE CARRIER-WAIT STATE.
  11867					;	IF THE LINE IS AN AUTO-BAUD LINE, IT IS PUT INTO AUTO-BAUD WAIT, OTHERWISE
  11868					;	A CONNECT MESSAGE IS TRANSMITTED TO THE HOST.
  11869					;
  11870					;	ON CARRIER-DROP, THE LINE IS PUT INTO THE CARRIER-WAIT STATE AND IS
  11871					;	TIMED-OUT BY THE TIME-OUT SERVICE IN ".DMTMO" (Q.V.)
  11872					;
  11873					;	ANY NON-RING INTERRUPT INITIATED WITHOUT DATA-TERMINAL READY BEING
  11874					;	SET WILL BE IGNORED.
  11875					;-
  11876
  11877						.ENABL	LSB
  11878
  11879	037626				$DMINT::			;;; [4.2055] REF LABEL
  11880	037626	013737 	177776 	002644'		MOV	@#PS,DMTMP	;;; [4.2055] SAVE CONTROLLER NUMBER
  11881	037634					CALL	R3,TTSAV	;;; [4.2055] SAVE REGISTERS
	037634	004337 	037332'			JSR	R3,TTSAV
  11882	037640	013703 	002644'			MOV	DMTMP,R3	;;; [4.2055] RETRIEVE SAVED PS WORD
  11883	037644	042703 	177760 			BIC	#177760,R3	;;; [4.2055] CLEAR ALL BUT CONTROLLER NUMBER
  11884	037650	006303 				ASL	R3		;;; [4.2055] CONVERT TO WORD INDEX
  11885	037652	006303 				ASL	R3		;;; [4.2055] SO
  11886	037654	016304 	002734'			MOV	DMTBL(R3),R4	;;; [4.2055] GET ADDRESS OF DM-11/BB CSR
  11887	037660	012405 				MOV	(R4)+,R5	;;; [4.2055] GET INTERRUPT STATUS
  11888	037662	052714 	000001 			BIS	#1,(R4)		;;; [4.2055] JUST SET RING ENABLE FOR NOW
  11889	037666	032705 	010000 			BIT	#10000,R5	;;; [RCO 041581] SECONDARY RECIEVE ?
  11890	037672	001026 				BNE	10$		;;; [RCO 041581] EXIT IF SO
  11891	037674	010546 				MOV	R5,-(SP)	;;; [4.2055] COPY TO STACK
  11892	037676	042705 	177760 			BIC	#177760,R5	;;; [4.2055] CLEAR ALL BUT UNIT NUMBER
  11893	037702	006305 				ASL	R5		;;; [4.2055] CONVERT UNIT NUMBER TO WORD INDEX
  11894	037704	006305 				ASL	R5		;;; [4.2055] THUS
  11895	037706	006305 				ASL	R5		;;; [4.2055] AND SO
  11896	037710	066305 	002736'			ADD	DMTBL+2(R3),R5	;;; [4.2055] CALCULATE ADDRESS OF "DHTBL" ENTRY
  11897	037714	011402 				MOV	@R4,R2		;;; [4.2055] GET UNIT STATUS
  11898	037716	005102 				COM	R2		;;; [4.2055] INVERT UNIT STATUS
  11899	037720	005726 				TST	(SP)+		;;; [4.2055] IS THIS A RING INTERRUPT??
  11900	037722	100015 				BPL	20$		;;; [4.2055] NO -- GO ON
  11901	037724	032765 	000100 	000006 		BIT	#TT.RMT,STSW1(R5) ;;; [RCO 9380] REMOTE LINE ?
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 224-1
TERMINAL DRIVER -- $DMINT (DM-11/BB MODEM CONTROL INTERRUPT)

  11902	037732	001406 				BEQ	10$		;;; [RCO 9380] EXIT IF NOT
  11903	037734	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] YES -- IS PRIMARY PROTOCOL RUNNING??
  11904	037740	100003 				BPL	10$		;;; [4.1.1105] NO -- IGNORE INTERRUPT
  11905	037742	005737 	002576'			TST	.INHDM		;;; [4.2055] YES -- ARE DM-11/BB'S INHIBITED??
  11906	037746	001406 				BEQ	30$		;;; [4.2055] NO -- GO ON
  11907	037750				10$:
  11908	037750	042744 	001200 			BIC	#1200,-(R4)	;;; [4.2055] YES -- REENABLE SCANNING
  11909	037754	000440 				BR	60$		;;; [4.2055] AND EXIT
  11910						;
  11911					;
  11912					; HERE FOR A NON-RING INTERRUPT
  11913					;
  11914	037756				20$:
  11915	037756	032702 	000004 			BIT	#4,R2		;;; [4.2055] IS REQUEST TO SEND UP??
  11916	037762	001372 				BNE	10$		;;; [4.2055] NO -- JUST REENABLE SCAN AND EXIT
  11917					;
  11918					; HERE FOR A RING INTERRUPT OR AN ALLOWABLE NON-RING INTERRUPT
  11919					;
  11920	037764				30$:
  11921	037764	052714 	000007 			BIS	#7,(R4)		;;; [4.2055] SET RTS + DE + RE
  11922	037770	042744 	001200 			BIC	#1200,-(R4)	;;; [4.2055] REENABLE SCANNING
  11923	037774	105702 				TSTB	R2		;;; [4.2055] RING INTERRUPT?? [5.1131]TST=TSTB
  11924	037776	100022 				BPL	.TTRNG		;;; [4.2055] YES -- GO HANDLE IT
  11925	040000	032702 	000140 			BIT	#140,R2		;;; [4.2055] NO -- CARRIER AND CLEAR TO SEND SET?
  11926	040004	001021 				BNE	.TTSCW		;;; [4.2055] IF .NE. NO (MUST BE CARRIER DROP)
  11927					;
  11928					; CARRIER ON TRANSITION
  11929					;
  11930	040006	042765 	002004 	000006 		BIC	#TT.CRW!TT.RIP,STSW1(R5) ;;; [4.2055] CLEAR CARRIER WAIT
  11931	040014	032765 	040000 	000004 		BIT	#S0.CON,STSW0(R5) ;;; [4.2309] WAS LINE ALREADY CONNECTED??
  11932	040022	001015 				BNE	60$		;;; [4.2309] YES -- LEAVE IT ALONE
  11933	040024	032765 	000040 	000006 		BIT	#TT.ABL,STSW1(R5) ;;; [4.2055] NO -- IS THIS AN AUTO-BAUD LINE??
  11934	040032	001412 				BEQ	.STTYD		;;; [4.2055] NO -- REPORT CONNECTION AND EXIT
  11935	040034	052765 	000010 	000006 		BIS	#TT.ABW,STSW1(R5) ;;; [4.2055] YES -- MARK AUTO-BAUD WAIT
  11936	040042	000405 				BR	60$		;;; [4.2055] AND EXIT
  11937						;
  11938					;
  11939					; RING TRANSITION (DM-11/BB'S ENABLED)
  11940					;
  11941	040044				.TTRNG:
  11942	040044					CALL	.STTYH		;;; [4.2055] TRANSMIT HANGUP
	040044	004737 	040074'			JSR	PC,.STTYH
  11943					;
  11944					; CARRIER DROP TRANSITION
  11945					;
  11946	040050				.TTSCW:
  11947	040050	052765 	002004 	000006 		BIS	#TT.CRW!TT.RIP,STSW1(R5) ;;; [4.2055] SET CARRIER WAIT
  11948	040056				60$:
  11949	040056					RETURN			;;; [4.2055] DISMISS AND RETURN
	040056	000207 				RTS	PC
  11950
  11951						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 225
TERMINAL DRIVER -- .STTYD (DIALUP/HANGUP SERVICE)

  11953						.SBTTL	TERMINAL DRIVER -- .STTYD (DIALUP/HANGUP SERVICE)
  11954
  11955					;+
  11956					; .STTYD -- DILAUP SERVICE
  11957					; .STTYH -- HANGUP SERVICE
  11958					;
  11959					; THESE SUBROUTINES WILL REPORT A DILAUP OR HANGUP TO THE HOST, AND
  11960					; SET OR CLEAR THE LINE CONNECTED BIT, "S0.CON", IN THE LINE'S STATUS BLOCK.
  11961
  11962					;
  11963					; INPUTS:
  11964					;
  11965					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS LINE
  11966					;
  11967					; OUTPUTS:
  11968					;
  11969					;	R3,R1 --  ALTERED
  11970					;-
  11971
  11972						.ENABL	LSB
  11973
  11974	040060				.STTYD::
  11975	040060	052765 	040000 	000004 		BIS	#S0.CON,STSW0(R5) ;;; [4.2284] MARK LINE CONNECT
  11976	040066	012701 	000015 			MOV	#BC.TDU,R1	;;; DIALUP FUNCTION
  11977	040072	000407 				BR	10$		;;; DO COMMON CODE
  11978						;
  11979	040074				.STTYH::
  11980	040074					CALL	.DHSPR		;;; [5.1152] RESET THE LINE SPEED IF ABW
	040074	004737 	037460'			JSR	PC,.DHSPR
  11981	040100	042765 	040000 	000004 		BIC	#S0.CON,STSW0(R5) ;;; [4.2284] MARK LINE DISCONNECT
  11982	040106	012701 	000016 			MOV	#BC.THU,R1	;;; HANGUP FUNCTION
  11983	040112				10$:
  11984	040112	010446 				MOV	R4,-(SP)	;;; SAVE R4
  11985	040114	010504 				MOV	R5,R4		;;; SET UP TO RETURN DIALUP OR HANGUP
  11986	040116	162704 	002776'			SUB	#TTTBL,R4	;;; FIND UNIT NUMBER IN R4
  11987	040122	006204 				ASR	R4		;;; DIVIDE BY 8
  11988	040124	006204 				ASR	R4		;;;
  11989	040126	006204 				ASR	R4		;;; SO
  11990	040130	012703 	000004 			MOV	#D.CDLS,R3	;;; DATA LINE SCANNER
  11991	040134					CALL	..STFC		;;; START FUNCTION
	040134	004737 	045456'			JSR	PC,..STFC
  11992	040140	012604 				MOV	(SP)+,R4	;;; RESTORE R4
  11993	040142					RETURN			;;; AND EXIT
	040142	000207 				RTS	PC
  11994
  11995						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 226
TERMINAL DRIVER -- .DMHUP (DM-11/BB HANGUP)

  11997						.SBTTL	TERMINAL DRIVER -- .DMHUP (DM-11/BB HANGUP)
  11998					;+
  11999					; .DMHUP -- HANG UP A DM-11/BB LINE
  12000					;
  12001					; THIS SUBROUTINE WILL HANG UP A DM-11/BB UNIT
  12002					;
  12003					; INPUTS:
  12004					;
  12005					;	R1 -- DM-11/BB UNIT NUMBER
  12006					;	R4 -- POINTER TO DM-11/BB CSR
  12007					;	R5 -- POINTER TO DLS TABLE ENTRY FOR THIS LINE
  12008					;
  12009					; OUTPUTS:
  12010					;
  12011					;	NO REGISTERS ALTERED
  12012					;-
  12013
  12014						.ENABL	LSB
  12015
  12016	040144				.DMHUP::
  12017	040144	032765 	000100 	000006 		BIT	#TT.RMT,STSW1(R5) ;;; REMOTE TTY??
  12018	040152	001417 				BEQ	20$		;;; NO -- FORGET IT
  12019	040154					CALL	.STPDM		;;; YES -- STOP THE SCAN
	040154	004737 	040174'			JSR	PC,.STPDM
  12020	040160	050124 				BIS	R1,(R4)+ 	;;; SELECT DESIRED UNIT
  12021	040162	012714 	000001 			MOV	#1,(R4)		;;; ENABLE RING INTERRUPT
  12022	040166	052744 	000140 			BIS	#140,-(R4)	;;; RESTART SCAN AND ENABLE INTERRUPTS
  12023	040172	000443 				BR	DLHUPX		;;; RESET THE LINE STATE AND EXIT
  12024						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 227
TERMINAL DRIVER -- .STPDM (STOP DM-11/BB SCAN)

  12026						.SBTTL	TERMINAL DRIVER -- .STPDM (STOP DM-11/BB SCAN)
  12027
  12028					;+
  12029					; .STPDM -- STOP DM-11/BB SCAN
  12030					;
  12031					; THIS SUBROUTINE WILL DISABLE THE SCAN AND CLEAR THE UNIT SELECT BITS ON
  12032					; A DM-11/BB MODEM CONTROL UNIT.
  12033					;
  12034					; INPUTS:
  12035					;
  12036					;	R4 -- POINTS TO DM-11/BB CSR
  12037					;
  12038					; OUTPUTS:
  12039					;
  12040					;	SCAN IS STOPPED
  12041					;	NO REGISTERS ALTERED
  12042					;-
  12043
  12044	040174				.STPDM::
  12045	040174	042714 	001040 			BIC	#1040,(R4)	;;; DISABLE SCAN
  12046	040200				10$:
  12047	040200	032714 	000020 			BIT	#20,(R4)	;;; SCAN STOPPED??
  12048	040204	001375 				BNE	10$		;;; NO -- WAIT FOR IT
  12049	040206	042714 	001017 			BIC	#1017,(R4)	;;; YES -- CLEAR CURRENT UNIT
  12050	040212				20$:
  12051	040212					RETURN			;;; TO CALLER
	040212	000207 				RTS	PC
  12052
  12053						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 228
TERMINAL DRIVER -- .DLHUP (DL-11E HANGUP)

  12055						.SBTTL	TERMINAL DRIVER -- .DLHUP (DL-11E HANGUP)
  12056					;+
  12057					; .DLHUP -- HANG UP A DL-11E LINE.
  12058					;
  12059					; THIS ROUTINE SERVICES A DL-11E HANGUP REQUEST.
  12060					; IF THE KLINIK LINE IS ACTIVE, THE KLINIK DISCONNECT TASK, KLDISC, IS
  12061					; REQUESTED.  OTHERWISE, THE LINE IS HUNG UP HERE.
  12062					;
  12063					; INPUT ARGUMENTS:
  12064					;
  12065					;	R5 POINTS TO THE DLS TABLE ENTRY FOR THIS LINE
  12066					;
  12067					; OUTPUT ARGUMENTS:
  12068					;
  12069					;	R4 -- POINTER TO DL-11E CSR
  12070					;-
  12071
  12072						.ENABL	LSB
  12073
  12074	040214				.DLHUP::
  12075	040214	032765 	000100 	000006 		BIT	#TT.RMT,STSW1(R5) ;;; REMOTE LINE??
  12076	040222	001420 				BEQ	10$		;;; NO -- FORGET IT
  12077	040224	016504 	000002 			MOV	TTYEXP(R5),R4	;;; YES -- SAVE I/O PAGE ADDRESS
  12078	040230	023705 	002636'			CMP	KLNPTR,R5	;;; IS THIS THE KLINIK LINE??
  12079	040234	001014 				BNE	20$		;;; NO -- GO ON
  12080	040236	105737 	001226'			TSTB	.KLNSW+0	;;; YES -- IS IT ACTIVE??
  12081	040242	001411 				BEQ	20$		;;; INACTIVE -- JUST HANG IT UP
  12082	040244	112737 	000002 	001227'		MOVB	#2,.KLNSW+1	;;; FLAG THE DISCONNECT
  12083	040252	052737 	002000 	007172'		BIS	#EF.RKH,TTYTSK+A.EF ;;; REQUEST KLDISC
  12084	040260	000137 	044026'			JMP	..DSEV		;;; DECLARE A SIGNIFICANT EVENT AND EXIT
  12085						;
  12086	040264				10$:
  12087	040264					RETURN			;;; AND GO AWAY
	040264	000207 				RTS	PC
  12088	040266				20$:
  12089	040266	005764 	000002 			TST	2(R4)		;;; CLEAR INPUT FLAGS
  12090	040272	012714 	000140 			MOV	#DL.DEN!DL.REN,(R4) ;;; HANG THE LINE UP
  12091	040276	105065 	000004 			CLRB	STSW0+0(R5)	;;; [4.2284] ENABLE INPUT SIDE IF IT WASN'T
  12092	040302				DLHUPX:
  12093	040302	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] PRIMARY PROTOCOL RUNNING?
  12094	040306	100011 				BPL	30$		;;; [4.1.1105] NO -- WAIT FOR IT
  12095	040310	042765 	002414 	000006 		BIC	#TT.CRW!TT.NSA!TT.ABW!TT.RIP,STSW1(R5) ;;; YES -- CLEAR CARRIER WAIT
  12096	040316	010346 				MOV	R3,-(SP)	;;; SAVE REGISTERS
  12097	040320	010146 				MOV	R1,-(SP)
  12098	040322					CALL	.STTYH		;;; TELL THE KL ABOUT HANGUP
	040322	004737 	040074'			JSR	PC,.STTYH
  12099	040326	012601 				MOV	(SP)+,R1	;;; RESTORE
  12100	040330	012603 				MOV	(SP)+,R3
  12101	040332				30$:
  12102	040332	000137 	042034'			JMP	.TTRST		;;; [4.2205] RESET THE LINE STATE AND EXIT
  12103						;
  12104
  12105						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 229
TERMINAL DRIVER -- .DLTMO (DL-11E MODEM CONTROL TIMEOUT)

  12107						.SBTTL	TERMINAL DRIVER -- .DLTMO (DL-11E MODEM CONTROL TIMEOUT)
  12108
  12109					;+
  12110					; .DLTMO -- DL11 TIMEOUT SERVICE
  12111					;
  12112					; THIS ROUTINE INSURES THAT THE CTY IS RUNNING AND TIMES OUT THE
  12113					; DL-11E LINES WHEN CARRIER IS LOST.  THIS ROUTINE WILL ALSO
  12114					; ERROR LOG ANY DL-11 WHICH LOSES AN INTERRUPT ENABLE.
  12115					;
  12116					; INPUTS:
  12117					;
  12118					;	NONE
  12119					;
  12120					; OUTPUTS:
  12121					;
  12122					;	NO REGISTERS PRESERVED
  12123					;
  12124					; NOTE:
  12125					;	THIS ROUTINE MUST BE CALLED AT BR5 OR HIGHER
  12126					;
  12127					; NOTE:
  12128					;	NXM VECTOR IS ALTERED DURING POWER FAIL RECOVERY
  12129					;
  12130					; NOTE:
  12131					;	ALL DL-11E'S ARE ASSUMED TO BE REMOTE (DATASET) LINES
  12132					;-
  12133
  12134	040336				.DLTMO::
  12135	040336	012705 	002776'			MOV	#DLTBL,R5	;;; GET LOCAL DL-11W POINTER
  12136	040342	016504 	000002 			MOV	TTYEXP(R5),R4	;;; AND EXTERNAL PAGE POINTER
  12137	040346	001410 				BEQ	20$		;;; IF NO ONE HAS THE LINE
  12138	040350					CALL	CKDLEN		;;; [5.1007] CHECK ENABLES AND ERRORS
	040350	004737 	040512'			JSR	PC,CKDLEN
  12139	040354				10$:
  12140	040354	005737 	001030'			TST	.PFIOW		;;; IS THIS A POWER FAIL START??
  12141	040360	001403 				BEQ	20$		;;; NO -- GO ON
  12142	040362	012737 	040502'	000004 		MOV	#100$,@#4	;;; YES -- SET NXM TRAP FOR DEVICE CHECKS
  12143	040370				20$:
  12144	040370	012705 	003006'			MOV	#DLETBL,R5	;;; GET DL-11E TABLE POINTER
  12145	040374	012700 	000004 			MOV	#DLECNT,R0	;;; COUNT OF DL-11E'S TO R0
  12146	040400				30$:
  12147	040400	016504 	000002 			MOV	TTYEXP(R5),R4	;;; EXTERNAL PAGE POINTER TO R4
  12148	040404	001432 				BEQ	80$		;;; TRY NEXT IF THIS ONE ISN'T THERE
  12149	040406	005714 				TST	(R4)		;;; [5.1007] DOES THE DEVICE EXIST??
  12150	040410					CALL	CKDLEN		;;; [5.1007] CHECK ENABLES AND ERRORS
	040410	004737 	040512'			JSR	PC,CKDLEN
  12151					;
  12152					; DL-11E CARRIER MAINTENANCE
  12153					;
  12154	040414	032714 	010000 			BIT	#DL.CAR,(R4)	;;; YES -- IS CARRIER DETECT UP??
  12155	040420	001406 				BEQ	60$		;;; [4.2055] NO -- GO ON[5.1056] BR TO 60 NOT 50
  12156	040422	032714 	000004 			BIT	#DL.RTS,(R4)	;;; [4.2055] YES -- IS REQUEST TO SEND UP??
  12157	040426	001403 				BEQ	60$		;;; [4.2055] NO -- GO ON
  12158	040430	052714 	000006 			BIS	#DL.DTR!DL.RTS,(R4) ;;; YES -- ENABLE THIS DL-11E LINE
  12159	040434	000416 				BR	80$		;;; AND TRY THE NEXT ONE
  12160						;
  12161					;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 229-1
TERMINAL DRIVER -- .DLTMO (DL-11E MODEM CONTROL TIMEOUT)

  12162					; FIVE INSTRUCTIONS PLUS LABEL  50$  WERE REMOVED WITH TCO 5.1056.
  12163					;
  12164					;
  12165					; DL-11E CARRIER TIMEOUT
  12166					;
  12167	040436				60$:
  12168	040436	032765 	000004 	000006 		BIT	#TT.CRW,STSW1(R5) ;;; WAITING FOR CARRIER??
  12169	040444	001412 				BEQ	80$		;;; NO -- GO ON
  12170	040446	032765 	002000 	000006 		BIT	#TT.RIP,STSW1(R5) ;;; YES -- IS THIS THE FIRST TIME??
  12171	040454	001404 				BEQ	70$		;;; NO -- GO HANG THE LINE UP
  12172	040456	042765 	002000 	000006 		BIC	#TT.RIP,STSW1(R5) ;;; YES -- SET TIMEOUT REQUEST
  12173	040464	000402 				BR	80$		;;; AND TRY THE NEXT LINE
  12174						;
  12175	040466				70$:
  12176	040466					CALL	.DLHUP		;;; HANG UP THE LINE
	040466	004737 	040214'			JSR	PC,.DLHUP
  12177	040472				80$:
  12178	040472	062705 	000010 			ADD	#^D8,R5		;;; POINT TO THE NEXT DLS ENTRY
  12179	040476	077040 				SOB	R0,30$		;;; DO THE NEXT LINE
  12180	040500				90$:
  12181	040500					RETURN
	040500	000207 				RTS	PC
  12182					;
  12183					; INITIALIZATION NXD PROCESSOR
  12184					;
  12185	040502				100$:				;;; HERE ON NXM INTERRUPT
  12186	040502	032626 				BIT	(SP)+,(SP)+	;;; CLEAR THE INTERRUPT
  12187	040504	005065 	000002 			CLR	TTYEXP(R5)	;;; SET NON-EXISTENT DEVICE
  12188	040510	000770 				BR	80$		;;; AND TRY FOR NEXT LINE
  12189						;
  12190					;
  12191					; LOCAL SUBROUTINE TO CHECK INTERRUPT ENABLES AND LOG ERRORS
  12192					;
  12193	040512				CKDLEN:
  12194	040512	005737 	001030'			TST	.PFIOW		;;; [4.2309] IS THIS A POWER-FAIL RESTART??
  12195	040516	001405 				BEQ	10$		;;; [4.2309] NO -- GO ON
  12196	040520	105065 	000004 			CLRB	STSW0(R5)	;;; [4.2309] YES -- ENABLE INPUT
  12197	040524					CALL	.TTRST		;;; [4.2309] RESET THIS LINE
	040524	004737 	042034'			JSR	PC,.TTRST
  12198	040530	000430 				BR	50$		;;; [5.1007] AND ENABLE THE LINE
  12199						;
  12200					;
  12201					; CHECK INPUT INTERRUPT ENABLE
  12202					;
  12203	040532				10$:
  12204	040532	105765 	000004 			TSTB	STSW0(R5)	;;; [5.1007] INPUT ENABLED ON THIS LINE??
  12205	040536	001003 				BNE	20$		;;; [5.1007] NO -- GO ON
  12206	040540	032714 	000100 			BIT	#DL.REN,(R4)	;;; [5.1007] YES -- INPUT INTERRUPT ENABLED??
  12207	040544	001415 				BEQ	40$		;;; [5.1007] NO -- ERROR LOG IT
  12208					;
  12209					; CHECK OUTPUT INTERRUPT ENABLE
  12210					;
  12211	040546				20$:
  12212	040546	032764 	000100 	000004 		BIT	#DL.XEN,4(R4)	;;; [5.1007] YES -- OUTPUT INTERRUPT ENABLED??
  12213	040554	001003 				BNE	30$		;;; [5.1007] YES -- GO ON
  12214	040556	105064 	000006 			CLRB	6(R4)		;;; [5.1007] NO -- RECOVER ERROR
  12215	040562	000406 				BR	40$		;;; [5.1007] AND LOG IT
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 229-2
TERMINAL DRIVER -- .DLTMO (DL-11E MODEM CONTROL TIMEOUT)

  12216						;
  12217					;
  12218					; CHECK DATASET INTERRUPT ENABLE
  12219					;
  12220	040564				30$:
  12221	040564	022705 	002776'			CMP	#TTTBL,R5	;;; [5.1007] IS THIS THE CTY??
  12222	040570	001410 				BEQ	50$		;;; [5.1007] YES -- GO ON
  12223	040572	032714 	000040 			BIT	#DL.DEN,(R4)	;;; [5.1007] NO -- DATASET INTERRUPT ENABLED??
  12224	040576	001005 				BNE	50$		;;; [5.1007] YES -- ENABLE INTERRUPTS AND EXIT
  12225	040600				40$:
  12226	040600	016437 	000004 	002660'		MOV	4(R4),.TTELB	;;; [5.1007] NO -- SET ALTERNATE STATUS
  12227	040606					CALL	DHERLG		;;; [5.1007] LOG THE ERROR
	040606	004737 	041106'			JSR	PC,DHERLG
  12228					;
  12229					; ENABLE INTERRUPTS FOR THIS LINE
  12230					;
  12231	040612				50$:
  12232	040612	105765 	000004 			TSTB	STSW0(R5)	;;; [5.1007] INPUT ALLOWED ON THIS LINE??
  12233	040616	001002 				BNE	60$		;;; [5.1007] NO -- GO ON
  12234	040620	052714 	000100 			BIS	#DL.REN,(R4)	;;; [4.2309] YES -- ENABLE INPUT INTERRUPTS
  12235	040624				60$:
  12236	040624	052764 	000100 	000004 		BIS	#DL.XEN,4(R4)	;;; [5.1007] ENABLE OUTPUT INTERRUPTS
  12237	040632	022705 	002776'			CMP	#TTTBL,R5	;;; [5.1007] IS THIS THE CTY??
  12238	040636	001402 				BEQ	70$		;;; [5.1007] YES -- EXIT
  12239	040640	052714 	000040 			BIS	#DL.DEN,(R4)	;;; [5.1007] NO -- ENABLE DATASET INTERRUPTS
  12240	040644				70$:
  12241	040644					RETURN
	040644	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 230
TERMINAL DRIVER -- .DHTMO (DH-11 CONTROLLER TIMEOUT)

  12243						.SBTTL	TERMINAL DRIVER -- .DHTMO (DH-11 CONTROLLER TIMEOUT)
  12244
  12245					;+
  12246					; .DHTMO -- DH-11 CONTROLLER TIMEOUT
  12247					;
  12248					; THIS SUBROUTINE IS CALLED FROM THE POWER-FAIL RESTART CODE, AND EVERY 10
  12249					; SECONDS FROM THE TERMINAL SERVICE DISPATCH.  THIS SUBROUTINE PERFORMS THE
  12250					; FOLLWING FUNCTIONS:
  12251					;
  12252					;	1. DH-11 CONTROLLER INITIALIZATION
  12253					;	2. DH-11 STATUS MAINTENANCE
  12254					;	3. DH-11 INPUT RESTART
  12255					;	4. DH-11 ERROR LOGGING
  12256					;
  12257					; INPUTS:
  12258					;
  12259					;	NONE
  12260					;
  12261					; OUTPUTS:
  12262					;
  12263					; ALL DH-11 CONTROLLERS ARE SCANNED FOR INTERRUPT ENABLE OR NXM.  IF THE
  12264					; INTERRUPT ENABLE IS NOT PRESENT OR THE DH-11 CONTROLLER HAS ENCOUNTERED
  12265					; AN NXM, THE CONTROLLER IS (RE)INITIALIZED.  IF THIS IS A POWER-FAIL RESTART
  12266					; THE LINE STATUS IS RESET AND THE OUTPUT QUEUES FOR ALL LINES ON THE CONTROLLER
  12267					; ARE DEALLOCATED, OTHERWISE THESE CONDITIONS WILL BE LOGGED AS AN ERROR.
  12268					; IF THE DH-11 LINE HAS AN INPUT RESTART PENDING, THE LINE SPEED IS SET UP SO
  12269					; NORMAL INPUT MAY PROCEED.
  12270					;
  12271					; ALL DM-11/BB CONTROLLERS ARE SCANNED FOR INTERRUPT ENABLE AND CARRIER
  12272					; MAINTENANCE.  IF A CARRIER TIMEOUT HAS OCCURRED, THE UNIT IS HUNG UP AND,
  12273					; IF THE LINE IS AN AUTO-BAUD LINE, IS SPEED IS RESET TO DEFAULT.  IF A
  12274					; DM-11/BB HAS LOST THE INTERRUPT ENABLE, IT WILL BE ERROR LOGGED.
  12275					;
  12276					; NO REGISTERS ARE PRESERVED
  12277					;
  12278					; NOTE:
  12279					;	THIS ROUTINE MUST BE CALLED AT BR5 OR HIGHER
  12280					;
  12281					; NOTE:
  12282					;	THE NXM VECTOR IS ALTERED ON POWER-FAIL RESTART.  IT IS ASSUMED THAT
  12283					;	THIS VECTOR WILL BE RESET BY THE CALLING ROUTINE.
  12284					;
  12285					; NOTE:
  12286					;	THIS ROUTINE WILL EXIT THROUGH THE DM-11/BB TIMEOUT ROUTINE, BELOW
  12287					;-
  12288
  12289						.ENABL	LSB
  12290
  12291	040646				.DHTMO::
  12292	040646	012705 	003046'			MOV	#DHTBL,R5	;;; [4.2205] SET UP DH-11 TABLE POINTER
  12293	040652	005737 	001030'			TST	.PFIOW		;;; [4.2205] POWER-FAIL RESTART??
  12294	040656	001403 				BEQ	10$		;;; [4.2205] NO -- GO ON
  12295	040660	012737 	041066'	000004 		MOV	#DMTNXM,@#4	;;; [4.2205] YES -- HANDLE OUR OWN TRAPS
  12296					;
  12297					; INITIALIZE FOR CURRENT DH-11 CONTROLLER
  12298					;
  12299	040666				10$:
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 230-1
TERMINAL DRIVER -- .DHTMO (DH-11 CONTROLLER TIMEOUT)

  12300	040666	005002 				CLR	R2		;;; [4.2205] INIT UNIT COUNTER
  12301	040670	005046 				CLR	-(SP)		;;; [4.2205] INIT RESET FLAG ON STACK
  12302	040672	012701 	000020 			MOV	#^D16,R1	;;; [4.2205] INIT ITERATION COUNTER
  12303					;
  12304					; INITIALIZE FOR CURRENT DH-11 LINE
  12305					;
  12306					; REGISTER SUMMARY:
  12307					;
  12308					;	R1 -- ITERATION COUNTER
  12309					;	R2 -- UNIT COUNTER
  12310					;	R3 -- LINE SPEED WORD
  12311					;	R4 -- I/O PAGE POINTER
  12312					;	R5 -- POINTER TO DH-11 TABLE
  12313					;	(SP) -- CONTROLLER RESET FLAG
  12314					;		MUST BE FLUSHED ON EXIT
  12315					;
  12316					; NXM AND INTERRUPT ENABLE CHECKS
  12317					;
  12318	040676				15$:
  12319	040676	016504 	000002 			MOV	TTYEXP(R5),R4	;;; [4.2205] GET EXTERNAL PAGE POINTER FOR THIS DH-11
  12320	040702	001454 				BEQ	50$		;;; [5.1004] MAKE DONE CHECKS IF .EQ. 0
  12321	040704	042714 	001077 			BIC	#1077,(R4)	;;; [4.2205] CLEAR OUT PREVIOUS LINE NUMBER
  12322	040710	050214 				BIS	R2,(R4)		;;; [4.2205] AND SET THE CURRENT LINE NUMBER
  12323	040712	005716 				TST	(SP)		;;; [4.2205] HAVE WE RESET THIS DH-11??
  12324	040714	001015 				BNE	30$		;;; [4.2205] YES -- CONTINUE SETTING LINES UP
  12325	040716	032714 	002000 			BIT	#2000,(R4)	;;; [4.2205] NO -- DID IT GET AN NXM??
  12326	040722	001003 				BNE	20$		;;; [4.2205] YES -- HANDLE AS A TIMEOUT
  12327	040724	032714 	000100 			BIT	#100,(R4)	;;; [4.2205] NO -- ARE INTERRUPTS ENABLED??
  12328	040730	001015 				BNE	35$		;;; [4.2205] YES -- CHECK FOR LINE RESTART
  12329	040732				20$:
  12330	040732					CALL	DHERLG		;;; [5.1007] LOG THE ERROR
	040732	004737 	041106'			JSR	PC,DHERLG
  12331					;
  12332					; HERE TO RESET AND INITIALIZE A DH-11 CONTROLLER
  12333					;
  12334	040736				25$:
  12335	040736	012714 	004000 			MOV	#4000,(R4)	;;; [4.2205] MASTER CLEAR THE DH-11
  12336	040742	005064 	000016 			CLR	16(R4)		;;; [4.2205] INIT THE SILO ALARM TO ZERO
  12337	040746	005316 				DEC	(SP)		;;; [4.2205] INDICATE THAT WE HAVE RESET THIS DH-11
  12338					;
  12339					; HERE TO RESET AND INITIALIZE A DH-11 LINE
  12340					;
  12341	040750				30$:
  12342	040750	005737 	001030'			TST	.PFIOW		;;; [4.2205] IS THIS A POWER-FAIL RESTART??
  12343	040754	001407 				BEQ	40$		;;; [4.2205] NO -- GO ON
  12344	040756					CALL	.TTRST		;;; [4.2205] YES -- RESET THIS LINE
	040756	004737 	042034'			JSR	PC,.TTRST
  12345	040762	000404 				BR	40$		;;; [4.2205] AND SET UP THE LINE SPEED
  12346						;
  12347					;
  12348					; HERE TO CHECK FOR LINE RESTART
  12349					;
  12350	040764				35$:
  12351	040764	032765 	020000 	000006 		BIT	#TT.RSI,STSW1(R5) ;;; [4.2205] DOES THIS LINE NEED RESTARTING??
  12352	040772	001420 				BEQ	50$		;;; [4.2205] NO -- GO ON
  12353	040774				40$:
  12354	040774	010246 				MOV	R2,-(SP)	;;; [5.1015] YES -- SAVE R2
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 230-2
TERMINAL DRIVER -- .DHTMO (DH-11 CONTROLLER TIMEOUT)

  12355	040776					CALL	.TTSW2		;;; [5.1015] FIND OUR "STSW2" ENTRY
	040776	004737 	042754'			JSR	PC,.TTSW2
  12356	041002	032712 	140000 			BIT	#S2.DDN!S2.DIP,(R2) ;;; [5.1015] IS THE LINE (BEING) TURNED OFF??
  12357	041006	001011 				BNE	45$		;;; [5.1015] YES -- LEAVE IT ALONE
  12358	041010	016503 	000004 			MOV	STSW0(R5),R3	;;; [4.2205] NO -- GET THE LINE SPEED
  12359	041014	042703 	140000 			BIC	#S0.MSK,R3	;;; [4.2284] GET RID OF THE AUTO-BAUD FLAG
  12360	041020	010364 	000004 			MOV	R3,4(R4)	;;; [4.2205] SET THE LINE SPEED IN THE DH-11
  12361	041024	042765 	020000 	000006 		BIC	#TT.RSI,STSW1(R5) ;;; [4.2205] AND RESET THE RESTART FLAG
  12362	041032				45$:
  12363	041032	012602 				MOV	(SP)+,R2	;;; [5.1015] RESTORE R2
  12364					;
  12365					; SET UP FOR NEXT LINE IN THIS DH-11
  12366					;
  12367	041034				50$:
  12368	041034	005202 				INC	R2		;;; [4.2205] NEXT UNIT
  12369	041036	062705 	000010 			ADD	#^D8,R5		;;; [4.2205] NEXT DH-11 LINE IN DLS TABLE
  12370	041042	005301 				DEC	R1		;;; [4.2205] COUNT THIS LINE
  12371	041044	001314 				BNE	15$		;;; [4.2205] ITERATE THROUGH THIS DH-11/DM-11 PAIR
  12372	041046	005726 				TST	(SP)+		;;; [4.2205] DONE -- FLUSH AND TEST CONTROLLER RESET FLAG
  12373	041050	001402 				BEQ	55$		;;; [4.2205] GO ON IF DH-11 WASN'T RESET
  12374	041052	012714 	030100 			MOV	#30100,(R4)	;;; [4.2205] WAS RESET -- ENABLE IT
  12375					;
  12376					; SET UP FOR NEXT DH-11 IN SYSTEM
  12377					;
  12378	041056				55$:
  12379	041056	022705 	005046'			CMP	#TTYEND,R5	;;; [5.1005] ARE WE ALL DONE??
  12380	041062	101301 				BHI	10$		;;; [4.2205] NO -- START OVER
  12381	041064					RETURN			;;; [5.1004] YES -- RETURN TO CALLER
	041064	000207 				RTS	PC
  12382					;
  12383					; HERE ON TRAP-AT-4 DURING INITIALIZATION
  12384					;
  12385					;	R5 -- POINTS TO FIRST INVALID ENTRY IN DH-11 CONTROLLER TABLE
  12386					;
  12387					; STACK SUMMARY:
  12388					;
  12389					;	0(SP) -- TRAP PC
  12390					;	2(SP) -- TRAP PSW
  12391					;	4(SP) -- INITIALIZATION FLAG FROM .DHTMO, ABOVE
  12392
  12393	041066				DMTNXM:
  12394	041066	005065 	000002 			CLR	TTYEXP(R5)	;;; [5.1004] INDICATE THIS LINE DOES NOT EXIST
  12395	041072	062705 	000010 			ADD	#^D8,R5		;;; [5.1004] POINT TO NEXT LINE ON CONTROLLER
  12396	041076	077105 				SOB	R1,DMTNXM	;;; [5.1004] LOOP THRU ALL LINES
  12397	041100	032626 				BIT	(SP)+,(SP)+	;;; [4.2205] FLUSH TRAP PS/PC
  12398	041102	005726 				TST	(SP)+		;;; [4.2205] AND INITIALIZATION FLAG
  12399	041104	000764 				BR	55$		;;; [5.1004] TRY THE NEXT CONTROLLER
  12400						;
  12401
  12402						.DSABL	LSB
  12403
  12404					;
  12405					; HERE TO LOG A "LOST-INTERRUPT-ENABLE" ERROR
  12406					;
  12407
  12408	041106				DHERLG:
  12409	041106	005737 	001030'			TST	.PFIOW		;;; [5.1007] IS THIS A POWER-FAIL RESTART??
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 230-3
TERMINAL DRIVER -- .DHTMO (DH-11 CONTROLLER TIMEOUT)

  12410	041112	001004 				BNE	10$		;;; [5.1007] YES -- GO ON
  12411	041114	012703 	002100 			MOV	#DV.LOG!DV.LIN,R3 ;;; [5.1007] YES -- SET STANDARD STATUS
  12412	041120					CALL	.TTERL		;;; [5.1007] LOG THE ERROR
	041120	004737 	041426'			JSR	PC,.TTERL
  12413	041124				10$:
  12414	041124					RETURN			;;; [5.1007] TO CALLER
	041124	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 231
TERMINAL DRIVER -- .DMTMO (DM-11/BB MODEM CONTROL TIMEOUT)

  12416						.SBTTL	TERMINAL DRIVER -- .DMTMO (DM-11/BB MODEM CONTROL TIMEOUT)
  12417
  12418					;+
  12419					; .DMTMO -- DM-11/BB CARRIER WAIT TIMEOUT
  12420					;
  12421					; THIS SUBROUTINE CHECKS THE CARRIER MAINTENANCE FOR THE DM-11/BB LINES.
  12422					; THIS SUBROUTINE ALSO ERROR LOGS DM-11/BB LINES WHICH LOSE INTERRUPT ENABLE.
  12423					;
  12424					; INPUTS:
  12425					;
  12426					;	NONE
  12427					;
  12428					; OUTPUTS:
  12429					;
  12430					;	NO REGISTERS PRESERVED
  12431					;
  12432					; REGISTER SUMMARY:
  12433					;
  12434					;	R0 -- DM-11/BB TABLE POINTER
  12435					;	R1 -- UNIT NUMBER
  12436					;	R2 -- POINTER TO DM-11/BB LSR
  12437					;	R4 -- POINTER TO DM-11/BB CSR
  12438					;	R5 -- POINTER TO DLS TABLE ENTRY FOR THIS LINE
  12439					;-
  12440
  12441	041126				.DMTMO::
  12442	041126	012700 	002734'			MOV	#DMTBL,R0	;;; [4.2206] INIT DM-11/BB TABLE POINTER
  12443	041132	005737 	001030'			TST	.PFIOW		;;; [4.1.1091] IS THIS A POWERFAIL RESTART??
  12444	041136	001403 				BEQ	10$		;;; [4.1.1091] NO -- GO ON
  12445	041140	012737 	041350'	000004 		MOV	#90$,@#4	;;; [4.1.1091] YES -- SET UP THE TRAP VECTOR
  12446	041146				10$:
  12447	041146	012004 				MOV	(R0)+,R4	;;; [4.2206] POINT TO DM-11/BB CSR
  12448	041150	001005 				BNE	15$		;;; [4.1.1091] GO ON IF IT EXISTS
  12449	041152	022700 	002776'			CMP	#DMTBE,R0	;;; [4.1.1091] HAVE WE DONE THEM ALL??
  12450	041156	001473 				BEQ	80$		;;; [4.1.1091] YES -- EXIT
  12451	041160	005720 				TST	(R0)+		;;; [4.1.1091] NO -- FIX UP THE POINTER
  12452	041162	000771 				BR	10$		;;; [4.1.1091] AND TRY FOR THE NEXT DM-11/BB
  12453						;
  12454	041164				15$:
  12455	041164	012005 				MOV	(R0)+,R5	;;; [4.2206] POINT TO DHTBL ENTRY
  12456	041166	005001 				CLR	R1		;;; [4.2206] INIT UNIT NUMBER
  12457	041170				20$:
  12458	041170	005765 	000002 			TST	TTYEXP(R5)	;;; [4.2206] THIS DH-11 EXIST??
  12459	041174	001466 				BEQ	100$		;;; [4.1.1091] NO -- MARK DM-11/BB NON-EXISTENT AS WELL
  12460	041176	005737 	001030'			TST	.PFIOW		;;; [4.1.1091] POWERFAIL RESTART??
  12461	041202	001403 				BEQ	25$		;;; [4.1.1091] NO -- GO ON
  12462	041204	012714 	000140 			MOV	#140,(R4)	;;; [4.1.1091] YES -- INIT THE CONTROLLER
  12463	041210	000756 				BR	10$		;;; [4.1.1091] AND CONTINUE
  12464						;
  12465	041212				25$:
  12466	041212	032765 	000004 	000006 		BIT	#TT.CRW,STSW1(R5) ;;; [4.2206] YES -- WAITING FOR CARRIER??
  12467	041220	001414 				BEQ	40$		;;; [4.2206] NO -- GO ON
  12468	041222	032765 	002000 	000006 		BIT	#TT.RIP,STSW1(R5) ;;; [4.2206] YES -- TIMING OUT??
  12469	041230	001005 				BNE	30$		;;; [4.2206] NO -- GO ON
  12470	041232					CALL	.DMHUP		;;; [4.2206] HANG UP THE LINE
	041232	004737 	040144'			JSR	PC,.DMHUP
  12471	041236					CALL	.DHSPR		;;; [4.2206] YES -- RESET THE LINE SPEED TO DEFAULT
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 231-1
TERMINAL DRIVER -- .DMTMO (DM-11/BB MODEM CONTROL TIMEOUT)

	041236	004737 	037460'			JSR	PC,.DHSPR
  12472	041242	000403 				BR	40$		;;; [5.1007] AND SEE ABOUT ERROR LOGGING
  12473						;
  12474	041244				30$:
  12475	041244	042765 	002000 	000006 		BIC	#TT.RIP,STSW1(R5) ;;; [4.2206] MARK TIMEOUT REQUEST
  12476	041252				40$:
  12477	041252					CALL	.STPDM		;;; [5.1007] STOP THE DM-11/BB SCAN
	041252	004737 	040174'			JSR	PC,.STPDM
  12478	041256	010402 				MOV	R4,R2		;;; [5.1007] COPY CSR POINTER TO R2
  12479	041260	050122 				BIS	R1,(R2)+	;;; [5.1007] SET UP THE UNIT NUMBER
  12480	041262	032714 	000100 			BIT	#100,(R4)	;;; [5.1007] INTERRUPTS ENABLED??
  12481	041266	001403 				BEQ	50$		;;; [5.1007] NO -- ERROR LOG IT
  12482	041270	032712 	000001 			BIT	#1,(R2)		;;; [5.1007] YES -- IS THE LINE ENABLED??
  12483	041274	001004 				BNE	60$		;;; [5.1007] YES -- GO ON
  12484	041276				50$:
  12485	041276	011237 	002660'			MOV	(R2),.TTELB	;;; [5.1007] NO -- SAVE ALTERNATE STATUS
  12486	041302					CALL	DHERLG		;;; [5.1007] ERROR LOG IT
	041302	004737 	041106'			JSR	PC,DHERLG
  12487	041306				60$:
  12488	041306	052712 	000001 			BIS	#1,(R2)		;;; [5.1007] ENABLE THE LINE
  12489	041312	032712 	000004 			BIT	#4,(R2)		;;; [5.1007] REQUEST-TO-SEND UP??
  12490	041316	001402 				BEQ	70$		;;; [5.1007] NO -- GO ON
  12491	041320	052712 	000007 			BIS	#7,(R2)		;;; [5.1007] YES -- FULLY ENABLE LINE
  12492	041324				70$:
  12493	041324	052714 	000140 			BIS	#140,(R4)	;;; [5.1007] ENABLE SCAN
  12494	041330	062705 	000010 			ADD	#^D8,R5		;;; [4.2206] POINT TO NEXT DHTBL ENTRY
  12495	041334	005201 				INC	R1		;;; [4.2206] INCREMENT UNIT NUMBER
  12496	041336	022701 	000020 			CMP	#^D16,R1	;;; [4.2206] HAVE WE OVERFLOWED??
  12497	041342	003312 				BGT	20$		;;; [4.2206] NO -- GO ON
  12498	041344	000700 				BR	10$		;;; [5.1004] YES -- START NEXT CONTROLLER
  12499						;
  12500	041346				80$:
  12501	041346					RETURN			;;; [4.2206] RETURN TO CALLER
	041346	000207 				RTS	PC
  12502					;
  12503					; HERE ON NON-EXISTENT DM-11/BB TRAP
  12504					;
  12505	041350				90$:
  12506	041350	032626 				BIT	(SP)+,(SP)+	;;; [4.1.1091] FLUSH TRAP PS/PC
  12507	041352				100$:
  12508	041352	005060 	177774 			CLR	-4(R0)		;;; [4.1.1091] DECLARE THE DM NON-EXISTENT
  12509	041356	000673 				BR	10$		;;; [4.1.1091] AND TRY NEXT DH/DM PAIR
  12510						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 232
TERMINAL DRIVER -- .TTFDI (INPUT CONTROL SERVICE)

  12512						.SBTTL	TERMINAL DRIVER -- .TTFDI (INPUT CONTROL SERVICE)
  12513
  12514					;+
  12515					; .TTFDI -- INPUT CONTROL SERVICE
  12516					;
  12517					; THIS SUBROUTINE WILL RETURN POINTERS TO THE NEXT LINE TO BE SERVICED FOR
  12518					; INPUT CONTROL (ENABLE) IN R2 AND R5.
  12519					;
  12520					; INPUTS:
  12521					;
  12522					;	.S2ITP -- POINTER TO THE LAST LINE TO BE SERVICED FOR INPUT CONTROL
  12523					;
  12524					; OUTPUTS:
  12525					;
  12526					;	R2 -- POINTER TO "STSW2" ENTRY FOR NEXT LINE TO BE SERVICED
  12527					;	R5 -- POINTER TO DLS TABLE ENTRY FOR NEXT LINE TO BE SERVICED
  12528					;	.S2ITP -- UPDATED TO POINT TO CURRENT LINE
  12529					;-
  12530
  12531	041360				.TTFDI::
  12532	041360	013705 	005052'			MOV	.S2ITP,R5	;;; [4.1.1092] GET POINTER TO THE LAST LINE
  12533	041364	000405 				BR	20$		;;; [4.1.1092] AND GO ON
  12534						;
  12535	041366				10$:
  12536	041366					CALL	.TTSW2		;;; [4.1.1092] FIND "STSW2" ENTRY FOR THIS LINE
	041366	004737 	042754'			JSR	PC,.TTSW2
  12537	041372	032712 	004000 			BIT	#S2.LCL,(R2)	;;; [4.1.1092] HAVE WE FOUND A LINE??
  12538	041376	001010 				BNE	30$		;;; [4.1.1092] YES -- EXIT
  12539	041400				20$:
  12540	041400	062705 	000010 			ADD	#10,R5		;;; [4.1.1092] NO -- FIND THE NEXT DLS ENTRY
  12541	041404	022705 	005046'			CMP	#TTYEND,R5	;;; [4.1.1092] HAVE WE FALLEN OFF THE END??
  12542	041410	101366 				BHI	10$		;;; [4.1.1092] NO -- CONTINUE SEARCHING
  12543	041412	012705 	002776'			MOV	#TTTBL,R5	;;; [4.1.1092] YES -- RESET TO BEGINNING
  12544	041416	000763 				BR	10$		;;; [4.1.1092] AND GO ON
  12545						;
  12546	041420				30$:
  12547	041420	010537 	005052'			MOV	R5,.S2ITP	;;; [4.1.1092] SAVE POINTER FOR THE NEXT TIME
  12548	041424					RETURN			;;; [4.1.1092] TO CALLER
	041424	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 233
TERMINAL DRIVER -- .TTERL (TERMINAL ERROR LOGGING)

  12550						.SBTTL	TERMINAL DRIVER -- .TTERL (TERMINAL ERROR LOGGING)
  12551
  12552					;+
  12553					; .TTERL -- TERMINAL ERROR LOGGING
  12554					;
  12555					; THIS SUBROUTINE WILL ENTER A TERMINAL ERROR REPORT IN THE TERMINAL
  12556					; ERROR LOGGING QUEUE.
  12557					;
  12558					; INPUTS:
  12559					;
  12560					;	R4 -- I/O PAGE POINTER FOR THIS DEVICE
  12561					;	R3 -- ERROR STATUS FOR THIS REPORT
  12562					;
  12563					; OUTPUTS:
  12564					;
  12565					;	NO REGISTERS ARE ALTERED
  12566					;-
  12567
  12568	041426				.TTERL::
  12569	041426	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] IS PRIMARY PROTOCOL RUNNING??
  12570	041432	100047 				BPL	40$		;;; [4.1.1105] NO -- JUST EXIT
  12571	041434	022737 	000006 	002656'		CMP	#6,.TTELC	;;; [5.1008] IS THERE ROOM IN THE QUEUE??
  12572	041442	003443 				BLE	40$		;;; [5.1008] NO -- EXIT
  12573	041444	010246 				MOV	R2,-(SP)	;;; [4.2245] YES -- SAVE REGISTERS
  12574	041446	010146 				MOV	R1,-(SP)	;;; [4.2245]
  12575	041450	010046 				MOV	R0,-(SP)	;;; [4.2245]
  12576	041452	010446 				MOV	R4,-(SP)	;;; [4.2245]
  12577	041454	012701 	000016 			MOV	#16,R1		;;; [4.2245] SET UP NODE SIZE
  12578	041460					CALL	..ALCB		;;; [4.2245] GET ONE FROM THE POOL
	041460	004737 	044416'			JSR	PC,..ALCB
  12579	041464	103424 				BCS	30$		;;; [4.2245] ERROR IF CC-C IS SET
  12580	041466	010160 	000002 			MOV	R1,T.HBCT(R0)	;;; [4.2245] GOT ONE -- SET NODE SIZE
  12581	041472	012701 	002654'			MOV	#.TTELQ,R1	;;; [4.2245] SET UP QUEUE POINTER
  12582	041476	005261 	000002 			INC	2(R1)		;;; [5.1008] ONE MORE NODE
  12583	041502				10$:
  12584	041502	011102 				MOV	(R1),R2		;;; [4.2245] FIND THE LAST NODE IN THE QUEUE
  12585	041504	001402 				BEQ	20$		;;; [4.2245] FOUND IT -- GO ON
  12586	041506	010201 				MOV	R2,R1		;;; [4.2245] NOT YET -- TRY AGAIN
  12587	041510	000774 				BR	10$		;;; [4.2245] SO
  12588						;
  12589	041512				20$:
  12590	041512	010011 				MOV	R0,(R1)		;;; [4.2245] ADD THIS NODE
  12591	041514	005020 				CLR	(R0)+		;;; [4.2245] MARK NEW END OF QUEUE
  12592	041516	005720 				TST	(R0)+		;;; [4.2245] GET OVER THE LISTHEAD (PACKET SIZE)
  12593	041520	012720 	000012 			MOV	#12,(R0)+	;;; [4.2245] SET MESSAGE SIZE
  12594	041524	010320 				MOV	R3,(R0)+	;;; [4.2245] SET ERROR STATUS
  12595	041526	010420 				MOV	R4,(R0)+	;;; [4.2245] SET THE DEVICE ADDRESS
  12596	041530	012420 				MOV	(R4)+,(R0)+	;;; [4.2245] SET DEVICE STATUS
  12597	041532	013710 	002660'			MOV	.TTELB,(R0)	;;; [4.2245] SET SAVED STATUS, IF ANY
  12598	041536				30$:
  12599	041536	005037 	002660'			CLR	.TTELB		;;; [4.2245] CLEAR SAVED STATUS
  12600	041542	012604 				MOV	(SP)+,R4	;;; [4.2245] RESTORE REGISTERS
  12601	041544	012600 				MOV	(SP)+,R0
  12602	041546	012601 				MOV	(SP)+,R1
  12603	041550	012602 				MOV	(SP)+,R2
  12604	041552				40$:
  12605	041552					RETURN			;;; [4.2245] TO CALLER
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 233-1
TERMINAL DRIVER -- .TTERL (TERMINAL ERROR LOGGING)

	041552	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 234
TERMINAL DRIVER -- .TTXOF (DEVICE DEPENDENT XOFF PROCESSING)

  12607						.SBTTL	TERMINAL DRIVER -- .TTXOF (DEVICE DEPENDENT XOFF PROCESSING)
  12608
  12609					;+
  12610					; .TTXOF -- DEVICE DEPENDENT XOFF PROCESSING
  12611					;
  12612					; THIS SUBROUTINE WILL PROCESS AN XOFF AND STOP OUTPUT ON A SPECIFIED
  12613					; TERMINAL LINE.
  12614					;
  12615					; INPUTS:
  12616					;
  12617					;	R5 -- POINTER TO DATA LINE SCANNER TABLE ENTRY FOR LINE TO BE STOPPED.
  12618					;
  12619					; OUTPUTS:
  12620					;
  12621					;	THE LINE IS STOPPED.
  12622					;
  12623					; CALLED FROM QUEUED PROTOCOL TASK AND TERMINAL INPUT SERVICE
  12624					;-
  12625
  12626						.ENABL	LSB
  12627
  12628	041554				.TTXOF::
  12629	041554	105765 	000006 			TSTB	STSW1+0(R5)	;;; [4.2181] ALREADY X'D OFF??
  12630	041560	100432 				BMI	10$		;;; [4.2181] YES -- JUST EXIT
  12631	041562	032765 	001000 	000006 		BIT	#TT.SIP,STSW1(R5) ;;; [4.2181] NO -- SENDALL IN PROGRESS??
  12632	041570	001023 				BNE	.DLXOF		;;; [4.2181] YES -- MARK XOFF AND RETURN
  12633	041572	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; [4.2181] NO -- IS THIS A CTY??
  12634	041600	001414 				BEQ	.DHXOF		;;; [4.2181] NO -- GO ON
  12635	041602	005737 	002632'			TST	.TTP11		;;; [4.2181] YES -- IN PDP-11 I/O WAIT??
  12636	041606	001017 				BNE	10$		;;; [4.2181] YES -- JUST EXIT
  12637	041610	105737 	001226'			TSTB	.KLNSW+0	;;; [4.2181] NO -- IS KLINIK ACTIVE??
  12638	041614	003406 				BLE	.DHXOF		;;; [4.2181] NO -- NOT THAT WE CARE -- GO ON
  12639	041616	010546 				MOV	R5,-(SP)	;;; [4.2181] YES -- SAVE CTY POINTER
  12640	041620	013705 	002636'			MOV	KLNPTR,R5	;;; [4.2181] SUBSTITUTE KLINIK POINTER
  12641	041624					CALL	.DHXOF		;;; [4.2181] STOP THE KLINIK LINE
	041624	004737 	041632'			JSR	PC,.DHXOF
  12642	041630	012605 				MOV	(SP)+,R5	;;; [4.2181] RESTORE CTY POINTER
  12643					;
  12644					; HERE TO STOP A DH-11 LINE
  12645					;
  12646	041632				.DHXOF::
  12647	041632					CALL	.TTSTP		;;; [5.1015] SEE ABOUT STOPPING I/O
	041632	004737 	041650'			JSR	PC,.TTSTP
  12648	041636	001403 				BEQ	10$		;;; [5.1015] EXIT IF NON-EXISTENT
  12649					;
  12650					; HERE TO STOP  DL-11 LINE
  12651					;
  12652	041640				.DLXOF::
  12653	041640	052765 	000200 	000006 		BIS	#TT.XOF,STSW1(R5) ;;; [4.2181] MARK THE LINE AS X'D OFF
  12654	041646				10$:
  12655	041646					RETURN			;;; [4.2181] TO CALLER
	041646	000207 				RTS	PC
  12656
  12657						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 235
TERMINAL DRIVER -- .TTSTP (STOP TERMINAL OUTPUT)

  12659						.SBTTL	TERMINAL DRIVER -- .TTSTP (STOP TERMINAL OUTPUT)
  12660
  12661					;+
  12662					; .TTSTP -- STOP TERMINAL OUTPUT
  12663					;
  12664					; THIS SUBROUTINE WILL STOP OR TRUNCATE OUTPUT FOR A LINE
  12665					;
  12666					; INPUTS:
  12667					;
  12668					;	R5 -- POINTS TO DLS ENTRY FOR LINE TO BE STOPPED
  12669					;
  12670					; OUTPUTS:
  12671					;
  12672					;	R4 -- POINTS TO DEVICE I/O PAGE ADDRESS
  12673					;-
  12674
  12675	041650				.TTSTP::
  12676	041650					CALL	.STDHL		;;; [5.1015] SET THE DH-11 LINE NUMBER
	041650	004737 	037416'			JSR	PC,.STDHL
  12677	041654	003407 				BLE	10$		;;; [5.1015] GO ON IF DL-11 OR NON-EXISTENT
  12678	041656	022764 	177775 	000010 		CMP	#-3,10(R4)	;;; [5.1015] MUST WE TRUNCATE PACKET??
  12679	041664	002403 				BLT	10$		;;; [5.1015] NO -- JUST LET I/O RUN DOWN
  12680	041666	012764 	177777 	000010 		MOV	#-1,10(R4)	;;; [5.1015] YES -- TRUNCATE IT
  12681	041674				10$:
  12682	041674					RETURN			;;; [5.1015] TO CALLER
	041674	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 236
TERMINAL DRIVER -- .TTXON (DEVICE DEPENDENT XON PROCESSING)

  12684						.SBTTL	TERMINAL DRIVER -- .TTXON (DEVICE DEPENDENT XON PROCESSING)
  12685
  12686					;+
  12687					; .TTXON -- DEVICE DEPENDENT XON PROCESSING
  12688					;
  12689					; THIS SUBROUTINE WILL PROCESS AN XON AND START OUTPUT ON A SPECIFIED
  12690					; TERMINAL LINE.
  12691					;
  12692					; INPUTS:
  12693					;
  12694					;	R5 -- POINTER TO DATA LINE SCANNER TABLE ENTRY FOR LINE TO BE STARTED.
  12695					;
  12696					; OUTPUTS:
  12697					;
  12698					;	THE LINE IS STARTED.
  12699					;
  12700					; CALLED FROM QUEUED PROTOCOL TASK AND TERMINAL INPUT SERVICE
  12701					;-
  12702
  12703						.ENABL	LSB
  12704
  12705	041676				.TTXON::			;;; [5.1248] REMOVE SAVE OF R0
  12706	041676	105765 	000006 			TSTB	STSW1+0(R5)	;;; [4.2181] IS THE LINE X'D OFF??
  12707	041702	100053 				BPL	30$		;;; [4.2181] NO -- JUST EXIT
  12708	041704	032765 	001001 	000006 		BIT	#TT.SIP!TT.OUT,STSW1(R5) ;;; [4.2181] YES -- SENDALL IN PROGRESS??
  12709									;;; [4.2181] OR ALREADY BUSY??
  12710	041712	001044 				BNE	20$		;;; [4.2181] YES -- RESET LINE STATE AND EXIT
  12711	041714	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; [4.2181] NO -- IS THIS THE CTY??
  12712	041722	001414 				BEQ	.DHXON		;;; [4.2181] NO -- GO ON
  12713	041724	005737 	002632'			TST	.TTP11		;;; [4.2181] YES -- IN PDP-11 I/O WAIT??
  12714	041730	001035 				BNE	20$		;;; [4.2181] YES -- RESET XOFF AND EXIT
  12715	041732	105737 	001226'			TSTB	.KLNSW+0	;;; [4.2181] NO -- IS KLINIK ACTIVE??
  12716	041736	003406 				BLE	.DHXON		;;; [4.2181] NO -- NOT THAT WE CARE - GO ON
  12717	041740	010546 				MOV	R5,-(SP)	;;; [4.2181] YES -- SAVE CTY POINTER
  12718	041742	013705 	002636'			MOV	KLNPTR,R5	;;; [4.2181] SUBSTITUTE KLINIK LINE POINTER
  12719	041746					CALL	.DHXON		;;; [4.2181] START THE KLINIK LINE
	041746	004737 	041754'			JSR	PC,.DHXON
  12720	041752	012605 				MOV	(SP)+,R5	;;; [4.2181] RESTORE CTY POINTER
  12721					;
  12722					; HERE TO START A DH-11 LINE
  12723					;
  12724	041754				.DHXON::
  12725	041754	011500 				MOV	(R5),R0		;;; [5.1015] COPY THREAD POINTER TO R0
  12726	041756	001422 				BEQ	20$		;;; [4.2181] RESET STATUS AND EXIT IF EMPTY
  12727	041760	105760 	000006 			TSTB	T.HCBC(R0)	;;; [5.1015] TEST BYTE COUNT FROM THREAD NODE
  12728	041764	001006 				BNE	10$		;;; [4.2181] PROCEED IF PACKET NOT EMPTY
  12729	041766	005360 	000004 			DEC	T.HCAD(R0)	;;; [5.1015] EMPTY -- BACK UP ONE BYTE
  12730	041772	105070 	000004 			CLRB	@T.HCAD(R0)	;;; [5.1015] AND RENDER IT NULL
  12731	041776	105260 	000006 			INCB	T.HCBC(R0)	;;; [5.1015] AND ACCOUNT FOR IT
  12732	042002				10$:
  12733	042002					CALL	.STDHL		;;; [4.2181] SET UP FOR THIS LINE NUMBER
	042002	004737 	037416'			JSR	PC,.STDHL
  12734	042006	100404 				BMI	.DLXON		;;; [5.1015] GO ON IF DL-11
  12735	042010	001410 				BEQ	30$		;;; [5.1015] EXIT IF NON-EXISTENT
  12736	042012					CALL	.DHSTO		;;; [5.1015] START UP THE DH-11
	042012	004737 	034164'			JSR	PC,.DHSTO
  12737	042016	000402 				BR	20$		;;; [4.2181] AND EXIT
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 236-1
TERMINAL DRIVER -- .TTXON (DEVICE DEPENDENT XON PROCESSING)

  12738						;
  12739					;
  12740					; HERE TO START A DL-11 LINE
  12741					;
  12742	042020				.DLXON::
  12743	042020					CALL	.DLSTO		;;; [5.1015] START UP THE DL-11
	042020	004737 	034340'			JSR	PC,.DLSTO
  12744	042024				20$:
  12745	042024	042765 	000200 	000006 		BIC	#TT.XOF,STSW1(R5) ;;; [4.2181] MARK LINE AS X'D ON
  12746	042032				30$:
  12747	042032					RETURN			;;; [4.2181] TO CALLER
	042032	000207 				RTS	PC
  12748
  12749						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 237
TERMINAL DRIVER -- .TTRST (RESET A TERMINAL LINE)

  12751						.SBTTL	TERMINAL DRIVER -- .TTRST (RESET A TERMINAL LINE)
  12752
  12753					;+
  12754					; .TTRST -- RESET A TERMINAL LINE
  12755					;
  12756					; THIS SUBROUTINE WILL RESET A LINE'S STATUS AND CLEAR IT'S OUTPUT QUEUE
  12757					;
  12758					; INPUTS:
  12759					;
  12760					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS LINE
  12761					;
  12762					; OUTPUTS:
  12763					;
  12764					;	NO REGISTERS ARE ALTERED
  12765					;	LINE STATUS IS RESET
  12766					;	LINES OUTPUT QUEUE IS EMPTY
  12767					;
  12768					; NOTE:
  12769					;	THIS SUBROUTINE MUST BE CALLED AT BR5 OR HIGHER
  12770					;-
  12771
  12772	042034				.TTRST::
  12773	042034	010246 				MOV	R2,-(SP)	;;; [4.2205] SAVE R2
  12774	042036	005737 	001030'			TST	.PFIOW		;;; [4.2205] POWER FAIL RESTART??
  12775	042042	001420 				BEQ	10$		;;; [4.2205] NO -- GO ON
  12776	042044	042765 	161411 	000006 		BIC	#TT.SND!TT.RSI!TT.NSA!TT.ABW!TT.SIP!TT.OUT,STSW1(R5)
  12777									;;; [4.2205] YES -- SET POWER UP STATUS
  12778	042052	042765 	140000 	000004 		BIC	#S0.MSK,STSW0(R5) ;;; [4.2309] RESET CONNECT BIT
  12779	042060					CALL	.TTSW2		;;; [5.1015] FIND OUR "STSW2" ENTRY
	042060	004737 	042754'			JSR	PC,.TTSW2
  12780	042064	105012 				CLRB	(R2)		;;; [5.1016] REMOVE DEFERRED CHARACTER
  12781	042066	032712 	170000 			BIT	#S2.DDN!S2.DIP!S2.ENB!S2.DIS,(R2)
  12782									;;; [5.1015] WAS THE LINE BEING TURNED ON OR OFF??
  12783	042072	001404 				BEQ	10$		;;; [5.1015] NO -- LEAVE IT ALONE
  12784	042074	012712 	100000 			MOV	#S2.DDN,(R2)	;;; [5.1015] YES -- SAY IT WAS FINISHED
  12785	042100					CALL	.TTENB		;;; [5.1015] AND TURN IT ON
	042100	004737 	042464'			JSR	PC,.TTENB
  12786	042104				10$:
  12787	042104	010502 				MOV	R5,R2		;;; [5.1015] COPY DLS POINTER TO R2
  12788	042106					CALL	..STPT		;;; [4.2205] STOP THE LINE AND FLUSH OUTPUT
	042106	004737 	045142'			JSR	PC,..STPT
  12789	042112	042765 	014220 	000006 		BIC	#TT.XOF!TT.XEN!TT.FEC,STSW1(R5)
  12790									;;; [4.2205] RESET THE LINE STATUS
  12791	042120	012602 				MOV	(SP)+,R2	;;; [5.1015] RESTORE R2
  12792	042122					RETURN			;;; [4.2205] TO CALLER
	042122	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 238
TERMINAL DRIVER -- CHECK INPUT XOFF DELAY

  12794						.SBTTL	TERMINAL DRIVER -- CHECK INPUT XOFF DELAY
  12795
  12796					;+
  12797					; .TTCHK -- CHECK INPUT XOFF DELAY
  12798					;
  12799					; THIS SUBROUTINE WILL COUNT EITHER TWO CLOCK TICKS OR TWO CHARACTERS FOR A
  12800					; LINE WHICH IS BEING INPUT DISABLED.  THE LINE SPEED IS THEN SET TO ZERO
  12801					; WHEN THE COUNT OVERFLOWS
  12802					;
  12803					; INPUTS:
  12804					;
  12805					;	R2 -- POINTS TO "STSW2" ENTRY FOR LINE
  12806					;	R5 -- POINTS TO DLS TABLE ENTRY FOR LINE
  12807					;
  12808					; OUTPUTS:
  12809					;
  12810					;	DELAY COUNT AND STATUS IS IN "STSW2(R2)"
  12811					;-
  12812
  12813	042124				.TTCHK::
  12814	042124	105262 	000001 			INCB	1(R2)		;;; [5.1015] YES -- COUNT THIS TICK
  12815	042130	032712 	001000 			BIT	#S2.SSZ,(R2)	;;; [5.1015] TIME TO SHUT HIM OFF??
  12816	042134	001404 				BEQ	10$		;;; [5.1015] NO -- NOT YET
  12817	042136					CALL	.TTDIS		;;; [5.1015] YES -- DO IT
	042136	004737 	042312'			JSR	PC,.TTDIS
  12818	042142	005337 	005046'			DEC	.TTS2F		;;; [5.1015] COUNT THIS LINE
  12819	042146				10$:
  12820	042146					RETURN			;;; [5.1015] TO CALLER
	042146	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 239
TERMINAL DRIVER -- .TTICK (INPUT BUFFER CHECKS)

  12822						.SBTTL	TERMINAL DRIVER -- .TTICK (INPUT BUFFER CHECKS)
  12823
  12824					;+
  12825					; .TTICK -- TERMINAL INPUT BUFFER CHECKS
  12826					;
  12827					; THIS SUBROUTINE WILL CHECK THE STATE OF THE BUFFER SPACE AND INITIATE AN
  12828					; INPUT DISABLE SEQUENCE IF THE INPUT BUFFER LOW HAS BEEN CROSSED.
  12829					;
  12830					; INPUTS:
  12831					;
  12832					;	R2 -- POINTS TO "STSW2" ENTRY FOR CURRENT LINE
  12833					;	R5 -- POINTS TO DLS TABLE ENTRY FOR CURRENT LINE
  12834					;
  12835					; OUTPUTS:
  12836					;
  12837					;	NONE
  12838					;
  12839					; NOTE:
  12840					;
  12841					;	THE CTY IS NEVER INPUT-DISABLED BY THIS ROUTINE
  12842					;-
  12843
  12844						.ENABL	LSB
  12845
  12846	042150				.TTICK::
  12847	042150	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; [4.1.1092] IS THIS A CTY??
  12848	042156	001035 				BNE	20$		;;; [4.1.1092] YES -- LEAVE IT ALONE
  12849	042160	023737 	005054'	001422'		CMP	.IBFLO,.FREPL+2 ;;; [4.1.1092] NO -- IS THE FREE-POOL OK??
  12850	042166	103431 				BLO	20$		;;; [4.1.1092] YES -- JUST EXIT
  12851	042170	032712 	140000 			BIT	#S2.DDN!S2.DIP,(R2) ;;; [4.1.1092] NO -- IN PROGRESS OR DONE??
  12852	042174	001026 				BNE	20$		;;; [4.1.1092] YES -- LEAVE IT ALONE
  12853	042176	052712 	004000 			BIS	#S2.LCL,(R2)	;;; [4.1.1092] NO -- SAY THAT WE OWN THE LINE
  12854	042202	000443 				BR	.TTDIS		;;; [4.1.1092] AND DISABLE IT
  12855						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 240
TERMINAL DRIVER -- .TTQDS (QUEUED PROTOCOL INPUT DISABLE SERVI

  12857						.SBTTL	TERMINAL DRIVER -- .TTQDS (QUEUED PROTOCOL INPUT DISABLE SERVICE)
  12858
  12859					;+
  12860					; .TTQDS -- QUEUED PROTOCOL LINE DISABLE SERVICE
  12861					; .TTQEN -- QUEUED PROTOCOL LINE ENABLE SERVICE
  12862					;
  12863					; THESE SUBROUTINES ARBITRATE THE OWNERSHIP OF A LINE FOR WHICH THE HOST HAS
  12864					; REQUESTED EITHER AN INPUT DISABLE OR ENABLE VIA THE QUEUED PROTOCOL.  THE
  12865					; "RULE OF THUMB" IS THAT IF THE FREE-POOL IS BELOW INPUT THRESHOLDS, THE
  12866					; FRONT-END GAINS "OWNERSHIP" OF THAT LINE FOR WHICH THE REQUEST IS ISSUED.
  12867					;
  12868					; UNDER THESE CIRCUMSTANCES, THE LINE WILL EVENTUALLY BECOME INPUT RE-ENABLED
  12869					; BY THE CLOCK SERVICE, BUT ONLY IF THE FREE-POOL IS ABOVE MINIMUMS.
  12870					;
  12871					; INPUTS:
  12872					;
  12873					;	R2 -- POINTS TO "STSW2" ENTRY FOR THE LINE
  12874					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THE LINE
  12875					;
  12876					; OUTPUTS:
  12877					;
  12878					;	NO REGISTERS ALTERED
  12879					;-
  12880
  12881	042204				.TTQDS::
  12882	042204	032712 	004000 			BIT	#S2.LCL,(R2)	;;; [4.1.1092] DO WE OWN THE LINE??
  12883	042210	001020 				BNE	20$		;;; [4.1.1092] YES -- KEEP IT
  12884	042212	000437 				BR	.TTDIS		;;; [4.1.1092] NO -- STOP IT
  12885						;
  12886	042214				.TTQEN::
  12887	042214	032712 	004000 			BIT	#S2.LCL,(R2)	;;; [4.1.1092] DO WE OWN THE LINE??
  12888	042220	001014 				BNE	20$		;;; [4.1.1092] YES -- KEEP IT
  12889	042222	023737 	005056'	001422'		CMP	.IBFOK,.FREPL+2	;;; [4.1.1092] NO -- IS THE FREE-POOL OK??
  12890	042230	103515 				BLO	.TTENB		;;; [4.1.1092] YES -- ENABLE THE LINE AND EXIT
  12891	042232	032712 	140000 			BIT	#S2.DDN!S2.DIP,(R2) ;;; [4.1.1092] NO -- IS IT (BEING) STOPPED??
  12892	042236	001405 				BEQ	20$		;;; [4.1.1092] NO -- LEAVE IT ALONE
  12893	042240	100002 				BPL	10$		;;; [4.1.1092] IN PROGRESS -- GO ON
  12894	042242	005237 	005050'			INC	.S2IDC		;;; [4.1.1092] DONE -- ACCOUNT FOR THE LINE
  12895	042246				10$:
  12896	042246	052712 	004000 			BIS	#S2.LCL,(R2)	;;; [4.1.1092] MARK THAT WE OWN THE LINE
  12897	042252				20$:
  12898	042252					RETURN			;;; [4.1.1092] AND EXIT
	042252	000207 				RTS	PC
  12899
  12900						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 241
TERMINAL DRIVER -- .TTIXC (INPUT CONTROL CHECKS)

  12902						.SBTTL	TERMINAL DRIVER -- .TTIXC (INPUT CONTROL CHECKS)
  12903
  12904					;+
  12905					; .TTIXC -- TERMINAL INPUT CONTROL CHECKS
  12906					;
  12907					; THIS SUBROUTINE WILL CHECK AND INITIATE A DEFERRED INPUT XON OR XOFF
  12908					;
  12909					; INPUTS:
  12910					;
  12911					;	R5 -- POINTS TO DLS ENTRY FOR THE LINE TO BE CHECKED
  12912					;
  12913					; OUTPUTS:
  12914					;
  12915					;	R2 -- POINTS TO STSW2 ENTRY FOR THE LINE
  12916					;	OUTPUT IS ACTIVE IF AN XOFF OR XON HAS BEEN STARTED ON THE LINE
  12917					;-
  12918
  12919	042254				.TTIXC::
  12920	042254					CALL	.TTSW2		;;; [5.1015] FIND OUR "STSW2" ENTRY
	042254	004737 	042754'			JSR	PC,.TTSW2
  12921	042260	032712 	010000 			BIT	#S2.ENB,(R2)	;;; [5.1015] INPUT XON PENDING??
  12922	042264	001077 				BNE	.TTENB		;;; [5.1015] YES -- DO IT
  12923	042266				10$:
  12924	042266	032712 	020000 			BIT	#S2.DIS,(R2)	;;; [5.1015] INPUT XOFF PENDING??
  12925	042272	001007 				BNE	.TTDIS		;;; [5.1015] YES -- DO IT
  12926	042274				20$:
  12927	042274	010446 				MOV	R4,-(SP)	;;; [5.1016] SAVE R4
  12928	042276	111204 				MOVB	(R2),R4		;;; [5.1016] BREAK-THROUGH WRITE PENDING??
  12929	042300	001402 				BEQ	30$		;;; [5.1016] NO -- GO ON
  12930	042302					CALL	.TTBTW		;;; [5.1016] YES -- DO IT
	042302	004737 	042604'			JSR	PC,.TTBTW
  12931	042306				30$:
  12932	042306	012604 				MOV	(SP)+,R4	;;; [5.1016] RESTORE R4
  12933	042310					RETURN			;;; [5.1016] TO CALLER
	042310	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 242
TERMINAL DRIVER -- .TTDIS (DISABLE INPUT FROM LINE)

  12935						.SBTTL	TERMINAL DRIVER -- .TTDIS (DISABLE INPUT FROM LINE)
  12936
  12937					;+
  12938					; .TTDIS -- DISABLE INPUT FROM LINE
  12939					;
  12940					; THIS SUBROUTINE WILL INITIATE THE DISABLING OF THE INPUT FOR A LINE
  12941					; BY TRANSMITTING AN XOFF TO THE LINE AND MARKING THE DISABLE IN PROGRESS
  12942					;
  12943					; INPUTS:
  12944					;
  12945					;	R2 -- POINTS TO THE "STSW2" ENTRY FOR THIS LINE
  12946					;	R5 -- POINTS TO DATA LINE SCANNER ENTRY FOR LINE TO BE DISABLED
  12947					;
  12948					; OUTPUTS:
  12949					;
  12950					;	NO REGISTERS ALTERED
  12951					;
  12952					; NOTES:
  12953					;
  12954					;	THIS ROUTINE MUST BE ENTERED AT PRI5 OR HIGHER
  12955					;	THIS ROUTINE ASSUMES THAT THE DEVICE EXISTS
  12956					;-
  12957
  12958						.ENABL	LSB
  12959
  12960	042312				.TTDIS::
  12961	042312	010046 				MOV	R0,-(SP)	;;; [5.1015] SAVE REGISTERS
  12962	042314	010246 				MOV	R2,-(SP)
  12963	042316	010446 				MOV	R4,-(SP)
  12964	042320	032712 	140000 			BIT	#S2.DIP!S2.DDN,(R2) ;;; [5.1015] ALREADY DONE OR IN PROGRESS??
  12965	042324	100562 				BMI	75$		;;; [5.1015] ALREADY STOPPED -- GO ON
  12966	042326	001022 				BNE	20$		;;; [5.1015] FIRST PART DONE -- FINISH
  12967					;
  12968					; HERE TO INITIATE THE LINE STOP
  12969					;
  12970	042330	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; [5.1015] IS OUTPUT ACTIVE??
  12971	042336	001405 				BEQ	10$		;;; [5.1015] NO -- GO ON
  12972					;
  12973					; HERE TO DEFER THE XOFF TRANSMISSION
  12974					;
  12975	042340	052712 	020000 			BIS	#S2.DIS,(R2)	;;; [5.1015] YES -- DEFER THE REQUEST
  12976	042344	042712 	010000 			BIC	#S2.ENB,(R2)	;;; [5.1015] REMOVE "OTHER" REQUEST
  12977	042350	000546 				BR	70$		;;; [5.1015] STOP THE LINE AND EXIT
  12978						;
  12979					;
  12980					; HERE TO TRANSMIT THE XOFF
  12981					;
  12982	042352				10$:
  12983	042352					CALL	.TFXOF		;;; [5.1016] FORCE THE XOFF TO THE LINE
	042352	004737 	043004'			JSR	PC,.TFXOF
  12984	042356	042712 	020000 			BIC	#S2.DIS,(R2)	;;; [5.1015] REMOVE DEFERRED REQUEST
  12985	042362				15$:
  12986	042362	052712 	040000 			BIS	#S2.DIP,(R2)	;;; [5.1015] MARK THE REQUEST IN PROGRESS
  12987	042366	005237 	005046'			INC	.TTS2F		;;; [5.1015] FLAG THE CLOCK SERVICE
  12988	042372	000537 				BR	75$		;;; [5.1015] AND EXIT
  12989						;
  12990					;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 242-1
TERMINAL DRIVER -- .TTDIS (DISABLE INPUT FROM LINE)

  12991					; HERE TO REFUSE INPUT FROM THE LINE
  12992					;
  12993	042374				20$:
  12994	042374	032712 	001000 			BIT	#S2.SSZ,(R2)	;;; [5.1015] READY FOR SECOND PART??
  12995	042400	001534 				BEQ	75$		;;; [5.1015] NO -- WAIT
  12996	042402					CALL	.STDHL		;;; [5.1015] SET UP THE LINE NUMBER
	042402	004737 	037416'			JSR	PC,.STDHL
  12997	042406	100407 				BMI	25$		;;; [5.1015] BRANCH IF LINE IS A DL-11
  12998	042410	032712 	004000 			BIT	#S2.LCL,(R2)	;;; [RCO 32681] OUR LINE ??
  12999	042414	001011 				BNE	30$		;;; [RCO 32681] YES, DON'T SET LINE SPEED TO ZERO
  13000	042416	042764 	001700 	000004 		BIC	#S0.ISP,4(R4)	;;; [5.1015] SET INPUT SPEED TO ZERO
  13001	042424	000405 				BR	30$		;;; [5.1015] AND EXIT
  13002						;
  13003	042426				25$:
  13004	042426	112765 	177777 	000004 		MOVB	#-1,STSW0(R5)	;;; [5.1015] DISABLE DL-11 INPUT
  13005	042434	042714 	000100 			BIC	#DL.REN,(R4)	;;; [5.1015] SO
  13006	042440				30$:
  13007	042440	042712 	041400 			BIC	#S2.DIP!S2.CNT,(R2) ;;; [5.1015] NO LONGER IN PROGRESS
  13008	042444	052712 	100000 			BIS	#S2.DDN,(R2)	;;; [5.1015] BUT FINISHED
  13009	042450	032712 	004000 			BIT	#S2.LCL,(R2)	;;; [4.1.1092] DO WE OWN THIS LINE??
  13010	042454	001506 				BEQ	75$		;;; [4.1.1092] NO -- GO ON
  13011	042456	005237 	005050'			INC	.S2IDC		;;; [4.1.1092] YES -- ACCOUNT FOR IT
  13012	042462	000503 				BR	75$		;;; [5.1015] EXIT
  13013						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 243
TERMINAL DRIVER -- .TTENB (ENABLE INPUT FOR LINE)

  13015						.SBTTL	TERMINAL DRIVER -- .TTENB (ENABLE INPUT FOR LINE)
  13016
  13017					;+
  13018					; .TTENB -- ENABLE INPUT FOR LINE
  13019					;
  13020					; THIS ROUTINE WILL ENABLE INPUT FOR A LINE BY RESETTING ITS INPUT SPEED AND
  13021					; TRANSMITTING AN XON TO THE LINE.
  13022					;
  13023					; INPUTS:
  13024					;
  13025					;	R2 -- POINTS TO "STSW2" ENTRY FOR THIS LINE
  13026					;	R5 -- POINTS TO DLS TABLE ENTRY FOR THIS LINE
  13027					;
  13028					; OUTPUTS:
  13029					;
  13030					;	NO REGISTERS ALTERED
  13031					;
  13032					; NOTES:
  13033					;
  13034					;	THIS ROUTINE MUST BE ENTERED AT PRI5 OR HIGHER
  13035					;	THIS ROUTINE ASSUMES THAT THE DEVICE EXISTS
  13036					;-
  13037
  13038	042464				.TTENB::
  13039	042464	010046 				MOV	R0,-(SP)	;;; [5.1015] SAVE REGISTERS
  13040	042466	010246 				MOV	R2,-(SP)
  13041	042470	010446 				MOV	R4,-(SP)
  13042	042472	032712 	140000 			BIT	#S2.DDN!S2.DIP,(R2) ;;; [5.1015] INTERROGATE LINE STATE
  13043	042476	100406 				BMI	35$		;;; [5.1015] LINE IS DISABLED
  13044	042500	001474 				BEQ	75$		;;; [5.1015] ALREADY ENABLED -- EXIT
  13045	042502	042712 	040000 			BIC	#S2.DIP,(R2)	;;; [5.1015] REMOVE REQUEST IN PROGRESS
  13046	042506	005337 	005046'			DEC	.TTS2F		;;; [5.1015] REMOVE CLOCK COUNT
  13047	042512	000416 				BR	45$		;;; [5.1015] TRY TO ENABLE THE LINE NOW
  13048						;
  13049					;
  13050					; HERE TO INITIATE THE LINE START
  13051					;
  13052	042514				35$:
  13053	042514					CALL	.STDHL		;;; [5.1015] SET UP THE LINE NUMBER
	042514	004737 	037416'			JSR	PC,.STDHL
  13054	042520	100407 				BMI	40$		;;; [5.1015] BRANCH IF THIS IS A DL-11
  13055	042522	016546 	000004 			MOV	STSW0(R5),-(SP)	;;; [5.1015] GET THE SPEED WORD
  13056	042526	042716 	140000 			BIC	#S0.MSK,(SP)	;;; [5.1015] GET RID OF STATUS
  13057	042532	012664 	000004 			MOV	(SP)+,4(R4)	;;; [5.1015] SET THE SPEED
  13058	042536	000404 				BR	45$		;;; [5.1015] AND EXIT
  13059						;
  13060	042540				40$:
  13061	042540	105065 	000004 			CLRB	STSW0(R5)	;;; [5.1015] ALLOW DL-11 INPUT
  13062	042544	052714 	000100 			BIS	#DL.REN,(R4)	;;; [5.1015] SO
  13063					;
  13064					; HERE TO TRANSMIT THE XON
  13065					;
  13066	042550				45$:
  13067	042550	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; [5.1015] OUTPUT ACTIVE??
  13068	042556	001005 				BNE	50$		;;; [5.1015] YES -- DEFER THE REQUEST ONCE MORE
  13069	042560					CALL	.TFXON		;;; [5.1016] NO -- FORCE THE XON
	042560	004737 	042774'			JSR	PC,.TFXON
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 243-1
TERMINAL DRIVER -- .TTENB (ENABLE INPUT FOR LINE)

  13070	042564	042712 	115400 			BIC	#S2.ENB!S2.DDN!S2.LCL!S2.CNT,(R2) ;;; [5.1015] CLEAR THE REQUEST
  13071	042570	000440 				BR	75$		;;; [5.1015] AND EXIT
  13072						;
  13073					;
  13074					; HERE TO DEFER THE LINE START
  13075					;
  13076	042572				50$:
  13077	042572	052712 	010000 			BIS	#S2.ENB,(R2)	;;; [5.1015] SET DEFERRED REQUEST
  13078	042576	042712 	020000 			BIC	#S2.DIS,(R2)	;;; [5.1015] REMOVE "OTHER" REQUEST
  13079	042602	000431 				BR	70$		;;; [5.1015] STOP THE LINE AND EXIT
  13080						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 244
TERMINAL DRIVER -- .TTBTW (BREAK-THROUGH WRITE FUNCTION)

  13082						.SBTTL	TERMINAL DRIVER -- .TTBTW (BREAK-THROUGH WRITE FUNCTION)
  13083
  13084					;+
  13085					; .TTBTW -- BREAK-THROUGH WRITE FUNCTION
  13086					;
  13087					; THIS SUBROUTINE WILL FORCE A SINGLE CHARACTER TO A LINE AT THE HEAD OF ITS
  13088					; OUTPUT LIST AND OVER AN OUTPUT XOFF.
  13089					;
  13090					; INPUTS:
  13091					;
  13092					;	R4 -- CHARACTER TO BE SENT
  13093					;	R5 -- POINTS TO DLS ENTRY FOR THIS LINE
  13094					;
  13095					; OUTPUTS:
  13096					;
  13097					;	NO REGISTERS ALTERED
  13098					;
  13099					; NOTES:
  13100					;
  13101					;	THIS ROUTINE MUST BE ENTERED AT PRI5 OR HIGHER
  13102					;	THIS ROUTINE ASSUMES THAT THE DEVICE EXISTS
  13103					;-
  13104
  13105	042604				.TTBTW::
  13106	042604	010046 				MOV	R0,-(SP)	;;; [5.1015] SAVE R0
  13107	042606	010246 				MOV	R2,-(SP)	;;; [5.1015] AND R2
  13108	042610	010446 				MOV	R4,-(SP)
  13109	042612					CALL	.TTSW2		;;; [5.1016] FIND OUR "STSW2" ENTRY
	042612	004737 	042754'			JSR	PC,.TTSW2
  13110	042616	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; [5.1016] OUTPUT ACTIVE??
  13111	042624	001017 				BNE	65$		;;; [5.1016] YES -- DEFER THE REQUEST
  13112	042626					CALL	BLDPKT		;;; [5.1016] NO -- ALLOCATE AND BUILD THE PACKET
	042626	004737 	042702'			JSR	PC,BLDPKT
  13113	042632	105012 				CLRB	(R2)		;;; [5.1016] RENDER DEFERRED CHARACTER NULL
  13114	042634	011502 				MOV	(R5),R2		;;; [5.1015] GET POINTER TO FIRST NODE IN LIST
  13115	042636	010015 				MOV	R0,(R5)		;;; [5.1015] SET NEW PACKET AS NEW FIRST NODE
  13116	042640	010210 				MOV	R2,(R0)		;;; [5.1015] LINK REST OF QUEUE
  13117	042642					CALL	.STDHL		;;; [5.1015] SET THE LINE NUMBER
	042642	004737 	037416'			JSR	PC,.STDHL
  13118	042646	100403 				BMI	55$		;;; [5.1015] BRANCH IF THIS IS A DL-11
  13119	042650					CALL	.DHSTO		;;; [5.1015] START THE MESSAGE UP
	042650	004737 	034164'			JSR	PC,.DHSTO
  13120	042654	000406 				BR	75$		;;; [5.1015] AND EXIT
  13121						;
  13122	042656				55$:
  13123	042656					CALL	.DLSTO		;;; [5.1015] START UP THE DL-11
	042656	004737 	034340'			JSR	PC,.DLSTO
  13124	042662	000403 				BR	75$		;;; [5.1016] AND EXIT
  13125						;
  13126	042664				65$:
  13127	042664	110412 				MOVB	R4,(R2)		;;; [5.1016] SET DEFERRED REQUEST
  13128	042666				70$:
  13129	042666					CALL	.TTSTP		;;; [5.1016] FORCE THE LINE STOP
	042666	004737 	041650'			JSR	PC,.TTSTP
  13130	042672				75$:
  13131	042672	012604 				MOV	(SP)+,R4
  13132	042674	012602 				MOV	(SP)+,R2	;;; [5.1015] RESTORE REGISTERS
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 244-1
TERMINAL DRIVER -- .TTBTW (BREAK-THROUGH WRITE FUNCTION)

  13133	042676	012600 				MOV	(SP)+,R0
  13134	042700					RETURN			;;; [5.1015] AND EXIT
	042700	000207 				RTS	PC
  13135
  13136						.DSABL	LSB
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 245
TERMINAL DRIVER -- BLDPKT (BUILD A TERMINAL PACKET)

  13138						.SBTTL	TERMINAL DRIVER -- BLDPKT (BUILD A TERMINAL PACKET)
  13139
  13140					;+
  13141					; BLDPKT -- BUILD A TERMINAL PACKET
  13142					;
  13143					; THIS SUBROUTINE WILL BUILD A TERMINAL OUTPUT LIST ENTRY FOR THE
  13144					; CHARACTER IN R4.
  13145					;
  13146					; INPUTS:
  13147					;
  13148					;	R4 -- CHARACTER TO BE TRANSMITTED
  13149					;
  13150					; OUTPUTS:
  13151					;
  13152					;	R0 -- POINTER TO NEW TERMINAL PACKET
  13153					;-
  13154
  13155	042702				BLDPKT:
  13156	042702	010146 				MOV	R1,-(SP)	;;; [5.1015] SAVE R1
  13157	042704	012701 	000012 			MOV	#12,R1		;;; [5.1016] SET THE NODE SIZE
  13158	042710					CALL	..ALCB		;;; [5.1015] GET A BUFFER
	042710	004737 	044416'			JSR	PC,..ALCB
  13159	042714	103414 				BCS	10$		;;; [5.1015] POOL EXHAUSTED IF CC-C SET
  13160	042716	010046 				MOV	R0,-(SP)	;;; [5.1015] SAVE BUFFER POINTER
  13161	042720	005020 				CLR	(R0)+		;;; [5.1016] GET OVER THE LINKAGE
  13162	042722	010120 				MOV	R1,(R0)+	;;; [5.1016] SET THE NODE SIZE
  13163	042724	011610 				MOV	(SP),(R0)	;;; [5.1016] SET THE DATA ADDRESS
  13164	042726	062720 	000010 			ADD	#10,(R0)+	;;; [5.1016] SO
  13165	042732	012720 	000001 			MOV	#1,(R0)+	;;; [5.1016] SET THE BYTE COUNT
  13166	042736	110410 				MOVB	R4,(R0)		;;; [5.1016] AND NOW THE DATA
  13167	042740	012600 				MOV	(SP)+,R0	;;; [5.1015] RESTORE BUFFER POINTER
  13168	042742	012601 				MOV	(SP)+,R1	;;; [5.1015] RESTORE R1
  13169	042744					RETURN			;;; [5.1015] TO CALLER
	042744	000207 				RTS	PC
  13170	042746				10$:
  13171	042746					.CRASH	BO5		;;; [5.1015] BUFFER OVERFLOW...
	042746	000004 				IOT
	042750	   102 	   117 	   065 		.ASCIZ	/BO5/
	042753	   000
  13172						;
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 246
TERMINAL DRIVER -- .TTSW2 (FIND OFFSET INTO "STSW2" TABLE)

  13174						.SBTTL	TERMINAL DRIVER -- .TTSW2 (FIND OFFSET INTO "STSW2" TABLE)
  13175
  13176					;+
  13177					; .TTSW2 -- FIND OFFSET INTO "STSW2" TABLE
  13178					;
  13179					; INPUTS:
  13180					;
  13181					;	R5 -- POINTS TO DLS ENTRY FOR THIS LINE
  13182					;
  13183					; OUTPUTS:
  13184					;
  13185					;	R2 -- POINTS TO "STSW2" ENTRY FOR THIS LINE
  13186					;-
  13187
  13188	042754				.TTSW2::
  13189	042754	010502 				MOV	R5,R2		;;; [5.1015] COPY DLS POINTER TO R2
  13190	042756	162702 	002776'			SUB	#TTTBL,R2	;;; [5.1015] FIND OFFSET INTO "STSW2" TABLE
  13191	042762	006202 				ASR	R2
  13192	042764	006202 				ASR	R2		;;; [5.1015] SO
  13193	042766	062702 	005060'			ADD	#STSW2,R2	;;; [5.1015] VOILA!
  13194	042772					RETURN			;;; [5.1015] TO CALLER
	042772	000207 				RTS	PC
TTYDRR	- GENERAL TERMINAL HAND	MACRO M1113  10-NOV-81 18:56  PAGE 247
TERMINAL DRIVER -- .TFXON (FORCE AN XON FOR A LINE)

  13196						.SBTTL	TERMINAL DRIVER -- .TFXON (FORCE AN XON FOR A LINE)
  13197
  13198					;+
  13199					; .TFXON -- FORCE AN XON FOR A LINE
  13200					; .TFXOF -- FORCE AN XOFF FOR A LINE
  13201					;
  13202					; THESE SUBROUTINES WILL FORCE THE INDICATED CHARACTER TO THE LINE IMMEDIATELY
  13203					;
  13204					; INPUTS:
  13205					;
  13206					;	R5 -- POINTS TO DLS ENTRY FOR THE LINE
  13207					;
  13208					; OUTPUTS:
  13209					;
  13210					;	NO REGISTERS ALTERED
  13211					;
  13212					; NOTES:
  13213					;
  13214					;	THIS ROUTINE MUST BE ENTERED AT PRI5 OR HIGHER
  13215					;	THIS ROUTINE ASSUMES THAT THE DEVICE EXISTS
  13216					;	THIS ROUTINE ASSUMES THAT THE DEVICE IS NOT OUTPUT ACTIVE
  13217					;-
  13218
  13219						.ENABL	LSB
  13220
  13221	042774				.TFXON::
  13222	042774	010446 				MOV	R4,-(SP)	;;; [5.1016] SAVE R4
  13223	042776	012704 	000021 			MOV	#C.HXON,R4	;;; [5.1016] SET THE XON CHARACTER
  13224	043002	000403 				BR	10$		;;; [5.1016] DO COMMON CODE
  13225						;
  13226	043004				.TFXOF::
  13227	043004	010446 				MOV	R4,-(SP)	;;; [5.1016] SAVE R4
  13228	043006	012704 	000023 			MOV	#C.HXOF,R4	;;; [5.1016] SET THE XOFF CHARACTER
  13229	043012				10$:
  13230	043012					CALL	.TTBTW		;;; [5.1016] FORCE IT OUT
	043012	004737 	042604'			JSR	PC,.TTBTW
  13231	043016	012604 				MOV	(SP)+,R4	;;; [5.1016] RESTORE R4
  13232	043020					RETURN			;;; [5.1016] TO CALLER
	043020	000207 				RTS	PC
  13233
  13234						.DSABL	LSB
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 249
TERMINAL DRIVER -- .TFXON (FORCE AN XON FOR A LINE)

  13237						.TITLE	SCOMM	- COMMON DATA AND SUBROUTINES
  13238						.SBTTL	SYSTEM COMMON SUBROUTINES -- COPYRIGHT STATEMENT
  13239	043022					IDENT$	14,32,RSX$$F
						.IDENT	/E14320/
  13240					;
  13241					;                             COPYRIGHT (C) 1975, 1978 BY
  13242					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
  13243					;
  13244					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
  13245					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
  13246					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
  13247					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
  13248					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
  13249					;
  13250					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
  13251					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  13252					;       CORPORATION.
  13253					;
  13254					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
  13255					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
  13256					;
  13257					;		MODULE: "SCOMM"
  13258					;		VERSION: 14-32
  13259					;		AUTHOR: R. MCLEAN
  13260					;		DATE: 19 JUL 75
  13261					;
  13262					;
  13263					;	MODIFICATIONS:
  13264					;
  13265					;	THIS MODULE CONTAINS:
  13266					;
  13267					;	1 -- THIS MODULE CONTAINS SYSTEM COMMON MODULES AND TABLES
  13268					;
  13269					;	NO.	DATE		PROGRAMMER	PURPOSE
  13270					;	---	----		----------	-------
  13271					;	001	27-JUL-76	J. MASSE	CHANGE 'LBNL' FOR DX0 & DX1
  13272					;						FROM 496. TO 494.
  13273					;	002	8-AUG-76	J. MASSE	CHANGE VERSION NO. TO 004A
  13274					;	003	9-AUG-76	J. MASSE	ADD KLINIK HOOKS
  13275					;	004	20-OCT-76	A. PECKHAM	ADD DORBELL COUNTER
  13276					;	005	20-OCT-76	A. PECKHAM	CHANGE VERSION NO. TO 006A
  13277					;	006	03-FEB-77	R. BELANGER	ADD GENERALIZED DL11E
  13278					;						SERVICE AND NEW KLINIK
  13279					;						HOOKS AND HANDLES
  13280					;	007	07-MAR-77	A. PECKHAM	FIXED BUG  IN ..STTY
  13281					;	008	14-MAR-77	R. BELANGER	CONDITIONALLY REMOVE
  13282					;						SUPPORT FOR DTE20 DIRECTIVES
  13283					;						ADD CODE FOR DYNAMIC ALLOCATION
  13284					;						OF .BGBUF AND .FREPL
  13285					;	009	15-JUL-77	R. BELANGER	ADD AUTO BAUD SUPPORT
  13286					;	010	02-SEP-77	R. BELANGER	XON/XOFF BUG FIX
  13287					; TCO 4.2047	18-OCT-78	R. BELANGER	FIX ..STTY TO NOT QUEUE
  13288					;   						OUTPUT FOR NON-EX LINES
  13289					; TCO 4.2096	30-NOV-78	R. BELANGER	FIX "..STPT" TO INSURE DEQUEUE
  13290					;						OF TRUNCATED PACKET AT OUTPUT DONE
  13291					; TCO 4.2107	06-DEC-78	R. BELANGER	ADD ".KACFL" FLAG FOR NEW
  13292					;						KEEP-ALIVE ERROR PROCESSING
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 249-1
SYSTEM COMMON SUBROUTINES -- COPYRIGHT STATEMENT

  13293					; TCO 4.2208	08-MAR-79	R. BELANGER	FIX BUG IN "..STIN" TO DISALLOW
  13294					;						ACCESS TO KL MEMORY DURING
  13295					;						PROTOCOL PAUSE.
  13296					; TCO 4.2212	08-MAR-79	R. BELANGER	MOVE DATABASE TO FE STATUS BLOCK
  13297					; TCO 4.2216	16-MAR-79	R. BELANGER	ALLOW DTE-20 TO RUN AT FULL SPEED
  13298					; TCO 4.2217	19-MAR-79	R. BELANGER	RETRY ALL EBUS PARITY ERRORS AND
  13299					;						SNAPSHOT ALL FAILURES
  13300					; TCO 4.2265	23-MAY-79	R. BELANGER	FIX KLINIK BUG
  13301					; TCO 5.1008	11-OCT-79	R. BELANGER	ADD EBUS PARITY ERROR AND DEX
  13302					;						ERROR LOGGING
  13303					; TCO 5.1015	23-OCT-79	R. BELANGER	ADD NEW TERMINAL INPUT CONTROL
  13304					; TCO 4.1.1013	12-NOV-79	R. BELANGER	FIX CORE ALLOCATOR BUG FOR
  13305					;						NEGATIVE BYTE COUNT
  13306					; TCO 4.1.1035	16-NOV-79	R. BELANGER	ADD QUEUE ARBITRATION MECHANISM
  13307					; TCO 4.1.1065	07-JAN-80	R. BELANGER	DON'T RETRY DEX ERRORS
  13308					; TCO 4.1.1104	05-MAR-80	R. BELANGER	FIX BUG IN CORE ALLOCATOR
  13309					; TCO 4.1.1105	11-MAR-80	R. BELANGER	CHANGE "EF.PR1" RECOGNITION
  13310					; TCO 4.1.1137	05-APR-80	R. BELANGER	LIMIT TO-10 QUEUE NODE TO 60 BYTES
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 250
SYSTEM COMMON SUBROUTINES -- COPYRIGHT STATEMENT

  13312					; MACRO LIBRARY CALLS
  13313					;
  13314						.MCALL	.CRASH,DIR$,DMYG$
  13315						.MCALL	MTPI,MFPI,MTPS,MFPS,CALL,RETURN,.INH5,.ENB5
  13316						.MCALL	$DEF,F11DF$
  13317						.MCALL	.INH0,.ENB0,WSIG$S
  13318						.MCALL	.ENB,.INH,.ENB6,.INH6
  13319	043022					$DEF
  13320	043022					F11DF$
  13321
  13322					;	MSETRP == 1
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 251
SCOMM MODULE -- BITTBL (ASH/BIC/BIS SIMULATION)

  13324						.SBTTL	SCOMM MODULE -- BITTBL (ASH/BIC/BIS SIMULATION)
  13325
  13326	043022				BITTBL::
  13327	043022	000001 				.WORD	1
  13328	043024	000002 				.WORD	2
  13329	043026	000004 				.WORD	4
  13330	043030	000010 				.WORD	10
  13331	043032	000020 				.WORD	20
  13332	043034	000040 				.WORD	40
  13333	043036	000100 				.WORD	100
  13334	043040	000200 				.WORD	200
  13335	043042	000400 				.WORD	400
  13336	043044	001000 				.WORD	1000
  13337	043046	002000 				.WORD	2000
  13338	043050	004000 				.WORD	4000
  13339	043052	010000 				.WORD	10000
  13340	043054	020000 				.WORD	20000
  13341	043056	040000 				.WORD	40000
  13342	043060	100000 				.WORD	100000
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 252
SCOMM MODULE -- .CEFN   (CONVERT EFN)

  13344						.SBTTL	SCOMM MODULE -- .CEFN   (CONVERT EFN)
  13345
  13346					;+
  13347					; .CEFN -- SUBROUTINE TO CONVERT AN EVENT FLAG NUMBER INTO A FORM SUCH THAT
  13348					;	   IT MAY BE READ, SET, AND CLEARED VIA "BIT", "BIS", AND "BIC" INSTRUCTIONS.
  13349					;
  13350					; ALTERNATE ENTRY POINT ".CEFN3" THAT DETERMINES EFN WITHOUT DOING
  13351					; MOVE FROM PREVIOUS (MFPS)
  13352					;
  13353					; ENTRY CONDITIONS:
  13354					;
  13355					;	R1 -- ADDRESS OF A WORD CONTAINING
  13356					;	R3 -- EFN NUMBER (FOR .CEFN3 ENTRY ONLY)
  13357					;	      THE EVENT FLAG NUMBER, AND THE EFN CAN BE FETCHED
  13358					;	R5 -- ATL NODE ADDRESS OF ISSUING TASK (.CRTSK)
  13359					;
  13360					; CALLING SEQUENCE:
  13361					;
  13362					;	CALL	.CEFN
  13363					;
  13364					;	- OR -
  13365					;
  13366					;	CALL	.CEFN3
  13367					;
  13368					; EXIT CONDITIONS:
  13369					;
  13370					;	R3 -- BIT MASK SELECTING FLAG IN WORD
  13371					;	R2 -- ADDRESS OF WORD CONTAINING THE FLAG
  13372					;
  13373					;	IF AN EVENT FLAG IS NOT SPECIFIED (EFN=0),
  13374					;	BOTH R2 & R3 ARE RETURNED ZERO.
  13375					;
  13376					;	CONDITION CODES ARE SET PER "TST R3" AT RETURN
  13377					;
  13378					;	IF EFN IS OUT OF RANGE (<0 OR >64.) CONTROL IS TRANSFERRED
  13379					;	TO DIRECTIVE ERROR STATUS 'E.97'.
  13380					;
  13381					; REGISTERS ALTERED:
  13382					;
  13383					;	R2,R3
  13384					;-
  13385
  13386	043062				.CEFN::
  13387	043062	005002 				CLR	R2		; (CLEARED FOR DIVIDE AND ERROR RETURN)
  13388	043064					MFPS	@R1,R3
	043064	011103 				MOV	@R1,R3
  13389	043066				.CEFN3::
  13390	043066	042703 	177400 			BIC	#177400,R3
  13391	043072	001423 				BEQ	20$		; EFN=0 -- NO FLAG SPECIFIED
  13392	043074	020327 	000100 			CMP	R3,#64.		; IS EFN IN RANGE: 0-64.?
  13393	043100	101022 				BHI	X8X97		; NO -- RETURN STS=-97
  13394	043102	005303 				DEC	R3		; YES -- CONVERT EFN TO INDEX (0,2,4,6)
  13395									; IN R2, AND FLAG MASK IN R3.
  13396	043104					CALL	DIV216		; DIVIDE R2 BY 16
	043104	004737 	044036'			JSR	PC,DIV216
  13397	043110	006302 				ASL	R2
  13398	043112	006303 				ASL	R3		; FIND BIT MASK
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 252-1
SCOMM MODULE -- .CEFN   (CONVERT EFN)

  13399	043114	016303 	043022'			MOV	BITTBL(R3),R3
  13400	043120	020227 	000004 			CMP	R2,#4		; FLAG IN RANGE 33-64?
  13401	043124	002403 				BLT	10$
  13402	043126	062702 	001004'			ADD	#.COMEF-4,R2	; YES -- SET R2 TO ADDRESS OF WORD IN
  13403	043132	000403 				BR	20$		; SCOMM (COMMON EVENT FLAGS)
  13404						;
  13405	043134				10$:
  13406	043134	060502 				ADD	R5,R2		; NO -- SET R2 TO ADDRESS OF WORD IN
  13407	043136	062702 	000020 			ADD	#A.EF,R2	; ATL NODE (TASK'S EVENT FLAGS)
  13408	043142				20$:
  13409	043142	005703 				TST	R3		; SET CONDITION CODES
  13410	043144					RETURN
	043144	000207 				RTS	PC
  13411
  13412	043146				X8X97::
  13413	043146	104637 				TRAP	DE.97
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 253
SCOMM MODULE -- .CKDEL  (CLOCK DELETE)

  13415						.SBTTL	SCOMM MODULE -- .CKDEL  (CLOCK DELETE)
  13416
  13417					;+
  13418					; .CKDEL -- SUBROUTINE TO REMOVE AN ENTRY FORM THE CLOCK LIST
  13419					;
  13420					; ENTRY CONDITIONS:
  13421					;
  13422					;	R4 -- POINTER TO ENTRY TO BE REMOVED
  13423					;
  13424					; CALLING SEQUENCE:
  13425					;
  13426					;	CALL	.CKDEL
  13427					;
  13428					; EXIT CONDITIONS:
  13429					;
  13430					;	NO ERROR CONDITIONS
  13431					;
  13432					;	REGISTERS ALTERED: NONE
  13433					;-
  13434
  13435						.ENABL	LSB
  13436
  13437	043150				.CKDEL::
  13438	043150	010446 				MOV	R4,-(SP)	; SAVE REGISTERS
  13439	043152	010546 				MOV	R5,-(SP)
  13440	043154	010405 				MOV	R4,R5
  13441	043156	062705 	000014 			ADD	#C.SZ,R5	; LOOK AT THE NEXT ENTRY
  13442	043162				10$:
  13443	043162	012524 				MOV	(R5)+,(R4)+	; NO -- MOVE AN ENTRY UP
  13444	043164	001406 				BEQ	30$		; END OF TABLE
  13445	043166	012524 				MOV	(R5)+,(R4)+
  13446	043170	012524 				MOV	(R5)+,(R4)+
  13447	043172	012524 				MOV	(R5)+,(R4)+
  13448	043174	012524 				MOV	(R5)+,(R4)+
  13449	043176	012524 				MOV	(R5)+,(R4)+
  13450	043200	000770 				BR	10$		; TRY AGAIN
  13451						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 254
SCOMM MODULE -- .CKDEL  (CLOCK DELETE)

  13487
  13488	043202				30$:
  13489	043202	005024 				CLR	(R4)+		; INSURE LAST ENTRY 0
  13490	043204	012605 				MOV	(SP)+,R5	; RESTORE
  13491	043206	012604 				MOV	(SP)+,R4
  13492	043210					RETURN			; RETURN TO CALLER
	043210	000207 				RTS	PC
  13494
  13495						.DSABL	LSB
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 255
SCOMM MODULE -- ..ERLG	(ERROR LOGGING)

  13497						.SBTTL	SCOMM MODULE -- ..ERLG	(ERROR LOGGING)
  13498
  13499					;+
  13500					; ..ERLG -- GENERAL ERROR LOGGING ROUTINE
  13501					;
  13502					; THIS SUBROUTINE WILL TRANSMIT ENTRIES IN A PARTICULAR ERROR LOGGING QUEUE
  13503					; TO THE KL.  THE FORMAT FOR AN ERROR LOGGING QUEUE LISTHEAD IS:
  13504					;
  13505					;	.WORD	ADDR		; ADDRESS OF FIRST NODE IN QUEUE
  13506					;	.WORD	COUNT		; COUNT OF NODES IN QUEUE
  13507					;
  13508					; INPUTS:
  13509					;
  13510					;	R3 -- DEVICE CODE FOR DEVICE TO BE ERROR LOGGED
  13511					;	R4 -- ADDRESS OF ERROR LOG QUEUE LISTHEAD
  13512					;
  13513					; OUTPUTS:
  13514					;
  13515					;	R0,R1,R2 -- CLOBBERED
  13516					;
  13517					; NOTE:
  13518					;
  13519					;	THIS ROUTINE MUST BE CALLED FROM TASK LEVEL
  13520					;-
  13521
  13522	043212				..ERLG::
  13523	043212	005737 	001012'			TST	.COMEF+2	; [4.1.1105] IS PRIMARY PROTOCOL RUNNING??
  13524	043216	100034 				BPL	40$		; [4.1.1105] NO -- JUST EXIT
  13525	043220	011400 				MOV	(R4),R0		; [5.1008] ANYTHING THERE??
  13526	043222	001432 				BEQ	40$		; [5.1008] NO -- EXIT
  13527	043224	032020 				BIT	(R0)+,(R0)+	; [5.1008] YES -- MOVE OVER THE LISTHEAD
  13528	043226	012702 	000001 			MOV	#1,R2		; [5.1008] SET UP EVENT FLAG
  13529	043232	012701 	100007 			MOV	#BC.HDS+BIT15,R1 ; [5.1008] SET UP FUNCTION CODE
  13530	043236					CALL	..STIN		; [5.1008] LOG THE ERROR
	043236	004737 	045646'			JSR	PC,..STIN
  13531	043242	103413 				BCS	30$		; [5.1008] ERROR IF CC-C IS SET
  13532	043244	013701 	001006'			MOV	.CRTSK,R1	; [5.1008] POINT TO CURRENT TASK
  13533	043250				10$:
  13534	043250	030261 	000020 			BIT	R2,A.EF(R1)	; [5.1008] HAS THE EVENT FLAG SET??
  13535	043254	001004 				BNE	20$		; [5.1008] YES -- GO ON
  13536	043256					WSIG$S			; [5.1008] NO -- WAIT A CLOCK TICK
	043256	012746 				MOV	(PC)+,-(SP)
	043260	   061 	   001 			.BYTE	49.,1
	043262	104375 				EMT	375
  13537	043264	000771 				BR	10$		; [5.1008] AND TRY AGAIN
  13538						;
  13539	043266				20$:
  13540	043266	040261 	000020 			BIC	R2,A.EF(R1)	; [5.1008] CLEAR THE EVENT FLAG
  13541	043272				30$:
  13542	043272	034040 				BIT	-(R0),-(R0)	; [5.1008] BACK OVER THE LISTHEAD
  13543	043274	011014 				MOV	(R0),(R4)	; [5.1008] REMOVE FROM LIST
  13544	043276	005364 	000002 			DEC	2(R4)		; [5.1008] COUNT THIS NODE OUT
  13545	043302					CALL	..DECN		; [5.1008] AND DEQUEUE THE NODE
	043302	004737 	044546'			JSR	PC,..DECN
  13546	043306	000741 				BR	..ERLG		; [5.1008] AND SEE ABOUT OTHER ERRORS
  13547						;
  13548	043310				40$:
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 255-1
SCOMM MODULE -- ..ERLG	(ERROR LOGGING)

  13549	043310					RETURN			; [5.1008] TO CALLER
	043310	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 256
SCOMM MODULE -- ..IODN	(SUBROUTINE TO COMPLETE I/O)

  13551						.SBTTL	SCOMM MODULE -- ..IODN	(SUBROUTINE TO COMPLETE I/O)
  13552
  13553					;+
  13554					;
  13555					; ..IODN -- SUBROUTINE TO COMPLETE THE USER'S I/O
  13556					;	    REQUEST.  ..IODN SETS TWO WORDS OF
  13557					;	    THE I/O STATUS BLOCK IN THE USER'S AREA AND
  13558					;	    AN EVENT FLAG (IF SPECIFIED) IS SET.
  13559					;	    THE REQUEST NODE IS RETURNED TO THE POOL .
  13560					;
  13561					; JUST BEFORE ..IODN EXITS IT DECLARES A SIG EVENT TO INFORM THE
  13562					; SYSTEM THAT SOME I/O IS COMPLETE AND IF POSSIBLE A TASK MAY BE RESTARTED.
  13563					;
  13564					; CALLING SEQUENCE:
  13565					;
  13566					;		R1 -- REQUEST NODE ADDRESS
  13567					;		R3 -- I/O STATUS BLOCK WD. 00
  13568					;		R4 -- I/O STATUS BLOCK WD. 01.
  13569					;
  13570					;		CALL	..IODN
  13571					;-
  13572
  13573	043312				..IODN::
  13574	043312	010046 				MOV	R0,-(SP)	; SAVE THE REGISTERS
  13575	043314	010446 				MOV	R4,-(SP)
  13576									; STATUS SO THAT THEY CAN BE SET BY BLXO
  13577	043316	010346 				MOV	R3,-(SP)
  13578	043320	010604 				MOV	SP,R4		; POINT TO THE TWO VALUES FOR I/O STATUS BLOCK
  13579	043322	010246 				MOV	R2,-(SP)
  13580	043324	012703 	000004 			MOV	#4,R3		; SET UP TO MOVE 4 BYTES
  13581	043330	016102 	000016 			MOV	R.SB(R1),R2
  13582	043334	001402 				BEQ	10$		; SKIP IF NO STATUS BLOCK
  13583	043336					CALL	..BLXO		; MOVE THE TWO WORDS
	043336	004737 	047074'			JSR	PC,..BLXO
  13584	043342				10$:
  13585	043342	012602 				MOV	(SP)+,R2	; RESTORE R2
  13586	043344	012603 				MOV	(SP)+,R3
  13587	043346	116100 	000013 			MOVB	R.FN(R1),R0	; PICKUP EVENT FLAG NUMBER
  13588	043352	001404 				BEQ	20$		; DON'T TRY TO SET IF NO FLAG
  13589	043354	016104 	000006 			MOV	R.AT(R1),R4	; FIND THE ATL NODE ADDRESS
  13590	043360					CALL	..SEFN		; SET THE EVENT FLAG
	043360	004737 	043754'			JSR	PC,..SEFN
  13591	043364				20$:
  13592	043364					CALL	..DSEV		;  DECLARE A SIGNIFICANT EVENT
	043364	004737 	044026'			JSR	PC,..DSEV
  13593	043370	016104 	000020 			MOV	R.AS(R1),R4	; AST ADDRESS?
  13594	043374	001406 				BEQ	30$		; NO -- FORGET IT
  13595	043376	010546 				MOV	R5,-(SP)	; SAVE R5
  13596	043400	016105 	000006 			MOV	R.AT(R1),R5	; SET UP THE ATL ADDRESS
  13597	043404					CALL	.STAST		; START AST (NOTE -- CAN'T FAIL)!!
	043404	004737 	015730'			JSR	PC,.STAST
  13598	043410	012605 				MOV	(SP)+,R5	; RESTORE R5
  13599	043412				30$:
  13600	043412	010100 				MOV	R1,R0		; SET UP NODE ADDRESS
  13601	043414	012701 	000040 			MOV	#32.,R1		; SET UP SIZE OFNODE
  13602	043420					CALL	..DECB		; DEALLOCATE CORE BUFFER
	043420	004737 	044552'			JSR	PC,..DECB
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 256-1
SCOMM MODULE -- ..IODN	(SUBROUTINE TO COMPLETE I/O)

  13603	043424	012604 				MOV	(SP)+,R4
  13604	043426	012600 				MOV	(SP)+,R0
  13605	043430					RETURN
	043430	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 257
SCOMM MODULE -- ..DQRN	(DEQUEUE A NORMAL REQUEST)

  13607						.SBTTL	SCOMM MODULE -- ..DQRN	(DEQUEUE A NORMAL REQUEST)
  13608
  13609					;+
  13610					; ..DQRN -- ROUTINE TO PICK A REQEST NODE FROM PUD
  13611					;
  13612					; THE NODE ON THE TOP IF THE QUEUE (HIGHEST PRIORITY) IS
  13613					; PICKED FROM THE QUEUE AND RETURNED TO THE HANDLER TASK.
  13614					;
  13615					; IF NO NODE CAN BE FOUND ..DQRN RETURNS WITH THE CONDITION CODES
  13616					; SET TO INDICATE FAILURE TO PICK A NODE.
  13617					;
  13618					; TASK SWITCHING IS INHIBITED DURING THE SCAN OF THE DEQUE TO PREVENT
  13619					; ..IPRI FROM INSERTING A NODE INTO THE LIST WHILE ONE IS BEING REMOVED.
  13620					;
  13621					; CALLING SEQUENCE:
  13622					;
  13623					;	R0 -- ASCII 2 CHARACTER DEVICE NAME
  13624					;
  13625					;	CALL	..DQRN
  13626					;
  13627					; EXIT CONDITIONS:
  13628					;
  13629					;	R0 -- PUD ADDRESS OF NODE PICKED+U.RF
  13630					;	R1 -- ADDRESS OF REQUEST NODE OR UNDEFINED IF NO NODE FOUND
  13631					;	R2 -- UNIT NUMBER
  13632					;	R3 -- BYTE COUNT
  13633					;	R4 -- HIGH ORDER ADDRESS (BITS 4,5)
  13634					;	R5 -- LOW ORDER ADDRESS
  13635					;
  13636					;	CC -- C BIT SET IF NO NODE FOUND
  13637					;	CC -- C BIT CLEAR IF NODE FOUND
  13638					;
  13639					;	EVENT FLAG EF.NIR CLEARED IF NO NODE FOUND
  13640					;	EVENT FLAG EF.NIR SET IF NODE FOUND
  13641					;-
  13642
  13643	043432				..DQRN::
  13644	043432	013701 	001006'			MOV	.CRTSK,R1	; CLEAR THE EVENT FLAG OF THE HANDLER
  13645	043436	042761 	000010 	000020 		BIC	#EF.NIR,A.EF(R1)
  13646	043444	012704 	010232'			MOV	#.PUDBA,R4	; FIND THE LOGICAL UNIT NUMBER
  13647	043450				10$:
  13648	043450	020014 				CMP	R0,@R4		; FIND THE POINTER TO THIS LUN
  13649	043452	001403 				BEQ	20$		; FOUND CORRECT LUN
  13650	043454	062704 	000050 			ADD	#U.SZ,R4	; POINT TO NEXT LUN
  13651	043460	000773 				BR	10$		; AND TRY AGAIN
  13652						;
  13653	043462				20$:
  13654	043462	062704 	000022 			ADD	#U.RF,R4	; NO -- DEQUE FIRST NODE
  13655	043466					.INH0			;; INHIBIT TASK SWITCHING
	043466	013746 	177776 			MOV	@#PS,-(SP)
	043472	112737 	000140 	177776 		MOVB	#140,@#PS
  13656	043500				30$:
  13657	043500	010446 				MOV	R4,-(SP)	;; SAVE ADDRESS
  13658	043502					CALL	..PICK		;; PICK A NODE IF POSSIBLE
	043502	004737 	044240'			JSR	PC,..PICK
  13659	043506	103011 				BCC	40$		;; POSSIBLE -- CONTINUE
  13660	043510	012604 				MOV	(SP)+,R4	;; RESTORE PUD ADDRESS
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 257-1
SCOMM MODULE -- ..DQRN	(DEQUEUE A NORMAL REQUEST)

  13661	043512	062704 	000050 			ADD	#U.SZ,R4	;; LOOK AT NEXT ENTRY
  13662	043516	026464 	177756 	177706 		CMP	-U.RF(R4),-U.RF-U.SZ(R4) ; CHECK DEVICE NAME
  13663	043524	001765 				BEQ	30$
  13664	043526	005216 				INC	@SP		;; SET CARRY
  13665	043530	000466 				BR	65$		;; AND RETURN
  13666						;
  13667	043532				40$:
  13668	043532	010401 				MOV	R4,R1		;; SET UP NODE ADDRESS FOR RETURN
  13669	043534	016102 	000004 			MOV	R.TD(R1),R2	;; YES -- CHHANGE THE DISK ADDRESS
  13670	043540	013704 	001006'			MOV	.CRTSK,R4	;; SET THE EVENT FLAG
  13671	043544	016105 	000014 			MOV	R.FC(R1),R5	;; FIND THE FUNCTION CODE
  13672	043550	020527 	001400 			CMP	R5,#IO.ATT	;; ATTACH FUNCTION??
  13673	043554	001457 				BEQ	70$		;; YES -- HANDLE ATTACH HERE
  13674	043556	020527 	002000 			CMP	R5,#IO.DET	;; NO -- DETACH ??
  13675	043562	001470 				BEQ	80$		;; YES -- HANDLE HERE
  13676	043564	022705 	001010 			CMP	#IO.LOV,R5	;; NO -- IS THE FUNCTION CODE LOAD OVERLAY??
  13677	043570	001013 				BNE	50$		;; NO -- PROCEED
  13678	043572	066261 	000034 	000034 		ADD	S.DL+2(R2),R.PB+10(R1)
  13679	043600	005561 	000032 			ADC	R.PB+6(R1)
  13680	043604	066261 	000032 	000032 		ADD	S.DL(R2),R.PB+6(R1)
  13681	043612				45$:
  13682	043612	012761 	001000 	000014 		MOV	#IO.RLB,R.FC(R1) ; SET FUNCTION CODE TO READ LOGICAL BLOCK
  13683	043620				50$:
  13684	043620	022761 	000050 	000014 		CMP	#IO.LTK,R.FC(R1) ;; IS THIS A LOAD TASK FUNCTION?
  13685	043626	001013 				BNE	60$		;;  PROCEED
  13686	043630	016202 	000012 			MOV	S.BA(R2),R2	;; SET THE CORE ADDRESS
  13693	043634	010261 	000024 			MOV	R2,R.PB(R1)	;; SET CORE ADDRESS
  13694	043640	016102 	000006 			MOV	R.AT(R1),R2	;; FIND THE ATL NODE ADDRESS
  13695	043644	062702 	000030 			ADD	#A.FM+4,R2	;; SET I/O STATUS WORD TO POINT TO A.FM+4
  13696	043650	010261 	000016 			MOV	R2,R.SB(R1)	;;
  13697	043654	000756 				BR	45$		;; CHANGE FUNCTION TO READ
  13698						;
  13699	043656				60$:
  13700	043656	052764 	000010 	000020 		BIS	#EF.NIR,A.EF(R4) ;; FOR DQ NORMAL
  13701	043664	016103 	000026 			MOV	R.PB+2(R1),R3	;; FIND THE SIZE OF THE XFER
  13702	043670	016102 	000024 			MOV	R.PB(R1),R2	;; SET UP FOR VALIDATE
  13703	043674					CALL	..VXFR		;; VALIDATE XFER
	043674	004737 	047054'			JSR	PC,..VXFR
  13704	043700	012600 				MOV	(SP)+,R0	;; FIND THE PUD ADDRESS
  13705	043702	116002 	177760 			MOVB	U.UN-U.RF(R0),R2 ;; SET UNIT NUMBER ON STACK
  13706	043706				65$:
  13707	043706					.ENB0			;; ENABLE INTERRUPTS
	043706	004737 	044302'			JSR	PC,..ENB0
  13708	043712					RETURN			; NO -- RETURN
	043712	000207 				RTS	PC
  13709	043714				70$:
  13710	043714	012604 				MOV	(SP)+,R4	;; RESTORE PUD ADDRESS
  13711	043716	016164 	000006 	177772 		MOV	R.AT(R1),U.AF-U.RF(R4)	;; SET ATTACH FLAG
  13712	043724				75$:
  13713	043724					.ENB0			;; ENABLE TASK SWITCHING
	043724	004737 	044302'			JSR	PC,..ENB0
  13714	043730	012703 	000001 			MOV	#1,R3		; RETURN +1 STATUS
  13715	043734	005004 				CLR	R4
  13716	043736					CALL	..IODN
	043736	004737 	043312'			JSR	PC,..IODN
  13717	043742	000633 				BR	..DQRN		; DEQUEUE AGAIN
  13718						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 257-2
SCOMM MODULE -- ..DQRN	(DEQUEUE A NORMAL REQUEST)

  13719	043744				80$:
  13720	043744	012604 				MOV	(SP)+,R4	;; RESTORE PUD ADDRESS
  13721	043746	005064 	177772 			CLR	U.AF-U.RF(R4)	;; CLEAR ATTACH
  13722	043752	000764 				BR	75$		;; AND RETURN I/O DONE STATUS
  13723						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 258
SCOMM MODULE -- ..SEFN	(SET EVENT FLAG)

  13725						.SBTTL	SCOMM MODULE -- ..SEFN	(SET EVENT FLAG)
  13726
  13727					;+
  13728					; ..SEFN -- SUBROUTINE TO SET AN EVENT FLAG FOR A HANDLER TASK.
  13729					;	    THIS IS A GENERAL ROUTINE TO SET ANY EVENT FLAG AND
  13730					;	    MAY BE USED BY A HANDLER TASK AT INTERRUPT LEVEL.
  13731					;	    THE MAIN PURPOSE OF THIS ROUTINE IS TO
  13732					;	    SET THE REQUESTOR'S EVENT FLAG FOR ..IODN.
  13733					;
  13734					; CALLING SEQUENCE:
  13735					;
  13736					;	R0 -- EVENT FLAG NUMBER 1-64
  13737					;	R4 -- ACTIVE TASK LIST ENTRY
  13738					;
  13739					;	CALL	..SEFN
  13740					;-
  13741
  13742	043754				..SEFN::
  13743	043754	010246 				MOV	R2,-(SP)	; SAVE USED REGISTERS
  13744	043756	010346 				MOV	R3,-(SP)
  13745	043760	010003 				MOV	R0,R3		;
  13746	043762	005303 				DEC	R3		; DECREMENT FOR 1 LESS THAN COUNT
  13747									; CONVERT EFN TO INDEX AND
  13748	043764					CALL	DIV216		; FLAG MASK
	043764	004737 	044036'			JSR	PC,DIV216
  13749	043770	006302 				ASL	R2
  13750	043772	006303 				ASL	R3		; FIND BIT MASK ADDRESS
  13751	043774	020227 	000004 			CMP	R2,#4		; TEST FOR COMMON SET
  13752	044000	002403 				BLT	10$		; NO -- FLAGS IN ATL
  13753	044002	062702 	001004'			ADD	#.COMEF-4,R2	; YES -- POINT TO COMMON FLAGS
  13754	044006	000403 				BR	20$
  13755						;
  13756	044010				10$:
  13757	044010	060402 				ADD	R4,R2		; POINT TO ATL SET
  13758	044012	062702 	000020 			ADD	#A.EF,R2
  13759	044016				20$:
  13760	044016	056312 	043022'			BIS	BITTBL(R3),@R2	; SET EVENT FLAGS
  13761	044022	012603 				MOV	(SP)+,R3
  13762	044024	012602 				MOV	(SP)+,R2
  13763					;	BR	..DSEV		; DECLARE A SIGNIFICANT EVENT
  13764						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 259
SCOMM MODULE -- ..DSEV	(DECLARE SIGNIFICANT EVENT)

  13766						.SBTTL	SCOMM MODULE -- ..DSEV	(DECLARE SIGNIFICANT EVENT)
  13767
  13768					;+
  13769					; ..DSEV -- COMMON ROUTINE TO DECLARE A SIGNIFICANT EVENT
  13770					;
  13771					; INPUTS:
  13772					;
  13773					;	SPECIFIC EVENT MUST BE DECLARED BY CALLER
  13774					;
  13775					; OUTPUTS:
  13776					;
  13777					;	NO REGISTERS ALTERED
  13778					;-
  13779
  13780	044026				..DSEV::
  13781	044026	152737 	000001 	001014'		BISB	#EV.SE,.SERFG+0	; DECLARE SIGNIFIGANT EVENT
  13782	044034					RETURN			; RETURN
	044034	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 260
SCOMM MODULE -- DIV216   (DIV R2 BY 16)

  13784						.SBTTL	SCOMM MODULE -- DIV216   (DIV R2 BY 16)
  13785
  13786					;+
  13787					; DIV216 -- SUBROUTINE TO SIMULATE A HARDWARE
  13788					;	    DIVIDE INSTRUCTION (DIV #16,R2)
  13789					;
  13790					; CALLING SEQUENCE:
  13791					;
  13792					;	R3 -- NUMBER TO BE DIVIDED BY 16
  13793					;
  13794					;	CALL	DIV216
  13795					;
  13796					; EXIT CONDITIONS:
  13797					;
  13798					;	R3 -- REMAINDER
  13799					;	R2 -- QUOTIENT
  13800					;-
  13801
  13802	044036				DIV216::
  13803	044036	010302 				MOV	R3,R2		; FIND THE REMAINDER
  13804	044040	042703 	177760 			BIC	#177760,R3	; MASK OFF THE REMAINDER
  13805	044044	006002 				ROR	R2		; DIVIDE R2 BY 2
  13806	044046	006002 				ROR	R2		; AGAIN
  13807	044050	006002 				ROR	R2		; AND AGAIN
  13808	044052	006002 				ROR	R2		; NOW HAVE DONE IT BY 16.
  13809	044054	042702 	170000 			BIC	#170000,R2	; MASK OFF JUNK PROPIGATED BY ROR
  13810	044060					RETURN			; RETURN TO CALLER
	044060	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 261
SCOMM MODULE -- ..NDEL	(NODE DELETE)

  13812						.SBTTL	SCOMM MODULE -- ..NDEL	(NODE DELETE)
  13813
  13814					;+
  13815					; ..NDEL -- ROUTINE TO DELETE A NODE FROM A LIST
  13816					;
  13817					;	THIS IS A BASIC SUBROUTINE TO DELETE NODES FROM A LIST.
  13818					;	IT DOES NOT DO ANY ACCOUNTING OR LOOKING THE NODE.  IT ASSUMES
  13819					;	THAT THERE IS A NODE TO BE PICKED AND INHIBITS INTERRUPTS TO
  13820					;	PREVENT CONFLICTS WITH NODES BEING ADDED TO A DEQUE.
  13821					;
  13822					;	CALLING SEQUENCE:
  13823					;
  13824					;		R4 -- POINTER TO NODE TO BE DELETED
  13825					;
  13826					;		CALL	..NDEL
  13827					;-
  13828
  13829	044062				..NDEL::
  13830	044062	010146 				MOV	R1,-(SP)	; SAVE R1
  13831	044064					.INH6			; INHIBIT ALL INTERRUPTS
	044064	013746 	177776 			MOV	@#PS,-(SP)
	044070	112737 	000300 	177776 		MOVB	#300,@#PS
  13832	044076	011401 				MOV	@R4,R1		;;; PICK THE NODE
  13833	044100	010174 	000002 			MOV	R1,@2(R4)	;;;
  13834	044104	016461 	000002 	000002 		MOV	2(R4),2(R1)	;;;
  13835	044112					.ENB6			;;; ENABLE INTERRUPTS
	044112	012637 	177776 			MOV	(SP)+,@#PS
  13836	044116	012601 				MOV	(SP)+,R1	; RESTORE R1
  13837	044120					RETURN			; RETURN TO CALLER
	044120	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 262
SCOMM MODULE -- ..IPRI	(INSERT NODE BY PRIORITY)

  13839						.SBTTL	SCOMM MODULE -- ..IPRI	(INSERT NODE BY PRIORITY)
  13840
  13841					;+
  13842					; ..IPRI -- ROUTINE TO INSERT A NODE BY PRIORITY
  13843					;
  13844					;	THIS ROUTINE WILL SEARCH A QUEUE (TASK SWITCHING INHIBITED)
  13845					;	AND INSERT A NODE IN IT'S CORRECT PRIORITY POSITION.  IF THERE
  13846					;	IS A NODE IN THE LIST WITH THE SAME PRIORITY AS THE ONE TO BE
  13847					;	INSERTED THE NEW NODE WILL COME AFTER THE OTHER NODES WITH THE
  13848					;	SAME PRIORITY (FIFO).
  13849					;
  13850					;	..IPRI EXPECTS THE NODE TO HAVE A PRIORITY IN THE COMMON NODE
  13851					;	PRIORITY POSITION.
  13852					;
  13853					; CALLING SEQUENCE:
  13854					;
  13855					;	R1 -- NODE ADDRESS
  13856					;	R2 -- LIST HEAD
  13857					;
  13858					;	CALL	..IPRI
  13859					;-
  13860
  13861	044122				..IPRI::
  13862	044122	010446 				MOV	R4,-(SP)	; SAVE R4
  13863	044124	010204 				MOV	R2,R4		; PICK UP THE POINTER TO THE LIST HEAD
  13864	044126					.INH0			; INHIBIT ALL INTERRUPTS DURING SCAN
	044126	013746 	177776 			MOV	@#PS,-(SP)
	044132	112737 	000140 	177776 		MOVB	#140,@#PS
  13865	044140				10$:
  13866	044140	011404 				MOV	@R4,R4		;; PICK UP THE FIRST NODE
  13867	044142	020402 				CMP	R4,R2		;; END OF THE SCAN?
  13868	044144	001404 				BEQ	20$		;; YES -- INSERT THE NODE
  13869	044146	126461 	000010 	000010 		CMPB	N.PR(R4),N.PR(R1) ;; NO -- LOOK AT THE PRIORITIES
  13870	044154	103371 				BHIS	10$		;; NO MATCH TRY AGAIN
  13871	044156				20$:
  13872	044156	016404 	000002 			MOV	N.BP(R4),R4	;; BACK UP ONE
  13873	044162					CALL	..NADD		;; ADD THE NODE TO THE QUEUE
	044162	004737 	044176'			JSR	PC,..NADD
  13874	044166					.ENB0			;; ENABLE INTERRUPTS
	044166	004737 	044302'			JSR	PC,..ENB0
  13875	044172	012604 				MOV	(SP)+,R4	; RESTORE R4
  13876	044174					RETURN			; RETURN TO CALLER
	044174	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 263
SCOMM MODULE -- ..NADD	(NODE ADD)

  13878						.SBTTL	SCOMM MODULE -- ..NADD	(NODE ADD)
  13879
  13880					;+
  13881					; ..NADD -- ROUTINE TO ADD A NODE TO A DEQUEUE
  13882					;
  13883					;	..NADD IS THE GENERAL PICK A NODE ROUTINE.  THE ADDITION
  13884					;	OF A NODE IS DONE WITH INTERRUPTS INHIBITED TO PREVENT
  13885					;	A CONFLICT WITH NODE DELETION.
  13886					;
  13887					; CALLING SEQUENCE:
  13888					;
  13889					;	R1 -- NODE ADDRESS
  13890					;	R4 -- ADDRESS OF LISTHEAD OR PREVIOUS NODE
  13891					;
  13892					;	CALL	..NADD
  13893					;-
  13894
  13895	044176				..NADD::
  13896	044176	010246 				MOV	R2,-(SP)	; SAVE R2
  13897	044200	010461 	000002 			MOV	R4,2(R1)	; SET UP BACKWARD POINTER IN NODE
  13898	044204					.INH6			;;; INHIBIT INTERRUPTS
	044204	013746 	177776 			MOV	@#PS,-(SP)
	044210	112737 	000300 	177776 		MOVB	#300,@#PS
  13899	044216	011411 				MOV	@R4,@R1		;;; SET UP FORWARD POINTER
  13900	044220	010114 				MOV	R1,@R4		;;; FORWARD POINTER FROM LIST HEAD
  13901	044222	011102 				MOV	@R1,R2		;;;
  13902	044224	010162 	000002 			MOV	R1,2(R2)	;;;
  13903	044230					.ENB6			;;; ENABLE INTERRUPTS
	044230	012637 	177776 			MOV	(SP)+,@#PS
  13904	044234	012602 				MOV	(SP)+,R2	; RESTORE R2
  13905	044236					RETURN			; RETURN TO CALLER
	044236	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 264
SCOMM MODULE -- ..PICK	(PICK A NODE)

  13907						.SBTTL	SCOMM MODULE -- ..PICK	(PICK A NODE)
  13908
  13909					;+
  13910					; ..PICK -- ROUTINE TO PICK A NODE FROM A DEQUEUE
  13911					;
  13912					;	..PICK IS THE GENERAL PICK A NODE ROUTINE.  IT'S PRIMARY USE IS TO
  13913					;	PICK A NODE FROM A LIST.  IT CHECKS TO SEE THAT A NODE DOES EXIST
  13914					;	IN THE LIST BUT IT DOES NO ACCOUNTING OF THE NODES.  ..PICK INHIBITS
  13915					;	INTERRUPTS TO PREVENT A NODE FROM BEING ADDED WHILE IT CHECKS TO SEE
  13916					;	IF THERE IS REALLY A NODE TO BE PICKED.
  13917					;
  13918					; CALLING SEQUENCE:
  13919					;
  13920					;	R4 -- LIST HEAD OR PREVIOUS NODE TO THE NODE TO BE PICKED
  13921					;
  13922					;	CALL	..PICK
  13923					;
  13924					; EXIT CONDITIONS:
  13925					;
  13926					;	CC -- C BIT CLEAR
  13927					;	R4 -- PICKED NODE ADDRESS
  13928					;
  13929					; ERROR CONDITIONS:
  13930					;
  13931					;	CC -- C BIT SET
  13932					;		NOTE -- THIS CONDITION CAN'T HAPPEN UNLESS R4 IS THE LISTHEAD
  13933					;	R4 -- ZERO
  13934					;-
  13935
  13936	044240				..PICK::
  13937	044240	000241 				CLC			; ASSUME SUCCESS
  13938	044242					.INH6			;;; INHIBIT ALL INTERRPUTS
	044242	013746 	177776 			MOV	@#PS,-(SP)
	044246	112737 	000300 	177776 		MOVB	#300,@#PS
  13939	044254	020414 				CMP	R4,@R4		;;; IS THERE A NODE TO PICK?
  13940	044256	001406 				BEQ	20$		;;; NO -- THEN DON'T PICK IT
  13941	044260	011404 				MOV	@R4,R4		;;;
  13942	044262					CALL	..NDEL		;;; DELETE THE NODE
	044262	004737 	044062'			JSR	PC,..NDEL
  13943	044266				10$:
  13944	044266					.ENB6			;;; ENABLE INTERRUPTS
	044266	012637 	177776 			MOV	(SP)+,@#PS
  13945	044272					RETURN			; RETURN TO CALLER
	044272	000207 				RTS	PC
  13946	044274				20$:
  13947	044274	005004 				CLR	R4		; NO NODE FOUND CLEAR RETURNED VALUE
  13948	044276	005216 				INC	@SP		; SET C BIT TO INDICATE ERROR
  13949	044300	000772 				BR	10$		; RETURN
  13950						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 265
SCOMM MODULE -- ..ENB0	(ENABLE TASK SWITCHING)

  13952						.SBTTL	SCOMM MODULE -- ..ENB0	(ENABLE TASK SWITCHING)
  13953
  13954					;+
  13955					; ..ENB0 -- ROUTINE TO ENABLE TASK SWITCHING
  13956					;
  13957					;	..ENB0 -- ENABLES TASK SWITCHING AND ALLOWS THE SYSTEM TO
  13958					;	UPDATE THE CLOCK AND RECOGNIZE SIGNIFIGANT EVENTS.  THIS
  13959					;	ROUTINE MUST BE ENTERED WITH THE PS SAVED ON THE TOP OF THE
  13960					;	STACK.  THE USUAL WAY OF SETTING UP TO USE THIS ROUTINE IS BY
  13961					;	USE OF THE .INH0 MACRO.
  13962					;
  13963					;	THIS ROUTINE WILL NOT ENABLE TASK SWITCHING IF THE PRIORITY SAVED
  13964					;	ON THE STACK DOES NOT INDICATE A RETURN TO PRIORITY 0.  I.E., NOT
  13965					;	ENTERED AT PROCESSOR PRIORITY LEVEL 3.
  13966					;
  13967					;	CALLING SEQUENCE:
  13968					;
  13969					;			CALL	..ENB0
  13970					;
  13971					; NOTE -- PS SAVED BY .INH0 MUST BE ON THE TOP OF THE STACK
  13972					;
  13973					;	.INH0 IS A MACRO DEFINED AS FOLLOWS:
  13974					;		.MACRO	.INH0
  13975					;			MOV	PS,-(SP)
  13976					;			BIS	#140,PS
  13977					;		.ENDM
  13978					;-
  13979
  13980	044302				..ENB0::
  13981	044302	010146 				MOV	R1,-(SP)	;;
  13982	044304	016601 	000004 			MOV	4(SP),R1	;; PICK UP THE STATUS WORD FROM THE STACK
  13983	044310	032701 	000340 			BIT	#340,R1		;; TEST THE STATUS RETURNING TO
  13984	044314	001003 				BNE	20$		;; IF RETURNING TO OTHER THAN 0 DON'T ENABLE TASK SWITCHING
  13985	044316				10$:
  13986	044316	010146 				MOV	R1,-(SP)	;; NEW STATUS WORD IN R1
  13987									;; PLACE IT ON THE STACK
  13988									;; TO SET UP FOR COMMON SCAN
  13989	044320	004737 	014632'			JSR	PC,..INTX	;; PUSH THE RETURN ADDRESS ON THE STACK
  13990	044324				20$:
  13991	044324	012601 				MOV	(SP)+,R1	; RESTORE R1 TO PRE-TASK SWITCHING STATE
  13992	044326	016637 	000002 	177776 		MOV	2(SP),@#PS	; SET UP THE NEW PROCESSOR STATUS
  13993	044334	000002 				RTI			; RTI POPS THE STACK TWICE AND RETURNS TO THE CALLER
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 266
SCOMM MODULE -- ..FSTD	(FIND STD ENTRY)

  13995						.SBTTL	SCOMM MODULE -- ..FSTD	(FIND STD ENTRY)
  13996
  13997					;+
  13998					; ..FSTD -- SUBROUTINE TO SEARCH THE SYSTEM TASK DIRECTORY FOR AN
  13999					;	    ENTRY FOR A NAMED TASK.
  14000					;
  14001					; ENTRY CONDITIONS:
  14002					;
  14003					;	R1 -- ADDRESS OF THE FIRST WORD OF A TWO WORD BLOCK CONTAINING A TASK
  14004					;	      NAME (RADIX-50), AND THE BLOCK CAN BE FETCHED
  14005					;
  14006					; CALLING SEQUENCE:
  14007					;
  14008					;	CALL  ..FSTD
  14009					;
  14010					; EXIT CONDITIONS:
  14011					;
  14012					;	R1 -- ADVANCED BY FOUR (2 WORDS),
  14013					;	R2 -- STD ENTRY ADDRESS, OR ZERO IF NAME NOT FOUND.
  14014					;	R3 -- 1 BEYOND ALPHA PLACE TO INSERT
  14015					;
  14016					;	CONDITION CODES SET PER "TST R2".
  14017					;-
  14018
  14019	044336				..FSTD::
  14020	044336	010546 				MOV	R5,-(SP)
  14021	044340	013703 	006334'			MOV	.STDTA,R3	; FIND THE BEGINNING
  14022	044344	010305 				MOV	R3,R5		; FIND THE END
  14023	044346	063705 	006340'			ADD	.STDTZ,R5
  14024	044352					MFPI	(R1)+		; FIND TASK NAME
	044352	012146 				MOV	(R1)+,-(SP)
  14025	044354					MFPI	(R1)+
	044354	012146 				MOV	(R1)+,-(SP)
  14026	044356				5$:
  14027	044356	012302 				MOV	(R3)+,R2
  14028	044360	021266 	000002 			CMP	@R2,2(SP)	; TASK NAME CORRECT?
  14029	044364	101007 				BHI	50$		; NO -- TRY NEXT ONE
  14030	044366	103404 				BLO	10$		; NO AND NOT HERE
  14031	044370	026216 	000002 			CMP	2(R2),@SP	; MAYBE CHECK SECOND HALF
  14032	044374	001404 				BEQ	30$		; GOT IT
  14033	044376	101002 				BHI	50$		; NO -- AND NOTHING THERE
  14034	044400				10$:
  14035	044400	020305 				CMP	R3,R5		; END OF LIST?
  14036	044402	101765 				BLOS	5$		; NO -- CONTUNUE
  14037	044404				50$:
  14038	044404	005002 				CLR	R2		; RETURN R2 0
  14039	044406				30$:
  14040	044406	022626 				CMP	(SP)+,(SP)+	; REMOVE NAME
  14041	044410	012605 				MOV	(SP)+,R5
  14042	044412	005702 				TST	R2		; RETURN CONDITIONS PER R2
  14043	044414				60$:
  14044	044414					RETURN			; RETURN TO CALLER
	044414	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 267
SCOMM MODULE -- ..ALCB/..ALC2	(ALLOCATE CORE)

  14046						.SBTTL	SCOMM MODULE -- ..ALCB/..ALC2	(ALLOCATE CORE)
  14047					;+
  14048					; ..ACLB -- SUBROUTINE TO ALLCOCATE A NODE FROM THE FREE POOL
  14049					;
  14050					; THIS ROUTINE IS CALLED TO ALLOCATE A CORE BUFFER. THE ALLOCATION
  14051					; ALGORITHM IS FIRST FIT AND BLOCKS ARE ALLOCATED IN MULTIPLES OF FOUR
  14052					; BYTES.
  14053					;
  14054					; INPUTS:
  14055					;
  14056					;	R0 -- ADDRESS OF CORE ALLOCATION LISTHEAD IF ENTRY AT ..ALC2.
  14057					;	R1 -- SIZE OF THE CORE BUFFER TO ALLOCATE IN BYTES.
  14058					;
  14059					; OUTPUTS:
  14060					;
  14061					;	CC-C SET IF INSUFFICIENT CORE IS AVAILABLE TO ALLOCATE THE BLOCK.
  14062					;
  14063					;	CC-C CLEAR IF THE BLOCK IS ALLOCATED.
  14064					;	R0 -- ADDRESS OF THE ALLOCATED BLOCK.
  14065					;	R1 -- SIZE OF THE ALLOCATED BLOCK
  14066					;-
  14067
  14068	044416				..ALCB::
  14069	044416	062701 	000003 			ADD	#3,R1		; MASK TO CORRECT SIZE
  14070	044422	042701 	000003 			BIC	#3,R1
  14074	044426	012700 	001420'			MOV	#.FREPL,R0	; POINT TO ALLOCATION LISTHEAD
  14075	044432				..ALC2::
  14076	044432	010346 				MOV	R3,-(SP)	; SAVE R3
  14077	044434	010246 				MOV	R2,-(SP)	; [4.1.1013] SAVE REGISTERS
  14078	044436	000241 				CLC			; [4.1.1013] ASSUME SUCCESS
  14079	044440					.INH6			; [4.1.1013] INHIBIT INTERRUPTS
	044440	013746 	177776 			MOV	@#PS,-(SP)
	044444	112737 	000300 	177776 		MOVB	#300,@#PS
  14080	044452	010003 				MOV	R0,R3		;;; [4.1.1013] COPY LISTHEAD POINTER TO R3
  14081	044454	160163 	000002 			SUB	R1,2(R3)	;;; [4.1.1013] CHECK TO SEE IF POOL OK
  14082	044460	100424 				BMI	40$		;;; [4.1.1013] FREE-POOL EXHAUSTED
  14083					;
  14084					; HERE TO SCAN FREE-POOL FOR A BLOCK
  14085					;
  14086	044462				10$:
  14087	044462	010002 				MOV	R0,R2		;;; SAVE ADDRESS OF CURRENT BLOCK
  14088	044464	011200 				MOV	@R2,R0		;;; GET ADDRESS OF NEXT BLOCK
  14089	044466	001421 				BEQ	40$		;;; IF EQ END OF CHAIN
  14090	044470	026001 	000002 			CMP	2(R0),R1	;;; BLOCK BIG ENOUGH?
  14091	044474	103772 				BLO	10$		;;; IF LO NO
  14092	044476	001407 				BEQ	20$		;;; IF EQ BLOCK IS EXACT SIZE
  14093					;
  14094					; HERE IF A LARGER BLOCK HAS BEEN FOUND
  14095					;
  14096	044500	005720 				TST	(R0)+		;;; POINT TO SIZE
  14097	044502	160110 				SUB	R1,@R0		;;; ALLOCATE BLOCK
  14098	044504	060001 				ADD	R0,R1		;;; POINT TO NEXT FREE SPACE
  14099	044506	011011 				MOV	@R0,@R1		;;; STORE NEW POINTER
  14100	044510	014041 				MOV	-(R0),-(R1)	;;; STORE ADDRESS
  14101	044512	010110 				MOV	R1,@R0		;;; STORE SIZE
  14102	044514	160001 				SUB	R0,R1
  14103					;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 267-1
SCOMM MODULE -- ..ALCB/..ALC2	(ALLOCATE CORE)

  14104					; HERE IF AN EXACT FIT HAS BEEN FOUND
  14105					;
  14106	044516				20$:
  14107	044516	011012 				MOV	@R0,@R2		;;; REMOVE BLOCK FROM LIST
  14124	044520				30$:
  14125	044520					.ENB6			;;; ENABLE INTERRUPTS AND SET EXIT CONDITIONS
	044520	012637 	177776 			MOV	(SP)+,@#PS
  14126	044524	012602 				MOV	(SP)+,R2	; RESTORE REGISTERS
  14127	044526	012603 				MOV	(SP)+,R3	; RESTORE R3
  14128	044530					RETURN			; RETURN WITH R0 POINTING TO CALLER'S NODE
	044530	000207 				RTS	PC
  14129					;
  14130					; HERE TO SET UP ERROR EXIT
  14131					;
  14132	044532				40$:
  14133	044532	005216 				INC	@SP		;;; SET CARRY
  14134	044534	060163 	000002 			ADD	R1,2(R3)	;;; RESET COUNTER
  14135	044540	000767 				BR	30$		;;; AND RETURN
  14136						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 268
SCOMM MODULE -- ..DECB/..DECN/..DEC2 (DEALLOCATE CORE)

  14138						.SBTTL	SCOMM MODULE -- ..DECB/..DECN/..DEC2 (DEALLOCATE CORE)
  14139
  14140					;+
  14141					; ..DECB -- SUBROUTINE TO RETURN A BLOCK TO THE FREE POOL
  14142					;
  14143					; THESE ROUTINES ARE CALLED TO DEALLOCATE AN EXEC CORE BUFFER.  THE BLOCK IS
  14144					; INSERTED INTO THE FREE BLOCK CHAIN BY CORE ADDRESS.  IF AN ADJACENT
  14145					; BLOCK IS CURRENTLY FREE, THEN THE TWO BLOCKS ARE MERGED AND INSERTED
  14146					; IN THE FREE BLOCK CHAIN.
  14147					;
  14148					; INPUTS:
  14149					;
  14150					;	R0 -- ADDRESS OF THE CORE BUFFER TO BE DEALLOCATED.
  14151					;	R1 -- SIZE OF THE CORE BUFFER TO DEALLOCATE IN BYTES.
  14152					;	R3 -- ADDRESS OF CORE ALLOCATION LISTHEAD IF ENTRY AT ..DEC2.
  14153					;
  14154					; OUTPUTS:
  14155					;
  14156					;	THE CORE BLOCK IS MERGED INTO THE FREE CORE CHAIN BY CORE
  14157					;	ADDRESS AND IS AGCOMERATED IF NECESSARY WITH ADJACENT BLOCKS.
  14158					;-
  14159
  14160						.ENABL	LSB
  14161
  14162	044542				..DEC2::
  14163	044542	010346 				MOV	R3,-(SP)	; SAVE REGISTERS
  14164	044544	000411 				BR	10$
  14165						;
  14166	044546				..DECN::
  14167	044546	016001 	000002 			MOV	T.HBCT(R0),R1	; PACKET SIZE TO R1
  14168	044552				..DECB::
  14169	044552	010346 				MOV	R3,-(SP)	; SAVE REGISTERS
  14170	044554	062701 	000003 			ADD	#3,R1		; ROUND OFF
  14171	044560	042701 	000003 			BIC	#3,R1
  14172	044564	012703 	001420'			MOV	#.FREPL,R3
  14173	044570				10$:
  14174	044570	010246 				MOV	R2,-(SP)
  14175	044572	010146 				MOV	R1,-(SP)
  14176	044574	010046 				MOV	R0,-(SP)
  14177	044576					.INH6			; INHIBIT INTERRUPTS
	044576	013746 	177776 			MOV	@#PS,-(SP)
	044602	112737 	000300 	177776 		MOVB	#300,@#PS
  14196	044610	060163 	000002 			ADD	R1,2(R3)	;;; [4.1.1104] UPDATE SIZE
  14197	044614				40$:
  14198	044614	010302 				MOV	R3,R2		;;; SAVE ADDRESS OF CURRENT BLOCK
  14199	044616	011203 				MOV	@R2,R3		;;; GET ADDRESS OF NEXT BLOCK
  14200	044620	001402 				BEQ	50$		;;; IF EQ END OF CHAIN
  14201	044622	020003 				CMP	R0,R3		;;; BLOCK GO HERE?
  14202	044624	103373 				BHIS	40$		;;; IF HIS NO
  14203	044626				50$:
  14204	044626	010310 				MOV	R3,@R0		;;; ASSUME NO AGLOMERATION
  14205	044630	010046 				MOV	R0,-(SP)	;;; CALCULATE ADDRESS OF NEW BLOCK
  14206	044632	060116 				ADD	R1,@SP		;;;
  14207	044634	020326 				CMP	R3,(SP)+	;;; EQUAL TO NEXT IN CHAIN?
  14208	044636	001002 				BNE	60$		;;; IF NE NO
  14209	044640	012310 				MOV	(R3)+,@R0	;;; MOVE LINK WORD TO BLOCK RELEASED
  14210	044642	061301 				ADD	@R3,R1		;;; MERGE TWO BLOCKS
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 268-1
SCOMM MODULE -- ..DECB/..DECN/..DEC2 (DEALLOCATE CORE)

  14211	044644				60$:
  14212	044644	010246 				MOV	R2,-(SP)	;;; SAVE ADDRESS OF PREVIOUS BLOCK
  14213	044646	010022 				MOV	R0,(R2)+	;;; ASSUME NO AGLOMERATION
  14214	044650	061216 				ADD	@R2,@SP		;;; CALCULATE ADDRESS OF NEXT BLOCK
  14215	044652	020026 				CMP	R0,(SP)+	;;; EQUAL TO BLOCK BEING RELEASED?
  14216	044654	001003 				BNE	70$		;;; IF NE NO
  14217	044656	061201 				ADD	@R2,R1		;;; MERGE TWO BLOCKS
  14218	044660	011042 				MOV	@R0,-(R2)	;;; MOVE LINK WORD TO PREVIOUS BLOCK
  14219	044662	010200 				MOV	R2,R0		;;; SET NEW ADDRESS OF BLOCK
  14220	044664				70$:
  14221	044664	010160 	000002 			MOV	R1,2(R0)	;;; SET SIZE OF BLOCK RELEASED
  14222	044670					.ENB6			;;; ENABLE INTERRUPTS
	044670	012637 	177776 			MOV	(SP)+,@#PS
  14223	044674	012600 				MOV	(SP)+,R0	; RESTORE REGISTERS
  14224	044676	012601 				MOV	(SP)+,R1
  14225	044700	012602 				MOV	(SP)+,R2
  14226	044702	012603 				MOV	(SP)+,R3
  14227	044704					RETURN
	044704	000207 				RTS	PC
  14228						.DSABL	LSB
  14229
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 269
SCOMM MODULE -- ..ALOW	(ALLOCATE OR WAIT)

  14235						.SBTTL	SCOMM MODULE -- ..ALOW	(ALLOCATE OR WAIT)
  14236
  14237					;+
  14238					;	..ALOW -- SUBROUTINE TO ALLOCATE A BUFFER (..ALCB) OR WAIT
  14239					;		  IF ONE IS NOT AVAILABLE
  14240					;
  14241					;CALLING SEQUENCE:
  14242					;
  14243					;	SAME AS ..ALCB (Q.V.)
  14244					;
  14245					;-
  14246
  14247	044706				..ALOW::
  14248	044706					CALL	..ALCB		; TRY TO ALLOCATE A CORE BUFFER
	044706	004737 	044416'			JSR	PC,..ALCB
  14249	044712	103004 				BCC	10$		; RETURN IF SUCCESSFUL
  14250	044714					WSIG$S			; WAIT FOR SIG EVENT
	044714	012746 				MOV	(PC)+,-(SP)
	044716	   061 	   001 			.BYTE	49.,1
	044720	104375 				EMT	375
  14251	044722	000771 				BR	..ALOW		; AND TRY AGAIN
  14252						;
  14253	044724				10$:
  14254	044724					RETURN			; RETURN TO CALLER
	044724	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 270
SCOMM MODULE -- ..STTY (START TERMINAL OUTPUT)

  14256						.SBTTL	SCOMM MODULE -- ..STTY (START TERMINAL OUTPUT)
  14257
  14258					;+
  14259					; ..STTY -- START TERMINAL OUTPUT
  14260					;
  14261					; THIS SUBROUTINE WILL ENTER A TERMINAL OUTPUT PACKET IN A TERMINAL'S THREAD
  14262					; LIST AND START THE LINE IF THIS IS REQUIRED.  IF THE REQUEST IS FOR THE CTY
  14263					; AND KLINIK IS ACTIVE IN REMOTE MODE, THE REQUEST WILL BE PROCESSED FOR BOTH
  14264					; THE REMOTE AND LOCAL CTYS.
  14265					;
  14266					; REQUESTS FOR SENDALL PACKETS ARE NOT QUEUED UP FOR DH-11S, RATHER THEY ARE
  14267					; LEFT IN THE SENDALL RING BUFFERS.  SENDALL PACKETS FOR DL-11S ARE SIMPLY
  14268					; QUEUED UP AS NORMAL OUTPUT BY THE SENDALL SERVICE.
  14269					;
  14270					; NORMAL OUTPUT PACKETS ARE NOT QUEUED UP, BUT IMMEDIATELY DEALLOCATED IF:
  14271					;
  14272					;	1. THE DEVICE DOES NOT EXIST.
  14273					;	2. THE DEVICE IS IN AUTO-BAUD WAIT.
  14274					;
  14275					; NORMAL OUTPUT PACKETS ARE NOT STARTED IF:
  14276					;
  14277					;	1. THE DEVICE IS ALREADY OUTPUT ACTIVE.
  14278					;	2. THE DEVICE IS X'D-OFF.
  14279					;	3. THE DEVICE IS A CTY IN PDP-11 I/O WAIT.
  14280					;
  14281					; SENDALL PACKETS ARE ALWAYS STARTED ON X'D-OFF LINES.  THIS ROUTINE ASSUMES
  14282					; THAT THE SENDALL SERVICE WILL NOT ATTEMPT TO START A SENDALL ON A LINE WHICH:
  14283					;
  14284					;	1. IS OUTPUT ACTIVE.
  14285					;	2. IS SUPPRESSING SENDALLS.
  14286					;	3. DOES NOT EXIST.
  14287					;	4. IS IN AUTO-BAUD WAIT.
  14288					;
  14289					; INPUTS:
  14290					;
  14291					;	R0 -- POINTS TO OUTPUT PACKET
  14292					;	R2 -- POINTS TO DATA LINE SCANNER TABLE ENTRY FOR THIS LINE
  14293					;	R4 -- POINTS TO QUEUED PROTOCOL PACKET CONTAINING REQUEST
  14294					;
  14295					; OUTPUTS:
  14296					;
  14297					;	NO REGISTERS ARE ALTERED
  14298					;-
  14299
  14300	044726				..STTY::
  14301	044726	010546 				MOV	R5,-(SP)	;;; SAVE REGISTERS
  14302	044730	010446 				MOV	R4,-(SP)
  14303	044732	010246 				MOV	R2,-(SP)
  14304	044734	010146 				MOV	R1,-(SP)
  14305	044736	010046 				MOV	R0,-(SP)
  14306	044740	010205 				MOV	R2,R5		;;; COPY DLS TABLE POINTER TO R5
  14307	044742	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS A CTY??
  14308	044750	001415 				BEQ	10$		;;; NO -- GO ON
  14309	044752	105737 	001226'			TSTB	.KLNSW+0	;;; YES -- IS REMOTE KLINIK ACTIVE??
  14310	044756	003412 				BLE	10$		;;; NO -- GO ON
  14311	044760	010004 				MOV	R0,R4		;;; [4.2265] YES -- COPY BUFFER
  14312	044762					CALL	COPBUF		;;; SO
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 270-1
SCOMM MODULE -- ..STTY (START TERMINAL OUTPUT)

	044762	004737 	027312'			JSR	PC,COPBUF
  14313	044766	013705 	002636'			MOV	KLNPTR,R5	;;; SUBSTITUTE KLINIK POINTER
  14314	044772					CALL	20$		;;; START THE KLINIK LINE
	044772	004737 	045024'			JSR	PC,20$
  14315	044776	016605 	000004 			MOV	4(SP),R5	;;; GET CTY POINTER
  14316	045002	011600 				MOV	(SP),R0		;;; [4.2265] AND THE BUFFER POINTER
  14317	045004				10$:
  14318	045004					CALL	20$		;;; START UP THE LINE
	045004	004737 	045024'			JSR	PC,20$
  14319	045010	012600 				MOV	(SP)+,R0	;;; RESTORE REGISTERS
  14320	045012	012601 				MOV	(SP)+,R1
  14321	045014	012602 				MOV	(SP)+,R2
  14322	045016	012604 				MOV	(SP)+,R4
  14323	045020	012605 				MOV	(SP)+,R5
  14324	045022					RETURN			;;; TO CALLER
	045022	000207 				RTS	PC
  14325					;
  14326					; HERE TO SEE IF A SENDALL MUST BE STARTED ON THIS LINE
  14327					;
  14328	045024				20$:
  14329	045024	005765 	000002 			TST	TTYEXP(R5)	;;; DOES THE DEVICE EXIST??
  14337	045030	001646 				BEQ	..DECN		;;; NO -- DEALLOCATE AND EXIT
  14339	045032	105060 	000007 			CLRB	T.HFCN(R0)	;;; CLEAR THE FUNCTION CODE
  14340	045036	020037 	002626'			CMP	R0,.CRSND	;;; IS THIS A SENDALL??
  14341	045042	001416 				BEQ	40$		;;; YES -- START IT UP
  14342					;
  14343					; HERE TO START NORMAL OUTPUT ON THIS LINE
  14344					;
  14345	045044	032765 	000010 	000006 		BIT	#TT.ABW,STSW1(R5) ;;; IS THIS LINE IN AUTO-BAUD WAIT??
  14349	045052	001235 				BNE	..DECN		;;; YES -- DEALLOCATE THE NODE AND EXIT
  14351	045054	010501 				MOV	R5,R1		;;; NO -- SET UP TO FIND END OF THREAD LIST
  14352	045056				30$:
  14353	045056	010102 				MOV	R1,R2		;;; COPY NODE POINTER TO R2
  14354	045060	011201 				MOV	(R2),R1		;;; FIND END OF LIST
  14355	045062	001375 				BNE	30$		;;; KEEP GOING
  14356	045064	010012 				MOV	R0,(R2)		;;; SET THIS NODE IN THE THREAD LIST
  14357	045066	005010 				CLR	(R0)		;;; MARK THE END OF THE LIST
  14358	045070	032765 	000201 	000006 		BIT	#TT.XOF!TT.OUT,STSW1(R5) ;;; IS THE LINE X'D OFF
  14359									;;; OR ALREADY ACTIVE??
  14360	045076	001016 				BNE	60$		;;; YES -- JUST EXIT
  14361					;
  14362					; HERE TO START UP THE DEVICE
  14363					;
  14364	045100				40$:
  14365	045100	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS A CTY??
  14366	045106	001403 				BEQ	50$		;;; NO -- GO ON
  14367	045110	005737 	002632'			TST	.TTP11		;;; YES -- IN PDP-11 I/O WAIT??
  14368	045114	001007 				BNE	60$		;;; YES -- JUST EXIT
  14369					;
  14370					; HERE TO START UP A DH-11 LINE
  14371					;
  14372	045116				50$:
  14373	045116	016504 	000002 			MOV	TTYEXP(R5),R4	;;; [5.1015] EXTERNAL PAGE POINTER TO R4
  14374	045122					CALL	.STDHL		;;; SET THE LINE NUMBER IN THE DH-11
	045122	004737 	037416'			JSR	PC,.STDHL
  14375	045126	100403 				BMI	70$		;;; [5.1015] GO START DL-11
  14376	045130	000137 	034164'			JMP	.DHSTO		;;; START THE DH-11 OUTPUT AND EXIT
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 270-2
SCOMM MODULE -- ..STTY (START TERMINAL OUTPUT)

  14377						;
  14378	045134				60$:
  14379	045134					RETURN			;;; EXIT
	045134	000207 				RTS	PC
  14380					;
  14381					; HERE TO START UP A DL-11 LINE
  14382					;
  14383	045136				70$:
  14384	045136	000137 	034340'			JMP	.DLSTO		;;; START DL-11 OUTPUT
  14385						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 271
SCOMM MODULE -- ..STPT	(STOP TTY)

  14387						.SBTTL	SCOMM MODULE -- ..STPT	(STOP TTY)
  14388
  14389					;+
  14390					; ..STPT -- SUBROUTINE TO STOP TTY OUTPUT AND FLUSH THE BUFFERS
  14391					;
  14392					; ENTRY CONDITIONS:
  14393					;
  14394					;	R2 -- POINTER TO TTYTBL (TABLE WHERE QUEUE FOR THIS LINE IS)
  14395					;
  14396					;	CALL	..STPT
  14397					;
  14398					; EXIT CONDITIONS:
  14399					;
  14400					;	CC-C CLEAR
  14401					;	NO REGISTERS ALTERED
  14402					;-
  14403
  14404	045142				..STPT::
  14405	045142	010046 				MOV	R0,-(SP)	;;; [5.1015] SAVE R0
  14406	045144	010446 				MOV	R4,-(SP)	;;; [5.1015] AND R4
  14407	045146	010546 				MOV	R5,-(SP)	;;; [5.1015] AND R5
  14408	045150	010205 				MOV	R2,R5		;;; [5.1015] COPY DLS POINTER TO R5
  14409	045152	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; IS THIS A CTY??
  14410	045160	001411 				BEQ	10$		;;; NO -- GO ON
  14411	045162	105737 	001226'			TSTB	.KLNSW+0	;;; YES -- IS KLINIK ACTIVE??
  14412	045166	003406 				BLE	10$		;;; NOT THAT WE CARE
  14413	045170	010546 				MOV	R5,-(SP)	;;; YES -- SAVE R5
  14414	045172	013705 	002636'			MOV	KLNPTR,R5	;;; KLINIK LINE POINTER TO R5
  14415	045176					CALL	20$		;;; DEQUEUE AND STOP KLINIK LINE
	045176	004737 	045220'			JSR	PC,20$
  14416	045202	012605 				MOV	(SP)+,R5	;;; RESTORE R5
  14417	045204				10$:
  14418	045204					CALL	20$		;;; DEQUEUE AND STOP LINE
	045204	004737 	045220'			JSR	PC,20$
  14419	045210	012605 				MOV	(SP)+,R5	;;; [5.1015] RESTORE REGISTERS
  14420	045212	012604 				MOV	(SP)+,R4
  14421	045214	012600 				MOV	(SP)+,R0
  14422	045216					RETURN			;;; AND EXIT
	045216	000207 				RTS	PC
  14423					;
  14424					; HERE TO FLUSH OUTPUT LIST AND STOP LINE
  14425					;
  14426	045220				20$:
  14427	045220	005715 				TST	(R5)		;;; [5.1015] IS THERE A LIST TO BEGIN WITH??
  14428	045222	001440 				BEQ	60$		;;; [5.1015] NO -- JUST EXIT
  14429	045224	010546 				MOV	R5,-(SP)	;;; YES -- SAVE DLS POINTER
  14430	045226	011505 				MOV	(R5),R5		;;; MOVE OVER FIRST NODE
  14431	045230	005065 	000006 			CLR	T.HCBC(R5)	;;; [5.1015] ZERO THE BYTE COUNT
  14432	045234	005705 				TST	R5		;;; [5.1015] LOOK AT THE LINK
  14433	045236	001402 				BEQ	30$		;;; ONLY ONE NODE -- FORGET IT
  14434	045240					CALL	50$		;;; FLUSH THE THREAD LIST
	045240	004737 	045310'			JSR	PC,50$
  14435					;
  14436					; HERE TO STOP A DH-11 LINE
  14437					;
  14438	045244				30$:
  14439	045244	012605 				MOV	(SP)+,R5	;;; RESTORE DLS POINTER
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 271-1
SCOMM MODULE -- ..STPT	(STOP TTY)

  14440	045246	032765 	000002 	000006 		BIT	#TT.CTY,STSW1(R5) ;;; [5.1015] IS THIS A CTY??
  14441	045254	001403 				BEQ	40$		;;; [5.1015] NO -- GO ON
  14442	045256	005737 	002632'			TST	.TTP11		;;; [5.1015] YES -- -11 I/O WAIT??
  14443	045262	001012 				BNE	50$		;;; [5.1015] YES -- GET RID OF FIRST NODE AND EXIT
  14444	045264				40$:
  14445	045264	032765 	000001 	000006 		BIT	#TT.OUT,STSW1(R5) ;;; [5.1015] OUTPUT ACTIVE??
  14446	045272	001406 				BEQ	50$		;;; [5.1015] NO -- GET RID OF FIRST NODE AND EXIT
  14447	045274	032765 	001000 	000006 		BIT	#TT.SIP,STSW1(R5) ;;; [5.1015] MAYBE -- CHECK FOR SENDALL
  14448	045302	001002 				BNE	50$		;;; [5.1015] YES -- GET RID OF FIRST NODE AND EXIT
  14449	045304	000137 	041650'			JMP	.TTSTP		;;; [5.1015] NO -- STOP OUTPUT
  14450						;
  14451					;
  14452					; INTERNAL SUBROUTINE TO REMOVE THREAD LIST ENTRIES UP TO THAT
  14453					; POINTED TO BY R5
  14454					;
  14455	045310				50$:
  14456	045310	011500 				MOV	(R5),R0		;;; GET THIS NODE POINTER
  14457	045312	001404 				BEQ	60$		;;; END OF LIST IF .EQ. 0
  14458	045314	011015 				MOV	(R0),(R5)	;;; DELINK AND
  14459	045316					CALL	..DECN		;;; DEALLOACATE THIS NODE
	045316	004737 	044546'			JSR	PC,..DECN
  14460	045322	000772 				BR	50$		;;; DO THE NEXT NODE
  14461						;
  14462	045324				60$:
  14463	045324					RETURN			;;; TO CALLER
	045324	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 272
SCOMM MODULE -- ..STCH	(STORE CHARACTER IN TO 10 QUEUE)

  14465						.SBTTL	SCOMM MODULE -- ..STCH	(STORE CHARACTER IN TO 10 QUEUE)
  14466
  14467					;+
  14468					; ..STCH -- SUBROUTINE TO STORE A CHARACTER IN THE TO 10
  14469					;	    QUEUE AND IF THAT QUEUE IS FULL SEND IT TO THE KL10 BY
  14470					;	    ENTERING IT IN THE TO 10 QUEUE.
  14471					;
  14472					; CALLING SEQUENCE:
  14473					;
  14474					;	SP -- POINTS TO CHARACTER
  14475					;	R5 -- POINTER TO DEVICE TABLE ENTRY
  14476					;
  14477					;	CALL	..STCH
  14478					;
  14479					;	REGISTERS ALTERED: NONE
  14480					;-
  14481
  14482						.ENABL	LSB
  14483
  14484	045326				..STCH::
  14485	045326	010446 				MOV	R4,-(SP)	; SAVE REGISTERS
  14486	045330	010346 				MOV	R3,-(SP)
  14487	045332	010146 				MOV	R1,-(SP)
  14488	045334	012703 	000004 			MOV	#D.CDLS,R3	; SET UP AS DATA/LINE SCANNER
  14489	045340					CALL	STLN		; GET LINE NUMBER
	045340	004737 	045412'			JSR	PC,STLN
  14490	045344	000304 				SWAB	R4		; AND PUT IN HIGH ORDER BYTE
  14491	045346	156604 	000010 			BISB	10(SP),R4	; SET CHARACTER
  14492	045352	012701 	000004 			MOV	#BC.LNC,R1	; SET LINE NUMBER/CHARACTER
  14493					;
  14494					;	LOCAL COMMON QUEUE STORAGE SUBROUTINE
  14495					;
  14496	045356				STCM:
  14497	045356					CALL	..STFC		; STORE FUNCTION
	045356	004737 	045456'			JSR	PC,..STFC
  14498	045362	012601 				MOV	(SP)+,R1	; RESTORE
  14499	045364	012603 				MOV	(SP)+,R3
  14500	045366	012604 				MOV	(SP)+,R4
  14501	045370				10$:
  14502	045370					RETURN
	045370	000207 				RTS	PC
  14503
  14504						.DSABL	LSB
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 273
SCOMM MODULE -- ..SACK	(SEND ACKNOWLEDGEMENT)

  14506						.SBTTL	SCOMM MODULE -- ..SACK	(SEND ACKNOWLEDGEMENT)
  14507
  14508					;+
  14509					; ..SACK -- SUBROUTINE TO ACKNOWLEDGE THE OUTPUT OF CHARACTER OR STRINGS
  14510					;
  14511					; CALLING SEQUENCE:
  14512					;
  14513					;	R3 -- DEVICE ID
  14514					;	R5 -- DEVICE TABLE POINTER
  14515					;
  14516					; EXIT CONDITIONS:
  14517					;
  14518					;	NO REGISTERS ALTERED
  14519					;
  14520					;-
  14521
  14522	045372				..SACK::
  14523	045372	010446 				MOV	R4,-(SP)	; SAVE REGISTERS
  14524	045374	010346 				MOV	R3,-(SP)
  14525	045376	010146 				MOV	R1,-(SP)
  14526	045400					CALL	STLN		; GET LINE NUMBER.
	045400	004737 	045412'			JSR	PC,STLN
  14527	045404	012701 	000017 			MOV	#BC.SAK,R1
  14528	045410	000762 				BR	STCM		; STORE COMMON
  14529						;
  14530					;
  14531					;	LOCAL SUBROUTINE TO COMPUTE LINE NUMBER
  14532					;
  14533	045412				STLN:
  14534	045412	010246 				MOV	R2,-(SP)
  14535	045414	005004 				CLR	R4		; DEFAULT LINE # TO ZERO.
  14536	045416	010302 				MOV	R3,R2		; COMPUTE OFFSET TO
  14537	045420	006302 				ASL	R2		; DEVICE QUEUE ENTRY
  14538	045422	006302 				ASL	R2
  14539	045424	006302 				ASL	R2
  14540	045426	006302 				ASL	R2
  14541	045430	010501 				MOV	R5,R1		; NOW COMPUTE OFFSET
  14542	045432	166201 	010012'			SUB	.DQPBA-20(R2),R1 ; INTO DEVICE LINE TABLE
  14543	045436	001405 				BEQ	20$		; FIRST ENTRY - ALL DONE.
  14544	045440	116202 	010014'			MOVB	.DQPBA-20+2(R2),R2 ; GET TABLE ENTRY SIZE
  14545	045444				10$:
  14546	045444	005204 				INC	R4		; AND MARCH THROUGH
  14547	045446	160201 				SUB	R2,R1
  14548	045450	003375 				BGT	10$
  14549	045452				20$:
  14550	045452	012602 				MOV	(SP)+,R2
  14551	045454					RETURN			; GOOD-BYE !
	045454	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 274
SCOMM MODULE -- ..STFC	(STORE FUNCTION)

  14553						.SBTTL	SCOMM MODULE -- ..STFC	(STORE FUNCTION)
  14554
  14555					;+
  14556					; ..STFC -- SUBROUTINE TO START A ONE WORD FUNCTION OF CHARACTER
  14557					;
  14558					; CALLING SEQUENCE:
  14559					;
  14560					;	R1 -- FUNCTION CODE
  14561					;	R3 -- DEVICE ID
  14562					;	R4 -- CHARACTER TO BE SENT TO 10 AND LINE NUMBER
  14563					;-
  14564
  14565	045456				..STFC::
  14566	045456	010546 				MOV	R5,-(SP)	; SAVE R5
  14567	045460					.INH6
	045460	013746 	177776 			MOV	@#PS,-(SP)
	045464	112737 	000300 	177776 		MOVB	#300,@#PS
  14568	045472	020137 	001252'			CMP	R1,.CPFN	; THE CORRECT CURRENT FUNCTION?
  14569	045476	001026 				BNE	10$		; NO -- MUST RESET
  14570	045500	020337 	001254'			CMP	R3,.CPDV	; SAME DEVICE?
  14571	045504	001023 				BNE	10$		; MUST RESET HERE ALSO
  14572	045506				5$:
  14573	045506	010477 	133546 			MOV	R4,@.CRPB	; SET THE LINE NUMBER
  14574	045512	012705 	000002 			MOV	#2,R5
  14575	045516	060537 	001260'			ADD	R5,.CRPB
  14576	045522	060577 	133536 			ADD	R5,@.CRSB
  14577	045526	060537 	001250'			ADD	R5,.CRQZ
  14578	045532	160537 	001256'			SUB	R5,.CRSZ
  14579	045536	001002 				BNE	7$		; YES -- RETURN TO CALLER
  14580	045540					CALL	..STQ		; NO -- BETTER START QUEUE
	045540	004737 	046046'			JSR	PC,..STQ
  14581	045544				7$:
  14582	045544					.ENB6			; ENABLE INTERRUPTS
	045544	012637 	177776 			MOV	(SP)+,@#PS
  14583	045550	012605 				MOV	(SP)+,R5	; RESTORE
  14584	045552					RETURN			; RETURN TO CALLER
	045552	000207 				RTS	PC
  14585					;
  14586	045554				10$:
  14587	045554	022737 	000012 	001256'		CMP	#10.,.CRSZ	; IS THERE ROOM?
  14588	045562	101402 				BLOS	15$		; YES -- START NEW ENTRY
  14589	045564				13$:
  14590	045564					CALL	..STQ		; NO -- ENTER IT IN THE QUEUE
	045564	004737 	046046'			JSR	PC,..STQ
  14591	045570				15$:
  14592	045570	010046 				MOV	R0,-(SP)	; SAVE R0
  14593	045572	012705 	000010 			MOV	#10,R5
  14594	045576	013700 	001260'			MOV	.CRPB,R0	; FIND CURRENT BUFFER POINTER
  14595	045602	060537 	001250'			ADD	R5,.CRQZ	; UPDATE QUEUE COUNTS
  14596	045606	160537 	001256'			SUB	R5,.CRSZ
  14597	045612	010037 	001264'			MOV	R0,.CRSB	; SET UP CURRENT BUFFER POINTER
  14598	045616	010520 				MOV	R5,(R0)+	; SET UP CURRENT SIZE
  14599	045620	010120 				MOV	R1,(R0)+	; SET THE FUNCTION CODE
  14600	045622	010137 	001252'			MOV	R1,.CPFN	; SAVE CURRENT FUNCTION
  14601	045626	010320 				MOV	R3,(R0)+	; SET DEVICE CODE
  14602	045630	010337 	001254'			MOV	R3,.CPDV	; SET DEVICE CODE FOR REFER LATER
  14603	045634	005020 				CLR	(R0)+		; CLEAR SPARE WORD
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 274-1
SCOMM MODULE -- ..STFC	(STORE FUNCTION)

  14604	045636	010037 	001260'			MOV	R0,.CRPB	; SET CURRENT BUFFER POINTER
  14605	045642	012600 				MOV	(SP)+,R0	; RESTORE R0
  14606	045644	000720 				BR	5$		; AND SET FUNCTION
  14607						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 275
SCOMM MODULE -- ..STIN	(START INDIRECT FUNCTION)

  14609						.SBTTL	SCOMM MODULE -- ..STIN	(START INDIRECT FUNCTION)
  14610
  14611					;+
  14612					; ..STIN -- SUBROUTINE TO START AN INDIRECT DTE20 FUNCTION TO THE 10
  14613					;
  14614					;  ENTRY CONDITIONS:
  14615					;
  14616					;	R0 -- BUFFER ADDRESS
  14617					;	R1 -- FUNCTION +100000
  14618					;	R2 -- EFN/BUFFER SIZE
  14619					;	R3 -- DEVICE ID
  14620					;
  14621					;	NOTE :  THE FIRST WORD OF THE BUFFER MUST CONTAIN THE
  14622					;	LINE NUMBER AND BUFFER SIZE
  14623					;
  14624					;	MAY NOT BE CALLED FROM ISR
  14625					;
  14626					;	CALL	..STIN
  14627					;
  14628					;  EXIT CONDITIONS:
  14629					;
  14630					;	CC-C CLEAR SUCCESS
  14631					;	CC-C SET FAILURE -- PRIMARY PROTOCOL NOT IN USE
  14632					;
  14633					;-
  14634					;
  14635	045646				..STIN::
  14636	045646	005737 	001012'			TST	.COMEF+2	; [4.1.1105] IS PRIMARY PROTOCOL RUNNING??
  14637	045652	100402 				BMI	10$		; [4.1.1105] YES -- GO ON
  14638	045654	000261 				SEC			; [4.2208] NO -- SET ERROR RETURN
  14639	045656	000472 				BR	40$		; [4.2208] AND EXIT
  14640						;
  14641	045660				10$:
  14642	045660	010546 				MOV	R5,-(SP)	; SAVE REGISTERS
  14643	045662	010046 				MOV	R0,-(SP)
  14644	045664	010146 				MOV	R1,-(SP)
  14645	045666	012701 	000030 			MOV	#30,R1		; SET UP TO ALLOCATE A BUFFER
  14646	045672					CALL	..ALOW		; ALLOCATE BUFFER
	045672	004737 	044706'			JSR	PC,..ALOW
  14647	045676				20$:
  14648	045676	010005 				MOV	R0,R5		; MOVE BUFFER ADDRESS TO R5
  14649	045700	022525 				CMP	(R5)+,(R5)+	; MOVE OVER THE LISTHEAD
  14650	045702	010125 				MOV	R1,(R5)+	; STORE THE BUFFER SIZE
  14651	045704	012715 	000012 			MOV	#12,@R5		; PUT IN THE SIZE OF THIS HEADER PACKET
  14652	045710	012525 				MOV	(R5)+,(R5)+	; ALSO PUT IT IN FIRST WORD TO 10
  14653	045712	011625 				MOV	@SP,(R5)+	; STORE FUNCTION CODE
  14654	045714	010325 				MOV	R3,(R5)+	; STORE THE DEVICE I/D
  14655	045716	005025 				CLR	(R5)+		; CLEAR THE SPARE WORD
  14656	045720	016601 	000002 			MOV	2(SP),R1	; RESTORE BUFFER ADDRESS
  14657	045724	012125 				MOV	(R1)+,(R5)+	; SET BYTE COUNT/LINE NUMBER
  14658	045726	010125 				MOV	R1,(R5)+	; SET UP BUFFER ADDRESS
  14659	045730	010246 				MOV	R2,-(SP)	; SAVE REGISTERS MODIFIED
  14660	045732	010346 				MOV	R3,-(SP)
  14661	045734	010546 				MOV	R5,-(SP)
  14662	045736	013705 	001006'			MOV	.CRTSK,R5	; SET UP TO CONVERT EFN
  14663	045742	010203 				MOV	R2,R3
  14664	045744					CALL	.CEFN3		; CONVERT EFN
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 275-1
SCOMM MODULE -- ..STIN	(START INDIRECT FUNCTION)

	045744	004737 	043066'			JSR	PC,.CEFN3
  14665	045750	012605 				MOV	(SP)+,R5	; RESTORE R5
  14666	045752	010325 				MOV	R3,(R5)+	; SET MASK
  14667	045754	010225 				MOV	R2,(R5)+	; SET ADDRESS
  14668	045756	012603 				MOV	(SP)+,R3	; RESTORE REGISTERS
  14669	045760	012602 				MOV	(SP)+,R2
  14670	045762	010446 				MOV	R4,-(SP)	; SAVE R4
  14671	045764	010001 				MOV	R0,R1		; SET UP TO ENTER NODE
  14672	045766					.INH6			; INHIBIT DTE20 INTERRUPTS
	045766	013746 	177776 			MOV	@#PS,-(SP)
	045772	112737 	000300 	177776 		MOVB	#300,@#PS
  14673	046000	012704 	001326'			MOV	#TO10Q,R4	;;; START TO 10 QUEUE IF NECESSARY
  14674	046004	021404 				CMP	@R4,R4		;;; CHECK TO SEE IF ALREADY GOING
  14675	046006	001003 				BNE	30$		;;; YES -- JUST ENTER IN QUEUE
  14676	046010	010104 				MOV	R1,R4		;;; NO -- SET NODE ADDRESS
  14677	046012					CALL	.STTNQ		;;; [4.1.1121] START QUEUE
	046012	004737 	031362'			JSR	PC,.STTNQ
  14678	046016				30$:
  14679	046016	013704 	001330'			MOV	TO10Q+2,R4	;;; ENTER QUEUE
  14680	046022					CALL	..NADD		;;; ADD NODE
	046022	004737 	044176'			JSR	PC,..NADD
  14681	046026					.ENB6			;;; ENABLE INTERRUPTS
	046026	012637 	177776 			MOV	(SP)+,@#PS
  14682	046032	012604 				MOV	(SP)+,R4	;;; RESTORE REGISTERS
  14683	046034	012601 				MOV	(SP)+,R1
  14684	046036	012600 				MOV	(SP)+,R0
  14685	046040	012605 				MOV	(SP)+,R5
  14686	046042	000241 				CLC			; CLEAR C
  14687	046044				40$:				; [4.2208]
  14688	046044					RETURN			; RETURN TO CALLER
	046044	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 276
SCOMM MODULE -- ..STQ	(STORE IN TO 10 QUEUE)

  14690						.SBTTL	SCOMM MODULE -- ..STQ	(STORE IN TO 10 QUEUE)
  14691
  14692					;+
  14693					; ..STQ -- SUBROUTINE TO STORE IN THE TO 10 QUEUE AND GET ANOTHER BUFFER
  14694					;	   FOR TRANSFERRING TO THE TO 10 QUEUE.
  14695					;
  14696					; INIAN -- SPECIAL ENTRY POINT FOR INITIALIZATION, IT SHOULD BE
  14697					;	   USED BY NO OTHERS!!
  14698					;
  14699					; CALLING SEQUENCE:
  14700					;
  14701					;	.CP?? MUST BE SETUP TO THE LAST QUEUE ENTRY
  14702					;	CALL	..STQ
  14703					;
  14704					; EXIT CONDITIONS:
  14705					;
  14706					;	.CP?? IS SET UP TO POINT TO A NEW QUEUE
  14707					;-
  14708
  14709						.ENABL	LSB
  14710
  14711	046046				..STQ::
  14712	046046	010046 				MOV	R0,-(SP)	; SAVE REGISTERS
  14713	046050	010146 				MOV	R1,-(SP)
  14714	046052	010446 				MOV	R4,-(SP)
  14715	046054	013704 	001262'			MOV	.CRHD,R4	; FIND THE HEADER OF THE CURRENT BUFFER
  14716	046060	013764 	001250'	000006 		MOV	.CRQZ,6(R4)	; SET THE CURRENT QUEUE SIZE IN THE BUFFER
  14717									; AND CHECK TO SEE IF ANYTHING THERE
  14718	046066	001447 				BEQ	40$		; NO -- DON'T ATTEMPT TO SEND TO 10
  14719	046070	012701 	001326'			MOV	#TO10Q,R1	; FIND THE LISTHEAD OF THE TO 10 QUEUE
  14720	046074	021101 				CMP	@R1,R1		; IS THERE AN ENTRY?
  14721	046076	001003 				BNE	10$		; ALREADY STARTED?
  14722	046100					CALL	.STTNQ		; [4.1.1121] START THE QUEUE UP
	046100	004737 	031362'			JSR	PC,.STTNQ
  14723	046104	000404 				BR	20$
  14724						;
  14725	046106				10$:
  14726	046106	022737 	000014 	001256'		CMP	#14,.CRSZ
  14727	046114	101434 				BLOS	40$		; YES -- DON'T QUEUE IT YET
  14728	046116				20$:
  14729	046116	010401 				MOV	R4,R1		; SET UP THE NODE ADDRESS
  14730	046120	013704 	001330'			MOV	TO10Q+2,R4	; SET UP LISTHEAD ADDRESS
  14731	046124					CALL	..NADD		; ADD THE NODE TO THE LIST
	046124	004737 	044176'			JSR	PC,..NADD
  14732	046130				INIAN::
  14733	046130	012701 	000060 			MOV	#E.OPSZ,R1	 ; [4.1.1137] SET UP THE BUFFER SIZE
  14734	046134					CALL	..ALCB		; GET A NODE FROM THE POOL
	046134	004737 	044416'			JSR	PC,..ALCB
  14735	046140	103003 				BCC	30$		; [4.1.1137] ALL OK IF CC-C IS CLEAR
  14736	046142					.CRASH	B03		; ALLOCATION FAILED -- CRASH!
	046142	000004 				IOT
	046144	   102 	   060 	   063 		.ASCIZ	/B03/
	046147	   000
  14737						;
  14738	046150				30$:
  14739	046150	010037 	001262'			MOV	R0,.CRHD	; SET UP THE POINTER TO THE HEAD OF THE BUFFER
  14740	046154	005037 	001254'			CLR	.CPDV		; SET NO DEVICE IN USE
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 276-1
SCOMM MODULE -- ..STQ	(STORE IN TO 10 QUEUE)

  14741	046160	022020 				CMP	(R0)+,(R0)+	; MOVE OVER THE FORWARD/BACKWARD POINTERS
  14742	046162	010120 				MOV	R1,(R0)+	; SET UB NODE SIZE
  14743	046164	005020 				CLR	(R0)+		; SET UP CURRENT SIZE OF Q
  14744	046166	010037 	001260'			MOV	R0,.CRPB	; SET THE CURRENT BUFFER POINTER
  14745	046172	162701 	000012 			SUB	#10.,R1		; DON'T WANT TO INCLUDE HEADER
  14746	046176	010137 	001256'			MOV	R1,.CRSZ	; SET UP SIZE OF QUEUE (MAX)
  14747	046202	005037 	001250'			CLR	.CRQZ		; CLEAR CURRENT QUEUE SIZE
  14748	046206				40$:
  14749	046206	012604 				MOV	(SP)+,R4	; RESTORE REGISTSERS
  14750	046210	012601 				MOV	(SP)+,R1
  14751	046212	012600 				MOV	(SP)+,R0
  14752	046214					RETURN			; RETURN TO CALLER
	046214	000207 				RTS	PC
  14753
  14754						.DSABL	LSB
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 277
SCOMM MODULE -- ..WFED	(WAIT FOR EXAMINE/DEPOSIT)

  14756						.SBTTL	SCOMM MODULE -- ..WFED	(WAIT FOR EXAMINE/DEPOSIT)
  14757
  14758					;+
  14759					; ..WFED -- WAITS FOR EXAMINE/DEPOSIT TRANSFERS AND CHECKS TO SEE
  14760					;	  THAT E-BOX HAS NOT STOPPED OR ENCOUNTERED AN EBUS PARITY ERROR.
  14761					;
  14762					;	ERRORS DETECTED HERE ARE:
  14763					;
  14764					;	1. DEX -- DEPOSIT/EXAMINE TIMED OUT
  14765					;	2. EPE -- EBUS PARITY ERROR
  14766					;	3. CES -- CLOCK ERROR STOP
  14767					;	4. TSP -- KL IS HALTED (STOPPED)
  14768					;
  14769					;	IN THE CASE OF AN EBUS PARITY ERROR OR DEX ERROR, THE TRANSFER IS
  14770					;	RETRIED ONCE.  IF THE RETRY SUCCEEDS, A SNAPSHOT OF THE DTE-20 ON
  14771					;	BOTH THE INITIAL FAILURE AND SUCCESSFUL RETRY ARE LOGGED TO THE
  14772					;	KL.  IF THE RETRY FAILS, THE KL IS RELOADED.  MULTIPLE ERRORS DURING
  14773					;	ANY RETRY ATTEMPT ARE CONSIDERED FATAL.
  14774					;
  14775					;	THE RETRY COUNT/FLAG BYTES ".EBRTY" AND ".DXRTY" ARE CONTIGUOUS AND
  14776					;	ON A WORD BOUNDARY IN LOW CORE.  THE SIGNIFICANCE OF THE CONTENT OF
  14777					;	THESE BYTES IS AS FOLLOWS:
  14778					;
  14779					;		+1 -- NO ERROR
  14780					;		 0 -- RETRY SUCCEEDED, ERROR LOGGING REQUESTED
  14781					;		      (EBUS PARITY ERROR ONLY, DEX ERRORS ARE ALWAYS FATAL)
  14782					;		-1 -- EBUS PARITY ERROR RETRY FAILED OR DEX ERROR, KL RELOAD REQUESTED
  14783					;
  14784					;	THE ACTUAL ERROR LOGGING IS DONE BY THE TERMINAL TASK ON THE SOFTWARE
  14785					;	CLOCK.  A MAXIMUM OF TWO SNAPSHOTS IS ALLOWED IN THE DTE-20 ERROR
  14786					;	LOGGING QUEUE, AS A CONSIDERATION FOR THE FREE-CORE RESOURCE.
  14787					;
  14788					; CALLING SEQUENCE:
  14789					;
  14790					;	CALL	..WFED
  14791					;
  14792					; ENTRY CONDITIONS:
  14793					;
  14794					;	R0 -- ADDRESS OF DTE20
  14795					;	IF ".NOERR" .NE. 0 -- ONLY CHECK TIMEOUT, ELSE CHECK ALL ERRORS
  14796					;
  14797					; EXIT CONDITIONS:
  14798					;
  14799					; SUCCESS:
  14800					;
  14801					;	NO REGISTERS ALTERED CC-C CLEAR
  14802					;
  14803					; NORMAL ERROR CONDITIONS:
  14804					;
  14805					;	CC-C SET -- E-BOX STOPPED (PROTOCOL STOPPED - KS.CES SET IN .KLITK)
  14806					;	CC-C SET -- DEP/EX FAILURE (PROTOCOL STOPPED - KS.DEX SET IN .KLITK)
  14807					;
  14808					;	CC-C CLEAR -- E-BUS PARITY ERROR (PROTOCOL UNCHANGED -- KS.EPE SET IN .KLITK)
  14809					;	CC-C CLEAR -- TEN STOPPED (PROTOCOL STOPPED -- KS.TSP SET IN .KLITK)
  14810					;
  14811					; SPECIAL ERROR CONDITIONS:
  14812					;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 277-1
SCOMM MODULE -- ..WFED	(WAIT FOR EXAMINE/DEPOSIT)

  14813					;	TIMEOUT AND ".NOERR" .NE. 0 - CC-C SET
  14814					;
  14815					; NOTE:
  14816					;
  14817					;	**** THIS ROUTINE MUST BE ENTERED AT PRI6 ****
  14818					;-
  14819
  14820	046216				..WFED::
  14821	046216	010146 				MOV	R1,-(SP)	;;; [4.2217] SAVE R1
  14822	046220	010246 				MOV	R2,-(SP)	;;; [4.2217] AND R2
  14823	046222	010546 				MOV	R5,-(SP)	;;; [5.1008] AND R5
  14824	046224	012705 	001364'			MOV	#.DXRTY,R5	;;; [5.1008] FOR EXIT CODE
  14825	046230	012715 	000401 			MOV	#401,(R5)	;;; [5.1008] INIT THE RETRY FLAGS
  14826					;
  14827					; REGISTER USAGE:
  14828					;
  14829					;	R0 -- DTE-20 BASE ADDRESS
  14830					;	R1 -- POINTS TO FIRST FREE WORD IN ERROR LOGGING PACKET
  14831					;	R2 -- POINTER TO DTE-20 "TENAD1" REGISTER ON RETRY
  14832					;	R5 -- POINTER TO ERROR FLAGS BYTES
  14833					;
  14834	046234				10$:
  14835	046234	012737 	003000 	001344'		MOV	#3000,DEXST	;;; [4.2217] SET UP TIMEOUT COUNT
  14836					;
  14837					; TIMEOUT A DEPOSIT OR EXAMINE
  14838					;
  14839	046242				15$:
  14840	046242	032760 	000004 	000034 		BIT	#DEXDON,STATD(R0) ;;; [4.2217] TRANSFER COMPLETED??
  14841	046250	001030 				BNE	25$		;;; [4.2217] YES -- GO ON
  14842	046252	005337 	001344'			DEC	DEXST		;;; [4.2217] NO -- TIMED OUT??
  14843	046256	001371 				BNE	15$		;;; [4.2217] NO -- GO ON
  14844					;
  14845					; HERE TO CHECK TIMEOUT ERRORS
  14846					;
  14847	046260	005060 	000030 			CLR	DAG1(R0)	;;; [4.2217] YES -- CLEAR FLAGS
  14848	046264	105737 	001122'			TSTB	.NOERR		;;; [4.2217] IGNORE ERRORS??
  14849	046270	001110 				BNE	60$		;;; [4.2217] YES -- FLAG TIMEOUT AND EXIT
  14850	046272	032760 	004000 	000030 		BIT	#DS04,DAG1(R0)	;;; [4.2217] NO -- CLOCK ERROR STOP??
  14851	046300	001404 				BEQ	20$		;;; [4.2217] NO -- GO ON
  14852	046302	052737 	000002 	001126'		BIS	#KS.CES,.KLITK	;;; [4.2217] YES -- FLAG IT
  14853	046310	000472 				BR	55$		;;; [4.2217] AND EXIT
  14854						;
  14855	046312				20$:
  14856	046312	052737 	000010 	001126'		BIS	#KS.DEX,.KLITK	;;; [4.2217] SET DEPOSIT/EXAMINE FAILURE
  14857	046320	105437 	001364'			NEGB	.DXRTY		;;; [4.1.1065] DEX ERRORS ARE ALWAYS FATAL
  14858	046324					CALL	DTESNP		;;; [5.1008] SNAPSHOT THE DTE-20
	046324	004737 	046534'			JSR	PC,DTESNP
  14859	046330	000462 				BR	55$		;;; [5.1008] AND CRASH HIM
  14860						;
  14861					;
  14862					; HERE TO CHECK NON-TIMEOUT ERRORS
  14863					;
  14864	046332				25$:
  14865	046332	105737 	001122'			TSTB	.NOERR		;;; [4.2217] IGNORE ERRORS??
  14866	046336	001066 				BNE	65$		;;; [4.2217] YES -- JUST EXIT
  14867	046340	032760 	000020 	000034 		BIT	#BPARER,STATD(R0) ;;; [4.2217] EBUS PARITY ERROR??
  14868	046346	001422 				BEQ	40$		;;; [5.1008] NO -- SEE ABOUT OTHER ERRORS
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 277-2
SCOMM MODULE -- ..WFED	(WAIT FOR EXAMINE/DEPOSIT)

  14869					;
  14870					; HERE TO SNAPSHOT AN EBUS PARITY ERROR
  14871					;
  14872	046350				30$:
  14873	046350	052737 	000004 	001126'		BIS	#KS.EPE,.KLITK	;;; [4.2217] FLAG THE EBUS PARITY ERROR
  14874	046356					CALL	DTESNP		;;; [4.2217] GET THE ADDRESS AND DATA
	046356	004737 	046534'			JSR	PC,DTESNP
  14875	046362	103445 				BCS	55$		;;; [5.1008] ERROR IF CC-C IS SET
  14876	046364	105337 	001365'			DECB	.EBRTY		;;; [5.1008] IS THIS A RETRY??
  14877	046370	100442 				BMI	55$		;;; [5.1008] YES -- ONLY ONE ALLOWED
  14878	046372	105737 	001364'			TSTB	.DXRTY		;;; [5.1008] NO -- MULTIPLE ERRORS??
  14879	046376	002437 				BLT	55$		;;; [5.1008] YES -- CRASH HIM
  14880					;
  14881					; HERE TO RETRY A TRANSFER
  14882					;
  14883	046400				35$:
  14884	046400	012760 	000100 	000032 		MOV	#DRESET,DAG2(R0) ;;; [4.2217] NO -- RESET THE DTE-20
  14885	046406	011222 				MOV	(R2),(R2)+	;;; [4.2217] AND RESTART THE TRANSFER
  14886	046410	011212 				MOV	(R2),(R2)	;;; [4.2217] SO
  14887	046412	000710 				BR	10$		;;; [4.2217] TIME THE RETRY OUT
  14888						;
  14889					;
  14890					; HERE TO CHECK OTHER NON-TIMEOUT ERRORS
  14891					;
  14892	046414				40$:
  14893	046414	005060 	000030 			CLR	DAG1(R0)	;;; [4.2217] RESET FLAGS
  14894	046420	105737 	001123'			TSTB	.NOHLT		;;; [4.2217] HALTS ALLOWED??
  14895	046424	001010 				BNE	45$		;;; [4.2217] YES -- JUST EXIT
  14896	046426	032760 	001000 	000030 		BIT	#DS06,DAG1(R0)	;;; [4.2217] NO -- IS THE KL HALTED??
  14897	046434	001404 				BEQ	45$		;;; [4.2217] NO -- JUST EXIT
  14898	046436	052737 	000001 	001126'		BIS	#KS.TSP,.KLITK	;;; [4.2217] YES -- FLAG THE ERROR
  14899	046444	000414 				BR	55$		;;; [5.1008] AND FLAG THE RELOAD
  14900						;
  14901					;
  14902					; HERE FOR NORMAL EXIT
  14903					;
  14904	046446				45$:
  14905	046446	105737 	001365'			TSTB	.EBRTY		;;; [5.1008] DID WE RECOVER AN EBUS PARITY ERROR??
  14906	046452	001020 				BNE	65$		;;; [5.1008] NO -- JUST EXIT
  14907					;
  14908					; HERE TO SNAPSHOT A RECOVERED EBUS PARITY ERROR
  14909					;
  14910	046454				50$:
  14911	046454					CALL	DTESNP		;;; [4.2217] YES -- SAVE RECOVERED DATA
	046454	004737 	046534'			JSR	PC,DTESNP
  14912	046460	042737 	000004 	001126'		BIC	#KS.EPE,.KLITK	;;; [5.1008] RESET TKTN FLAGS
  14913	046466	042765 	000200 	177776 		BIC	#DV.URE,-2(R5)	;;; [5.1008] RESET UNRECOVERABLE FLAG
  14914	046474	000407 				BR	65$		;;; [5.1008] TAKE NORMAL EXIT
  14915						;
  14916					;
  14917					; HERE ON A FATAL ERROR
  14918					;
  14919	046476				55$:
  14920	046476	105237 	001122'			INCB	.NOERR		;;; [4.2217] RECOGNIZE THE ERROR
  14921	046502					CALL	..DTSP		;;; [4.2217] STOP ALL PROTOCOLS
	046502	004737 	046770'			JSR	PC,..DTSP
  14922	046506	105237 	001124'			INCB	.TKTN		;;; [4.2217] REQUEST NOTIFICATION
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 277-3
SCOMM MODULE -- ..WFED	(WAIT FOR EXAMINE/DEPOSIT)

  14923					;
  14924					; ERROR EXIT
  14925					;
  14926	046512				60$:
  14927	046512	000261 				SEC			;;; [4.2217] SET ERROR RETURN
  14928					;
  14929					; NORMAL EXIT
  14930					;
  14931	046514				65$:
  14932	046514	113725 	001364'			MOVB	.DXRTY,(R5)+	;;; [5.1008] SET THE RETRY FLAGS
  14933	046520	113715 	001365'			MOVB	.EBRTY,(R5)	;;; [5.1008] SO
  14934	046524	012605 				MOV	(SP)+,R5	;;; [5.1008] RESTORE R5
  14935	046526	012602 				MOV	(SP)+,R2	;;; [4.2217] RESTORE REGISTERS
  14936	046530	012601 				MOV	(SP)+,R1	;;; [4.2217] SO
  14937	046532					RETURN			;;; [4.2217] TO CALLER
	046532	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 278
SCOMM MODULE -- ..WFED	(WAIT FOR EXAMINE/DEPOSIT)

  14939					;
  14940					; INTERNAL SUBROUTINE TO SNAPSHOT THE DTE-20
  14941					;
  14942					;	THIS ROUTINE WILL INITIALIZE AND APPEND TO A DTE-20 ERROR LOGGING
  14943					;	PACKET.  AFTER THE FIRST INVOCATION FOR EACH ERROR, THIS ROUTINE
  14944					;	RETURNS:
  14945					;
  14946					;	R1 -- POINTS TO FIRST FREE WORD IN RETRY SNAPSHOT
  14947					;	R2 -- POINTS TO "TENAD1" REGISTER IN THE DTE-20
  14948					;	R5 -- POINTS TO FLAGS WORD IN ERROR LOGGING PACKET
  14949					;
  14950
  14951	046534				DTESNP:
  14952	046534	010046 				MOV	R0,-(SP)	;;; [4.2217] SAVE THE DTE-20 POINTER
  14953	046536	005737 	001012'			TST	.COMEF+2	;;; [4.1.1105] IS PRIMARY PROTOCOL RUNNING??
  14954	046542	100045 				BPL	50$		;;; [4.1.1105] NO -- JUST EXIT
  14955	046544	105737 	001365'			TSTB	.EBRTY		;;; [5.1008] YES -- IS THIS AN EBUS PARITY ERROR RETRY??
  14956	046550	001436 				BEQ	30$		;;; [5.1008] YES -- GO ON
  14957	046552	023727 	001370'	000002 		CMP	.EBPEC,#2	;;; [5.1008] NO -- IS THE QUEUE FULL??
  14958	046560	001436 				BEQ	50$		;;; [5.1008] YES -- NO MORE ALLOWED
  14959	046562	005237 	001370'			INC	.EBPEC		;;; [5.1008] NO -- COUNT THIS NODE
  14960	046566	012701 	000112 			MOV	#112,R1		;;; [4.2217] NO -- SET UP BUFFER SIZE
  14961	046572					CALL	..ALCB		;;; [4.2217] ALLOCATE A BLOCK
	046572	004737 	044416'			JSR	PC,..ALCB
  14962	046576	103427 				BCS	50$		;;; [4.2217] ERROR IF CC-C IS SET
  14963	046600	010046 				MOV	R0,-(SP)	;;; [5.1008] SAVE NODE POINTER
  14964	046602	012700 	001366'			MOV	#.EBPEQ,R0	;;; [5.1008] MOVE THE LISTHEAD POINTER TO R0
  14965	046606				10$:
  14966	046606	011002 				MOV	(R0),R2		;;; [5.1008] FIND THE END OF THE LIST
  14967	046610	001402 				BEQ	20$		;;; [5.1008] FOUND IT -- GO ON
  14968	046612	010200 				MOV	R2,R0		;;; [5.1008] NOT YET -- KEEP GOING
  14969	046614	000774 				BR	10$		;;; [5.1008] TRY AGAIN
  14970						;
  14971	046616				20$:
  14972	046616	011610 				MOV	(SP),(R0)	;;; [5.1008] SET THE NODE IN THE LIST
  14973	046620	012600 				MOV	(SP)+,R0	;;; [5.1008] RESTORE NODE POINTER
  14974	046622	005020 				CLR	(R0)+		;;; [5.1008] CLEAR AND GET OVER THE LINKAGE
  14975	046624	010120 				MOV	R1,(R0)+	;;; [4.2217] SET THE NODE SIZE
  14976	046626	012720 	000106 			MOV	#106,(R0)+	;;; [5.1008] SET THE TRANSFER SIZE
  14977	046632	012720 	000300 			MOV	#DV.LOG!DV.URE,(R0)+ ;;; [5.1008] SET STANDARD STATUS
  14978	046636	010005 				MOV	R0,R5		;;; [5.1008] COPY FLAG POINTER TO R5
  14979	046640	005020 				CLR	(R0)+		;;; [5.1008] INIT AND GET OVER THE FLAGS
  14980	046642	010001 				MOV	R0,R1		;;; [4.2217] BUFFER POINTER TO R1
  14981	046644	011600 				MOV	(SP),R0		;;; [4.2217] RESTORE DTE-20 POINTER
  14982	046646				30$:
  14983	046646	012702 	000020 			MOV	#20,R2		;;; [4.2217] INIT LOOP COUNTER
  14984	046652				40$:
  14985	046652	012021 				MOV	(R0)+,(R1)+	;;; [4.2217] SNAPSHOT THE DTE-20
  14986	046654	077202 				SOB	R2,40$		;;; [4.2217] SO
  14987	046656				50$:
  14988	046656	011602 				MOV	(SP),R2		;;; [4.2217] GET DTE-20 POINTER
  14989	046660	062702 	000010 			ADD	#TNAD1,R2	;;; [4.2217] POINT TO THE ADDRESS WORDS
  14990	046664	012600 				MOV	(SP)+,R0	;;; [4.2217] RESTORE R0
  14991	046666					RETURN			;;; [4.2217] TO CALLER
	046666	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 279
SCOMM MODULE -- ..SWED	(START AND WAIT FOR EXAMINE/DEPOSIT)

  14993						.SBTTL	SCOMM MODULE -- ..SWED	(START AND WAIT FOR EXAMINE/DEPOSIT)
  14994
  14995					;+
  14996					; ..SWED -- STARTS A DEPOSIT/EXAMINE SEQUENCE AND WAITS FOR ITS COMPLETION.
  14997					;
  14998					;	NOTE: **** THIS ROUTINE MUST BE ENTERED AT PRI6 ****
  14999					;
  15000					; CALLING SEQUENCE:
  15001					;
  15002					;	R0 -- ADDRESS OF DTE-20
  15003					;	R1 -- HIGH ORDER EXAMINE/DEPOSIT ADDRESS WORD (FOR TENAD1)
  15004					;	R2 -- LOW ORDER EXAMINE/DEPOSIT ADDRESS WORD (FOR TENAD2)
  15005					;	R3 -- ADDRESS TO TRANSFER 3 WORD BLOCK TO OR FROM
  15006					;
  15007					;	CALL	..SWED
  15008					;
  15009					; EXIT CONDITIONS:
  15010					;
  15011					;	SUCCESS -- NO REGISTERS ALTERED, CC-C CLEAR
  15012					;
  15013					;	FAILURE -- NO REGISTERS ALTERED, CC-C SET
  15014					;-
  15015
  15016	046670				..SWED::
  15017	046670	010346 				MOV	R3,-(SP)	;;; SAVE REGISTERS
  15018	046672	032701 	010000 			BIT	#DEP,R1		;;; CHECK FOR DEPOSIT
  15019	046676	001016 				BNE	10$		;;; YES -- GO TO DEPOSIT PART OF SUBROUTINE
  15020					;
  15021					;	HERE TO START AN EXAMINE
  15022					;
  15023	046700	010160 	000010 			MOV	R1,TNAD1(R0)	;;; NO -- SET UP ADDRESS OF TRANSFER IN DTE
  15024	046704	010260 	000012 			MOV	R2,TNAD2(R0)	;;; START TRANSFER
  15025	046710					CALL	..WFED		;;; WAIT FOR EXAMINE/DEPOSIT
	046710	004737 	046216'			JSR	PC,..WFED
  15026	046714	103423 				BCS	20$		;;; COMPLAIN ABOUT ERRORS
  15027	046716					MTPS	DXWD3(R0),(R3)+	;;; STORE THE WORD TRANSFERED
	046716	016023 	000002 			MOV	DXWD3(R0),(R3)+
  15028	046722					MTPS	DXWD2(R0),(R3)+
	046722	016023 	000004 			MOV	DXWD2(R0),(R3)+
  15029	046726					MTPS	DXWD1(R0),(R3)+
	046726	016023 	000006 			MOV	DXWD1(R0),(R3)+
  15030	046732	000414 				BR	20$		;;; ALL DONE.
  15031						;
  15032					;
  15033					;	HERE TO START A DEPOSIT
  15034					;
  15035	046734				10$:
  15036	046734					MFPS	(R3)+,DXWD3(R0) ;;; TRANSFER TO 10
	046734	012360 	000002 			MOV	(R3)+,DXWD3(R0)
  15037	046740					MFPS	(R3)+,DXWD2(R0) ;;; SET UP WORD IN DTE
	046740	012360 	000004 			MOV	(R3)+,DXWD2(R0)
  15038	046744					MFPS	(R3)+,DXWD1(R0)	;;; SO
	046744	012360 	000006 			MOV	(R3)+,DXWD1(R0)
  15039	046750	010160 	000010 			MOV	R1,TNAD1(R0)	;;; SET HIGH ORDER ADDRESS
  15040	046754	010260 	000012 			MOV	R2,TNAD2(R0)	;;; START THE TRANSFER
  15041	046760					CALL	..WFED		;;; WAIT FOR EXAMINE/DEPOSIT
	046760	004737 	046216'			JSR	PC,..WFED
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 279-1
SCOMM MODULE -- ..SWED	(START AND WAIT FOR EXAMINE/DEPOSIT)

  15042	046764				20$:
  15043	046764	012603 				MOV	(SP)+,R3	;;; RESTORE R3
  15044	046766					RETURN			;;; RETURN TO CALLER
	046766	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 280
SCOMM MODULE -- ..DTSP	(STOP DTE PROTOCOLS)

  15046						.SBTTL	SCOMM MODULE -- ..DTSP	(STOP DTE PROTOCOLS)
  15047
  15048					;+
  15049					; ..DTSP -- SUBROUTINE TO TURN OFF PRIMARY AND SECONDARY PROTOCOLS.
  15050					;	    THIS REQUIRES TURNING OFF THE DTE INTERRUPT.
  15051					;
  15052					; CALLING SEQUENCE:
  15053					;
  15054					;	CALL	..DTSP
  15055					;
  15056					; EXIT CONDITIONS:
  15057					;
  15058					;	SUCCESS IS ASSURED, CC-C IS CLEARED
  15059					;	NO REGISTERS ALTERED
  15060					;	THERE ARE NO ERRORS
  15061					;-
  15062
  15063						.ENABL	LSB
  15064
  15065	046770				..DTSP::
  15066	046770	012777 	000010 	132360 		MOV	#INTROF,@.PRSTA	;; TURN OFF DTE INTERRUPTS
  15067	046776	042737 	120000 	001012'		BIC	#EF.PR1!EF.PR2,.COMEF+2 ;; AND PROTOCOLS
  15068	047004	000421 				BR	30$		;; AND EXIT
  15069						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 281
SCOMM MODULE -- ..DTP2	(START SECONDARY PROTOCOL)

  15071						.SBTTL	SCOMM MODULE -- ..DTP2	(START SECONDARY PROTOCOL)
  15072
  15073					;+
  15074					; ..DTP2 -- SUBROUTINE TO TURN ON SECONDARY PROTOCOL.
  15075					;	    A CHECK IS MADE TO MAKE SURE PRIMARY PROTOCOL IS OFF.
  15076					;
  15077					; CALLING SEQUENCE:
  15078					;
  15079					;	CALL	..DTP2
  15080					;
  15081					; EXIT CONDITIONS:
  15082					;
  15083					;	SUCCESS IS ASSURED, CC-C IS CLEARED
  15084					;	NO REGISTERS ALTERED
  15085					;	THERE ARE NO ERRORS
  15086					;-
  15087
  15088	047006				..DTP2::
  15089	047006	005737 	001012'			TST	.COMEF+2	;; [4.1.1105] IF PRIMARY PROTOCOL IS ON,
  15090	047012	100002 				BPL	10$		;; [4.1.1105] THEN
  15091	047014					CALL	..DTSP		;; TURN IT OFF
	047014	004737 	046770'			JSR	PC,..DTSP
  15092	047020				10$:
  15093	047020	012777 	004010 	132330 		MOV	#INTROF!INT11S,@.PRSTA ;; DISABLE INTERRUPTS
  15094	047026	052737 	020000 	001012'		BIS	#EF.PR2,.COMEF+2 ;; LET THE BOOT PROTOCOL TASK GO
  15095	047034	000403 				BR	20$		;; AND RETURN
  15096						;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 282
SCOMM MODULE -- ..DTP1 (START PRIMARY PROTOCOL)

  15098						.SBTTL	SCOMM MODULE -- ..DTP1 (START PRIMARY PROTOCOL)
  15099
  15100					;+
  15101					; ..DTP1 -- SUBROUTINE TO TURN ON PRIMARY PROTOCOL.
  15102					;
  15103					; CALLING SEQUENCE:
  15104					;
  15105					;	CALL	..DTP1
  15106					;
  15107					; EXIT CONDITIONS:
  15108					;
  15109					;	SUCCESS IS ASSURED , CC-C IS CLEARED
  15110					;	NO REGISTERS ALTERED
  15111					;	THERE ARE NO ERRORS
  15112					;-
  15113
  15114	047036				..DTP1::
  15115	047036	052737 	100000 	001012'		BIS	#EF.PR1,.COMEF+2 ;; ENABLE THE PRIMARY PROTOCOL TASK
  15116	047044				20$:
  15117	047044					CALL	..DSEV		;; DECLARE A SIGNIFICANT EVENT
	047044	004737 	044026'			JSR	PC,..DSEV
  15118	047050				30$:
  15119	047050	000241 				CLC			;; MAKE SURE CC-C
  15120	047052					RETURN			;; AND RETURN
	047052	000207 				RTS	PC
  15121
  15122						.DSABL	LSB
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 283
SCOMM MODULE -- ..VXFR	(VALADATE TRANSFER)

  15124						.SBTTL	SCOMM MODULE -- ..VXFR	(VALADATE TRANSFER)
  15125
  15126					;+
  15127					; ..VXFR -- ROUTINE TO VALIDATE A USER'S TRANSFER REQUEST
  15128					;
  15129					;	..VXFR CHECKS TO SEE IF A USER'S REQUEST TO TRANSFERINTO OR OUT
  15130					;	OF HIS SPACE IS LEGAL.  ..VXFR WILL CHECK TO SEE THAT TRANSFERS
  15131					;	ACROSS VIRTUAL BOUNDARIES ARE ALSO TRANSFERS IN CONTIGUOUS CORE.
  15132					;	THIS MEANS THAT AFTER VALIDATION A HANDLER TASK DOES NOT HAVE TO
  15133					;	WORRY ABOUT THE VALIDITY OF TRANSFERING A CONTIGUOUS BLOCK OF
  15134					;	CORE INTO THE USER'S AREA.  ..VXFR WILL ALSO RETURN TO THE CALLER
  15135					;	THE PHYSICAL 18 BIT ADDRESS OF THE USER'S BUFFER.  ..VXFR WILL NOT
  15136					;	LET THE USER TRANSFER INTO READ-ONLY SPACE IF THE DIRECTION
  15137					;	SPECIFIED BY THE HANDLER IS WRITE.
  15138					;
  15139					; CALLING SEQUENCE:
  15140					;
  15141					;	R1 -- REQUEST NODE ADDRESS
  15142					;	R2 -- STARTING ADDRESS (VIRTUAL)
  15143					;	R3 -- TRANSFER LENGTH
  15144					;
  15145					;	CALL	..VXFR
  15146					;
  15147					; EXIT CONDITIONS:
  15148					;
  15149					;	R4 -- HIGH ORDER ADDRESS (BITS 4,5)
  15150					;	R5 -- LOW ORDER ADDRESS
  15151					;
  15152					;	ERROR EXIT -- CC-C SET
  15153					;-
  15154
  15156	047054				..VXFR::
  15157	047054	010205 				MOV	R2,R5		; IF NOT KT11 THEN JUST RETURN CURRENT ADDRESS
  15158	047056	005004 				CLR	R4
  15159	047060					RETURN
	047060	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 284
SCOMM MODULE -- ..BLXO	(BLOCK OUTPUT) ..BLXI  (BLOCK INPUT)

  15278						.SBTTL	SCOMM MODULE -- ..BLXO	(BLOCK OUTPUT) ..BLXI  (BLOCK INPUT)
  15279
  15280					;+
  15281					; ..BLXO -- ROUTINE TO PASS INFORMATION TO A USER'S PARTITION
  15282					;
  15283					;	..BLXO VALIDATES THE TRANSFER OF THE REQUEST TO TRANSFER
  15284					;	TO OR FROM A HANDLER TASK'S AREA.
  15285					;
  15286					; ..BLXI -- ROUTINE TO PASS INFORMATION FROM A TASK'S PARTITION
  15287					;
  15288					;	..BLXI VALIDATES THE TRANSFER OF THE REQUEST TO TRANSFER
  15289					;	TO A HANDLER TASK'S AREA.
  15290					;
  15291					; CALLING SEQUENCE:
  15292					;
  15293					;	R1 -- REQUEST NODE ADDRESS
  15294					;	R2 -- STARTING ADDRESS (VIRTUAL)
  15295					;	R3 -- TRANSFER LENGTH (BYTES)
  15296					;	R4 -- HANDLER VIRTUAL ADDRESS
  15297					;
  15298					;	CALL	..BLXO
  15299					;
  15300					;	-  OR --
  15301					;
  15302					;	CALL ..BLXI
  15303					;
  15304					; NOTE -- RESTRICTED TO 4K-64 (10) WORD TRANSFER'S
  15305					;-
  15306
  15307	047062				..BLXI::
  15308	047062	010446 				MOV	R4,-(SP)
  15309	047064	010546 				MOV	R5,-(SP)
  15310	047066	012705 	000001 			MOV	#1,R5		; SET DIRECTION OF TRANSFER TO IN
  15311	047072	000403 				BR	BLXCOM		; AND ENTER COMMON CODE
  15312						;
  15313	047074				..BLXO::
  15314	047074	010446 				MOV	R4,-(SP)	; SAVE THE REGISTERS
  15315	047076	010546 				MOV	R5,-(SP)
  15316	047100	005005 				CLR	R5		; INDICATE TRANSFER OUT
  15317	047102				BLXCOM:
  15318	047102	010546 				MOV	R5,-(SP)	; SAVE THE DIRECTION OF TRANSFER
  15319	047104					CALL	..VXFR		; VALADATE TRANSFER
	047104	004737 	047054'			JSR	PC,..VXFR
  15332	047110	010346 				MOV	R3,-(SP)	; SAVE R3
  15337	047112	016604 	000006 			MOV	6(SP),R4	; SET UP THE FROM ADDRESS
  15338	047116	005766 	000002 			TST	2(SP)
  15340	047122	001403 				BEQ	BLXPLP		; DIRECTION OK FOR OUTPUT --DO TRANSFER
  15347	047124	010546 				MOV	R5,-(SP)
  15348	047126	010405 				MOV	R4,R5
  15349	047130	012604 				MOV	(SP)+,R4
  15351	047132				BLXPLP:
  15352	047132	112425 				MOVB	(R4)+,(R5)+	; MOVE A BYTE
  15353	047134	077302 				SOB	R3,BLXPLP	; YES -- FINISHED?
  15354	047136	012603 				MOV	(SP)+,R3	; RESTORE R3
  15359									; CLEAR C BIT TO INDICATE LEGAL TRANSFER
  15360	047140	005726 				TST	(SP)+		; REMOVE THE DIRECTION WORD FROM THE STACK
  15361	047142				BLXRTN:
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 284-1
SCOMM MODULE -- ..BLXO	(BLOCK OUTPUT) ..BLXI  (BLOCK INPUT)

  15362	047142	012605 				MOV	(SP)+,R5	; RESTORE REGISTERS
  15363	047144	012604 				MOV	(SP)+,R4
  15364	047146					RETURN			; RETURN TO CALLER
	047146	000207 				RTS	PC
  15365					;
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 285
SCOMM MODULE -- ..VTOL	(MAP VIRTUAL TO LOGICAL BLOCK, EXTERNAL

  15375						.SBTTL	SCOMM MODULE -- ..VTOL	(MAP VIRTUAL TO LOGICAL BLOCK, EXTERNAL)
  15376
  15377					;+
  15378					;
  15379					;CALL:	JSR	PC,..VTOL	;CLOSED, RETURN IN-LINE
  15380					;
  15381					;IN:	R1 - POINTER TO REQUEST NODE, CONTAINING:
  15382					;	R.AT - ATL OF CALLING TASK
  15383					;	R.LU - LUN HAVING WINDOW IN LUT(N2)
  15384					;	R.FC - I/O FUNCTION CODE, VIRTUAL READ OR WRITE
  15385					;	R.PB+6,+10 - VIRTUAL BLOCK NUMBER TO MAP
  15386					;
  15387					;OUT:	C=0 - MAPPING SUCCESSFUL
  15388					;	R1 - POINTER TO REQUEST NODE, CONTAINING
  15389					;	R.FC - I/O FUNCTION CODE, LOGICAL READ OR WRITE
  15390					;	R.PB+6,+10 - LOGICAL BLOCK NUMBER MAPPED
  15391					;
  15392					;	C=1 MAPPING FAILURE
  15393					;
  15394					;NOTE:	THIS LIBRARY ROUTINE USES THE FOLLOWING
  15395					;	OTHER LIBRARY ROUTINES---
  15396					;
  15397					;	..VVLL - INTERNAL VIRTUAL TO LOGICAL FILE FUNCTION
  15398					;
  15399					;-
  15400
  15401	047150				..VTOL::
  15402	047150	010046 				MOV	R0,-(SP)	;SAVE WORKING REGISTERS
  15403	047152	010146 				MOV	R1,-(SP)
  15404	047154	010246 				MOV	R2,-(SP)
  15405	047156	010346 				MOV	R3,-(SP)
  15406	047160	010446 				MOV	R4,-(SP)
  15407
  15408					; GET WINDOW POINTER FROM LUT(N2) IN TASK HEADER
  15409
  15410	047162	010104 				MOV	R1,R4		; SAVE POINTER TO REQUEST NODE
  15411	047164	016402 	000006 			MOV	R.AT(R4),R2	; POINT TO ATL NODE
  15412	047170	116403 	000012 			MOVB	R.LU(R4),R3	; GET LUN
  15413	047174	006303 				ASL	R3
  15414	047176	006303 				ASL	R3
  15415	047200	066203 	000012 			ADD	A.HA(R2),R3	; !!!!!DOESN'T WORK IF MACY11 CONDITIONAL IS OFF
  15416	047204	016301 	000130 			MOV	H.LUT(R3),R1	; GET WINDOW POINTER FROM LUT
  15417	047210	001441 				BEQ	30$		; NO WINDOW, NO MAP....
  15418	047212	030127 	000001 			BIT	R1,#1		; SEE IF WINDOW POINTER IS ODD
  15419	047216	001036 				BNE	30$		; ECCCHH!
  15420
  15421					; SEE IF THIS IS A READ OR WRITE AND CHECK PERMISSIONS APPROPRIATELY.
  15422
  15423	047220	012746 	001000 			MOV	#IO.RLB,-(SP)	; SET UP FOR A READ
  15424	047224	026427 	000014 	010400 		CMP	R.FC(R4),#IO.RVB ; SEE IF IT IS A READ
  15425	047232	001405 				BEQ	10$		; YES
  15426	047234	012716 	000400 			MOV	#IO.WLB,(SP)	; NO, MUST BE A WRITE
  15427	047240	031127 	001000 			BIT	(R1),#WI.WRV	; SEE IF THE FILE IS WRITE ACCESSED
  15428	047244	001422 				BEQ	20$		; IF NOT, CAN'T WRITE IT
  15429
  15430					; NOW DO THE MAPPING ALREADY
  15431
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 285-1
SCOMM MODULE -- ..VTOL	(MAP VIRTUAL TO LOGICAL BLOCK, EXTERNAL

  15432	047246				10$:
  15433	047246	016400 	000026 			MOV	R.PB+2(R4),R0	; GET BYTE COUNT
  15434	047252	016402 	000032 			MOV	R.PB+6.(R4),R2	; HIGH ORDER VBN
  15435	047256	016403 	000034 			MOV	R.PB+8.(R4),R3	; LOW ORDER VBN
  15436	047262					CALL	..VVLL		; CALL THE MAPPER
	047262	004737 	047332'			JSR	PC,..VVLL
  15437	047266	103411 				BCS	20$		; NO SUCH LUCK
  15438	047270	005700 				TST	R0		; CHECK IF MAPPING IS COMPLETE
  15439	047272	001007 				BNE	20$		; NO
  15440
  15441					; SUCCESSFUL MAPPING - TURN THE NODE INTO A LOGICAL TRANSFER
  15442
  15443	047274	010264 	000032 			MOV	R2,R.PB+6.(R4)	; SET HIGH ORDER LBN
  15444	047300	010364 	000034 			MOV	R3,R.PB+8.(R4)	; SET LOW ORDER LBN
  15445	047304	012664 	000014 			MOV	(SP)+,R.FC(R4)	; SET FUNCTION CODE
  15446	047310	000402 				BR	40$
  15447						;
  15448	047312				20$:
  15449	047312	005726 				TST	(SP)+		; CLEAN THE STACK
  15450	047314				30$:
  15451	047314	000261 				SEC			; SET FAILURE
  15452	047316				40$:
  15453	047316	012604 				MOV	(SP)+,R4	; RESTORE REGISTERS
  15454	047320	012603 				MOV	(SP)+,R3
  15455	047322	012602 				MOV	(SP)+,R2
  15456	047324	012601 				MOV	(SP)+,R1
  15457	047326	012600 				MOV	(SP)+,R0
  15458	047330					RETURN
	047330	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 286
SCOMM MODULE -- ..VVLL	(MAP VIRTUAL TO LOGICAL BLOCK, INTERNAL

  15460						.SBTTL	SCOMM MODULE -- ..VVLL	(MAP VIRTUAL TO LOGICAL BLOCK, INTERNAL)
  15461
  15462					;+
  15463					;
  15464					;CALL:	JSR	PC,..VVLL	;CLOSED, RETURN IN-LINE
  15465					;
  15466					;IN:	R0 - NUMBER OF BYTES IN TRANSFER
  15467					;	R1 - ADDRESS OF WINDOW
  15468					;	R2,R3 - VBN TO MAP
  15469					;
  15470					;OUT:	SUCCESS - C=0
  15471					;	R0 - NUMBER OF BLOCKS NOT MAPPED
  15472					;	R2,R3 - LOGICAL BLOCK NUMBER DESIRED
  15473					;
  15474					;	FAILURE - C=1
  15475					;	R0,R2,R3 - GARBAGED
  15476					;
  15477					;NOTE:	THIS ROUTINE MAKES NO EXTERNAL CALLS.
  15478					;	THIS ROUTINES IS USED BY---
  15479					;
  15480					;	..VTOL	EXTERNAL VIRTUAL TO LOGICAL MAPPER
  15481					;		WINDOW TURN FILE CONTROL PRIMITIVE
  15482					;		INDEX FILE FILE CONTROL UTILITY
  15483					;
  15484					;-
  15485
  15486	047332				..VVLL::
  15487	047332	010146 				MOV	R1,-(SP)	; SAVE WORKING REGISTERS
  15488	047334	010446 				MOV	R4,-(SP)
  15489	047336	010546 				MOV	R5,-(SP)
  15490	047340					.INH0			; INHIBIT TASK SWITCHING
	047340	013746 	177776 			MOV	@#PS,-(SP)
	047344	112737 	000140 	177776 		MOVB	#140,@#PS
  15491	047352	062700 	000777 			ADD	#511.,R0	;; ROUND UP BYTE COUNT TO NEXT BLOCK
  15492	047356	006000 				ROR	R0		;; RECOVER CARRY
  15493	047360	105000 				CLRB	R0		;; CLEAR FRACTIONAL PART
  15494	047362	000300 				SWAB	R0		;; AND CONVERT TO BLOCK COUNT
  15495
  15496					; GET STARTING VBN OF CURRENT WINDOW
  15497
  15498	047364	111104 				MOVB	(R1),R4		;; GET COUNT OF RETRIEVAL POINTERS
  15499	047366	001417 				BEQ	40$		;; EMPTY WINDOW
  15500	047370	062701 	000006 			ADD	#W.VBN,R1	;; POINT TO STARTING VBN IN WINDOW
  15501	047374	012105 				MOV	(R1)+,R5	;; GET HIGH ORDER VBN
  15502	047376	042705 	177400 			BIC	#177400,R5	;; MASK OFF HIGH BYTE
  15503	047402	160502 				SUB	R5,R2		;; SUBTRACT FROM DESIRED VBN
  15504	047404	162103 				SUB	(R1)+,R3	;; SUBTRACT LOW ORDER
  15505	047406	005602 				SBC	R2		;; AND THE CARRY
  15506	047410	002406 				BLT	40$		;; WINDOW IS PAST VBN - OUT
  15507
  15508					; NOW SCAN THE WINDOW FOR THE DESIRED VBN
  15509
  15510	047412				10$:
  15511	047412	161103 				SUB	(R1),R3		;; ACCUMULATE BLOCK COUNT
  15512	047414	005602 				SBC	R2
  15513	047416	103407 				BLO	20$		;; BRANCH IF WE GO BELOW ZERO
  15514	047420	062701 	000006 			ADD	#6,R1		;; SKIP OVER THIS RETRIEVAL POINTER
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 286-1
SCOMM MODULE -- ..VVLL	(MAP VIRTUAL TO LOGICAL BLOCK, INTERNAL

  15515	047424	077406 				SOB	R4,10$		;; AND LOOP FOR RETRIEVAL POINTERS
  15516	047426				40$:
  15517	047426					.ENB0			;; OUT OF POINTERS - VBN IS BEYOND WINDOW
	047426	004737 	044302'			JSR	PC,..ENB0
  15518	047432	000261 				SEC			; SET FAILURE
  15519	047434	000430 				BR	50$		; RETURN
  15520						;
  15521					;
  15522					; FOUND THE RIGHT RETRIEVAL POINTER - COMPUTE LBN
  15523					;
  15524	047436				20$:
  15525	047436	010305 				MOV	R3,R5		;; R5 = - (BLOCKS IN THIS EXTENT PAST VBN)
  15526									;; COMPUTE NUMBER OF CONTIGUOUS BLOCKS
  15527	047440	005405 				NEG	R5		;; STARTING AT DESIRED VBN
  15528	047442	062103 				ADD	(R1)+,R3	;; COMPUTE LBN OFFSET IN THIS EXTENT
  15529	047444	005502 				ADC	R2
  15530	047446	062102 				ADD	(R1)+,R2	;; GET HIGH ORDER LBN
  15531	047450	062103 				ADD	(R1)+,R3	;; AND LOW ORDER LBN
  15532	047452	005502 				ADC	R2
  15533	047454	160500 				SUB	R5,R0		;; SEE IF THE TRANSFER LIES WITHIN THIS EXTENT
  15534	047456	101413 				BLOS	25$		;; YES
  15535
  15536	047460	005304 				DEC	R4		;; SEE IF THERE IS ANOTHER POINTER
  15537	047462	001412 				BEQ	30$		;; NO
  15538	047464	020021 				CMP	R0,(R1)+	;; SEE IF REMAINDER OF TRANSFER LIES IN NEXT EXTENT
  15539	047466	101010 				BHI	30$		;; NO
  15540	047470	060305 				ADD	R3,R5		;; COMPUTE END LBN + 1
  15541	047472	010204 				MOV	R2,R4
  15542	047474	005504 				ADC	R4		;; COMPUTE HIGH ORDER
  15543	047476	020421 				CMP	R4,(R1)+	;; SEE IF NEXT EXTENT IS CONTIGUOUS WITH THIS ONE
  15544	047500	001003 				BNE	30$		;; NO
  15545	047502	020521 				CMP	R5,(R1)+	;; COMPARE LOW ORDER
  15546	047504	001001 				BNE	30$		;; NO
  15547
  15548	047506				25$:
  15549	047506	005000 				CLR	R0		;; TRANSFER IS COMPLETELY MAPPED
  15550	047510				30$:
  15551	047510					.ENB0			; ENABLE TASK SWITCHING
	047510	004737 	044302'			JSR	PC,..ENB0
  15552	047514	000241 				CLC			; SET SUCCESS
  15553	047516				50$:
  15554	047516	012605 				MOV	(SP)+,R5	; RESTORE REGISTES
  15555	047520	012604 				MOV	(SP)+,R4
  15556	047522	012601 				MOV	(SP)+,R1
  15557	047524					RETURN
	047524	000207 				RTS	PC
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288
END

  15561						.SBTTL	END
  15562					;
  15563					;                             COPYRIGHT (C) 1975, 1978 BY
  15564					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
  15565					;
  15566					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
  15567					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
  15568					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
  15569					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
  15570					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
  15571					;
  15572					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
  15573					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  15574					;       CORPORATION.
  15575					;
  15576					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
  15577					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
  15578					;
  15579		011320'				.END	INITLM
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288-1
SYMBOL TABLE

ACKNOW  025610RG 	BC.XEN= 000034 G 	CNUPE = 000002   	CTRLZ   032246R  	DE.04 = 000374 G
ADRSAV  005554RG 	BC.XOF= 000020 G 	COMBSE  001230RG 	CTYPTR  002634RG 	DE.05 = 000373 G
AF.PP = 000200 G 	BC.XON= 000021 G 	COMTRP  011426R  	CTYSTS  002664RG 	DE.06 = 000372 G
ASXCMN  013760R  	BELADR  036164RG 	COPBUF  027312RG 	CURBF = 000006   	DE.07 = 000371 G
ASXDT   013634R  	BITTBL  043022RG 	CPUERR  020500R  	CYCLS = 000002   	DE.08 = 000370 G
ASXEXT  014150R  	BIT0  = 000001   	CRADR   002730RG 	C.AS  = 000002 G 	DE.09 = 000367 G
ASXE1   013610RG 	BIT1  = 000002   	CRBFLN= 000240 G 	C.AT  = 000000 G 	DE.10 = 000366 G
ASXE2   013624R  	BIT10 = 002000   	CRBUFF  005732RG 	C.FA  = 000012 G 	DE.11 = 000365 G
ASXLRF  013774R  	BIT11 = 004000   	CRBUFH  005730RG 	C.FM  = 000010 G 	DE.80 = 000260 G
ASXLRQ  014032R  	BIT12 = 010000   	CRCEVF  005702RG 	C.HALT= 000033 G 	DE.81 = 000257 G
ASXSCN  013622R  	BIT13 = 020000   	CREVFG  005700RG 	C.HCRT= 000015 G 	DE.90 = 000246 G
ASXTE   014442R  	BIT14 = 040000   	CREXP = 006176RG 	C.HEOF= 000032 G 	DE.91 = 000245 G
ASXWR0  013662R  	BIT15 = 100000   	CRHD  = ****** GX	C.HESC= 000033 G 	DE.92 = 000244 G
ASXWR1  013672R  	BIT2  = 000004   	CRHUNG  005704RG 	C.HFFD= 000014 G 	DE.93 = 000243 G
ASXWR2  013702R  	BIT3  = 000010   	CRJT  = 001000   	C.HLFD= 000012 G 	DE.94 = 000242 G
ASXWR3  013712R  	BIT4  = 000020   	CROBAR  001034RG 	C.HPAR= 000200 G 	DE.95 = 000241 G
ASXWR4  013722R  	BIT5  = 000040   	CRSIZE= 000010 G 	C.HSPC= 000040 G 	DE.96 = 000240 G
A.EF  = 000020 G 	BIT6  = 000100   	CRSTB   011606R  	C.HTAB= 000011 G 	DE.97 = 000237 G
A.FB  = 000015 G 	BIT7  = 000200   	CRSTBH  005710RG 	C.HVTB= 000013 G 	DE.98 = 000236 G
A.FM  = 000024 G 	BIT8  = 000400   	CRSTBK  005712RG 	C.HXOF= 000023 G 	DE.99 = 000235 G
A.HA  = 000012 G 	BIT9  = 001000   	CRSTK = ****** GX	C.HXON= 000021 G 	DFTBL   025302RG
A.PD  = 000006 G 	BLDPKT  042702R  	CRSTLN= 000016 G 	C.RS  = 000006 G 	DFTSZ = 000076
A.PF  = 000034 G 	BLKTT   005624RG 	CRSTS = 006200RG 	C.SD  = 000004 G 	DFUNC = 000200
A.RP  = 000010 G 	BLXCOM  047102R  	CRTBL   006174RG 	C.SZ  = 000014 G 	DF.DMG= 000004
A.SP  = 000004 G 	BLXPLP  047132R  	CRTHD = 006174RG 	C1    = 140010   	DF.DMN= 000007
A.SZ  = 000036 G 	BLXRTN  047142R  	CRTNXA  014670R  	C1DB  = 140110   	DF.DOR= 000001
A.TD  = 000016 G 	BPARER= 000020   	CRTNX1  014662R  	DAG1  = 000030   	DF.EHG= 000010
A.TS  = 000014 G 	BPTTRP  011674R  	CRTNX2  014670R  	DAG2  = 000032   	DF.EHM= 000011
BC.AKA= 000025 G 	BTPHD   016032RG 	CRTNX3  014672R  	DAG3  = 000036   	DF.EMG= 000005
BC.BTP= 000024 G 	BTPRO   016332R  	CRTY  = 002000   	DATE  = 000004   	DF.EMN= 000006
BC.BTW= 000035 G 	BTWCHR  026140RG 	CR$BO5= 042750RG 	DBLDON  031044R  	DF.KLR= 000012
BC.DEB= 000036 G 	BYCNT   002726RG 	CR$B03= 046144RG 	DBLEPP  030644R  	DF.KLW= 000013
BC.DES= 000010 G 	BYTESA  005556RG 	CR$CBR= 017750RG 	DBLEPX  030650R  	DF.KLX= 000014
BC.EDR= 000027 G 	CDBA  = 177164 G 	CR$DTB= 030306RG 	DBLHDR  030740R  	DF.OFF= 000002
BC.FNM= 000040 G 	CDCC  = 177162 G 	CR$DTD= 011662RG 	DBLPWR  030700R  	DF.ON = 000003
BC.FOD= 000013 G 	CDD   = 000020   	CR$DTF= 027772RG 	DBLRLD  030654R  	DF.PDP= 000016
BC.HAD= 000002 G 	CDDB  = 177166 G 	CR$ETE= 027704RG 	DBLXFR  030710R  	DF.PEX= 000015
BC.HDS= 000007 G 	CDRTPD  007672RG 	CR$FTA= 011564RG 	DBLXIT  031056R  	DHBUF = 000020
BC.HTD= 000012 G 	CDST  = 177160 G 	CR$IAS= 015042RG 	DCOMST= 000001   	DHCNT = 000200 G
BC.LDR= 000030 G 	CDTSK   007312RG 	CR$ILF= 025402RG 	DEAND1  026220R  	DHERLG  041106R
BC.LDV= 000031 G 	CESCHK  021540R  	CR$ILQ= 030762RG 	DEAND3  025640R  	DHISTQ  035570R
BC.LNC= 000004 G 	CHNPNT= 000001   	CR$LRF= 014026RG 	DEANOD  026654R  	DHSAV   037274R
BC.NDM= 000037 G 	CHTBL   032344R  	CR$MPE= 011726RG 	DEP   = 010000   	DHSTSV  002652RG
BC.NSA= 000032 G 	CHTBLN= 000013   	CR$PT1= 030400RG 	DEPOF   001234RG 	DHTBL   003046RG
BC.RDS= 000005 G 	CH.FOR= 000100 G 	CR$PT2= 030416RG 	DEX   = 000400   	DHTMP   002646RG
BC.RQD= 000001 G 	CH.LAB= 000001 G 	CR$PT3= 030726RG 	DEXCOM  013444R  	DH.FER= 020000 G
BC.RTD= 000011 G 	CH.NAT= 000020 G 	CR$PT4= 031032RG 	DEXDON= 000004   	DIAG1 = 174430
BC.SAK= 000017 G 	CH.NDC= 000010 G 	CR$RES= 011670RG 	DEXST   001344RG 	DIAG2 = 174432
BC.SDS= 000006 G 	CH.OFF= 000200 G 	CR$TBT= 011676RG 	DEXTM1  001352RG 	DIAG3 = 174436
BC.SKP= 000033 G 	CH.UNL= 000040 G 	CR$TET= 027666RG 	DEXTM2  001350RG 	DIKL10= 000010
BC.SLA= 000023 G 	CKDLEN  040512R  	CR$T04= 011640RG 	DEXTM3  001346RG 	DIRDPT  013216R
BC.SNA= 000014 G 	CLRDEB  026772RG 	CR$UIE= 030640RG 	DEXWD1= 174406   	DIRMAX= 000102
BC.SPT= 000026 G 	CMEDP   021116R  	CSDONE  014612R  	DEXWD2= 174404   	DIROK   013212R
BC.STR= 000003 G 	CMNABO  011526RG 	CS.EXP= 177670   	DEXWD3= 174402   	DIV216  044036RG
BC.STS= 000022 G 	CMNABT  013342R  	CTLO  = 000040   	DE.01 = 000377 G 	DLCNT = 000005 G
BC.TDU= 000015 G 	CMSG    012142R  	CTRLC   032236R  	DE.02 = 000376 G 	DLECNT= 000004 G
BC.THU= 000016 G 	CNT     002724RG 	CTRLU   032242R  	DE.03 = 000375 G 	DLETBL  003006RG
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288-2
SYMBOL TABLE

DLHUPX  040302R  	DTEMTD= 000455   	D.CLPT= 000005 G 	E.DTE = 000001 G 	F.LBN   000026
DLTBL   002776RG 	DTEMTI= 000456   	D.CRJP= 000203 G 	E.DV  = 000006 G 	F.LGTH  000052
DLTMP   002650RG 	DTENM = 000000   	D.FA  = 000004 G 	E.FCRI= 000073 G 	F.LINK  000000
DLYCNT= 174400   	DTESNP  046534R  	D.FEPD= 000010 G 	E.FCTC= 000077 G 	F.NACS  000036
DL.CAR= 010000 G 	DTESP   025132RG 	D.FM  = 000002 G 	E.FFCP= 000072 G 	F.NLCK  000037
DL.CTS= 020000 G 	DTETPD  007572RG 	D.SZ  = 000006 G 	E.FN  = 000004 G 	F.NWAC  000040
DL.DEN= 000040 G 	DTETSK  007112RG 	D1011 = 000040   	E.FP  = 000000 G 	F.RVN   000012
DL.DSC= 100000 G 	DTEXIT  027726R  	EBSEL = 000100   	E.FPFR= 000074 G 	F.SCHA  000021
DL.DTR= 000002 G 	DTTSK   007352RG 	EBUSPC= 000020   	E.FPR1= 000100 G 	F.SIZE  000032
DL.FER= 020000 G 	DUPE  = 000020   	EBUSPS= 000004   	E.FPR2= 000076 G 	F.STAT  000040
DL.RAC= 004000 G 	DURE  = 000004   	ECHOB   035004R  	E.FRKP= 000075 G 	F.STD   000004
DL.RDE= 000001 G 	DVCH  = 110220   	EDONES= 040000   	E.FSND= 000040 G 	F.UCHA  000020
DL.RDN= 000200 G 	DV.CFG= 004000 G 	EDRMT   025406RG 	E.FW  = 000010 G 	F11TPD  007772RG
DL.REN= 000100 G 	DV.EOF= 000040 G 	EF.BOV= 000040 G 	E.IOD = 000005 G 	GENTPD  010012RG
DL.RNG= 040000 G 	DV.F11= 000400 G 	EF.CLK= 000002 G 	E.LS  = 000002 G 	GETBUF  031612R
DL.RTS= 000004 G 	DV.HNG= 001000 G 	EF.CRI= 002000 G 	E.NIR = 000004 G 	HANGUP  025466RG
DL.SRD= 002000 G 	DV.IOP= 000020 G 	EF.CTC= 040000 G 	E.OPSZ= 000060 G 	HIBYTE= 177400
DL.STD= 000010 G 	DV.LIN= 002000 G 	EF.DTE= 000001 G 	E.RKH = 000013 G 	HICTS   026224RG
DL.UNA= 001420 G 	DV.LOG= 000100 G 	EF.FCP= 001000 G 	E.RKR = 000012 G 	HIDVST  026420RG
DL.XEN= 000100 G 	DV.NXD= 000001 G 	EF.IOD= 000020 G 	E.RQM = 000010 G 	HORPS = 000016
DMTBE = 002776RG 	DV.OFL= 000002 G 	EF.NIR= 000010 G 	E.RSS = 000014 G 	H.CSP = 000000 G
DMTBL   002734RG 	DV.OIR= 000004 G 	EF.PFR= 004000 G 	E.TMO = 000007 G 	H.DSW = 000046 G
DMTMP   002644RG 	DV.SCN= 000010 G 	EF.PR1= 100000 G 	E.TTY = 000003 G 	H.FCP = 000050 G
DMTNXM  041066R  	DV.URE= 000200 G 	EF.PR2= 020000 G 	E.WFM = 000011 G 	H.FOR = 000052 G
DMYN  = 000004 G 	DWNMS   012770R  	EF.RKH= 002000 G 	FC.CEF= 020000   	H.HSZ = 000002 G
DNBLK   005606RG 	DWNMSG  012756R  	EF.RKP= 010000 G 	FC.DIR= 040000   	H.IPC = 000076 G
DNFCN   005610RG 	DWNMSZ= 000043   	EF.RKR= 001000 G 	FC.FCO= 010000   	H.IPS = 000074 G
DNSTS   005616RG 	DXBUF   005476RG 	EF.RQM= 000200 G 	FC.WAC= 100000   	H.ISP = 000100 G
DON10C= 040000   	DXCNT   005474RG 	EF.RSS= 004000 G 	FDVNM   027464R  	H.KCAC= 000020 G
DON10S= 100000   	DXHD  = ****** GX	EF.SND= 100000 G 	FDVNMF  027576R  	H.KCHN= 000010 G
DON11C= 000100   	DXPKT   005516RG 	EF.TED= 000100 G 	FDVNMM  027450R  	H.KEXT= 000004 G
DON11S= 000200   	DXRTC   005472RG 	EF.TMO= 000100 G 	FEHD  = ****** GX	H.KMOS= 000002 G
DPCMN   021112R  	DXSTK = ****** GX	EF.TTY= 000004 G 	FELXFR  030356R  	H.KPWR= 000040 G
DPMSEP  021140R  	DXTPD   007732RG 	EF.WFM= 000400 G 	FESTK = ****** GX	H.KUDF= 000001 G
DPSEC   021136R  	DXTSK   007412RG 	EHSG  = 000006 G 	FETBL   005542RG 	H.LUT = 000130 G
DPS4  = 040000   	DXUNIT  005514RG 	EHSM  = 000010 G 	FETPD   007612RG 	H.OVL = 000054 G
DQNXT   033172R  	DXVCB   005500RG 	EMGSTK  011426RG 	FETSK   007352RG 	H.TKVA= 000106 G
DRESET= 000100   	DXWD1 = 000006   	EMTSTK  001116RG 	FE0PUD  011172RG 	IDXTB   032360R
DRXCOM  013460R  	DXWD2 = 000004   	EMTTRP  013036RG 	FLBT  = 000001   	IE.ABO= 177761
DRXRR   013472R  	DXWD3 = 000002   	EMYN  = 000002 G 	FLBYT = 000011   	IE.ACT= 177771
DR.DTE= 000011   	DXWRD1= 002000   	EM.DRO= 000020 G 	FLCT  = 000017   	IE.ADP= 177636
DR.00 = 000000 G 	DX0PEN  011002RG 	ENBXOF  025416RG 	FLDVOT  026664RG 	IE.ALN= 177736
DR.01 = 000001 G 	DX1PEN  011052RG 	ENTELQ  030320R  	FNBYT = 000005   	IE.AST= 177660
DR.02 = 000002 G 	D$$H11= 000010   	EOLS  = 000400   	FNDDM   027366R  	IE.BAD= 177777
DR.03 = 000003 G 	D.AT  = 000000 G 	EPTR  = 000000   	FNDSPD  027420R  	IE.BBE= 177710
DSEND = 000004   	D.CCDR= 000006 G 	EQSZ    001332RG 	FORPRO= 000020   	IE.BDI= 177714
DS.99   013210R  	D.CCLK= 000007 G 	ERR10C= 010000   	FW    = 000300   	IE.BDR= 177716
DS04  = 004000   	D.CCPU= 000200 G 	ERR10S= 020000   	F.DREF  000042   	IE.BDV= 177711
DS05  = 002000   	D.CCTY= 000001 G 	ERR11C= 000001   	F.DRNM  000044   	IE.BHD= 177700
DS06  = 001000   	D.CDH1= 000003 G 	ERR11S= 000002   	F.FEXT  000002   	IE.BLK= 177754
DTEADR  001270RG 	D.CDLS= 000004 G 	EV.AS = 000002 G 	F.FNUM  000006   	IE.BNM= 177712
DTECMD= 000451   	D.CDL1= 000002 G 	EV.PF = 000200 G 	F.FOWN  000014   	IE.BTF= 177675
DTEDSP  020442R  	D.CDMB= 000204 G 	EV.SE = 000001 G 	F.FPRO  000016   	IE.BTP= 177725
DTEFLG= 000444   	D.CDTE= 000202 G 	EXCMN   021146R  	F.FSEQ  000010   	IE.BVR= 177701
DTEF11= 000450   	D.CKLE= 000201 G 	EXKAL   032260R  	F.FSQN  000013   	IE.BYT= 177755
DTEHD   024652RG 	D.CKLN= 000210 G 	E.BOV = 000006 G 	F.FVBN  000046   	IE.CKP= 177766
DTEMSK  001266RG 	D.CLOG= 000205 G 	E.CLK = 000002 G 	F.HDLB  000022   	IE.CKS= 177742
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288-3
SYMBOL TABLE

IE.CLO= 177732   	IE.STK= 177706   	IO.HDX= 003010   	IO.WLS= 000410   	KS.CST= 000020 G
IE.CON= 177752   	IE.ULN= 177773   	IO.HIS= 015000   	IO.WLV= 000500   	KS.DEX= 000010 G
IE.DAA= 177770   	IE.UPN= 177777   	IO.INL= 002400   	IO.WVB= 011000   	KS.DPE= 002000 G
IE.DAO= 177763   	IE.VER= 177774   	IO.ITI= 017000   	IO.XMT= 014400   	KS.EPE= 000004 G
IE.DFU= 177750   	IE.WAC= 177743   	IO.KIL= 000012   	IO.XNA= 014410   	KS.FCF= 004000 G
IE.DNA= 177771   	IE.WAT= 177741   	IO.LED= 012000   	IQ.Q  = 000002   	KS.FME= 000400 G
IE.DNR= 177775   	IE.WER= 177737   	IO.LOV= 001010   	IQ.X  = 000001   	KS.PFT= 000100 G
IE.DUN= 177767   	IE.WLK= 177764   	IO.LTK= 000050   	IS.BV = 000005   	KS.PTO= 000200 G
IE.DUP= 177707   	IE.2DV= 177720   	IO.MCS= 013400   	IS.CLR= 000000   	KS.TRR= 000040 G
IE.EBX= 177776   	IFLOP = 100000   	IO.MDA= 016000   	IS.CR = 006401   	KS.TSP= 000001 G
IE.EOF= 177766   	IGNO    012140RG 	IO.MDI= 014400   	IS.ESC= 015401   	K.LBPW= 000005 G
IE.EOT= 177702   	INIAN   046130RG 	IO.MDO= 015400   	IS.PND= 000000   	K.LCKL= 177777 G
IE.EOV= 177765   	INITLM  011320RG 	IO.MLO= 006000   	IS.RDD= 000002   	K.LCON= 000004 G
IE.EXP= 177676   	INPPT   034736R  	IO.MOD= 003000   	IS.SET= 000002   	K.LDCM= 000001 G
IE.FEX= 177717   	INPT0   034744R  	IO.MSO= 005000   	IS.SUC= 000001   	K.LDRP= 177777 G
IE.FHE= 177705   	INPT1   035302R  	IO.RAL= 001010   	KBB0  = 177562 G 	K.LDSC= 000003 G
IE.FOP= 177713   	INSHD = ****** GX	IO.RAT= 013000   	KBB1  = 175612 G 	K.LLTO= 000006 G
IE.HFU= 177744   	INSTAL= ****** GX	IO.RBC= 003000   	KBS0  = 177560 G 	K.LRAC= 000001 G
IE.HWR= 177772   	INSTK = ****** GX	IO.RCI= 015000   	KBS1  = 175610 G 	K.LRBA= 000007 G
IE.IDU= 177644   	INSTPD  007552RG 	IO.RCV= 015000   	KLCST   021226R  	K.LRMN= 000003 G
IE.IEF= 177637   	INTLPS  027640R  	IO.RDB= 001200   	KLNLGL= 000016 G 	K.LRNG= 000002 G
IE.IFC= 177776   	INTROF= 000010   	IO.RDN= 000022   	KLNPLN= 000026 G 	K.LROP= 000001 G
IE.IFU= 177747   	INTRON= 000040   	IO.REL= 013400   	KLNPTR  002636RG 	K.LRPR= 000002 G
IE.ILL= 177726   	INTSON= 000001   	IO.RHD= 001010   	KLPWRF= 000010   	K.LRRJ= 177777 G
IE.ILU= 177640   	INT10S= 000400   	IO.RLB= 001000   	KL.ABO= 010000 G 	K.LSCK= 000001 G
IE.INS= 177776   	INT11C= 002000   	IO.RLV= 001100   	KL.CFL= 000400 G 	K.LSKL= 000001 G
IE.IPR= 177641   	INT11S= 004000   	IO.RNA= 005400   	KL.CFM= 000002 G 	K.LUND= 000000 G
IE.ISQ= 177703   	IOPSIZ= 007777   	IO.RNC= 001004   	KL.DEF= 002000 G 	K.LUSR= 177777 G
IE.ITI= 177643   	IOTTRP  011732R  	IO.RNE= 001020   	KL.KAC= 001000 G 	LDLPR   026420RG
IE.ITS= 177770   	IO.ACE= 007400   	IO.RTC= 003400   	KL.LCA= 000100 G 	LDLPV   026420RG
IE.LCK= 177745   	IO.ACR= 006400   	IO.RTI= 016400   	KL.LRM= 000001 G 	LFBT  = 004000
IE.LNL= 177646   	IO.ACW= 007000   	IO.RTK= 000060   	KL.LVB= 000004 G 	LFCT  = 074000
IE.MBK= 177721   	IO.ADS= 014000   	IO.RVB= 010400   	KL.REQ= 004000 G 	LINCHR  026464RG
IE.MOD= 177753   	IO.APC= 014000   	IO.RWD= 002400   	KL.SPF= 000040 G 	LKS   = 177546 G
IE.NBF= 177731   	IO.APV= 014010   	IO.RWU= 002540   	KL.SSC= 000200 G 	LOAD11= 000004
IE.NBK= 177727   	IO.ATT= 001400   	IO.R1C= 002400   	KL.VBD= 000020 G 	LODNOD  031712R
IE.NFI= 177704   	IO.CCI= 014000   	IO.SAO= 004000   	KL.VBN= 000010 G 	LOWCOD= 000000RG
IE.NLN= 177733   	IO.CCT= 002460   	IO.SCS= 013000   	KPAL0   001376RG 	LPCEVF  006210RG
IE.NNC= 177674   	IO.CLN= 003400   	IO.SDI= 013000   	KPAL1   001406RG 	LPCSA = 000002 G
IE.NOD= 177751   	IO.CON= 015400   	IO.SDO= 012400   	KPAR0 = 172360   	LPCSM = 000022 G
IE.NSF= 177746   	IO.CRC= 001020   	IO.SEC= 002520   	KPAR1 = 172362   	LPEVFG  006206RG
IE.OFL= 177677   	IO.CRE= 012000   	IO.SEM= 002440   	KPAR2 = 172364   	LPEXPA= 175400 G
IE.ONP= 177773   	IO.CTI= 015400   	IO.SHT= 002410   	KPAR3 = 172366   	LPEXPZ= 000020 G
IE.OVR= 177756   	IO.CTL= 016400   	IO.SLO= 005400   	KPAR4 = 172370   	LPHD  = ****** GX
IE.PRI= 177760   	IO.DAC= 010000   	IO.SMO= 002560   	KPAR5 = 172372   	LPHUNG  006212RG
IE.RAC= 177724   	IO.DCI= 014400   	IO.SNM= 002450   	KPAR6 = 172374   	LPITH = 000006 G
IE.RAT= 177723   	IO.DCT= 002470   	IO.SPB= 002420   	KPAR7 = 172376   	LPMCB = 000020 G
IE.RBG= 177730   	IO.DEL= 012400   	IO.SPF= 002440   	KPDR0 = 172300   	LPRMA = 000040 G
IE.RCN= 177722   	IO.DET= 002000   	IO.SSO= 004400   	KPDR1 = 172302   	LPRMC = 000044 G
IE.RER= 177740   	IO.DIS= 016000   	IO.SST= 002430   	KPDR2 = 172304   	LPRMZ = 000042 G
IE.RNM= 177715   	IO.DTI= 016000   	IO.STC= 002500   	KPDR3 = 172306   	LPRTY = 000024 G
IE.RSU= 177757   	IO.ENA= 006000   	IO.STP= 016400   	KPDR4 = 172310   	LPSIZE= 000010 G
IE.SDP= 177635   	IO.EOF= 003000   	IO.SYN= 003040   	KPDR5 = 172312   	LPSTBH  006216RG
IE.SNC= 177735   	IO.ESA= 002500   	IO.TRM= 002410   	KPDR6 = 172314   	LPSTBK  006220RG
IE.SPC= 177772   	IO.EXT= 011400   	IO.UNL= 000042   	KPDR7 = 172316   	LPSTK = ****** GX
IE.SQC= 177734   	IO.FDX= 003020   	IO.WAT= 013400   	KS.CES= 000002 G 	LPSTLN= 000030 G
IE.SRE= 177762   	IO.FNA= 004400   	IO.WLB= 000400   	KS.CPE= 001000 G 	LPSTS = 000000 G
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288-4
SYMBOL TABLE

LPTBL   006250RG 	PR2   = 000100   	RMBYT = 000004   	SKX     023236R  	S.SP  = 000022 G
LPTBL2  006270RG 	PR3   = 000140   	RPBUF   005524RG 	SNDALL  027000RG 	S.SS  = 000030 G
LPTBL3  006310RG 	PR4   = 000200   	RPCNT   005530RG 	SNDBEL  036112RG 	S.STBK= 000012
LPTHD = 000004 G 	PR5   = 000240   	RPCW2   005534RG 	SNDMSG  013034RG 	S.SZ  = 000036 G
LPTPD   007652RG 	PR6   = 000300   	RPHD  = ****** GX	SNDSTS  031536R  	S.TD  = 000004 G
LPTSK   007252RG 	PR7   = 000340 G 	RPPEN   010302RG 	SPDTB   032374R  	S.TN  = 000000 G
LPUNIT  006204RG 	PS    = 177776 G 	RPRNA   005522RG 	SPDTBL  024616R  	S.TZ  = 000016 G
LPUTBL  006330RG 	PSWW1 = 000005   	RPRTC   005520RG 	SPDTBZ= 000016   	S0.ABR= 100000 G
LP0PUD  011122RG 	PSWW10= 000014   	RPSTK = ****** GX	SPSAV   001020RG 	S0.CON= 040000 G
L$$P20= 000002   	PSWW11= 000015   	RPTPD   007752RG 	STAT  = 174434   	S0.ISP= 001700 G
L.DT0 = 000003 G 	PSWW12= 000016   	RPTSK   007212RG 	STATD = 000034   	S0.MSK= 140000 G
L.DX0 = 000005 G 	PSWW13= 000017   	RPUNIT  005532RG 	STATI   001336RG 	S0.OSP= 036000 G
L.DX1 = 000006 G 	PSWW2 = 000006   	RQKLD   032326R  	STATS = 000000   	S0.SPD= 037700 G
L.RP4 = 000002 G 	PSWW3 = 000007   	RQKLR   032310R  	STATUS= 000022   	S2.CHR= 000377 G
L.TTY = 000001 G 	PSWW4 = 000010   	RQMCR   032272R  	STBXFR  031670R  	S2.CNT= 001400 G
MBUFR = 000014   	PSWW5 = 000011   	RQSPB   024074R  	STCM    045356R  	S2.DDN= 100000 G
MEBUF = 000012   	PSWW6 = 000012   	RQSPT   024070RG 	STDCDR  006746RG 	S2.DIP= 040000 G
MECNT = 000010   	PSWW7 = 000013   	RQSTD   024106R  	STDDTE  006406RG 	S2.DIS= 020000 G
MODE  = 100000   	PULSE = 000020   	RSX$$E= 000045   	STDDX   006506RG 	S2.ENB= 010000 G
MPE11 = 001000   	PWRXSP  001032RG 	RSX$$F= 000105   	STDFED  006446RG 	S2.LCL= 004000 G
M.PARQ= 000002 G 	PWR.UP  017720RG 	RSX$$K= 000126   	STDF11  006546RG 	S2.RES= 002000 G
M.TAKP= 000001 G 	QNDSV   023200R  	RSX$$V= 000014   	STDINS  006646RG 	S2.SSZ= 001000 G
NODADR  005552RG 	QPRDTC  025152RG 	RTDVST  026420RG 	STDLPT  006706RG 	TBIT  = 000020 G
NOSNDA  025424RG 	QPRDTE  025156RG 	RTNTOD  026374RG 	STDQPR  007046RG 	TEDXIT  030534R
NTKXEN  012542R  	QPRDTF  026660R  	RUBP  = 000020   	STDRPT  006606RG 	TENAD1= 174410
NTKXEP  012546R  	QPRDTL  025234R  	R$$11D= 000001   	STDTTY  007006RG 	TENAD2= 174412
NTKXSP  012522RG 	QPROAD  017572R  	R.AS  = 000020 G 	STDVST  026420RG 	TF.OU = 000002 G
NULHD   012242RG 	QPROMS  017550R  	R.AT  = 000006 G 	STELIG  031302R  	THRED = 000000 G
NULSTP= 000040   	QPRTPD  007712RG 	R.DP  = 000011 G 	STELIX  031324R  	TMOCNT  002662RG
NULTSK  007512RG 	QPRTSK  007452RG 	R.FC  = 000014 G 	STIND2  030102R  	TNAD1 = 000010
NUPE  = 000002   	QSIZE = 000023   	R.FN  = 000013 G 	STLN    045412R  	TNAD2 = 000012
N.BP  = 000002 G 	Q.AK  = 000012 G 	R.LU  = 000012 G 	STNXT   034062R  	TN.EMT= 000012 G
N.FP  = 000000 G 	Q.DA  = 000000 G 	R.PB  = 000024 G 	STPLIN  026042RG 	TN.LRF= 000040 G
N.OVPT= 000054 G 	Q.DZ  = 000016 G 	R.PR  = 000010 G 	STRBF = 000002   	TN.TRP= 000014 G
N.PR  = 000010 G 	Q.D1  = 000006 G 	R.QSGC= 000015   	STRDAT  026420RG 	TOBM  = 000004
OKPAL0  001404RG 	Q.IOAE= 000012   	R.QSPC= 000014   	STSTT   001320RG 	TOD   = 000003
OUTPT   034546R  	Q.IOEF= 000006   	R.QSPN= 000006   	STSWD   005560RG 	TOIP  = 000002
OUTPT3  034466R  	Q.IOFN= 000002   	R.QSPR= 000012   	STSW0 = 000004 G 	TOIT  = 000001
PARLOA  020266R  	Q.IOLU= 000004   	R.QSTN= 000002   	STSW1 = 000006 G 	TOITDN  030522R
PARLOT  020340R  	Q.IOPL= 000014   	R.SB  = 000016 G 	STSW2   005060RG 	TOXQIP  001373RG
PARSAV  001022RG 	Q.IOPR= 000007   	R.TD  = 000004 G 	STTYDN  033676R  	TO10  = 000200
PERCLR= 001000   	Q.IOSB= 000010   	R.UI  = 000022 G 	STTYO   034272R  	TO10AD= 174420
PHYS  = 100000   	Q.SI  = 000004 G 	SCD   = 000040   	STXAS = 000000 G 	TO10AS  001316RG
PIDENT= 000000   	Q.SP  = 000006 G 	SETDEB  026762RG 	STXCS = 000000 G 	TO10BC= 174414
PRB0  = 177566 G 	Q.ST  = 000004 G 	SETLIN  025622RG 	STXDX = 000000 G 	TO10BM= 000001
PRB1  = 175616 G 	Q.SZ  = 000020 G 	SETSPD  025642RG 	SWR   = 177570   	TO10DB= 000400
PRI7  = 000340 G 	Q.TS  = 000002 G 	SEXCM   022060R  	SWSLLT= 100000   	TO10DN= 100000
PRMBLK  023206R  	RAMIS0= 010000   	SEXP0   022066R  	SY0PUD  011242RG 	TO10DT= 174424
PRMEMN  001232RG 	RCVKLP  026722RG 	SEXP1   022146R  	S.BA  = 000012 G 	TO10ER= 020000
PROPNT= 000021   	RESERV  011666R  	SEXP2   022050R  	S.DI  = 000011 G 	TO10PK  005564RG
PROTBL  001236RG 	RETTOD  026626RG 	SEX97   022150R  	S.DL  = 000032 G 	TO10Q   001326RG
PRS0  = 177564 G 	RFMAD0= 100000   	SF.EX = 000004 G 	S.DP  = 000010 G 	TO10QC= 001324RG
PRS1  = 175614 G 	RFMAD1= 040000   	SF.FX = 000002 G 	S.FW  = 000006 G 	TO10SZ  001314RG
PRTOFF= 004000   	RFMAD2= 020000   	SF.IR = 040000 G 	S.LZ  = 000014 G 	TO11  = 000100
PRVCM   021466R  	RFMAD3= 010000   	SF.PT = 000001 G 	S.PC  = 000020 G 	TO11AD= 174422
PR0   = 000000   	RF.XR = 000002 G 	SF.ST = 100000 G 	S.RB  = 000026 G 	TO11AS  001310RG
PR1   = 000040   	RM    = 000010   	SF.TA = 000001 G 	S.RF  = 000024 G 	TO11BC= 174416
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288-5
SYMBOL TABLE

TO11BM= 020000   	TT.FEI= 004000 G 	UNASG2= 000033   	V.FMAX  000016   	$EXMYG  021142RG
TO11BS  001312RG 	TT.NSA= 000400 G 	UNASG3= 000034   	V.FPRO  000030   	$EXMYN  021152RG
TO11DB= 004000   	TT.OUT= 000001 G 	UNASG4= 000035   	V.FRBK  000034   	$FE   = 000001
TO11DN= 000200   	TT.RIP= 002000 G 	UNASG5= 000036   	V.IBLB  000012   	$F11  = 000001
TO11DT= 174426   	TT.RMT= 000100 G 	UNASG6= 000037   	V.IBSZ  000013   	$KLDFC  021362RG
TO11DV  001300RG 	TT.RSI= 020000 G 	UNRGFN  025400RG 	V.IFWI  000002   	$KLDFR  021202RG
TO11ER= 000002   	TT.SIP= 001000 G 	UPAR0 = 177640   	V.LABL  000040   	$KLDFW  021342RG
TO11FN  001276RG 	TT.SND= 140000 G 	UPAR1 = 177642   	V.LGTH  000056   	$KLDFX  021320RG
TO11FW  001304RG 	TT.SNI= 040000 G 	UPAR2 = 177644   	V.LRUC  000035   	$LPINT= ****** GX
TO11GW  001306RG 	TT.XEN= 000020 G 	UPAR3 = 177646   	V.SBCL  000021   	$LP20 = 000001
TO11HD  001274RG 	TT.XOF= 000200 G 	UPAR4 = 177650   	V.SBLB  000024   	$MUL  = ****** GX
TO11NP  001272RG 	T.BA  = 000004 G 	UPAR5 = 177652   	V.SBSZ  000022   	$PRVDP  021440RG
TO11Q   001334RG 	T.FW  = 000010 G 	UPAR6 = 177654   	V.STAT  000054   	$PRVEX  021454RG
TO11QC= 001325RG 	T.HBCT= 000002 G 	UPAR7 = 177656   	V.STD   000004   	$RP04 = 000001
TO11SP  001302RG 	T.HCAD= 000004 G 	UPDR0 = 177600   	V.TRCT  000000   	$RWDRG  021510RG
TRPASV  001120RG 	T.HCBC= 000006 G 	UPDR1 = 177602   	V.WISZ  000020   	$RX11 = 000001
TRPXIT  011570R  	T.HFCN= 000007 G 	UPDR2 = 177604   	WEP   = 000010   	$TOP10= 000001
TRP4    011616R  	T.HHDS= 000010 G 	UPDR3 = 177606   	WFXSET  013762R  	$TTINP  036166RG
TS.EXT= 000026 G 	T.HP  = 000012 G 	UPDR4 = 177610   	WI.BPS= 100000   	$TTOUT  034224RG
TS.LRF= 000006 G 	T.HRED= 000000 G 	UPDR5 = 177612   	WI.DLK= 010000   	$T1091= 000001
TS.LRQ= 000002 G 	T.PN  = 000000 G 	UPDR6 = 177614   	WI.EXT= 002000   	$UNIT   002640RG
TS.RUN= 000010 G 	T.PZ  = 000006 G 	UPDR7 = 177616   	WI.LCK= 004000   	$$    = 000037
TS.SUS= 000012 G 	T.RAPB= 000004 G 	UT.LG = 000004 G 	WI.RDV= 000400   	$$MSG = 000000
TS.TKN= 000004 G 	T.RAPE= 000012 G 	UT.PR = 000001 G 	WI.WRV= 001000   	$$$   = 010016R
TS.WF0= 000014 G 	T.RAPF= 000016 G 	UT.SL = 000002 G 	WTLODT  024572R  	$$$ARG= 000011
TS.WF1= 000016 G 	T.RAPI= 000006 G 	U.ACP = 000040 G 	W.CTL   000000   	$$$OST= 000016
TS.WF2= 000020 G 	T.RAPM= 000002 G 	U.AF  = 000014 G 	W.FCB   000002   	$$$T1 = 000000
TS.WF3= 000022 G 	T.RAPR= 000010 G 	U.AR  = 000034 G 	W.RTRV  000012   	$$$UNI= 000002
TS.WF4= 000024 G 	T.RAPT= 000014 G 	U.CH  = 000032 G 	W.STD   000004   	.ABCNT  002600RG
TTCNT = 000205 G 	T.RAP4= 000000 G 	U.C1  = 000004 G 	W.VBN   000006   	.ABFLG  002602RG
TTCTY   036646R  	T.RB  = 000016 G 	U.C2  = 000006 G 	W.WISZ  000007   	.ACKAL  001164RG
TTINI   032404RG 	T.RF  = 000014 G 	U.C3  = 000010 G 	XOFF    026166RG 	.ATLLH  007106RG
TTINO   033546R  	T.SZ  = 000020 G 	U.C4  = 000012 G 	XON     026202RG 	.ATOTA  011317RG
TTINPA  036206R  	T10AD = 000020   	U.DACP= 000036 G 	X.X94   015650R  	.BGBST= 076000 G
TTINPB  036374R  	T11AD = 000022   	U.DN  = 000000 G 	X.X95   015652R  	.BGBUF  001414RG
TTINX   033542R  	T11BC = 000016   	U.FB  = 000003 G 	X8X97   043146RG 	.BGLEN= 002000 G
TTOUTR  034366R  	U     = 000040   	U.FO  = 000043 G 	X9X96   015726R  	.BM873= 173000 G
TTOUTX  034360R  	UC.CCL= 000002 G 	U.GC  = 000031 G 	ZSTOP = 040000   	.BRCLK= 005000
TTPEN   010232RG 	UC.COM= 020000 G 	U.HA  = 000020 G 	$BTMSK  002642RG 	.BRKCH  002630RG
TTPKT   002732RG 	UC.DIR= 000010 G 	U.LBH = 000044 G 	$CDINT= ****** GX	.BTPRM  001160RG
TTSAV   037332R  	UC.ETB= 000100 G 	U.LBN = 000046 G 	$CD11 = 000001   	.BTSCH  001162RG
TTSTCH  036232R  	UC.F11= 040000 G 	U.PC  = 000030 G 	$DBDTE= 000001   	.BTSTK  016312RG
TTTBL   002776RG 	UC.INB= 000400 G 	U.PR  = 000042 G 	$DHINP  035534RG 	.CECLK= 004000
TTWLO   032252R  	UC.ISP= 002000 G 	U.RB  = 000024 G 	$DHOUT  033552RG 	.CEFN   043062RG
TTYDNE  034654R  	UC.MNT= 100000 G 	U.RF  = 000022 G 	$DH11 = 000001   	.CEFN3  043066RG
TTYDNX  034720R  	UC.PSE= 010000 G 	U.RP  = 000016 G 	$DIV  = ****** GX	.CKASS  001050RG
TTYEND= 005046RG 	UC.REC= 000001 G 	U.SZ  = 000050 G 	$DMINT  037626RG 	.CKDEL  043150RG
TTYEXP= 000002 G 	UC.SDI= 000020 G 	U.TF  = 000042 G 	$DORBL  020502RG 	.CLKBA  002370RG
TTYHD   031736RG 	UC.SQD= 000040 G 	U.UI  = 000030 G 	$DPMYG  021110RG 	.CLKEA  002574RG
TTYSP   032216RG 	UC.SWL= 001000 G 	U.UN  = 000002 G 	$DPMYN  021160RG 	.CLKSW  001136RG
TTYTPD  007632RG 	UC.TTY= 000004 G 	U.VA  = 000026 G 	$DSW  = 000046 G 	.CLKSZ= 000007 G
TTYTSK  007152RG 	UC.0SP= 004000 G 	U.VP  = 000032 G 	$DTE  = 000001   	.CLRMR= 006000
TT.ABL= 000040 G 	UF.OFL= 000040 G 	VC.BMW= 000002   	$DTEOF  020504RG 	.CLRUN= 010000
TT.ABW= 000010 G 	UF.RD = 000040 G 	VC.IFW= 000001   	$DTEON  020512RG 	.COMEF  001010RG
TT.CRW= 000004 G 	UF.RH = 000200 G 	V.FCB   000006   	$DXINT= ****** GX	.CONBT= 012000
TT.CTY= 000002 G 	UF.TL = 000100 G 	V.FFNU  000055   	$EXHSG  021166RG 	.CPDV   001254RG
TT.FEC= 014000 G 	UNASG1= 000032   	V.FIEX  000025   	$EXHSM  021174RG 	.CPFN   001252RG
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288-6
SYMBOL TABLE

.CPUSN  011312RG 	.D.GMP  024232RG 	.KLNPE= 001220RG 	.PRDCT  001362RG 	.STTYD  040060RG
.CRHD   001262RG 	.D.GPP  024110RG 	.KLNPT  002636RG 	.PRDTE  001360RG 	.STTYH  040074RG
.CRPB   001260RG 	.D.GTP  021720RG 	.KLNPW  001220RG 	.PRPSE  001372RG 	.SYUIC  001156RG
.CRPFL  005706RG 	.D.MKT  022350RG 	.KLNSW  001226RG 	.PRSTA  001356RG 	.S2IDC  005050RG
.CRQZ   001250RG 	.D.PUT  023640RG 	.KLNTD  001212RG 	.PUDBA  010232RG 	.S2ITP  005052RG
.CRSB   001264RG 	.D.QIO  022542RG 	.KLNTT  001210RG 	.PUDEA  011312RG 	.TENDN  027746RG
.CRSND  002626RG 	.D.RAF  022126RG 	.KLRLD  001172RG 	.PWRDN  017574RG 	.TFXOF  043004RG
.CRSZ   001256RG 	.D.REC  023460RG 	.KPAC   001410RG 	.RCRM1= 147000   	.TFXON  042774RG
.CRTSK  001006RG 	.D.REF  022112RG 	.KPALV  031326RG 	.RCRM2= 146000   	.TICK   024364RG
.CSHRG= 164000   	.D.REQ  023662RG 	.KW11S  035366RG 	.RCRM3= 145000   	.TICKS  001134RG
.CTYPT  002634RG 	.D.ROE  023460RG 	.LCEND= 011320RG 	.RCRM4= 144000   	.TKPS   001154RG
.CYLTM= 000074 G 	.D.ROS  023460RG 	.LCRDL= 052000   	.RCSPF= 141000   	.TKTN   001124RG
.DATE   001140RG 	.D.SAR  023226RG 	.LCRDR= 051000   	.RDJ14= 134000   	.TKTN.  012740R
.DATE3  001140RG 	.D.SEF  022052RG 	.LCRM1= 057000   	.RDJ71= 135000   	.TOD.   012722R
.DAY    001144RG 	.D.SEN  023212RG 	.LCRM2= 056000   	.RDMAB= 133000   	.TPDBA  007552RG
.DBINT= ****** GX	.D.STV  023626RG 	.LCRM3= 055000   	.REQS   015046RG 	.TPDEA  010032RG
.DHSPD  037554RG 	.D.WFL  022230RG 	.LCRM4= 054000   	.RPADR  005670RG 	.TTACK  034370RG
.DHSPF  037514RG 	.D.WFO  022154RG 	.LCRM5= 053000   	.RPELC  005540RG 	.TTBTW  042604RG
.DHSPR  037460RG 	.D.WFS  022152RG 	.LDAR = 077000   	.RPELQ  005536RG 	.TTCHK  042124RG
.DHSTO  034164RG 	.D.WSE  022336RG 	.LDBRL= 043000   	.RPSIZ  005674RG 	.TTDIS  042312RG
.DHTMO  040646RG 	.EBPEC  001370RG 	.LDBRR= 042000   	.RPUNT  005664RG 	.TTELB  002660RG
.DHXOF  041632RG 	.EBPEQ  001366RG 	.LDCK1= 046000   	.RP1PE  010352RG 	.TTELC  002656RG
.DHXON  041754RG 	.EBRTY  001365RG 	.LDCK2= 047000   	.RP2PE  010422RG 	.TTELQ  002654RG
.DLHUP  040214RG 	.EIOJA= 067000   	.LDDIS= 045000   	.RP3PE  010472RG 	.TTENB  042464RG
.DLINT  036500RG 	.ELEDN  030234RG 	.LDRJD= 064000   	.RP4PE  010542RG 	.TTERL  041426RG
.DLSTO  034340RG 	.EXEND  001002RG 	.LDRJV= 063000   	.RP5PE  010612RG 	.TTFDI  041360RG
.DLTMO  040336RG 	.FEACK= ****** GX	.LDRM1= 060000   	.RP6PE  010662RG 	.TTICK  042150RG
.DLXOF  041640RG 	.FEACT  005666RG 	.LDRM2= 061000   	.RP7PE  010732RG 	.TTIXC  042254RG
.DLXON  042020RG 	.FEMOD  001170RG 	.LDRM3= 062000   	.RQESD  015540RG 	.TTP11  002632RG
.DMHUP  040144RG 	.FEPPU  015550RG 	.LDSEL= 044000   	.RQSPD  024600RG 	.TTQDS  042204RG
.DMTMO  041126RG 	.FEST = ****** GX	.LPPFL  006214RG 	.SECLK= 003000   	.TTQEN  042214RG
.DOW    001147RG 	.FESTB  001000RG 	.MEMRS= 076000   	.SEND   023360RG 	.TTRNG  040044R
.DQCDR  010152RG 	.FREPL  001420RG 	.MISC   011316RG 	.SERFG  001014RG 	.TTRST  042034RG
.DQDH0  010072RG 	.FSRPT= 000050 G 	.MON    001145RG 	.SETMR= 007000   	.TTSCW  040050R
.DQDLS  010112RG 	.GFNR = 102000   	.MSIZE  001114RG 	.SETRN= 011000   	.TTSTP  041650RG
.DQDL1  010052RG 	.HRDWR  011314RG 	.NOERR  001122RG 	.SEWFL  001016RG 	.TTSW2  042754RG
.DQLPT  010132RG 	.IBFLO  005054RG 	.NOHLT= 001123RG 	.SNDAL  027006RG 	.TTS2F  005046RG
.DQPBA  010032RG 	.IBFOK  005056RG 	.OBFLO= 001200 G 	.SNDBF  002606RG 	.TTXOF  041554RG
.DQPEA  010232RG 	.INHDM  002576RG 	.PARER  011702R  	.SNDCN  002616RG 	.TTXON  041676RG
.DQPSZ= 000010 G 	.INICL= 070000   	.PARRG= 172100 G 	.SNDLP  002604RG 	.VCLUN  015654RG
.DRBEL  030540RG 	.INTEN= 000100 G 	.PAT1.  000040RG 	.SSCLK= 002000   	.VERNO  001036RG
.DRLTC= 015000   	.IOSNP  012156R  	.PAT2.  000120RG 	.SSM    001150RG 	.WRMBX= 071000
.DRSRN  013352RG 	.IRLTC= 014000   	.PAT3.  000234RG 	.SSTCO  013326RG 	.X.02   023234R
.DR.NS  013460RG 	.KACFL  001412RG 	.PAT4.  000520RG 	.SSTET  013320RG 	.YEAR   001142RG
.DSACF= 066000   	.KALSC= 000005 G 	.PCAB1= 150000   	.STAST  015730RG 	..AKCR= ****** GX
.DSIOJ= 065000   	.KLERQ  001130RG 	.PCAB2= 151000   	.STDHL  037416RG 	..AKLP= ****** GX
.DST    001146RG 	.KLERW  001166RG 	.PCAB3= 152000   	.STDTA  006334RG 	..ALCB  044416RG
.DTBLK  001374RG 	.KLFCF  001173RG 	.PCAB4= 153000   	.STDTB  006342RG 	..ALC2  044432RG
.DTINT  027624RG 	.KLFLG  001174RG 	.PDP11= 000050   	.STDTC  006336RG 	..ALOW  044706RG
.DXRTY  001364RG 	.KLITK  001126RG 	.PFAIL  001026RG 	.STDTZ  006340RG 	..BLXI  047062RG
.D.ASS  021564RG 	.KLIWD  001132RG 	.PFASS  001052RG 	.STELD  031062RG 	..BLXO  047074RG
.D.CEF  022034RG 	.KLNBC  001200RG 	.PFIOW  001030RG 	.STELI  031150RG 	..DECB  044552RG
.D.CMT  022452RG 	.KLNFD  001204RG 	.PFRST  020126RG 	.STPCL= 000000   	..DECN  044546RG
.D.DSE  022070RG 	.KLNFT  001202RG 	.POLLH  001424RG 	.STPDM  040174RG 	..DEC2  044542RG
.D.DTE  020344RG 	.KLNLB  001200RG 	.POLND  002330RG 	.STRCL= 001000   	..DQRN  043432RG
.D.EXT  022520RG 	.KLNMD  001216RG 	.POLST  001430RG 	.STTNF  031370RG 	..DSEV  044026RG
.D.GLI  021670RG 	.KLNPB  001176RG 	.PRADR  001354RG 	.STTNQ  031362RG 	..DTP1  047036RG
SCOMM	- COMMON DATA AND SUBRO	MACRO M1113  10-NOV-81 18:56  PAGE 288-7
SYMBOL TABLE

..DTP2  047006RG 	..IODN  043312RG 	..SEFN  043754RG 	..STLP= ****** GX	..VTOL  047150RG
..DTSP  046770RG 	..IPRI  044122RG 	..SPLP= ****** GX	..STPT  045142RG 	..VVLL  047332RG
..ENB0  044302RG 	..NADD  044176RG 	..STCH  045326RG 	..STQ   046046RG 	..VXFR  047054RG
..ERLG  043212RG 	..NDEL  044062RG 	..STCR= ****** GX	..STTY  044726RG 	..WFED  046216RG
..FSTD  044336RG 	..PICK  044240RG 	..STFC  045456RG 	..SWED  046670RG 	...GBL= 000000
..INTX  014632RG 	..SACK  045372RG 	..STIN  045646RG

. ABS.	000056	   000
      	047526	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  18863 WORDS  ( 74 PAGES)
DYNAMIC MEMORY:  20774 WORDS  ( 79 PAGES)
ELAPSED TIME:  00:05:54
,[100,20]RSXT1091.LST/-SP/CRF=[100,30]RSXT1091.TMP
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ACKNOW	  025610 RG	 148-8176  #154-8303  
ADRSAV	  005554 RG	#33-1056   
AF.PP 	= 000200  G	#53-2352   
ASXCMN	  013760 R	 70-3137    70-3142    70-3147    70-3152   #70-3163   
ASXDT 	  013634 R	 69-3094   #69-3096   
ASXEXT	  014150 R	 69-3125   #73-3214   
ASXE1 	  013610 RG	 42-1682   #69-3081    74-3310    75-3495   
ASXE2 	  013624 R	 67-3028   #69-3093    71-3175    73-3295   
ASXLRF	  013774 R	 69-3107   #71-3171    72-3184   
ASXLRQ	  014032 R	 69-3103   #72-3181   
ASXSCN	  013622 R	#69-3092    69-3105    69-3111    70-3163    72-3182   
ASXTE 	  014442 R	 69-3109    70-3166    72-3209   #74-3306   
ASXWR0	  013662 R	 69-3115   #70-3136   
ASXWR1	  013672 R	 69-3117   #70-3141   
ASXWR2	  013702 R	 69-3119   #70-3146   
ASXWR3	  013712 R	 69-3121   #70-3151   
ASXWR4	  013722 R	 69-3123   #70-3156   
A.EF  	= 000020  G	 15-790    #53-2321    70-3136    70-3141    70-3156    70-3158   *72-3181    72-3201   *76-3587   
                        *76-3639   *76-3643   *81-3923    113-5804   113-5805  *124-6663  *147-8134  *178-9362   192-10282 
                        *192-10283 *209-10910 *216-11434 *217-11476 *222-11800 *228-12083  252-13407  255-13534 *255-13540 
                        *257-13645 *257-13700  258-13758 
A.FB  	= 000015  G	#53-2319   
A.FM  	= 000024  G	*43-1752   #53-2323    70-3136    70-3141    70-3146    70-3151    70-3156    70-3158    70-3160   
                         70-3162   *71-3171    72-3183   *76-3624   *114-5871   115-5937  *115-5963  *122-6311   257-13695 
A.HA  	= 000012  G	#53-2317    72-3186    74-3323    74-3338    78-3759    139-7654   285-15415 
A.PD  	= 000006  G	 43-1755   #53-2315    71-3174    73-3220    139-7653   141-7775  
A.PF  	= 000034  G	#53-2327   *76-3587   *135-7391   135-7394  
A.RP  	= 000010  G	#53-2316    124-6532   139-7663  
A.SP  	= 000004  G	#53-2313   *72-3206   *74-3336    74-3337    79-3813   
A.SZ  	= 000036  G	#53-2329   
A.TD  	= 000016  G	 43-1741   #53-2320    67-2792    67-2960    72-3207    73-3219    124-6592   127-6889   127-6915  
                         131-7139   133-7302   139-7652  
A.TS  	= 000014  G	*43-1753   #53-2318    69-3093   *70-3165   *71-3172   *72-3185   *114-5872  *115-5950  *115-5962  
                        *122-6310   127-6917  *127-6919  
BC.AKA	= 000025  G	#146-8076   194-10341 
BC.BTP	= 000024  G	#146-8075   161-8523  
BC.BTW	= 000035  G	#146-8084  
BC.DEB	= 000036  G	#146-8085  
BC.DES	= 000010  G	#146-8063  
BC.EDR	= 000027  G	#146-8078  
BC.FNM	= 000040  G	#146-8087   178-9377  
BC.FOD	= 000013  G	#146-8066  
BC.HAD	= 000002  G	#146-8057   161-8502  
BC.HDS	= 000007  G	#146-8062   255-13529 
BC.HTD	= 000012  G	#146-8065  
BC.LDR	= 000030  G	#146-8079  
BC.LDV	= 000031  G	#146-8080  
BC.LNC	= 000004  G	#146-8059   272-14492 
BC.NDM	= 000037  G	#146-8086  
BC.NSA	= 000032  G	#146-8081  
BC.RDS	= 000005  G	#146-8060  
BC.RQD	= 000001  G	#146-8056  
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

BC.RTD	= 000011  G	#146-8064  
BC.SAK	= 000017  G	#146-8070   174-9069   273-14527 
BC.SDS	= 000006  G	#146-8061  
BC.SKP	= 000033  G	#146-8082   161-8514  
BC.SLA	= 000023  G	#146-8074   194-10337 
BC.SNA	= 000014  G	#146-8067  
BC.SPT	= 000026  G	#146-8077  
BC.STR	= 000003  G	#146-8058  
BC.STS	= 000022  G	#146-8073  
BC.TDU	= 000015  G	#146-8068   225-11976 
BC.THU	= 000016  G	#146-8069   225-11982 
BC.XEN	= 000034  G	#146-8083  
BC.XOF	= 000020  G	#146-8071  
BC.XON	= 000021  G	#146-8072  
BELADR	  036164 RG	 214-11302 #214-11310 
BITTBL	  043022 RG	 205-10743  214-11307 #251-13326  252-13399  258-13760 
BIT0  	= 000001	#7-262      41-1642    41-1653   #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  
                        #189-10058  189-10175 #250-13319 
BIT1  	= 000002	#7-262      41-1643    41-1654   #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  
                        #189-10058  189-10174 #250-13319 
BIT10 	= 002000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10146 
                         189-10168 #250-13319 
BIT11 	= 004000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10145 
                         189-10167 #250-13319 
BIT12 	= 010000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10144 
                         189-10166 #250-13319 
BIT13 	= 020000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10143 
                         189-10165  189-10180  189-10188 #250-13319 
BIT14 	= 040000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019   156-8370  #175-9120  #189-10058 
                         189-10142  189-10164 #250-13319 
BIT15 	= 100000	#7-262     #48-2092   #80-3894    81-3923   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                         189-10141  189-10163 #250-13319  255-13529 
BIT2  	= 000004	#7-262      41-1644   #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                         189-10173 #250-13319 
BIT3  	= 000010	#7-262      41-1645   #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                         189-10172 #250-13319 
BIT4  	= 000020	#7-262      41-1646   #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                         189-10176 #250-13319 
BIT5  	= 000040	#7-262      41-1647   #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                         189-10171 #250-13319 
BIT6  	= 000100	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10170 
                         189-10184 #250-13319 
BIT7  	= 000200	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10169 
                        #250-13319 
BIT8  	= 000400	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10148 
                         189-10176 #250-13319 
BIT9  	= 001000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  189-10147 
                         189-10148  189-10176 #250-13319 
BLDPKT	  042702 R	 244-13112  244-13112 #245-13155 
BLKTT 	  005624 RG	#33-1073   
BLXCOM	  047102 R	 284-15311 #284-15317 
BLXPLP	  047132 R	 284-15340 #284-15351  284-15353 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

BLXRTN	  047142 R	#284-15361 
BPARER	= 000020	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
                         277-14867 
BPTTRP	  011674 R	 43-1772   #43-1793   
BTPHD 	  016032 RG	 36-1338    37-1398    38-1437   #81-3917   
BTPRO 	  016332 R	 81-3918    81-3918   #81-3920    81-3965    81-4041    81-4130   
BTWCHR	  026140 RG	 148-8190  #158-8416  
BYCNT 	  002726 RG	#18-882    *197-10482  199-10519  209-10893 *209-10895 
BYTESA	  005556 RG	#33-1058   
CDBA  	= 177164  G	#34-1090   
CDCC  	= 177162  G	#34-1089   
CDD   	= 000020	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
CDDB  	= 177166  G	#34-1091    34-1105   
CDRTPD	  007672 RG	 36-1331    37-1371   #38-1432   
CDST  	= 177160  G	#34-1088    34-1105    34-1121   
CDTSK 	  007312 RG	 37-1365   #37-1370   
CESCHK	  021540 R	 97-4976    97-4976    97-5008    97-5008    97-5016    97-5016   #101-5158  
CHNPNT	= 000001	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
CHTBL 	  032344 R	#191-10234  191-10247  213-11232 
CHTBLN	= 000013	#191-10247  213-11230 
CH.FOR	= 000100  G	#57-2501   
CH.LAB	= 000001  G	#57-2505   
CH.NAT	= 000020  G	#57-2503   
CH.NDC	= 000010  G	#57-2504   
CH.OFF	= 000200  G	#57-2500   
CH.UNL	= 000040  G	#57-2502   
CKDLEN	  040512 R	 229-12138  229-12138  229-12150  229-12150 #229-12193 
CLRDEB	  026772 RG	 148-8192  #168-8695  
CMEDP 	  021116 R	#91-4752    92-4800   
CMNABO	  011526 RG	 43-1743    43-1746   #43-1750    67-2915   
CMNABT	  013342 R	 67-2799   #67-2914    67-2966   
CMSG  	  012142 R	 44-1827   #44-1891   
CNT   	  002724 RG	#18-880    *197-10483  218-11594 
CNUPE 	= 000002	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
COMBSE	  001230 RG	#11-589    *90-4631    90-4690   
COMTRP	  011426 R	 8-321      8-323      8-325      8-327     #43-1727   
COPBUF	  027312 RG	 66-2735    66-2735    169-8771   169-8771  #170-8869   270-14312  270-14312 
CPUERR	  020500 R	 87-4496   #87-4522   
CRADR 	  002730 RG	#18-884    *197-10484  198-10503  199-10518  199-10520  209-10897 *209-10899 *209-10908 *211-11063 
                        *211-11075 
CRBFLN	= 000240  G	#34-1112   
CRBUFF	  005732 RG	#34-1110    34-1112   
CRBUFH	  005730 RG	#34-1108   
CRCEVF	  005702 RG	 34-1094   #34-1095   
CREVFG	  005700 RG	#34-1093   
CREXP 	= 006176 RG	#34-1120   
CRHD  	= ******  GX	 36-1331    37-1371    38-1433   
CRHUNG	  005704 RG	#34-1097   
CRJT  	= 001000	#189-10084  199-10521  211-10999  211-11008  211-11019 
CROBAR	  001034 RG	#9-470     *83-4259   *84-4284   
CRSIZE	= 000010  G	#34-1126   
CRSTB 	  011606 R	 43-1766   #43-1769   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CRSTBH	  005710 RG	#34-1102   
CRSTBK	  005712 RG	#34-1104    34-1106   
CRSTK 	= ******  GX	 37-1371   
CRSTLN	= 000016  G	#34-1106   
CRSTS 	= 006200 RG	#34-1122   
CRTBL 	  006174 RG	#34-1117    34-1126    39-1493   
CRTHD 	= 006174 RG	#34-1118   
CRTNXA	  014670 R	 75-3452   #75-3461   
CRTNX1	  014662 R	 75-3455   #75-3458   
CRTNX2	  014670 R	#75-3467   
CRTNX3	  014672 R	 75-3459   #75-3482    75-3513   
CRTY  	= 002000	#189-10083  199-10517  200-10538  200-10544  209-10904 
CR$BO5	= 042750 RG	#245-13171 
CR$B03	= 046144 RG	#276-14736 
CR$CBR	= 017750 RG	#84-4286   
CR$DTB	= 030306 RG	#178-9345  
CR$DTD	= 011662 RG	#43-1788   
CR$DTF	= 027772 RG	#177-9232  
CR$ETE	= 027704 RG	#176-9180  
CR$FTA	= 011564 RG	#43-1757   
CR$IAS	= 015042 RG	#75-3525   
CR$ILF	= 025402 RG	#149-8203  
CR$ILQ	= 030762 RG	#179-9531  
CR$LRF	= 014026 RG	#71-3176   
CR$MPE	= 011726 RG	#43-1805   
CR$PT1	= 030400 RG	#178-9374  
CR$PT2	= 030416 RG	#178-9379  
CR$PT3	= 030726 RG	#179-9511  
CR$PT4	= 031032 RG	#179-9542  
CR$RES	= 011670 RG	#43-1791   
CR$TBT	= 011676 RG	#43-1794   
CR$TET	= 027666 RG	#176-9174  
CR$T04	= 011640 RG	#43-1781   
CR$UIE	= 030640 RG	#179-9474  
CSDONE	  014612 R	 74-3307   #74-3397   
CS.EXP	= 177670	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
CTLO  	= 000040	#189-10086  197-10489  200-10536  211-11024  218-11514  218-11515 
CTRLC 	  032236 R	#190-10213  218-11621 
CTRLU 	  032242 R	#190-10215  218-11592 
CTRLZ 	  032246 R	#190-10217  218-11612 
CTYPTR	  002634 RG	#17-840     161-8503   197-10466  197-10485  208-10832  208-10839  209-10862  209-10880  216-11424 
                         218-11508 
CTYSTS	  002664 RG	#18-876     197-10486  209-10881 *211-11042  211-11047  211-11062  218-11509 
CURBF 	= 000006	#189-10070 *199-10518  218-11556 *218-11557 *218-11560  218-11572 *218-11574  218-11575 *218-11595 
CYCLS 	= 000002	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
C.AS  	= 000002  G	#54-2366   
C.AT  	= 000000  G	#54-2365    120-6220  
C.FA  	= 000012  G	#54-2370   
C.FM  	= 000010  G	#54-2369   
C.HALT	= 000033  G	#189-10201 
C.HCRT	= 000015  G	#189-10196  209-10903  211-10975  218-11543 
C.HEOF	= 000032  G	#189-10199  218-11541 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

C.HESC	= 000033  G	#189-10200  189-10201  218-11539 
C.HFFD	= 000014  G	#189-10195 
C.HLFD	= 000012  G	#189-10193  210-10945  211-10978 
C.HPAR	= 000200  G	#189-10203 
C.HSPC	= 000040  G	#189-10202 
C.HTAB	= 000011  G	#189-10192  211-10980 
C.HVTB	= 000013  G	#189-10194 
C.HXOF	= 000023  G	#189-10198  216-11407  247-13228 
C.HXON	= 000021  G	#189-10197  247-13223 
C.RS  	= 000006  G	#54-2368   
C.SD  	= 000004  G	#54-2367   
C.SZ  	= 000014  G	#15-782     15-791    #54-2372    118-6124   120-6231   143-7912   253-13441 
C1    	= 140010	#40-1534    40-1596    40-1601    40-1613   
C1DB  	= 140110	#40-1536    40-1540    40-1546    40-1551    40-1556    40-1561    40-1566    40-1571    40-1576   
DAG1  	= 000030	#3-125      81-3952    81-4002   *97-4981    97-4984    97-4997   *97-5026   *100-5137   100-5141  
                        *101-5159   101-5160  *277-14847  277-14850 *277-14893  277-14896 
DAG2  	= 000032	#3-124     *84-4292   *101-5162  *277-14884 
DAG3  	= 000036	#3-122     *177-9291  *183-9774  
DATE  	= 000004	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DBLDON	  031044 R	 179-9492   179-9527  #179-9548  
DBLEPP	  030644 R	 179-9462  #179-9479  
DBLEPX	  030650 R	 179-9457  #179-9481  
DBLHDR	  030740 R	 179-9508  #179-9525  
DBLPWR	  030700 R	 179-9473  #179-9497  
DBLRLD	  030654 R	 179-9471  #179-9487  
DBLXFR	  030710 R	 179-9469  #179-9506  
DBLXIT	  031056 R	 179-9499   179-9518   179-9546  #179-9551  
DCOMST	= 000001	#7-262     #48-2092   #80-3894   #82-4186   #86-4445    97-4978    97-4984    97-5010    97-5018   
                        #145-8019  #175-9120  #189-10058 #250-13319 
DEAND1	  026220 R	 148-8182   155-8320   156-8355   156-8366   156-8376   157-8398   158-8422   158-8424   159-8452  
                        #160-8483  
DEAND3	  025640 R	 150-8214   152-8244   152-8246   153-8282   153-8285   153-8287   153-8294   154-8306  #155-8319  
DEANOD	  026654 R	 160-8484   161-8525   162-8540   163-8571   164-8614   165-8630  #165-8639   166-8661   167-8673  
                         167-8681   168-8693   168-8697   174-9061  
DEP   	= 010000	#7-262      44-1861   #48-2092   #80-3894    81-3984    81-4022    81-4028    81-4070    81-4122   
                        #82-4186   #86-4445    91-4751    97-5027    98-5064    99-5094   #145-8019  #175-9120   177-9284  
                         182-9723   183-9777   184-9814  #189-10058 #250-13319  279-15018 
DEPOF 	  001234 RG	#11-593    *90-4633    90-4685    92-4797   
DEX   	= 000400	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DEXCOM	  013444 R	#67-2972   
DEXDON	= 000004	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
                         277-14840 
DEXST 	  001344 RG	#12-682    *97-4982   *97-4986   *277-14835 *277-14842 
DEXTM1	  001352 RG	#12-688     90-4665   
DEXTM2	  001350 RG	#12-686     90-4626    90-4638    90-4661    90-4698   
DEXTM3	  001346 RG	#12-684     90-4622   
DEXWD1	= 174406	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DEXWD2	= 174404	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DEXWD3	= 174402	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DE.01 	= 000377  G	#67-2929    76-3662    118-6121   124-6564   137-7513   137-7520  
DE.02 	= 000376  G	#67-2930    87-4523    91-4761    97-4988    99-5104    127-6854   131-7164   141-7783  
DE.03 	= 000375  G	#67-2931    77-3709    91-4764   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DE.04 	= 000374  G	#67-2932    128-6976  
DE.05 	= 000373  G	#67-2933    105-5399   124-6497  
DE.06 	= 000372  G	#67-2934   
DE.07 	= 000371  G	#67-2935    76-3660   
DE.08 	= 000370  G	#67-2936    131-7214   135-7396  
DE.09 	= 000367  G	#67-2937   
DE.10 	= 000366  G	#67-2938   
DE.11 	= 000365  G	#67-2939   
DE.80 	= 000260  G	#67-2940   
DE.81 	= 000257  G	#67-2941   
DE.90 	= 000246  G	#67-2942    103-5304  
DE.91 	= 000245  G	#67-2943   
DE.92 	= 000244  G	#67-2944    103-5280  
DE.93 	= 000243  G	#67-2945   
DE.94 	= 000242  G	#67-2946    77-3718   
DE.95 	= 000241  G	#67-2947    77-3719   
DE.96 	= 000240  G	#67-2948    78-3786   
DE.97 	= 000237  G	#67-2949    113-5811   118-6093   120-6229   252-13413 
DE.98 	= 000236  G	#67-2950    115-5966  
DE.99 	= 000235  G	 67-2856   #67-2951    88-4553   
DFTBL 	  025302 RG	 147-8142  #148-8161   148-8194  
DFTSZ 	= 000076	#148-8194  
DFUNC 	= 000200	#7-262     #48-2092   #80-3894   #82-4186   #86-4445    97-4978    97-5010    97-5018   #145-8019  
                        #175-9120  #189-10058 #250-13319 
DF.DMG	= 000004	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.DMN	= 000007	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.DOR	= 000001	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.EHG	= 000010	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058  190-10223 
                        #250-13319 
DF.EHM	= 000011	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.EMG	= 000005	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.EMN	= 000006	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.KLR	= 000012	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.KLW	= 000013	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.KLX	= 000014	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.OFF	= 000002	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.ON 	= 000003	#7-262     #48-2092   #80-3894    81-4117   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                        #250-13319 
DF.PDP	= 000016	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DF.PEX	= 000015	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DHBUF 	= 000020	#189-10076 *211-11042  211-11047 
DHCNT 	= 000200  G	#28-974     39-1481   
DHERLG	  041106 R	 229-12227  229-12227  230-12330  230-12330 #230-12408  231-12486  231-12486 
DHISTQ	  035570 R	 212-11126  212-11132  212-11134  212-11138  212-11140 #213-11205  215-11341 
DHSAV 	  037274 R	 201-10563  212-11101  213-11196 #219-11666 
DHSTSV	  002652 RG	#17-855    *213-11199  213-11221 
DHTBL 	  003046 RG	 19-898     19-899     19-900     19-901     19-902     19-903     19-904     19-905    #21-941    
                         28-974     39-1481    153-8272   169-8776   171-8909   209-10858  209-10922  211-11040  219-11677 
                         220-11731  230-12292 
DHTMP 	  002646 RG	#17-851    *201-10562 *213-11195  219-11673 
DH.FER	= 020000  G	#189-10188  213-11271 
DIAG1 	= 174430	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 7

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DIAG2 	= 174432	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DIAG3 	= 174436	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DIKL10	= 000010	#7-262     #48-2092   #80-3894   #82-4186   #86-4445    97-4978    97-5018    97-5026   #145-8019  
                        #175-9120  #189-10058 #250-13319 
DIRDPT	  013216 R	 67-2857   #67-2859    67-2897   
DIRMAX	= 000102	 67-2854   #67-2897   
DIROK 	  013212 R	 67-2855   #67-2857   
DIV216	  044036 RG	 114-5859   114-5859   252-13396  252-13396  258-13748  258-13748 #260-13802 
DLCNT 	= 000005  G	#20-936     39-1477    153-8279   156-8354  
DLECNT	= 000004  G	#20-937     229-12145 
DLETBL	  003006 RG	 17-844    #20-931     20-937     229-12144 
DLHUPX	  040302 R	 226-12023 #228-12092 
DLTBL 	  002776 RG	 17-841    #20-929     20-936     39-1477    169-8759   229-12135 
DLTMP 	  002650 RG	#17-853    *206-10753 *215-11335  219-11690 
DLYCNT	= 174400	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DL.CAR	= 010000  G	#189-10166  217-11481  229-12154 
DL.CTS	= 020000  G	#189-10165 
DL.DEN	= 000040  G	#189-10171  217-11466  228-12090  229-12223  229-12239 
DL.DSC	= 100000  G	#189-10163 
DL.DTR	= 000002  G	#189-10174  217-11466  217-11493  229-12158 
DL.FER	= 020000  G	#189-10180  215-11343 
DL.RAC	= 004000  G	#189-10167 
DL.RDE	= 000001  G	#189-10175 
DL.RDN	= 000200  G	#189-10169 
DL.REN	= 000100  G	#189-10170  217-11486  228-12090  229-12206  229-12234  242-13005  243-13062 
DL.RNG	= 040000  G	#189-10164  217-11464 
DL.RTS	= 000004  G	#189-10173  217-11466  217-11483  229-12156  229-12158 
DL.SRD	= 002000  G	#189-10168 
DL.STD	= 000010  G	#189-10172 
DL.UNA	= 001420  G	#189-10176 
DL.XEN	= 000100  G	#189-10184  207-10799  211-11034  211-11054  229-12212  229-12236 
DMTBE 	= 002776 RG	#19-907     231-12449 
DMTBL 	  002734 RG	#19-897     171-8908   224-11886  224-11896  231-12442 
DMTMP 	  002644 RG	#17-849    *224-11880  224-11882 
DMTNXM	  041066 R	 230-12295 #230-12393  230-12396 
DMYN  	= 000004  G	#11-606    *90-4684   *90-4685    94-4867    177-9283   183-9775   184-9813  
DNBLK 	  005606 RG	#33-1065   
DNFCN 	  005610 RG	#33-1067   
DNSTS 	  005616 RG	#33-1070   
DON10C	= 040000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   177-9227  #189-10058 
                        #250-13319 
DON10S	= 100000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DON11C	= 000100	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   178-9332  #189-10058 
                        #250-13319 
DON11S	= 000200	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DPB.CK	= ******	 103-5262   105-5388  
DPCMN 	  021112 R	#91-4750    94-4868   
DPMSEP	  021140 R	 91-4754   #91-4763   
DPSEC 	  021136 R	 91-4757   #91-4760   
DPS4  	= 040000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DQNXT 	  033172 R	#197-10456  198-10501  198-10508 
DRESET	= 000100	#7-262     #48-2092   #80-3894   #82-4186    84-4292   #86-4445    101-5162  #145-8019  #175-9120  
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 8

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #189-10058 #250-13319  277-14884 
DRXCOM	  013460 R	 67-2971   #67-2977   
DRXRR 	  013472 R	 67-2974   #67-2979   
DR.DTE	= 000011	#7-262     #48-2092   #80-3894    81-4117   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                         190-10223 #250-13319 
DR.00 	= 000000  G	#67-2922    110-5659   111-5709   112-5768  
DR.01 	= 000001  G	#67-2923    76-3659    76-3661    89-4590    91-4758    97-5003    99-5101    100-5143   103-5306  
                         105-5408   107-5515   113-5809   114-5874   115-5952   115-5964   116-6000   118-6135   120-6218  
                         122-6312   124-6669   126-6776   131-7198   133-7304   135-7392   139-7679  
DR.02 	= 000002  G	#67-2924    109-5609   127-6921  
DR.03 	= 000003  G	#67-2925    127-6923  
DSEND 	= 000004	#7-262     #48-2092   #80-3894   #82-4186   #86-4445    97-5018    97-5023    97-5026   #145-8019  
                        #175-9120  #189-10058 #250-13319 
DS.99 	  013210 R	#67-2856    67-2873    67-2881    67-2882    67-2889    67-2890    67-2894   
DS04  	= 004000	#7-262     #48-2092   #80-3894    81-3952    81-4002   #82-4186   #86-4445    101-5160  #145-8019  
                        #175-9120  #189-10058 #250-13319  277-14850 
DS05  	= 002000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DS06  	= 001000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
                         277-14896 
DTEADR	  001270 RG	#12-638     177-9246  *177-9297  
DTECMD	= 000451	#7-262     #48-2092   #80-3894    81-3971    81-4048   #82-4186   #86-4445   #145-8019  #175-9120  
                        #189-10058 #250-13319 
DTEDSP	  020442 R	 87-4502   #87-4506   
DTEFLG	= 000444	#7-262     #48-2092   #80-3894    81-3985    81-4123   #82-4186   #86-4445   #145-8019  #175-9120  
                        #189-10058 #250-13319 
DTEF11	= 000450	#7-262     #48-2092   #80-3894    81-4023   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                        #250-13319 
DTEHD 	  024652 RG	 36-1284    37-1351    38-1416   #147-8122  
DTEMSK	  001266 RG	#12-636     177-9246  *177-9296  
DTEMTD	= 000455	#7-262     #48-2092   #80-3894    81-4071   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                        #250-13319 
DTEMTI	= 000456	#7-262     #48-2092   #80-3894    81-4012    81-4029   #82-4186   #86-4445   #145-8019  #175-9120  
                        #189-10058 #250-13319 
DTENM 	= 000000	#11-602    
DTESNP	  046534 R	 277-14858  277-14858  277-14874  277-14874  277-14911  277-14911 #278-14951 
DTESP 	  025132 RG	 37-1351    147-8123  #147-8123  
DTETPD	  007572 RG	 36-1284   #38-1415   
DTETSK	  007112 RG	 37-1346   #37-1350    37-1354   *178-9362  
DTEXIT	  027726 R	 176-9184  #176-9188   179-9482  
DTTSK 	  007352 RG	 37-1371   #37-1380    37-1385   
DUPE  	= 000020	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DURE  	= 000004	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DVCH  	= 110220	#40-1530    40-1540    40-1546    40-1551    40-1556    40-1561    40-1566    40-1571    40-1576   
                         40-1596    40-1601    40-1613   
DV.CFG	= 004000  G	#60-2563   
DV.EOF	= 000040  G	#60-2557   
DV.F11	= 000400  G	#60-2560   
DV.HNG	= 001000  G	#60-2561   
DV.IOP	= 000020  G	#60-2556   
DV.LIN	= 002000  G	#60-2562    230-12411 
DV.LOG	= 000100  G	#60-2558    213-11291  230-12411  278-14977 
DV.NXD	= 000001  G	#60-2552   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 9

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DV.OFL	= 000002  G	#60-2553   
DV.OIR	= 000004  G	#60-2554   
DV.SCN	= 000010  G	#60-2555   
DV.URE	= 000200  G	#60-2559    213-11291  277-14913  278-14977 
DWNMS 	  012770 R	 66-2750   #66-2756    66-2759   
DWNMSG	  012756 R	 66-2734   #66-2749   
DWNMSZ	= 000043	 66-2750    66-2750   #66-2759   
DXBUF 	  005476 RG	#31-1018   
DXCNT 	  005474 RG	#31-1016   
DXHD  	= ******  GX	 36-1298    37-1392    38-1446   
DXPKT 	  005516 RG	#31-1024   
DXRTC 	  005472 RG	#31-1014   
DXSTK 	= ******  GX	 37-1392   
DXTPD 	  007732 RG	 36-1298   #38-1445   
DXTSK 	  007412 RG	 37-1385   #37-1391    37-1398    40-1596    40-1601   
DXUNIT	  005514 RG	#31-1022   
DXVCB 	  005500 RG	#31-1020   
DXWD1 	= 000006	#3-131     *81-4021    97-4993   *97-5022   *177-9273   179-9461  *183-9766  *184-9809   279-15029 
                        *279-15038 
DXWD2 	= 000004	#3-132      81-4016   *81-4020    97-4992   *97-5021   *177-9274   179-9460  *183-9767  *184-9810  
                         279-15028 *279-15037 
DXWD3 	= 000002	#3-133      81-3946    81-3976   *81-3983   *81-4019   *81-4027    81-4055    81-4057    81-4065   
                        *81-4069    81-4084   *81-4121    97-4991   *97-5020   *177-9279   179-9459   179-9539   181-9659  
                         181-9672  *183-9771  *184-9811   279-15027 *279-15036 
DXWRD1	= 002000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
DX0PEN	  011002 RG	 36-1304   #40-1595    40-1596    40-1625   
DX1PEN	  011052 RG	#40-1600    40-1601   
D$$H11	= 000010	#1-43       8-401     
D.AT  	= 000000  G	#55-2388   
D.CCDR	= 000006  G	#39-1491   
D.CCLK	= 000007  G	#39-1495   
D.CCPU	= 000200  G	#39-1509    161-8516  
D.CCTY	= 000001  G	#39-1471    161-8501  
D.CDH1	= 000003  G	#39-1479   
D.CDLS	= 000004  G	#39-1483    174-9041   196-10440  208-10845  225-11990  272-14488 
D.CDL1	= 000002  G	#39-1475   
D.CDMB	= 000204  G	#39-1513   
D.CDTE	= 000202  G	#39-1511    196-10442 
D.CKLE	= 000201  G	#39-1510   
D.CKLN	= 000210  G	#39-1515   
D.CLOG	= 000205  G	#39-1514   
D.CLPT	= 000005  G	#39-1487    194-10335 
D.CRJP	= 000203  G	#39-1512    196-10445 
D.FA  	= 000004  G	#55-2390   
D.FEPD	= 000010  G	#39-1498   
D.FM  	= 000002  G	#55-2389   
D.SZ  	= 000006  G	#55-2392   
D1011 	= 000040	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
EBSEL 	= 000100	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
EBUSPC	= 000020	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
EBUSPS	= 000004	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
ECHOB 	  035004 R	 209-10900  209-10905  210-10946  210-10955 #211-10971  218-11636 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 10

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

EDONES	= 040000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
EDRMT 	  025406 RG	 148-8184  #150-8212  
EF.BOV	= 000040  G	#49-2176   
EF.CLK	= 000002  G	#49-2168   
EF.CRI	= 002000  G	#49-2208    81-3939    81-3957    81-4082    83-4226   
EF.CTC	= 040000  G	#49-2200    216-11429 
EF.DTE	= 000001  G	#49-2166   
EF.FCP	= 001000  G	#49-2210    81-3968   
EF.IOD	= 000020  G	#49-2174    190-10221  197-10452  209-10910 
EF.NIR	= 000010  G	#49-2172    76-3639    124-6663   190-10221  257-13645  257-13700 
EF.PFR	= 004000  G	 43-1786   #49-2206    81-4082    83-4226    85-4374    179-9498  
EF.PR1	= 100000  G	#49-2198    280-15067  282-15115 
EF.PR2	= 020000  G	#49-2202    216-11441  280-15067  281-15094 
EF.RKH	= 002000  G	#49-2186    190-10221  192-10295  228-12083 
EF.RKP	= 010000  G	#49-2204    167-8676   167-8680  
EF.RKR	= 001000  G	#49-2184    190-10221  192-10291  217-11476 
EF.RQM	= 000200  G	#49-2180    190-10221  192-10286  216-11434 
EF.RSS	= 004000  G	#49-2188    190-10221  192-10299  222-11800 
EF.SND	= 100000  G	#49-2193   
EF.TED	= 000100  G	#146-8044   146-8093   178-9362  
EF.TMO	= 000100  G	 15-789    #49-2178    190-10221  193-10313  195-10387 
EF.TTY	= 000004  G	#49-2170   
EF.WFM	= 000400  G	#49-2182   
EHSG  	= 000006  G	#11-608    *90-4691    95-4902   
EHSM  	= 000010  G	#11-610    *90-4707    96-4936    179-9454   179-9535   181-9655  
EIS   	= ******	 284-15341  284-15346 
EMGSTK	  011426 RG	#42-1686    43-1732    44-1824   
EMTSTK	  001116 RG	#9-484     *43-1747   *67-2789   *67-2808    67-2911    67-2914   *67-2958    67-2972    67-2977   
                         67-2999   
EMTTRP	  013036 RG	 8-331     #67-2784   
EMYN  	= 000002  G	#11-604    *90-4682    93-4833   
EM.DRO	= 000020  G	#67-2780    67-2810    67-2842   *67-2973   *67-2978    67-2998   *122-6306  
ENBXOF	  025416 RG	 148-8189  #151-8225  
ENTELQ	  030320 R	#178-9353   178-9397  
EOLS  	= 000400	#189-10085  199-10517  200-10538  210-10936  218-11561  218-11623  218-11632 
EPTR  	= 000000	#7-262     #48-2092   #80-3894    81-3970    81-3984    81-4011    81-4022    81-4028    81-4047   
                         81-4070    81-4122   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
EQSZ  	  001332 RG	#12-675    *178-9401  *179-9539   179-9540   180-9598  *180-9614  
ERR10C	= 010000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
ERR10S	= 020000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
ERR11C	= 000001	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
ERR11S	= 000002	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
EV.AS 	= 000002  G	#64-2671    75-3498    75-3514    79-3828   
EV.PF 	= 000200  G	 42-1680   #64-2672    75-3491    75-3521    84-4308   
EV.SE 	= 000001  G	#64-2668    69-3081    74-3308    75-3491    116-5999   259-13781 
EXCMN 	  021146 R	#92-4798    93-4834    95-4903    96-4937   
EXKAL 	  032260 R	#190-10222  195-10393 
E.BOV 	= 000006  G	#49-2177   
E.CLK 	= 000002  G	#49-2169   
E.DTE 	= 000001  G	#49-2167   
E.DV  	= 000006  G	#146-8051   164-8588   166-8658   173-8983  
E.FCRI	= 000073  G	#49-2209   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 11

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

E.FCTC	= 000077  G	#49-2201   
E.FFCP	= 000072  G	#49-2211   
E.FN  	= 000004  G	#146-8050   147-8140   164-8585  
E.FP  	= 000000  G	#146-8048  
E.FPFR	= 000074  G	#49-2207   
E.FPR1	= 000100  G	#49-2199   
E.FPR2	= 000076  G	#49-2203    81-3922    81-4116   
E.FRKP	= 000075  G	#49-2205   
E.FSND	= 000040  G	#49-2194   
E.FW  	= 000010  G	#146-8052   150-8213  *152-8239   152-8243   153-8278  *155-8316   155-8318   156-8331   156-8336  
                         156-8346   156-8353  *156-8357   156-8362   156-8370  *157-8385   157-8403  *158-8417   158-8421  
                         161-8497   164-8586   164-8589   165-8628   167-8671   173-8984  
E.IOD 	= 000005  G	#49-2175   
E.LS  	= 000002  G	#146-8049  
E.NIR 	= 000004  G	#49-2173   
E.OPSZ	= 000060  G	#146-8040   276-14733 
E.RKH 	= 000013  G	#49-2187   
E.RKR 	= 000012  G	#49-2185   
E.RQM 	= 000010  G	#49-2181   
E.RSS 	= 000014  G	#49-2189   
E.TMO 	= 000007  G	#49-2179   
E.TTY 	= 000003  G	#49-2171   
E.WFM 	= 000011  G	#49-2183   
FDVNM 	  027464 R	 163-8570   163-8570   164-8606   164-8606  #174-9017  
FDVNMF	  027576 R	 172-8948  #174-9058  
FDVNMM	  027450 R	 152-8240   152-8240   153-8258   153-8258   154-8304   154-8304   155-8317   155-8317   156-8358  
                         156-8358   157-8386   157-8386   158-8418   158-8418   159-8449   159-8449   160-8478   160-8478  
                         166-8652   166-8652  #173-8982  
FEHD  	= ******  GX	 36-1288    37-1385    38-1420   
FELXFR	  030356 R	 178-9349  #178-9369  
FESTK 	= ******  GX	 37-1385   
FETBL 	  005542 RG	#33-1049    39-1499   
FETPD 	  007612 RG	 36-1288   #38-1419   
FETSK 	  007352 RG	#37-1384    37-1392    40-1613   *81-3923   
FE0PUD	  011172 RG	#40-1612    40-1613   
FLBT  	= 000001	#189-10089 
FLBYT 	= 000011	#189-10072  210-10962 *211-10989 *211-11012 
FLCT  	= 000017	#189-10088  200-10538  209-10882 
FLDVOT	  026664 RG	 148-8172  #166-8651  
FNBYT 	= 000005	#189-10069 *218-11602 *218-11610 *218-11619 *218-11630 
FNDDM 	  027366 R	 153-8281   153-8281   156-8365   156-8365  #171-8906  
FNDSPD	  027420 R	 156-8332   156-8332   156-8337   156-8337  #172-8939  
FORPRO	= 000020	#7-262     #48-2092   #80-3894   #82-4186   #86-4445    90-4645    90-4686    90-4692   #145-8019  
                        #175-9120   177-9282   179-9453   179-9534   181-9654   183-9776   184-9812  #189-10058 #250-13319 
FW    	= 000300	#40-1532    40-1540    40-1546    40-1551    40-1556    40-1561    40-1566    40-1571    40-1576   
                         40-1596    40-1601   
F11TPD	  007772 RG	 36-1304   #38-1455    43-1755    71-3174   
GENTPD	  010012 RG	#38-1459   
GETBUF	  031612 R	 180-9600   180-9600   181-9661   181-9661  #185-9849  
HANGUP	  025466 RG	 148-8175  #153-8257  
HDR64 	= ******	 72-3187    74-3324    74-3339    78-3760    141-7797   257-13687 
HIBYTE	= 177400	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 12

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

HICTS 	  026224 RG	 148-8162  #161-8495  
HIDVST	  026420 RG	 148-8168  #163-8554  
HORPS 	= 000016	#189-10075  211-10985 *211-11001 *211-11020 
H.CSP 	= 000000  G	#51-2245   
H.DSW 	= 000046  G	#51-2247    74-3330    74-3345   
H.FCP 	= 000050  G	#51-2248   
H.FOR 	= 000052  G	#51-2249   
H.HSZ 	= 000002  G	#51-2246   
H.IPC 	= 000076  G	#51-2252    72-3194   
H.IPS 	= 000074  G	#51-2251    72-3195   
H.ISP 	= 000100  G	#51-2253    72-3202   
H.KCAC	= 000020  G	#41-1646   
H.KCHN	= 000010  G	#41-1645   
H.KEXT	= 000004  G	#41-1644   
H.KMOS	= 000002  G	#41-1643   
H.KPWR	= 000040  G	#41-1647   
H.KUDF	= 000001  G	#41-1642   
H.LUT 	= 000130  G	#51-2255    72-3196    72-3199    78-3766    139-7660   285-15416 
H.OVL 	= 000054  G	#51-2250   
H.TKVA	= 000106  G	#51-2254    72-3193    139-7657  
IDXTB 	  032360 R	#191-10250  213-11242 
IE.ABO	= 177761	 211-11072 
IFLOP 	= 100000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   178-9404   180-9616  
                         181-9683  #189-10058 #250-13319 
IGNO  	  012140 RG	 39-1473    39-1473    39-1477    39-1477    39-1481    39-1481    39-1485    39-1485    39-1489   
                         39-1493    39-1493    39-1496    39-1496    39-1496    39-1496    39-1499    39-1499   #44-1882   
INIAN 	  046130 RG	 42-1684   #276-14732 
INITLM	  011320 RG	#42-1665    288-15579 
INPPT 	  034736 R	 209-10889 #210-10935 
INPT0 	  034744 R	#210-10938 
INPT1 	  035302 R	 210-10937 #211-11061 
INSHD 	= ******  GX	 36-1321    38-1412   
INSTAL	= ******  GX	 36-1321   
INSTK 	= ******  GX	 36-1321   
INSTPD	  007552 RG	 36-1321   #38-1411   
INTLPS	  027640 R	#176-9167   177-9260   177-9262   177-9299   178-9415   179-9552  
INTROF	= 000010	#7-262     #48-2092   #80-3894    81-3931   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                        #250-13319  280-15066  281-15093 
INTRON	= 000040	#7-262     #48-2092   #80-3894    81-4126   #82-4186   #86-4445    90-4680   #145-8019  #175-9120  
                        #189-10058 #250-13319 
INTSON	= 000001	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
INT10S	= 000400	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
INT11C	= 002000	#7-262     #48-2092   #80-3894    81-3975    81-4050    81-4059   #82-4186   #86-4445   #145-8019  
                        #175-9120   179-9451  #189-10058 #250-13319 
INT11S	= 004000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
                         281-15093 
IOPSIZ	= 007777	#45-1918    45-1928   
IOTTRP	  011732 R	 43-1773   #44-1821   
IO.ATT	= 001400	 257-13672 
IO.DET	= 002000	 257-13674 
IO.LOV	= 001010	 257-13676 
IO.LTK	= 000050	 76-3610    257-13684 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 13

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

IO.RLB	= 001000	 124-6633   197-10490  257-13682  285-15423 
IO.RVB	= 010400	 124-6631   124-6639   285-15424 
IO.STC	= 002500	 124-6621  
IO.WLB	= 000400	 81-4133    124-6630   197-10487  285-15426 
IO.WVB	= 011000	 124-6628   124-6641  
IS.SUC	= 000001	 197-10492  209-10908  211-11066 
KBB0  	= 177562  G	#49-2101   
KBB1  	= 175612  G	#49-2105   
KBS0  	= 177560  G	#49-2100   
KBS1  	= 175610  G	#49-2104   
KLCST 	  021226 R	#97-4980    97-5024    97-5034   
KLNLGL	= 000016  G	#10-575    
KLNPLN	= 000026  G	 10-557     10-561    #10-580     161-8513  
KLNPTR	  002636 RG	#17-843     153-8268   157-8393   169-8761   197-10462  209-10866  209-10916  211-11030  216-11384 
                         217-11468  217-11487  228-12078  234-12640  236-12718  270-14313  271-14414 
KLPWRF	= 000010	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   179-9472  #189-10058 
                        #250-13319 
KL.ABO	= 010000  G	#56-2412   
KL.CFL	= 000400  G	#56-2408   
KL.CFM	= 000002  G	#56-2399   
KL.DEF	= 002000  G	#56-2410   
KL.KAC	= 001000  G	#56-2409   
KL.LCA	= 000100  G	#56-2404   
KL.LRM	= 000001  G	#56-2398   
KL.LVB	= 000004  G	#56-2400   
KL.REQ	= 004000  G	#56-2411   
KL.SPF	= 000040  G	#56-2403   
KL.SSC	= 000200  G	#56-2406   
KL.VBD	= 000020  G	#56-2402   
KL.VBN	= 000010  G	#56-2401   
KPAL0 	  001376 RG	#13-727     90-4713    190-10223  195-10395  195-10424 
KPAL1 	  001406 RG	#13-731    *182-9717   182-9720  
KPAR0 	= 172360	#49-2115   
KPAR1 	= 172362	#49-2116   
KPAR2 	= 172364	#49-2117   
KPAR3 	= 172366	#49-2118   
KPAR4 	= 172370	#49-2119   
KPAR5 	= 172372	#49-2120   
KPAR6 	= 172374	#49-2121   
KPAR7 	= 172376	#49-2122   
KPDR0 	= 172300	#49-2124   
KPDR1 	= 172302	#49-2125   
KPDR2 	= 172304	#49-2126   
KPDR3 	= 172306	#49-2127   
KPDR4 	= 172310	#49-2128   
KPDR5 	= 172312	#49-2129   
KPDR6 	= 172314	#49-2130   
KPDR7 	= 172316	#49-2131   
KS.CES	= 000002  G	#56-2420    277-14852 
KS.CPE	= 001000  G	#56-2428   
KS.CST	= 000020  G	#56-2423    195-10416 
KS.DEX	= 000010  G	#56-2422    277-14856 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 14

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

KS.DPE	= 002000  G	#56-2429   
KS.EPE	= 000004  G	#56-2421    277-14873  277-14912 
KS.FCF	= 004000  G	#56-2430   
KS.FME	= 000400  G	#56-2427   
KS.PFT	= 000100  G	#56-2425    84-4304   
KS.PTO	= 000200  G	#56-2426    81-3962   
KS.TRR	= 000040  G	#56-2424    179-9488  
KS.TSP	= 000001  G	#56-2419    277-14898 
KT11  	= ******	 67-2809    67-2812    67-2905    67-2985    67-2988    67-2997    67-3001    74-3318    74-3357   
                         74-3398    75-3504    78-3755    79-3815    124-6636   137-7541   141-7811   283-15155  283-15161 
                         284-15320  284-15333  284-15336  284-15355  284-15366 
K.LBPW	= 000005  G	#61-2590   
K.LCKL	= 177777  G	#61-2574   
K.LCON	= 000004  G	#61-2584   
K.LDCM	= 000001  G	#61-2581   
K.LDRP	= 177777  G	#61-2582   
K.LDSC	= 000003  G	#61-2580   
K.LLTO	= 000006  G	#61-2592   
K.LRAC	= 000001  G	#61-2577   
K.LRBA	= 000007  G	#61-2594   
K.LRMN	= 000003  G	#61-2587   
K.LRNG	= 000002  G	#61-2576   
K.LROP	= 000001  G	#61-2585   
K.LRPR	= 000002  G	#61-2586   
K.LRRJ	= 177777  G	#61-2578   
K.LSCK	= 000001  G	#61-2572   
K.LSKL	= 000001  G	#61-2573   
K.LUND	= 000000  G	#61-2570   
K.LUSR	= 177777  G	#61-2588   
LDLPR 	  026420 RG	 148-8185  #163-8555  
LDLPV 	  026420 RG	 148-8186  #163-8556  
LFBT  	= 004000	#189-10082  199-10524  210-10944 
LFCT  	= 074000	#189-10081  200-10538  209-10884  218-11634 
LINCHR	  026464 RG	 148-8165  #164-8582  
LKS   	= 177546  G	#49-2099    84-4314   *84-4316   *85-4375   
LOAD11	= 000004	#7-262      44-1860   #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   179-9470  
                        #189-10058 #250-13319 
LODNOD	  031712 R	 178-9392   178-9392   181-9669   181-9669  #187-9918  
LOWCOD	= 000000 RG	#8-318      8-319      8-338      8-338      8-338      8-338      8-345      8-345      8-351     
                         8-351      8-358      8-358      8-358      8-358      8-358      8-358      8-358      8-358     
                         8-358      8-358      8-358      8-358      8-358      8-358      8-358      8-363      8-368     
                         8-368      8-375      8-375      8-375      8-375      8-379      8-387      8-388      8-393     
                         8-394      8-400      8-400      8-400      8-400      8-400      8-400      8-400      8-400     
                         8-406      8-406      8-406      8-406      8-406      8-406      8-406      8-406      8-406     
                         8-406      8-406      8-406      8-406      8-406      8-406      8-406      8-406      8-406     
                         8-406      8-406      8-406      8-406      8-406      8-406      8-406      8-406      8-406     
                         8-406      8-406      8-406      8-406      8-406     
LPCEVF	  006210 RG	 35-1143   #35-1145   
LPCSA 	= 000002  G	#35-1182   #35-1182   
LPCSM 	= 000022  G	#35-1193   
LPEVFG	  006206 RG	#35-1142   
LPEXPA	= 175400  G	#35-1133    35-1182    35-1182   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 15

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

LPEXPZ	= 000020  G	#35-1134    35-1157   
LPHD  	= ******  GX	 36-1326    37-1365    38-1428   
LPHUNG	  006212 RG	#35-1148   
LPITH 	= 000006  G	#35-1182   #35-1182   
LPMCB 	= 000020  G	#35-1192   
LPRMA 	= 000040  G	#35-1203   
LPRMC 	= 000044  G	#35-1205   
LPRMZ 	= 000042  G	#35-1204   
LPRTY 	= 000024  G	#35-1194   
LPSIZE	= 000010  G	#35-1183    35-1188    35-1199    35-1214    35-1214   
LPSTBH	  006216 RG	#35-1154   
LPSTBK	  006220 RG	#35-1156    35-1159   
LPSTK 	= ******  GX	 37-1365   
LPSTLN	= 000030  G	#35-1159   
LPSTS 	= 000000  G	#35-1182   #35-1182   
LPTBL 	  006250 RG	#35-1165    35-1183    35-1192    35-1193    35-1194    35-1203    35-1204    35-1205    35-1214   
                         35-1214    39-1489   
LPTBL2	  006270 RG	#35-1187    35-1192    35-1193    35-1194   
LPTBL3	  006310 RG	#35-1198    35-1203    35-1204    35-1205   
LPTHD 	= 000004  G	#35-1182   #35-1182   
LPTPD 	  007652 RG	 36-1326   #38-1427   
LPTSK 	  007252 RG	 37-1358   #37-1364    37-1371    40-1608   
LPUNIT	  006204 RG	#35-1139   
LPUTBL	  006330 RG	#35-1209   
LP0PUD	  011122 RG	#40-1607    40-1608   
L$$P20	= 000002	#1-37       35-1167    35-1183    35-1188    35-1199    35-1211   
L.DT0 	= 000003  G	#40-1581   
L.DX0 	= 000005  G	#40-1594   
L.DX1 	= 000006  G	#40-1599   
L.RP4 	= 000002  G	#40-1528   
L.TTY 	= 000001  G	#40-1524   
MACY11	= ******	 48-2084    82-4184   
MBUFR 	= 000014	#189-10074 *218-11583 *218-11639  218-11643 
MEBUF 	= 000012	#189-10073  210-10952 *210-10953 *218-11645 
MECNT 	= 000010	#189-10071  209-10886 *210-10954 *218-11646 
MODE  	= 100000	#189-10080  199-10517  200-10539 
MPE11 	= 001000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   176-9171  #189-10058 
                        #250-13319 
MSETRP	= ******	 267-14071  267-14108  268-14178  268-14230  270-14330  270-14346 
M.PARQ	= 000002  G	#41-1654    192-10288  197-10458 
M.TAKP	= 000001  G	#41-1653   
NODADR	  005552 RG	#33-1054   
NOSNDA	  025424 RG	 148-8187  #152-8236  
NTKXEN	  012542 R	#66-2697    66-2723   
NTKXEP	  012546 R	 65-2695    65-2695   #66-2699    66-2716    66-2727   
NTKXSP	  012522 RG	 37-1401    65-2695   #65-2695   
NULHD 	  012242 RG	 37-1401   #65-2695   
NULSTP	= 000040	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
NULTSK	  007512 RG	 37-1347    37-1398   #37-1400   
NUPE  	= 000002	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
N.BP  	= 000002  G	#49-2216    262-13872 
N.FP  	= 000000  G	#49-2215   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 16

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

N.OVPT	= 000054  G	#49-2153   
N.PR  	= 000010  G	#49-2217    262-13869  262-13869 
OKPAL0	  001404 RG	#13-729    *90-4713    195-10395 *195-10424 
OUTPT 	  034546 R	 200-10549  200-10549  209-10856 #209-10879  211-10992  218-11647 
OUTPT3	  034466 R	 201-10594  201-10594  206-10761 #209-10854 
PARLOA	  020266 R	#85-4363    85-4366   
PARLOT	  020340 R	 85-4359   #85-4383   
PARSAV	  001022 RG	#9-455      43-1799    44-1834   
PERCLR	= 001000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PHYS  	= 100000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PIDENT	= 000000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PRB0  	= 177566  G	*44-1871   #49-2103   
PRB1  	= 175616  G	*44-1869   #49-2107   
PRI7  	= 000340  G	#7-262     #48-2092   #49-2112    67-3018   #80-3894   #82-4186   #86-4445   #145-8019   161-8517  
                         164-8592   170-8871  #175-9120  #189-10058 #250-13319 
PRMBLK	  023206 R	 124-6647  #124-6677  
PRMEMN	  001232 RG	#11-591    *90-4629    90-4696   
PROPNT	= 000021	#7-262     #48-2092   #80-3894   #82-4186   #86-4445    90-4686   #145-8019  #175-9120  #189-10058 
                        #250-13319 
PROTBL	  001236 RG	#11-612     87-4500    90-4650   
PRS0  	= 177564  G	 44-1873   #49-2102   
PRS1  	= 175614  G	 44-1877   #49-2106   
PRTOFF	= 004000	#7-262     #48-2092   #80-3894    81-3970    81-3984    81-4011    81-4022    81-4028    81-4047   
                         81-4070    81-4122   #82-4186   #86-4445    99-5096   #145-8019  #175-9120  #189-10058 #250-13319 
PRVCM 	  021466 R	 98-5065   #99-5095   
PR0   	= 000000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PR1   	= 000040	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PR2   	= 000100	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PR3   	= 000140	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PR4   	= 000200	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PR5   	= 000240	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PR6   	= 000300	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PR7   	= 000340  G	#7-262     #48-2092   #49-2111   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 
                        #250-13319 
PS    	= 177776  G	#7-262     *42-1681    43-1728   #48-2092   #49-2098   *66-2698    66-2703   *66-2703   *66-2714   
                        *66-2725   *74-3312   *74-3395   *75-3450    79-3810   *79-3810   #80-3894   *81-3935    81-3938   
                        *81-3938   *81-3964   *81-3997    81-3999   *81-3999   *81-4066    81-4068   *81-4068   #82-4186   
                        #86-4445   #145-8019  *147-8128   147-8132  *147-8132  *147-8145   147-8149  *147-8149   161-8517  
                        *161-8517  *161-8519   164-8592  *164-8592  *164-8594   170-8871  *170-8871  *170-8873  #175-9120  
                        #189-10058  192-10280 *192-10280 *192-10284  193-10315 *193-10315 *193-10327  195-10431 *195-10431 
                        *195-10434  197-10457 *197-10457 *197-10474  200-10548 *200-10548 *200-10551  201-10562  206-10753 
                         213-11195  215-11335  224-11880 #250-13319  257-13655 *257-13655  261-13831 *261-13831 *261-13835 
                         262-13864 *262-13864  263-13898 *263-13898 *263-13903  264-13938 *264-13938 *264-13944 *265-13992 
                         267-14079 *267-14079 *267-14125  268-14177 *268-14177 *268-14222  274-14567 *274-14567 *274-14582 
                         275-14672 *275-14672 *275-14681  286-15490 *286-15490 
PSWW1 	= 000005	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   182-9724  #189-10058 
                         190-10223 #250-13319 
PSWW10	= 000014	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW11	= 000015	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW12	= 000016	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW13	= 000017	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW2 	= 000006	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 17

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

PSWW3 	= 000007	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW4 	= 000010	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW5 	= 000011	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW6 	= 000012	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PSWW7 	= 000013	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PULSE 	= 000020	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
PWRXSP	  001032 RG	#9-468     *83-4257    84-4281   
PWR.UP	  017720 RG	 83-4258   #84-4280    84-4282   
QNDSV 	  023200 R	*124-6619  *124-6645  *124-6646  #124-6675   124-6677  
QPRDTC	  025152 RG	#147-8127   147-8137  
QPRDTE	  025156 RG	 147-8123   147-8123  #147-8129  
QPRDTF	  026660 R	 163-8573  #165-8641   169-8707  
QPRDTL	  025234 R	#147-8144   165-8642  
QPROAD	  017572 R	*81-4065    81-4133   #81-4134   
QPROMS	  017550 R	 81-4067   #81-4132   
QPRTPD	  007712 RG	 36-1338   #38-1436   
QPRTSK	  007452 RG	 37-1392   #37-1397    37-1401   
QSIZE 	= 000023	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   177-9282   179-9534  
                         181-9654   183-9776  #189-10058 #250-13319 
Q.AK  	= 000012  G	#59-2535    154-8305   154-8305  
Q.DA  	= 000000  G	#59-2530    166-8656   174-9028  
Q.DZ  	= 000016  G	#59-2537    169-8755   174-9032  
Q.D1  	= 000006  G	#58-2524    128-6979  
Q.IOAE	= 000012	#81-4133   
Q.IOEF	= 000006	#81-4133   
Q.IOFN	= 000002	#81-4133   
Q.IOLU	= 000004	#81-4133   
Q.IOPL	= 000014	#81-4133   
Q.IOPR	= 000007	#81-4133   
Q.IOSB	= 000010	#81-4133   
Q.SI  	= 000004  G	#58-2523   *128-6987   131-7172   131-7182  
Q.SP  	= 000006  G	#59-2533    166-8654   166-8654  
Q.ST  	= 000004  G	#59-2532    163-8572   163-8572   164-8608   164-8608  
Q.SZ  	= 000020  G	#39-1469    39-1503   #59-2538   
Q.TS  	= 000002  G	#59-2531    174-9027  
RAMIS0	= 010000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RCVKLP	  026722 RG	 148-8188  #167-8670  
RESERV	  011666 R	 43-1771   #43-1790   
RETTOD	  026626 RG	 148-8171  #165-8627  
RFMAD0	= 100000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RFMAD1	= 040000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RFMAD2	= 020000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RFMAD3	= 010000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RF.XR 	= 000002  G	#63-2644   
RM    	= 000010	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RMBYT 	= 000004	#189-10068 *199-10519 *218-11558 *218-11576 *218-11594 
RPBUF 	  005524 RG	#32-1034   
RPCNT 	  005530 RG	#32-1036   
RPCW2 	  005534 RG	#32-1040   
RPHD  	= ******  GX	 36-1316    37-1358    38-1451   
RPPEN 	  010302 RG	#40-1539    40-1540   
RPRNA 	  005522 RG	#32-1032   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 18

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

RPRTC 	  005520 RG	#32-1030   
RPSTK 	= ******  GX	 37-1358   
RPTPD 	  007752 RG	 36-1316   #38-1450   
RPTSK 	  007212 RG	 37-1354   #37-1357    37-1365    40-1540    40-1546    40-1551    40-1556    40-1561    40-1566   
                         40-1571    40-1576   
RPUNIT	  005532 RG	#32-1038   
RQKLD 	  032326 R	#190-10228  192-10297 
RQKLR 	  032310 R	#190-10226  192-10293 
RQMCR 	  032272 R	#190-10224  192-10289 
RQSPB 	  024074 R	 137-7503   137-7524   137-7552  #137-7554  
RQSPT 	  024070 RG	 137-7545  #137-7552  
RQSTD 	  024106 R	*137-7522   137-7532  #137-7555  
RSX$$E	= 000045	#3-97       6-187      9-473     
RSX$$F	= 000105	#3-105     #3-110      3-116      6-187      6-187      9-473      46-1946    46-1946    249-13239 
                         249-13239 
RSX$$K	= 000126	#3-101      9-473     
RSX$$V	= 000014	#3-96       6-187      9-473     
RTDVST	  026420 RG	 148-8166  #163-8558  
RTNTOD	  026374 RG	 148-8170  #162-8534  
RUBP  	= 000020	#189-10087  200-10538  218-11563  218-11565  218-11577  218-11579  218-11593 
R$$11D	= 000001	#1-46      
R.AS  	= 000020  G	#63-2631    256-13593 
R.AT  	= 000006  G	#63-2624    256-13589  256-13596  257-13694  257-13711  285-15411 
R.DP  	= 000011  G	#63-2626   
R.FC  	= 000014  G	#63-2629    124-6620  *124-6630  *124-6633   124-6646   197-10487  197-10490  257-13671 *257-13682 
                         257-13684  285-15424 *285-15445 
R.FN  	= 000013  G	#63-2628    256-13587 
R.LU  	= 000012  G	#63-2627    285-15412 
R.PB  	= 000024  G	#63-2633    198-10502  200-10540  200-10542 *211-11076 *257-13678 *257-13679 *257-13680 *257-13693 
                         257-13701  257-13702  285-15433  285-15434  285-15435 *285-15443 *285-15444 
R.PR  	= 000010  G	#63-2625   
R.QSGC	= 000015	#66-2742   #66-2746   #146-8096  #190-10225 #190-10227 #190-10229 
R.QSPC	= 000014	#66-2742   #66-2746   #146-8096  #190-10225 #190-10227 #190-10229 
R.QSPN	= 000006	#66-2742   #66-2746   #146-8096  #190-10225 #190-10227 #190-10229 
R.QSPR	= 000012	#66-2742   #66-2746   #146-8096  #190-10225 #190-10227 #190-10229 
R.QSTN	= 000002	#66-2742   #66-2746   #146-8096  #190-10225 #190-10227 #190-10229 
R.SB  	= 000016  G	#63-2630    256-13581 *257-13696 
R.TD  	= 000004  G	#63-2623    257-13669 
R.UI  	= 000022  G	#63-2632   
SCD   	= 000040	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
SETDEB	  026762 RG	 148-8191  #168-8691  
SETLIN	  025622 RG	 148-8180  #155-8315  
SETSPD	  025642 RG	 148-8179  #156-8330  
SEXCM 	  022060 R	#110-5656   111-5720  
SEXP0 	  022066 R	 109-5607  #110-5659  
SEXP1 	  022146 R	 111-5719  #113-5809  
SEXP2 	  022050 R	#109-5609   110-5657   112-5767  
SEX97 	  022150 R	 109-5605   110-5655   112-5765  #113-5811   114-5853   114-5855   115-5948  
SF.EX 	= 000004  G	#52-2297    73-3239    137-7528  
SF.FX 	= 000002  G	 36-1284    36-1288    36-1298    36-1316    36-1321    36-1326    36-1331    36-1335    36-1338   
                        #52-2296    73-3223    76-3570   
SF.IR 	= 040000  G	#52-2298    137-7528  
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 19

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SF.PT 	= 000001  G	#52-2295   
SF.ST 	= 100000  G	 36-1284    36-1288    36-1298    36-1304    36-1316    36-1321    36-1326    36-1331    36-1335   
                         36-1338   #52-2299   
SF.TA 	= 000001  G	 36-1284    36-1288    36-1298    36-1316    36-1326    36-1331    36-1335    36-1338   #52-2294   
                         73-3221    73-3274    76-3550    76-3588    76-3648    137-7528  
SKX   	  023236 R	 127-6853  #127-6856  
SNDALL	  027000 RG	 148-8173  #169-8705  
SNDBEL	  036112 RG	 213-11270 #214-11297  216-11400 
SNDMSG	  013034 RG	*66-2708    66-2732   *66-2738   #66-2761   *168-8692  *168-8696  
SNDSTS	  031536 R	 177-9292   177-9292   178-9413   178-9413   179-9550   179-9550   181-9688   181-9688   183-9781  
                         183-9781  #184-9806  
SPDTB 	  032374 R	#191-10264  213-11243 
SPDTBL	  024616 R	#146-8102   146-8118   172-8940  
SPDTBZ	= 000016	#146-8118   172-8941  
SPSAV 	  001020 RG	#9-452     *44-1823   
STAT  	= 174434	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
STATD 	= 000034	#3-123     *90-4680    277-14840  277-14867 
STATI 	  001336 RG	#12-680     179-9458   181-9677  
STATS 	= 000000	#189-10066 
STATUS	= 000022	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   179-9453   184-9812  
                        #189-10058 #250-13319 
STBXFR	  031670 R	 178-9405   178-9405   181-9686   181-9686  #186-9894  
STCM  	  045356 R	#272-14496  273-14528 
STDCDR	  006746 RG	 36-1232   #36-1330    37-1371   
STDDTE	  006406 RG	 36-1234   #36-1283    37-1351   
STDDX 	  006506 RG	 36-1242   #36-1297    37-1392   
STDFED	  006446 RG	 36-1239   #36-1287    37-1385   
STDF11	  006546 RG	 36-1245   #36-1302   
STDINS	  006646 RG	 36-1256   #36-1320    137-7544  
STDLPT	  006706 RG	 36-1248   #36-1325    37-1365   
STDQPR	  007046 RG	 36-1250   #36-1337    37-1398   
STDRPT	  006606 RG	 36-1252   #36-1315    37-1358   
STDTTY	  007006 RG	 36-1254   #36-1334    37-1354   
STDVST	  026420 RG	 148-8167  #163-8557  
STELIG	  031302 R	 180-9620  #181-9685  
STELIX	  031324 R	 180-9603   181-9664  #181-9690  
STIND2	  030102 R	 177-9241  #177-9267  
STLN  	  045412 R	 272-14489  272-14489  273-14526  273-14526 #273-14533 
STNXT 	  034062 R	 202-10632  202-10644  203-10656  203-10665 #204-10691 
STPLIN	  026042 RG	 148-8183  #157-8384  
STRBF 	= 000002	#189-10067 *199-10520  218-11572  218-11595 
STRDAT	  026420 RG	 148-8164  #163-8559  
STSTT 	  001320 RG	#12-666     12-669     12-670    *177-9248  *177-9290  *178-9412  *179-9549  *181-9687   184-9808  
STSWD 	  005560 RG	#33-1060   
STSW0 	= 000004  G	#189-10095  213-11244 *213-11248 *213-11249  213-11265  215-11345  221-11767 *222-11794 *223-11836 
                        *223-11837  224-11931 *225-11975 *225-11981 *228-12091 *229-12196  229-12204  229-12232  230-12358 
                        *237-12778 *242-13004  243-13055 *243-13061 
STSW1 	= 000006  G	*152-8241  *152-8242  *152-8245   153-8260   153-8284  *156-8367  *156-8372   157-8388   169-8768  
                         169-8781   169-8783   169-8788  *169-8793  *169-8844  #189-10100  197-10463  197-10467  201-10568 
                        *201-10580  201-10581  202-10621 *202-10623  202-10624 *202-10625 *202-10642 *202-10643  204-10693 
                         204-10695  204-10702 *204-10707  204-10713  206-10755 *206-10757  206-10758  206-10770  206-10775 
                        *207-10801  208-10826  209-10860  209-10868 *211-11035  213-11224 *213-11253  213-11263 *213-11273 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 20

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         213-11280 *213-11282  213-11285  214-11298  216-11389  216-11392  216-11403  217-11462 *217-11485 
                         221-11765  224-11901 *224-11930  224-11933 *224-11935 *224-11947  226-12017  228-12075 *228-12095 
                         229-12168  229-12170 *229-12172  230-12351 *230-12361  231-12466  231-12468 *231-12475  234-12629 
                         234-12631  234-12633 *234-12653  236-12706  236-12708  236-12711 *236-12745 *237-12776 *237-12789 
                         239-12847  242-12970  243-13067  244-13110  270-14307  270-14345  270-14358  270-14365  271-14409 
                         271-14440  271-14445  271-14447 
STSW2 	  005060 RG	#29-991     246-13193 
STTYDN	  033676 R	 201-10584  201-10584 #202-10620  209-10924 
STTYO 	  034272 R	 206-10759 #206-10762  209-10918  209-10918  209-10927 
STXAS 	= 000000  G	#49-2160    67-3027   
STXCS 	= 000000  G	#49-2161   
STXDX 	= 000000  G	 8-331     #49-2162   
SWR   	= 177570	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
SWSLLT	= 100000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
SY0PUD	  011242 RG	#40-1616   
S.BA  	= 000012  G	#52-2277    76-3583    257-13686 
S.DI  	= 000011  G	#52-2276    76-3631   
S.DL  	= 000032  G	#52-2285    76-3616    76-3617    257-13678  257-13680 
S.DP  	= 000010  G	#52-2275    76-3560    137-7529  
S.FW  	= 000006  G	#52-2274   *73-3221    73-3223    73-3239   *73-3274    76-3550    76-3570   *76-3588   *76-3648   
                         139-7658  
S.LZ  	= 000014  G	#52-2278    76-3614   
S.PC  	= 000020  G	#52-2280    76-3575   
S.RB  	= 000026  G	#52-2283    128-6989  
S.RF  	= 000024  G	#52-2282    131-7140   137-7529  
S.SP  	= 000022  G	#52-2281    76-3573    76-3580   
S.SS  	= 000030  G	 43-1742   #52-2284    67-2793    67-2961   *72-3208   *133-7303  
S.SZ  	= 000036  G	#52-2288   
S.TD  	= 000004  G	#52-2273    76-3557   
S.TN  	= 000000  G	#52-2271    131-7187   131-7188   139-7668   139-7669  
S.TZ  	= 000016  G	#52-2279    77-3705   
S0.ABR	= 100000  G	#189-10104  189-10108  222-11794 
S0.CON	= 040000  G	#189-10105  189-10108  213-11265  224-11931  225-11975  225-11981 
S0.ISP	= 001700  G	#189-10106  189-10109  213-11290  242-13000 
S0.MSK	= 140000  G	#189-10108  213-11245  213-11248  223-11828  223-11836  230-12359  237-12778  243-13056 
S0.OSP	= 036000  G	#189-10107  189-10109 
S0.SPD	= 037700  G	#189-10109 
S2.CHR	= 000377  G	#189-10150 
S2.CNT	= 001400  G	#189-10148  242-13007  243-13070 
S2.DDN	= 100000  G	#189-10141  230-12356  237-12781  237-12784  239-12851  240-12891  242-12964  242-13008  243-13042 
                         243-13070 
S2.DIP	= 040000  G	#189-10142  212-11112  216-11413  230-12356  237-12781  239-12851  240-12891  242-12964  242-12986 
                         242-13007  243-13042  243-13045 
S2.DIS	= 020000  G	#189-10143  237-12781  241-12924  242-12975  242-12984  243-13078 
S2.ENB	= 010000  G	#189-10144  237-12781  241-12921  242-12976  243-13070  243-13077 
S2.LCL	= 004000  G	#189-10145  232-12537  239-12853  240-12882  240-12887  240-12896  242-12998  242-13009  243-13070 
S2.RES	= 002000  G	#189-10146 
S2.SSZ	= 001000  G	#189-10147  238-12815  242-12994 
TBIT  	= 000020  G	#49-2158   
TEDXIT	  030534 R	 178-9406  #178-9414  
TENAD1	= 174410	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TENAD2	= 174412	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 21

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TF.OU 	= 000002  G	 38-1412    38-1416    38-1420    38-1424    38-1428    38-1433    38-1437    38-1446    38-1451   
                        #50-2239    73-3230    73-3260    76-3592    76-3620    76-3629   
THRED 	= 000000  G	#189-10093 
TMOCNT	  002662 RG	#17-869    *193-10316 *193-10318 *193-10322 *193-10324 
TNAD1 	= 000010	#3-129     *81-3942   *81-3970   *81-3984   *81-4011   *81-4022   *81-4028   *81-4047   *81-4070   
                        *81-4122   *97-5027   *177-9284  *179-9452  *179-9536  *181-9656  *183-9777  *184-9814   278-14989 
                        *279-15023 *279-15039 
TNAD2 	= 000012	#3-130     *81-3943   *81-3971   *81-3985   *81-4012   *81-4023   *81-4029   *81-4048   *81-4071   
                        *81-4123   *97-5028   *177-9285  *179-9455  *179-9537  *181-9657  *183-9778  *184-9815  *279-15024 
                        *279-15040 
TN.EMT	= 000012  G	#58-2517    67-2798   
TN.LRF	= 000040  G	#58-2519    71-3171   
TN.TRP	= 000014  G	#58-2518    67-2965   
TOBM  	= 000004	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   177-9248   177-9290  
                         181-9677  #189-10058 #250-13319 
TOD   	= 000003	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TOIP  	= 000002	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   177-9248   177-9290  
                         179-9507  #189-10058 #250-13319 
TOIT  	= 000001	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   178-9412   179-9549  
                         181-9687  #189-10058 #250-13319 
TOITDN	  030522 R	 178-9364   178-9388  #178-9411  
TOXQIP	  001373 RG	#12-719    *81-4115   *177-9257   183-9759  *183-9783  
TO10  	= 000200	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO10AD	= 174420	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO10AS	  001316 RG	#12-662     177-9229  *177-9238  *177-9280  *183-9773  
TO10BC	= 174414	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO10BM	= 000001	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO10DB	= 000400	#7-262      44-1863   #48-2092   #80-3894    81-3988    81-4032    81-4074    81-4126   #82-4186   
                         85-4377   #86-4445   #145-8019  #175-9120   177-9298   183-9782  #189-10058 #250-13319 
TO10DN	= 100000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   176-9171  #189-10058 
                        #250-13319 
TO10DT	= 174424	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO10ER	= 020000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   176-9171  #189-10058 
                        #250-13319 
TO10PK	  005564 RG	#33-1062   
TO10Q 	  001326 RG	#12-672     81-4089    81-4090    147-8150   147-8151   177-9239   177-9258   177-9259   275-14673 
                         275-14679  276-14719  276-14730 
TO10QC	= 001324 RG	#12-669    *81-4103    179-9526  *179-9528   179-9529   180-9606  
TO10SZ	  001314 RG	#12-660     177-9228  *177-9278  *183-9770  
TO11  	= 000100	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO11AD	= 174422	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO11AS	  001310 RG	#12-656     178-9340  *186-9896  
TO11BC	= 174416	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO11BM	= 020000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   178-9336   178-9404  
                         180-9619   181-9681  #189-10058 #250-13319 
TO11BS	  001312 RG	#12-658     178-9333   178-9336  *186-9895  
TO11DB	= 004000	#7-262     #48-2092   #80-3894    81-3955    81-4000   #82-4186   #86-4445   #145-8019  #175-9120  
                         176-9183  #189-10058 #250-13319 
TO11DN	= 000200	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   176-9177  #189-10058 
                        #250-13319 
TO11DT	= 174426	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
TO11DV	  001300 RG	#12-647    *178-9371   178-9372   187-9922  
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 22

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TO11ER	= 000002	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120   176-9177  #189-10058 
                        #250-13319 
TO11FN	  001276 RG	#12-645    *178-9348   178-9377   178-9382  *178-9394   179-9509  *181-9684   187-9920  
TO11FW	  001304 RG	#12-651     187-9923  
TO11GW	  001306 RG	#12-654    
TO11HD	  001274 RG	#12-643    *178-9370   178-9395   180-9618   187-9921  
TO11NP	  001272 RG	#12-641     178-9354   178-9385   178-9391   181-9668  *185-9870  
TO11Q 	  001334 RG	#12-678     147-8136  *147-8138   178-9355   183-9756   185-9851  
TO11QC	= 001325 RG	#12-670    *183-9780  
TO11SP	  001302 RG	#12-649    
TRPASV	  001120 RG	#9-486     *43-1728   *43-1729    43-1744    43-1752    43-1765   *67-2798   *67-2965   
TRPXIT	  011570 R	#43-1759    43-1787   
TRP4  	  011616 R	 43-1770   #43-1775   
TS.EXT	= 000026  G	#69-3124    122-6310  
TS.LRF	= 000006  G	#69-3106   
TS.LRQ	= 000002  G	#69-3102    76-3625    76-3644   
TS.RUN	= 000010  G	 37-1351    37-1354    37-1358    37-1365    37-1371    37-1385    37-1392    37-1398    37-1401   
                        #69-3108    70-3165    72-3185    76-3577    127-6919  
TS.SUS	= 000012  G	#69-3110    127-6917  
TS.TKN	= 000004  G	 43-1753   #69-3104    71-3172   
TS.WF0	= 000014  G	#69-3112    114-5869   115-5961  
TS.WF1	= 000016  G	#69-3116   
TS.WF2	= 000020  G	#69-3118   
TS.WF3	= 000022  G	#69-3120   
TS.WF4	= 000024  G	#69-3122    115-5950  
TTCNT 	= 000205  G	#28-975     29-992     39-1473    39-1485    212-11109 
TTCTY 	  036646 R	 216-11440 #218-11507 
TTINI 	  032404 RG	 190-10206  190-10206 #192-10278  200-10553 
TTINO 	  033546 R	 197-10455 #200-10552 
TTINPA	  036206 R	#215-11340  217-11499 
TTINPB	  036374 R	 213-11236  213-11250  213-11257  213-11266  213-11281  214-11299  214-11308  215-11344  215-11346 
                         216-11387  216-11393  216-11397  216-11416 #216-11420  216-11436 
TTINX 	  033542 R	 197-10464  197-10468  197-10472 #200-10550 
TTOUTR	  034366 R	 204-10694  204-10714  206-10771  206-10776 #207-10802 
TTOUTX	  034360 R	 205-10744 #207-10800  211-11056 
TTPEN 	  010232 RG	#40-1525    40-1526    65-2695    81-3918    147-8123   190-10206  200-10534 
TTPKT 	  002732 RG	#18-886     197-10454 *197-10481  198-10500 *198-10507  211-11074 
TTSAV 	  037332 R	 206-10754  215-11336 #219-11683  224-11881 
TTSTCH	  036232 R	 213-11274  213-11287  213-11294 #216-11383 
TTTBL 	  002776 RG	#20-928     28-975     29-986     39-1473    39-1485    161-8504   212-11108  219-11695  225-11986 
                         229-12221  229-12237  232-12543  246-13190 
TTWLO 	  032252 R	#190-10220  192-10279 
TTYDNE	  034654 R	#209-10909  211-11078 
TTYDNX	  034720 R	 209-10913 #209-10921 
TTYEND	= 005046 RG	#28-976     169-8796   230-12379  232-12541 
TTYEXP	= 000002  G	 169-8766   169-8790   174-9043  #189-10094  201-10575  209-10917  211-11031  211-11039  219-11697 
                         220-11728  228-12077  229-12136  229-12147 *229-12187  230-12319 *230-12394  231-12458  270-14329 
                         270-14373 
TTYHD 	  031736 RG	 36-1335    37-1354    38-1424   #190-10205 
TTYSP 	  032216 RG	 37-1354    190-10206 #190-10206 
TTYTPD	  007632 RG	 36-1335   #38-1423   
TTYTSK	  007152 RG	 15-785     15-790     37-1351   #37-1353    37-1358    40-1526   *209-10910 *216-11434 *217-11476 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 23

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        *222-11800 *228-12083 
TT.ABL	= 000040  G	 153-8284   156-8372  #189-10132  221-11765  224-11933 
TT.ABW	= 000010  G	 169-8781  #189-10134  213-11224  213-11253  224-11935  228-12095  237-12776  270-14345 
TT.CRW	= 000004  G	#189-10135  216-11392  217-11485  224-11930  224-11947  228-12095  229-12168  231-12466 
TT.CTY	= 000002  G	 20-930     153-8260   157-8388   169-8783  #189-10136  201-10581  206-10758  208-10826  216-11389 
                         234-12633  236-12711  239-12847  270-14307  270-14365  271-14409  271-14440 
TT.FEC	= 014000  G	#189-10120  213-11273  213-11286  237-12789 
TT.FEI	= 004000  G	#189-10122  213-11282 
TT.NSA	= 000400  G	 152-8237   169-8768   169-8781  #189-10125  204-10702  228-12095  237-12776 
TT.OUT	= 000001  G	 169-8788  #189-10137  197-10463  197-10467  201-10568  201-10580  204-10693  206-10755  206-10757 
                         206-10770  207-10801  209-10860  209-10868  211-11035  214-11298  236-12708  237-12776  242-12970 
                         243-13067  244-13110  270-14358  271-14445 
TT.RIP	= 002000  G	#189-10123  217-11485  224-11930  224-11947  228-12095  229-12170  229-12172  231-12468  231-12475 
TT.RMT	= 000100  G	 20-932     20-933     20-934     20-935     156-8367  #189-10131  213-11263  217-11462  224-11901 
                         226-12017  228-12075 
TT.RSI	= 020000  G	#189-10119  213-11280  230-12351  230-12361  237-12776 
TT.SIP	= 001000  G	 169-8793  #189-10124  202-10621  202-10623  204-10707  234-12631  236-12708  237-12776  271-14447 
TT.SND	= 140000  G	#189-10115  237-12776 
TT.SNI	= 040000  G	 169-8844  #189-10116  202-10625 
TT.XEN	= 000020  G	 151-8226  #189-10133  216-11403  237-12789 
TT.XOF	= 000200  G	 152-8242  #189-10129  234-12653  236-12745  237-12789  270-14358 
T.BA  	= 000004  G	#50-2227   
T.FW  	= 000010  G	#50-2229   *73-3230    73-3260    76-3592    76-3620   *76-3629   
T.HBCT	= 000002  G	*185-9869  #189-10155 *233-12580  268-14167 
T.HCAD	= 000004  G	*170-8880  *170-8881  #189-10156  203-10660 *203-10661  205-10737  207-10797 *207-10798 *236-12729 
                         236-12730 
T.HCBC	= 000006  G	#189-10157  203-10659 *203-10664  205-10738 *206-10765  236-12727 *236-12731 *271-14431 
T.HFCN	= 000007  G	#189-10158 *270-14339 
T.HHDS	= 000010  G	 164-8591   164-8599   170-8881  #189-10159 
T.HP  	= 000012  G	#50-2230   
T.HRED	= 000000  G	#189-10154 
T.PN  	= 000000  G	#50-2225    139-7666   139-7667   141-7776   141-7777  
T.PZ  	= 000006  G	#50-2228    77-3707    139-7655  
T.RAPB	= 000004  G	#62-2601   
T.RAPE	= 000012  G	#62-2604    67-2795   
T.RAPF	= 000016  G	#62-2606   
T.RAPI	= 000006  G	#62-2602   
T.RAPM	= 000002  G	#62-2600   
T.RAPR	= 000010  G	#62-2603   
T.RAPT	= 000014  G	#62-2605    67-2963   
T.RAP4	= 000000  G	#62-2599   
T.RB  	= 000016  G	#50-2232   
T.RF  	= 000014  G	#50-2231    73-3263    76-3654   
T.SZ  	= 000020  G	#50-2234    77-3700    141-7785  
T10AD 	= 000020	#3-127      177-9230  *177-9281  *183-9772  
T11AD 	= 000022	#3-126      178-9341   178-9343  *186-9897  
T11BC 	= 000016	#3-128     *186-9898  
U     	= 000040	#8-396     #8-401      8-404     
UC.CCL	= 000002  G	 40-1526    40-1608   #57-2483   
UC.COM	= 020000  G	#57-2494   
UC.DIR	= 000010  G	#57-2485   
UC.ETB	= 000100  G	#57-2488   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 24

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

UC.F11	= 040000  G	#57-2495   
UC.INB	= 000400  G	#57-2489   
UC.ISP	= 002000  G	#57-2491   
UC.MNT	= 100000  G	#57-2496   
UC.PSE	= 010000  G	#57-2493   
UC.REC	= 000001  G	 40-1526    40-1608   #57-2482   
UC.SDI	= 000020  G	#57-2486   
UC.SQD	= 000040  G	#57-2487   
UC.SWL	= 001000  G	#57-2490   
UC.TTY	= 000004  G	 40-1526   #57-2484   
UC.0SP	= 004000  G	#57-2492   
UF.OFL	= 000040  G	#57-2478   
UF.RD 	= 000040  G	#57-2475   
UF.RH 	= 000200  G	 40-1613   #57-2476   
UF.TL 	= 000100  G	#57-2477   
UNASG1	= 000032	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
UNASG2	= 000033	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
UNASG3	= 000034	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
UNASG4	= 000035	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
UNASG5	= 000036	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
UNASG6	= 000037	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
UNRGFN	  025400 RG	 148-8163   148-8169   148-8174   148-8181  #149-8202  
UPAR0 	= 177640	#49-2133   
UPAR1 	= 177642	#49-2134   
UPAR2 	= 177644	#49-2135   
UPAR3 	= 177646	#49-2136   
UPAR4 	= 177650	#49-2137   
UPAR5 	= 177652	#49-2138   
UPAR6 	= 177654	#49-2139   
UPAR7 	= 177656	#49-2140   
UPDR0 	= 177600	#49-2142   
UPDR1 	= 177602	#49-2143   
UPDR2 	= 177604	#49-2144   
UPDR3 	= 177606	#49-2145   
UPDR4 	= 177610	#49-2146   
UPDR5 	= 177612	#49-2147   
UPDR6 	= 177614	#49-2148   
UPDR7 	= 177616	#49-2149   
UT.LG 	= 000004  G	#57-2511   
UT.PR 	= 000001  G	#57-2509   
UT.SL 	= 000002  G	#57-2510   
U.ACP 	= 000040  G	#57-2465    124-6626  
U.AF  	= 000014  G	#57-2447    200-10534 *257-13711 *257-13721 
U.AR  	= 000034  G	#57-2463   
U.CH  	= 000032  G	#57-2461   
U.C1  	= 000004  G	#57-2443   
U.C2  	= 000006  G	#57-2444   
U.C3  	= 000010  G	#57-2445   
U.C4  	= 000012  G	#57-2446   
U.DACP	= 000036  G	#57-2464   
U.DN  	= 000000  G	#57-2440   
U.FB  	= 000003  G	#57-2442   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 25

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

U.FO  	= 000043  G	#57-2468   
U.GC  	= 000031  G	#57-2459   
U.HA  	= 000020  G	#57-2449    124-6613  
U.LBH 	= 000044  G	#57-2469   
U.LBN 	= 000046  G	#57-2470   
U.PC  	= 000030  G	#57-2458   
U.PR  	= 000042  G	#57-2467   
U.RB  	= 000024  G	#57-2451   
U.RF  	= 000022  G	#57-2450    76-3636    124-6660   257-13654  257-13662  257-13662  257-13705 *257-13711 *257-13721 
U.RP  	= 000016  G	#57-2448    78-3776   
U.SZ  	= 000050  G	 36-1304   #57-2471    76-3633    103-5287   257-13650  257-13661  257-13662 
U.TF  	= 000042  G	#57-2466   
U.UI  	= 000030  G	#57-2457   
U.UN  	= 000002  G	#57-2441    103-5283   257-13705 
U.VA  	= 000026  G	#57-2456   
U.VP  	= 000032  G	#57-2460   
WEP   	= 000010	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
WFXSET	  013762 R	 70-3157    70-3159    70-3161   #70-3164   
WI.WRV	= 001000	 285-15427 
WTLODT	  024572 R	#146-8092   147-8130  
W.VBN 	  000006	 286-15500 
XOFF  	  026166 RG	 148-8177  #159-8448  
XON   	  026202 RG	 148-8178  #160-8477  
X.X94 	  015650 R	 77-3699   #77-3718   
X.X95 	  015652 R	 77-3714   #77-3719   
X8X97 	  043146 RG	 252-13393 #252-13412 
X9X96 	  015726 R	 78-3770   #78-3786   
ZSTOP 	= 040000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
$BTMSK	  002642 RG	#17-847     211-11049 
$CDINT	= ******  GX	 8-370     
$CD11 	= 000001	#1-38       33-1084    36-1231    36-1268    36-1328    37-1369    38-1430   
$DBDTE	= 000001	#1-44       12-653    
$DHINP	  035534 RG	 8-400      8-400      8-400      8-400      8-400      8-400      8-400      8-400     #213-11194 
$DHOUT	  033552 RG	 8-400      8-400      8-400      8-400      8-400      8-400      8-400      8-400     #201-10561 
$DH11 	= 000001	#1-42      
$DIV  	= ******  GX	 107-5485   107-5485   107-5489   107-5489  
$DMINT	  037626 RG	 8-400      8-400      8-400      8-400      8-400      8-400      8-400      8-400     #224-11879 
$DORBL	  020502 RG	 87-4506   #88-4535   
$DPMYG	  021110 RG	 87-4509   #91-4748   
$DPMYN	  021160 RG	 87-4512   #94-4866   
$DSW  	= 000046  G	#49-2151   *67-2980    74-3331    74-3346   
$DTA  	= ******	 8-360      29-993     36-1235    36-1277    36-1290    37-1376    38-1438    40-1582   
$DTE  	= 000001	#1-45       85-4376   
$DTEDR	= ******	 15-797     67-2885    88-4536    253-13452 
$DTEOF	  020504 RG	 87-4507   #89-4576   
$DTEON	  020512 RG	 87-4508   #90-4617   
$DXINT	= ******  GX	 8-382     
$EXHSG	  021166 RG	 87-4513   #95-4901   
$EXHSM	  021174 RG	 87-4514   #96-4935   
$EXMYG	  021142 RG	 87-4510   #92-4796   
$EXMYN	  021152 RG	 87-4511   #93-4832   
$FE   	= 000001	#1-40       36-1238    36-1274    36-1285    37-1383    38-1417    40-1610   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 26

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$F11  	= 000001	#1-41       36-1244    36-1255    36-1259    36-1300    36-1318    38-1409    38-1453    66-2713   
                         285-15374 
$KLDFC	  021362 RG	 97-5011   #97-5019   
$KLDFR	  021202 RG	 87-4515   #97-4973   
$KLDFW	  021342 RG	 87-4516   #97-5013   
$KLDFX	  021320 RG	 87-4517   #97-5005   
$LPINT	= ******  GX	 8-418      8-419     
$LP20 	= 000001	#1-36       8-417      34-1129    36-1247    36-1262    36-1323    37-1363    38-1425    40-1605   
$MUL  	= ******  GX	 81-3927    81-3927   
$PRVDP	  021440 RG	 87-4519   #98-5061   
$PRVEX	  021454 RG	 87-4518   #99-5091   
$RP04 	= 000001	#1-39       36-1251    36-1265    36-1313    37-1356    38-1448    40-1538   
$RWDRG	  021510 RG	 87-4520   #100-5131  
$RX11 	= 000001	#1-56       8-381      30-1010    36-1241    36-1271    36-1295    36-1303    37-1390    38-1443   
                         40-1592   
$TOP10	= 000001	#1-49       1-52       3-106      40-1621    56-2405    66-2752   
$TOP20	= ******	 1-60       3-113      40-1617   
$TTINP	  036166 RG	 8-340      8-390      8-408      8-411      8-414     #215-11334 
$TTOUT	  034224 RG	 8-341      8-391      8-409      8-412      8-415     #206-10752 
$T1091	= 000001	#1-34       1-48       1-53       3-107      40-1622   
$UNIT 	  002640 RG	#17-845     211-11044 
$$    	= 000037	#44-1825    44-1825   #44-1828    44-1828   #44-1843    44-1843   #66-2735    66-2735   #66-2737   
                         66-2737   #73-3236    73-3236   #73-3238    73-3238   #73-3258    73-3258   #73-3264    73-3264   
                        #73-3272    73-3272   #73-3275    73-3275   #75-3522    75-3522   #76-3564    76-3564   #76-3596   
                         76-3596   #76-3601    76-3601   #76-3637    76-3637   #76-3640    76-3640   #76-3655    76-3655   
                        #79-3807    79-3807   #79-3822    79-3822   #81-3927    81-3927   #81-3944    81-3944   #81-3963   
                         81-3963   #81-3972    81-3972   #81-3986    81-3986   #81-4014    81-4014   #81-4024    81-4024   
                        #81-4030    81-4030   #81-4038    81-4038   #81-4040    81-4040   #81-4049    81-4049   #81-4072   
                         81-4072   #81-4092    81-4092   #81-4099    81-4099   #81-4124    81-4124   #81-4127    81-4127   
                        #84-4290    84-4290   #84-4291    84-4291   #84-4306    84-4306   #85-4345    85-4345   #85-4348   
                         85-4348   #85-4349    85-4349   #85-4350    85-4350   #89-4589    89-4589   #90-4623    90-4623   
                        #90-4634    90-4634   #90-4647    90-4647   #90-4687    90-4687   #90-4694    90-4694   #90-4714   
                         90-4714   #91-4756    91-4756   #97-4976    97-4976   #97-5008    97-5008   #97-5016    97-5016   
                        #97-5032    97-5032   #99-5099    99-5099   #103-5256   103-5256  #105-5396   105-5396  #107-5485  
                         107-5485  #107-5489   107-5489  #109-5597   109-5597  #110-5647   110-5647  #111-5706   111-5706  
                        #111-5710   111-5710  #112-5757   112-5757  #114-5859   114-5859  #118-6085   118-6085  #120-6223  
                         120-6223  #124-6493   124-6493  #124-6516   124-6516  #124-6561   124-6561  #124-6643   124-6643  
                        #124-6648   124-6648  #124-6652   124-6652  #124-6662   124-6662  #124-6664   124-6664  #126-6764  
                         126-6764  #126-6774   126-6774  #127-6847   127-6847  #127-6862   127-6862  #127-6868   127-6868  
                        #127-6893   127-6893  #128-6963   128-6963  #128-6974   128-6974  #128-6990   128-6990  #131-7148  
                         131-7148  #131-7157   131-7157  #131-7174   131-7174  #131-7196   131-7196  #137-7469   137-7469  
                        #137-7477   137-7477  #137-7497   137-7497  #137-7511   137-7511  #137-7519   137-7519  #137-7546  
                         137-7546  #143-7900   143-7900  #143-7906   143-7906  #143-7913   143-7913  #147-8153   147-8153  
                        #152-8240   152-8240  #153-8258   153-8258  #153-8269   153-8269  #153-8281   153-8281  #153-8283  
                         153-8283  #153-8286   153-8286  #153-8293   153-8293  #154-8304   154-8304  #154-8305   154-8305  
                        #155-8317   155-8317  #156-8332   156-8332  #156-8337   156-8337  #156-8358   156-8358  #156-8365  
                         156-8365  #156-8368   156-8368  #156-8375   156-8375  #157-8386   157-8386  #157-8394   157-8394  
                        #157-8397   157-8397  #157-8401   157-8401  #158-8418   158-8418  #158-8423   158-8423  #159-8449  
                         159-8449  #159-8451   159-8451  #160-8478   160-8478  #160-8481   160-8481  #161-8508   161-8508  
                        #161-8518   161-8518  #161-8524   161-8524  #163-8570   163-8570  #163-8572   163-8572  #164-8593  
                         164-8593  #164-8606   164-8606  #164-8608   164-8608  #164-8617   164-8617  #165-8640   165-8640  
                        #166-8652   166-8652  #166-8654   166-8654  #166-8659   166-8659  #169-8706   169-8706  #169-8771  
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 27

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         169-8771  #169-8773   169-8773  #169-8792   169-8792  #169-8842   169-8842  #170-8872   170-8872  
                        #174-9070   174-9070  #177-9247   177-9247  #177-9253   177-9253  #177-9256   177-9256  #177-9261  
                         177-9261  #177-9286   177-9286  #177-9292   177-9292  #178-9363   178-9363  #178-9386   178-9386  
                        #178-9392   178-9392  #178-9405   178-9405  #178-9413   178-9413  #179-9456   179-9456  #179-9480  
                         179-9480  #179-9490   179-9490  #179-9517   179-9517  #179-9538   179-9538  #179-9545   179-9545  
                        #179-9550   179-9550  #180-9600   180-9600  #180-9608   180-9608  #181-9658   181-9658  #181-9661  
                         181-9661  #181-9669   181-9669  #181-9686   181-9686  #181-9688   181-9688  #183-9779   183-9779  
                        #183-9781   183-9781  #184-9816   184-9816  #185-9867   185-9867  #193-10319  193-10319 #193-10320 
                         193-10320 #193-10325  193-10325 #194-10338  194-10338 #194-10340  194-10340 #194-10344  194-10344 
                        #195-10410  195-10410 #195-10433  195-10433 #196-10441  196-10441 #196-10444  196-10444 #196-10447 
                         196-10447 #197-10471  197-10471 #198-10505  198-10505 #200-10549  200-10549 #201-10563  201-10563 
                        #201-10584  201-10584 #201-10594  201-10594 #201-10596  201-10596 #203-10668  203-10668 #204-10692 
                         204-10692 #206-10754  206-10754 #206-10768  206-10768 #206-10769  206-10769 #208-10840  208-10840 
                        #208-10846  208-10846 #209-10911  209-10911 #209-10918  209-10918 #212-11101  212-11101 #212-11111 
                         212-11111 #212-11114  212-11114 #212-11127  212-11127 #212-11128  212-11128 #212-11137  212-11137 
                        #212-11139  212-11139 #213-11196  213-11196 #213-11208  213-11208 #213-11254  213-11254 #213-11255 
                         213-11255 #213-11256  213-11256 #213-11268  213-11268 #213-11293  213-11293 #215-11336  215-11336 
                        #216-11409  216-11409 #216-11411  216-11411 #216-11412  216-11412 #216-11415  216-11415 #216-11419 
                         216-11419 #216-11430  216-11430 #216-11435  216-11435 #217-11470  217-11470 #217-11477  217-11477 
                        #217-11489  217-11489 #217-11495  217-11495 #219-11698  219-11698 #221-11770  221-11770 #223-11829 
                         223-11829 #223-11830  223-11830 #224-11881  224-11881 #224-11942  224-11942 #225-11980  225-11980 
                        #225-11991  225-11991 #226-12019  226-12019 #228-12098  228-12098 #229-12138  229-12138 #229-12150 
                         229-12150 #229-12176  229-12176 #229-12197  229-12197 #229-12227  229-12227 #230-12330  230-12330 
                        #230-12344  230-12344 #230-12355  230-12355 #230-12412  230-12412 #231-12470  231-12470 #231-12471 
                         231-12471 #231-12477  231-12477 #231-12486  231-12486 #232-12536  232-12536 #233-12578  233-12578 
                        #234-12641  234-12641 #234-12647  234-12647 #235-12676  235-12676 #236-12719  236-12719 #236-12733 
                         236-12733 #236-12736  236-12736 #236-12743  236-12743 #237-12779  237-12779 #237-12785  237-12785 
                        #237-12788  237-12788 #238-12817  238-12817 #241-12920  241-12920 #241-12930  241-12930 #242-12983 
                         242-12983 #242-12996  242-12996 #243-13053  243-13053 #243-13069  243-13069 #244-13109  244-13109 
                        #244-13112  244-13112 #244-13117  244-13117 #244-13119  244-13119 #244-13123  244-13123 #244-13129 
                         244-13129 #245-13158  245-13158 #247-13230  247-13230 #252-13396  252-13396 #255-13530  255-13530 
                        #255-13545  255-13545 #256-13583  256-13583 #256-13590  256-13590 #256-13592  256-13592 #256-13597 
                         256-13597 #256-13602  256-13602 #257-13658  257-13658 #257-13703  257-13703 #257-13707  257-13707 
                        #257-13713  257-13713 #257-13716  257-13716 #258-13748  258-13748 #262-13873  262-13873 #262-13874 
                         262-13874 #264-13942  264-13942 #269-14248  269-14248 #270-14312  270-14312 #270-14314  270-14314 
                        #270-14318  270-14318 #270-14374  270-14374 #271-14415  271-14415 #271-14418  271-14418 #271-14434 
                         271-14434 #271-14459  271-14459 #272-14489  272-14489 #272-14497  272-14497 #273-14526  273-14526 
                        #274-14580  274-14580 #274-14590  274-14590 #275-14646  275-14646 #275-14664  275-14664 #275-14677 
                         275-14677 #275-14680  275-14680 #276-14722  276-14722 #276-14731  276-14731 #276-14734  276-14734 
                        #277-14858  277-14858 #277-14874  277-14874 #277-14911  277-14911 #277-14921  277-14921 #278-14961 
                         278-14961 #279-15025  279-15025 #279-15041  279-15041 #281-15091  281-15091 #282-15117  282-15117 
                        #284-15319  284-15319 #285-15436  285-15436 #286-15517  286-15517 #286-15551  286-15551 
$$$   	= 010016 R	#38-1412    38-1412   #38-1416    38-1416   #38-1420    38-1420   #38-1424    38-1424   #38-1428   
                         38-1428   #38-1433    38-1433   #38-1437    38-1437   #38-1446    38-1446   #38-1451    38-1451   
                        #38-1456    38-1456   #38-1460    38-1460   
$$$ARG	= 000011	#81-4133    81-4133   #81-4133    81-4133   #81-4133    81-4133   #81-4133    81-4133   
$$$GLB	= ******	 66-2742    66-2742    66-2742    66-2742    66-2742    66-2742    66-2746    66-2746    66-2746   
                         66-2746    66-2746    66-2746    81-4133    81-4133    81-4133    81-4133    81-4133    81-4133   
                         81-4133    81-4133    146-8093   146-8096   146-8096   146-8096   146-8096   146-8096   146-8096  
                         190-10221  190-10225  190-10225  190-10225  190-10225  190-10225  190-10225  190-10227  190-10227 
                         190-10227  190-10227  190-10227  190-10227  190-10229  190-10229  190-10229  190-10229  190-10229 
                         190-10229 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 28

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$$$OST	= 000016	#66-2742    66-2742    66-2742   #66-2742    66-2742    66-2742   #66-2742    66-2742    66-2742   
                        #66-2742    66-2742    66-2742   #66-2742    66-2742    66-2742   #66-2742   #66-2746    66-2746   
                         66-2746   #66-2746    66-2746    66-2746   #66-2746    66-2746    66-2746   #66-2746    66-2746   
                         66-2746   #66-2746    66-2746    66-2746   #66-2746   #81-4133    81-4133    81-4133   #81-4133   
                         81-4133    81-4133   #81-4133    81-4133    81-4133   #81-4133    81-4133    81-4133   #81-4133   
                         81-4133    81-4133   #81-4133    81-4133    81-4133   #81-4133    81-4133   #146-8096   146-8096  
                         146-8096  #146-8096   146-8096   146-8096  #146-8096   146-8096   146-8096  #146-8096   146-8096  
                         146-8096  #146-8096   146-8096   146-8096  #146-8096  #190-10225  190-10225  190-10225 #190-10225 
                         190-10225  190-10225 #190-10225  190-10225  190-10225 #190-10225  190-10225  190-10225 #190-10225 
                         190-10225  190-10225 #190-10225 #190-10227  190-10227  190-10227 #190-10227  190-10227  190-10227 
                        #190-10227  190-10227  190-10227 #190-10227  190-10227  190-10227 #190-10227  190-10227  190-10227 
                        #190-10227 #190-10229  190-10229  190-10229 #190-10229  190-10229  190-10229 #190-10229  190-10229 
                         190-10229 #190-10229  190-10229  190-10229 #190-10229  190-10229  190-10229 #190-10229 
$$$T1 	= 000000	#66-2742    66-2742    66-2742    66-2742   #66-2742    66-2742   #66-2746    66-2746    66-2746   
                         66-2746   #66-2746    66-2746   #146-8096   146-8096   146-8096   146-8096  #146-8096   146-8096  
                        #190-10225  190-10225  190-10225  190-10225 #190-10225  190-10225 #190-10227  190-10227  190-10227 
                         190-10227 #190-10227  190-10227 #190-10229  190-10229  190-10229  190-10229 #190-10229  190-10229 
$$$UNI	= 000002	#35-1166    35-1182    35-1182    35-1182   #35-1182    35-1182    35-1182    35-1182   #35-1182   
                        #35-1210    35-1214    35-1214   #35-1214    35-1214    35-1214   #35-1214   
.ABCNT	  002600 RG	#17-820    *85-4353    192-10303 *222-11793 
.ABFLG	  002602 RG	#17-822    *85-4354   *162-8537   192-10301 *192-10303 
.ACKAL	  001164 RG	#9-537      66-2706   *81-4128    194-10332 *194-10334 
.ATLLH	  007106 RG	#37-1345    37-1351    37-1401    69-3082    76-3589    127-6909   127-6912  
.ATOTA	  011317 RG	#41-1655   
.BGBST	= 076000  G	#14-741     14-748     42-1670   
.BGBUF	  001414 RG	#14-747     42-1675   
.BGLEN	= 002000  G	#14-742     14-749     42-1677   
.BM873	= 173000  G	#49-2108    83-4248   
.BRCLK	= 005000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.BRKCH	  002630 RG	#17-835     216-11432 
.BTPRM	  001160 RG	#9-533      161-8522  
.BTSCH	  001162 RG	#9-535     *81-3989    81-4005   *81-4026   *216-11443 
.BTSTK	  016312 RG	 37-1398    81-3918   #81-3918   
.CECLK	= 004000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.CEFN 	  043062 RG	 109-5597   109-5597   110-5647   110-5647   111-5710   111-5710   112-5757   112-5757   118-6085  
                         118-6085   124-6516   124-6516   128-6963   128-6963  #252-13386 
.CEFN3	  043066 RG	#252-13389  275-14664  275-14664 
.CKASS	  001050 RG	#9-475      75-3509   *75-3511   *143-7908  
.CKDEL	  043150 RG	 120-6223   120-6223   143-7913   143-7913  #253-13437 
.CLKBA	  002370 RG	#15-784     118-6118   120-6213   143-7891  
.CLKEA	  002574 RG	#15-794     118-6119   120-6215  
.CLKSW	  001136 RG	#9-510      66-2722   *66-2724   *143-7878  *143-7881  
.CLKSZ	= 000007  G	#15-781     15-791    
.CLRMR	= 006000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.CLRUN	= 010000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.COMEF	  001010 RG	#9-445      43-1786    66-2704    70-3146    70-3151    70-3160    70-3162    81-3939    81-3957   
                        *81-3968   *81-4082   *83-4226   *85-4374    91-4753    113-5806   113-5807   147-8147  *167-8676  
                        *167-8680  *179-9498   195-10389  212-11131  213-11206  213-11222  216-11394 *216-11429  216-11441 
                         222-11796  224-11903  228-12093  233-12569  252-13402  255-13523  258-13753  275-14636  278-14953 
                        *280-15067  281-15089 *281-15094 *282-15115 
.CONBT	= 012000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.CPDV 	  001254 RG	#12-625    *81-4104    274-14570 *274-14602 *276-14740 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 29

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

.CPFN 	  001252 RG	#12-623     274-14568 *274-14600 
.CPUSN	  011312 RG	#41-1634   
.CRHD 	  001262 RG	#12-631     81-4105    276-14715 *276-14739 
.CRPB 	  001260 RG	#12-629    *81-4107    274-14573 *274-14575  274-14594 *274-14604 *276-14744 
.CRPFL	  005706 RG	#34-1099   *85-4352   
.CRQZ 	  001250 RG	#12-621    *81-4112   *274-14577 *274-14595  276-14716 *276-14747 
.CRSB 	  001264 RG	#12-633     274-14576 *274-14597 
.CRSND	  002626 RG	#17-833    *169-8779  *169-8799   270-14340 
.CRSZ 	  001256 RG	#12-627    *81-4111   *274-14578  274-14587 *274-14596  276-14726 *276-14746 
.CRTSK	  001006 RG	#9-442      43-1740    43-1751    67-2791    67-2853    67-2959    73-3290   *73-3293    74-3306   
                         74-3313   *74-3394    79-3811    147-8133   192-10281  255-13532  257-13644  257-13670  275-14662 
.CSHRG	= 164000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.CTYPT	  002634 RG	#17-839    
.CYLTM	= 000074  G	 9-529      15-787     15-788    #54-2375   
.DATE 	  001140 RG	#9-512      165-8631  
.DATE3	  001140 RG	#9-513      162-8535   222-11798 
.DAY  	  001144 RG	#9-518      107-5496  
.DBINT	= ******  GX	 8-377     
.DHSPD	  037554 RG	 156-8375   156-8375   213-11254  213-11254  221-11770  221-11770 #223-11825 
.DHSPF	  037514 RG	 213-11255  213-11255 #222-11792 
.DHSPR	  037460 RG	 153-8286   153-8286  #221-11764  225-11980  225-11980  231-12471  231-12471 
.DHSTO	  034164 RG	 204-10708 #205-10736  236-12736  236-12736  244-13119  244-13119  270-14376 
.DHTMO	  040646 RG	 85-4348    85-4348    193-10319  193-10319 #230-12291 
.DHXOF	  041632 RG	 234-12634  234-12638  234-12641  234-12641 #234-12646 
.DHXON	  041754 RG	 236-12712  236-12716  236-12719  236-12719 #236-12724 
.DLHUP	  040214 RG	 153-8269   153-8269   153-8293   153-8293  #228-12074  229-12176  229-12176 
.DLINT	  036500 RG	 215-11339 #217-11461 
.DLSTO	  034340 RG	#207-10796  236-12743  236-12743  244-13123  244-13123  270-14384 
.DLTMO	  040336 RG	 85-4349    85-4349    193-10320  193-10320 #229-12134 
.DLXOF	  041640 RG	 234-12632 #234-12652 
.DLXON	  042020 RG	 236-12734 #236-12742 
.DMHUP	  040144 RG	 153-8283   153-8283   156-8368   156-8368  #226-12016  231-12470  231-12470 
.DMTMO	  041126 RG	 85-4350    85-4350    193-10325  193-10325 #231-12441 
.DOW  	  001147 RG	#9-524     
.DQCDR	  010152 RG	#39-1492   
.DQDH0	  010072 RG	#39-1480    169-8755  
.DQDLS	  010112 RG	#39-1484   
.DQDL1	  010052 RG	#39-1476   
.DQLPT	  010132 RG	#39-1488   
.DQPBA	  010032 RG	#39-1472    39-1503    154-8305   154-8305  *155-8318   163-8572   163-8572   164-8608   164-8608  
                         166-8654   166-8654   166-8656   174-9027   174-9028   174-9032   273-14542  273-14544 
.DQPEA	  010232 RG	#39-1502    39-1503   
.DQPSZ	= 000010  G	#39-1503    178-9372  
.DRBEL	  030540 RG	 176-9186  #179-9450  
.DRLTC	= 015000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.DRSRN	  013352 RG	 8-333     #67-2953   
.DR.NS	  013460 RG	#67-2976    90-4717    141-7814  
.DSACF	= 066000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.DSIOJ	= 065000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.DST  	  001146 RG	#9-522     
.DTBLK	  001374 RG	#12-722    *81-4080   *180-9602  *181-9663  *181-9689   195-10429  212-11133  212-11137  212-11137 
.DTINT	  027624 RG	 8-427      8-427      8-427      8-427     #176-9160  
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 30

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

.DXRTY	  001364 RG	#12-701     277-14824 *277-14857  277-14878  277-14932 
.D.ASS	  021564 RG	 67-2862   #103-5253  
.D.CEF	  022034 RG	 67-2874   #109-5597  
.D.CMT	  022452 RG	 67-2872   #120-6212  
.D.DSE	  022070 RG	 67-2876   #111-5706  
.D.DTE	  020344 RG	 67-2863   #87-4479   
.D.EXT	  022520 RG	 67-2884   #122-6306   131-7211  
.D.GLI	  021670 RG	 67-2861   #105-5387  
.D.GMP	  024232 RG	 67-2896   #141-7769  
.D.GPP	  024110 RG	 67-2895   #139-7650  
.D.GTP	  021720 RG	 67-2893   #107-5481  
.D.MKT	  022350 RG	 67-2870   #118-6085  
.D.PUT	  023640 RG	 67-2871   #135-7389  
.D.QIO	  022542 RG	 67-2859    67-2860   #124-6487  
.D.RAF	  022126 RG	 67-2878   #113-5804  
.D.REC	  023460 RG	 67-2867   #131-7136  
.D.REF	  022112 RG	 67-2877   #112-5757  
.D.REQ	  023662 RG	 67-2864   #137-7469  
.D.ROE	  023460 RG	 67-2868   #131-7137  
.D.ROS	  023460 RG	 67-2869   #131-7138  
.D.SAR	  023226 RG	 67-2866   #127-6847  
.D.SEF	  022052 RG	 67-2875   #110-5647  
.D.SEN	  023212 RG	 67-2865   #126-6764  
.D.STV	  023626 RG	 67-2892   #133-7302  
.D.WFL	  022230 RG	 67-2880   #115-5934  
.D.WFO	  022154 RG	#114-5852   124-6673  
.D.WFS	  022152 RG	 67-2879   #114-5850  
.D.WSE	  022336 RG	 67-2883   #116-5998  
.EBPEC	  001370 RG	#12-714     278-14957 *278-14959 
.EBPEQ	  001366 RG	#12-711     196-10443  278-14964 
.EBRTY	  001365 RG	#12-703    *277-14876  277-14905  277-14933  278-14955 
.EIOJA	= 067000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.ELEDN	  030234 RG	 176-9178  #178-9331  
.EXEND	  001002 RG	#9-434      42-1666   
.FEACK	= ******  GX	 39-1499   
.FEACT	  005666 RG	#33-1077   *81-4129   
.FEMOD	  001170 RG	#9-541     
.FEPPU	  015550 RG	#77-3692    127-6868   127-6868   137-7477   137-7477  
.FEST 	= ******  GX	 39-1499   
.FESTB	  001000 RG	#9-432      9-433     
.FREPL	  001420 RG	#14-751    *42-1669   *42-1674    185-9865   212-11125  216-11398  239-12849  240-12889  267-14074 
                         268-14172 
.FSRPT	= 000050  G	#49-2152   
.GFNR 	= 102000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.HRDWR	  011314 RG	#41-1639   
.IBFLO	  005054 RG	#29-987     239-12849 
.IBFOK	  005056 RG	#29-989     212-11125  240-12889 
.INHDM	  002576 RG	#17-818    *150-8213   224-11905 
.INICL	= 070000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.INTEN	= 000100  G	#49-2113    85-4375   
.IOSNP	  012156 R	 44-1825    44-1825   #45-1920   
.IRLTC	= 014000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 31

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

.KACFL	  001412 RG	#13-735     195-10402 
.KALSC	= 000005  G	#54-2377    90-4711    195-10422 
.KLERQ	  001130 RG	#9-502     
.KLERW	  001166 RG	#9-539     
.KLFCF	  001173 RG	#9-545     
.KLFLG	  001174 RG	#9-547     
.KLITK	  001126 RG	#9-499     *81-3962   *84-4304   *179-9488  *195-10416 *277-14852 *277-14856 *277-14873 *277-14898 
                        *277-14912 
.KLIWD	  001132 RG	#9-505     
.KLNBC	  001200 RG	#10-560     10-580    
.KLNFD	  001204 RG	#10-565    
.KLNFT	  001202 RG	#10-562     10-575     167-8675  
.KLNLB	  001200 RG	#10-559    
.KLNMD	  001216 RG	#10-572     161-8509   208-10834 
.KLNPB	  001176 RG	#10-556     161-8512  
.KLNPE	= 001220 RG	#10-576    
.KLNPT	  002636 RG	#17-842    
.KLNPW	  001220 RG	#10-577    
.KLNSW	  001226 RG	#10-581     44-1867    44-1875    153-8262   157-8390   169-8763   197-10460  208-10830  209-10855 
                         209-10912  211-11027  216-11386  217-11474  228-12080 *228-12082  234-12637  236-12715  270-14309 
                         271-14411 
.KLNTD	  001212 RG	#10-570    
.KLNTT	  001210 RG	#10-567    
.KLRLD	  001172 RG	#9-543     
.KPAC 	  001410 RG	#13-733    *90-4711   *90-4712   *195-10397 *195-10400 *195-10422 
.KPALV	  031326 RG	 180-9608   180-9608  #182-9716   195-10433  195-10433  212-11139  212-11139 
.KW11S	  035366 RG	 8-347     #212-11100 
.LCEND	= 011320 RG	 9-433     #41-1657   
.LCRDL	= 052000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LCRDR	= 051000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LCRM1	= 057000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LCRM2	= 056000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LCRM3	= 055000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LCRM4	= 054000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LCRM5	= 053000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDAR 	= 077000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDBRL	= 043000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDBRR	= 042000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDCK1	= 046000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDCK2	= 047000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDDIS	= 045000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDRJD	= 064000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDRJV	= 063000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDRM1	= 060000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDRM2	= 061000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDRM3	= 062000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LDSEL	= 044000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.LPPFL	  006214 RG	#35-1151   *85-4351   
.MEMRS	= 076000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.MISC 	  011316 RG	#41-1650   *192-10288  197-10458 
.MON  	  001145 RG	#9-520      107-5499  
.MSIZE	  001114 RG	#9-482     
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 32

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

.NOERR	  001122 RG	#9-493      9-495     *42-1678   *81-3961   *84-4305   *179-9489   195-10391 *195-10411  277-14848 
                         277-14865 *277-14920 
.NOHLT	= 001123 RG	#9-495      277-14894 
.OBFLO	= 001200  G	#185-9846   185-9865  
.PARER	  011702 R	 8-353     #43-1796   
.PARRG	= 172100  G	 43-1797   #49-2109    85-4358   
.PAT1.	  000040 RG	#8-335     
.PAT2.	  000120 RG	#8-355     
.PAT3.	  000234 RG	#8-372     
.PAT4.	  000520 RG	#8-403     
.PCAB1	= 150000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.PCAB2	= 151000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.PCAB3	= 152000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.PCAB4	= 153000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.PDP11	= 000050	#139-7636   139-7659  
.PFAIL	  001026 RG	#9-464      75-3454   *83-4231   *84-4293   
.PFASS	  001052 RG	#9-477      75-3512    75-3517   *75-3518   
.PFIOW	  001030 RG	#9-466     *84-4294   *85-4337   *85-4356    229-12140  229-12194  230-12293  230-12342  230-12409 
                         231-12443  231-12460  237-12774 
.PFRST	  020126 RG	 75-3522    75-3522   #85-4329   
.POLLH	  001424 RG	#14-755     14-761     14-771     73-3237    73-3271    76-3563    76-3600    128-6973   131-7195  
                         137-7510   137-7516  
.POLND	  002330 RG	 14-757    #14-770    
.POLST	  001430 RG	 14-756    #14-759    
.PRADR	  001354 RG	#12-690    *90-4676    176-9169   183-9765   212-11136 
.PRDCT	  001362 RG	#12-696    *81-3969   *81-4046   *176-9185  
.PRDTE	  001360 RG	#12-694     44-1858    81-3929    84-4289    90-4674    176-9168   183-9764   195-10432  212-11135 
.PRPSE	  001372 RG	#12-717     66-2730   *81-3921   *81-3941   *81-3982   *85-4355    216-11396 
.PRSTA	  001356 RG	#12-692     43-1779    44-1863    81-3930    84-4318    85-4377    176-9170   177-9298   183-9782  
                         280-15066  281-15093 
.PUDBA	  010232 RG	 36-1304   #40-1522    76-3632    103-5276   257-13646 
.PUDEA	  011312 RG	#40-1628    103-5278  
.PWRDN	  017574 RG	 8-329      75-3456   #83-4225    84-4303   
.RCRM1	= 147000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.RCRM2	= 146000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.RCRM3	= 145000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.RCRM4	= 144000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.RCSPF	= 141000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.RDJ14	= 134000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.RDJ71	= 135000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.RDMAB	= 133000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.REQS 	  015046 RG	 73-3275    73-3275   #76-3550    124-6652   124-6652   127-6893   127-6893   137-7497   137-7497  
.RPADR	  005670 RG	#33-1079   
.RPELC	  005540 RG	#32-1044   
.RPELQ	  005536 RG	#32-1042    196-10446 
.RPSIZ	  005674 RG	#33-1081   
.RPUNT	  005664 RG	#33-1075   
.RP1PE	  010352 RG	#40-1545    40-1546   
.RP2PE	  010422 RG	#40-1550    40-1551   
.RP3PE	  010472 RG	#40-1555    40-1556   
.RP4PE	  010542 RG	#40-1560    40-1561   
.RP5PE	  010612 RG	#40-1565    40-1566   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 33

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

.RP6PE	  010662 RG	#40-1570    40-1571   
.RP7PE	  010732 RG	#40-1575    40-1576   
.RQESD	  015540 RG	#76-3659    127-6899   137-7500  
.RQSPD	  024600 RG	#146-8095   162-8539   192-10305 
.SECLK	= 003000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.SEND 	  023360 RG	 124-6648   124-6648   126-6774   126-6774   127-6862   127-6862  #128-6956   137-7546   137-7546  
.SERFG	  001014 RG	#9-448     *42-1680   *69-3081    74-3308    75-3458    75-3486    75-3491    75-3498   *75-3514   
                        *75-3521   *79-3828   *83-4232   *84-4308   *143-7916  *143-7920  *212-11102 *259-13781 
.SETMR	= 007000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.SETRN	= 011000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.SEWFL	  001016 RG	#9-450     *116-5999   143-7920  *143-7921  
.SNDAL	  027006 RG	 66-2737    66-2737    169-8706   169-8706  #169-8742  
.SNDBF	  002606 RG	#17-829    *169-8757  *169-8841   202-10647 *202-10648  204-10705 
.SNDCN	  002616 RG	#17-831    *169-8755  *169-8837  *202-10631 
.SNDLP	  002604 RG	#17-827     85-4338    169-8749  *169-8754   169-8833   202-10637  204-10700 
.SSCLK	= 002000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.SSM  	  001150 RG	#9-526      107-5483  *143-7873  *143-7875   143-7876  
.SSTCO	  013326 RG	 43-1748   #67-2904   
.SSTET	  013320 RG	 67-2796   #67-2901    67-2964   
.STAST	  015730 RG	#79-3805    143-7906   143-7906   256-13597  256-13597 
.STDHL	  037416 RG	#220-11727  223-11830  223-11830  235-12676  235-12676  236-12733  236-12733  242-12996  242-12996 
                         243-13053  243-13053  244-13117  244-13117  270-14374  270-14374 
.STDTA	  006334 RG	#36-1223    73-3242    266-14021 
.STDTB	  006342 RG	 36-1224   #36-1230   
.STDTC	  006336 RG	#36-1225   
.STDTZ	  006340 RG	#36-1227    73-3243   *73-3244   *137-7540   266-14023 
.STELD	  031062 RG	 179-9545   179-9545  #180-9597   180-9602  
.STELI	  031150 RG	 179-9517   179-9517  #181-9653   181-9663  
.STPCL	= 000000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.STPDM	  040174 RG	 226-12019  226-12019 #227-12044  231-12477  231-12477 
.STRCL	= 001000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.STTNF	  031370 RG	 147-8153   147-8153  #183-9758  
.STTNQ	  031362 RG	 177-9261   177-9261  #183-9755   275-14677  275-14677  276-14722  276-14722 
.STTYD	  040060 RG	 213-11256  213-11256  217-11489  217-11489  224-11934 #225-11974 
.STTYH	  040074 RG	 224-11942  224-11942 #225-11979  228-12098  228-12098 
.SYUIC	  001156 RG	#9-531      124-6601   139-7661  
.S2IDC	  005050 RG	#29-983     212-11120 *212-11129 *240-12894 *242-13011 
.S2ITP	  005052 RG	#29-985     232-12532 *232-12547 
.TENDN	  027746 RG	 176-9172  #177-9226  
.TFXOF	  043004 RG	 242-12983  242-12983 #247-13226 
.TFXON	  042774 RG	 243-13069  243-13069 #247-13221 
.TICK 	  024364 RG	 75-3489   #143-7865   143-7917  
.TICKS	  001134 RG	#9-508      143-7865  
.TKPS 	  001154 RG	#9-528      81-3924    107-5481   143-7867  *161-8496  *161-8499  
.TKTN 	  001124 RG	#9-497     *43-1754    66-2710   *66-2712   *71-3173   *81-3960   *84-4307   *179-9491  *195-10417 
                        *277-14922 
.TKTN.	  012740 R	 66-2715   #66-2745   
.TOD. 	  012722 R	 66-2726   #66-2741   
.TPDBA	  007552 RG	#38-1408    77-3697    77-3698    141-7781  
.TPDEA	  010032 RG	#38-1462    141-7779  
.TTACK	  034370 RG	 204-10712  206-10756  206-10764  206-10774 #208-10825 
.TTBTW	  042604 RG	 158-8423   158-8423   241-12930  241-12930 #244-13105  247-13230  247-13230 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 34

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

.TTCHK	  042124 RG	 212-11114  212-11114  216-11415  216-11415 #238-12813 
.TTDIS	  042312 RG	 238-12817  238-12817  239-12854  240-12884  241-12925 #242-12960 
.TTELB	  002660 RG	#17-864    *213-11292 *229-12226 *231-12485  233-12597 *233-12599 
.TTELC	  002656 RG	#17-862     233-12571 
.TTELQ	  002654 RG	#17-857     196-10439  233-12581 
.TTENB	  042464 RG	 212-11128  212-11128  237-12785  237-12785  240-12890  241-12922 #243-13038 
.TTERL	  041426 RG	 213-11293  213-11293  230-12412  230-12412 #233-12568 
.TTFDI	  041360 RG	 212-11127  212-11127 #232-12531 
.TTICK	  042150 RG	 216-11419  216-11419 #239-12846 
.TTIXC	  042254 RG	 201-10596  201-10596  204-10692  204-10692  206-10769  206-10769 #241-12919 
.TTP11	  002632 RG	#17-837     169-8785  *197-10473 *198-10506  201-10591  206-10760  208-10828  216-11439  234-12635 
                         236-12713  270-14367  271-14442 
.TTQDS	  042204 RG	 157-8402  #240-12881 
.TTQEN	  042214 RG	 157-8405  #240-12886 
.TTRNG	  040044 R	 217-11470  217-11470  224-11924 #224-11941 
.TTRST	  042034 RG	 228-12102  229-12197  229-12197  230-12344  230-12344 #237-12772 
.TTSCW	  040050 R	 217-11495  217-11495  224-11926 #224-11946 
.TTSTP	  041650 RG	 234-12647  234-12647 #235-12675  244-13129  244-13129  271-14449 
.TTSW2	  042754 RG	 157-8401   157-8401   212-11111  212-11111  213-11268  213-11268  216-11412  216-11412  223-11829 
                         223-11829  230-12355  230-12355  232-12536  232-12536  237-12779  237-12779  241-12920  241-12920 
                         244-13109  244-13109 #246-13188 
.TTS2F	  005046 RG	#29-981     212-11103 *238-12818 *242-12987 *243-13046 
.TTXOF	  041554 RG	 159-8451   159-8451   216-11409  216-11409 #234-12628 
.TTXON	  041676 RG	 160-8481   160-8481  #236-12705 
.VCLUN	  015654 RG	#78-3751    103-5256   103-5256   105-5396   105-5396   124-6493   124-6493  
.VERNO	  001036 RG	#9-472     
.WRMBX	= 071000	#7-262     #48-2092   #80-3894   #82-4186   #86-4445   #145-8019  #175-9120  #189-10058 #250-13319 
.X.02 	  023234 R	 126-6770  #127-6854  
.YEAR 	  001142 RG	#9-516      107-5501  
..AKCR	= ******  GX	 39-1493   
..AKLP	= ******  GX	 39-1489   
..ALCB	  044416 RG	 76-3596    76-3596    124-6561   124-6561   185-9867   185-9867   233-12578  233-12578  245-13158 
                         245-13158 #267-14068  269-14248  269-14248  276-14734  276-14734  278-14961  278-14961 
..ALC2	  044432 RG	#267-14075 
..ALOW	  044706 RG	 164-8593   164-8593   170-8872   170-8872  #269-14247  269-14251  275-14646  275-14646 
..BLXI	  047062 RG	#284-15307 
..BLXO	  047074 RG	 256-13583  256-13583 #284-15313 
..DECB	  044552 RG	 81-4099    81-4099    177-9256   177-9256   256-13602  256-13602 #268-14168 
..DECN	  044546 RG	 85-4345    85-4345    164-8617   164-8617   165-8640   165-8640   169-8842   169-8842   178-9386  
                         178-9386   203-10668  203-10668  206-10768  206-10768  255-13545  255-13545 #268-14166  270-14337 
                         270-14349  271-14459  271-14459 
..DEC2	  044542 RG	#268-14162 
..DQRN	  043432 RG	 197-10471  197-10471 #257-13643  257-13717 
..DSEV	  044026 RG	 76-3640    76-3640    79-3807    79-3807    111-5706   111-5706   124-6664   124-6664   128-6996  
                         143-7900   143-7900   177-9247   177-9247   178-9363   178-9363   209-10911  209-10911  216-11430 
                         216-11430  216-11435  216-11435  217-11477  217-11477  222-11801  228-12084  256-13592  256-13592 
                        #259-13780  282-15117  282-15117 
..DTP1	  047036 RG	 90-4714    90-4714   #282-15114 
..DTP2	  047006 RG	 89-4589    89-4589    179-9480   179-9480  #281-15088 
..DTSP	  046770 RG	 81-3963    81-3963    84-4306    84-4306    179-9490   179-9490   195-10410  195-10410  277-14921 
                         277-14921 #280-15065  281-15091  281-15091 
..ENB0	  044302 RG	 79-3822    79-3822    81-4040    81-4040    81-4127    81-4127    257-13707  257-13707  257-13713 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 35

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         257-13713  262-13874  262-13874 #265-13980  286-15517  286-15517  286-15551  286-15551 
..ERLG	  043212 RG	 196-10441  196-10441  196-10444  196-10444  196-10447  196-10447 #255-13522  255-13546 
..FSTD	  044336 RG	 126-6764   126-6764   127-6847   127-6847   131-7157   131-7157   137-7469   137-7469  #266-14019 
..INTX	  014632 RG	 43-1762   #75-3449    84-4309    143-7922   176-9195   219-11705  265-13989 
..IODN	  043312 RG	 198-10505  198-10505 #256-13573  257-13716  257-13716 
..IPRI	  044122 RG	 76-3637    76-3637    76-3655    76-3655    124-6662   124-6662  #262-13861 
..NADD	  044176 RG	 73-3238    73-3238    73-3258    73-3258    73-3272    73-3272    76-3601    76-3601    128-6990  
                         128-6990   131-7196   131-7196   137-7519   137-7519   262-13873  262-13873 #263-13895  275-14680 
                         275-14680  276-14731  276-14731 
..NDEL	  044062 RG	 73-3236    73-3236    81-4092    81-4092    131-7174   131-7174   177-9253   177-9253  #261-13829 
                         264-13942  264-13942 
..PICK	  044240 RG	 73-3264    73-3264    76-3564    76-3564    128-6974   128-6974   131-7148   131-7148   137-7511  
                         137-7511   257-13658  257-13658 #264-13936 
..SACK	  045372 RG	 166-8659   166-8659   208-10846  208-10846 #273-14522 
..SEFN	  043754 RG	 256-13590  256-13590 #258-13742 
..SPLP	= ******  GX	 39-1489   
..STCH	  045326 RG	 216-11411  216-11411 #272-14484 
..STCR	= ******  GX	 39-1493   
..STFC	  045456 RG	 161-8508   161-8508   161-8524   161-8524   174-9070   174-9070   194-10338  194-10338  194-10340 
                         194-10340  194-10344  194-10344  225-11991  225-11991  272-14497  272-14497 #274-14565 
..STIN	  045646 RG	 161-8518   161-8518   255-13530  255-13530 #275-14635 
..STLP	= ******  GX	 39-1489   
..STPT	  045142 RG	 39-1473    39-1477    39-1481    39-1485    237-12788  237-12788 #271-14404 
..STQ 	  046046 RG	 213-11208  213-11208  274-14580  274-14580  274-14590  274-14590 #276-14711 
..STTY	  044726 RG	 39-1473    39-1477    39-1481    39-1485    169-8773   169-8773   169-8792   169-8792  #270-14300 
..SWED	  046670 RG	 90-4623    90-4623    90-4634    90-4634    90-4647    90-4647    90-4687    90-4687    90-4694   
                         90-4694    91-4756    91-4756    99-5099    99-5099   #279-15016 
..VTOL	  047150 RG	 124-6643   124-6643  #285-15401 
..VVLL	  047332 RG	 285-15436  285-15436 #286-15486 
..VXFR	  047054 RG	 257-13703  257-13703 #283-15156  284-15319  284-15319 
..WFED	  046216 RG	 81-3944    81-3944    81-3972    81-3972    81-3986    81-3986    81-4014    81-4014    81-4024   
                         81-4024    81-4030    81-4030    81-4038    81-4038    81-4049    81-4049    81-4072    81-4072   
                         81-4124    81-4124    97-5032    97-5032    177-9286   177-9286   179-9456   179-9456   179-9538  
                         179-9538   181-9658   181-9658   182-9725   183-9779   183-9779   184-9816   184-9816  #277-14820 
                         279-15025  279-15025  279-15041  279-15041 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 36

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#7-257     #44-1825   #44-1828   #44-1843   #48-2089   #66-2735   #66-2737   #73-3236   #73-3238   #73-3258   
                #73-3264   #73-3272   #73-3275   #75-3522   #76-3564   #76-3596   #76-3601   #76-3637   #76-3640   #76-3655   
                #79-3807   #79-3822   #80-3892   #81-3927   #81-3944   #81-3963   #81-3972   #81-3986   #81-4014   #81-4024   
                #81-4030   #81-4038   #81-4040   #81-4049   #81-4072   #81-4092   #81-4099   #81-4124   #81-4127   #82-4185   
                #84-4290   #84-4291   #84-4306   #85-4345   #85-4348   #85-4349   #85-4350   #86-4443   #89-4589   #90-4623   
                #90-4634   #90-4647   #90-4687   #90-4694   #90-4714   #91-4756   #97-4976   #97-5008   #97-5016   #97-5032   
                #99-5099   #102-5201  #103-5256  #104-5343  #105-5396  #106-5446  #107-5485  #107-5489  #108-5559  #109-5597  
                #110-5647  #111-5706  #111-5710  #112-5757  #114-5859  #117-6038  #118-6085  #119-6174  #120-6223  #121-6271  
                #123-6352  #124-6493  #124-6516  #124-6561  #124-6643  #124-6648  #124-6652  #124-6662  #124-6664  #125-6720  
                #126-6764  #126-6774  #127-6847  #127-6862  #127-6868  #127-6893  #128-6963  #128-6974  #128-6990  #131-7148  
                #131-7157  #131-7174  #131-7196  #132-7252  #134-7341  #136-7433  #137-7469  #137-7477  #137-7497  #137-7511  
                #137-7519  #137-7546  #142-7859  #143-7900  #143-7906  #143-7913  #145-8017  #147-8153  #152-8240  #153-8258  
                #153-8269  #153-8281  #153-8283  #153-8286  #153-8293  #154-8304  #154-8305  #155-8317  #156-8332  #156-8337  
                #156-8358  #156-8365  #156-8368  #156-8375  #157-8386  #157-8394  #157-8397  #157-8401  #158-8418  #158-8423  
                #159-8449  #159-8451  #160-8478  #160-8481  #161-8508  #161-8518  #161-8524  #163-8570  #163-8572  #164-8593  
                #164-8606  #164-8608  #164-8617  #165-8640  #166-8652  #166-8654  #166-8659  #169-8706  #169-8771  #169-8773  
                #169-8792  #169-8842  #170-8872  #174-9070  #175-9118  #177-9247  #177-9253  #177-9256  #177-9261  #177-9286  
                #177-9292  #178-9363  #178-9386  #178-9392  #178-9405  #178-9413  #179-9456  #179-9480  #179-9490  #179-9517  
                #179-9538  #179-9545  #179-9550  #180-9600  #180-9608  #181-9658  #181-9661  #181-9669  #181-9686  #181-9688  
                #183-9779  #183-9781  #184-9816  #185-9867  #189-10056 #193-10319 #193-10320 #193-10325 #194-10338 #194-10340 
                #194-10344 #195-10410 #195-10433 #196-10441 #196-10444 #196-10447 #197-10471 #198-10505 #200-10549 #201-10563 
                #201-10584 #201-10594 #201-10596 #203-10668 #204-10692 #206-10754 #206-10768 #206-10769 #208-10840 #208-10846 
                #209-10911 #209-10918 #212-11101 #212-11111 #212-11114 #212-11127 #212-11128 #212-11137 #212-11139 #213-11196 
                #213-11208 #213-11254 #213-11255 #213-11256 #213-11268 #213-11293 #215-11336 #216-11409 #216-11411 #216-11412 
                #216-11415 #216-11419 #216-11430 #216-11435 #217-11470 #217-11477 #217-11489 #217-11495 #219-11698 #221-11770 
                #223-11829 #223-11830 #224-11881 #224-11942 #225-11980 #225-11991 #226-12019 #228-12098 #229-12138 #229-12150 
                #229-12176 #229-12197 #229-12227 #230-12330 #230-12344 #230-12355 #230-12412 #231-12470 #231-12471 #231-12477 
                #231-12486 #232-12536 #233-12578 #234-12641 #234-12647 #235-12676 #236-12719 #236-12733 #236-12736 #236-12743 
                #237-12779 #237-12785 #237-12788 #238-12817 #241-12920 #241-12930 #242-12983 #242-12996 #243-13053 #243-13069 
                #244-13109 #244-13112 #244-13117 #244-13119 #244-13123 #244-13129 #245-13158 #247-13230 #250-13315 #252-13396 
                #255-13530 #255-13545 #256-13583 #256-13590 #256-13592 #256-13597 #256-13602 #257-13658 #257-13703 #257-13707 
                #257-13713 #257-13716 #258-13748 #262-13873 #262-13874 #264-13942 #269-14248 #270-14312 #270-14314 #270-14318 
                #270-14374 #271-14415 #271-14418 #271-14434 #271-14459 #272-14489 #272-14497 #273-14526 #274-14580 #274-14590 
                #275-14646 #275-14664 #275-14677 #275-14680 #276-14722 #276-14731 #276-14734 #277-14858 #277-14874 #277-14911 
                #277-14921 #278-14961 #279-15025 #279-15041 #281-15091 #282-15117 #284-15319 #285-15436 #286-15517 #286-15551 
CLEF$ 		#189-10056 
CLEF$C		#48-2090   
CLEF$S		#48-2088   #80-3892   #81-4116   
CMKT$S		#48-2089   
DECL$S		#48-2089   
DHPSW 		#7-305      8-400      8-400      8-400      8-400      8-400      8-400      8-400      8-400     
DIR$  		#48-2088   #66-2715   #66-2726   #81-3922   #81-3922   #81-3936   #81-3936   #81-3998   #81-3998   #81-4067   
                #81-4116   #81-4116   #81-4117   #81-4117   #142-7859  #145-8017  #147-8130  #162-8539  #189-10057 #192-10279 
                #192-10289 #192-10293 #192-10297 #192-10305 #192-10307 #192-10307 #195-10393 #250-13314 #255-13536 #255-13536 
                #269-14250 #269-14250 
DMYG$ 		#250-13314 
DTON$S		#48-2089   #80-3892    81-4117   
EHSG$ 		#189-10057 #190-10223 
ERR$  		#66-2715   #66-2726   #81-3922   #81-3936   #81-3998   #81-4067   #81-4116   #81-4117   #147-8130  #162-8539  
                #192-10279 #192-10289 #192-10293 #192-10297 #192-10305 #192-10307 #195-10393 #255-13536 #269-14250 
F11DF$		#7-259      7-263     #250-13316  250-13320 
IDENT$		#4-144     #6-187     #6-187     #46-1946   #46-1946   #80-3834   #80-3834   #82-4139   #82-4139   #86-4392   
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 37

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

                #86-4392   #102-5168  #102-5168  #104-5310  #104-5310  #106-5413  #106-5413  #108-5520  #108-5520  #117-6005  
                #117-6005  #119-6140  #119-6140  #121-6237  #121-6237  #123-6317  #123-6317  #125-6682  #125-6682  #132-7219  
                #132-7219  #134-7308  #134-7308  #136-7400  #136-7400  #138-7560  #138-7560  #140-7684  #140-7684  #144-7926  
                #144-7926  #175-9079  #175-9079  #188-9928  #188-9928  #249-13239 #249-13239 
MFPI  		#48-2089    77-3692    77-3693   #86-4443   #102-5202   103-5253   103-5268  #104-5343   105-5395  #108-5559  
                #117-6038   118-6100   118-6101   118-6102  #123-6352   124-6492   124-6502   124-6504   124-6536  #125-6720  
                 128-6956   128-6982   131-7142   131-7143  #132-7252  #134-7341  #140-7718   141-7769   141-7770  #250-13315 
                 266-14024  266-14025 
MFPS  		#7-257      43-1745   #48-2089    67-2795    67-2829    67-2963    77-3712   #86-4443    87-4483    87-4491   
                 87-4492    87-4495    97-5020    97-5021    97-5022    98-5062    99-5092    99-5097    100-5137  #102-5202  
                 103-5270   103-5272  #104-5343   105-5403  #106-5446   107-5510  #108-5559   115-5938   115-5941   115-5944  
                 115-5946   115-5954   115-5956  #117-6038  #123-6352   124-6489   124-6523   124-6607  #125-6720   131-7180  
                #132-7252   133-7303  #134-7341   135-7389  #136-7433   137-7505   137-7506   137-7507   137-7508   137-7509  
                #138-7593   139-7672  #140-7718   141-7793  #250-13315  252-13388  279-15036  279-15037  279-15038 
MOV$  		#81-3922   #81-3922   #81-4116   #81-4116   
MRKT$ 		#48-2090   #145-8017  
MRKT$S		#48-2090   
MTPI  		#48-2089   #86-4443   #104-5343   105-5405  #106-5446   107-5512  #108-5559  #117-6038  #123-6352   124-6508  
                 124-6510  #125-6720  #132-7252  #134-7341  #140-7718   141-7806  #250-13315 
MTPS  		#48-2089   #86-4443    97-4991    97-4992    97-4993    97-4998    97-4999    97-5000    97-5001    100-5141  
                #108-5559   113-5804   113-5805   113-5806   113-5807  #117-6038  #123-6352  #125-6720   131-7187   131-7188  
                 131-7192  #132-7252  #134-7341  #138-7593   139-7676  #140-7718   141-7809  #250-13315  279-15027  279-15028 
                 279-15029 
OFF$  		#66-2742    66-2742    66-2742    66-2742    66-2742    66-2742    66-2742   #66-2746    66-2746    66-2746   
                 66-2746    66-2746    66-2746    66-2746   #81-4133    81-4133    81-4133    81-4133    81-4133    81-4133   
                 81-4133    81-4133    81-4133   #146-8096   146-8096   146-8096   146-8096   146-8096   146-8096   146-8096  
                #190-10225  190-10225  190-10225  190-10225  190-10225  190-10225  190-10225 #190-10227  190-10227  190-10227 
                 190-10227  190-10227  190-10227  190-10227 #190-10229  190-10229  190-10229  190-10229  190-10229  190-10229 
                 190-10229 
PSW   		#7-292     #8-319     #8-321     #8-323     #8-325     #8-327     #8-329     #8-331     #8-333     #8-338     
                #8-338     #8-338     #8-338     #8-340     #8-341     #8-345     #8-345     #8-347     #8-351     #8-351     
                #8-353     #8-358     #8-358     #8-358     #8-358     #8-358     #8-358     #8-358     #8-358     #8-358     
                #8-358     #8-358     #8-358     #8-358     #8-358     #8-358     #8-363     #8-368     #8-368     #8-370     
                #8-375     #8-375     #8-375     #8-375     #8-377     #8-379     #8-382     #8-387     #8-388     #8-390     
                #8-391     #8-393     #8-394     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     
                #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     
                #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     #8-406     
                #8-406     #8-406     #8-406     #8-406     #8-406     #8-408     #8-409     #8-411     #8-412     #8-414     
                #8-415     #8-418     #8-419     #8-427     #8-427     #8-427     #8-427     
QDPB$ 		#81-4133    81-4133   
QIOSY$		#48-2090    48-2091   
QIOW$ 		#48-2088   #80-3892   #81-4133   
RETURN		#44-1883   #45-1937   #48-2089   #76-3553   #76-3568   #76-3657   #77-3716   #78-3782   #79-3825   #80-3892   
                #84-4321   #85-4379   #86-4443   #101-5164  #102-5201  #104-5343  #106-5446  #108-5559  #117-6038  #119-6174  
                #121-6271  #123-6352  #125-6720  #132-7252  #134-7341  #136-7433  #142-7859  #145-8017  #169-8803  #170-8882  
                #171-8919  #172-8952  #174-9054  #175-9118  #181-9691  #184-9820  #185-9873  #186-9899  #187-9924  #189-10056 
                #201-10578 #207-10803 #208-10842 #208-10849 #209-10872 #210-10939 #213-11210 #216-11422 #216-11445 #217-11502 
                #218-11524 #220-11742 #223-11842 #224-11949 #225-11993 #227-12051 #228-12087 #229-12181 #229-12241 #230-12381 
                #230-12414 #231-12501 #232-12548 #233-12605 #234-12655 #235-12682 #236-12747 #237-12792 #238-12820 #240-12898 
                #241-12933 #244-13134 #245-13169 #246-13194 #247-13232 #250-13315 #252-13410 #254-13492 #255-13549 #256-13605 
                #257-13708 #259-13782 #260-13810 #261-13837 #262-13876 #263-13905 #264-13945 #266-14044 #267-14128 #268-14227 
                #269-14254 #270-14324 #270-14379 #271-14422 #271-14463 #272-14502 #273-14551 #274-14584 #275-14688 #276-14752 
RSXT1091   CREATED BY  MACRO  ON 10-NOV-81 AT 18:59	PAGE 38

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

                #277-14937 #278-14991 #279-15044 #282-15120 #283-15159 #284-15364 #285-15458 #286-15557 
RQST$ 		#48-2087   #66-2742   #66-2746   #145-8016  #146-8096  #189-10057 #190-10225 #190-10227 #190-10229 
RSXVR$		#7-265     #9-473     #9-473     
R50$  		#66-2742   #66-2742   #66-2742   #66-2746   #66-2746   #66-2746   #146-8096  #146-8096  #146-8096  #190-10225 
                #190-10225 #190-10225 #190-10227 #190-10227 #190-10227 #190-10229 #190-10229 #190-10229 
WSIG$S		#48-2090   #80-3893    81-3936    81-3998   #145-8016  #189-10056  192-10307 #250-13317  255-13536  269-14250 
WTLO$ 		#48-2090   #145-8017  #146-8093  #189-10056 #190-10221 
WTLO$C		#48-2090   
WTSE$ 		#48-2088   #145-8017  
WTSE$S		#48-2088   #80-3892    81-3922   #145-8016  
$DEF  		#7-259      7-262     #48-2088    48-2092   #80-3893    80-3894   #82-4185    82-4186   #86-4443    86-4445   
                #145-8016   145-8019  #175-9118   175-9120  #189-10057  189-10058 #250-13316  250-13319 
.ATLEN		#7-258      37-1351    37-1354    37-1358    37-1365    37-1371    37-1385    37-1392    37-1398    37-1401   
.CRASH		#7-257      43-1757    43-1781    43-1788    43-1791    43-1794    43-1805   #48-2087    71-3176    75-3525   
                #80-3892   #82-4185    84-4286   #86-4443   #142-7859  #145-8017   149-8203  #175-9118   176-9174   176-9180  
                 177-9232   178-9345   178-9374   178-9379   179-9474   179-9511   179-9531   179-9542  #189-10057  245-13171 
                #250-13314  276-14736 
.DQPEN		#7-260      39-1473    39-1477    39-1481    39-1485    39-1489    39-1493    39-1496    39-1499   #48-2089   
                #145-8017  
.ENB  		#48-2087   #86-4443   #250-13318 
.ENBT 		#145-8026   161-8517   164-8592   170-8871  
.ENB0 		#48-2087    79-3822   #80-3893    81-4040    81-4127   #250-13317  257-13707  257-13713  262-13874  286-15517 
                 286-15551 
.ENB5 		#48-2087   #145-8016  #189-10056  193-10327 #250-13315 
.ENB6 		#48-2087    66-2698    66-2714    66-2725   #80-3893    81-3935    81-3964    81-3997    81-4066   #145-8017  
                 147-8128   147-8145  #189-10056  192-10284  195-10434  197-10474  200-10551 #250-13318  261-13835  263-13903 
                 264-13944  267-14125  268-14222  274-14582  275-14681 
.INH  		#48-2087   #86-4443   #250-13318 
.INHT 		#145-8033   161-8519   164-8594   170-8873  
.INH0 		#48-2087   #79-3810   #250-13317 #257-13655 #262-13864 #286-15490 
.INH5 		#48-2087   #145-8016  #189-10056 #193-10315 #250-13315 
.INH6 		#48-2087   #66-2703   #80-3893   #81-3938   #81-3999   #81-4068   #145-8017  #147-8132  #147-8149  #189-10056 
                #192-10280 #195-10431 #197-10457 #200-10548 #250-13318 #261-13831 #263-13898 #264-13938 #267-14079 #268-14177 
                #274-14567 #275-14672 
.PUDEN		#7-258     #7-260     #40-1526   #40-1540   #40-1546   #40-1551   #40-1556   #40-1561   #40-1566   #40-1571   
                #40-1576   #40-1596   #40-1601   #40-1608   #40-1613   #40-1625   
.STDEN		#7-258     #36-1284   #36-1288   #36-1298   #36-1304   #36-1316   #36-1321   #36-1326   #36-1331   #36-1335   
                #36-1338   
.STKM 		#48-2088   #65-2695   #80-3892   #81-3918   #142-7859  #145-8017  #147-8123  #189-10056 #190-10206 
.TPDEN		#7-260     #38-1412   #38-1416   #38-1420   #38-1424   #38-1428   #38-1433   #38-1437   #38-1446   #38-1451   
                #38-1456   #38-1460