{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BMAP MACROS)}}
====== BMAP MACROS ======
(George Source)
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