{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS PERI)}}
====== MACROS PERI ======
(George Source)
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