Google
 

Trailing-Edge - PDP-10 Archives - tops10_tools_bb-fp64b-sb - 10,7/rsx20f/rsxtol/tktn.l91
There are 3 other files named tktn.l91 in the archive. Click here to see a list.
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59
Table of contents

     8-    2	TKTN -- TITLE PAGE
     9-   73	TKTN -- MACROS AND DEFINITIONS
    10-   90	TKTN -- LOCAL DATA
    11-  258	TKTN -- ATL SCAN
    12-  379	TKTN -- REGISTER OUTPUT
    13-  410	TKTN -- TERMINAL OUTPUT ROUTINE
    14-  428	TKTN -- KL10 ERRORS
RSX20F	-- RESIDENT EXECUTIVE (	MACRO V05.04  Tuesday 17-May-88 09:59  Page 2


      1						.TITLE	RSX20F	-- RESIDENT EXECUTIVE (SYSTEM DEFINITION)
      2						.IDENT	/016000/
      3						.ENABL	AMA
      4						.LIST	MEB
      5						.NLIST	CND
      6					;
      7					;                             COPYRIGHT (C) 1975, 1984, 1985 BY
      8					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
      9					;			ALL RIGHTS RESERVED
     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 16-00
     26					;
     27					; MODIFIED BY:
     28					;
     29					; A. Puchrik	27-Jan-88	; bump to version 16-00
     30					;
RSX20F	-- RESIDENT EXECUTIVE (	MACRO V05.04  Tuesday 17-May-88 09:59  Page 3


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


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


    125
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 7


      1						.TITLE	TASK TERMINATION NOTIFICATION
      2						.SBTTL	TKTN -- TITLE PAGE
      3	000000					IDENT$	15,05,RSX$$F
						.IDENT	/E15050/
      4					;
      5					;                             COPYRIGHT (C) 1973, 1983, 1985 BY
      6					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
      7					;			ALL RIGHTS RESERVED.
      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 V05.04  Tuesday 17-May-88 09:59  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
     64					;
     65					;09-Jun-83  TCO 6.1675	D. Weaver
     66					;	Put the appropriate error code in .ERRCD when we output the error
     67					;	message.
     68					;04-Aug-83		D. Weaver
     69					;	Clear .ERRCD if there is no KL error.
     70					;
     71					;
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 8
TKTN -- MACROS AND DEFINITIONS

     73						.SBTTL	TKTN -- MACROS AND DEFINITIONS
     74
     75						.MCALL	CALL,RETURN,.INH0,.ENB0,EXIT$S,DECL$S,RQST$S,.INH6,.ENB6,WSIG$S
     76						.MCALL	.INH,.ENB
     77
     78		010000 			DEP=010000	; DEPOSIT
     79		174402 			DEXWD1=174402	; DEPOSIT EXAMINE WORD 1
     80		174410 			TENAD1=174410
     81		174412 			TENAD2=174412
     82		001000 			TO10DB=1000	; TO 10 DOORBELL
     83		174434 			STAT=174434
     84		177776 			PSEXP=177776
     85
     86		000001 			LUN=1
     87		000020 			FORPRO=20	; ADDRESS OF REGION
     88		000022 			STATUS=22
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 9
TKTN -- LOCAL DATA

     90						.SBTTL	TKTN -- LOCAL DATA
     91
     92	000000				TMPL1:
     93	000000	   030 				.BYTE	TMPL2-.-1
     94	000001	   124 	   101 	   123 		.ASCII	'TASK "'
	000004	   113 	   040 	   042
     95	000007				TMPL1A:
     96	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
     97	000031				TMPL2:
     98	000031	   013 				.BYTE	TMPL3-.-1
     99	000032	   040 	   040 			.ASCII	"  "
    100	000034				TMPL2A:
    101	000034	   122 	   122 	   075 		.ASCII	"RR="
    102	000037				TMPL2B:
    103	000037	   130 	   130 	   130 		.ASCII	"XXXXXX"
	000042	   130 	   130 	   130
    104	000045				TMPL3:
    105						.EVEN
    106					;
    107					; DIRECTIVE PARAMETER BLOCKS
    108					;
    109					;
    110	000046				DPBATT:
    111	000046	   001 	   006 			.BYTE	1.,6.		; ATTACH LUN
    112	000050	001400 				.WORD	1400
    113	000052	000001 				.WORD	LUN
    114	000054	   000 	   000 			.BYTE	0,0
    115	000056	000000 	000000 			.WORD	0,0
    116					;
    117	000062				DPBWR1:
    118	000062	   001 	   011 			.BYTE	1.,9.		; WRITE TO LUN
    119	000064	000400 				.WORD	0400
    120	000066	000001 				.WORD	LUN
    121	000070	   040 	   000 			.BYTE	32.,0
    122	000072	000000 	000000 			.WORD	0,0
    123	000076	000000 				.WORD	0
    124	000100	000000 				.WORD	0
    125	000102	000040 				.WORD	40
    126					;
    127	000104				DPBDET:
    128	000104	   001 	   006 			.BYTE	1.,6.		; DETACH FROM LUN
    129	000106	002000 				.WORD	2000
    130	000110	000001 				.WORD	LUN
    131	000112	   040 	   000 			.BYTE	32.,0
    132	000114	000000 	000000 			.WORD	0,0
    133					;
    134	000120				DPBWFE:
    135	000120	   051 	   002 			.BYTE	41.,2.		; WAITFOR EFN 32.
    136	000122	000040 				.WORD	32.
    137					;
    138					; MESSAGE TABLES & TEXT
    139					;
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 9-1
TKTN -- LOCAL DATA

    140	000124				BEGMT:
    141	000124	000172'				.WORD	MESS00		; TERMINATION MESSAGE TABLE
    142	000126	000231'				.WORD	MESS02
    143	000130	000263'				.WORD	MESS04
    144	000132	000321'				.WORD	MESS06
    145	000134	000341'				.WORD	MESS10
    146	000136	000372'				.WORD	MESS12
    147	000140	000422'				.WORD	MESS14
    148	000142	000443'				.WORD	MESS16
    149	000144	000470'				.WORD	MESS20
    150	000146	000514'				.WORD	MESS22
    151	000150	000521'				.WORD	MESS24
    152	000152	000526'				.WORD	MESS26
    153	000154	000533'				.WORD	MESS30
    154	000156	000561'				.WORD	MESS32
    155	000160	000607'				.WORD	MESS34
    156	000162	000646'				.WORD	MESS36
    157	000164	000672'				.WORD	MESS40
    158	000166	000726'				.WORD	MESS42
    159	000170	000771'				.WORD	MESS44
    160		000024 			ENDMT=24
    161
    162	000172				MESS00:
    163	000172	   036 				.BYTE	MESS02-.-1
    164	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
    165	000231				MESS02:
    166	000231	   031 				.BYTE	MESS04-.-1
    167	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
    168	000263				MESS04:
    169	000263	   035 				.BYTE	MESS06-.-1
    170	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 V05.04  Tuesday 17-May-88 09:59  Page 9-2
TKTN -- LOCAL DATA

    171	000321				MESS06:
    172	000321	   017 				.BYTE	MESS10-.-1
    173	000322	   042 	   111 	   117 		.ASCII	'"IOT" EXECUTION'
	000325	   124 	   042 	   040
	000330	   105 	   130 	   105
	000333	   103 	   125 	   124
	000336	   111 	   117 	   116
    174	000341				MESS10:
    175	000341	   030 				.BYTE	MESS12-.-1
    176	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
    177	000372				MESS12:
    178	000372	   027 				.BYTE	MESS14-.-1
    179	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
    180	000422				MESS14:
    181	000422	   020 				.BYTE	MESS16-.-1
    182	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
    183	000443				MESS16:
    184	000443	   024 				.BYTE	MESS20-.-1
    185	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
    186	000470				MESS20:
    187	000470	   023 				.BYTE	MESS22-.-1
    188	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
    189	000514				MESS22:
    190	000514	   004 				.BYTE	MESS24-.-1
    191	000515	   106 	   060 	   061 		.ASCII	"F014"
	000520	   064
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 9-3
TKTN -- LOCAL DATA

    192	000521				MESS24:
    193	000521	   004 				.BYTE	MESS26-.-1
    194	000522	   106 	   060 	   061 		.ASCII	"F013"
	000525	   063
    195	000526				MESS26:
    196	000526	   004 				.BYTE	MESS30-.-1
    197	000527	   106 	   060 	   061 		.ASCII	"F012"
	000532	   062
    198	000533				MESS30:
    199	000533	   025 				.BYTE	MESS32-.-1
    200	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
    201	000561				MESS32:
    202	000561	   025 				.BYTE	MESS34-.-1
    203	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
    204	000607				MESS34:
    205	000607	   036 				.BYTE	MESS36-.-1
    206	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
    207	000646				MESS36:
    208	000646	   023 				.BYTE	MESS40-.-1
    209	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
    210	000672				MESS40:
    211	000672	   033 				.BYTE	MESS42-.-1
    212	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 V05.04  Tuesday 17-May-88 09:59  Page 9-4
TKTN -- LOCAL DATA

	000723	   122 	   122 	   051
    213	000726				MESS42:
    214	000726	   042 				.BYTE	MESS44-.-1
    215	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
    216	000771				MESS44:
    217						.EVEN
    218					;
    219	000772				...KLI:
    220
    221	000772	131574 	043251 			.RAD50	/...KLI/
    222	000776				...KLE:
    223
    224	000776	062072 	073632 			.RAD50	/PARSER/
    225					;
    226					; KL ERROR MESSAGES
    227					;
    228	001002				TENEPE:
    229	001002	   026 				.BYTE	TENSM-.-1
    230	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
    231	001031				TENSM:
    232	001031	   015 				.BYTE	TENCES-.-1
    233	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
    234	001047				TENCES:
    235	001047	   024 				.BYTE	DEXMSG-.-1
    236	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
    237	001074				DEXMSG:
    238	001074	   046 				.BYTE	KEPST-.-1
    239	001075	   015 	   012 	   120 		.ASCII	<15><12>/PI LEVEL 0 INTERRUPT FAILURE (DEX)/<12><15>
	001100	   111 	   040 	   114
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  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
    240	001143				KEPST:
    241	001143	   025 				.BYTE	PRTIMO-.-1
    242	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
    243	001171				PRTIMO:
    244	001171	   024 				.BYTE	TRRB-.-1
    245	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
    246	001216				TRRB:
    247	001216	   025 				.BYTE	KEPFT-.-1
    248	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
    249	001244				KEPFT:
    250	001244	   026 				.BYTE	FCFMSG-.-1
    251	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
    252	001273				FCFMSG:
    253	001273	   036 				.BYTE	1$-.-1
    254	001274	   015 	   012 	   106 		.ASCII	<15><12>/FAULT-CONTINUATION TIMEOUT/<15><12>
	001277	   101 	   125 	   114
	001302	   124 	   055 	   103
	001305	   117 	   116 	   124
	001310	   111 	   116 	   125
	001313	   101 	   124 	   111
	001316	   117 	   116 	   040
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 9-6
TKTN -- LOCAL DATA

	001321	   124 	   111 	   115
	001324	   105 	   117 	   125
	001327	   124 	   015 	   012
    255	001332				1$:
    256						.EVEN
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 10
TKTN -- ATL SCAN

    258						.SBTTL	TKTN -- ATL SCAN
    259
    260					;
    261					; SCAN ATL FOR TASK(S) WITH A STATUS OF "SUSPENDED FOR TERMINATION NOTIFICATION"
    262					;
    263	001332				START::
    264	001332				ATLSCN:
    265	001332					.INH0			; PUSH PRE-INHIBIT PS ONTO STACK (FOR ..ENB0)
	001332	013746 	000000G			MOV	@#PS,-(SP)
	001336	112737 	000140 	000000G		MOVB	#140,@#PS
    266									;; INHIBIT TASK SWITCHING (RAISE PRI=3)
    267	001344	012700 	000000G			MOV	#.ATLLH,R0	;; USE R0 TO SCAN THE ATL
    268	001350				10$:
    269	001350	011000 				MOV	@R0,R0		;; ADVANCE R0 TO POINT TO NEXT ATL NODE
    270	001352	020027 	000000G			CMP	R0,#.ATLLH	;; END OF ATL?
    271	001356	001017 				BNE	20$		;;
    272	001360					.ENB0
	001360	004737 	000000G			JSR	PC,..ENB0
    273	001364	005037 	000000G			CLR	.ERRCD		; CLEAR ANY PREVIOUS ERROR
    274	001370	005737 	000000G			TST	.KLITK		; CHECK TO SEE IF TEN ERROR STOP
    275	001374	001405 				BEQ	77$
    276	001376	053737 	000000G	000000G		BIS	.KLITK,.KLERW	; RECORD THE ERROR FOR SETSPD REPORT
    277	001404	000137 	002200'			JMP	TENERS		; YES -- BETTER OUTPUT MESSAGE AND DO SOMETHING ABOUT IT
    278						;
    279	001410				77$:
    280	001410					EXIT$S
	001410	012746 				MOV	(PC)+,-(SP)
	001412	   063 	   001 			.BYTE	51.,1
	001414	104375 				EMT	375
    281
    282	001416				20$:
    283	001416	126027 	000000G	000000G		CMPB  A.TS(R0),#TS.TKN	;; IS TASK SUPSENDED FOR TERMINTION NOTICE?
    284	001424	001351 				BNE	10$		;; NO -- CHECK NEXT ATL NODE
    285	001426					.ENB0			;; YES -- ENABLE TASK SWITCHING, AND OUTPUT NOTIC
	001426	004737 	000000G			JSR	PC,..ENB0
    286					;
    287					; TERMINATION INFORMATION IS CODED INTO 'A.FM+0' AS FOLLOWS:
    288					;
    289					;	IF BIT-8 IS SET, THE LOW ORDER BYTE CONTAINS A TERMINATION MESSAGE CODE
    290					;	IF BIT-9 IS SET, AN I/O RUNDOWN MESSAGE IS TO BE OUTPUT
    291					;
    292	001432	012701 	000006 			MOV	#6.,R1		; CONVERT TASK NAME FROM RADIX-50 TO ASCII
    293	001436	016002 	000000G			MOV	A.TD(R0),R2	; AND STORE IN OUTPUT TEXT STRING.
    294	001442	062702 	000000G			ADD	#S.TN,R2
    295	001446	012703 	000007'			MOV	#TMPL1A,R3
    296	001452					CALL	..RDTA
	001452	004737 	000000G			JSR	PC,..RDTA
    297	001456	012703 	000000'			MOV	#TMPL1,R3	; TYPE TASK NAME LINE
    298	001462					CALL	TYPMES
	001462	004737 	002150'			JSR	PC,TYPMES
    299					;
    300					; OUTPUT TERMINATION NOTICE PER LOW ORDER 'A.FM+0' IF BIT-8 IS SET
    301					;
    302	001466	116001 	000000G			MOVB	A.FM+0(R0),R1	; SET R1 TO TERMINATION MESSAGE CODE (INDEX).
    303	001472	020127 	000024 			CMP	R1,#ENDMT
    304	001476	101003 				BHI	30$
    305	001500	032701 	000001 			BIT	#1,R1
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 10-1
TKTN -- ATL SCAN

    306	001504	001402 				BEQ	40$
    307	001506				30$:
    308	001506	012701 	000026 			MOV	#26,R1
    309	001512				40$:
    310	001512	016103 	000124'			MOV	BEGMT+0(R1),R3	; TYPE MESSAGE PER R1
    311	001516					CALL	TYPMES
	001516	004737 	002150'			JSR	PC,TYPMES
    312	001522	020127 	000000G			CMP	R1,#TN.LRF	; NO REG OUTPUT IF LOAD REQ FAILURE
    313	001526	001541 				BEQ	80$
    314	001530	016005 	000000G			MOV	A.SP(R0),R5	; FIND USER'S STACK
    315	001534	062705 	000014 			ADD	#14,R5
    316	001540	112737 	000120 	000034'		MOVB	#'P,TMPL2A	; OUTPUT PC
    317	001546	112737 	000103 	000035'		MOVB	#'C,TMPL2A+1
    318	001554	012503 				MOV	(R5)+,R3
    319	001556					CALL	TYPREG
	001556	004737 	002070'			JSR	PC,TYPREG
    320	001562	112737 	000123 	000035'		MOVB	#'S,TMPL2A+1	; OUTPUT PS
    321	001570	012503 				MOV	(R5)+,R3	; (POP PS)
    322	001572					CALL	TYPREG
	001572	004737 	002070'			JSR	PC,TYPREG
    323	001576	016005 	000000G			MOV	A.SP(R0),R5
    324	001602	112737 	000122 	000034'		MOVB	#'R,TMPL2A	; OUTPUT R0
    325	001610	112737 	000060 	000035'		MOVB	#'0,TMPL2A+1
    326	001616	012503 				MOV	(R5)+,R3
    327	001620					CALL	TYPREG
	001620	004737 	002070'			JSR	PC,TYPREG
    328	001624	112737 	000061 	000035'		MOVB	#'1,TMPL2A+1	; OUTPUT R1
    329	001632	012503 				MOV	(R5)+,R3
    330	001634					CALL	TYPREG
	001634	004737 	002070'			JSR	PC,TYPREG
    331	001640	112737 	000062 	000035'		MOVB	#'2,TMPL2A+1	; OUTPUT R2
    332	001646	012503 				MOV	(R5)+,R3
    333	001650					CALL	TYPREG
	001650	004737 	002070'			JSR	PC,TYPREG
    334	001654	112737 	000063 	000035'		MOVB	#'3,TMPL2A+1	; OUTPUT R3
    335	001662	012503 				MOV	(R5)+,R3
    336	001664					CALL	TYPREG
	001664	004737 	002070'			JSR	PC,TYPREG
    337	001670	112737 	000064 	000035'		MOVB	#'4,TMPL2A+1	; OUTPUT R4
    338	001676	012503 				MOV	(R5)+,R3
    339	001700					CALL	TYPREG
	001700	004737 	002070'			JSR	PC,TYPREG
    340	001704	112737 	000065 	000035'		MOVB	#'5,TMPL2A+1	; OUTPUT R5
    341	001712	012503 				MOV	(R5)+,R3
    342	001714					CALL	TYPREG
	001714	004737 	002070'			JSR	PC,TYPREG
    343	001720	112737 	000123 	000034'		MOVB	#'S,TMPL2A	; OUTPUT SP
    344	001726	112737 	000120 	000035'		MOVB	#'P,TMPL2A+1
    345	001734	016003 	000000G			MOV	A.SP(R0),R3
    346	001740					CALL	TYPREG
	001740	004737 	002070'			JSR	PC,TYPREG
    347					;
    348					; TASK EXIT'ED WITH PENDING I/O (NO FAULT TERMINATION)
    349					;
    350	001744				70$:
    351	001744	016003 	000000G			MOV	A.TD(R0),R3	; FIND THE STD ADDRESS
    352	001750	032763 	000000G	000000G		BIT	#SF.ST,S.FW(R3)	; SYSTEM TASK ABORT?
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 10-2
TKTN -- ATL SCAN

    353	001756	001425 				BEQ	80$		; NO -- THEN JUST CONTINUE
    354	001760	052737 	000004 	000000G		BIS	#4,STSTT	; PUT LOAD 11 IN SAVED STATUS SO IT WON'T BE FORGOTTEN
    355	001766					.INH6			; DISALLOW INTERRUPTS
	001766	013746 	000000G			MOV	@#PS,-(SP)
	001772	112737 	000300 	000000G		MOVB	#300,@#PS
    356	002000	012737 	000004 	174402 		MOV	#4,@#DEXWD1	;;; SET LOAD 11 BIT
    357	002006	012737 	010000 	174410 		MOV	#DEP,@#TENAD1	;;; PUT REQUEST WHERE HE CAN SEE IT
    358	002014	012737 	000022 	174412 		MOV	#22,@#TENAD2	;;; SO
    359	002022	012737 	001000 	174434 		MOV	#TO10DB,@#STAT	;;; RING HIS DOORBELL
    360	002030	000777 				BR	.		;;; WAIT FOR THE RELOAD
    361					;
    362					; CHANGE STATUS TO 'TS.EXT'
    363					;
    364	002032				80$:
    365	002032	112760 	000000G	000000G		MOVB	#TS.EXT,A.TS(R0) ; SET STATUS TO 'TS.EXT'
    366	002040	012746 	000104'			MOV	#DPBDET,-(SP)	; DETACH LUN
    367	002044	104375 				EMT	375
    368	002046	103403 				BCS	90$
    369	002050	012746 	000120'			MOV	#DPBWFE,-(SP)
    370	002054	104375 				EMT	375
    371	002056				90$:
    372	002056					DECL$S
	002056	012746 				MOV	(PC)+,-(SP)
	002060	   043 	   001 			.BYTE	35.,1
	002062	104375 				EMT	375
    373					;
    374					; TERMINATED TASK MAY NOW EXIT (IF AND WHEN ALL PENDING I/O IS RUNDOWN)
    375					;
    376	002064	000137 	001332'			JMP	ATLSCN		; CHECK FOR ANOTHER TERMIANTION NOTICE REQUIRED
    377						;
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 11
TKTN -- REGISTER OUTPUT

    379						.SBTTL	TKTN -- REGISTER OUTPUT
    380
    381					;
    382					; TYPREG -- SUBROUTINE TO OUTPUT REGISTER CONTENTS IN R3
    383					;
    384					;	R1, R2, R3, & R4 ARE ALTERED
    385					;
    386	002070				TYPREG:
    387	002070	012704 	000037'			MOV	#TMPL2B,R4
    388	002074	012701 	000006 			MOV	#6.,R1
    389	002100	005002 				CLR	R2
    390	002102	006103 				ROL	R3
    391	002104	006102 				ROL	R2
    392	002106	000407 				BR	20$
    393					;
    394	002110				10$:
    395	002110	005002 				CLR	R2
    396	002112	006103 				ROL	R3
    397	002114	006102 				ROL	R2
    398	002116	006103 				ROL	R3
    399	002120	006102 				ROL	R2
    400	002122	006103 				ROL	R3
    401	002124	006102 				ROL	R2
    402	002126				20$:
    403	002126	062702 	000060 			ADD	#60,R2
    404	002132	110224 				MOVB	R2,(R4)+
    405	002134	077113 				SOB	R1,10$
    406	002136	012703 	000031'			MOV	#TMPL2,R3
    407	002142					CALL	TYPMES
	002142	004737 	002150'			JSR	PC,TYPMES
    408	002146					RETURN
	002146	000207 				RTS	PC
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 12
TKTN -- TERMINAL OUTPUT ROUTINE

    410						.SBTTL	TKTN -- TERMINAL OUTPUT ROUTINE
    411
    412					;
    413					; TYPMES -- SUBROUTINE TO TYPE MESSAGE PER R3 & R4
    414					;
    415					;	R3 -- ADDRESS OF FIRST BYTE OF MESSAGE
    416					;
    417	002150				TYPMES:
    418	002150	112337 	000100'			MOVB	(R3)+,DPBWR1+16
    419	002154	010337 	000076'			MOV	R3,DPBWR1+14
    420	002160	012746 	000062'			MOV	#DPBWR1,-(SP)
    421	002164	104375 				EMT	375
    422	002166	103403 				BCS	10$
    423	002170	012746 	000120'			MOV	#DPBWFE,-(SP)
    424	002174	104375 				EMT	375
    425	002176				10$:
    426	002176					RETURN
	002176	000207 				RTS	PC
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 13
TKTN -- KL10 ERRORS

    428						.SBTTL	TKTN -- KL10 ERRORS
    429
    430	002200				TENERS::
    431	002200	013746 	000000G			MOV	.KLITK,-(SP)	; SAVE ERROR CONDITIONS
    432	002204	005037 	000000G			CLR	.KLITK		; AVOID RECURSION
    433	002210	032716 	000000G			BIT	#KS.TSP,@SP	; TEN STOPPED
    434	002214	001411 				BEQ	10$
    435					;
    436					; KL HALTED
    437					;
    438	002216	012737 	000000G	000000G		MOV	#ERRTSP,.ERRCD	; SET THE ERROR CODE FOR WARM RESTART
    439	002224	012703 	001031'			MOV	#TENSM,R3
    440	002230					CALL	TYPMES
	002230	004737 	002150'			JSR	PC,TYPMES
    442	002234	012700 	000000G			MOV	#KL.SSC,R0
    446	002240				10$:
    447	002240	032716 	000000G			BIT	#KS.CES,@SP	; CLOCK ERROR STOP
    448	002244	001411 				BEQ	20$
    449					;
    450					; CLOCK ERROR STOP
    451					;
    452	002246	012737 	000000G	000000G		MOV	#ERRCES,.ERRCD	; SET THE ERROR CODE
    453	002254	012703 	001047'			MOV	#TENCES,R3
    454	002260					CALL	TYPMES
	002260	004737 	002150'			JSR	PC,TYPMES
    456	002264	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    460	002270				20$:
    461	002270	032716 	000000G			BIT	#KS.EPE,@SP	; E-BUS PARITY ERROR??
    462	002274	001411 				BEQ	30$
    463					;
    464					; E-BUS PARITY ERROR
    465					;
    466	002276	012737 	000000G	000000G		MOV	#ERREPE,.ERRCD	; SET THE ERROR CODE
    467	002304	012703 	001002'			MOV	#TENEPE,R3
    468	002310					CALL	TYPMES
	002310	004737 	002150'			JSR	PC,TYPMES
    470	002314	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    474	002320				30$:
    475	002320	032716 	000000G			BIT	#KS.DEX,@SP	; DEPOSIT/EXAMINE FAILURE?
    476	002324	001411 				BEQ	40$		; NO -- TRY NEXT
    477					;
    478					; DEPOSIT/EXAMINE FAILURE
    479					;
    480	002326	012737 	000000G	000000G		MOV	#ERRDEX,.ERRCD	; SET THE ERROR CODE
    481	002334	012703 	001074'			MOV	#DEXMSG,R3	; YES -- PRINT DEPOSIT/EX FAILURE
    482	002340					CALL	TYPMES
	002340	004737 	002150'			JSR	PC,TYPMES
    484	002344	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    488	002350				40$:
    489	002350	032716 	000000G			BIT	#KS.CST,@SP	; KEEP ALIVE STOPPED?
    490	002354	001413 				BEQ	50$		; NOPE
    491					;
    492					; KEEP ALIVE CEASED
    493					;
    494	002356	012737 	000000G	000000G		MOV	#ERRCST,.ERRCD	; SET THE ERROR CODE
    495	002364	012700 	000000G			MOV	#KL.KAC,R0	; [4.2107] YES -- ASSUME FIRST FAILURE
    496	002370	105737 	000001G			TSTB	.KPAC+1		; [4.2107] FIRST KEEP ALIVE CEASE??
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 13-1
TKTN -- KL10 ERRORS

    497	002374	002003 				BGE	50$		; [4.2107]  YES -- GO ON
    498						;
    499	002376				45$:				; [4.2107]
    500	002376	012703 	001143'			MOV	#KEPST,R3	; COMPLAIN
    501	002402	000410 				BR	60$		; PRINT MESSAGE AND SETUP ".KLIWD" FLAGS
    502						;
    503	002404				50$:
    504	002404	032716 	000000G			BIT	#KS.PTO,@SP	; PROTOCOL TIMEOUT??
    505	002410	001411 				BEQ	70$		; NO -- GO ON
    506					;
    507					; PROTOCOL TIMEOUT
    508					;
    509	002412	012737 	000000G	000000G		MOV	#ERRPTO,.ERRCD	; SET THE ERROR CODE
    510	002420	012703 	001171'			MOV	#PRTIMO,R3	; MESSAGE POINER TO R3
    511	002424				60$:
    512	002424					CALL	TYPMES		; PRINT ERROR MESSAGE
	002424	004737 	002150'			JSR	PC,TYPMES
    514	002430	012700 	000000G			MOV	#KL.SSC,R0
    518					;
    519					; FAULT CONTINUATION TIME-OUT
    520					;
    521	002434				70$:
    522	002434	032716 	000000G			BIT	#KS.FCF,@SP	; FAULT CONTINUATION TIMEOUT ?
    523	002440	001406 				BEQ	75$		; NO -- TRY NEXT
    524	002442	012703 	001273'			MOV	#FCFMSG,R3	; GET THE MESSAGE
    525	002446					CALL	TYPMES		; AND TYPE IT
	002446	004737 	002150'			JSR	PC,TYPMES
    527	002452	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
    531	002456				75$:
    532	002456	032716 	000000G			BIT	#KS.TRR,@SP	; TEN REQUEST'S RELOAD?
    533	002462	001406 				BEQ	80$		;  NO -- TRY NEXT
    534					;
    535					; RELOAD KL10
    536					;
    537	002464	012703 	001216'			MOV	#TRRB,R3	; SET TEN REQUESTED REBOOT
    538	002470					CALL	TYPMES
	002470	004737 	002150'			JSR	PC,TYPMES
    539	002474	012700 	000000C			MOV	#KL.LVB!KL.VBN!KL.VBD,R0
    540	002500				80$:
    541	002500	032716 	000000G			BIT	#KS.PFT,@SP	; POWER FAIL RESTART?
    542	002504	001406 				BEQ	90$		; NO -- JUST EXIT
    543					;
    544					; POWER-FAIL RESTART
    545					;
    546	002506	012703 	001244'			MOV	#KEPFT,R3	; POWER FAIL ERROR
    547	002512					CALL	TYPMES		; TYPE MESSAGE
	002512	004737 	002150'			JSR	PC,TYPMES
    548	002516	012700 	000000C			MOV	#KL.LRM!KL.LCA!KL.CFM!KL.SPF,R0
    549	002522				90$:
    550	002522	010046 				MOV	R0,-(SP)	; SAVE .KLIWD SETTINGS.
    551	002524				100$:
    552	002524	032716 	000000G			BIT	#KL.KAC,(SP)	; [4.2107] KEEP-ALIVE RETRY??
    553	002530	001013 				BNE	110$		; [4.2107] YES -- LEAVE TO-10 QUEUE ALONE
    554	002532	012704 	000000G			MOV	#TO10Q,R4	; RETURN NODES FROM Q AFTER CRASH/RELOAD
    555	002536					CALL	..PICK
	002536	004737 	000000G			JSR	PC,..PICK
    556	002542	103406 				BCS	110$		; QUIT IF NONE FOUND
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 13-2
TKTN -- KL10 ERRORS

    557	002544	016401 	000004 			MOV	4(R4),R1	; FIND THE SIZE OF THE NODE
    558	002550	010400 				MOV	R4,R0		; POINT TO  THE NODE
    559	002552					CALL	..DECB		; RETURN IT
	002552	004737 	000000G			JSR	PC,..DECB
    560	002556	000762 				BR	100$		; AND TRY FOR MORE
    561						;
    562	002560				110$:
    563	002560	012600 				MOV	(SP)+,R0	; RESTORE .KLIWD SETTINGS.
    564	002562	032700 	000000G			BIT	#KL.LRM,R0	; RELOAD RAMS??
    565	002566	001403 				BEQ	120$		; NO -- GO ON
    566	002570	052737 	000000G	000002G		BIS	#EF.CRI,.COMEF+2 ; YES -- COMM REGION IS DEAD
    567	002576				120$:
    568	002576	022700 	000000G			CMP	#KL.KAC,R0	; [4.2107] FIRST KEEP ALIVE ERROR?
    569	002602	001434 				BEQ	130$		; [4.2107] YES -- REQUEST KLI ONLY
    570	002604	105737 	000000G			TSTB	.KLRLD		; IF NO RELOAD, THEN
    571	002610	001056 				BNE	140$		; BYPASS KLE & KLI REQUESTS
    572	002612	005737 	000000G			TST	SNDMSG		; [5.1127] IF HOST DEBUG MODE
    573	002616	100453 				BMI	140$		; [5.1127] BYPASS KLE & KLI REQUESTS
    574	002620	032716 	000000C			BIT	#KS.TSP!KS.CES!KS.DEX!KS.EPE!KS.CST!KS.PTO,(SP) ; IF NECESSARY
    575	002624	001423 				BEQ	130$		; THEN
    576	002626	005237 	000000G			INC	.KLERQ		; [5.1006] SAY SNAPSHOT NECESSARY
    577	002632					RQST$S	#...KLE		; SCHEDULE KLERR
	002632	005046 				CLR	-(SP)
	002634	005046 				CLR	-(SP)
	002636	005046 				CLR	-(SP)
	002640	005046 				CLR	-(SP)
	002642	012746 	000776'			MOV	#...KLE,-(SP)
	002646	017646 	000000 			MOV	@(SP),-(SP)
	002652	062766 	000002 	000002 		ADD	#2,2(SP)
	002660	017666 	000002 	000002 		MOV	@2(SP),2(SP)
	002666	012746 				MOV	(PC)+,-(SP)
	002670	   013 	   007 			.BYTE	11.,7
	002672	104375 				EMT	375
    578	002674				130$:
    579	002674	052700 	000000G			BIS	#KL.REQ,R0	; [4.1.1049] SET KLI REQUESTED
    580	002700	010037 	000000G			MOV	R0,.KLIWD	; OR SET KLI FLAGS
    581	002704					RQST$S	#...KLI		; AND SCHEDULE KLINIT.
	002704	005046 				CLR	-(SP)
	002706	005046 				CLR	-(SP)
	002710	005046 				CLR	-(SP)
	002712	005046 				CLR	-(SP)
	002714	012746 	000772'			MOV	#...KLI,-(SP)
	002720	017646 	000000 			MOV	@(SP),-(SP)
	002724	062766 	000002 	000002 		ADD	#2,2(SP)
	002732	017666 	000002 	000002 		MOV	@2(SP),2(SP)
	002740	012746 				MOV	(PC)+,-(SP)
	002742	   013 	   007 			.BYTE	11.,7
	002744	104375 				EMT	375
    582	002746				140$:
    583	002746					EXIT$S
	002746	012746 				MOV	(PC)+,-(SP)
	002750	   063 	   001 			.BYTE	51.,1
	002752	104375 				EMT	375
    584
    585		001332'				.END	START
TASK TERMINATION NOTIFICATION	MACRO V05.04  Tuesday 17-May-88 09:59  Page 13-3
Symbol table

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

. ABS.	000000    000	(RW,I,GBL,ABS,OVR)
      	002754    001	(RW,I,LCL,REL,CON)
Errors detected:  0

*** Assembler statistics


Work  file  reads: 0
Work  file writes: 0
Size of work file: 9466 Words  ( 37 Pages)
Size of core pool: 10244 Words  ( 39 Pages)
Operating  system: RSX-11M/PLUS

Elapsed time: 00:00:22.38
[47,10]TKTN,[47,20]TKTN/-SP/CR=[20,30]RSXFC/PA:1,[100,30]DTESSS,[47,30]TKTN
TKTN       CREATED BY  MACRO  ON 17-MAY-88 AT 09:59	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF   04.00 

SYMBOL	VALUE		REFERENCES

ATLSCN	  001332 R	#10-264     10-376    
A.FM  	= ******  GX	 10-302    
A.SP  	= ******  GX	 10-314     10-323     10-345    
A.TD  	= ******  GX	 10-293     10-351    
A.TS  	= ******  GX	 10-283    *10-365    
BEGMT 	  000124 R	#9-140      10-310    
DAG1  	= 000030	#3-64      
DAG2  	= 000032	#3-63      
DAG3  	= 000036	#3-61      
DEP   	= 010000	#8-78       10-357    
DEXMSG	  001074 R	 9-235     #9-237      13-481    
DEXWD1	= 174402	#8-79      *10-356    
DPBATT	  000046 R	#9-110     
DPBDET	  000104 R	#9-127      10-366    
DPBWFE	  000120 R	#9-134      10-369     12-423    
DPBWR1	  000062 R	#9-117     *12-418    *12-419     12-420    
DXWD1 	= 000006	#3-70      
DXWD2 	= 000004	#3-71      
DXWD3 	= 000002	#3-72      
EF.CRI	= ******  GX	 13-566    
ENDMT 	= 000024	#9-160      10-303    
ERRCES	= ******  GX	 13-452    
ERRCST	= ******  GX	 13-494    
ERRDEX	= ******  GX	 13-480    
ERREPE	= ******  GX	 13-466    
ERRPTO	= ******  GX	 13-509    
ERRTSP	= ******  GX	 13-438    
FCFMSG	  001273 R	 9-250     #9-252      13-524    
FORPRO	= 000020	#8-87      
KEPFT 	  001244 R	 9-247     #9-249      13-546    
KEPST 	  001143 R	 9-238     #9-240      13-500    
KL.CFM	= ******  GX	 13-456     13-470     13-484     13-527     13-548    
KL.KAC	= ******  GX	 13-495     13-552     13-568    
KL.LCA	= ******  GX	 13-456     13-470     13-484     13-527     13-548    
KL.LRM	= ******  GX	 13-456     13-470     13-484     13-527     13-548     13-564    
KL.LVB	= ******  GX	 13-539    
KL.REQ	= ******  GX	 13-579    
KL.SPF	= ******  GX	 13-548    
KL.SSC	= ******  GX	 13-442     13-456     13-470     13-484     13-514     13-527    
KL.VBD	= ******  GX	 13-539    
KL.VBN	= ******  GX	 13-539    
KS.CES	= ******  GX	 13-447     13-574    
KS.CST	= ******  GX	 13-489     13-574    
KS.DEX	= ******  GX	 13-475     13-574    
KS.EPE	= ******  GX	 13-461     13-574    
KS.FCF	= ******  GX	 13-522    
KS.PFT	= ******  GX	 13-541    
KS.PTO	= ******  GX	 13-504     13-574    
KS.TRR	= ******  GX	 13-532    
KS.TSP	= ******  GX	 13-433     13-574    
LUN   	= 000001	#8-86       9-113      9-120      9-130     
MESS00	  000172 R	 9-141     #9-162     
TKTN       CREATED BY  MACRO  ON 17-MAY-88 AT 09:59	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF   04.00 

SYMBOL	VALUE		REFERENCES

MESS02	  000231 R	 9-142      9-163     #9-165     
MESS04	  000263 R	 9-143      9-166     #9-168     
MESS06	  000321 R	 9-144      9-169     #9-171     
MESS10	  000341 R	 9-145      9-172     #9-174     
MESS12	  000372 R	 9-146      9-175     #9-177     
MESS14	  000422 R	 9-147      9-178     #9-180     
MESS16	  000443 R	 9-148      9-181     #9-183     
MESS20	  000470 R	 9-149      9-184     #9-186     
MESS22	  000514 R	 9-150      9-187     #9-189     
MESS24	  000521 R	 9-151      9-190     #9-192     
MESS26	  000526 R	 9-152      9-193     #9-195     
MESS30	  000533 R	 9-153      9-196     #9-198     
MESS32	  000561 R	 9-154      9-199     #9-201     
MESS34	  000607 R	 9-155      9-202     #9-204     
MESS36	  000646 R	 9-156      9-205     #9-207     
MESS40	  000672 R	 9-157      9-208     #9-210     
MESS42	  000726 R	 9-158      9-211     #9-213     
MESS44	  000771 R	 9-159      9-214     #9-216     
PRTIMO	  001171 R	 9-241     #9-243      13-510    
PS    	= ******  GX	 10-265    *10-265     10-355    *10-355    
PSEXP 	= 177776	#8-84      
RSX$$E	= 000000	#3-36      
RSX$$F	= 000105	#3-44      #3-49       3-55       7-3        7-3       
RSX$$K	= 000126	#3-40      
RSX$$V	= 000016	#3-35      
SF.ST 	= ******  GX	 10-352    
SNDMSG	= ******  GX	 13-572    
START 	  001332 RG	#10-263     13-585    
STAT  	= 174434	#8-83      *10-359    
STATD 	= 000034	#3-62      
STATUS	= 000022	#8-88      
STSTT 	= ******  GX	*10-354    
S.FW  	= ******  GX	 10-352    
S.TN  	= ******  GX	 10-294    
TENAD1	= 174410	#8-80      *10-357    
TENAD2	= 174412	#8-81      *10-358    
TENCES	  001047 R	 9-232     #9-234      13-453    
TENEPE	  001002 R	#9-228      13-467    
TENERS	  002200 RG	 10-277    #13-430    
TENSM 	  001031 R	 9-229     #9-231      13-439    
TMPL1 	  000000 R	#9-92       10-297    
TMPL1A	  000007 R	#9-95       10-295    
TMPL2 	  000031 R	 9-93      #9-97       11-406    
TMPL2A	  000034 R	#9-100     *10-316    *10-317    *10-320    *10-324    *10-325    *10-328    *10-331    *10-334    
                        *10-337    *10-340    *10-343    *10-344    
TMPL2B	  000037 R	#9-102      11-387    
TMPL3 	  000045 R	 9-98      #9-104     
TNAD1 	= 000010	#3-68      
TNAD2 	= 000012	#3-69      
TN.LRF	= ******  GX	 10-312    
TO10DB	= 001000	#8-82       10-359    
TO10Q 	= ******  GX	 13-554    
TKTN       CREATED BY  MACRO  ON 17-MAY-88 AT 09:59	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF   04.00 

SYMBOL	VALUE		REFERENCES

TRRB  	  001216 R	 9-244     #9-246      13-537    
TS.EXT	= ******  GX	 10-365    
TS.TKN	= ******  GX	 10-283    
TYPMES	  002150 R	 10-298     10-298     10-311     10-311     11-407     11-407    #12-417     13-440     13-440    
                         13-454     13-454     13-468     13-468     13-482     13-482     13-512     13-512     13-525    
                         13-525     13-538     13-538     13-547     13-547    
TYPREG	  002070 R	 10-319     10-319     10-322     10-322     10-327     10-327     10-330     10-330     10-333    
                         10-333     10-336     10-336     10-339     10-339     10-342     10-342     10-346     10-346    
                        #11-386    
T10AD 	= 000020	#3-66      
T11AD 	= 000022	#3-65      
T11BC 	= 000016	#3-67      
$TOP10	= 000001	 3-45       13-441     13-455     13-469     13-483     13-513     13-526    
$TOP20	= ******	 3-52      
$T1091	= 000001	 3-46      
$$    	= 000037	#10-272     10-272    #10-285     10-285    #10-296     10-296    #10-298     10-298    #10-311    
                         10-311    #10-319     10-319    #10-322     10-322    #10-327     10-327    #10-330     10-330    
                        #10-333     10-333    #10-336     10-336    #10-339     10-339    #10-342     10-342    #10-346    
                         10-346    #11-407     11-407    #13-440     13-440    #13-454     13-454    #13-468     13-468    
                        #13-482     13-482    #13-512     13-512    #13-525     13-525    #13-538     13-538    #13-547    
                         13-547    #13-555     13-555    #13-559     13-559    
$$$T2 	= 000027	#13-577     13-577    #13-581     13-581    
.ATLLH	= ******  GX	 10-267     10-270    
.COMEF	= ******  GX	*13-566    
.ERRCD	= ******  GX	*10-273    *13-438    *13-452    *13-466    *13-480    *13-494    *13-509    
.KLERQ	= ******  GX	*13-576    
.KLERW	= ******  GX	*10-276    
.KLITK	= ******  GX	 10-274     10-276     13-431    *13-432    
.KLIWD	= ******  GX	*13-580    
.KLRLD	= ******  GX	 13-570    
.KPAC 	= ******  GX	 13-496    
..DECB	= ******  GX	 13-559     13-559    
..ENB0	= ******  GX	 10-272     10-272     10-285     10-285    
..PICK	= ******  GX	 13-555     13-555    
..RDTA	= ******  GX	 10-296     10-296    
...KLE	  000776 R	#9-222      13-577     13-577    
...KLI	  000772 R	#9-219      13-581     13-581    
TKTN       CREATED BY  MACRO  ON 17-MAY-88 AT 09:59	PAGE 4

MACRO CROSS REFERENCE                                   CREF   04.00 

MACRO NAME	REFERENCES

CALL  		#8-75       10-272     10-285     10-296     10-298     10-311     10-319     10-322     10-327     10-330    
                 10-333     10-336     10-339     10-342     10-346     11-407     13-440     13-454     13-468     13-482    
                 13-512     13-525     13-538     13-547     13-555     13-559    
DECL$S		#8-75       10-372    
DIR$  		#10-280     10-280    #10-372     10-372    #13-577     13-577    #13-581     13-581    #13-583     13-583    
ERR$  		#10-280    #10-372    #13-577    #13-581    #13-583    
EXIT$S		#8-75       10-280     13-583    
IDENT$		#4-83       7-3        7-3       
MOV$  		#10-372    #13-577     13-577    #13-581     13-581    
MVB$  		#13-577     13-577    #13-581     13-581    
RETURN		#8-75       11-408     12-426    
RFA$  		#13-577     13-577     13-577    #13-581     13-581     13-581    
RQST$S		#8-75       13-577     13-581    
WSIG$S		#8-75      
.ENB  		#8-76      
.ENB0 		#8-75       10-272     10-285    
.ENB6 		#8-75      
.INH  		#8-76      
.INH0 		#8-75       10-265    
.INH6 		#8-75       10-355    
RSX20F -- RESIDENT EXECUTIVE   	MACRO V05.04  Tuesday 10-May-88 13:22  Page 2


      2					.TITLE	RSX20F -- RESIDENT EXECUTIVE
      3					.IDENT	"V002A"
      4					;
      5					;
      6					;
      7					;
      8					;
      9					;                             COPYRIGHT (C) 1975, 1978, 1985 BY
     10					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
     11					;			ALL RIGHTS RESERVED.
     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 V05.04  Tuesday 10-May-88 13:22  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 V05.04  Tuesday 10-May-88 13:22  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 V05.04  Tuesday 10-May-88 13:22  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	(RW,I,GBL,ABS,OVR)
      	000200    001	(RW,I,LCL,REL,CON)
Errors detected:  0

*** Assembler statistics


Work  file  reads: 0
Work  file writes: 0
Size of work file: 150 Words  ( 1 Pages)
Size of core pool: 9188 Words  ( 35 Pages)
Operating  system: RSX-11M/PLUS

Elapsed time: 00:00:04.19
[47,10]RDTA,[47,20]RDTA/-SP/CR=[47,30]RDTA
RDTA       CREATED BY  MACRO  ON 10-MAY-88 AT 13:22	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF   04.00 

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 10-MAY-88 AT 13:22	PAGE 2

MACRO CROSS REFERENCE                                   CREF   04.00 

MACRO NAME	REFERENCES

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