Trailing-Edge
-
PDP-10 Archives
-
bb-m403a-bk
-
tktn.l10
There are 3 other files named tktn.l10 in the archive. Click here to see a list.
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40
TABLE OF CONTENTS
8- 2 TKTN -- TITLE PAGE
9- 65 TKTN -- MACROS AND DEFINITIONS
10- 82 TKTN -- LOCAL DATA
11- 247 TKTN -- ATL SCAN
12- 367 TKTN -- REGISTER OUTPUT
13- 398 TKTN -- TERMINAL OUTPUT ROUTINE
14- 416 TKTN -- KL10 ERRORS
RSX20F -- RESIDENT EXECUTIVE ( MACRO M1113 10-NOV-81 16:40 PAGE 2
1 .TITLE RSX20F -- RESIDENT EXECUTIVE (SYSTEM DEFINITION)
2 .IDENT /014450/
3 .ENABL AMA
4 .LIST MEB
5 .NLIST CND
6 ;
7 ; COPYRIGHT (C) 1975, 1978 BY
8 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
9 ;
10 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
11 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
12 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
13 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
14 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
15 ;
16 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
17 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
22 ;
23 ; R. MCLEAN 19-MAR-75
24 ;
25 ; VERSION 14-45
26 ;
27 ; MODIFIED BY:
28 ;
RSX20F -- RESIDENT EXECUTIVE ( MACRO M1113 10-NOV-81 16:40 PAGE 3
30 ;
31 ; SET VERSION OF RSX20F EXEC HERE
32 ;
33 000014 RSX$$V = 14 ; VERSION 14
34 000045 RSX$$E = 45 ; EDIT 45
35 ;
36 ; RELEASE VERSION
37 ;
38 000126 RSX$$K = 'V ; KEY FOR RELEASE-TYPE
39 ; "V" -- RELEASE
40 ; "X" -- EXPERIMENTAL
41 ; "Y" -- FIELD/LOAD TEST
42 000000 RSX$$F = 0 ; DEFINE FORM AS NULL
45 000101 RSX$$F = 'A ; TOPS-10 FORM OF THE EXEC.
56 ;
57 ; DTE-20 REGISTER OFFSETS
58 ;
59 000036 DAG3 =36
60 000034 STATD =34
61 000032 DAG2 =32
62 000030 DAG1 =30
63 000022 T11AD =22
64 000020 T10AD =20
65 000016 T11BC =16
66 000010 TNAD1 =10
67 000012 TNAD2 =12
68 000006 DXWD1 =6
69 000004 DXWD2 =4
70 000002 DXWD3 =2
RSX20F -- RESIDENT EXECUTIVE ( MACRO M1113 10-NOV-81 16:40 PAGE 4
72 ;+
73 ; MACRO TO SET IDENT FOR EXEC MODULES.
74 ; FORMAT OF CALL IS:
75 ; IDENT$ VERSION,EDIT
76 ; OR
77 ; IDENT$ VERSION,EDIT,RSX$$F
78 ; IF MODULE CODING CHANGES WITH DIFFERENT FORMS
79 ;-
80
81 .MACRO IDENT$ VER,EDT,FRM,NUM
82 .IF B,NUM
83 .IF B,FRM
84 IDENT$ \VER,\EDT,0,0
85 .IFF
86 .IF EQ,<FRM-'A>
87 IDENT$ \VER,\EDT,A,0
88 .IFF
89 .IF EQ,<FRM-'B>
90 IDENT$ \VER,\EDT,B,0
91 .IFF
92 IDENT$ \VER,\EDT,E,0
93 .ENDC
94 .ENDC
95 .ENDC
96 .MEXIT
97 .IFF
98 .IF GE,VER-10
99 .IF GE,EDT-10
100 .LIST
101 .IDENT /'FRM'VER'EDT'0/
102 .NLIST
103 .IFF
104 .LIST
105 .IDENT /'FRM'VER'0'EDT'0/
106 .NLIST
107 .ENDC
108 .IFF
109 .IF GE,EDT-10
110 .LIST
111 .IDENT /'FRM'0'VER'EDT'0/
112 .NLIST
113 .IFF
114 .LIST
115 .IDENT /'FRM'0'VER'0'EDT'0/
116 .NLIST
117 .ENDC
118 .ENDC
119 .ENDC
120 .ENDM IDENT$
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 7
1 .TITLE TASK TERMINATION NOTIFICATION
2 .SBTTL TKTN -- TITLE PAGE
3 000000 IDENT$ 14,34,RSX$$F
.IDENT /A14340/
4 ;
5 ; COPYRIGHT (C) 1973, 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
10 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
11 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
12 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
13 ;
14 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
15 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
16 ; CORPORATION.
17 ;
18 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
19 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
20 ;
21 ;
22 ; MODULE: TASK TERMINATION NOTIFICATION TASK
23 ;
24 ; AUTHOR: H. KREJCI
25 ;
26 ; DATE: 12 OCT 73
27 ;
28 ; RSX20F: R. MCLEAN
29 ;
30 ; THIS MODULE CONTAINS:
31 ;
32 ; 1 -- A TASK TO OUTPUT TASK TERMINATION NOTIFICATION.
33 ;
34 ; MODIFICATIONS:
35 ;
36 ; NO. DATE PROGRAMMER PURPOSE
37 ; --- ---- ---------- -------
38 ; 001 7-JUN-74 M. R. GARRY
39 ; 002 1-JUL-75 ELLEN SIMICH
40 ; 003 21-OCT-76 A. PECKHAM REDIRECT KL CRASHES TO TOPS-10
41 ; 407 RESTART FOR DUMP AND REBOOT.
42 ; 004 04-NOV-76 R. BELANGER MAKE "KLI" RELOAD THE KL
43 ; ON CLOCK ERROR STOP
44 ; 005 16-NOV-76 A. PECKHAM REQUEST KL20 BOOT TO DUMP
45 ; ON HARDWARE ERRORS
46 ; 006 16-NOV-76 A. PECKHAM CHANGE TO LET KLERR CALL
47 ; KLINIT WHEN FINISHED.
48 ; 007 2-FEB-77 A. PECKHAM CLEAR .KLIWD WHEN NO RELOAD.
49 ; 008 10-FEB-77 A. PECKHAM FIX BUG IN #007.
50 ; 009 18-FEB-77 A. PECKHAM FIX BUG IN #008.
51 ; 010 07-OCT-77 R. BELANGER ADD CODE TO RENDER COMM REGION
52 ; INVALID FOR "BOOT"
53 ; 011 11-NOV-77 R. BELANGER ELIMINATE DUMP ON DEX FAILURE
54 ; 012 27-MAY-78 R. BELANGER ADD SUPPORT FOR PROTOCOL TIMEOUT
55 ; TREATED AS "KEEP-ALIVE CEASED"
56 ; 013 10-JUL-78 R. BELANGER REMOVE DUMP REQUEST FROM TOPS-20
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 7-1
TKTN -- TITLE PAGE
57 ; CLOCK ERROR STOP PROCESSING
58 ; TCO 4.2018 05-DEC-78 R. BELANGER INHIBIT DM-11/BBS ON KL10 RELOAD
59 ; TCO 4.2107 07-DEC-78 K. LEFEBVRE INVOKE KLINIT ONLY ON
60 ; FIRST KEEP ALIVE CEASE
61 ; TCO 4.1.1065 10-JAN-80 R. BELANGER CHANGE DEPOSIT/EXAMINE (DEX)
62 ; ERROR MESSAGE
63 ; TCO 5.1127 12-AUG-80 S. LEAPLINE TEST FOR HOST DEBUG MODE
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 8
TKTN -- MACROS AND DEFINITIONS
65 .SBTTL TKTN -- MACROS AND DEFINITIONS
66
67 .MCALL CALL,RETURN,.INH0,.ENB0,EXIT$S,DECL$S,RQST$S,.INH6,.ENB6,WSIG$S
68 .MCALL .INH,.ENB
69
70 010000 DEP=010000 ; DEPOSIT
71 174402 DEXWD1=174402 ; DEPOSIT EXAMINE WORD 1
72 174410 TENAD1=174410
73 174412 TENAD2=174412
74 001000 TO10DB=1000 ; TO 10 DOORBELL
75 174434 STAT=174434
76 177776 PSEXP=177776
77
78 000001 LUN=1
79 000020 FORPRO=20 ; ADDRESS OF REGION
80 000022 STATUS=22
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 9
TKTN -- LOCAL DATA
82 .SBTTL TKTN -- LOCAL DATA
83
84 000000 TMPL1:
85 000000 030 .BYTE TMPL2-.-1
86 000001 124 101 123 .ASCII 'TASK "'
000004 113 040 042
87 000007 TMPL1A:
88 000007 130 130 130 .ASCII 'XXXXXX" TERMINATED'
000012 130 130 130
000015 042 040 124
000020 105 122 115
000023 111 116 101
000026 124 105 104
89 000031 TMPL2:
90 000031 013 .BYTE TMPL3-.-1
91 000032 040 040 .ASCII " "
92 000034 TMPL2A:
93 000034 122 122 075 .ASCII "RR="
94 000037 TMPL2B:
95 000037 130 130 130 .ASCII "XXXXXX"
000042 130 130 130
96 000045 TMPL3:
97 .EVEN
98 ;
99 ; DIRECTIVE PARAMETER BLOCKS
100 ;
101 ;
102 000046 DPBATT:
103 000046 001 006 .BYTE 1.,6. ; ATTACH LUN
104 000050 001400 .WORD 1400
105 000052 000001 .WORD LUN
106 000054 000 000 .BYTE 0,0
107 000056 000000 000000 .WORD 0,0
108 ;
109 000062 DPBWR1:
110 000062 001 011 .BYTE 1.,9. ; WRITE TO LUN
111 000064 000400 .WORD 0400
112 000066 000001 .WORD LUN
113 000070 040 000 .BYTE 32.,0
114 000072 000000 000000 .WORD 0,0
115 000076 000000 .WORD 0
116 000100 000000 .WORD 0
117 000102 000040 .WORD 40
118 ;
119 000104 DPBDET:
120 000104 001 006 .BYTE 1.,6. ; DETACH FROM LUN
121 000106 002000 .WORD 2000
122 000110 000001 .WORD LUN
123 000112 040 000 .BYTE 32.,0
124 000114 000000 000000 .WORD 0,0
125 ;
126 000120 DPBWFE:
127 000120 051 002 .BYTE 41.,2. ; WAITFOR EFN 32.
128 000122 000040 .WORD 32.
129 ;
130 ; MESSAGE TABLES & TEXT
131 ;
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 9-1
TKTN -- LOCAL DATA
132 000124 BEGMT:
133 000124 000172' .WORD MESS00 ; TERMINATION MESSAGE TABLE
134 000126 000231' .WORD MESS02
135 000130 000263' .WORD MESS04
136 000132 000321' .WORD MESS06
137 000134 000341' .WORD MESS10
138 000136 000372' .WORD MESS12
139 000140 000422' .WORD MESS14
140 000142 000443' .WORD MESS16
141 000144 000470' .WORD MESS20
142 000146 000514' .WORD MESS22
143 000150 000521' .WORD MESS24
144 000152 000526' .WORD MESS26
145 000154 000533' .WORD MESS30
146 000156 000561' .WORD MESS32
147 000160 000607' .WORD MESS34
148 000162 000646' .WORD MESS36
149 000164 000672' .WORD MESS40
150 000166 000726' .WORD MESS42
151 000170 000771' .WORD MESS44
152 000024 ENDMT=24
153
154 000172 MESS00:
155 000172 036 .BYTE MESS02-.-1
156 000173 117 104 104 .ASCII 'ODD ADDRESS OR OTHER TRAP FOUR'
000176 040 101 104
000201 104 122 105
000204 123 123 040
000207 117 122 040
000212 117 124 110
000215 105 122 040
000220 124 122 101
000223 120 040 106
000226 117 125 122
157 000231 MESS02:
158 000231 031 .BYTE MESS04-.-1
159 000232 042 122 105 .ASCII '"RESERVED INST" EXECUTION'
000235 123 105 122
000240 126 105 104
000243 040 111 116
000246 123 124 042
000251 040 105 130
000254 105 103 125
000257 124 111 117
000262 116
160 000263 MESS04:
161 000263 035 .BYTE MESS06-.-1
162 000264 124 055 102 .ASCII 'T-BIT TRAP OR "BPT" EXECUTION'
000267 111 124 040
000272 124 122 101
000275 120 040 117
000300 122 040 042
000303 102 120 124
000306 042 040 105
000311 130 105 103
000314 125 124 111
000317 117 116
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 9-2
TKTN -- LOCAL DATA
163 000321 MESS06:
164 000321 017 .BYTE MESS10-.-1
165 000322 042 111 117 .ASCII '"IOT" EXECUTION'
000325 124 042 040
000330 105 130 105
000333 103 125 124
000336 111 117 116
166 000341 MESS10:
167 000341 030 .BYTE MESS12-.-1
168 000342 115 105 115 .ASCII 'MEMORY PROTECT VIOLATION'
000345 117 122 131
000350 040 120 122
000353 117 124 105
000356 103 124 040
000361 126 111 117
000364 114 101 124
000367 111 117 116
169 000372 MESS12:
170 000372 027 .BYTE MESS14-.-1
171 000373 042 116 117 .ASCII '"NON-RSX EMT" EXECUTION'
000376 116 055 122
000401 123 130 040
000404 105 115 124
000407 042 040 105
000412 130 105 103
000415 125 124 111
000420 117 116
172 000422 MESS14:
173 000422 020 .BYTE MESS16-.-1
174 000423 042 124 122 .ASCII '"TRAP" EXECUTION'
000426 101 120 042
000431 040 105 130
000434 105 103 125
000437 124 111 117
000442 116
175 000443 MESS16:
176 000443 024 .BYTE MESS20-.-1
177 000444 061 061 057 .ASCII '11/40 F.P. EXCEPTION'
000447 064 060 040
000452 106 056 120
000455 056 040 105
000460 130 103 105
000463 120 124 111
000466 117 116
178 000470 MESS20:
179 000470 023 .BYTE MESS22-.-1
180 000471 115 105 115 .ASCII 'MEMORY PARITY ERROR'
000474 117 122 131
000477 040 120 101
000502 122 111 124
000505 131 040 105
000510 122 122 117
000513 122
181 000514 MESS22:
182 000514 004 .BYTE MESS24-.-1
183 000515 106 060 061 .ASCII "F014"
000520 064
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 9-3
TKTN -- LOCAL DATA
184 000521 MESS24:
185 000521 004 .BYTE MESS26-.-1
186 000522 106 060 061 .ASCII "F013"
000525 063
187 000526 MESS26:
188 000526 004 .BYTE MESS30-.-1
189 000527 106 060 061 .ASCII "F012"
000532 062
190 000533 MESS30:
191 000533 025 .BYTE MESS32-.-1
192 000534 123 123 124 .ASCII 'SST ABORT (BAD STACK)'
000537 040 101 102
000542 117 122 124
000545 040 050 102
000550 101 104 040
000553 123 124 101
000556 103 113 051
193 000561 MESS32:
194 000561 025 .BYTE MESS34-.-1
195 000562 101 123 124 .ASCII 'AST ABORT (BAD STACK)'
000565 040 101 102
000570 117 122 124
000573 040 050 102
000576 101 104 040
000601 123 124 101
000604 103 113 051
196 000607 MESS34:
197 000607 036 .BYTE MESS36-.-1
198 000610 101 102 117 .ASCII 'ABORTED VIA DIRECTIVE (OR MCR)'
000613 122 124 105
000616 104 040 126
000621 111 101 040
000624 104 111 122
000627 105 103 124
000632 111 126 105
000635 040 050 117
000640 122 040 115
000643 103 122 051
199 000646 MESS36:
200 000646 023 .BYTE MESS40-.-1
201 000647 124 111 115 .ASCII 'TIME LIMIT EXCEEDED'
000652 105 040 114
000655 111 115 111
000660 124 040 105
000663 130 103 105
000666 105 104 105
000671 104
202 000672 MESS40:
203 000672 033 .BYTE MESS42-.-1
204 000673 114 117 101 .ASCII 'LOAD FAILURE (DSK READ ERR)'
000676 104 040 106
000701 101 111 114
000704 125 122 105
000707 040 050 104
000712 123 113 040
000715 122 105 101
000720 104 040 105
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 9-4
TKTN -- LOCAL DATA
000723 122 122 051
205 000726 MESS42:
206 000726 042 .BYTE MESS44-.-1
207 000727 103 110 105 .ASCII 'CHECKPOINT FAILURE (DSK WRITE ERR)'
000732 103 113 120
000735 117 111 116
000740 124 040 106
000743 101 111 114
000746 125 122 105
000751 040 050 104
000754 123 113 040
000757 127 122 111
000762 124 105 040
000765 105 122 122
000770 051
208 000771 MESS44:
209 .EVEN
210 ;
211 000772 ...KLI:
212
213 000772 131574 043251 .RAD50 /...KLI/
214 000776 ...KLE:
215
216 000776 062072 073632 .RAD50 /PARSER/
217 ;
218 ; KL ERROR MESSAGES
219 ;
220 001002 TENEPE:
221 001002 026 .BYTE TENSM-.-1
222 001003 012 015 105 .ASCII <12><15>/E-BUS PARITY ERROR/<15><12>
001006 055 102 125
001011 123 040 120
001014 101 122 111
001017 124 131 040
001022 105 122 122
001025 117 122 015
001030 012
223 001031 TENSM:
224 001031 015 .BYTE TENCES-.-1
225 001032 012 015 113 .ASCII <12><15>/KL HALTED/<12><15>
001035 114 040 110
001040 101 114 124
001043 105 104 012
001046 015
226 001047 TENCES:
227 001047 024 .BYTE DEXMSG-.-1
228 001050 015 012 103 .ASCII <15><12>/CLOCK ERROR STOP/<12><15>
001053 114 117 103
001056 113 040 105
001061 122 122 117
001064 122 040 123
001067 124 117 120
001072 012 015
229 001074 DEXMSG:
230 001074 046 .BYTE KEPST-.-1
231 001075 015 012 120 .ASCII <15><12>/PI LEVEL 0 INTERRUPT FAILURE (DEX)/<12><15>
001100 111 040 114
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 9-5
TKTN -- LOCAL DATA
001103 105 126 105
001106 114 040 060
001111 040 111 116
001114 124 105 122
001117 122 125 120
001122 124 040 106
001125 101 111 114
001130 125 122 105
001133 040 050 104
001136 105 130 051
001141 012 015
232 001143 KEPST:
233 001143 025 .BYTE PRTIMO-.-1
234 001144 015 012 113 .ASCII <15><12>/KEEP ALIVE CEASED/<15><12>
001147 105 105 120
001152 040 101 114
001155 111 126 105
001160 040 103 105
001163 101 123 105
001166 104 015 012
235 001171 PRTIMO:
236 001171 024 .BYTE TRRB-.-1
237 001172 015 012 120 .ASCII <15><12>/PROTOCOL TIMEOUT/<15><12>
001175 122 117 124
001200 117 103 117
001203 114 040 124
001206 111 115 105
001211 117 125 124
001214 015 012
238 001216 TRRB:
239 001216 025 .BYTE KEPFT-.-1
240 001217 015 012 122 .ASCII <15><12>/RE-BOOT REQUESTED/<15><12>
001222 105 055 102
001225 117 117 124
001230 040 122 105
001233 121 125 105
001236 123 124 105
001241 104 015 012
241 001244 KEPFT:
242 001244 026 .BYTE 1$-.-1
243 001245 015 012 120 .ASCII <15><12>/POWER-FAIL RESTART/<15><12>
001250 117 127 105
001253 122 055 106
001256 101 111 114
001261 040 122 105
001264 123 124 101
001267 122 124 015
001272 012
244 001273 1$:
245 .EVEN
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 10
TKTN -- ATL SCAN
247 .SBTTL TKTN -- ATL SCAN
248
249 ;
250 ; SCAN ATL FOR TASK(S) WITH A STATUS OF "SUSPENDED FOR TERMINATION NOTIFICATION"
251 ;
252 001274 START::
253 001274 ATLSCN:
254 001274 .INH0 ; PUSH PRE-INHIBIT PS ONTO STACK (FOR ..ENB0)
001274 013746 000000G MOV @#PS,-(SP)
001300 112737 000140 000000G MOVB #140,@#PS
255 ;; INHIBIT TASK SWITCHING (RAISE PRI=3)
256 001306 012700 000000G MOV #.ATLLH,R0 ;; USE R0 TO SCAN THE ATL
257 001312 10$:
258 001312 011000 MOV @R0,R0 ;; ADVANCE R0 TO POINT TO NEXT ATL NODE
259 001314 020027 000000G CMP R0,#.ATLLH ;; END OF ATL?
260 001320 001015 BNE 20$ ;;
261 001322 .ENB0
001322 004737 000000G JSR PC,..ENB0
262 001326 005737 000000G TST .KLITK ; CHECK TO SEE IF TEN ERROR STOP
263 001332 001405 BEQ 77$
264 001334 053737 000000G 000000G BIS .KLITK,.KLERW ; RECORD THE ERROR FOR SETSPD REPORT
265 001342 000137 002136' JMP TENERS ; YES -- BETTER OUTPUT MESSAGE AND DO SOMETHING ABOUT IT
266 ;
267 001346 77$:
268 001346 EXIT$S
001346 012746 MOV (PC)+,-(SP)
001350 063 001 .BYTE 51.,1
001352 104375 EMT 375
269
270 001354 20$:
271 001354 126027 000000G 000000G CMPB A.TS(R0),#TS.TKN ;; IS TASK SUPSENDED FOR TERMINTION NOTICE?
272 001362 001353 BNE 10$ ;; NO -- CHECK NEXT ATL NODE
273 001364 .ENB0 ;; YES -- ENABLE TASK SWITCHING, AND OUTPUT NOTIC
001364 004737 000000G JSR PC,..ENB0
274 ;
275 ; TERMINATION INFORMATION IS CODED INTO 'A.FM+0' AS FOLLOWS:
276 ;
277 ; IF BIT-8 IS SET, THE LOW ORDER BYTE CONTAINS A TERMINATION MESSAGE CODE
278 ; IF BIT-9 IS SET, AN I/O RUNDOWN MESSAGE IS TO BE OUTPUT
279 ;
280 001370 012701 000006 MOV #6.,R1 ; CONVERT TASK NAME FROM RADIX-50 TO ASCII
281 001374 016002 000000G MOV A.TD(R0),R2 ; AND STORE IN OUTPUT TEXT STRING.
282 001400 062702 000000G ADD #S.TN,R2
283 001404 012703 000007' MOV #TMPL1A,R3
284 001410 CALL ..RDTA
001410 004737 000000G JSR PC,..RDTA
285 001414 012703 000000' MOV #TMPL1,R3 ; TYPE TASK NAME LINE
286 001420 CALL TYPMES
001420 004737 002106' JSR PC,TYPMES
287 ;
288 ; OUTPUT TERMINATION NOTICE PER LOW ORDER 'A.FM+0' IF BIT-8 IS SET
289 ;
290 001424 116001 000000G MOVB A.FM+0(R0),R1 ; SET R1 TO TERMINATION MESSAGE CODE (INDEX).
291 001430 020127 000024 CMP R1,#ENDMT
292 001434 101003 BHI 30$
293 001436 032701 000001 BIT #1,R1
294 001442 001402 BEQ 40$
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 10-1
TKTN -- ATL SCAN
295 001444 30$:
296 001444 012701 000026 MOV #26,R1
297 001450 40$:
298 001450 016103 000124' MOV BEGMT+0(R1),R3 ; TYPE MESSAGE PER R1
299 001454 CALL TYPMES
001454 004737 002106' JSR PC,TYPMES
300 001460 020127 000000G CMP R1,#TN.LRF ; NO REG OUTPUT IF LOAD REQ FAILURE
301 001464 001541 BEQ 80$
302 001466 016005 000000G MOV A.SP(R0),R5 ; FIND USER'S STACK
303 001472 062705 000014 ADD #14,R5
304 001476 112737 000120 000034' MOVB #'P,TMPL2A ; OUTPUT PC
305 001504 112737 000103 000035' MOVB #'C,TMPL2A+1
306 001512 012503 MOV (R5)+,R3
307 001514 CALL TYPREG
001514 004737 002026' JSR PC,TYPREG
308 001520 112737 000123 000035' MOVB #'S,TMPL2A+1 ; OUTPUT PS
309 001526 012503 MOV (R5)+,R3 ; (POP PS)
310 001530 CALL TYPREG
001530 004737 002026' JSR PC,TYPREG
311 001534 016005 000000G MOV A.SP(R0),R5
312 001540 112737 000122 000034' MOVB #'R,TMPL2A ; OUTPUT R0
313 001546 112737 000060 000035' MOVB #'0,TMPL2A+1
314 001554 012503 MOV (R5)+,R3
315 001556 CALL TYPREG
001556 004737 002026' JSR PC,TYPREG
316 001562 112737 000061 000035' MOVB #'1,TMPL2A+1 ; OUTPUT R1
317 001570 012503 MOV (R5)+,R3
318 001572 CALL TYPREG
001572 004737 002026' JSR PC,TYPREG
319 001576 112737 000062 000035' MOVB #'2,TMPL2A+1 ; OUTPUT R2
320 001604 012503 MOV (R5)+,R3
321 001606 CALL TYPREG
001606 004737 002026' JSR PC,TYPREG
322 001612 112737 000063 000035' MOVB #'3,TMPL2A+1 ; OUTPUT R3
323 001620 012503 MOV (R5)+,R3
324 001622 CALL TYPREG
001622 004737 002026' JSR PC,TYPREG
325 001626 112737 000064 000035' MOVB #'4,TMPL2A+1 ; OUTPUT R4
326 001634 012503 MOV (R5)+,R3
327 001636 CALL TYPREG
001636 004737 002026' JSR PC,TYPREG
328 001642 112737 000065 000035' MOVB #'5,TMPL2A+1 ; OUTPUT R5
329 001650 012503 MOV (R5)+,R3
330 001652 CALL TYPREG
001652 004737 002026' JSR PC,TYPREG
331 001656 112737 000123 000034' MOVB #'S,TMPL2A ; OUTPUT SP
332 001664 112737 000120 000035' MOVB #'P,TMPL2A+1
333 001672 016003 000000G MOV A.SP(R0),R3
334 001676 CALL TYPREG
001676 004737 002026' JSR PC,TYPREG
335 ;
336 ; TASK EXIT'ED WITH PENDING I/O (NO FAULT TERMINATION)
337 ;
338 001702 70$:
339 001702 016003 000000G MOV A.TD(R0),R3 ; FIND THE STD ADDRESS
340 001706 032763 000000G 000000G BIT #SF.ST,S.FW(R3) ; SYSTEM TASK ABORT?
341 001714 001425 BEQ 80$ ; NO -- THEN JUST CONTINUE
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 10-2
TKTN -- ATL SCAN
342 001716 052737 000004 000000G BIS #4,STSTT ; PUT LOAD 11 IN SAVED STATUS SO IT WON'T BE FORGOTTEN
343 001724 .INH6 ; DISALLOW INTERRUPTS
001724 013746 000000G MOV @#PS,-(SP)
001730 112737 000300 000000G MOVB #300,@#PS
344 001736 012737 000004 174402 MOV #4,@#DEXWD1 ;;; SET LOAD 11 BIT
345 001744 012737 010000 174410 MOV #DEP,@#TENAD1 ;;; PUT REQUEST WHERE HE CAN SEE IT
346 001752 012737 000022 174412 MOV #22,@#TENAD2 ;;; SO
347 001760 012737 001000 174434 MOV #TO10DB,@#STAT ;;; RING HIS DOORBELL
348 001766 000777 BR . ;;; WAIT FOR THE RELOAD
349 ;
350 ; CHANGE STATUS TO 'TS.EXT'
351 ;
352 001770 80$:
353 001770 112760 000000G 000000G MOVB #TS.EXT,A.TS(R0) ; SET STATUS TO 'TS.EXT'
354 001776 012746 000104' MOV #DPBDET,-(SP) ; DETACH LUN
355 002002 104375 EMT 375
356 002004 103403 BCS 90$
357 002006 012746 000120' MOV #DPBWFE,-(SP)
358 002012 104375 EMT 375
359 002014 90$:
360 002014 DECL$S
002014 012746 MOV (PC)+,-(SP)
002016 043 001 .BYTE 35.,1
002020 104375 EMT 375
361 ;
362 ; TERMINATED TASK MAY NOW EXIT (IF AND WHEN ALL PENDING I/O IS RUNDOWN)
363 ;
364 002022 000137 001274' JMP ATLSCN ; CHECK FOR ANOTHER TERMIANTION NOTICE REQUIRED
365 ;
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 11
TKTN -- REGISTER OUTPUT
367 .SBTTL TKTN -- REGISTER OUTPUT
368
369 ;
370 ; TYPREG -- SUBROUTINE TO OUTPUT REGISTER CONTENTS IN R3
371 ;
372 ; R1, R2, R3, & R4 ARE ALTERED
373 ;
374 002026 TYPREG:
375 002026 012704 000037' MOV #TMPL2B,R4
376 002032 012701 000006 MOV #6.,R1
377 002036 005002 CLR R2
378 002040 006103 ROL R3
379 002042 006102 ROL R2
380 002044 000407 BR 20$
381 ;
382 002046 10$:
383 002046 005002 CLR R2
384 002050 006103 ROL R3
385 002052 006102 ROL R2
386 002054 006103 ROL R3
387 002056 006102 ROL R2
388 002060 006103 ROL R3
389 002062 006102 ROL R2
390 002064 20$:
391 002064 062702 000060 ADD #60,R2
392 002070 110224 MOVB R2,(R4)+
393 002072 077113 SOB R1,10$
394 002074 012703 000031' MOV #TMPL2,R3
395 002100 CALL TYPMES
002100 004737 002106' JSR PC,TYPMES
396 002104 RETURN
002104 000207 RTS PC
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 12
TKTN -- TERMINAL OUTPUT ROUTINE
398 .SBTTL TKTN -- TERMINAL OUTPUT ROUTINE
399
400 ;
401 ; TYPMES -- SUBROUTINE TO TYPE MESSAGE PER R3 & R4
402 ;
403 ; R3 -- ADDRESS OF FIRST BYTE OF MESSAGE
404 ;
405 002106 TYPMES:
406 002106 112337 000100' MOVB (R3)+,DPBWR1+16
407 002112 010337 000076' MOV R3,DPBWR1+14
408 002116 012746 000062' MOV #DPBWR1,-(SP)
409 002122 104375 EMT 375
410 002124 103403 BCS 10$
411 002126 012746 000120' MOV #DPBWFE,-(SP)
412 002132 104375 EMT 375
413 002134 10$:
414 002134 RETURN
002134 000207 RTS PC
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 13
TKTN -- KL10 ERRORS
416 .SBTTL TKTN -- KL10 ERRORS
417
418 002136 TENERS::
419 002136 013746 000000G MOV .KLITK,-(SP) ; SAVE ERROR CONDITIONS
420 002142 005037 000000G CLR .KLITK ; AVOID RECURSION
421 002146 032716 000000G BIT #KS.TSP,@SP ; TEN STOPPED
422 002152 001406 BEQ 10$
423 ;
424 ; KL HALTED
425 ;
426 002154 012703 001031' MOV #TENSM,R3
427 002160 CALL TYPMES
002160 004737 002106' JSR PC,TYPMES
429 002164 012700 000000G MOV #KL.SSC,R0
433 002170 10$:
434 002170 032716 000000G BIT #KS.CES,@SP ; CLOCK ERROR STOP
435 002174 001406 BEQ 20$
436 ;
437 ; CLOCK ERROR STOP
438 ;
439 002176 012703 001047' MOV #TENCES,R3
440 002202 CALL TYPMES
002202 004737 002106' JSR PC,TYPMES
442 002206 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
446 002212 20$:
447 002212 032716 000000G BIT #KS.EPE,@SP ; E-BUS PARITY ERROR??
448 002216 001406 BEQ 30$
449 ;
450 ; E-BUS PARITY ERROR
451 ;
452 002220 012703 001002' MOV #TENEPE,R3
453 002224 CALL TYPMES
002224 004737 002106' JSR PC,TYPMES
455 002230 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
459 002234 30$:
460 002234 032716 000000G BIT #KS.DEX,@SP ; DEPOSIT/EXAMINE FAILURE?
461 002240 001406 BEQ 40$ ; NO -- TRY NEXT
462 ;
463 ; DEPOSIT/EXAMINE FAILURE
464 ;
465 002242 012703 001074' MOV #DEXMSG,R3 ; YES -- PRINT DEPOSIT/EX FAILURE
466 002246 CALL TYPMES
002246 004737 002106' JSR PC,TYPMES
468 002252 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SSC,R0
472 002256 40$:
473 002256 032716 000000G BIT #KS.CST,@SP ; KEEP ALIVE STOPPED?
474 002262 001410 BEQ 50$ ; NOPE
475 ;
476 ; KEEP ALIVE CEASED
477 ;
478 002264 012700 000000G MOV #KL.KAC,R0 ; [4.2107] YES -- ASSUME FIRST FAILURE
479 002270 105737 000001G TSTB .KPAC+1 ; [4.2107] FIRST KEEP ALIVE CEASE??
480 002274 002003 BGE 50$ ; [4.2107] YES -- GO ON
481 ;
482 002276 45$: ; [4.2107]
483 002276 012703 001143' MOV #KEPST,R3 ; COMPLAIN
484 002302 000405 BR 60$ ; PRINT MESSAGE AND SETUP ".KLIWD" FLAGS
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 13-1
TKTN -- KL10 ERRORS
485 ;
486 002304 50$:
487 002304 032716 000000G BIT #KS.PTO,@SP ; PROTOCOL TIMEOUT??
488 002310 001406 BEQ 70$ ; NO -- GO ON
489 ;
490 ; PROTOCOL TIMEOUT
491 ;
492 002312 012703 001171' MOV #PRTIMO,R3 ; MESSAGE POINER TO R3
493 002316 60$:
494 002316 CALL TYPMES ; PRINT ERROR MESSAGE
002316 004737 002106' JSR PC,TYPMES
496 002322 012700 000000G MOV #KL.SSC,R0
500 002326 70$:
501 002326 032716 000000G BIT #KS.TRR,@SP ; TEN REQUEST'S RELOAD?
502 002332 001406 BEQ 80$ ; NO -- TRY NEXT
503 ;
504 ; RELOAD KL10
505 ;
506 002334 012703 001216' MOV #TRRB,R3 ; SET TEN REQUESTED REBOOT
507 002340 CALL TYPMES
002340 004737 002106' JSR PC,TYPMES
508 002344 012700 000000C MOV #KL.LVB!KL.VBN!KL.VBD,R0
509 002350 80$:
510 002350 032716 000000G BIT #KS.PFT,@SP ; POWER FAIL RESTART?
511 002354 001406 BEQ 90$ ; NO -- JUST EXIT
512 ;
513 ; POWER-FAIL RESTART
514 ;
515 002356 012703 001244' MOV #KEPFT,R3 ; POWER FAIL ERROR
516 002362 CALL TYPMES ; TYPE MESSAGE
002362 004737 002106' JSR PC,TYPMES
517 002366 012700 000000C MOV #KL.LRM!KL.LCA!KL.CFM!KL.SPF,R0
518 002372 90$:
519 002372 010046 MOV R0,-(SP) ; SAVE .KLIWD SETTINGS.
520 002374 100$:
521 002374 032716 000000G BIT #KL.KAC,(SP) ; [4.2107] KEEP-ALIVE RETRY??
522 002400 001013 BNE 110$ ; [4.2107] YES -- LEAVE TO-10 QUEUE ALONE
523 002402 012704 000000G MOV #TO10Q,R4 ; RETURN NODES FROM Q AFTER CRASH/RELOAD
524 002406 CALL ..PICK
002406 004737 000000G JSR PC,..PICK
525 002412 103406 BCS 110$ ; QUIT IF NONE FOUND
526 002414 016401 000004 MOV 4(R4),R1 ; FIND THE SIZE OF THE NODE
527 002420 010400 MOV R4,R0 ; POINT TO THE NODE
528 002422 CALL ..DECB ; RETURN IT
002422 004737 000000G JSR PC,..DECB
529 002426 000762 BR 100$ ; AND TRY FOR MORE
530 ;
531 002430 110$:
532 002430 012600 MOV (SP)+,R0 ; RESTORE .KLIWD SETTINGS.
533 002432 032700 000000G BIT #KL.LRM,R0 ; RELOAD RAMS??
534 002436 001403 BEQ 120$ ; NO -- GO ON
535 002440 052737 000000G 000002G BIS #EF.CRI,.COMEF+2 ; YES -- COMM REGION IS DEAD
536 002446 120$:
537 002446 022700 000000G CMP #KL.KAC,R0 ; [4.2107] FIRST KEEP ALIVE ERROR?
538 002452 001434 BEQ 130$ ; [4.2107] YES -- REQUEST KLI ONLY
539 002454 105737 000000G TSTB .KLRLD ; IF NO RELOAD, THEN
540 002460 001056 BNE 140$ ; BYPASS KLE & KLI REQUESTS
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 13-2
TKTN -- KL10 ERRORS
541 002462 005737 000000G TST SNDMSG ; [5.1127] IF HOST DEBUG MODE
542 002466 100453 BMI 140$ ; [5.1127] BYPASS KLE & KLI REQUESTS
543 002470 032716 000000C BIT #KS.TSP!KS.CES!KS.DEX!KS.EPE!KS.CST!KS.PTO,(SP) ; IF NECESSARY
544 002474 001423 BEQ 130$ ; THEN
545 002476 005237 000000G INC .KLERQ ; [5.1006] SAY SNAPSHOT NECESSARY
546 002502 RQST$S #...KLE ; SCHEDULE KLERR
002502 005046 CLR -(SP)
002504 005046 CLR -(SP)
002506 005046 CLR -(SP)
002510 005046 CLR -(SP)
002512 012746 000776' MOV #...KLE,-(SP)
002516 017646 000000 MOV @(SP),-(SP)
002522 062766 000002 000002 ADD #2,2(SP)
002530 017666 000002 000002 MOV @2(SP),2(SP)
002536 012746 MOV (PC)+,-(SP)
002540 013 007 .BYTE 11.,7
002542 104375 EMT 375
547 002544 130$:
548 002544 052700 000000G BIS #KL.REQ,R0 ; [4.1.1049] SET KLI REQUESTED
549 002550 010037 000000G MOV R0,.KLIWD ; OR SET KLI FLAGS
550 002554 RQST$S #...KLI ; AND SCHEDULE KLINIT.
002554 005046 CLR -(SP)
002556 005046 CLR -(SP)
002560 005046 CLR -(SP)
002562 005046 CLR -(SP)
002564 012746 000772' MOV #...KLI,-(SP)
002570 017646 000000 MOV @(SP),-(SP)
002574 062766 000002 000002 ADD #2,2(SP)
002602 017666 000002 000002 MOV @2(SP),2(SP)
002610 012746 MOV (PC)+,-(SP)
002612 013 007 .BYTE 11.,7
002614 104375 EMT 375
551 002616 140$:
552 002616 EXIT$S
002616 012746 MOV (PC)+,-(SP)
002620 063 001 .BYTE 51.,1
002622 104375 EMT 375
553
554 001274' .END START
TASK TERMINATION NOTIFICATION MACRO M1113 10-NOV-81 16:40 PAGE 13-3
SYMBOL TABLE
ATLSCN 001274R KL.LCA= ****** GX MESS22 000514R S.TN = ****** GX $CD11 = 000001
A.FM = ****** GX KL.LRM= ****** GX MESS24 000521R TENAD1= 174410 $DBDTE= 000001
A.SP = ****** GX KL.LVB= ****** GX MESS26 000526R TENAD2= 174412 $DH11 = 000001
A.TD = ****** GX KL.REQ= ****** GX MESS30 000533R TENCES 001047R $DTA = 000001
A.TS = ****** GX KL.SPF= ****** GX MESS32 000561R TENEPE 001002R $DTE = 000001
BEGMT 000124R KL.SSC= ****** GX MESS34 000607R TENERS 002136RG $FE = 000001
DAG1 = 000030 KL.VBD= ****** GX MESS36 000646R TENSM 001031R $F11 = 000001
DAG2 = 000032 KL.VBN= ****** GX MESS40 000672R TMPL1 000000R $LP20 = 000001
DAG3 = 000036 KS.CES= ****** GX MESS42 000726R TMPL1A 000007R $RP04 = 000001
DEP = 010000 KS.CST= ****** GX MESS44 000771R TMPL2 000031R $TOP10= 000001
DEXMSG 001074R KS.DEX= ****** GX PRTIMO 001171R TMPL2A 000034R $$ = 000037
DEXWD1= 174402 KS.EPE= ****** GX PS = ****** GX TMPL2B 000037R $$$T2 = 000027
DPBATT 000046R KS.PFT= ****** GX PSEXP = 177776 TMPL3 000045R .ATLLH= ****** GX
DPBDET 000104R KS.PTO= ****** GX RSX$$E= 000045 TNAD1 = 000010 .COMEF= ****** GX
DPBWFE 000120R KS.TRR= ****** GX RSX$$F= 000101 TNAD2 = 000012 .KLERQ= ****** GX
DPBWR1 000062R KS.TSP= ****** GX RSX$$K= 000126 TN.LRF= ****** GX .KLERW= ****** GX
DXWD1 = 000006 LUN = 000001 RSX$$V= 000014 TO10DB= 001000 .KLITK= ****** GX
DXWD2 = 000004 L$$P20= 000002 R$$11D= 000001 TO10Q = ****** GX .KLIWD= ****** GX
DXWD3 = 000002 MESS00 000172R SF.ST = ****** GX TRRB 001216R .KLRLD= ****** GX
D$$H11= 000010 MESS02 000231R SNDMSG= ****** GX TS.EXT= ****** GX .KPAC = ****** GX
EF.CRI= ****** GX MESS04 000263R START 001274RG TS.TKN= ****** GX ..DECB= ****** GX
ENDMT = 000024 MESS06 000321R STAT = 174434 TYPMES 002106R ..ENB0= ****** GX
FORPRO= 000020 MESS10 000341R STATD = 000034 TYPREG 002026R ..PICK= ****** GX
KEPFT 001244R MESS12 000372R STATUS= 000022 T10AD = 000020 ..RDTA= ****** GX
KEPST 001143R MESS14 000422R STSTT = ****** GX T11AD = 000022 ...KLE 000776R
KL.CFM= ****** GX MESS16 000443R S.FW = ****** GX T11BC = 000016 ...KLI 000772R
KL.KAC= ****** GX MESS20 000470R
. ABS. 000000 000
002624 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2385 WORDS ( 10 PAGES)
DYNAMIC MEMORY: 3566 WORDS ( 13 PAGES)
ELAPSED TIME: 00:00:19
[47,10]TKTN,[47,20]TKTN/-SP/CR=[20,30]RSXFC/PA:1,[100,30]DTESSS,[47,30]TKTN
TKTN CREATED BY MACRO ON 10-NOV-81 AT 16:40 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ATLSCN 001274 R #10-253 10-364
A.FM = ****** GX 10-290
A.SP = ****** GX 10-302 10-311 10-333
A.TD = ****** GX 10-281 10-339
A.TS = ****** GX 10-271 *10-353
BEGMT 000124 R #9-132 10-298
DAG1 = 000030 #3-62
DAG2 = 000032 #3-61
DAG3 = 000036 #3-59
DEP = 010000 #8-70 10-345
DEXMSG 001074 R 9-227 #9-229 13-465
DEXWD1 = 174402 #8-71 *10-344
DPBATT 000046 R #9-102
DPBDET 000104 R #9-119 10-354
DPBWFE 000120 R #9-126 10-357 12-411
DPBWR1 000062 R #9-109 *12-406 *12-407 12-408
DXWD1 = 000006 #3-68
DXWD2 = 000004 #3-69
DXWD3 = 000002 #3-70
EF.CRI = ****** GX 13-535
ENDMT = 000024 #9-152 10-291
FORPRO = 000020 #8-79
KEPFT 001244 R 9-239 #9-241 13-515
KEPST 001143 R 9-230 #9-232 13-483
KL.CFM = ****** GX 13-442 13-455 13-468 13-517
KL.KAC = ****** GX 13-478 13-521 13-537
KL.LCA = ****** GX 13-442 13-455 13-468 13-517
KL.LRM = ****** GX 13-442 13-455 13-468 13-517 13-533
KL.LVB = ****** GX 13-508
KL.REQ = ****** GX 13-548
KL.SPF = ****** GX 13-517
KL.SSC = ****** GX 13-429 13-442 13-455 13-468 13-496
KL.VBD = ****** GX 13-508
KL.VBN = ****** GX 13-508
KS.CES = ****** GX 13-434 13-543
KS.CST = ****** GX 13-473 13-543
KS.DEX = ****** GX 13-460 13-543
KS.EPE = ****** GX 13-447 13-543
KS.PFT = ****** GX 13-510
KS.PTO = ****** GX 13-487 13-543
KS.TRR = ****** GX 13-501
KS.TSP = ****** GX 13-421 13-543
LUN = 000001 #8-78 9-105 9-112 9-122
MESS00 000172 R 9-133 #9-154
MESS02 000231 R 9-134 9-155 #9-157
MESS04 000263 R 9-135 9-158 #9-160
MESS06 000321 R 9-136 9-161 #9-163
MESS10 000341 R 9-137 9-164 #9-166
MESS12 000372 R 9-138 9-167 #9-169
MESS14 000422 R 9-139 9-170 #9-172
MESS16 000443 R 9-140 9-173 #9-175
MESS20 000470 R 9-141 9-176 #9-178
TKTN CREATED BY MACRO ON 10-NOV-81 AT 16:40 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MESS22 000514 R 9-142 9-179 #9-181
MESS24 000521 R 9-143 9-182 #9-184
MESS26 000526 R 9-144 9-185 #9-187
MESS30 000533 R 9-145 9-188 #9-190
MESS32 000561 R 9-146 9-191 #9-193
MESS34 000607 R 9-147 9-194 #9-196
MESS36 000646 R 9-148 9-197 #9-199
MESS40 000672 R 9-149 9-200 #9-202
MESS42 000726 R 9-150 9-203 #9-205
MESS44 000771 R 9-151 9-206 #9-208
PRTIMO 001171 R 9-233 #9-235 13-492
PS = ****** GX 10-254 *10-254 10-343 *10-343
PSEXP = 177776 #8-76
RSX$$E = 000045 #3-34
RSX$$F = 000101 #3-42 #3-45 3-53 7-3
RSX$$K = 000126 #3-38
RSX$$V = 000014 #3-33
SF.ST = ****** GX 10-340
SNDMSG = ****** GX 13-541
START 001274 RG #10-252 13-554
STAT = 174434 #8-75 *10-347
STATD = 000034 #3-60
STATUS = 000022 #8-80
STSTT = ****** GX *10-342
S.FW = ****** GX 10-340
S.TN = ****** GX 10-282
TENAD1 = 174410 #8-72 *10-345
TENAD2 = 174412 #8-73 *10-346
TENCES 001047 R 9-224 #9-226 13-439
TENEPE 001002 R #9-220 13-452
TENERS 002136 RG 10-265 #13-418
TENSM 001031 R 9-221 #9-223 13-426
TMPL1 000000 R #9-84 10-285
TMPL1A 000007 R #9-87 10-283
TMPL2 000031 R 9-85 #9-89 11-394
TMPL2A 000034 R #9-92 *10-304 *10-305 *10-308 *10-312 *10-313 *10-316 *10-319 *10-322
*10-325 *10-328 *10-331 *10-332
TMPL2B 000037 R #9-94 11-375
TMPL3 000045 R 9-90 #9-96
TNAD1 = 000010 #3-66
TNAD2 = 000012 #3-67
TN.LRF = ****** GX 10-300
TO10DB = 001000 #8-74 10-347
TO10Q = ****** GX 13-523
TRRB 001216 R 9-236 #9-238 13-506
TS.EXT = ****** GX 10-353
TS.TKN = ****** GX 10-271
TYPMES 002106 R 10-286 10-286 10-299 10-299 11-395 11-395 #12-405 13-427 13-427
13-440 13-440 13-453 13-453 13-466 13-466 13-494 13-494 13-507
13-507 13-516 13-516
TYPREG 002026 R 10-307 10-307 10-310 10-310 10-315 10-315 10-318 10-318 10-321
10-321 10-324 10-324 10-327 10-327 10-330 10-330 10-334 10-334
TKTN CREATED BY MACRO ON 10-NOV-81 AT 16:40 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#11-374
T10AD = 000020 #3-64
T11AD = 000022 #3-63
T11BC = 000016 #3-65
$TOP10 = 000001 3-43 13-428 13-441 13-454 13-467 13-495
$TOP20 = ****** 3-50
$T1091 = ****** 3-44
$$ = 000037 #10-261 10-261 #10-273 10-273 #10-284 10-284 #10-286 10-286 #10-299
10-299 #10-307 10-307 #10-310 10-310 #10-315 10-315 #10-318 10-318
#10-321 10-321 #10-324 10-324 #10-327 10-327 #10-330 10-330 #10-334
10-334 #11-395 11-395 #13-427 13-427 #13-440 13-440 #13-453 13-453
#13-466 13-466 #13-494 13-494 #13-507 13-507 #13-516 13-516 #13-524
13-524 #13-528 13-528
$$$T2 = 000027 #13-546 13-546 #13-550 13-550
.ATLLH = ****** GX 10-256 10-259
.COMEF = ****** GX *13-535
.KLERQ = ****** GX *13-545
.KLERW = ****** GX *10-264
.KLITK = ****** GX 10-262 10-264 13-419 *13-420
.KLIWD = ****** GX *13-549
.KLRLD = ****** GX 13-539
.KPAC = ****** GX 13-479
..DECB = ****** GX 13-528 13-528
..ENB0 = ****** GX 10-261 10-261 10-273 10-273
..PICK = ****** GX 13-524 13-524
..RDTA = ****** GX 10-284 10-284
...KLE 000776 R #9-214 13-546 13-546
...KLI 000772 R #9-211 13-550 13-550
TKTN CREATED BY MACRO ON 10-NOV-81 AT 16:40 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #8-67 #10-261 #10-273 #10-284 #10-286 #10-299 #10-307 #10-310 #10-315 #10-318
#10-321 #10-324 #10-327 #10-330 #10-334 #11-395 #13-427 #13-440 #13-453 #13-466
#13-494 #13-507 #13-516 #13-524 #13-528
DECL$S #8-67 10-360
DIR$ #10-268 #10-268 #10-360 #10-360 #13-546 #13-546 #13-550 #13-550 #13-552 #13-552
ERR$ #10-268 #10-360 #13-546 #13-550 #13-552
EXIT$S #8-67 #10-268 #13-552
IDENT$ #4-81 #7-3 #7-3
MOV$ #10-360 #13-546 13-546 #13-550 13-550
MVB$ #13-546 #13-546 #13-550 #13-550
RETURN #8-67 #11-396 #12-414
RFA$ #13-546 13-546 13-546 #13-550 13-550 13-550
RQST$S #8-67 #13-546 #13-550
WSIG$S #8-67
.ENB #8-68
.ENB0 #8-67 10-261 10-273
.ENB6 #8-67
.INH #8-68
.INH0 #8-67 #10-254
.INH6 #8-67 #10-343
RSX20F -- RESIDENT EXECUTIVE MACRO M1113 14-APR-81 10:37 PAGE 2
2 .TITLE RSX20F -- RESIDENT EXECUTIVE
3 .IDENT "V002A"
4 ;
5 ;
6 ;
7 ;
8 ;
9 ; COPYRIGHT (C) 1975, 1978 BY
10 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
11 ;
12 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
13 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
14 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
15 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
16 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
17 ;
18 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
19 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
20 ; CORPORATION.
21 ;
22 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
23 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
24 ;
25 ;
26 ;
27 ;
28 ; MODULE: "RADIX50 TO ASCII"
29 ;
30 ; VERSION: V002A
31 ;
32 ; AUTHOR: R. MCLEAN
33 ;
34 ; DATE: 19 JUL 75
35 ;
36 ;
37 ; THIS MODULE CONTAINS:
38 ;
39 ; 1 -- CODE TO CONVERT RADIX50 TO ASCII
RSX20F -- RESIDENT EXECUTIVE MACRO M1113 14-APR-81 10:37 PAGE 3
41 ;
42 ;
43 ;+
44 ; ..RDTA -- ROUTINE TO CONVERT RADIX50 TO ASCII TEXT
45 ;
46 ; CALLING SEQUENCE:
47 ; R1 -- NUMBER OF CHARACTERS TO BE CONVERTED (MUST BE MULT OF 3)
48 ; R2 -- RADIX 50 BUFFER
49 ; R3 -- ASCII BUFFER
50 ; CALL ..RDTA
51 ;
52 ;
53 ; NOTE -- BLANK'S ARE LEGAL RADIX 50 CHARACTERS
54 ; BUT FOR THIS SUBROUTINE THEY ARE CONVERTED TO
55 ; NULL'S (000).
56 ;-
57 .MCALL CALL,RETURN
58 ;
59 ;
60 ;
61 000000 010046 ..RDTA::MOV R0,-(SP) ;SAVE REGISTERS
62 000002 010146 MOV R1,-(SP)
63 000004 010246 MOV R2,-(SP)
64 000006 010346 MOV R3,-(SP)
65 000010 010446 MOV R4,-(SP)
66 000012 010546 MOV R5,-(SP)
67 000014 012700 000004 RDLPA: MOV #4,R0 ;DECODE 3 CHRS / WORD
68 000020 005004 CLR R4
69 000022 012205 MOV (R2)+,R5 ;PICK UP A WORD
70 000024 005046 CLR -(SP)
71 000026 010046 MOV R0,-(SP)
72 000030 010146 MOV R1,-(SP)
73 000032 010500 MOV R5,R0
74 000034 012701 000050 MOV #50,R1
75 000040 CALL $DIV
76 000044 010166 000004 MOV R1,4(SP) ;SAVE THE CHARACTER FOUND
77 000050 012701 000050 MOV #50,R1
78 000054 CALL $DIV
79 000060 010004 MOV R0,R4
80 000062 010105 MOV R1,R5
81 000064 012601 MOV (SP)+,R1
82 000066 012600 MOV (SP)+,R0
83 000070 010546 MOV R5,-(SP) ;SAVE THE 2ND CHARACTER
84 000072 010446 MOV R4,-(SP) ;SAVE THE 1ST CHARACTER
85 000074 005300 MULP: DEC R0 ;FINISHED WITH WORD?
86 000076 001746 BEQ RDLPA ;YES -- GET ANOTHER
87 000100 005716 TST @SP ;NO -- DECODE A CHARACTER
88 000102 001413 BEQ MUU ;YES -- DECODE SPACE
89 000104 022716 000032 CMP #32,@SP ;IS IT AN LETTER?
90 000110 100030 BPL ASCF ;YES -- ENCODE ASCII
91 000112 022716 000034 CMP #34,@SP ;NO -- IS IT A PERIOD?
92 000116 001422 BEQ PRIOD ;YES -- ENCODE .
93 000120 022716 000033 CMP #33,@SP ;IS IT A $
94 000124 001414 BEQ DOLR ;YES -- ENCODE $
95 000126 062716 000022 ADD #22,@SP ;NO -- MUST BE NUMBER ADD 22
96 000132 012604 MUU: MOV (SP)+,R4 ;STORE THE CHARACTER IN USER'S UFFER
97 000134 110423 MOVB R4,(R3)+
RSX20F -- RESIDENT EXECUTIVE MACRO M1113 14-APR-81 10:37 PAGE 3-1
98 000136 077122 SOB R1,MULP ;FINISHED?
99 000140 012605 MOV (SP)+,R5
100 000142 012604 MOV (SP)+,R4
101 000144 012603 MOV (SP)+,R3
102 000146 012602 MOV (SP)+,R2
103 000150 012601 MOV (SP)+,R1
104 000152 012600 MOV (SP)+,R0
105 000154 RETURN ;YES -- RETURN
106 ;
107 000156 012716 000044 DOLR: MOV #'$,@SP ;SET UP TO STORE $
108 000162 000763 BR MUU
109 ;
110 000164 012716 000056 PRIOD: MOV #'.,@SP
111 000170 000760 BR MUU ;STORE .
112 000172 052716 000100 ASCF: BIS #100,@SP ;SET UP AS ASCII
113 000176 000755 BR MUU
114 ;
115 000001 .END
RSX20F -- RESIDENT EXECUTIVE MACRO M1113 14-APR-81 10:37 PAGE 3-2
SYMBOL TABLE
ASCF 000172R MULP 000074R PRIOD 000164R $DIV = ****** GX ..RDTA 000000RG
DOLR 000156R MUU 000132R RDLPA 000014R $$ = 000067
. ABS. 000000 000
000200 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 193 WORDS ( 1 PAGES)
DYNAMIC MEMORY: 2518 WORDS ( 9 PAGES)
ELAPSED TIME: 00:00:03
[47,10]RDTA,[47,20]RDTA/-SP/CR=[47,30]RDTA
RDTA CREATED BY MACRO ON 14-APR-81 AT 10:37 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ASCF 000172 R 3-90 #3-112
DOLR 000156 R 3-94 #3-107
MULP 000074 R #3-85 3-98
MUU 000132 R 3-88 #3-96 3-108 3-111 3-113
PRIOD 000164 R 3-92 #3-110
RDLPA 000014 R #3-67 3-86
$DIV = ****** GX 3-75 3-75 3-78 3-78
$$ = 000067 #3-75 3-75 #3-78 3-78
..RDTA 000000 RG #3-61
RDTA CREATED BY MACRO ON 14-APR-81 AT 10:37 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #3-57 3-75 3-78
RETURN #3-57 3-105