{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS EWDAS)}}
====== MACROS EWDAS ======
(George Source)
22FL # **********************************************************************
22^= # *
23DW # * EXOFILE SECURITY MACROS
23YG # *
24D6 # * EXCHOFE,SECUREX,SXTEST
24XQ # *
25CB # **********************************************************************
25X2 #
26BL [??? EXCHOFE
26W= # *******
27*W #MAC EXCHOFE
27TG #
28*6 LDX 0 EDSQ
28SQ BZE 0 %D [J IF EXOFILE LIB NOT REQD
294J ... LDN 0 FRB%A
29#B SMO FX2
29S2 STO 0 ACOMMUNE7 [1=EXOF,2=DIR,3=ICL
2=?L SMO FX2
2=R= STOZ ACOMMUNE6 [FUNCTION INDICATOR
2?=W #STR %E
2?QG (
2#=6 #STR A,%E
2#PQ #SKI
2*9B (
2*P2 LDN 0 1
2B8L #STR AW,%E
2BN= #SKI
2C7W (
2CMG ORX 0 GSIGN
2D76 )
2DLQ SMO FX2
2F6B STO 0 ACOMMUNE6
2FL2 )
2G5L )
2GK= #STR %B
2H4W #SKI
2HJG (
2J46 SMO FX2
2JHQ STOZ ACOMMUNE8
2K3B )
2KH2 #STR %B
2L2L (
2LG= LDX 0 %B
2L^W SMO FX2
2MFG STO 0 ACOMMUNE8 [STORAGE UNIT SERIAL NO
2M^6 )
2NDQ #STR %C
2NYB (
2PD2 LDX 0 %C
2PXL SMO FX2
2QC= STO 0 ACOMMUNE9 [ACCESS MODES REQUIRED
2QWW )
2RBG DOWN ANTIC,77
2RW6 #NOR
2S*Q #
2STB [??? SECUREX
2T*2 # *******
2TSL #MAC SECUREX
2W#= #
2WRW #MEN FIXED
2X?G #TRA EDSQ
2XR6 #STR %A
2Y=Q #SKI
2YQB +1
2^=2 #STR %A
2^PL (
329= #STR %A,FULL
32NW #SKI
338G (
33N6 #40000001
347Q #DEF M1SECUREX=1
34MB )
3572 #STR %A,OFF
35LL #SKI
366= (
36KW +0
375G #DEF M1SECUREX=1
37K6 )
384Q #STR %A,ON
38JB #SKI
3942 (
39HL +1
3=3= #DEF M1SECUREX=1
3=GW )
3?2G #UNS M1SECUREX
3?G6 #SKI
3?^Q !! %A IS NOT A VALID PARAMETER !!
3#FB #FRE M1SECUREX
3#^2 )
3*DL #END
3*Y= #NOR
3BCW #
3CC6 [??? SXTEST
3CWQ # ******
3DBB #MAC SXTEST
3DW2 #
3F*L LDX %A EDSQ
3FT= BZE %A %B
3G54 ...#NOR
3G#W #
3H#6 # **********************************************************************
3HRQ # *
3J?B # * MACROS FOR KEEPING/RELEASING STORAGE UNITS
3JR2 # *
3K=L # * USEST,MUSEST,SUSEST,SMUSEST,USESTX,SUSESTX,RELST,RELSTX
3KQ= # *
3L9W # **********************************************************************
3LPG #
3M96 [??? USEST
3MNQ # *****
3N8B #MAC USEST
3NN2 ...#
3P7L #STR %C
3PM= (
3Q6W LDX 0 %C
3QLG SMO FX2
3R66 STO 0 ACOMMUNE8
3RKQ )
3S5B #STR %C
3SK2 #SKI
3T4L (
3TJ= SMO FX2
3W3W STOZ ACOMMUNE8
3WHG )
3X36 LDX 0 %A
3XGQ SMO FX2
3Y2B STO 0 ACOMMUNE9
3YG2 DOWN REQCART,1
3Y^L BRN %B
3^F= BRN %D
3^YW BRN %E
42DG #NOR
42Y6 #
43CQ [??? MUSEST
43XB # ******
44C2 #MAC MUSEST
44WL #
45B= #STR %D
45TW (
46*G LDX 0 %D
46T6 SMO FX2
47#Q STO 0 ACOMMUNE8
47SB )
48#2 #STR %D
48RL #SKI
49?= (
49QW SMO FX2
4==G STOZ ACOMMUNE8
4=Q6 )
4?9Q LDX 0 %A
4?PB SMO FX2
4#92 STO 0 ACOMMUNE9
4#NL DOWN REQCART,2
4*8= BRN %B
4*MW BRN %C
4B7G BRN %E
4BM6 #NOR
4C6Q #
4CLB [??? SUSEST
4D62 # ******
4DKL #MAC SUSEST
4F5= #
4FJW LDX 0 %A
4G4G SMO FX2
4GJ6 STO 0 ACOMMUNE9
4H3Q DOWN REQCART,4
4HHB BRN %B
4J32 #NOR
4JGL #
4K2= [??? SMUSEST
4KFW # *******
4K^G #MAC SMUSEST
4LF6 #
4LYQ LDX 0 %A
4MDB SMO FX2
4MY2 STO 0 ACOMMUNE9
4NCL DOWN REQCART,5
4NX= BRN %B
4PBW BRN %C
4PWG #NOR
4QB6 #
4QTQ ...[??? USESTX
4R*B # ******
4RT2 #MAC USESTX
4S#L #
4SS= #STR %C
4T?W (
4TRG LDX 0 %C
4W?6 SMO FX2
4WQQ STO 0 ACOMMUNE8
4X=B )
4XQ2 #STR %C
4Y9L #SKI
4YP= (
4^8W SMO FX2
4^NG STOZ ACOMMUNE8
5286 )
52MQ LDX 0 %A
537B LDX 2 FX2
53M2 STO 0 ACOMMUNE9(2)
546L MFINDSU 1,ACOMMUNE9(2)
54L= LADDP HUNIT(1),2
555W LDN 0 1
55KG ADS 0 BSUNIT2(2)
56JQ DOWN REQCART,7
574B BRN %B
57J2 BRN %D
583L BRN %E
58H= #NOR
592W #
5=26 [??? SUSESTX
5=FQ # *******
5=^B #MAC SUSESTX
5?F2 #
5?YL FINDSU 1,%A,%B
5#D= LDCT 0 #200
5#XW ANDX 0 ASMARK(1)
5*CG BNZ 0 %B
5*X6 LADDP HUNIT(1),2
5BBQ LDN 0 1
5BWB ADS 0 BSUNIT2(2)
5CTL #NOR
5D*= #
5DSW [??? RELST
5F#G # *****
5FS6 #MAC RELST
5G?Q #
5GRB LDX 0 %A
5H?2 SMO FX2
5HQL STO 0 ACOMMUNE9
5J== DOWN REQCART,3
5JPW #NOR
5K9G #
5KP6 [??? RELSTX
5L8Q # ******
5LNB #MAC RELSTX
5M82 #
5MML LDX 0 %A
5N7= LDX 2 FX2
5NLW STO 0 ACOMMUNE9(2)
5P6G MFINDSU 1,ACOMMUNE9(2)
5PL6 LADDP HUNIT(1),2
5Q5Q SMO BSUNIT2(2)
5QKB LDN 0 0
5R52 SBN 0 1
5RJL BZE 0 MRELSTX1
5S4= BPZ 0 MRELSTX2
5SHW MRELSTX3
5T3G GEOERR 1,RELSTX
5TH6 MRELSTX2
5W2Q LDN 0 1
5WGB SBS 0 BSUNIT2(2)
5XFL BRN %B
5X^= MRELSTX1
5YDW LDCT 0 #200
5YYG ANDX 0 BSUNIT(2)
5^D6 BZE 0 MRELSTX2
5^XQ DOWN REQCART,3
62CB #NOR
62X2 #
63BL # **********************************************************************
63W= # *
64*W # * SCA LOCK-OUT SYSTEM MACROS
64TG # *
65*6 # * PLOCKSU,TPLOCKSU,UNLOCKSU,LOCKM
65SQ # **********************************************************************
66#B #
66S2 [??? PLOCKSU
67?L # *******
67R= #MAC PLOCKSU
68=W #
68QG LDX 0 %A
69=6 SMO FX2
69PQ STO 0 ACOMMUNE9
6=9B #STR %D
6=P2 DOWN TWINSETB,11
6?8L #STR %D
6?N= #SKI
6#7W DOWN TWINSETB,4
6#MG BRN %B
6*76 BRN %C
6*LQ MPLOCKSU2
6B6B MFINDSU 1,ACOMMUNE9(2)
6BL2 LDX 0 ASMARK(1)
6C5L BPZ 0 MPLOCKSU1
6CK= COOR3 #72
6D4W BRN MPLOCKSU2
6DJG MPLOCKSU1
6F46 LDCT 0 #400
6FHQ ORS 0 ASMARK(1)
6G3B #NOR
6GH2 #
6H2L ...[??? TPLOCKSU
6HG= # ********
6H^W #MAC TPLOCKSU
6J9N ...#
6JFG PLOCKSU %A,£,%B,1
6J^6 #NOR
6KDQ #
6LD2 [??? UNLOCKSU
6LXL # ********
6MC= #MAC UNLOCKSU
6MWW #
6NBG LDX 0 %A
6NW6 SMO FX2
6P*Q STO 0 ACOMMUNE9
6PTB DOWN REQCART,11
6Q*2 MFINDSU 1,ACOMMUNE9(2)
6QSL #NOR
6R#= #
6RRW [??? LOCKM
6S?G # *****
6SR6 #MAC LOCKM
6T=Q #
6TQB LDX 0 %A
6W=2 SMO FX2
6WPL STO 0 ACOMMUNE8
6X9= #STR %B
6XNW LDX 0 %B
6Y8G SMO FX2
6YN6 STO 0 ACOMMUNE9
6^7Q DOWN REQCART,10
6^MB BRN %C
7272 BRN %D
72LL #NOR
736= #
73KW # **********************************************************************
745G # *
74K6 # * ASTUC HANDLING
754Q # *
75JB # * FINDSU,MFINDSU,FINDSUX,MFINDSUX,FINDSUD,MFINDSUD
7642 # *
76HL # **********************************************************************
773= #
77GW [??? FINDSU
782G # ******
78G6 #MAC FINDSU
78^Q #
79FB LDX 0 %B
79^2 LDN %A BCCB
7=DL MFINDSU
7=Y= LDX %A FPTR(%A)
7?CW TXU %A CXCC
7?XG BCC %C
7#C6 TXU 0 BACK1(%A)
7#WQ BCS MFINDSU
7*BB #NOR
7*W2 #
7B*L [??? MFINDSU
7BT= # *******
7C#W #MAC MFINDSU
7CSG #
7D#6 LDX 0 %B
7DRQ LDN %A BCCB
7F?B MFINDSU
7FR2 LDX %A FPTR(%A)
7G=L #SKI K6EXOFILE>199-199
7GQ= (
7H9W TXU %A CXCC
7HPG BCS MFINDSU1
7J96 GEOERR 1,MFINDSU
7JNQ MFINDSU1
7K8B )
7KN2 TXU 0 BACK1(%A)
7L7L BCS MFINDSU
7LM= #NOR
7M6W #
7MLG [??? FINDSUX
7N66 # *******
7NKQ #MAC FINDSUX
7P5B #
7PK2 LDN %A BCCB
7Q4L MFINDSU
7QJ= LDX %A FPTR(%A)
7R3W TXU %A CXCC
7RHG BCC %C
7S36 LDXC 0 BACK1(%A)
7SGQ ERX 0 %B
7T2B BNZ 0 MFINDSU
7TG2 #NOR
7T^L #
7WF= [??? MFINDSUX
7WYW # ********
7XDG #MAC MFINDSUX
7XY6 #
7YCQ LDN %A BCCB
7YXB MFINDSU
7^C2 LDX %A FPTR(%A)
7^WL #SKI K6EXOFILE>199-199
82B= (
82TW TXU %A CXCC
83*G BCS MFINDSU1
83T6 GEOERR 1,MFINDSUX
84#Q MFINDSU1
84SB )
85#2 LDXC 0 BACK1(%A)
85RL ERX 0 %B
86?= BNZ 0 MFINDSU
86QW #NOR
87=G #
87Q6 [??? FINDSUD
889Q # *******
88PB #MAC FINDSUD
8992 #
89NL LDCT 0 #400
8=8= ORX 0 %B
8=MW LDN %A BCCB
8?7G MFINDSU
8?M6 LDX %A FPTR(%A)
8#6Q TXU %A CXCC
8#LB BCC %C
8*62 TXU 0 BACK1(%A)
8*KL BCS MFINDSU
8B5= #NOR
8BJW #
8C4G [??? MFINDSUD
8CJ6 # ********
8D3Q #MAC MFINDSUD
8DHB #
8F32 LDCT 0 #400
8FGL ORX 0 %B
8G2= LDN %A BCCB
8GFW MFINDSU
8G^G LDX %A FPTR(%A)
8HF6 #SKI K6EXOFILE>199-199
8HYQ (
8JDB TXU %A CXCC
8JY2 BCS MFINDSU1
8KCL GEOERR 1,MFINDSUD
8KX= MFINDSU1
8LBW )
8LWG TXU 0 BACK1(%A)
8MB6 BCS MFINDSU
8MTQ #NOR
8N*B #
8NT2 # **********************************************************************
8P#L # *
8PS= # * EXOF HANDLING
8Q?W # *
8QRG # * FINDEXOF,MFINDEXOF,EXOFILE
8R?6 # *
8RQQ # **********************************************************************
8S=B #
8SQ2 [??? FINDEXOF
8T9L # ********
8TP= #MAC FINDEXOF
8W8W #
8WNG LDX 0 %B
8X86 LDN %A BCCB
8XMQ MFINDEXOF
8Y7B LDX %A BPTR(%A)
8YM2 TXU %A CXCC
8^6L BCC %C
8^L= TXU 0 BACK2(%A)
925W BCS MFINDEXOF
92KG #NOR
9356 #
93JQ [??? MFINDEXOF
944B # *********
94J2 #MAC MFINDEXOF
953L #
95H= LDX 0 %B
962W LDN %A BCCB
96GG MFINDEXOF
9726 LDX %A BPTR(%A)
97FQ #SKI K6EXOFILE>199-199
97^B (
98F2 TXU %A CXCC
98YL BCS MFINDEXOF1
99D= GEOERR 1,FINDEXOF
99XW MFINDEXOF1
9=CG )
9=X6 TXU 0 BACK2(%A)
9?BQ BCS MFINDEXOF
9?WB #NOR
9#B2 #
9#TL [??? EXOFILE
9**= # *******
9*SW #MAC EXOFILE
9B#G #
9BS6 #SKI %A<3-3
9C?Q ! EXOFILE !
9CRB LDN 2 BCCB
9D?2 LDN 0 0
9DQL #SKI K6EXOFILE>199-199
9F== (
9FPW BVSR £
9G9G BRN MEXOF10
9GP6 )
9H8Q MEXOF1
9HNB #SKI K6EXOFILE>199-199
9J82 (
9JML TXU 0 BACK2(2)
9K7= BCC MEXOF10
9KLW MEXOF11
9L6G GEOERR 1,EXOFILE
9LL6 MEXOF10
9M5Q )
9MKB ADN 0 1
9N52 #SKI K6EXOFILE>199-199
9NJL BVS MEXOF11
9P4= MEXOF3
9PHW LDX 2 BPTR(2)
9Q3G TXU 2 CXCC
9QH6 BCC MEXOF2
9R2Q LDX 1 BACK2(2)
9RGB BZE 1 MEXOF2
9S22 #SKI K6EXOFILE>199-199
9SFL (
9S^= LDX 1 ATYPE(2)
9TDW SRL 1 12
9TYG SBN 1 EWDAS+EXOF
9WD6 BNZ 1 MEXOF11
9WXQ )
9XCB TXL 0 BACK2(2)
9XX2 BCC MEXOF1
9YBL MEXOF2
9YW= LDX 1 %A
9^*W STO 0 BACK2(1)
9^TG #SKI K6EXOFILE>199-199
=2*6 TRACE BACK2(1),EXOFILE
=2SQ CHAIN 1,2
=3#B #NOR
=3S2 #
=4?L # **********************************************************************
=4R= # *
=5=W # * EXOFILE TRANSFER SYSTEM
=5QG # *
=6=6 # * FTRANC,FTRANW,TRANERR,OPENST,CLOSEST,CLOSEWR,WORDST
=6PQ # * READST,READSAVE,READSTX,SAVEST,WRITEST,WRITESTX,CHUCK,CHUCK
=79B # *
=7P2 # **********************************************************************
=88L #
=8N= [??? FTRANC
=97W # ******
==76 #MAC FTRANC
==LQ #
=?6B #OPT MFTRANC1=0
=?L2 #SKI MFTRANC1-1
=#5L (
=#K= #FRE MFTRANC1
=*4W #DEF MFTRANC1=1
=*JG MFTRANC2
=B46 #DEF MFTRANC=MFTRANC2
=BHQ STO 0 EWK+2(3)
=C3B LDN 1 EBUF-A1(3)
=CH2 MFTRANC4
=D2L LDX 1 A1(1)
=DG= BNZ 1 MFTRANC3
=D^W LDX 0 EWK+2(3)
=FFG EXIT 0 0
=F^6 MFTRANC3
=GDQ LDN 0 FBUFR-1(1)
=GYB TXL 0 EWK(3)
=HD2 BCC MFTRANC4
=HXL ADN 0 129
=JC= TXL 0 EWK(3)
=JWW BCS MFTRANC4
=KBG LDX 0 EWK+2(3)
=KW6 EXIT 0 1
=L*Q )
=LTB #NOR
=M*2 #
=MSL [??? FTRANW
=N#= # ******
=NRW #MAC FTRANW
=P?G #
=PR6 #OPT MFTRANW1=0
=Q=Q #SKI MFTRANW1-1
=QQB (
=R=2 #FRE MFTRANW1
=RPL #DEF MFTRANW1=1
=S9= MFTRANW2
=SNW #DEF MFTRANW=MFTRANW2
=T8G STO 0 EWK+2(3)
=TN6 LDX 0 EWK(3)
=W7Q LDN 1 EBUF-A1(3)
=WMB MFTRANW4
=X72 LDX 1 A1(1)
=XLL BNZ 1 MFTRANW3
=Y6= LDX 0 EWK+2(3)
=YKW EXIT 0 0
=^5G MFTRANW3
=^K6 TXU 0 A1+1(1)
?24Q BCS MFTRANW4
?2JB LDX 0 EWK+2(3)
?342 EXIT 0 1
?3HL )
?43= #NOR
?4GW #
?52G [??? TRANERR
?5G6 # *******
?5^Q #MAC TRANERR
?6FB #
?6^2 #OPT MTRANERR1=0
?7DL #SKI MTRANERR1-1
?7Y= (
?8CW #FRE MTRANERR1
?8XG #DEF MTRANERR1=1
?9C6 MTRANERR2
?9WQ #DEF MTRANERR=MTRANERR2
?=BB GEOERR 1,TRANERR
?=W2 )
??*L #NOR
??T= #
?##W [??? OPENST
?#SG # ******
?*#6 #MAC OPENST
?*RQ #
?B?B #STR %A
?BR2 (
?C=L LDX 0 %A
?CQ= STO 0 ESERL(3)
?D9W )
?DPG MFINDSU 1,ESERL(3)
?F96 LDX 0 ABSUN(1)
?FNQ STO 0 EBSUN(3)
?G8B LDN 0 128
?GN2 STO 0 ECNT(3)
?H7L LDX 0 HTYPE(1)
?HM= STO 0 ETYPE(3)
?J6W LDX 0 ASUBASE(1)
?JLG STO 0 EBASE(3)
?K66 LDX 0 HBLOCK(1)
?KKQ STO 0 EDEPF(3)
?L5B STOZ EBUF(3)
?LK2 STOZ ETMARK(3)
?M4L #NOR
?MJ= #
?N3W [??? CLOSEST
?NHG # *******
?P36 #MAC CLOSEST
?PGQ #
?Q2B STO 1 EWK+1(3)
?QG2 STO 2 EWK+2(3)
?Q^L LDX 0 ETMARK(3)
?RF= BNZ 0 MCLOSEST1
?RYW MCLOSEST2
?SDG LDX 1 EBUF(3)
?SY6 BNZ 1 MCLOSEST3
?TCQ LDX 1 EWK+1(3)
?TXB LDX 2 EWK+2(3)
?WC2 BRN %A
?WWL MCLOSEST3
?XB= LDX 0 A1(1)
?XTW STO 0 EBUF(3)
?Y*G FREECORE 1
?YT6 BRN MCLOSEST2
?^#Q MCLOSEST1
?^SB DOWN TRANSFER,3
#2#2 #NOR
#2RL #
#3?= [??? CLOSEWR
#3QW # *******
#4=G #MAC CLOSEWR
#4Q6 #
#59Q LDX 0 %B
#5PB STO 0 EBLOCK(3)
#692 #STR %C
#6NL LDCT 0 #600
#78= #STR %C
#7MW #SKI
#87G LDCT 0 #400
#8M6 STO 0 EWK(3)
#96Q #STR C,%A
#9LB #SKI
#=62 DOWN TRANSFER,4
#=KL #STR W,%A
#?5= #SKI
#?JW DOWN TRANSFER,5
##4G #NOR
##J6 #
#*3Q [??? WORDST
#*HB # ******
#B32 #MAC WORDST
#BGL #
#C2= #OPT MWORDST1=0
#CFW CALL 0 MWORDST2
#C^G LDX 0 %A
#DF6 #SKI MWORDST1-1
#DYQ (
#FDB #FRE MWORDST1
#FY2 #DEF MWORDST1=1
#GCL BRN MWORDST3
#GX= MWORDST4
#HBW #DEF MWORDST2=MWORDST4
#HWG STO 0 ETLINK(3)
#JB6 STO 1 EWK+1(3)
#JTQ SMO 0
#K*B OBEY 0
#KT2 STO 0 EWK(3)
#L#L CALL 0 MFTRANC
#LS= BRN MTRANERR
#M?W LDX 0 A1+1(1)
#MRG SLL 0 7
#N?6 SBN 0 FBUFR(1)
#NQQ ADS 0 EWK(3)
#P=B LDX 0 ETLINK(3)
#PQ2 LDX 1 EWK+1(3)
#Q9L EXIT 0 1
#QP= TRANERR
#R8W FTRANC
#RNG MWORDST3
#S86 )
#SMQ #NOR
#T7B #
#TM2 [??? READST
#W6L # ******
#WL= #MAC READST
#X5W #
#XKG STOZ EWK+3(3)
#Y56 LDX 0 %A
#YJQ CALL 1 MREADSTX2
#^4B BRN %B
#^J2 READSTX
*23L #NOR
*2H= #
*32W [??? READSAVE
*3GG # ********
*426 #MAC READSAVE
*4FQ #
*4^B STO 3 EWK+3(3)
*5F2 LDX 0 %A
*5YL CALL 1 MREADSTX2
*6D= BRN %B
*6XW READSTX
*7CG #NOR
*7X6 [??? READSTX
*8BQ # *******
*8WB #MAC READSTX
*9B2 #
*9TL #OPT MREADSTX1=0
*=*= #SKI MREADSTX1-1
*=SW (
*?#G #FRE MREADSTX1
*?S6 #OPT MREADSTX1=1
*#?Q BRN MREADSTX3
*#RB MREADSTX4
**?2 #DEF MREADSTX2=MREADSTX4
**QL SBX 1 FX1
*B== STO 1 ETLINK(3)
*BPW SRL 01 7
*C9G STO 0 EBLOCK(3)
*CP6 SRL 1 17
*D8Q STO 1 ECOR(3)
*DNB STO 0 EWK(3)
*F82 CALL 0 MFTRANW
*FML BRN MREADSTX6
*G7= LDX 0 EWK+3(3)
*GLW BZE 0 MREADSTX10
*H6G LDN 0 1
*HL6 ADS 0 A1+2(1)
*J5Q MREADSTX10
*JKB ADX 1 ECOR(3)
*K52 ADN 1 FBUFR
*KJL STO 1 ECOR(3)
*L4= BRN MREADSTX7
*LHW MREADSTX6
*M3G DOWN TRANSFER,1
*MH6 MHUNTW 3,EWDAS,GEXD
*N2Q MREADSTX7
*NGB LDX 0 FX1
*P22 ADX 0 ETLINK(3)
*PFL EXIT 0 0
*P^= TRANERR
*QDW FTRANW
*QYG MREADSTX3
*RD6 )
*RXQ #NOR
*SCB #
*SX2 [??? SAVEST
*TBL # ******
*TW= #MAC SAVEST
*W*W #
*WTG #OPT MSAVEST1=0
*X*6 #OPT MSAVEST2=0
*XSQ #STR C,%A
*Y#B #SKI
*YS2 CALL 0 MSAVEST3
*^?L #STR W,%A
*^R= #SKI
B2=W CALL 0 MSAVEST4
B2QG LDX 0 %B
B3=6 #STR C,%A
B3PQ #SKI
B49B (
B4P2 #SKI MSAVEST1-1
B58L (
B5N= #FRE MSAVEST1
B67W #DEF MSAVEST1=1
B6MG BRN MSAVEST6
B776 MSAVEST7
B7LQ #DEF MSAVEST3=MSAVEST7
B86B STO 1 EWK+1(3)
B8L2 STO 0 ETLINK(3)
B95L SMO 0
B9K= OBEY 0
B=4W STO 0 EWK(3)
B=JG CALL 0 MFTRANC
B?46 BRN MTRANERR
B?HQ LDN 0 1
B#3B ADS 0 A1+2(1)
B#H2 LDX 0 ETLINK(3)
B*2L LDX 1 EWK+1(3)
B*G= EXIT 0 1
B*^W TRANERR
BBFG FTRANC
BB^6 MSAVEST6
BCDQ )
BCYB )
BDD2 #STR W,%A
BDXL #SKI
BFC= (
BFWW #SKI MSAVEST2-1
BGBG (
BGW6 #FRE MSAVEST2
BH*Q #DEF MSAVEST2=1
BHTB BRN MSAVEST8
BJ*2 MSAVEST9
BJSL #DEF MSAVEST4=MSAVEST9
BK#= STO 1 EWK+1(3)
BKRW STO 0 ETLINK(3)
BL?G SMO 0
BLR6 OBEY 0
BM=Q SRL 0 7
BMQB STO 0 EWK(3)
BN=2 CALL 0 MFTRANW
BNPL BRN MTRANERR
BP9= LDN 0 1
BPNW ADS 0 A1+2(1)
BQ8G LDX 0 ETLINK(3)
BQN6 LDX 1 EWK+1(3)
BR7Q EXIT 0 1
BRMB TRANERR
BS72 FTRANW
BSLL MSAVEST8
BT6= )
BTKW )
BW5G #NOR
BWK6 #
BX4Q [??? WRITEST
BXJB # *******
BY42 #MAC WRITEST
BYHL #
B^3= STOZ EWK+3(3)
B^GW #STR C,%A
C22G #SKI
C2G6 CALL 0 MWRITESTX3
C2^Q #STR W,%A
C3FB #SKI
C3^2 CALL 0 MWRITESTX4
C4DL LDX 1 %B
C4Y= #STR %D
C5CW LDCT 0 #600
C5XG #STR %D
C6C6 #SKI
C6WQ LDCT 0 #400
C7BB BRN %C
C7W2 WRITESTX %A
C8*L #NOR
C8T= #
C9#W [??? WRITESTX
C9SG # ********
C=#6 #MAC WRITESTX
C=RQ #
C??B #OPT MWRITESTX1=0
C?R2 #OPT MWRITESTX2=0
C#=L #STR C,%A
C#Q= #SKI
C*9W (
C*PG #SKI MWRITESTX1-1
CB96 (
CBNQ #FRE MWRITESTX1
CC8B #DEF MWRITESTX1=1
CCN2 BRN MWRITESTX5
CD7L MWRITESTX6
CDM= #DEF MWRITESTX3=MWRITESTX6
CF6W STO 1 EWK+1(3)
CFLG SMO 0
CG66 OBEY 0
CGKQ STO 1 EBLOCK(3)
CH5B STO 1 EWK(3)
CHK2 STO 0 ETLINK(3)
CJ4L CALL 0 MFTRANC
CJJ= BRN MTRANERR
CK3W SMO ETLINK(3)
CKHG OBEY 1
CL36 STO 0 EWK(3)
CLGQ LDX 0 ETMARK(3)
CM2B BZE 0 MWRITESTX7
CMG2 LDX 0 A1+2(1)
CM^L BNG 0 MWRITESTX8
CNF= LDX 0 FX1
CNYW SBS 0 ETLINK(3)
CPDG DOWN TRANSFER,7
CPY6 MHUNTW 3,EWDAS,GEXD
CQCQ LDX 0 FX1
CQXB ADX 0 ETLINK(3)
CRC2 EXIT 0 2
CRWL MWRITESTX7
CSB= STO 1 ETMARK(3)
CSTW LDX 0 EWK(3)
CT*G ORS 0 A1+2(1)
CTT6 MWRITESTX8
CW#Q LDX 0 EWK+3(3)
CWSB BZE 0 MWRITESTX15
CX#2 #SKI K6EXOFILE>199-199
CXRL (
CY?= SMO A1+2(1)
CYQW LDN 0 0
C^=G BZE 0 MTRANERR
C^Q6 )
D29Q LDN 0 1
D2PB SBS 0 A1+2(1)
D392 MWRITESTX15
D3NL LDX 0 ETLINK(3)
D48= LDX 1 EWK+1(3)
D4MW EXIT 0 2
D57G TRANERR
D5M6 FTRANC
D66Q MWRITESTX5
D6LB )
D762 )
D7KL #STR W,%A
D85= #SKI
D8JW (
D94G #SKI MWRITESTX2-1
D9J6 (
D=3Q #FRE MWRITESTX2
D=HB #DEF MWRITESTX2=1
D?32 BRN MWRITESTX11
D?GL MWRITESTX12
D#2= #DEF MWRITESTX4=MWRITESTX12
D#FW STO 1 EWK+1(3)
D#^G SMO 0
D*F6 OBEY 0
D*YQ STO 1 EBLOCK(3)
DBDB SRL 1 7
DBY2 STO 1 EWK(3)
DCCL STO 0 ETLINK(3)
DCX= CALL 0 MFTRANW
DDBW BRN MTRANERR
DDWG SMO ETLINK(3)
DFB6 OBEY 1
DFTQ STO 0 EWK(3)
DG*B LDX 0 ETMARK(3)
DGT2 BZE 0 MWRITESTX9
DH#L LDX 0 A1+2(1)
DHS= BNG 0 MWRITESTX10
DJ?W LDX 0 FX1
DJRG SBS 0 ETLINK(3)
DK?6 DOWN TRANSFER,8
DKQQ MHUNTW 3,EWDAS,GEXD
DL=B LDX 0 FX1
DLQ2 ADX 0 ETLINK(3)
DM9L EXIT 0 2
DMP= MWRITESTX9
DN8W STO 1 ETMARK(3)
DNNG LDX 0 EWK(3)
DP86 ORS 0 A1+2(1)
DPMQ MWRITESTX10
DQ7B LDX 0 EWK+3(3)
DQM2 BZE 0 MWRITESTX16
DR6L #SKI K6EXOFILE>199-199
DRL= (
DS5W SMO A1+2(1)
DSKG LDN 0 0
DT56 BZE 0 MTRANERR
DTJQ )
DW4B LDN 0 1
DWJ2 SBS 0 A1+2(1)
DX3L MWRITESTX16
DXH= LDX 0 ETLINK(3)
DY2W EXIT 0 2
DYGG TRANERR
D^26 FTRANW
D^FQ MWRITESTX11
D^^B )
F2F2 )
F2YL #NOR
F3D= #
F3XW [??? CHUCK
F4CG # *****
F4X6 #MAC CHUCK
F5BQ #
F5WB #OPT MCHUCK1=0
F6B2 #OPT MCHUCK2=0
F6TL #STR C,%A
F7*= #SKI
F7SW CALL 0 MCHUCK3
F8#G #STR W,%A
F8S6 #SKI
F9?Q CALL 0 MCHUCK4
F9RB LDX 0 %B
F=?2 #STR C,%A
F=QL #SKI
F?== (
F?PW #SKI MCHUCK1-1
F#9G (
F#P6 #FRE MCHUCK1
F*8Q #DEF MCHUCK1=1
F*NB BRN MCHUCK5
FB82 MCHUCK6
FBML #DEF MCHUCK3=MCHUCK6
FC7= STO 1 EWK+1(3)
FCLW STO 0 ETLINK(3)
FD6G SMO 0
FDL6 OBEY 0
FF5Q STO 0 EWK(3)
FFKB CALL 0 MFTRANC
FG52 BRN MTRANERR
FGJL #SKI K6EXOFILE>199-199
FH4= (
FHHW SMO A1+2(1)
FJ3G LDN 0 0
FJH6 BZE 0 MTRANERR
FK2Q )
FKGB LDN 0 1
FL22 SBS 0 A1+2(1)
FLFL LDX 0 ETLINK(3)
FL^= LDX 1 EWK+1(3)
FMDW EXIT 0 1
FMYG TRANERR
FND6 FTRANC
FNXQ MCHUCK5
FPCB )
FPX2 )
FQBL #STR W,%A
FQW= #SKI
FR*W (
FRTG #SKI MCHUCK2-1
FS*6 (
FSSQ #FRE MCHUCK2
FT#B #DEF MCHUCK2=1
FTS2 BRN MCHUCK8
FW?L MCHUCK9
FWR= #DEF MCHUCK4=MCHUCK9
FX=W STO 1 EWK+1(3)
FXQG STO 0 ETLINK(3)
FY=6 SMO 0
FYPQ OBEY 0
F^9B SRL 0 7
F^P2 STO 0 EWK(3)
G28L CALL 0 MFTRANW
G2N= BRN MTRANERR
G37W #SKI K6EXOFILE>199-199
G3MG (
G476 SMO A1+2(1)
G4LQ LDN 0 0
G56B BZE 0 MTRANERR
G5L2 )
G65L LDN 0 1
G6K= SBS 0 A1+2(1)
G74W LDX 0 ETLINK(3)
G7JG LDX 1 EWK+1(3)
G846 EXIT 0 1
G8HQ TRANERR
G93B FTRANW
G9H2 MCHUCK8
G=2L )
G=G= )
G=^W #NOR
G?FG #
G?^6 [??? CHUCKWR
G#DQ # *******
G#YB #MAC CHUCKWR
G*D2 #
G*XL STO 3 EWK+3(3)
GBC= #STR C,%A
GBWW #SKI
GCBG CALL 0 MWRITESTX3
GCW6 #STR W,%A
GD*Q #SKI
GDTB CALL 0 MWRITESTX4
GF*2 LDX 1 %B
GFSL #STR %D
GG#= LDCT 0 #600
GGRW #STR %D
GH?G #SKI
GHR6 LDCT 0 #400
GJ=Q BRN %C
GJQB WRITESTX %A
GK=2 #NOR
GKPL #
GL9= #
GLNW # **********************************************************************
GM8G # *
GMN6 # * ADDRESS CONVERSION
GN7Q # *
GNMB # * CONVERT,CONVERTX
GP72 # *
GPLL # :*********************************************************************
GQ6= #
GQKW [??? CONVERT
GR5G # *******
GRK6 #MAC CONVERT
GS4Q #
GSJB JENVNOT MCONV1,MEEP
GT42 LDX 0 %C
GTHL MPA 0 %D
GW3= BRN MCONV2
GWGW MCONV1
GX2G DVS 0 %D
GXG6 ADX 1 %C
GX^Q MCONV2
GYFB LDX 2 %B
GY^2 ANDN 2 #77
G^DL STO 2 BSL1
G^Y= CALL 2 (BSP3)
H2CW STO 0 %A
H2XG #NOR
H3C6 #
H3WQ [??? CONVERTX
H4BB # ********
H4W2 #MAC CONVERTX
H5*L #
H5T= LDX 0 %B
H6#W LDX 1 %A
H6SG LDX 2 %C
H7#6 ANDN 2 #77
H7RQ STO 2 BSL1
H8?B CALL 2 (BSP3)
H8R2 #NOR
H9=L #
H9Q= # **********************************************************************
H=9W # *
H=PG # * CHECK BS TRANSFERS
H?96 # * CHTRAN,CHTRANX
H?NQ # *
H#8B # **********************************************************************
H#N2 #
H*7L [??? CHTRAN
H*M= # ******
HB6W #MAC CHTRAN [CHECK BS TRANSFERS FOR INOP,FAIL
HBLG #
HC66 #STR %D
HD5B (
HDK2 LDX 0 %D
HF4L SRL 0 18
HFJ= )
HG3W #STR %D
HGHG #SKI
HH36 LDCH 0 ACOMMUNE9(2)
HHGQ LDX 1 %A
HJ2B ANDN 1 #77
HJG2 SBN 1 EDS
HJ^L BNZ 1 MCHECKTRF
HKF= ANDN 0 #75
HKYW MCHECKTRF
HLDG #SKI K6EXOFILE>299-299
HLY6 (
HMCQ LDX 2 0
HMXB SRC 2 6
HNC2 BNG 2 MCHECKTRG
HNWL SLL 2 1
HPB= BPZ 2 MCHECKTROK
HPTW BZE 1 MCHECKTRG
HQ*G SLL 2 2
HQT6 BNG 2 MCHECKTROK
HR#Q MCHECKTRG
HRSB GEOERR 1,PERIREP
HS#2 MCHECKTROK
HSRL )
HT?= LDX 1 FX1
HTQW LDX 2 FX2
HW=G #STR %C
HWQ6 (
HX9Q SRC 0 1
HXPB BNG 0 %C
HY92 )
HYNL BNZ 0 %B
H^8= #NOR
H^MW #
J27G [??? CHTRANX
J2M6 # *******
J36Q #MAC CHTRANX [FLAWS TRANSFER CHECK MACRO
J3LB #
J462 #STR %E
J55= (
J5JW LDX 0 %E
J64G SRL 0 18
J6J6 )
J73Q #STR %E
J7HB #SKI
J832 LDCH 0 ACOMMUNE9(2)
J8GL LDX 1 %A
J92= ANDN 1 #77
J9FW SBN 1 EDS
J9^G BNZ 1 MCHTRANX1
J=F6 ANDN 0 #75
J=YQ MCHTRANX1
J?DB #SKI K6EXOFILE>299-299
J?Y2 (
J#CL LDX 2 0
J#X= SRC 2 6
J*BW BNG 2 MCHTRANX2
J*WG SLL 2 1
JBB6 BPZ 2 MCHTRANX3
JBTQ BZE 1 MCHTRANX2
JC*B SLL 2 2
JCT2 BNG 2 MCHTRANX3
JD#L MCHTRANX2
JDS= GEOERR 1,PERIREPX
JF?W MCHTRANX3
JFRG )
JG?6 LDX 1 FX1
JGQQ LDX 2 FX2
JH=B BZE 0 MCHTRANX4
JHQ2 SRC 0 1
JJ9L BNG 0 %D
JJP= ANDN 0 6
JK8W BNZ 0 %B
JKNG BRN %C
JL86 MCHTRANX4
JLMQ #NOR
JM7B #
JMM2 # **********************************************************************
JN6L # *
JNL= # * MESSAGE HANDLING
JP5W # *
JPKG # * OPTMESS,KEEPMESS,EXMESS
JQ56 # *
JQJQ # **********************************************************************
JR4B #
JRJ2 #
JS3L [??? OPTMESS
JSH= # *******
JT2W #MAC OPTMESS
JTGG #
JW26 LDCT 0 #400
JWFQ ORX 0 %A
JW^B SMO FX2
JXF2 STO 0 ACOMMUNE7
JXYL #STR %B
JYD= LDX 0 %B
JYXW #STR %B
J^CG #SKI
J^X6 NGN 0 1
K2BQ SMO FX2
K2WB STO 0 ACOMMUNE8
K3B2 #STR %C
K3TL LDX 0 %C
K4*= #STR %C
K4SW #SKI
K5#G NGN 0 1
K5S6 SMO FX2
K6?Q STO 0 ACOMMUNE9
K6RB DOWN EXMESS,1
K7?2 #NOR
K7QL #
K8== [??? KEEPMESS
K8PW # ********
K99G #MAC KEEPMESS
K9P6 #
K=8Q LDX 0 %A
K=NB SMO FX2
K?82 STO 0 ACOMMUNE7
K?ML #STR %B
K#7= LDX 0 %B
K#LW #STR %B
K*6G #SKI
K*L6 NGN 0 1
KB5Q SMO FX2
KBKB STO 0 ACOMMUNE8
KC52 #STR %C
KCJL LDX 0 %C
KD4= #STR %C
KDHW #SKI
KF3G NGN 0 1
KFH6 SMO FX2
KG2Q STO 0 ACOMMUNE9
KGGB DOWN EXMESS,1
KH22 #NOR
KHFL #
KH^= [??? EXMESS
KJDW # ******
KJYG #MAC EXMESS
KKD6 #
KKXQ MHUNTW 1,EWDAS,EWMESS
KLCB BNG 1 MEXMESS
KLX2 #STR %A
KMBL DOWN EXMESS,3
KMW= #STR %A
KN*W #SKI
KNTG DOWN EXMESS,2
KP*6 MEXMESS
KPSQ LDX 1 FX1
KQ#B LDX 2 FX2
KQS2 #NOR
KR?L #
KRR= # **********************************************************************
KS=W # * EXOFILE TWINNING SYSTEM MACROS
KSQG # *
KT=6 # * A)RESTORE TIME MACROS:-
KTPQ # * TWINNING,DECOM,TWINTRCE,DEDICATE,UNDEDICATE
KW9B # * B)MACROS USED BY RTMS:-
KWP2 # * R,TWSET
KX8L # * C)STATUS TEST MACROS:-
KXN= # * JSHARED,JUNDE,JDED
KY7W # * D)MESSAGE SENDING MACROS:-
KYMG # * CHAREA,CHFILE,GETAREA,FIPPER,AUTWIN,ANYUSERS,PHOLD,BUTTON
K^76 # * E)OTHERS:-
K^LQ # * TWINCT,TWTRACE,TESTLINK,TWAIT,TCLOSE
L26B # *
L2L2 # **********************************************************************
L35L #
L3K= [??? TWINNING
L44W # ********
L4JG #MAC TWINNING
L546 #
L5HQ #STR %A
L63B #SKI
L6H2 !! MUST HAVE ON OR OFF PARAMETER
L72L #STR %A
L7G= TWSET %A,CDUM,3
L7^W #NOR
L8FG #
L8^6 [??? DECOM
L9DQ # *****
L9YB #MAC DECOM
L=D2 #
L=XL #STR %A
L?C= #SKI
L?WW !! MUST HAVE ON OR OFF PARAMETER !!
L#BG #STR %A
L#W6 (
L**Q #MEN TWINSET
L*TB #TRA K4TWINSET
LB*2 #STR ON,%A
LBSL #SKI
LC#= +0
LCRW #STR OFF,%A
LD?G #SKI
LDR6 -1
LF=Q #END
LFQB )
LG=2 #NOR
LGPL #
LHNW [??? TWINTRCE
LJ8G # ********
LJN6 #MAC TWINTRCE
LK7Q #
LKMB #STR %A
LL72 #SKI
LLLL !! MUST HAVE ON OR OFF PARAMETER !!
LM6= #STR %A
LMKW (
LN5G TWSET %A,RELIEF,8
LNK6 TWSET %A,CDUM,4
LP4Q TWSET %A,TWINSETA,7
LPJB TWSET %A,TWINSETD,7
LQ42 TWSET %A,INTWIN,4
LQHL )
LR3= #NOR
LRGW #
LS2G [??? DEDICATE
LSG6 # ********
LS^Q #MAC DEDICATE
LTFB #
LT^2 #MEN CDUM
LWDL #TRA ARES
LWY= R %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W
LXCW #END
LXXG #NOR
LYC6 #
LYWQ [??? UNDEDICATE
L^BB # **********
L^W2 #MAC UNDEDICATE
M2*L #
M2T= #MEN CDUM
M3#W #TRA AUNRES
M3SG R %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W
M4#6 #END
M4RQ #NOR
M5?B #
M5R2 [??? R
M6=L # *
M6Q= #MAC R
M79W #
M7PG #STR %A
M896 #SKI %A<512-512>0&%A
M8NQ (
M98B #STR %A
M9N2 (
M=7L +%A
M=M= R %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W,%X
M?6W )
M?LG #STR %A
M#66 #SKI
M#KQ #77777777
M*5B )
M*K2 #STR %A
MB4L #SKI %A<512-512>0&%A
MBJ= #SKI
MC3W (
MCHG !! UNIT NO. OUT OF RANGE : %A !!
MD36 R %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W,%X
MDGQ )
MF2B #NOR
MFG2 #
MF^L [??? TWSET
MGF= # *****
MGYW #MAC TWSET
MHDG #
MHY6 #MEN %B
MJCQ #TRA K%C%B
MJXB #STR ON,%A
MKC2 #SKI
MKWL -1
MLB= #STR OFF,%A
MLTW #SKI
MM*G +0
MMT6 #END
MN#Q #NOR
MNSB #
MP#2 [??? JSHARED
MPRL # *******
MQ?= #MAC JSHARED
MQQW #
MR=G MOD LDX 0 BSUNIT,%A
MRQ6 ANDX 0 BITS910
MS9Q ERX 0 BIT10
MSPB BZE 0 %B
MT92 #NOR
MTNL #
MW8= [??? JDED
MWMW # ****
MX7G #MAC JDED
MXM6 #
MY6Q MOD LDX 0 BSUNIT,%A
MYLB ANDX 0 BITS910
M^62 BZE 0 %B
M^KL #NOR
N25= #
N2JW [??? JUNDE
N34G # *****
N3J6 #MAC JUNDE
N43Q #
N4HB MOD LDX 0 BSUNIT,%A
N532 ANDX 0 BITS910
N5GL ERX 0 BITS910
N62= BZE 0 %B
N6FW #NOR
N6^G #
N7F6 [??? CHAREA
N7YQ # ******
N8DB #MAC CHAREA
N8Y2 #
N9CL STO 1 EX4
N9X= STO 2 EX5
N=BW LDX 0 %B
N=WG SMO FX2
N?B6 STO 0 ACOMMUNE9
N?TQ HUNT 1,EWDAS,ITCH
N#*B BNG 1 MCHAREA1
N#T2 LDX 0 ENSUSN(1)
N*#L TXU 0 %A
N*S= BCS MCHAREA1
NB?W LDX 0 ENCT(1)
NBRG SBN 0 ENAR-ENMARK
NC?6 MCHAREA3
NCQQ LDX 2 ENAR(1)
ND=B SMO FX2
NDQ2 TXU 2 ACOMMUNE9
NF9L BCC MCHAREA4
NFP= ADN 1 1
NG8W BCT 0 MCHAREA3
NGNG MCHAREA1
NH86 LDN 0 0
NHMQ MCHAREA4
NJ7B LDX 1 EX4
NJM2 LDX 2 EX5
NK6L BNZ 0 %C
NKL= #NOR
NL5W #
NLKG [??? CHFILE
NM56 # ******
NMJQ #MAC CHFILE
NN4B #
NNJ2 LDX 0 %B
NP3L LDX 1 FX2
NPH= STO 0 ACOMMUNE9(1)
NQ2W MFINDSU 1,ACOMMUNE9(1)
NQGG LADDP HUNIT(1),1
NR26 JDED 1,%G
NRFQ LDX 1 FX2
NR^B LDX 0 %A
NSF2 STO 0 ACOMMUNE8(1)
NSYL LDX 0 %C
NTD= STO 0 ACOMMUNE7(1)
NTXW DOWN TWINSETB,3
NWCG M1CHFILE
NWX6 BRN M1CHFILE
NXBQ BRN %E
NXWB BRN %F
NYB2 #NOR
NYTL #
N^*= [??? GETAREA
N^SW # *******
P2#G #MAC GETAREA
P2S6 #
P3?Q LDX 0 %A
P3RB LDX 1 FX2
P4?2 STO 0 ACOMMUNE9(1)
P4QL MFINDSU 1,ACOMMUNE9(1)
P5== LADDP HUNIT(1),1
P5PW LDX 2 FX2
P69G JDED 1,MGETAREA1
P6P6 STOZ ACOMMUNE8(2)
P78Q LDCT 0 #400
P7NB ORN 0 GCHA
P882 STO 0 ACOMMUNE7(2)
P8ML DOWN TWINSETB,3
P97= MGETAREA1
P9LW LDX 1 FX1
P=6G BRN MGETAREA2
P=L6 BRN %B
P?5Q MGETAREA2
P?KB #NOR
P#52 #
P#JL [??? FIPPER
P*4= # ******
P*HW #MAC FIPPER
PB3G #
PBH6 LDX 0 %B
PC2Q LDX 1 FX2
PCGB STO 0 ACOMMUNE9(1)
PD22 MFINDSU 1,ACOMMUNE9(1)
PDFL LADDP HUNIT(1),1
PD^= JDED 1,%E
PFDW LDX 0 %A
PFYG LDX 2 FX2
PGD6 STO 0 ACOMMUNE8(2)
PGXQ LDCT 0 #400
PHCB ORN 0 GRDFIP
PHX2 STO 0 ACOMMUNE7(2)
PJBL DOWN TWINSETB,3
PJW= M1FIPPER
PK*W BRN M1FIPPER
PKTG BRN £
PL*6 BRN %D
PLSQ #NOR
PM#B #
PMS2 [??? AUTWIN
PN?L # ******
PNR= #MAC AUTWIN
PP=W #
PPQG LDN 0 %A
PQ=6 SMO FX2
PQPQ STO 0 ACOMMUNE8
PR9B #STR %B
PRP2 (
PS8L LDX 0 %B
PSN= SMO FX2
PT7W STO 0 ACOMMUNE9
PTMG )
PW76 DOWN TWINSETB,7
PWLQ #NOR
PX6B #
PXL2 [??? ANYUSERS
PY5L # ********
PYK= #MAC ANYUSERS
P^4W #
P^JG LDX 0 %B
Q246 LDX 1 FX2
Q2HQ STO 0 ACOMMUNE9(1)
Q33B MFINDSU 1,ACOMMUNE9(1)
Q3H2 LADDP HUNIT(1),1
Q42L JDED 1,%E
Q4G= LDX 0 %A
Q4^W LDX 2 FX2
Q5FG STO 0 ACOMMUNE8(2)
Q5^6 LDCT 0 #400
Q6DQ ORN 0 GANYUSER
Q6YB STO 0 ACOMMUNE7(2)
Q7D2 DOWN TWINSETB,3
Q7XL M1ANYUSERS
Q8C= BRN M1ANYUSERS
Q8WW BRN %D
Q9BG BRN %C
Q9W6 #NOR
Q=*Q #
Q=TB [??? PHOLD
Q?*2 # *****
Q?SL #MAC PHOLD [%A=UNIT NO. %B-IPB FAIL %C - G.DOWN
Q##= #
Q#RW LDX 0 %A
Q*?G SMO FX2
Q*R6 STO 0 ACOMMUNE9
QB=Q DOWN TWINSETB,5
QBQB BRN %B
QC=2 BRN %C
QCPL #NOR
QD9= #
QDNW [??? BUTTONOLE
QF8G # *********
QFN6 #MAC BUTTONOLE
QG7Q #
QGMB AUTWIN GBOLE,%A
QH72 #NOR
QHLL #
QJ6= [??? TWINCT
QJKW # ******
QK5G #MAC TWINCT
QKK6 #
QL4Q LDX 0 ETWINCT
QLJB ADN 0 1
QM42 STO 0 ETWINCT
QMHL SBN 0 1
QN3= #NOR
QNGW #
QP2G [??? TWTRACE
QPG6 # *******
QP^Q #MAC TWTRACE
QQFB #
QQ^2 STO 3 EX7
QRDL CALL 3 MTW1
QRY= LDX 3 EX7
QSCW #OPT MTW12=0
QSXG #SKI MTW12-1
QTC6 (
QTWQ BRN MTW2
QWBB MTW3 STO 0 EX4
QWW2 STO 1 EX5
QX*L STO 2 EX6
QXT= HUNT 2,EWDAS,GEXD
QY#W SMO FX2
QYSG LDN 0 ACOMMUNE1
Q^#6 SMO A1(2)
Q^RQ LDN 1 A1+1(2)
R2?B MOVE 0 5
R2R2 LDN 0 5
R3=L ADS 0 A1(2)
R3Q= LDX 0 ALOGLEN(2)
R49W SBX 0 A1(2)
R4PG SBN 0 1
R596 BNZ 0 MTW4
R5NQ STOZ A1(2)
R68B MTW4 LDN 0 EX4
R6N2 LDN 1 0
R77L MOVE 0 3
R7M= EXIT 3 0
R86W MTW2
R8LG #FRE MTW12
R966 #OPT MTW12=1
R9KQ #DEF MTW1=MTW3
R=5B )
R=K2 #NOR
R?4L #
R?J= [??? TESTLINK
R#3W # ********
R#HG #MAC TESTLINK
R*36 #
R*GQ LDX 0 ETWINMK
RB2B ANDN 0 IPBDOWN+GEODOWN
RBG2 BZE 0 M1TESTLINK
RB^L ANDN 0 IPBDOWN
RCF= BNZ 0 %A
RCYW BRN %B
RDDG M1TESTLINK
RDY6 #NOR
RFCQ #
RFXB [??? TCLOSE
RGC2 # ******
RGWL #MAC TCLOSE
RHB= #
RHTW DOWN TWINSETB,12
RJ*G #NOR
RJT6 #
RK#Q [??? TWAIT
RKSB # *****
RL#2 #MAC TWAIT
RLRL #
RM?= LDX 0 %A
RMQW SMO FX2
RN=G STO 0 ACOMMUNE9
RNQ6 DOWN REQCART,12
RP9Q BRN %B
RPPB #NOR
RQ92 #
RQNL # **********************************************************************
RR8= # *
RRMW # * MISC MACROS
RS7G # *
RSM6 # * EXOFAIL,MOVLONG,UDASTYPE,RNXNOCHECK,JPROP
RT6Q # * ERASEX,STUBASE,STUBASEX,EDSCNT
RTLB ...# * FINDBSA,FLAWCHK,LFNTOGEOG,FINDRPDEV
RW62 # *
RWKL # **********************************************************************
RX5= #
RXJW [??? EXOFAIL
RY4G # *******
RYJ6 #MAC EXOFAIL
R^3Q #
R^HB SMO %A
S232 LDX 7 ACNUM
S2GL HUNT2J 1,EWDAS,EWMESS,%A,MEXOFA1
S32= CHAIN 1,FX2
S3FW EXMESS ALL
S3^G FINDACTNO 1,7,MEXOFA1
S4F6 CLAUTFAIL 1
S4YQ LDX 0 AWORK3(1)
S5DB LDX 1 FX1
S5Y2 BZE 0 %B
S6CL BRN MEXOFA2
S6X= MEXOFA1
S7BW GEOERR 1,EXOFAIL
S7WG MEXOFA2
S8B6 #NOR
S8TQ #
S9*B [??? MOVLONG
S9T2 # *******
S=#L #MAC MOVLONG
S=S= #
S??W STO %A BSL1 [PRESERVE PARAMETERS
S?RG STO %B BSL2
S#?6 STO %C BSL3
S#QQ MOVLONG1
S*=B SBX %C BSBS1 [SUBTRACT 513
S*Q2 BNG %C MOVLONG2 [J IF FINAL MOVE
SB9L ADN %C 1 [ELSE MAKE SUBTRACTION 512
SBP= MOVE %A 0 [MOV'M'OUT
SC8W ADX %A BSBS [UPDATE
SCNG ADX %B BSBS
SD86 BRN MOVLONG1
SDMQ MOVLONG2
SF7B ADX %C BSBS1 [RESTORE FOR FINAL MOVE
SFM2 SMO %C
SG6L MOVE %A 0
SGL= LDX %A BSL1 [RESTORE PARAMETERS
SH5W LDX %B BSL2
SHKG LDX %C BSL3
SJ56 #NOR
SJJQ #
SK4B [??? UDASTYPE
SKJ2 # ********
SL3L #MAC UDASTYPE
SLH= #
SM2W #MEN CONSTANT
SMGG #TRA FRED
SN26 #STR DA,%A
SNFQ #SKI
SN^B #DEF MUDASTYPE=#4441
SPF2 #STR ED,%A
SPYL #SKI
SQD= #DEF MUDASTYPE=#4544
SQXW #STR FD,%A
SRCG #SKI
SRX6 #DEF MUDASTYPE=#4644
SSBQ #OPT MUDASTYPE=0
SSWB #SKI MUDASTYPE
STB2 #HAL MUDASTYPE,0
STTL #SKI MUDASTYPE<1$1
SW*= !! %A IS NOT A VALID MNEMONIC !!
SWSW #END
SX#G #NOR
SXS6 #
SY?Q [??? RNXNOCHECK
SYRB # **********
S^?2 [ MACRO TO ALLOW AN EXOFILE TO BE RENAMED TO AN EXISTING NAME
S^QL #
T2== #MAC RNXNOCHECK
T2PW #
T39G #MEN RENAMEX
T3P6 #TRA K81RENAMEX
T48Q BRN K82RENAMEX
T4NB #END
T582 #NOR
T5ML #
T67= [??? JPROP
T6LW # *****
T76G # MACRO TO JUMP TO APPROPRIATE LABEL
T7L6 # ACCORDING TO DEVICE PROPERTIES
T85Q [
T8KB #MAC JPROP
T952 #
T9JL LPROP %A,0
T=4= #STR %B [COMPILED IF %B PRESENT
T=HW (
T?3G LDX 1 0
T?H6 SBN 1 #524
T#2Q BZE 1 %B [^ IF FDS640
T#GB )
T*22 #STR %C [COMPILED IF %C PRESENT
T*FL (
T*^= LDX 1 0
TBDW SBN 1 #522
TBYG BZE 1 %C [^ IF FDS160
TCD6 )
TCXQ #STR %D [COMPILED IF %D PRESENT
TDCB (
TDX2 LDX 1 0
TFBL SBN 1 #501
TFW= BZE 1 %D [^ IF EDS80
TG*W )
TGTG #STR %E [COMPILED IF %E PRESENT
TH*6 (
THSQ LDX 1 0
TJ#B SBN 1 #502
TJS2 BZE 1 %E [^ IF EDS100
TK?L )
TKR= #STR %F [COMPILED IF %F PRESENT
TL=W (
TLQG LDX 1 0
TM=6 SBN 1 #504
TMPQ BZE 1 %F [^ IF EDS200
TN9B )
TNP2 #STR %G [COMPILED IF %G PRESENT
TP8L (
TPN= LDX 1 0
TQ7W SBN 1 #414
TQMG BZE 1 %G [^ IF LDC STYLE EDS200 VIA PF56
TR76 SBN 1 #100
TRLQ BZE 1 %G [^ IF LDC STYLE EDS200 INTEGRATED
TS6B )
TSL2 #NOR
TT5L #
TTK= [??? ERASEX
TW4W # ******
TWJG #MAC ERASEX
TX46 #
TXHQ DOWN ERASEX,1
TY3B BRN %A
TYH2 #NOR
T^2L #
T^G= [??? STUBASE
T^^W # *******
W2FG #MAC STUBASE
W2^6 #
W3DQ LDN %C 0
W3YB LDX 0 BSUNIT1(%A)
W4D2 ANDN 0 #77
W4XL SBN 0 AFDS
W5C= BNZ 0 MSTUBASE1
W5WW LDX %C FDSTART
W6BG MSTUBASE1
W6W6 #NOR
W7*Q #
W7TB [??? STUBASEX
W8*2 # ********
W8SL #MAC STUBASEX
W9#= #
W9RW LDN %B 0
W=?G LDX 0 %C
W=R6 SBN 0 AFDS
W?=Q BNZ 0 MSTUBASEX
W?QB LDN %B 0
W#=2 MSTUBASEX
W#PL #NOR
W*9= #
W*NW [??? EDSCNT
WB8G # ******
WBN6 #MAC EDSCNT
WC7Q #
WCMB #STR %C
WD72 (
WDLL +%C
WF6= #FID 0 5 %A
WFKW #FID 6 11 %B
WG5G EDSCNT %A,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O
WGK6 )
WH4Q #NOR
WHJB #
WJ42 [??? FINDBSA
WJHL # *******
WK3= #MAC FINDBSA
WKGW #
WL2G #STR %B
WLG6 #SKI
WL^Q (
WMFB #STR %A,1
WM^2 LDX 1 %A
WNDL SLL 1 1 [MULTIPLY BY 2
WNY= ADX 1 ALFTP [ADD BASE OF ALFTABLE
WPCW LDX 1 A1(1) [GET APPROPRIATE RECORD
WPXG SRL 1 12 [BSUN MOVED FROM B2-11
WQC6 ANDN 1 #1777 [ TO B14-23
WQWQ )
WRBB #STR %B
WRW2 (
WS*L #STR %B,1
WST= LDX 1 %B [BSUN IF %A ABSENT
WT#W )
WTSG MPY 1 ASBSAB [ASBSAB = ASIZE OF ANY BSA
WW#6 NGX 2 2
WWRQ ADX 2 BBAC [BASE OF BSA S
WX?B ADX 2 ASBSAB [X2 CONTAINS ADDRESS OF BSA
WXR2 #NOR
WY=L #
WYQ= [??? FLAWCHK
W^9W # *******
W^PG #
X296 # MACRO USED BY ERROR LOGGING ACTIVITY FOR CHECKING
X2NQ # WHETHER A PERIPHERAL INCIDENT IS ALREADY RECORDED IN
X38B # THE FLAW INDEX.
X3N2 #
X47L #MAC FLAWCHK
X4M= #
X56W LDX 0 %A
X5LG SMO FX2
X666 STO 0 ACOMMUNE6
X6KQ LDX 0 %B
X75B SMO FX2
X7K2 STO 0 ACOMMUNE7
X84L LDX 0 %C
X8J= SMO FX2
X93W STO 0 ACOMMUNE8
X9HG LDX 0 %D
X=36 SMO FX2
X=GQ STO 0 ACOMMUNE9
X?2B DOWN FLAWMAP,2
X?G2 BRN %E
X?^L #NOR
X#F= #
X#YW ...[??? LFNTOGEOG
X*DG # ********
X*Y6 #MAC LFNTOGEOG
XBCQ #
XBXB FINDBSA %B
XCC2 LGEOG ,%A
XCWL #STR %A,2
XDB= LDX 2 FX2
XDTW #STR %A,1
XF*G LDX 1 FX1
XFT6 #NOR
XFTG ...[
XFTW ...[??? FINDRPDEV
XFW= ...# *********
XFWL ...#MAC FINDRPDEV
XFX2 ...#
XFXB ...#STR %B
XFXQ ...#SKI
XFY6 ...(
XFYG ... LDN %D 6
XFYW ... FINDPEREC %A,APFOTY,%D
XF^= ... BNG %A %C
XF^L ...)
XG22 ...#STR %B
XG2B ...(
XG2Q ... SMO FX1
XG36 ... LDX %D MFINDRPDEV1
XG3G ...MFINDRPDEV4 FINDPEREC %A,APFOTY,%D,%B
XG3W ... BPZ %A MFINDRPDEV
XG4= ... LDX %A FX1
XG4L ... LDN 0 6
XG52 ...MFINDRPDEV3 TXU %D MFINDRPDEV1(%A)
XG5B ... BCC MFINDRPDEV2
XG5Q ... ADN %A 1
XG66 ... BCT 0 MFINDRPDEV3
XG6G ... BRN %C
XG6W ...MFINDRPDEV2 LDX %D MFINDRPDEV1+1(%A)
XG7= ... BPZ %D MFINDRPDEV4
XG7L ... BRN %C
XG82 ...MFINDRPDEV1 +6
XG8B ... +9
XG8Q ... +13
XG96 ... +25
XG9G ... +26
XG9W ... +28
XG== ... -1
XG=L ...MFINDRPDEV
XG?2 ...)
XG?B ...#NOR
XG?Q ...#
XG#Q #
XGSB # **********************************************************************
XH#2 # *
XHRL # * CME SHARE MACROS
XJ?= # * JCMESH,JNCMESH,SHCLOALL,SHCLOSE
XJQW # * SHOPEN,SHAREON,SHAREOFF
XK=G # *
XKQ6 # **********************************************************************
XL9Q #
XLPB [??? JCMESH
XM92 # ******
XMNL #SKI
XN8= (
XNMW #
XP7G # JUMP IF DEVICE IS CME SHARED
XPM6 #
XQ6Q )
XQLB #MAC JCMESH
XR62 #
XRKL MODD LDX 0 JK52B,%A,CPPTR(2)
XS5= ANDN 0 8
XSJW BNZ 0 %B
XT4G #NOR
XTJ6 #
XW3Q [??? JNCMESH
XWHB # *******
XX32 #SKI
XXGL (
XY2= #
XYFW # JUMP IF DEVICE IS NOT CME SHARED
XY^G #
X^F6 )
X^YQ #MAC JNCMESH
Y2DB #
Y2Y2 MODD LDX 0 JK52B,%A,CPPTR(2)
Y3CL ANDN 0 8
Y3X= BZE 0 %B
Y4BW #NOR
Y4WG #
Y5B6 [??? SHCLOALL
Y5TQ # ********
Y6*B #SKI
Y6T2 (
Y7#L #
Y7S= # ISSUE "CLOSE ALL SHARED FILES" EXTRACODE
Y8?W #
Y8RG )
Y9?6 #MAC SHCLOALL
Y9QQ #
Y==B LDX 0 GSIGN
Y=Q2 '171 0 11
Y?9L BNG 0 %A
Y?P= #NOR
Y#8W #
Y#NG [??? SHCLOSE
Y*86 # *******
Y*MQ #SKI
YB7B (
YBM2 #
YC6L # ISSUE "CLOSE SHARED FILE" EXTRACODE
YCL= #
YD5W )
YDKG #MAC SHCLOSE
YF56 #
YFJQ #STR %A
YG4B LDX 0 %A [IF %A PRESENT
YGJ2 #STR %B
YH3L LDX 1 %B [IF %B PRESENT
YHH= '171 0 11
YJ2W BNG 0 %C [^ IF FAILED
YJGG #NOR
YK26 #
YKFQ [??? SHOPEN
YK^B # ******
YLF2 #SKI
YLYL (
YMD= #
YMXW # ISSUE "OPEN SHARED FILE" EXTRACODE
YNCG #
YNX6 )
YPBQ #MAC SHOPEN
YPWB #
YQB2 #STR %A
YQTL LDX 0 %A [IF %A PRESENT
YR*= #STR %B
YRSW LDX 1 %B [IF %B PRESENT
YS#G '171 0 10
YSS6 BNG 0 %C [^ IF FAILED
YT?Q #NOR
YTRB #
YW?2 [??? SHAREON
YWQL # *******
YX== #SKI
YXPW (
YY9G #
YYP6 # ISSUE "SHARE ON" EXTRACODE
Y^8Q #
Y^NB )
^282 #MAC SHAREON
^2ML #
^37= #STR %A
^3LW LDX 0 %A [IF %A PRESENT
^46G #STR %A
^4L6 #SKI
^55Q LDX 0 CPPTR(2) [IF %A ABSENT
^5KB '171 0 3
^652 BNG 0 %B [^ IF REJECTED
^6JL #NOR
^74= #
^7HW [??? SHAREOFF
^83G # ********
^8H6 #SKI
^92Q (
^9GB #
^=22 # ISSUE "SHARE OFF" EXTRACODE
^=FL #
^=^= )
^?DW #MAC SHAREOFF
^?YG #
^#D6 #STR %A
^#XQ LDX 0 %A [IF %A PRESENT
^*CB #STR %A
^*X2 #SKI
^BBL LDX 0 CPPTR(2) [IF %A ABSENT
^BW= '171 0 4
^C*W BNG 0 %B [^ IF REJECTED
^CTG #NOR
^D*6 #
^DSQ #
^^^^ ...716564160053