Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/ntinit.list
There are no other files named ntinit.list in the archive.
NTINIT MACRO M1110 13-OCT-79 10:41
TABLE OF CONTENTS
4- 35 DATA
5- 88 ERROR MESSAGES
6- 133 NETWORK INITIALIZATION COLD START
7- 176 MAIN CONTROL
8- 265 NTL COMMUNICATION
9- 294 ERROR MESSAGE PROCESSOR
10- 352 ERROR SUBROUTINES
11- 399 RCV DATA AST
12- 424 RCV DATA SUBROUTINE
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 3
1 .TITLE NTINIT
2 .IDENT /V01.00/
3
4 ;
5 ; COPYRIGHT (C) 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
11 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
12 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
13 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
14 ; TRANSFERRED.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
17 ; 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 SUPPLIED BY DIGITAL.
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NETWORK INITIALIZER (NTINIT) MAIN CONTROL
26 ;
27 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
28 ;
29 ; IDENT HISTORY:
30 ;
31 ; 1.00 27-FEB-78
32 ; VERSION 2.0 RELEASE
33 ;
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 4
DATA
35 .SBTTL DATA
36
37 ;
38 ; MACRO CALLS
39 ;
40 .MCALL RSXOK$,EMSG$,NTLER$,QIOW$S,EXIT$S,ASTX$S,WTSE$S,WSIG$S
41 .MCALL DIR$,CLEF$S,SETF$S,SRDA$S,RCVD$,SDAT$,RQST$,DSAR$S,ENAR$S
42 .MCALL SCBDF$,CCBDF$,NHWDF$,NTLDF$,PDVDF$,SLTDF$,PCBDF$,HWDDF$
43 .MCALL TCBDF$,SDAT$S,EMSG$R,RCVX$
44
45 ;
46 ; CONSTANTS AND OFFSETS
47 ;
48 000000 NTLDF$ <:>,<=>,NTLSYM ;NTL REQ. BLOCK AND SYMBOLS (GLOBALLY)
49 000000 CCBDF$ ;CCB OFFSETS
50 000000 PDVDF$ ;PDV OFFSETS
51 000000 SLTDF$ ;SLT OFFSETS
52 000000 PCBDF$ ;PARTITION CONTROL BLOCK OFFSETS
53 000000 SCBDF$ ;UMR BLOCK OFFSETS
54 000000 NHWDF$ ;HARDWARE OFFSETS
55 000000 HWDDF$ ;FEATURES MASK BIT DEFINITIONS
56 000000 TCBDF$ ;TCB OFFSETS AND FLAGS
57
58 ;
59 ; LOCAL DATA (IMPURE)
60 ;
61 000000 .PSECT DATA,D
62
63 000000 $NIERA::.BLKW 3 ;ERROR REPORT ROUTINE ARGUMENT WORDS
64
65 000006 NTIRCX: RCVX$ ,$NIRTN ;DIRECTIVE TO RCV INTO "$NIRTN" OR EXIT
66 000016 $NIRTN::.BLKW 2 ;REQUESTORS TASK NAME (FOLLOW BY $NIRDB)
67 000022 $NIRDB::.BLKW 13. ;RCV DATA BLOCK (PRECEED BY $NIRTN)
68
69 .IF NDF R$$11S
70 000054 NTIRCV: RCVD$ ,$NIRTN ;DIRECTIVE TO RCV DATA INTO "$NIRTN"
71
72 000064 $NIRNL::RQST$ NTL... ;DIRECTIVE TO REQUEST NTL
73 000102 $NISNL::SDAT$ NTL...,$NTLFC ;DIRECTIVE TO SEND "$NTLFC" TO NTL
74 000114 $NTLFC::.BLKW 3 ;NTL FUNCTION CODE AND ANSWER
75
76 000122 NTISEN: SDAT$ XXXXXX,$NIFNC ;DIRECTIVE TO SEND DATA FROM "$NIFNC"
77 000134 $NIFNC::.BLKW 3 ;FUNCTION REQUEST SAVE WORD
78 000142 NTIBSY: SDAT$ XXXXXX,NTIBSC ;DIRECTIVE TO SEND DATA FROM "NTIBSC"
79 000154 000000G NTIBSC: .WORD IE.ACT ;FAILURE CODE, NTI ALREADY BUSY
80
81 000156 000000 $NIFLG::.WORD 0 ;FLAGS WORD
82 ;LOW BYTE: NON-ZERO = BUSY W/ FUNCTION
83 ;HIGH BYTE: FUNCTION-SPECIFIC FLAGS
84 .IFF
85 $NIFNC == $NIRDB
86 .ENDC
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 5
ERROR MESSAGES
88 .SBTTL ERROR MESSAGES
89
90 ;
91 ; ERROR MESSAGE BUFFER
92 ;
93 000160 015 116 124 NTIERN: .ASCII <15>/NTINIT -- / ;MESSAGE PREFIX (NAME OF NTINIT)
000163 111 116 111
000166 124 040 055
000171 055 040
94 000173 NTIERB: .BLKB 70. ;MESSAGE BODY
95 .EVEN
96
97 ;
98 ; ERROR MESSAGES
99 ;
100 ; MESSAGES IN THIS MODULE SHOULD BE NUMBERED 01 TO 09
101 ; MESSAGES 10-14 ARE IN NTICEX
102 ; MESSAGES 15-19 ARE IN NTILON
103 ; MESSAGES 20-24 ARE IN NTICSR
104 ; MESSAGES 25-29 ARE IN NTIKPN OR NTIKLC
105 ; MESSAGES 30-34 ARE IN NTIMFL
106 ; MESSAGES 35-39 ARE IN NTIMFE
107 ;
108 ; THE MAIN ERROR PROCESSOR IS "$NIERR"
109 ; ASTERISK REPLACERS ARE:
110 ; $NESDN - INSERT SIGNED DECIMAL NUMBER FROM $NIERA
111 ; $NER50 - INSERT RAD50 STRING FROM $NIERA
112 ; $NERON - INSERT RAD50 STRING FROM $NIERA AND OCTAL NUMBER FROM $NIERA+2
113 ; $NEROO - INSERT RAD50 STRING FROM $NIERA, OCTAL NUMBER FROM $NIERA+2,
114 ; AND OCTAL NUMBER FROM $NIERA+4
115 ; SECOND LINE FORMATTING AND PRINTING IS NOT SUPPORTED
116 ;
117 .ENABL LC
118 .IF DF R$$11S
119 NTLER$ 01,NONE,$NIERR,,,<Incompatible With RSX-11S System>
120 .IFF
121 000302 NTLER$ 01,NONE,$NIERR,,,<Incompatible With RSX-11M System>
122 000354 NTLER$ 02,NONE,$NIERR,,,<Network Loader (NTL...) Not Installed>
123 .ENDC
124 000432 NTLER$ 03,NONE,$NIERR,,,<Illegal Function>
125 000464 NTLER$ 04,NONE,$NIERR,,,<Comm Exec Not Loaded>
126 .DSABL LC
127
128 ;
129 ; START OF PURE CODE
130 ;
131 000000 .PSECT
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 6
NETWORK INITIALIZATION COLD START
133 .SBTTL NETWORK INITIALIZATION COLD START
134
135 ;+
136 ; NTINIT - ENTER THE NTINIT TASK
137 ;
138 ; THIS ENTRY SHOULD ONLY BE TAKEN ONCE, AS IT WILL STAY ACTIVE,
139 ; WAITING FOR MORE INSTRUCTIONS VIA "SEND DATA".
140 ;
141 ; INPUTS:
142 ; NTINIT GET INPUT VIA "RCV DATA" AND RETURNS COMPLETION VIA
143 ; "SEND DATA"
144 ; THE FIRST WORD OF THE RCV DATA PACKET ON RCV INDICATES THE
145 ; FUNCTION TO BE PERFORMED
146 ; THE FIRST WORD OF THE SEND DATA PACKET ON COMPLETION INDICATES
147 ; SUCCESS (+), FAILURE (-), OR NO-OP (0)
148 ; WHEN SENDING A FUNCTION REQUEST TO NTINIT, THE REQUEST SHOULD
149 ; BE QUEUED FIRST (VIA SEND DATA TO NTINIT) AND NTINIT SHOULD
150 ; THEN BE REQUESTED
151 ; EVENT FLAGS START OFF "CLEAR"
152 ;
153 ; OUTPUTS:
154 ; CHECK COMPATIBILITY OF RSX SYSTEM
155 ; START MAIN CONTROL LOOP
156 ;-
157
158 000000 NTINIT: RSXOK$ ;CHECK FOR RSX COMPATIBILITY
159 000030 103410 BCS 10$ ;BR IF INCOMPATIBLE
160
161 .IF NDF R$$11S
162 000032 CALL NTIRDX ;GET FIRST RECEIVE DATA OR EXIT
163 000036 SRDA$S #NTIRDA ;SET THE RCV DATA AST ENTRY
164 .IFF
165 DIR$ #NTIRCX ;RECEIVE DATA OR EXIT
166 .ENDC
167
168 000050 000406 BR NTIGRQ ;START MAIN LOOP
169
170 ;
171 ; RSX SYSTEM INCOMPATIBILITY, GIVE ERROR (?) AND EXIT
172 ;
173 000052 10$: EMSG$ 01 ;SYSTEM INCOMPATIBILITY
174 000060 EXIT$S
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 7
MAIN CONTROL
176 .SBTTL MAIN CONTROL
177
178 ;+
179 ; NTIGRQ - GET FUNCTION REQUEST AND DISPATCH
180 ;
181 ; THIS ROUTINE IS CURRENTLY CODED SUCH THAT FUNCTION REQUESTS TO
182 ; NTINIT VIA "SEND DATA" MUST BE SYNCHRONOUS WITH NTINIT
183 ; COMPLETIONS. THAT IS, ANY REQUEST TO NTINIT IS ILLEGAL UNTIL
184 ; THE PREVIOUS REQUEST HAS BEEN COMPLETED.
185 ;
186 ; INPUTS:
187 ; NONE
188 ;
189 ; OUTPUTS:
190 ; WAIT FOR A COMPLETED RCV DATA AND DISPATCH THE PROPER FUNCTION
191 ; ACCORDING TO "$NIFNC" (SET BY THE RCV DATA ROUTINE)
192 ; THE SEND DATA TO THE REQUESTING TASK IS ONLY DONE AFTER
193 ; THE FUNCTION IS COMPLETED. THE RETURNED FUNCTION IS EITHER
194 ; POSITIVE (SUCCESS), ZERO (NO-OP), OR NEGATIVE (ERROR).
195 ;-
196
197 000066 NTIGRQ:
198 .IF DF R$$11S
199 BIT #FE.CEX,$FMASK ;IS THE COMM EXEC LOADED ?
200 BEQ 3$ ; .. NO
201 .ENDC
202
203 000066 126727 000134' 000001 CMPB $NIFNC,#LS.CEX ;IS IT A "SET CEX"?
204 000074 001420 BEQ 10$ ;BR IF YES
205
206 .IF NDF R$$11S
207 000076 032767 000000G 000000G BIT #FE.CEX,$FMASK ;IS THE COMM EXEC LOADED ?
208 000104 001410 BEQ 3$ ; .. NO
209 000106 126727 000134' 000010 CMPB $NIFNC,#LS.ON ;IS IT "SET LOCAL ON"?
210 000114 001430 BEQ 20$ ;BR IF YES
211 .ENDC
212
213 000116 EMSG$ 03 ;ILLEGAL FUNCTION
214 000124 000432 BR 40$
215 000126 3$: EMSG$ 04 ;COMM EXEC NOT LOADED
216 000134 000426 BR 40$
217 ;
218 ; CALLS TO FUNCTION ROUTINES. THESE ROUTINES SHOULD RETURN WITH CARRY
219 ; INDICATING SUCCESS/FAILURE, AND "$NIFNC" SET TO A PROPER RETURN
220 ; COMPLETION CODE FOR THE FUNCTION REQUESTOR.
221 ;
222 000136 10$: CALL $NICEX ;FUNCTION - SET CEX
223 000142 103423 BCS 40$ ;BR IF FAILED
224 000144 012700 000134' MOV #$NIFNC,R0 ; POINT AT FUNCTION CODE
225 000150 032720 040000 BIT #LS.PWF,(R0)+ ; IS THIS A POWERFAIL RECOVERY ?
226 000154 001404 BEQ 15$ ; NO ..
227 000156 012001 MOV (R0)+,R1 ; YES .. GET NETACP'S TCB ADDRESS
228 000160 051061 000022 BIS (R0),T.EFLG(R1) ; SET ONE OF HIS EVENT FLAGS
229 000164 000415 BR 50$
230 000166 032740 010000 15$: BIT #LS.CXO,-(R0) ; IS IT LOCAL ON ALSO ?
231 000172 001412 BEQ 50$ ; NO ..
232
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 7-1
MAIN CONTROL
233 .IF NDF R$$11S
234 000174 000403 BR 30$ ; NO NEED TO RE-DO LOCAL INIT
235 000176 20$: CALL NTILIN ; START COMM EXEC TIMERS, ETC.
236 000202 103403 BCS 40$ ; .. ERROR
237 .ENDC
238
239 000204 30$: CALL $NILON ;FUNCTION - SET LOCAL ON
240
241 .IF DF R$$11S
242 BCS 40$
243 BIT #LS.UNF,$NIFNC ; IS THE UNFIX SUB-FUNCTION SET ?
244 BEQ 50$ ; .. NO
245 MOV $TKTCB,R0 ; GET OUR TCB ADDRESS
246 BIC #T2.FXD,T.ST2(R0) ; CLEAR THE FIXED BIT
247 MOV #^R...,T.NAM+2(R0) ; CHANGE INSTALLED NAME TO "NTI..."
248 BR 50$
249 .IFF
250 000210 103003 BCC 50$
251 .ENDC
252 ;;
253 000212 012767 177777 000134' 40$: MOV #-1,$NIFNC ;INDICATE NTINIT FUNCTION FAILED
254 000220 50$: .IF NDF R$$11S
255 000220 DSAR$S ;DISABLE AST RECOGNITION
256 000226 005067 000156' CLR $NIFLG ;CLR FLAGS AND BUSY INDICATION
257 000232 DIR$ #NTISEN ;SEND COMPLETION TO THE REQUESTOR
258 000240 CALL NTIRDX ;GET NEXT FUNCTION OR EXIT
259 000244 ENAR$S ;ENABLE AST'S AGAIN
260 000252 000705 BR NTIGRQ ;PROCESS NEXT REQUEST
261 .IFF
262 EXIT$S
263 .ENDC
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 8
NTL COMMUNICATION
265 .SBTTL NTL COMMUNICATION
266
267 ;+
268 ; $NINTL - SEND DATA TO NTL AND WAIT FOR RESPONSE
269 ;
270 ; THIS ROUINE IS ONLY NECESSARY ON AN RSX11M SYSTEM
271 ;
272 ; INPUTS:
273 ; $NTLFC IS ALREADY SET FOR NTL
274 ;
275 ; OUTPUTS:
276 ; CARRY INDICATES SUCCESS/FAILURE
277 ; $NTLFC CONTAINS RESPONSE FROM NTL
278 ;-
279
280 .IF NDF R$$11S ;*-RSX11M SYSTEM ONLY-*
281
282 000254 $NINTL::
283 000254 DIR$ #$NISNL ;SEND DATA TO NTL
284 000262 103416 BCS 10$ ;BR IF CAN'T, PROBABLY NOT INSTALLED
285 000264 DIR$ #$NIRNL ;REQUEST NTL TO RUN IF NOT ALREADY
286 000272 WTSE$S #15. ;WAIT FOR NTL'S RESPONSE
287 000304 CLEF$S #15. ;CLEAR FLAG 15. FOR NEXT TIME
288 000316 RETURN ; WITH C-BIT CLEAR
289
290 000320 10$: EMSG$R 02 ;NTL PROBABLY NOT INSTALLED
291
292 .ENDC ;*-END RSX11M CODE-*
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 9
ERROR MESSAGE PROCESSOR
294 .SBTTL ERROR MESSAGE PROCESSOR
295
296 ;+
297 ; $NIERR - FORMAT AND PRINT AN ERROR MESSAGE
298 ;
299 ; THIS ROUTINE DOES NOT NOW SUPPORT SECOND LINE FORMATTING AND/OR PRINTING
300 ;
301 ; INPUTS:
302 ; $NIERA = ARGUMENTS FOR ASTERISK REPLACER (IF ONE SPECIFIED)
303 ; R0 = ADDRESS OF SECOND WORD OF ERROR CONTROL BLOCK
304 ; BLOCK FORMAT:
305 ; .WORD A ;ADDRESS OF ERROR PROCESSOR ($NIERR)
306 ; .WORD 0 ;ADDRESS OF FORMAT STRING (NOT USED)
307 ; .WORD B OR 0 ;ADDRESS OF ASTERISK REPLACEMENT ROUTINE
308 ; .WORD 0 ;ADDRESS OF SECOND LINE FORMATTER (NOT USED)
309 ; .ASCIZ /MESS/ ;ERROR MESSAGE
310 ;
311 ; OUTPUTS:
312 ; MESSAGE IS PRINTED
313 ; R0 IS DESTROYED
314 ; CARRY IS SET
315 ;-
316
317 000326 010146 $NIERR::MOV R1,-(SP) ;SAVE R1
318 000330 010246 MOV R2,-(SP) ;SAVE R2
319 000332 010346 MOV R3,-(SP) ;SAVE R3
320 000334 010446 MOV R4,-(SP) ;SAVE R4
321 000336 010546 MOV R5,-(SP) ;SAVE R5
322 000340 010005 MOV R0,R5 ;COPY ADDRESS IN ERROR BLOCK
323 000342 012700 000173' MOV #NTIERB,R0 ;GET ADDRESS OF MESSAGE BUFFER
324 000346 005725 TST (R5)+ ;SKIP ADDRESS OF FORMAT STRING
325 000350 010504 MOV R5,R4 ;COPY ADDRESS AGAIN
326 000352 022424 CMP (R4)+,(R4)+ ;POINT AT ERROR MESSAGE
327
328 000354 112410 10$: MOVB (R4)+,(R0) ;COPY A BYTE INTO BUFFER
329 000356 001412 BEQ 20$ ;BR IF END OF MESSAGE
330 000360 122720 000052 CMPB #'*,(R0)+ ;FOUND AN ASTERISK?
331 000364 001373 BNE 10$ ;BR IF NO
332 000366 005715 TST (R5) ;IS THERE AN ASTERISK REPLACER?
333 000370 001402 BEQ 15$ ;BR IF NO
334 000372 005300 DEC R0 ;OVERWRITE THE ASTERISK
335 000374 CALL @(R5)+ ;CALL THE REPLACER
336
337 000376 112420 15$: MOVB (R4)+,(R0)+ ;COPY REST OF MESSAGE
338 000400 001376 BNE 15$ ;UNTIL A NULL BYTE
339 000402 005300 DEC R0 ;BACK UP TO NULL
340
341 000404 010005 20$: MOV R0,R5 ;COPY ADDRESS OF END OF BUFFER
342 000406 162705 000160' SUB #NTIERN,R5 ;GET LENGTH OF MESSAGE
343 000412 QIOW$S #IO.WVB,#1,#2,,,,<#NTIERN,R5,#40>
344 000462 012605 MOV (SP)+,R5 ;RECOVER R5
345 000464 012604 MOV (SP)+,R4 ;RECOVER R4
346 000466 012603 MOV (SP)+,R3 ;RECOVER R3
347 000470 012602 MOV (SP)+,R2 ;RECOVER R2
348 000472 012601 MOV (SP)+,R1 ;RECOVER R1
349 000474 000261 SEC
350 000476 RETURN
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 10
ERROR SUBROUTINES
352 .SBTTL ERROR SUBROUTINES
353
354 ;+
355 ; $NESDN - INSERT A SIGNED DECIMAL NUMBER INTO THE STRING
356 ; $NER50 - INSERT A RAD50 STRING
357 ; $NERON - INSERT A RAD50 STRING AND AN OCTAL NUMBER
358 ; $NEROO - INSERT A RAD50 STRING AND TWO OCTAL NUMBERS
359 ;-
360
361 ;
362 ; $NIERA = SIGNED NUMBER
363 ;
364 ;$NESDN::MOV $NIERA,R1 ;GET NUMBER
365 ; CLR R2 ;ZERO SUPPRESS
366 ; CALLR $CBDSG ;INSERT SIGNED DECIMAL NUMBER
367
368 ;
369 ; $NIERA = RAD50 WORD
370 ;
371 000500 016701 000000' $NER50::MOV $NIERA,R1 ;GET RAD50 NAME
372 000504 CALL $C5TA ;INSERT RAD50
373 000510 122740 000040 10$: CMPB #' ,-(R0) ;SKIP TRAILING BLANKS
374 000514 001775 BEQ 10$ ;
375 000516 005200 INC R0 ;ADJUST FOR AUTO-DECREMENT
376 000520 RETURN
377
378 ;
379 ; $NIERA = RAD50 WORD
380 ; $NIERA+2 = OCTAL NUMBER
381 ;
382 000522 $NERON::CALL $NER50 ;INSERT RAD50 STRING
383 000526 112720 000137 MOVB #'_,(R0)+ ;PUT IN THE SEPARATOR
384 000532 016701 000002' MOV $NIERA+2,R1 ;GET OCTAL NUMBER
385 000536 005002 CLR R2 ;ZERO SUPPRESS
386 000540 CALLR $CBOMG ;PUT IN OCTAL NUMBER
387
388 ;
389 ; $NIERA = RAD50 WORD
390 ; $NIERA+2 = OCTAL NUMBER
391 ; $NIERA+4 = OCTAL NUMBER
392 ;
393 000544 $NEROO::CALL $NERON ;PUT IN RAD50 AND FIRST OCTAL
394 000550 112720 000137 MOVB #'_,(R0)+ ;PUT IN SECOND SEPARATOR
395 000554 016701 000004' MOV $NIERA+4,R1 ;GET SECOND NUMBER
396 000560 005002 CLR R2 ;ZERO SUPPRESS
397 000562 CALLR $CBOMG ;PUT IN OCTAL NUMBER
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 11
RCV DATA AST
399 .SBTTL RCV DATA AST
400
401 ;+
402 ; NTIRDA - NTINIT RCV DATA AST
403 ;
404 ; INPUTS:
405 ; NONE
406 ;
407 ; OUTPUTS:
408 ; THE RCV DATA SUBROUTINE IS CALLED UNTIL THE RCV DATA QUEUE
409 ; IS EMPTIED.
410 ;-
411
412 .IF NDF R$$11S
413
414 000566 010046 NTIRDA: MOV R0,-(SP) ;SAVE R0
415 000570 10$: DIR$ #NTIRCV ;RECEIVE DATA
416 000576 103403 BCS 20$ ; .. NONE
417 000600 CALL NTIRDT ;PROCESS THE DATA
418 000604 000771 BR 10$ ;TRY FOR SOME MORE
419 000606 012600 20$: MOV (SP)+,R0 ;RESTORE R0
420 000610 ASTX$S ;EXIT FROM AST
421
422 .ENDC
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 12
RCV DATA SUBROUTINE
424 .SBTTL RCV DATA SUBROUTINE
425
426 ;+
427 ; NTIRDX - RCV DATA AND RETURN OR EXIT
428 ; NTIRDT - PROCESS THE RECEIVED DATA
429 ;
430 ; THESE ROUTINES GET A RCV DATA PACKET FROM EITHER A FUNCTION REQUESTOR
431 ; OR FROM NTL.
432 ;
433 ; INPUTS:
434 ; LOW BYTE OF $NIFLG IS EITHER ZERO (RCV FUNCTION REQUEST) OR
435 ; NON-ZERO (BUSY WITH FUNCTION REQUEST, RCV ONLY FROM NTL)
436 ;
437 ; OUTPUTS:
438 ; THE DATA IS RECEIVED INTO "$NIRTN,$NIRDB".
439 ; IF THE LOW BYTE OF $NIFLG IS ZERO, THE SENDERS NAME IS SAVED
440 ; IN THE "NTISEN" DIRECTIVE, THE FUNCTION CODE IS SAVED
441 ; IN "$NIFNC", AND EVENT FLAG 16. IS SET.
442 ; IF THE LOW BYTE OF $NIFLG IS NON-ZERO, AND THE SENDER IS NTL,
443 ; NTL'S ANSWER IS SAVED IN "$NTLFC" AND EVENT FLAG 15. IS
444 ; SET, ELSE A "BUSY" RESPONSE IS SENT TO THE REQUESTOR.
445 ;-
446 .IF NDF R$$11S
447
448 000616 NTIRDX: DIR$ #NTIRCX ;RECEIVE DATA OR EXIT
449
450 000624 012700 000016' NTIRDT: MOV #$NIRTN,R0 ;POINT AT SENDING TASK'S NAME
451 000630 105767 000156' TSTB $NIFLG ;ARE WE ALREADY ACTIVE ?
452 000634 001427 BEQ 20$ ;BR IF NO, RCV FUNCTION REQUEST
453
454 000636 022720 055254 CMP #^RNTL,(R0)+ ;IS DATA FROM NTL ?
455 000642 001014 BNE 10$ ;BR IF NO, ERROR
456 000644 022720 131574 CMP #^R...,(R0)+ ;MAYBE ?
457 000650 001010 BNE 8$ ;BR IF NO, STILL AN ERROR
458 000652 011067 000114' MOV (R0),$NTLFC ;SAVE NTL'S ANSWER
459 000656 SETF$S #15. ;SET THE EVENT FLAG
460 000670 000425 BR 30$ ;AND LEAVE
461
462 000672 005740 8$: TST -(R0) ;RESET THE POINTER
463 000674 011067 000146' 10$: MOV (R0),NTIBSY+S.DATN+2 ;SET THE REQUESTORS TASK NAME INTO
464 000700 014067 000144' MOV -(R0),NTIBSY+S.DATN ; THE BUSY RESPONSE DIRECTIVE
465 000704 DIR$ #NTIBSY ;TELL REQUESTOR WE ARE BUSY
466 000712 000414 BR 30$ ;EXIT WITH CARRY CLEAR
467
468 000714 012067 000124' 20$: MOV (R0)+,NTISEN+S.DATN ;SAVE SENDER'S NAME IN
469 000720 012067 000126' MOV (R0)+,NTISEN+S.DATN+2 ; RETURN DIRECTIVE
470 000724 012067 000134' MOV (R0)+,$NIFNC ;SAVE FUNCTION CODE
471 000730 012067 000136' MOV (R0)+,$NIFNC+2 ; SAVE TWO WORDS OF SENDER'S DATA
472 000734 011067 000140' MOV (R0),$NIFNC+4 ; (USED FOR POWERFAIL RECOVERY)
473 000740 105267 000156' INCB $NIFLG ;WE ARE NOW BUSY
474
475 000744 30$: RETURN
476
477 .ENDC
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 13
RCV DATA SUBROUTINE
479 000000' .END NTINIT
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 13-1
SYMBOL TABLE
AS.DEL= 000010 C.BUF2 000024 FS.STM= 000000 LS.HDX= 010000 G N$$MOV= 000010
AS.EXT= 000004 C.CNT 000020 FS.STP= 002000 LS.LIN= 000003 G N$$SYS= 000001
AS.RED= 000001 C.CNT1 000020 FS.STR= 001000 LS.LMC= 000007 G N$$USR= 000001
AS.WRT= 000002 C.CNT2 000030 FS.TRM= 003000 LS.NTI= 004000 G PIRQ = 177772
A$$CHK= 000000 C.FLG 000022 FS.XKL= 002000 LS.ON = 000010 G PMODE = 030000
A$$CPS= 000000 C.FLG1 000022 FS.XOF= 010000 LS.OPT= 000400 G PR0 = 000000
A$$PRI= 000000 C.FLG2 000032 FS.XON= 007000 LS.PRO= 000002 G PR1 = 000040
A$$TRP= 000000 C.FNC 000010 F$$LVL= 000001 LS.PWF= 040000 G PR2 = 000100
A.IOC 000003 C.LIN 000006 G$$TPP= 000000 LS.TOP= 002000 G PR3 = 000140
A.LGTH= 000014 C.LNK 000000 G$$TSS= 000000 LS.UNF= 020000 G PR4 = 000200
A.MPCT 000011 C.MOD 000011 G$$TTK= 000000 LS.11D= 004000 G PR5 = 000240
A.PCB 000012 C.NSP 000004 G$$WRD= 000000 LX.CEX= 000004 G PR6 = 000300
A.PCBL 000000 C.RSV 000002 IE.ACT= ****** GX LX.LIN= 000006 G PR7 = 000340
A.PRI 000002 C.STA 000007 IO.WVB= ****** GX LX.PRO= 000005 G PS = 177776
A.STAT 000010 C.STS 000012 I$$RAR= 000000 L$$ASG= 000000 PS.APR= 000007
A.TCB 000004 D$$BUG= 177514 I$$RDN= 000000 L$$DRV= 000000 PS.CHK= 010000
A.TCBL 000006 D$$ISK= 000000 KDSAR0= 172360 L$$P11= 000001 PS.CKP= 040000
BUFUMP= 172354 D$$L11= 000001 KDSDR0= 172320 L$$11R= 000000 PS.CKR= 020000
CB.CCB= 000002 D$$YNC= 000000 KISAR0= 172340 L.CTL 000012 PS.COM= 000200
CB.RDB= 000004 D$$YNM= 000000 KISAR5= 172352 L.DDM 000002 PS.DEL= 000010
CE.ABO= 100362 E$$XPR= 000000 KISAR6= 172354 L.DDS 000004 PS.DRV= 000020
CE.DIS= 100366 FC.CCP= 000020 KISAR7= 172356 L.DLC 000003 PS.FXD= 004000
CE.ERR= 100370 FC.CTL= 000006 KISDR0= 172300 L.DLM 000006 PS.LIO= 001000
CE.MOP= 100372 FC.KCP= 000016 KISDR6= 172314 L.DLS 000010 PS.NSF= 000400
CE.NTE= 100361 FC.KIL= 000004 KISDR7= 172316 L.FLG 000000 PS.OUT= 100000
CE.RTE= 100376 FC.RCE= 000002 K$$CNT= 177546 L.LEN = 000014 PS.PER= 002000
CE.SRC= 100364 FC.RCP= 000014 K$$CSR= 177546 L.UNT 000013 PS.PIC= 000100
CE.TMO= 100374 FC.TIM= 000010 K$$LDC= 000000 MPAR = 172100 PS.SYS= 000040
CF.EOM= 000004 FC.XCP= 000012 K$$TPS= 000074 MPCSR = 177746 P$$P45= 000000
CF.HDR= 000020 FC.XME= 000000 LD$LP = 000000 M$$CRB= 000124 P$$WRD= 000000
CF.LB = 100000 FE.CAL= 000040 LF.ACT= 100000 M$$CRX= 000000 P.BLKS 000016
CF.SOM= 000010 FE.CEX= ****** GX LF.BWT= 000007 M$$EXT= 000000 P.BUSY 000024
CF.SYN= 000040 FE.DRV= 000010 LF.DLO= 000040 M$$FCS= 000000 P.IOC 000003
CF.TRN= 000100 FE.EXP= 000200 LF.ENA= 002000 M$$MGE= 000000 P.LNK 000000
CMODE = 140000 FE.EXT= 000001 LF.MDC= 000100 M$$OVR= 000000 P.MAIN 000012
CS.ABO= 000100 FE.EXV= 000004 LF.MFL= 004000 M.BFVH 000011 P.NAM 000004
CS.BUF= 000200 FE.LSI= 000400 LF.MTP= 000020 M.BFVL 000012 P.OWN 000026
CS.DCR= 000400 FE.MUP= 000002 LF.RDY= 040000 M.LGTH= 000014 P.PRI 000002
CS.DEV= 000002 FE.MXT= 040000 LF.REA= 010000 M.LNK 000000 P.REL 000014
CS.DIS= 000040 FE.NLG= 100000 LF.TIM= 000010 M.UMRA 000002 P.SIZE 000016
CS.ENB= 000020 FE.PKT= 000100 LF.UNL= 020000 M.UMRN 000004 P.STAT 000030
CS.EOF= 000001 FE.PLA= 000020 LO.CSR 000006 G M.UMVH 000010 P.SUB 000010
CS.ERR= 100000 FS.AST= 000000 LO.INC 000004 G M.UMVL 000006 P.SWSZ 000022
CS.HFE= 002000 FS.CIB= 002000 LO.PAR 000006 G NTIBSC 000154R 002 P.TCB 000026
CS.LST= 040000 FS.CRA= 001000 LO.PRI 000010 G NTIBSY 000142R 002 P.WAIT 000020
CS.MTL= 004000 FS.DIS= 013000 LO.VCT 000012 G NTIERB 000173R 002 Q$$OPT= 000010
CS.RNG= 000010 FS.DVC= 001000 LR.CTL 000004 G NTIERN 000160R 002 RSX$OK= 000000
CS.ROV= 000004 FS.ENB= 012000 LR.EFN 000004 G NTIGRQ 000066R R$$DER= 000000
CS.RSN= 010000 FS.GET= 006000 LR.LIN 000002 G NTILIN= ****** GX R$$K11= 000001
CS.SUC= 000001 FS.INI= 000000 LR.PRO 000002 G NTINIT 000000R R$$SND= 000000
CS.TMO= 020000 FS.KIL= 000000 LR.STS 000000 G NTIRCV 000054R 002 R$$11M= 000000
C$$CKP= 000000 FS.LTM= 001000 LR.TCB 000002 G NTIRCX 000006R 002 R.QSGC= 000015
C$$ORE= 000400 FS.MNT= 004000 LR.UNT 000005 G NTIRDA 000566R R.QSPC= 000014
C$$RSH= 177564 FS.MSN= 014000 LS.CEX= 000001 G NTIRDT 000624R R.QSPN= 000006
C.BID 000003 FS.RNG= 011000 LS.CXO= 010000 G NTIRDX 000616R R.QSPR= 000012
C.BUF 000014 FS.RTN= 001000 LS.ECH= 001000 G NTISEN 000122R 002 R.QSTN= 000002
C.BUF1 000014 FS.SET= 005000 LS.FDX= 004000 G N$$LDV= 000001 R.VDBA= 000006
NTINIT MACRO M1110 13-OCT-79 10:41 PAGE 13-2
SYMBOL TABLE
R.VDTN= 000002 TS.CKR= 000100 T2.AST= 100000 UISDR0= 177600 $FMASK= ****** GX
R.VXBA= 000006 TS.EXE= 100000 T2.BFX= 004000 UISDR4= 177610 $NERON 000522RG
R.VXTN= 000002 TS.MSG= 020000 T2.CAF= 000400 UISDR5= 177612 $NEROO 000544RG
SISDR0= 172200 TS.NRP= 010000 T2.CHK= 020000 UISDR6= 177614 $NER50 000500RG
SPARE = 000010 TS.OUT= 000400 T2.CKD= 010000 UISDR7= 177616 $NICEX= ****** GX
SP.EIP= 000001 TS.RDN= 040000 T2.DST= 040000 U.SCB = ****** GX $NIERA 000000RG 002
SP.ENB= 000002 TS.RUN= 004000 T2.FXD= 002000 V$$CTR= 001000 $NIERR 000326RG
SP.LOG= 000004 T$$KMG= 000000 T2.HLT= 000200 X$$DBT= 000000 $NIFLG 000156RG 002
SR0 = 177572 T$$MIN= 000000 T2.SPN= 000004 ZF.DDM= 000001 $NIFNC 000134RG 002
SR3 = 172516 T.ACTL 000052 T2.STP= 000020 ZF.DLC= 000002 $NILON= ****** GX
SWR = 177570 T.ASTL 000016 T2.TIO= 001000 ZF.KMX= 000020 $NINTL 000254RG
S$$WRG= 000000 T.ATT 000054 T2.WFR= 000001 ZF.LLC= 000004 $NIRDB 000022RG 002
S$$YSZ= 007600 T.CPCB 000004 T3.ACP= 100000 ZF.LMC= 000100 $NIRNL 000064RG 002
S.BMSK 177776 T.DPRI 000040 T3.CAL= 000100 ZF.MFL= 000010 $NIRTN 000016RG 002
S.BMSV 177774 T.EFLG 000022 T3.CLI= 001000 ZF.MUX= 000040 $NISNL 000102RG 002
S.CON 000010 T.IOC 000003 T3.MCR= 004000 ZF.TIM= 000200 $NTLFC 000114RG 002
S.CSR 000012 T.LBN 000041 T3.NET= 000020 Z.DAT 000014 $TT0 = ****** GX
S.CTM 000006 T.LDV 000044 T3.NSD= 000200 Z.DSP 000000 $$$ARG= 000002
S.DABA= 000006 T.LNK 000000 T3.PMD= 040000 Z.FLG 000011 $$$OST= 000012
S.DAEF= 000010 T.MXSZ 000050 T3.PRV= 010000 Z.LEN = 000014 $$$T1 = 000006
S.DATN= 000002 T.NAM 000006 T3.REM= 020000 Z.LLN 000010 .BASEB= 140000
S.FRK 000016 T.OFF 000060 T3.ROV= 000040 Z.MAP 000016 .CXCSR 000004 G
S.ITM 000007 T.PCB 000046 T3.RST= 000400 Z.NAM 000006 .CXKMC 000036 G
S.LHD 000000 T.PRI 000002 T3.SLV= 002000 Z.PCB 000012 .CXLBR 000070 G
S.PKT 000014 T.RCVL 000012 UBMPR = 170200 Z.SCH 000004 .CXLB1 000040 G
S.PRI 000004 T.RRFL 000064 UDSAR0= 177660 $CBOMG= ****** GX .CXLB2 000054 G
S.RCNT 177772 T.SRCT 000063 UDSDR0= 177620 $CRAVL= ****** GX .CXPCB 000006 G
S.ROFF 177773 T.STAT 000032 UISAR0= 177640 $C5TA = ****** GX .CXSYM 000010 G
S.STS 000011 T.ST2 000034 UISAR1= 177642 $ERR01 000302RG 002 .CXUNL 000034 G
S.VCT 000005 T.ST3 000036 UISAR4= 177650 $ERR02 000354RG 002 .NTPCB 000000 G
TPS = 177564 T.TCBL 000030 UISAR5= 177652 $ERR03 000432RG 002 .NTUMR 000002 G
TS.BLK= 170700 T.UCB 000026 UISAR6= 177654 $ERR04 000464RG 002 .TT0 = ****** GX
TS.CKP= 000200 T2.ABO= 000100 UISAR7= 177656
. ABS. 177776 000
000746 001
DATA 000522 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 13809 WORDS ( 54 PAGES)
DYNAMIC MEMORY: 15340 WORDS ( 59 PAGES)
ELAPSED TIME: 00:00:54
NTINIT,[132,34]NTINIT/CR/-SP=[130,10]NETLIB/ML,RSXMC7/PA:1,[132,10]NTINIT
NTINIT CREATED BY MACRO ON 13-OCT-79 AT 10:42 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BUFUMP = 172354 #4-54
CMODE = 140000 #4-54
FE.CEX = ****** GX 7-207
IE.ACT = ****** GX 4-79
IO.WVB = ****** GX 9-343
I$$AS = ****** 4-50 4-54
KISAR0 = 172340 #4-54
KISAR6 = 172354 #4-54
LF.ACT = 100000 #4-51
LF.BWT = 000007 #4-51
LF.DLO = 000040 #4-51
LF.ENA = 002000 #4-51
LF.MDC = 000100 #4-51
LF.MFL = 004000 #4-51
LF.MTP = 000020 #4-51
LF.RDY = 040000 #4-51
LF.REA = 010000 #4-51
LF.TIM = 000010 #4-51
LF.UNL = 020000 #4-51
LO.CSR 000006 G #4-48
LO.INC 000004 G #4-48
LO.PAR 000006 G #4-48
LO.PRI 000010 G #4-48
LO.VCT 000012 G #4-48
LR.CTL 000004 G #4-48
LR.EFN 000004 G #4-48
LR.LIN 000002 G #4-48
LR.PRO 000002 G #4-48
LR.STS 000000 G #4-48
LR.TCB 000002 G #4-48
LR.UNT 000005 G #4-48
LS.CEX = 000001 G #4-48 7-203
LS.CXO = 010000 G #4-48 7-230
LS.ECH = 001000 G #4-48
LS.FDX = 004000 G #4-48
LS.HDX = 010000 G #4-48
LS.LIN = 000003 G #4-48
LS.LMC = 000007 G #4-48
LS.NTI = 004000 G #4-48
LS.ON = 000010 G #4-48 7-209
LS.OPT = 000400 G #4-48
LS.PRO = 000002 G #4-48
LS.PWF = 040000 G #4-48 7-225
LS.TOP = 002000 G #4-48
LS.UNF = 020000 G #4-48
LS.11D = 004000 G #4-48
LX.CEX = 000004 G #4-48
LX.LIN = 000006 G #4-48
LX.PRO = 000005 G #4-48
L.CTL 000012 #4-51
L.DDM 000002 #4-51
L.DDS 000004 #4-51
NTINIT CREATED BY MACRO ON 13-OCT-79 AT 10:42 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
L.DLC 000003 #4-51
L.DLM 000006 #4-51
L.DLS 000010 #4-51
L.FLG 000000 #4-51
L.LEN = 000014 #4-51
L.UNT 000013 #4-51
MPAR = 172100 #4-54
MPCSR = 177746 #4-54
M$$MGE = 000000 4-54
NTIBSC 000154 R 4-78 #4-79
NTIBSY 000142 R #4-78 *12-463 *12-464 12-465
NTIERB 000173 R #5-94 9-323
NTIERN 000160 R #5-93 9-342 9-343
NTIGRQ 000066 R 6-168 #7-197 7-260
NTILIN = ****** GX 7-235
NTINIT 000000 R #6-158 13-479
NTIRCV 000054 R #4-70 11-415
NTIRCX 000006 R #4-65 12-448
NTIRDA 000566 R 6-163 #11-414
NTIRDT 000624 R 11-417 #12-450
NTIRDX 000616 R 6-162 7-258 #12-448
NTISEN 000122 R #4-76 7-257 *12-468 *12-469
PIRQ = 177772 #4-54
PMODE = 030000 #4-54
PR0 = 000000 #4-54
PR1 = 000040 #4-54
PR2 = 000100 #4-54
PR3 = 000140 #4-54
PR4 = 000200 #4-54
PR5 = 000240 #4-54
PR6 = 000300 #4-54
PR7 = 000340 #4-54
PS = 177776 #4-54
RSX$OK = 000000 #6-158 6-158
R$$11D = ****** 4-50 4-54
R$$11M = 000000 4-50
R$$11S = ****** 4-50 4-69 5-118 6-158 6-161 7-198 7-206 7-233 7-241
7-254 8-280 11-412 12-446
R.QSTN = 000002 4-72
R.VDTN = 000002 4-70
R.VXTN = 000002 4-65
SWR = 177570 #4-54
S.DATN = 000002 4-73 4-76 4-78 *12-463 *12-464 *12-468 *12-469
TPS = 177564 #4-54
T.EFLG 000022 *7-228
UBMPR = 170200 #4-54
UISAR0 = 177640 #4-54
UISAR1 = 177642 #4-54
U.SCB = ****** GX 6-158
X$$MCB = ****** 4-50 4-50
ZF.DDM = 000001 #4-50
ZF.DLC = 000002 #4-50
NTINIT CREATED BY MACRO ON 13-OCT-79 AT 10:42 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ZF.KMX = 000020 #4-50
ZF.LLC = 000004 #4-50
ZF.LMC = 000100 #4-50
ZF.MFL = 000010 #4-50
ZF.MUX = 000040 #4-50
ZF.TIM = 000200 #4-50
Z.DAT 000014 #4-50
Z.DSP 000000 #4-50 4-50
Z.FLG 000011 #4-50
Z.LEN = 000014 #4-50
Z.LLN 000010 #4-50
Z.MAP 000016 #4-50
Z.NAM 000006 #4-50
Z.PCB 000012 #4-50
Z.SCH 000004 #4-50
$CBOMG = ****** GX 10-386 10-397
$CRAVL = ****** GX 6-158
$C5TA = ****** GX 10-372
$ERR01 000302 RG #5-121 6-173
$ERR02 000354 RG #5-122 8-290
$ERR03 000432 RG #5-124 7-213
$ERR04 000464 RG #5-125 7-215
$FMASK = ****** GX 7-207
$NERON 000522 RG #10-382 10-393
$NEROO 000544 RG #10-393
$NER50 000500 RG #10-371 10-382
$NICEX = ****** GX 7-222
$NIERA 000000 RG #4-63 10-371 10-384 10-395
$NIERR 000326 RG 5-121 5-122 5-124 5-125 #9-317
$NIFLG 000156 RG #4-81 *7-256 12-451 *12-473
$NIFNC 000134 RG 4-76 #4-77 7-203 7-209 7-224 *7-253 *12-470 *12-471 *12-472
$NILON = ****** GX 7-239
$NINTL 000254 RG #8-282
$NIRDB 000022 RG #4-67
$NIRNL 000064 RG #4-72 8-285
$NIRTN 000016 RG 4-65 #4-66 4-70 12-450
$NISNL 000102 RG #4-73 8-283
$NTLFC 000114 RG 4-73 #4-74 *12-458
$TT0 = ****** GX 6-158
$$$ARG = 000002 #9-343 9-343 #9-343 9-343 #9-343 9-343 #9-343 9-343 9-343
#9-343 9-343 9-343 9-343 9-343 9-343 9-343 9-343 9-343
9-343 9-343 #9-343 9-343 9-343 9-343 9-343 9-343 9-343
9-343 9-343 9-343 9-343 #9-343 9-343 9-343 9-343 9-343
9-343 9-343 9-343 9-343 9-343 9-343
$$$GLB = ****** 4-65 4-70 4-72 4-73 4-76 4-78
$$$T1 = 000006 #4-65 4-65 #4-70 4-70 #4-72 4-72 4-72 4-72 #4-73
4-73 4-73 4-73 #4-76 4-76 4-76 4-76 #4-78 4-78
4-78 4-78
.BASEB = 140000 #4-54
.CXCSR 000004 G #4-48
.CXKMC 000036 G #4-48
.CXLBR 000070 G #4-48
NTINIT CREATED BY MACRO ON 13-OCT-79 AT 10:42 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
.CXLB1 000040 G #4-48
.CXLB2 000054 G #4-48
.CXPCB 000006 G #4-48
.CXSYM 000010 G #4-48
.CXUNL 000034 G #4-48
.NTPCB 000000 G #4-48
.NTUMR 000002 G #4-48
.TT0 = ****** GX 6-158
NTINIT CREATED BY MACRO ON 13-OCT-79 AT 10:42 PAGE 5
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ASTX$S #4-40 11-420
CALL 6-162 6-173 7-213 7-215 7-222 7-235 7-239 7-258 9-335 10-372
10-382 10-393 11-417
CALLR #10-386 #10-397
CCBDF$ #4-42 4-49
CLEF$S #4-41 8-287
DIR$ #4-41 #6-163 6-163 #6-174 6-174 #7-255 7-255 7-257 #7-259 7-259
8-283 8-285 #8-286 8-286 #8-287 8-287 #9-343 9-343 11-415 #11-420
11-420 12-448 #12-459 12-459 12-465
DSAR$S #4-41 #7-255
EMSG$ #4-40 #6-173 #7-213 #7-215
EMSG$R #4-43 #8-290
ENAR$S #4-41 #7-259
EXIT$S #4-40 6-174
HWDDF$ #4-42 #4-55
MOV$ #6-163 #6-163 #8-286 #8-286 #8-287 #8-287 #9-343 #9-343 #9-343 #9-343
#9-343 #9-343 #9-343 #9-343 #9-343 #9-343 #12-459 #12-459
MVB$ #9-343 #9-343
NHWDF$ #4-42 4-54
NTLDF$ #4-42 4-48
NTLER$ #4-40 5-121 5-122 5-124 5-125
OFF$ #4-65 #4-70 #4-72 #4-73 #4-76 #4-78
PCBDF$ #4-42 #4-52
PDVDF$ #4-42 #4-50
QDPB$S #9-343 9-343
QIOW$S #4-40 9-343
RCVD$ #4-41 #4-70
RCVX$ #4-43 4-65
RETURN #8-288 #9-350 #10-376 #12-475
RQST$ #4-41 4-72
RSXOK$ #4-40 #6-158
RVP$ #9-343 9-343 9-343 9-343
R50$ #4-65 4-65 #4-70 4-70 #4-72 4-72 #4-73 4-73 #4-76 4-76
#4-78 4-78
SCBDF$ #4-42 4-53
SDAT$ #4-41 #4-73 #4-76 #4-78
SDAT$S #4-43
SETF$S #4-41 12-459
SLTDF$ #4-42 4-51
SRDA$S #4-41 #6-163
TCBDF$ #4-43 #4-56
WSIG$S #4-40
WTSE$S #4-40 #8-286