Google
 

Trailing-Edge - PDP-10 Archives - bb-m403a-bk - tktn.l91
There are 3 other files named tktn.l91 in the archive. Click here to see a list.
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14
TABLE OF CONTENTS

     8-    2	TKTN -- TITLE PAGE
     9-   65	TKTN -- MACROS AND DEFINITIONS
    10-   82	TKTN -- LOCAL DATA
    11-  247	TKTN -- ATL SCAN
    12-  367	TKTN -- REGISTER OUTPUT
    13-  398	TKTN -- TERMINAL OUTPUT ROUTINE
    14-  416	TKTN -- KL10 ERRORS
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1113  10-NOV-81 18:14  PAGE 2


      1						.TITLE	RSX20F	-- RESIDENT EXECUTIVE (SYSTEM DEFINITION)
      2						.IDENT	/014450/
      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 14-45
     26					;
     27					; MODIFIED BY:
     28					;
RSX20F	-- RESIDENT EXECUTIVE (	MACRO M1113  10-NOV-81 18:14  PAGE 3


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


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


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

     57					;						CLOCK ERROR STOP PROCESSING
     58					;   TCO 4.2018	05-DEC-78	R. BELANGER	INHIBIT DM-11/BBS ON KL10 RELOAD
     59					;   TCO 4.2107 	07-DEC-78	K. LEFEBVRE	INVOKE KLINIT ONLY ON
     60					;						FIRST KEEP ALIVE CEASE
     61					;  TCO 4.1.1065	10-JAN-80	R. BELANGER	CHANGE DEPOSIT/EXAMINE (DEX)
     62					;						ERROR MESSAGE
     63					;  TCO 5.1127	12-AUG-80	S. LEAPLINE	TEST FOR HOST DEBUG MODE
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 8
TKTN -- MACROS AND DEFINITIONS

     65						.SBTTL	TKTN -- MACROS AND DEFINITIONS
     66
     67						.MCALL	CALL,RETURN,.INH0,.ENB0,EXIT$S,DECL$S,RQST$S,.INH6,.ENB6,WSIG$S
     68						.MCALL	.INH,.ENB
     69
     70		010000 			DEP=010000	; DEPOSIT
     71		174402 			DEXWD1=174402	; DEPOSIT EXAMINE WORD 1
     72		174410 			TENAD1=174410
     73		174412 			TENAD2=174412
     74		001000 			TO10DB=1000	; TO 10 DOORBELL
     75		174434 			STAT=174434
     76		177776 			PSEXP=177776
     77
     78		000001 			LUN=1
     79		000020 			FORPRO=20	; ADDRESS OF REGION
     80		000022 			STATUS=22
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 9
TKTN -- LOCAL DATA

     82						.SBTTL	TKTN -- LOCAL DATA
     83
     84	000000				TMPL1:
     85	000000	   030 				.BYTE	TMPL2-.-1
     86	000001	   124 	   101 	   123 		.ASCII	'TASK "'
	000004	   113 	   040 	   042
     87	000007				TMPL1A:
     88	000007	   130 	   130 	   130 		.ASCII	'XXXXXX" TERMINATED'
	000012	   130 	   130 	   130
	000015	   042 	   040 	   124
	000020	   105 	   122 	   115
	000023	   111 	   116 	   101
	000026	   124 	   105 	   104
     89	000031				TMPL2:
     90	000031	   013 				.BYTE	TMPL3-.-1
     91	000032	   040 	   040 			.ASCII	"  "
     92	000034				TMPL2A:
     93	000034	   122 	   122 	   075 		.ASCII	"RR="
     94	000037				TMPL2B:
     95	000037	   130 	   130 	   130 		.ASCII	"XXXXXX"
	000042	   130 	   130 	   130
     96	000045				TMPL3:
     97						.EVEN
     98					;
     99					; DIRECTIVE PARAMETER BLOCKS
    100					;
    101					;
    102	000046				DPBATT:
    103	000046	   001 	   006 			.BYTE	1.,6.		; ATTACH LUN
    104	000050	001400 				.WORD	1400
    105	000052	000001 				.WORD	LUN
    106	000054	   000 	   000 			.BYTE	0,0
    107	000056	000000 	000000 			.WORD	0,0
    108					;
    109	000062				DPBWR1:
    110	000062	   001 	   011 			.BYTE	1.,9.		; WRITE TO LUN
    111	000064	000400 				.WORD	0400
    112	000066	000001 				.WORD	LUN
    113	000070	   040 	   000 			.BYTE	32.,0
    114	000072	000000 	000000 			.WORD	0,0
    115	000076	000000 				.WORD	0
    116	000100	000000 				.WORD	0
    117	000102	000040 				.WORD	40
    118					;
    119	000104				DPBDET:
    120	000104	   001 	   006 			.BYTE	1.,6.		; DETACH FROM LUN
    121	000106	002000 				.WORD	2000
    122	000110	000001 				.WORD	LUN
    123	000112	   040 	   000 			.BYTE	32.,0
    124	000114	000000 	000000 			.WORD	0,0
    125					;
    126	000120				DPBWFE:
    127	000120	   051 	   002 			.BYTE	41.,2.		; WAITFOR EFN 32.
    128	000122	000040 				.WORD	32.
    129					;
    130					; MESSAGE TABLES & TEXT
    131					;
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 9-1
TKTN -- LOCAL DATA

    132	000124				BEGMT:
    133	000124	000172'				.WORD	MESS00		; TERMINATION MESSAGE TABLE
    134	000126	000231'				.WORD	MESS02
    135	000130	000263'				.WORD	MESS04
    136	000132	000321'				.WORD	MESS06
    137	000134	000341'				.WORD	MESS10
    138	000136	000372'				.WORD	MESS12
    139	000140	000422'				.WORD	MESS14
    140	000142	000443'				.WORD	MESS16
    141	000144	000470'				.WORD	MESS20
    142	000146	000514'				.WORD	MESS22
    143	000150	000521'				.WORD	MESS24
    144	000152	000526'				.WORD	MESS26
    145	000154	000533'				.WORD	MESS30
    146	000156	000561'				.WORD	MESS32
    147	000160	000607'				.WORD	MESS34
    148	000162	000646'				.WORD	MESS36
    149	000164	000672'				.WORD	MESS40
    150	000166	000726'				.WORD	MESS42
    151	000170	000771'				.WORD	MESS44
    152		000024 			ENDMT=24
    153
    154	000172				MESS00:
    155	000172	   036 				.BYTE	MESS02-.-1
    156	000173	   117 	   104 	   104 		.ASCII	'ODD ADDRESS OR OTHER TRAP FOUR'
	000176	   040 	   101 	   104
	000201	   104 	   122 	   105
	000204	   123 	   123 	   040
	000207	   117 	   122 	   040
	000212	   117 	   124 	   110
	000215	   105 	   122 	   040
	000220	   124 	   122 	   101
	000223	   120 	   040 	   106
	000226	   117 	   125 	   122
    157	000231				MESS02:
    158	000231	   031 				.BYTE	MESS04-.-1
    159	000232	   042 	   122 	   105 		.ASCII	'"RESERVED INST" EXECUTION'
	000235	   123 	   105 	   122
	000240	   126 	   105 	   104
	000243	   040 	   111 	   116
	000246	   123 	   124 	   042
	000251	   040 	   105 	   130
	000254	   105 	   103 	   125
	000257	   124 	   111 	   117
	000262	   116
    160	000263				MESS04:
    161	000263	   035 				.BYTE	MESS06-.-1
    162	000264	   124 	   055 	   102 		.ASCII	'T-BIT TRAP OR "BPT" EXECUTION'
	000267	   111 	   124 	   040
	000272	   124 	   122 	   101
	000275	   120 	   040 	   117
	000300	   122 	   040 	   042
	000303	   102 	   120 	   124
	000306	   042 	   040 	   105
	000311	   130 	   105 	   103
	000314	   125 	   124 	   111
	000317	   117 	   116
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 9-2
TKTN -- LOCAL DATA

    163	000321				MESS06:
    164	000321	   017 				.BYTE	MESS10-.-1
    165	000322	   042 	   111 	   117 		.ASCII	'"IOT" EXECUTION'
	000325	   124 	   042 	   040
	000330	   105 	   130 	   105
	000333	   103 	   125 	   124
	000336	   111 	   117 	   116
    166	000341				MESS10:
    167	000341	   030 				.BYTE	MESS12-.-1
    168	000342	   115 	   105 	   115 		.ASCII	'MEMORY PROTECT VIOLATION'
	000345	   117 	   122 	   131
	000350	   040 	   120 	   122
	000353	   117 	   124 	   105
	000356	   103 	   124 	   040
	000361	   126 	   111 	   117
	000364	   114 	   101 	   124
	000367	   111 	   117 	   116
    169	000372				MESS12:
    170	000372	   027 				.BYTE	MESS14-.-1
    171	000373	   042 	   116 	   117 		.ASCII	'"NON-RSX EMT" EXECUTION'
	000376	   116 	   055 	   122
	000401	   123 	   130 	   040
	000404	   105 	   115 	   124
	000407	   042 	   040 	   105
	000412	   130 	   105 	   103
	000415	   125 	   124 	   111
	000420	   117 	   116
    172	000422				MESS14:
    173	000422	   020 				.BYTE	MESS16-.-1
    174	000423	   042 	   124 	   122 		.ASCII	'"TRAP" EXECUTION'
	000426	   101 	   120 	   042
	000431	   040 	   105 	   130
	000434	   105 	   103 	   125
	000437	   124 	   111 	   117
	000442	   116
    175	000443				MESS16:
    176	000443	   024 				.BYTE	MESS20-.-1
    177	000444	   061 	   061 	   057 		.ASCII	'11/40 F.P. EXCEPTION'
	000447	   064 	   060 	   040
	000452	   106 	   056 	   120
	000455	   056 	   040 	   105
	000460	   130 	   103 	   105
	000463	   120 	   124 	   111
	000466	   117 	   116
    178	000470				MESS20:
    179	000470	   023 				.BYTE	MESS22-.-1
    180	000471	   115 	   105 	   115 		.ASCII	'MEMORY PARITY ERROR'
	000474	   117 	   122 	   131
	000477	   040 	   120 	   101
	000502	   122 	   111 	   124
	000505	   131 	   040 	   105
	000510	   122 	   122 	   117
	000513	   122
    181	000514				MESS22:
    182	000514	   004 				.BYTE	MESS24-.-1
    183	000515	   106 	   060 	   061 		.ASCII	"F014"
	000520	   064
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 9-3
TKTN -- LOCAL DATA

    184	000521				MESS24:
    185	000521	   004 				.BYTE	MESS26-.-1
    186	000522	   106 	   060 	   061 		.ASCII	"F013"
	000525	   063
    187	000526				MESS26:
    188	000526	   004 				.BYTE	MESS30-.-1
    189	000527	   106 	   060 	   061 		.ASCII	"F012"
	000532	   062
    190	000533				MESS30:
    191	000533	   025 				.BYTE	MESS32-.-1
    192	000534	   123 	   123 	   124 		.ASCII	'SST ABORT (BAD STACK)'
	000537	   040 	   101 	   102
	000542	   117 	   122 	   124
	000545	   040 	   050 	   102
	000550	   101 	   104 	   040
	000553	   123 	   124 	   101
	000556	   103 	   113 	   051
    193	000561				MESS32:
    194	000561	   025 				.BYTE	MESS34-.-1
    195	000562	   101 	   123 	   124 		.ASCII	'AST ABORT (BAD STACK)'
	000565	   040 	   101 	   102
	000570	   117 	   122 	   124
	000573	   040 	   050 	   102
	000576	   101 	   104 	   040
	000601	   123 	   124 	   101
	000604	   103 	   113 	   051
    196	000607				MESS34:
    197	000607	   036 				.BYTE	MESS36-.-1
    198	000610	   101 	   102 	   117 		.ASCII	'ABORTED VIA DIRECTIVE (OR MCR)'
	000613	   122 	   124 	   105
	000616	   104 	   040 	   126
	000621	   111 	   101 	   040
	000624	   104 	   111 	   122
	000627	   105 	   103 	   124
	000632	   111 	   126 	   105
	000635	   040 	   050 	   117
	000640	   122 	   040 	   115
	000643	   103 	   122 	   051
    199	000646				MESS36:
    200	000646	   023 				.BYTE	MESS40-.-1
    201	000647	   124 	   111 	   115 		.ASCII	'TIME LIMIT EXCEEDED'
	000652	   105 	   040 	   114
	000655	   111 	   115 	   111
	000660	   124 	   040 	   105
	000663	   130 	   103 	   105
	000666	   105 	   104 	   105
	000671	   104
    202	000672				MESS40:
    203	000672	   033 				.BYTE	MESS42-.-1
    204	000673	   114 	   117 	   101 		.ASCII	'LOAD FAILURE (DSK READ ERR)'
	000676	   104 	   040 	   106
	000701	   101 	   111 	   114
	000704	   125 	   122 	   105
	000707	   040 	   050 	   104
	000712	   123 	   113 	   040
	000715	   122 	   105 	   101
	000720	   104 	   040 	   105
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 9-4
TKTN -- LOCAL DATA

	000723	   122 	   122 	   051
    205	000726				MESS42:
    206	000726	   042 				.BYTE	MESS44-.-1
    207	000727	   103 	   110 	   105 		.ASCII	'CHECKPOINT FAILURE (DSK WRITE ERR)'
	000732	   103 	   113 	   120
	000735	   117 	   111 	   116
	000740	   124 	   040 	   106
	000743	   101 	   111 	   114
	000746	   125 	   122 	   105
	000751	   040 	   050 	   104
	000754	   123 	   113 	   040
	000757	   127 	   122 	   111
	000762	   124 	   105 	   040
	000765	   105 	   122 	   122
	000770	   051
    208	000771				MESS44:
    209						.EVEN
    210					;
    211	000772				...KLI:
    212
    213	000772	131574 	043251 			.RAD50	/...KLI/
    214	000776				...KLE:
    215
    216	000776	062072 	073632 			.RAD50	/PARSER/
    217					;
    218					; KL ERROR MESSAGES
    219					;
    220	001002				TENEPE:
    221	001002	   026 				.BYTE	TENSM-.-1
    222	001003	   012 	   015 	   105 		.ASCII	<12><15>/E-BUS PARITY ERROR/<15><12>
	001006	   055 	   102 	   125
	001011	   123 	   040 	   120
	001014	   101 	   122 	   111
	001017	   124 	   131 	   040
	001022	   105 	   122 	   122
	001025	   117 	   122 	   015
	001030	   012
    223	001031				TENSM:
    224	001031	   015 				.BYTE	TENCES-.-1
    225	001032	   012 	   015 	   113 		.ASCII	<12><15>/KL HALTED/<12><15>
	001035	   114 	   040 	   110
	001040	   101 	   114 	   124
	001043	   105 	   104 	   012
	001046	   015
    226	001047				TENCES:
    227	001047	   024 				.BYTE	DEXMSG-.-1
    228	001050	   015 	   012 	   103 		.ASCII	<15><12>/CLOCK ERROR STOP/<12><15>
	001053	   114 	   117 	   103
	001056	   113 	   040 	   105
	001061	   122 	   122 	   117
	001064	   122 	   040 	   123
	001067	   124 	   117 	   120
	001072	   012 	   015
    229	001074				DEXMSG:
    230	001074	   046 				.BYTE	KEPST-.-1
    231	001075	   015 	   012 	   120 		.ASCII	<15><12>/PI LEVEL 0 INTERRUPT FAILURE (DEX)/<12><15>
	001100	   111 	   040 	   114
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 9-5
TKTN -- LOCAL DATA

	001103	   105 	   126 	   105
	001106	   114 	   040 	   060
	001111	   040 	   111 	   116
	001114	   124 	   105 	   122
	001117	   122 	   125 	   120
	001122	   124 	   040 	   106
	001125	   101 	   111 	   114
	001130	   125 	   122 	   105
	001133	   040 	   050 	   104
	001136	   105 	   130 	   051
	001141	   012 	   015
    232	001143				KEPST:
    233	001143	   025 				.BYTE	PRTIMO-.-1
    234	001144	   015 	   012 	   113 		.ASCII	<15><12>/KEEP ALIVE CEASED/<15><12>
	001147	   105 	   105 	   120
	001152	   040 	   101 	   114
	001155	   111 	   126 	   105
	001160	   040 	   103 	   105
	001163	   101 	   123 	   105
	001166	   104 	   015 	   012
    235	001171				PRTIMO:
    236	001171	   024 				.BYTE	TRRB-.-1
    237	001172	   015 	   012 	   120 		.ASCII	<15><12>/PROTOCOL TIMEOUT/<15><12>
	001175	   122 	   117 	   124
	001200	   117 	   103 	   117
	001203	   114 	   040 	   124
	001206	   111 	   115 	   105
	001211	   117 	   125 	   124
	001214	   015 	   012
    238	001216				TRRB:
    239	001216	   025 				.BYTE	KEPFT-.-1
    240	001217	   015 	   012 	   122 		.ASCII	<15><12>/RE-BOOT REQUESTED/<15><12>
	001222	   105 	   055 	   102
	001225	   117 	   117 	   124
	001230	   040 	   122 	   105
	001233	   121 	   125 	   105
	001236	   123 	   124 	   105
	001241	   104 	   015 	   012
    241	001244				KEPFT:
    242	001244	   026 				.BYTE	1$-.-1
    243	001245	   015 	   012 	   120 		.ASCII	<15><12>/POWER-FAIL RESTART/<15><12>
	001250	   117 	   127 	   105
	001253	   122 	   055 	   106
	001256	   101 	   111 	   114
	001261	   040 	   122 	   105
	001264	   123 	   124 	   101
	001267	   122 	   124 	   015
	001272	   012
    244	001273				1$:
    245						.EVEN
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 10
TKTN -- ATL SCAN

    247						.SBTTL	TKTN -- ATL SCAN
    248
    249					;
    250					; SCAN ATL FOR TASK(S) WITH A STATUS OF "SUSPENDED FOR TERMINATION NOTIFICATION"
    251					;
    252	001274				START::
    253	001274				ATLSCN:
    254	001274					.INH0			; PUSH PRE-INHIBIT PS ONTO STACK (FOR ..ENB0)
	001274	013746 	000000G			MOV	@#PS,-(SP)
	001300	112737 	000140 	000000G		MOVB	#140,@#PS
    255									;; INHIBIT TASK SWITCHING (RAISE PRI=3)
    256	001306	012700 	000000G			MOV	#.ATLLH,R0	;; USE R0 TO SCAN THE ATL
    257	001312				10$:
    258	001312	011000 				MOV	@R0,R0		;; ADVANCE R0 TO POINT TO NEXT ATL NODE
    259	001314	020027 	000000G			CMP	R0,#.ATLLH	;; END OF ATL?
    260	001320	001015 				BNE	20$		;;
    261	001322					.ENB0
	001322	004737 	000000G			JSR	PC,..ENB0
    262	001326	005737 	000000G			TST	.KLITK		; CHECK TO SEE IF TEN ERROR STOP
    263	001332	001405 				BEQ	77$
    264	001334	053737 	000000G	000000G		BIS	.KLITK,.KLERW	; RECORD THE ERROR FOR SETSPD REPORT
    265	001342	000137 	002136'			JMP	TENERS		; YES -- BETTER OUTPUT MESSAGE AND DO SOMETHING ABOUT IT
    266						;
    267	001346				77$:
    268	001346					EXIT$S
	001346	012746 				MOV	(PC)+,-(SP)
	001350	   063 	   001 			.BYTE	51.,1
	001352	104375 				EMT	375
    269
    270	001354				20$:
    271	001354	126027 	000000G	000000G		CMPB  A.TS(R0),#TS.TKN	;; IS TASK SUPSENDED FOR TERMINTION NOTICE?
    272	001362	001353 				BNE	10$		;; NO -- CHECK NEXT ATL NODE
    273	001364					.ENB0			;; YES -- ENABLE TASK SWITCHING, AND OUTPUT NOTIC
	001364	004737 	000000G			JSR	PC,..ENB0
    274					;
    275					; TERMINATION INFORMATION IS CODED INTO 'A.FM+0' AS FOLLOWS:
    276					;
    277					;	IF BIT-8 IS SET, THE LOW ORDER BYTE CONTAINS A TERMINATION MESSAGE CODE
    278					;	IF BIT-9 IS SET, AN I/O RUNDOWN MESSAGE IS TO BE OUTPUT
    279					;
    280	001370	012701 	000006 			MOV	#6.,R1		; CONVERT TASK NAME FROM RADIX-50 TO ASCII
    281	001374	016002 	000000G			MOV	A.TD(R0),R2	; AND STORE IN OUTPUT TEXT STRING.
    282	001400	062702 	000000G			ADD	#S.TN,R2
    283	001404	012703 	000007'			MOV	#TMPL1A,R3
    284	001410					CALL	..RDTA
	001410	004737 	000000G			JSR	PC,..RDTA
    285	001414	012703 	000000'			MOV	#TMPL1,R3	; TYPE TASK NAME LINE
    286	001420					CALL	TYPMES
	001420	004737 	002106'			JSR	PC,TYPMES
    287					;
    288					; OUTPUT TERMINATION NOTICE PER LOW ORDER 'A.FM+0' IF BIT-8 IS SET
    289					;
    290	001424	116001 	000000G			MOVB	A.FM+0(R0),R1	; SET R1 TO TERMINATION MESSAGE CODE (INDEX).
    291	001430	020127 	000024 			CMP	R1,#ENDMT
    292	001434	101003 				BHI	30$
    293	001436	032701 	000001 			BIT	#1,R1
    294	001442	001402 				BEQ	40$
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 10-1
TKTN -- ATL SCAN

    295	001444				30$:
    296	001444	012701 	000026 			MOV	#26,R1
    297	001450				40$:
    298	001450	016103 	000124'			MOV	BEGMT+0(R1),R3	; TYPE MESSAGE PER R1
    299	001454					CALL	TYPMES
	001454	004737 	002106'			JSR	PC,TYPMES
    300	001460	020127 	000000G			CMP	R1,#TN.LRF	; NO REG OUTPUT IF LOAD REQ FAILURE
    301	001464	001541 				BEQ	80$
    302	001466	016005 	000000G			MOV	A.SP(R0),R5	; FIND USER'S STACK
    303	001472	062705 	000014 			ADD	#14,R5
    304	001476	112737 	000120 	000034'		MOVB	#'P,TMPL2A	; OUTPUT PC
    305	001504	112737 	000103 	000035'		MOVB	#'C,TMPL2A+1
    306	001512	012503 				MOV	(R5)+,R3
    307	001514					CALL	TYPREG
	001514	004737 	002026'			JSR	PC,TYPREG
    308	001520	112737 	000123 	000035'		MOVB	#'S,TMPL2A+1	; OUTPUT PS
    309	001526	012503 				MOV	(R5)+,R3	; (POP PS)
    310	001530					CALL	TYPREG
	001530	004737 	002026'			JSR	PC,TYPREG
    311	001534	016005 	000000G			MOV	A.SP(R0),R5
    312	001540	112737 	000122 	000034'		MOVB	#'R,TMPL2A	; OUTPUT R0
    313	001546	112737 	000060 	000035'		MOVB	#'0,TMPL2A+1
    314	001554	012503 				MOV	(R5)+,R3
    315	001556					CALL	TYPREG
	001556	004737 	002026'			JSR	PC,TYPREG
    316	001562	112737 	000061 	000035'		MOVB	#'1,TMPL2A+1	; OUTPUT R1
    317	001570	012503 				MOV	(R5)+,R3
    318	001572					CALL	TYPREG
	001572	004737 	002026'			JSR	PC,TYPREG
    319	001576	112737 	000062 	000035'		MOVB	#'2,TMPL2A+1	; OUTPUT R2
    320	001604	012503 				MOV	(R5)+,R3
    321	001606					CALL	TYPREG
	001606	004737 	002026'			JSR	PC,TYPREG
    322	001612	112737 	000063 	000035'		MOVB	#'3,TMPL2A+1	; OUTPUT R3
    323	001620	012503 				MOV	(R5)+,R3
    324	001622					CALL	TYPREG
	001622	004737 	002026'			JSR	PC,TYPREG
    325	001626	112737 	000064 	000035'		MOVB	#'4,TMPL2A+1	; OUTPUT R4
    326	001634	012503 				MOV	(R5)+,R3
    327	001636					CALL	TYPREG
	001636	004737 	002026'			JSR	PC,TYPREG
    328	001642	112737 	000065 	000035'		MOVB	#'5,TMPL2A+1	; OUTPUT R5
    329	001650	012503 				MOV	(R5)+,R3
    330	001652					CALL	TYPREG
	001652	004737 	002026'			JSR	PC,TYPREG
    331	001656	112737 	000123 	000034'		MOVB	#'S,TMPL2A	; OUTPUT SP
    332	001664	112737 	000120 	000035'		MOVB	#'P,TMPL2A+1
    333	001672	016003 	000000G			MOV	A.SP(R0),R3
    334	001676					CALL	TYPREG
	001676	004737 	002026'			JSR	PC,TYPREG
    335					;
    336					; TASK EXIT'ED WITH PENDING I/O (NO FAULT TERMINATION)
    337					;
    338	001702				70$:
    339	001702	016003 	000000G			MOV	A.TD(R0),R3	; FIND THE STD ADDRESS
    340	001706	032763 	000000G	000000G		BIT	#SF.ST,S.FW(R3)	; SYSTEM TASK ABORT?
    341	001714	001425 				BEQ	80$		; NO -- THEN JUST CONTINUE
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 10-2
TKTN -- ATL SCAN

    342	001716	052737 	000004 	000000G		BIS	#4,STSTT	; PUT LOAD 11 IN SAVED STATUS SO IT WON'T BE FORGOTTEN
    343	001724					.INH6			; DISALLOW INTERRUPTS
	001724	013746 	000000G			MOV	@#PS,-(SP)
	001730	112737 	000300 	000000G		MOVB	#300,@#PS
    344	001736	012737 	000004 	174402 		MOV	#4,@#DEXWD1	;;; SET LOAD 11 BIT
    345	001744	012737 	010000 	174410 		MOV	#DEP,@#TENAD1	;;; PUT REQUEST WHERE HE CAN SEE IT
    346	001752	012737 	000022 	174412 		MOV	#22,@#TENAD2	;;; SO
    347	001760	012737 	001000 	174434 		MOV	#TO10DB,@#STAT	;;; RING HIS DOORBELL
    348	001766	000777 				BR	.		;;; WAIT FOR THE RELOAD
    349					;
    350					; CHANGE STATUS TO 'TS.EXT'
    351					;
    352	001770				80$:
    353	001770	112760 	000000G	000000G		MOVB	#TS.EXT,A.TS(R0) ; SET STATUS TO 'TS.EXT'
    354	001776	012746 	000104'			MOV	#DPBDET,-(SP)	; DETACH LUN
    355	002002	104375 				EMT	375
    356	002004	103403 				BCS	90$
    357	002006	012746 	000120'			MOV	#DPBWFE,-(SP)
    358	002012	104375 				EMT	375
    359	002014				90$:
    360	002014					DECL$S
	002014	012746 				MOV	(PC)+,-(SP)
	002016	   043 	   001 			.BYTE	35.,1
	002020	104375 				EMT	375
    361					;
    362					; TERMINATED TASK MAY NOW EXIT (IF AND WHEN ALL PENDING I/O IS RUNDOWN)
    363					;
    364	002022	000137 	001274'			JMP	ATLSCN		; CHECK FOR ANOTHER TERMIANTION NOTICE REQUIRED
    365						;
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 11
TKTN -- REGISTER OUTPUT

    367						.SBTTL	TKTN -- REGISTER OUTPUT
    368
    369					;
    370					; TYPREG -- SUBROUTINE TO OUTPUT REGISTER CONTENTS IN R3
    371					;
    372					;	R1, R2, R3, & R4 ARE ALTERED
    373					;
    374	002026				TYPREG:
    375	002026	012704 	000037'			MOV	#TMPL2B,R4
    376	002032	012701 	000006 			MOV	#6.,R1
    377	002036	005002 				CLR	R2
    378	002040	006103 				ROL	R3
    379	002042	006102 				ROL	R2
    380	002044	000407 				BR	20$
    381					;
    382	002046				10$:
    383	002046	005002 				CLR	R2
    384	002050	006103 				ROL	R3
    385	002052	006102 				ROL	R2
    386	002054	006103 				ROL	R3
    387	002056	006102 				ROL	R2
    388	002060	006103 				ROL	R3
    389	002062	006102 				ROL	R2
    390	002064				20$:
    391	002064	062702 	000060 			ADD	#60,R2
    392	002070	110224 				MOVB	R2,(R4)+
    393	002072	077113 				SOB	R1,10$
    394	002074	012703 	000031'			MOV	#TMPL2,R3
    395	002100					CALL	TYPMES
	002100	004737 	002106'			JSR	PC,TYPMES
    396	002104					RETURN
	002104	000207 				RTS	PC
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 12
TKTN -- TERMINAL OUTPUT ROUTINE

    398						.SBTTL	TKTN -- TERMINAL OUTPUT ROUTINE
    399
    400					;
    401					; TYPMES -- SUBROUTINE TO TYPE MESSAGE PER R3 & R4
    402					;
    403					;	R3 -- ADDRESS OF FIRST BYTE OF MESSAGE
    404					;
    405	002106				TYPMES:
    406	002106	112337 	000100'			MOVB	(R3)+,DPBWR1+16
    407	002112	010337 	000076'			MOV	R3,DPBWR1+14
    408	002116	012746 	000062'			MOV	#DPBWR1,-(SP)
    409	002122	104375 				EMT	375
    410	002124	103403 				BCS	10$
    411	002126	012746 	000120'			MOV	#DPBWFE,-(SP)
    412	002132	104375 				EMT	375
    413	002134				10$:
    414	002134					RETURN
	002134	000207 				RTS	PC
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 13
TKTN -- KL10 ERRORS

    416						.SBTTL	TKTN -- KL10 ERRORS
    417
    418	002136				TENERS::
    419	002136	013746 	000000G			MOV	.KLITK,-(SP)	; SAVE ERROR CONDITIONS
    420	002142	005037 	000000G			CLR	.KLITK		; AVOID RECURSION
    421	002146	032716 	000000G			BIT	#KS.TSP,@SP	; TEN STOPPED
    422	002152	001406 				BEQ	10$
    423					;
    424					; KL HALTED
    425					;
    426	002154	012703 	001031'			MOV	#TENSM,R3
    427	002160					CALL	TYPMES
	002160	004737 	002106'			JSR	PC,TYPMES
    429	002164	012700 	000000G			MOV	#KL.SSC,R0
    433	002170				10$:
    434	002170	032716 	000000G			BIT	#KS.CES,@SP	; CLOCK ERROR STOP
    435	002174	001406 				BEQ	20$
    436					;
    437					; CLOCK ERROR STOP
    438					;
    439	002176	012703 	001047'			MOV	#TENCES,R3
    440	002202					CALL	TYPMES
	002202	004737 	002106'			JSR	PC,TYPMES
    442	002206	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    446	002212				20$:
    447	002212	032716 	000000G			BIT	#KS.EPE,@SP	; E-BUS PARITY ERROR??
    448	002216	001406 				BEQ	30$
    449					;
    450					; E-BUS PARITY ERROR
    451					;
    452	002220	012703 	001002'			MOV	#TENEPE,R3
    453	002224					CALL	TYPMES
	002224	004737 	002106'			JSR	PC,TYPMES
    455	002230	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    459	002234				30$:
    460	002234	032716 	000000G			BIT	#KS.DEX,@SP	; DEPOSIT/EXAMINE FAILURE?
    461	002240	001406 				BEQ	40$		; NO -- TRY NEXT
    462					;
    463					; DEPOSIT/EXAMINE FAILURE
    464					;
    465	002242	012703 	001074'			MOV	#DEXMSG,R3	; YES -- PRINT DEPOSIT/EX FAILURE
    466	002246					CALL	TYPMES
	002246	004737 	002106'			JSR	PC,TYPMES
    468	002252	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    472	002256				40$:
    473	002256	032716 	000000G			BIT	#KS.CST,@SP	; KEEP ALIVE STOPPED?
    474	002262	001410 				BEQ	50$		; NOPE
    475					;
    476					; KEEP ALIVE CEASED
    477					;
    478	002264	012700 	000000G			MOV	#KL.KAC,R0	; [4.2107] YES -- ASSUME FIRST FAILURE
    479	002270	105737 	000001G			TSTB	.KPAC+1		; [4.2107] FIRST KEEP ALIVE CEASE??
    480	002274	002003 				BGE	50$		; [4.2107]  YES -- GO ON
    481						;
    482	002276				45$:				; [4.2107]
    483	002276	012703 	001143'			MOV	#KEPST,R3	; COMPLAIN
    484	002302	000405 				BR	60$		; PRINT MESSAGE AND SETUP ".KLIWD" FLAGS
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 13-1
TKTN -- KL10 ERRORS

    485						;
    486	002304				50$:
    487	002304	032716 	000000G			BIT	#KS.PTO,@SP	; PROTOCOL TIMEOUT??
    488	002310	001406 				BEQ	70$		; NO -- GO ON
    489					;
    490					; PROTOCOL TIMEOUT
    491					;
    492	002312	012703 	001171'			MOV	#PRTIMO,R3	; MESSAGE POINER TO R3
    493	002316				60$:
    494	002316					CALL	TYPMES		; PRINT ERROR MESSAGE
	002316	004737 	002106'			JSR	PC,TYPMES
    496	002322	012700 	000000G			MOV	#KL.SSC,R0
    500	002326				70$:
    501	002326	032716 	000000G			BIT	#KS.TRR,@SP	; TEN REQUEST'S RELOAD?
    502	002332	001406 				BEQ	80$		;  NO -- TRY NEXT
    503					;
    504					; RELOAD KL10
    505					;
    506	002334	012703 	001216'			MOV	#TRRB,R3	; SET TEN REQUESTED REBOOT
    507	002340					CALL	TYPMES
	002340	004737 	002106'			JSR	PC,TYPMES
    508	002344	012700 	000000C			MOV	#KL.LVB!KL.VBN!KL.VBD,R0
    509	002350				80$:
    510	002350	032716 	000000G			BIT	#KS.PFT,@SP	; POWER FAIL RESTART?
    511	002354	001406 				BEQ	90$		; NO -- JUST EXIT
    512					;
    513					; POWER-FAIL RESTART
    514					;
    515	002356	012703 	001244'			MOV	#KEPFT,R3	; POWER FAIL ERROR
    516	002362					CALL	TYPMES		; TYPE MESSAGE
	002362	004737 	002106'			JSR	PC,TYPMES
    517	002366	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SPF,R0
    518	002372				90$:
    519	002372	010046 				MOV	R0,-(SP)	; SAVE .KLIWD SETTINGS.
    520	002374				100$:
    521	002374	032716 	000000G			BIT	#KL.KAC,(SP)	; [4.2107] KEEP-ALIVE RETRY??
    522	002400	001013 				BNE	110$		; [4.2107] YES -- LEAVE TO-10 QUEUE ALONE
    523	002402	012704 	000000G			MOV	#TO10Q,R4	; RETURN NODES FROM Q AFTER CRASH/RELOAD
    524	002406					CALL	..PICK
	002406	004737 	000000G			JSR	PC,..PICK
    525	002412	103406 				BCS	110$		; QUIT IF NONE FOUND
    526	002414	016401 	000004 			MOV	4(R4),R1	; FIND THE SIZE OF THE NODE
    527	002420	010400 				MOV	R4,R0		; POINT TO  THE NODE
    528	002422					CALL	..DECB		; RETURN IT
	002422	004737 	000000G			JSR	PC,..DECB
    529	002426	000762 				BR	100$		; AND TRY FOR MORE
    530						;
    531	002430				110$:
    532	002430	012600 				MOV	(SP)+,R0	; RESTORE .KLIWD SETTINGS.
    533	002432	032700 	000000G			BIT	#KL.LRM,R0	; RELOAD RAMS??
    534	002436	001403 				BEQ	120$		; NO -- GO ON
    535	002440	052737 	000000G	000002G		BIS	#EF.CRI,.COMEF+2 ; YES -- COMM REGION IS DEAD
    536	002446				120$:
    537	002446	022700 	000000G			CMP	#KL.KAC,R0	; [4.2107] FIRST KEEP ALIVE ERROR?
    538	002452	001434 				BEQ	130$		; [4.2107] YES -- REQUEST KLI ONLY
    539	002454	105737 	000000G			TSTB	.KLRLD		; IF NO RELOAD, THEN
    540	002460	001056 				BNE	140$		; BYPASS KLE & KLI REQUESTS
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 13-2
TKTN -- KL10 ERRORS

    541	002462	005737 	000000G			TST	SNDMSG		; [5.1127] IF HOST DEBUG MODE
    542	002466	100453 				BMI	140$		; [5.1127] BYPASS KLE & KLI REQUESTS
    543	002470	032716 	000000C			BIT	#KS.TSP!KS.CES!KS.DEX!KS.EPE!KS.CST!KS.PTO,(SP) ; IF NECESSARY
    544	002474	001423 				BEQ	130$		; THEN
    545	002476	005237 	000000G			INC	.KLERQ		; [5.1006] SAY SNAPSHOT NECESSARY
    546	002502					RQST$S	#...KLE		; SCHEDULE KLERR
	002502	005046 				CLR	-(SP)
	002504	005046 				CLR	-(SP)
	002506	005046 				CLR	-(SP)
	002510	005046 				CLR	-(SP)
	002512	012746 	000776'			MOV	#...KLE,-(SP)
	002516	017646 	000000 			MOV	@(SP),-(SP)
	002522	062766 	000002 	000002 		ADD	#2,2(SP)
	002530	017666 	000002 	000002 		MOV	@2(SP),2(SP)
	002536	012746 				MOV	(PC)+,-(SP)
	002540	   013 	   007 			.BYTE	11.,7
	002542	104375 				EMT	375
    547	002544				130$:
    548	002544	052700 	000000G			BIS	#KL.REQ,R0	; [4.1.1049] SET KLI REQUESTED
    549	002550	010037 	000000G			MOV	R0,.KLIWD	; OR SET KLI FLAGS
    550	002554					RQST$S	#...KLI		; AND SCHEDULE KLINIT.
	002554	005046 				CLR	-(SP)
	002556	005046 				CLR	-(SP)
	002560	005046 				CLR	-(SP)
	002562	005046 				CLR	-(SP)
	002564	012746 	000772'			MOV	#...KLI,-(SP)
	002570	017646 	000000 			MOV	@(SP),-(SP)
	002574	062766 	000002 	000002 		ADD	#2,2(SP)
	002602	017666 	000002 	000002 		MOV	@2(SP),2(SP)
	002610	012746 				MOV	(PC)+,-(SP)
	002612	   013 	   007 			.BYTE	11.,7
	002614	104375 				EMT	375
    551	002616				140$:
    552	002616					EXIT$S
	002616	012746 				MOV	(PC)+,-(SP)
	002620	   063 	   001 			.BYTE	51.,1
	002622	104375 				EMT	375
    553
    554		001274'				.END	START
TASK TERMINATION NOTIFICATION	MACRO M1113  10-NOV-81 18:14  PAGE 13-3
SYMBOL TABLE

ATLSCN  001274R  	KL.LCA= ****** GX	MESS22  000514R  	TENAD1= 174410   	$DBDTE= 000001
A.FM  = ****** GX	KL.LRM= ****** GX	MESS24  000521R  	TENAD2= 174412   	$DH11 = 000001
A.SP  = ****** GX	KL.LVB= ****** GX	MESS26  000526R  	TENCES  001047R  	$DTE  = 000001
A.TD  = ****** GX	KL.REQ= ****** GX	MESS30  000533R  	TENEPE  001002R  	$FE   = 000001
A.TS  = ****** GX	KL.SPF= ****** GX	MESS32  000561R  	TENERS  002136RG 	$F11  = 000001
BEGMT   000124R  	KL.SSC= ****** GX	MESS34  000607R  	TENSM   001031R  	$LP20 = 000001
DAG1  = 000030   	KL.VBD= ****** GX	MESS36  000646R  	TMPL1   000000R  	$RP04 = 000001
DAG2  = 000032   	KL.VBN= ****** GX	MESS40  000672R  	TMPL1A  000007R  	$RX11 = 000001
DAG3  = 000036   	KS.CES= ****** GX	MESS42  000726R  	TMPL2   000031R  	$TOP10= 000001
DEP   = 010000   	KS.CST= ****** GX	MESS44  000771R  	TMPL2A  000034R  	$T1091= 000001
DEXMSG  001074R  	KS.DEX= ****** GX	PRTIMO  001171R  	TMPL2B  000037R  	$$    = 000037
DEXWD1= 174402   	KS.EPE= ****** GX	PS    = ****** GX	TMPL3   000045R  	$$$T2 = 000027
DPBATT  000046R  	KS.PFT= ****** GX	PSEXP = 177776   	TNAD1 = 000010   	.ATLLH= ****** GX
DPBDET  000104R  	KS.PTO= ****** GX	RSX$$E= 000045   	TNAD2 = 000012   	.COMEF= ****** GX
DPBWFE  000120R  	KS.TRR= ****** GX	RSX$$F= 000105   	TN.LRF= ****** GX	.KLERQ= ****** GX
DPBWR1  000062R  	KS.TSP= ****** GX	RSX$$K= 000126   	TO10DB= 001000   	.KLERW= ****** GX
DXWD1 = 000006   	LUN   = 000001   	RSX$$V= 000014   	TO10Q = ****** GX	.KLITK= ****** GX
DXWD2 = 000004   	L$$P20= 000002   	R$$11D= 000001   	TRRB    001216R  	.KLIWD= ****** GX
DXWD3 = 000002   	MESS00  000172R  	SF.ST = ****** GX	TS.EXT= ****** GX	.KLRLD= ****** GX
D$$H11= 000010   	MESS02  000231R  	SNDMSG= ****** GX	TS.TKN= ****** GX	.KPAC = ****** GX
EF.CRI= ****** GX	MESS04  000263R  	START   001274RG 	TYPMES  002106R  	..DECB= ****** GX
ENDMT = 000024   	MESS06  000321R  	STAT  = 174434   	TYPREG  002026R  	..ENB0= ****** GX
FORPRO= 000020   	MESS10  000341R  	STATD = 000034   	T10AD = 000020   	..PICK= ****** GX
KEPFT   001244R  	MESS12  000372R  	STATUS= 000022   	T11AD = 000022   	..RDTA= ****** GX
KEPST   001143R  	MESS14  000422R  	STSTT = ****** GX	T11BC = 000016   	...KLE  000776R
KL.CFM= ****** GX	MESS16  000443R  	S.FW  = ****** GX	$CD11 = 000001   	...KLI  000772R
KL.KAC= ****** GX	MESS20  000470R  	S.TN  = ****** GX

. ABS.	000000	   000
      	002624	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  2390 WORDS  ( 10 PAGES)
DYNAMIC MEMORY:  3566 WORDS  ( 13 PAGES)
ELAPSED TIME:  00:00:19
[47,10]TKTN,[47,20]TKTN/-SP/CR=[20,30]RSXFC/PA:1,[100,30]DTESSS,[47,30]TKTN
TKTN       CREATED BY  MACRO  ON 10-NOV-81 AT 18:14	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ATLSCN	  001274 R	#10-253     10-364    
A.FM  	= ******  GX	 10-290    
A.SP  	= ******  GX	 10-302     10-311     10-333    
A.TD  	= ******  GX	 10-281     10-339    
A.TS  	= ******  GX	 10-271    *10-353    
BEGMT 	  000124 R	#9-132      10-298    
DAG1  	= 000030	#3-62      
DAG2  	= 000032	#3-61      
DAG3  	= 000036	#3-59      
DEP   	= 010000	#8-70       10-345    
DEXMSG	  001074 R	 9-227     #9-229      13-465    
DEXWD1	= 174402	#8-71      *10-344    
DPBATT	  000046 R	#9-102     
DPBDET	  000104 R	#9-119      10-354    
DPBWFE	  000120 R	#9-126      10-357     12-411    
DPBWR1	  000062 R	#9-109     *12-406    *12-407     12-408    
DXWD1 	= 000006	#3-68      
DXWD2 	= 000004	#3-69      
DXWD3 	= 000002	#3-70      
EF.CRI	= ******  GX	 13-535    
ENDMT 	= 000024	#9-152      10-291    
FORPRO	= 000020	#8-79      
KEPFT 	  001244 R	 9-239     #9-241      13-515    
KEPST 	  001143 R	 9-230     #9-232      13-483    
KL.CFM	= ******  GX	 13-442     13-455     13-468     13-517    
KL.KAC	= ******  GX	 13-478     13-521     13-537    
KL.LCA	= ******  GX	 13-442     13-455     13-468     13-517    
KL.LRM	= ******  GX	 13-442     13-455     13-468     13-517     13-533    
KL.LVB	= ******  GX	 13-508    
KL.REQ	= ******  GX	 13-548    
KL.SPF	= ******  GX	 13-517    
KL.SSC	= ******  GX	 13-429     13-442     13-455     13-468     13-496    
KL.VBD	= ******  GX	 13-508    
KL.VBN	= ******  GX	 13-508    
KS.CES	= ******  GX	 13-434     13-543    
KS.CST	= ******  GX	 13-473     13-543    
KS.DEX	= ******  GX	 13-460     13-543    
KS.EPE	= ******  GX	 13-447     13-543    
KS.PFT	= ******  GX	 13-510    
KS.PTO	= ******  GX	 13-487     13-543    
KS.TRR	= ******  GX	 13-501    
KS.TSP	= ******  GX	 13-421     13-543    
LUN   	= 000001	#8-78       9-105      9-112      9-122     
MESS00	  000172 R	 9-133     #9-154     
MESS02	  000231 R	 9-134      9-155     #9-157     
MESS04	  000263 R	 9-135      9-158     #9-160     
MESS06	  000321 R	 9-136      9-161     #9-163     
MESS10	  000341 R	 9-137      9-164     #9-166     
MESS12	  000372 R	 9-138      9-167     #9-169     
MESS14	  000422 R	 9-139      9-170     #9-172     
MESS16	  000443 R	 9-140      9-173     #9-175     
MESS20	  000470 R	 9-141      9-176     #9-178     
TKTN       CREATED BY  MACRO  ON 10-NOV-81 AT 18:14	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MESS22	  000514 R	 9-142      9-179     #9-181     
MESS24	  000521 R	 9-143      9-182     #9-184     
MESS26	  000526 R	 9-144      9-185     #9-187     
MESS30	  000533 R	 9-145      9-188     #9-190     
MESS32	  000561 R	 9-146      9-191     #9-193     
MESS34	  000607 R	 9-147      9-194     #9-196     
MESS36	  000646 R	 9-148      9-197     #9-199     
MESS40	  000672 R	 9-149      9-200     #9-202     
MESS42	  000726 R	 9-150      9-203     #9-205     
MESS44	  000771 R	 9-151      9-206     #9-208     
PRTIMO	  001171 R	 9-233     #9-235      13-492    
PS    	= ******  GX	 10-254    *10-254     10-343    *10-343    
PSEXP 	= 177776	#8-76      
RSX$$E	= 000045	#3-34      
RSX$$F	= 000105	#3-42      #3-47       3-53       7-3        7-3       
RSX$$K	= 000126	#3-38      
RSX$$V	= 000014	#3-33      
SF.ST 	= ******  GX	 10-340    
SNDMSG	= ******  GX	 13-541    
START 	  001274 RG	#10-252     13-554    
STAT  	= 174434	#8-75      *10-347    
STATD 	= 000034	#3-60      
STATUS	= 000022	#8-80      
STSTT 	= ******  GX	*10-342    
S.FW  	= ******  GX	 10-340    
S.TN  	= ******  GX	 10-282    
TENAD1	= 174410	#8-72      *10-345    
TENAD2	= 174412	#8-73      *10-346    
TENCES	  001047 R	 9-224     #9-226      13-439    
TENEPE	  001002 R	#9-220      13-452    
TENERS	  002136 RG	 10-265    #13-418    
TENSM 	  001031 R	 9-221     #9-223      13-426    
TMPL1 	  000000 R	#9-84       10-285    
TMPL1A	  000007 R	#9-87       10-283    
TMPL2 	  000031 R	 9-85      #9-89       11-394    
TMPL2A	  000034 R	#9-92      *10-304    *10-305    *10-308    *10-312    *10-313    *10-316    *10-319    *10-322    
                        *10-325    *10-328    *10-331    *10-332    
TMPL2B	  000037 R	#9-94       11-375    
TMPL3 	  000045 R	 9-90      #9-96      
TNAD1 	= 000010	#3-66      
TNAD2 	= 000012	#3-67      
TN.LRF	= ******  GX	 10-300    
TO10DB	= 001000	#8-74       10-347    
TO10Q 	= ******  GX	 13-523    
TRRB  	  001216 R	 9-236     #9-238      13-506    
TS.EXT	= ******  GX	 10-353    
TS.TKN	= ******  GX	 10-271    
TYPMES	  002106 R	 10-286     10-286     10-299     10-299     11-395     11-395    #12-405     13-427     13-427    
                         13-440     13-440     13-453     13-453     13-466     13-466     13-494     13-494     13-507    
                         13-507     13-516     13-516    
TYPREG	  002026 R	 10-307     10-307     10-310     10-310     10-315     10-315     10-318     10-318     10-321    
                         10-321     10-324     10-324     10-327     10-327     10-330     10-330     10-334     10-334    
TKTN       CREATED BY  MACRO  ON 10-NOV-81 AT 18:14	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #11-374    
T10AD 	= 000020	#3-64      
T11AD 	= 000022	#3-63      
T11BC 	= 000016	#3-65      
$TOP10	= 000001	 3-43       13-428     13-441     13-454     13-467     13-495    
$TOP20	= ******	 3-50      
$T1091	= 000001	 3-44      
$$    	= 000037	#10-261     10-261    #10-273     10-273    #10-284     10-284    #10-286     10-286    #10-299    
                         10-299    #10-307     10-307    #10-310     10-310    #10-315     10-315    #10-318     10-318    
                        #10-321     10-321    #10-324     10-324    #10-327     10-327    #10-330     10-330    #10-334    
                         10-334    #11-395     11-395    #13-427     13-427    #13-440     13-440    #13-453     13-453    
                        #13-466     13-466    #13-494     13-494    #13-507     13-507    #13-516     13-516    #13-524    
                         13-524    #13-528     13-528    
$$$T2 	= 000027	#13-546     13-546    #13-550     13-550    
.ATLLH	= ******  GX	 10-256     10-259    
.COMEF	= ******  GX	*13-535    
.KLERQ	= ******  GX	*13-545    
.KLERW	= ******  GX	*10-264    
.KLITK	= ******  GX	 10-262     10-264     13-419    *13-420    
.KLIWD	= ******  GX	*13-549    
.KLRLD	= ******  GX	 13-539    
.KPAC 	= ******  GX	 13-479    
..DECB	= ******  GX	 13-528     13-528    
..ENB0	= ******  GX	 10-261     10-261     10-273     10-273    
..PICK	= ******  GX	 13-524     13-524    
..RDTA	= ******  GX	 10-284     10-284    
...KLE	  000776 R	#9-214      13-546     13-546    
...KLI	  000772 R	#9-211      13-550     13-550    
TKTN       CREATED BY  MACRO  ON 10-NOV-81 AT 18:14	PAGE 4

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#8-67      #10-261    #10-273    #10-284    #10-286    #10-299    #10-307    #10-310    #10-315    #10-318    
                #10-321    #10-324    #10-327    #10-330    #10-334    #11-395    #13-427    #13-440    #13-453    #13-466    
                #13-494    #13-507    #13-516    #13-524    #13-528    
DECL$S		#8-67       10-360    
DIR$  		#10-268    #10-268    #10-360    #10-360    #13-546    #13-546    #13-550    #13-550    #13-552    #13-552    
ERR$  		#10-268    #10-360    #13-546    #13-550    #13-552    
EXIT$S		#8-67      #10-268    #13-552    
IDENT$		#4-81      #7-3       #7-3       
MOV$  		#10-360    #13-546     13-546    #13-550     13-550    
MVB$  		#13-546    #13-546    #13-550    #13-550    
RETURN		#8-67      #11-396    #12-414    
RFA$  		#13-546     13-546     13-546    #13-550     13-550     13-550    
RQST$S		#8-67      #13-546    #13-550    
WSIG$S		#8-67      
.ENB  		#8-68      
.ENB0 		#8-67       10-261     10-273    
.ENB6 		#8-67      
.INH  		#8-68      
.INH0 		#8-67      #10-254    
.INH6 		#8-67      #10-343    
RSX20F -- RESIDENT EXECUTIVE   	MACRO M1113  14-APR-81 10:37  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 M1113  14-APR-81 10:37  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 M1113  14-APR-81 10:37  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 M1113  14-APR-81 10:37  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:  2518 WORDS  ( 9 PAGES)
ELAPSED TIME:  00:00:03
[47,10]RDTA,[47,20]RDTA/-SP/CR=[47,30]RDTA
RDTA       CREATED BY  MACRO  ON 14-APR-81 AT 10:37	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ASCF  	  000172 R	 3-90      #3-112     
DOLR  	  000156 R	 3-94      #3-107     
MULP  	  000074 R	#3-85       3-98      
MUU   	  000132 R	 3-88      #3-96       3-108      3-111      3-113     
PRIOD 	  000164 R	 3-92      #3-110     
RDLPA 	  000014 R	#3-67       3-86      
$DIV  	= ******  GX	 3-75       3-75       3-78       3-78      
$$    	= 000067	#3-75       3-75      #3-78       3-78      
..RDTA	  000000 RG	#3-61      
RDTA       CREATED BY  MACRO  ON 14-APR-81 AT 10:37	PAGE 2

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#3-57       3-75       3-78      
RETURN		#3-57       3-105