(George Source)
Macros used: BITDEFS
22FL # 22^= # BOBULE BEANBAG ROOM D10 23DW # 23YG #OPT BRILLO=0 24D6 # 24K# ...#OPT BSOKAY=1 24QG ...#OPT BSMK2=0 24XQ #OPT JSKI10=G4 257J #ALT JSKI10=G4 25?F #DEF JPABSA=0 [ALT BS ALLOCN ALGORITHM SKIP 25CB #OPT A1B=16 25X2 #OPT AGONY=1 26BL #OPT AGONY7=1 [MK7 LOADER/ALLOCATOR CHANGES 26W= #OPT GSQUE=1 27*W #OPT ENTWINE=0 [TWINNING 27TG #OPT CARTON=1 28*6 #OPT HELP=0 28SQ #OPT HIGHSPEED=1 29#B #OPT ALL=0 29S2 #DEF ANEWDUMP=1 2=?L #OPT ALINKSTACK=1 2=R= #OPT JOURNAL=0 2?=W #OPT BDMK7=0 2?QG #OPT K6DRUM=200 2#=6 #OPT EXCHCART=0 2#PQ #DEF BDRUM=APJOBNO+ATTMAX+1 2*P2 #DEF CPERFCHAP=1 2B8L #DEF BTHREE=3 2BN= #DEF AQMODE=A1 2C7W #DEF ASHEET=AQMODE+1 2CMG #DEF ACORSZ=ASHEET+1 2D76 #DEF AWRDNUM=ACORSZ+1 2DLQ #DEF BSHEET=AWRDNUM+1 2F6B #DEF BCORSZ=BSHEET+1 2FL2 #DEF BWRDNUM=BCORSZ+1 2G5L #DEF ASTIME=BWRDNUM+1 2GK= #DEF ATOTIME=ASTIME+1 2H4W #DEF AOBJLF=ATOTIME+1 2HJG #DEF AOBJST=AOBJLF+1 2J46 #OPT BSTATS=0 2JHQ [ 2K3B #SKI BSOPT<1$1 2KH2 #INC TRANFAIL 2L2L #SKI BSOPT 2LG= #INC TRANFAIL1 2MFG #INC GETBAX30 2M^6 #INC BSALFAIL 2NDQ #SKI CAMK7 2NYB #INC COREALLF 2PD2 #SKI CAMK7>1-1 2PXL #INC COREALL37 2QC= #SKI CAMK7<2-2 2QWW #INC COREALL36 2RBG #INC BSQ60 2RW6 #INC BSTS65 2S*Q #INC LOADERI75 2STB #SKI G3 2T*2 #INC LOADERII75 2TSL #SKI G4 2W#= #INC LOADERIJ75 2WRW # 2X?G #INC LOADERMT75 [N.I. MT ALLOCATOR/LOADER 2XR6 #INC LOADERGO75 2Y=Q #INC LOADERDB75 2YQB #INC LOADERDA75 [ 2^=2 #INC LOADERDR75 [ CODING. 2^PL #INC LOADERBU75 329= #INC LENDMT 32NW #OPT K0LOADERMT=0 338G #OPT K6LOADERMT=100 33N6 #OPT APDL=0 [LISTING OF DUMP MACRO (NI) 347Q # 34MB #INC SETLIST70 3572 #INC DATUM70 35LL #INC DRUM70 366= #DEF GETPERMK7=1 36KW #OPT K0DRUM=K0ALLGEO 375G #INC MOVCART70 37K6 [ 384Q #OPT K6COMMAND=0 38JB #OPT K6EMS=0 3942 #OPT K6FILESTORE=K6ALLGEO 39HL #OPT K6GREATGEO=0 3=3= #OPT K6INGEO=0 3=GW #OPT K6KERNEL=0 3?2G #OPT K0KERNEL=0 3?G6 #OPT K6OBJPROG=0 3?^Q #OPT K6PERIS=0 3#FB #OPT K6TRACE=K6KERNEL>K6ALLGEO 3#^2 [ 3*DL #OPT GSBS=512 3*Y= #OPT GSBSLOG=9 3BCW #DEF BLN=4 [NO. OF CHUNKS (BLOCKLETS) IN A BLOCK 3BXG #DEF BLS=2 [LOG THE NO. OF CHUNKS TO THE BASE 2 3CC6 #DEF GSBS4=GSBS/BLN [NO. OF WORDS IN A CHUNK 3CWQ #DEF FOURM=-4 [CONSTANT OF MINUS FOUR 3DBB #DEF APTYPE=10 [PARAM TO SEARCH ON TYPE&UNIT NUM 3DW2 #DEF APGEOG=11 [PARAM TO SEARCH ON GEOG NUM IN GETPE 3F*L #DEF APSER=12 [PARAM TO SEARCH ON SERIAL NUM. 3FT= # PLIST SETTINGS -- P.WARNER 3G#W #OPT FIRSTREC=1 [DISTANCE FROM A1 TO START OF 1ST REC 3GSG #OPT FIRLEN=5 [LENGTH OF MENDED FS DESCR RECORD 3H#6 #OPT APERPROP=7 [START OF PROPERTY SYSTEM AREA 3HRQ #SKI G3MARK>5-5 3J?B #OPT ALPSETUP=APERPROP+ATTMAX [WHICH IS 'ATTMAX' LONG IN MARKS>5 3JR2 #OPT ALPSETUP=APERPROP+2 [OR 2 IN MK5. ALPSETUP=LISTFILE WORD 3K=L #OPT AEXECAREA=ALPSETUP+1 [START OF ASSISTED REPEATS AREA 3KQ= #OPT APERLEN=AEXECAREA+4 [WHICH IS 4 WORDS LONG 3L9W #DEF ALINK=AWORK4-ACC3+1 3LPG #DEF ATRAN=BACKCHAN+1 3M96 #DEF AQUE=ATRAN-ALOGLEN+7 3MNQ # 3N8B # IDENTIFIERS FOR THE BSTB/BSLIST BLOCK 3NN2 # 3P7L #DEF BSPOINT=A1 [POINTER TO NEXT FREE BLOCK NUMBER 3PM= #DEF BSFREE=BSPOINT+1 [NO. OF FREE BLOCKS ON THIS RES 3Q6W #DEF BSJAML=BSFREE+1 [LEVEL AT WHICH B.S.UNJAMMER STARTED 3QLG #DEF BSTOT=BSJAML+1 [TOTAL NUMBER OF BLOCKS ON THIS RESID 3R66 #DEF BSLETH=BSTOT+1 [LETHARGY COEFFICIENT 3RKQ #DEF BSCOPY=BSLETH+1 [NO. OF BLOCKS BEING COPIED TO THIS R 3S5B #DEF BSTHRESH=BSCOPY+1 [THRESHOLD LIMIT USED BY B.S.UNJAMMER 3SCR ...#DEF BSRESERVE=BSTHRESH+1 [SIZE OF RESERVE TANK 3SQ8 ...#DEF BSRLEN=BSRESERVE+1 [START OF LIST OF FREE BLOCK NUMBERS 3T4L # 3T7Q ... BITDEFS BSLETH,1,BSMARK [DO NOT ALLOCATE ENHANCEMENT -NOT USE 3T=W ...# DOCUMENTATION ONLY 3TB2 ...#OPT ANOTALLOC=1 [SKIP IDENTIFIER 3TF6 ...# 3TJ= #OPT BSCHLEN=GSBS/BLN+BSRLEN 3W3W #OPT BSQLENGTH=5 3WHG #OPT BSQTHRESHLD=10 3X36 #OPT CGINPROG=8 3X=Y ...#DEF BKARTWT=16 [WAIT FOR KARTCONT BIT 3XGQ #DEF BWELL=3 3Y2B #DEF BFB=#400 3YG2 #DEF BOFB=2 [ONLINE FAIL BIT 3Y^L #DEF BNOFB=1 [NON ONLINE FAIL BIT 3^F= #DEF BSFAIL=ACOMMUNE6 3^YW #DEF BOBJ=1 42DG #DEF BONL=2 42Y6 #DEF BSET=4 43CQ #DEF BUSE=8 43XB #DEF FREE=16 44C2 #DEF FAIL=32 44WL #DEF ASWAP=#200 45B= #DEF BPAGE=#4000 45TW #DEF BLFAIL=#2000 46*G #DEF BONLFAIL=BONL+FAIL 46T6 #DEF BONLSWAP=BONL+ASWAP 47#Q #DEF ALENLFN=ATRAN+1 47SB #DEF BLKNO=ATRAN+2 48#2 #DEF CORADD=ATRAN+3 48RL #DEF APCA=ATRAN+4 49?= #DEF BSMODE=ATRAN+5 49QW #DEF ABSA=ATRAN+6 4==G #DEF ADBLKNO=ATRAN+7 4=Q6 #OPT KILL=0 4?9Q #DEF BOBJSET=BSET+BOBJ 4?PB #DEF FLAW=64 4#92 #DEF BSCFL=#400 4#NL #DEF BSPFL=#200 4*8= ...#DEF AFAILLEN=7 4*MW #DEF AFAILREC=2 4B7G #DEF AFAILEX=4*AFAILREC 4BM6 #DEF AFRAILLEN=9 4C6Q #DEF AFRAILREC=2 4CLB #DEF AFRAILEX=4*AFRAILREC 4D62 #DEF BONLINE=BONL 4DKL #DEF ASWAPFLA=ASWAP+FLAW 4F5= #DEF ASWAPBON=ASWAP+BONL 4FJW #DEF FABUFR=FAIL+BUSE+FREE 4G4G #DEF FAILBIT=#1000 4GJ6 #DEF BSETBUSE=BSET+BUSE 4H3Q #DEF BOBJBUSE=BOBJ+BUSE 4HHB #DEF FAILFREE=FAIL+FREE 4J32 #DEF FREEBOBJ=BOBJ+FREE 4JGL #DEF BSETFREE=BSET+FREE 4K2= #DEF FAILFLAW=FAIL+FLAW 4KFW #DEF FAILSWAP=FAIL+ASWAP 4KJ5 ...#OPT K0BRADDATA=K0ALLGEO 4KL# ...#OPT K0BRADSPLT=K0ALLGEO 4KNH ...#OPT K0BRADEMUL=K0ALLGEO 4KQQ ...#OPT K6BRADDATA=K6ALLGEO 4KS^ ...#OPT K6BRADSPLT=K6ALLGEO 4KX8 ...#OPT K6BRADEMUL=K6ALLGEO 4K^G #OPT K0BSTS=K0KERNEL>K0ALLGEO 4LF6 #OPT K0BSQ=K0BSTS 4LYQ #OPT K6BSTS=K6KERNEL>K6ALLGEO 4MDB #OPT K6BSQ=K6BSTS 4MY2 #OPT K6SETLIST=K6ALLGEO 4NCL #OPT K0SETLIST=K0ALLGEO 4PBW #OPT K6TRANFAIL=K6BSTS>K6ALLGEO 4PLN ...#OPT K6DRUMALL=K6KERNEL>K6ALLGEO 4PWG #OPT K0TRANFAIL=K0ALLGEO 4QB6 #OPT K6BSALFAIL=K6ALLGEO 4QTQ #OPT K0BSALFAIL=K0ALLGEO 4R*B #OPT K0DATUM=K0KERNEL>K0ALLGEO 4RT2 #SKI BSOPT 4S#L #DEF AWAY=BA1 ^^^^ ...27504263002300000000