MACROS PERI
(George Source)
- MACROS PERI.txt
22FL #SKI 22^= ( 23DW [ MACROS PERI COMM SECTION 23YG [ SOME MACROS WHICH WERE ORIGINALLY IN MACROS PERI 24D6 [ ARE NOW IN MACS SPC 24XQ ) 25CB [??? CLALLOC SECT COMM FGN 14 DOC 25X2 #SKI 26BL ( 26W= # 27*W # UNSET DEVICE ALLOCATED MARKER 27TG # 28*6 ) 28SQ #MAC CLALLOC 29#B NGN 0 2 29S2 MODD ANDS 0 JPSTATE,%A,CPPTR(2) 2=?L #NOR 2=R= [??? CLBGROP SECT COMM 2?=W #SKI 2?QG ( 2#=6 # 2#PQ # UNSET BEING GROPED MARKER 2*9B # 2*P2 ) 2B8L #MAC CLBGROP 2BN= NGN 0 33 2C7W MODD ANDS 0 JPSTATE,%A,CPPTR(2) 2CMG #NOR 2D76 [??? CLCOUNT SECT COMM FGN 14 DOC 2DLQ #SKI 2F6B ( 2FL2 # 2G5L # CLEAR DEVICE TRANSFERS COUNTS 2GK= # 2H4W ) 2HJG #MAC CLCOUNT 2J46 #STR %B,GEORGE 2JHQ #SKI 2K3B MODD STOZ JK52H,%A,CPPTR(2) 2KH2 #STR %B,OBJECT 2L2L #SKI 2LG= MODD STOZ JK52I,%A,CPPTR(2) 2L^W #STR %B,REPEAT 2MFG #SKI 2M^6 MODD STOZ JK52J,%A,CPPTR(2) 2NDQ #STR %B,FAIL 2NYB #SKI 2PD2 MODD STOZ JK52K,%A,CPPTR(2) 2PXL #STR %B,CERR 2QC= #SKI 2QWW MODD STOZ JCERR,%A,CPPTR(2) 2RBG #NOR 2RW6 [??? CLDRM SECT COMM FGN 14 DOC 2S*Q #SKI 2STB ( 2T*2 # 2TSL # TAKE ONLINE DEVICE OUT OF DRM 2W#= # 2WRW ) 2X?G #MAC CLDRM 2XR6 MODD LDX 0 JK52F,%A,CPPTR(2) 2Y=Q SLL 0 8 2YQB BNG 0 MCLDRM1 2^=2 NGN 0 5 2^PL MODD ANDS 0 JK52E,%A,CPPTR(2) 329= MCLDRM1 32NW #NOR 338G [??? CLEARJPS SECT COMM FGN 14 DOC 33N6 #SKI 347Q ( 34MB # 3572 # CLEAR JPSTATE WORD 35LL # 366= ) 36KW #MAC CLEARJPS 375G NGN 0 #640 37K6 MODD ANDS 0 JPSTATE,%A,CPPTR(2) 384Q #NOR 38JB [??? CLFAIL SECT COMM FGN 14 DOC 3942 #SKI 39HL ( 3=3= # 3=GW # UNSET DEVICE FAILED LAST ONLINE TRANSFER MARK 3?2G # 3?G6 ) 3?^Q #MAC CLFAIL 3#FB NGN 0 3 3#^2 MODD ANDS 0 JK52E,%A,CPPTR(2) 3*DL #NOR 3*Y= [??? CLFAILTY SECT COMM FGN 14 DOC 3BCW #SKI 3BXG ( 3CC6 # 3CWQ # UNSET MT FAIL TYPE 3DBB # 3DW2 ) 3F*L #MAC CLFAILTYPE 3FT= NGN 0 449 3G#W MODD ANDS 0 JK52E,%A,CPPTR(2) 3GSG #NOR 3H#6 [??? CLHLFDON SECT COMM FGN 14 DOC 3HRQ #SKI 3J?B ( 3JR2 # 3K=L # CLEAR HALFDONEBIT 3KQ= # 3L9W ) 3LPG #MAC CLHLFDON 3M96 BC %A,HALFDONEBIT 3MNQ #NOR 3N8B [??? CLJOBLMT SECT COMM FGN 14 DOC 3NN2 #SKI 3P7L ( 3PM= # 3Q6W # UNSET JOBLIMIT REACHED MARKER 3QLG # 3R66 ) 3RKQ #MAC CLJOBLMT 3S5B NGN 0 9 3SK2 MODD ANDS 0 JPSTATE,%A,CPPTR(2) 3T4L #NOR 3TJ= [??? CLOBJPER SECT COMM FGN 14 DOC 3W3W #SKI 3WHG ( 3X36 # 3XGQ # CLEAR CURRENT COUNT OF OBJECT PROGRAM PERIS 3Y2B # 3YG2 ) 3Y^L #MAC CLOBJPERIS 3^F= CLCOUNT %A,OBJECT 3^YW #NOR 42DG [??? CLRGROP SECT COMM 42Y6 #SKI 43CQ ( 43XB # 44C2 # CLEAR LP TO BE REGROPED MARKER 44WL # 45B= ) 45TW #MAC CLRGROP 46*G NGN 0 513 46T6 MODD ANDS 0 JPSTATE,%A,CPPTR(2) 47#Q #NOR 47SB [??? CLSWOVER SECT COMM 48#2 #SKI 48RL ( 49?= # 49QW # CLEAR SWITCH OVER BIT 4==G # 4=Q6 ) 4?9Q #MAC CLSWOVER 4?PB NGN 0 2049 4#92 MODD ANDS 0 JPSTATE,%A,CPPTR(2) 4#NL #NOR 4*8= [??? CLWTBSW SECT COMM 4*MW #SKI 4B7G ( 4BM6 # UNSET WAITING TO BE SWITCHED OUT MARKER 4C6Q # 4CLB ) 4D62 #MAC CLWTBSW 4DKL NGN 0 65 4F5= MODD ANDS 0 JPSTATE,%A,CPPTR(2) 4FJW #NOR 4G4G [??? CLWTBWR SECT COMM FGN 14 DOC 4GJ6 #SKI 4H3Q ( 4HHB # 4J32 # UNSET WAITING TO BE WRONGED MARKER 4JGL # 4K2= ) 4KFW #MAC CLWTBWR 4K^G NGN 0 129 4LF6 MODD ANDS 0 JPSTATE,%A,CPPTR(2) 4LYQ #NOR 4MDB [??? DISENGPE SECT COMM FGN 14 DOC 4MY2 #SKI 4NCL ( 4NX= # 4PBW # DISENGAGE DEVICE 4PWG # 4QB6 ) 4QTQ #MAC DISENGPER 4R*B #STR %A 4RT2 DIS 0 %A 4S#L #STR %A 4SS= #SKI 4T?W DIS 0 CPPTR(2) 4TRG #NOR 4W?6 [??? DOCOFF SECT COMM FGN 14 DOC 4WQQ #SKI 4X=B ( 4XQ2 # 4Y9L # CLEAR "DOCUMENT LOADED" MARKER 4YP= # 4^8W ) 4^NG #MAC DOCOFF 5286 NGN 0 #21 52MQ MODD ANDS 0 JPSTATE,%A,CPPTR(2) 537B #NOR 53M2 [??? DOCON SECT COMM FGN 14 DOC 546L #SKI 54L= ( 555W # 55KG # 5656 # SET "DOCUMENT LOADED" MARKER 56JQ # 574B ) 57J2 #MAC DOCON 583L LDN 0 #20 58H= MODD ORS 0 JPSTATE,%A,CPPTR(2) 592W #NOR 59GG [??? ENGPER SECT COMM FGN 14 DOC 5=26 #SKI 5=FQ ( 5=^B # 5?F2 # ENGAGE DEVICE 5?YL # 5#D= ) 5#XW #MAC ENGPER 5*CG #STR %B 5*X6 ( 5BBQ LDX 0 %B 5BWB SMO FX2 5CB2 STO 0 ACOMMUNE7 5CTL LDN 0 %D+0 5D*= SMO FX2 5DSW STO 0 ACOMMUNE8 5F#G ) 5FS6 #STR %B 5G?Q #SKI 5GRB ( 5H?2 LDX 0 CPPTR(2) 5HQL STO 0 ACOMMUNE7(2) 5J== LDN 0 %D+0 5JPW STO 0 ACOMMUNE8(2) 5K9G ) 5KP6 DOWN ENGAGE,10 5L8Q BRN %A 5LNB BRN %C 5M82 #NOR 5MML [??? GLPERI SECT COMM FGN 14 DOC 5N7= #SKI 5NLW ( 5P6G 5PL6 ) 5Q5Q #MAC GLPERI [C.E.WILKINSON 5QKB LDN 0 1 5R52 MODD STO 0 JCCA1,%A,CPPTR(2) 5RJL #STR %A 5S4= PERI 0 %A 5SHW #STR %A 5T3G #SKI 5TH6 PERI 0 CPPTR(2) 5W2Q #NOR 5WGB [??? GPERI SECT COMM FGN 14 DOC 5X22 #SKI 5XFL ( 5X^= # 5YDW # INITIATE PERIPHERAL TRANSFER 5YYG # 5^D6 ) 5^XQ #MAC GPERI 62CB LDCT 0 #400 62X2 #STR NC,%C 63BL STO 0 CHAINADD(%B) 63W= ADN 0 CHAINADD(%B) 64*W MODD STO 0 JCCA5,%A,CPPTR(%B) 64TG LDN 0 CPRW1(%B) 65*6 MODD STO 0 JCCA1,%A,CPPTR(%B) 65SQ #STR %A 66#B PERI 0 %A 66S2 #STR %A 67?L #SKI 67R= PERI 0 CPPTR(%B) 68=W #NOR 68QG [??? GPERIIPC SECT COMM FGN 14 DOC 69=6 #SKI 69PQ ( 6=9B # 6=P2 # PERI WITH B23 SET AND CHAINING (SPOUT AND CURRENT) 6?8L # 6?N= ) 6#7W #MAC GPERIIPC 6#MG LDCT 0 #400 6*76 ADN 0 1 6*LQ STO 0 CHAINADD(%B) 6B6B ADN 0 CHAINADD-1(%B) 6BL2 #STR SP,%C 6C5L MODD STO 0 JCCA5,%A,CPPTR(%B) 6CK= #STR CT,%C 6D4W MODD STO 0 JSCA5,%A,CPPTR(%B) 6DJG #STR SP,%C 6F46 ( 6FHQ LDN 0 CPRW1(%B) 6G3B MODD STO 0 JCCA1,%A,CPPTR(%B) 6GH2 ) 6H2L #STR CT,%C 6HG= ( 6H^W LDN 0 CPRW2(%B) 6JFG MODD STO 0 JSCA1,%A,CPPTR(%B) 6J^6 ) 6KDQ #STR %A 6KYB PERI 0 %A 6LD2 #STR %A 6LXL #SKI 6MC= PERI 0 CPPTR(%B) 6MWW #NOR 6NBG [??? GROPE SECT COMM 6NW6 #SKI 6P*Q ( 6PTB # 6Q*2 # ISSUE GROPE EXTRACODE 6QSL # 6R#= ) 6RRW #MAC GROPE 6S?G LDX 2 FX2 6SR6 #STR %A 6T=Q #SKI 6TQB LDX 1 CPPTR(2) 6W=2 #STR %A 6WPL ( 6X9= #STR %A,1 6XNW LDX 1 %A 6Y8G ) 6YN6 LDX 0 GSIGN 6^7Q STO 0 CHAINADD(2) 6^MB ADN 0 CHAINADD(2) 7272 STO 0 JCCA5(1) 72LL LDN 0 CPRW1(2) 736= STO 0 JCCA1(1) 73KW #MOD %B 745G ( 74K6 LDX 0 %B 754Q ADN 0 A1 75JB ) 7642 #MOD %B 76HL #SKI 773= LDN 0 A1(%B) 77GW DCA 1,STO,0,CTSA 782G LDN 0 4 78G6 DCA 1,STO,0,COUNT 78^Q LDX 0 1 79FB LDX 1 FX1 79^2 '171 0 7 [DO ACTUAL GROPE 7=DL BNG 0 %C [J IF REJECTED 7=Y= COOR1 7?CW LDCT 0 #040 7?XG ANDX 0 CPRW1(2) 7#C6 BNZ 0 %C 7#WQ #NOR 7*BB [??? GROPEREC SECT COMM 7*W2 #SKI 7B*L ( 7BT= # 7C#W # GROPE ANON DEVICES SEARCHING FOR DEVICE LIST WITH KEY 7CSG # 7D#6 ) 7DRQ #MAC GROPEREC 7F?B #STR APINT,%B 7FR2 #STR 7G=L ( 7GQ= SMO FX2 7H9W STOZ ACOMMUNE1 7HPG LDX 0 %C 7J96 SMO FX2 7JNQ STO 0 ACOMMUNE2 7K8B ) 7KN2 #STR APGEOG,%B 7L7L #STR 7LM= ( 7M6W LDN 0 1 7MLG SMO FX2 7N66 STO 0 ACOMMUNE1 7NKQ LDX 0 %C 7P5B SMO FX2 7PK2 STO 0 ACOMMUNE2 7Q4L ) 7QJ= #STR APTYPE,%B 7R3W #STR 7RHG ( 7S36 LDN 0 2 7SGQ SMO FX2 7T2B STO 0 ACOMMUNE1 7TG2 LDX 0 %C 7T^L SMO FX2 7WF= STO 0 ACOMMUNE2 7WYW ) 7XDG DOWN GROPE,1 7XY6 LDX %A ACOMMUNE1(2) 7YCQ #NOR 7YXB [??? GSPERI SECT COMM FGN 14 DOC 7^C2 #SKI 7^WL ( 82B= # 82TW # INITIATE PERIPHERAL TRANSFER USING SPOUT AND CPRW1 83*G # 83T6 ) 84#Q #MAC GSPERI 84SB LDCT 0 #400 85#2 #STR NC,%C 85RL STO 0 CHAINADD(%B) 86?= ADN 0 CHAINADD(%B) 86QW MODD STO 0 JSCA5,%A,CPPTR(%B) 87=G LDN 0 CPRW1(%B) 87Q6 MODD STO 0 JSCA1,%A,CPPTR(%B) 889Q #STR %A 88PB PERI 0 %A 8992 #STR %A 89NL #SKI 8=8= PERI 0 CPPTR(%B) 8=MW #NOR 8?7G [??? J151L SECT COMM FGN 14 DOC 8?M6 #SKI 8#6Q ( 8#LB # 8*62 # JUMP TO %B IF 151(REL) IS LEGAL FOR OBJECT PROGRAM ON THIS DEVICE 8*KL # 8B5= ) 8BJW #MAC J151L 8C4G MODD LDX 0 JK52F,%A,CPPTR(2) 8CJ6 ANDN 0 2 8D3Q BNZ 0 %B 8DHB #NOR 8F32 [??? J152L SECT COMM FGN 14 DOC 8FGL #SKI 8G2= ( 8GFW # 8G^G # JUMP TO %B IF 152(DIS) IS LEGAL FOR OBJECT PROGRAM ON THIS DEVICE 8HF6 # 8HYQ ) 8JDB #MAC J152L 8JY2 MODD LDX 0 JK52F,%A,CPPTR(2) 8KCL ANDN 0 4 8KX= BNZ 0 %B 8LBW #NOR 8LWG [??? JALLOC SECT COMM FGN 14 DOC 8MB6 #SKI 8MTQ ( 8N*B # 8NT2 # JUMP TO %B IF DEVICE IS ALLOCATED 8P#L # 8PS= ) 8Q?W #MAC JALLOC 8QRG MODD LDX 0 JPSTATE,%A,CPPTR(2) 8R?6 ANDN 0 1 8RQQ BNZ 0 %B 8S=B #NOR 8SQ2 [??? JANON SECT COMM 8T9L #SKI 8TP= ( 8W8W # 8WNG # JUMP TO %B IF DEVICE ANONYMOUS 8X86 # 8XMQ ) 8Y7B #MAC JANON 8YM2 MODD LDEX 0 JK52C,%A,CPPTR(2) 8^6L BZE 0 %B 8^L= #NOR 925W [??? JBACK SECT COMM FGN 14 DOC 92KG #SKI 9356 ( 93JQ # 944B # BRANCH TO %B IF DEVICE %A IS BACKING STORE 94J2 # 953L ) 95H= #MAC JBACK 962W MODD LDX 0 JK52F,%A,CPPTR(2) 96GG SLL 0 11 9726 BNG 0 %B 97FQ #NOR 97^B [??? JBGROP SECT COMM 98F2 #SKI 98YL ( 99D= # 99XW # JUMP TO %B IF DEVICE IS BEING GROPED 9=CG # 9=X6 ) 9?BQ #MAC JBGROP 9?WB MODD LDX 0 JPSTATE,%A,CPPTR(2) 9#B2 ANDN 0 32 9#TL BNZ 0 %B 9**= #NOR 9*SW [??? JBUSY SECT COMM FGN 14 DOC 9B#G #SKI 9BS6 ( 9C?Q # 9CRB # JUMP TO %B IF DEVICE IS BUSY(TRANSFER IN PROGRESS) 9D?2 # 9DQL ) 9F== #MAC JBUSY 9FPW MODD LDX 0 JCCA1,%A,CPPTR(2) 9G9G BNG 0 %B 9GP6 #NOR 9H8Q [??? JCANTENG SECT COMM FGN 14 DOC 9HNB #SKI 9J82 ( 9JML # 9K7= # BRANCH TO %B IF DEVICE IS NON-ENGAGEABLE 9KLW # 9L6G ) 9LL6 #MAC JCANTENG 9M5Q MODD LDX 0 JK52F,%A,CPPTR(2) 9MKB SLL 0 4 9N52 BNG 0 %B 9NJL #NOR 9P4= [??? JCERRCT SECT COMM FGN 20 DOC 9PHW #SKI 9Q3G ( 9QH6 # 9R2Q # JUMP TO %B IF CERR COUNT WORD NOT USED 9RGB # 9S22 ) 9SFL #MAC JCERRCT 9S^= LDCT 0 2 9TDW MODD ANDX 0 JK52F,%A,CPPTR(2) 9TYG BZE 0 %B 9WD6 #NOR 9WXQ [??? JDISENG SECT COMM FGN 14 DOC 9XCB #SKI 9XX2 ( 9YBL # 9YW= # JUMP TO %B IF DEVICE IS DISENGAGED 9^*W # 9^TG ) =2*6 #MAC JDISENG =2SQ MODD LDX 0 JK52E,%A,CPPTR(2) =3#B ANDN 0 1 =3S2 BZE 0 %B =4?L #NOR =4R= [??? JDOCL SECT COMM FGN 14 DOC =5=W #SKI =5QG ( =6=6 # =6PQ # JUMP TO %B IF SLOW I/P DEVICE HAS DOCUMENT LOADED =79B # =7P2 ) =88L #MAC JDOCL =8N= MODD LDX 0 JPSTATE,%A,CPPTR(2) =97W ANDN 0 #20 =9MG BNZ 0 %B ==76 #NOR ==LQ [??? JDRM SECT COMM FGN 14 DOC =?6B #SKI =?L2 ( =#5L # =#K= # JUMP TO %B IF ONLINE DEVICE IS IN DRM =*4W # =*JG ) =B46 #MAC JDRM =BHQ MODD LDX 0 JK52E,%A,CPPTR(2) =C3B ANDN 0 4 =CH2 BNZ 0 %B =D2L #NOR =DG= [??? JDRMABLE SECT COMM FGN 14 DOC =D^W #SKI =FFG ( =F^6 # =GDQ # JUMP TO %B IF DEVICE MAY BE USED ONLINE IN DRM =GYB # =HD2 ) =HXL #MAC JDRMABLE =JC= MODD LDX 0 JK52F,%A,CPPTR(2) =JWW SLL 0 9 =KBG BNG 0 %B =KW6 #NOR =L*Q [??? JENG SECT COMM FGN 14 DOC =LTB #SKI =M*2 ( =MSL # =N#= # JUMP TO %B IF DEVICE IS ENGAGED =NRW # =P?G ) =PR6 #MAC JENG =Q=Q MODD LDX 0 JK52E,%A,CPPTR(2) =QQB ANDN 0 1 =R=2 BNZ 0 %B =RPL #NOR =S9= [??? JENGABLE SECT COMM FGN 14 DOC =SNW #SKI =T8G ( =TN6 # =W7Q # BRANCH TO %B IF DEVICE IS ENGAGEABLE =WMB # =X72 ) =XLL #MAC JENGABLE =Y6= MODD LDX 0 JK52F,%A,CPPTR(2) =YKW SLL 0 4 =^5G BPZ 0 %B =^K6 #NOR ?24Q [??? JEXOTIC SECT COMM FGN 14 DOC ?2JB #SKI ?342 ( ?3HL # ?43= # JUMP TO %B IF DEVICE IS AN EXOTIC ?4GW # ?52G ) ?5G6 #MAC JEXOTIC ?5^Q MODD LDX 0 JK52F,%A,CPPTR(2) ?6FB SLL 0 1 ?6^2 BNG 0 %B ?7DL #NOR ?7Y= [??? JFAIL SECT COMM FGN 14 DOC ?8CW #SKI ?8XG ( ?9C6 # ?9WQ # JUMP TO %B IF ONLINE DEVICE FAILED LAST TRANSFER ?=BB # ?=W2 ) ??*L #MAC JFAIL ??T= MODD LDX 0 JK52E,%A,CPPTR(2) ?##W ANDN 0 2 ?#SG BNZ 0 %B ?*#6 #NOR ?*RQ [??? JFLAGW SECT COMM FGN 14 DOC ?B?B #SKI ?BR2 ( ?C=L # ?CQ= # JUMP TO %B IF DEVICE IS A FLAGWAVER ?D9W # ?DPG ) ?F96 #MAC JFLAGW ?FNQ MODD LDX 0 JK52F,%A,CPPTR(2) ?G8B SLL 0 2 ?GN2 BNG 0 %B ?H7L #NOR ?HM= [??? JFREE SECT COMM FGN 14 DOC ?J6W #SKI ?JLG ( ?K66 # ?KKQ # JUMP TO %B IF DEVICE IS UNALLOCATED ?L5B # ?LK2 ) ?M4L #MAC JFREE ?MJ= MODD LDX 0 JPSTATE,%A,CPPTR(2) ?N3W ANDN 0 1 ?NHG BZE 0 %B ?P36 #NOR ?PGQ [??? JHLFDON SECT COMM FGN 14 DOC ?Q2B #SKI ?QG2 ( ?Q^L # ?RF= # JUMP TO %B IF HALFDONEBIT SET ?RYW # ?SDG ) ?SY6 #MAC JHLFDON ?TCQ JBS %B,%A,HALFDONEBIT ?TXB #NOR ?WC2 [??? JHOLD SECT COMM FGN 14 DOC ?WWL #SKI ?XB= ( ?XTW # ?Y*G # JUMP TO %B IF HOLD IS SET ON THIS EDS ?YT6 # ?^#Q ) ?^SB #MAC JHOLD #2#2 MODD LDX 0 JK52E,%A,CPPTR(2) #2RL ANDN 0 8 #3?= BNZ 0 %B #3QW #NOR #4=G [??? JILLMS SECT COMM #4Q6 #SKI #59Q ( #5PB # #692 # JUMP TO %B IF ILLEGAL UNIT NO. MESSAGE ALREADY OUTPUT #6NL # #78= ) #7MW #MAC JILLMS #87G MODD LDX 0 JPSTATE,%A,CPPTR(2) #8M6 ANDN 0 1024 #96Q BNZ 0 %B #9LB #NOR #=62 [??? JJOBLMT SECT COMM FGN 14 DOC #=KL #SKI #?5= ( #?JW # ##4G # JUMP TO %B IF JOBLIMIT REACHED MARKER IS SET ##J6 # #*3Q ) #*HB #MAC JJOBLMT #B32 MODD LDX 0 JPSTATE,%A,CPPTR(2) #BGL ANDN 0 8 #C2= BNZ 0 %B #CFW #NOR #C^G [??? JLBUSY SECT COMM FGN 14 DOC #DF6 #SKI #DYQ ( #FDB # #FY2 # JUMP TO %B IF LINE IS BUSY(CURRENT AREA) #GCL # #GX= ) #HBW #MAC JLBUSY #HWG DLCA %A,LDX,0,CREP #JB6 BNG 0 %B #JTQ #NOR #K*B [??? JLLD SECT COMM FGN 14 DOC #KT2 #SKI #L#L ( #LS= # #M?W # JUMP TO %B IF LINE CONTROL AREA IS LOADED #MRG # #N?6 ) #NQQ #MAC JLLD #P=B DLCA %A,LDX,0,CREP #PQ2 BNZ 0 %B #Q9L #NOR #QP= [??? JLSBUSY SECT COMM FGN 14 DOC #R8W #SKI #RNG ( #S86 # #SMQ # JUMP TO %B IF LINE IS BUSY (SPOUTED AREA) #T7B # #TM2 ) #W6L #MAC JLSBUSY #WL= DLCA %A,LDX,0,CREP2 #X5W BNG 0 %B #XKG #NOR #Y56 [??? JLSUNBUS SECT COMM FGN 14 DOC #YJQ #SKI #^4B ( #^J2 # *23L # JUMP TO %B IF SPOUTED LINE TRANSFER AREA IS NOT BUSY *2H= # *32W ) *3GG #MAC JLSUNBUSY *426 DLCA %A,LDX,0,CREP2 *4FQ BPZ 0 %B *4^B #NOR *5F2 [??? JLUNBUSY SECT COMM FGN 14 DOC *5YL #SKI *6D= ( *6XW # *7CG # JUMP TO %B IF CURRENT LINE TRANSFER AREA IS NOT BUSY *7X6 # *8BQ ) *8WB #MAC JLUNBUSY *9B2 DLCA %A,LDX,0,CREP *9TL BPZ 0 %B *=*= #NOR *=SW [??? JMNBWR SECT COMM FGN 14 DOC *?#G #SKI *?S6 ( *#?Q # *#RB # JUMP IF DEVICE CANNOT BE WRONGED **?2 # **QL ) *B== #MAC JMNBWR *BPW LDN 0 #200 *C9G MODD ANDX 0 JK52F,%A,CPPTR(2) *CP6 BZE 0 %B *D8Q #NOR *DNB [??? JMT SECT COMM FGN 14 DOC *F82 #SKI *FML ( *G7= # *GLW # JUMP TO %B IF DEVICE IS MAGNETIC TAPE *H6G # *HL6 ) *J5Q #MAC JMT *JKB LDN 0 #2000 *K52 MODD ANDX 0 JK52F,%A,CPPTR(2) *KJL BNZ 0 %B *L4= #NOR *LHW [??? JNANON SECT COMM *M3G #SKI *MH6 ( *N2Q # *NGB # JUMP TO %B IF DEVICE NOT ANONYMOUS *P22 # *PFL ) *P^= #MAC JNANON *QDW MODD LDEX 0 JK52C,%A,CPPTR(2) *QYG BNZ 0 %B *RD6 #NOR *RXQ [??? JNBGROP SECT COMM *SCB #SKI *SX2 ( *TBL # *TW= # JUMP TO %B IF DEVICE IS NOT BEING GROPED *W*W # *WTG ) *X*6 #MAC JNBGROP *XSQ MODD LDX 0 JPSTATE,%A,CPPTR(2) *Y#B ANDN 0 32 *YS2 BZE 0 %B *^?L #NOR *^R= [??? JNHLFDON SECT COMM FGN 14 DOC B2=W #SKI B2QG ( B3=6 # B3PQ # JUMP TO %B IF HALFDONEBIT NOT SET B49B # B4P2 ) B58L #MAC JNHLFDON B5N= JBC %B,%A,HALFDONEBIT B67W #NOR B6MG [??? JNREALT SECT COMM FGN 19 DOC B776 #SKI B7LQ ( B86B [ B8L2 [ J TO %B IF DEVICE DOES NOT REQUIRE REALTIME B95L [ B9K= ) B=4W #MAC JNREALT B=JG JFLAGW %A,MRTREQ [RT REQ IF FLAG WAVER B?46 LTYPE %A,0 B?HQ SBN 0 23 B#3B BZE 0 MRTREQ [OR IF UDT B#H2 [ OR NON ENG EXOTIC... B*2L CHECKXOT %A,%B [SO J IF NOT EXOTIC... B*G= JENGABLE %A,%B [OR IF ENGAGEABLE B*^W MRTREQ BBFG #NOR BB^6 [??? JNRGROP SECT COMM BCDQ #SKI BCYB ( BDD2 # BDXL # JUMP TO %B IF DEVICE NOT TO BE REGROPED BFC= # BFWW ) BGBG #MAC JNRGROP BGW6 MODD LDX 0 JPSTATE,%A,CPPTR(2) BH*Q ANDN 0 512 BHTB BZE 0 %B BJ*2 #NOR BJSL [??? JNWTBSW SECT COMM BK#= #SKI BKRW ( BL?G # BLR6 # JUMP TO %B IF NOT WAITING TOBE SWITCHED OUT BM=Q # BMQB ) BN=2 #MAC JNWTBSW BNPL MODD LDX 0 JPSTATE,%A,CPPTR(2) BP9= ANDN 0 64 BPNW BZE 0 %B BQ8G #NOR BQN6 [??? JONL SECT COMM FGN 14 DOC BR7Q #SKI BRMB ( BS72 # BSLL # JUMP TO %B IF DEVICE IS ONLINE TO OBJECT PROGRAM BT6= # BTKW ) BW5G #MAC JONL BWK6 MODD LDX 0 JPSTATE,%A,CPPTR(2) BX4Q ANDN 0 2 BXJB BNZ 0 %B BY42 #NOR BYHL [??? JRESET SECT COMM FGN 14 DOC B^3= #SKI B^GW ( C22G # C2G6 # JUMP TO %B IF DEVICE (MT) IS RESET STATE C2^Q # C3FB ) C3^2 #MAC JRESET C4DL MODD LDX 0 JK52E,%A,CPPTR(2) C4Y= ANDN 0 #40 C5CW BNZ 0 %B C5XG #NOR C6C6 [??? JRGROP SECT COMM C6WQ #SKI C7BB ( C7W2 # C8*L # JUMP TO %B IF DEVICE TO BE REGROPED C8T= # C9#W ) C9SG #MAC JRGROP C=#6 MODD LDX 0 JPSTATE,%A,CPPTR(2) C=RQ ANDN 0 512 C??B BNZ 0 %B C?R2 #NOR C#=L [??? JRIGHT SECT COMM FGN 14 DOC C#Q= #SKI C*9W ( C*PG # CB96 # CBNQ # JUMP TO %B IF DEVICE IS RIGHTED CC8B # CCN2 ) CD7L #MAC JRIGHT CDM= MODD LDX 0 JK52B,%A,CPPTR(2) CF6W BPZ 0 %B CFLG #NOR CG66 [??? JSBUSY SECT COMM FGN 14 DOC CGKQ #SKI CH5B ( CHK2 # CJ4L # JUMP IF SPOUT BUSY CJJ= # CK3W ) CKHG #MAC JSBUSY CL36 MODD LDX 0 JSCA1,%A,CPPTR(2) CLGQ BNG 0 %B CM2B #NOR CMG2 [??? JSUNBUSY SECT COMM FGN 14 DOC CM^L #SKI CNF= ( CNYW # CPDG # JUMP IF SPOUT NOT BUSY CPY6 # CQCQ ) CQXB #MAC JSUNBUSY CRC2 MODD LDXC 0 JSCA1,%A,CPPTR(2) CRWL BCC %B CSB= #NOR CSTW [??? JTWIN SECT COMM FGN 14 DOC CT*G #SKI CTT6 ( CW#Q # CWSB # BR TO %B IF DEVICE IS BI-CHANNEL CX#2 # CXRL ) CY?= [??? JSWIN SECT COMM CYQW #SKI C^=G ( C^Q6 # D29Q # JUMP TO %B IF SWITCHED IN D2PB # D392 ) D3NL #MAC JSWIN D48= MODD LDX 0 JK52B,%A,CPPTR(2) D4MW ANDN 0 2 D57G BZE 0 %B D5M6 #NOR D66Q [??? JSWOUT SECT COMM D6LB #SKI D762 ( D7KL # D85= # JUMP TO %B IF SWITCHED OUT D8JW # D94G ) D9J6 #MAC JSWOUT D=3Q MODD LDX 0 JK52B,%A,CPPTR(2) D=HB ANDN 0 2 D?32 BNZ 0 %B D?GL #NOR D#2= [??? JSWOVER SECT COMM D#FW #SKI D#^G ( D*F6 # D*YQ # JUMP IF SWITCH OVER SET DBDB # DBY2 ) DCCL #MAC JSWOVER DCX= MODD LDX 0 JPSTATE,%A,CPPTR(2) DDBW ANDN 0 2048 DDWG BNZ 0 %B DFB6 #NOR DFTQ #MAC JTWIN DG*B MODD LDX 0 JK52F,%A,CPPTR(2) DGT2 SLL 0 10 DH#L BNG 0 %B DHS= #NOR DJ?W [??? JUNBUSY SECT COMM FGN 14 DOC DJRG #SKI DK?6 ( DKQQ # DL=B # JUMP TO %B IF DEVICE IS NOT BUSY(NO TRANSFER IN PROGRESS) DLQ2 # DM9L ) DMP= #MAC JUNBUSY DN8W MODD LDX 0 JCCA1,%A,CPPTR(2) DNNG BPZ 0 %B DP86 #NOR DPMQ [??? JV7900 SECT COMM FGN 1 DOC DQ7B #SKI DQM2 ( DR6L # DRL= # JUMP TO %B IF A 7900 COMMUNICATIONS PROCESSOR IS VIRTUAL DS5W # DSKG ) DT56 #MAC JV7900 DTJQ MODD LDX 0 JK52F,%A,CPPTR(2) [CHECK IF 7900 IS NOT ONLINEABLE DW4B ANDN 0 #20 [IE JK52F.B19 = 0 DWJ2 BZE 0 %B [NOT ONLINEABLE : MUST BE A V7900 DX3L #NOR DXH= [??? JWPR SECT COMM FGN 14 DOC DY2W #SKI DYGG ( D^26 # D^FQ # JUMP TO %B IF MT HAS WRITE PERMIT RING FITTED D^^B # F2F2 ) F2YL #MAC JWPR F3D= MODD LDX 0 JK52E,%A,CPPTR(2) F3XW ANDN 0 16 F4CG BNZ 0 %B F4X6 #NOR F5BQ [??? JWRONG SECT COMM FGN 14 DOC F5WB #SKI F6B2 ( F6TL # F7*= # JUMP TO %B IF DEVICE IS WRONGED F7SW # F8#G ) F8S6 #MAC JWRONG F9?Q MODD LDX 0 JK52B,%A,CPPTR(2) F9RB BNG 0 %B F=?2 #NOR F=QL [??? JWTBSW SECT COMM F?== #SKI F?PW ( F#9G # F#P6 # JUMP TO %B IF WAITING TO BE SWITCHED OUT F*8Q # F*NB ) FB82 #MAC JWTBSW FBML MODD LDX 0 JPSTATE,%A,CPPTR(2) FC7= ANDN 0 64 FCLW BNZ 0 %B FD6G #NOR FDL6 [??? JWTBWR SECT COMM FGN 14 DOC FF5Q #SKI FFKB ( FG52 # FGJL # JUMP TO %B IF DEVICE IS MARKED WAITING TO BE WRONGED FH4= # FHHW ) FJ3G #MAC JWTBWR FJH6 MODD LDX 0 JPSTATE,%A,CPPTR(2) FK2Q ANDN 0 128 FKGB BNZ 0 %B FL22 #NOR FLFL [??? PARSORT SECT COMM FGN 25 DOC FL^= #SKI FMDW ( FMYG # FND6 # PERIPHERAL DESCRIPTION PARAMETER ANALYSIS MACROS FNXQ # FPCB ) FPX2 #SKI JSKI04<1$1 FQBL ( FQW= #MAC PARSORT FR*W LDN 0 B%B+B%C+B%D+B%E+B%F FRTG SMO FX2 FS*6 STO 0 ACOMMUNE1 FSSQ DOWN PARSORT,1 FT#B BRN %A FTS2 #NOR FW?L ) FWR= #SKI JSKI04 FX=W ( FXQG #MAC PARSORT FY=6 LDN 0 B%B+B%C+B%D+B%E+B%F+B%G+B%H FYPQ SMO FX2 F^9B STO 0 ACOMMUNE1 F^P2 DOWN PARSORT,1 G28L BRN %A G2N= #NOR G37W ) G3MG [??? PARSORTB SECT COMM FGN 25 DOC G476 #SKI G4LQ ( G56B # G5L2 # PARSORTB - AS PARSORT + *PERIPHERAL TYPE G65L # G6K= ) G74W #SKI JSKI04<1$1 G7JG ( G846 #MAC PARSORTB G8HQ LDN 0 4+B%B+B%C+B%D+B%E+B%F G93B SMO FX2 G9H2 STO 0 ACOMMUNE1 G=2L DOWN PARSORT,1 G=G= BRN %A G=^W #NOR G?FG ) G?^6 #SKI JSKI04 G#DQ ( G#YB #MAC PARSORTB G*D2 LDN 0 4+B%B+B%C+B%D+B%E+B%F+B%G+B%H G*XL SMO FX2 GBC= STO 0 ACOMMUNE1 GBWW DOWN PARSORT,1 GCBG BRN %A GCW6 #NOR GD*Q ) GDTB [??? PARSORTX SECT COMM FGN 25 DOC GF*2 #SKI GFSL ( GG#= # GGRW # PARSORTX = ANALYSE PARAMETER NO N (%B) GH?G # GHR6 ) GJ=Q #SKI JSKI04<1$1 GJQB ( GK=2 #MAC PARSORTX GKPL LDX 2 FX2 GL9= LDN 0 B%C+B%D+B%E+B%F GLNW STO 0 ACOMMUNE1(2) GM8G LDX 0 %B GMN6 STO 0 ACOMMUNE2(2) GN7Q DOWN PARSORT,2 GNMB BRN %A GP72 #NOR GPLL ) GQ6= #SKI JSKI04 GQKW ( GR5G #MAC PARSORTX GRK6 LDX 2 FX2 GS4Q LDN 0 B%C+B%D+B%E+B%F+B%G+B%H GSJB STO 0 ACOMMUNE1(2) GT42 LDX 0 %B GTHL STO 0 ACOMMUNE2(2) GW3= DOWN PARSORT,2 GWGW BRN %A GX2G #NOR GXG6 ) GX^Q [??? PERMOFF SECT COMM FGN 14 DOC GYFB #SKI GY^2 ( G^DL # G^Y= # UNSET MONITORING ON ONLINE DEVICE BECOMING DISENGAGED MARKER H2CW # H2XG ) H3C6 #MAC PERMOFF H3WQ NGN 0 5 H4BB MODD ANDS 0 JPSTATE,%A,CPPTR(2) H4W2 #NOR H5*L [??? PERMON SECT COMM FGN 14 DOC H5T= #SKI H6#W ( H6SG # H7#6 # SET MONITORING ON ONLINE DEVICE BECOMING DISENGAGED MARKER H7RQ # H8?B ) H8R2 #MAC PERMON H9=L LDN 0 4 H9Q= MODD ORS 0 JPSTATE,%A,CPPTR(2) H=9W #NOR H=PG [??? PEROFF SECT COMM FGN 14 DOC H?96 #SKI H?NQ ( H#8B # H#N2 # UNSET DEVICE ONLINE TO OBJECT PROGRAM MARKER AND CLEAR JOBNO H*7L # H*M= ) HB6W #MAC PEROFF HBLG NGN 0 3 HC66 MODD ANDS 0 JPSTATE,%A,CPPTR(2) HCKQ LADDP %A,0 HD5B SMO 0 HDK2 STOZ APJOBNO HF4L #NOR HFJ= [??? PERON SECT COMM FGN 14 DOC HG3W #SKI HGHG ( HH36 # HHGQ # SET DEVICE ONLINE TO OBJECT PROGRAM MARKER AND STORE JOBNO IN APIA HJ2B # HJG2 ) HJ^L #MAC PERON HKF= LDN 0 2 HKYW MODD ORS 0 JPSTATE,%A,CPPTR(2) HLDG STO 1 GEN1 HLY6 LADDP %A,1 HMCQ SMO FX2 HMXB LDX 0 JOBNO HNC2 STO 0 APJOBNO(1) HNWL LDX 1 GEN1 HPB= #NOR HPTW [??? PERTEST SECT COMM FGN 14 DOC HQ*G #SKI HQT6 ( HR#Q # HRSB # JUMP TO %B IF ONLINE DEVICE IS BEING MONITORED ON BECOMING HS#2 # DISENGAGED HSRL # HT?= ) HTQW #MAC PERTEST HW=G MODD LDX 0 JPSTATE,%A,CPPTR(2) HWQ6 ANDN 0 4 HX9Q BNZ 0 %B HXPB #NOR HY92 [??? RIGHT SECT COMM FGN 14 DOC HYNL #SKI H^8= ( H^MW # J27G # MAKE DEVICE RIGHTED J2M6 # J36Q ) J3LB #MAC RIGHT J462 #STR %A J4KL '150 0 %A J55= #STR %A J5JW #SKI J64G '150 0 CPPTR(2) J6J6 #NOR J73Q [??? SETALLOC SECT COMM FGN 14 DOC J7HB #SKI J832 ( J8GL # J92= # SET DEVICE ALLOCATED MARKER J9FW # J9^G ) J=F6 #MAC SETALLOC J=YQ LDN 0 1 J?DB MODD ORS 0 JPSTATE,%A,CPPTR(2) J?Y2 #NOR J#CL [??? SETBGROP SECT COMM J#X= #SKI J*BW ( J*WG # JBB6 # SET BEING GROPED MARKER JBTQ # JC*B ) JCT2 #MAC SETBGROP JD#L LDN 0 32 JDS= MODD ORS 0 JPSTATE,%A,CPPTR(2) JF?W #NOR JFRG [??? SETCODE SECT COMM FGN 14 DOC JG?6 # JGQQ #SKI JSKI38 [GLASGOW SPECIALS JH=B ( JHQ2 #MAC SETCODE JJ9L #STR %A JJP= SMO %A JK8W #STR %A JKNG #SKI JL86 SMO CPPTR(2) JLMQ LDX 1 JADDP JM7B #STR READER,%B JMM2 ( JN6L #STR %C JNL= #SKI JP5W ( JPKG LDCT 0 #200 JQ56 ERS 0 APCODET(1) JQJQ ) JR4B #STR %C,1900 JRJ2 ( JS3L LDCT 0 #200 JSH= STO 0 APCODET(1) JT2W ) JTGG #STR %C,SPECIAL JW26 STOZ APCODET(1) JWFQ ) JW^B #STR READER,%B JXF2 #SKI JXYL ( JYD= #STR %C JYXW #SKI J^CG ( J^X6 LDCT 0 #400 K2BQ ERS 0 APCODE(1) K2WB ) K3B2 #STR %C,1900 K3TL ( K4*= LDCT 0 #400 K4SW STO 0 APCODE(1) K5#G ) K5S6 #STR %C,SPECIAL K6?Q STOZ APCODE(1) K6RB ) K7?2 LDX 1 FX1 K7QL #NOR K8== ) K8PW [??? SETDRM SECT COMM FGN 14 DOC K99G #SKI K9P6 ( K=8Q # K=NB # SET ONLINE DEVICE INTO DRM K?82 # K?ML ) K#7= #MAC SETDRM K#LW LDN 0 4 K*6G MODD ORS 0 JK52E,%A,CPPTR(2) K*L6 #NOR KB5Q [??? SETELOG SECT COMM KBKB #SKI KC52 ( KCJL [ KD4= [ SETUP ADATA ELOUT BLOCK FOR ERROR LOGGING KDHW [ KF3G ) KFH6 #MAC SETELOG KG2Q LDX 0 %B KGGB ADN 0 12 KH22 SETUPCORE 0,2,ADATA,ELOUT KHFL STOZ A1(2) KH^= LDN 0 A1(2) KJDW LDN 1 A1+1(2) KJYG SMO %B KKD6 MOVE 0 11 KKXQ LDX 0 %B KLCB ADN 0 11 KLX2 STO 0 ELDMECT(2) KMBL LDCT 0 #600 KMW= ADX 0 %C KN*W STO 0 ACSTSN(2) KNTG LDN 0 128 KP*6 STO 0 ELDMEINF(2) KPSQ LDX 0 2 KQ#B LDX 1 FX1 KQS2 LDX 2 FX2 KR?L STO 0 %A KRR= #NOR KS=W [??? SETHOLD SECT COMM FGN 26 DOC KSQG #SKI KT=6 ( KTPQ [ MARK DEVICE HELD IN DEVICE LIST KW9B ) KWP2 #MAC SETHOLD KX8L LDN 0 8 KXN= MODD ORS 0 JK52E,%A,CPPTR(2) KY7W #NOR KYMG [??? SETILLMS SECT COMM K^76 #SKI K^LQ ( L26B # L2L2 # SET ILLEGAL UNIT NO. MESSAGE OUTPUT MARKER L35L # L3K= ) L44W #MAC SETILLMS L4JG LDN 0 1024 L546 MODD ORS 0 JPSTATE,%A,CPPTR(2) L5HQ #NOR L63B [??? SETJOBLM SECT COMM FGN 14 DOC L6H2 #SKI L72L ( L7G= # L7^W # SET JOBLIMIT REACHED MARKER L8FG # L8^6 ) L9DQ #MAC SETJOBLMT L9YB LDN 0 8 L=D2 MODD ORS 0 JPSTATE,%A,CPPTR(2) L=XL #NOR L?C= [??? SETMODEQ SECT COMM FGN 14 DOC L?WW #SKI L#BG ( L#W6 # L**Q # SET CURRENT MODE QUALIFIER OF MT FROM B18-23 OF %B L*TB # LB*2 ) LBSL #MAC SETMODEQ LC#= LDCT 0 #770 LCRW MODD ANDX 0 JK52E,%A,CPPTR(2) LD?G MODD ERS 0 JK52E,%A,CPPTR(2) LDR6 LDN 0 #300 LF=Q MODD ANDX 0 JK52B,%A,CPPTR(2) LFQB MODD ERS 0 JK52B,%A,CPPTR(2) LG=2 LDX 0 %B LGPL SLL 0 18 LH9= MODD ORS 0 JK52E,%A,CPPTR(2) LHNW SRL 0 16 LJ8G ANDN 0 #300 LJN6 MODD ORS 0 JK52B,%A,CPPTR(2) LK7Q #NOR LKMB [??? SETPROP SECT COMM FGN 14 DOC LL72 #SKI LLLL ( LM6= # LMKW # FIT PROPERTIES OF OWNED DEVICE TO THOSE IN APROPNOS LN5G # LNK6 ) LP4Q #MAC SETPROP LPJB DOWN GETFREE,3 LQ42 BRN %A LQHL BRN %B LR3= #NOR LRGW [??? SETSWOVER SECT COMM LS2G #SKI LSG6 ( LS^Q # LTFB # SET SWITCH OVER MARKER LT^2 # LWDL ) LWY= #MAC SETSWOVER LXCW LDN 0 2048 LXXG MODD ORS 0 JPSTATE,%A,CPPTR(2) LYC6 #NOR LYWQ [??? SETWTBSW SECT COMM L^BB #SKI L^W2 ( M2*L # M2T= # SET WAITING TO BE SWITCHED OUT MARKER M3#W # M3SG ) M4#6 #MAC SETWTBSW M4RQ LDN 0 64 M5?B MODD ORS 0 JPSTATE,%A,CPPTR(2) M5R2 #NOR M6=L [??? SETWTBWR SECT COMM FGN 14 DOC M6Q= #SKI M79W ( M7PG # M896 # SET WAITING TO BE WRONGED MARKER M8NQ # M98B ) M9N2 #MAC SETWTBWR M=7L LDN 0 128 M=M= MODD ORS 0 JPSTATE,%A,CPPTR(2) M?6W #NOR M?LG [??? SWIN SECT COMM M#66 #SKI M#KQ ( M*5B # M*K2 # SWITCH IN SPECIFIED DEVICE MB4L # MBJ= ) MC3W #MAC SWIN MCHG #STR %A MD36 LDX 0 %A MDGQ #STR %A MF2B #SKI MFG2 LDX 0 CPPTR(2) MF^L '171 0 1 MGF= BNG 0 %C MGYW #STR PM,%D MHDG ( MHY6 MODD LDX 1 JK52C,%A,CPPTR(2) MJCQ SRL 1 15 MJXB HLSINFORM %B,SWITCH,,1 MKC2 LDX 1 FX1 MKWL ) MLB= #NOR MLTW [??? SWINLIN SECT COMM MM*G #SKI MMT6 ( MN#Q # MNSB # SWITCH IN SPECIFIED SMLCC LINE MP#2 # MPRL ) MQ?= #MAC SWINLIN MQQW #STR %A MR=G LDX 0 %A MRQ6 #STR %A MS9Q #SKI MSPB LDX 0 CPPTR(2) MT92 LDX 1 %B MTNL '171 0 5 MW8= LDX 1 FX1 MWMW BNG 0 %C MX7G #NOR MXM6 [???SWOUT SECT COMM MY6Q #SKI MYLB ( M^62 # M^KL # SWITCH OUT SPCEIFIED DEVICE N25= # N2JW ) N34G #MAC SWOUT N3J6 #STR %A N43Q LDX 0 %A N4HB #STR %A N532 #SKI N5GL LDX 0 CPPTR(2) N62= '171 0 2 N6FW BNG 0 %C N6^G MODD LDX 1 JK52C,%A,CPPTR(2) N7F6 SRL 1 3 N7YQ ORX 1 GSIGN N8DB SRL 1 12 N8Y2 HLSINFORM %B,SWITCH,,1 N9CL LDX 1 FX1 N9X= #NOR N=BW [??? SWOUTLIN SECT COMM N=WG #SKI N?B6 ( N?TQ # N#*B # SWITCH OUT SPECIFIED SMLCC LINE N#T2 # N*#L ) N*S= #MAC SWOUTLIN NB?W #STR %A NBRG LDX 0 %A NC?6 #STR %A NCQQ #SKI ND=B LDX 0 CPPTR(2) NDQ2 LDX 1 %B NF9L '171 0 6 NFP= LDX 1 FX1 NG8W #NOR NGNG [??? WRONG SECT COMM FGN 14 DOC NH86 #SKI NHMQ ( NJ7B # NJM2 # MAKE DEVICE WRONGED NK6L # NKL= ) NL5W #MAC WRONG NLKG #STR %A NM56 '151 0 %A NMJQ #STR %A NN4B #SKI NNJ2 '151 0 CPPTR(2) NP3L #NOR NPH= # ^^^^ ...573711330039