{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACS PW)}}
====== MACS PW ======
(George Source)
2278 #SKI
22#B (
22FL #
22^= # A C PUTMAN
23DW # ----------------
23YG #
24D6 [
24XQ [CONTENTS LIST:-
25CB [
25X2 [ ASSOCTAB [P WARNER
266S [ CHANASAT
26BL [ CNSOURCE
26W= [ CONCONS
27*W [ CONSOLE
28SQ [ GEOPACK
29#B [ HUNTMISB
29S2 [ HUNTMISX
2=?L [ JOBCONS [P.WARNER
2=R= [ JOBSOURCE
2?=W [ MOPASAT
2?QG [ NOMCONS
2#=6 [ ORIGIN [P.WARNER
2#PQ [ OUTPER
2*9B [ OUTPERA
2*P2 [ PCTMESA P.WARNER
2B8L [ PERCHARS
2BN= [ RJWTBFR
2C7W [ SAWCE [P.WARNER
2D76 [ SAWCEJ [P.WARNER
2DLQ [ SAWCEJX
2F6B [ SAWCEN [P.WARNER
2G5L [ SCONS [P.WARNER
2GK= [ UNPACK [T FARQUHARSON
2HJG [
2J46 [END OF LIST.
2JHQ [
2K3B #
2K8J )
2K*Q [??? ASSOCTAB SECT COMM FGN 9 DOC
2KH2 #
2L2L #MAC ASSOCTAB [P WARNER
2LG= %B [TO SET UP A COMMAND TABLE ENTRY
2L^W 12H%A [FOR ASSOCIATE COMMAND (SEG ASSOC)
2MFG 4H%C00
2M^6 #FID 12 23 IV%C/4096
2NDQ #NOR
2NNJ [??? CHANASAT SECT COMM FGN 9 DOC
2NYB #
2PD2 #
3DW? #SKI JSKI27
3DWJ (
3F5# #
3F5K # THIS MACRO COPIES ASSOCS FROM ASSOCS0 BLOCK(AT LT TIME)
3F5W #
3F67 #MAC CHANASAT
3F6D HUNTW 2,APERI,ASSOCS0
3F6P BNG 2 MFIN
3F72 VFREEW APERI,ASSOCS
3F7? MHUNTW 2,APERI,ASSOCS0
3F7J LDX %A ALOGLEN(2)
3F7T SBN %A 1
3F86 BZE %A MC1 [J IF ONLY JSOURCE3
3F8C SETUPCORE %A,1,APERI,ASSOCS
3F8N MHUNTW 2,APERI,ASSOCS0
3F8^ LDN 0 A1(2)
3F9= LDN 1 A1(1)
3F9H SMO %A
3F9S MOVE 0 0 [COPY ASSOCIATIONS
3F=5 MC1 SMO %A
3F=B LDX %A A1(2)
3F=M MFREEW APERI,ASSOCS0
3F=Y SMO FX2
3F?9 STO %A JSOURCE3
3F?G MFIN LDX 1 FX1
3F?R LDX 2 FX2
3F#4 #NOR
3F#* #
3F#L #
3F#X )
3F*3 [??? CNSOURCE SECT COMM FGN 9 DOC
3F*8 #
3F*D #MAC CNSOURCE
3F*N LDX %A ACTNUM(%A)
3F*Y #SKI JSKI27
3FB8 MOPASAT %B
3FBD LDX 2 FX2
3FBN LDCH %B JSOURCE1(2)
3FBY SBN %B 10
3FC8 BZE %B MCN1 [J IF UX
3FCD BCT %B MCN2 [J IF NOT MPX
3FCN MCN1 MOPWAIT
3FCY MCN2 HUNTACTF CPAT,2
3FD8 TXU %A ACTNUM(2)
3FDD BCS MCN2
3FDN LDX %A 2
3FDY LDX 2 FX2
3FF8 LDN 0 JSOURCE1(2)
3FFD LDN 1 JSOURCE1(%A)
3FFN MOVE 0 2
3FFY LDX 0 CPPTR(2)
3FG8 STO 0 CPPTR(%A)
3FGD STOZ JSOURCE1(2)
3FGN STOZ JSOURCE2(2)
3FGY STOZ CPPTR(2)
3FH8 LDN 0 CPPTR(2)
3FHD LDN 1 CPPTR+1(2)
3FHN MOVE 0 3
3FHY STO %A 2 [SAVE PTR
3FJ8 LDX 2 ACTRING(2)
3FJD SBN 2 ACTRING
3FJN BZE %B MCN4 [J IF UX,MPX
3FJY SBN %B 13
3FK8 BNZ %B MCN5 [J IF NOT IPB
3FKD MHUNTW 1,AMXOR,ADCB [IPB
3FKN BRN MCN6
3FKY MCN4 MHUNTW 1,AMXOR,ALCB
3FL8 BRN MCN6
3FLD MCN5 SBN %B 36
3FLN BNZ %B MCN3 [J IF NOT CI EITHER-INOP?(TYPE 7)
3FLY MHUNTW 1,AMXOR,CILCB [CI CHANNEL
3FM8 MCN6 LDX %B 2
3FMD CHAIN 1,BPTR(2)
3FMN #SKI JSKI27
3FMY (
3FN8 MHUNTW 1,APERI,ASSOCS0
3FND BRN MCN9
3FNN )
3FNY MCN8 HUNTW 1,AMXOR,BBC
3FP8 BNG 1 MCN7 [FINI
3FPD #SKI JSKI27
3FPN MCN9
3FPY LDX 2 %B
3FQ8 CHAIN 1,BPTR(2)
3FQD BRN MCN8
3FQN MCN3 LDX 2 FX2
3FQY MCN7 LDX 1 FX1
3FR8 #NOR
3FRD [??? CONCONS SECT COMM FGN 9 DOC
3FRN #
3FRY #
3FT= #MAC CONCONS
3G#W GEOERR 1,SEC CONS
3GSG #NOR
3H4# [??? CONSOLE SECT COMM FGN 9 DOC
3H#6 #
3HRQ #
3J?B #
3JR2 # DISTRIBUTE CONSOLE MESSA7ES
3K=L #
3KQ= #MAC CONSOLE
3L9W LDX 0 %B
3LPG ANDN 0 4
3M96 BZE 0 MLAB1 [BR IF NOT QU,AN, OR DP
3MNQ SBN %B 5
3N8B BNG %B MEND [BR IF NO CONSOLE OUTPUT
3NN2 MLAB1
3P7L SMO FX2
3PM= STO %B ACOMMUNE1
3Q6W SBN %B 1
3QLG BZE %B MRENAME [BR IF CENTRAL ONLY
3R66 LDX 2 FX2
3RKQ LDCH 0 ATYPE(2)
3S5B SBN 0 CONSA/64
3SK2 BNZ 0 MTRM1 [BR IF NOT CONSA ACTIVITY
3T4L MHUNTW 2,GMON,AOUT
3TJ= LDCT 0 #400 [CONSA
3W3W ORS 0 A1+1(2) [SET RETAIN BLFCK BRT
3WHG BRN MEND [AND EXIT
3X36 MTRM1
3XGQ DOWN CONSROOT,1
3Y2B BRN MEND2
3YG2 #SKI %A
3Y^L MRENAME
3^F= HUNTW 1,GMON,AOUT
3^YW #SKI %A<1$1
42DG BRN MCONSOLE
42Y6 #SKI %A
43CQ #SKI
43XB MRENAME
44C2 #SKI %A
44WL (
45B= #SKI %A<1$1
45TW LDX 1 %A
46*G )
46T6 MCONSOLE
47#Q LDXC 3 A1(1)
47SB BCS MEND [IGNORE IF CD SET
48#2 SBN 3 1
48RL SETUPCOR 3,2,CONBUFF,COUT [CORE FOR OUTPUT BLOCK
49?= STO 3 AREC(2) [STORE RECORD HEADER
49QW HUNTW 1,GMON,AOUT
4==G SBN 3 1
4=Q6 BNZ 3 MTRM2
4?9Q LDX 0 A1+3(1)
4?PB STO 0 ATEXT(2)
4#92 BRN MTRM3
4#NL MTRM2
4*8= ADN 1 A1+2
4*MW ADN 2 ATEXT
4B7G SMO 3
4BM6 MOVE 1 0
4C6Q SBN 2 ATEXT
4CLB MTRM3
4D62 CONSOUT 2 [OUTPUT TO CENTRAL OPERATOR
4D?8 #SKI
4DDB (
4DKL #SKI EMSJNL
4F5= (
4FJW BSOFF EMSBIT,MEND2
4G4G COOR3 #53 [EMS
4GJ6 )
4GRY )
4H3Q MEND
4HHB LDX 1 FX1
4J32 LDX 2 FX2
4JGL MEND2
4K2= #NOR
4KFW [??? GEOPACK SECT COMM FGN 9 DOC
4X=B #
4XQ2 #
4Y9L #
4YP= #MAC GEOPACK
4^8W #STR %B
4^NG #SKI
5286 GEOPACK %A,JSOURCE1(2),%C
52MQ #STR %B
537B (
53M2 #ACC %A
546L (
54L= GEOPACK 0,%B,%C
555W STO 0 %A
55KG )
5656 #ACC %A
56JQ #SKI
574B (
57J2 #STR %C
583L LDEX %A %B
58H= #STR %C
592W #SKI
59GG (
5=26 #STR %B,%A
5=FQ LDX %A %B
5=^B ERX %A 1+%B
5?F2 ANDX %A BSB18
5?YL ERX %A 1+%B
5#D= )
5#XW )
5*CG )
5*X6 #NOR
5B6Y [??? HUNTMISB SECT COMM FGN 9 DOC
5BBQ
5BWB #
5CB2 #
5CTL # HUNT BACKWARDS ROUND MISCELLANEOUS CHAIN FOR SPECIFIED BLOCK
5D*= #
5DSW #MAC HUNTMISB
5F#G CALL %A MHMB1
5FS6 #HAL %C+%B,0
5G?Q MHMB1
5GRB LDX 0 0(%A)
5H?2 LDN %A 0
5HQL SMO BMISC
5J== MHMB3
5JPW LDX %A BPTR(%A)
5K9G TXU 0 ATYPE(%A)
5KP6 BCC MHMB2
5L8Q TXU %A BMISC
5LNB BCS MHMB3
5M82 NGN %A 1
5MML MHMB2
5N7= #NOR
5NC4 [??? HUNTMISX SECT COMM FGN 9 DOC
5NLW #
5P6G # HUNT BACKWARDS ROUND MISCELLANEOUS CHAIN FOR BLOCK TYPE/SUBTYPE IN
5PL6 # B0-11 %B
5Q5Q #
5QKB #MAC HUNTMISX
5R52 #SKI %B
5RJL LDX 0 %B
5S4= LDN %A 0
5SHW SMO BMISC
5T3G MHMX2 LDX %A BPTR(%A)
5TH6 TXU 0 ATYPE(%A)
5W2Q BCC MHMX1
5WGB TXU %A BMISC
5X22 BCS MHMX2
5XFL NGN %A 1
5X^= MHMX1
5YDW #NOR
5YNN [??? JOBCONS SECT COMM FGN 9 DOC
5YYG
5^D6 #
5^XQ #
62CB #MAC JOBCONS [P.WARNER
62X2 DOWN IDFENQS,1 [GET JSE3 AND ASSOCIATIONS FROM IDF
63BL BRN %A [BREAK-IN
63W= #NOR
6464 [??? JOBSOURC SECT COMM FGN 9 DOC
64*W #
64TG #
65*6 #MAC JOBSOURCE
65SQ #STR %A
66#B LDX %B JOBNUM(%A)
66S2 SMO FX2
67?L #STR %A
67R= STO %B ACOMMUNE1 [SAVE NEW JOB NO
68=W #STR %A
68QG #SKI
69=6 STOZ ACOMMUNE1
69PQ DOWN IDFENQS,2 [COPY ASSOCS BLOCK AND JSE3
6=9B #STR %A
6=P2 (
6?8L JOBLOCK %B,%A
6?N= BPZ %A MEXIT
6#7W GEOERR 1,NOJOBLOK
6#MG MEXIT
6*76 )
6*LQ #NOR
6*WJ [??? MOPASAT SECT COMM FGN 9 DOC
6B6B #
6BL2 #
6C5L #
6C67 #SKI JSKI27
6C6N (
6C79 # CREATES AN APERI,ASSOCS0 BLOCK IF ONE NOT THERE
6C7Q #
6C8? #MAC MOPASAT
6C8S HUNTW 1,APERI,ASSOCS0
6C9* BPZ 1 MCN10
6C9W LDN %A 1
6C=C HUNTW 1,APERI,ASSOCS
6C=Y BNG 1 MCN11
6C?F ADX %A ALOGLEN(1)
6C#2 MCN11 SETUPCORE %A,1,APERI,ASSOCS0
6C#H SBN %A 1
6C*4 LDX 0 JSOURCE3(2)
6C*K SMO %A
6CB6 STO 0 A1(1)
6CBM BZE %A MCN10
6CC8 MHUNTW 2,APERI,ASSOCS
6CCP LDN 0 A1(2)
6CD= LDN 1 A1(1)
6CDR SMO %A
6CF# MOVE 0 0
6CFT MCN10
6CGB #NOR
6CGX )
6CHD [??? NOMCONS SECT COMM FGN 9 DOC
6CH^ #
6CJG #
6CK=
6D4W #SKI JSKI04<1$1 [PRE-COMMAND ISSUER
6DJG (
6F46 #MAC NOMCONS
6FHQ LDX 2 FX2
6G3B LDCH 0 JSOURCE1(2)
6GH2 SBN 0 #77
6H2L BNZ 0 %B [NOT A CONSOLE
6HG= HUNTMISB 1,APERI,CONSOLE
6H^W BNG 1 %A
6JFG LDX 6 A1(1)
6J^6 BNZ 6 MNOM1
6KDQ GEOERR 1,HUIDGE
6KYB MNOM1 LDX 4 JSOURCE1(2)
6LD2 LDX 0 JSOURCE2(2)
6LXL SLL 0 1
6MC= LDXC 0 0
6MWW LDN 6 0
6NBG BNZ 6 MNOM2
6NW6 SRL 0 10
6P*Q SLL 4 6
6PTB DSA 0 4
6Q*2 BRN MNOM3
6QSL MNOM2 SLL 0 11
6R#= DSA 4 0
6RRW LDX 4 0
6S?G MNOM3 LDX 5 6
6SR6 LDX 0 A1+1(1)
6T=Q BZE 0 %A
6TQB LDXC 0 0
6W=2 ADN 5 0
6WPL BZE 5 MNOM4
6X9= SBN 5 2
6XNW BNZ 5 MNOM5
6Y8G MNOM4 LDX 5 A1+2(1)
6YN6 ERX 5 4
6^7Q BZE 5 MNOM6
6^MB #STR %C
7272 %C
72LL MNOM5 BDX 1 MNOM3
736= MNOM6 ANDX 0 BITS22LS
73KW #NOR
745G )
74K6
754Q #SKI JSKI04 [COMMAND ISSUER
75JB (
7642 #MAC NOMCONS
76HL LDX 2 FX2
773= LDCH 0 JSOURCE1(2)
77GW SBN 0 #77
782G BNZ 0 %B [NOT A CONSOLE
78G6 HUNTMISB 1,APERI,CONSOLE
78^Q BNG 1 %A
79FB MNOM1 LDX 4 JSOURCE1(2)
79^2 LDX 0 JSOURCE2(2)
7=DL LDCT 6 #300
7=Y= ANDX 6 JSOURCE2(2)
7?CW ADX 6 6
7?XG BNG 6 MNOM2 [J IF NOT MX
7#C6 SLL 4 6
7#WQ LDEX 5 0 [GEOGNO
7*BB SRL 0 9
7*W2 DSA 0 4 [TERM,LINE
7B*L BRN MNOM8
7BT= MNOM7 LDN 5 0
7C#W SLL 0 12
7CSG ADX 4 0 [GEOGNO,IDENTNO
7D#6 BRN MNOM8
7DRQ #STR %C
7F?B %C
7FR2 MNOM9 ADN 1 HUIDGENTLEN
7G=L BRN MNOM8 [NEXT
7GQ= MNOM2 ANDN 4 #7777 [IDENTNO
7H9W SLC 6 1
7HPG BPZ 6 MNOM7 [J IF IPB
7J96 SLL 0 3 [CI IPB
7JNQ SRL 0 3
7K8B LDX 5 0 [PROG PROPNO
7KN2 MNOM8 LDX 0 A1+1(1)
7L7L BZE 0 %A [END OF BLOCK
7LM= LDX 6 A1+2(1)
7M6W ERX 6 4
7MLG BNZ 6 MNOM9
7N66 LDX 6 A1+3(1)
7NKQ ERX 6 5
7P5B BNZ 6 MNOM9 [NOT THIS ONE
7PK2 ANDX 0 BITS22LS [CONS PROP NO
7Q4L #NOR
7QJ= )
7QS4 [??? ORIGIN SECT COMM FGN 9 DOC
7R3W #
7RHG #
7S36 #MAC ORIGIN [P.WARNER
7SGQ DOWN OUTPER,2
7T2B #NOR
7T=8 [??? OUTPER SECT COMM FGN 9 DOC
7TG2 #
7T^L #
7WF= #
7WYW #MAC OUTPER
7XDG DOWN OUTPER,1
7XY6 #NOR
7Y7Y [??? OUTPERA SECT COMM FGN 9 DOC
7YCQ #
7YXB # FORM PERIPHERAL IDENTIFIER FROM JSCE WORDS, PLACE RN ACOMMUNE1....
7^C2 #
7^WL #MAC OUTPERA
82B= DOWN OUTPER,3
82TW #NOR
835N [??? PCTMESA SECT COMM FGN 9 DOC
83*G #
83T6 #
84#Q #MAC PCTMESA [P.WARNER
84SB DOWN PCTMES,1 [SET UP TRANSMISSION BLOCKS FROM
85#2 #NOR [A CONBUFF/IREMTW MESSAGE BLOCK.
85HS [??? PERCHARS SECT COMM FGN 9 DOC
85RL #
86?= #
86QW #
87=G #MAC PERCHARS
87Q6 #STR %A
889Q (
88PB #ACC %A
8992 (
89NL LDX 0 %A
8=8= SMO FX2
8=MW STO 0 ACOMMUNE1
8?7G )
8?M6 #ACC %A
8#6Q #SKI
8#LB (
8*62 SMO FX2
8*KL STO %A ACOMMUNE1
8B5= )
8BJW )
8C4G DOWN OUTPER,4
8CJ6 #NOR
8CRY [??? RJWTBFR SECT COMM FGN 9 DOC
8D3Q #
8DHB # BRANCH TO %A IF REMOTE DEVICE OWNED BY CURRENT ACTIVITY IS
8F32 # WAITING TO BE WRONGED OR MOPPED OFF (OR PCT INOPERABLE)
8FGL #
8G2= #MAC RJWTBFR
8GFW SAWCE PCT,MRJWTBFR1
8G^G MHUNTW 2,AMXOR,ADCB
8HF6 LDX 0 IWAIT(2)
8HYQ LDX 2 FX2
8JDB ANDN 0 #1400
8JY2 BNZ 0 %A
8KCL BRN MRJWTBFR2
8KX= MRJWTBFR1
8LBW MHUNTW 2,A7020,ALIST
8LWG LDCT 0 7
8MB6 ANDX 0 EWAIT(2)
8MTQ LDX 2 FX2
8N*B BNZ 0 %A
8NT2 MRJWTBFR2
8P#L #NOR
8PJD [??? SAWCE SECT COMM FGN 9 DOC
8PS= #
8Q?W #
8QRG
8R?6 #SKI JSKI04<1$1 [PRE-COMMAND ISSUER
8RQQ (
8S=B #MAC SAWCE [P.WARNER
8SQ2 #STR %A,CENTRAL
8T9L (
8TP= #STR %A,IPB
8W8W LDCT 0 #100 [PCT
8WNG #STR %A,PCT
8X86 LDCT 0 #200 [IPB
8XMQ SMO FX2
8Y7B ANDX 0 JSOURCE2
8YM2 BNZ 0 %B
8^6L )
8^L= #STR %A,CENTRAL
925W #SKI
92KG (
9356 SMO FX2
93JQ LDX 0 JSOURCE2
944B BPZ 0 %B
94J2 )
953L #NOR
95H= )
962W
96GG #SKI JSKI04 [COMMAND ISSUER
9726 (
97FQ #MAC SAWCE [P.WARNER
97^B #STR %A,CENTRAL
98F2 (
98YL LDCT 0 #200 [IPB
99D= SMO FX2
99XW ANDX 0 JSOURCE2
9=CG #STR %A,PCT
9=X6 BNZ 0 %B [J IF IPB
9?BQ #STR %A,IPB
9?WB BZE 0 %B [J IF PCT
9#B2 )
9#TL #STR %A,CENTRAL
9**= #SKI
9*SW (
9B#G SMO FX2
9BS6 LDX 0 JSOURCE2
9C?Q BPZ 0 %B
9CRB )
9D?2 #NOR
9DQL )
9F2D [??? SAWCEJ SECT COMM FGN 9 DOC
9F==
9FPW #
9G9G #
9GP6 #MAC SAWCEJ [P.WARNER
9H8Q SMO FX2
9HNB LDX 0 JSOURCE2
9HPR #UNS ANIP
9HR8 (
9HSK #STR %D
9HW2 SAWCEJX 0,%A,%B,%C,%D
9HXC #STR %D
9HYS #SKI
9J29 SAWCEJX 0,%A,%B,%C
9J3L )
9J53 #UNS ANIP
9J6D #SKI
9J82 SAWCEJX 0,%A,%B,%C
9JML #NOR
9JXD [??? SAWCEJX SECT COMM FGN 9 DOC
9K7= #
9KLW #
9L6G #MAC SAWCEJX
9LL6 #STR %A,0
9M5Q LDX 0 %A
9M7# #UNS ANIP
9M8W (
9M=D #STR %E
9M#2 (
9M*J BZE 0 %B
9MC6 BPZ 0 %E
9MDN )
9MG= #STR %E
9MHS #SKI
9MKB BPZ 0 %B
9MNG )
9MRL #UNS ANIP
9MWQ #SKI
9M^W BPZ 0 %B
9N52 ADXC 0 0
9NJL BCS %C
9P4= #STR %D
9PHW BRN %D
9Q3G #NOR
9Q?# [??? SAWCEN SECT COMM FGN 9 DOC
9QH6
9R2Q #
9RGB #
9S22
9SFL #SKI JSKI04<1$1 [PRE-COMMAND ISSUER
9S^= (
9TDW #MAC SAWCEN [P.WARNER
9TYG #STR %A,CENTRAL
9WD6 (
9WXQ #STR %A,IPB
9XCB LDCT 0 #100 [PCT
9XX2 #STR %A,PCT
9YBL LDCT 0 #200 [IPB
9YW= SMO FX2
9^*W ANDX 0 JSOURCE2
9^TG BZE 0 %B
=2*6 )
=2SQ #STR %A,CENTRAL
=3#B #SKI
=3S2 (
=4?L SMO FX2
=4R= LDX 0 JSOURCE2
=5=W BNG 0 %B
=5QG )
=6=6 #NOR
=6PQ )
=79B
=7P2 #SKI JSKI04 [COMMAND ISSUER
=88L (
=8N= #MAC SAWCEN [P.WARNER
=97W #STR %A,CENTRAL
=9MG (
==76 LDCT 0 #200 [IPB
==LQ SMO FX2
=?6B ANDX 0 JSOURCE2
=?L2 #STR %A,IPB
=#5L BNZ 0 %B [J IF NOT PCT
=#K= #STR %A,PCT
=*4W BZE 0 %B [J IF NOT IPB
=*JG )
=B46 #STR %A,CENTRAL
=BHQ #SKI
=C3B (
=CH2 SMO FX2
=D2L LDX 0 JSOURCE2
=DG= BNG 0 %B
=D^W )
=FFG #NOR
=F^6 )
=G8Y [??? SCONS SECT COMM FGN 9 DOC
=GDQ #
=GYB #
=HD2 #MAC SCONS [P.WARNER
=HXL STOZ %B
=JC= #NOR
=JM4 [??? UNPACK SECT COMM FGN 9 DOC
=JWW #
=KBG # THIS MAC.ACCESSES THE JOBSOURCE WORDS IN CURRENT ACTIVITY,AND BRANCHES
=KW6 # ACCORDING TO THEIR CONTENTS(HAVING UNPACKED THE CONTENTS TO BE OF A
=L*Q # MORE CONVENIENT FORM FOR THE IDF)
=LTB
=M*2 #SKI JSKI04<1$1 [PRE-COMMAND ISSUER
=MSL (
=N#= #MAC UNPACK [T FARQUHARSON
=NRW LDX %F JSOURCE2(2)
=P?G BNG %F M1 [J IF 7020 ON 7900 OR 7007
=PR6 LDCH 0 JSOURCE1(2) [LOAD BASIC TYPE TO SEE IF MOP
=Q=Q SBN 0 #12
=QQB BZE 0 M2 [J.IF UPX MOP LINE
=R=2 SBN 0 #1
=RPL BZE 0 M2 [J.IF MPX MOP LINE
=S9= SBN 0 #15
=SNW BNZ 0 %A [J.FOR LOCAL EXIT
=T8G M2 LDX %E JSOURCE2(2) [JSOURCE WORDS INVERTED FOR MOP!
=TN6 LDX %F JSOURCE1(2)
=W7Q ANDN %E #7777 [IDENT/LINE NO
=WMB ANDN %F #777 [GEOG.NO
=X72 BRN %B
=XLL M1 LDX %E JSOURCE1(2) [7020
=Y6= LDCT 0 #200
=YKW ANDX 0 %F
=^5G ANDN %F #777
=^K6 BZE 0 M3 [J.IF 7020 ON 7007
?24Q ANDN %E #7777
?2JB BRN %C [7020 ON 7900 EXIT
?342 M3 LDCH 0 %E
?3HL SRC 0 6
?43= ORX %F 0
?4GW SLL %E 6
?52G ANDX %E HALFTOP
?5G6 LDX 0 JSOURCE2(2)
?5^Q SRL 0 9
?6FB ANDN 0 #77
?6^2 ORX %E 0
?7DL #STR %D
?7Y= BRN %D [7020 ON 7007 EXIT
?8CW #NOR
?8XG )
?9C6
?9WQ #SKI JSKI04 [COMMAND ISSUER
?=BB (
?=W2 #MAC UNPACK [T FARQUHARSON
??*L LDX %F JSOURCE2(2)
??T= BNG %F M1 [J IF 7020 ON 7900 OR 7007
?##W LDCH 0 JSOURCE1(2) [LOAD BASIC TYPE TO SEE IF MOP
?#SG SBN 0 #12
?*#6 BZE 0 M2 [J.IF UPX MOP LINE
?*RQ SBN 0 #1
?B?B BZE 0 M2 [J.IF MPX MOP LINE
?BR2 SBN 0 #15
?C=L BNZ 0 %A [J.FOR LOCAL EXIT
?CQ= M2 LDX %E JSOURCE2(2) [JSOURCE WORDS INVERTED FOR MOP!
?D9W LDX %F JSOURCE1(2)
?DPG ANDN %E #7777 [IDENT/LINE NO
?F96 ANDN %F #777 [GEOG.NO
?FNQ BRN %B
?G8B M1 LDX %E JSOURCE1(2) [7020
?GN2 LDCT 0 #300
?H7L ANDX %F 0
?HM= ADXC %F %F
?J6W BCC M3
?JLG BZE %F M4
?K66 LDX %F JSOURCE2(2)
?KKQ ERX %F 0
?L5B M5 ANDN %E #7777
?LK2 BRN %C [7020 ON 7900 EXIT
?M4L M4 LDEX %F JSOURCE2(2)
?MJ= BRN M5
?N3W M3 LDEX %F JSOURCE2(2)
?NHG LDCH 0 %E
?P36 SRC 0 6
?PGQ ORX %F 0
?Q2B SLL %E 6
?QG2 ANDX %E HALFTOP
?Q^L LDX 0 JSOURCE2(2)
?RF= SRL 0 9
?RYW ANDN 0 #77
?SDG ORX %E 0
?SY6 #STR %D
?TCQ BRN %D [7020 ON 7007 EXIT
?TXB #NOR
?WC2 )
^^^^ ...12550074001600000000