Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/lslnsr.list
There are no other files named lslnsr.list in the archive.
LSLNSR MACRO M1110 13-OCT-79 12:03
TABLE OF CONTENTS
8- 77 LSABRT
9- 139 LSASCD ;AP0001
10- 249 LSBOOT
12- 397 LSCKDM
14- 599 LSDUMP
16- 874 LSFINI
18- 1151 LSINIT
20- 1258 LSLDAD
21- 1322 LSLDIM
23- 1454 LSLDLD
25- 1574 LSLDPG
26- 1640 LSLDPX
28- 1764 LSLNSR
30- 1907 LSLOAD
32- 2076 LSLOOP
34- 2230 LSPARS
36- 2428 LSPRLB
38- 2622 LSRCDM
39- 2694 LSRCLB
40- 2771 LSRTCK
41- 2849 LSRTCM
42- 2939 LSRTER
43- 3016 LSRTLB
44- 3080 LSSTAR
46- 3340 LSTRLB
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 3
1 .TITLE LSLNSR
2 .NLIST CND
3 .IDENT /V01.05/
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 ;
24 ; MODULE DESCRIPTION:
25 ;
26 ; NCU LINE SERVICE PROCESSOR
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ; 1.01 23-JAN-79 ALAN D. PECKHAM
36 ; ADD CODE TO HANDLE MOP MESSAGES OF ASCII TEXT FROM CHK11.
37 ; 1.02 25-JAN-79 ALAN D. PECKHAM
38 ; FIX BUG IN ASCII DATA ROUTINE
39 ; EACH ASCII MESSAGE IS A NEW COMMAND SOURCE
40 ; 1.03 30-JAN-79 ALAN D. PECKHAM
41 ; CHANGE REFERENCE FROM EVLOGT TO SRLGTM
42 ; 1.04 1-FEB-79 ALAN D. PECKHAM
43 ; REMOVE REFERENCES TO LOGDF TO MAKE LOGDB OFFSETS GLOBAL
44 ; 1.05 30-MAY-79 ALAN D. PECKHAM
45 ; UPDATE EVENT LOGGING COUNTER FOR ANOTHER MESSAGE IN THE STREAM
46 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 4
48 ;
49 ; +-------------------------------------------------+
50 ; I I
51 ; I L I N E S E R V I C E I
52 ; I - - - - - - - - - - - - I
53 ; I I
54 ; +-------------------------------------------------+
55 ;
56 ; FUNCTION:
57 ;
58 ; NICE LINE SERVICE PROCESSOR
59 ;
60 ; REQUIREMENTS:
61 ;
62 ; CONFIGURATION CONTROL SYMBOLS:
63 ;
64 ; FL$BOO - BOOT MESSAGE PROCESSING
65 ; FL$DUM - DUMP MESSAGE PROCESSING
66 ; FL$LOA - LOAD MESSAGE PROCESSING
67 ; FL$LOO - LOOP TEST MESSAGE PROCESSING
68 ;
69 ; EXTERNAL MACROS
70 ;
71 .MCALL PROC,PROCLC
72 ;
73 ; DEFINE CONFIGURATION CONTROLS
74 ;
75 000000 CONFIG
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 5
LSABRT
77 .SBTTL LSABRT
78 ;
79 ;======================================================================;
80 ;++
81 ; +-------------------------------------------------+
82 ; I I
83 ; I L S A B R T I
84 ; I - - - - - - I
85 ; I I
86 ; +-------------------------------------------------+
87 ;
88 ; FUNCTION:
89 ;
90 ; LINE SERVICE MODULE TO ABORT THE PROCESS
91 ;
92 ; INPUT:
93 ;
94 ; R0 - NICE RETURN CODE
95 ; R4 - ADDRESS OF CONTEXT BLOCK
96 ; R5 - ADDRESS OF CONTROL BLOCK
97 ;
98 ; OUTPUT:
99 ;
100 ; @R4 - UPDATED CONTEXT BLOCK
101 ; RETCOD - NICE RETURN CODE
102 ; STATE - FINISH
103 ; @R5 - UPDATED CONTROL BLOCK
104 ; C.FUNC - ZERO
105 ;
106 ; REQUIREMENTS:
107 ;
108 ; LINE SERVICE SYMBOLS:
109 ;
110 ; FINISH - FINISH STATE VALUE
111 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
112 ; STATE - OFFSET OF STATE IN CONTEXT
113 ;
114 ; CONTROL BLOCK SYMBOLS:
115 ;
116 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
117 ;
118 ;--
119 ;======================================================================;
120 ;
121 ;
122 ; EXTERNAL MACROS
123 ;
124 .MCALL LSDF,CONDF
125 ;
126 ; DEFINE EXTERNAL SYMBOLS
127 ;
128 000000 LSDF ;LINE SERVICE SYMBOLS
129 000000 CONDF ;CONTROL BLOCK SYMBOLS
130 ;
131 ; LOCAL PROCEDURE BODY
132 ;
133 000000 PROCLC LSABRT
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 5-1
LSABRT
134 000000 110064 000041 MOVB R0,RETCOD(R4) ;SET RETURN CODE FOR LATER
135 000004 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STEP
136 000010 112764 000006 000040 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
137 000016 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 6
LSASCD
139 .SBTTL LSASCD ;AP0001
140 ; ;AP0001
141 ;======================================================================; ;AP0001
142 ;++ ;AP0001
143 ; +-------------------------------------------------+ ;AP0001
144 ; I I ;AP0001
145 ; I L S A S C D I ;AP0001
146 ; I - - - - - - I ;AP0001
147 ; I I ;AP0001
148 ; +-------------------------------------------------+ ;AP0001
149 ; ;AP0001
150 ; FUNCTION: ;AP0001
151 ; ;AP0001
152 ; ROUTINE TO CONSTRUCT LOG DATA ASCII MESSAGE ;AP0001
153 ; ;AP0001
154 ; INPUT: ;AP0001
155 ; ;AP0001
156 ; R0 - ADDRESS OF LOG DATA CONTROL BLOCK WITH BUFFER ;AP0001
157 ; R4 - ADDRESS OF CONTEXT BLOCK ;AP0001
158 ; R5 - ADDRESS OF CONTROL BLOCK ;AP0001
159 ; ;AP0001
160 ; OUTPUT: ;AP0001
161 ; ;AP0001
162 ; @R4 - UPDATED CONTEXT BLOCK ;AP0001
163 ; @R5 - UPDATED CONTROL BLOCK ;AP0001
164 ; ;AP0001
165 ; REQUIREMENTS: ;AP0001
166 ; ;AP0001
167 ; LINE SERVICE SYMBOLS: ;AP0001
168 ; ;AP0001
169 ; ;AP0001
170 ; CONTROL BLOCK SYMBOLS: ;AP0001
171 ; ;AP0001
172 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD ;AP0001
173 ; ;AP0001
174 ;-- ;AP0001
175 ;======================================================================; ;AP0001
176 ; ;AP0001
177 ; EXTERNAL MACROS ;AP0001
178 ; ;AP0001
179 .MCALL LSDF,CONDF,SAVSTK,RESSTK ;AP0001
180 ; ;AP0001
181 ; DEFINE EXTERNAL SYMBOLS ;AP0001
182 ; ;AP0001
183 000020 LSDF ;LINE SERVICE SYMBOLS ;AP0001
184 000020 CONDF ;CONTROL BLOCK SYMBOLS ;AP0001
185 ; ;AP0001
186 ; COMPONENT NAME ;AP0001
187 ; ;AP0001
188 000000 .PSECT BYTE,D ;AP0001
189 000000 006 116 111 NICE: .ASCII <6>/NICE../ ;AP0001
000003 103 105 056
000006 056
190 000020 .PSECT ;AP0001
191 ; ;AP0001
192 ; LOCAL PROCEDURE BODY ;AP0001
193 ; ;AP0001
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 6-1
LSASCD
194 000020 PROCLC LSASCD ;AP0001
195 000020 SAVSTK R0 ;AP0001
196 000022 016002 000014 MOV C.ADDR(R0),R2 ;GET NEW BUFFER ADDRESS ;AP0001
197 000026 112722 000001 MOVB #1,(R2)+ ;SET EVENT LOG DATA CODE ;AP0001
198 000032 112722 000000G MOVB #LG.MNT,(R2)+ ;MAINTENANCE MESSAGE ;AP0001
199 000036 010246 MOV R2,-(SP) ;SAVE CURRENT POSITION ;AP0001
200 000040 105022 CLRB (R2)+ ;AND MAKE ROOM FOR NODE NAME LENGTH ;AP0001
201 000042 012701 000006 MOV #6,R1 ;MAXIMUM NODE NAME LENGTH ;AP0001
202 000046 CALL LOCNOD ;MOVE LOCAL NODE NAME IN ;AP0001
203 000052 110136 MOVB R1,@(SP)+ ;AND ITS LENGTH. ;AP0001
204 000054 012700 000000' MOV #NICE,R0 ;COMPONENT NAME ;AP0001
205 000060 012701 000007 MOV #7,R1 ;AND LENGTH ;AP0001
206 000064 CALL MOVE ;STICK IT IN. ;AP0001
207 000070 012701 000000G MOV #LOGDB,R1 ;GET LOGGING DATA BASE ;AP0001
208 000074 WHILE ; MORE ENTRIES TO CHECK AND OUR ENTRY NOT FOUND ;AP0001
209 000074 FALSE LOS #LOGDBE,R1 ;AP0001
210 000102 FALSEB EQ #LG.MNT,(R1) ;AP0001
211 000110 DO ;AP0001
212 000110 062701 000000G ADD #L.GLEN,R1 ;GO ON TO NEXT ENTRY ;AP0001
213 000114 ENDWHILE ;AP0001
214 000116 IF ; ENTRY FOUND ;AP0001
215 000116 FALSE LOS #LOGDBE,R1 ;AP0001
216 000124 THEN ; MOVE SEQUENCE NUMBER IN AND BUMP ;AP0001
217 000124 116122 000000G MOVB L.GSEQ(R1),(R2)+ ;AP0001
218 000130 105261 000000G INCB L.GSEQ(R1) ;AP0001
219 000134 ELSE ; USE A ZERO SEQUENCE NUMBER ;AP0001
220 000136 105022 CLRB (R2)+ ;AP0001
221 000140 ENDIF ;AP0001
222 000140 112722 000002 MOVB #2,(R2)+ ;SET EVENT CODE. ;AP0001
223 000144 105022 CLRB (R2)+ ;AP0001
224 000146 005000 CLR R0 ;INDICATE TO FURTHER RESOLUTION ;AP0001
225 000150 CALL SRLGTM ;AND INSERT THE TIME STAMP. ;AP0003
226 000154 112722 000005 MOVB #5.,(R2)+ ;DEVICE-ID DATA TYPE ;AP0001
227 000160 112722 000005 MOVB #5,(R2)+ ;LENGTH OF DATA ;AP0001
228 000164 112722 000001 MOVB #1,(R2)+ ;LINE-ID FORMAT ;AP0001
229 000170 012700 000044 MOV #LINE,R0 ;GET ADDRESS OF LINE ;AP0001
230 000174 060400 ADD R4,R0 ;AP0001
231 000176 012701 000004 MOV #4,R1 ;LENGTH ;AP0001
232 000202 CALL MOVE ;AND COPY IT IN. ;AP0001
233 000206 112722 000016 MOVB #14.,(R2)+ ;TEXT DATA TYPE ;AP0001
234 000212 016400 000022 MOV DATADR(R4),R0 ;DATA ADDRESS ;AP0001
235 000216 016401 000024 MOV DATLEN(R4),R1 ;LENGTH ;AP0001
236 000222 110122 MOVB R1,(R2)+ ;STICK IN LENGTH ;AP0001
237 000224 CALL MOVE ;AND TEXT. ;AP0001
238 000230 RESSTK R0 ;AP0002
239 000232 166002 000014 SUB C.ADDR(R0),R2 ;COMPUTE MESSAGE LENGTH ;AP0001
240 000236 010260 000012 MOV R2,C.LEN(R0) ;AND SET IN CONTROL BLOCK. ;AP0001
241 000242 112760 000020 000007 MOVB #P$LOGD,C.PROC(R0) ;PASS TO THE LOG DATA PROCESSOR ;AP0001
242 000250 112760 000200 000006 MOVB #C$PROC,C.FUNC(R0) ;FIX UP INITIAL FUNCTION CODE ;AP0001
243 000256 005060 000004 CLR C.CTXT(R0) ;AND NO CONTEXT. ;AP0001
244 000262 005267 000000G INC GCMDSR ;ONE MORE COMMAND SOURCE... ;AP0002
245 000266 005267 000000G INC LOGCN ;AND ONE MORE LOGGING MESSAGE ;AP0005
246 000272 ENDPROC ;AP0001
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 7
LSBOOT
249 .SBTTL LSBOOT
250 ;
251 ;======================================================================;
252 ;++
253 ; +-------------------------------------------------+
254 ; I I
255 ; I L S B O O T I
256 ; I - - - - - - I
257 ; I I
258 ; +-------------------------------------------------+
259 ;
260 ; FUNCTION:
261 ;
262 ; LINE SERVICE MODULE TO PROCESS A BOOT REQUEST
263 ;
264 ; INPUT:
265 ;
266 ; R4 - ADDRESS OF CONTEXT BLOCK
267 ; BOOPAS - BOOT PASSWORD IMAGE
268 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
269 ; OPTION - NICE COMMAND MESSAGE OPTION
270 ; R5 - ADDRESS OF CONTROL BLOCK
271 ; C.FUNC - FUNCTION JUST COMPLETED
272 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
273 ; OTHER FIELDS - AS DESCRIBED FOR LINE RECEIVE/TRANSMIT MODULES
274 ;
275 ; OUTPUT:
276 ;
277 ; @R4 - UPDATED CONTEXT BLOCK
278 ; @LNBFAD - MOP MESSAGE TO TRANSMIT
279 ; LNBFLN - LENGTH OF MOP MESSAGE
280 ; OTHER FIELDS - AS DESCRIBED FOR LINE RECEIVE/TRANSMIT AND PARSE
281 ; @R5 - UPDATED CONTROL BLOCK
282 ; C.FUNC - FUNCTION TO PERFORM
283 ; OTHER FIELDS - AS DESCRIBED FOR LINE RECEIVE/TRANSMIT AND ABORT
284 ;
285 ; REQUIREMENTS:
286 ;
287 ; LINE SERVICE SYMBOLS:
288 ;
289 ; BOOPAS - OFFSET OF BOOT PASSWORD IMAGE IN CONTEXT
290 ; LNBFAD - OFFSET OF LINE TRANSMIT BUFFER ADDRESS IN CONTEXT
291 ; LNBFLN - OFFSET OF LINE BUFFER CONTENTS LENGTH IN CONTEXT
292 ; OPTION - OFFSET OF NICE OPTION IN CONTEXT
293 ;
294 ; MOP MESSAGE SYMBOLS:
295 ;
296 ; M$EMOP - ENTER MOP MODE (TRIGGER BOOT ROM) FUNCTION CODE
297 ; M$RQPG - REQUEST PROGRAM FUNCTION CODE
298 ;
299 ; NICE MESSAGE SYMBOLS:
300 ;
301 ; LS$TRQ - TRIGGER AND RECEIVE PROGRAM REQUEST OPTION CODE
302 ; NE$LCO - LINE COMMUNICATIONS ERROR RETURN CODE
303 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
304 ; NS$SUC - SUCCESS RETURN CODE
305 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 7-1
LSBOOT
306 ; CONTROL BLOCK SYMBOLS:
307 ;
308 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
309 ; C.RET - OFFSET OF RETURN CODE FIELD
310 ; C$PROC - PROCESS FUNCTION CODE
311 ;
312 ;--
313 ;======================================================================;
314 ;
315 ; EXTERNAL MACROS
316 ;
317 .MCALL CONDF,LSDF,NICDF,MOPDF
318 ;
319 ; DEFINE EXTERNAL SYMBOLS
320 ;
321 000274 CONDF ;CONTROL BLOCK SYMBOLS
322 000274 LSDF ;LINE SERVICE SYMBOLS
323 000274 NICDF ;NICE MESSAGE SYMBOLS
324 000274 MOPDF ;MOP MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 8
LSBOOT
326 ;
327 ; LOCAL PROCEDURE BODY
328 ;
329 000274 PROCLC LSBOOT
330 000274 IF ; FUNCTION CODE = 0 OR FUNCTION CODE = PROCESS
331 000274 116500 000006 MOVB C.FUNC(R5),R0
332 000300 TRUE CLEAR
333 000302 FALSEB NE R0,#C$PROC
334 000310 THEN
335 000310 016402 000014 MOV LNBFAD(R4),R2 ;ADDRESS OF LINE TRANSMIT BUFFER
336 000314 112722 000006 MOVB #M$EMOP,(R2)+ ;TRIGGER BOOT MOP MESSAGE (ENTER MOP)
337 000320 012700 000053 MOV #BOOPAS,R0 ;OFFSET OF BOOT PASSWORD IN CONTEXT
338 000324 060400 ADD R4,R0 ;MAKE IT A POINTER
339 000326 112001 MOVB (R0)+,R1 ;GET LENGTH OF PASSWORD AND MOVE POINTER
340 000330 IF ; LENGTH = 0
341 000330 FALSE SET
342 000332 THEN
343 000332 012701 000004 MOV #4,R1 ;MAKE IT 4 BYTES OF ZEROS
344 000336 ENDIF
345 000336 CALL MOVE ;PUT PASSWORD IN MOP MESSAGE
346 000342 166402 000014 SUB LNBFAD(R4),R2 ;COMPUTE LENGTH OF MESSAGE
347 000346 010264 000016 MOV R2,LNBFLN(R4) ;SET LINE BUFFER MESSAGE LENGTH
348 000352 IF ; OPTION = TRIGGER WITH PROGRAM REQUEST
349 000352 FALSEB NE OPTION(R4),#LS$TRQ
350 000362 THEN
351 000362 CALL LSRTLB ;RECEIVE/TRANSMIT LINE BLOCKS
352 000366 ELSE
353 000370 CALL LSTRLB ;JUST TRANSMIT A BLOCK
354 000374 ENDIF
355 000374 ENDIF
356 000374 CALL LSRTCM ;CHECK RECEIVE/TRANSMIT COMPLETION
357 000400 IF ; COMPLETE
358 000400 FALSE CS
359 000402 THEN
360 000402 IF ; OPTION = TRIGGER WITH PROGRAM REQUEST
361 000402 FALSEB NE OPTION(R4),#LS$TRQ
362 000412 THEN
363 000412 CALL LSRTCK ;CHECK RECEIVE/TRANSMIT SUCCESS
364 000416 IF ; SUCCESS
365 000416 FALSE CS
366 000420 THEN
367 000420 CALL LSPRLB ;PARSE THE BLOCK
368 000424 IF ; SUCCESS
369 000424 FALSE CS
370 000426 THEN
371 000426 IF ; MOP MESSAGE TYPE = PROGRAM REQUEST
372 000426 FALSE NE R0,#M$RQPG
373 000434 THEN
374 000434 012700 000001 MOV #NS$SUC,R0 ;NICE SUCCESS RETURN
375 000440 ELSE
376 000442 012700 177757 MOV #NE$LPR,R0 ;LINE PROTOCOL ERROR
377 000446 ENDIF
378 000446 ENDIF
379 000446 ENDIF
380 000446 ELSE
381 000450 IF ; TRANSMIT SUCCESSFUL
382 000450 FALSEB LT C.RET(R5)
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 8-1
LSBOOT
383 000456 THEN
384 000456 012700 000001 MOV #1,R0 ;ONE SECOND
385 000462 CALL SRBLCK ;BLOCK THE WORLD SO TRANSMIT IS REALLY COMPLETE
386 000466 012700 000001 MOV #NS$SUC,R0 ;NICE SUCCESS RETURN
387 000472 ELSE
388 000474 012700 177766 MOV #NE$LCO,R0 ;LINE COMMUNICATIONS ERROR
389 000500 ENDIF
390 000500 ENDIF
391 000500 CALL LSABRT ;ALL DONE IN ANY CASE
392 000504 ENDIF
393 000504 105465 000006 NEGB C.FUNC(R5) ;FIX UP THE FUNCTION CODE
394 000510 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 9
LSCKDM
397 .SBTTL LSCKDM
398 ;
399 ;======================================================================;
400 ;++
401 ; +-------------------------------------------------+
402 ; I I
403 ; I L S C K D M I
404 ; I - - - - - - I
405 ; I I
406 ; +-------------------------------------------------+
407 ;
408 ; FUNCTION:
409 ;
410 ; LINE SERVICE MODULE TO CHECK A DIALOG MESSAGE
411 ;
412 ; INPUT:
413 ;
414 ; R4 - ADDRESS OF CONTEXT BLOCK
415 ; R5 - ADDRESS OF CONTROL BLOCK
416 ; C.ADDR - ADDRESS OF DIALOG MESSAGE
417 ; C.LEN - LENGTH OF DIALOG MESSAGE
418 ; C.RET - RECEIVE RETURN CODE
419 ;
420 ; OUTPUT:
421 ;
422 ; C-BIT - CLEAR IF SUCCESS, SET IF FAILURE
423 ; R4 - UPDATED CONTEXT BLOCK
424 ; CPUTYP - IF MEMORY IMAGE DIALOG MESSAGE, CPU TYPE CODE
425 ; DATADR - IF MEMORY IMAGE DIALOG MESSAGE, ADDRESS OF IMAGE DATA
426 ; IF PARAMETERS AND TRANSFER DIALOG MESSAGE, ADDRESS OF
427 ; PARAMETER DATA
428 ; DATLEN - IF MEMORY IMAGE OR PARAMETERS AND TRANSFER DIALOG
429 ; MESSAGE, LENGTH OF DATA AT DATADR
430 ; MEMADR - IF SET BASE ADDRESS DIALOG MESSAGE, BASE ADDRESS
431 ; IF PARAMETERS AND TRANSFER DIALOG MESSAGE, TRANSFER
432 ; ADDRESS
433 ; OTHER FIELDS - IF FAILURE, AS SPECIFIED FOR LSABRT
434 ; @R5 - UPDATED CONTROL BLOCK
435 ; IF FAILURE, AS SPECIFIED FOR LSABRT
436 ;
437 ; REQUIREMENTS:
438 ;
439 ; LINE SERVICE SYMBOLS:
440 ;
441 ; CPUTYP - OFFSET OF CPU TYPE IN CONTEXT
442 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
443 ; DATLEN - OFFSET OF DATA LENGTH IN CONTEXT
444 ; MEMADR - OFFSET OF MEMORY ADDRESS IN CONTEXT
445 ;
446 ; NICE MESSAGE SYMBOLS:
447 ;
448 ; DM$END - END-OF-DIALOG DIALOG MESSAGE TYPE CODE
449 ; DM$PXA - PARAMETERS AND TRANSFER ADDRESS DIALOG MESSAGE TYPE CODE
450 ; DM$MIM - MEMORY IMAGE DIALOG MESSAGE TYPE CODE
451 ; DM$SAD - SET BASE ADDRESS DIALOG MESSAGE TYPE CODE
452 ; NE$FOR - NICE MESSAGE FORMAT ERROR RETURN CODE
453 ; NE$NCO - NETWORK COMMUNICATIONS ERROR RETURN CODE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 9-1
LSCKDM
454 ; NE$ORD - MESSAGE ORDERING ERROR RETURN CODE
455 ; NE$PAR - PARAMETER ERROR RETURN CODE
456 ;
457 ; CONTROL BLOCK SYMBOLS:
458 ;
459 ; C.ADDR - OFFSET OF ADDRESS FIELD
460 ; C.LEN - OFFSET OF LENGTH FIELD
461 ; C.RET - OFFSET OF RETURN CODE FIELD
462 ;
463 ;--
464 ;======================================================================;
465 ;
466 ;
467 ; EXTERNAL MACROS
468 ;
469 .MCALL LSDF,CONDF,NICDF,SAVSTK,RESSTK
470 ;
471 ; DEFINE EXTERNAL SYMBOLS
472 ;
473 000512 LSDF ;LINE SERVICE SYMBOLS
474 000512 CONDF ;CONTROL BLOCK SYMBOLS
475 000512 NICDF ;NICE MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 10
LSCKDM
477 ;
478 ; LOCAL PROCEDURE BODY
479 ;
480 000512 PROCLC LSCKDM
481 000512 IF ; RECEIVE FAILED
482 000512 FALSEB GT C.RET(R5)
483 000520 THEN
484 000520 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
485 000524 000261 SEC ;FAILURE
486 000526 ELSE
487 000530 SAVSTK <R3> ;SAVE REGISTER
488 000532 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF MESSAGE
489 000536 010203 MOV R2,R3 ;COPY IT
490 000540 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
491 000544 CALL GTMSBY ;GET MESSAGE TYPE
492 000550 IF ; SUCCESS
493 000550 FALSE CS
494 000552 THEN
495 000552 SAVSTK <R0> ;SAVE MESSAGE TYPE
496 000554 ONCASE ; MESSAGE TYPE
497 000554 CASE ; END-OF-DIALOG
498 000554 FALSE NE R0,#DM$END
499 000562 DO
500 000562 000241 CLC ;SUCCESS
501 000564 CASE ; SET ADDRESS
502 000566 FALSE NE R0,#DM$SAD
503 000574 DO
504 000574 012700 000004 MOV #4,R0 ;LENGTH OF ADDRESS
505 000600 012701 000010 MOV #MEMADR,R1 ;OFFSET OF BASE ADDRESS IN CONTEXT
506 000604 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
507 000606 CALL MVMSBY ;MOVE ADDRESS TO CONTEXT
508 000612 IF ; SUCCESS
509 000612 FALSE CS
510 000614 THEN
511 000614 IF ; HIGH ORDER WORD OF ADDRESS = 0
512 000614 FALSE SET MEMADR+2(R4)
513 000622 THEN
514 000622 000241 CLC ;ALL OK
515 000624 ELSE
516 000626 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
517 000632 000261 SEC ;FAILURE
518 000634 ENDIF
519 000634 ENDIF
520 000634 CASE ; MEMORY IMAGE
521 000636 FALSE NE R0,#DM$MIM
522 000644 DO
523 000644 CALL GTMSBY ;GET CPU TYPE
524 000650 IF ; SUCCESS
525 000650 FALSE CS
526 000652 THEN
527 000652 IF ; CPU TYPE <> PDP-11
528 000652 FALSE EQ R0,#1
529 000660 THEN
530 000660 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
531 000664 000261 SEC ;FAILURE
532 000666 ELSE
533 000670 110064 000065 MOVB R0,CPUTYP(R4) ;SAVE CPU TYPE IN CONTEXT
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 10-1
LSCKDM
534 000674 010301 MOV R3,R1 ;END OF MESSAGE
535 000676 160201 SUB R2,R1 ;COMPUTE LENGTH OF REMAINDER
536 000700 010164 000024 MOV R1,DATLEN(R4) ;SAVE LENGTH OF IMAGE IN CONTEXT
537 000704 010264 000022 MOV R2,DATADR(R4) ;SAVE ADDRESS OF IMAGE IN CONTEXT
538 000710 060102 ADD R1,R2 ;UPDATE MESSAGE POINTER
539 000712 000241 CLC ;SUCCESS SO FAR
540 000714 ENDIF
541 000714 ENDIF
542 000714 CASE ; PARAMETERS AND TRANSFER ADDRESS
543 000716 FALSE NE R0,#DM$PXA
544 000724 DO
545 000724 CALL GTMSBY ;LENGTH OF PARAMETERS FIELD
546 000730 IF ; SUCCESS
547 000730 FALSE CS
548 000732 THEN
549 000732 005064 000024 CLR DATLEN(R4) ;CLEAN UP LENGTH IN CONTEXT
550 000736 110064 000024 MOVB R0,DATLEN(R4) ;SAVE LENGTH OF PARAMETERS IN CONTEXT
551 000742 010264 000022 MOV R2,DATADR(R4) ;SAVE ADDRESS OF PARAMETERS IN CONTEXT
552 000746 066402 000024 ADD DATLEN(R4),R2 ;UPDATE MESSAGE POINTER
553 000752 012700 000004 MOV #4,R0 ;LENGTH OF TRANSFER ADDRESS
554 000756 012701 000010 MOV #MEMADR,R1 ;OFFSET OF TRANSFER ADDRESS IN CONTEXT
555 000762 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
556 000764 CALL MVMSBY ;MOVE TRANSFER ADDRESS TO CONTEXT
557 000770 IF ; SUCCESS
558 000770 FALSE CS
559 000772 THEN
560 000772 IF ; HIGH ORDER WORD OF TRANSFER ADDRESS = 0
561 000772 FALSE SET MEMADR+2(R4)
562 001000 THEN
563 001000 000241 CLC ;ALL OK
564 001002 ELSE
565 001004 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
566 001010 000261 SEC
567 001012 ENDIF
568 001012 ENDIF
569 001012 ENDIF
570 001012 ELSE
571 001014 012700 177774 MOV #NE$ORD,R0 ;MESSAGE ORDERING ERROR
572 001020 000261 SEC
573 001022 ENDCASE
574 001022 IF ; FAILURE
575 001022 FALSE CC
576 001024 THEN
577 001024 010016 MOV R0,(SP) ;REPLACE TOP OF STACK WITH ERROR CODE
578 001026 ENDIF
579 001026 RESSTK <R0> ;RESTORE MESSAGE TYPE OR ERROR CODE
580 001030 ENDIF
581 001030 IF ; SUCCESS SO FAR AND MESSAGE NOT USED UP
582 001030 FALSE CS
583 001032 FALSE EQ R2,R3
584 001036 THEN
585 001036 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
586 001042 000261 SEC ;FAILURE
587 001044 ENDIF
588 001044 RESSTK <R3> ;RESTORE REGISTER
589 001046 ENDIF
590 001046 IF ; FAILURE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 10-2
LSCKDM
591 001046 FALSE CC
592 001050 THEN
593 001050 CALL LSABRT ;TOO BAD...
594 001054 000261 SEC ;SIGNAL ERROR BACK TO CALLER
595 001056 ENDIF
596 001056 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 11
LSDUMP
599 .SBTTL LSDUMP
600 ;
601 ;======================================================================;
602 ;++
603 ; +-------------------------------------------------+
604 ; I I
605 ; I L S D U M P I
606 ; I - - - - - - I
607 ; I I
608 ; +-------------------------------------------------+
609 ;
610 ; FUNCTION:
611 ;
612 ; LINE SERVICE MODULE TO PROCESS THE DUMP OPTION
613 ;
614 ; INPUT:
615 ;
616 ; R4 - ADDRESS OF CONTEXT BLOCK
617 ; CMBFAD - ADDRESS OF COMMAND MESSAGE BUFFER
618 ; CMLKNM - COMMAND LINK NUMBER
619 ; COUNT - NUMBER OF BYTES TO DUMP
620 ; FLAGS - PROCESSING FLAGS
621 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
622 ; MEMADR - ADDRESS TO DUMP FROM
623 ; REQLEN - LENGTH OF DUMP LAST REQUESTED OVER LINE
624 ; R5 - ADDRESS OF CONTROL BLOCK
625 ; C.ADDR - ON ALLOCATE CONTROL BLOCK COMPLETION, ADDRESS OF CONTROL
626 ; BLOCK; ON RECEIVE MESSAGE COMPLETION, ADDRESS OF MESSAGE
627 ; C.FUNC - FUNCTION JUST COMPLETED
628 ; C.LEN - ON RECEIVE MESSAGE COMPLETION, LENGTH OF MESSAGE RECEIVED
629 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
630 ; OTHER INPUTS AS DESCRIBED FOR LINE RECEIVE/TRANSMIT PROCESSING
631 ;
632 ; OUTPUT:
633 ;
634 ; @R4 - ADDRESS OF CONTEXT BLOCK
635 ; COUNT - NUMBER OF BYTES LEFT TO DUMP
636 ; FLAGS - PROCESSING FLAGS
637 ; @LNBFAD - MESSAGE TO TRANSMIT ON LINE
638 ; LNBFLN - LENGTH OF MESSAGE TO TRANSMIT ON LINE
639 ; MEMADR - ADDRESS TO DUMP FROM
640 ; OPTION - ON FINAL RETURN, LINE SERVICE TRIGGER FUNCTION CODE
641 ; REQLEN - LENGTH OF DUMP REQUESTED OVER LINE
642 ; STATE - ON FINAL SUCCESS RETURN, BOOT
643 ; R5 - ADDRESS OF CONTROL BLOCK
644 ; @R5 - UPDATED CONTROL BLOCK
645 ; 0(R5) - ON RECEIVE MESSAGE REQUEST, ADDRESS OF CONTROL BLOCK WITH
646 ; TRANSMIT REQUEST
647 ; C.ADDR - ADDRESS OF SET BASE ADDRESS DIALOG MESSAGE
648 ; C.LEN - LENGTH OF MESSAGE
649 ; OTHER FIELDS, SAME AS RECEIVE MESSAGE REQUEST
650 ; C.ADDR - ON RECEIVE MESSAGE REQUEST, ADDRESS OF SAVE AREA (C.SAVE)
651 ; AS RECEIVE BUFFER; ON NORMAL TRANSMIT MESSAGE REQUEST,
652 ; ADDRESS OF MEMORY IMAGE DIALOG MESSAGE
653 ; C.FUNC - FUNCTION TO PERFORM
654 ; C.LEN - ON TRANSMIT REQUEST, LENGTH OF MESSAGE; ON RECEIVE
655 ; REQUEST, LENGTH OF BUFFER
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 11-1
LSDUMP
656 ; C.LKNM - LINK NUMBER
657 ; OTHER OUTPUTS AS DESCRIBED FOR LSABRT AND LINE RECEIVE/TRANSMIT PROCESSING
658 ;
659 ; REQUIREMENTS:
660 ;
661 ; LINE SERVICE SYMBOLS:
662 ;
663 ; BOOT - BOOT STATE VALUE
664 ; CMBFAD - OFFSET OF COMMAND MESSAGE BUFFER ADDRESS IN CONTEXT
665 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
666 ; COUNT - OFFSET OF COUNT IN CONTEXT
667 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
668 ; DATLEN - OFFSET OF DATA LENGTH IN CONTEXT
669 ; DUMSEG - MAXIMUM LENGTH OF A DUMP SEGMENT
670 ; EODREC - END-OF-DIALOG DIALOG MESSAGE RECEIVED FLAG MASK
671 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
672 ; LNBFAD - OFFSET OF LINE TRANSMIT BUFFER ADDRESS IN CONTEXT
673 ; LNBFLN - OFFSET OF LINE TRANSMIT BUFFER CONTENTS LENGTH IN CONTEXT
674 ; MEMADR - OFFSET OF MEMORY ADDRESS IN CONTEXT
675 ; OPTION - OFFSET OF NICE COMMAND MESSAGE OPTION IN CONTEXT
676 ; RCMSPN - RECEIVE MESSAGE PENDING FLAG MASK
677 ; REQLEN - OFFSET OF REQUESTED LENGTH IN CONTEXT
678 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
679 ; TRMSPN - OFFSET OF TRANSMIT MESSAGE PENDING FLAG IN CONTEXT
680 ;
681 ; MOP MESSAGE SYMBOLS:
682 ;
683 ; M$DATA - DUMPED DATA FUNCTION CODE VALUE
684 ; M$DUMP - DUMP FUNCTION CODE VALUE
685 ;
686 ; NICE MESSAGE SYMBOLS:
687 ;
688 ; DM$MIM - MEMORY IMAGE DIALOG MESSAGE TYPE VALUE
689 ; DM$SAD - SET BASE ADDRESS DIALOG MESSAGE TYPE VALUE
690 ; LS$TRI - TRIGGER OPTION VALUE
691 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
692 ; NE$NCO - NETWORK COMMUNICATION ERROR RETURN CODE
693 ; NE$ORD - MESSAGE ORDERING ERROR RETURN CODE
694 ;
695 ; CONTROL BLOCK SYMBOLS:
696 ;
697 ; C.ADDR - OFFSET OF ADDRESS FIELD
698 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
699 ; C.LEN - OFFSET OF LENGTH FIELD
700 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
701 ; C.RET - OFFSET OF RETURN CODE FIELD
702 ; C.SAVE - OFFSET OF SAVE AREA
703 ; C$ALCB - ALLOCATE CONTROL BLOCK FUNCTION CODE
704 ; C$LEN - LENGTH OF CONTROL BLOCK
705 ; C$PROC - PROCESS FUNCTION CODE
706 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
707 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
708 ;
709 ; EFFECTS:
710 ;
711 ; CHANGED IN CONTEXT ARE THOSE FIELDS DESCRIBED FOR MODULE LSPRLB
712 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 11-2
LSDUMP
713 ;--
714 ;======================================================================;
715 ;
716 ; EXTERNAL MACROS
717 ;
718 .MCALL LSDF,CONDF,NICDF,MOPDF,SAVSTK,RESSTK
719 ;
720 ; DEFINE EXTERNAL SYMBOLS
721 ;
722 001060 LSDF ;LINE SERVICE SYMBOLS
723 001060 CONDF ;CONTROL BLOCK SYMBOLS
724 001060 NICDF ;NICE MESSAGE SYMBOLS
725 001060 MOPDF ;MOP MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 12
LSDUMP
727 ;
728 ; LOCAL PROCEDURE BODY
729 ;
730 001060 PROCLC LSDUMP
731 001060 IF ; FUNCTION CODE = 0
732 001060 FALSEB SET C.FUNC(R5)
733 001066 THEN
734 001066 112765 177745 000006 MOVB #-C$ALCB,C.FUNC(R5) ;ALLOCATE ANOTHER CONTROL BLOCK
735 001074 ENDIF
736 001074 IF ; FUNCTION CODE = ALLOCATE CONTROL BLOCK
737 001074 FALSEB NE C.FUNC(R5),#C$ALCB
738 001104 THEN
739 001104 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;LINK TO RECEIVE/TRANSMIT ON
740 001112 010500 MOV R5,R0 ;ADDRESS OF OLD CONTROL BLOCK
741 001114 012701 000026 MOV #C$LEN,R1 ;LENGTH OF CONTROL BLOCK
742 001120 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF NEW CONTROL BLOCK
743 001124 CALL MOVE ;COPY OLD TO NEW
744 001130 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF NEW CONTROL BLOCK
745 001134 SAVSTK <R0> ;SAVE IT FOR LATER
746 001136 010510 MOV R5,(R0) ;STRING OLD ONE ONTO NEW ONE
747 001140 112760 177724 000006 MOVB #-C$RCMS,C.FUNC(R0) ;FUNCTION CODE TO RECEIVE A MESSAGE
748 001146 062760 000022 000014 ADD #C.SAVE,C.ADDR(R0) ;USE SAVE AREA FOR MESSAGE BUFFER
749 001154 012760 000004 000012 MOV #4,C.LEN(R0) ;ONLY 4 BYTES LONG
750 001162 016402 000002 MOV CMBFAD(R4),R2 ;ADDRESS OF COMMAND BUFFER
751 001166 010265 000014 MOV R2,C.ADDR(R5) ;PUT IT IN CONTROL BLOCK
752 001172 112722 000001 MOVB #DM$SAD,(R2)+ ;DIALOG MESSAGE TYPE = SET BASE ADDRESS
753 001176 012700 000010 MOV #MEMADR,R0 ;OFFSET OF MEMORY ADDRESS IN CONTEXT
754 001202 060400 ADD R4,R0 ;MAKE IT A POINTER
755 001204 012701 000004 MOV #4,R1 ;LENGTH OF MEMORY ADDRESS
756 001210 CALL MOVE ;PUT MEMORY ADDRESS IN MESSAGE
757 001214 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE MESSAGE LENGTH
758 001220 010265 000012 MOV R2,C.LEN(R5) ;AND PUT IT IN CONTROL BLOCK
759 001224 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
760 001232 RESSTK <R5> ;MAKE THE NEW ONE CURRENT
761 001234 152764 000030 000043 BISB #<RCMSPN!TRMSPN>,FLAGS(R4) ;SET TRANSMIT/RECEIVE PENDING FLAGS
762 001242 ENDIF
763 001242 IF ; FUNCTION CODE = RECEIVE MESSAGE
764 001242 FALSEB NE C.FUNC(R5),#C$RCMS
765 001252 THEN
766 001252 142764 000010 000043 BICB #RCMSPN,FLAGS(R4) ;CLEAR RECEIVE PENDING FLAG
767 001260 IF ; FAILURE OR LENGTH >= 1 AND TYPE = END-OF-DIALOG
768 001260 TRUEB LT C.RET(R5)
769 001266 FALSE LT C.LEN(R5),#1
770 001276 FALSEB NE @C.ADDR(R5),#DM$END
771 001306 THEN
772 001306 152764 000004 000043 BISB #EODREC,FLAGS(R4) ;SET END-OF-DIALOG RECEIVED FLAG
773 001314 005000 CLR R0 ;NO ERROR CODE
774 001316 ELSE
775 001320 012700 177774 MOV #NE$ORD,R0 ;NICE MESSAGE ORDERING ERROR
776 001324 ENDIF
777 001324 CALL LSABRT ;ALL DONE IN ANY CASE
778 001330 ENDIF
779 001330 IF ; FUNCTION CODE = TRANSMIT MESSAGE
780 001330 FALSEB NE C.FUNC(R5),#C$TRMS
781 001340 THEN
782 001340 142764 000020 000043 BICB #TRMSPN,FLAGS(R4) ;CLEAR TRANSMIT PENDING FLAG
783 001346 IF ; SUCCESS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 12-1
LSDUMP
784 001346 FALSEB LT C.RET(R5)
785 001354 THEN
786 001354 IF ; MORE TO DUMP
787 001354 TRUE SET COUNT(R4)
788 001362 FALSE CLEAR COUNT+2(4)
789 001370 THEN
790 001370 016402 000014 MOV LNBFAD(R4),R2 ;ADDRESS OF LINE TRANSMIT BUFFER
791 001374 010265 000014 MOV R2,C.ADDR(R5) ;PUT IT IN CONTROL BLOCK
792 001400 112722 000004 MOVB #M$DUMP,(R2)+ ;MOP FUNCTION = DUMP
793 001404 012700 000010 MOV #MEMADR,R0 ;OFFSET OF MEMORY ADDRESS IN CONTEXT
794 001410 060400 ADD R4,R0 ;MAKE IT A POINTER
795 001412 012701 000004 MOV #4,R1 ;LENGTH OF MEMORY ADDRESS
796 001416 CALL MOVE ;PUT MEMORY ADDRESS IN MESSAGE
797 001422 IF ; NUMBER OF BYTES TO DUMP <= MAXIMUM SEGMENT
798 001422 FALSE SET COUNT+2(R4)
799 001430 FALSE HI COUNT(R4),#DUMSEG
800 001440 THEN
801 001440 016400 000004 MOV COUNT(R4),R0 ;DUMP THE REST
802 001444 ELSE
803 001446 012700 000400 MOV #DUMSEG,R0 ;DUMP A SEGMENT
804 001452 ENDIF
805 001452 010064 000032 MOV R0,REQLEN(R4) ;REMEMBER REQUESTED LENGTH
806 001456 110022 MOVB R0,(R2)+ ;PUT LOW BYTE OF COUNT IN MESSAGE
807 001460 000300 SWAB R0 ;GET THE HIGH BYTE IN POSITION
808 001462 110022 MOVB R0,(R2)+ ;PUT HIGH BYTE OF COUNT IN MESSAGE
809 001464 166402 000014 SUB LNBFAD(R4),R2 ;COMPUTE LENGTH OF MESSAGE
810 001470 010264 000016 MOV R2,LNBFLN(R4) ;SET LENGTH OF MESSAGE IN LINE BUFFER
811 001474 CALL LSRTLB ;RECEIVE/TRANSMIT LINE BLOCK
812 001500 ELSE ; ALL DONE WITH DUMP
813 001502 112764 000004 000042 MOVB #LS$TRI,OPTION(R4) ;LOOK LIKE PROCESSING TRIGGER
814 001510 112764 000005 000040 MOVB #BOOT,STATE(R4) ;LET BOOT FINISH THIS UP
815 001516 112765 177600 000006 MOVB #-C$PROC,C.FUNC(R5) ;SO CONTROL BLOCK WILL COME BACK
816 001524 ENDIF
817 001524 ELSE
818 001526 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
819 001532 CALL LSABRT ;ALL DONE
820 001536 ENDIF
821 001536 ENDIF
822 001536 CALL LSRTCM ;CHECK RECEIVE/TRANSMIT COMPLETION
823 001542 IF ; COMPLETE
824 001542 FALSE CS
825 001544 THEN
826 001544 CALL LSRTCK ;CHECK RECEIVE/TRANSMIT SUCCESS
827 001550 IF ; SUCCESS
828 001550 FALSE CS
829 001552 THEN
830 001552 CALL LSPRLB ;PARSE THE LINE BLOCK
831 001556 IF ; SUCCESS
832 001556 FALSE CS
833 001560 THEN
834 001560 IF ; MOP FUNCTION CODE = DUMP DATA
835 ; AND LENGTH OF DATA = REQUESTED LENGTH
836 ; AND RESPONSE ADDRESS = REQUESTED ADDRESS
837 001560 FALSE NE R0,#M$DATA
838 001566 FALSE NE DATLEN(R4),REQLEN(R4)
839 001576 FALSE NE RESADR(R4),MEMADR(R4)
840 001606 FALSE NE RESADR+2(R4),MEMADR+2(R4)
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 12-2
LSDUMP
841 001616 THEN
842 001616 016400 000032 MOV REQLEN(R4),R0 ;NUMBER OF BYTES REQUESTED
843 001622 160064 000004 SUB R0,COUNT(R4) ;DECREASE COUNT BY AMOUNT USED
844 001626 005664 000006 SBC COUNT+2(R4) ;DON'T FORGET HIGH ORDER WORD...
845 001632 060064 000010 ADD R0,MEMADR(R4) ;MOVE MEMORY ADDRESS UP
846 001636 005564 000012 ADC MEMADR+2(R4) ;ITS HIGH WORD, TOO
847 001642 016402 000002 MOV CMBFAD(R4),R2 ;ADDRESS OF COMMAND BUFFER
848 001646 010265 000014 MOV R2,C.ADDR(R5) ;PUT IT IN CONTROL BLOCK
849 001652 112722 000002 MOVB #DM$MIM,(R2)+ ;MEMORY IMAGE TYPE DIALOG MESSAGE
850 001656 112722 000001 MOVB #1,(R2)+ ;CPU TYPE = PDP-11
851 001662 016400 000022 MOV DATADR(R4),R0 ;ADDRESS OF DUMPED DATA
852 001666 016401 000024 MOV DATLEN(R4),R1 ;LENGTH OF DUMPED DATA
853 001672 CALL MOVE ;PUT DUMPED DATA IN DIALOG MESSAGE
854 001676 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
855 001702 010265 000012 MOV R2,C.LEN(R5) ;AND PUT IN CONTROL BLOCK
856 001706 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN CONTROL BLOCK
857 001714 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
858 001722 152764 000020 000043 BISB #TRMSPN,FLAGS(R4) ;SET TRANSMIT PENDING FLAG
859 001730 ELSE
860 001732 012700 177757 MOV #NE$LPR,R0 ;LINE PROTOCOL ERROR
861 001736 CALL LSABRT ;BLOW IT UP
862 001742 ENDIF
863 001742 ELSE
864 001744 CALL LSABRT ;KILL IT
865 001750 ENDIF
866 001750 ELSE
867 001752 CALL LSRTER ;PROCESS RECEIVE/TRANSMIT ERROR
868 001756 ENDIF
869 001756 ENDIF
870 001756 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
871 001762 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 13
LSFINI
874 .SBTTL LSFINI
875 ;
876 ;======================================================================;
877 ;++
878 ; +-------------------------------------------------+
879 ; I I
880 ; I L S F I N I I
881 ; I - - - - - - I
882 ; I I
883 ; +-------------------------------------------------+
884 ;
885 ; FUNCTION:
886 ;
887 ; LINE SERVICE MODULE TO FINISH UP THE PROCESS
888 ;
889 ; INPUT:
890 ;
891 ; R4 - ADDRESS OF CONTEXT BLOCK
892 ; BOODEV - BOOT DEVICE TYPE
893 ; CMBFAD - ADDRESS OF COMMAND MESSAGE BUFFER
894 ; CMLKNM - COMMAND LINK NUMBER
895 ; COUNT - NUMBER OF LOOP MESSAGES NOT TRANSMITTED
896 ; FLAGS - PROCESSING FLAGS
897 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
898 ; LUN - LINE LOGICAL LINK NUMBER
899 ; OPTION - NICE COMMAND MESSAGE OPTION
900 ; PROTYP - PROGRAM TYPE OF PROGRAM BEING LOADED
901 ; RECCB - ADDRESS OF RECEIVE CONTROL BLOCK
902 ; REQPRO - PROGRAM TYPE OF REQUESTED PROGRAM
903 ; RETCOD - NICE RETURN CODE
904 ; SOFTID - REQUESTED SOFTWARE ID
905 ; TRACB - ADDRESS OF TRANSMIT CONTROL BLOCK
906 ; R5 - ADDRESS OF CONTROL BLOCK
907 ; C.ADDR - ON RECEIVE COMPLETION, ADDRESS OF BUFFER
908 ; C.CTXT - ADDRESS OF CONTEXT BLOCK
909 ; C.FUNC - FUNCTION JUST PERFORMED
910 ; C.LEN - ON RECEIVE COMPLETION, LENGTH OF RECEIVED DATA
911 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
912 ;
913 ; OUTPUT:
914 ;
915 ; @R4 - UPDATED CONTEXT BLOCK
916 ; CMBFAD - CLEAR WHEN RELEASED
917 ; FLAGS - PROCESSING FLAGS
918 ; RECCB - CLEAR WHEN RECEIVE CONTROL BLOCK RELEASED
919 ; TRACB - CLEAR WHEN TRANSMIT CONTROL BLOCK RELEASED
920 ; @R5 - UPDATED CONTROL BLOCK
921 ; C.ADDR - ON RECEIVE MESSAGE REQUEST, ADDRESS OF BUFFER; ON
922 ; RELEASE CONTROL BLOCK REQUEST, ADDRESS OF CONTROL BLOCK;
923 ; ON RELEASE BUFFER REQUEST, ADDRESS OF BUFFER; ON
924 ; TRANSMIT MESSAGE REQUEST, ADDRESS OF MESSAGE
925 ; C.CTXT - ON FINAL RETURN, ZERO
926 ; C.FUNC - FUNCTION TO PERFORM
927 ; C.LEN - ON RECEIVE MESSAGE REQUEST, LENGTH OF BUFFER
928 ; C.LKNM - ON RECEIVE OR TRANSMIT MESSAGE REQUEST AND ON FINAL
929 ; RETURN, COMMAND LINK NUMBER
930 ; C.LUN - ON CLOSE LINE REQUEST, LINE LOGICAL UNIT NUMBER
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 13-1
LSFINI
931 ;
932 ; REQUIREMENTS:
933 ;
934 ; LINE SERVICE SYMBOLS:
935 ;
936 ; BOODEV - OFFSET OF BOOT DEVICE TYPE IN CONTEXT
937 ; CMBFAD - OFFSET OF COMMAND BUFFER ADDRESS IN CONTEXT
938 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
939 ; COUNT - OFFSET OF REMAINING LOOP COUNT IN CONTEXT
940 ; DIALOG - DIALOG IN PROCESS FLAG MASK
941 ; EODREC - END-OF-DIALOG RECEIVED FLAG MASK
942 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
943 ; LNBFAD - OFFSET OF LINE BUFFER ADDRESS IN CONTEXT
944 ; LUN - OFFSET OF LINE LOGICAL UNIT NUMBER
945 ; OPTION - OFFSET OF NICE MESSAGE OPTION IN CONTEXT
946 ; PROTYP - OFFSET OF LOADED PROGRAM TYPE IN CONTEXT
947 ; RCBKPN - RECEIVE BLOCK PENDING FLAG MASK
948 ; RCMSPN - RECEIVE MESSAGE PENDING FLAG MASK
949 ; RECCB - OFFSET OF RECEIVE CONTROL BLOCK ADDRESS IN CONTEXT
950 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
951 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
952 ; SOFTID - OFFSET OF REQUESTED SOFTWARE ID IN CONTEXT
953 ; TRACB - OFFSET OF TRANSMIT CONTROL BLOCK ADDRESS IN CONTEXT
954 ; TRBKPN - TRANSMIT BLOCK PENDING FLAG MASK
955 ; TRMSPN - TRANSMIT MESSAGE PENDING FLAG MASK
956 ;
957 ; NICE MESSAGE SYMBOLS:
958 ;
959 ; DM$END - END-OF-DIALOG DIALOG MESSAGE TYPE CODE
960 ; LS$LOA - LOAD OPTION CODE
961 ; LS$LOO - LOOP OPTION CODE
962 ; LS$TRQ - TRIGGER BOOT AND RECEIVE PROGRAM REQUEST OPTION CODE
963 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
964 ;
965 ; CONTROL BLOCK SYMBOLS:
966 ;
967 ; C.ADDR - OFFSET OF ADDRESS FIELD
968 ; C.CTXT - OFFSET OF CONTEXT FIELD
969 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
970 ; C.LEN - OFFSET OF LENGTH FIELD
971 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
972 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
973 ; C.RET - OFFSET OF RETURN CODE FIELD
974 ; C$CLLN - CLOSE LINE FUNCTION CODE
975 ; C$RCBK - RECEIVE BLOCK FUNCTION CODE
976 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
977 ; C$RLCB - RELEASE CONTROL BLOCK FUNCTION CODE
978 ; C$RLCI - RELEASE CONTROL BLOCK IMMEDIATE FUNCTION CODE
979 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
980 ; C$TRBK - TRANSMIT BLOCK FUNCTION CODE
981 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
982 ;
983 ;--
984 ;======================================================================;
985 ;
986 ;
987 ; EXTERNAL MACROS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 13-2
LSFINI
988 ;
989 .MCALL LSDF,CONDF,NICDF
990 ;
991 ; DEFINE EXTERNAL SYMBOLS
992 ;
993 001764 LSDF ;LINE SERVICE SYMBOLS
994 001764 CONDF ;CONTROL BLOCK SYMBOLS
995 001764 NICDF ;NICE MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 14
LSFINI
997 ;
998 ; LOCAL PROCEDURE BODY
999 ;
1000 001764 PROCLC LSFINI
1001 001764 IF ; FUNCTION CODE = TRANSMIT BLOCK
1002 001764 FALSEB NE C.FUNC(R5),#C$TRBK
1003 001774 THEN
1004 001774 005064 000034 CLR TRACB(R4) ;DON'T RELEASE THIS AGAIN
1005 002000 142764 000100 000043 BICB #TRBKPN,FLAGS(R4) ;CLEAR LINE TRANSMIT PENDING FLAG
1006 002006 105065 000006 CLRB C.FUNC(R5) ;LOOK LIKE INITIALIZATION
1007 002012 ENDIF
1008 002012 IF ; FUNCTION CODE = RECEIVE BLOCK
1009 002012 FALSEB NE C.FUNC(R5),#C$RCBK
1010 002022 THEN
1011 002022 005064 000036 CLR RECCB(R4) ;DON'T RELEASE THIS AGAIN
1012 002026 142764 000040 000043 BICB #RCBKPN,FLAGS(R4) ;CLEAR LINE RECEIVE PENDING FLAG
1013 002034 105065 000006 CLRB C.FUNC(R5) ;LOOK LIKE INITIALIZATION
1014 002040 ENDIF
1015 002040 IF ; FUNCTION CODE = 0
1016 002040 FALSEB SET C.FUNC(R5)
1017 002046 THEN
1018 002046 IF ; RECEIVE OR TRANSMIT LINE BLOCK PENDING
1019 002046 FALSEB CLEAR #<RCBKPN!TRBKPN>,FLAGS(R4)
1020 002056 THEN
1021 002056 112765 000000 000006 MOVB #-C$RLCI,C.FUNC(R5) ;RELEASE THIS CONTROL BLOCK
1022 002064 ELSE
1023 002066 IF ; LINE RECEIVE AND TRANSMIT CONTROL BLOCKS ALLOCATED
1024 002066 FALSE CLEAR RECCB(R4)
1025 002074 FALSE CLEAR TRACB(R4)
1026 002102 THEN
1027 002102 IF ; ACTIVE CONTROL BLOCK ADDRESS = RECEIVE CONTROL BLOCK ADDRESS
1028 002102 FALSE NE R5,RECCB(R4)
1029 002110 THEN
1030 002110 016405 000034 MOV TRACB(R4),R5 ;USE THE TRANSMIT CONTROL BLOCK
1031 002114 ENDIF
1032 002114 016465 000036 000014 MOV RECCB(R4),C.ADDR(R5) ;RELEASE THE RECEIVE CONTROL BLOCK
1033 002122 112765 177776 000006 MOVB #-C$RLCB,C.FUNC(R5) ;SET FUNCTION CODE TO DO IT
1034 002130 ELSE
1035 002132 112765 000002 000006 MOVB #C$RLCB,C.FUNC(R5) ;LOOK LIKE RELEASE COMPLETE
1036 002140 ENDIF
1037 002140 ENDIF
1038 002140 ENDIF
1039 002140 IF ; FUNCTION CODE = RELEASE CONTROL BLOCK
1040 002140 FALSEB NE C.FUNC(R5),#C$RLCB
1041 002150 THEN
1042 002150 IF ; LINE OPEN
1043 002150 FALSEB CLEAR LUN(R4)
1044 002156 THEN
1045 002156 116465 000050 000020 MOVB LUN(R4),C.LUN(R5) ;PUT LINE LUN IN CONTROL BLOCK
1046 002164 112765 177773 000006 MOVB #-C$CLLN,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE LINE
1047 002172 ELSE
1048 002174 112765 000005 000006 MOVB #C$CLLN,C.FUNC(R5) ;LOOK LIKE LINE CLOSED
1049 002202 ENDIF
1050 002202 ENDIF
1051 002202 IF ; FUNCTION CODE = CLOSE LINE
1052 002202 FALSEB NE C.FUNC(R5),#C$CLLN
1053 002212 THEN
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 14-1
LSFINI
1054 002212 016402 000002 MOV CMBFAD(R4),R2 ;ADDRESS OF COMMAND BUFFER
1055 002216 010265 000014 MOV R2,C.ADDR(R5) ;INTO CONTROL BLOCK
1057 002222 IF ; DOING DIALOG
1058 002222 FALSEB CLEAR #DIALOG,FLAGS(R4)
1059 002232 THEN
1060 002232 112722 000000 MOVB #DM$END,(R2)+ ;MAKE MESSAGE AN END-OF-DIALOG
1061 002236 ENDIF
1063 002236 116422 000041 MOVB RETCOD(R4),(R2)+ ;EVERYBODY GETS THE RETURN CODE
1065 002242 IF ; OPTION = LOOP
1066 002242 FALSEB NE OPTION(R4),#LS$LOO
1067 002252 THEN
1068 002252 116422 000004 MOVB COUNT(R4),(R2)+ ;LOW ORDER BYTE OF COUNT
1069 002256 116422 000005 MOVB COUNT+1(R4),(R2)+ ;HIGH BYTE OF SAME
1070 002262 ENDIF
1073 002262 IF ; SUCCESS AND OPTION = TRIGGER BOOT W/ PROGRAM REQUEST
1074 ; OR OPTION = LOAD AND PROGRAM TYPE <> OPERATING SYSTEM
1075 002262 FALSEB LT RETCOD(R4)
1076 002270 TRUEB EQ OPTION(R4),#LS$TRQ
1077 002300 FALSEB NE OPTION(R4),#LS$LOA
1078 002310 FALSEB EQ PROTYP(R4),#2
1079 002320 THEN
1080 002320 116422 000066 MOVB BOODEV(R4),(R2)+ ;BOOT DEVICE TYPE
1081 002324 112722 000001 MOVB #1,(R2)+ ;CPU TYPE = PDP-11
1082 002330 116422 000067 MOVB REQPRO(R4),(R2)+ ;REQUESTED PROGRAM TYPE
1083 002334 116401 000070 MOVB SOFTID(R4),R1 ;LENGTH OF SOFTWARE ID
1084 002340 012700 000070 MOV #SOFTID,R0 ;OFFSET OF SOFTWARE ID IN CONTEXT
1085 002344 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
1086 002346 112022 MOVB (R0)+,(R2)+ ;PUT LENGTH OF SOFTWARE ID IN MESSAGE
1087 002350 CALL MOVE ;REST OF SOFTWARE ID
1088 002354 ENDIF
1090 002354 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
1091 002360 010265 000012 MOV R2,C.LEN(R5) ;AND PUT INTO CONTROL BLOCK
1092 002364 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;SEND IT ON THE COMMAND LINK
1093 002372 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
1094 002400 ENDIF
1095 002400 IF ; FUNCTION CODE = RECEIVE MESSAGE
1096 002400 FALSEB NE C.FUNC(R5),#C$RCMS
1097 002410 THEN
1098 002410 IF ; FAILURE OR LENGTH >= 1 AND TYPE = END-OF-DIALOG
1099 002410 TRUEB LT C.RET(R5)
1100 002416 FALSE LT C.LEN(R5),#1
1101 002426 FALSEB NE @C.ADDR(R5),#DM$END
1102 002436 THEN
1103 002436 152764 000004 000043 BISB #EODREC,FLAGS(R4) ;SET END-OF-DIALOG RECEIVED FLAG
1104 002444 ENDIF
1105 002444 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;PRETEND TRANSMIT COMPLETED
1106 002452 ENDIF
1107 002452 IF ; FUNCTION CODE = TRANSMIT MESSAGE
1108 002452 FALSEB NE C.FUNC(R5),#C$TRMS
1109 002462 THEN
1110 002462 IF ; TRANSMIT OR RECEIVE PENDING
1111 002462 FALSEB CLEAR #<TRMSPN!RCMSPN>,FLAGS(R4)
1112 002472 THEN
1113 002472 012765 000000 000006 MOV #-C$RLCI,C.FUNC(R5) ;GET RID OF THIS CONTROL BLOCK
1114 002500 142764 000030 000043 BICB #<TRMSPN!RCMSPN>,FLAGS(R4) ;CLEAR MESSAGE FLAGS
1115 002506 ELSE
1116 002510 IF ; END-OF-DIALOG NOT RECEIVED
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 14-2
LSFINI
1117 002510 FALSEB SET #EODREC,FLAGS(R4)
1118 002520 THEN
1119 002520 016465 000002 000014 MOV CMBFAD(R4),C.ADDR(R5) ;ADDRESS OF COMMAND BUFFER
1120 002526 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF BUFFER
1121 002534 112765 177724 000006 MOVB #-C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
1122 002542 ELSE
1123 002544 IF ; LINE BUFFER ALLOCATED
1124 002544 FALSE CLEAR LNBFAD(R4)
1125 002552 THEN
1126 002552 016465 000014 000014 MOV LNBFAD(R4),C.ADDR(R5) ;LINE BUFFER ADDRESS INTO CONTROL BLOCK
1127 002560 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE BUFFER
1128 002566 ELSE
1129 002570 112765 000001 000006 MOVB #C$RLBF,C.FUNC(R5) ;LOOK LIKE BUFFER RELEASED
1130 002576 ENDIF
1131 002576 ENDIF
1132 002576 ENDIF
1133 002576 ENDIF
1134 002576 IF ; FUNCTION CODE = RELEASE BUFFER
1135 002576 FALSEB NE C.FUNC(R5),#C$RLBF
1136 002606 THEN
1137 002606 IF ; COMMAND BUFFER NOT RELEASED
1138 002606 FALSE CLEAR CMBFAD(R4)
1139 002614 THEN
1140 002614 016465 000002 000014 MOV CMBFAD(R4),C.ADDR(R5) ;COMMAND BUFFER ADDRESS TO CONTROL BLOCK
1141 002622 005064 000002 CLR CMBFAD(R4) ;DON'T RELEASE IT AGAIN...
1142 002626 ELSE
1143 002630 016565 000004 000014 MOV C.CTXT(R5),C.ADDR(R5) ;CONTEXT BLOCK ADDRESS
1144 002636 005065 000004 CLR C.CTXT(R5) ;NO MORE CONTEXT
1145 002642 ENDIF
1146 002642 105465 000006 NEGB C.FUNC(R5) ;RELEASE AGAIN
1147 002646 ENDIF
1148 002646 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
1149 002652 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 15
LSINIT
1151 .SBTTL LSINIT
1152 ;
1153 ;======================================================================;
1154 ;++
1155 ; +-------------------------------------------------+
1156 ; I I
1157 ; I L S I N I T I
1158 ; I - - - - - - I
1159 ; I I
1160 ; +-------------------------------------------------+
1161 ;
1162 ; FUNCTION:
1163 ;
1164 ; LINE SERVICE MODULE TO INITIALIZE CONTEXT
1165 ;
1166 ; INPUT:
1167 ;
1168 ; R5 - ADDRESS OF CONTROL BLOCK
1169 ; C.ADDR - ON INITIAL ENTRY, ADDRESS OF NICE COMMAND MESSAGE
1170 ; C.FUNC - FUNCTION JUST PERFORMED
1171 ; C.LEN - ON INITIAL ENTRY, LENGTH OF NICE COMMAND MESSAGE
1172 ; C.LKNM - COMMAND LINK NUMBER
1173 ; C.SAVE - ON COMPLETION ENTRY, SAVED LENGTH AND ADDRESS OF NICE
1174 ; MESSAGE
1175 ;
1176 ; OUTPUT:
1177 ;
1178 ; R4 - ON FINAL RETURN, ADDRESS OF CONTEXT BLOCK
1179 ; CMBFAD - ADDRESS OF COMMAND MESSAGE BUFFER
1180 ; CMLKNM - COMMAND LINK NUMBER
1181 ; STATE - NEXT PROCESSING STATE
1182 ; OTHER FIELDS - AS DESCRIBED FOR LSPARS
1183 ; @R5 - UPDATED CONTROL BLOCK
1184 ; C.CTXT - ON FINAL RETURN, ADDRESS OF CONTEXT BLOCK
1185 ; C.FUNC - FUNCTION TO PERFORM
1186 ; C.LEN - ON ALLOCATE BUFFER REQUEST, LENGTH OF BUFFER TO ALLOCATE
1187 ; C.SAVE - ON ALLOCATE BUFFER REQUEST, LENGTH AND ADDRESS OF NICE
1188 ; COMMAND MESSAGE
1189 ;
1190 ; REQUIREMENTS:
1191 ;
1192 ; LINE SERVICE SYMBOLS:
1193 ;
1194 ; CMBFAD - OFFSET OF COMMAND BUFFER ADDRESS IN CONTEXT
1195 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
1196 ; CTXTLN - LENGTH OF CONTEXT BLOCK
1197 ; START - START STATE VALUE
1198 ; STATE - OFFSET OF STATE IN CONTEXT
1199 ;
1200 ; CONTROL BLOCK SYMBOLS:
1201 ;
1202 ; C.ADDR - OFFSET OF ADDRESS FIELD
1203 ; C.CTXT - OFFSET OF CONTEXT FIELD
1204 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1205 ; C.LEN - OFFSET OF LENGTH FIELD
1206 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
1207 ; C.SAVE - OFFSET OF SAVE FIELD
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 15-1
LSINIT
1208 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
1209 ; C$PROC - PROCESS FUNCTION CODE
1210 ;
1211 ;--
1212 ;======================================================================;
1213 ;
1214 ;
1215 ; EXTERNAL MACROS
1216 ;
1217 .MCALL CONDF,LSDF
1218 ;
1219 ; DEFINE EXTERNAL SYMBOLS
1220 ;
1221 002654 CONDF ;CONTROL BLOCK SYMBOLS
1222 002654 LSDF ;LINE SERVICE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 16
LSINIT
1224 ;
1225 ; LOCAL PROCEDURE BODY
1226 ;
1227 002654 PROCLC LSINIT
1228 002654 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
1229 002654 FALSEB NE C.FUNC(R5),#C$PROC
1230 002664 THEN
1231 002664 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE LENGTH OF MESSAGE
1232 002672 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE
1233 002700 012765 000111 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
1234 002706 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
1235 002714 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
1236 002716 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
1237 002722 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
1238 002726 005000 CLR R0 ;SET UP A ZERO TO SPRAY
1239 002730 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
1240 002732 012702 000111 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
1241 002736 CALL SPRAY ;ZERO THE CONTEXT BLOCK
1242 002742 016564 000020 000000 MOV C.LKNM(R5),CMLKNM(R4) ;SAVE THE COMMAND LINK NUMBER
1243 002750 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED LENGTH
1244 002756 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE SAVED MESSAGE ADDRESS
1245 002764 016564 000014 000002 MOV C.ADDR(R5),CMBFAD(R4) ;ADDRESS OF COMMAND BUFFER
1246 002772 CALL LSPARS ;PARSE MESSAGE TO CONTEXT
1247 002776 IF ; SUCCESS
1248 002776 FALSE CS
1249 003000 THEN
1250 003000 112764 000001 000040 MOVB #START,STATE(R4) ;GO TO START STATE
1251 003006 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE
1252 003012 ELSE
1253 003014 CALL LSABRT ;BLOW IT UP
1254 003020 ENDIF
1255 003020 ENDIF
1256 003020 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 17
LSLDAD
1258 .SBTTL LSLDAD
1259 ;
1260 ;======================================================================;
1261 ;++
1262 ; +-------------------------------------------------+
1263 ; I I
1264 ; I L S L D A D I
1265 ; I - - - - - - I
1266 ; I I
1267 ; +-------------------------------------------------+
1268 ;
1269 ; FUNCTION:
1270 ;
1271 ; LINE SERVICE MODULE TO PROCESS A SET BASE ADDRESS DIALOG MESSAGE
1272 ;
1273 ; INPUT:
1274 ;
1275 ; R4 - ADDRESS OF CONTEXT BLOCK
1276 ; PROTYP - TYPE OF PROGRAM BEING LOADED
1277 ; RESADR - ADDRESS TO RESUME FILLING BUFFER WITH MEMORY IMAGE
1278 ; OTHER INPUTS - AS REQUIRED FOR MODULES LSABRT AND LSRCDM
1279 ;
1280 ; OUTPUT:
1281 ;
1282 ; AS SPECIFIED FOR MODULES LSABRT AND LSRCDM
1283 ;
1284 ; REQUIREMENTS:
1285 ;
1286 ; LINE SERVICE SYMBOLS:
1287 ;
1288 ; PROTYP - OFFSET OF TYPE OF PROGRAM BEING LOADED IN CONTEXT
1289 ; RESADR - OFFSET OF RESUME ADDRESS
1290 ;
1291 ; NICE MESSAGE SYMBOLS:
1292 ;
1293 ; NE$ORD - MESSAGE ORDERING ERROR RETURN CODE
1294 ;
1295 ;--
1296 ;======================================================================;
1297 ;
1298 ;
1299 ; EXTERNAL MACROS
1300 ;
1301 .MCALL LSDF,NICDF
1302 ;
1303 ; DEFINE EXTERNAL SYMBOLS
1304 ;
1305 003022 LSDF ;LINE SERVICE SYMBOLS
1306 003022 NICDF ;NICE MESSAGE SYMBOLS
1307 ;
1308 ; LOCAL PROCEDURE BODY
1309 ;
1310 003022 PROCLC LSLDAD
1311 003022 IF ; PROGRAM TYPE = SECONDARY AND LOAD IMAGE PARTIALLY BUILT
1312 003022 FALSEB SET PROTYP(R4)
1313 003030 FALSE CLEAR RESADR(R4)
1314 003036 THEN
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 17-1
LSLDAD
1315 003036 012700 177774 MOV #NE$ORD,R0 ;MESSAGE ORDERING ERROR
1316 003042 CALL LSABRT ;KILL IT
1317 003046 ELSE
1318 003050 CALL LSRCDM ;RECEIVE ANOTHER DIALOG MESSAGE
1319 003054 ENDIF
1320 003054 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 18
LSLDIM
1322 .SBTTL LSLDIM
1323 ;
1324 ;======================================================================;
1325 ;++
1326 ; +-------------------------------------------------+
1327 ; I I
1328 ; I L S L D I M I
1329 ; I - - - - - - I
1330 ; I I
1331 ; +-------------------------------------------------+
1332 ;
1333 ; FUNCTION:
1334 ;
1335 ; LINE SERVICE MODULE TO PROCESS A MEMORY IMAGE DIALOG MESSAGE
1336 ;
1337 ; INPUT:
1338 ;
1339 ; R4 - ADDRESS OF CONTEXT BLOCK
1340 ; DATADR - ADDRESS OF MEMORY IMAGE DATA
1341 ; DATLEN - LENGTH OF MEMORY IMAGE DATA
1342 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
1343 ; LNBFMX - MAXIMUM LENGTH OF LINE TRANSMIT BUFFER
1344 ; LOANUM - CURRENT LOAD NUMBER
1345 ; MEMADR - CURRENT MEMORY LOAD ADDRESS
1346 ; PROTYP - TYPE OF PROGRAM BEING LOADED
1347 ; RESADR - ADDRESS TO RESUME PUTTING DATA IN LINE TRANSMIT BUFFER
1348 ; R5 - ADDRESS OF CONTROL BLOCK
1349 ; OTHER INPUTS - AS REQUIRED FOR MODULES LSRCDM OR LSRTLB
1350 ;
1351 ; OUTPUT:
1352 ;
1353 ; R4 - UPDATED CONTEXT BLOCK
1354 ; @LNBFAD - MOP LOAD MESSAGE
1355 ; LNBFLN - LENGTH OF MESSAGE IN LINE TRANSMIT BUFFER
1356 ; MEMADR - UPDATED MEMORY LOAD ADDRESS
1357 ; RESADR - UPDATED ADDRESS TO RESUME WITH IN LINE TRANSMIT BUFFER
1358 ; R5 - UPDATED CONTROL BLOCK
1359 ; C.ADDR - ADDRESS OF LINE TRANSMIT BUFFER
1360 ; OTHER OUTPUTS - AS DESCRIBED FOR MODULES LSRCDM, LSRTLB, OR LSABRT
1361 ;
1362 ; REQUIREMENTS:
1363 ;
1364 ; LINE SERVICE SYMBOLS:
1365 ;
1366 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
1367 ; DATLEN - OFFSET OF DATA LENGTH IN CONTEXT
1368 ; LNBFAD - OFFSET OF LINE BUFFER ADDRESS IN CONTEXT
1369 ; LNBFLN - OFFSET OF LINE BUFFER CONTENTS LENGTH IN CONTEXT
1370 ; LNBFMX - OFFSET OF LINE BUFFER MAXIMUM LENGTH IN CONTEXT
1371 ; LOANUM - OFFSET OF CURRENT LOAD NUMBER
1372 ; MEMADR - OFFSET OF MEMORY LOAD ADDRESS IN CONTEXT
1373 ; PROTYP - OFFSET OF TYPE OF PROGRAM BEING LOADED IN CONTEXT
1374 ; RESADR - OFFSET OF LINE BUFFER RESUME ADDRESS IN CONTEXT
1375 ;
1376 ; MOP MESSAGE SYMBOLS:
1377 ;
1378 ; M$LDTR - LOAD WITH TRANSFER FUNCTION CODE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 18-1
LSLDIM
1379 ; M$LOAD - LOAD SEGMENT FUNCTION CODE
1380 ;
1381 ; NICE MESSAGE SYMBOLS:
1382 ;
1383 ; NE$RES - RESOURCE ERROR RETURN CODE
1384 ;
1385 ; CONTROL BLOCK SYMBOLS:
1386 ;
1387 ; C.ADDR - OFFSET OF ADDRESS FIELD
1388 ;
1389 ;--
1390 ;======================================================================;
1391 ;
1392 ; EXTERNAL MACROS
1393 ;
1394 .MCALL LSDF,NICDF,CONDF,MOPDF
1395 ;
1396 ; DEFINE EXTERNAL SYMBOLS
1397 ;
1398 003056 LSDF ;LINE SERVICE SYMBOLS
1399 003056 NICDF ;NICE MESSAGE SYMBOLS
1400 003056 CONDF ;CONTROL BLOCK SYMBOLS
1401 003056 MOPDF ;MOP MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 19
LSLDIM
1403 ;
1404 ; LOCAL PROCEDURE BODY
1405 ;
1406 003056 PROCLC LSLDIM
1407 003056 016465 000014 000014 MOV LNBFAD(R4),C.ADDR(R5) ;ADDRESS OF LINE TRANSMIT BUFFER
1408 003064 IF ; MESSAGE ACCUMULATION NOT IN PROGRESS
1409 003064 FALSE SET RESADR(R4)
1410 003072 THEN
1411 003072 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF MESSAGE BUFFER
1412 003076 IF ; PROGRAM TYPE = SECONDARY
1413 003076 FALSEB SET PROTYP(R4)
1414 003104 THEN
1415 003104 112722 000000 MOVB #M$LDTR,(R2)+ ;MESSAGE TYPE = LOAD WITH TRANSFER
1416 003110 ELSE
1417 003112 112722 000002 MOVB #M$LOAD,(R2)+ ;MESSAGE TYPE = PLAIN OLD LOAD
1418 003116 ENDIF
1419 003116 116422 000052 MOVB LOANUM(R4),(R2)+ ;LOAD SEGMENT NUMBER
1420 003122 012700 000010 MOV #MEMADR,R0 ;OFFSET OF MEMORY ADDRESS IN CONTEXT
1421 003126 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
1422 003130 012701 000004 MOV #4,R1 ;4 BYTES OF IT
1423 003134 CALL MOVE ;PUT MEMORY ADDRESS IN MESSAGE
1424 003140 066464 000024 000010 ADD DATLEN(R4),MEMADR(R4) ;UPDATE MEMORY ADDRESS
1425 003146 005564 000012 ADC MEMADR+2(R4) ;BOTH WORDS
1426 003152 ELSE
1427 003154 016402 000026 MOV RESADR(R4),R2 ;GET RESTART ADDRESS
1428 003160 ENDIF
1429 003160 010200 MOV R2,R0 ;COPY CURRENT MESSAGE POINTER
1430 003162 166500 000014 SUB C.ADDR(R5),R0 ;COMPUTE LENGTH OF MESSAGE
1431 003166 016401 000024 MOV DATLEN(R4),R1 ;NUMBER OF BYTES TO BE ADDED
1432 003172 060100 ADD R1,R0 ;COMPUTE PROJECTED NEW MESSAGE LENGTH
1433 003174 IF ; NEW LENGTH > MAXIMUM
1434 003174 FALSE LE R0,LNBFMX(R4)
1435 003202 THEN
1436 003202 012700 177761 MOV #NE$RES,R0 ;RESOURCE ERROR
1437 003206 CALL LSABRT ;BLOW IT UP
1438 003212 ELSE
1439 003214 016400 000022 MOV DATADR(R4),R0 ;ADDRESS OF DATA TO PUT IN MESSAGE
1440 003220 CALL MOVE ;PUT DATA IN MESSAGE
1441 003224 IF ; PROGRAM TYPE = SECONDARY
1442 003224 FALSEB SET PROTYP(R4)
1443 003232 THEN
1444 003232 010264 000026 MOV R2,RESADR(R4) ;SAVE RESTART ADDRESS
1445 003236 CALL LSRCDM ;RECEIVE ANOTHER DIALOG MESSAGE
1446 003242 ELSE
1447 003244 166402 000014 SUB LNBFAD(R4),R2 ;COMPUTE LENGTH OF MESSAGE
1448 003250 010264 000016 MOV R2,LNBFLN(R4) ;SET LENGTH OF MESSAGE IN LINE BUFFER
1449 003254 CALL LSRTLB ;RECEIVE/TRANSMIT LINE BLOCKS
1450 003260 ENDIF
1451 003260 ENDIF
1452 003260 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 20
LSLDLD
1454 .SBTTL LSLDLD
1455 ;
1456 ;======================================================================;
1457 ;++
1458 ; +-------------------------------------------------+
1459 ; I I
1460 ; I L S L D L D I
1461 ; I - - - - - - I
1462 ; I I
1463 ; +-------------------------------------------------+
1464 ;
1465 ; FUNCTION:
1466 ;
1467 ; LINE SERVICE MODULE TO PROCESS A MOP REQUEST LOAD MESSAGE
1468 ;
1469 ; INPUT:
1470 ;
1471 ; R4 - ADDRESS OF CONTEXT BLOCK
1472 ; FLAGS - PROCESSING FLAGS
1473 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER CONTAINING LAST MESSAGE
1474 ; TRANSMITTED
1475 ; LNBFLN - LENGTH OF MESSAGE IN LINE TRANSMIT BUFFER
1476 ; LOANUM - CURRENT LOAD NUMBER
1477 ; PROTYP - TYPE OF PROGRAM BEING LOADED
1478 ; REQLOA - REQUESTED LOAD NUMBER
1479 ; RETCOD - MOP RETURN CODE
1480 ; R5 - ADDRESS OF CONTROL BLOCK
1481 ; OTHER INPUTS - AS REQUIRED BY MODULE LSRCDM
1482 ;
1483 ; OUTPUT:
1484 ;
1485 ; @R4 - UPDATED CONTEXT BLOCK
1486 ; LOANUM - UPDATED LOAD NUMBER
1487 ; @R5 - UPDATED CONTROL BLOCK
1488 ; C.ADDR - ADDRESS OF MESSAGE TO RETRANSMIT
1489 ; C.FUNC - FUNCTION TO PERFORM
1490 ; C.LEN - LENGTH OF MESSAGE TO RETRANSMIT
1491 ; OTHER OUTPUTS - AS DESCRIBED FOR MODULES LSABRT OR LSRCDM
1492 ;
1493 ; REQUIREMENTS:
1494 ;
1495 ; LINE SERVICE SYMBOLS:
1496 ;
1497 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1498 ; LNBFAD - OFFSET OF LINE TRANSMIT BUFFER ADDRESS IN CONTEXT
1499 ; LNBFLN - OFFSET OF LENGTH OF MESSAGE IN LINE TRANSMIT BUFFER
1500 ; LOANUM - OFFSET OF CURRENT LOAD NUMBER IN CONTEXT
1501 ; PROTYP - OFFSET OF TYPE OF PROGRAM BEING LOADED IN CONTEXT
1502 ; REQLOA - OFFSET OF REQUESTED LOAD NUMBER IN CONTEXT
1503 ; RETCOD - OFFSET OF RETURN CODE IN CONTEXT
1504 ; XFRSNT - TRANSFER ADDRESS SENT FLAG MASK
1505 ;
1506 ; NICE MESSAGE SYMBOLS:
1507 ;
1508 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
1509 ; NE$PAR - PARAMETER ERROR RETURN CODE
1510 ; NS$SUC - SUCCESS RETURN CODE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 20-1
LSLDLD
1511 ;
1512 ; CONTROL BLOCK SYMBOLS:
1513 ;
1514 ; C.ADDR - OFFSET OF ADDRESS FIELD
1515 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1516 ; C.LEN - OFFSET OF LENGTH FIELD
1517 ; C$TRBK - TRANSMIT BLOCK FUNCTION CODE
1518 ;
1519 ;--
1520 ;======================================================================;
1521 ;
1522 ;
1523 ; EXTERNAL MACROS
1524 ;
1525 .MCALL LSDF,NICDF,CONDF
1526 ;
1527 ; DEFINE EXTERNAL SYMBOLS
1528 ;
1529 003262 LSDF ;LINE SERVICE SYMBOLS
1530 003262 NICDF ;NICE MESSAGE SYMBOLS
1531 003262 CONDF ;CONTROL BLOCK SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 21
LSLDLD
1533 ;
1534 ; LOCAL PROCEDURE BODY
1535 ;
1536 003262 PROCLC LSLDLD
1537 003262 IF ; RETURN CODE <> 0
1538 003262 FALSEB CLEAR RETCOD(R4)
1539 003270 THEN
1540 003270 012700 177760 MOV #NE$PAR,R0 ;NICE PARAMETER ERROR
1541 003274 CALL LSABRT ;BLOW IT UP
1542 003300 ELSE
1543 003302 IF ; REQUESTED LOAD NUMBER = CURRENT LOAD NUMBER
1544 003302 FALSEB NE REQLOA(R4),LOANUM(R4)
1545 003312 THEN
1546 003312 CALL LSRTLB ;REDO THE RECEIVE
1547 003316 ELSE
1548 003320 105264 000052 INCB LOANUM(R4) ;INCREMENT CURRENT LOAD NUMBER
1549 003324 IF ; REQUESTED LOAD NUMBER = UPDATED LOAD NUMBER
1550 003324 FALSEB NE REQLOA(R4),LOANUM(R4)
1551 003334 THEN
1552 003334 IF ; TRANSFER ADDRESS SENT
1553 003334 FALSEB CLEAR #XFRSNT,FLAGS(R4)
1554 003344 THEN
1555 003344 IF ; PROGRAM TYPE = OPERATING SYSTEM
1556 003344 FALSEB NE PROTYP(R4),#2
1557 003354 THEN
1558 003354 012700 000001 MOV #NS$SUC,R0 ;SUCCESSFULLY ALL DONE
1559 003360 ELSE
1560 003362 012700 177757 MOV #NE$LPR,R0 ;LINE PROTOCOL ERROR
1561 003366 ENDIF
1562 003366 CALL LSABRT ;ALL DONE IN ANY CASE
1563 003372 ELSE
1564 003374 CALL LSRCDM ;RECEIVE ANOTHER DIALOG MESSAGE
1565 003400 ENDIF
1566 003400 ELSE
1567 003402 012700 177757 MOV #NE$LPR,R0 ;LINE PROTOCOL ERROR
1568 003406 CALL LSABRT ;KILL IT
1569 003412 ENDIF
1570 003412 ENDIF
1571 003412 ENDIF
1572 003412 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 22
LSLDPG
1574 .SBTTL LSLDPG
1575 ;
1576 ;======================================================================;
1577 ;++
1578 ; +-------------------------------------------------+
1579 ; I I
1580 ; I L S L D P G I
1581 ; I - - - - - - I
1582 ; I I
1583 ; +-------------------------------------------------+
1584 ;
1585 ; FUNCTION:
1586 ;
1587 ; LINE SERVICE MODULE TO PROCESS A MOP REQUEST PROGRAM MESSAGE
1588 ;
1589 ; INPUT:
1590 ;
1591 ; R4 - ADDRESS OF CONTEXT BLOCK
1592 ; FLAGS - PROCESSING FLAGS
1593 ; PROTYP - TYPE OF PROGRAM BEING LOADED
1594 ; OTHER INPUTS - AS REQUIRED FOR MODULE LSABRT
1595 ;
1596 ; OUTPUT:
1597 ;
1598 ; AS DESCRIBED FOR MODULE LSABRT
1599 ;
1600 ; REQUIREMENTS:
1601 ;
1602 ; LINE SERVICE SYMBOLS:
1603 ;
1604 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1605 ; PROTYP - OFFSET OF TYPE OF PROGRAM BEING LOADED IN CONTEXT
1606 ; XFRSNT - TRANSFER ADDRESS SENT FLAG MASK
1607 ;
1608 ; NICE MESSAGE SYMBOLS:
1609 ;
1610 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
1611 ; NS$SUC - SUCCESS RETURN CODE
1612 ;
1613 ;--
1614 ;======================================================================;
1615 ;
1616 ;
1617 ; EXTERNAL MACROS
1618 ;
1619 .MCALL LSDF,NICDF
1620 ;
1621 ; DEFINE EXTERNAL SYMBOLS
1622 ;
1623 003414 LSDF ;LINE SERVICE SYMBOLS
1624 003414 NICDF ;NICE MESSAGE SYMBOLS
1625 ;
1626 ; LOCAL PROCEDURE BODY
1627 ;
1628 003414 PROCLC LSLDPG
1629 003414 IF ; TRANSFER ADDRESS SENT AND PROGRAM TYPE <> OPERATING SYSTEM
1630 003414 FALSEB CLEAR #XFRSNT,FLAGS(R4)
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 22-1
LSLDPG
1631 003424 FALSEB EQ PROTYP(R4),#2
1632 003434 THEN
1633 003434 012700 000001 MOV #NS$SUC,R0 ;SUCCESS!
1634 003440 ELSE
1635 003442 012700 177757 MOV #NE$LPR,R0 ;LINE PROTOCOL ERROR
1636 003446 ENDIF
1637 003446 CALL LSABRT ;ALL DONE IN ANY CASE
1638 003452 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 23
LSLDPX
1640 .SBTTL LSLDPX
1641 ;
1642 ;======================================================================;
1643 ;++
1644 ; +-------------------------------------------------+
1645 ; I I
1646 ; I L S L D P X I
1647 ; I - - - - - - I
1648 ; I I
1649 ; +-------------------------------------------------+
1650 ;
1651 ; FUNCTION:
1652 ;
1653 ; LINE SERVICE MODULE TO PROCESS A PARAMETERS AND TRANSFER ADDRESS
1654 ; DIALOG MESSAGE
1655 ;
1656 ; INPUT:
1657 ;
1658 ; R4 - ADDRESS OF CONTEXT BLOCK
1659 ; DATADR - ADDRESS OF PARAMETER DATA
1660 ; DATLEN - LENGTH OF PARAMETER DATA
1661 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
1662 ; LNBFMX - MAXIMUM LENGTH OF LINE TRANSMIT BUFFER
1663 ; LOANUM - CURRENT LOAD NUMBER
1664 ; MEMADR - TRANSFER ADDRESS
1665 ; RESADR - ADDRESS TO RESUME PUTTING DATA INTO LINE BUFFER
1666 ; R5 - ADDRESS OF CONTROL BLOCK
1667 ; OTHER INPUTS - AS REQUIRED FOR MODULES LSABRT OR LSRTLB
1668 ;
1669 ; OUTPUT:
1670 ;
1671 ; @R4 - UPDATED CONTEXT
1672 ; FLAGS - PROCESSING FLAGS
1673 ; @LNBFAD - MOP MESSAGE
1674 ; LNBFLN - LENGTH OF MOP MESSAGE
1675 ; @R5 - UPDATED CONTROL BLOCK
1676 ; C.ADDR - ADDRESS OF MOP MESSAGE
1677 ; OTHER OUTPUTS - AS DESCRIBED FOR MODULES LSABRT OR LSRTLB
1678 ;
1679 ; REQUIREMENTS:
1680 ;
1681 ; LINE SERVICE SYMBOLS:
1682 ;
1683 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT BLOCK
1684 ; DATLEN - OFFSET OF DATA LENGTH IN CONTEXT BLOCK
1685 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1686 ; LNBFAD - OFFSET OF LINE TRANSMIT BUFFER IN CONTEXT
1687 ; LNBFLN - OFFSET OF LINE TRANSMIT BUFFER CONTENTS LENGTH IN CONTEXT
1688 ; LNBFMX - OFFSET OF LINE TRANSMIT BUFFER MAXIMUM LENGTH IN CONTEXT
1689 ; LOANUM - OFFSET OF LOAD NUMBER IN CONTEXT
1690 ; MEMADR - OFFSET OF TRANSFER ADDRESS IN CONTEXT
1691 ; RESADR - OFFSET OF LINE BUFFER RESUME ADDRESS IN CONTEXT
1692 ; XRFSNT - TRANSFER ADDRESS SENT FLAG MASK
1693 ;
1694 ; MOP MESSAGE SYMBOLS:
1695 ;
1696 ; M$PARM - PARAMETERS AND LOAD ADDRESS FUNCTION CODE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 23-1
LSLDPX
1697 ;
1698 ; NICE MESSAGE SYMBOLS:
1699 ;
1700 ; NE$RES - RESOURCE ERROR RETURN CODE
1701 ;
1702 ; CONTROL BLOCK SYMBOLS:
1703 ;
1704 ; C.ADDR - OFFSET OF ADDRESS FIELD
1705 ;
1706 ;--
1707 ;======================================================================;
1708 ;
1709 ;
1710 ; EXTERNAL MACROS
1711 ;
1712 .MCALL CONDF,LSDF,MOPDF,NICDF
1713 ;
1714 ; DEFINE EXTERNAL SYMBOLS
1715 ;
1716 003454 LSDF ;LINE SERVICE SYMBOLS
1717 003454 MOPDF ;MOP MESSAGE SYMBOLS
1718 003454 CONDF ;CONTROL BLOCK SYMBOLS
1719 003454 NICDF ;NICE MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 24
LSLDPX
1721 ;
1722 ; LOCAL PROCEDURE BODY
1723 ;
1724 003454 PROCLC LSLDPX
1725 003454 016465 000014 000014 MOV LNBFAD(R4),C.ADDR(R5) ;ADDRESS OF LINE TRANSMIT BUFFER
1726 003462 IF ; MESSAGE ACCUMULATION NOT IN PROGRESS
1727 003462 FALSE SET RESADR(R4)
1728 003470 THEN
1729 003470 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF MESSAGE BUFFER
1730 003474 112722 000024 MOVB #M$PARM,(R2)+ ;MESSAGE TYPE = PARAMETERS AND XFER ADDRESS
1731 003500 116422 000052 MOVB LOANUM(R4),(R2)+ ;LOAD SEGMENT NUMBER
1732 003504 016401 000024 MOV DATLEN(R4),R1 ;LENGTH OF PARAMETERS
1733 003510 IF ; LENGTH = 0
1734 003510 FALSE NE
1735 003512 THEN
1736 003512 105022 CLRB (R2)+ ;PUT A PARAMETERS END MARK IN MESSAGE
1737 003514 ELSE
1738 003516 016400 000022 MOV DATADR(R4),R0 ;ADDRESS OF PARAMETERS
1739 003522 CALL MOVE ;PUT PARAMETERS IN MESSAGE
1740 003526 ENDIF
1741 003526 ELSE
1742 003530 016402 000026 MOV RESADR(R4),R2 ;GET RESTART ADDRESS
1743 003534 ENDIF
1744 003534 010200 MOV R2,R0 ;COPY CURRENT MESSAGE OUTPUT POINTER
1745 003536 166500 000014 SUB C.ADDR(R5),R0 ;COMPUTE LENGTH OF MESSAGE
1746 003542 062700 000002 ADD #2,R0 ;ADD LENGTH OF TRANSFER ADDRESS
1747 003546 IF ; NEW LENGTH > MAXIMUM
1748 003546 FALSE LE R0,LNBFMX(R4)
1749 003554 THEN
1750 003554 012700 177761 MOV #NE$RES,R0 ;RESOURCE ERROR
1751 003560 CALL LSABRT ;CAN IT
1752 003564 ELSE
1753 003566 012700 000010 MOV #MEMADR,R0 ;OFFSET OF TRANSFER ADDRESS IN CONTEXT
1754 003572 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
1755 003574 012701 000004 MOV #4,R1 ;4 BYTES OF IT
1756 003600 CALL MOVE ;PUT TRANSFER ADDRESS IN MESSAGE
1757 003604 166402 000014 SUB LNBFAD(R4),R2 ;COMPUTE LENGTH OF MESSAGE
1758 003610 010264 000016 MOV R2,LNBFLN(R4) ;SET LENGTH OF MESSAGE IN LINE BUFFER
1759 003614 152764 000002 000043 BISB #XFRSNT,FLAGS(R4) ;SET FLAG FOR TRANSFER SENT
1760 003622 CALL LSRTLB ;AND RECEIVE/TRANSMIT LINE BLOCKS
1761 003626 ENDIF
1762 003626 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 25
LSLNSR
1764 .SBTTL LSLNSR
1765 ;
1766 ;======================================================================;
1767 ;++
1768 ; +-------------------------------------------------+
1769 ; I I
1770 ; I L S L N S R I
1771 ; I - - - - - - I
1772 ; I I
1773 ; +-------------------------------------------------+
1774 ;
1775 ; FUNCTION:
1776 ;
1777 ; LINE SERVICE MAINLINE MODULE
1778 ;
1779 ; INPUT:
1780 ;
1781 ; R5 - ADDRESS OF CONTROL BLOCK
1782 ; C.CTXT - ON ENTRIES WITHOUT CONTEXT BLOCK, ZERO; ON ENTRIES
1783 ; WITH CONTEXT BLOCK, ADDRESS OF CONTEXT BLOCK
1784 ; STATE - PROCESSING STATE
1785 ; C.FUNC - FUNCTION JUST PERFORMED
1786 ; OTHER INPUTS - AS DESCRIBED FOR SUB-MODULES
1787 ;
1788 ; OUTPUT:
1789 ;
1790 ; C-BIT - CLEAR
1791 ; @R5 - UPDATED CONTROL BLOCK
1792 ; ON FINAL RETURN:
1793 ; C.CTXT - -1
1794 ; C.FUNC - PROCESS FUNCTION CODE
1795 ; C.PROC - GET COMMAND PROCESSOR NUMBER
1796 ; OTHER OUTPUTS - AS DESCRIBED FOR SUB-MODULES
1797 ;
1798 ; REQUIREMENTS:
1799 ;
1800 ; LINE SERVICE SYMBOLS:
1801 ;
1802 ; BOOT - BOOT STATE VALUE
1803 ; DUMP - DUMP STATE VALUE
1804 ; FINISH - FINISH STATE VALUE
1805 ; LOAD - LOAD STATE VALUE
1806 ; LOOP - LOOP STATE VALUE
1807 ; START - START-UP STATE VALUE
1808 ; STATE - OFFSET OF STATE IN CONTEXT
1809 ;
1810 ; PROCESSOR SYMBOLS:
1811 ;
1812 ; P$GTCM - GET COMMAND PROCESSOR NUMBER
1813 ;
1814 ; CONFIGURATION CONTROL SYMBOLS:
1815 ;
1816 ; FL$BOO - BOOT CONFIGURED
1817 ; FL$DUM - DUMP CONFIGURED
1818 ; FL$LOA - LOAD CONFIGURED
1819 ; FL$LOO - LOOP TEST CONFIGURED
1820 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 25-1
LSLNSR
1821 ; CONTROL BLOCK SYMBOLS:
1822 ;
1823 ; C.CTXT - OFFSET OF CONTEXT FIELD
1824 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1825 ; C.PROC - OFFSET OF PROCESSOR NUMBER FIELD
1826 ; C$PROC - PROCESS FUNCTION CODE
1827 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
1828 ;
1829 ;--
1830 ;======================================================================;
1831 ;
1832 ; EXTERNAL MACROS
1833 ;
1834 .MCALL CONDF,LSDF,PRDF
1835 ;
1836 ; DEFINE EXTERNAL SYMBOLS
1837 ;
1838 003630 CONDF ;CONTROL BLOCK SYMBOLS
1839 003630 LSDF ;LINE SERVICE SYMBOLS
1840 003630 PRDF ;PROCESSOR SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 26
LSLNSR
1842 ;
1843 ; PROCEDURE BODY
1844 ;
1845 003630 PROC LSLNSR
1846 003630 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
1847 003634 IF ; CONTEXT POINTER = 0
1848 003634 FALSE SET R4
1849 003640 THEN
1850 003640 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
1851 003640 FALSEB EQ C.FUNC(R5),#C$RLBF
1852 003650 THEN
1853 003650 CALL LSINIT ;INITIALIZE
1854 003654 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
1855 003656 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
1856 003664 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
1857 003672 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
1858 003700 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
1859 003702 ENDIF
1860 003702 ENDIF
1861 003702 IF ; CONTEXT POINTER <> 0
1862 003702 FALSE CLEAR R4
1863 003706 THEN
1864 003706 IF ; STATE = STARTING
1865 003706 FALSEB NE STATE(R4),#START
1866 003716 THEN
1867 003716 CALL LSSTAR ;PROCESS STARTUP
1868 003722 ENDIF
1870 003722 IF ; STATE = LOAD
1871 003722 FALSEB NE STATE(R4),#LOAD
1872 003732 THEN
1873 003732 CALL LSLOAD ;PROCESS LOAD
1874 003736 ENDIF
1877 003736 IF ; STATE = DUMP
1878 003736 FALSEB NE STATE(R4),#DUMP
1879 003746 THEN
1880 003746 CALL LSDUMP ;PROCESS DUMP
1881 003752 ENDIF
1884 003752 IF ; STATE = LOOP
1885 003752 FALSEB NE STATE(R4),#LOOP
1886 003762 THEN
1887 003762 CALL LSLOOP ;PROCESS LOOP
1888 003766 ENDIF
1891 003766 IF ; STATE = BOOT
1892 003766 FALSEB NE STATE(R4),#BOOT
1893 003776 THEN
1894 003776 CALL LSBOOT ;PROCESS BOOT
1895 004002 ENDIF
1897 004002 IF ; STATE = FINISH UP
1898 004002 FALSEB NE STATE(R4),#FINISH
1899 004012 THEN
1900 004012 CALL LSFINI ;CLEAN UP
1901 004016 ENDIF
1902 004016 ENDIF
1903 004016 000241 CLC ;FOLLOWING THE RULES...
1904 004020 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 27
LSLOAD
1907 .SBTTL LSLOAD
1908 ;
1909 ;======================================================================;
1910 ;++
1911 ; +-------------------------------------------------+
1912 ; I I
1913 ; I L S L O A D I
1914 ; I - - - - - - I
1915 ; I I
1916 ; +-------------------------------------------------+
1917 ;
1918 ; FUNCTION:
1919 ;
1920 ; LINE SERVICE MODULE TO CONTROL A DOWN-LINE LOAD
1921 ;
1922 ; INPUT:
1923 ;
1924 ; R4 - ADDRESS OF CONTEXT BLOCK
1925 ; R5 - ADDRESS OF CONTROL BLOCK
1926 ; C.FUNC - FUNCTION JUST PERFORMED
1927 ; OTHER INPUTS - AS DEFINED FOR DIALOG AND LINE MESSAGE PROCESSING
1928 ;
1929 ; OUTPUT:
1930 ;
1931 ; @R4 - UPDATED CONTEXT
1932 ; FLAGS - PROCESSING FLAGS
1933 ; OTHER OUTPUTS - AS DEFINED FOR DIALOG AND LINE MESSAGE PROCESSING
1934 ;
1935 ; REQUIREMENTS:
1936 ;
1937 ; LINE SERVICE SYMBOLS:
1938 ;
1939 ; EODREC - END-OF-DIALOG DIALOG MESSAGE RECEIVED
1940 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1941 ;
1942 ; MOP MESSAGE SYMBOLS:
1943 ;
1944 ; M$RQLD - REQUEST LOAD FUNCTION CODE
1945 ; M$RQPG - REQUEST PROGRAM FUNCTION CODE
1946 ;
1947 ; NICE MESSAGE SYMBOLS:
1948 ;
1949 ; DM$END - END-OF-DIALOG DIALOG MESSAGE TYPE
1950 ; DM$MIM - MEMORY IMAGE DIALOG MESSAGE TYPE
1951 ; DM$PXA - PARAMETERS AND TRANSFER DIALOG MESSAGE TYPE
1952 ; DM$SAD - SET BASE ADDRESS DIALOG MESSAGE TYPE
1953 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
1954 ; NE$ORD - MESSAGE ORDERING ERROR RETURN CODE
1955 ;
1956 ; CONTROL BLOCK SYMBOLS:
1957 ;
1958 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1959 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
1960 ;
1961 ;--
1962 ;======================================================================;
1963 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 27-1
LSLOAD
1964 ;
1965 ; EXTERNAL MACROS
1966 ;
1967 .MCALL LSDF,CONDF,NICDF,MOPDF
1968 ;
1969 ; DEFINE EXTERNAL SYMBOLS
1970 ;
1971 004022 LSDF ;LINE SERVICE SYMBOLS
1972 004022 CONDF ;CONTROL BLOCK SYMBOLS
1973 004022 NICDF ;NICE MESSAGE SYMBOLS
1974 004022 MOPDF ;MOP MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 28
LSLOAD
1976 ;
1977 ; LOCAL PROCEDURE BODY
1978 ;
1979 004022 PROCLC LSLOAD
1980 004022 IF ; FUNCTION CODE = 0
1981 004022 FALSEB SET C.FUNC(R5)
1982 004030 THEN
1983 004030 CALL LSRCDM ;RECEIVE A DIALOG MESSAGE
1984 004034 ENDIF
1985 004034 IF ; FUNCTION CODE = RECEIVE MESSAGE
1986 004034 FALSEB NE C.FUNC(R5),#C$RCMS
1987 004044 THEN
1988 004044 CALL LSCKDM ;CHECK AND PARSE DIALOG MESSAGE
1989 004050 IF ; SUCCESS
1990 004050 FALSE CS
1991 004052 THEN
1992 004052 ONCASE ; DIALOG MESSAGE TYPE
1993 004052 CASE ; END-OF-DIALOG
1994 004052 FALSE NE R0,#DM$END
1995 004060 DO
1996 004060 152764 000004 000043 BISB #EODREC,FLAGS(R4) ;SET END-OF-DIALOG RECEIVED FLAG
1997 004066 005000 CLR R0 ;NO ERROR CODE
1998 004070 CALL LSABRT ;ALL DONE
1999 004074 CASE ; SET ADDRESS
2000 004076 FALSE NE R0,#DM$SAD
2001 004104 DO
2002 004104 CALL LSLDAD ;PROCESS ADDRESS
2003 004110 CASE ; MEMORY IMAGE
2004 004112 FALSE NE R0,#DM$MIM
2005 004120 DO
2006 004120 CALL LSLDIM ;PROCESS IMAGE
2007 004124 CASE ; PARAMETERS AND TRANSFER ADDRESS
2008 004126 FALSE NE R0,#DM$PXA
2009 004134 DO
2010 004134 CALL LSLDPX ;PROCESS ACCORDINGLY
2011 004140 ELSE
2012 004142 012700 177774 MOV #NE$ORD,R0 ;MESSAGE OUT OF ORDER
2013 004146 CALL LSABRT ;BLOW IT UP
2014 004152 ENDCASE
2015 004152 ENDIF
2016 004152 ENDIF
2017 004152 CALL LSRTCM ;CHECK RECEIVE/TRANSMIT COMPLETION
2018 004156 IF ; COMPLETE
2019 004156 FALSE CS
2020 004160 THEN
2021 004160 CALL LSRTCK ;CHECK RECEIVE/TRANSMIT SUCCESS
2022 004164 IF ; SUCCESS
2023 004164 FALSE CS
2024 004166 THEN
2025 004166 CALL LSPRLB ;PARSE LINE BLOCK
2026 004172 IF ; SUCCESS
2027 004172 FALSE CS
2028 004174 THEN
2029 004174 ONCASE ; MOP MESSAGE TYPE
2030 004174 CASE ; REQUEST LOAD
2031 004174 FALSE NE R0,#M$RQLD
2032 004202 DO
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 28-1
LSLOAD
2033 004202 CALL LSLDLD ;PROCESS LOAD REQUEST
2034 004206 CASE ; REQUEST PROGRAM
2035 004210 FALSE NE R0,#M$RQPG
2036 004216 DO
2037 004216 CALL LSLDPG ;PROCESS PROGRAM REQUEST
2038 004222 CASE ; ASCII DATA ;AP0001
2039 004224 FALSE NE #M$ASCD,R0 ;AP0001
2040 004232 DO ;AP0001
2041 004232 112765 177745 000006 MOVB #-C$ALCB,C.FUNC(R5) ;SET TO ALLOCATE CONTROL BLOCK. ;AP0001
2042 004240 ELSE
2043 004242 012700 177757 MOV #NE$LPR,R0 ;LINE PROTOCOL ERROR
2044 004246 CALL LSABRT ;KILL IT
2045 004252 ENDCASE
2046 004252 ELSE
2047 004254 CALL LSABRT ;BAG IT
2048 004260 ENDIF
2049 004260 ELSE
2050 004262 CALL LSRTER ;PROCESS RECEIVE/TRANSMIT ERROR
2051 004266 ENDIF
2052 004266 ENDIF
2053 004266 IF ; FUNCTION CODE = ALLOCATE CONTROL BLOCK ;AP0001
2054 004266 FALSEB NE C.FUNC(R5),#C$ALCB ;AP0001
2055 004276 THEN ;AP0001
2056 004276 016565 000014 000022 MOV C.ADDR(R5),C.SAVE(R5) ;SAVE THE CONTROL BLOCK ADDRESS ;AP0001
2057 004304 016465 000024 000012 MOV DATLEN(R4),C.LEN(R5) ;GET THE DATA LENGTH ;AP0001
2058 004312 062765 000064 000012 ADD #52.,C.LEN(R5) ;PLUS OVERHEAD ;AP0001
2059 004320 112765 177746 000006 MOVB #-C$ALBF,C.FUNC(R5) ;AND ALLOCATE A BUFFER. ;AP0001
2060 004326 ENDIF ;AP0001
2061 004326 IF ; FUNCTION CODE = ALLOCATE BUFFER ;AP0001
2062 004326 FALSEB NE C.FUNC(R5),#C$ALBF ;AP0001
2063 004336 THEN ;AP0001
2064 004336 016500 000022 MOV C.SAVE(R5),R0 ;GET NEW CONTROL BLOCK ;AP0001
2065 004342 016560 000014 000014 MOV C.ADDR(R5),C.ADDR(R0) ;AND COPY BUFFER ADDRESS. ;AP0001
2066 004350 CALL LSASCD ;CONSTRUCT LOG DATA MESSAGE. ;AP0001
2067 004354 016405 000036 MOV RECCB(R4),R5 ;GET RECEIVE CCB ;AP0001
2068 004360 010015 MOV R0,(R5) ;SET NEW CONTROL BLOCK TO GO ;AP0001
2069 004362 CALL LSRCLB ;AND SET FOR ANOTHER RECEIVE. ;AP0001
2070 004366 ENDIF ;AP0001
2071 004366 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
2072 004372 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 29
LSLOOP
2076 .SBTTL LSLOOP
2077 ;
2078 ;======================================================================;
2079 ;++
2080 ; +-------------------------------------------------+
2081 ; I I
2082 ; I L S L O O P I
2083 ; I - - - - - - I
2084 ; I I
2085 ; +-------------------------------------------------+
2086 ;
2087 ; FUNCTION:
2088 ;
2089 ; LINE SERVICE MODULE TO PROCESS LINE LOOP
2090 ;
2091 ; INPUT:
2092 ;
2093 ; R4 - ADDRESS OF CONTEXT BLOCK
2094 ; COUNT - NUMBER OF BLOCKS TO LOOP
2095 ; DATADR - ADDRESS OF DATA TO LOOP
2096 ; DATLEN - LENGTH OF DATA TO LOOP
2097 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
2098 ; LNBFLN - LENGTH OF DATA IN LINE TRANSMIT BUFFER
2099 ; R5 - ADDRESS OF CONTROL BLOCK
2100 ; C.ADDR - ADDRESS OF LINE BLOCK RECEIVED
2101 ; C.FUNC - FUNCTION JUST PERFORMED
2102 ; C.LEN - LENGTH OF LINE BLOCK RECEIVED
2103 ; OTHER INPUTS - AS REQUIRED FOR LINE RECEIVE/TRANSMIT PROCESSING
2104 ;
2105 ; OUTPUT:
2106 ;
2107 ; @R4 - UPDATED CONTEXT
2108 ; COUNT - NUMBER OF BLOCKS LEFT TO LOOP
2109 ; LNBFLN - LENGTH OF BLOCK IN LINE TRANSMIT BUFFER
2110 ; RETCOD - USED AS TEMPORARY STORAGE FOR RETURN CODE
2111 ; @R5 - UPDATED CONTROL BLOCK
2112 ; C.FUNC - FUNCTION TO PERFORM
2113 ; OTHER OUTPUTS - AS DESCRIBED FOR ABORT AND LINE REC/TRA PROCESSING
2114 ;
2115 ; REQUIREMENTS:
2116 ;
2117 ; LINE SERVICE SYMBOLS:
2118 ;
2119 ; COUNT - OFFSET OF LOOP BLOCK COUNT IN CONTEXT
2120 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
2121 ; DATLEN - OFFSET OF DATA LENGTH IN CONTEXT
2122 ; LNBFAD - OFFSET OF LINE TRANSMIT BUFFER IN CONTEXT
2123 ; LNBFLN - OFFSET OF LINE TRANSMIT BUFFER CONTENTS LENGTH IN CONTEXT
2124 ; RETCOD - OFFSET OF RETURN CODE IN CONTEXT
2125 ;
2126 ; NICE MESSAGE SYMBOLS:
2127 ;
2128 ; NE$LCO - LINE COMMUNICATIONS ERROR RETURN CODE
2129 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
2130 ; NS$SUC - SUCCESS RETURN CODE
2131 ;
2132 ; CONTROL BLOCK SYMBOLS:
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 29-1
LSLOOP
2133 ;
2134 ; C.ADDR - OFFSET OF ADDRESS FIELD
2135 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2136 ; C.LEN - OFFSET OF LENGTH FIELD
2137 ; C$OPLN - OPEN LINE FUNCTION CODE (USED AS INTERNAL FLAG)
2138 ;
2139 ;--
2140 ;======================================================================;
2141 ;
2142 ;
2143 ; EXTERNAL MACROS
2144 ;
2145 .MCALL LSDF,CONDF,NICDF
2146 ;
2147 ; DEFINE EXTERNAL SYMBOLS
2148 ;
2149 004374 LSDF ;LINE SERVICE SYMBOLS
2150 004374 CONDF ;CONTROL BLOCK SYMBOLS
2151 004374 NICDF ;NICE MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 30
LSLOOP
2153 ;
2154 ; LOCAL PROCEDURE BODY
2155 ;
2156 004374 PROCLC LSLOOP
2157 004374 IF ; FUNCTION CODE = 0
2158 004374 FALSEB SET C.FUNC(R5)
2159 004402 THEN
2160 004402 016402 000014 MOV LNBFAD(R4),R2 ;ADDRESS OF LINE TRANSMIT BUFFER
2161 004406 016400 000022 MOV DATADR(R4),R0 ;ADDRESS OF DATA TO LOOP
2162 004412 016401 000024 MOV DATLEN(R4),R1 ;LENGTH OF DATA TO LOOP
2163 004416 CALL MOVE ;BUILD MESSAGE TO LOOP
2164 004422 166402 000014 SUB LNBFAD(R4),R2 ;COMPUTE LENGTH OF MESSAGE
2165 004426 010264 000016 MOV R2,LNBFLN(R4) ;AND REMEMBER AS LINE BUFFER LENGTH
2166 004432 112765 000045 000006 MOVB #C$OPLN,C.FUNC(R5) ;INDICATE START LINE LOOP
2167 004440 ENDIF
2168 004440 CALL LSRTCM ;CHECK RECEIVE/TRANSMIT COMPLETION
2169 004444 IF ; COMPLETE
2170 004444 FALSE CS
2171 004446 THEN
2172 004446 CALL LSRTCK ;CHECK RECEIVE/TRANSMIT SUCCESS
2173 004452 IF ; SUCCESS
2174 004452 FALSE CS
2175 004454 THEN
2176 004454 IF ; RECEIVED LENGTH = TRANSMITTED LENGTH
2177 004454 FALSE NE C.LEN(R5),LNBFLN(R4)
2178 004464 THEN
2179 004464 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF BLOCK RECEIVED
2180 004470 016401 000014 MOV LNBFAD(R4),R1 ;ADDRESS OF BLOCK SENT
2181 004474 016402 000016 MOV LNBFLN(R4),R2 ;LENGTH OF BLOCKS
2182 004500 WHILE ; COUNT > 0 AND BYTES MATCH
2183 004500 FALSE LE R2
2184 004504 FALSEB NE (R0)+,(R1)+
2185 004510 DO
2186 004510 005302 DEC R2 ;DECREMENT COUNT
2187 004512 ENDWHILE
2188 004514 IF ; ALL BYTES MATCH
2189 004514 FALSE SET R2
2190 004520 THEN
2191 004520 005364 000004 DEC COUNT(R4) ;DECREMENT NUMBER TO LOOP
2192 004524 IF ; NUMBER LEFT TO LOOP = 0
2193 004524 FALSE NE
2194 004526 THEN
2195 004526 112764 000001 000041 MOVB #NS$SUC,RETCOD(R4) ;SUCCESSFUL TEST!
2196 004534 ENDIF
2197 004534 000241 CLC ;SUCCESS
2198 004536 ELSE
2199 004540 000261 SEC ;FAILURE
2200 004542 ENDIF
2201 004542 ELSE
2202 004544 000261 SEC ;FAILURE
2203 004546 ENDIF
2204 004546 IF ; FAILURE
2205 004546 FALSE CC
2206 004550 THEN
2207 004550 112764 177757 000041 MOVB #NE$LPR,RETCOD(R4) ;LINE PROTOCOL ERROR
2208 004556 ENDIF
2209 004556 ELSE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 30-1
LSLOOP
2210 004560 112764 177766 000041 MOVB #NE$LCO,RETCOD(R4) ;LINE COMMUNICATIONS ERROR
2211 004566 ENDIF
2212 004566 112765 000045 000006 MOVB #C$OPLN,C.FUNC(R5) ;INDICATE START LINE LOOP
2213 004574 ENDIF
2214 004574 IF ; FUNCTION CODE = START LINE LOOP
2215 004574 FALSEB NE C.FUNC(R5),#C$OPLN
2216 004604 THEN
2217 004604 IF ; RETURN CODE NOT SET
2218 004604 FALSEB SET RETCOD(R4)
2219 004612 THEN
2220 004612 CALL LSRTLB ;RECEIVE/TRANSMIT LINE BLOCKS
2221 004616 ELSE
2222 004620 116400 000041 MOVB RETCOD(R4),R0 ;GET THE RETURN CODE
2223 004624 CALL LSABRT ;ALL DONE
2224 004630 ENDIF
2225 004630 ENDIF
2226 004630 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
2227 004634 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 31
LSPARS
2230 .SBTTL LSPARS
2231 ;
2232 ;======================================================================;
2233 ;++
2234 ; +-------------------------------------------------+
2235 ; I I
2236 ; I L S P A R S I
2237 ; I - - - - - - I
2238 ; I I
2239 ; +-------------------------------------------------+
2240 ;
2241 ; FUNCTION:
2242 ;
2243 ; LINE SERVICE MODULE TO PARSE THE NICE COMMAND MESSAGE
2244 ;
2245 ; INPUT:
2246 ;
2247 ; R4 - ADDRESS OF CONTEXT BLOCK
2248 ; R5 - ADDRESS OF CONTROL BLOCK
2249 ; C.ADDR - ADDRESS OF NICE MESSAGE
2250 ; C.LEN - LENGTH OF NICE MESSAGE
2251 ;
2252 ; OUTPUT:
2253 ;
2254 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
2255 ; R0 - IF FAILURE, NICE ERROR RETURN CODE
2256 ; @R4 - UPDATED CONTEXT BLOCK
2257 ; BOOPAS - BOOT PASSWORD
2258 ; COUNT - NUMBER OF MESSAGES TO LOOP
2259 ; DATADR - ADDRESS OF LOOP DATA
2260 ; DATLEN - LENGTH OF LOOP DATA
2261 ; LINE - LINE TO USE
2262 ; MEMADR - ADDRESS TO START DUMP
2263 ; OPTION - NICE OPTION
2264 ; PROTYP - PROGRAM TYPE TO LOAD
2265 ;
2266 ; REQUIREMENTS:
2267 ;
2268 ; LINE SERVICE SYMBOLS:
2269 ;
2270 ; BOOPAS - OFFSET OF BOOT PASSWORD IMAGE IN CONTEXT
2271 ; BPSLEN - MAXIMUM LENGTH OF BOOT PASSWORD
2272 ; COUNT - OFFSET OF COUNT FIELD IN CONTEXT
2273 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
2274 ; DATLEN - OFFSET OF DATA LENGTH IN CONTEXT
2275 ; LINE - OFFSET OF LINE ID IN CONTEXT
2276 ; MEMADR - OFFSET OF MEMORY ADDRESS IN CONTEXT
2277 ; OPTION - OFFSET OF NICE OPTION IN CONTEXT
2278 ; PROTYP - OFFSET OF TYPE OF PROGRAM TO LOAD IN CONTEXT
2279 ;
2280 ; NICE MESSAGE SYMBOLS:
2281 ;
2282 ; LI$STA - STANDARD LINE ID TYPE CODE
2283 ; LS$DUM - DUMP OPTION CODE
2284 ; LS$LOA - LOAD OPTION CODE
2285 ; LS$LOO - LOOP OPTION CODE
2286 ; LS$TRI - TRIGGER OPTION CODE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 31-1
LSPARS
2287 ; LS$TRQ - TRIGGER/GET PROGRAM REQUEST OPTION CODE
2288 ; NE$FOR - MESSAGE FORMAT ERROR RETURN CODE
2289 ; NE$FUN - FUNCTION/OPTION CODE ERROR RETURN CODE
2290 ; NE$PAR - PARAMETER ERROR RETURN CODE
2291 ;
2292 ; CONTROL BLOCK SYMBOLS:
2293 ;
2294 ; C.ADDR - OFFSET OF ADDRESS FIELD
2295 ; C.LEN - OFFSET OF LENGTH FIELD
2296 ;
2297 ;--
2298 ;======================================================================;
2299 ;
2300 ;
2301 ; EXTERNAL MACROS
2302 ;
2303 .MCALL LSDF,NICDF,CONDF,SAVSTK,RESSTK
2304 ;
2305 ; DEFINE EXTERNAL SYMBOLS
2306 ;
2307 004636 LSDF ;LINE SERVICE SYMBOLS
2308 004636 NICDF ;NICE MESSAGE SYMBOLS
2309 004636 CONDF ;CONTROL BLOCK SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 32
LSPARS
2311 ;
2312 ; LOCAL PROCEDURE BODY
2313 ;
2314 004636 PROCLC LSPARS
2315 004636 SAVSTK <R3> ;SAVE REGISTER
2316 004640 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
2317 004644 010203 MOV R2,R3 ;COPY IT
2318 004646 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
2319 004652 005202 INC R2 ;MOVE PAST FUNCTION CODE
2320 004654 CALL GTMSBY ;GET OPTION BYTE
2321 004660 IF ; SUCCESS
2322 004660 FALSE CS
2323 004662 THEN
2324 004662 110064 000042 MOVB R0,OPTION(R4) ;SAVE OPTION
2325 004666 ENDIF
2326 004666 IF ; SUCCESS SO FAR
2327 004666 FALSE CS
2328 004670 THEN
2329 004670 CALL GTMSBY ;GET LINE FORMAT TYPE
2330 004674 IF ; SUCCESS
2331 004674 FALSE CS
2332 004676 THEN
2333 004676 IF ; LINE FORMAT TYPE <> STANDARD
2334 004676 FALSE EQ R0,#LI$STA
2335 004704 THEN
2336 004704 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
2337 004710 000261 SEC ;SET FAILURE
2338 004712 ELSE
2339 004714 012700 000004 MOV #4,R0 ;LENGTH OF LINE ID
2340 004720 012701 000044 MOV #LINE,R1 ;OFFSET OF LINE ID IN CONTEXT
2341 004724 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2342 004726 CALL MVMSBY ;MOVE BYTES TO CONTEXT
2343 004732 ENDIF
2344 004732 ENDIF
2345 004732 ENDIF
2346 004732 IF ; SUCCESS SO FAR
2347 004732 FALSE CS
2348 004734 THEN
2349 004734 ONCASE ; OPTION
2350 004734 116400 000042 MOVB OPTION(R4),R0
2352 004740 CASE ; LOAD
2353 004740 FALSE NE R0,#LS$LOA
2354 004746 DO
2355 004746 CALL GTMSBY ;GET PROGRAM TYPE
2356 004752 IF ; SUCCESS
2357 004752 FALSE CS
2358 004754 THEN
2359 004754 110064 000051 MOVB R0,PROTYP(R4) ;SET PROGRAM TYPE IN CONTEXT
2360 004760 ENDIF
2363 004760 CASE ; LOOP
2364 004762 FALSE NE R0,#LS$LOO
2365 004770 DO
2366 004770 CALL GTMSWD ;GET LOOP COUNT
2367 004774 IF ; SUCCESS
2368 004774 FALSE CS
2369 004776 THEN
2370 004776 010064 000004 MOV R0,COUNT(R4) ;PUT LOOP COUNT IN CONTEXT
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 32-1
LSPARS
2371 005002 010300 MOV R3,R0 ;ADDRESS OF END
2372 005004 160200 SUB R2,R0 ;COMPUTE LENGTH OF REMAINDER
2373 005006 IF ; REMAINDER > 0
2374 005006 FALSE LE
2375 005010 THEN
2376 005010 010064 000024 MOV R0,DATLEN(R4) ;LENGTH OF DATA TO LOOP
2377 005014 010264 000022 MOV R2,DATADR(R4) ;ADDRESS OF DATA TO LOOP
2378 005020 060002 ADD R0,R2 ;USE UP THE MESSAGE
2379 005022 000241 CLC
2380 005024 ELSE
2381 005026 012700 177760 MOV #NE$PAR,R0 ;INVALID PARAMETER ERROR
2382 005032 000261 SEC
2383 005034 ENDIF
2384 005034 ENDIF
2387 005034 CASE ; DUMP
2388 005036 FALSE NE R0,#LS$DUM
2389 005044 DO
2390 005044 012700 000004 MOV #4,R0 ;LENGTH OF BEGINNING ADDRESS
2391 005050 012701 000010 MOV #MEMADR,R1 ;OFFSET OF BEGINNING ADDRESS IN CONTEXT
2392 005054 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2393 005056 CALL MVMSBY ;MOVE BEGINNING ADDRESS TO CONTEXT
2394 005062 IF ; SUCCESS
2395 005062 FALSE CS
2396 005064 THEN
2397 005064 012700 000004 MOV #4,R0 ;LENGTH OF COUNT
2398 005070 012701 000004 MOV #COUNT,R1 ;OFFSET OF COUNT IN CONTEXT
2399 005074 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2400 005076 CALL MVMSBY ;MOVE COUNT TO CONTEXT
2401 005102 ENDIF
2404 005102 CASE ; TRIGGER BOOT
2405 005104 TRUE EQ R0,#LS$TRQ
2406 005112 FALSE NE R0,#LS$TRI
2407 005120 DO
2408 005120 012700 000010 MOV #BPSLEN,R0 ;MAXIMUM LENGTH OF BOOT PASSWORD
2409 005124 012701 000053 MOV #BOOPAS,R1 ;OFFSET OF BOOT PASSWORD IN CONTEXT
2410 005130 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2411 005132 CALL MVMSIM ;MOVE BOOT PASSWORD TO CONTEXT
2413 005136 ELSE
2414 005140 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
2415 005144 000261 SEC ;FAILURE
2416 005146 ENDCASE
2417 005146 ENDIF
2418 005146 IF ; SUCCESS SO FAR AND MESSAGE NOT USED UP
2419 005146 FALSE CS
2420 005150 FALSE EQ R2,R3
2421 005154 THEN
2422 005154 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
2423 005160 000261 SEC ;SET FAILURE
2424 005162 ENDIF
2425 005162 RESSTK <R3> ;RESTORE REGISTER
2426 005164 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 33
LSPRLB
2428 .SBTTL LSPRLB
2429 ;
2430 ;======================================================================;
2431 ;++
2432 ; +-------------------------------------------------+
2433 ; I I
2434 ; I L S P R L B I
2435 ; I - - - - - - I
2436 ; I I
2437 ; +-------------------------------------------------+
2438 ;
2439 ; FUNCTION:
2440 ;
2441 ; LINE SERVICE MODULE TO PARSE A BLOCK FROM THE LINE
2442 ;
2443 ; INPUT:
2444 ;
2445 ; R4 - ADDRESS OF CONTEXT BLOCK
2446 ; R5 - ADDRESS OF CONTROL BLOCK
2447 ; C.ADDR - ADDRESS OF LINE BLOCK
2448 ; C.LEN - LENGTH OF LINE BLOCK
2449 ;
2450 ; OUTPUT:
2451 ;
2452 ; C-BIT - CLEAR IF SUCCESS, SET IF NOT
2453 ; R0 - IF FAILURE, NICE ERROR RETURN CODE
2454 ; @R4 - UPDATED CONTEXT BLOCK
2455 ; BOODEV - BOOT DEVICE TYPE
2456 ; DATADR - ADDRESS OF DUMPED DATA
2457 ; DATLEN - LENGTH OF DUMPED DATA
2458 ; REQLOA - REQUESTED LOAD SEGMENT NUMBER
2459 ; REQPRO - REQUESTED PROGRAM TYPE
2460 ; RESADR - ADDRESS OF DATA IN DUMP RESPONSE
2461 ; SOFTID - SOFTWARE ID IMAGE
2462 ;
2463 ; REQUIREMENTS:
2464 ;
2465 ; LINE SERVICE SYMBOLS:
2466 ;
2467 ; BOODEV - OFFSET OF BOOT DEVICE TYPE IN CONTEXT
2468 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
2469 ; DATLEN - OFFSET OF DATA LENGTH IN CONTEXT
2470 ; REQLOA - OFFSET OF REQUESTED LOAD SEGMENT NUMBER IN CONTEXT
2471 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
2472 ; RESADR - OFFSET OF RESPONSE ADDRESS IN CONTEXT
2473 ; SIDLEN - MAXIMUM LENGTH OF SOFTWARE ID
2474 ; SOFTID - OFFSET OF SOFTWARE ID IMAGE IN CONTEXT
2475 ;
2476 ; MOP MESSAGE SYMBOLS:
2477 ;
2478 ; M$DATA - DUMPED DATA FUNCTION CODE
2479 ; M$RQLD - REQUEST LOAD FUNCTION CODE
2480 ; M$RQPG - REQUEST PROGRAM FUNCTION CODE
2481 ;
2482 ; NICE MESSAGE SYMBOLS:
2483 ;
2484 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 33-1
LSPRLB
2485 ;
2486 ; CONTROL BLOCK SYMBOLS:
2487 ;
2488 ; C.ADDR - OFFSET OF ADDRESS FIELD
2489 ; C.LEN - OFFSET OF LENGTH FIELD
2490 ;
2491 ;--
2492 ;======================================================================;
2493 ;
2494 ;
2495 ; EXTERNAL MACROS
2496 ;
2497 .MCALL CONDF,LSDF,NICDF,MOPDF,SAVSTK,RESSTK
2498 ;
2499 ; DEFINE EXTERNAL SYMBOLS
2500 ;
2501 005166 CONDF ;CONTROL BLOCK SYMBOLS
2502 005166 LSDF ;LINE SERVICE SYMBOLS
2503 005166 NICDF ;NICE MESSAGE SYMBOLS
2504 005166 MOPDF ;MOP MESSAGE SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 34
LSPRLB
2506 ;
2507 ; LOCAL PROCEDURE BODY
2508 ;
2509 005166 PROCLC LSPRLB
2510 005166 SAVSTK <R3> ;SAVE REGISTER
2511 005170 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF MESSAGE
2512 005174 010203 MOV R2,R3 ;COPY IT
2513 005176 066503 000012 ADD C.LEN(R5),R3 ;END ADDRESS OF MESSAGE
2514 005202 CALL GTMSBY ;GET MESSAGE TYPE
2515 005206 IF ; SUCCESS
2516 005206 FALSE CS
2517 005210 THEN
2518 005210 SAVSTK <R0> ;SAVE MESSAGE TYPE
2519 005212 ONCASE ; MESSAGE TYPE
2521 005212 CASE ; REQUEST LOAD
2522 005212 FALSE NE R0,#M$RQLD
2523 005220 DO
2524 005220 CALL GTMSBY ;GET LOAD NUMBER
2525 005224 IF ; SUCCESS
2526 005224 FALSE CS
2527 005226 THEN
2528 005226 110064 000067 MOVB R0,REQLOA(R4) ;SAVE LOAD NUMBER IN CONTEXT
2529 005232 CALL GTMSBY ;GET ERROR CODE
2530 005236 IF ; FAILURE
2531 005236 FALSE CC
2532 005240 THEN
2533 005240 005000 CLR R0 ;DEFAULT TO ZERO, CLEAR C-BIT
2534 005242 ENDIF
2535 005242 110064 000041 MOVB R0,RETCOD(R4) ;SAVE ERROR CODE IN CONTEXT
2536 005246 ENDIF
2539 005246 CASE ; DUMPED DATA
2540 005250 FALSE NE R0,#M$DATA
2541 005256 DO
2542 005256 012700 000004 MOV #4,R0 ;LENGTH OF RESPONSE ADDRESS
2543 005262 012701 000026 MOV #RESADR,R1 ;OFFSET OF RESPONSE ADDRESS IN CONTEXT
2544 005266 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2545 005270 CALL MVMSBY ;MOVE RESPONSE ADDRESS TO CONTEXT
2546 005274 IF ; SUCCESS
2547 005274 FALSE CS
2548 005276 THEN
2549 005276 010264 000022 MOV R2,DATADR(R4) ;ADDRESS OF DUMPED DATA
2550 005302 010301 MOV R3,R1 ;END ADDRESS OF MESSAGE
2551 005304 160201 SUB R2,R1 ;COMPUTE LENGTH OF DUMPED DATA
2552 005306 010164 000024 MOV R1,DATLEN(R4) ;AND SAVE IN CONTEXT
2553 005312 060102 ADD R1,R2 ;UPDATE CURRENT POINTER INTO MESSAGE
2554 005314 000241 CLC ;SUCCESS SO FAR
2555 005316 ENDIF
2558 005316 CASE ; PROGRAM REQUEST
2559 005320 FALSE NE R0,#M$RQPG
2560 005326 DO
2561 005326 CALL GTMSBY ;GET BOOT DEVICE TYPE
2562 005332 IF ; SUCCESS
2563 005332 FALSE CS
2564 005334 THEN
2565 005334 110064 000066 MOVB R0,BOODEV(R4) ;SAVE BOOT DEVICE TYPE IN CONTEXT
2566 005340 005202 INC R2 ;MOVE PAST STATION ID
2567 005342 CALL GTMSBY ;GET REQUESTED PROGRAM TYPE
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 34-1
LSPRLB
2568 005346 IF ; SUCCESS
2569 005346 FALSE CS
2570 005350 THEN
2571 005350 110064 000067 MOVB R0,REQPRO(R4) ;SAVE REQUESTED PROGRAM TYPE IN CONTEXT
2572 005354 010301 MOV R3,R1 ;ADDRESS OF END OF MESSAGE
2573 005356 160201 SUB R2,R1 ;COMPUTE LENGTH OF REMAINDER
2574 005360 IF ; REMAINDER > MAXIMUM SOFTWARE ID
2575 005360 FALSE LE R1,#SIDLEN
2576 005366 THEN
2577 005366 000261 SEC ;FAILURE
2578 005370 ELSE
2579 005372 110164 000070 MOVB R1,SOFTID(R4) ;PUT LENGTH IN CONTEXT
2580 005376 010200 MOV R2,R0 ;ADDRESS OF SOFTWARE ID IN MESSAGE
2581 005400 012702 000071 MOV #SOFTID+1,R2 ;OFFSET OF SOFTWARE ID DATA IN CONTEXT
2582 005404 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
2583 005406 CALL MOVE ;MOVE SOFTWARE ID TO CONTEXT
2584 005412 010002 MOV R0,R2 ;FIX POINTER INTO MESSAGE
2585 005414 000241 CLC ;SUCCESS SO FAR
2586 005416 ENDIF
2587 005416 ENDIF
2588 005416 ENDIF
2590 005416 CASE ; ASCII TEXT FOR LOG DATA MESSAGE ;AP0001
2591 005420 FALSE NE #M$ASCD,R0 ;AP0001
2592 005426 DO ;AP0001
2593 005426 010264 000022 MOV R2,DATADR(R4) ;SAVE TEXT BEGINNING ;AP0001
2594 005432 010301 MOV R3,R1 ;AND COMPUTE ;AP0001
2595 005434 160201 SUB R2,R1 ;THE LENGTH OF THE TEXT. ;AP0001
2596 005436 IF ; DATA TOO LONG ;AP0001
2597 005436 FALSE HIS #255.,R1 ;AP0001
2598 005444 THEN ; LIMIT TO 255. ;AP0001
2599 005444 012701 000377 MOV #255.,R1 ;AP0001
2600 005450 ENDIF ;AP0001
2601 005450 010164 000024 MOV R1,DATLEN(R4) ;SET LENGTH AND ;AP0001
2602 005454 060102 ADD R1,R2 ;GO ON TO END OF MESSAGE. ;AP0001
2603 005456 ELSE ; BAD MESSAGE TYPE ;AP0001
2604 005460 000261 SEC ;FAILURE ;**-1
2605 005462 ENDCASE
2606 005462 RESSTK <R0> ;RESTORE MESSAGE TYPE
2607 005464 IF ; SUCCESS SO FAR AND MESSAGE NOT USED UP
2608 005464 FALSE CS
2609 005466 FALSE EQ R2,R3
2610 005472 THEN
2611 005472 000261 SEC ;FAIL
2612 005474 ENDIF
2613 005474 ENDIF
2614 005474 IF ; FAILURE
2615 005474 FALSE CC
2616 005476 THEN
2617 005476 012700 177757 MOV #NE$LPR,R0 ;LINE PROTOCOL ERROR
2618 005502 ENDIF
2619 005502 RESSTK <R3> ;RESTORE REGISTER
2620 005504 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 35
LSRCDM
2622 .SBTTL LSRCDM
2623 ;
2624 ;======================================================================;
2625 ;++
2626 ; +-------------------------------------------------+
2627 ; I I
2628 ; I L S R C D M I
2629 ; I - - - - - - I
2630 ; I I
2631 ; +-------------------------------------------------+
2632 ;
2633 ; FUNCTION:
2634 ;
2635 ; LINE SERVICE MODULE TO SET UP A DIALOG MESSAGE RECEIVE
2636 ;
2637 ; INPUT:
2638 ;
2639 ; R4 - ADDRESS OF CONTEXT BLOCK
2640 ; CMBFAD - ADDRESS OF COMMAND MESSAGE BUFFER
2641 ; CMLKNM - COMMAND LINK NUMBER
2642 ; R5 - ADDRESS OF CONTROL BLOCK
2643 ;
2644 ; OUTPUT:
2645 ;
2646 ; @R5 - UPDATED CONTROL BLOCK
2647 ; C.ADDR - ADDRESS OF BUFFER
2648 ; C.FUNC - NEGATIVE FUNCTION CODE TO RECEIVE MESSAGE
2649 ; C.LEN - LENGTH OF BUFFER
2650 ; C.LKNM - LINK NUMBER TO RECEIVE ON
2651 ;
2652 ; REQUIREMENTS:
2653 ;
2654 ; LINE SERVICE SYMBOLS:
2655 ;
2656 ; CMBFAD - OFFSET OF ADDRESS OF COMMAND MESSAGE BUFFER IN CONTEXT
2657 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
2658 ;
2659 ; NICE MESSAGE SYMBOLS:
2660 ;
2661 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
2662 ;
2663 ; CONTROL BLOCK SYMBOLS:
2664 ;
2665 ; C.ADDR - OFFSET OF ADDRESS FIELD
2666 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2667 ; C.LEN - OFFSET OF LENGTH FIELD
2668 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
2669 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
2670 ;
2671 ;--
2672 ;======================================================================;
2673 ;
2674 ;
2675 ; EXTERNAL MACROS
2676 ;
2677 .MCALL LSDF,CONDF,NICDF
2678 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 35-1
LSRCDM
2679 ; DEFINE EXTERNAL SYMBOLS
2680 ;
2681 005506 LSDF ;LINE SERVICE SYMBOLS
2682 005506 CONDF ;CONTROL BLOCK SYMBOLS
2683 005506 NICDF ;NICE MESSAGE SYMBOLS
2684 ;
2685 ; LOCAL PROCEDURE BODY
2686 ;
2687 005506 PROCLC LSRCDM
2688 005506 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF A NICE MESSAGE
2689 005514 016465 000002 000014 MOV CMBFAD(R4),C.ADDR(R5) ;ADDRESS OF COMMAND BUFFER
2690 005522 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;COMMAND LINK NUMBER
2691 005530 112765 177724 000006 MOVB #-C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
2692 005536 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 36
LSRCLB
2694 .SBTTL LSRCLB
2695 ;
2696 ;======================================================================;
2697 ;++
2698 ; +-------------------------------------------------+
2699 ; I I
2700 ; I L S R C L B I
2701 ; I - - - - - - I
2702 ; I I
2703 ; +-------------------------------------------------+
2704 ;
2705 ; FUNCTION:
2706 ;
2707 ; LINE SERVICE MODULE TO SET UP TO RECEIVE A BLOCK ON THE LINE
2708 ;
2709 ; INPUT:
2710 ;
2711 ; R4 - ADDRESS OF CONTEXT BLOCK
2712 ; CMBFAD - ADDRESS OF COMMAND MESSAGE BUFFER
2713 ; FLAGS - PROCESSING FLAGS
2714 ; LUN - LINE LOGICAL UNIT NUMBER
2715 ; R5 - ADDRESS OF CONTROL BLOCK
2716 ;
2717 ; OUTPUT:
2718 ;
2719 ; @R5 - UPDATED CONTROL BLOCK
2720 ; C.ADDR - ADDRESS OF BUFFER
2721 ; C.FUNC - NEGATIVE RECEIVE BLOCK FUNCTION CODE
2722 ; C.LEN - LENGTH OF BUFFER
2723 ; C.LUN - LOGICAL UNIT TO RECEIVE ON
2724 ; @R4 - UPDATED CONTEXT BLOCK
2725 ; FLAGS - RECEIVE BLOCK PENDING FLAG SET
2726 ;
2727 ; REQUIREMENTS:
2728 ;
2729 ; LINE SERVICE SYMBOLS:
2730 ;
2731 ; CMBFAD - OFFSET OF ADDRESS OF COMMAND MESSAGE BUFFER IN CONTEXT
2732 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
2733 ; LUN - OFFSET OF LINE LOGICAL UNIT NUMBER IN CONTEXT
2734 ; RCBKPN - RECEIVE BLOCK PENDING FLAG MASK
2735 ;
2736 ; NICE MESSAGE SYMBOLS:
2737 ;
2738 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
2739 ;
2740 ; CONTROL BLOCK SYMBOLS:
2741 ;
2742 ; C.ADDR - OFFSET OF ADDRESS FIELD
2743 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2744 ; C.LEN - OFFSET OF LENGTH FIELD
2745 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
2746 ; C$RCBK - RECEIVE BLOCK FUNCTION CODE
2747 ;
2748 ;--
2749 ;======================================================================;
2750 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 36-1
LSRCLB
2751 ; EXTERNAL MACROS
2752 ;
2753 .MCALL CONDF,LSDF,NICDF
2754 ;
2755 ; DEFINE EXTERNAL SYMBOLS
2756 ;
2757 005540 CONDF ;CONTROL BLOCK SYMBOLS
2758 005540 LSDF ;LINE SERVICE SYMBOLS
2759 005540 NICDF ;NICE MESSAGE SYMBOLS
2760 ;
2761 ; LOCAL PROCEDURE BODY
2762 ;
2763 005540 PROCLC LSRCLB
2764 005540 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF MESSAGE BUFFER
2765 005546 016465 000002 000014 MOV CMBFAD(R4),C.ADDR(R5) ;ADDRESS OF MESSAGE BUFFER
2766 005554 116465 000050 000020 MOVB LUN(R4),C.LUN(R5) ;LOGICAL UNIT NUMBER OF LINE
2767 005562 112765 177731 000006 MOVB #-C$RCBK,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE BLOCK
2768 005570 152764 000040 000043 BISB #RCBKPN,FLAGS(R4) ;SET LINE RECEIVE PENDING FLAG
2769 005576 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 37
LSRTCK
2771 .SBTTL LSRTCK
2772 ;
2773 ;======================================================================;
2774 ;++
2775 ; +-------------------------------------------------+
2776 ; I I
2777 ; I L S R T C K I
2778 ; I - - - - - - I
2779 ; I I
2780 ; +-------------------------------------------------+
2781 ;
2782 ; FUNCTION:
2783 ;
2784 ; LINE SERVICE MODULE TO CHECK FOR RECEIVE/TRANSMIT SUCCESS
2785 ;
2786 ; INPUT:
2787 ;
2788 ; R4 - ADDRESS OF CONTEXT BLOCK
2789 ; RECCB - ADDRESS OF RECEIVE CONTROL BLOCK
2790 ; C.RET - RETURN CODE
2791 ; TRACB - ADDRESS OF TRANSMIT CONTROL BLOCK
2792 ; C.RET - RETURN CODE
2793 ;
2794 ; OUTPUT:
2795 ;
2796 ; C-BIT - CLEAR IF BOTH SUCCESSFUL, SET IF NOT
2797 ; R0 - IF FAILURE, NICE ERROR RETURN CODE
2798 ; @R4 - UPDATED CONTEXT
2799 ; RETRYS - IF SUCCESS, ZERO
2800 ; R5 - IF SUCCESS, ADDRESS OF RECEIVE CONTROL BLOCK; IF ERROR,
2801 ; ADDRESS OF FIRST CONTROL BLOCK FOUND WITH ERROR
2802 ;
2803 ; REQUIREMENTS:
2804 ;
2805 ; LINE SERVICE SYMBOLS:
2806 ;
2807 ; RECCB - OFFSET OF RECEIVE CONTROL BLOCK ADDRESS IN CONTEXT
2808 ; RETRYS - OFFSET OF RETRY COUNT IN CONTEXT
2809 ; TRACB - OFFSET OF TRANSMIT CONTROL BLOCK ADDRESS IN CONTEXT
2810 ;
2811 ; NICE MESSAGE SYMBOLS:
2812 ;
2813 ; NE$LCO - LINE COMMUNICATION ERROR RETURN CODE
2814 ;
2815 ; CONTROL BLOCK SYMBOLS:
2816 ;
2817 ; C.RET - OFFSET OF RETURN CODE FIELD
2818 ;
2819 ;--
2820 ;======================================================================;
2821 ;
2822 ;
2823 ; EXTERNAL MACROS
2824 ;
2825 .MCALL LSDF,CONDF,NICDF
2826 ;
2827 ; DEFINE EXTERNAL SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 37-1
LSRTCK
2828 ;
2829 005600 LSDF ;LINE SERVICE SYMBOLS
2830 005600 CONDF ;CONTROL BLOCK SYMBOLS
2831 005600 NICDF ;NICE MESSAGE SYMBOLS
2832 ;
2833 ; LOCAL PROCEDURE BODY
2834 ;
2835 005600 PROCLC LSRTCK
2836 005600 IF ; TRANSMIT SUCCESS AND RECEIVE SUCCESS
2837 005600 016405 000034 MOV TRACB(R4),R5
2838 005604 FALSEB LT C.RET(R5)
2839 005612 016405 000036 MOV RECCB(R4),R5
2840 005616 FALSEB LT C.RET(R5)
2841 005624 THEN
2842 005624 105064 000064 CLRB RETRYS(R4) ;CLEAR RETRY COUNTER AND C-BIT
2843 005630 ELSE
2844 005632 012700 177766 MOV #NE$LCO,R0 ;LINE COMMUNICATIONS ERROR
2845 005636 000261 SEC ;FAIL RETURN
2846 005640 ENDIF
2847 005640 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 38
LSRTCM
2849 .SBTTL LSRTCM
2850 ;
2851 ;======================================================================;
2852 ;++
2853 ; +-------------------------------------------------+
2854 ; I I
2855 ; I L S R T C M I
2856 ; I - - - - - - I
2857 ; I I
2858 ; +-------------------------------------------------+
2859 ;
2860 ; FUNCTION:
2861 ;
2862 ; LINE SERVICE MODULE TO CHECK FOR LINE RECEIVE/TRANSMIT COMPLETION
2863 ;
2864 ; INPUT:
2865 ;
2866 ; R4 - ADDRESS OF CONTEXT BLOCK
2867 ; FLAGS - PROCESSING FLAGS
2868 ; R5 - ADDRESS OF CONTROL BLOCK
2869 ; C.FUNC - FUNCTION JUST COMPLETED
2870 ;
2871 ; OUTPUT:
2872 ;
2873 ; C-BIT - CLEAR IF RECEIVE AND TRANSMIT COMPLETE, SET IF NOT
2874 ; @R4 - UPDATED CONTEXT
2875 ; FLAGS - UPDATED PROCESSING FLAGS
2876 ; @R5 - UPDATED CONTROL BLOCK
2877 ; C.FUNC - IF ONE LINE OPERATION COMPLETED AND ANOTHER PENDING,
2878 ; NEGATIVE NO-OPERATION-NO-RETURN FUNCTION CODE
2879 ;
2880 ; REQUIREMENTS:
2881 ;
2882 ; LINE SERVICE SYMBOLS:
2883 ;
2884 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
2885 ; RCBKPN - RECEIVE BLOCK PENDING FLAG MASK
2886 ; TRBKPN - TRANSMIT BLOCK PENDING FLAG MASK
2887 ;
2888 ; CONTROL BLOCK SYMBOLS:
2889 ;
2890 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2891 ; C$NOPN - NO-OPERATION-NO-RETURN FUNCTION CODE
2892 ; C$RCBK - RECEIVE BLOCK FUNCTION CODE
2893 ; C$TRBK - TRANSMIT BLOCK FUNCTION CODE
2894 ;
2895 ;--
2896 ;======================================================================;
2897 ;
2898 ; EXTERNAL MACROS
2899 ;
2900 .MCALL LSDF,CONDF
2901 ;
2902 ; DEFINE EXTERNAL SYMBOLS
2903 ;
2904 005642 LSDF ;LINE SERVICE SYMBOLS
2905 005642 CONDF ;CONTROL BLOCK SYMBOLS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 38-1
LSRTCM
2906 ;
2907 ; LOCAL PROCEDURE BODY
2908 ;
2909 005642 PROCLC LSRTCM
2910 005642 ONCASE ; FUNCTION CODE
2911 005642 116500 000006 MOVB C.FUNC(R5),R0
2912 005646 CASE ; TRANSMIT LINE BLOCK
2913 005646 FALSE NE R0,#C$TRBK
2914 005654 DO
2915 005654 142764 000100 000043 BICB #TRBKPN,FLAGS(R4) ;CLEAR LINE TRANSMIT PENDING FLAG
2916 005662 000241 CLC ;INDICATE LINE OPERATION
2917 005664 CASE ; RECEIVE LINE BLOCK
2918 005666 FALSE NE R0,#C$RCBK
2919 005674 DO
2920 005674 142764 000040 000043 BICB #RCBKPN,FLAGS(R4) ;CLEAR LINE RECEIVE PENDING FLAG
2921 005702 000241 CLC ;INDICATE LINE OPERATION
2922 005704 ELSE
2923 005706 000261 SEC ;NOT A LINE OPERATION
2924 005710 ENDCASE
2925 005710 IF ; LINE OPERATION
2926 005710 FALSE CS
2927 005712 THEN
2928 005712 IF ; RECEIVE AND TRANSMIT BOTH NOT PENDING
2929 005712 FALSEB SET #<TRBKPN!RCBKPN>,FLAGS(R4)
2930 005722 THEN
2931 005722 000241 CLC ;INDICATE COMPLETION
2932 005724 ELSE
2933 005726 112765 177747 000006 MOVB #-C$NOPN,C.FUNC(R5) ;MAKE THIS ONE A NOP, NO RETURN
2934 005734 000261 SEC ;INDICATE NOT COMPLETE
2935 005736 ENDIF
2936 005736 ENDIF
2937 005736 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 39
LSRTER
2939 .SBTTL LSRTER
2940 ;
2941 ;======================================================================;
2942 ;++
2943 ; +-------------------------------------------------+
2944 ; I I
2945 ; I L S R T E R I
2946 ; I - - - - - - I
2947 ; I I
2948 ; +-------------------------------------------------+
2949 ;
2950 ; FUNCTION:
2951 ;
2952 ; LINE SERVICE MODULE TO PROCESS LINE RECEIVE/TRANSMIT ERROR RETURN
2953 ;
2954 ; INPUT:
2955 ;
2956 ; R4 - ADDRESS OF CONTEXT BLOCK
2957 ; RETRYS - NUMBER OF RETRYS SO FAR
2958 ; R5 - ADDRESS OF CONTROL BLOCK
2959 ; C.FUNC - FUNCTION WITH ERROR
2960 ; C.RET - ERROR RETURN CODE
2961 ; OTHER FIELDS AS DESCRIBED FOR MODULE LSRTLB
2962 ;
2963 ; OUTPUT:
2964 ;
2965 ; @R4 - UPDATED CONTEXT
2966 ; RETRYS - NUMBER OF RETRYS SO FAR
2967 ; OTHER OUTPUTS AS DESCRIBED FOR MODULE LSRTLB OR LSABRT
2968 ;
2969 ; REQUIREMENTS:
2970 ;
2971 ; LINE SERVICE SYMBOLS:
2972 ;
2973 ; MXRTRY - MAXIMUM NUMBER OF RETRYS
2974 ; RETRYS - OFFSET OF RETRY COUNT IN CONTEXT
2975 ;
2976 ; NICE MESSAGE SYMBOLS:
2977 ;
2978 ; NE$LCO - LINE COMMUNICATION ERROR RETURN CODE
2979 ;
2980 ; CONTROL BLOCK SYMBOLS:
2981 ;
2982 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2983 ; C.RET - OFFSET OF RETURN CODE FIELD
2984 ; C$RCBK - RECEIVE BLOCK FUNCTION CODE
2985 ; CE$TMO - TIME-OUT ERROR CODE
2986 ;
2987 ;--
2988 ;======================================================================;
2989 ;
2990 ; EXTERNAL MACROS
2991 ;
2992 .MCALL LSDF,CONDF,NICDF
2993 ;
2994 ; DEFINE EXTERNAL SYMBOLS
2995 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 39-1
LSRTER
2996 005740 LSDF ;LINE SERVICE SYMBOLS
2997 005740 CONDF ;CONTROL BLOCK SYMBOLS
2998 005740 NICDF ;NICE MESSAGE SYMBOLS
2999 ;
3000 ; LOCAL PROCEDURE BODY
3001 ;
3002 005740 PROCLC LSRTER
3003 005740 IF ; FAILURE ON RECEIVE AND ERROR = TIMEOUT AND RETRYS < MAXIMUM
3004 005740 FALSEB NE C.FUNC(R5),#C$RCBK
3005 005750 FALSEB NE C.RET(R5),#CE$TMO
3006 005760 FALSEB GE RETRYS(R4),#MXRTRY
3007 005770 THEN
3008 005770 105264 000064 INCB RETRYS(R4) ;INCREMENT RETRY COUNT
3009 005774 CALL LSRTLB ;RECEIVE/TRANSMIT LINE BLOCK
3010 006000 ELSE
3011 006002 012700 177766 MOV #NE$LCO,R0 ;LINE COMMUNICATIONS ERROR
3012 006006 CALL LSABRT ;BLOW IT UP
3013 006012 ENDIF
3014 006012 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 40
LSRTLB
3016 .SBTTL LSRTLB
3017 ;
3018 ;======================================================================;
3019 ;++
3020 ; +-------------------------------------------------+
3021 ; I I
3022 ; I L S R T L B I
3023 ; I - - - - - - I
3024 ; I I
3025 ; +-------------------------------------------------+
3026 ;
3027 ; FUNCTION:
3028 ;
3029 ; LINE SERVICE MODULE TO RECEIVE AND TRANSMIT LINE BLOCKS
3030 ;
3031 ; INPUT:
3032 ;
3033 ; R4 - ADDRESS OF CONTEXT BLOCK
3034 ; RECCB - ADDRESS OF RECEIVE CONTROL BLOCK
3035 ; TRACB - ADDRESS OF TRANSMIT CONTROL BLOCK
3036 ; OTHER INPUTS AS DESCRIBED FOR MODULES LSTRLB AND LSRCLB
3037 ;
3038 ; OUTPUT:
3039 ;
3040 ; R5 - ADDRESS OF RECEIVE CONTROL BLOCK
3041 ; 0(R5) - ADDRESS OF TRANSMIT CONTROL BLOCK
3042 ; C.FUNC - POSITIVE FUNCTION CODE
3043 ; OTHER OUTPUTS AS DESCRIBED FOR MODULES LSTRLB AND LSRCLB
3044 ;
3045 ; REQUIREMENTS:
3046 ;
3047 ; LINE SERVICE SYMBOLS:
3048 ;
3049 ; RECCB - OFFSET OF RECEIVE CONTROL BLOCK ADDRESS IN CONTEXT
3050 ; TRACB - OFFSET OF TRANSMIT CONTROL BLOCK ADDRESS IN CONTEXT
3051 ;
3052 ; CONTROL BLOCK SYMBOLS:
3053 ;
3054 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
3055 ;
3056 ;--
3057 ;======================================================================;
3058 ;
3059 ;
3060 ; EXTERNAL MACROS
3061 ;
3062 .MCALL LSDF,CONDF
3063 ;
3064 ; DEFINE EXTERNAL SYMBOLS
3065 ;
3066 006014 LSDF ;LINE SERVICE SYMBOLS
3067 006014 CONDF ;CONTROL BLOCK SYMBOLS
3068 ;
3069 ; LOCAL PROCEDURE BODY
3070 ;
3071 006014 PROCLC LSRTLB
3072 006014 016405 000034 MOV TRACB(R4),R5 ;ADDRESS OF TRANSMIT CONTROL BLOCK
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 40-1
LSRTLB
3073 006020 CALL LSTRLB ;SET IT UP TO TRANSMIT
3074 006024 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
3075 006030 016405 000036 MOV RECCB(R4),R5 ;ADDRESS OF RECEIVE CONTROL BLOCK
3076 006034 016415 000034 MOV TRACB(R4),(R5) ;POINT RECEIVE CB TO TRANSMIT CB
3077 006040 CALL LSRCLB ;SET IT UP TO RECEIVE
3078 006044 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 41
LSSTAR
3080 .SBTTL LSSTAR
3081 ;
3082 ;======================================================================;
3083 ;++
3084 ; +-------------------------------------------------+
3085 ; I I
3086 ; I L S S T A R I
3087 ; I - - - - - - I
3088 ; I I
3089 ; +-------------------------------------------------+
3090 ;
3091 ; FUNCTION:
3092 ;
3093 ; LINE SERVICE MODULE TO DO COMMON STARTUP PROCESSING
3094 ;
3095 ; INPUT:
3096 ;
3097 ; R4 - ADDRESS OF CONTEXT BLOCK
3098 ; CMBFAD - ADDRESS OF COMMAND MESSAGE BUFFER
3099 ; CMLKNM - COMMAND LINK NUMBER
3100 ; LINE - FOUR BYTE BINARY LINE ID
3101 ; LINMOD - LINE ACCESS MODE
3102 ; OPTION - NICE COMMAND MESSAGE OPTION
3103 ; PROTYP - TYPE OF PROGRAM TO BE LOADED
3104 ; R5 - ADDRESS OF CONTROL BLOCK
3105 ; C.ADDR - ON ALLOCATE CONTROL BLOCK COMPLETION, ADDRESS OF CONTROL
3106 ; BLOCK; ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER
3107 ; C.FUNC - FUNCTION JUST PERFORMED
3108 ; C.LUN - ON OPEN LINE COMPLETION, LINE LOGICAL UNIT NUMBER
3109 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
3110 ;
3111 ; OUTPUT:
3112 ;
3113 ; @R4 - UPDATED CONTEXT BLOCK
3114 ; FLAGS - ON FINAL RETURN, INITIAL PROCESSING FLAGS
3115 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
3116 ; LNBFMX - MAXIMUM LENGTH OF LINE TRANSMIT BUFFER
3117 ; LUN - LINE LOGICAL UNIT NUMBER
3118 ; RECCB - ADDRESS OF LINE RECEIVE CONTROL BLOCK; IF NON-ZERO,
3119 ; CONTROL BLOCK IS COPY OF ORIGINAL CONTROL BLOCK
3120 ; STATE - ON FINAL RETURN, NEXT PROCESSING STATE
3121 ; TRACB - ADDRESS OF ORIGINAL CONTROL BLOCK
3122 ; @R5 - UPDATED CONTROL BLOCK
3123 ; C.ADDR - ON TRANSMIT MESSAGE REQUEST, ADDRESS OF MESSAGE
3124 ; C.FUNC - FUNCTION TO PERFORM
3125 ; C.LEN - ON ALLOCATE BUFFER REQUEST, LENGTH DESIRED; ON TRANSMIT
3126 ; MESSAGE REQUEST, LENGTH OF MESSAGE
3127 ; C.LINE - ON OPEN LINE REQUEST, FOUR BYTE BINARY LINE ID
3128 ; C.LKNM - ON TRANSMIT MESSAGE REQUEST, LINK NUMBER
3129 ; C.MODE - ON OPEN LINE REQUEST, LINE ACCESS MODE
3130 ; C.WAIT - ON OPEN LINE REQUEST, MAXIMUM WAIT FOR RECEIVE
3131 ; OTHER OUTPUTS - AS SPECIFIED FOR LSABRT
3132 ;
3133 ; REQUIREMENTS:
3134 ;
3135 ; LINE SERVICE SYMBOLS:
3136 ;
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 41-1
LSSTAR
3137 ; BOOT - BOOT STATE VALUE
3138 ; CMBFAD - OFFSET OF COMMAND BUFFER ADDRESS IN CONTEXT
3139 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
3140 ; DIALOG - DIALOG IN PROGRESS FLAG MASK
3141 ; DUMP - DUMP STATE VALUE
3142 ; EODREC - END-OF-DIALOG RECEIVED FLAG MASK
3143 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
3144 ; LINE - OFFSET OF LINE ID IN CONTEXT
3145 ; LINMOD - OFFSET OF LINE ACCESS MODE IN CONTEXT
3146 ; LNBFAD - OFFSET OF LINE TRANSMIT BUFFER ADDRESS IN CONTEXT
3147 ; LNBFMX - OFFSET OF LINE TRANSMIT BUFFER MAXIMUM LENGTH IN CONTEXT
3148 ; LOAD - LOAD STATE VALUE
3149 ; LOOP - LOOPBACK STATE VALUE
3150 ; LUN - OFFSET OF LINE LOGICAL UNIT NUMBER IN CONTEXT
3151 ; MXWAIT - MAXIMUM SECONDS TO WAIT FOR RECEIVE
3152 ; OPTION - OFFSET OF NICE OPTION IN CONTEXT
3153 ; PROTYP - OFFSET OF TYPE OF PROGRAM TO BE LOADED IN CONTEXT
3154 ; RECCB - OFFSET OF LINE RECEIVE CONTROL BLOCK ADDRESS IN CONTEXT
3155 ; RGBFLN - LENGTH OF REGULAR LINE TRANSMIT BUFFER
3156 ; SCBFLN - LENGTH OF SECONDARY PROGRAM LINE TRANSMIT BUFFER
3157 ; STATE - OFFSET OF STATE IN CONTEXT
3158 ; TRACB - OFFSET OF LINE TRANSMIT CONTROL BLOCK ADDRESS IN CONTEXT
3159 ;
3160 ; NICE MESSAGE SYMBOLS:
3161 ;
3162 ; LS$DUM - DUMP OPTION VALUE
3163 ; LS$LOA - LOAD OPTION VALUE
3164 ; NE$LID - INVALID LINE ID ERROR RETURN CODE
3165 ; NE$LST - LINE IN WRONG STATE ERROR RETURN CODE
3166 ; NE$NCO - NETWORK COMMUNICATION ERROR RETURN CODE
3167 ; NS$SUC - SUCCESS RETURN CODE
3168 ;
3169 ; CONTROL BLOCK SYMBOLS:
3170 ;
3171 ; C.ADDR - OFFSET OF ADDRESS FIELD
3172 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
3173 ; C.LEN - OFFSET OF LENGTH FIELD
3174 ; C.LINE - OFFSET OF LINE ID FIELD
3175 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
3176 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
3177 ; C.MODE - OFFSET OF LINE ACCESS MODE FIELD
3178 ; C.RET - OFFSET OF RETURN CODE FIELD
3179 ; C.WAIT - OFFSET OF MAXIMUM RECEIVE WAIT FIELD
3180 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
3181 ; C$ALCB - ALLOCATE CONTROL BLOCK FUNCTION CODE
3182 ; C$LEN - LENGTH OF A CONTROL BLOCK
3183 ; C$OPLN - OPEN LINE FUNCTION CODE
3184 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
3185 ; CE$LID - INVALID LINE ID ERROR RETURN CODE
3186 ;
3187 ;--
3188 ;======================================================================;
3189 ;
3190 ;
3191 ; EXTERNAL MACROS
3192 ;
3193 .MCALL CONDF,LSDF,NICDF
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 41-2
LSSTAR
3194 ;
3195 ; DEFINE EXTERNAL SYMBOLS
3196 ;
3197 006046 CONDF ;CONTROL BLOCK SYMBOLS
3198 006046 LSDF ;LINE SERVICE SYMBOLS
3199 006046 NICDF ;NICE MESSAGE SYMBOLS
3200 ;
3201 ; DEFINE LOCAL READ ONLY MEMORY
3202 ;
3203 ; LINE MODE, INDEXED BY OPTION
3204 ;
3205 006046 LINMOD:
3206 ;
3207 006046 001 .BYTE 1 ;LOAD, MAINTENANCE
3208 006047 000 .BYTE 0 ;LOOP, NORMAL
3209 006050 001 .BYTE 1 ;DUMP, MAINTENANCE
3210 006051 001 001 .BYTE 1,1 ;BOTH TRIGGER BOOT, MAINTENANCE
3211 ;
3212 ; NEXT STATES, INDEXED BY OPTION
3213 ;
3214 006053 PROSTA:
3215 ;
3216 006053 002 .BYTE LOAD
3217 006054 004 .BYTE LOOP
3218 006055 003 .BYTE DUMP
3219 006056 005 .BYTE BOOT
3220 006057 005 .BYTE BOOT
3221 ;
3222 ; INITIAL FLAGS, INDEXED BY OPTION
3223 ;
3224 006060 PROFLG:
3225 ;
3226 006060 001 .BYTE DIALOG ;LOAD
3227 006061 004 .BYTE EODREC ;LOOP
3228 006062 001 .BYTE DIALOG ;DUMP
3229 006063 004 004 .BYTE EODREC,EODREC ;BOTH TRIGGER BOOT OPTIONS
3230 ;
3231 .EVEN
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 42
LSSTAR
3233 ;
3234 ; LOCAL PROCEDURE BODY
3235 ;
3236 006066 PROCLC LSSTAR
3237 006066 IF ; FUNCTION CODE = 0
3238 006066 FALSEB SET C.FUNC(R5)
3239 006074 THEN
3240 006074 012700 000044 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
3241 006100 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
3242 006102 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
3243 006106 012702 000014 MOV #C.LINE,R2 ;OFFSET OF LINE ID IN CONTROL BLOCK
3244 006112 060502 ADD R5,R2 ;MAKE IT A DESTINATION ADDRESS
3245 006114 CALL MOVE ;PUT LINE ID IN CONTROL BLOCK
3246 006120 116400 000042 MOVB OPTION(R4),R0 ;NICE OPTION
3247 006124 116065 006046' 000021 MOVB LINMOD(R0),C.MODE(R5) ;LINE MODE ACCORDING TO OPTION
3248 006132 112765 000004 000020 MOVB #MXWAIT,C.WAIT(R5) ;MAXIMUM WAIT FOR RECEIVES
3249 006140 112765 177733 000006 MOVB #-C$OPLN,C.FUNC(R5) ;SET FUNCTION CODE TO OPEN LINE
3250 006146 ENDIF
3251 006146 IF ; FUNCTION CODE = OPEN LINE
3252 006146 FALSEB NE C.FUNC(R5),#C$OPLN
3253 006156 THEN
3254 006156 IF ; SUCCESS
3255 006156 FALSEB LT C.RET(R5)
3256 006164 THEN
3257 006164 116564 000020 000050 MOVB C.LUN(R5),LUN(R4) ;PUT LINE LUN IN CONTEXT
3258 006172 IF ; OPTION = LOAD AND PROGRAM TYPE = SECONDARY
3259 006172 FALSEB NE OPTION(R4),#LS$LOA
3260 006202 FALSEB SET PROTYP(R4)
3261 006210 THEN
3262 006210 012700 001046 MOV #SCBFLN,R0 ;BUFFER LENGTH FOR SECONDARY LOAD
3263 006214 ELSE
3264 006216 012700 000454 MOV #RGBFLN,R0 ;REGULAR BUFFER LENGTH
3265 006222 ENDIF
3266 006222 010065 000012 MOV R0,C.LEN(R5) ;PUT LENGTH IN CONTROL BLOCK
3267 006226 010064 000020 MOV R0,LNBFMX(R4) ;AND MAXIMUM LINE TRANSMIT BUFFER LENGTH
3268 006232 112765 177746 000006 MOVB #-C$ALBF,C.FUNC(R5) ;SET FUNCTION CODE TO ALLOCATE BUFFER
3269 006240 ELSE
3270 006242 IF ; FAILURE = LINE ID
3271 006242 FALSEB NE C.RET(R5),#CE$LID
3272 006252 THEN
3273 006252 012700 177770 MOV #NE$LID,R0 ;INVALID LINE ID
3274 006256 ELSE
3275 006260 012700 177767 MOV #NE$LST,R0 ;INVALID LINE STATE
3276 006264 ENDIF
3277 006264 CALL LSABRT ;GIVE IT UP
3278 006270 ENDIF
3279 006270 ENDIF
3280 006270 IF ; FUNCTION CODE = ALLOCATE BUFFER
3281 006270 FALSEB NE C.FUNC(R5),#C$ALBF
3282 006300 THEN
3283 006300 016564 000014 000014 MOV C.ADDR(R5),LNBFAD(R4) ;SAVE ADDRESS OF BUFFER IN CONTEXT
3284 006306 112765 177745 000006 MOVB #-C$ALCB,C.FUNC(R5) ;SET FUNCTION CODE TO ALLOCATE CONTROL BLOCK
3285 006314 IF ; OPERATION = TRIGGER WITHOUT PROGRAM REQUEST
3286 006314 FALSEB NE OPTION(R4),#LS$TRI
3287 006324 THEN
3288 006324 005065 000014 CLR C.ADDR(R5) ;NO CONTROL BLOCK ADDRESS
3289 006330 105465 000006 NEGB C.FUNC(R5) ;LOOK LIKE COMPLETED
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 42-1
LSSTAR
3290 006334 ENDIF
3291 006334 ENDIF
3292 006334 IF ; FUNCTION CODE = ALLOCATE CONTROL BLOCK
3293 006334 FALSEB NE C.FUNC(R5),#C$ALCB
3294 006344 THEN
3295 006344 016564 000014 000036 MOV C.ADDR(R5),RECCB(R4) ;SET RECEIVE CONTROL BLOCK ADDRESS
3296 006352 IF ; ADDRESS <> 0
3297 006352 FALSE EQ
3298 006354 THEN
3299 006354 010500 MOV R5,R0 ;OLD CONTROL BLOCK IS SOURCE
3300 006356 012701 000026 MOV #C$LEN,R1 ;LENGTH OF CONTROL BLOCK
3301 006362 016502 000014 MOV C.ADDR(R5),R2 ;NEW CONTROL BLOCK IS DESTINATION
3302 006366 CALL MOVE ;COPY OLD TO NEW
3303 006372 ENDIF
3304 006372 010564 000034 MOV R5,TRACB(R4) ;SET TRANSMIT CONTROL BLOCK ADDRESS
3306 006376 IF ; OPTION = LOAD OR DUMP
3307 006376 TRUEB EQ OPTION(R4),#LS$LOA
3308 006406 FALSEB NE OPTION(R4),#LS$DUM
3309 006416 THEN
3310 006416 016465 000002 000014 MOV CMBFAD(R4),C.ADDR(R5) ;ADDRESS OF COMMAND BUFFER
3311 006424 112775 000001 000014 MOVB #NS$SUC,@C.ADDR(R5) ;NICE SUCCESS RETURN INTO MESSAGE BUFFER
3312 006432 012765 000001 000012 MOV #1,C.LEN(R5) ;LENGTH OF 1
3313 006440 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;COMMAND LINK NUMBER
3314 006446 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
3315 006454 ELSE
3316 006456 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;LOOK LIKE TRANSMIT COMPLETED
3317 006464 ENDIF
3321 006464 ENDIF
3322 006464 IF ; FUNCTION CODE = TRANSMIT MESSAGE
3323 006464 FALSEB NE C.FUNC(R5),#C$TRMS
3324 006474 THEN
3325 006474 IF ; SUCCESS
3326 006474 FALSEB LT C.RET(R5)
3327 006502 THEN
3328 006502 116400 000042 MOVB OPTION(R4),R0 ;GET OPTION
3329 006506 116064 006053' 000040 MOVB PROSTA(R0),STATE(R4) ;GO TO NEXT STATE ACCORDING TO OPTION
3330 006514 156064 006060' 000043 BISB PROFLG(R0),FLAGS(R4) ;WITH FLAGS ACCORDING TO OPTION
3331 006522 105065 000006 CLRB C.FUNC(R5) ;AND INITIALIZED FUNCTION CODE
3332 006526 ELSE
3333 006530 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
3334 006534 CALL LSABRT ;NO MORE WORKEE
3335 006540 ENDIF
3336 006540 ENDIF
3337 006540 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
3338 006544 ENDPROC
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 43
LSTRLB
3340 .SBTTL LSTRLB
3341 ;
3342 ;======================================================================;
3343 ;++
3344 ; +-------------------------------------------------+
3345 ; I I
3346 ; I L S T R L B I
3347 ; I - - - - - - I
3348 ; I I
3349 ; +-------------------------------------------------+
3350 ;
3351 ; FUNCTION:
3352 ;
3353 ; LINE SERVICE MODULE TO SET UP LINE TRANSMIT CONTROL BLOCK
3354 ;
3355 ; INPUT:
3356 ;
3357 ; R4 - ADDRESS OF CONTEXT BLOCK
3358 ; FLAGS - PROCESSING FLAGS
3359 ; LNBFAD - ADDRESS OF LINE TRANSMIT BUFFER
3360 ; LNBFLN - LINE TRANSMIT BUFFER CONTENTS LENGTH
3361 ; LUN - LINE LOGICAL UNIT NUMBER
3362 ; R5 - ADDRESS OF CONTROL BLOCK
3363 ;
3364 ; OUTPUT:
3365 ;
3366 ; @R4 - UPDATED CONTEXT BLOCK
3367 ; FLAGS - PROCESSING FLAGS
3368 ; @R5 - UPDATED CONTROL BLOCK
3369 ; C.ADDR - ADDRESS OF BLOCK TO TRANSMIT
3370 ; C.FUNC - NEGATIVE TRANSMIT BLOCK FUNCTION CODE
3371 ; C.LEN - LENGTH OF BLOCK TO TRANSMIT
3372 ; C.LUN - LINE LOGICAL UNIT NUMBER
3373 ;
3374 ; REQUIREMENTS:
3375 ;
3376 ; LINE SERVICE SYMBOLS:
3377 ;
3378 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
3379 ; LNBFAD - OFFSET OF LINE TRANSMIT BUFFER ADDRESS IN CONTEXT
3380 ; LNBFLN - OFFSET OF LINE TRANSMIT BUFFER CONTENTS LENGTH IN CONTEXT
3381 ; LUN - OFFSET OF LINE LOGICAL UNIT NUMBER IN CONTEXT
3382 ; TRBKPN - TRANSMIT BLOCK PENDING FLAG MASK
3383 ;
3384 ; CONTROL BLOCK SYMBOLS:
3385 ;
3386 ; C.ADDR - OFFSET OF ADDRESS FIELD
3387 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
3388 ; C.LEN - OFFSET OF LENGTH FIELD
3389 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
3390 ; C$TRBK - TRANSMIT BLOCK FUNCTION CODE
3391 ;
3392 ;--
3393 ;======================================================================;
3394 ;
3395 ;
3396 ; EXTERNAL MACROS
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 43-1
LSTRLB
3397 ;
3398 .MCALL LSDF,CONDF
3399 ;
3400 ; DEFINE EXTERNAL SYMBOLS
3401 ;
3402 006546 LSDF ;LINE SERVICE SYMBOLS
3403 006546 CONDF ;CONTROL BLOCK SYMBOLS
3404 ;
3405 ; LOCAL PROCEDURE BODY
3406 ;
3407 006546 PROCLC LSTRLB
3408 006546 016465 000014 000014 MOV LNBFAD(R4),C.ADDR(R5) ;ADDRESS OF LINE BUFFER
3409 006554 016465 000016 000012 MOV LNBFLN(R4),C.LEN(R5) ;LENGTH OF MESSAGE IN IT
3410 006562 116465 000050 000020 MOVB LUN(R4),C.LUN(R5) ;PUT LINE LUN IN CONTROL BLOCK
3411 006570 112765 177732 000006 MOVB #-C$TRBK,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT LINE BLOCK
3412 006576 152764 000100 000043 BISB #TRBKPN,FLAGS(R4) ;SET LINE TRANSMIT PENDING FLAG
3413 006604 ENDPROC
3414 000001 .END
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 43-2
SYMBOL TABLE
A$$CHK= 000000 C$OPLK= 000051 DM$MIM= 000002 F$LOGD= 000001 K$$CSR= 177546
A$$CPS= 000000 C$OPLN= 000045 DM$PXA= 000003 F$LOOP= 000001 K$$LDC= 000000
A$$TRP= 000000 C$OPOR= 000057 DM$SAD= 000001 F$NTCM= 000000 K$$TPS= 000074
BOODEV 000066 C$OPOT= 000042 DUMP = 000003 F$OPCL= 000001 LD$LP = 000000
BOOPAS 000053 C$ORD = 000145 DUMSEG= 000400 F$OPCO= 000000 LG.MNT= ****** GX
BOOT = 000005 C$PROC= 000200 D$$BUG= 177514 F$OPIN= 000000 LINE 000044
BPSLEN= 000010 C$RCBK= 000047 D$$ISK= 000000 F$OPIR= 000000 LINMOD 006046R
CE$ACP= 177753 C$RCEV= 000050 D$$L11= 000001 F$OPLK= 000005 LI$KNO= 000000
CE$ADR= 177776 C$RCIN= 000062 EODREC= 000004 F$OPLN= 000002 LI$STA= 000001
CE$CON= 177770 C$RCMA= 000146 EXTCB = 000036 F$OPLO= 000000 LI$STR= 000002
CE$DIS= 177771 C$RCMS= 000054 FINISH= 000006 F$OPOR= 000000 LNBFAD 000014
CE$EOF= 177767 C$RDBK= 000043 FLAGS 000043 F$OPOT= 000000 LNBFLN 000016
CE$FAI= 177774 C$RDCM= 000035 FL$BOO= 000001 F$ORLU= 000000 LNBFMX 000020
CE$FIL= 177756 C$RDIN= 000040 FL$DUM= 000001 F$OTLU= 000001 LOAD = 000002
CE$FUN= 177777 C$RDIS= 000040 FL$LOA= 000001 F$RCBK= 000002 LOANUM 000052
CE$GEN= 177774 C$RDRC= 000060 FL$LOO= 000001 F$RCEV= 000001 LOCNOD= ****** GX
CE$IND= 177757 C$RLBF= 000001 FR$LCC= 000001 F$RCIN= 000000 LOGCN = ****** GX
CE$IO = 177760 C$RLCB= 000002 FR$LCS= 000001 F$RCMA= 000000 LOGDB = ****** GX
CE$LEN= 177775 C$RLCI= 000000 FR$LNC= 000001 F$RCMS= 000002 LOGDBE= ****** GX
CE$LID= 177766 C$STBK= 000055 FR$LNL= 000001 F$RDBK= 000000 LOOP = 000004
CE$LST= 177752 C$STPR= 000037 FR$LNS= 000001 F$RDCM= 000000 LSABRT 000000R
CE$NOD= 177765 C$STPS= 000037 FR$RMC= 000001 F$RDIN= 000001 LSASCD 000020R
CE$NSD= 177755 C$TRBK= 000046 FR$RML= 000001 F$RDIS= 000012 LSBOOT 000274R
CE$NST= 177754 C$TRIN= 000063 FR$RMS= 000001 F$RDRC= 000000 LSCKDM 000512R
CE$NWE= 177773 C$TRMA= 000145 FS$HOS= 000001 F$RECO= 000001 LSDUMP 001060R
CE$OBJ= 177750 C$TRMS= 000053 FS$INT= 000000 F$RLBF= 000001 LSFINI 001764R
CE$OPN= 177761 C$WRBK= 000044 FS$LLP= 000001 F$RLCB= 000001 LSINIT 002654R
CE$OVR= 177764 C$WRCL= 000065 FS$LOF= 000001 F$STBK= 000000 LSLDAD 003022R
CE$PAR= 177763 C$WRCM= 000036 FS$LOG= 000001 F$STPR= 000001 LSLDIM 003056R
CE$PRO= 177751 C$WRRC= 000061 FS$LST= 000001 F$STPS= 000006 LSLDLD 003262R
CE$REJ= 177772 C$ZRCN= 000064 FS$NET= 000001 F$TEST= 000001 LSLDPG 003414R
CE$TMO= 177762 C$$CKP= 000000 FS$NST= 000000 F$TRAC= 000000 LSLDPX 003454R
CMBFAD 000002 C$$ORE= 000400 FS$PAS= 000001 F$TRBK= 000001 LSLNSR 003630RG
CMLKNM 000000 C$$RSH= 177564 FT$CNS= 000000 F$TRIG= 000001 LSLOAD 004022R
COUNT 000004 C.ADDR= 000014 FT$NOD= 000001 F$TRIN= 000000 LSLOOP 004374R
CPUTYP 000065 C.BKNM= 000014 FT$TSK= 000001 F$TRMA= 000000 LSPARS 004636R
CS$ACK= 000002 C.CTXT= 000004 F$ALBF= 000001 F$TRMS= 000002 LSPRLB 005166R
CS$LKE= 000001 C.FUNC= 000006 F$ALCB= 000001 F$WRBK= 000000 LSRCDM 005506R
CS$LNA= 000002 C.LEN = 000012 F$CB = 000017 F$WRCL= 000001 LSRCLB 005540R
CS$LOG= 000003 C.LINE= 000014 F$CLCL= 000001 F$WRCM= 000000 LSRTCK 005600R
CS$NCH= 000003 C.LKNM= 000020 F$CLCO= 000000 F$WRRC= 000000 LSRTCM 005642R
CS$SUC= 000001 C.LUN = 000020 F$CLFL= 000000 F$ZERO= 000001 LSRTER 005740R
CTXTLN= 000111 C.MODE= 000021 F$CLLK= 000006 F$ZRCN= 000001 LSRTLB 006014R
C$ALBF= 000032 C.PRID= 000017 F$CLLN= 000002 F$$LVL= 000001 LSSTAR 006066R
C$ALCB= 000033 C.PROC= 000007 F$DPOS= 000001 F$150 = 000002 LSTRLB 006546R
C$CLCL= 000067 C.PROM= 000016 F$DUMP= 000000 F$300 = 000012 LS$DUM= 000002
C$CLCO= 000003 C.PTR = 000000 F$EVNT= 000001 F$50 = 000002 LS$LOA= 000000
C$CLFL= 000004 C.RET = 000010 F$EXAM= 000001 F$550 = 000002 LS$LOO= 000001
C$CLLK= 000052 C.SAVE= 000022 F$EXHO= 000000 GCMDSR= ****** GX LS$TRI= 000004
C$CLLN= 000005 C.SERV= 000002 F$GTCM= 000001 GTMSBY= ****** GX LS$TRQ= 000003
C$LEN = 000026 C.TASK= 000016 F$INCM= 000000 GTMSWD= ****** GX LUN 000050
C$NOPN= 000031 C.TYPE= 000016 F$INLU= 000001 G$$TPP= 000000 L$$ASG= 000000
C$NORD= 000032 C.WAIT= 000020 F$IRLU= 000000 G$$TSS= 000000 L$$DRV= 000000
C$OPCL= 000066 DATADR 000022 F$LKLU= 000010 G$$TTK= 000000 L$$P11= 000001
C$OPCO= 000034 DATLEN 000024 F$LNLU= 000002 I$$RAR= 000000 L$$11R= 000000
C$OPIN= 000041 DIALOG= 000001 F$LNSR= 000001 I$$RDN= 000000 L.GLEN= ****** GX
C$OPIR= 000056 DM$END= 000000 F$LOAD= 000000 K$$CNT= 177546 L.GSEQ= ****** GX
LSLNSR MACRO M1110 13-OCT-79 12:03 PAGE 43-3
SYMBOL TABLE
MEMADR 000010 NE$LID= 177770 N$LOGD= 000001 REQPRO 000067 SRLGTM= ****** GX
MF$DUM= 000002 NE$LPR= 177757 N$LOOP= 000005 RESADR 000026 START = 000001
MF$LOA= 000000 NE$LST= 177767 N$RDIN= 000010 RETCOD 000041 STATE 000040
MF$LOO= 000004 NE$NCO= 177755 N$STPR= 000007 RETRYS 000064 ST$DIS= 000006
MOVE = ****** GX NE$NIC= 177753 N$TEST= 000006 RGBFLN= 000454 ST$ENA= 000005
MVMSBY= ****** GX NE$NOD= 177765 N$TRIG= 000004 RI$LCC= 000001 ST$LOO= 000003
MVMSIM= ****** GX NE$NOR= 177754 N$ZERO= 000011 RI$LCS= 000002 ST$MAI= 000004
MXRTRY= 000005 NE$ORD= 177774 N$$USR= 000001 RI$LNC= 000007 ST$OFF= 000001
MXWAIT= 000004 NE$PAR= 177760 N.MLEN= 000454 RI$LNL= 000006 ST$ON = 000000
M$ASCD= 000034 NE$RES= 177761 OPTION 000042 RI$LNS= 000010 ST$SHU= 000002
M$DATA= 000016 NE$SER= 177764 ORIGCB= 000034 RI$RMC= 000004 S$$WRG= 000000
M$DUMP= 000004 NE$STA= 177775 PROFLG 006060R RI$RML= 000003 S$$YSZ= 001600
M$EMOP= 000006 NICE 000000R 002 PROSTA 006053R RI$RMS= 000005 TRACB 000034
M$LDTR= 000000 NL$BRC= 000001 PROTYP 000051 RI$ZLC= 000011 TRBKPN= 000100
M$LOAD= 000002 NL$BTR= 000002 PT$END= 000000 RI$ZLN= 000013 TRMSPN= 000020
M$LOOP= 000030 NL$RES= 000005 PT$HOS= 000003 RI$ZRM= 000012 T$$KMG= 000000
M$MRUN= 000014 NL$RLE= 000004 PT$NAM= 000001 R$$DER= 000000 T$$MIN= 000000
M$PARM= 000024 NL$RTR= 000003 PT$NUM= 000002 R$$K11= 000001 V$$CTR= 001000
M$RQLD= 000012 NL$TMO= 000006 P$DPOS= 000016 R$$SND= 000000 XFRSNT= 000002
M$RQPG= 000010 NL$ZRO= 000000 P$DUMP= 000003 R$$11M= 000000 X$$DBT= 000000
M$$CRB= 000124 NN$CAC= 000011 P$EVNT= 000011 SCBFLN= 001046 YES = 000001
M$$CRX= 000000 NN$CNI= 000013 P$EXAM= 000017 SIDLEN= 000020 $$CSTA= 000000
M$$FCS= 000000 NN$CNR= 000014 P$GTCM= 000001 SOFTID 000070 $$PRST= 000007
M$$OVR= 000000 NN$EXT= 000003 P$INCM= 000015 SPRAY = ****** GX $$STIX= 000777
ND$BAD= 177777 NN$FMT= 000005 P$LNSR= 000004 SP$DHO= 000003 $$STNM= 000000
ND$LCC= 000000 NN$IZS= 000007 P$LOAD= 000002 SP$DRP= 000007 $$S763= 000077
ND$LCS= 000001 NN$IZU= 000010 P$LOGD= 000020 SP$DTP= 000010 $$S764= 000020
ND$LNC= 000004 NN$MAC= 000012 P$LOOP= 000005 SP$LHO= 000002 $$S765= 000077
ND$LNS= 000005 NN$NKS= 000004 P$NTCM= 000014 SP$LLP= 000011 $$S766= 000016
ND$RMC= 000002 NN$RES= 000006 P$RDIN= 000010 SP$LNM= 000016 $$S767= 000077
ND$RMS= 000003 NN$UMR= 000002 P$STPR= 000007 SP$LNO= 000015 $$S770= 000015
ND$ZLC= 000000 NN$UMS= 000001 P$TEST= 000006 SP$LOF= 000012 $$S771= 000071
ND$ZLN= 000002 NN$ZRO= 000000 P$TRIG= 000012 SP$LST= 000001 $$S772= 000011
ND$ZRM= 000001 NO = 000000 P$ZERO= 000013 SP$NDM= 000014 $$S773= 000012
NE$CON= 177762 NS$SUC= 000001 P$$P45= 000000 SP$NDO= 000013 $$S774= 000077
NE$FIL= 177763 N$DPOS= 000014 RCBKPN= 000040 SP$NST= 000006 $$S775= 000022
NE$FIO= 177756 N$DUMP= 000003 RCMSPN= 000010 SP$RRP= 000004 $$S776= 000000
NE$FOR= 177776 N$EXAM= 000015 RECCB 000036 SP$RTP= 000005 $$S777= 000000
NE$FUN= 177777 N$LNSR= 000016 REQLEN 000032 SRBLCK= ****** GX $$TRNM= 000000
NE$LCO= 177766 N$LOAD= 000002 REQLOA= 000067
. ABS. 000111 000
006606 001
BYTE 000007 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 12433 WORDS ( 49 PAGES)
DYNAMIC MEMORY: 13228 WORDS ( 50 PAGES)
ELAPSED TIME: 00:07:57
LSLNSR,[135,30]LSLNSR/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,LSLNSR
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BOODEV 000066 14-1080 *34-2565
BOOPAS 000053 8-337 32-2409
BOOT = 000005 12-814 26-1892 41-3219 41-3220
BPSLEN = 000010 32-2408
CE$LID = 177766 42-3271
CE$TMO = 177762 39-3005
CMBFAD 000002 12-750 12-847 14-1054 14-1119 14-1138 14-1140 *14-1141 *16-1245 35-2689
36-2765 42-3310
CMLKNM 000000 12-739 12-856 14-1092 *16-1242 35-2690 42-3313
COUNT 000004 12-787 12-788 12-798 12-799 12-801 *12-843 *12-844 14-1068 14-1069
*30-2191 *32-2370 32-2398
CPUTYP 000065 *10-533
CTXTLN = 000111 16-1233 16-1240
C$ALBF = 000032 16-1234 28-2059 28-2062 42-3268 42-3281
C$ALCB = 000033 12-734 12-737 28-2041 28-2054 42-3284 42-3293
C$CLLN = 000005 14-1046 14-1048 14-1052
C$LEN = 000026 12-741 42-3300
C$NOPN = 000031 38-2933
C$OPLN = 000045 30-2166 30-2212 30-2215 42-3249 42-3252
C$PROC = 000200 6-242 8-333 12-815 16-1229 26-1856
C$RCBK = 000047 14-1009 36-2767 38-2918 39-3004
C$RCMS = 000054 12-747 12-764 14-1096 14-1121 28-1986 35-2691
C$RLBF = 000001 14-1127 14-1129 14-1135 26-1851
C$RLCB = 000002 14-1033 14-1035 14-1040
C$RLCI = 000000 14-1021 14-1113
C$TRBK = 000046 14-1002 38-2913 43-3411
C$TRMS = 000053 12-759 12-780 12-857 14-1093 14-1105 14-1108 42-3314 42-3316 42-3323
C.ADDR = 000014 6-196 6-239 10-488 12-742 12-744 *12-748 *12-751 12-757 12-770
*12-791 *12-848 12-854 *14-1032 *14-1055 14-1090 14-1101 *14-1119 *14-1126
*14-1140 *14-1143 16-1232 16-1236 *16-1244 16-1245 *19-1407 19-1411 19-1430
*24-1725 24-1729 24-1745 28-2056 28-2065 *28-2065 30-2179 32-2316 34-2511
*35-2689 *36-2765 42-3283 *42-3288 42-3295 42-3301 *42-3310 42-3311 *43-3408
C.CTXT = 000004 *6-243 14-1143 *14-1144 *16-1237 26-1846 *26-1857
C.FUNC = 000006 *5-135 *6-242 8-331 *8-393 12-732 *12-734 12-737 *12-747 *12-759
12-764 12-780 *12-815 *12-857 *12-870 14-1002 *14-1006 14-1009 *14-1013
14-1016 *14-1021 *14-1033 *14-1035 14-1040 *14-1046 *14-1048 14-1052 *14-1093
14-1096 *14-1105 14-1108 *14-1113 *14-1121 *14-1127 *14-1129 14-1135 *14-1146
*14-1148 16-1229 *16-1234 *16-1251 26-1851 *26-1856 28-1981 28-1986 *28-2041
28-2054 *28-2059 28-2062 *28-2071 30-2158 *30-2166 *30-2212 30-2215 *30-2226
*35-2691 *36-2767 38-2911 *38-2933 39-3004 *40-3074 42-3238 *42-3249 42-3252
*42-3268 42-3281 *42-3284 *42-3289 42-3293 *42-3314 *42-3316 42-3323 *42-3331
*42-3337 *43-3411
C.LEN = 000012 *6-240 10-490 *12-749 *12-758 12-769 *12-855 *14-1091 14-1100 *14-1120
16-1231 *16-1233 *16-1243 *28-2057 *28-2058 30-2177 32-2318 34-2513 *35-2688
*36-2764 *42-3266 *42-3312 *43-3409
C.LINE = 000014 42-3243
C.LKNM = 000020 *12-739 *12-856 *14-1092 16-1242 *35-2690 *42-3313
C.LUN = 000020 *14-1045 *36-2766 42-3257 *43-3410
C.MODE = 000021 *42-3247
C.PROC = 000007 *6-241 *26-1855
C.RET = 000010 8-382 10-482 12-768 12-784 14-1099 37-2838 37-2840 39-3005 42-3255
42-3271 42-3326
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
C.SAVE = 000022 12-748 *16-1231 *16-1232 16-1243 16-1244 *28-2056 28-2064
C.WAIT = 000020 *42-3248
DATADR 000022 6-234 *10-537 *10-551 12-851 19-1439 24-1738 30-2161 *32-2377 *34-2549
*34-2593
DATLEN 000024 6-235 *10-536 *10-549 *10-550 10-552 12-838 12-852 19-1424 19-1431
24-1732 28-2057 30-2162 *32-2376 *34-2552 *34-2601
DIALOG = 000001 14-1058 41-3226 41-3228
DM$END = 000000 10-498 12-770 14-1060 14-1101 28-1994
DM$MIM = 000002 10-521 12-849 28-2004
DM$PXA = 000003 10-543 28-2008
DM$SAD = 000001 10-502 12-752 28-2000
DUMP = 000003 26-1878 41-3218
DUMSEG = 000400 12-799 12-803
EODREC = 000004 12-772 14-1103 14-1117 28-1996 41-3227 41-3229 41-3229
FINISH = 000006 5-136 26-1898
FLAGS 000043 *12-761 *12-766 *12-772 *12-782 *12-858 *14-1005 *14-1012 14-1019 14-1058
*14-1103 14-1111 *14-1114 14-1117 21-1553 22-1630 *24-1759 *28-1996 *36-2768
*38-2915 *38-2920 38-2929 *42-3330 *43-3412
FL$BOO = 000001 #4-75 4-75 7-248 14-1072 26-1890 32-2403 34-2557
FL$DUM = 000001 #4-75 4-75 7-248 11-598 14-1056 26-1876 26-1890 32-2386 34-2538
42-3305
FL$LOA = 000001 #4-75 4-75 14-1056 14-1072 26-1869 27-1906 32-2351 34-2520 34-2557
42-3305
FL$LOO = 000001 #4-75 4-75 14-1064 26-1883 29-2075 32-2362
FR$LCC = 000001 #4-75 4-75
FR$LCS = 000001 #4-75 4-75
FR$LNC = 000001 #4-75 4-75
FR$LNL = 000001 #4-75 4-75
FR$LNS = 000001 #4-75 4-75
FR$RMC = 000001 #4-75 4-75
FR$RML = 000001 #4-75 4-75
FR$RMS = 000001 #4-75 4-75
FS$HOS = 000001 #4-75 4-75
FS$INT = 000000 #4-75 4-75 4-75 4-75
FS$LLP = 000001 #4-75 4-75
FS$LOF = 000001 #4-75 4-75
FS$LOG = 000001 #4-75 4-75
FS$LST = 000001 #4-75 4-75
FS$NET = 000001 #4-75 4-75
FS$NST = 000000 #4-75 4-75
FS$PAS = 000001 #4-75 4-75
FT$CNS = 000000 #4-75 4-75
FT$NOD = 000001 #4-75 4-75
FT$TSK = 000001 #4-75 4-75
F$ALBF = 000001 #4-75
F$ALCB = 000001 #4-75
F$CB = 000017 #4-75
F$CLCL = 000001 #4-75 4-75 #4-75
F$CLCO = 000000 #4-75
F$CLFL = 000000 #4-75
F$CLLK = 000006 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75 4-75 #4-75
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$CLLN = 000002 #4-75 4-75 #4-75 4-75 #4-75
F$DPOS = 000001 #4-75 4-75
F$DUMP = 000000 #4-75 4-75
F$EVNT = 000001 #4-75 4-75
F$EXAM = 000001 #4-75 4-75
F$EXHO = 000000 #4-75
F$GTCM = 000001 #4-75 4-75
F$INCM = 000000 #4-75 4-75
F$INLU = 000001 #4-75
F$IRLU = 000000 #4-75
F$LKLU = 000010 #4-75
F$LNLU = 000002 #4-75
F$LNSR = 000001 #4-75 4-75
F$LOAD = 000000 #4-75 4-75
F$LOGD = 000001 #4-75 4-75
F$LOOP = 000001 #4-75 4-75
F$NTCM = 000000 #4-75 4-75
F$OPCL = 000001 #4-75 4-75 #4-75
F$OPCO = 000000 #4-75
F$OPIN = 000000 #4-75
F$OPIR = 000000 #4-75
F$OPLK = 000005 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75
F$OPLN = 000002 #4-75 4-75 #4-75 4-75 #4-75
F$OPLO = 000000 #4-75
F$OPOR = 000000 #4-75
F$OPOT = 000000 #4-75
F$ORLU = 000000 #4-75
F$OTLU = 000001 #4-75
F$RCBK = 000002 #4-75 4-75 #4-75 4-75 #4-75
F$RCEV = 000001 #4-75 4-75 #4-75
F$RCIN = 000000 #4-75
F$RCMA = 000000 #4-75
F$RCMS = 000002 #4-75 4-75 #4-75
F$RDBK = 000000 #4-75
F$RDCM = 000000 #4-75
F$RDIN = 000001 #4-75 4-75
F$RDIS = 000012 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75
#4-75
F$RDRC = 000000 #4-75
F$RECO = 000001 #4-75 4-75 #4-75
F$RLBF = 000001 #4-75
F$RLCB = 000001 #4-75
F$STBK = 000000 #4-75
F$STPR = 000001 #4-75 4-75
F$STPS = 000006 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75 4-75 #4-75
F$TEST = 000001 #4-75 4-75
F$TRAC = 000000 #4-75 5-133 5-133 5-137 5-137 6-194 6-194 6-246 6-246
8-329 8-329 8-394 8-394 10-480 10-480 10-596 10-596 12-730
12-730 12-871 12-871 14-1000 14-1000 14-1149 14-1149 16-1227 16-1227
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
16-1256 16-1256 17-1310 17-1310 17-1320 17-1320 19-1406 19-1406 19-1452
19-1452 21-1536 21-1536 21-1572 21-1572 22-1628 22-1628 22-1638 22-1638
24-1724 24-1724 24-1762 24-1762 26-1845 26-1845 26-1904 26-1904 28-1979
28-1979 28-2072 28-2072 30-2156 30-2156 30-2227 30-2227 32-2314 32-2314
32-2426 32-2426 34-2509 34-2509 34-2620 34-2620 35-2687 35-2687 35-2692
35-2692 36-2763 36-2763 36-2769 36-2769 37-2835 37-2835 37-2847 37-2847
38-2909 38-2909 38-2937 38-2937 39-3002 39-3002 39-3014 39-3014 40-3071
40-3071 40-3078 40-3078 42-3236 42-3236 42-3338 42-3338 43-3407 43-3407
43-3413 43-3413
F$TRBK = 000001 #4-75 4-75 #4-75
F$TRIG = 000001 #4-75 4-75
F$TRIN = 000000 #4-75
F$TRMA = 000000 #4-75
F$TRMS = 000002 #4-75 4-75 #4-75
F$WRBK = 000000 #4-75
F$WRCL = 000001 #4-75 4-75 #4-75
F$WRCM = 000000 #4-75
F$WRRC = 000000 #4-75
F$ZERO = 000001 #4-75 4-75
F$ZRCN = 000001 #4-75 4-75 #4-75
F$150 = 000002 #4-75
F$300 = 000012 #4-75
F$50 = 000002 #4-75
F$550 = 000002 #4-75
GCMDSR = ****** GX *6-244
GTMSBY = ****** GX 10-491 10-523 10-545 32-2320 32-2329 32-2355 34-2514 34-2524 34-2529
34-2561 34-2567
GTMSWD = ****** GX 32-2366
I$$AS = ****** 5-133 6-194 8-329 10-480 12-730 14-1000 16-1227 17-1310 19-1406
21-1536 22-1628 24-1724 26-1845 28-1979 30-2156 32-2314 34-2509 35-2687
36-2763 37-2835 38-2909 39-3002 40-3071 42-3236 43-3407
LG.MNT = ****** GX 6-198 6-210
LINE 000044 6-229 32-2340 42-3240
LINMOD 006046 R #41-3205 42-3247
LI$STA = 000001 32-2334
LNBFAD 000014 8-335 8-346 12-790 12-809 14-1124 14-1126 19-1407 19-1447 24-1725
24-1757 30-2160 30-2164 30-2180 *42-3283 43-3408
LNBFLN 000016 *8-347 *12-810 *19-1448 *24-1758 *30-2165 30-2177 30-2181 43-3409
LNBFMX 000020 19-1434 24-1748 *42-3267
LOAD = 000002 26-1871 41-3216
LOANUM 000052 19-1419 21-1544 *21-1548 21-1550 24-1731
LOCNOD = ****** GX 6-202
LOGCN = ****** GX *6-245
LOGDB = ****** GX 6-207
LOGDBE = ****** GX 6-209 6-215
LOOP = 000004 26-1885 41-3217
LSABRT 000000 R #5-133 8-391 10-593 12-777 12-819 12-861 12-864 16-1253 17-1316
19-1437 21-1541 21-1562 21-1568 22-1637 24-1751 28-1998 28-2013 28-2044
28-2047 30-2223 39-3012 42-3277 42-3334
LSASCD 000020 R #6-194 28-2066
LSBOOT 000274 R #8-329 26-1894
LSCKDM 000512 R #10-480 28-1988
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
LSDUMP 001060 R #12-730 26-1880
LSFINI 001764 R #14-1000 26-1900
LSINIT 002654 R #16-1227 26-1853
LSLDAD 003022 R #17-1310 28-2002
LSLDIM 003056 R #19-1406 28-2006
LSLDLD 003262 R #21-1536 28-2033
LSLDPG 003414 R #22-1628 28-2037
LSLDPX 003454 R #24-1724 28-2010
LSLNSR 003630 RG #26-1845
LSLOAD 004022 R 26-1873 #28-1979
LSLOOP 004374 R 26-1887 #30-2156
LSPARS 004636 R 16-1246 #32-2314
LSPRLB 005166 R 8-367 12-830 28-2025 #34-2509
LSRCDM 005506 R 17-1318 19-1445 21-1564 28-1983 #35-2687
LSRCLB 005540 R 28-2069 #36-2763 40-3077
LSRTCK 005600 R 8-363 12-826 28-2021 30-2172 #37-2835
LSRTCM 005642 R 8-356 12-822 28-2017 30-2168 #38-2909
LSRTER 005740 R 12-867 28-2050 #39-3002
LSRTLB 006014 R 8-351 12-811 19-1449 21-1546 24-1760 30-2220 39-3009 #40-3071
LSSTAR 006066 R 26-1867 #42-3236
LSTRLB 006546 R 8-353 40-3073 #43-3407
LS$DUM = 000002 32-2388 42-3308
LS$LOA = 000000 14-1077 32-2353 42-3259 42-3307
LS$LOO = 000001 14-1066 32-2364
LS$TRI = 000004 12-813 32-2406 42-3286
LS$TRQ = 000003 8-349 8-361 14-1076 32-2405
LUN 000050 14-1043 14-1045 36-2766 *42-3257 43-3410
L.GLEN = ****** GX 6-212
L.GSEQ = ****** GX 6-217 *6-218
MEMADR 000010 10-505 10-512 10-554 10-561 12-753 12-793 12-839 12-840 *12-845
*12-846 19-1420 *19-1424 *19-1425 24-1753 32-2391
MOVE = ****** GX 6-206 6-232 6-237 8-345 12-743 12-756 12-796 12-853 14-1087
19-1423 19-1440 24-1739 24-1756 30-2163 34-2583 42-3245 42-3302
MVMSBY = ****** GX 10-507 10-556 32-2342 32-2393 32-2400 34-2545
MVMSIM = ****** GX 32-2411
MXRTRY = 000005 39-3006
MXWAIT = 000004 42-3248
M$ASCD = 000034 28-2039 34-2591
M$DATA = 000016 12-837 34-2540
M$DUMP = 000004 12-792
M$EMOP = 000006 8-336
M$LDTR = 000000 19-1415
M$LOAD = 000002 19-1417
M$PARM = 000024 24-1730
M$RQLD = 000012 28-2031 34-2522
M$RQPG = 000010 8-372 28-2035 34-2559
NE$FOR = 177776 10-585 32-2422
NE$FUN = 177777 32-2414
NE$LCO = 177766 8-388 30-2210 37-2844 39-3011
NE$LID = 177770 42-3273
NE$LPR = 177757 8-376 12-860 21-1560 21-1567 22-1635 28-2043 30-2207 34-2617
NE$LST = 177767 42-3275
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
NE$NCO = 177755 10-484 12-818 42-3333
NE$ORD = 177774 10-571 12-775 17-1315 28-2012
NE$PAR = 177760 10-516 10-530 10-565 21-1540 32-2336 32-2381
NE$RES = 177761 19-1436 24-1750
NICE 000000 R #6-189 6-204
NO = 000000 #4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75
NS$SUC = 000001 8-374 8-386 21-1558 22-1633 30-2195 42-3311
N.MLEN = 000454 14-1120 35-2688 36-2764
OPTION 000042 8-349 8-361 *12-813 14-1066 14-1076 14-1077 *32-2324 32-2350 42-3246
42-3259 42-3286 42-3307 42-3308 42-3328
PROFLG 006060 R #41-3224 42-3330
PROSTA 006053 R #41-3214 42-3329
PROTYP 000051 14-1078 17-1312 19-1413 19-1442 21-1556 22-1631 *32-2359 42-3260
P$GTCM = 000001 26-1855
P$LOGD = 000020 6-241
RCBKPN = 000040 14-1012 14-1019 36-2768 38-2920 38-2929
RCMSPN = 000010 12-761 12-766 14-1111 14-1114
RECCB 000036 *14-1011 14-1024 14-1028 14-1032 28-2067 37-2839 40-3075 *42-3295
REQLEN 000032 *12-805 12-838 12-842
REQLOA = 000067 21-1544 21-1550 *34-2528
REQPRO 000067 14-1082 *34-2571
RESADR 000026 12-839 12-840 17-1313 19-1409 19-1427 *19-1444 24-1727 24-1742 34-2543
RETCOD 000041 *5-134 14-1063 14-1075 21-1538 *30-2195 *30-2207 *30-2210 30-2218 30-2222
*34-2535
RETRYS 000064 *37-2842 39-3006 *39-3008
RGBFLN = 000454 42-3264
R$$11D = ****** 5-133 6-194 8-329 10-480 12-730 14-1000 16-1227 17-1310 19-1406
21-1536 22-1628 24-1724 26-1845 28-1979 30-2156 32-2314 34-2509 35-2687
36-2763 37-2835 38-2909 39-3002 40-3071 42-3236 43-3407
R$$11M = 000000 5-133 6-194 8-329 10-480 12-730 14-1000 16-1227 17-1310 19-1406
21-1536 22-1628 24-1724 26-1845 28-1979 30-2156 32-2314 34-2509 35-2687
36-2763 37-2835 38-2909 39-3002 40-3071 42-3236 43-3407
SCBFLN = 001046 42-3262
SIDLEN = 000020 34-2575
SOFTID 000070 14-1083 14-1084 *34-2579 34-2581
SPRAY = ****** GX 16-1241
SRBLCK = ****** GX 8-385
SRLGTM = ****** GX 6-225
START = 000001 16-1250 26-1865
STATE 000040 *5-136 *12-814 *16-1250 26-1865 26-1871 26-1878 26-1885 26-1892 26-1898
*42-3329
TRACB 000034 *14-1004 14-1025 14-1030 37-2837 40-3072 40-3076 *42-3304
TRBKPN = 000100 14-1005 14-1019 38-2915 38-2929 43-3412
TRMSPN = 000020 12-761 12-782 12-858 14-1111 14-1114
XFRSNT = 000002 21-1553 22-1630 24-1759
YES = 000001 #4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75
$$CSTA = 000000 #5-133 #6-194 #8-329 #10-480 *10-496 #10-496 10-497 #10-497 10-501
10-520 10-542 #10-573 #12-730 #14-1000 #16-1227 #17-1310 #19-1406 #21-1536
#22-1628 #24-1724 #26-1845 #28-1979 28-1992 #28-1992 28-1993 #28-1993 28-1999
28-2003 28-2007 #28-2014 28-2029 #28-2029 28-2030 #28-2030 28-2034 28-2038
#28-2045 #30-2156 #32-2314 32-2349 #32-2349 32-2352 #32-2352 32-2363 32-2387
32-2404 #32-2416 #34-2509 *34-2519 #34-2519 34-2521 #34-2521 34-2539 34-2558
34-2590 #34-2605 #35-2687 #36-2763 #37-2835 #38-2909 38-2910 #38-2910 38-2912
#38-2912 38-2917 #38-2924 #39-3002 #40-3071 #42-3236 #43-3407
$$PRST = 000007 #5-133 #6-194 *6-208 #6-208 6-214 #6-214 #8-329 8-330 #8-330
*8-340 #8-340 *8-348 #8-348 8-357 #8-357 8-360 #8-360 8-364
#8-364 8-368 #8-368 8-371 #8-371 8-381 #8-381 #10-480 10-481
#10-481 10-492 #10-492 *10-496 #10-496 10-508 #10-508 10-511 #10-511
10-524 #10-524 10-527 #10-527 10-546 #10-546 10-557 #10-557 10-560
#10-560 10-574 #10-574 10-581 #10-581 10-590 #10-590 #12-730 12-731
#12-731 12-736 #12-736 12-763 #12-763 *12-767 #12-767 12-779 #12-779
*12-783 #12-783 12-786 #12-786 12-797 #12-797 12-823 #12-823 12-827
#12-827 12-831 #12-831 12-834 #12-834 #14-1000 14-1001 #14-1001 14-1008
#14-1008 14-1015 #14-1015 14-1018 #14-1018 14-1023 #14-1023 14-1027 #14-1027
14-1039 #14-1039 14-1042 #14-1042 14-1051 #14-1051 14-1057 #14-1057 14-1065
#14-1065 14-1073 #14-1073 14-1095 #14-1095 14-1098 #14-1098 14-1107 #14-1107
14-1110 #14-1110 14-1116 #14-1116 14-1123 #14-1123 14-1134 #14-1134 14-1137
#14-1137 #16-1227 16-1228 #16-1228 16-1247 #16-1247 #17-1310 17-1311 #17-1311
#19-1406 *19-1408 #19-1408 *19-1412 #19-1412 19-1433 #19-1433 19-1441 #19-1441
#21-1536 21-1537 #21-1537 21-1543 #21-1543 21-1549 #21-1549 21-1552 #21-1552
21-1555 #21-1555 #22-1628 22-1629 #22-1629 #24-1724 *24-1726 #24-1726 *24-1733
#24-1733 24-1747 #24-1747 #26-1845 *26-1847 #26-1847 26-1850 #26-1850 26-1861
#26-1861 26-1864 #26-1864 26-1870 #26-1870 26-1877 #26-1877 26-1884 #26-1884
26-1891 #26-1891 26-1897 #26-1897 #28-1979 28-1980 #28-1980 28-1985 #28-1985
28-1989 #28-1989 28-1992 #28-1992 28-2018 #28-2018 28-2022 #28-2022 28-2026
#28-2026 28-2029 #28-2029 28-2053 #28-2053 28-2061 #28-2061 #30-2156 30-2157
#30-2157 30-2169 #30-2169 30-2173 #30-2173 30-2176 #30-2176 *30-2182 #30-2182
30-2188 #30-2188 30-2192 #30-2192 30-2204 #30-2204 30-2214 #30-2214 30-2217
#30-2217 #32-2314 32-2321 #32-2321 32-2326 #32-2326 32-2330 #32-2330 32-2333
#32-2333 32-2346 #32-2346 32-2349 #32-2349 32-2356 #32-2356 32-2367 #32-2367
32-2373 #32-2373 32-2394 #32-2394 32-2418 #32-2418 #34-2509 34-2515 #34-2515
*34-2519 #34-2519 34-2525 #34-2525 34-2530 #34-2530 34-2546 #34-2546 34-2562
#34-2562 34-2568 #34-2568 34-2574 #34-2574 34-2596 #34-2596 *34-2607 #34-2607
34-2614 #34-2614 #35-2687 #36-2763 #37-2835 37-2836 #37-2836 #38-2909 38-2910
#38-2910 38-2925 #38-2925 38-2928 #38-2928 #39-3002 39-3003 #39-3003 #40-3071
#42-3236 42-3237 #42-3237 42-3251 #42-3251 42-3254 #42-3254 *42-3258 #42-3258
42-3270 #42-3270 42-3280 #42-3280 *42-3285 #42-3285 42-3292 #42-3292 *42-3296
#42-3296 42-3306 #42-3306 42-3322 #42-3322 42-3325 #42-3325 #43-3407
$$SLST = ****** 5-133 5-137 6-194 6-208 6-209 6-209 6-210 6-210 6-211
6-213 6-213 6-215 6-215 6-216 6-219 6-219 6-221 6-246
8-329 8-332 8-333 8-333 8-334 8-341 8-342 8-344 8-349
8-349 8-350 8-352 8-352 8-354 8-355 8-358 8-359 8-361
8-361 8-362 8-365 8-366 8-369 8-370 8-372 8-372 8-373
8-375 8-375 8-377 8-378 8-379 8-380 8-380 8-382 8-382
8-383 8-387 8-387 8-389 8-390 8-392 8-394 10-480 10-482
10-482 10-483 10-486 10-486 10-493 10-494 10-498 10-498 10-499
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
10-501 10-501 10-502 10-502 10-503 10-509 10-510 10-512 10-512
10-513 10-515 10-515 10-518 10-519 10-520 10-520 10-521 10-521
10-522 10-525 10-526 10-528 10-528 10-529 10-532 10-532 10-540
10-541 10-542 10-542 10-543 10-543 10-544 10-547 10-548 10-558
10-559 10-561 10-561 10-562 10-564 10-564 10-567 10-568 10-569
10-570 10-570 10-573 10-575 10-576 10-578 10-580 10-582 10-583
10-583 10-584 10-587 10-589 10-591 10-592 10-595 10-596 12-730
12-732 12-732 12-733 12-735 12-737 12-737 12-738 12-762 12-764
12-764 12-765 12-768 12-768 12-769 12-769 12-770 12-770 12-771
12-774 12-774 12-776 12-778 12-780 12-780 12-781 12-784 12-784
12-785 12-787 12-787 12-788 12-788 12-789 12-798 12-798 12-799
12-799 12-800 12-802 12-802 12-804 12-812 12-812 12-816 12-817
12-817 12-820 12-821 12-824 12-825 12-828 12-829 12-832 12-833
12-837 12-837 12-838 12-838 12-839 12-839 12-840 12-840 12-841
12-859 12-859 12-862 12-863 12-863 12-865 12-866 12-866 12-868
12-869 12-871 14-1000 14-1002 14-1002 14-1003 14-1007 14-1009 14-1009
14-1010 14-1014 14-1016 14-1016 14-1017 14-1019 14-1019 14-1020 14-1022
14-1022 14-1024 14-1024 14-1025 14-1025 14-1026 14-1028 14-1028 14-1029
14-1031 14-1034 14-1034 14-1036 14-1037 14-1038 14-1040 14-1040 14-1041
14-1043 14-1043 14-1044 14-1047 14-1047 14-1049 14-1050 14-1052 14-1052
14-1053 14-1058 14-1058 14-1059 14-1061 14-1066 14-1066 14-1067 14-1070
14-1075 14-1075 14-1076 14-1076 14-1077 14-1077 14-1078 14-1078 14-1079
14-1088 14-1094 14-1096 14-1096 14-1097 14-1099 14-1099 14-1100 14-1100
14-1101 14-1101 14-1102 14-1104 14-1106 14-1108 14-1108 14-1109 14-1111
14-1111 14-1112 14-1115 14-1115 14-1117 14-1117 14-1118 14-1122 14-1122
14-1124 14-1124 14-1125 14-1128 14-1128 14-1130 14-1131 14-1132 14-1133
14-1135 14-1135 14-1136 14-1138 14-1138 14-1139 14-1142 14-1142 14-1145
14-1147 14-1149 16-1227 16-1229 16-1229 16-1230 16-1235 16-1235 16-1248
16-1249 16-1252 16-1252 16-1254 16-1255 16-1256 17-1310 17-1312 17-1312
17-1313 17-1313 17-1314 17-1317 17-1317 17-1319 17-1320 19-1406 19-1409
19-1409 19-1410 19-1413 19-1413 19-1414 19-1416 19-1416 19-1418 19-1426
19-1426 19-1428 19-1434 19-1434 19-1435 19-1438 19-1438 19-1442 19-1442
19-1443 19-1446 19-1446 19-1450 19-1451 19-1452 21-1536 21-1538 21-1538
21-1539 21-1542 21-1542 21-1544 21-1544 21-1545 21-1547 21-1547 21-1550
21-1550 21-1551 21-1553 21-1553 21-1554 21-1556 21-1556 21-1557 21-1559
21-1559 21-1561 21-1563 21-1563 21-1565 21-1566 21-1566 21-1569 21-1570
21-1571 21-1572 22-1628 22-1630 22-1630 22-1631 22-1631 22-1632 22-1634
22-1634 22-1636 22-1638 24-1724 24-1727 24-1727 24-1728 24-1734 24-1735
24-1737 24-1737 24-1740 24-1741 24-1741 24-1743 24-1748 24-1748 24-1749
24-1752 24-1752 24-1761 24-1762 26-1845 26-1848 26-1848 26-1849 26-1851
26-1851 26-1852 26-1854 26-1854 26-1859 26-1860 26-1862 26-1862 26-1863
26-1865 26-1865 26-1866 26-1868 26-1871 26-1871 26-1872 26-1874 26-1878
26-1878 26-1879 26-1881 26-1885 26-1885 26-1886 26-1888 26-1892 26-1892
26-1893 26-1895 26-1898 26-1898 26-1899 26-1901 26-1902 26-1904 28-1979
28-1981 28-1981 28-1982 28-1984 28-1986 28-1986 28-1987 28-1990 28-1991
28-1994 28-1994 28-1995 28-1999 28-1999 28-2000 28-2000 28-2001 28-2003
28-2003 28-2004 28-2004 28-2005 28-2007 28-2007 28-2008 28-2008 28-2009
28-2011 28-2011 28-2014 28-2015 28-2016 28-2019 28-2020 28-2023 28-2024
28-2027 28-2028 28-2031 28-2031 28-2032 28-2034 28-2034 28-2035 28-2035
28-2036 28-2038 28-2038 28-2039 28-2039 28-2040 28-2042 28-2042 28-2045
28-2046 28-2046 28-2048 28-2049 28-2049 28-2051 28-2052 28-2054 28-2054
28-2055 28-2060 28-2062 28-2062 28-2063 28-2070 28-2072 30-2156 30-2158
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
30-2158 30-2159 30-2167 30-2170 30-2171 30-2174 30-2175 30-2177 30-2177
30-2178 30-2182 30-2183 30-2183 30-2184 30-2184 30-2185 30-2187 30-2187
30-2189 30-2189 30-2190 30-2193 30-2194 30-2196 30-2198 30-2198 30-2200
30-2201 30-2201 30-2203 30-2205 30-2206 30-2208 30-2209 30-2209 30-2211
30-2213 30-2215 30-2215 30-2216 30-2218 30-2218 30-2219 30-2221 30-2221
30-2224 30-2225 30-2227 32-2314 32-2322 32-2323 32-2325 32-2327 32-2328
32-2331 32-2332 32-2334 32-2334 32-2335 32-2338 32-2338 32-2343 32-2344
32-2345 32-2347 32-2348 32-2353 32-2353 32-2354 32-2357 32-2358 32-2360
32-2363 32-2363 32-2364 32-2364 32-2365 32-2368 32-2369 32-2374 32-2375
32-2380 32-2380 32-2383 32-2384 32-2387 32-2387 32-2388 32-2388 32-2389
32-2395 32-2396 32-2401 32-2404 32-2404 32-2405 32-2405 32-2406 32-2406
32-2407 32-2413 32-2413 32-2416 32-2417 32-2419 32-2420 32-2420 32-2421
32-2424 32-2426 34-2509 34-2516 34-2517 34-2522 34-2522 34-2523 34-2526
34-2527 34-2531 34-2532 34-2534 34-2536 34-2539 34-2539 34-2540 34-2540
34-2541 34-2547 34-2548 34-2555 34-2558 34-2558 34-2559 34-2559 34-2560
34-2563 34-2564 34-2569 34-2570 34-2575 34-2575 34-2576 34-2578 34-2578
34-2586 34-2587 34-2588 34-2590 34-2590 34-2591 34-2591 34-2592 34-2597
34-2597 34-2598 34-2600 34-2603 34-2603 34-2605 34-2608 34-2609 34-2609
34-2610 34-2612 34-2613 34-2615 34-2616 34-2618 34-2620 35-2687 35-2692
36-2763 36-2769 37-2835 37-2838 37-2838 37-2840 37-2840 37-2841 37-2843
37-2843 37-2846 37-2847 38-2909 38-2913 38-2913 38-2914 38-2917 38-2917
38-2918 38-2918 38-2919 38-2922 38-2922 38-2924 38-2926 38-2927 38-2929
38-2929 38-2930 38-2932 38-2932 38-2935 38-2936 38-2937 39-3002 39-3004
39-3004 39-3005 39-3005 39-3006 39-3006 39-3007 39-3010 39-3010 39-3013
39-3014 40-3071 40-3078 42-3236 42-3238 42-3238 42-3239 42-3250 42-3252
42-3252 42-3253 42-3255 42-3255 42-3256 42-3259 42-3259 42-3260 42-3260
42-3261 42-3263 42-3263 42-3265 42-3269 42-3269 42-3271 42-3271 42-3272
42-3274 42-3274 42-3276 42-3278 42-3279 42-3281 42-3281 42-3282 42-3286
42-3286 42-3287 42-3290 42-3291 42-3293 42-3293 42-3294 42-3297 42-3298
42-3303 42-3307 42-3307 42-3308 42-3308 42-3309 42-3315 42-3315 42-3317
42-3321 42-3323 42-3323 42-3324 42-3326 42-3326 42-3327 42-3332 42-3332
42-3335 42-3336 42-3338 43-3407 43-3413
$$STIX = 000777 #5-133 #6-194 *6-208 *6-208 #6-208 *6-208 *6-208 #6-208 6-213
#6-213 6-213 6-213 #6-213 6-213 6-214 6-214 #6-214 6-214
6-214 #6-214 6-221 #6-221 6-221 6-221 #6-221 6-221 #8-329
8-330 8-330 #8-330 8-330 8-330 #8-330 *8-340 *8-340 #8-340
*8-340 *8-340 #8-340 8-344 #8-344 8-344 8-344 #8-344 8-344
*8-348 *8-348 #8-348 *8-348 *8-348 #8-348 8-354 #8-354 8-354
8-354 #8-354 8-354 8-355 #8-355 8-355 8-355 #8-355 8-355
8-357 8-357 #8-357 8-357 8-357 #8-357 8-360 8-360 #8-360
8-360 8-360 #8-360 8-364 8-364 #8-364 8-364 8-364 #8-364
8-368 8-368 #8-368 8-368 8-368 #8-368 8-371 8-371 #8-371
8-371 8-371 #8-371 8-377 #8-377 8-377 8-377 #8-377 8-377
8-378 #8-378 8-378 8-378 #8-378 8-378 8-379 #8-379 8-379
8-379 #8-379 8-379 8-381 8-381 #8-381 8-381 8-381 #8-381
8-389 #8-389 8-389 8-389 #8-389 8-389 8-390 #8-390 8-390
8-390 #8-390 8-390 8-392 #8-392 8-392 8-392 #8-392 8-392
#10-480 10-481 10-481 #10-481 10-481 10-481 #10-481 10-492 10-492
#10-492 10-492 10-492 #10-492 *10-496 *10-496 #10-496 *10-496 *10-496
#10-496 *10-496 *10-496 #10-496 10-508 10-508 #10-508 10-508 10-508
#10-508 10-511 10-511 #10-511 10-511 10-511 #10-511 10-518 #10-518
10-518 10-518 #10-518 10-518 10-519 #10-519 10-519 10-519 #10-519
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
10-519 10-524 10-524 #10-524 10-524 10-524 #10-524 10-527 10-527
#10-527 10-527 10-527 #10-527 10-540 #10-540 10-540 10-540 #10-540
10-540 10-541 #10-541 10-541 10-541 #10-541 10-541 10-546 10-546
#10-546 10-546 10-546 #10-546 10-557 10-557 #10-557 10-557 10-557
#10-557 10-560 10-560 #10-560 10-560 10-560 #10-560 10-567 #10-567
10-567 10-567 #10-567 10-567 10-568 #10-568 10-568 10-568 #10-568
10-568 10-569 #10-569 10-569 10-569 #10-569 10-569 10-573 #10-573
10-573 10-573 #10-573 10-573 10-573 #10-573 10-573 10-574 10-574
#10-574 10-574 10-574 #10-574 10-578 #10-578 10-578 10-578 #10-578
10-578 10-580 #10-580 10-580 10-580 #10-580 10-580 10-581 10-581
#10-581 10-581 10-581 #10-581 10-587 #10-587 10-587 10-587 #10-587
10-587 10-589 #10-589 10-589 10-589 #10-589 10-589 10-590 10-590
#10-590 10-590 10-590 #10-590 10-595 #10-595 10-595 10-595 #10-595
10-595 #12-730 12-731 12-731 #12-731 12-731 12-731 #12-731 12-735
#12-735 12-735 12-735 #12-735 12-735 12-736 12-736 #12-736 12-736
12-736 #12-736 12-762 #12-762 12-762 12-762 #12-762 12-762 12-763
12-763 #12-763 12-763 12-763 #12-763 *12-767 *12-767 #12-767 *12-767
*12-767 #12-767 12-776 #12-776 12-776 12-776 #12-776 12-776 12-778
#12-778 12-778 12-778 #12-778 12-778 12-779 12-779 #12-779 12-779
12-779 #12-779 *12-783 *12-783 #12-783 *12-783 *12-783 #12-783 12-786
12-786 #12-786 12-786 12-786 #12-786 12-797 12-797 #12-797 12-797
12-797 #12-797 12-804 #12-804 12-804 12-804 #12-804 12-804 12-816
#12-816 12-816 12-816 #12-816 12-816 12-820 #12-820 12-820 12-820
#12-820 12-820 12-821 #12-821 12-821 12-821 #12-821 12-821 12-823
12-823 #12-823 12-823 12-823 #12-823 12-827 12-827 #12-827 12-827
12-827 #12-827 12-831 12-831 #12-831 12-831 12-831 #12-831 12-834
12-834 #12-834 12-834 12-834 #12-834 12-862 #12-862 12-862 12-862
#12-862 12-862 12-865 #12-865 12-865 12-865 #12-865 12-865 12-868
#12-868 12-868 12-868 #12-868 12-868 12-869 #12-869 12-869 12-869
#12-869 12-869 #14-1000 14-1001 14-1001 #14-1001 14-1001 14-1001 #14-1001
14-1007 #14-1007 14-1007 14-1007 #14-1007 14-1007 14-1008 14-1008 #14-1008
14-1008 14-1008 #14-1008 14-1014 #14-1014 14-1014 14-1014 #14-1014 14-1014
14-1015 14-1015 #14-1015 14-1015 14-1015 #14-1015 14-1018 14-1018 #14-1018
14-1018 14-1018 #14-1018 14-1023 14-1023 #14-1023 14-1023 14-1023 #14-1023
14-1027 14-1027 #14-1027 14-1027 14-1027 #14-1027 14-1031 #14-1031 14-1031
14-1031 #14-1031 14-1031 14-1036 #14-1036 14-1036 14-1036 #14-1036 14-1036
14-1037 #14-1037 14-1037 14-1037 #14-1037 14-1037 14-1038 #14-1038 14-1038
14-1038 #14-1038 14-1038 14-1039 14-1039 #14-1039 14-1039 14-1039 #14-1039
14-1042 14-1042 #14-1042 14-1042 14-1042 #14-1042 14-1049 #14-1049 14-1049
14-1049 #14-1049 14-1049 14-1050 #14-1050 14-1050 14-1050 #14-1050 14-1050
14-1051 14-1051 #14-1051 14-1051 14-1051 #14-1051 14-1057 14-1057 #14-1057
14-1057 14-1057 #14-1057 14-1061 #14-1061 14-1061 14-1061 #14-1061 14-1061
14-1065 14-1065 #14-1065 14-1065 14-1065 #14-1065 14-1070 #14-1070 14-1070
14-1070 #14-1070 14-1070 14-1073 14-1073 #14-1073 14-1073 14-1073 #14-1073
14-1088 #14-1088 14-1088 14-1088 #14-1088 14-1088 14-1094 #14-1094 14-1094
14-1094 #14-1094 14-1094 14-1095 14-1095 #14-1095 14-1095 14-1095 #14-1095
14-1098 14-1098 #14-1098 14-1098 14-1098 #14-1098 14-1104 #14-1104 14-1104
14-1104 #14-1104 14-1104 14-1106 #14-1106 14-1106 14-1106 #14-1106 14-1106
14-1107 14-1107 #14-1107 14-1107 14-1107 #14-1107 14-1110 14-1110 #14-1110
14-1110 14-1110 #14-1110 14-1116 14-1116 #14-1116 14-1116 14-1116 #14-1116
14-1123 14-1123 #14-1123 14-1123 14-1123 #14-1123 14-1130 #14-1130 14-1130
14-1130 #14-1130 14-1130 14-1131 #14-1131 14-1131 14-1131 #14-1131 14-1131
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
14-1132 #14-1132 14-1132 14-1132 #14-1132 14-1132 14-1133 #14-1133 14-1133
14-1133 #14-1133 14-1133 14-1134 14-1134 #14-1134 14-1134 14-1134 #14-1134
14-1137 14-1137 #14-1137 14-1137 14-1137 #14-1137 14-1145 #14-1145 14-1145
14-1145 #14-1145 14-1145 14-1147 #14-1147 14-1147 14-1147 #14-1147 14-1147
#16-1227 16-1228 16-1228 #16-1228 16-1228 16-1228 #16-1228 16-1247 16-1247
#16-1247 16-1247 16-1247 #16-1247 16-1254 #16-1254 16-1254 16-1254 #16-1254
16-1254 16-1255 #16-1255 16-1255 16-1255 #16-1255 16-1255 #17-1310 17-1311
17-1311 #17-1311 17-1311 17-1311 #17-1311 17-1319 #17-1319 17-1319 17-1319
#17-1319 17-1319 #19-1406 *19-1408 *19-1408 #19-1408 *19-1408 *19-1408 #19-1408
*19-1412 *19-1412 #19-1412 *19-1412 *19-1412 #19-1412 19-1418 #19-1418 19-1418
19-1418 #19-1418 19-1418 19-1428 #19-1428 19-1428 19-1428 #19-1428 19-1428
19-1433 19-1433 #19-1433 19-1433 19-1433 #19-1433 19-1441 19-1441 #19-1441
19-1441 19-1441 #19-1441 19-1450 #19-1450 19-1450 19-1450 #19-1450 19-1450
19-1451 #19-1451 19-1451 19-1451 #19-1451 19-1451 #21-1536 21-1537 21-1537
#21-1537 21-1537 21-1537 #21-1537 21-1543 21-1543 #21-1543 21-1543 21-1543
#21-1543 21-1549 21-1549 #21-1549 21-1549 21-1549 #21-1549 21-1552 21-1552
#21-1552 21-1552 21-1552 #21-1552 21-1555 21-1555 #21-1555 21-1555 21-1555
#21-1555 21-1561 #21-1561 21-1561 21-1561 #21-1561 21-1561 21-1565 #21-1565
21-1565 21-1565 #21-1565 21-1565 21-1569 #21-1569 21-1569 21-1569 #21-1569
21-1569 21-1570 #21-1570 21-1570 21-1570 #21-1570 21-1570 21-1571 #21-1571
21-1571 21-1571 #21-1571 21-1571 #22-1628 22-1629 22-1629 #22-1629 22-1629
22-1629 #22-1629 22-1636 #22-1636 22-1636 22-1636 #22-1636 22-1636 #24-1724
*24-1726 *24-1726 #24-1726 *24-1726 *24-1726 #24-1726 *24-1733 *24-1733 #24-1733
*24-1733 *24-1733 #24-1733 24-1740 #24-1740 24-1740 24-1740 #24-1740 24-1740
24-1743 #24-1743 24-1743 24-1743 #24-1743 24-1743 24-1747 24-1747 #24-1747
24-1747 24-1747 #24-1747 24-1761 #24-1761 24-1761 24-1761 #24-1761 24-1761
#26-1845 *26-1847 *26-1847 #26-1847 *26-1847 *26-1847 #26-1847 26-1850 26-1850
#26-1850 26-1850 26-1850 #26-1850 26-1859 #26-1859 26-1859 26-1859 #26-1859
26-1859 26-1860 #26-1860 26-1860 26-1860 #26-1860 26-1860 26-1861 26-1861
#26-1861 26-1861 26-1861 #26-1861 26-1864 26-1864 #26-1864 26-1864 26-1864
#26-1864 26-1868 #26-1868 26-1868 26-1868 #26-1868 26-1868 26-1870 26-1870
#26-1870 26-1870 26-1870 #26-1870 26-1874 #26-1874 26-1874 26-1874 #26-1874
26-1874 26-1877 26-1877 #26-1877 26-1877 26-1877 #26-1877 26-1881 #26-1881
26-1881 26-1881 #26-1881 26-1881 26-1884 26-1884 #26-1884 26-1884 26-1884
#26-1884 26-1888 #26-1888 26-1888 26-1888 #26-1888 26-1888 26-1891 26-1891
#26-1891 26-1891 26-1891 #26-1891 26-1895 #26-1895 26-1895 26-1895 #26-1895
26-1895 26-1897 26-1897 #26-1897 26-1897 26-1897 #26-1897 26-1901 #26-1901
26-1901 26-1901 #26-1901 26-1901 26-1902 #26-1902 26-1902 26-1902 #26-1902
26-1902 #28-1979 28-1980 28-1980 #28-1980 28-1980 28-1980 #28-1980 28-1984
#28-1984 28-1984 28-1984 #28-1984 28-1984 28-1985 28-1985 #28-1985 28-1985
28-1985 #28-1985 28-1989 28-1989 #28-1989 28-1989 28-1989 #28-1989 28-1992
28-1992 #28-1992 28-1992 28-1992 #28-1992 28-1992 28-1992 #28-1992 28-2014
#28-2014 28-2014 28-2014 #28-2014 28-2014 28-2014 #28-2014 28-2014 28-2015
#28-2015 28-2015 28-2015 #28-2015 28-2015 28-2016 #28-2016 28-2016 28-2016
#28-2016 28-2016 28-2018 28-2018 #28-2018 28-2018 28-2018 #28-2018 28-2022
28-2022 #28-2022 28-2022 28-2022 #28-2022 28-2026 28-2026 #28-2026 28-2026
28-2026 #28-2026 28-2029 28-2029 #28-2029 28-2029 28-2029 #28-2029 28-2029
28-2029 #28-2029 28-2045 #28-2045 28-2045 28-2045 #28-2045 28-2045 28-2045
#28-2045 28-2045 28-2048 #28-2048 28-2048 28-2048 #28-2048 28-2048 28-2051
#28-2051 28-2051 28-2051 #28-2051 28-2051 28-2052 #28-2052 28-2052 28-2052
#28-2052 28-2052 28-2053 28-2053 #28-2053 28-2053 28-2053 #28-2053 28-2060
#28-2060 28-2060 28-2060 #28-2060 28-2060 28-2061 28-2061 #28-2061 28-2061
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
28-2061 #28-2061 28-2070 #28-2070 28-2070 28-2070 #28-2070 28-2070 #30-2156
30-2157 30-2157 #30-2157 30-2157 30-2157 #30-2157 30-2167 #30-2167 30-2167
30-2167 #30-2167 30-2167 30-2169 30-2169 #30-2169 30-2169 30-2169 #30-2169
30-2173 30-2173 #30-2173 30-2173 30-2173 #30-2173 30-2176 30-2176 #30-2176
30-2176 30-2176 #30-2176 *30-2182 *30-2182 #30-2182 *30-2182 *30-2182 #30-2182
30-2187 #30-2187 30-2187 30-2187 #30-2187 30-2187 30-2188 30-2188 #30-2188
30-2188 30-2188 #30-2188 30-2192 30-2192 #30-2192 30-2192 30-2192 #30-2192
30-2196 #30-2196 30-2196 30-2196 #30-2196 30-2196 30-2200 #30-2200 30-2200
30-2200 #30-2200 30-2200 30-2203 #30-2203 30-2203 30-2203 #30-2203 30-2203
30-2204 30-2204 #30-2204 30-2204 30-2204 #30-2204 30-2208 #30-2208 30-2208
30-2208 #30-2208 30-2208 30-2211 #30-2211 30-2211 30-2211 #30-2211 30-2211
30-2213 #30-2213 30-2213 30-2213 #30-2213 30-2213 30-2214 30-2214 #30-2214
30-2214 30-2214 #30-2214 30-2217 30-2217 #30-2217 30-2217 30-2217 #30-2217
30-2224 #30-2224 30-2224 30-2224 #30-2224 30-2224 30-2225 #30-2225 30-2225
30-2225 #30-2225 30-2225 #32-2314 32-2321 32-2321 #32-2321 32-2321 32-2321
#32-2321 32-2325 #32-2325 32-2325 32-2325 #32-2325 32-2325 32-2326 32-2326
#32-2326 32-2326 32-2326 #32-2326 32-2330 32-2330 #32-2330 32-2330 32-2330
#32-2330 32-2333 32-2333 #32-2333 32-2333 32-2333 #32-2333 32-2343 #32-2343
32-2343 32-2343 #32-2343 32-2343 32-2344 #32-2344 32-2344 32-2344 #32-2344
32-2344 32-2345 #32-2345 32-2345 32-2345 #32-2345 32-2345 32-2346 32-2346
#32-2346 32-2346 32-2346 #32-2346 32-2349 32-2349 #32-2349 32-2349 32-2349
#32-2349 32-2349 32-2349 #32-2349 32-2356 32-2356 #32-2356 32-2356 32-2356
#32-2356 32-2360 #32-2360 32-2360 32-2360 #32-2360 32-2360 32-2367 32-2367
#32-2367 32-2367 32-2367 #32-2367 32-2373 32-2373 #32-2373 32-2373 32-2373
#32-2373 32-2383 #32-2383 32-2383 32-2383 #32-2383 32-2383 32-2384 #32-2384
32-2384 32-2384 #32-2384 32-2384 32-2394 32-2394 #32-2394 32-2394 32-2394
#32-2394 32-2401 #32-2401 32-2401 32-2401 #32-2401 32-2401 32-2416 #32-2416
32-2416 32-2416 #32-2416 32-2416 32-2416 #32-2416 32-2416 32-2417 #32-2417
32-2417 32-2417 #32-2417 32-2417 32-2418 32-2418 #32-2418 32-2418 32-2418
#32-2418 32-2424 #32-2424 32-2424 32-2424 #32-2424 32-2424 #34-2509 34-2515
34-2515 #34-2515 34-2515 34-2515 #34-2515 *34-2519 *34-2519 #34-2519 *34-2519
*34-2519 #34-2519 *34-2519 *34-2519 #34-2519 34-2525 34-2525 #34-2525 34-2525
34-2525 #34-2525 34-2530 34-2530 #34-2530 34-2530 34-2530 #34-2530 34-2534
#34-2534 34-2534 34-2534 #34-2534 34-2534 34-2536 #34-2536 34-2536 34-2536
#34-2536 34-2536 34-2546 34-2546 #34-2546 34-2546 34-2546 #34-2546 34-2555
#34-2555 34-2555 34-2555 #34-2555 34-2555 34-2562 34-2562 #34-2562 34-2562
34-2562 #34-2562 34-2568 34-2568 #34-2568 34-2568 34-2568 #34-2568 34-2574
34-2574 #34-2574 34-2574 34-2574 #34-2574 34-2586 #34-2586 34-2586 34-2586
#34-2586 34-2586 34-2587 #34-2587 34-2587 34-2587 #34-2587 34-2587 34-2588
#34-2588 34-2588 34-2588 #34-2588 34-2588 34-2596 34-2596 #34-2596 34-2596
34-2596 #34-2596 34-2600 #34-2600 34-2600 34-2600 #34-2600 34-2600 34-2605
#34-2605 34-2605 34-2605 #34-2605 34-2605 34-2605 #34-2605 34-2605 *34-2607
*34-2607 #34-2607 *34-2607 *34-2607 #34-2607 34-2612 #34-2612 34-2612 34-2612
#34-2612 34-2612 34-2613 #34-2613 34-2613 34-2613 #34-2613 34-2613 34-2614
34-2614 #34-2614 34-2614 34-2614 #34-2614 34-2618 #34-2618 34-2618 34-2618
#34-2618 34-2618 #35-2687 #36-2763 #37-2835 37-2836 37-2836 #37-2836 37-2836
37-2836 #37-2836 37-2846 #37-2846 37-2846 37-2846 #37-2846 37-2846 #38-2909
38-2910 38-2910 #38-2910 38-2910 38-2910 #38-2910 38-2910 38-2910 #38-2910
38-2924 #38-2924 38-2924 38-2924 #38-2924 38-2924 38-2924 #38-2924 38-2924
38-2925 38-2925 #38-2925 38-2925 38-2925 #38-2925 38-2928 38-2928 #38-2928
38-2928 38-2928 #38-2928 38-2935 #38-2935 38-2935 38-2935 #38-2935 38-2935
38-2936 #38-2936 38-2936 38-2936 #38-2936 38-2936 #39-3002 39-3003 39-3003
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#39-3003 39-3003 39-3003 #39-3003 39-3013 #39-3013 39-3013 39-3013 #39-3013
39-3013 #40-3071 #42-3236 42-3237 42-3237 #42-3237 42-3237 42-3237 #42-3237
42-3250 #42-3250 42-3250 42-3250 #42-3250 42-3250 42-3251 42-3251 #42-3251
42-3251 42-3251 #42-3251 42-3254 42-3254 #42-3254 42-3254 42-3254 #42-3254
*42-3258 *42-3258 #42-3258 *42-3258 *42-3258 #42-3258 42-3265 #42-3265 42-3265
42-3265 #42-3265 42-3265 42-3270 42-3270 #42-3270 42-3270 42-3270 #42-3270
42-3276 #42-3276 42-3276 42-3276 #42-3276 42-3276 42-3278 #42-3278 42-3278
42-3278 #42-3278 42-3278 42-3279 #42-3279 42-3279 42-3279 #42-3279 42-3279
42-3280 42-3280 #42-3280 42-3280 42-3280 #42-3280 *42-3285 *42-3285 #42-3285
*42-3285 *42-3285 #42-3285 42-3290 #42-3290 42-3290 42-3290 #42-3290 42-3290
42-3291 #42-3291 42-3291 42-3291 #42-3291 42-3291 42-3292 42-3292 #42-3292
42-3292 42-3292 #42-3292 *42-3296 *42-3296 #42-3296 *42-3296 *42-3296 #42-3296
42-3303 #42-3303 42-3303 42-3303 #42-3303 42-3303 42-3306 42-3306 #42-3306
42-3306 42-3306 #42-3306 42-3317 #42-3317 42-3317 42-3317 #42-3317 42-3317
42-3321 #42-3321 42-3321 42-3321 #42-3321 42-3321 42-3322 42-3322 #42-3322
42-3322 42-3322 #42-3322 42-3325 42-3325 #42-3325 42-3325 42-3325 #42-3325
42-3335 #42-3335 42-3335 42-3335 #42-3335 42-3335 42-3336 #42-3336 42-3336
42-3336 #42-3336 42-3336 #43-3407
$$STNM = 000000 #5-133 #6-194 *6-208 #6-208 *6-208 *6-208 6-209 6-210 6-211
6-213 6-213 #6-213 6-214 #6-214 6-214 6-215 6-216 6-219
6-219 6-221 #6-221 #8-329 8-330 #8-330 8-330 8-332 8-333
8-334 *8-340 #8-340 *8-340 8-341 8-342 *8-344 #8-344 *8-348
#8-348 *8-348 8-349 8-350 8-352 8-352 8-354 #8-354 8-355
#8-355 8-357 #8-357 8-357 8-358 8-359 8-360 #8-360 8-360
8-361 8-362 8-364 #8-364 8-364 8-365 8-366 8-368 #8-368
8-368 8-369 8-370 8-371 #8-371 8-371 8-372 8-373 *8-375
8-375 *8-377 #8-377 8-378 #8-378 8-379 #8-379 8-380 8-380
8-381 #8-381 8-381 8-382 8-383 *8-387 8-387 *8-389 #8-389
8-390 #8-390 8-392 #8-392 #10-480 10-481 #10-481 10-481 10-482
10-483 10-486 10-486 10-492 #10-492 10-492 10-493 10-494 *10-496
#10-496 *10-496 10-498 10-499 10-501 10-501 10-502 10-503 10-508
#10-508 10-508 10-509 10-510 10-511 #10-511 10-511 10-512 10-513
10-515 10-515 10-518 #10-518 10-519 #10-519 10-520 10-520 10-521
10-522 10-524 #10-524 10-524 10-525 10-526 10-527 #10-527 10-527
10-528 10-529 10-532 10-532 10-540 #10-540 10-541 #10-541 10-542
10-542 10-543 10-544 10-546 #10-546 10-546 10-547 10-548 10-557
#10-557 10-557 10-558 10-559 10-560 #10-560 10-560 10-561 10-562
10-564 10-564 10-567 #10-567 10-568 #10-568 10-569 #10-569 10-570
10-570 10-573 #10-573 10-574 #10-574 10-574 10-575 10-576 *10-578
#10-578 *10-580 #10-580 10-581 #10-581 10-581 10-582 10-583 10-584
10-587 #10-587 *10-589 #10-589 10-590 #10-590 10-590 10-591 10-592
10-595 #10-595 #12-730 12-731 #12-731 12-731 12-732 12-733 *12-735
#12-735 12-736 #12-736 12-736 12-737 12-738 *12-762 #12-762 12-763
#12-763 12-763 12-764 12-765 *12-767 #12-767 *12-767 12-768 12-769
12-770 12-771 12-774 12-774 *12-776 #12-776 12-778 #12-778 12-779
#12-779 12-779 12-780 12-781 *12-783 #12-783 *12-783 12-784 12-785
12-786 #12-786 12-786 12-787 12-788 12-789 12-797 #12-797 12-797
12-798 12-799 12-800 *12-802 12-802 *12-804 #12-804 12-812 12-812
*12-816 #12-816 12-817 12-817 12-820 #12-820 12-821 #12-821 12-823
#12-823 12-823 12-824 12-825 12-827 #12-827 12-827 12-828 12-829
12-831 #12-831 12-831 12-832 12-833 12-834 #12-834 12-834 12-837
12-838 12-839 12-840 12-841 *12-859 12-859 12-862 #12-862 12-863
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
12-863 12-865 #12-865 12-866 12-866 12-868 #12-868 12-869 #12-869
#14-1000 14-1001 #14-1001 14-1001 14-1002 14-1003 14-1007 #14-1007 14-1008
#14-1008 14-1008 14-1009 14-1010 14-1014 #14-1014 14-1015 #14-1015 14-1015
14-1016 14-1017 14-1018 #14-1018 14-1018 14-1019 14-1020 *14-1022 14-1022
14-1023 #14-1023 14-1023 14-1024 14-1025 14-1026 14-1027 #14-1027 14-1027
14-1028 14-1029 *14-1031 #14-1031 *14-1034 14-1034 *14-1036 #14-1036 14-1037
#14-1037 14-1038 #14-1038 14-1039 #14-1039 14-1039 14-1040 14-1041 14-1042
#14-1042 14-1042 14-1043 14-1044 *14-1047 14-1047 *14-1049 #14-1049 14-1050
#14-1050 14-1051 #14-1051 14-1051 14-1052 14-1053 14-1057 #14-1057 14-1057
14-1058 14-1059 *14-1061 #14-1061 14-1065 #14-1065 14-1065 14-1066 14-1067
*14-1070 #14-1070 14-1073 #14-1073 14-1073 14-1075 14-1076 14-1077 14-1078
14-1079 14-1088 #14-1088 *14-1094 #14-1094 14-1095 #14-1095 14-1095 14-1096
14-1097 14-1098 #14-1098 14-1098 14-1099 14-1100 14-1101 14-1102 *14-1104
#14-1104 *14-1106 #14-1106 14-1107 #14-1107 14-1107 14-1108 14-1109 14-1110
#14-1110 14-1110 14-1111 14-1112 *14-1115 14-1115 14-1116 #14-1116 14-1116
14-1117 14-1118 *14-1122 14-1122 14-1123 #14-1123 14-1123 14-1124 14-1125
*14-1128 14-1128 *14-1130 #14-1130 14-1131 #14-1131 14-1132 #14-1132 14-1133
#14-1133 14-1134 #14-1134 14-1134 14-1135 14-1136 14-1137 #14-1137 14-1137
14-1138 14-1139 14-1142 14-1142 14-1145 #14-1145 14-1147 #14-1147 #16-1227
16-1228 #16-1228 16-1228 16-1229 16-1230 *16-1235 16-1235 16-1247 #16-1247
16-1247 16-1248 16-1249 16-1252 16-1252 16-1254 #16-1254 16-1255 #16-1255
#17-1310 17-1311 #17-1311 17-1311 17-1312 17-1313 17-1314 17-1317 17-1317
17-1319 #17-1319 #19-1406 *19-1408 #19-1408 *19-1408 19-1409 19-1410 *19-1412
#19-1412 *19-1412 19-1413 19-1414 *19-1416 19-1416 *19-1418 #19-1418 19-1426
19-1426 *19-1428 #19-1428 19-1433 #19-1433 19-1433 19-1434 19-1435 19-1438
19-1438 19-1441 #19-1441 19-1441 19-1442 19-1443 19-1446 19-1446 19-1450
#19-1450 19-1451 #19-1451 #21-1536 21-1537 #21-1537 21-1537 21-1538 21-1539
21-1542 21-1542 21-1543 #21-1543 21-1543 21-1544 21-1545 21-1547 21-1547
21-1549 #21-1549 21-1549 21-1550 21-1551 21-1552 #21-1552 21-1552 21-1553
21-1554 21-1555 #21-1555 21-1555 21-1556 21-1557 *21-1559 21-1559 *21-1561
#21-1561 21-1563 21-1563 21-1565 #21-1565 21-1566 21-1566 21-1569 #21-1569
21-1570 #21-1570 21-1571 #21-1571 #22-1628 22-1629 #22-1629 22-1629 22-1630
22-1631 22-1632 *22-1634 22-1634 *22-1636 #22-1636 #24-1724 *24-1726 #24-1726
*24-1726 24-1727 24-1728 *24-1733 #24-1733 *24-1733 24-1734 24-1735 24-1737
24-1737 24-1740 #24-1740 24-1741 24-1741 *24-1743 #24-1743 24-1747 #24-1747
24-1747 24-1748 24-1749 24-1752 24-1752 24-1761 #24-1761 #26-1845 *26-1847
#26-1847 *26-1847 26-1848 26-1849 26-1850 #26-1850 26-1850 26-1851 26-1852
26-1854 26-1854 26-1859 #26-1859 26-1860 #26-1860 26-1861 #26-1861 26-1861
26-1862 26-1863 26-1864 #26-1864 26-1864 26-1865 26-1866 26-1868 #26-1868
26-1870 #26-1870 26-1870 26-1871 26-1872 26-1874 #26-1874 26-1877 #26-1877
26-1877 26-1878 26-1879 26-1881 #26-1881 26-1884 #26-1884 26-1884 26-1885
26-1886 26-1888 #26-1888 26-1891 #26-1891 26-1891 26-1892 26-1893 26-1895
#26-1895 26-1897 #26-1897 26-1897 26-1898 26-1899 26-1901 #26-1901 26-1902
#26-1902 #28-1979 28-1980 #28-1980 28-1980 28-1981 28-1982 28-1984 #28-1984
28-1985 #28-1985 28-1985 28-1986 28-1987 28-1989 #28-1989 28-1989 28-1990
28-1991 28-1992 #28-1992 28-1992 28-1994 28-1995 28-1999 28-1999 28-2000
28-2001 28-2003 28-2003 28-2004 28-2005 28-2007 28-2007 28-2008 28-2009
28-2011 28-2011 28-2014 #28-2014 28-2015 #28-2015 28-2016 #28-2016 28-2018
#28-2018 28-2018 28-2019 28-2020 28-2022 #28-2022 28-2022 28-2023 28-2024
28-2026 #28-2026 28-2026 28-2027 28-2028 28-2029 #28-2029 28-2029 28-2031
28-2032 28-2034 28-2034 28-2035 28-2036 28-2038 28-2038 28-2039 28-2040
*28-2042 28-2042 28-2045 #28-2045 28-2046 28-2046 28-2048 #28-2048 28-2049
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 15
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
28-2049 28-2051 #28-2051 28-2052 #28-2052 28-2053 #28-2053 28-2053 28-2054
28-2055 *28-2060 #28-2060 28-2061 #28-2061 28-2061 28-2062 28-2063 28-2070
#28-2070 #30-2156 30-2157 #30-2157 30-2157 30-2158 30-2159 *30-2167 #30-2167
30-2169 #30-2169 30-2169 30-2170 30-2171 30-2173 #30-2173 30-2173 30-2174
30-2175 30-2176 #30-2176 30-2176 30-2177 30-2178 *30-2182 #30-2182 *30-2182
*30-2182 30-2183 30-2184 30-2185 30-2187 30-2187 #30-2187 30-2188 #30-2188
30-2188 30-2189 30-2190 30-2192 #30-2192 30-2192 30-2193 30-2194 *30-2196
#30-2196 30-2198 30-2198 30-2200 #30-2200 30-2201 30-2201 30-2203 #30-2203
30-2204 #30-2204 30-2204 30-2205 30-2206 *30-2208 #30-2208 30-2209 30-2209
*30-2211 #30-2211 *30-2213 #30-2213 30-2214 #30-2214 30-2214 30-2215 30-2216
30-2217 #30-2217 30-2217 30-2218 30-2219 30-2221 30-2221 30-2224 #30-2224
30-2225 #30-2225 #32-2314 32-2321 #32-2321 32-2321 32-2322 32-2323 *32-2325
#32-2325 32-2326 #32-2326 32-2326 32-2327 32-2328 32-2330 #32-2330 32-2330
32-2331 32-2332 32-2333 #32-2333 32-2333 32-2334 32-2335 32-2338 32-2338
32-2343 #32-2343 32-2344 #32-2344 32-2345 #32-2345 32-2346 #32-2346 32-2346
32-2347 32-2348 32-2349 #32-2349 32-2349 32-2353 32-2354 32-2356 #32-2356
32-2356 32-2357 32-2358 *32-2360 #32-2360 32-2363 32-2363 32-2364 32-2365
32-2367 #32-2367 32-2367 32-2368 32-2369 32-2373 #32-2373 32-2373 32-2374
32-2375 32-2380 32-2380 32-2383 #32-2383 32-2384 #32-2384 32-2387 32-2387
32-2388 32-2389 32-2394 #32-2394 32-2394 32-2395 32-2396 32-2401 #32-2401
32-2404 32-2404 32-2405 32-2406 32-2407 32-2413 32-2413 32-2416 #32-2416
32-2417 #32-2417 32-2418 #32-2418 32-2418 32-2419 32-2420 32-2421 32-2424
#32-2424 #34-2509 34-2515 #34-2515 34-2515 34-2516 34-2517 *34-2519 #34-2519
*34-2519 34-2522 34-2523 34-2525 #34-2525 34-2525 34-2526 34-2527 34-2530
#34-2530 34-2530 34-2531 34-2532 34-2534 #34-2534 *34-2536 #34-2536 34-2539
34-2539 34-2540 34-2541 34-2546 #34-2546 34-2546 34-2547 34-2548 34-2555
#34-2555 34-2558 34-2558 34-2559 34-2560 34-2562 #34-2562 34-2562 34-2563
34-2564 34-2568 #34-2568 34-2568 34-2569 34-2570 34-2574 #34-2574 34-2574
34-2575 34-2576 34-2578 34-2578 34-2586 #34-2586 34-2587 #34-2587 34-2588
#34-2588 34-2590 34-2590 34-2591 34-2592 34-2596 #34-2596 34-2596 34-2597
34-2598 *34-2600 #34-2600 34-2603 34-2603 34-2605 #34-2605 *34-2607 #34-2607
*34-2607 34-2608 34-2609 34-2610 34-2612 #34-2612 34-2613 #34-2613 34-2614
#34-2614 34-2614 34-2615 34-2616 *34-2618 #34-2618 #35-2687 #36-2763 #37-2835
37-2836 #37-2836 37-2836 37-2838 37-2840 37-2841 37-2843 37-2843 37-2846
#37-2846 #38-2909 38-2910 #38-2910 38-2910 38-2913 38-2914 38-2917 38-2917
38-2918 38-2919 38-2922 38-2922 38-2924 #38-2924 38-2925 #38-2925 38-2925
38-2926 38-2927 38-2928 #38-2928 38-2928 38-2929 38-2930 38-2932 38-2932
38-2935 #38-2935 38-2936 #38-2936 #39-3002 39-3003 #39-3003 39-3003 39-3004
39-3005 39-3006 39-3007 39-3010 39-3010 39-3013 #39-3013 #40-3071 #42-3236
42-3237 #42-3237 42-3237 42-3238 42-3239 *42-3250 #42-3250 42-3251 #42-3251
42-3251 42-3252 42-3253 42-3254 #42-3254 42-3254 42-3255 42-3256 *42-3258
#42-3258 *42-3258 42-3259 42-3260 42-3261 *42-3263 42-3263 *42-3265 #42-3265
*42-3269 42-3269 42-3270 #42-3270 42-3270 42-3271 42-3272 *42-3274 42-3274
*42-3276 #42-3276 42-3278 #42-3278 42-3279 #42-3279 42-3280 #42-3280 42-3280
42-3281 42-3282 *42-3285 #42-3285 *42-3285 42-3286 42-3287 42-3290 #42-3290
42-3291 #42-3291 42-3292 #42-3292 42-3292 42-3293 42-3294 *42-3296 #42-3296
*42-3296 42-3297 42-3298 42-3303 #42-3303 42-3306 #42-3306 42-3306 42-3307
42-3308 42-3309 *42-3315 42-3315 *42-3317 #42-3317 42-3321 #42-3321 42-3322
#42-3322 42-3322 42-3323 42-3324 42-3325 #42-3325 42-3325 42-3326 42-3327
42-3332 42-3332 42-3335 #42-3335 42-3336 #42-3336 #43-3407
$$S763 = 000077 #10-560 10-567
$$S764 = 000020 #10-560 10-567
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 16
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$S765 = 000077 #10-511 10-518 #10-527 10-540 #10-557 10-568 #34-2574 34-2586
$$S766 = 000016 #8-371 8-377 #10-511 10-518 #10-527 10-540 #10-557 10-568 #21-1555
21-1561 #30-2192 30-2196 #34-2574 34-2586
$$S767 = 000077 #8-371 8-377 #10-508 10-519 #10-524 10-541 #10-546 10-569 #21-1555
21-1561 #28-2029 28-2045 #30-2192 30-2196 #32-2373 32-2383 #34-2530 34-2534
#34-2568 34-2587
$$S770 = 000015 #8-368 8-378 #10-508 10-519 #10-524 10-541 #10-546 10-569 #12-797
12-804 #12-834 12-862 #14-1027 14-1031 #14-1123 14-1130 #21-1552 21-1565
#28-2029 28-2045 #30-2182 30-2187 #30-2188 30-2200 #32-2373 32-2383 #34-2530
34-2534 #34-2568 34-2587
$$S771 = 000071 #8-368 8-378 #10-496 10-573 #12-797 12-804 #12-834 12-862 #14-1027
14-1031 #14-1123 14-1130 #21-1552 21-1565 #28-1992 28-2014 #28-2029 28-2045
#30-2182 30-2187 #30-2188 30-2200 #32-2356 32-2360 #32-2367 32-2384 #32-2394
32-2401 #34-2525 34-2536 #34-2546 34-2555 #34-2562 34-2588 #34-2596 34-2600
$$S772 = 000011 #8-364 8-379 #8-381 8-389 #10-496 10-573 #10-574 10-578 #12-786
12-816 #12-831 12-865 #14-1023 14-1036 #14-1116 14-1131 #21-1549 21-1569
#28-1992 28-2014 #28-2026 28-2048 #30-2176 30-2203 #30-2204 30-2208 #32-2333
32-2343 #32-2356 32-2360 #32-2367 32-2384 #32-2394 32-2401 #34-2525 34-2536
#34-2546 34-2555 #34-2562 34-2588 #34-2596 34-2600 #42-3258 42-3265 #42-3270
42-3276
$$S773 = 000012 #8-364 8-379 #8-381 8-389 #10-496 10-573 #10-574 10-578 #12-786
12-816 #12-831 12-865 #14-1023 14-1036 #14-1116 14-1131 #21-1549 21-1569
#28-1992 28-2014 #28-2026 28-2048 #30-2176 30-2203 #30-2204 30-2208 #32-2333
32-2343 #32-2349 32-2416 #34-2519 34-2605 #42-3258 42-3265 #42-3270 42-3276
$$S774 = 000077 #8-340 8-344 #8-348 8-354 #8-360 8-390 #10-492 10-580 #10-581
10-587 #12-767 12-776 #12-783 12-820 #12-827 12-868 #14-1018 14-1037
#14-1042 14-1049 #14-1057 14-1061 #14-1065 14-1070 #14-1073 14-1088 #14-1098
14-1104 #14-1110 14-1132 #14-1137 14-1145 #16-1247 16-1254 #19-1412 19-1418
#19-1441 19-1450 #21-1543 21-1570 #24-1733 24-1740 #26-1850 26-1859 #26-1864
26-1868 #26-1870 26-1874 #26-1877 26-1881 #26-1884 26-1888 #26-1891 26-1895
#26-1897 26-1901 #28-1989 28-2015 #28-2022 28-2051 #30-2173 30-2211 #30-2217
30-2224 #32-2330 32-2344 #32-2349 32-2416 #34-2519 34-2605 #34-2607 34-2612
#38-2928 38-2935 #42-3254 42-3278 #42-3285 42-3290 #42-3296 42-3303 #42-3306
42-3317 #42-3325 42-3335
$$S775 = 000022 #8-340 8-344 #8-348 8-354 #8-360 8-390 #10-492 10-580 #10-581
10-587 #12-767 12-776 #12-783 12-820 #12-827 12-868 #14-1018 14-1037
#14-1042 14-1049 #14-1057 14-1061 #14-1065 14-1070 #14-1073 14-1088 #14-1098
14-1104 #14-1110 14-1132 #14-1137 14-1145 #16-1247 16-1254 #19-1412 19-1418
#19-1441 19-1450 #21-1543 21-1570 #24-1733 24-1740 #26-1850 26-1859 #26-1864
26-1868 #26-1870 26-1874 #26-1877 26-1881 #26-1884 26-1888 #26-1891 26-1895
#26-1897 26-1901 #28-1989 28-2015 #28-2022 28-2051 #30-2173 30-2211 #30-2217
30-2224 #32-2330 32-2344 #32-2349 32-2416 #34-2519 34-2605 #34-2607 34-2612
#38-2910 38-2924 #38-2928 38-2935 #42-3254 42-3278 #42-3285 42-3290 #42-3296
42-3303 #42-3306 42-3317 #42-3325 42-3335
$$S776 = 000000 #6-208 6-213 #6-214 6-221 #8-330 8-355 #8-357 8-392 #10-481
10-589 #10-590 10-595 #12-731 12-735 #12-736 12-762 #12-763 12-778
#12-779 12-821 #12-823 12-869 #14-1001 14-1007 #14-1008 14-1014 #14-1015
14-1038 #14-1039 14-1050 #14-1051 14-1094 #14-1095 14-1106 #14-1107 14-1133
#14-1134 14-1147 #16-1228 16-1255 #17-1311 17-1319 #19-1408 19-1428 #19-1433
19-1451 #21-1537 21-1571 #22-1629 22-1636 #24-1726 24-1743 #24-1747 24-1761
#26-1847 26-1860 #26-1861 26-1902 #28-1980 28-1984 #28-1985 28-2016 #28-2018
28-2052 #28-2053 28-2060 #28-2061 28-2070 #30-2157 30-2167 #30-2169 30-2213
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 17
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#30-2214 30-2225 #32-2321 32-2325 #32-2326 32-2345 #32-2346 32-2417 #32-2418
32-2424 #34-2515 34-2613 #34-2614 34-2618 #37-2836 37-2846 #38-2910 38-2924
#38-2925 38-2936 #39-3003 39-3013 #42-3237 42-3250 #42-3251 42-3279 #42-3280
42-3291 #42-3292 42-3321 #42-3322 42-3336
$$S777 = 000000 #6-208 6-213 #6-214 6-221 #8-330 8-355 #8-357 8-392 #10-481
10-589 #10-590 10-595 #12-731 12-735 #12-736 12-762 #12-763 12-778
#12-779 12-821 #12-823 12-869 #14-1001 14-1007 #14-1008 14-1014 #14-1015
14-1038 #14-1039 14-1050 #14-1051 14-1094 #14-1095 14-1106 #14-1107 14-1133
#14-1134 14-1147 #16-1228 16-1255 #17-1311 17-1319 #19-1408 19-1428 #19-1433
19-1451 #21-1537 21-1571 #22-1629 22-1636 #24-1726 24-1743 #24-1747 24-1761
#26-1847 26-1860 #26-1861 26-1902 #28-1980 28-1984 #28-1985 28-2016 #28-2018
28-2052 #28-2053 28-2060 #28-2061 28-2070 #30-2157 30-2167 #30-2169 30-2213
#30-2214 30-2225 #32-2321 32-2325 #32-2326 32-2345 #32-2346 32-2417 #32-2418
32-2424 #34-2515 34-2613 #34-2614 34-2618 #37-2836 37-2846 #38-2910 38-2924
#38-2925 38-2936 #39-3003 39-3013 #42-3237 42-3250 #42-3251 42-3279 #42-3280
42-3291 #42-3292 42-3321 #42-3322 42-3336
$$TRNM = 000000 #5-133 #6-194 *6-208 #6-208 6-209 6-210 6-211 6-213 #6-213
6-214 #6-214 6-215 6-216 6-219 #6-219 6-221 #6-221 #8-329
8-330 #8-330 8-332 8-333 8-334 *8-340 #8-340 8-341 8-342
*8-344 #8-344 *8-348 #8-348 8-349 8-350 8-352 #8-352 8-354
#8-354 8-355 #8-355 8-357 #8-357 8-358 8-359 8-360 #8-360
8-361 8-362 8-364 #8-364 8-365 8-366 8-368 #8-368 8-369
8-370 8-371 #8-371 8-372 8-373 8-375 #8-375 *8-377 #8-377
8-378 #8-378 8-379 #8-379 8-380 #8-380 8-381 #8-381 8-382
8-383 8-387 #8-387 *8-389 #8-389 8-390 #8-390 8-392 #8-392
#10-480 10-481 #10-481 10-482 10-483 10-486 #10-486 10-492 #10-492
10-493 10-494 *10-496 #10-496 10-498 10-499 10-501 10-501 #10-501
10-502 10-503 10-508 #10-508 10-509 10-510 10-511 #10-511 10-512
10-513 10-515 #10-515 10-518 #10-518 10-519 #10-519 10-520 10-520
#10-520 10-521 10-522 10-524 #10-524 10-525 10-526 10-527 #10-527
10-528 10-529 10-532 #10-532 10-540 #10-540 10-541 #10-541 10-542
10-542 #10-542 10-543 10-544 10-546 #10-546 10-547 10-548 10-557
#10-557 10-558 10-559 10-560 #10-560 10-561 10-562 10-564 #10-564
10-567 #10-567 10-568 #10-568 10-569 #10-569 10-570 #10-570 10-573
10-573 #10-573 10-574 #10-574 10-575 10-576 *10-578 #10-578 *10-580
#10-580 10-581 #10-581 10-582 10-583 10-584 10-587 #10-587 *10-589
#10-589 10-590 #10-590 10-591 10-592 10-595 #10-595 #12-730 12-731
#12-731 12-732 12-733 *12-735 #12-735 12-736 #12-736 12-737 12-738
*12-762 #12-762 12-763 #12-763 12-764 12-765 *12-767 #12-767 12-768
12-769 12-770 12-771 12-774 #12-774 *12-776 #12-776 12-778 #12-778
12-779 #12-779 12-780 12-781 *12-783 #12-783 12-784 12-785 12-786
#12-786 12-787 12-788 12-789 12-797 #12-797 12-798 12-799 12-800
12-802 #12-802 *12-804 #12-804 12-812 #12-812 *12-816 #12-816 12-817
#12-817 12-820 #12-820 12-821 #12-821 12-823 #12-823 12-824 12-825
12-827 #12-827 12-828 12-829 12-831 #12-831 12-832 12-833 12-834
#12-834 12-837 12-838 12-839 12-840 12-841 12-859 #12-859 12-862
#12-862 12-863 #12-863 12-865 #12-865 12-866 #12-866 12-868 #12-868
12-869 #12-869 #14-1000 14-1001 #14-1001 14-1002 14-1003 14-1007 #14-1007
14-1008 #14-1008 14-1009 14-1010 14-1014 #14-1014 14-1015 #14-1015 14-1016
14-1017 14-1018 #14-1018 14-1019 14-1020 14-1022 #14-1022 14-1023 #14-1023
14-1024 14-1025 14-1026 14-1027 #14-1027 14-1028 14-1029 *14-1031 #14-1031
14-1034 #14-1034 *14-1036 #14-1036 14-1037 #14-1037 14-1038 #14-1038 14-1039
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 18
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#14-1039 14-1040 14-1041 14-1042 #14-1042 14-1043 14-1044 14-1047 #14-1047
*14-1049 #14-1049 14-1050 #14-1050 14-1051 #14-1051 14-1052 14-1053 14-1057
#14-1057 14-1058 14-1059 *14-1061 #14-1061 14-1065 #14-1065 14-1066 14-1067
*14-1070 #14-1070 14-1073 #14-1073 14-1075 14-1076 14-1077 14-1078 14-1079
14-1088 #14-1088 *14-1094 #14-1094 14-1095 #14-1095 14-1096 14-1097 14-1098
#14-1098 14-1099 14-1100 14-1101 14-1102 *14-1104 #14-1104 *14-1106 #14-1106
14-1107 #14-1107 14-1108 14-1109 14-1110 #14-1110 14-1111 14-1112 14-1115
#14-1115 14-1116 #14-1116 14-1117 14-1118 14-1122 #14-1122 14-1123 #14-1123
14-1124 14-1125 14-1128 #14-1128 *14-1130 #14-1130 14-1131 #14-1131 14-1132
#14-1132 14-1133 #14-1133 14-1134 #14-1134 14-1135 14-1136 14-1137 #14-1137
14-1138 14-1139 14-1142 #14-1142 14-1145 #14-1145 14-1147 #14-1147 #16-1227
16-1228 #16-1228 16-1229 16-1230 16-1235 #16-1235 16-1247 #16-1247 16-1248
16-1249 16-1252 #16-1252 16-1254 #16-1254 16-1255 #16-1255 #17-1310 17-1311
#17-1311 17-1312 17-1313 17-1314 17-1317 #17-1317 17-1319 #17-1319 #19-1406
*19-1408 #19-1408 19-1409 19-1410 *19-1412 #19-1412 19-1413 19-1414 19-1416
#19-1416 *19-1418 #19-1418 19-1426 #19-1426 *19-1428 #19-1428 19-1433 #19-1433
19-1434 19-1435 19-1438 #19-1438 19-1441 #19-1441 19-1442 19-1443 19-1446
#19-1446 19-1450 #19-1450 19-1451 #19-1451 #21-1536 21-1537 #21-1537 21-1538
21-1539 21-1542 #21-1542 21-1543 #21-1543 21-1544 21-1545 21-1547 #21-1547
21-1549 #21-1549 21-1550 21-1551 21-1552 #21-1552 21-1553 21-1554 21-1555
#21-1555 21-1556 21-1557 21-1559 #21-1559 *21-1561 #21-1561 21-1563 #21-1563
21-1565 #21-1565 21-1566 #21-1566 21-1569 #21-1569 21-1570 #21-1570 21-1571
#21-1571 #22-1628 22-1629 #22-1629 22-1630 22-1631 22-1632 22-1634 #22-1634
*22-1636 #22-1636 #24-1724 *24-1726 #24-1726 24-1727 24-1728 *24-1733 #24-1733
24-1734 24-1735 24-1737 #24-1737 24-1740 #24-1740 24-1741 #24-1741 *24-1743
#24-1743 24-1747 #24-1747 24-1748 24-1749 24-1752 #24-1752 24-1761 #24-1761
#26-1845 *26-1847 #26-1847 26-1848 26-1849 26-1850 #26-1850 26-1851 26-1852
26-1854 #26-1854 26-1859 #26-1859 26-1860 #26-1860 26-1861 #26-1861 26-1862
26-1863 26-1864 #26-1864 26-1865 26-1866 26-1868 #26-1868 26-1870 #26-1870
26-1871 26-1872 26-1874 #26-1874 26-1877 #26-1877 26-1878 26-1879 26-1881
#26-1881 26-1884 #26-1884 26-1885 26-1886 26-1888 #26-1888 26-1891 #26-1891
26-1892 26-1893 26-1895 #26-1895 26-1897 #26-1897 26-1898 26-1899 26-1901
#26-1901 26-1902 #26-1902 #28-1979 28-1980 #28-1980 28-1981 28-1982 28-1984
#28-1984 28-1985 #28-1985 28-1986 28-1987 28-1989 #28-1989 28-1990 28-1991
28-1992 #28-1992 28-1994 28-1995 28-1999 28-1999 #28-1999 28-2000 28-2001
28-2003 28-2003 #28-2003 28-2004 28-2005 28-2007 28-2007 #28-2007 28-2008
28-2009 28-2011 #28-2011 28-2014 28-2014 #28-2014 28-2015 #28-2015 28-2016
#28-2016 28-2018 #28-2018 28-2019 28-2020 28-2022 #28-2022 28-2023 28-2024
28-2026 #28-2026 28-2027 28-2028 28-2029 #28-2029 28-2031 28-2032 28-2034
28-2034 #28-2034 28-2035 28-2036 28-2038 28-2038 #28-2038 28-2039 28-2040
28-2042 #28-2042 28-2045 28-2045 #28-2045 28-2046 #28-2046 28-2048 #28-2048
28-2049 #28-2049 28-2051 #28-2051 28-2052 #28-2052 28-2053 #28-2053 28-2054
28-2055 *28-2060 #28-2060 28-2061 #28-2061 28-2062 28-2063 28-2070 #28-2070
#30-2156 30-2157 #30-2157 30-2158 30-2159 *30-2167 #30-2167 30-2169 #30-2169
30-2170 30-2171 30-2173 #30-2173 30-2174 30-2175 30-2176 #30-2176 30-2177
30-2178 *30-2182 #30-2182 30-2183 30-2184 30-2185 30-2187 #30-2187 30-2188
#30-2188 30-2189 30-2190 30-2192 #30-2192 30-2193 30-2194 *30-2196 #30-2196
30-2198 #30-2198 30-2200 #30-2200 30-2201 #30-2201 30-2203 #30-2203 30-2204
#30-2204 30-2205 30-2206 *30-2208 #30-2208 30-2209 #30-2209 *30-2211 #30-2211
*30-2213 #30-2213 30-2214 #30-2214 30-2215 30-2216 30-2217 #30-2217 30-2218
30-2219 30-2221 #30-2221 30-2224 #30-2224 30-2225 #30-2225 #32-2314 32-2321
#32-2321 32-2322 32-2323 *32-2325 #32-2325 32-2326 #32-2326 32-2327 32-2328
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 19
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
32-2330 #32-2330 32-2331 32-2332 32-2333 #32-2333 32-2334 32-2335 32-2338
#32-2338 32-2343 #32-2343 32-2344 #32-2344 32-2345 #32-2345 32-2346 #32-2346
32-2347 32-2348 32-2349 #32-2349 32-2353 32-2354 32-2356 #32-2356 32-2357
32-2358 *32-2360 #32-2360 32-2363 32-2363 #32-2363 32-2364 32-2365 32-2367
#32-2367 32-2368 32-2369 32-2373 #32-2373 32-2374 32-2375 32-2380 #32-2380
32-2383 #32-2383 32-2384 #32-2384 32-2387 32-2387 #32-2387 32-2388 32-2389
32-2394 #32-2394 32-2395 32-2396 32-2401 #32-2401 32-2404 32-2404 #32-2404
32-2405 32-2406 32-2407 32-2413 #32-2413 32-2416 32-2416 #32-2416 32-2417
#32-2417 32-2418 #32-2418 32-2419 32-2420 32-2421 32-2424 #32-2424 #34-2509
34-2515 #34-2515 34-2516 34-2517 *34-2519 #34-2519 34-2522 34-2523 34-2525
#34-2525 34-2526 34-2527 34-2530 #34-2530 34-2531 34-2532 34-2534 #34-2534
*34-2536 #34-2536 34-2539 34-2539 #34-2539 34-2540 34-2541 34-2546 #34-2546
34-2547 34-2548 34-2555 #34-2555 34-2558 34-2558 #34-2558 34-2559 34-2560
34-2562 #34-2562 34-2563 34-2564 34-2568 #34-2568 34-2569 34-2570 34-2574
#34-2574 34-2575 34-2576 34-2578 #34-2578 34-2586 #34-2586 34-2587 #34-2587
34-2588 #34-2588 34-2590 34-2590 #34-2590 34-2591 34-2592 34-2596 #34-2596
34-2597 34-2598 *34-2600 #34-2600 34-2603 #34-2603 34-2605 34-2605 #34-2605
*34-2607 #34-2607 34-2608 34-2609 34-2610 34-2612 #34-2612 34-2613 #34-2613
34-2614 #34-2614 34-2615 34-2616 *34-2618 #34-2618 #35-2687 #36-2763 #37-2835
37-2836 #37-2836 37-2838 37-2840 37-2841 37-2843 #37-2843 37-2846 #37-2846
#38-2909 38-2910 #38-2910 38-2913 38-2914 38-2917 38-2917 #38-2917 38-2918
38-2919 38-2922 #38-2922 38-2924 38-2924 #38-2924 38-2925 #38-2925 38-2926
38-2927 38-2928 #38-2928 38-2929 38-2930 38-2932 #38-2932 38-2935 #38-2935
38-2936 #38-2936 #39-3002 39-3003 #39-3003 39-3004 39-3005 39-3006 39-3007
39-3010 #39-3010 39-3013 #39-3013 #40-3071 #42-3236 42-3237 #42-3237 42-3238
42-3239 *42-3250 #42-3250 42-3251 #42-3251 42-3252 42-3253 42-3254 #42-3254
42-3255 42-3256 *42-3258 #42-3258 42-3259 42-3260 42-3261 42-3263 #42-3263
*42-3265 #42-3265 42-3269 #42-3269 42-3270 #42-3270 42-3271 42-3272 42-3274
#42-3274 *42-3276 #42-3276 42-3278 #42-3278 42-3279 #42-3279 42-3280 #42-3280
42-3281 42-3282 *42-3285 #42-3285 42-3286 42-3287 42-3290 #42-3290 42-3291
#42-3291 42-3292 #42-3292 42-3293 42-3294 *42-3296 #42-3296 42-3297 42-3298
42-3303 #42-3303 42-3306 #42-3306 42-3307 42-3308 42-3309 42-3315 #42-3315
*42-3317 #42-3317 42-3321 #42-3321 42-3322 #42-3322 42-3323 42-3324 42-3325
#42-3325 42-3326 42-3327 42-3332 #42-3332 42-3335 #42-3335 42-3336 #42-3336
#43-3407
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 20
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #6-202 #6-206 #6-225 #6-232 #6-237 #8-345 #8-351 #8-353 #8-356 #8-363
#8-367 #8-385 #8-391 #10-491 #10-507 #10-523 #10-545 #10-556 #10-593 #12-743
#12-756 #12-777 #12-796 #12-811 #12-819 #12-822 #12-826 #12-830 #12-853 #12-861
#12-864 #12-867 #14-1087 #16-1241 #16-1246 #16-1253 #17-1316 #17-1318 #19-1423 #19-1437
#19-1440 #19-1445 #19-1449 #21-1541 #21-1546 #21-1562 #21-1564 #21-1568 #22-1637 #24-1739
#24-1751 #24-1756 #24-1760 #26-1853 #26-1867 #26-1873 #26-1880 #26-1887 #26-1894 #26-1900
#28-1983 #28-1988 #28-1998 #28-2002 #28-2006 #28-2010 #28-2013 #28-2017 #28-2021 #28-2025
#28-2033 #28-2037 #28-2044 #28-2047 #28-2050 #28-2066 #28-2069 #30-2163 #30-2168 #30-2172
#30-2220 #30-2223 #32-2320 #32-2329 #32-2342 #32-2355 #32-2366 #32-2393 #32-2400 #32-2411
#34-2514 #34-2524 #34-2529 #34-2545 #34-2561 #34-2567 #34-2583 #39-3009 #39-3012 #40-3073
#40-3077 #42-3245 #42-3277 #42-3302 #42-3334
CASE #5-133 #6-194 #8-329 #10-480 10-497 10-501 10-520 10-542 #12-730 #14-1000
#16-1227 #17-1310 #19-1406 #21-1536 #22-1628 #24-1724 #26-1845 #28-1979 28-1993 28-1999
28-2003 28-2007 28-2030 28-2034 28-2038 #30-2156 #32-2314 32-2352 32-2363 32-2387
32-2404 #34-2509 34-2521 34-2539 34-2558 34-2590 #35-2687 #36-2763 #37-2835 #38-2909
38-2912 38-2917 #39-3002 #40-3071 #42-3236 #43-3407
CONDF #5-124 #5-129 #6-179 #6-184 #7-317 #7-321 #9-469 #9-474 #11-718 #11-723
#13-989 #13-994 #15-1217 #15-1221 #18-1394 #18-1400 #20-1525 #20-1531 #23-1712 #23-1718
#25-1834 #25-1838 #27-1967 #27-1972 #29-2145 #29-2150 #31-2303 #31-2309 #33-2497 #33-2501
#35-2677 #35-2682 #36-2753 #36-2757 #37-2825 #37-2830 #38-2900 #38-2905 #39-2992 #39-2997
#40-3062 #40-3067 #41-3193 #41-3197 #43-3398 #43-3403
CONFIG #4-75
DO #5-133 #6-194 6-211 #8-329 #10-480 10-499 10-503 10-522 10-544 #12-730
#14-1000 #16-1227 #17-1310 #19-1406 #21-1536 #22-1628 #24-1724 #26-1845 #28-1979 28-1995
28-2001 28-2005 28-2009 28-2032 28-2036 28-2040 #30-2156 30-2185 #32-2314 32-2354
32-2365 32-2389 32-2407 #34-2509 34-2523 34-2541 34-2560 34-2592 #35-2687 #36-2763
#37-2835 #38-2909 38-2914 38-2919 #39-3002 #40-3071 #42-3236 #43-3407
ELSE #5-133 #6-194 6-219 #8-329 8-352 8-375 8-380 8-387 #10-480 10-486
10-515 10-532 10-564 10-570 #12-730 12-774 12-802 12-812 12-817 12-859
12-863 12-866 #14-1000 14-1022 14-1034 14-1047 14-1115 14-1122 14-1128 14-1142
#16-1227 16-1235 16-1252 #17-1310 17-1317 #19-1406 19-1416 19-1426 19-1438 19-1446
#21-1536 21-1542 21-1547 21-1559 21-1563 21-1566 #22-1628 22-1634 #24-1724 24-1737
24-1741 24-1752 #26-1845 26-1854 #28-1979 28-2011 28-2042 28-2046 28-2049 #30-2156
30-2198 30-2201 30-2209 30-2221 #32-2314 32-2338 32-2380 32-2413 #34-2509 34-2578
34-2603 #35-2687 #36-2763 #37-2835 37-2843 #38-2909 38-2922 38-2932 #39-3002 39-3010
#40-3071 #42-3236 42-3263 42-3269 42-3274 42-3315 42-3332 #43-3407
ENDCAS #5-133 #6-194 #8-329 #10-480 #10-573 #12-730 #14-1000 #16-1227 #17-1310 #19-1406
#21-1536 #22-1628 #24-1724 #26-1845 #28-1979 #28-2014 #28-2045 #30-2156 #32-2314 #32-2416
#34-2509 #34-2605 #35-2687 #36-2763 #37-2835 #38-2909 #38-2924 #39-3002 #40-3071 #42-3236
#43-3407
ENDIF #5-133 #6-194 #6-213 #6-221 #8-329 #8-344 #8-354 #8-355 #8-377 #8-378
#8-379 #8-389 #8-390 #8-392 #10-480 #10-518 #10-519 #10-540 #10-541 #10-567
#10-568 #10-569 #10-573 #10-578 #10-580 #10-587 #10-589 #10-595 #12-730 #12-735
#12-762 #12-776 #12-778 #12-804 #12-816 #12-820 #12-821 #12-862 #12-865 #12-868
#12-869 #14-1000 #14-1007 #14-1014 #14-1031 #14-1036 #14-1037 #14-1038 #14-1049 #14-1050
#14-1061 #14-1070 #14-1088 #14-1094 #14-1104 #14-1106 #14-1130 #14-1131 #14-1132 #14-1133
#14-1145 #14-1147 #16-1227 #16-1254 #16-1255 #17-1310 #17-1319 #19-1406 #19-1418 #19-1428
#19-1450 #19-1451 #21-1536 #21-1561 #21-1565 #21-1569 #21-1570 #21-1571 #22-1628 #22-1636
#24-1724 #24-1740 #24-1743 #24-1761 #26-1845 #26-1859 #26-1860 #26-1868 #26-1874 #26-1881
#26-1888 #26-1895 #26-1901 #26-1902 #28-1979 #28-1984 #28-2014 #28-2015 #28-2016 #28-2045
#28-2048 #28-2051 #28-2052 #28-2060 #28-2070 #30-2156 #30-2167 #30-2187 #30-2196 #30-2200
#30-2203 #30-2208 #30-2211 #30-2213 #30-2224 #30-2225 #32-2314 #32-2325 #32-2343 #32-2344
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 21
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#32-2345 #32-2360 #32-2383 #32-2384 #32-2401 #32-2416 #32-2417 #32-2424 #34-2509 #34-2534
#34-2536 #34-2555 #34-2586 #34-2587 #34-2588 #34-2600 #34-2605 #34-2612 #34-2613 #34-2618
#35-2687 #36-2763 #37-2835 #37-2846 #38-2909 #38-2924 #38-2935 #38-2936 #39-3002 #39-3013
#40-3071 #42-3236 #42-3250 #42-3265 #42-3276 #42-3278 #42-3279 #42-3290 #42-3291 #42-3303
#42-3317 #42-3321 #42-3335 #42-3336 #43-3407
ENDPRO #5-133 5-137 #6-194 6-246 #8-329 8-394 #10-480 10-596 #12-730 12-871
#14-1000 14-1149 #16-1227 16-1256 #17-1310 17-1320 #19-1406 19-1452 #21-1536 21-1572
#22-1628 22-1638 #24-1724 24-1762 #26-1845 26-1904 #28-1979 28-2072 #30-2156 30-2227
#32-2314 32-2426 #34-2509 34-2620 #35-2687 35-2692 #36-2763 36-2769 #37-2835 37-2847
#38-2909 38-2937 #39-3002 39-3014 #40-3071 40-3078 #42-3236 42-3338 #43-3407 43-3413
ENDWHI #5-133 #6-194 #6-213 #8-329 #10-480 #12-730 #14-1000 #16-1227 #17-1310 #19-1406
#21-1536 #22-1628 #24-1724 #26-1845 #28-1979 #30-2156 #30-2187 #32-2314 #34-2509 #35-2687
#36-2763 #37-2835 #38-2909 #39-3002 #40-3071 #42-3236 #43-3407
FALSE #5-133 #6-194 #6-209 #6-215 #8-329 #8-341 #8-358 #8-365 #8-369 #8-372
#10-480 #10-493 #10-498 #10-502 #10-509 #10-512 #10-521 #10-525 #10-528 #10-543
#10-547 #10-558 #10-561 #10-575 #10-582 #10-583 #10-591 #12-730 #12-769 #12-788
#12-798 #12-799 #12-824 #12-828 #12-832 #12-837 #12-838 #12-839 #12-840 #14-1000
#14-1024 #14-1025 #14-1028 #14-1100 #14-1124 #14-1138 #16-1227 #16-1248 #17-1310 #17-1313
#19-1406 #19-1409 #19-1434 #21-1536 #22-1628 #24-1724 #24-1727 #24-1734 #24-1748 #26-1845
#26-1848 #26-1862 #28-1979 #28-1990 #28-1994 #28-2000 #28-2004 #28-2008 #28-2019 #28-2023
#28-2027 #28-2031 #28-2035 #28-2039 #30-2156 #30-2170 #30-2174 #30-2177 #30-2183 #30-2189
#30-2193 #30-2205 #32-2314 #32-2322 #32-2327 #32-2331 #32-2334 #32-2347 #32-2353 #32-2357
#32-2364 #32-2368 #32-2374 #32-2388 #32-2395 #32-2406 #32-2419 #32-2420 #34-2509 #34-2516
#34-2522 #34-2526 #34-2531 #34-2540 #34-2547 #34-2559 #34-2563 #34-2569 #34-2575 #34-2591
#34-2597 #34-2608 #34-2609 #34-2615 #35-2687 #36-2763 #37-2835 #38-2909 #38-2913 #38-2918
#38-2926 #39-3002 #40-3071 #42-3236 #42-3297 #43-3407
FALSEB #5-133 #6-194 #6-210 #8-329 #8-333 #8-349 #8-361 #8-382 #10-480 #10-482
#12-730 #12-732 #12-737 #12-764 #12-770 #12-780 #12-784 #14-1000 #14-1002 #14-1009
#14-1016 #14-1019 #14-1040 #14-1043 #14-1052 #14-1058 #14-1066 #14-1075 #14-1077 #14-1078
#14-1096 #14-1101 #14-1108 #14-1111 #14-1117 #14-1135 #16-1227 #16-1229 #17-1310 #17-1312
#19-1406 #19-1413 #19-1442 #21-1536 #21-1538 #21-1544 #21-1550 #21-1553 #21-1556 #22-1628
#22-1630 #22-1631 #24-1724 #26-1845 #26-1851 #26-1865 #26-1871 #26-1878 #26-1885 #26-1892
#26-1898 #28-1979 #28-1981 #28-1986 #28-2054 #28-2062 #30-2156 #30-2158 #30-2184 #30-2215
#30-2218 #32-2314 #34-2509 #35-2687 #36-2763 #37-2835 #37-2838 #37-2840 #38-2909 #38-2929
#39-3002 #39-3004 #39-3005 #39-3006 #40-3071 #42-3236 #42-3238 #42-3252 #42-3255 #42-3259
#42-3260 #42-3271 #42-3281 #42-3286 #42-3293 #42-3308 #42-3323 #42-3326 #43-3407
IF #5-133 #6-194 6-208 6-214 #8-329 8-330 8-340 8-348 8-357 8-360
8-364 8-368 8-371 8-381 #10-480 10-481 10-492 10-496 10-508 10-511
10-524 10-527 10-546 10-557 10-560 10-574 10-581 10-590 #12-730 12-731
12-736 12-763 12-767 12-779 12-783 12-786 12-797 12-823 12-827 12-831
12-834 #14-1000 14-1001 14-1008 14-1015 14-1018 14-1023 14-1027 14-1039 14-1042
14-1051 14-1057 14-1065 14-1073 14-1095 14-1098 14-1107 14-1110 14-1116 14-1123
14-1134 14-1137 #16-1227 16-1228 16-1247 #17-1310 17-1311 #19-1406 19-1408 19-1412
19-1433 19-1441 #21-1536 21-1537 21-1543 21-1549 21-1552 21-1555 #22-1628 22-1629
#24-1724 24-1726 24-1733 24-1747 #26-1845 26-1847 26-1850 26-1861 26-1864 26-1870
26-1877 26-1884 26-1891 26-1897 #28-1979 28-1980 28-1985 28-1989 28-1992 28-2018
28-2022 28-2026 28-2029 28-2053 28-2061 #30-2156 30-2157 30-2169 30-2173 30-2176
30-2182 30-2188 30-2192 30-2204 30-2214 30-2217 #32-2314 32-2321 32-2326 32-2330
32-2333 32-2346 32-2349 32-2356 32-2367 32-2373 32-2394 32-2418 #34-2509 34-2515
34-2519 34-2525 34-2530 34-2546 34-2562 34-2568 34-2574 34-2596 34-2607 34-2614
#35-2687 #36-2763 #37-2835 37-2836 #38-2909 38-2910 38-2925 38-2928 #39-3002 39-3003
#40-3071 #42-3236 42-3237 42-3251 42-3254 42-3258 42-3270 42-3280 42-3285 42-3292
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 22
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
42-3296 42-3306 42-3322 42-3325 #43-3407
JMPPRO #5-133 #6-194 #8-329 #10-480 #12-730 #14-1000 #16-1227 #17-1310 #19-1406 #21-1536
#22-1628 #24-1724 #26-1845 #28-1979 #30-2156 #32-2314 #34-2509 #35-2687 #36-2763 #37-2835
#38-2909 #39-3002 #40-3071 #42-3236 #43-3407
LSDF #5-124 #5-128 #6-179 #6-183 #7-317 #7-322 #9-469 #9-473 #11-718 #11-722
#13-989 #13-993 #15-1217 #15-1222 #17-1301 #17-1305 #18-1394 #18-1398 #20-1525 #20-1529
#22-1619 #22-1623 #23-1712 #23-1716 #25-1834 #25-1839 #27-1967 #27-1971 #29-2145 #29-2149
#31-2303 #31-2307 #33-2497 #33-2502 #35-2677 #35-2681 #36-2753 #36-2758 #37-2825 #37-2829
#38-2900 #38-2904 #39-2992 #39-2996 #40-3062 #40-3066 #41-3193 #41-3198 #43-3398 #43-3402
MOPDF #7-317 #7-324 #11-718 #11-725 #18-1394 #18-1401 #23-1712 #23-1717 #27-1967 #27-1974
#33-2497 #33-2504
NICDF #7-317 #7-323 #9-469 #9-475 #11-718 #11-724 #13-989 #13-995 #17-1301 #17-1306
#18-1394 #18-1399 #20-1525 #20-1530 #22-1619 #22-1624 #23-1712 #23-1719 #27-1967 #27-1973
#29-2145 #29-2151 #31-2303 #31-2308 #33-2497 #33-2503 #35-2677 #35-2683 #36-2753 #36-2759
#37-2825 #37-2831 #39-2992 #39-2998 #41-3193 #41-3199
ONCASE #5-133 #6-194 #8-329 #10-480 10-496 #12-730 #14-1000 #16-1227 #17-1310 #19-1406
#21-1536 #22-1628 #24-1724 #26-1845 #28-1979 28-1992 28-2029 #30-2156 #32-2314 32-2349
#34-2509 34-2519 #35-2687 #36-2763 #37-2835 #38-2909 38-2910 #39-3002 #40-3071 #42-3236
#43-3407
PRDF #25-1834 #25-1840
PROC #4-71 26-1845
PROCLC #4-71 5-133 #5-133 6-194 #6-194 8-329 #8-329 10-480 #10-480 12-730
#12-730 14-1000 #14-1000 16-1227 #16-1227 17-1310 #17-1310 19-1406 #19-1406 21-1536
#21-1536 22-1628 #22-1628 24-1724 #24-1724 #26-1845 28-1979 #28-1979 30-2156 #30-2156
32-2314 #32-2314 34-2509 #34-2509 35-2687 #35-2687 36-2763 #36-2763 37-2835 #37-2835
38-2909 #38-2909 39-3002 #39-3002 40-3071 #40-3071 42-3236 #42-3236 43-3407 #43-3407
PROFLG #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75
#4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75
#4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75
#4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75 #4-75
#4-75
RESSTK #6-179 #6-238 #9-469 #10-579 #10-588 #11-718 #12-760 #31-2303 #32-2425 #33-2497
#34-2606 #34-2619
SAVSTK #6-179 #6-195 #9-469 #10-487 #10-495 #11-718 #12-745 #31-2303 #32-2315 #33-2497
#34-2510 #34-2518
SWSTK$ #5-133 #6-194 #8-329 #10-480 #12-730 #14-1000 #16-1227 #17-1310 #19-1406 #21-1536
#22-1628 #24-1724 #26-1845 #28-1979 #30-2156 #32-2314 #34-2509 #35-2687 #36-2763 #37-2835
#38-2909 #39-3002 #40-3071 #42-3236 #43-3407
THEN #5-133 #6-194 #6-211 #6-216 #8-329 #8-334 #8-342 #8-350 #8-359 #8-362
#8-366 #8-370 #8-373 #8-383 #10-480 #10-483 #10-494 #10-499 #10-503 #10-510
#10-513 #10-522 #10-526 #10-529 #10-544 #10-548 #10-559 #10-562 #10-576 #10-584
#10-592 #12-730 #12-733 #12-738 #12-765 #12-771 #12-781 #12-785 #12-789 #12-800
#12-825 #12-829 #12-833 #12-841 #14-1000 #14-1003 #14-1010 #14-1017 #14-1020 #14-1026
#14-1029 #14-1041 #14-1044 #14-1053 #14-1059 #14-1067 #14-1079 #14-1097 #14-1102 #14-1109
#14-1112 #14-1118 #14-1125 #14-1136 #14-1139 #16-1227 #16-1230 #16-1249 #17-1310 #17-1314
#19-1406 #19-1410 #19-1414 #19-1435 #19-1443 #21-1536 #21-1539 #21-1545 #21-1551 #21-1554
#21-1557 #22-1628 #22-1632 #24-1724 #24-1728 #24-1735 #24-1749 #26-1845 #26-1849 #26-1852
#26-1863 #26-1866 #26-1872 #26-1879 #26-1886 #26-1893 #26-1899 #28-1979 #28-1982 #28-1987
#28-1991 #28-1995 #28-2001 #28-2005 #28-2009 #28-2020 #28-2024 #28-2028 #28-2032 #28-2036
#28-2040 #28-2055 #28-2063 #30-2156 #30-2159 #30-2171 #30-2175 #30-2178 #30-2185 #30-2190
#30-2194 #30-2206 #30-2216 #30-2219 #32-2314 #32-2323 #32-2328 #32-2332 #32-2335 #32-2348
#32-2354 #32-2358 #32-2365 #32-2369 #32-2375 #32-2389 #32-2396 #32-2407 #32-2421 #34-2509
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 23
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#34-2517 #34-2523 #34-2527 #34-2532 #34-2541 #34-2548 #34-2560 #34-2564 #34-2570 #34-2576
#34-2592 #34-2598 #34-2610 #34-2616 #35-2687 #36-2763 #37-2835 #37-2841 #38-2909 #38-2914
#38-2919 #38-2927 #38-2930 #39-3002 #39-3007 #40-3071 #42-3236 #42-3239 #42-3253 #42-3256
#42-3261 #42-3272 #42-3282 #42-3287 #42-3294 #42-3298 #42-3309 #42-3324 #42-3327 #43-3407
TRUE #5-133 #6-194 #8-329 #8-332 #10-480 #12-730 #12-787 #14-1000 #16-1227 #17-1310
#19-1406 #21-1536 #22-1628 #24-1724 #26-1845 #28-1979 #30-2156 #32-2314 #32-2405 #34-2509
#35-2687 #36-2763 #37-2835 #38-2909 #39-3002 #40-3071 #42-3236 #43-3407
TRUEB #5-133 #6-194 #8-329 #10-480 #12-730 12-768 #14-1000 14-1076 14-1099 #16-1227
#17-1310 #19-1406 #21-1536 #22-1628 #24-1724 #26-1845 #28-1979 #30-2156 #32-2314 #34-2509
#35-2687 #36-2763 #37-2835 #38-2909 #39-3002 #40-3071 #42-3236 42-3307 #43-3407
WHILE #5-133 #6-194 6-208 #8-329 #10-480 #12-730 #14-1000 #16-1227 #17-1310 #19-1406
#21-1536 #22-1628 #24-1724 #26-1845 #28-1979 #30-2156 30-2182 #32-2314 #34-2509 #35-2687
#36-2763 #37-2835 #38-2909 #39-3002 #40-3071 #42-3236 #43-3407
$$BGND #5-133 #6-194 6-209 6-210 6-215 #8-329 8-332 8-333 8-341 8-349
8-358 8-361 8-365 8-369 8-372 8-382 #10-480 10-482 10-493 10-498
10-502 10-509 10-512 10-521 10-525 10-528 10-543 10-547 10-558 10-561
10-575 10-582 10-583 10-591 #12-730 12-732 12-737 12-764 12-768 12-769
12-770 12-780 12-784 12-787 12-788 12-798 12-799 12-824 12-828 12-832
12-837 12-838 12-839 12-840 #14-1000 14-1002 14-1009 14-1016 14-1019 14-1024
14-1025 14-1028 14-1040 14-1043 14-1052 14-1058 14-1066 14-1075 14-1076 14-1077
14-1078 14-1096 14-1099 14-1100 14-1101 14-1108 14-1111 14-1117 14-1124 14-1135
14-1138 #16-1227 16-1229 16-1248 #17-1310 17-1312 17-1313 #19-1406 19-1409 19-1413
19-1434 19-1442 #21-1536 21-1538 21-1544 21-1550 21-1553 21-1556 #22-1628 22-1630
22-1631 #24-1724 24-1727 24-1734 24-1748 #26-1845 26-1848 26-1851 26-1862 26-1865
26-1871 26-1878 26-1885 26-1892 26-1898 #28-1979 28-1981 28-1986 28-1990 28-1994
28-2000 28-2004 28-2008 28-2019 28-2023 28-2027 28-2031 28-2035 28-2039 28-2054
28-2062 #30-2156 30-2158 30-2170 30-2174 30-2177 30-2183 30-2184 30-2189 30-2193
30-2205 30-2215 30-2218 #32-2314 32-2322 32-2327 32-2331 32-2334 32-2347 32-2353
32-2357 32-2364 32-2368 32-2374 32-2388 32-2395 32-2405 32-2406 32-2419 32-2420
#34-2509 34-2516 34-2522 34-2526 34-2531 34-2540 34-2547 34-2559 34-2563 34-2569
34-2575 34-2591 34-2597 34-2608 34-2609 34-2615 #35-2687 #36-2763 #37-2835 37-2838
37-2840 #38-2909 38-2913 38-2918 38-2926 38-2929 #39-3002 39-3004 39-3005 39-3006
#40-3071 #42-3236 42-3238 42-3252 42-3255 42-3259 42-3260 42-3271 42-3281 42-3286
42-3293 42-3297 42-3307 42-3308 42-3323 42-3326 #43-3407
$$BGNN #5-133 #6-194 6-209 6-210 6-213 6-215 6-219 #8-329 8-332 8-333
8-341 8-349 8-352 8-358 8-361 8-365 8-369 8-372 8-375 8-380
8-382 8-387 #10-480 10-482 10-486 10-493 10-498 10-501 10-502 10-509
10-512 10-515 10-520 10-521 10-525 10-528 10-532 10-542 10-543 10-547
10-558 10-561 10-564 10-570 10-575 10-582 10-583 10-591 #12-730 12-732
12-737 12-764 12-768 12-769 12-770 12-774 12-780 12-784 12-787 12-788
12-798 12-799 12-802 12-812 12-817 12-824 12-828 12-832 12-837 12-838
12-839 12-840 12-859 12-863 12-866 #14-1000 14-1002 14-1009 14-1016 14-1019
14-1022 14-1024 14-1025 14-1028 14-1034 14-1040 14-1043 14-1047 14-1052 14-1058
14-1066 14-1075 14-1076 14-1077 14-1078 14-1096 14-1099 14-1100 14-1101 14-1108
14-1111 14-1115 14-1117 14-1122 14-1124 14-1128 14-1135 14-1138 14-1142 #16-1227
16-1229 16-1235 16-1248 16-1252 #17-1310 17-1312 17-1313 17-1317 #19-1406 19-1409
19-1413 19-1416 19-1426 19-1434 19-1438 19-1442 19-1446 #21-1536 21-1538 21-1542
21-1544 21-1547 21-1550 21-1553 21-1556 21-1559 21-1563 21-1566 #22-1628 22-1630
22-1631 22-1634 #24-1724 24-1727 24-1734 24-1737 24-1741 24-1748 24-1752 #26-1845
26-1848 26-1851 26-1854 26-1862 26-1865 26-1871 26-1878 26-1885 26-1892 26-1898
#28-1979 28-1981 28-1986 28-1990 28-1994 28-1999 28-2000 28-2003 28-2004 28-2007
28-2008 28-2011 28-2019 28-2023 28-2027 28-2031 28-2034 28-2035 28-2038 28-2039
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 24
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
28-2042 28-2046 28-2049 28-2054 28-2062 #30-2156 30-2158 30-2170 30-2174 30-2177
30-2183 30-2184 30-2187 30-2189 30-2193 30-2198 30-2201 30-2205 30-2209 30-2215
30-2218 30-2221 #32-2314 32-2322 32-2327 32-2331 32-2334 32-2338 32-2347 32-2353
32-2357 32-2363 32-2364 32-2368 32-2374 32-2380 32-2387 32-2388 32-2395 32-2404
32-2405 32-2406 32-2413 32-2419 32-2420 #34-2509 34-2516 34-2522 34-2526 34-2531
34-2539 34-2540 34-2547 34-2558 34-2559 34-2563 34-2569 34-2575 34-2578 34-2590
34-2591 34-2597 34-2603 34-2608 34-2609 34-2615 #35-2687 #36-2763 #37-2835 37-2838
37-2840 37-2843 #38-2909 38-2913 38-2917 38-2918 38-2922 38-2926 38-2929 38-2932
#39-3002 39-3004 39-3005 39-3006 39-3010 #40-3071 #42-3236 42-3238 42-3252 42-3255
42-3259 42-3260 42-3263 42-3269 42-3271 42-3274 42-3281 42-3286 42-3293 42-3297
42-3307 42-3308 42-3315 42-3323 42-3326 42-3332 #43-3407
$$ELSE #5-133 #6-194 6-219 #8-329 8-352 8-375 8-380 8-387 #10-480 10-486
10-501 10-515 10-520 10-532 10-542 10-564 10-570 #12-730 12-774 12-802
12-812 12-817 12-859 12-863 12-866 #14-1000 14-1022 14-1034 14-1047 14-1115
14-1122 14-1128 14-1142 #16-1227 16-1235 16-1252 #17-1310 17-1317 #19-1406 19-1416
19-1426 19-1438 19-1446 #21-1536 21-1542 21-1547 21-1559 21-1563 21-1566 #22-1628
22-1634 #24-1724 24-1737 24-1741 24-1752 #26-1845 26-1854 #28-1979 28-1999 28-2003
28-2007 28-2011 28-2034 28-2038 28-2042 28-2046 28-2049 #30-2156 30-2198 30-2201
30-2209 30-2221 #32-2314 32-2338 32-2363 32-2380 32-2387 32-2404 32-2413 #34-2509
34-2539 34-2558 34-2578 34-2590 34-2603 #35-2687 #36-2763 #37-2835 37-2843 #38-2909
38-2917 38-2922 38-2932 #39-3002 39-3010 #40-3071 #42-3236 42-3263 42-3269 42-3274
42-3315 42-3332 #43-3407
$$GEN1 #5-133 #5-133 #5-137 #6-194 #6-194 #6-208 #6-209 #6-210 #6-211 #6-213
#6-213 #6-215 #6-216 #6-219 #6-219 #6-221 #6-246 #8-329 #8-329 #8-332
#8-333 #8-334 #8-341 #8-342 #8-344 #8-349 #8-350 #8-352 #8-352 #8-354
#8-355 #8-358 #8-359 #8-361 #8-362 #8-365 #8-366 #8-369 #8-370 #8-372
#8-373 #8-375 #8-375 #8-377 #8-378 #8-379 #8-380 #8-380 #8-382 #8-382
#8-383 #8-387 #8-387 #8-389 #8-390 #8-392 #8-394 #10-480 #10-480 #10-482
#10-482 #10-483 #10-486 #10-486 #10-493 #10-494 #10-498 #10-499 #10-501 #10-501
#10-502 #10-503 #10-509 #10-510 #10-512 #10-512 #10-513 #10-515 #10-515 #10-518
#10-519 #10-520 #10-520 #10-521 #10-522 #10-525 #10-526 #10-528 #10-529 #10-532
#10-532 #10-540 #10-541 #10-542 #10-542 #10-543 #10-544 #10-547 #10-548 #10-558
#10-559 #10-561 #10-561 #10-562 #10-564 #10-564 #10-567 #10-568 #10-569 #10-570
#10-570 #10-573 #10-575 #10-576 #10-578 #10-580 #10-582 #10-583 #10-584 #10-587
#10-589 #10-591 #10-592 #10-595 #10-596 #12-730 #12-730 #12-732 #12-732 #12-733
#12-735 #12-737 #12-738 #12-762 #12-764 #12-765 #12-768 #12-768 #12-769 #12-770
#12-771 #12-774 #12-774 #12-776 #12-778 #12-780 #12-781 #12-784 #12-784 #12-785
#12-787 #12-787 #12-788 #12-788 #12-789 #12-798 #12-798 #12-799 #12-800 #12-802
#12-802 #12-804 #12-812 #12-812 #12-816 #12-817 #12-817 #12-820 #12-821 #12-824
#12-825 #12-828 #12-829 #12-832 #12-833 #12-837 #12-838 #12-839 #12-840 #12-841
#12-859 #12-859 #12-862 #12-863 #12-863 #12-865 #12-866 #12-866 #12-868 #12-869
#12-871 #14-1000 #14-1000 #14-1002 #14-1003 #14-1007 #14-1009 #14-1010 #14-1014 #14-1016
#14-1016 #14-1017 #14-1019 #14-1020 #14-1022 #14-1022 #14-1024 #14-1024 #14-1025 #14-1025
#14-1026 #14-1028 #14-1029 #14-1031 #14-1034 #14-1034 #14-1036 #14-1037 #14-1038 #14-1040
#14-1041 #14-1043 #14-1043 #14-1044 #14-1047 #14-1047 #14-1049 #14-1050 #14-1052 #14-1053
#14-1058 #14-1059 #14-1061 #14-1066 #14-1067 #14-1070 #14-1075 #14-1075 #14-1076 #14-1077
#14-1078 #14-1079 #14-1088 #14-1094 #14-1096 #14-1097 #14-1099 #14-1099 #14-1100 #14-1101
#14-1102 #14-1104 #14-1106 #14-1108 #14-1109 #14-1111 #14-1112 #14-1115 #14-1115 #14-1117
#14-1118 #14-1122 #14-1122 #14-1124 #14-1124 #14-1125 #14-1128 #14-1128 #14-1130 #14-1131
#14-1132 #14-1133 #14-1135 #14-1136 #14-1138 #14-1138 #14-1139 #14-1142 #14-1142 #14-1145
#14-1147 #14-1149 #16-1227 #16-1227 #16-1229 #16-1230 #16-1235 #16-1235 #16-1248 #16-1249
#16-1252 #16-1252 #16-1254 #16-1255 #16-1256 #17-1310 #17-1310 #17-1312 #17-1312 #17-1313
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 25
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#17-1313 #17-1314 #17-1317 #17-1317 #17-1319 #17-1320 #19-1406 #19-1406 #19-1409 #19-1409
#19-1410 #19-1413 #19-1413 #19-1414 #19-1416 #19-1416 #19-1418 #19-1426 #19-1426 #19-1428
#19-1434 #19-1435 #19-1438 #19-1438 #19-1442 #19-1442 #19-1443 #19-1446 #19-1446 #19-1450
#19-1451 #19-1452 #21-1536 #21-1536 #21-1538 #21-1538 #21-1539 #21-1542 #21-1542 #21-1544
#21-1545 #21-1547 #21-1547 #21-1550 #21-1551 #21-1553 #21-1554 #21-1556 #21-1557 #21-1559
#21-1559 #21-1561 #21-1563 #21-1563 #21-1565 #21-1566 #21-1566 #21-1569 #21-1570 #21-1571
#21-1572 #22-1628 #22-1628 #22-1630 #22-1631 #22-1632 #22-1634 #22-1634 #22-1636 #22-1638
#24-1724 #24-1724 #24-1727 #24-1727 #24-1728 #24-1734 #24-1735 #24-1737 #24-1737 #24-1740
#24-1741 #24-1741 #24-1743 #24-1748 #24-1749 #24-1752 #24-1752 #24-1761 #24-1762 #26-1845
#26-1845 #26-1848 #26-1848 #26-1849 #26-1851 #26-1852 #26-1854 #26-1854 #26-1859 #26-1860
#26-1862 #26-1862 #26-1863 #26-1865 #26-1866 #26-1868 #26-1871 #26-1872 #26-1874 #26-1878
#26-1879 #26-1881 #26-1885 #26-1886 #26-1888 #26-1892 #26-1893 #26-1895 #26-1898 #26-1899
#26-1901 #26-1902 #26-1904 #28-1979 #28-1979 #28-1981 #28-1981 #28-1982 #28-1984 #28-1986
#28-1987 #28-1990 #28-1991 #28-1994 #28-1995 #28-1999 #28-1999 #28-2000 #28-2001 #28-2003
#28-2003 #28-2004 #28-2005 #28-2007 #28-2007 #28-2008 #28-2009 #28-2011 #28-2011 #28-2014
#28-2015 #28-2016 #28-2019 #28-2020 #28-2023 #28-2024 #28-2027 #28-2028 #28-2031 #28-2032
#28-2034 #28-2034 #28-2035 #28-2036 #28-2038 #28-2038 #28-2039 #28-2040 #28-2042 #28-2042
#28-2045 #28-2046 #28-2046 #28-2048 #28-2049 #28-2049 #28-2051 #28-2052 #28-2054 #28-2055
#28-2060 #28-2062 #28-2063 #28-2070 #28-2072 #30-2156 #30-2156 #30-2158 #30-2158 #30-2159
#30-2167 #30-2170 #30-2171 #30-2174 #30-2175 #30-2177 #30-2178 #30-2182 #30-2183 #30-2183
#30-2184 #30-2185 #30-2187 #30-2187 #30-2189 #30-2189 #30-2190 #30-2193 #30-2194 #30-2196
#30-2198 #30-2198 #30-2200 #30-2201 #30-2201 #30-2203 #30-2205 #30-2206 #30-2208 #30-2209
#30-2209 #30-2211 #30-2213 #30-2215 #30-2216 #30-2218 #30-2218 #30-2219 #30-2221 #30-2221
#30-2224 #30-2225 #30-2227 #32-2314 #32-2314 #32-2322 #32-2323 #32-2325 #32-2327 #32-2328
#32-2331 #32-2332 #32-2334 #32-2335 #32-2338 #32-2338 #32-2343 #32-2344 #32-2345 #32-2347
#32-2348 #32-2353 #32-2354 #32-2357 #32-2358 #32-2360 #32-2363 #32-2363 #32-2364 #32-2365
#32-2368 #32-2369 #32-2374 #32-2375 #32-2380 #32-2380 #32-2383 #32-2384 #32-2387 #32-2387
#32-2388 #32-2389 #32-2395 #32-2396 #32-2401 #32-2404 #32-2404 #32-2405 #32-2406 #32-2407
#32-2413 #32-2413 #32-2416 #32-2417 #32-2419 #32-2420 #32-2421 #32-2424 #32-2426 #34-2509
#34-2509 #34-2516 #34-2517 #34-2522 #34-2523 #34-2526 #34-2527 #34-2531 #34-2532 #34-2534
#34-2536 #34-2539 #34-2539 #34-2540 #34-2541 #34-2547 #34-2548 #34-2555 #34-2558 #34-2558
#34-2559 #34-2560 #34-2563 #34-2564 #34-2569 #34-2570 #34-2575 #34-2576 #34-2578 #34-2578
#34-2586 #34-2587 #34-2588 #34-2590 #34-2590 #34-2591 #34-2592 #34-2597 #34-2598 #34-2600
#34-2603 #34-2603 #34-2605 #34-2608 #34-2609 #34-2610 #34-2612 #34-2613 #34-2615 #34-2616
#34-2618 #34-2620 #35-2687 #35-2687 #35-2692 #36-2763 #36-2763 #36-2769 #37-2835 #37-2835
#37-2838 #37-2838 #37-2840 #37-2840 #37-2841 #37-2843 #37-2843 #37-2846 #37-2847 #38-2909
#38-2909 #38-2913 #38-2914 #38-2917 #38-2917 #38-2918 #38-2919 #38-2922 #38-2922 #38-2924
#38-2926 #38-2927 #38-2929 #38-2930 #38-2932 #38-2932 #38-2935 #38-2936 #38-2937 #39-3002
#39-3002 #39-3004 #39-3005 #39-3006 #39-3007 #39-3010 #39-3010 #39-3013 #39-3014 #40-3071
#40-3071 #40-3078 #42-3236 #42-3236 #42-3238 #42-3238 #42-3239 #42-3250 #42-3252 #42-3253
#42-3255 #42-3255 #42-3256 #42-3259 #42-3260 #42-3260 #42-3261 #42-3263 #42-3263 #42-3265
#42-3269 #42-3269 #42-3271 #42-3272 #42-3274 #42-3274 #42-3276 #42-3278 #42-3279 #42-3281
#42-3282 #42-3286 #42-3287 #42-3290 #42-3291 #42-3293 #42-3294 #42-3297 #42-3298 #42-3303
#42-3307 #42-3308 #42-3309 #42-3315 #42-3315 #42-3317 #42-3321 #42-3323 #42-3324 #42-3326
#42-3326 #42-3327 #42-3332 #42-3332 #42-3335 #42-3336 #42-3338 #43-3407 #43-3407 #43-3413
$$GEN2 #5-133 #6-194 6-209 6-210 6-215 #8-329 8-333 8-349 8-361 8-372
#10-480 10-498 10-502 10-521 10-528 10-543 10-583 #12-730 12-737 12-764
12-769 12-770 12-780 12-799 12-837 12-838 12-839 12-840 #14-1000 14-1002
14-1009 14-1019 14-1028 14-1040 14-1052 14-1058 14-1066 14-1076 14-1077 14-1078
14-1096 14-1100 14-1101 14-1108 14-1111 14-1117 14-1135 #16-1227 16-1229 #17-1310
#19-1406 19-1434 #21-1536 21-1544 21-1550 21-1553 21-1556 #22-1628 22-1630 22-1631
#24-1724 24-1748 #26-1845 26-1851 26-1865 26-1871 26-1878 26-1885 26-1892 26-1898
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 26
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#28-1979 28-1986 28-1994 28-2000 28-2004 28-2008 28-2031 28-2035 28-2039 28-2054
28-2062 #30-2156 30-2177 30-2184 30-2215 #32-2314 32-2334 32-2353 32-2364 32-2388
32-2405 32-2406 32-2420 #34-2509 34-2522 34-2540 34-2559 34-2575 34-2591 34-2597
34-2609 #35-2687 #36-2763 #37-2835 #38-2909 38-2913 38-2918 38-2929 #39-3002 39-3004
39-3005 39-3006 #40-3071 #42-3236 42-3252 42-3259 42-3271 42-3281 42-3286 42-3293
42-3307 42-3308 42-3323 #43-3407
$$GNAB #5-133 #6-194 6-209 6-210 6-215 #8-329 8-333 8-349 8-358 8-361
8-365 8-369 8-372 8-382 #10-480 10-482 10-493 10-498 10-502 10-509
10-521 10-525 10-528 10-543 10-547 10-558 10-575 10-582 10-583 10-591
#12-730 12-737 12-764 12-768 12-769 12-770 12-780 12-784 12-799 12-824
12-828 12-832 12-837 12-838 12-839 12-840 #14-1000 14-1002 14-1009 14-1028
14-1040 14-1052 14-1066 14-1075 14-1076 14-1077 14-1078 14-1096 14-1099 14-1100
14-1101 14-1108 14-1135 #16-1227 16-1229 16-1248 #17-1310 #19-1406 19-1434 #21-1536
21-1544 21-1550 21-1556 #22-1628 22-1631 #24-1724 24-1734 24-1748 #26-1845 26-1851
26-1865 26-1871 26-1878 26-1885 26-1892 26-1898 #28-1979 28-1986 28-1990 28-1994
28-2000 28-2004 28-2008 28-2019 28-2023 28-2027 28-2031 28-2035 28-2039 28-2054
28-2062 #30-2156 30-2170 30-2174 30-2177 30-2183 30-2184 30-2193 30-2205 30-2215
#32-2314 32-2322 32-2327 32-2331 32-2334 32-2347 32-2353 32-2357 32-2364 32-2368
32-2374 32-2388 32-2395 32-2405 32-2406 32-2419 32-2420 #34-2509 34-2516 34-2522
34-2526 34-2531 34-2540 34-2547 34-2559 34-2563 34-2569 34-2575 34-2591 34-2597
34-2608 34-2609 34-2615 #35-2687 #36-2763 #37-2835 37-2838 37-2840 #38-2909 38-2913
38-2918 38-2926 #39-3002 39-3004 39-3005 39-3006 #40-3071 #42-3236 42-3252 42-3255
42-3259 42-3271 42-3281 42-3286 42-3293 42-3297 42-3307 42-3308 42-3323 42-3326
#43-3407
$$GNBT #5-133 #6-194 #8-329 #8-332 #8-341 #10-480 #10-512 #10-561 #12-730 #12-732
#12-787 #12-788 #12-798 #14-1000 #14-1016 #14-1019 #14-1024 #14-1025 #14-1043 #14-1058
#14-1111 #14-1117 #14-1124 #14-1138 #16-1227 #17-1310 #17-1312 #17-1313 #19-1406 #19-1409
#19-1413 #19-1442 #21-1536 #21-1538 #21-1553 #22-1628 #22-1630 #24-1724 #24-1727 #26-1845
#26-1848 #26-1862 #28-1979 #28-1981 #30-2156 #30-2158 #30-2189 #30-2218 #32-2314 #34-2509
#35-2687 #36-2763 #37-2835 #38-2909 #38-2929 #39-3002 #40-3071 #42-3236 #42-3238 #42-3260
#43-3407
$$GNCM #5-133 #6-194 #6-209 #6-210 #6-215 #8-329 #8-332 #8-333 #8-341 #8-349
#8-358 #8-361 #8-365 #8-369 #8-372 #8-382 #10-480 #10-482 #10-493 #10-498
#10-502 #10-509 #10-512 #10-521 #10-525 #10-528 #10-543 #10-547 #10-558 #10-561
#10-575 #10-582 #10-583 #10-591 #12-730 #12-732 #12-737 #12-764 #12-768 #12-769
#12-770 #12-780 #12-784 #12-787 #12-788 #12-798 #12-799 #12-824 #12-828 #12-832
#12-837 #12-838 #12-839 #12-840 #14-1000 #14-1002 #14-1009 #14-1016 #14-1019 #14-1024
#14-1025 #14-1028 #14-1040 #14-1043 #14-1052 #14-1058 #14-1066 #14-1075 #14-1076 #14-1077
#14-1078 #14-1096 #14-1099 #14-1100 #14-1101 #14-1108 #14-1111 #14-1117 #14-1124 #14-1135
#14-1138 #16-1227 #16-1229 #16-1248 #17-1310 #17-1312 #17-1313 #19-1406 #19-1409 #19-1413
#19-1434 #19-1442 #21-1536 #21-1538 #21-1544 #21-1550 #21-1553 #21-1556 #22-1628 #22-1630
#22-1631 #24-1724 #24-1727 #24-1734 #24-1748 #26-1845 #26-1848 #26-1851 #26-1862 #26-1865
#26-1871 #26-1878 #26-1885 #26-1892 #26-1898 #28-1979 #28-1981 #28-1986 #28-1990 #28-1994
#28-2000 #28-2004 #28-2008 #28-2019 #28-2023 #28-2027 #28-2031 #28-2035 #28-2039 #28-2054
#28-2062 #30-2156 #30-2158 #30-2170 #30-2174 #30-2177 #30-2183 #30-2184 #30-2189 #30-2193
#30-2205 #30-2215 #30-2218 #32-2314 #32-2322 #32-2327 #32-2331 #32-2334 #32-2347 #32-2353
#32-2357 #32-2364 #32-2368 #32-2374 #32-2388 #32-2395 #32-2405 #32-2406 #32-2419 #32-2420
#34-2509 #34-2516 #34-2522 #34-2526 #34-2531 #34-2540 #34-2547 #34-2559 #34-2563 #34-2569
#34-2575 #34-2591 #34-2597 #34-2608 #34-2609 #34-2615 #35-2687 #36-2763 #37-2835 #37-2838
#37-2840 #38-2909 #38-2913 #38-2918 #38-2926 #38-2929 #39-3002 #39-3004 #39-3005 #39-3006
#40-3071 #42-3236 #42-3238 #42-3252 #42-3255 #42-3259 #42-3260 #42-3271 #42-3281 #42-3286
#42-3293 #42-3297 #42-3307 #42-3308 #42-3323 #42-3326 #43-3407
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 27
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$INMC #5-133 5-133 #6-194 6-194 #8-329 8-329 #10-480 10-480 #12-730 12-730
#14-1000 14-1000 #16-1227 16-1227 #17-1310 17-1310 #19-1406 19-1406 #21-1536 21-1536
#22-1628 22-1628 #24-1724 24-1724 #26-1845 26-1845 #28-1979 28-1979 #30-2156 30-2156
#32-2314 32-2314 #34-2509 34-2509 #35-2687 35-2687 #36-2763 36-2763 #37-2835 37-2835
#38-2909 38-2909 #39-3002 39-3002 #40-3071 40-3071 #42-3236 42-3236 #43-3407 43-3407
$$INSY #5-133 5-133 #6-194 6-194 #8-329 8-329 #10-480 10-480 #12-730 12-730
#14-1000 14-1000 #16-1227 16-1227 #17-1310 17-1310 #19-1406 19-1406 #21-1536 21-1536
#22-1628 22-1628 #24-1724 24-1724 #26-1845 26-1845 #28-1979 28-1979 #30-2156 30-2156
#32-2314 32-2314 #34-2509 34-2509 #35-2687 35-2687 #36-2763 36-2763 #37-2835 37-2835
#38-2909 38-2909 #39-3002 39-3002 #40-3071 40-3071 #42-3236 42-3236 #43-3407 43-3407
$$LAB #5-133 #6-194 6-208 6-211 6-213 6-216 6-219 6-221 #8-329 8-334
8-342 8-344 8-350 8-352 8-354 8-355 8-359 8-362 8-366 8-370
8-373 8-375 8-377 8-378 8-379 8-380 8-383 8-387 8-389 8-390
8-392 #10-480 10-483 10-486 10-494 10-499 10-501 10-503 10-510 10-513
10-515 10-518 10-519 10-520 10-522 10-526 10-529 10-532 10-540 10-541
10-542 10-544 10-548 10-559 10-562 10-564 10-567 10-568 10-569 10-570
10-573 10-576 10-578 10-580 10-584 10-587 10-589 10-592 10-595 #12-730
12-733 12-735 12-738 12-762 12-765 12-771 12-774 12-776 12-778 12-781
12-785 12-789 12-800 12-802 12-804 12-812 12-816 12-817 12-820 12-821
12-825 12-829 12-833 12-841 12-859 12-862 12-863 12-865 12-866 12-868
12-869 #14-1000 14-1003 14-1007 14-1010 14-1014 14-1017 14-1020 14-1022 14-1026
14-1029 14-1031 14-1034 14-1036 14-1037 14-1038 14-1041 14-1044 14-1047 14-1049
14-1050 14-1053 14-1059 14-1061 14-1067 14-1070 14-1079 14-1088 14-1094 14-1097
14-1102 14-1104 14-1106 14-1109 14-1112 14-1115 14-1118 14-1122 14-1125 14-1128
14-1130 14-1131 14-1132 14-1133 14-1136 14-1139 14-1142 14-1145 14-1147 #16-1227
16-1230 16-1235 16-1249 16-1252 16-1254 16-1255 #17-1310 17-1314 17-1317 17-1319
#19-1406 19-1410 19-1414 19-1416 19-1418 19-1426 19-1428 19-1435 19-1438 19-1443
19-1446 19-1450 19-1451 #21-1536 21-1539 21-1542 21-1545 21-1547 21-1551 21-1554
21-1557 21-1559 21-1561 21-1563 21-1565 21-1566 21-1569 21-1570 21-1571 #22-1628
22-1632 22-1634 22-1636 #24-1724 24-1728 24-1735 24-1737 24-1740 24-1741 24-1743
24-1749 24-1752 24-1761 #26-1845 26-1849 26-1852 26-1854 26-1859 26-1860 26-1863
26-1866 26-1868 26-1872 26-1874 26-1879 26-1881 26-1886 26-1888 26-1893 26-1895
26-1899 26-1901 26-1902 #28-1979 28-1982 28-1984 28-1987 28-1991 28-1995 28-1999
28-2001 28-2003 28-2005 28-2007 28-2009 28-2011 28-2014 28-2015 28-2016 28-2020
28-2024 28-2028 28-2032 28-2034 28-2036 28-2038 28-2040 28-2042 28-2045 28-2046
28-2048 28-2049 28-2051 28-2052 28-2055 28-2060 28-2063 28-2070 #30-2156 30-2159
30-2167 30-2171 30-2175 30-2178 30-2182 30-2185 30-2187 30-2190 30-2194 30-2196
30-2198 30-2200 30-2201 30-2203 30-2206 30-2208 30-2209 30-2211 30-2213 30-2216
30-2219 30-2221 30-2224 30-2225 #32-2314 32-2323 32-2325 32-2328 32-2332 32-2335
32-2338 32-2343 32-2344 32-2345 32-2348 32-2354 32-2358 32-2360 32-2363 32-2365
32-2369 32-2375 32-2380 32-2383 32-2384 32-2387 32-2389 32-2396 32-2401 32-2404
32-2407 32-2413 32-2416 32-2417 32-2421 32-2424 #34-2509 34-2517 34-2523 34-2527
34-2532 34-2534 34-2536 34-2539 34-2541 34-2548 34-2555 34-2558 34-2560 34-2564
34-2570 34-2576 34-2578 34-2586 34-2587 34-2588 34-2590 34-2592 34-2598 34-2600
34-2603 34-2605 34-2610 34-2612 34-2613 34-2616 34-2618 #35-2687 #36-2763 #37-2835
37-2841 37-2843 37-2846 #38-2909 38-2914 38-2917 38-2919 38-2922 38-2924 38-2927
38-2930 38-2932 38-2935 38-2936 #39-3002 39-3007 39-3010 39-3013 #40-3071 #42-3236
42-3239 42-3250 42-3253 42-3256 42-3261 42-3263 42-3265 42-3269 42-3272 42-3274
42-3276 42-3278 42-3279 42-3282 42-3287 42-3290 42-3291 42-3294 42-3298 42-3303
42-3309 42-3315 42-3317 42-3321 42-3324 42-3327 42-3332 42-3335 42-3336 #43-3407
$$POP #5-133 #6-194 #6-213 #6-213 #6-221 #6-221 #8-329 #8-344 #8-344 #8-354
#8-354 #8-355 #8-355 #8-377 #8-377 #8-378 #8-378 #8-379 #8-379 #8-389
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 28
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#8-389 #8-390 #8-390 #8-392 #8-392 #10-480 #10-518 #10-518 #10-519 #10-519
#10-540 #10-540 #10-541 #10-541 #10-567 #10-567 #10-568 #10-568 #10-569 #10-569
#10-573 #10-573 #10-573 #10-578 #10-578 #10-580 #10-580 #10-587 #10-587 #10-589
#10-589 #10-595 #10-595 #12-730 #12-735 #12-735 #12-762 #12-762 #12-776 #12-776
#12-778 #12-778 #12-804 #12-804 #12-816 #12-816 #12-820 #12-820 #12-821 #12-821
#12-862 #12-862 #12-865 #12-865 #12-868 #12-868 #12-869 #12-869 #14-1000 #14-1007
#14-1007 #14-1014 #14-1014 #14-1031 #14-1031 #14-1036 #14-1036 #14-1037 #14-1037 #14-1038
#14-1038 #14-1049 #14-1049 #14-1050 #14-1050 #14-1061 #14-1061 #14-1070 #14-1070 #14-1088
#14-1088 #14-1094 #14-1094 #14-1104 #14-1104 #14-1106 #14-1106 #14-1130 #14-1130 #14-1131
#14-1131 #14-1132 #14-1132 #14-1133 #14-1133 #14-1145 #14-1145 #14-1147 #14-1147 #16-1227
#16-1254 #16-1254 #16-1255 #16-1255 #17-1310 #17-1319 #17-1319 #19-1406 #19-1418 #19-1418
#19-1428 #19-1428 #19-1450 #19-1450 #19-1451 #19-1451 #21-1536 #21-1561 #21-1561 #21-1565
#21-1565 #21-1569 #21-1569 #21-1570 #21-1570 #21-1571 #21-1571 #22-1628 #22-1636 #22-1636
#24-1724 #24-1740 #24-1740 #24-1743 #24-1743 #24-1761 #24-1761 #26-1845 #26-1859 #26-1859
#26-1860 #26-1860 #26-1868 #26-1868 #26-1874 #26-1874 #26-1881 #26-1881 #26-1888 #26-1888
#26-1895 #26-1895 #26-1901 #26-1901 #26-1902 #26-1902 #28-1979 #28-1984 #28-1984 #28-2014
#28-2014 #28-2014 #28-2015 #28-2015 #28-2016 #28-2016 #28-2045 #28-2045 #28-2045 #28-2048
#28-2048 #28-2051 #28-2051 #28-2052 #28-2052 #28-2060 #28-2060 #28-2070 #28-2070 #30-2156
#30-2167 #30-2167 #30-2187 #30-2187 #30-2196 #30-2196 #30-2200 #30-2200 #30-2203 #30-2203
#30-2208 #30-2208 #30-2211 #30-2211 #30-2213 #30-2213 #30-2224 #30-2224 #30-2225 #30-2225
#32-2314 #32-2325 #32-2325 #32-2343 #32-2343 #32-2344 #32-2344 #32-2345 #32-2345 #32-2360
#32-2360 #32-2383 #32-2383 #32-2384 #32-2384 #32-2401 #32-2401 #32-2416 #32-2416 #32-2416
#32-2417 #32-2417 #32-2424 #32-2424 #34-2509 #34-2534 #34-2534 #34-2536 #34-2536 #34-2555
#34-2555 #34-2586 #34-2586 #34-2587 #34-2587 #34-2588 #34-2588 #34-2600 #34-2600 #34-2605
#34-2605 #34-2605 #34-2612 #34-2612 #34-2613 #34-2613 #34-2618 #34-2618 #35-2687 #36-2763
#37-2835 #37-2846 #37-2846 #38-2909 #38-2924 #38-2924 #38-2924 #38-2935 #38-2935 #38-2936
#38-2936 #39-3002 #39-3013 #39-3013 #40-3071 #42-3236 #42-3250 #42-3250 #42-3265 #42-3265
#42-3276 #42-3276 #42-3278 #42-3278 #42-3279 #42-3279 #42-3290 #42-3290 #42-3291 #42-3291
#42-3303 #42-3303 #42-3317 #42-3317 #42-3321 #42-3321 #42-3335 #42-3335 #42-3336 #42-3336
#43-3407
$$POPI #5-133 #6-194 #6-213 #6-213 #6-221 #6-221 #8-329 #8-344 #8-344 #8-354
#8-354 #8-355 #8-355 #8-377 #8-377 #8-378 #8-378 #8-379 #8-379 #8-389
#8-389 #8-390 #8-390 #8-392 #8-392 #10-480 #10-518 #10-518 #10-519 #10-519
#10-540 #10-540 #10-541 #10-541 #10-567 #10-567 #10-568 #10-568 #10-569 #10-569
#10-573 #10-573 #10-573 #10-578 #10-578 #10-580 #10-580 #10-587 #10-587 #10-589
#10-589 #10-595 #10-595 #12-730 #12-735 #12-735 #12-762 #12-762 #12-776 #12-776
#12-778 #12-778 #12-804 #12-804 #12-816 #12-816 #12-820 #12-820 #12-821 #12-821
#12-862 #12-862 #12-865 #12-865 #12-868 #12-868 #12-869 #12-869 #14-1000 #14-1007
#14-1007 #14-1014 #14-1014 #14-1031 #14-1031 #14-1036 #14-1036 #14-1037 #14-1037 #14-1038
#14-1038 #14-1049 #14-1049 #14-1050 #14-1050 #14-1061 #14-1061 #14-1070 #14-1070 #14-1088
#14-1088 #14-1094 #14-1094 #14-1104 #14-1104 #14-1106 #14-1106 #14-1130 #14-1130 #14-1131
#14-1131 #14-1132 #14-1132 #14-1133 #14-1133 #14-1145 #14-1145 #14-1147 #14-1147 #16-1227
#16-1254 #16-1254 #16-1255 #16-1255 #17-1310 #17-1319 #17-1319 #19-1406 #19-1418 #19-1418
#19-1428 #19-1428 #19-1450 #19-1450 #19-1451 #19-1451 #21-1536 #21-1561 #21-1561 #21-1565
#21-1565 #21-1569 #21-1569 #21-1570 #21-1570 #21-1571 #21-1571 #22-1628 #22-1636 #22-1636
#24-1724 #24-1740 #24-1740 #24-1743 #24-1743 #24-1761 #24-1761 #26-1845 #26-1859 #26-1859
#26-1860 #26-1860 #26-1868 #26-1868 #26-1874 #26-1874 #26-1881 #26-1881 #26-1888 #26-1888
#26-1895 #26-1895 #26-1901 #26-1901 #26-1902 #26-1902 #28-1979 #28-1984 #28-1984 #28-2014
#28-2014 #28-2014 #28-2015 #28-2015 #28-2016 #28-2016 #28-2045 #28-2045 #28-2045 #28-2048
#28-2048 #28-2051 #28-2051 #28-2052 #28-2052 #28-2060 #28-2060 #28-2070 #28-2070 #30-2156
#30-2167 #30-2167 #30-2187 #30-2187 #30-2196 #30-2196 #30-2200 #30-2200 #30-2203 #30-2203
#30-2208 #30-2208 #30-2211 #30-2211 #30-2213 #30-2213 #30-2224 #30-2224 #30-2225 #30-2225
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 29
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#32-2314 #32-2325 #32-2325 #32-2343 #32-2343 #32-2344 #32-2344 #32-2345 #32-2345 #32-2360
#32-2360 #32-2383 #32-2383 #32-2384 #32-2384 #32-2401 #32-2401 #32-2416 #32-2416 #32-2416
#32-2417 #32-2417 #32-2424 #32-2424 #34-2509 #34-2534 #34-2534 #34-2536 #34-2536 #34-2555
#34-2555 #34-2586 #34-2586 #34-2587 #34-2587 #34-2588 #34-2588 #34-2600 #34-2600 #34-2605
#34-2605 #34-2605 #34-2612 #34-2612 #34-2613 #34-2613 #34-2618 #34-2618 #35-2687 #36-2763
#37-2835 #37-2846 #37-2846 #38-2909 #38-2924 #38-2924 #38-2924 #38-2935 #38-2935 #38-2936
#38-2936 #39-3002 #39-3013 #39-3013 #40-3071 #42-3236 #42-3250 #42-3250 #42-3265 #42-3265
#42-3276 #42-3276 #42-3278 #42-3278 #42-3279 #42-3279 #42-3290 #42-3290 #42-3291 #42-3291
#42-3303 #42-3303 #42-3317 #42-3317 #42-3321 #42-3321 #42-3335 #42-3335 #42-3336 #42-3336
#43-3407
$$PUSH #5-133 #6-194 #6-208 #6-208 #6-214 #6-214 #8-329 #8-330 #8-330 #8-340
#8-340 #8-348 #8-348 #8-357 #8-357 #8-360 #8-360 #8-364 #8-364 #8-368
#8-368 #8-371 #8-371 #8-381 #8-381 #10-480 #10-481 #10-481 #10-492 #10-492
#10-496 #10-496 #10-496 #10-508 #10-508 #10-511 #10-511 #10-524 #10-524 #10-527
#10-527 #10-546 #10-546 #10-557 #10-557 #10-560 #10-560 #10-574 #10-574 #10-581
#10-581 #10-590 #10-590 #12-730 #12-731 #12-731 #12-736 #12-736 #12-763 #12-763
#12-767 #12-767 #12-779 #12-779 #12-783 #12-783 #12-786 #12-786 #12-797 #12-797
#12-823 #12-823 #12-827 #12-827 #12-831 #12-831 #12-834 #12-834 #14-1000 #14-1001
#14-1001 #14-1008 #14-1008 #14-1015 #14-1015 #14-1018 #14-1018 #14-1023 #14-1023 #14-1027
#14-1027 #14-1039 #14-1039 #14-1042 #14-1042 #14-1051 #14-1051 #14-1057 #14-1057 #14-1065
#14-1065 #14-1073 #14-1073 #14-1095 #14-1095 #14-1098 #14-1098 #14-1107 #14-1107 #14-1110
#14-1110 #14-1116 #14-1116 #14-1123 #14-1123 #14-1134 #14-1134 #14-1137 #14-1137 #16-1227
#16-1228 #16-1228 #16-1247 #16-1247 #17-1310 #17-1311 #17-1311 #19-1406 #19-1408 #19-1408
#19-1412 #19-1412 #19-1433 #19-1433 #19-1441 #19-1441 #21-1536 #21-1537 #21-1537 #21-1543
#21-1543 #21-1549 #21-1549 #21-1552 #21-1552 #21-1555 #21-1555 #22-1628 #22-1629 #22-1629
#24-1724 #24-1726 #24-1726 #24-1733 #24-1733 #24-1747 #24-1747 #26-1845 #26-1847 #26-1847
#26-1850 #26-1850 #26-1861 #26-1861 #26-1864 #26-1864 #26-1870 #26-1870 #26-1877 #26-1877
#26-1884 #26-1884 #26-1891 #26-1891 #26-1897 #26-1897 #28-1979 #28-1980 #28-1980 #28-1985
#28-1985 #28-1989 #28-1989 #28-1992 #28-1992 #28-1992 #28-2018 #28-2018 #28-2022 #28-2022
#28-2026 #28-2026 #28-2029 #28-2029 #28-2029 #28-2053 #28-2053 #28-2061 #28-2061 #30-2156
#30-2157 #30-2157 #30-2169 #30-2169 #30-2173 #30-2173 #30-2176 #30-2176 #30-2182 #30-2182
#30-2188 #30-2188 #30-2192 #30-2192 #30-2204 #30-2204 #30-2214 #30-2214 #30-2217 #30-2217
#32-2314 #32-2321 #32-2321 #32-2326 #32-2326 #32-2330 #32-2330 #32-2333 #32-2333 #32-2346
#32-2346 #32-2349 #32-2349 #32-2349 #32-2356 #32-2356 #32-2367 #32-2367 #32-2373 #32-2373
#32-2394 #32-2394 #32-2418 #32-2418 #34-2509 #34-2515 #34-2515 #34-2519 #34-2519 #34-2519
#34-2525 #34-2525 #34-2530 #34-2530 #34-2546 #34-2546 #34-2562 #34-2562 #34-2568 #34-2568
#34-2574 #34-2574 #34-2596 #34-2596 #34-2607 #34-2607 #34-2614 #34-2614 #35-2687 #36-2763
#37-2835 #37-2836 #37-2836 #38-2909 #38-2910 #38-2910 #38-2910 #38-2925 #38-2925 #38-2928
#38-2928 #39-3002 #39-3003 #39-3003 #40-3071 #42-3236 #42-3237 #42-3237 #42-3251 #42-3251
#42-3254 #42-3254 #42-3258 #42-3258 #42-3270 #42-3270 #42-3280 #42-3280 #42-3285 #42-3285
#42-3292 #42-3292 #42-3296 #42-3296 #42-3306 #42-3306 #42-3322 #42-3322 #42-3325 #42-3325
#43-3407
$$STSM #5-133 #6-194 #6-208 #6-208 #6-214 #6-214 #8-329 #8-330 #8-330 #8-340
#8-340 #8-348 #8-348 #8-357 #8-357 #8-360 #8-360 #8-364 #8-364 #8-368
#8-368 #8-371 #8-371 #8-381 #8-381 #10-480 #10-481 #10-481 #10-492 #10-492
#10-496 #10-496 #10-496 #10-508 #10-508 #10-511 #10-511 #10-524 #10-524 #10-527
#10-527 #10-546 #10-546 #10-557 #10-557 #10-560 #10-560 #10-574 #10-574 #10-581
#10-581 #10-590 #10-590 #12-730 #12-731 #12-731 #12-736 #12-736 #12-763 #12-763
#12-767 #12-767 #12-779 #12-779 #12-783 #12-783 #12-786 #12-786 #12-797 #12-797
#12-823 #12-823 #12-827 #12-827 #12-831 #12-831 #12-834 #12-834 #14-1000 #14-1001
#14-1001 #14-1008 #14-1008 #14-1015 #14-1015 #14-1018 #14-1018 #14-1023 #14-1023 #14-1027
#14-1027 #14-1039 #14-1039 #14-1042 #14-1042 #14-1051 #14-1051 #14-1057 #14-1057 #14-1065
LSLNSR CREATED BY MACRO ON 13-OCT-79 AT 12:07 PAGE 30
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#14-1065 #14-1073 #14-1073 #14-1095 #14-1095 #14-1098 #14-1098 #14-1107 #14-1107 #14-1110
#14-1110 #14-1116 #14-1116 #14-1123 #14-1123 #14-1134 #14-1134 #14-1137 #14-1137 #16-1227
#16-1228 #16-1228 #16-1247 #16-1247 #17-1310 #17-1311 #17-1311 #19-1406 #19-1408 #19-1408
#19-1412 #19-1412 #19-1433 #19-1433 #19-1441 #19-1441 #21-1536 #21-1537 #21-1537 #21-1543
#21-1543 #21-1549 #21-1549 #21-1552 #21-1552 #21-1555 #21-1555 #22-1628 #22-1629 #22-1629
#24-1724 #24-1726 #24-1726 #24-1733 #24-1733 #24-1747 #24-1747 #26-1845 #26-1847 #26-1847
#26-1850 #26-1850 #26-1861 #26-1861 #26-1864 #26-1864 #26-1870 #26-1870 #26-1877 #26-1877
#26-1884 #26-1884 #26-1891 #26-1891 #26-1897 #26-1897 #28-1979 #28-1980 #28-1980 #28-1985
#28-1985 #28-1989 #28-1989 #28-1992 #28-1992 #28-1992 #28-2018 #28-2018 #28-2022 #28-2022
#28-2026 #28-2026 #28-2029 #28-2029 #28-2029 #28-2053 #28-2053 #28-2061 #28-2061 #30-2156
#30-2157 #30-2157 #30-2169 #30-2169 #30-2173 #30-2173 #30-2176 #30-2176 #30-2182 #30-2182
#30-2188 #30-2188 #30-2192 #30-2192 #30-2204 #30-2204 #30-2214 #30-2214 #30-2217 #30-2217
#32-2314 #32-2321 #32-2321 #32-2326 #32-2326 #32-2330 #32-2330 #32-2333 #32-2333 #32-2346
#32-2346 #32-2349 #32-2349 #32-2349 #32-2356 #32-2356 #32-2367 #32-2367 #32-2373 #32-2373
#32-2394 #32-2394 #32-2418 #32-2418 #34-2509 #34-2515 #34-2515 #34-2519 #34-2519 #34-2519
#34-2525 #34-2525 #34-2530 #34-2530 #34-2546 #34-2546 #34-2562 #34-2562 #34-2568 #34-2568
#34-2574 #34-2574 #34-2596 #34-2596 #34-2607 #34-2607 #34-2614 #34-2614 #35-2687 #36-2763
#37-2835 #37-2836 #37-2836 #38-2909 #38-2910 #38-2910 #38-2910 #38-2925 #38-2925 #38-2928
#38-2928 #39-3002 #39-3003 #39-3003 #40-3071 #42-3236 #42-3237 #42-3237 #42-3251 #42-3251
#42-3254 #42-3254 #42-3258 #42-3258 #42-3270 #42-3270 #42-3280 #42-3280 #42-3285 #42-3285
#42-3292 #42-3292 #42-3296 #42-3296 #42-3306 #42-3306 #42-3322 #42-3322 #42-3325 #42-3325
#43-3407
$$SYS #5-133 #6-194 #8-329 #10-480 #12-730 #14-1000 #16-1227 #17-1310 #19-1406 #21-1536
#22-1628 #24-1724 #26-1845 #28-1979 #30-2156 #32-2314 #34-2509 #35-2687 #36-2763 #37-2835
#38-2909 #39-3002 #40-3071 #42-3236 #43-3407
$$TRCE #5-133 5-133 5-137 #6-194 6-194 6-246 #8-329 8-329 8-394 #10-480
10-480 10-596 #12-730 12-730 12-871 #14-1000 14-1000 14-1149 #16-1227 16-1227
16-1256 #17-1310 17-1310 17-1320 #19-1406 19-1406 19-1452 #21-1536 21-1536 21-1572
#22-1628 22-1628 22-1638 #24-1724 24-1724 24-1762 #26-1845 26-1845 26-1904 #28-1979
28-1979 28-2072 #30-2156 30-2156 30-2227 #32-2314 32-2314 32-2426 #34-2509 34-2509
34-2620 #35-2687 35-2687 35-2692 #36-2763 36-2763 36-2769 #37-2835 37-2835 37-2847
#38-2909 38-2909 38-2937 #39-3002 39-3002 39-3014 #40-3071 40-3071 40-3078 #42-3236
42-3236 42-3338 #43-3407 43-3407 43-3413