MACROS EWDAS
(George Source)
- MACROS EWDAS.txt
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