Trailing-Edge
-
PDP-10 Archives
-
BB-H311B-RM
-
rsx20f-swskit/listings/tktn.l10
There are 3 other files named tktn.l10 in the archive. Click here to see a list.
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27
TABLE OF CONTENTS
6- 2 TITLE PAGE
6- 69 TASK CODE
RSX20F -- RESIDENT EXECUTIVE ( MACRO M1110 03-OCT-79 09:27 PAGE 2
1 .TITLE RSX20F -- RESIDENT EXECUTIVE (SYSTEM DEFINITION)
2 .IDENT /013410/
3 .ENABL AMA
4 .LIST MEB
5 .NLIST CND
6 ;
7 ; COPYRIGHT (C) 1975, 1978 BY
8 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
9 ;
10 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
11 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
12 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
13 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
14 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
15 ;
16 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
17 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
22 ;
23 ; R. MCLEAN 19-MAR-75
24 ;
25 ; VERSION 13-41
26 ;
27 ; MODIFIED BY:
28 ;
29 ; FUNCTION: THIS MODULE PROVIDES THE PARAMETERS FOR ASSEMBLY OF THE RSX20F EXEC.
RSX20F -- RESIDENT EXECUTIVE ( MACRO M1110 03-OCT-79 09:27 PAGE 3
31 ;
32 ; SET VERSION OF RSX20F EXEC HERE
33 ;
34 000013 RSX$$V = 13 ; VERSION 13
35 000041 RSX$$E = 41 ; EDIT 41
36 ;
37 ; RELEASE VERSION
38 ;
39 000126 RSX$$K = 'V ; KEY FOR RELEASE-TYPE
40 ; "V" -- RELEASE
41 ; "X" -- EXPERIMENTAL
42 ; "Y" -- FIELD/LOAD TEST
43 000000 RSX$$F = 0 ; DEFINE FORM AS NULL
46 000101 RSX$$F = 'A ; TOPS-10 FORM OF THE EXEC.
57 ;
58 ; DTE-20 REGISTER OFFSETS
59 ;
60 000036 DAG3 =36
61 000034 STATD =34
62 000032 DAG2 =32
63 000030 DAG1 =30
64 000022 T11AD =22
65 000020 T10AD =20
66 000016 T11BC =16
67 000010 TNAD1 =10
68 000012 TNAD2 =12
69 000006 DXWD1 =6
70 000004 DXWD2 =4
71 000002 DXWD3 =2
RSX20F -- RESIDENT EXECUTIVE ( MACRO M1110 03-OCT-79 09:27 PAGE 4
73 ;+
74 ; MACRO TO SET IDENT FOR EXEC MODULES.
75 ; FORMAT OF CALL IS:
76 ; IDENT$ VERSION,EDIT
77 ; OR
78 ; IDENT$ VERSION,EDIT,RSX$$F
79 ; IF MODULE CODING CHANGES WITH DIFFERENT FORMS
80 ;-
81
82 .MACRO IDENT$ VER,EDT,FRM,NUM
83 .IF B,NUM
84 .IF B,FRM
85 IDENT$ \VER,\EDT,0,0
86 .IFF
87 .IF EQ,<FRM-'A>
88 IDENT$ \VER,\EDT,A,0
89 .IFF
90 .IF EQ,<FRM-'B>
91 IDENT$ \VER,\EDT,B,0
92 .IFF
93 IDENT$ \VER,\EDT,E,0
94 .ENDC
95 .ENDC
96 .ENDC
97 .MEXIT
98 .IFF
99 .IF GE,VER-10
100 .IF GE,EDT-10
101 .LIST
102 .IDENT /'FRM'VER'EDT'0/
103 .NLIST
104 .IFF
105 .LIST
106 .IDENT /'FRM'VER'0'EDT'0/
107 .NLIST
108 .ENDC
109 .IFF
110 .IF GE,EDT-10
111 .LIST
112 .IDENT /'FRM'0'VER'EDT'0/
113 .NLIST
114 .IFF
115 .LIST
116 .IDENT /'FRM'0'VER'0'EDT'0/
117 .NLIST
118 .ENDC
119 .ENDC
120 .ENDC
121 .ENDM IDENT$
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5
1 .TITLE TASK TERMINATION NOTIFICATION
2 .SBTTL TITLE PAGE
3 000000 IDENT$ 5,10,RSX$$F
.IDENT /A05100/
4 ;
5 ;
6 ;
7 ;
8 ;
9 ;
10 ; COPYRIGHT (C) 1973, 1978 BY
11 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
12 ;
13 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
14 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
15 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
16 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
17 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
18 ;
19 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
20 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
21 ; CORPORATION.
22 ;
23 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
24 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
25 ;
26 ;
27 ;
28 ;
29 ;
30 ; MODULE: TASK TERMINATION NOTIFICATION TASK
31 ;
32 ; AUTHOR: H. KREJCI
33 ;
34 ; DATE: 12 OCT 73
35 ;
36 ; RSX20F: R. MCLEAN
37 ;
38 ; THIS MODULE CONTAINS:
39 ;
40 ; 1 -- A TASK TO OUTPUT TASK TERMINATION NOTIFICATION.
41 ;
42 ; MODIFICATIONS:
43 ;
44 ; NO. DATE PROGRAMMER PURPOSE
45 ; --- ---- ---------- -------
46 ; 001 7-JUN-74 M. R. GARRY
47 ; 002 1-JUL-75 ELLEN SIMICH
48 ; 003 21-OCT-76 A. PECKHAM REDIRECT KL CRASHES TO TOPS-10
49 ; 407 RESTART FOR DUMP AND REBOOT.
50 ; 004 04-NOV-76 R. BELANGER MAKE "KLI" RELOAD THE KL
51 ; ON CLOCK ERROR STOP
52 ; 005 16-NOV-76 A. PECKHAM REQUEST KL20 BOOT TO DUMP
53 ; ON HARDWARE ERRORS
54 ; 006 16-NOV-76 A. PECKHAM CHANGE TO LET KLERR CALL
55 ; KLINIT WHEN FINISHED.
56 ; 007 2-FEB-77 A. PECKHAM CLEAR .KLIWD WHEN NO RELOAD.
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-1
TITLE PAGE
57 ; 008 10-FEB-77 A. PECKHAM FIX BUG IN #007.
58 ; 009 18-FEB-77 A. PECKHAM FIX BUG IN #008.
59 ; 010 07-OCT-77 R. BELANGER ADD CODE TO RENDER COMM REGION
60 ; INVALID FOR "BOOT"
61 ; 011 11-NOV-77 R. BELANGER ELIMINATE DUMP ON DEX FAILURE
62 ; 012 27-MAY-78 R. BELANGER ADD SUPPORT FOR PROTOCOL TIMEOUT
63 ; TREATED AS "KEEP-ALIVE CEASED"
64 ; 013 10-JUL-78 R. BELANGER REMOVE DUMP REQUEST FROM TOPS-20
65 ; CLOCK ERROR STOP PROCESSING
66 ; TCO 4.2018 05-DEC-78 R. BELANGER INHIBIT DM-11/BBS ON KL10 RELOAD
67 ; TCO 4.2107 07-DEC-78 K. LEFEBVRE INVOKE KLINIT ONLY ON
68 ; FIRST KEEP ALIVE CEASE
69 .SBTTL TASK CODE
70 .MCALL CALL,RETURN,.INH0,.ENB0,EXIT$S,DECL$S,RQST$S,.INH6,.ENB6,WSIG$S
71 .MCALL .INH,.ENB
72
73 010000 DEP=010000 ;DEPOSIT
74 174402 DEXWD1=174402 ;DEPOSIT EXAMINE WORD 1
75 174410 TENAD1=174410
76 174412 TENAD2=174412
77 001000 TO10DB=1000 ;TO 10 DOORBELL
78 174434 STAT=174434
79 177776 PSEXP=177776
80
81 000001 LUN=1
82 000020 FORPRO=20 ;ADDRESS OF REGION
83 000022 STATUS=22
84 ;
85 ; SCAN ATL FOR TASK(S) WITH A STATUS OF "SUSPENDED FOR TERMINATION NOTIFICATION"
86 ;
87 000000 START::
88 000000 ATLSCN: .INH0 ;PUSH PRE-INHIBIT PS ONTO STACK (FOR ..ENB0)
000000 013746 000000G MOV @#PS,-(SP)
000004 112737 000140 000000G MOVB #140,@#PS
89 ;;INHIBIT TASK SWITCHING (RAISE PRI=3)
90 000012 012700 000000G MOV #.ATLLH,R0 ;;USE R0 TO SCAN THE ATL
91 000016 011000 10$: MOV @R0,R0 ;;ADVANCE R0 TO POINT TO NEXT ATL NODE
92 000020 020027 000000G CMP R0,#.ATLLH ;;END OF ATL?
93 000024 001015 BNE 20$ ;;
94 000026 .ENB0
000026 004737 000000G JSR PC,..ENB0
95 000032 005737 000000G TST .KLITK ;CHECK TO SEE IF TEN ERROR STOP
96 000036 001405 BEQ 77$
97 000040 053737 000000G 000000G BIS .KLITK,.KLERW ;RECORD THE ERROR FOR SETSPD REPORT
98 000046 000137 001634' JMP TENERS ;YES -- BETTER OUTPUT MESSAGE AND DO SOMETHING ABOUT IT
99 000052 77$: EXIT$S
000052 012746 MOV (PC)+,-(SP)
000054 063 001 .BYTE 51.,1
000056 104375 EMT 375
100
101 000060 126027 000000G 000000G 20$: CMPB A.TS(R0),#TS.TKN ;;IS TASK SUPSENDED FOR TERMINTION NOTICE?
102 000066 001353 BNE 10$ ;;NO -- CHECK NEXT ATL NODE
103 000070 .ENB0 ;;YES -- ENABLE TASK SWITCHING, AND OUTPUT NOTIC
000070 004737 000000G JSR PC,..ENB0
104 ;
105 ; TERMINATION INFORMATION IS CODED INTO 'A.FM+0' AS FOLLOWS:
106 ;
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-2
TASK CODE
107 ; IF BIT-8 IS SET, THE LOW ORDER BYTE CONTAINS A TERMINATION MESSAGE CODE
108 ; IF BIT-9 IS SET, AN I/O RUNDOWN MESSAGE IS TO BE OUTPUT
109 ;
110 000074 012701 000006 MOV #6.,R1 ;CONVERT TASK NAME FROM RADIX-50 TO ASCII
111 000100 016002 000000G MOV A.TD(R0),R2 ;AND STORE IN OUTPUT TEXT STRING.
112 000104 062702 000000G ADD #S.TN,R2
113 000110 012703 000621' MOV #TMPL1A,R3
114 000114 CALL ..RDTA
000114 004737 000000G JSR PC,..RDTA
115 000120 012703 000612' MOV #TMPL1,R3 ;TYPE TASK NAME LINE
116 000124 CALL TYPMES
000124 004737 000660' JSR PC,TYPMES
117 ;
118 ; OUTPUT TERMINATION NOTICE PER LOW ORDER 'A.FM+0' IF BIT-8 IS SET
119 ;
120 000130 116001 000000G MOVB A.FM+0(R0),R1 ;SET R1 TO TERMINATION MESSAGE CODE (INDEX).
121 000134 020127 000024 CMP R1,#ENDMT
122 000140 101003 BHI 30$
123 000142 032701 000001 BIT #1,R1
124 000146 001402 BEQ 40$
125 000150 012701 000026 30$: MOV #26,R1
126 000154 016103 000766' 40$: MOV BEGMT+0(R1),R3 ;TYPE MESSAGE PER R1
127 000160 CALL TYPMES
000160 004737 000660' JSR PC,TYPMES
128 000164 020127 000000G CMP R1,#TN.LRF ;NO REG OUTPUT IF LOAD REQ FAILURE
129 000170 001541 BEQ 80$
130 000172 016005 000000G MOV A.SP(R0),R5 ;FIND USER'S STACK
131 000176 062705 000014 ADD #14,R5
132 000202 112737 000120 000646' MOVB #'P,TMPL2A ;OUTPUT PC
133 000210 112737 000103 000647' MOVB #'C,TMPL2A+1
134 000216 012503 MOV (R5)+,R3
135 000220 CALL TYPREG
000220 004737 000532' JSR PC,TYPREG
136 000224 112737 000123 000647' MOVB #'S,TMPL2A+1 ;OUTPUT PS
137 000232 012503 MOV (R5)+,R3 ;(POP PS)
138 000234 CALL TYPREG
000234 004737 000532' JSR PC,TYPREG
139 000240 016005 000000G MOV A.SP(R0),R5
140 000244 112737 000122 000646' MOVB #'R,TMPL2A ;OUTPUT R0
141 000252 112737 000060 000647' MOVB #'0,TMPL2A+1
142 000260 012503 MOV (R5)+,R3
143 000262 CALL TYPREG
000262 004737 000532' JSR PC,TYPREG
144 000266 112737 000061 000647' MOVB #'1,TMPL2A+1 ;OUTPUT R1
145 000274 012503 MOV (R5)+,R3
146 000276 CALL TYPREG
000276 004737 000532' JSR PC,TYPREG
147 000302 112737 000062 000647' MOVB #'2,TMPL2A+1 ;OUTPUT R2
148 000310 012503 MOV (R5)+,R3
149 000312 CALL TYPREG
000312 004737 000532' JSR PC,TYPREG
150 000316 112737 000063 000647' MOVB #'3,TMPL2A+1 ;OUTPUT R3
151 000324 012503 MOV (R5)+,R3
152 000326 CALL TYPREG
000326 004737 000532' JSR PC,TYPREG
153 000332 112737 000064 000647' MOVB #'4,TMPL2A+1 ;OUTPUT R4
154 000340 012503 MOV (R5)+,R3
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-3
TASK CODE
155 000342 CALL TYPREG
000342 004737 000532' JSR PC,TYPREG
156 000346 112737 000065 000647' MOVB #'5,TMPL2A+1 ;OUTPUT R5
157 000354 012503 MOV (R5)+,R3
158 000356 CALL TYPREG
000356 004737 000532' JSR PC,TYPREG
159 000362 112737 000123 000646' MOVB #'S,TMPL2A ;OUTPUT SP
160 000370 112737 000120 000647' MOVB #'P,TMPL2A+1
161 000376 016003 000000G MOV A.SP(R0),R3
162 000402 CALL TYPREG
000402 004737 000532' JSR PC,TYPREG
163 ;
164 ; TASK EXIT'ED WITH PENDING I/O (NO FAULT TERMINATION)
165 ;
166 000406 016003 000000G 70$: MOV A.TD(R0),R3 ;FIND THE STD ADDRESS
167 000412 032763 000000G 000000G BIT #SF.ST,S.FW(R3) ;SYSTEM TASK ABORT?
168 000420 001425 BEQ 80$ ;NO -- THEN JUST CONTINUE
169 000422 052737 000004 000000G BIS #4,STSTT ;PUT LOAD 11 IN SAVED STATUS SO IT WON'T BE FORGOTTEN
170 000430 .INH6
000430 013746 000000G MOV @#PS,-(SP)
000434 112737 000300 000000G MOVB #300,@#PS
171 000442 012737 000004 174402 MOV #4,@#DEXWD1 ;;SET LOAD 11 BIT
172 000450 012737 010000 174410 MOV #DEP,@#TENAD1
173 000456 012737 000022 174412 MOV #22,@#TENAD2
174 000464 012737 001000 174434 MOV #TO10DB,@#STAT
175 000472 000777 BR .
176 ;
177 ; CHANGE STATUS TO 'TS.EXT'
178 ;
179 000474 112760 000000G 000000G 80$: MOVB #TS.EXT,A.TS(R0);SET STATUS TO 'TS.EXT'
180 000502 012746 000746' MOV #DPBDET,-(SP) ;DETACH LUN
181 000506 104375 EMT 375
182 000510 103403 BCS 90$
183 000512 012746 000762' MOV #DPBWFE,-(SP)
184 000516 104375 EMT 375
185 000520 90$: DECL$S
000520 012746 MOV (PC)+,-(SP)
000522 043 001 .BYTE 35.,1
000524 104375 EMT 375
186 ;
187 ; TERMINATED TASK MAY NOW EXIT (IF AND WHEN ALL PENDING I/O IS RUNDOWN)
188 ;
189 000526 000137 000000' JMP ATLSCN ;CHECK FOR ANOTHER TERMIANTION NOTICE REQUIRED
190 ;
191 ; TYPREG -- SUBROUTINE TO OUTPUT REGISTER CONTENTS IN R3
192 ;
193 ; R1, R2, R3, & R4 ARE ALTERED
194 ;
195 000532 012704 000651' TYPREG: MOV #TMPL2B,R4
196 000536 012701 000006 MOV #6.,R1
197 000542 005002 CLR R2
198 000544 006103 ROL R3
199 000546 006102 ROL R2
200 000550 000407 BR 20$
201 ;
202 000552 005002 10$: CLR R2
203 000554 006103 ROL R3
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-4
TASK CODE
204 000556 006102 ROL R2
205 000560 006103 ROL R3
206 000562 006102 ROL R2
207 000564 006103 ROL R3
208 000566 006102 ROL R2
209 000570 062702 000060 20$: ADD #60,R2
210 000574 110224 MOVB R2,(R4)+
211 000576 077113 SOB R1,10$
212 000600 012703 000643' MOV #TMPL2,R3
213 000604 CALL TYPMES
000604 004737 000660' JSR PC,TYPMES
214 000610 RETURN
000610 000207 RTS PC
215
216 000612 030 TMPL1: .BYTE TMPL2-.-1
217 000613 124 101 123 .ASCII 'TASK "'
000616 113 040 042
218 000621 130 130 130 TMPL1A: .ASCII 'XXXXXX" TERMINATED'
000624 130 130 130
000627 042 040 124
000632 105 122 115
000635 111 116 101
000640 124 105 104
219 000643 013 TMPL2: .BYTE TMPL3-.-1
220 000644 040 040 .ASCII " "
221 000646 122 122 075 TMPL2A: .ASCII "RR="
222 000651 130 130 130 TMPL2B: .ASCII "XXXXXX"
000654 130 130 130
223 000657 TMPL3: .EVEN
224 ;
225 ; TYPMES -- SUBROUTINE TO TYPE MESSAGE PER R3 & R4
226 ;
227 ; R3 -- ADDRESS OF FIRST BYTE OF MESSAGE
228 ;
229 000660 112337 000742' TYPMES: MOVB (R3)+,DPBWR1+16
230 000664 010337 000740' MOV R3,DPBWR1+14
231 000670 012746 000724' MOV #DPBWR1,-(SP)
232 000674 104375 EMT 375
233 000676 103403 BCS 10$
234 000700 012746 000762' MOV #DPBWFE,-(SP)
235 000704 104375 EMT 375
236 000706 10$: RETURN
000706 000207 RTS PC
237 ;
238 ; DIRECTIVE PARAMETER BLOCKS
239 ;
240 ;
241 000710 001 006 DPBATT: .BYTE 1.,6. ;ATTACH LUN
242 000712 001400 .WORD 1400
243 000714 000001 .WORD LUN
244 000716 000 000 .BYTE 0,0
245 000720 000000 000000 .WORD 0,0
246 ;
247 000724 001 011 DPBWR1: .BYTE 1.,9. ;WRITE TO LUN
248 000726 000400 .WORD 0400
249 000730 000001 .WORD LUN
250 000732 040 000 .BYTE 32.,0
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-5
TASK CODE
251 000734 000000 000000 .WORD 0,0
252 000740 000000 .WORD 0
253 000742 000000 .WORD 0
254 000744 000040 .WORD 40
255 ;
256 000746 001 006 DPBDET: .BYTE 1.,6. ;DETACH FROM LUN
257 000750 002000 .WORD 2000
258 000752 000001 .WORD LUN
259 000754 040 000 .BYTE 32.,0
260 000756 000000 000000 .WORD 0,0
261 ;
262 000762 051 002 DPBWFE: .BYTE 41.,2. ;WAITFOR EFN 32.
263 000764 000040 .WORD 32.
264 ;
265 ; MESSAGE TABLES & TEXT
266 ;
267 000766 001034' BEGMT: .WORD MESS00 ;TERMINATION MESSAGE TABLE
268 000770 001073' .WORD MESS02
269 000772 001125' .WORD MESS04
270 000774 001163' .WORD MESS06
271 000776 001203' .WORD MESS10
272 001000 001234' .WORD MESS12
273 001002 001264' .WORD MESS14
274 001004 001305' .WORD MESS16
275 001006 001332' .WORD MESS20
276 001010 001356' .WORD MESS22
277 001012 001363' .WORD MESS24
278 001014 001370' .WORD MESS26
279 001016 001375' .WORD MESS30
280 001020 001423' .WORD MESS32
281 001022 001451' .WORD MESS34
282 001024 001510' .WORD MESS36
283 001026 001534' .WORD MESS40
284 001030 001570' .WORD MESS42
285 001032 001633' .WORD MESS44
286 000024 ENDMT=24
287
288 001034 036 MESS00: .BYTE MESS02-.-1
289 001035 117 104 104 .ASCII 'ODD ADDRESS OR OTHER TRAP FOUR'
001040 040 101 104
001043 104 122 105
001046 123 123 040
001051 117 122 040
001054 117 124 110
001057 105 122 040
001062 124 122 101
001065 120 040 106
001070 117 125 122
290 001073 031 MESS02: .BYTE MESS04-.-1
291 001074 042 122 105 .ASCII '"RESERVED INST" EXECUTION'
001077 123 105 122
001102 126 105 104
001105 040 111 116
001110 123 124 042
001113 040 105 130
001116 105 103 125
001121 124 111 117
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-6
TASK CODE
001124 116
292 001125 035 MESS04: .BYTE MESS06-.-1
293 001126 124 055 102 .ASCII 'T-BIT TRAP OR "BPT" EXECUTION'
001131 111 124 040
001134 124 122 101
001137 120 040 117
001142 122 040 042
001145 102 120 124
001150 042 040 105
001153 130 105 103
001156 125 124 111
001161 117 116
294 001163 017 MESS06: .BYTE MESS10-.-1
295 001164 042 111 117 .ASCII '"IOT" EXECUTION'
001167 124 042 040
001172 105 130 105
001175 103 125 124
001200 111 117 116
296 001203 030 MESS10: .BYTE MESS12-.-1
297 001204 115 105 115 .ASCII 'MEMORY PROTECT VIOLATION'
001207 117 122 131
001212 040 120 122
001215 117 124 105
001220 103 124 040
001223 126 111 117
001226 114 101 124
001231 111 117 116
298 001234 027 MESS12: .BYTE MESS14-.-1
299 001235 042 116 117 .ASCII '"NON-RSX EMT" EXECUTION'
001240 116 055 122
001243 123 130 040
001246 105 115 124
001251 042 040 105
001254 130 105 103
001257 125 124 111
001262 117 116
300 001264 020 MESS14: .BYTE MESS16-.-1
301 001265 042 124 122 .ASCII '"TRAP" EXECUTION'
001270 101 120 042
001273 040 105 130
001276 105 103 125
001301 124 111 117
001304 116
302 001305 024 MESS16: .BYTE MESS20-.-1
303 001306 061 061 057 .ASCII '11/40 F.P. EXCEPTION'
001311 064 060 040
001314 106 056 120
001317 056 040 105
001322 130 103 105
001325 120 124 111
001330 117 116
304 001332 023 MESS20: .BYTE MESS22-.-1
305 001333 115 105 115 .ASCII 'MEMORY PARITY ERROR'
001336 117 122 131
001341 040 120 101
001344 122 111 124
001347 131 040 105
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-7
TASK CODE
001352 122 122 117
001355 122
306 001356 004 MESS22: .BYTE MESS24-.-1
307 001357 106 060 061 .ASCII "F014"
001362 064
308 001363 004 MESS24: .BYTE MESS26-.-1
309 001364 106 060 061 .ASCII "F013"
001367 063
310 001370 004 MESS26: .BYTE MESS30-.-1
311 001371 106 060 061 .ASCII "F012"
001374 062
312 001375 025 MESS30: .BYTE MESS32-.-1
313 001376 123 123 124 .ASCII 'SST ABORT (BAD STACK)'
001401 040 101 102
001404 117 122 124
001407 040 050 102
001412 101 104 040
001415 123 124 101
001420 103 113 051
314 001423 025 MESS32: .BYTE MESS34-.-1
315 001424 101 123 124 .ASCII 'AST ABORT (BAD STACK)'
001427 040 101 102
001432 117 122 124
001435 040 050 102
001440 101 104 040
001443 123 124 101
001446 103 113 051
316 001451 036 MESS34: .BYTE MESS36-.-1
317 001452 101 102 117 .ASCII 'ABORTED VIA DIRECTIVE (OR MCR)'
001455 122 124 105
001460 104 040 126
001463 111 101 040
001466 104 111 122
001471 105 103 124
001474 111 126 105
001477 040 050 117
001502 122 040 115
001505 103 122 051
318 001510 023 MESS36: .BYTE MESS40-.-1
319 001511 124 111 115 .ASCII 'TIME LIMIT EXCEEDED'
001514 105 040 114
001517 111 115 111
001522 124 040 105
001525 130 103 105
001530 105 104 105
001533 104
320 001534 033 MESS40: .BYTE MESS42-.-1
321 001535 114 117 101 .ASCII 'LOAD FAILURE (DSK READ ERR)'
001540 104 040 106
001543 101 111 114
001546 125 122 105
001551 040 050 104
001554 123 113 040
001557 122 105 101
001562 104 040 105
001565 122 122 051
322 001570 042 MESS42: .BYTE MESS44-.-1
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-8
TASK CODE
323 001571 103 110 105 .ASCII 'CHECKPOINT FAILURE (DSK WRITE ERR)'
001574 103 113 120
001577 117 111 116
001602 124 040 106
001605 101 111 114
001610 125 122 105
001613 040 050 104
001616 123 113 040
001621 127 122 111
001624 124 105 040
001627 105 122 122
001632 051
324 001633 MESS44: .EVEN
325 ;
326 001634 TENERS::
327 001634 013746 000000G MOV .KLITK,-(SP) ; SAVE ERROR CONDITIONS
328 001640 005037 000000G CLR .KLITK ; AVOID RECURSION
329 001644 032716 000000G BIT #KS.TSP,@SP ; TEN STOPPED
330 001650 001406 BEQ 10$
331 ;
332 ; KL HALTED
333 ;
334 001652 012703 002347' MOV #TENSM,R3
335 001656 CALL TYPMES
001656 004737 000660' JSR PC,TYPMES
337 001662 012700 000000G MOV #KL.SSC,R0
341 001666 10$:
342 001666 032716 000000G BIT #KS.CES,@SP ; CLOCK ERROR STOP
343 001672 001406 BEQ 20$
344 ;
345 ; CLOCK ERROR STOP
346 ;
347 001674 012703 002365' MOV #TENCES,R3
348 001700 CALL TYPMES
001700 004737 000660' JSR PC,TYPMES
350 001704 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
354 001710 20$:
355 001710 032716 000000G BIT #KS.EPE,@SP ; E-BUS PARITY ERROR??
356 001714 001406 BEQ 30$
357 ;
358 ; E-BUS PARITY ERROR
359 ;
360 001716 012703 002320' MOV #TENEPE,R3
361 001722 CALL TYPMES
001722 004737 000660' JSR PC,TYPMES
363 001726 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
367 001732 30$:
368 001732 032716 000000G BIT #KS.DEX,@SP ; DEPOSIT/EXAMINE FAILURE?
369 001736 001406 BEQ 40$ ; NO -- TRY NEXT
370 ;
371 ; DEPOSIT/EXAMINE FAILURE
372 ;
373 001740 012703 002412' MOV #DEXMSG,R3 ; YES -- PRINT DEPOSIT/EX FAILURE
374 001744 CALL TYPMES
001744 004737 000660' JSR PC,TYPMES
376 001750 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
380 001754 40$:
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-9
TASK CODE
381 001754 032716 000000G BIT #KS.CST,@SP ; KEEP ALIVE STOPPED?
382 001760 001410 BEQ 50$ ; NOPE
383 ;
384 ; KEEP ALIVE CEASED
385 ;
386 001762 012700 000000G MOV #KL.KAC,R0 ; [TCO 4.2107] YES -- ASSUME FIRST FAILURE
387 001766 105737 000001G TSTB .KPAC+1 ; [TCO 4.2107] FIRST KEEP ALIVE CEASE??
388 001772 002003 BGE 50$ ; [TCO 4.2107] YES -- GO ON
389 ;
390 001774 45$: ; [TCO 4.2107]
391 001774 012703 002446' MOV #KEPST,R3 ; COMPLAIN
392 002000 000405 BR 60$ ; PRINT MESSAGE AND SETUP ".KLIWD" FLAGS
393 ;
394 002002 50$:
395 002002 032716 000000G BIT #KS.PTO,@SP ; PROTOCOL TIMEOUT??
396 002006 001406 BEQ 70$ ; NO -- GO ON
397 ;
398 ; PROTOCOL TIMEOUT
399 ;
400 002010 012703 002474' MOV #PRTIMO,R3 ; MESSAGE POINER TO R3
401 002014 60$:
402 002014 CALL TYPMES ; PRINT ERROR MESSAGE
002014 004737 000660' JSR PC,TYPMES
404 002020 012700 000000G MOV #KL.SSC,R0
408 002024 70$:
409 002024 032716 000000G BIT #KS.TRR,@SP ; TEN REQUEST'S RELOAD?
410 002030 001406 BEQ 80$ ; NO -- TRY NEXT
411 ;
412 ; RELOAD KL10
413 ;
414 002032 012703 002521' MOV #TRRB,R3 ; SET TEN REQUESTED REBOOT
415 002036 CALL TYPMES
002036 004737 000660' JSR PC,TYPMES
416 002042 012700 000000C MOV #KL.LVB!KL.VBN!KL.VBD,R0
417 002046 80$:
418 002046 032716 000000G BIT #KS.PFT,@SP ; POWER FAIL RESTART?
419 002052 001406 BEQ 90$ ; NO -- JUST EXIT
420 ;
421 ; POWER-FAIL RESTART
422 ;
423 002054 012703 002547' MOV #KEPFT,R3 ; POWER FAIL ERROR
424 002060 CALL TYPMES ; TYPE MESSAGE
002060 004737 000660' JSR PC,TYPMES
425 002064 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SPF,R0
426 002070 90$:
427 002070 005237 000000G INC .INHDM ; [TCO 4.2108] INHIBIT DM-11/BB'S
428 002074 010046 MOV R0,-(SP) ; SAVE .KLIWD SETTINGS.
429 002076 100$:
430 002076 032716 000000G BIT #KL.KAC,(SP) ; [TCO 4.2107] KEEP-ALIVE RETRY??
431 002102 001013 BNE 110$ ; [TCO 4.2107] YES -- LEAVE TO-10 QUEUE ALONE
432 002104 012704 000000G MOV #TO10Q,R4 ; RETURN NODES FROM Q AFTER CRASH/RELOAD
433 002110 CALL ..PICK
002110 004737 000000G JSR PC,..PICK
434 002114 103406 BCS 110$ ; QUIT IF NONE FOUND
435 002116 016401 000004 MOV 4(R4),R1 ; FIND THE SIZE OF THE NODE
436 002122 010400 MOV R4,R0 ; POINT TO THE NODE
437 002124 CALL ..DECB ; RETURN IT
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-10
TASK CODE
002124 004737 000000G JSR PC,..DECB
438 002130 000762 BR 100$ ; AND TRY FOR MORE
439 ;
440 002132 110$:
441 002132 012600 MOV (SP)+,R0 ; RESTORE .KLIWD SETTINGS.
442 002134 032700 000000G BIT #KL.LRM,R0 ; RELOAD RAMS??
443 002140 001403 BEQ 120$ ; NO -- GO ON
444 002142 052737 000000G 000002G BIS #EF.CRI,.COMEF+2 ; YES -- COMM REGION IS DEAD
445 002150 120$:
446 002150 022700 000000G CMP #KL.KAC,R0 ; [TCO 4.2107] FIRST KEEP ALIVE ERROR?
447 002154 001427 BEQ 130$ ; [TCO 4.2107] YES -- REQUEST KLI ONLY
448 002156 005737 000000G TST .KLRLD ; IF NO RELOAD, THEN
449 002162 001047 BNE 140$ ; BYPASS KLE & KLI REQUESTS
450 002164 032716 000000C BIT #KS.TSP!KS.CES!KS.DEX!KS.EPE!KS.CST!KS.PTO,(SP) ; IF NECESSARY
451 002170 001421 BEQ 130$ ; THEN
452 002172 RQST$S #...KLE ; SCHEDULE KLERR
002172 005046 CLR -(SP)
002174 005046 CLR -(SP)
002176 005046 CLR -(SP)
002200 005046 CLR -(SP)
002202 012746 002314' MOV #...KLE,-(SP)
002206 017646 000000 MOV @(SP),-(SP)
002212 062766 000002 000002 ADD #2,2(SP)
002220 017666 000002 000002 MOV @2(SP),2(SP)
002226 012746 MOV (PC)+,-(SP)
002230 013 007 .BYTE 11.,7
002232 104375 EMT 375
453 002234 130$:
454 002234 010037 000000G MOV R0,.KLIWD ; OR SET KLI FLAGS
455 002240 RQST$S #...KLI ; AND SCHEDULE KLINIT.
002240 005046 CLR -(SP)
002242 005046 CLR -(SP)
002244 005046 CLR -(SP)
002246 005046 CLR -(SP)
002250 012746 002310' MOV #...KLI,-(SP)
002254 017646 000000 MOV @(SP),-(SP)
002260 062766 000002 000002 ADD #2,2(SP)
002266 017666 000002 000002 MOV @2(SP),2(SP)
002274 012746 MOV (PC)+,-(SP)
002276 013 007 .BYTE 11.,7
002300 104375 EMT 375
456 002302 140$:
457 002302 EXIT$S
002302 012746 MOV (PC)+,-(SP)
002304 063 001 .BYTE 51.,1
002306 104375 EMT 375
458
459 002310 ...KLI:
460 002310 131574 043251 .RAD50 /...KLI/
461 002314 ...KLE:
462 002314 131574 043245 .RAD50 /...KLE/
463 ;
464 ; KL ERROR MESSAGES
465 ;
466 002320 026 TENEPE: .BYTE TENSM-.-1
467 002321 012 015 105 .ASCII <12><15>/E-BUS PARITY ERROR/<15><12>
002324 055 102 125
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-11
TASK CODE
002327 123 040 120
002332 101 122 111
002335 124 131 040
002340 105 122 122
002343 117 122 015
002346 012
468 002347 015 TENSM: .BYTE TENCES-.-1
469 002350 012 015 113 .ASCII <12><15>/KL HALTED/<12><15>
002353 114 040 110
002356 101 114 124
002361 105 104 012
002364 015
470 002365 024 TENCES: .BYTE DEXMSG-.-1
471 002366 015 012 103 .ASCII <15><12>/CLOCK ERROR STOP/<12><15>
002371 114 117 103
002374 113 040 105
002377 122 122 117
002402 122 040 123
002405 124 117 120
002410 012 015
472 002412 033 DEXMSG: .BYTE KEPST-.-1
473 002413 015 012 104 .ASCII <15><12>/DEPOSIT EXAMINE FAILURE/<12><15>
002416 105 120 117
002421 123 111 124
002424 040 105 130
002427 101 115 111
002432 116 105 040
002435 106 101 111
002440 114 125 122
002443 105 012 015
474 002446 025 KEPST: .BYTE PRTIMO-.-1
475 002447 015 012 113 .ASCII <15><12>/KEEP ALIVE CEASED/<15><12>
002452 105 105 120
002455 040 101 114
002460 111 126 105
002463 040 103 105
002466 101 123 105
002471 104 015 012
476 002474 024 PRTIMO: .BYTE TRRB-.-1
477 002475 015 012 120 .ASCII <15><12>/PROTOCOL TIMEOUT/<15><12>
002500 122 117 124
002503 117 103 117
002506 114 040 124
002511 111 115 105
002514 117 125 124
002517 015 012
478 002521 025 TRRB: .BYTE KEPFT-.-1
479 002522 015 012 122 .ASCII <15><12>/RE-BOOT REQUESTED/<15><12>
002525 105 055 102
002530 117 117 124
002533 040 122 105
002536 121 125 105
002541 123 124 105
002544 104 015 012
480 002547 026 KEPFT: .BYTE 1$-.-1
481 002550 015 012 120 .ASCII <15><12>/POWER-FAIL RESTART/<15><12>
002553 117 127 105
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-12
TASK CODE
002556 122 055 106
002561 101 111 114
002564 040 122 105
002567 123 124 101
002572 122 124 015
002575 012
482 002576 1$: .EVEN
483
484 000000' .END START
TASK TERMINATION NOTIFICATION MACRO M1110 03-OCT-79 09:27 PAGE 5-13
SYMBOL TABLE
ATLSCN 000000R KL.KAC= ****** GX MESS20 001332R S.TN = ****** GX $CD11 = 000001
A.FM = ****** GX KL.LCA= ****** GX MESS22 001356R TENAD1= 174410 $DBDTE= 000001
A.SP = ****** GX KL.LRM= ****** GX MESS24 001363R TENAD2= 174412 $DH11 = 000001
A.TD = ****** GX KL.LVB= ****** GX MESS26 001370R TENCES 002365R $DTA = 000001
A.TS = ****** GX KL.SPF= ****** GX MESS30 001375R TENEPE 002320R $DTE = 000001
BEGMT 000766R KL.SSC= ****** GX MESS32 001423R TENERS 001634RG $FE = 000001
DAG1 = 000030 KL.VBD= ****** GX MESS34 001451R TENSM 002347R $F11 = 000001
DAG2 = 000032 KL.VBN= ****** GX MESS36 001510R TMPL1 000612R $LP20 = 000001
DAG3 = 000036 KS.CES= ****** GX MESS40 001534R TMPL1A 000621R $RP04 = 000001
DEP = 010000 KS.CST= ****** GX MESS42 001570R TMPL2 000643R $TOP10= 000001
DEXMSG 002412R KS.DEX= ****** GX MESS44 001633R TMPL2A 000646R $$ = 000037
DEXWD1= 174402 KS.EPE= ****** GX PRTIMO 002474R TMPL2B 000651R $$$T2 = 000027
DPBATT 000710R KS.PFT= ****** GX PS = ****** GX TMPL3 000657R .ATLLH= ****** GX
DPBDET 000746R KS.PTO= ****** GX PSEXP = 177776 TNAD1 = 000010 .COMEF= ****** GX
DPBWFE 000762R KS.TRR= ****** GX RSX$$E= 000041 TNAD2 = 000012 .INHDM= ****** GX
DPBWR1 000724R KS.TSP= ****** GX RSX$$F= 000101 TN.LRF= ****** GX .KLERW= ****** GX
DXWD1 = 000006 LUN = 000001 RSX$$K= 000126 TO10DB= 001000 .KLITK= ****** GX
DXWD2 = 000004 L$$P20= 000002 RSX$$V= 000013 TO10Q = ****** GX .KLIWD= ****** GX
DXWD3 = 000002 MESS00 001034R R$$11D= 000001 TRRB 002521R .KLRLD= ****** GX
D$$H11= 000010 MESS02 001073R SF.ST = ****** GX TS.EXT= ****** GX .KPAC = ****** GX
EF.CRI= ****** GX MESS04 001125R START 000000RG TS.TKN= ****** GX ..DECB= ****** GX
ENDMT = 000024 MESS06 001163R STAT = 174434 TYPMES 000660R ..ENB0= ****** GX
FORPRO= 000020 MESS10 001203R STATD = 000034 TYPREG 000532R ..PICK= ****** GX
KEPFT 002547R MESS12 001234R STATUS= 000022 T10AD = 000020 ..RDTA= ****** GX
KEPST 002446R MESS14 001264R STSTT = ****** GX T11AD = 000022 ...KLE 002314R
KL.CFM= ****** GX MESS16 001305R S.FW = ****** GX T11BC = 000016 ...KLI 002310R
. ABS. 000000 000
002576 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2320 WORDS ( 10 PAGES)
DYNAMIC MEMORY: 3724 WORDS ( 14 PAGES)
ELAPSED TIME: 00:00:33
[47,10]TKTN,[47,20]TKTN/-SP/CR=[20,30]RSXFC/PA:1,[100,30]DTESSS,[47,30]TKTN
TKTN CREATED BY MACRO ON 3-OCT-79 AT 09:27 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ATLSCN 000000 R #5-88 5-189
A.FM = ****** GX 5-120
A.SP = ****** GX 5-130 5-139 5-161
A.TD = ****** GX 5-111 5-166
A.TS = ****** GX 5-101 *5-179
BEGMT 000766 R 5-126 #5-267
DAG1 = 000030 #3-63
DAG2 = 000032 #3-62
DAG3 = 000036 #3-60
DEP = 010000 #5-73 5-172
DEXMSG 002412 R 5-373 5-470 #5-472
DEXWD1 = 174402 #5-74 5-171
DPBATT 000710 R #5-241
DPBDET 000746 R 5-180 #5-256
DPBWFE 000762 R 5-183 5-234 #5-262
DPBWR1 000724 R *5-229 *5-230 5-231 #5-247
DXWD1 = 000006 #3-69
DXWD2 = 000004 #3-70
DXWD3 = 000002 #3-71
EF.CRI = ****** GX 5-444
ENDMT = 000024 5-121 #5-286
FORPRO = 000020 #5-82
KEPFT 002547 R 5-423 5-478 #5-480
KEPST 002446 R 5-391 5-472 #5-474
KL.CFM = ****** GX 5-350 5-363 5-376 5-425
KL.KAC = ****** GX 5-386 5-430 5-446
KL.LCA = ****** GX 5-350 5-363 5-376 5-425
KL.LRM = ****** GX 5-350 5-363 5-376 5-425 5-442
KL.LVB = ****** GX 5-416
KL.SPF = ****** GX 5-425
KL.SSC = ****** GX 5-337 5-350 5-363 5-376 5-404
KL.VBD = ****** GX 5-416
KL.VBN = ****** GX 5-416
KS.CES = ****** GX 5-342 5-450
KS.CST = ****** GX 5-381 5-450
KS.DEX = ****** GX 5-368 5-450
KS.EPE = ****** GX 5-355 5-450
KS.PFT = ****** GX 5-418
KS.PTO = ****** GX 5-395 5-450
KS.TRR = ****** GX 5-409
KS.TSP = ****** GX 5-329 5-450
LUN = 000001 #5-81 5-243 5-249 5-258
MESS00 001034 R 5-267 #5-288
MESS02 001073 R 5-268 5-288 #5-290
MESS04 001125 R 5-269 5-290 #5-292
MESS06 001163 R 5-270 5-292 #5-294
MESS10 001203 R 5-271 5-294 #5-296
MESS12 001234 R 5-272 5-296 #5-298
MESS14 001264 R 5-273 5-298 #5-300
MESS16 001305 R 5-274 5-300 #5-302
MESS20 001332 R 5-275 5-302 #5-304
MESS22 001356 R 5-276 5-304 #5-306
TKTN CREATED BY MACRO ON 3-OCT-79 AT 09:27 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MESS24 001363 R 5-277 5-306 #5-308
MESS26 001370 R 5-278 5-308 #5-310
MESS30 001375 R 5-279 5-310 #5-312
MESS32 001423 R 5-280 5-312 #5-314
MESS34 001451 R 5-281 5-314 #5-316
MESS36 001510 R 5-282 5-316 #5-318
MESS40 001534 R 5-283 5-318 #5-320
MESS42 001570 R 5-284 5-320 #5-322
MESS44 001633 R 5-285 5-322 #5-324
PRTIMO 002474 R 5-400 5-474 #5-476
PS = ****** GX 5-88 5-88 5-170 5-170
PSEXP = 177776 #5-79
RSX$$E = 000041 #3-35
RSX$$F = 000101 #3-43 #3-46 3-54 5-3
RSX$$K = 000126 #3-39
RSX$$V = 000013 #3-34
SF.ST = ****** GX 5-167
START 000000 RG #5-87 5-484
STAT = 174434 #5-78 5-174
STATD = 000034 #3-61
STATUS = 000022 #5-83
STSTT = ****** GX *5-169
S.FW = ****** GX 5-167
S.TN = ****** GX 5-112
TENAD1 = 174410 #5-75 5-172
TENAD2 = 174412 #5-76 5-173
TENCES 002365 R 5-347 5-468 #5-470
TENEPE 002320 R 5-360 #5-466
TENERS 001634 RG 5-98 #5-326
TENSM 002347 R 5-334 5-466 #5-468
TMPL1 000612 R 5-115 #5-216
TMPL1A 000621 R 5-113 #5-218
TMPL2 000643 R 5-212 5-216 #5-219
TMPL2A 000646 R *5-132 *5-133 *5-136 *5-140 *5-141 *5-144 *5-147 *5-150 *5-153
*5-156 *5-159 *5-160 #5-221
TMPL2B 000651 R 5-195 #5-222
TMPL3 000657 R 5-219 #5-223
TNAD1 = 000010 #3-67
TNAD2 = 000012 #3-68
TN.LRF = ****** GX 5-128
TO10DB = 001000 #5-77 5-174
TO10Q = ****** GX 5-432
TRRB 002521 R 5-414 5-476 #5-478
TS.EXT = ****** GX 5-179
TS.TKN = ****** GX 5-101
TYPMES 000660 R 5-116 5-116 5-127 5-127 5-213 5-213 #5-229 5-335 5-335
5-348 5-348 5-361 5-361 5-374 5-374 5-402 5-402 5-415
5-415 5-424 5-424
TYPREG 000532 R 5-135 5-135 5-138 5-138 5-143 5-143 5-146 5-146 5-149
5-149 5-152 5-152 5-155 5-155 5-158 5-158 5-162 5-162
#5-195
T10AD = 000020 #3-65
TKTN CREATED BY MACRO ON 3-OCT-79 AT 09:27 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
T11AD = 000022 #3-64
T11BC = 000016 #3-66
$TOP10 = 000001 3-44 5-336 5-349 5-362 5-375 5-403
$TOP20 = ****** 3-51
$T1091 = ****** 3-45
$$ = 000037 #5-94 5-94 #5-103 5-103 #5-114 5-114 #5-116 5-116 #5-127
5-127 #5-135 5-135 #5-138 5-138 #5-143 5-143 #5-146 5-146
#5-149 5-149 #5-152 5-152 #5-155 5-155 #5-158 5-158 #5-162
5-162 #5-213 5-213 #5-335 5-335 #5-348 5-348 #5-361 5-361
#5-374 5-374 #5-402 5-402 #5-415 5-415 #5-424 5-424 #5-433
5-433 #5-437 5-437
$$$T2 = 000027 #5-452 5-452 #5-455 5-455
.ATLLH = ****** GX 5-90 5-92
.COMEF = ****** GX *5-444
.INHDM = ****** GX *5-427
.KLERW = ****** GX *5-97
.KLITK = ****** GX 5-95 5-97 5-327 *5-328
.KLIWD = ****** GX *5-454
.KLRLD = ****** GX 5-448
.KPAC = ****** GX 5-387
..DECB = ****** GX 5-437 5-437
..ENB0 = ****** GX 5-94 5-94 5-103 5-103
..PICK = ****** GX 5-433 5-433
..RDTA = ****** GX 5-114 5-114
...KLE 002314 R 5-452 5-452 #5-461
...KLI 002310 R 5-455 5-455 #5-459
TKTN CREATED BY MACRO ON 3-OCT-79 AT 09:27 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-70 #5-94 #5-103 #5-114 #5-116 #5-127 #5-135 #5-138 #5-143 #5-146
#5-149 #5-152 #5-155 #5-158 #5-162 #5-213 #5-335 #5-348 #5-361 #5-374
#5-402 #5-415 #5-424 #5-433 #5-437
DECL$S #5-70 5-185
DIR$ #5-99 5-99 #5-185 5-185 #5-452 5-452 #5-455 5-455 #5-457 5-457
ERR$ #5-99 #5-185 #5-452 #5-455 #5-457
EXIT$S #5-70 #5-99 #5-457
IDENT$ #4-82 #5-3 #5-3
MOV$ #5-185 #5-452 5-452 #5-455 5-455
MVB$ #5-452 #5-452 #5-455 #5-455
RETURN #5-70 #5-214 #5-236
RFA$ #5-452 5-452 5-452 #5-455 5-455 5-455
RQST$S #5-70 #5-452 #5-455
WSIG$S #5-70
.ENB #5-71
.ENB0 #5-70 5-94 5-103
.ENB6 #5-70
.INH #5-71
.INH0 #5-70 #5-88
.INH6 #5-70 #5-170
RSX20F -- RESIDENT EXECUTIVE MACRO M1108 05-DEC-77 17:25 PAGE 2
2 .TITLE RSX20F -- RESIDENT EXECUTIVE
3 .IDENT "V002A"
4 ;
5 ;
6 ;
7 ;
8 ;
9 ; COPYRIGHT (C) 1975, 1978 BY
10 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
11 ;
12 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
13 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
14 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
15 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
16 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
17 ;
18 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
19 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
20 ; CORPORATION.
21 ;
22 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
23 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
24 ;
25 ;
26 ;
27 ;
28 ; MODULE: "RADIX50 TO ASCII"
29 ;
30 ; VERSION: V002A
31 ;
32 ; AUTHOR: R. MCLEAN
33 ;
34 ; DATE: 19 JUL 75
35 ;
36 ;
37 ; THIS MODULE CONTAINS:
38 ;
39 ; 1 -- CODE TO CONVERT RADIX50 TO ASCII
RSX20F -- RESIDENT EXECUTIVE MACRO M1108 05-DEC-77 17:25 PAGE 3
41 ;
42 ;
43 ;+
44 ; ..RDTA -- ROUTINE TO CONVERT RADIX50 TO ASCII TEXT
45 ;
46 ; CALLING SEQUENCE:
47 ; R1 -- NUMBER OF CHARACTERS TO BE CONVERTED (MUST BE MULT OF 3)
48 ; R2 -- RADIX 50 BUFFER
49 ; R3 -- ASCII BUFFER
50 ; CALL ..RDTA
51 ;
52 ;
53 ; NOTE -- BLANK'S ARE LEGAL RADIX 50 CHARACTERS
54 ; BUT FOR THIS SUBROUTINE THEY ARE CONVERTED TO
55 ; NULL'S (000).
56 ;-
57 .MCALL CALL,RETURN
58 ;
59 ;
60 ;
61 000000 010046 ..RDTA::MOV R0,-(SP) ;SAVE REGISTERS
62 000002 010146 MOV R1,-(SP)
63 000004 010246 MOV R2,-(SP)
64 000006 010346 MOV R3,-(SP)
65 000010 010446 MOV R4,-(SP)
66 000012 010546 MOV R5,-(SP)
67 000014 012700 000004 RDLPA: MOV #4,R0 ;DECODE 3 CHRS / WORD
68 000020 005004 CLR R4
69 000022 012205 MOV (R2)+,R5 ;PICK UP A WORD
70 000024 005046 CLR -(SP)
71 000026 010046 MOV R0,-(SP)
72 000030 010146 MOV R1,-(SP)
73 000032 010500 MOV R5,R0
74 000034 012701 000050 MOV #50,R1
75 000040 CALL $DIV
76 000044 010166 000004 MOV R1,4(SP) ;SAVE THE CHARACTER FOUND
77 000050 012701 000050 MOV #50,R1
78 000054 CALL $DIV
79 000060 010004 MOV R0,R4
80 000062 010105 MOV R1,R5
81 000064 012601 MOV (SP)+,R1
82 000066 012600 MOV (SP)+,R0
83 000070 010546 MOV R5,-(SP) ;SAVE THE 2ND CHARACTER
84 000072 010446 MOV R4,-(SP) ;SAVE THE 1ST CHARACTER
85 000074 005300 MULP: DEC R0 ;FINISHED WITH WORD?
86 000076 001746 BEQ RDLPA ;YES -- GET ANOTHER
87 000100 005716 TST @SP ;NO -- DECODE A CHARACTER
88 000102 001413 BEQ MUU ;YES -- DECODE SPACE
89 000104 022716 000032 CMP #32,@SP ;IS IT AN LETTER?
90 000110 100030 BPL ASCF ;YES -- ENCODE ASCII
91 000112 022716 000034 CMP #34,@SP ;NO -- IS IT A PERIOD?
92 000116 001422 BEQ PRIOD ;YES -- ENCODE .
93 000120 022716 000033 CMP #33,@SP ;IS IT A $
94 000124 001414 BEQ DOLR ;YES -- ENCODE $
95 000126 062716 000022 ADD #22,@SP ;NO -- MUST BE NUMBER ADD 22
96 000132 012604 MUU: MOV (SP)+,R4 ;STORE THE CHARACTER IN USER'S UFFER
97 000134 110423 MOVB R4,(R3)+
RSX20F -- RESIDENT EXECUTIVE MACRO M1108 05-DEC-77 17:25 PAGE 3-1
98 000136 077122 SOB R1,MULP ;FINISHED?
99 000140 012605 MOV (SP)+,R5
100 000142 012604 MOV (SP)+,R4
101 000144 012603 MOV (SP)+,R3
102 000146 012602 MOV (SP)+,R2
103 000150 012601 MOV (SP)+,R1
104 000152 012600 MOV (SP)+,R0
105 000154 RETURN ;YES -- RETURN
106 ;
107 000156 012716 000044 DOLR: MOV #'$,@SP ;SET UP TO STORE $
108 000162 000763 BR MUU
109 ;
110 000164 012716 000056 PRIOD: MOV #'.,@SP
111 000170 000760 BR MUU ;STORE .
112 000172 052716 000100 ASCF: BIS #100,@SP ;SET UP AS ASCII
113 000176 000755 BR MUU
114 ;
115 000001 .END
RSX20F -- RESIDENT EXECUTIVE MACRO M1108 05-DEC-77 17:25 PAGE 3-2
SYMBOL TABLE
ASCF 000172R MULP 000074R PRIOD 000164R $DIV = ****** GX ..RDTA 000000RG
DOLR 000156R MUU 000132R RDLPA 000014R $$ = 000067
. ABS. 000000 000
000200 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 193 WORDS ( 1 PAGES)
DYNAMIC MEMORY: 3104 WORDS ( 11 PAGES)
ELAPSED TIME: 00:00:05
[47,10]RDTA,[47,20]RDTA/-SP=[47,30]RDTA