BMAP MACROS
(George Source)
- BMAP MACROS.txt
22FL ...[??? BMAPSEG SECT FILE FGN 36 DOC 292D ...#MAC BMAPSEG 29*6 ...#OPT K0%A=K0BMAP 29MS ...#OPT K6%A=K6BMAP 2=2G ...#LIS K0%A 2=*8 ...#SEG %A%B 2=MW ... 8H%A 2?2J ...#NOR 2?FN ...[??? BMJWLOSE SECT CENT FGN 72 DOC 2?YS ...[ 2#CY ...#MAC BMJWLOSE 2#X4 ...#UNS FUJP 2*B8 ...( 2*T# ...#MEN BMJLSLAV 2B#D ...#TRA K50BMJLSLAV 2BRJ ...) 2C=N ...#UNS FUJP 2CPS ...#SKI 2D8Y ...( 2DN4 ...#MEN BMJLIST 2F78 ...#TRA K50BMJLIST 2FL# ...) 2G5D ...#STR %A 2GJJ ...#SKI 2H3N ... LDN 0 1 2HGS ...#STR OFF,%A 2H^Y ...#SKI 2JF4 ... LDN 0 0 2JY8 ...#STR GENRES,%A 2KC# ...#SKI 2KWD ... LDX 0 GINCTSN 2L*J ...#UNS FPARTRES 2LSN ...( 2M?S ...#TRA K55BMJLSLAV 2MQY ...#STR OFF,%A 2N=4 ...#SKI 2NP8 ...( 2P8# ... NULL 2PMD ... NULL 2Q6J ... NULL 2QKN ...) 2R4S ...#STR PARTRES,%A 2RHY ...#SKI 2S34 ... JBS K56BMJLSLAV,2,AW4PARTRES 2SG8 ...#END 2S^# ...#STR %B 2TDD ... BMJWLOSE %B 2TXJ ...) 2WBN ...#UNS FPARTRES 2WTS ...#SKI 2X#Y ...#END 2XS4 ...#NOR 2Y?8 ...[??? FSRELOAD SECT FILE FGN 36 DOC 2YQB #MAC FSRELOAD [SUPRESSES 'RESTORE?' UNLESS PREVIOUS 2YR* ...#UNS FPARTRES 2YS# ...( 2YT? ...#MEN BMQUEST 2YW= ...#TRA K91BMQUEST 2YX9 ...#STR %A,ON 2YY8 ...#SKI 2Y^7 ...( 2^26 ... BRN K92BMQUEST 2^35 ...#END 2^44 ...#EXI 2^53 ...) 2^62 ...) 2^6^ ...#UNS FPARTRES 2^7Y ...#SKI 2^8X ...( 2^=2 #MEN BACKMAP 2^PL #TRA K91BACKMAP 329= #STR %A,ON 32NW #SKI 338G ( 33N6 BRN K92BACKMAP 347Q #END 34MB #EXI 3572 ) 35BS ...) 35LL #STR %A,OFF 366= #SKI 36KW ( 375G NULL 37K6 #END 384Q #EXI 38JB ) 3942 #END 39HL #CON FSRELOAD PARAMETER ERROR 3=3= #NOR 3=?4 ...[??? CLEARFIL SECT FILE FGN 36 DOC 3=GW 3?2G #MAC CLEARFILE [WAITS FOR AUTCLOSES & EMPTIES HALFOP 3?G6 DOWN BACKROOM,3 3?^Q #NOR 3#9J ...[??? ALWAYSDU SECT FILE FGN 36 DOC 3#FB 3#^2 #MAC ALWAYSDUMP 3*68 ...#STR %A,*OFF 3*?B ...( 3*DL #SKI ALWAYSDUMP-ALWAYSEND 3*Y= #SKI 3BCW ( 3BXG #CON ALWAYSDUMP USED TOO OFTEN 3CC6 #EXI 3CWQ ) 3DBB #STR %A 3DW2 #SKI 3F*L ( 3FT= #CON ALWAYSDUMP USERNAME MISSING 3G#W #EXI 3GSG ) 3H#6 #STR %B 3HRQ #SKI 3J?B ( 3JR2 #CON ALWAYSDUMP LOCALNAME MISSING 3K=L #EXI 3KQ= ...) 3L9W ...#SKI ALWAYSDUMP+(ANONAMES*6)-ALWAYSEND<1$1 3LPG ( 3M96 #MEN BACKMASS 3MNQ #TRA K93BACKMASS 3N8B NULL 3NN2 #END 3P7L ) 3PM= #MEN BACKMARK 3Q6W #TRA ALWAYSDUMP 3QLG 12H%A 3R66 12H%B 3RKQ #END 3S5B #ALT ALWAYSDUMP=ALWAYSDUMP+6 3S67 ...) 3S6Y ...#STR %A,*OFF 3S7P ...#SKI 3S8G ...( 3S9? ...#ALT ALWAYSDUMP=2 3S=4 ...#MEN BACKMASS 3S=T ...#TRA K93BACKMASS 3S#2 ... ISSUESKI 40 3S*8 ... BRN K93BACKMASS+3 3S*N ... ISSUESKI 40 3SB8 ...#SKI 3SBQ ... BRN K94BACKMASS 3SCH ...#END 3SD# ...#MEN BACKMARK 3SF5 ...#TRA ALWAYSDUMP 3SFW ...#REP ANONAMES*6 3SGM ... +0 3SHD ...#END 3SJ9 ...) 3SK2 #NOR 3T4L ...[??? BMOPENRE SECT FILE FGN 36 DOC 4F5= 4KFW [ %A-BREAKIN & ERROR LABEL. %B-UNCAREFUL. X1->FILE,ENT 4K^G #MAC BMOPENRELN 4LF6 MHUNTW 2,FILE,FLOCNB 4LYQ LDX 0 ELAN(1) 4MDB STO 0 A1+5(2) 4MY2 ADN 1 ELOC1 4NCL ADN 2 A1 4NX= MOVE 1 5 4PBW #STR %B 4PWG ... OPENRELN %A,CLEAN,DIROPEN,QUERY 4QB6 #STR %B 4QTQ #SKI 4R*B ... OPENRELN %A,GENERAL,DIROPEN,CAREFUL,QUERY 4RT2 #NOR 4S4S ...[??? BMOPENDI SECT FILE FGN 36 DOC 4S#L [ %A-BREAKIN. %B-LABEL IF NOT OK. %C-LABEL IF BACKMAP MARKER SET(X1->FIL 4SS= [& DIRECTORY IS OPEN 4T?W [ %D-LABEL IF FILE OFFLINE(OPTIONAL) 4TRG #MAC BMOPENDIR 4W?6 OPENDIR %A,GENERAL,CAREFUL,QUERY 4WQQ TESTRPN2 OK,%B 4X=B MHUNTW 1,FILE,ENT 4XQ2 LDEX 0 ECOPS(1) 4Y9L #STR %D 4YP= BZE 0 %D 4^8W #STR %D 4^NG #SKI 5286 BZE 0 M1BMOPENDIR 52MQ BACKSPACE [SO STEPAGAIN READS NAME 537B MHUNTW 1,FILE,ENT 53M2 M1BMOPENDIR 546L JMBS %C,1,BEBMUWB,BEBM 54L= #NOR 54W4 ...[??? BLOCKMAP SECT FILE FGN 36 DOC 555W 55*N ...#MAC BLOCKMAP 55KG [ X1=FX1, X2=FX2, X3-> BLOCKS RECORD, X4=NO OF BLOCKS IN FILE (FROM ECOP 5656 [ X5=BLOCKS RECORD HEADER 574B SBN 5 2 57#8 ... STO 4 ACOMMUNE1(2) 57RS ... STO 6 ACOMMUNE3(2) 583L BXU 4 5,M97BLOCKMAP 58H= LDX 0 1(3) 592W SBN 0 3 59GG BNG 0 M2BLOCKMAP 5=26 SBN 0 64-3 5=8B ... BPZ 0 M2BLOCKMAP 5#?# ...M55BLOCKMAP 5##G ... LDX 4 1(3) 5##^ ...#UNS FPARTRES 5#*D ... LDX 2 BSACHAPTR 5#*X ...#UNS FPARTRES 5#BB ...#SKI 5#BW ... HUNT2 2,BSA,CHAPTER 5#F= ...M5BLOCKMAP 5#HL ... HUNT2J 2,BSTB,FBSIB,,%A 5#L2 ... LDEX 0 ATYPE(2) 5#NB ... SBX 0 4 5#QQ ... BNZ 0 M5BLOCKMAP 5#XW BZE 5 %B 5*CG LDX 6 ALOGLEN(2) 5*X6 SBN 6 1 5B33 ... SMO FX2 5B6Y ... ADX 3 ACOMMUNE1 5B=T ... SBX 3 5 5BBQ M1BLOCKMAP 5BWB ADN 3 1 5CB2 LDN 0 3 5CTL ANDX 0 1(3) 5D*= BNZ 0 M2BLOCKMAP 5DSW LDCT 0 #200 5F#G ANDX 0 1(3) 5FS6 ERX 0 1(3) 5G?Q SRL 0 BLS 5GRB DVS 7 M6BLOCKMAP(1) 5H?2 ... BXL 6 0,M2BLOCKMAP 5HQL LDX 4 GSIGN 5J== SMO 7 5JPW SRL 4 0 [CONVERT REMAINDER TO BIT POSITION 5K9G SMO 0 5KP6 ANDX 4 A1(2) 5L8Q BZE 4 M98BLOCKMAP 5LNB SMO 0 5M82 ERS 4 A1(2) [MAP BLOCK 5MGB ...M10BLOCKMAP 5MML BCT 5 M1BLOCKMAP 5MNR BRN M7BLOCKMAP 5MPY M97BLOCKMAP 5MQ# ... DOWN BMFIXIT,2 5MQD ... BRN M7BLOCKMAP 5MTC M98BLOCKMAP 5MTN ... SMO FX2 5MTR ... STO 5 ACOMMUNE5 [ SAVE PTR. TO BLOCK NO. 5MTW ... DOWN BMFIXIT,1 5MT^ ... STEPAGAIN 5MW3 ... BCT 5 M55BLOCKMAP 5MW5 ... BRN M7BLOCKMAP 5NLW M2BLOCKMAP 5P6G ... ACROSS BMAPONE,12 5SHW M6BLOCKMAP +24 5T3G M7BLOCKMAP 5TH6 LDX 2 FX2 5TQY ... LDX 4 ACOMMUNE1(2) 5W=J ... LDX 6 ACOMMUNE3(2) 5WGB #NOR 69^J ...[??? BMCHECKR SECT FILE FGN 36 DOC 6=9B 6=P2 #MAC BMCHECKRF 6?8L DOWN BMSJRNL,2 6?9R ...#NOR 6?=* ...[??? BMSTATS SECT FILE FGN 36 DOC 6?=Y ... 6#MG ...#MAC BMSTATS 6*76 ...[NEEDS X2=FX2 6*LQ ... ACCSTO %A,ACOMMUNE1(2) 6B6B ...#STR %B 6BL2 ...#SKI 6C5L ...( 6CK= ... DOWN BMSTATS,1 6D4W ...#EXI 6DJG ...) 6F46 ... ACCSTO %B,ACOMMUNE2(2) 6FHQ ...#STR %C 6G3B ...#SKI 6GH2 ...( 6H2L ... DOWN BMSTATS,2 6HG= ...#EXI 6H^W ...) 6JFG ... ACCSTO %C,ACOMMUNE3(2) 6J^6 ...#STR %D 6KDQ ...#SKI 6KYB ...( 6LD2 ... DOWN BMSTATS,3 6LXL ...#EXI 6MC= ...) 6MWW ... ACCSTO %D,ACOMMUNE4(2) 6NBG ... DOWN BMSTATS,4 6NW6 ...#NOR 6W=2 ...[??? NEWDICTE SECT FILE FGN 36 DOC 6WPL ...#MAC NEWDICTENT 6X9= ...[ 6XNW ...[ THIS MACRO SETS UP A PASSWORD FOR 6Y8G ...[ RECREATED DICTIONARY ENTRIES 6YN6 ...[ 6^7Q ...#MEN ADDICT 6^MB ...#TRA K50ADDICT 7272 ... 12H%A 72LL ...#END 736= ...#NOR 73KW ...[??? PRQUERY SECT FILE FGN 36 DOC 745G ...[ 74K6 ...[ THIS MACRO REQUESTS A PM IF A SYSTEM FILE 754Q ...[ IS CONFIRMED AS BEING CORRUPT AT E.M.S. 75JB ...[ 7642 ...#MAC PRQUERY 76HL ...#MEN BMAPONE 773= ...#TRA K60BMAPONE 77GW ... NULL 782G ...#END 785L ...#MEN BMINDEX 788Q ...#TRA K60BMINDEX 78?W ... NULL 78C2 ...#END 78G6 ...#NOR 78^Q ...[??? NOPRERAS SECT FILE FGN 36 DOC 79FB ...[ 79^2 ...[ THIS MACRO ASSEMBLES A TABLE OF USERS WHO 7=DL ...[ MAY NOT BE ERASED IF PARTIAL RESTORES FAIL 7=Y= ...[ 7?CW ...#MAC NOPRERASE 7?XG ...#STR %A 7#C6 ...#SKI 7#WQ ...( 7*BB ...#MEN BMQUESTB 7*W2 ...#TRA K80BMQUESTB 7B*L ... NULL 7BT= ...#END 7C#W ...#EXI 7CSG ...) 7D#6 ...#STR %A,*OFF 7DRQ ...( 7F?B ...#SKI AVSFPTR-AVSFTABEND 7FR2 ...#SKI 7G=L ...( 7GQ= ...#CON NOPRERASE USED TOO OFTEN 7H9W ...#EXI 7HPG ...) 7J96 ...#MEN BMQUESTB 7JNQ ...#TRA AVSFPTR 7K8B ... 12H%A 7KN2 ...#END 7L7L ...#ALT AVSFPTR=AVSFPTR+3 7LM= ...) 7M6W ...#STR %A,*OFF 7MLG ...#SKI 7N66 ...( 7NKQ ...#ALT AVSFPTR=AVSFTABLE 7P5B ...#MEN BMQUESTB 7PK2 ...#TRA AVSFTABLE 7Q4L ...#GAP ANOPRERASE*3 7QJ= ...#TRA K80BMQUESTB 7R3W ... BCS K81BMQUESTB 7S36 ...#END 7SGQ ...) 7T2B ...#NOR 7TG2 ...[??? EMSCONWT SECT FILE FGN 36 DOC 7T^L ...[ 7WF= ...[ THIS MACRO WAITS FOR ALL 'MONOUT'S 7WYW ...[ TO FINISH - FOR USE DURING E.M.S. 7XDG ...[ 7XY6 ...#MAC EMSCONWT 7Y93 ...M1EMSCONWT 7YFY ... LDN 0 BCONSOUT 7YQT ... BXE 0 BCONSOUT,M3EMSCONWT 7^3Q ...M2EMSCONWT 7^#M ... COOR3 #53 7^KJ ... BRN M1EMSCONWT 7^WF ...M3EMSCONWT 827B ... LDN 4 63 82D? ... FINDPERE 3,APFOTY,4,M4EMSCONWT 82P8 ... JWRONG 3,M4EMSCONWT 8325 ... JBUSY 3,M2EMSCONWT 83?2 ...#FRE M4EMSCONWT 83HX ...#NOR 83T6 ...[??? NOPARTRE SECT FILE FGN 36 DOC 84#Q ...[ 84SB ...[ THIS MACRO PROHIBITS RESTORES OF ALL 85#2 ...[ OR SPECIFIED DIRECTORIES. 85RL ...[ 86?= ...#MAC NOPARTRES 86QW ...#STR %A 87=G ...#SKI 87Q6 ...( 889Q ...#MEN BMCNTRL 88PB ...#TRA K80BMCNTRL 8992 ... NULL 89NL ...#END 89RQ ...#MEN BMPRCHEK 89SR ...#TRA AFORBIDN 89TS ... -1 89WW ...#TRA K50BMPRCHEK 8=22 ... BRN K51BMPRCHEK 8=56 ...#END 8=8= ...#EXI 8=MW ...) 8?7G ...#STR %A,*OFF 8?M6 ...( 8#6Q ...#SKI AFORBIDEND-AFORBPTR>4-4 8#LB ...#SKI 8*62 ...( 8*KL ...#CON NOPARTRES USED TOO OFTEN 8B5= ...#EXI 8BJW ...) 8C4G ...#MEN BMPRCHEK 8CJ6 ...#TRA AFORBPTR 8CL* ...#STR %B,*PSEU 8CNJ ...#SKI 8CQR ...( 8CT2 ... #40000004 8CX9 ... 12H%A 8C^D ...) 8D3M ...#STR %B,*PSEU 8D5W ...( 8D85 ... #4 8D=# ... 12H%A 8D#H ...) 8DBQ ...#END 8DD^ ...#MEN BMCNTRL 8DHB ...#TRA K80BMCNTRL 8F32 ... NULL 8FGL ...#END 8G2= ...#ALT AFORBPTR=AFORBPTR+4 8GFW ...) 8G^G ...#STR %A,*OFF 8HF6 ...#SKI 8HYQ ...( 8JDB ...#ALT AFORBPTR=AFORBIDN 8JY2 ...#MEN BMCNTRL 8LWG ...#TRA K80BMCNTRL 8MB6 ... BRN K82BMCNTRL 8MTQ ...#END 8MX^ ...#MEN BMPRCHEK 8N28 ...#TRA AFORBIDN 8N4C ...#GAP AFORBIDEND-AFORBIDN 8N6L ...#TRA K50BMPRCHEK 8N8T ... NULL 8N?4 ...#END 8N*B ...) 8NT2 ...#NOR 8P#L ...[??? SWAPPR SECT FILE FGN 36 DOC 8PS= ...[ 8Q?W ...[ THIS MACRO SPECIFIES DIRECTORIES TO BE RESTORED 8QRG ...[ IN PLACE OF FORBIDDEN ONES 8R?6 ...[ 8RQQ ...#MAC SWAPPR 8S=B ...#STR %A 8SQ2 ...( 8T9L ...#STR %B 8TP= ...( 8W8W ...#STR %B,*PSEU 8WNG ...( 8X86 ...#SKI AFORBIDEND-AFORBPTR>7-7 8XMQ ...#SKI 8Y7B ...( 8YM2 ...#CON SWAPPR USED TOO OFTEN 8^6L ...#EXI 8^L= ...) 925W ...#MEN BMPRCHEK 92KG ...#TRA AFORBPTR 9356 ... #20000007 93JQ ... 12H%A 944B ... 12H%B 94J2 ...#END 953L ...#ALT AFORBPTR=AFORBPTR+7 95H= ...) 962W ...#STR %B,*PSEU 96GG ...#SKI 9726 ...( 97FQ ...#SKI AFORBIDEND-AFORBPTR>4-4 97^B ...#SKI 98F2 ...( 98YL ...#CON SWAPPR USER TOO OFTEN 99D= ...#EXI 99XW ...) 9=CG ...#MEN BMPRCHEK 9=X6 ...#TRA AFORBPTR 9?BQ ... #60000004 9?WB ... 12H%A 9#B2 ...#END 9#TL ...#ALT AFORBPTR=AFORBPTR+4 9**= ...) 9*SW ...#MEN BMCNTRL 9B#G ...#TRA K80BMCNTRL 9BS6 ... NULL 9C?Q ...#END 9CRB ...) 9D?2 ...#EXI 9DQL ...) 9F== ...) 9FPW ...#CON SWAPPR PARAMETER ERROR 9G9G ...#NOR ^^^^ ...36673411006800000000