Google
 

Trailing-Edge - PDP-10 Archives - bb-m403a-bk - setspd.lst
There are 2 other files named setspd.lst in the archive. Click here to see a list.
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01
TABLE OF CONTENTS

     2-   51	MACRO DEFINITIONS
     3-   71	.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
     4-  235	CONFIG -- REPORT CONFIGURATION INFORMATION
     5-  274	DOSTIN -- START INDIRECT FUNCTION
     6-  321	DOXOFF -- RESET X'D OFF LINE
     7-  361	SNDSPD -- REPORT LINE SPEED TO KL10
     8-  417	LOCAL DATA
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 1


      1						.TITLE	SETSPD -- SET SPEED AND RETURN TIME OF DAY
      2						.IDENT	"V014450"
      3					;
      4					;                             COPYRIGHT (C) 1975, 1979 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					;
     21					;		MODULE: SET SPEED, RETURN TIME OF DAY, AND REPORT COMNFIGURATION
     22					;
     23					;		VERSION: V014-45
     24					;
     25					;		AUTHOR: R. BELANGER
     26					;
     27					;		DATE: 12 SEP 79
     28					;
     29					;	THIS MODULE CONTAINS:
     30					;
     31					;	1 -- THE CODE REQUIRED TO SET THE TIME IN THE KL AND
     32					;	      SET THE SPEED TABLE FOR THE KL AFTER RELOAD
     33					;
     34					;	2 -- CODE REQUIRED TO REPORT AUTO-BAUD LINE SPEEDS TO THE KL
     35					;
     36					;	3 -- CODE TO REPORT THE FRONT-END TERMINAL AND UNIT-RECORD CONFIGURATION
     37					;
     38					; NOTE:
     39					;
     40					;	THIS MODULE WAS ESSENTIALLY REWRITTEN FOR TCO 5.1004
     41					;
     42					; MODIFICATIONS:
     43					;
     44					;	TCO	DATE		PROGRAMMER	PURPOSE
     45					;	---	----		----------	-------
     46					; TCO5.1004	12-SEP-79	R. BELANGER	START OF EDIT HISTORY
     47					; TCO 4.1.1091	12-FEB-80	R. BELANGER	REPORT DM-11/BB CONFIGURATION
     48					; TCO 5.1269	04-MAR-81	S. LEAPLINE	CLEAR "STSW2" ON WARM START
     49					; TCO 5.1448	11-AUG-81	S. LEAPLINE	CLEAR XOFF STATE ON ANY START
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 2
MACRO DEFINITIONS

     51						.SBTTL	MACRO DEFINITIONS
     52					;
     53					;	MACROS
     54					;
     55						.MCALL	CALL,RETURN,WSIG$S,CLEF$S,EXIT$S,ALUN$S
     56						.MCALL	QIOW$,DIR$,RQST$,.ENB6,.INH6,$DEF
     57						.LIST	MEB
     58						.ENABL	AMA
     59
     60	000000					$DEF
     61					;
     62					; LOCAL DEFINITIONS
     63					;
     64
     65		000005 				DL1CNT=5	; MAX NUMBER OF DL-11'S
     66		000010 				DH1CNT=10	; MAX NUMBER OF DH-11'S
     67		000010 				DM1CNT=10	; [4.1.1091] MAX NUMBER OF DM-11/BB'S
     68		000002 				LP2CNT=2	; MAX NUMBER OF LP-20'S
     69		000001 				CR1CNT=1	; MAX NUMBER OF CR-11'S
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 3
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS

     71						.SBTTL	.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
     72
     73					;+
     74					; .STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
     75					;
     76					;	THIS ROUTINE IS LOADED AND CALLED AS A TASK WHEN:
     77					;
     78					;		1. THE KL SENDS THE FRONT-END A REQUEST FOR THE TIME-OF-DAY
     79					;		2. AN AUTO-BAUD LINE HAS CONNECTED
     80					;
     81					;	IF THE KL HAS BEEN RELOADED:
     82					;
     83					;		1. ALL LINE SPEEDS ARE REPORTED.
     84					;		2. THE CURRENT DATE AND TIME ARE EPORTED TO KL
     85					;		3. THE REASON FOR THE RELOAD IS REPORTED TO THE KL.
     86					;		4. THE TERMINAL AND UNIT-RECORD CONFIGURATION IS REPORTED
     87					;		   TO THE KL.
     88					;
     89					;	FURTHER, ALL PENDING OUTPUT FOR ALL LINES IS DEQUEUED AND ALL LINES
     90					;	ARE REMOVED FROM THE XOFF STATE AND SET TO LOCAL XOFF DISABLED.
     91					;
     92					;	IF A REMOTE LINE HAS BEEN AUTO-BAUDED, THE SPEED FOR ONLY THAT LINE
     93					;	IS REPORTED.
     94					;
     95					;	THE DECISION TO REPORT ALL LINE SPEEDS OR ONLY AUTO-BAUD LINE SPEEDS
     96					;	IS DETERMINED BY THE STATE OF ".ABFLG"
     97					;
     98					;	".ABFLG" .LE. 0 -- REPORT ALL LINE SPEEDS
     99					;	".ABFLG" .GT. 0 -- REPORT ONLY AUTO-BAUD LINE SPEEDS
    100					;
    101					;	DH-11 LINES WHICH ARE TO BE AUTO-BAUDED ARE FLAGGED BY HAVING BIT 15
    102					;	(S0.ABR) SET IN "STSW0".
    103					;
    104					;	IF THIS IS A SYSTEM DEAD-START (".DATE3" = 0) ONLY THE TERMINAL AND
    105					;	UNIT-RECORD CONFIGURATION IS REPORTED, AND THE DATE AND TIME REQUESTED.
    106					;
    107					;	REGISTER SUMMARY:
    108					;
    109					;		R0 -- COUNT OF LINES IN THE DLS TABLE
    110					;		R1 -- TEMPORARY
    111					;		R2 -- TEMPORARY
    112					;		R3 -- TEMPORARY
    113					;		R4 -- TEMPORARY
    114					;		R5 -- ADDRESS OF DLS ENTRY FOR THE CURRENT LINE
    115					;-
    116
    117	000000				.STSPD::
    118	000000					ALUN$S	#1,#"TT,#0	; ASSIGN THE CTY JUST IN CASE
	000000	005046 				CLR	-(SP)
	000002	012746 	052124 			MOV	#"TT,-(SP)
	000006	012746 	000001 			MOV	#1,-(SP)
	000012	012746 				MOV	(PC)+,-(SP)
	000014	   007 	   004 			.BYTE	7.,4
	000016	104375 				EMT	375
    119	000020	013705 	000000G			MOV	.DQDLS,R5	; FIND TABLE ADDRESS OF THE FIRST ENTRY
    120	000024	013700 	000000C			MOV	.DQDLS+Q.DZ,R0	; FIND THE NUMBER OF LINES TO DO
    121						;
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 3-1
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS

    122					;
    123					; HERE TO REPORT LINE SPEEDS TO THE KL10
    124					;
    125	000030				10$:
    126	000030	105037 	001055'			CLRB	UNIT		; NO -- CLEAR THE UNIT NUMBER
    127	000034	005037 	000000G			CLR	.ABCNT		; RESET THE AUTO-BAUD COUNTER
    128	000040				20$:
    129	000040	005737 	000000G			TST	.ABFLG		; IS THIS AN AUTO-BAUD REPORT??
    130	000044	003404 				BLE	30$		; NO -- GO ON
    131	000046	005765 	000000G			TST	STSW0(R5)	; YES -- THIS LINE??
    132	000052	100406 				BMI	40$		; YES -- REPORT THE LINE SPEED
    133	000054	000410 				BR	50$		; NO -- TRY FOR THE NEXT LINE
    134						;
    135	000056				30$:
    136	000056					CALL	DOXOFF		; RESET THE XOFF STATUS OF THE LINE
	000056	004737 	000566'			JSR	PC,DOXOFF
    137	000062	005737 	000000G			TST	.DATE3		; [TCO 5.1448] COLD START ??
    138	000066	001403 				BEQ	50$		; [TCO 5.1448] YES, DON'T SEND LINE SPEEDS
    139	000070				40$:
    140	000070					CALL	SNDSPD		; SEND THE LINE SPEED
	000070	004737 	000660'			JSR	PC,SNDSPD
    141	000074	103541 				BCS	80$		; QUIT IF ERROR FLAG SET
    142	000076				50$:
    143	000076	105237 	001055'			INCB	UNIT		; UPDATE UNIT
    144	000102	062705 	000010 			ADD	#10,R5		; POINT TO NEXT TABLE ENTRY
    145	000106	077024 				SOB	R0,20$		; LOOP TILL ALL LINES ARE DONE
    146	000110	005737 	000000G			TST	.DATE3		; [TCO 5.1448] COLD START ??
    147	000114	001444 				BEQ	70$		; [TCO 5.1448] YES, SEND CONFIGURATION AND EXIT
    148	000116	005737 	000000G			TST	.ABFLG		; DONE -- IS THIS AN AUTO-BAUD REQUEST??
    149	000122	003404 				BLE	60$		; NO -- GO ON
    150	000124	005737 	000000G			TST	.ABCNT		; YES -- ARE WE REALLY DONE??
    151	000130	001523 				BEQ	80$		; YES -- EXIT
    152	000132	000722 				BR	.STSPD		; NO -- START ALL OVER
    153						;
    154					;
    155					; HERE TO RETURN TIME OF DAY ON KL RELOAD
    156					;
    157	000134				60$:
    158	000134	012703 	000000G			MOV	#D.CCLK,R3	; SEND THE TIME OF DAY
    159	000140	005002 				CLR	R2		; NO EVENT FLAG
    160	000142	012701 	000000C			MOV	#BIT15!BC.HTD,R1 ; RETURN TIME OF DAY
    161	000146	012700 	000000G			MOV	#.CLKSW,R0	; SEND TIME TO 10
    162	000152	012710 	000014 			MOV	#14,@R0		; PUT IN SIZE
    163	000156					CALL	DOSTIN		; START FUNCTION
	000156	004737 	000500'			JSR	PC,DOSTIN
    164	000162	103506 				BCS	80$		; ERROR IF CC-C IS SET
    165					;
    166					; HERE TO RETURN REASON FOR RELOAD
    167					;
    168	000164	013737 	000000G	001070'		MOV	.KLERW,KLERR
    169	000172	012703 	000000G			MOV	#D.CCPU,R3	; DEVICE CPU ERROR
    170	000176	012701 	000000C			MOV	#BIT15!BC.HDS,R1; HERE IS DEVICE STATUS
    171	000202	012700 	001064'			MOV	#DEVERS,R0	; BUFFER POINTER TO R1
    172	000206					CALL	DOSTIN		; START FUNCTION
	000206	004737 	000500'			JSR	PC,DOSTIN
    173	000212	103472 				BCS	80$		; ERROR IF CC-C IS SET
    174	000214	005037 	000000G			CLR	.KLERW
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 3-2
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS

    175					;
    176					; HERE TO REQUEST TRANSFER OF ERROR SNAPHOT
    177					;
    178	000220					DIR$	#RQKLX		; REQUEST "KLXFR"
	000220	012746 	001234'			MOV	#RQKLX,-(SP)
	000224	104375 				EMT	375
    179					;
    180					; HERE TO REPORT DL-11 CONFIGURATION
    181					;
    182	000226				70$:
    183	000226	012700 	000005 			MOV	#DL1CNT,R0	; MAX NUMBER OF DL-11'S TO R0
    184	000232	013701 	000000G			MOV	.DQDL1,R1	; TABLE POINTER TO R1
    185	000236	012703 	000000G			MOV	#D.CDL1,R3	; DEVICE CODE TO R3
    186	000242	012704 	000010 			MOV	#10,R4		; OFFSET TO NEXT TABLE ENTRY
    187	000246					CALL	CONFIG		; SEND THE CONFIGURATION REPORT
	000246	004737 	000434'			JSR	PC,CONFIG
    188	000252	103452 				BCS	80$		; ERROR IF CC-C IS SET
    189					;
    190					; HERE TO REPORT DH-11 CONFIGURATION
    191					;
    192	000254	012700 	000010 			MOV	#DH1CNT,R0	; MAX NUMBER OF DH-11'S TO R0
    193	000260	013701 	000000G			MOV	.DQDH0,R1	; TABLE POINTER TO R1
    194	000264	012703 	000000G			MOV	#D.CDH1,R3	; DEVICE CODE TO R3
    195	000270	012704 	000200 			MOV	#200,R4		; OFFSET TO NEXT TABLE ENTRY
    196	000274					CALL	CONFIG		; SEND THE CONFIGURATION REPORT
	000274	004737 	000434'			JSR	PC,CONFIG
    197	000300	103437 				BCS	80$		; ERROR IF CC-C IS SET
    198					;
    199					; HERE TO REPORT LP-20 CONFIGURATION
    200					;
    201	000302	012700 	000002 			MOV	#LP2CNT,R0	; MAX NUMBER OF LP-20'S TO R0
    202	000306	013701 	000000G			MOV	.DQLPT,R1	; TABLE POINTER TO R1
    203	000312	012703 	000000G			MOV	#D.CLPT,R3	; DEVICE CODE TO R3
    204	000316	012704 	000010 			MOV	#10,R4		; OFFSET TO NEXT TABLE ENTRY
    205	000322					CALL	CONFIG		; SEND THE CONFIGURATION REPORT
	000322	004737 	000434'			JSR	PC,CONFIG
    206	000326	103424 				BCS	80$		; ERROR IF CC-C IS SET
    207					;
    208					; HERE TO REPORT CD-11 CONFIGURATION
    209					;
    210	000330	012700 	000001 			MOV	#CR1CNT,R0	; MAX NUMBER OF CD-11'S TO R0
    211	000334	013701 	000000G			MOV	.DQCDR,R1	; TABLE POINTER TO R1
    212	000340	012703 	000000G			MOV	#D.CCDR,R3	; DEVICE CODE TO R3
    213	000344	005004 				CLR	R4		; ONLY ONE CDR AT MOST
    214	000346					CALL	CONFIG		; SEND THE CONFIGURATION REPORT
	000346	004737 	000434'			JSR	PC,CONFIG
    215	000352	103412 				BCS	80$		; ERROR IF CC-C IS SET
    216					;
    217					; HERE TO REPORT DM-11/BB CONFIGURATION
    218					;
    219	000354	012700 	000010 			MOV	#DM1CNT,R0	; [4.1.1091] MAX NUMBER OF DM-11/BB'S TO R0
    220	000360	012701 	177776G			MOV	#DMTBL-2,R1	; [4.1.1091] TABLE POINTER TO R1
    221	000364	012703 	000000G			MOV	#D.CDMB,R3	; [4.1.1091] DEVICE CODE TO R3
    222	000370	012704 	000004 			MOV	#4,R4		; [4.1.1091] OFFSET TO THE NEXT TABLE ENTRY
    223	000374					CALL	CONFIG		; [4.1.1091] SEND THE CONFIGURATION REPORT
	000374	004737 	000434'			JSR	PC,CONFIG
    224	000400				80$:
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 3-3
.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS

    225	000400	013704 	000000G			MOV	.DATE3,R4	; VALID DATE ??
    226	000404	001006 				BNE	85$		; BRANCH IF YES
    227	000406	012703 	000000G			MOV	#D.CCLK,R3	; DEVICE CODE TO R3
    228	000412	012701 	000000G			MOV	#BC.HTD,R1	; FUNCTION CODE TO R1
    229	000416					CALL	..STFC		; REQUSET DATE AND TIME
	000416	004737 	000000G			JSR	PC,..STFC
    230	000422				85$:
    231	000422	005037 	000000G			CLR	.ABFLG		; CLEAR THE AUTO-BAUD INTERLOCK
    232	000426					EXIT$S			; EXIT (BYE)
	000426	012746 				MOV	(PC)+,-(SP)
	000430	   063 	   001 			.BYTE	51.,1
	000432	104375 				EMT	375
    233						;
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 4
CONFIG -- REPORT CONFIGURATION INFORMATION

    235						.SBTTL	CONFIG -- REPORT CONFIGURATION INFORMATION
    236
    237					;+
    238					; CONFIG -- REPORT CONFIGURATION INFORMATION
    239					;
    240					; THIS SUBROUTINE WILL REPORT THE PRESENCE OR ABSENCE OF A GIVEN DEVICE
    241					; CONTROLLER (UNIT) IN A SINGLE-WORD BIT MASK.
    242					;
    243					; INPUTS:
    244					;
    245					;	R0 -- BASE OF DEVICE (CONTROLLER) TABLE
    246					;	R1 -- MAX NUMBER OF UNITS FOR THIS CONTROLLER
    247					;	R3 -- DEVICE CODE FOR THIS DEVICE
    248					;	R4 -- TABLE INCREMENT BETWEEN DEVICES
    249					;
    250					; OUTPUTS:
    251					;
    252					;	R1, R2 ALTERED
    253					;	RETURNS CC-C SET IF ERROR IN TRANSFER
    254					;-
    255
    256	000434				CONFIG:
    257	000434	012702 	000001 			MOV	#1,R2		; MARKER BIT TO R2
    258	000440	005046 				CLR	-(SP)		; BIT MASK TO STACK
    259	000442				10$:
    260	000442	005761 	000000G			TST	TTYEXP(R1)	; DOES THE DEVICE EXIST??
    261	000446	001401 				BEQ	20$		; NO -- GO ON
    262	000450	050216 				BIS	R2,(SP)		; NO -- MARK THAT IT DOES
    263	000452				20$:
    264	000452	006302 				ASL	R2		; ADVANCE MARKER BIT
    265	000454	060401 				ADD	R4,R1		; POINT TO NEXT UNIT
    266	000456	077007 				SOB	R0,10$		; LOOP THROUGH ALL UNITS
    267	000460	012700 	001072'			MOV	#LOGBUF,R0	; DONE -- POINT TO THE BUFFER HEAD
    268	000464	012660 	000004 			MOV	(SP)+,4(R0)	; SET THE BIT MASK
    269	000470	012701 	000000C			MOV	#BIT15!BC.HDS,R1 ; SET THE FUNCTION CODE
    270	000474	012702 	000001 			MOV	#1,R2		; EVENT FLAG 1
    271					;	BR	DOSTIN		; FALL INTO "DOSTIN"
    272						;
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 5
DOSTIN -- START INDIRECT FUNCTION

    274						.SBTTL	DOSTIN -- START INDIRECT FUNCTION
    275
    276					;+
    277					; DOSTIN -- START INDIRECT FUNCTION
    278					;
    279					; THIS SUBROUTINE WILL START AND CHECK AN INDIRECT FUNCTION TO THE KL10
    280					;
    281					; INPUTS:
    282					;
    283					;	R0 -- BUFFER ADDRESS
    284					;	R1 -- FUNCTION CODE
    285					;	R2 -- EVENT FLAG (0 ==> DON'T WAIT)
    286					;	R3 -- DEVICE CODE
    287					;
    288					; OUTPUTS:
    289					;
    290					;	R1, R2 ALTERED
    291					;	RETURNS CC-C SET IF THE CALL TO "..STIN" FAILS OR PRIMARY PROTOCOL
    292					;	STOPS RUNNING DURING THE COMPLETION CHECK.
    293					;-
    294
    295	000500				DOSTIN:
    296	000500					CALL	..STIN		; START THE TRANSFER
	000500	004737 	000000G			JSR	PC,..STIN
    297	000504	103423 				BCS	30$		; ERROR IF CC-C IS SET
    298	000506	005702 				TST	R2		; ANY EVENT FLAG SPECIFIED??
    299	000510	001425 				BEQ	40$		; NO -- JUST EXIT
    300	000512	013701 	000000G			MOV	.CRTSK,R1	; YES -- ATL NODE OF CURRENT TASK
    301	000516	062701 	000000G			ADD	#A.EF,R1	; POINT TO EVENT FLAGS
    302	000522				10$:
    303	000522	032737 	000000G	000002G		BIT	#EF.PR1,.COMEF+2 ; PRIMARY STILL RUNNING??
    304	000530	001411 				BEQ	30$		; NO -- COMPLAIN AND EXIT
    305	000532	030211 				BIT	R2,(R1)		; YES -- TRANSFER DONE??
    306	000534	001004 				BNE	20$		; YES -- GO ON
    307	000536					WSIG$S			; NO -- WAIT A BIT
	000536	012746 				MOV	(PC)+,-(SP)
	000540	   061 	   001 			.BYTE	49.,1
	000542	104375 				EMT	375
    308	000544	000766 				BR	10$		; AND TRY AGAIN
    309						;
    310	000546				20$:
    311	000546	040211 				BIC	R2,(R1)		; CLEAN UP
    312	000550	000241 				CLC			; ASSURE SUCCESS
    313	000552	000404 				BR	40$		; AND EXIT
    314						;
    315	000554				30$:
    316	000554					DIR$	#SPMSG		; SAY PRIMARY DIED
	000554	012746 	001100'			MOV	#SPMSG,-(SP)
	000560	104375 				EMT	375
    317	000562	000261 				SEC			; SET ERROR RETURN STATUS
    318	000564				40$:
    319	000564					RETURN			; AND EXIT
	000564	000207 				RTS	PC
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 6
DOXOFF -- RESET X'D OFF LINE

    321						.SBTTL	DOXOFF -- RESET X'D OFF LINE
    322
    323					;+
    324					; DOXOFF -- RESET AN X'D OFF LINE
    325					;
    326					; THIS SUBROUTINE WILL DEQUEUE ALL OUTPUT PENDING FOR AN X'D OFF LINE
    327					; AND RESET THE XOFF AND XOFF ENABLE STATUS BIT FOR THE LINE
    328					;
    329					; INPUTS:
    330					;
    331					;	R5 -- POINTS TO DEVICE TABLE ENTRY FOR THIS LINE
    332					;
    333					; OUTPUTS:
    334					;
    335					;	R2 AND R3 ALTERED
    336					;-
    337
    338	000566				DOXOFF:
    339	000566					.INH6			; DISALLOW INTERUPTS
	000566	013746 	177776 			MOV	@#PS,-(SP)
	000572	112737 	000300 	177776 		MOVB	#300,@#PS
    340	000600	105765 	000000G			TSTB	STSW1(R5)	;;; IS THIS LINE X'D OFF??
    341	000604	100010 				BPL	30$		;;; NO -- JUST EXIT
    342	000606	010046 				MOV	R0,-(SP)	;;; YES -- SAVE R0
    343	000610				10$:
    344	000610	011500 				MOV	(R5),R0		;;; POINT TO THE BUFFER
    345	000612	001404 				BEQ	20$		;;; DONE IF .EQ. 0
    346	000614	011015 				MOV	(R0),(R5)	;;; DELINK BUFFER FROM LIST
    347	000616					CALL	..DECN		;;; AND RELEASE IT
	000616	004737 	000000G			JSR	PC,..DECN
    348	000622	000772 				BR	10$		;;; TRY FOR MORE
    349						;
    350	000624				20$:
    351	000624	012600 				MOV	(SP)+,R0	;;; RESTORE R0
    352	000626				30$:
    353	000626	042765 	000000C	000000G		BIC	#TT.XOF!TT.XEN,STSW1(R5) ;;; RESET STATUS
    354	000634					CALL	.TTSW2		;;; [TCO 5.1269] FIND THE "STSW2" ENTRY
	000634	004737 	000000G			JSR	PC,.TTSW2
    355	000640	005012 				CLR	(R2)		;;; [TCO 5.1269] REMOVE ANY STATUS
    356	000642	016503 	000000G			MOV	STSW0(R5),R3	;;; [TCO 5.1269] COPY LINE SPEED TO R3
    357	000646					CALL	.DHSPD		;;; [TCO 5.1269] RESET THE LINE SPEED
	000646	004737 	000000G			JSR	PC,.DHSPD
    358	000652					.ENB6			;;; ALLOW INTERRUPTS
	000652	012637 	177776 			MOV	(SP)+,@#PS
    359	000656					RETURN			; TO CALLER
	000656	000207 				RTS	PC
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 7
SNDSPD -- REPORT LINE SPEED TO KL10

    361						.SBTTL	SNDSPD -- REPORT LINE SPEED TO KL10
    362
    363					;-
    364					; SNDSPD -- REPORT LINE SPEED TO THE KL10
    365					;
    366					; THIS SUBROUTINE WILL REPORT A SINGLE LINE SPEED AND CHARACTERISTICS TO THE KL10
    367					;
    368					; INPUTS:
    369					;
    370					;	R5 -- POINTS TO THE DEVICE TABLE ENTRY FOR THIS LINE
    371					;
    372					; OUTPUTS:
    373					;
    374					;	R1, R2, R3 ALTERED
    375					;-
    376
    377	000660				SNDSPD:
    378	000660	005037 	001062'			CLR	REMOTE		; ASSUME LOCAL LINE
    379	000664	005037 	001056'			CLR	INPSPD		; RESET INPUT SPEED
    380	000670	005037 	001060'			CLR	OUTSPD		; AND OUTPUT SPEED
    381	000674	032765 	000000G	000000G		BIT	#TT.RMT,STSW1(R5) ; IS IT A REMOTE LINE??
    382	000702	001403 				BEQ	10$		; NO -- GO ON
    383	000704	052737 	100000 	001062'		BIS	#BIT15,REMOTE	; YES -- SAY SO
    384	000712				10$:
    385	000712	032765 	000000G	000000G		BIT	#TT.ABL,STSW1(R5) ; IS IT AN AUTO-BAUD LINE??
    386	000720	001403 				BEQ	20$		; NO -- GO ON
    387	000722	052737 	040000 	001062'		BIS	#BIT14,REMOTE	; YES -- SAY SO
    388	000730				20$:
    389	000730	042765 	000000G	000000G		BIC	#S0.ABR,STSW0(R5) ; RESET AUTO-BAUD REQUEST
    390	000736	022705 	000000G			CMP	#DHTBL,R5	; IS THIS A DL-11??
    391	000742	101027 				BHI	30$		; YES -- GO ON
    392	000744	016502 	000000G			MOV	STSW0(R5),R2	; NO -- GET THE SPEED WORD
    393	000750	042702 	000000G			BIC	#S0.MSK,R2	; MINUS JUNK
    394	000754	010246 				MOV	R2,-(SP)	; SAVE IT
    395	000756	006202 				ASR	R2		; FIND THE INPUT SPEED
    396	000760	006202 				ASR	R2
    397	000762	006202 				ASR	R2
    398	000764	006202 				ASR	R2
    399	000766	006202 				ASR	R2		; SO
    400	000770	042702 	177741 			BIC	#^C36,R2	; GET RID OF JUNK
    401	000774	016237 	001200'	001056'		MOV	SPDTBL(R2),INPSPD ; SET THE INPUT SPEED
    402	001002	012602 				MOV	(SP)+,R2	; GET THE SPEED WORD AGAIN
    403	001004	006202 				ASR	R2		; COMPUTE THE OUTPUT SPEED
    404	001006	000302 				SWAB	R2		; SO
    405	001010	042702 	177741 			BIC	#^C36,R2	; GET RID OF JUNK
    406	001014	016237 	001200'	001060'		MOV	SPDTBL(R2),OUTSPD ; SET THE OUTPUT SPEED
    407	001022				30$:
    408	001022	010046 				MOV	R0,-(SP)	; SAVE R0
    409	001024	012703 	000000G			MOV	#D.CDLS,R3	; DEVICE CODE TO R3
    410	001030	012702 	000001 			MOV	#1,R2		; EVENT FLAG 1
    411	001034	012701 	000000C			MOV	#BIT15!BC.STS,R1 ; FUNCTION CODE TO R1
    412	001040	012700 	001054'			MOV	#SIZE,R0	; BUFFER POINTER TO R0
    413	001044					CALL	DOSTIN		; START THE TRANSFER
	001044	004737 	000500'			JSR	PC,DOSTIN
    414	001050	012600 				MOV	(SP)+,R0	; RESTORE R0
    415	001052					RETURN			; TO CALLER
	001052	000207 				RTS	PC
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 8
LOCAL DATA

    417						.SBTTL	LOCAL DATA
    418
    419					;
    420					; BLOCK TO REPORT LINE SPEEDS
    421					;
    422	001054				SIZE:
    423	001054	   006 				.BYTE	6
    424	001055				UNIT:
    425	001055	   000 				.BYTE	0
    426	001056				INPSPD:
    427	001056	000000 				.WORD	0
    428	001060				OUTSPD:
    429	001060	000000 				.WORD	0
    430	001062				REMOTE:
    431	001062	000000 				.WORD	0
    432					;
    433					; BLOCK TO REPORT RELOAD INFORMATION
    434					;
    435	001064				DEVERS:
    436	001064	   006 	   000 			.BYTE	6,0
    437	001066	000000G				.WORD	DV.LOG
    438	001070				KLERR:
    439	001070	000000 				.WORD	0
    440					;
    441					; BLOCK TO REPORT CONFIGURATION INFORMATION
    442					;
    443	001072				LOGBUF:
    444	001072	000006 				.WORD	6
    445	001074	000000C				.WORD	DV.LOG!DV.CFG
    446	001076	000000 				.WORD	0
    447					;
    448					; ERROR MESSAGES
    449					;
    450	001100				SPMSG:
    451	001100					QIOW$	IO.WLB,1,2,0,0,0,<SPMES,SPSZ,40>
	001100	   003 	   011 			.BYTE	3,$$$ARG
	001102	000000G				.WORD	IO.WLB
	001104	000001 				.WORD	1
	001106	   002 	   000 			.BYTE	2,0
	001110	000000 				.WORD	0
	001112	000000 				.WORD	0
	001114	001122'				.WORD	SPMES
	001116	000056 				.WORD	SPSZ
	001120	000040 				.WORD	40
    452					;
    453	001122				SPMES:
    454	001122	   123 	   105 	   124 		.ASCII	/SETSPD -- *FATAL* PRIMARY PROTOCOL NOT RUNNING/
	001125	   123 	   120 	   104
	001130	   040 	   055 	   055
	001133	   040 	   052 	   106
	001136	   101 	   124 	   101
	001141	   114 	   052 	   040
	001144	   120 	   122 	   111
	001147	   115 	   101 	   122
	001152	   131 	   040 	   120
	001155	   122 	   117 	   124
	001160	   117 	   103 	   117
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 8-1
LOCAL DATA

	001163	   114 	   040 	   116
	001166	   117 	   124 	   040
	001171	   122 	   125 	   116
	001174	   116 	   111 	   116
	001177	   107
    455		000056 			SPSZ=.-SPMES
    456						.EVEN
    457					;
    458					; TABLE OF LINE SPEEDS
    459					;
    460	001200				SPDTBL:
    461	001200	000000 				.WORD	0
    462	001202	000062 				.WORD	50.		; BAUD RATES
    463	001204	000113 				.WORD	75.
    464	001206	000156 				.WORD	110.
    465	001210	000206 				.WORD	134.
    466	001212	000226 				.WORD	150.
    467	001214	000310 				.WORD	200.
    468	001216	000454 				.WORD	300.
    469	001220	001130 				.WORD	600.
    470	001222	002260 				.WORD	1200.
    471	001224	003410 				.WORD	1800.
    472	001226	004540 				.WORD	2400.
    473	001230	011300 				.WORD	4800.
    474	001232	022600 				.WORD	9600.
    475					;
    476					; "KLXFR" REQUEST BLOCK
    477					;
    478	001234				RQKLX:
    479	001234					RQST$	LOGXFR
	001234	   013 	   007 			.BYTE	11.,7
	001236	046537 	113402 			.RAD50	/LOGXFR/
	001242	000000 	000000 			.WORD	0,0
	001246	000000 				.WORD
	001250	   000 	   000 			.BYTE	,
    480
    481		000000'				.END	.STSPD
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 8-2
SYMBOL TABLE

A.EF  = ****** GX	DIKL10= 000010   	IO.WLB= ****** GX	R.QSPR= 000012   	.ABCNT= ****** GX
BC.HDS= ****** GX	DLYCNT= 174400   	KLERR   001070R  	R.QSTN= 000002   	.ABFLG= ****** GX
BC.HTD= ****** GX	DL1CNT= 000005   	KLPWRF= 000010   	SCD   = 000040   	.BRCLK= 005000
BC.STS= ****** GX	DMTBL = ****** GX	LOAD11= 000004   	SIZE    001054R  	.CECLK= 004000
BIT0  = 000001   	DM1CNT= 000010   	LOGBUF  001072R  	SNDSPD  000660R  	.CLKSW= ****** GX
BIT1  = 000002   	DON10C= 040000   	LP2CNT= 000002   	SPDTBL  001200R  	.CLRMR= 006000
BIT10 = 002000   	DON10S= 100000   	MPE11 = 001000   	SPMES   001122R  	.CLRUN= 010000
BIT11 = 004000   	DON11C= 000100   	NULSTP= 000040   	SPMSG   001100R  	.COMEF= ****** GX
BIT12 = 010000   	DON11S= 000200   	NUPE  = 000002   	SPSZ  = 000056   	.CONBT= 012000
BIT13 = 020000   	DOSTIN  000500R  	OUTSPD  001060R  	STAT  = 174434   	.CRTSK= ****** GX
BIT14 = 040000   	DOXOFF  000566R  	PERCLR= 001000   	STATUS= 000022   	.CSHRG= 164000
BIT15 = 100000   	DPS4  = 040000   	PHYS  = 100000   	STSW0 = ****** GX	.DATE3= ****** GX
BIT2  = 000004   	DRESET= 000100   	PIDENT= 000000   	STSW1 = ****** GX	.DHSPD= ****** GX
BIT3  = 000010   	DR.DTE= 000011   	PRI7  = 000340   	SWR   = 177570   	.DQCDR= ****** GX
BIT4  = 000020   	DSEND = 000004   	PROPNT= 000021   	SWSLLT= 100000   	.DQDH0= ****** GX
BIT5  = 000040   	DS04  = 004000   	PRTOFF= 004000   	S0.ABR= ****** GX	.DQDLS= ****** GX
BIT6  = 000100   	DS05  = 002000   	PR0   = 000000   	S0.MSK= ****** GX	.DQDL1= ****** GX
BIT7  = 000200   	DS06  = 001000   	PR1   = 000040   	TENAD1= 174410   	.DQLPT= ****** GX
BIT8  = 000400   	DTECMD= 000451   	PR2   = 000100   	TENAD2= 174412   	.DRLTC= 015000
BIT9  = 001000   	DTEFLG= 000444   	PR3   = 000140   	TOBM  = 000004   	.DSACF= 066000
BPARER= 000020   	DTEF11= 000450   	PR4   = 000200   	TOD   = 000003   	.DSIOJ= 065000
CDD   = 000020   	DTEMTD= 000455   	PR5   = 000240   	TOIP  = 000002   	.EIOJA= 067000
CHNPNT= 000001   	DTEMTI= 000456   	PR6   = 000300   	TOIT  = 000001   	.GFNR = 102000
CNUPE = 000002   	DUPE  = 000020   	PR7   = 000340   	TO10  = 000200   	.INICL= 070000
CONFIG  000434R  	DURE  = 000004   	PS    = 177776   	TO10AD= 174420   	.IRLTC= 014000
CR1CNT= 000001   	DV.CFG= ****** GX	PSWW1 = 000005   	TO10BC= 174414   	.KLERW= ****** GX
CS.EXP= 177670   	DV.LOG= ****** GX	PSWW10= 000014   	TO10BM= 000001   	.LCRDL= 052000
CYCLS = 000002   	DXWRD1= 002000   	PSWW11= 000015   	TO10DB= 000400   	.LCRDR= 051000
DATE  = 000004   	D.CCDR= ****** GX	PSWW12= 000016   	TO10DN= 100000   	.LCRM1= 057000
DCOMST= 000001   	D.CCLK= ****** GX	PSWW13= 000017   	TO10DT= 174424   	.LCRM2= 056000
DEP   = 010000   	D.CCPU= ****** GX	PSWW2 = 000006   	TO10ER= 020000   	.LCRM3= 055000
DEVERS  001064R  	D.CDH1= ****** GX	PSWW3 = 000007   	TO11  = 000100   	.LCRM4= 054000
DEX   = 000400   	D.CDLS= ****** GX	PSWW4 = 000010   	TO11AD= 174422   	.LCRM5= 053000
DEXDON= 000004   	D.CDL1= ****** GX	PSWW5 = 000011   	TO11BC= 174416   	.LDAR = 077000
DEXWD1= 174406   	D.CDMB= ****** GX	PSWW6 = 000012   	TO11BM= 020000   	.LDBRL= 043000
DEXWD2= 174404   	D.CLPT= ****** GX	PSWW7 = 000013   	TO11DB= 004000   	.LDBRR= 042000
DEXWD3= 174402   	D1011 = 000040   	PULSE = 000020   	TO11DN= 000200   	.LDCK1= 046000
DFUNC = 000200   	EBSEL = 000100   	QSIZE = 000023   	TO11DT= 174426   	.LDCK2= 047000
DF.DMG= 000004   	EBUSPC= 000020   	Q.DZ  = ****** GX	TO11ER= 000002   	.LDDIS= 045000
DF.DMN= 000007   	EBUSPS= 000004   	Q.IOAE= 000012   	TTYEXP= ****** GX	.LDRJD= 064000
DF.DOR= 000001   	EDONES= 040000   	Q.IOEF= 000006   	TT.ABL= ****** GX	.LDRJV= 063000
DF.EHG= 000010   	EF.PR1= ****** GX	Q.IOFN= 000002   	TT.RMT= ****** GX	.LDRM1= 060000
DF.EHM= 000011   	EPTR  = 000000   	Q.IOLU= 000004   	TT.XEN= ****** GX	.LDRM2= 061000
DF.EMG= 000005   	ERR10C= 010000   	Q.IOPL= 000014   	TT.XOF= ****** GX	.LDRM3= 062000
DF.EMN= 000006   	ERR10S= 020000   	Q.IOPR= 000007   	UNASG1= 000032   	.LDSEL= 044000
DF.KLR= 000012   	ERR11C= 000001   	Q.IOSB= 000010   	UNASG2= 000033   	.MEMRS= 076000
DF.KLW= 000013   	ERR11S= 000002   	RAMIS0= 010000   	UNASG3= 000034   	.PCAB1= 150000
DF.KLX= 000014   	FORPRO= 000020   	REMOTE  001062R  	UNASG4= 000035   	.PCAB2= 151000
DF.OFF= 000002   	HIBYTE= 177400   	RFMAD0= 100000   	UNASG5= 000036   	.PCAB3= 152000
DF.ON = 000003   	IFLOP = 100000   	RFMAD1= 040000   	UNASG6= 000037   	.PCAB4= 153000
DF.PDP= 000016   	INPSPD  001056R  	RFMAD2= 020000   	UNIT    001055R  	.RCRM1= 147000
DF.PEX= 000015   	INTROF= 000010   	RFMAD3= 010000   	WEP   = 000010   	.RCRM2= 146000
DHTBL = ****** GX	INTRON= 000040   	RM    = 000010   	ZSTOP = 040000   	.RCRM3= 145000
DH1CNT= 000010   	INTSON= 000001   	RQKLX   001234R  	$$    = 000037   	.RCRM4= 144000
DIAG1 = 174430   	INT10S= 000400   	R.QSGC= 000015   	$$$ARG= 000011   	.RCSPF= 141000
DIAG2 = 174432   	INT11C= 002000   	R.QSPC= 000014   	$$$OST= 000016   	.RDJ14= 134000
DIAG3 = 174436   	INT11S= 004000   	R.QSPN= 000006   	$$$T1 = 000000   	.RDJ71= 135000
SETSPD -- SET SPEED AND RETURN 	MACRO M1113  14-OCT-81 12:01  PAGE 8-3
SYMBOL TABLE

.RDMAB= 133000   	.SETRN= 011000   	.STRCL= 001000   	.WRMBX= 071000   	..STFC= ****** GX
.SECLK= 003000   	.SSCLK= 002000   	.STSPD  000000RG 	..DECN= ****** GX	..STIN= ****** GX
.SETMR= 007000   	.STPCL= 000000   	.TTSW2= ****** GX

. ABS.	000000	   000
      	001252	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  5144 WORDS  ( 21 PAGES)
DYNAMIC MEMORY:  6734 WORDS  ( 25 PAGES)
ELAPSED TIME:  00:00:16
[47,10]SETSPD,[47,20]SETSPD/-SP/CR=[47,30]SETSPD
SETSPD     CREATED BY  MACRO  ON 14-OCT-81 AT 12:01	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

A.EF  	= ******  GX	 5-301     
BC.HDS	= ******  GX	 3-170      4-269     
BC.HTD	= ******  GX	 3-160      3-228     
BC.STS	= ******  GX	 7-411     
BIT0  	= 000001	#2-60      
BIT1  	= 000002	#2-60      
BIT10 	= 002000	#2-60      
BIT11 	= 004000	#2-60      
BIT12 	= 010000	#2-60      
BIT13 	= 020000	#2-60      
BIT14 	= 040000	#2-60       7-387     
BIT15 	= 100000	#2-60       3-160      3-170      4-269      7-383      7-411     
BIT2  	= 000004	#2-60      
BIT3  	= 000010	#2-60      
BIT4  	= 000020	#2-60      
BIT5  	= 000040	#2-60      
BIT6  	= 000100	#2-60      
BIT7  	= 000200	#2-60      
BIT8  	= 000400	#2-60      
BIT9  	= 001000	#2-60      
BPARER	= 000020	#2-60      
CDD   	= 000020	#2-60      
CHNPNT	= 000001	#2-60      
CNUPE 	= 000002	#2-60      
CONFIG	  000434 R	 3-187      3-187      3-196      3-196      3-205      3-205      3-214      3-214      3-223     
                         3-223     #4-256     
CR1CNT	= 000001	#2-69       3-210     
CS.EXP	= 177670	#2-60      
CYCLS 	= 000002	#2-60      
DATE  	= 000004	#2-60      
DCOMST	= 000001	#2-60      
DEP   	= 010000	#2-60      
DEVERS	  001064 R	 3-171     #8-435     
DEX   	= 000400	#2-60      
DEXDON	= 000004	#2-60      
DEXWD1	= 174406	#2-60      
DEXWD2	= 174404	#2-60      
DEXWD3	= 174402	#2-60      
DFUNC 	= 000200	#2-60      
DF.DMG	= 000004	#2-60      
DF.DMN	= 000007	#2-60      
DF.DOR	= 000001	#2-60      
DF.EHG	= 000010	#2-60      
DF.EHM	= 000011	#2-60      
DF.EMG	= 000005	#2-60      
DF.EMN	= 000006	#2-60      
DF.KLR	= 000012	#2-60      
DF.KLW	= 000013	#2-60      
DF.KLX	= 000014	#2-60      
DF.OFF	= 000002	#2-60      
DF.ON 	= 000003	#2-60      
DF.PDP	= 000016	#2-60      
SETSPD     CREATED BY  MACRO  ON 14-OCT-81 AT 12:01	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DF.PEX	= 000015	#2-60      
DHTBL 	= ******  GX	 7-390     
DH1CNT	= 000010	#2-66       3-192     
DIAG1 	= 174430	#2-60      
DIAG2 	= 174432	#2-60      
DIAG3 	= 174436	#2-60      
DIKL10	= 000010	#2-60      
DLYCNT	= 174400	#2-60      
DL1CNT	= 000005	#2-65       3-183     
DMTBL 	= ******  GX	 3-220     
DM1CNT	= 000010	#2-67       3-219     
DON10C	= 040000	#2-60      
DON10S	= 100000	#2-60      
DON11C	= 000100	#2-60      
DON11S	= 000200	#2-60      
DOSTIN	  000500 R	 3-163      3-163      3-172      3-172     #5-295      7-413      7-413     
DOXOFF	  000566 R	 3-136      3-136     #6-338     
DPS4  	= 040000	#2-60      
DRESET	= 000100	#2-60      
DR.DTE	= 000011	#2-60      
DSEND 	= 000004	#2-60      
DS04  	= 004000	#2-60      
DS05  	= 002000	#2-60      
DS06  	= 001000	#2-60      
DTECMD	= 000451	#2-60      
DTEFLG	= 000444	#2-60      
DTEF11	= 000450	#2-60      
DTEMTD	= 000455	#2-60      
DTEMTI	= 000456	#2-60      
DUPE  	= 000020	#2-60      
DURE  	= 000004	#2-60      
DV.CFG	= ******  GX	 8-445     
DV.LOG	= ******  GX	 8-437      8-445     
DXWRD1	= 002000	#2-60      
D.CCDR	= ******  GX	 3-212     
D.CCLK	= ******  GX	 3-158      3-227     
D.CCPU	= ******  GX	 3-169     
D.CDH1	= ******  GX	 3-194     
D.CDLS	= ******  GX	 7-409     
D.CDL1	= ******  GX	 3-185     
D.CDMB	= ******  GX	 3-221     
D.CLPT	= ******  GX	 3-203     
D1011 	= 000040	#2-60      
EBSEL 	= 000100	#2-60      
EBUSPC	= 000020	#2-60      
EBUSPS	= 000004	#2-60      
EDONES	= 040000	#2-60      
EF.PR1	= ******  GX	 5-303     
EPTR  	= 000000	#2-60      
ERR10C	= 010000	#2-60      
ERR10S	= 020000	#2-60      
ERR11C	= 000001	#2-60      
SETSPD     CREATED BY  MACRO  ON 14-OCT-81 AT 12:01	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ERR11S	= 000002	#2-60      
FORPRO	= 000020	#2-60      
HIBYTE	= 177400	#2-60      
IFLOP 	= 100000	#2-60      
INPSPD	  001056 R	*7-379     *7-401     #8-426     
INTROF	= 000010	#2-60      
INTRON	= 000040	#2-60      
INTSON	= 000001	#2-60      
INT10S	= 000400	#2-60      
INT11C	= 002000	#2-60      
INT11S	= 004000	#2-60      
IO.WLB	= ******  GX	 8-451     
KLERR 	  001070 R	*3-168     #8-438     
KLPWRF	= 000010	#2-60      
LOAD11	= 000004	#2-60      
LOGBUF	  001072 R	 4-267     #8-443     
LP2CNT	= 000002	#2-68       3-201     
MPE11 	= 001000	#2-60      
NULSTP	= 000040	#2-60      
NUPE  	= 000002	#2-60      
OUTSPD	  001060 R	*7-380     *7-406     #8-428     
PERCLR	= 001000	#2-60      
PHYS  	= 100000	#2-60      
PIDENT	= 000000	#2-60      
PRI7  	= 000340	#2-60      
PROPNT	= 000021	#2-60      
PRTOFF	= 004000	#2-60      
PR0   	= 000000	#2-60      
PR1   	= 000040	#2-60      
PR2   	= 000100	#2-60      
PR3   	= 000140	#2-60      
PR4   	= 000200	#2-60      
PR5   	= 000240	#2-60      
PR6   	= 000300	#2-60      
PR7   	= 000340	#2-60      
PS    	= 177776	#2-60       6-339     *6-339     *6-358     
PSWW1 	= 000005	#2-60      
PSWW10	= 000014	#2-60      
PSWW11	= 000015	#2-60      
PSWW12	= 000016	#2-60      
PSWW13	= 000017	#2-60      
PSWW2 	= 000006	#2-60      
PSWW3 	= 000007	#2-60      
PSWW4 	= 000010	#2-60      
PSWW5 	= 000011	#2-60      
PSWW6 	= 000012	#2-60      
PSWW7 	= 000013	#2-60      
PULSE 	= 000020	#2-60      
QSIZE 	= 000023	#2-60      
Q.DZ  	= ******  GX	 3-120     
Q.IOAE	= 000012	#8-451     
Q.IOEF	= 000006	#8-451     
SETSPD     CREATED BY  MACRO  ON 14-OCT-81 AT 12:01	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

Q.IOFN	= 000002	#8-451     
Q.IOLU	= 000004	#8-451     
Q.IOPL	= 000014	#8-451     
Q.IOPR	= 000007	#8-451     
Q.IOSB	= 000010	#8-451     
RAMIS0	= 010000	#2-60      
REMOTE	  001062 R	*7-378     *7-383     *7-387     #8-430     
RFMAD0	= 100000	#2-60      
RFMAD1	= 040000	#2-60      
RFMAD2	= 020000	#2-60      
RFMAD3	= 010000	#2-60      
RM    	= 000010	#2-60      
RQKLX 	  001234 R	 3-178     #8-478     
R.QSGC	= 000015	#8-479     
R.QSPC	= 000014	#8-479     
R.QSPN	= 000006	#8-479     
R.QSPR	= 000012	#8-479     
R.QSTN	= 000002	#8-479     
SCD   	= 000040	#2-60      
SIZE  	  001054 R	 7-412     #8-422     
SNDSPD	  000660 R	 3-140      3-140     #7-377     
SPDTBL	  001200 R	 7-401      7-406     #8-460     
SPMES 	  001122 R	 8-451     #8-453      8-455     
SPMSG 	  001100 R	 5-316     #8-450     
SPSZ  	= 000056	 8-451     #8-455     
STAT  	= 174434	#2-60      
STATUS	= 000022	#2-60      
STSW0 	= ******  GX	 3-131      6-356     *7-389      7-392     
STSW1 	= ******  GX	 6-340     *6-353      7-381      7-385     
SWR   	= 177570	#2-60      
SWSLLT	= 100000	#2-60      
S0.ABR	= ******  GX	 7-389     
S0.MSK	= ******  GX	 7-393     
TENAD1	= 174410	#2-60      
TENAD2	= 174412	#2-60      
TOBM  	= 000004	#2-60      
TOD   	= 000003	#2-60      
TOIP  	= 000002	#2-60      
TOIT  	= 000001	#2-60      
TO10  	= 000200	#2-60      
TO10AD	= 174420	#2-60      
TO10BC	= 174414	#2-60      
TO10BM	= 000001	#2-60      
TO10DB	= 000400	#2-60      
TO10DN	= 100000	#2-60      
TO10DT	= 174424	#2-60      
TO10ER	= 020000	#2-60      
TO11  	= 000100	#2-60      
TO11AD	= 174422	#2-60      
TO11BC	= 174416	#2-60      
TO11BM	= 020000	#2-60      
TO11DB	= 004000	#2-60      
SETSPD     CREATED BY  MACRO  ON 14-OCT-81 AT 12:01	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TO11DN	= 000200	#2-60      
TO11DT	= 174426	#2-60      
TO11ER	= 000002	#2-60      
TTYEXP	= ******  GX	 4-260     
TT.ABL	= ******  GX	 7-385     
TT.RMT	= ******  GX	 7-381     
TT.XEN	= ******  GX	 6-353     
TT.XOF	= ******  GX	 6-353     
UNASG1	= 000032	#2-60      
UNASG2	= 000033	#2-60      
UNASG3	= 000034	#2-60      
UNASG4	= 000035	#2-60      
UNASG5	= 000036	#2-60      
UNASG6	= 000037	#2-60      
UNIT  	  001055 R	*3-126     *3-143     #8-424     
WEP   	= 000010	#2-60      
ZSTOP 	= 040000	#2-60      
$$    	= 000037	#3-136      3-136     #3-140      3-140     #3-163      3-163     #3-172      3-172     #3-187     
                         3-187     #3-196      3-196     #3-205      3-205     #3-214      3-214     #3-223      3-223     
                        #3-229      3-229     #5-296      5-296     #6-347      6-347     #6-354      6-354     #6-357     
                         6-357     #7-413      7-413     
$$$ARG	= 000011	#3-118      3-118     #3-118      3-118     #3-118      3-118     #3-118      3-118      3-118     
                         3-118      3-118      3-118      3-118      3-118      3-118      3-118      3-118     #8-451     
                         8-451     #8-451      8-451     #8-451      8-451     #8-451      8-451     
$$$GLB	= ******	 8-451      8-451      8-451      8-451      8-451      8-451      8-451      8-451      8-479     
                         8-479      8-479      8-479      8-479      8-479     
$$$OST	= 000016	#8-451      8-451      8-451     #8-451      8-451      8-451     #8-451      8-451      8-451     
                        #8-451      8-451      8-451     #8-451      8-451      8-451     #8-451      8-451      8-451     
                        #8-451      8-451     #8-479      8-479      8-479     #8-479      8-479      8-479     #8-479     
                         8-479      8-479     #8-479      8-479      8-479     #8-479      8-479      8-479     #8-479     
$$$T1 	= 000000	#8-479      8-479      8-479      8-479     #8-479      8-479     
.ABCNT	= ******  GX	*3-127      3-150     
.ABFLG	= ******  GX	 3-129      3-148     *3-231     
.BRCLK	= 005000	#2-60      
.CECLK	= 004000	#2-60      
.CLKSW	= ******  GX	 3-161     
.CLRMR	= 006000	#2-60      
.CLRUN	= 010000	#2-60      
.COMEF	= ******  GX	 5-303     
.CONBT	= 012000	#2-60      
.CRTSK	= ******  GX	 5-300     
.CSHRG	= 164000	#2-60      
.DATE3	= ******  GX	 3-137      3-146      3-225     
.DHSPD	= ******  GX	 6-357      6-357     
.DQCDR	= ******  GX	 3-211     
.DQDH0	= ******  GX	 3-193     
.DQDLS	= ******  GX	 3-119      3-120     
.DQDL1	= ******  GX	 3-184     
.DQLPT	= ******  GX	 3-202     
.DRLTC	= 015000	#2-60      
.DSACF	= 066000	#2-60      
.DSIOJ	= 065000	#2-60      
SETSPD     CREATED BY  MACRO  ON 14-OCT-81 AT 12:01	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

.EIOJA	= 067000	#2-60      
.GFNR 	= 102000	#2-60      
.INICL	= 070000	#2-60      
.IRLTC	= 014000	#2-60      
.KLERW	= ******  GX	 3-168     *3-174     
.LCRDL	= 052000	#2-60      
.LCRDR	= 051000	#2-60      
.LCRM1	= 057000	#2-60      
.LCRM2	= 056000	#2-60      
.LCRM3	= 055000	#2-60      
.LCRM4	= 054000	#2-60      
.LCRM5	= 053000	#2-60      
.LDAR 	= 077000	#2-60      
.LDBRL	= 043000	#2-60      
.LDBRR	= 042000	#2-60      
.LDCK1	= 046000	#2-60      
.LDCK2	= 047000	#2-60      
.LDDIS	= 045000	#2-60      
.LDRJD	= 064000	#2-60      
.LDRJV	= 063000	#2-60      
.LDRM1	= 060000	#2-60      
.LDRM2	= 061000	#2-60      
.LDRM3	= 062000	#2-60      
.LDSEL	= 044000	#2-60      
.MEMRS	= 076000	#2-60      
.PCAB1	= 150000	#2-60      
.PCAB2	= 151000	#2-60      
.PCAB3	= 152000	#2-60      
.PCAB4	= 153000	#2-60      
.RCRM1	= 147000	#2-60      
.RCRM2	= 146000	#2-60      
.RCRM3	= 145000	#2-60      
.RCRM4	= 144000	#2-60      
.RCSPF	= 141000	#2-60      
.RDJ14	= 134000	#2-60      
.RDJ71	= 135000	#2-60      
.RDMAB	= 133000	#2-60      
.SECLK	= 003000	#2-60      
.SETMR	= 007000	#2-60      
.SETRN	= 011000	#2-60      
.SSCLK	= 002000	#2-60      
.STPCL	= 000000	#2-60      
.STRCL	= 001000	#2-60      
.STSPD	  000000 RG	#3-117      3-152      8-481     
.TTSW2	= ******  GX	 6-354      6-354     
.WRMBX	= 071000	#2-60      
..DECN	= ******  GX	 6-347      6-347     
..STFC	= ******  GX	 3-229      3-229     
..STIN	= ******  GX	 5-296      5-296     
SETSPD     CREATED BY  MACRO  ON 14-OCT-81 AT 12:01	PAGE 7

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

ALUN$S		#2-55       3-118     
CALL  		#2-55      #3-136     #3-140     #3-163     #3-172     #3-187     #3-196     #3-205     #3-214     #3-223     
                #3-229     #5-296     #6-347     #6-354     #6-357     #7-413     
CLEF$S		#2-55      
DIR$  		#2-56      #3-118     #3-118     #3-178     #3-232     #3-232     #5-307     #5-307     #5-316     
ERR$  		#3-118     #3-178     #3-232     #5-307     #5-316     
EXIT$S		#2-55       3-232     
MOV$  		#3-118     #3-118      3-118      3-118      3-118     
NBL$  		#3-118     #3-118     
OFF$  		#8-451      8-451      8-451      8-451      8-451      8-451      8-451      8-451      8-451     #8-479     
                 8-479      8-479      8-479      8-479      8-479      8-479     
QDPB$ 		#8-451      8-451     
QIOW$ 		#2-56      #8-451     
RETURN		#2-55       5-319      6-359      7-415     
RQST$ 		#2-56       8-479     
RVP$  		#3-118     #3-118     
R50$  		#8-479      8-479      8-479     
WSIG$S		#2-55       5-307     
$DEF  		#2-56      #2-60      
.ENB6 		#2-56      #6-358     
.INH6 		#2-56      #6-339