MACS PW
(George Source)
- MACS PW.txt
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