Google
 

Trailing-Edge - PDP-10 Archives - BB-H311B-RM - rsx20f-swskit/listings/tktn.l91
There are 3 other files named tktn.l91 in the archive. Click here to see a list.
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32
TABLE OF CONTENTS

     6-    2	TITLE PAGE
     6-   69	TASK CODE
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1110  15-OCT-79 11:32  PAGE 2


      1						.TITLE	RSX20F	-- RESIDENT EXECUTIVE (SYSTEM DEFINITION)
      2						.IDENT	/013410/
      3						.ENABL	AMA
      4						.LIST	MEB
      5						.NLIST	CND
      6					;
      7					;                             COPYRIGHT (C) 1975, 1978 BY
      8					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
      9					;
     10					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
     11					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
     12					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
     13					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
     14					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
     15					;
     16					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
     17					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
     18					;       CORPORATION.
     19					;
     20					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
     21					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
     22					;
     23					; R.  MCLEAN   19-MAR-75
     24					;
     25					;  VERSION 13-41
     26					;
     27					; MODIFIED BY:
     28					;
     29					; FUNCTION: THIS MODULE PROVIDES THE PARAMETERS FOR ASSEMBLY OF THE RSX20F EXEC.
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1110  15-OCT-79 11:32  PAGE 3


     31					;
     32					; SET VERSION OF RSX20F EXEC HERE
     33					;
     34		000013 			RSX$$V	=	13		; VERSION 13
     35		000041 			RSX$$E	=	41		; EDIT 41
     36					;
     37					; RELEASE VERSION
     38					;
     39		000126 			RSX$$K	=	'V		; KEY FOR RELEASE-TYPE
     40									; "V" -- RELEASE
     41									; "X" -- EXPERIMENTAL
     42									; "Y" -- FIELD/LOAD TEST
     43		000000 			RSX$$F	=	0		; DEFINE FORM AS NULL
     48		000105 			RSX$$F	=	'E		; TOPS-10 / 1091
     57					;
     58					; DTE-20 REGISTER OFFSETS
     59					;
     60		000036 			DAG3	=36
     61		000034 			STATD	=34
     62		000032 			DAG2	=32
     63		000030 			DAG1	=30
     64		000022 			T11AD	=22
     65		000020 			T10AD	=20
     66		000016 			T11BC	=16
     67		000010 			TNAD1	=10
     68		000012 			TNAD2	=12
     69		000006 			DXWD1	=6
     70		000004 			DXWD2	=4
     71		000002 			DXWD3	=2
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1110  15-OCT-79 11:32  PAGE 4


     73					;+
     74					; MACRO TO SET IDENT FOR EXEC MODULES.
     75					; FORMAT OF CALL IS:
     76					;	IDENT$	VERSION,EDIT
     77					; OR
     78					;	IDENT$	VERSION,EDIT,RSX$$F
     79					; IF MODULE CODING CHANGES WITH DIFFERENT FORMS
     80					;-
     81
     82						.MACRO	IDENT$ VER,EDT,FRM,NUM
     83						.IF	B,NUM
     84						.IF	B,FRM
     85						IDENT$	\VER,\EDT,0,0
     86						.IFF
     87						.IF	EQ,<FRM-'A>
     88						IDENT$	\VER,\EDT,A,0
     89						.IFF
     90						.IF	EQ,<FRM-'B>
     91						IDENT$	\VER,\EDT,B,0
     92						.IFF
     93						IDENT$	\VER,\EDT,E,0
     94						.ENDC
     95						.ENDC
     96						.ENDC
     97						.MEXIT
     98						.IFF
     99						.IF	GE,VER-10
    100						.IF	GE,EDT-10
    101						.LIST
    102						.IDENT	/'FRM'VER'EDT'0/
    103						.NLIST
    104						.IFF
    105						.LIST
    106						.IDENT	/'FRM'VER'0'EDT'0/
    107						.NLIST
    108						.ENDC
    109						.IFF
    110						.IF	GE,EDT-10
    111						.LIST
    112						.IDENT	/'FRM'0'VER'EDT'0/
    113						.NLIST
    114						.IFF
    115						.LIST
    116						.IDENT	/'FRM'0'VER'0'EDT'0/
    117						.NLIST
    118						.ENDC
    119						.ENDC
    120						.ENDC
    121						.ENDM	IDENT$
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5


      1						.TITLE	TASK TERMINATION NOTIFICATION
      2						.SBTTL	TITLE PAGE
      3	000000					IDENT$	5,10,RSX$$F
						.IDENT	/E05100/
      4					;
      5					;
      6					;
      7					;
      8					;
      9					;
     10					;                             COPYRIGHT (C) 1973, 1978 BY
     11					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
     12					;
     13					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
     14					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
     15					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
     16					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
     17					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
     18					;
     19					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
     20					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
     21					;       CORPORATION.
     22					;
     23					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
     24					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
     25					;
     26					;
     27					;
     28					;
     29					;
     30					;		MODULE: TASK TERMINATION NOTIFICATION TASK
     31					;
     32					;		AUTHOR: H. KREJCI
     33					;
     34					;		DATE: 12 OCT 73
     35					;
     36					;		RSX20F:	R. MCLEAN
     37					;
     38					;	THIS MODULE CONTAINS:
     39					;
     40					;	1 -- A TASK TO OUTPUT TASK TERMINATION NOTIFICATION.
     41					;
     42					; MODIFICATIONS:
     43					;
     44					;	NO.	DATE		PROGRAMMER	PURPOSE
     45					;	---	----		----------	-------
     46					;	001	7-JUN-74	M. R. GARRY
     47					;	002	1-JUL-75	ELLEN SIMICH
     48					;	003	21-OCT-76	A. PECKHAM	REDIRECT KL CRASHES TO TOPS-10
     49					;						407 RESTART FOR DUMP AND REBOOT.
     50					;	004	04-NOV-76	R. BELANGER	MAKE "KLI" RELOAD THE KL
     51					;						ON CLOCK ERROR STOP
     52					;	005	16-NOV-76	A. PECKHAM	REQUEST KL20 BOOT TO DUMP
     53					;						ON HARDWARE ERRORS
     54					;	006	16-NOV-76	A. PECKHAM	CHANGE TO LET KLERR CALL
     55					;						KLINIT WHEN FINISHED.
     56					;	007	2-FEB-77	A. PECKHAM	CLEAR .KLIWD WHEN NO RELOAD.
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-1
TITLE PAGE

     57					;	008	10-FEB-77	A. PECKHAM	FIX BUG IN #007.
     58					;	009	18-FEB-77	A. PECKHAM	FIX BUG IN #008.
     59					;	010	07-OCT-77	R. BELANGER	ADD CODE TO RENDER COMM REGION
     60					;						INVALID FOR "BOOT"
     61					;	011	11-NOV-77	R. BELANGER	ELIMINATE DUMP ON DEX FAILURE
     62					;	012	27-MAY-78	R. BELANGER	ADD SUPPORT FOR PROTOCOL TIMEOUT
     63					;						TREATED AS "KEEP-ALIVE CEASED"
     64					;	013	10-JUL-78	R. BELANGER	REMOVE DUMP REQUEST FROM TOPS-20
     65					;						CLOCK ERROR STOP PROCESSING
     66					;   TCO 4.2018	05-DEC-78	R. BELANGER	INHIBIT DM-11/BBS ON KL10 RELOAD
     67					;   TCO 4.2107 	07-DEC-78	K. LEFEBVRE	INVOKE KLINIT ONLY ON
     68					;						FIRST KEEP ALIVE CEASE
     69						.SBTTL	TASK CODE
     70						.MCALL	CALL,RETURN,.INH0,.ENB0,EXIT$S,DECL$S,RQST$S,.INH6,.ENB6,WSIG$S
     71						.MCALL	.INH,.ENB
     72
     73		010000 			DEP=010000	;DEPOSIT
     74		174402 			DEXWD1=174402	;DEPOSIT EXAMINE WORD 1
     75		174410 			TENAD1=174410
     76		174412 			TENAD2=174412
     77		001000 			TO10DB=1000	;TO 10 DOORBELL
     78		174434 			STAT=174434
     79		177776 			PSEXP=177776
     80
     81		000001 			LUN=1
     82		000020 			FORPRO=20	;ADDRESS OF REGION
     83		000022 			STATUS=22
     84					;
     85					; SCAN ATL FOR TASK(S) WITH A STATUS OF "SUSPENDED FOR TERMINATION NOTIFICATION"
     86					;
     87	000000				START::
     88	000000				ATLSCN:	.INH0			;PUSH PRE-INHIBIT PS ONTO STACK (FOR ..ENB0)
	000000	013746 	000000G			MOV	@#PS,-(SP)
	000004	112737 	000140 	000000G		MOVB	#140,@#PS
     89									;;INHIBIT TASK SWITCHING (RAISE PRI=3)
     90	000012	012700 	000000G			MOV	#.ATLLH,R0	;;USE R0 TO SCAN THE ATL
     91	000016	011000 			10$:	MOV	@R0,R0		;;ADVANCE R0 TO POINT TO NEXT ATL NODE
     92	000020	020027 	000000G			CMP	R0,#.ATLLH	;;END OF ATL?
     93	000024	001015 				BNE	20$		;;
     94	000026					.ENB0
	000026	004737 	000000G			JSR	PC,..ENB0
     95	000032	005737 	000000G			TST	.KLITK		;CHECK TO SEE IF TEN ERROR STOP
     96	000036	001405 				BEQ	77$
     97	000040	053737 	000000G	000000G		BIS	.KLITK,.KLERW	;RECORD THE ERROR FOR SETSPD REPORT
     98	000046	000137 	001634'			JMP	TENERS		;YES -- BETTER OUTPUT MESSAGE AND DO SOMETHING ABOUT IT
     99	000052				77$:	EXIT$S
	000052	012746 				MOV	(PC)+,-(SP)
	000054	   063 	   001 			.BYTE	51.,1
	000056	104375 				EMT	375
    100
    101	000060	126027 	000000G	000000G	20$:	CMPB  A.TS(R0),#TS.TKN	;;IS TASK SUPSENDED FOR TERMINTION NOTICE?
    102	000066	001353 				BNE	10$		;;NO -- CHECK NEXT ATL NODE
    103	000070					.ENB0			;;YES -- ENABLE TASK SWITCHING, AND OUTPUT NOTIC
	000070	004737 	000000G			JSR	PC,..ENB0
    104					;
    105					; TERMINATION INFORMATION IS CODED INTO 'A.FM+0' AS FOLLOWS:
    106					;
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-2
TASK CODE

    107					;	IF BIT-8 IS SET, THE LOW ORDER BYTE CONTAINS A TERMINATION MESSAGE CODE
    108					;	IF BIT-9 IS SET, AN I/O RUNDOWN MESSAGE IS TO BE OUTPUT
    109					;
    110	000074	012701 	000006 			MOV	#6.,R1		;CONVERT TASK NAME FROM RADIX-50 TO ASCII
    111	000100	016002 	000000G			MOV	A.TD(R0),R2	;AND STORE IN OUTPUT TEXT STRING.
    112	000104	062702 	000000G			ADD	#S.TN,R2
    113	000110	012703 	000621'			MOV	#TMPL1A,R3
    114	000114					CALL	..RDTA
	000114	004737 	000000G			JSR	PC,..RDTA
    115	000120	012703 	000612'			MOV	#TMPL1,R3	;TYPE TASK NAME LINE
    116	000124					CALL	TYPMES
	000124	004737 	000660'			JSR	PC,TYPMES
    117					;
    118					; OUTPUT TERMINATION NOTICE PER LOW ORDER 'A.FM+0' IF BIT-8 IS SET
    119					;
    120	000130	116001 	000000G			MOVB	A.FM+0(R0),R1	;SET R1 TO TERMINATION MESSAGE CODE (INDEX).
    121	000134	020127 	000024 			CMP	R1,#ENDMT
    122	000140	101003 				BHI	30$
    123	000142	032701 	000001 			BIT	#1,R1
    124	000146	001402 				BEQ	40$
    125	000150	012701 	000026 		30$:	MOV	#26,R1
    126	000154	016103 	000766'		40$:	MOV	BEGMT+0(R1),R3	;TYPE MESSAGE PER R1
    127	000160					CALL	TYPMES
	000160	004737 	000660'			JSR	PC,TYPMES
    128	000164	020127 	000000G			CMP	R1,#TN.LRF	;NO REG OUTPUT IF LOAD REQ FAILURE
    129	000170	001541 				BEQ	80$
    130	000172	016005 	000000G			MOV	A.SP(R0),R5	;FIND USER'S STACK
    131	000176	062705 	000014 			ADD	#14,R5
    132	000202	112737 	000120 	000646'		MOVB	#'P,TMPL2A	;OUTPUT PC
    133	000210	112737 	000103 	000647'		MOVB	#'C,TMPL2A+1
    134	000216	012503 				MOV	(R5)+,R3
    135	000220					CALL	TYPREG
	000220	004737 	000532'			JSR	PC,TYPREG
    136	000224	112737 	000123 	000647'		MOVB	#'S,TMPL2A+1	;OUTPUT PS
    137	000232	012503 				MOV	(R5)+,R3	;(POP PS)
    138	000234					CALL	TYPREG
	000234	004737 	000532'			JSR	PC,TYPREG
    139	000240	016005 	000000G			MOV	A.SP(R0),R5
    140	000244	112737 	000122 	000646'		MOVB	#'R,TMPL2A	;OUTPUT R0
    141	000252	112737 	000060 	000647'		MOVB	#'0,TMPL2A+1
    142	000260	012503 				MOV	(R5)+,R3
    143	000262					CALL	TYPREG
	000262	004737 	000532'			JSR	PC,TYPREG
    144	000266	112737 	000061 	000647'		MOVB	#'1,TMPL2A+1	;OUTPUT R1
    145	000274	012503 				MOV	(R5)+,R3
    146	000276					CALL	TYPREG
	000276	004737 	000532'			JSR	PC,TYPREG
    147	000302	112737 	000062 	000647'		MOVB	#'2,TMPL2A+1	;OUTPUT R2
    148	000310	012503 				MOV	(R5)+,R3
    149	000312					CALL	TYPREG
	000312	004737 	000532'			JSR	PC,TYPREG
    150	000316	112737 	000063 	000647'		MOVB	#'3,TMPL2A+1	;OUTPUT R3
    151	000324	012503 				MOV	(R5)+,R3
    152	000326					CALL	TYPREG
	000326	004737 	000532'			JSR	PC,TYPREG
    153	000332	112737 	000064 	000647'		MOVB	#'4,TMPL2A+1	;OUTPUT R4
    154	000340	012503 				MOV	(R5)+,R3
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-3
TASK CODE

    155	000342					CALL	TYPREG
	000342	004737 	000532'			JSR	PC,TYPREG
    156	000346	112737 	000065 	000647'		MOVB	#'5,TMPL2A+1	;OUTPUT R5
    157	000354	012503 				MOV	(R5)+,R3
    158	000356					CALL	TYPREG
	000356	004737 	000532'			JSR	PC,TYPREG
    159	000362	112737 	000123 	000646'		MOVB	#'S,TMPL2A	;OUTPUT SP
    160	000370	112737 	000120 	000647'		MOVB	#'P,TMPL2A+1
    161	000376	016003 	000000G			MOV	A.SP(R0),R3
    162	000402					CALL	TYPREG
	000402	004737 	000532'			JSR	PC,TYPREG
    163					;
    164					; TASK EXIT'ED WITH PENDING I/O (NO FAULT TERMINATION)
    165					;
    166	000406	016003 	000000G		70$:	MOV	A.TD(R0),R3	;FIND THE STD ADDRESS
    167	000412	032763 	000000G	000000G		BIT	#SF.ST,S.FW(R3)	;SYSTEM TASK ABORT?
    168	000420	001425 				BEQ	80$		;NO -- THEN JUST CONTINUE
    169	000422	052737 	000004 	000000G		BIS	#4,STSTT	;PUT LOAD 11 IN SAVED STATUS SO IT WON'T BE FORGOTTEN
    170	000430					.INH6
	000430	013746 	000000G			MOV	@#PS,-(SP)
	000434	112737 	000300 	000000G		MOVB	#300,@#PS
    171	000442	012737 	000004 	174402 		MOV	#4,@#DEXWD1	;;SET LOAD 11 BIT
    172	000450	012737 	010000 	174410 		MOV	#DEP,@#TENAD1
    173	000456	012737 	000022 	174412 		MOV	#22,@#TENAD2
    174	000464	012737 	001000 	174434 		MOV	#TO10DB,@#STAT
    175	000472	000777 				BR	.
    176					;
    177					; CHANGE STATUS TO 'TS.EXT'
    178					;
    179	000474	112760 	000000G	000000G	80$:	MOVB	#TS.EXT,A.TS(R0);SET STATUS TO 'TS.EXT'
    180	000502	012746 	000746'			MOV	#DPBDET,-(SP)	;DETACH LUN
    181	000506	104375 				EMT	375
    182	000510	103403 				BCS	90$
    183	000512	012746 	000762'			MOV	#DPBWFE,-(SP)
    184	000516	104375 				EMT	375
    185	000520				90$:	DECL$S
	000520	012746 				MOV	(PC)+,-(SP)
	000522	   043 	   001 			.BYTE	35.,1
	000524	104375 				EMT	375
    186					;
    187					; TERMINATED TASK MAY NOW EXIT (IF AND WHEN ALL PENDING I/O IS RUNDOWN)
    188					;
    189	000526	000137 	000000'			JMP	ATLSCN		;CHECK FOR ANOTHER TERMIANTION NOTICE REQUIRED
    190					;
    191					; TYPREG -- SUBROUTINE TO OUTPUT REGISTER CONTENTS IN R3
    192					;
    193					;	R1, R2, R3, & R4 ARE ALTERED
    194					;
    195	000532	012704 	000651'		TYPREG:	MOV	#TMPL2B,R4
    196	000536	012701 	000006 			MOV	#6.,R1
    197	000542	005002 				CLR	R2
    198	000544	006103 				ROL	R3
    199	000546	006102 				ROL	R2
    200	000550	000407 				BR	20$
    201					;
    202	000552	005002 			10$:	CLR	R2
    203	000554	006103 				ROL	R3
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-4
TASK CODE

    204	000556	006102 				ROL	R2
    205	000560	006103 				ROL	R3
    206	000562	006102 				ROL	R2
    207	000564	006103 				ROL	R3
    208	000566	006102 				ROL	R2
    209	000570	062702 	000060 		20$:	ADD	#60,R2
    210	000574	110224 				MOVB	R2,(R4)+
    211	000576	077113 				SOB	R1,10$
    212	000600	012703 	000643'			MOV	#TMPL2,R3
    213	000604					CALL	TYPMES
	000604	004737 	000660'			JSR	PC,TYPMES
    214	000610					RETURN
	000610	000207 				RTS	PC
    215
    216	000612	   030 			TMPL1:	.BYTE	TMPL2-.-1
    217	000613	   124 	   101 	   123 		.ASCII	'TASK "'
	000616	   113 	   040 	   042
    218	000621	   130 	   130 	   130 	TMPL1A:	.ASCII	'XXXXXX" TERMINATED'
	000624	   130 	   130 	   130
	000627	   042 	   040 	   124
	000632	   105 	   122 	   115
	000635	   111 	   116 	   101
	000640	   124 	   105 	   104
    219	000643	   013 			TMPL2:	.BYTE	TMPL3-.-1
    220	000644	   040 	   040 			.ASCII	"  "
    221	000646	   122 	   122 	   075 	TMPL2A:	.ASCII	"RR="
    222	000651	   130 	   130 	   130 	TMPL2B:	.ASCII	"XXXXXX"
	000654	   130 	   130 	   130
    223	000657				TMPL3:	.EVEN
    224					;
    225					; TYPMES -- SUBROUTINE TO TYPE MESSAGE PER R3 & R4
    226					;
    227					;	R3 -- ADDRESS OF FIRST BYTE OF MESSAGE
    228					;
    229	000660	112337 	000742'		TYPMES:	MOVB	(R3)+,DPBWR1+16
    230	000664	010337 	000740'			MOV	R3,DPBWR1+14
    231	000670	012746 	000724'			MOV	#DPBWR1,-(SP)
    232	000674	104375 				EMT	375
    233	000676	103403 				BCS	10$
    234	000700	012746 	000762'			MOV	#DPBWFE,-(SP)
    235	000704	104375 				EMT	375
    236	000706				10$:	RETURN
	000706	000207 				RTS	PC
    237					;
    238					; DIRECTIVE PARAMETER BLOCKS
    239					;
    240					;
    241	000710	   001 	   006 		DPBATT:	.BYTE	1.,6.		;ATTACH LUN
    242	000712	001400 				.WORD	1400
    243	000714	000001 				.WORD	LUN
    244	000716	   000 	   000 			.BYTE	0,0
    245	000720	000000 	000000 			.WORD	0,0
    246					;
    247	000724	   001 	   011 		DPBWR1:	.BYTE	1.,9.		;WRITE TO LUN
    248	000726	000400 				.WORD	0400
    249	000730	000001 				.WORD	LUN
    250	000732	   040 	   000 			.BYTE	32.,0
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-5
TASK CODE

    251	000734	000000 	000000 			.WORD	0,0
    252	000740	000000 				.WORD	0
    253	000742	000000 				.WORD	0
    254	000744	000040 				.WORD	40
    255					;
    256	000746	   001 	   006 		DPBDET:	.BYTE	1.,6.		;DETACH FROM LUN
    257	000750	002000 				.WORD	2000
    258	000752	000001 				.WORD	LUN
    259	000754	   040 	   000 			.BYTE	32.,0
    260	000756	000000 	000000 			.WORD	0,0
    261					;
    262	000762	   051 	   002 		DPBWFE:	.BYTE	41.,2.		;WAITFOR EFN 32.
    263	000764	000040 				.WORD	32.
    264					;
    265					; MESSAGE TABLES & TEXT
    266					;
    267	000766	001034'			BEGMT:	.WORD	MESS00		;TERMINATION MESSAGE TABLE
    268	000770	001073'				.WORD	MESS02
    269	000772	001125'				.WORD	MESS04
    270	000774	001163'				.WORD	MESS06
    271	000776	001203'				.WORD	MESS10
    272	001000	001234'				.WORD	MESS12
    273	001002	001264'				.WORD	MESS14
    274	001004	001305'				.WORD	MESS16
    275	001006	001332'				.WORD	MESS20
    276	001010	001356'				.WORD	MESS22
    277	001012	001363'				.WORD	MESS24
    278	001014	001370'				.WORD	MESS26
    279	001016	001375'				.WORD	MESS30
    280	001020	001423'				.WORD	MESS32
    281	001022	001451'				.WORD	MESS34
    282	001024	001510'				.WORD	MESS36
    283	001026	001534'				.WORD	MESS40
    284	001030	001570'				.WORD	MESS42
    285	001032	001633'				.WORD	MESS44
    286		000024 			ENDMT=24
    287
    288	001034	   036 			MESS00:	.BYTE	MESS02-.-1
    289	001035	   117 	   104 	   104 		.ASCII	'ODD ADDRESS OR OTHER TRAP FOUR'
	001040	   040 	   101 	   104
	001043	   104 	   122 	   105
	001046	   123 	   123 	   040
	001051	   117 	   122 	   040
	001054	   117 	   124 	   110
	001057	   105 	   122 	   040
	001062	   124 	   122 	   101
	001065	   120 	   040 	   106
	001070	   117 	   125 	   122
    290	001073	   031 			MESS02:	.BYTE	MESS04-.-1
    291	001074	   042 	   122 	   105 		.ASCII	'"RESERVED INST" EXECUTION'
	001077	   123 	   105 	   122
	001102	   126 	   105 	   104
	001105	   040 	   111 	   116
	001110	   123 	   124 	   042
	001113	   040 	   105 	   130
	001116	   105 	   103 	   125
	001121	   124 	   111 	   117
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-6
TASK CODE

	001124	   116
    292	001125	   035 			MESS04:	.BYTE	MESS06-.-1
    293	001126	   124 	   055 	   102 		.ASCII	'T-BIT TRAP OR "BPT" EXECUTION'
	001131	   111 	   124 	   040
	001134	   124 	   122 	   101
	001137	   120 	   040 	   117
	001142	   122 	   040 	   042
	001145	   102 	   120 	   124
	001150	   042 	   040 	   105
	001153	   130 	   105 	   103
	001156	   125 	   124 	   111
	001161	   117 	   116
    294	001163	   017 			MESS06:	.BYTE	MESS10-.-1
    295	001164	   042 	   111 	   117 		.ASCII	'"IOT" EXECUTION'
	001167	   124 	   042 	   040
	001172	   105 	   130 	   105
	001175	   103 	   125 	   124
	001200	   111 	   117 	   116
    296	001203	   030 			MESS10:	.BYTE	MESS12-.-1
    297	001204	   115 	   105 	   115 		.ASCII	'MEMORY PROTECT VIOLATION'
	001207	   117 	   122 	   131
	001212	   040 	   120 	   122
	001215	   117 	   124 	   105
	001220	   103 	   124 	   040
	001223	   126 	   111 	   117
	001226	   114 	   101 	   124
	001231	   111 	   117 	   116
    298	001234	   027 			MESS12:	.BYTE	MESS14-.-1
    299	001235	   042 	   116 	   117 		.ASCII	'"NON-RSX EMT" EXECUTION'
	001240	   116 	   055 	   122
	001243	   123 	   130 	   040
	001246	   105 	   115 	   124
	001251	   042 	   040 	   105
	001254	   130 	   105 	   103
	001257	   125 	   124 	   111
	001262	   117 	   116
    300	001264	   020 			MESS14:	.BYTE	MESS16-.-1
    301	001265	   042 	   124 	   122 		.ASCII	'"TRAP" EXECUTION'
	001270	   101 	   120 	   042
	001273	   040 	   105 	   130
	001276	   105 	   103 	   125
	001301	   124 	   111 	   117
	001304	   116
    302	001305	   024 			MESS16:	.BYTE	MESS20-.-1
    303	001306	   061 	   061 	   057 		.ASCII	'11/40 F.P. EXCEPTION'
	001311	   064 	   060 	   040
	001314	   106 	   056 	   120
	001317	   056 	   040 	   105
	001322	   130 	   103 	   105
	001325	   120 	   124 	   111
	001330	   117 	   116
    304	001332	   023 			MESS20:	.BYTE	MESS22-.-1
    305	001333	   115 	   105 	   115 		.ASCII	'MEMORY PARITY ERROR'
	001336	   117 	   122 	   131
	001341	   040 	   120 	   101
	001344	   122 	   111 	   124
	001347	   131 	   040 	   105
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-7
TASK CODE

	001352	   122 	   122 	   117
	001355	   122
    306	001356	   004 			MESS22:	.BYTE	MESS24-.-1
    307	001357	   106 	   060 	   061 		.ASCII	"F014"
	001362	   064
    308	001363	   004 			MESS24:	.BYTE	MESS26-.-1
    309	001364	   106 	   060 	   061 		.ASCII	"F013"
	001367	   063
    310	001370	   004 			MESS26:	.BYTE	MESS30-.-1
    311	001371	   106 	   060 	   061 		.ASCII	"F012"
	001374	   062
    312	001375	   025 			MESS30:	.BYTE	MESS32-.-1
    313	001376	   123 	   123 	   124 		.ASCII	'SST ABORT (BAD STACK)'
	001401	   040 	   101 	   102
	001404	   117 	   122 	   124
	001407	   040 	   050 	   102
	001412	   101 	   104 	   040
	001415	   123 	   124 	   101
	001420	   103 	   113 	   051
    314	001423	   025 			MESS32:	.BYTE	MESS34-.-1
    315	001424	   101 	   123 	   124 		.ASCII	'AST ABORT (BAD STACK)'
	001427	   040 	   101 	   102
	001432	   117 	   122 	   124
	001435	   040 	   050 	   102
	001440	   101 	   104 	   040
	001443	   123 	   124 	   101
	001446	   103 	   113 	   051
    316	001451	   036 			MESS34:	.BYTE	MESS36-.-1
    317	001452	   101 	   102 	   117 		.ASCII	'ABORTED VIA DIRECTIVE (OR MCR)'
	001455	   122 	   124 	   105
	001460	   104 	   040 	   126
	001463	   111 	   101 	   040
	001466	   104 	   111 	   122
	001471	   105 	   103 	   124
	001474	   111 	   126 	   105
	001477	   040 	   050 	   117
	001502	   122 	   040 	   115
	001505	   103 	   122 	   051
    318	001510	   023 			MESS36:	.BYTE	MESS40-.-1
    319	001511	   124 	   111 	   115 		.ASCII	'TIME LIMIT EXCEEDED'
	001514	   105 	   040 	   114
	001517	   111 	   115 	   111
	001522	   124 	   040 	   105
	001525	   130 	   103 	   105
	001530	   105 	   104 	   105
	001533	   104
    320	001534	   033 			MESS40:	.BYTE	MESS42-.-1
    321	001535	   114 	   117 	   101 		.ASCII	'LOAD FAILURE (DSK READ ERR)'
	001540	   104 	   040 	   106
	001543	   101 	   111 	   114
	001546	   125 	   122 	   105
	001551	   040 	   050 	   104
	001554	   123 	   113 	   040
	001557	   122 	   105 	   101
	001562	   104 	   040 	   105
	001565	   122 	   122 	   051
    322	001570	   042 			MESS42:	.BYTE	MESS44-.-1
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-8
TASK CODE

    323	001571	   103 	   110 	   105 		.ASCII	'CHECKPOINT FAILURE (DSK WRITE ERR)'
	001574	   103 	   113 	   120
	001577	   117 	   111 	   116
	001602	   124 	   040 	   106
	001605	   101 	   111 	   114
	001610	   125 	   122 	   105
	001613	   040 	   050 	   104
	001616	   123 	   113 	   040
	001621	   127 	   122 	   111
	001624	   124 	   105 	   040
	001627	   105 	   122 	   122
	001632	   051
    324	001633				MESS44:	.EVEN
    325					;
    326	001634				TENERS::
    327	001634	013746 	000000G			MOV	.KLITK,-(SP)	; SAVE ERROR CONDITIONS
    328	001640	005037 	000000G			CLR	.KLITK		; AVOID RECURSION
    329	001644	032716 	000000G			BIT	#KS.TSP,@SP	; TEN STOPPED
    330	001650	001406 				BEQ	10$
    331					;
    332					; KL HALTED
    333					;
    334	001652	012703 	002347'			MOV	#TENSM,R3
    335	001656					CALL	TYPMES
	001656	004737 	000660'			JSR	PC,TYPMES
    337	001662	012700 	000000G			MOV	#KL.SSC,R0
    341	001666				10$:
    342	001666	032716 	000000G			BIT	#KS.CES,@SP	; CLOCK ERROR STOP
    343	001672	001406 				BEQ	20$
    344					;
    345					; CLOCK ERROR STOP
    346					;
    347	001674	012703 	002365'			MOV	#TENCES,R3
    348	001700					CALL	TYPMES
	001700	004737 	000660'			JSR	PC,TYPMES
    350	001704	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    354	001710				20$:
    355	001710	032716 	000000G			BIT	#KS.EPE,@SP	; E-BUS PARITY ERROR??
    356	001714	001406 				BEQ	30$
    357					;
    358					; E-BUS PARITY ERROR
    359					;
    360	001716	012703 	002320'			MOV	#TENEPE,R3
    361	001722					CALL	TYPMES
	001722	004737 	000660'			JSR	PC,TYPMES
    363	001726	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    367	001732				30$:
    368	001732	032716 	000000G			BIT	#KS.DEX,@SP	; DEPOSIT/EXAMINE FAILURE?
    369	001736	001406 				BEQ	40$		; NO -- TRY NEXT
    370					;
    371					; DEPOSIT/EXAMINE FAILURE
    372					;
    373	001740	012703 	002412'			MOV	#DEXMSG,R3	; YES -- PRINT DEPOSIT/EX FAILURE
    374	001744					CALL	TYPMES
	001744	004737 	000660'			JSR	PC,TYPMES
    376	001750	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    380	001754				40$:
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-9
TASK CODE

    381	001754	032716 	000000G			BIT	#KS.CST,@SP	; KEEP ALIVE STOPPED?
    382	001760	001410 				BEQ	50$		; NOPE
    383					;
    384					; KEEP ALIVE CEASED
    385					;
    386	001762	012700 	000000G			MOV	#KL.KAC,R0	; [TCO 4.2107] YES -- ASSUME FIRST FAILURE
    387	001766	105737 	000001G			TSTB	.KPAC+1		; [TCO 4.2107] FIRST KEEP ALIVE CEASE??
    388	001772	002003 				BGE	50$		; [TCO 4.2107]  YES -- GO ON
    389						;
    390	001774				45$:				; [TCO 4.2107]
    391	001774	012703 	002446'			MOV	#KEPST,R3	; COMPLAIN
    392	002000	000405 				BR	60$		; PRINT MESSAGE AND SETUP ".KLIWD" FLAGS
    393						;
    394	002002				50$:
    395	002002	032716 	000000G			BIT	#KS.PTO,@SP	; PROTOCOL TIMEOUT??
    396	002006	001406 				BEQ	70$		; NO -- GO ON
    397					;
    398					; PROTOCOL TIMEOUT
    399					;
    400	002010	012703 	002474'			MOV	#PRTIMO,R3	; MESSAGE POINER TO R3
    401	002014				60$:
    402	002014					CALL	TYPMES		; PRINT ERROR MESSAGE
	002014	004737 	000660'			JSR	PC,TYPMES
    404	002020	012700 	000000G			MOV	#KL.SSC,R0
    408	002024				70$:
    409	002024	032716 	000000G			BIT	#KS.TRR,@SP	; TEN REQUEST'S RELOAD?
    410	002030	001406 				BEQ	80$		;  NO -- TRY NEXT
    411					;
    412					; RELOAD KL10
    413					;
    414	002032	012703 	002521'			MOV	#TRRB,R3	; SET TEN REQUESTED REBOOT
    415	002036					CALL	TYPMES
	002036	004737 	000660'			JSR	PC,TYPMES
    416	002042	012700 	000000C			MOV	#KL.LVB!KL.VBN!KL.VBD,R0
    417	002046				80$:
    418	002046	032716 	000000G			BIT	#KS.PFT,@SP	; POWER FAIL RESTART?
    419	002052	001406 				BEQ	90$		; NO -- JUST EXIT
    420					;
    421					; POWER-FAIL RESTART
    422					;
    423	002054	012703 	002547'			MOV	#KEPFT,R3	; POWER FAIL ERROR
    424	002060					CALL	TYPMES		; TYPE MESSAGE
	002060	004737 	000660'			JSR	PC,TYPMES
    425	002064	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SPF,R0
    426	002070				90$:
    427	002070	005237 	000000G			INC	.INHDM		; [TCO 4.2108] INHIBIT DM-11/BB'S
    428	002074	010046 				MOV	R0,-(SP)	; SAVE .KLIWD SETTINGS.
    429	002076				100$:
    430	002076	032716 	000000G			BIT	#KL.KAC,(SP)	; [TCO 4.2107] KEEP-ALIVE RETRY??
    431	002102	001013 				BNE	110$		; [TCO 4.2107] YES -- LEAVE TO-10 QUEUE ALONE
    432	002104	012704 	000000G			MOV	#TO10Q,R4	; RETURN NODES FROM Q AFTER CRASH/RELOAD
    433	002110					CALL	..PICK
	002110	004737 	000000G			JSR	PC,..PICK
    434	002114	103406 				BCS	110$		; QUIT IF NONE FOUND
    435	002116	016401 	000004 			MOV	4(R4),R1	; FIND THE SIZE OF THE NODE
    436	002122	010400 				MOV	R4,R0		; POINT TO  THE NODE
    437	002124					CALL	..DECB		; RETURN IT
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-10
TASK CODE

	002124	004737 	000000G			JSR	PC,..DECB
    438	002130	000762 				BR	100$		; AND TRY FOR MORE
    439						;
    440	002132				110$:
    441	002132	012600 				MOV	(SP)+,R0	; RESTORE .KLIWD SETTINGS.
    442	002134	032700 	000000G			BIT	#KL.LRM,R0	; RELOAD RAMS??
    443	002140	001403 				BEQ	120$		; NO -- GO ON
    444	002142	052737 	000000G	000002G		BIS	#EF.CRI,.COMEF+2 ; YES -- COMM REGION IS DEAD
    445	002150				120$:
    446	002150	022700 	000000G			CMP	#KL.KAC,R0	; [TCO 4.2107] FIRST KEEP ALIVE ERROR?
    447	002154	001427 				BEQ	130$		; [TCO 4.2107] YES -- REQUEST KLI ONLY
    448	002156	005737 	000000G			TST	.KLRLD		; IF NO RELOAD, THEN
    449	002162	001047 				BNE	140$		; BYPASS KLE & KLI REQUESTS
    450	002164	032716 	000000C			BIT	#KS.TSP!KS.CES!KS.DEX!KS.EPE!KS.CST!KS.PTO,(SP) ; IF NECESSARY
    451	002170	001421 				BEQ	130$		; THEN
    452	002172					RQST$S	#...KLE		; SCHEDULE KLERR
	002172	005046 				CLR	-(SP)
	002174	005046 				CLR	-(SP)
	002176	005046 				CLR	-(SP)
	002200	005046 				CLR	-(SP)
	002202	012746 	002314'			MOV	#...KLE,-(SP)
	002206	017646 	000000 			MOV	@(SP),-(SP)
	002212	062766 	000002 	000002 		ADD	#2,2(SP)
	002220	017666 	000002 	000002 		MOV	@2(SP),2(SP)
	002226	012746 				MOV	(PC)+,-(SP)
	002230	   013 	   007 			.BYTE	11.,7
	002232	104375 				EMT	375
    453	002234				130$:
    454	002234	010037 	000000G			MOV	R0,.KLIWD	; OR SET KLI FLAGS
    455	002240					RQST$S	#...KLI		; AND SCHEDULE KLINIT.
	002240	005046 				CLR	-(SP)
	002242	005046 				CLR	-(SP)
	002244	005046 				CLR	-(SP)
	002246	005046 				CLR	-(SP)
	002250	012746 	002310'			MOV	#...KLI,-(SP)
	002254	017646 	000000 			MOV	@(SP),-(SP)
	002260	062766 	000002 	000002 		ADD	#2,2(SP)
	002266	017666 	000002 	000002 		MOV	@2(SP),2(SP)
	002274	012746 				MOV	(PC)+,-(SP)
	002276	   013 	   007 			.BYTE	11.,7
	002300	104375 				EMT	375
    456	002302				140$:
    457	002302					EXIT$S
	002302	012746 				MOV	(PC)+,-(SP)
	002304	   063 	   001 			.BYTE	51.,1
	002306	104375 				EMT	375
    458
    459	002310				...KLI:
    460	002310	131574 	043251 			.RAD50	/...KLI/
    461	002314				...KLE:
    462	002314	131574 	043245 			.RAD50	/...KLE/
    463					;
    464					; KL ERROR MESSAGES
    465					;
    466	002320	   026 			TENEPE:	.BYTE	TENSM-.-1
    467	002321	   012 	   015 	   105 		.ASCII	<12><15>/E-BUS PARITY ERROR/<15><12>
	002324	   055 	   102 	   125
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-11
TASK CODE

	002327	   123 	   040 	   120
	002332	   101 	   122 	   111
	002335	   124 	   131 	   040
	002340	   105 	   122 	   122
	002343	   117 	   122 	   015
	002346	   012
    468	002347	   015 			TENSM:	.BYTE	TENCES-.-1
    469	002350	   012 	   015 	   113 		.ASCII	<12><15>/KL HALTED/<12><15>
	002353	   114 	   040 	   110
	002356	   101 	   114 	   124
	002361	   105 	   104 	   012
	002364	   015
    470	002365	   024 			TENCES:	.BYTE	DEXMSG-.-1
    471	002366	   015 	   012 	   103 		.ASCII	<15><12>/CLOCK ERROR STOP/<12><15>
	002371	   114 	   117 	   103
	002374	   113 	   040 	   105
	002377	   122 	   122 	   117
	002402	   122 	   040 	   123
	002405	   124 	   117 	   120
	002410	   012 	   015
    472	002412	   033 			DEXMSG:	.BYTE	KEPST-.-1
    473	002413	   015 	   012 	   104 		.ASCII	<15><12>/DEPOSIT EXAMINE FAILURE/<12><15>
	002416	   105 	   120 	   117
	002421	   123 	   111 	   124
	002424	   040 	   105 	   130
	002427	   101 	   115 	   111
	002432	   116 	   105 	   040
	002435	   106 	   101 	   111
	002440	   114 	   125 	   122
	002443	   105 	   012 	   015
    474	002446	   025 			KEPST:	.BYTE	PRTIMO-.-1
    475	002447	   015 	   012 	   113 		.ASCII	<15><12>/KEEP ALIVE CEASED/<15><12>
	002452	   105 	   105 	   120
	002455	   040 	   101 	   114
	002460	   111 	   126 	   105
	002463	   040 	   103 	   105
	002466	   101 	   123 	   105
	002471	   104 	   015 	   012
    476	002474	   024 			PRTIMO:	.BYTE	TRRB-.-1
    477	002475	   015 	   012 	   120 		.ASCII	<15><12>/PROTOCOL TIMEOUT/<15><12>
	002500	   122 	   117 	   124
	002503	   117 	   103 	   117
	002506	   114 	   040 	   124
	002511	   111 	   115 	   105
	002514	   117 	   125 	   124
	002517	   015 	   012
    478	002521	   025 			TRRB:	.BYTE	KEPFT-.-1
    479	002522	   015 	   012 	   122 		.ASCII	<15><12>/RE-BOOT REQUESTED/<15><12>
	002525	   105 	   055 	   102
	002530	   117 	   117 	   124
	002533	   040 	   122 	   105
	002536	   121 	   125 	   105
	002541	   123 	   124 	   105
	002544	   104 	   015 	   012
    480	002547	   026 			KEPFT:	.BYTE	1$-.-1
    481	002550	   015 	   012 	   120 		.ASCII	<15><12>/POWER-FAIL RESTART/<15><12>
	002553	   117 	   127 	   105
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-12
TASK CODE

	002556	   122 	   055 	   106
	002561	   101 	   111 	   114
	002564	   040 	   122 	   105
	002567	   123 	   124 	   101
	002572	   122 	   124 	   015
	002575	   012
    482	002576				1$:	.EVEN
    483
    484		000000'				.END	START
TASK TERMINATION NOTIFICATION	MACRO M1110  15-OCT-79 11:32  PAGE 5-13
SYMBOL TABLE

ATLSCN  000000R  	KL.LCA= ****** GX	MESS22  001356R  	TENAD1= 174410   	$DBDTE= 000001
A.FM  = ****** GX	KL.LRM= ****** GX	MESS24  001363R  	TENAD2= 174412   	$DH11 = 000001
A.SP  = ****** GX	KL.LVB= ****** GX	MESS26  001370R  	TENCES  002365R  	$DTE  = 000001
A.TD  = ****** GX	KL.SPF= ****** GX	MESS30  001375R  	TENEPE  002320R  	$FE   = 000001
A.TS  = ****** GX	KL.SSC= ****** GX	MESS32  001423R  	TENERS  001634RG 	$F11  = 000001
BEGMT   000766R  	KL.VBD= ****** GX	MESS34  001451R  	TENSM   002347R  	$LP20 = 000001
DAG1  = 000030   	KL.VBN= ****** GX	MESS36  001510R  	TMPL1   000612R  	$RP04 = 000001
DAG2  = 000032   	KS.CES= ****** GX	MESS40  001534R  	TMPL1A  000621R  	$RX11 = 000001
DAG3  = 000036   	KS.CST= ****** GX	MESS42  001570R  	TMPL2   000643R  	$TOP10= 000001
DEP   = 010000   	KS.DEX= ****** GX	MESS44  001633R  	TMPL2A  000646R  	$T1091= 000001
DEXMSG  002412R  	KS.EPE= ****** GX	PRTIMO  002474R  	TMPL2B  000651R  	$$    = 000037
DEXWD1= 174402   	KS.PFT= ****** GX	PS    = ****** GX	TMPL3   000657R  	$$$T2 = 000027
DPBATT  000710R  	KS.PTO= ****** GX	PSEXP = 177776   	TNAD1 = 000010   	.ATLLH= ****** GX
DPBDET  000746R  	KS.TRR= ****** GX	RSX$$E= 000041   	TNAD2 = 000012   	.COMEF= ****** GX
DPBWFE  000762R  	KS.TSP= ****** GX	RSX$$F= 000105   	TN.LRF= ****** GX	.INHDM= ****** GX
DPBWR1  000724R  	LUN   = 000001   	RSX$$K= 000126   	TO10DB= 001000   	.KLERW= ****** GX
DXWD1 = 000006   	L$$P20= 000002   	RSX$$V= 000013   	TO10Q = ****** GX	.KLITK= ****** GX
DXWD2 = 000004   	MESS00  001034R  	R$$11D= 000001   	TRRB    002521R  	.KLIWD= ****** GX
DXWD3 = 000002   	MESS02  001073R  	SF.ST = ****** GX	TS.EXT= ****** GX	.KLRLD= ****** GX
D$$H11= 000010   	MESS04  001125R  	START   000000RG 	TS.TKN= ****** GX	.KPAC = ****** GX
EF.CRI= ****** GX	MESS06  001163R  	STAT  = 174434   	TYPMES  000660R  	..DECB= ****** GX
ENDMT = 000024   	MESS10  001203R  	STATD = 000034   	TYPREG  000532R  	..ENB0= ****** GX
FORPRO= 000020   	MESS12  001234R  	STATUS= 000022   	T10AD = 000020   	..PICK= ****** GX
KEPFT   002547R  	MESS14  001264R  	STSTT = ****** GX	T11AD = 000022   	..RDTA= ****** GX
KEPST   002446R  	MESS16  001305R  	S.FW  = ****** GX	T11BC = 000016   	...KLE  002314R
KL.CFM= ****** GX	MESS20  001332R  	S.TN  = ****** GX	$CD11 = 000001   	...KLI  002310R
KL.KAC= ****** GX

. ABS.	000000	   000
      	002576	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  2336 WORDS  ( 10 PAGES)
DYNAMIC MEMORY:  3724 WORDS  ( 14 PAGES)
ELAPSED TIME:  00:00:34
[47,10]TKTN,[47,20]TKTN/-SP/CR=[20,30]RSXFC/PA:1,[100,30]DTESSS,[47,30]TKTN
TKTN       CREATED BY  MACRO  ON 15-OCT-79 AT 11:33	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ATLSCN	  000000 R	#5-88       5-189     
A.FM  	= ******  GX	 5-120     
A.SP  	= ******  GX	 5-130      5-139      5-161     
A.TD  	= ******  GX	 5-111      5-166     
A.TS  	= ******  GX	 5-101     *5-179     
BEGMT 	  000766 R	 5-126     #5-267     
DAG1  	= 000030	#3-63      
DAG2  	= 000032	#3-62      
DAG3  	= 000036	#3-60      
DEP   	= 010000	#5-73       5-172     
DEXMSG	  002412 R	 5-373      5-470     #5-472     
DEXWD1	= 174402	#5-74       5-171     
DPBATT	  000710 R	#5-241     
DPBDET	  000746 R	 5-180     #5-256     
DPBWFE	  000762 R	 5-183      5-234     #5-262     
DPBWR1	  000724 R	*5-229     *5-230      5-231     #5-247     
DXWD1 	= 000006	#3-69      
DXWD2 	= 000004	#3-70      
DXWD3 	= 000002	#3-71      
EF.CRI	= ******  GX	 5-444     
ENDMT 	= 000024	 5-121     #5-286     
FORPRO	= 000020	#5-82      
KEPFT 	  002547 R	 5-423      5-478     #5-480     
KEPST 	  002446 R	 5-391      5-472     #5-474     
KL.CFM	= ******  GX	 5-350      5-363      5-376      5-425     
KL.KAC	= ******  GX	 5-386      5-430      5-446     
KL.LCA	= ******  GX	 5-350      5-363      5-376      5-425     
KL.LRM	= ******  GX	 5-350      5-363      5-376      5-425      5-442     
KL.LVB	= ******  GX	 5-416     
KL.SPF	= ******  GX	 5-425     
KL.SSC	= ******  GX	 5-337      5-350      5-363      5-376      5-404     
KL.VBD	= ******  GX	 5-416     
KL.VBN	= ******  GX	 5-416     
KS.CES	= ******  GX	 5-342      5-450     
KS.CST	= ******  GX	 5-381      5-450     
KS.DEX	= ******  GX	 5-368      5-450     
KS.EPE	= ******  GX	 5-355      5-450     
KS.PFT	= ******  GX	 5-418     
KS.PTO	= ******  GX	 5-395      5-450     
KS.TRR	= ******  GX	 5-409     
KS.TSP	= ******  GX	 5-329      5-450     
LUN   	= 000001	#5-81       5-243      5-249      5-258     
MESS00	  001034 R	 5-267     #5-288     
MESS02	  001073 R	 5-268      5-288     #5-290     
MESS04	  001125 R	 5-269      5-290     #5-292     
MESS06	  001163 R	 5-270      5-292     #5-294     
MESS10	  001203 R	 5-271      5-294     #5-296     
MESS12	  001234 R	 5-272      5-296     #5-298     
MESS14	  001264 R	 5-273      5-298     #5-300     
MESS16	  001305 R	 5-274      5-300     #5-302     
MESS20	  001332 R	 5-275      5-302     #5-304     
MESS22	  001356 R	 5-276      5-304     #5-306     
TKTN       CREATED BY  MACRO  ON 15-OCT-79 AT 11:33	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MESS24	  001363 R	 5-277      5-306     #5-308     
MESS26	  001370 R	 5-278      5-308     #5-310     
MESS30	  001375 R	 5-279      5-310     #5-312     
MESS32	  001423 R	 5-280      5-312     #5-314     
MESS34	  001451 R	 5-281      5-314     #5-316     
MESS36	  001510 R	 5-282      5-316     #5-318     
MESS40	  001534 R	 5-283      5-318     #5-320     
MESS42	  001570 R	 5-284      5-320     #5-322     
MESS44	  001633 R	 5-285      5-322     #5-324     
PRTIMO	  002474 R	 5-400      5-474     #5-476     
PS    	= ******  GX	 5-88       5-88       5-170      5-170     
PSEXP 	= 177776	#5-79      
RSX$$E	= 000041	#3-35      
RSX$$F	= 000105	#3-43      #3-48       3-54       5-3        5-3       
RSX$$K	= 000126	#3-39      
RSX$$V	= 000013	#3-34      
SF.ST 	= ******  GX	 5-167     
START 	  000000 RG	#5-87       5-484     
STAT  	= 174434	#5-78       5-174     
STATD 	= 000034	#3-61      
STATUS	= 000022	#5-83      
STSTT 	= ******  GX	*5-169     
S.FW  	= ******  GX	 5-167     
S.TN  	= ******  GX	 5-112     
TENAD1	= 174410	#5-75       5-172     
TENAD2	= 174412	#5-76       5-173     
TENCES	  002365 R	 5-347      5-468     #5-470     
TENEPE	  002320 R	 5-360     #5-466     
TENERS	  001634 RG	 5-98      #5-326     
TENSM 	  002347 R	 5-334      5-466     #5-468     
TMPL1 	  000612 R	 5-115     #5-216     
TMPL1A	  000621 R	 5-113     #5-218     
TMPL2 	  000643 R	 5-212      5-216     #5-219     
TMPL2A	  000646 R	*5-132     *5-133     *5-136     *5-140     *5-141     *5-144     *5-147     *5-150     *5-153     
                        *5-156     *5-159     *5-160     #5-221     
TMPL2B	  000651 R	 5-195     #5-222     
TMPL3 	  000657 R	 5-219     #5-223     
TNAD1 	= 000010	#3-67      
TNAD2 	= 000012	#3-68      
TN.LRF	= ******  GX	 5-128     
TO10DB	= 001000	#5-77       5-174     
TO10Q 	= ******  GX	 5-432     
TRRB  	  002521 R	 5-414      5-476     #5-478     
TS.EXT	= ******  GX	 5-179     
TS.TKN	= ******  GX	 5-101     
TYPMES	  000660 R	 5-116      5-116      5-127      5-127      5-213      5-213     #5-229      5-335      5-335     
                         5-348      5-348      5-361      5-361      5-374      5-374      5-402      5-402      5-415     
                         5-415      5-424      5-424     
TYPREG	  000532 R	 5-135      5-135      5-138      5-138      5-143      5-143      5-146      5-146      5-149     
                         5-149      5-152      5-152      5-155      5-155      5-158      5-158      5-162      5-162     
                        #5-195     
T10AD 	= 000020	#3-65      
TKTN       CREATED BY  MACRO  ON 15-OCT-79 AT 11:33	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

T11AD 	= 000022	#3-64      
T11BC 	= 000016	#3-66      
$TOP10	= 000001	 3-44       5-336      5-349      5-362      5-375      5-403     
$TOP20	= ******	 3-51      
$T1091	= 000001	 3-45      
$$    	= 000037	#5-94       5-94      #5-103      5-103     #5-114      5-114     #5-116      5-116     #5-127     
                         5-127     #5-135      5-135     #5-138      5-138     #5-143      5-143     #5-146      5-146     
                        #5-149      5-149     #5-152      5-152     #5-155      5-155     #5-158      5-158     #5-162     
                         5-162     #5-213      5-213     #5-335      5-335     #5-348      5-348     #5-361      5-361     
                        #5-374      5-374     #5-402      5-402     #5-415      5-415     #5-424      5-424     #5-433     
                         5-433     #5-437      5-437     
$$$T2 	= 000027	#5-452      5-452     #5-455      5-455     
.ATLLH	= ******  GX	 5-90       5-92      
.COMEF	= ******  GX	*5-444     
.INHDM	= ******  GX	*5-427     
.KLERW	= ******  GX	*5-97      
.KLITK	= ******  GX	 5-95       5-97       5-327     *5-328     
.KLIWD	= ******  GX	*5-454     
.KLRLD	= ******  GX	 5-448     
.KPAC 	= ******  GX	 5-387     
..DECB	= ******  GX	 5-437      5-437     
..ENB0	= ******  GX	 5-94       5-94       5-103      5-103     
..PICK	= ******  GX	 5-433      5-433     
..RDTA	= ******  GX	 5-114      5-114     
...KLE	  002314 R	 5-452      5-452     #5-461     
...KLI	  002310 R	 5-455      5-455     #5-459     
TKTN       CREATED BY  MACRO  ON 15-OCT-79 AT 11:33	PAGE 4

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#5-70      #5-94      #5-103     #5-114     #5-116     #5-127     #5-135     #5-138     #5-143     #5-146     
                #5-149     #5-152     #5-155     #5-158     #5-162     #5-213     #5-335     #5-348     #5-361     #5-374     
                #5-402     #5-415     #5-424     #5-433     #5-437     
DECL$S		#5-70       5-185     
DIR$  		#5-99       5-99      #5-185      5-185     #5-452      5-452     #5-455      5-455     #5-457      5-457     
ERR$  		#5-99      #5-185     #5-452     #5-455     #5-457     
EXIT$S		#5-70      #5-99      #5-457     
IDENT$		#4-82      #5-3       #5-3       
MOV$  		#5-185     #5-452      5-452     #5-455      5-455     
MVB$  		#5-452      5-452     #5-455      5-455     
RETURN		#5-70      #5-214     #5-236     
RFA$  		#5-452      5-452      5-452     #5-455      5-455      5-455     
RQST$S		#5-70      #5-452     #5-455     
WSIG$S		#5-70      
.ENB  		#5-71      
.ENB0 		#5-70       5-94       5-103     
.ENB6 		#5-70      
.INH  		#5-71      
.INH0 		#5-70      #5-88      
.INH6 		#5-70      #5-170     
RSX20F -- RESIDENT EXECUTIVE   	MACRO M1108  05-DEC-77 17:25  PAGE 2


      2					.TITLE	RSX20F -- RESIDENT EXECUTIVE
      3					.IDENT	"V002A"
      4					;
      5					;
      6					;
      7					;
      8					;
      9					;                             COPYRIGHT (C) 1975, 1978 BY
     10					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
     11					;
     12					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
     13					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
     14					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
     15					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
     16					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
     17					;
     18					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
     19					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
     20					;       CORPORATION.
     21					;
     22					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
     23					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
     24					;
     25					;
     26					;
     27					;
     28					;		MODULE: "RADIX50 TO ASCII"
     29					;
     30					;		VERSION: V002A
     31					;
     32					;		AUTHOR: R. MCLEAN
     33					;
     34					;		DATE: 19 JUL 75
     35					;
     36					;
     37					;	THIS MODULE CONTAINS:
     38					;
     39					;	1 -- CODE TO CONVERT RADIX50 TO ASCII
RSX20F -- RESIDENT EXECUTIVE   	MACRO M1108  05-DEC-77 17:25  PAGE 3


     41					;
     42					;
     43					;+
     44					;	..RDTA -- ROUTINE TO CONVERT RADIX50 TO ASCII TEXT
     45					;
     46					;	CALLING SEQUENCE:
     47					;		R1 -- NUMBER OF CHARACTERS TO BE CONVERTED (MUST BE MULT OF 3)
     48					;		R2 -- RADIX 50 BUFFER
     49					;		R3 -- ASCII BUFFER
     50					;		CALL	..RDTA
     51					;
     52					;
     53					;		NOTE -- BLANK'S ARE LEGAL RADIX 50 CHARACTERS
     54					;		BUT FOR THIS SUBROUTINE THEY ARE CONVERTED TO
     55					;		NULL'S (000).
     56					;-
     57						.MCALL	CALL,RETURN
     58					;
     59					;
     60					;
     61	000000	010046 			..RDTA::MOV	R0,-(SP)	;SAVE REGISTERS
     62	000002	010146 				MOV	R1,-(SP)
     63	000004	010246 				MOV	R2,-(SP)
     64	000006	010346 				MOV	R3,-(SP)
     65	000010	010446 				MOV	R4,-(SP)
     66	000012	010546 				MOV	R5,-(SP)
     67	000014	012700 	000004 		RDLPA:	MOV	#4,R0		;DECODE 3 CHRS / WORD
     68	000020	005004 				CLR	R4
     69	000022	012205 				MOV	(R2)+,R5	;PICK UP A WORD
     70	000024	005046 				CLR	-(SP)
     71	000026	010046 				MOV	R0,-(SP)
     72	000030	010146 				MOV	R1,-(SP)
     73	000032	010500 				MOV	R5,R0
     74	000034	012701 	000050 			MOV	#50,R1
     75	000040					CALL	$DIV
     76	000044	010166 	000004 			MOV	R1,4(SP)	;SAVE THE CHARACTER FOUND
     77	000050	012701 	000050 			MOV	#50,R1
     78	000054					CALL	$DIV
     79	000060	010004 				MOV	R0,R4
     80	000062	010105 				MOV	R1,R5
     81	000064	012601 				MOV	(SP)+,R1
     82	000066	012600 				MOV	(SP)+,R0
     83	000070	010546 				MOV	R5,-(SP)	;SAVE THE 2ND CHARACTER
     84	000072	010446 				MOV	R4,-(SP)	;SAVE THE 1ST CHARACTER
     85	000074	005300 			MULP:	DEC	R0		;FINISHED WITH WORD?
     86	000076	001746 				BEQ	RDLPA		;YES -- GET ANOTHER
     87	000100	005716 				TST	@SP		;NO -- DECODE A CHARACTER
     88	000102	001413 				BEQ	MUU		;YES -- DECODE SPACE
     89	000104	022716 	000032 			CMP	#32,@SP		;IS IT AN LETTER?
     90	000110	100030 				BPL	ASCF		;YES -- ENCODE ASCII
     91	000112	022716 	000034 			CMP	#34,@SP		;NO -- IS IT A PERIOD?
     92	000116	001422 				BEQ	PRIOD		;YES -- ENCODE .
     93	000120	022716 	000033 			CMP	#33,@SP		;IS IT A $
     94	000124	001414 				BEQ	DOLR		;YES -- ENCODE $
     95	000126	062716 	000022 			ADD	#22,@SP		;NO -- MUST BE NUMBER ADD 22
     96	000132	012604 			MUU:	MOV	(SP)+,R4	;STORE THE CHARACTER IN USER'S UFFER
     97	000134	110423 				MOVB	R4,(R3)+
RSX20F -- RESIDENT EXECUTIVE   	MACRO M1108  05-DEC-77 17:25  PAGE 3-1


     98	000136	077122 				SOB	R1,MULP		;FINISHED?
     99	000140	012605 				MOV	(SP)+,R5
    100	000142	012604 				MOV	(SP)+,R4
    101	000144	012603 				MOV	(SP)+,R3
    102	000146	012602 				MOV	(SP)+,R2
    103	000150	012601 				MOV	(SP)+,R1
    104	000152	012600 				MOV	(SP)+,R0
    105	000154					RETURN			;YES -- RETURN
    106					;
    107	000156	012716 	000044 		DOLR:	MOV	#'$,@SP		;SET UP TO STORE $
    108	000162	000763 				BR	MUU
    109					;
    110	000164	012716 	000056 		PRIOD:	MOV	#'.,@SP
    111	000170	000760 				BR	MUU		;STORE .
    112	000172	052716 	000100 		ASCF:	BIS	#100,@SP	;SET UP AS ASCII
    113	000176	000755 				BR	MUU
    114					;
    115		000001 				.END
RSX20F -- RESIDENT EXECUTIVE   	MACRO M1108  05-DEC-77 17:25  PAGE 3-2
SYMBOL TABLE

ASCF    000172R  	MULP    000074R  	PRIOD   000164R  	$DIV  = ****** GX	..RDTA  000000RG
DOLR    000156R  	MUU     000132R  	RDLPA   000014R  	$$    = 000067

. ABS.	000000	   000
      	000200	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  193 WORDS  ( 1 PAGES)
DYNAMIC MEMORY:  3104 WORDS  ( 11 PAGES)
ELAPSED TIME:  00:00:05
[47,10]RDTA,[47,20]RDTA/-SP=[47,30]RDTA