File RKB.RA

Directory of image this file is from
This file as a plain text file

	EXTERN	A5TOA1
	SECT	BIGGIE
	EXTERN	BITSET
	EXTERN	BUG
	EXTERN	CARRY
	EXTERN	DROP
	EXTERN	DSTROY
	EXTERN	GETIN
	EXTERN	IABS
	EXTERN	JUGGLE
	EXTERN	MAX0
	EXTERN	MIN0
	EXTERN	MOD
	EXTERN	MOVE
	EXTERN	PSPEAK
	EXTERN	PUT
	EXTERN	RND
	EXTERN	RSPEAK
	EXTERN	SPEAK
	EXTERN	VOCAB
	EXTERN	YES
	EXTERN	#FIX
	EXTERN	#WRITO
	EXTERN	#RENDO
	EXTERN	#RSVO
	EXTERN	#UE
	EXTERN	#EQ
	EXTERN	#NE
	EXTERN	HERE
	EXTERN	LIQ
	EXTERN	LIQLOC
	EXTERN	DARK
	EXTERN	PCT
	EXTERN	TRVLOC
	JA	#ST
#XR,	ORG	.+10
	TEXT	+BIGGIE+
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
#ARGS,	ORG	.+3
ATTACK,	ORG	.+3
DTOTAL,	ORG	.+3
DUMMY,	ORG	.+3
IHINT,	ORG	.+3
IOLDL2,	ORG	.+3
ISPCES,	ORG	.+3
KENT,	ORG	.+3
KQ,	ORG	.+3
K2,	ORG	.+3
LIMIT,	ORG	.+3
LL,	ORG	.+3
MXSCOR,	ORG	.+3
N,	ORG	.+3
PBOTL,	ORG	.+3
SCORE,	ORG	.+3
SPK,	ORG	.+3
STICK,	ORG	.+3
WD1,	ORG	.+3
WD1X,	ORG	.+3
WD2,	ORG	.+3
WD2X,	ORG	.+3
WZDARK,	ORG	.+3
YEA,	ORG	.+3
#TMP,	ORG	.+11
#LIT,	0000
	0000
	0000
	0001
	2000
	0000
	0002
	2000
	0000
	0002
	3000
	0000
	0003
	2000
	0000
	0003
	2400
	0000
	0003
	3000
	0000
	0003
	3400
	0000
	0004
	2000
	0000
	0004
	2200
	0000
	0004
	2400
	0000
	0004
	2600
	0000
	0004
	3000
	0000
	0004
	3200
	0000
	0004
	3600
	0000
	0005
	2000
	0000
	0005
	2100
	0000
	0005
	2300
	0000
	0005
	2400
	0000
	0005
	2600
	0000
	0005
	2700
	0000
	0005
	3000
	0000
	0005
	3100
	0000
	0005
	3200
	0000
	0005
	3300
	0000
	0005
	3500
	0000
	0005
	3600
	0000
	0006
	2040
	0000
	0006
	2140
	0000
	0006
	2200
	0000
	0006
	2240
	0000
	0006
	2500
	0000
	0006
	2540
	0000
	0006
	3100
	0000
	0006
	3200
	0000
	0006
	3300
	0000
	0006
	3440
	0000
	0006
	3500
	0000
	0006
	3540
	0000
	0006
	3600
	0000
	0006
	3640
	0000
	0006
	3700
	0000
	0007
	2020
	0000
	0007
	2140
	0000
	0007
	2400
	0000
	0007
	2420
	0000
	0007
	2440
	0000
	0007
	2660
	0000
	0007
	2700
	0000
	0007
	2760
	0000
	0007
	3060
	0000
	0007
	3100
	0000
	0007
	3120
	0000
	0007
	3200
	0000
	0007
	3220
	0000
	0007
	3460
	0000
	0007
	3500
	0000
	0007
	3520
	0000
	0007
	3760
	0000
	0010
	2000
	0000
	0010
	2020
	0000
	0010
	2030
	0000
	0010
	2140
	0000
	0010
	2150
	0000
	0010
	2260
	0000
	0010
	2420
	0000
	0010
	2510
	0000
	0010
	2520
	0000
	0010
	2720
	0000
	0010
	3100
	0000
	0010
	3150
	0000
	0011
	2260
	0000
	0011
	2450
	0000
	0011
	3720
	0000
	0012
	2734
	0000
	0012
	3720
	0000
	0000
	JA	ACTSPK-0003
	0000
	JA	COND-0003
	0000
	JA	CTEXT-0003
	0000
	JA	CVAL-0003
	0000
	JA	DLOC-0003
	0000
	JA	DSEEN-0003
	0000
	JA	FIXD-0003
	0000
	JA	FIXED-0003
	0000
	JA	HINTED-0003
	0000
	JA	HINTLC-0003
	0000
	JA	HINTS-0077
	0000
	JA	IABB-0003
	0000
	JA	IATLOC-0003
	0000
	JA	IPLACE-0003
	0000
	JA	IPTEXT-0003
	0000
	JA	IRTEXT-0003
	0000
	JA	KEY-0003
	0000
	JA	LINK-0003
	0000
	JA	LTEXT-0003
	0000
	JA	ODLOC-0003
	0000
	JA	PLAC-0003
	0000
	JA	PROP-0003
	0000
	JA	STEXT-0003
	0000
	JA	TK-0003
	0000
	JA	TRAVEL-0003
	0000
	JA	TRVPOS-0003
	0516
	2405
	4040
	2017
	2522
	4040
	2705
	2324
	4040
	4256
	4040
	4040
	5640
	4040
	4040
	7740
	4040
	4040

#LIT1, 0010;2320;0 0010;2430;0 7;2160;0 13;3751;0 5;3400;0 7;3360;0 6;2000;0 6;3340;0 5;3700;0 6;2100;0 7;3700;0 7;3600;0 7;3640;0 10;2530;0 6;2440;0 10;2540;0 10;2550;0 10;2700;0 6;2340;0 6;2400;0 10;2110;0 6;2640;0 6;2600;0 6;2700;0 6;3040;0 10;2470;0 10;2350;0 10;2450;0 3105;2340;4040 3140;4040;4040 7;2340;0 7;2320;0 7;3400;0 7;3420;0 7;2200;0 6;2500;0 7;2240;0 7;2300;0 10;2300;0 10;2360;0 6;3000;0 6;2740;0 10;2250;0 10;2440;0 10;2370;0 7;2740;0 10;2120;0 7;3040;0 7;3140;0 7;3340;0 10;2660;0 /PAGE 2 7;3160;0 10;2500;0 4;3400;0 7;3260;0 7;3240;0 7;3300;0 10;2200;0 10;2210;0 10;2050;0 10;2060;0 10;2070;0 10;2170;0 10;2270;0 10;2340;0 16;2342;0 10;2760;0 10;3040;0 10;2770;0 10;3020;0 10;3000;0 10;3010;0 10;2240;0 10;3050;0 10;3060;0 10;3070;0 10;3110;0 10;3120;0 10;2570;0 10;2010;0 10;2040;0 10;2740;0 14;2342;0 10;2730;0 10;2670;0 10;2750;0 10;2710;0 10;2100;0 6;2640;0
4256;4040;4040 5;3600;0 10;2260;0 MINUS1, ORG .+3 #LBL=. COMMON ABBCOM IABB, ORG .+702 COMMON MISCOM LINUSE, ORG .+3 ITRVS, ORG .+3 ICLSES, ORG .+3 IOLDLC, ORG .+3 LOC, ORG .+3 CVAL, ORG .+44 TK, ORG .+74 NEWLOC, ORG .+3 KEY, ORG .+702 PLAC, ORG .+454 FIXD, ORG .+454 ACTSPK, ORG .+151 COND, ORG .+702 HINTS, ORG .+360 MAXHNT, ORG .+3 PROP, ORG .+454 KTALY, ORG .+3 KTALY2, ORG .+3 HINTLC, ORG .+74 ICHLC, ORG .+3 ICHLC2, ORG .+3 DSEEN, ORG .+22 KDFLAG, ORG .+3 DLOC, ORG .+22 LCDALT, ORG .+3 KEYS, ORG .+3 LAMP, ORG .+3 IGRATE, ORG .+3 ICAGE, ORG .+3 IROD, ORG .+3 IROD2, ORG .+3 ISTEPS, ORG .+3 IBIRD, ORG .+3 IDOOR, ORG .+3 IPILOW, ORG .+3 ISNAKE, ORG .+3 IFISUR, ORG .+3 ITABLT, ORG .+3 ICLAM, ORG .+3 IOYSTR, ORG .+3 MAGZIN, ORG .+3 IDWARF, ORG .+3 KNIFE, ORG .+3 IFOOD, ORG .+3 IBOTLE, ORG .+3 IWATER, ORG .+3 IOIL, ORG .+3 IPLANT, ORG .+3 IPLNT2, ORG .+3 IAXE, ORG .+3 MIRROR, ORG .+3 IDRAGN, ORG .+3 ICHASM, ORG .+3 ITROL, ORG .+3 ITROL2, ORG .+3 IBEAR, ORG .+3 MESSAG, ORG .+3 IVEND, ORG .+3 IBATER, ORG .+3 NUGGET, ORG .+3 ICOINS, ORG .+3 ICHEST, ORG .+3 IEGGS, ORG .+3 ITRDNT, ORG .+3 IVASE, ORG .+3 IEMRLD, ORG .+3 IPYRAM, ORG .+3 IPEARL, ORG .+3 IRUG, ORG .+3 ICHAIN, ORG .+3 IBACK, ORG .+3 LOOK, ORG .+3 ICAVE, ORG .+3 NULL, ORG .+3 IENTRC, ORG .+3 IDPRSN, ORG .+3 ISAY, ORG .+3 LOCK, ORG .+3 ITHROW, ORG .+3 IFIND, ORG .+3 INVENT, ORG .+3 ITURNS, ORG .+3 LMWARN, ORG .+3 KNFLOC, ORG .+3 IDTAIL, ORG .+3 IABNUM, ORG .+3 NUMDIE, ORG .+3 MAXDIE, ORG .+3 IDKILL, ORG .+3 IFOOBR, ORG .+3 IBONUS, ORG .+3 ICLOK1, ORG .+3 ICLOK2, ORG .+3 CLOSNG, ORG .+3 PANIC, ORG .+3 CLOSED, ORG .+3 GAVEUP, ORG .+3 SCORNG, ORG .+3 ODLOC, ORG .+22 ISTREM, ORG .+3 COMMON MISC2 I, ORG .+3 IRTXSZ, ORG .+3 ICLSMX, ORG .+3 MAGSIZ, ORG .+3 LOCSIZ, ORG .+3 CTEXT, ORG .+44 STEXT, ORG .+702 LTEXT, ORG .+702 ISECT, ORG .+3 TRAVEL, ORG .+4312 TRVPOS, ORG .+4312 ITRSIZ, ORG .+3 ITBNDX, ORG .+3 IOBJ, ORG .+3 J, ORG .+3 K, ORG .+3 IVERB, ORG .+3 IHNTSZ, ORG .+3 MAXTRS, ORG .+3 HINTED, ORG .+74 IHNTLC, ORG .+3 KK, ORG .+3 COMMON PLACOM IATLOC, ORG .+702 LINK, ORG .+1130 IPLACE, ORG .+454 FIXED, ORG .+454 IHLDNG, ORG .+3 COMMON PTXCOM IPTEXT, ORG .+454 COMMON TXTCOM IRTEXT, ORG .+1147 ORG #LBL #25000, #RTN, BASE #BASE JA #GOBAK #ST, STARTD 0210 FSTA #GOBAK,0 0200 SETX #XR SETB #BASE STARTF JA #STRT /#G0001 #G0002, ORG .+10 TOTING, SETX #G0002 LDX 0,1 STARTD FLDA #BASE FSTA #G0003 FLDA% #BASE,1+ FSTA #BASE+3 STARTF FLDA% #BASE+3 FSTA DUMMY FLDA DUMMY ATX 7 FLDA MINUS1 FSUB IPLACE-0003,7 JSA #EQ SETX #XR #G0003, ORG .+2 JA #1 #G0010, ORG .+10 AT, SETX #G0010 LDX 0,1 STARTD FLDA #BASE FSTA #G0011 FLDA% #BASE,1+ FSTA #BASE+3 STARTF FLDA% #BASE+3 FSTA DUMMY FLDA DUMMY ATX 7 FLDA IPLACE-0003,7 FSUB LOC JSA #EQ FSTA #TMP+3 FLDA FIXED-0003,7 FSUB LOC JSA #EQ FADD #TMP+3 JSA #NE SETX #XR #G0011, ORG .+2 JA #1 #G0025, ORG .+10 FORCED, SETX #G0025 LDX 0,1 STARTD FLDA #BASE FSTA #G0026 FLDA% #BASE,1+ FSTA #BASE+3 STARTF FLDA% #BASE+3 FSTA DUMMY FLDA DUMMY ATX 7 FLDA COND-0003,7 FSUB #LIT+6 JSA #EQ SETX #XR #G0026, ORG .+2 JA #1 #G0043, ORG .+10 TRVCON, SETX #G0043 LDX 0,1 STARTD FLDA #BASE FSTA #G0044 FLDA% #BASE,1+ FSTA #BASE+3 STARTF FLDA% #BASE+3 FSTA DUMMY FLDA DUMMY ATX 7 FLDA TRVPOS-0003,7 FDIV #LIT+341 JSA #FIX SETX #XR #G0044, ORG .+2 #STRT, FLDA #LIT+3 /SETUP MINUS ONE. FNEG FSTA MINUS1 #1, JSR RND JA .+4 JA #LIT+3 FSTA I FLDA #LIT+11 ATX 7 JSR YES JA .+10 JA #LIT+176 JA #LIT+3 JA #LIT FSTA HINTED-0003,7 FLDA #LIT+3 FSTA NEWLOC FSTA LOC FLDA #LIT+330 FSTA LIMIT FLDA HINTED-0003,7 JEQ #2 FLDA #LIT+341 FSTA LIMIT #2, FLDA NEWLOC FSUB #LIT+33 JGE #71 FLDA NEWLOC JEQ #71 FLDA CLOSNG JEQ #71 JSR RSPEAK JA .+4 JA #LIT+264 FLDA LOC FSTA NEWLOC FLDA PANIC JNE .+5 FLDA #LIT+52 FSTA ICLOK2 FLDA #LIT+3 / FSTA PANIC #71, FLDA NEWLOC FSUB LOC JEQ #74 JSR FORCED JA .+4 JA LOC JNE #74 JSR BITSET JA .+6 JA LOC JA #LIT+11 JNE #74 FLDA #LIT+3 FSTA I #G0047, FLDA I ATX 7 FLDA ODLOC-0003,7 FSUB NEWLOC JNE #73 FLDA DSEEN-0003,7 JEQ #73 FLDA LOC FSTA NEWLOC JSR RSPEAK JA .+4 JA #LIT+6 JA #74 #73, FLDA I FADD #LIT+3 FSTA I FSUB #LIT+17 JLE #G0047 #74, FLDA NEWLOC FSTA LOC JEQ #2000 JSR FORCED JA .+4 JA LOC JNE #2000 JSR BITSET JA .+6 JA NEWLOC JA #LIT+11 JNE #2000 FLDA KDFLAG JNE #6000 FLDA LOC FSUB #LIT+52 JLT #2000 FLDA #LIT+3 FSTA KDFLAG JA #2000 / #6000, FLDA KDFLAG FSUB #LIT+3 JNE #6010 FLDA LOC FSUB #LIT+52 JLT #2000 JSR PCT JA .+4 JA #LIT+223 JNE #2000 FLDA #LIT+6 FSTA KDFLAG FLDA #LIT+3 FSTA I #G0051, JSR RND JA .+4 JA #LIT+17 FADD #LIT+3 FSTA J #6001, JSR PCT JA .+4 JA #LIT+143 JEQ .+10 FLDA J ATX 7 FLDA #LIT FSTA DLOC-0003,7 FLDA I / FADD #LIT+3 FSTA I FSUB #LIT+6 JLE #G0051 FLDA #LIT+3 FSTA I #G0053, FLDA I ATX 7 FLDA DLOC-0003,7 FSUB LOC JNE #6002 FLDA LCDALT FSTA DLOC-0003,7 #6002, FLDA I ATX 7 FLDA DLOC-0003,7 FSTA ODLOC-0003,7 FLDA I FADD #LIT+3 FSTA I FSUB #LIT+17 JLE #G0053 JSR RSPEAK JA .+4 JA #LIT+11 JSR DROP JA #2000 JA IAXE JA LOC #6010, FLDA #LIT FSTA DTOTAL FSTA ATTACK FSTA STICK FLDA #LIT+3 FSTA I #G0055, FLDA I ATX 7 FLDA DLOC-0003,7 JEQ #6030 FLDA #LIT+3 FSTA J FLDA DLOC-0003,7 FSTA KK ATX 7 FLDA KEY-0003,7 FSTA KK JEQ #6016 #6012, JSR TRVLOC JA .+4 JA KK FSTA NEWLOC FSUB #LIT+325 JGT #6014 FLDA NEWLOC FSUB #LIT+52 JLT #6014 FLDA I ATX 7 FLDA NEWLOC FSUB ODLOC-0003,7 JEQ #6014 FLDA J FSUB #LIT+3 JLE .+11 ATX 6 FLDA NEWLOC FSUB TK-0003,6 JEQ #6014 FLDA J FSUB #LIT+66 JGE #6014 FLDA NEWLOC FLDA I ATX 7 FSUB DLOC-0003,7 JEQ #6014 JSR FORCED JA .+4 JA NEWLOC JNE #6014 FLDA I FSUB #LIT+22 JNE .+14 JSR BITSET JA .+6 JA NEWLOC JA #LIT+11 JNE #6014 JSR TRVCON JA .+4 JA KK FSUB #LIT+231 JEQ #6014 FLDA J ATX 7 FLDA NEWLOC FSTA TK-0003,7 FLDA J FADD #LIT+3 FSTA J #6014, FLDA KK FADD #LIT+3 FSTA KK FSUB #LIT+3 ATX 7 FLDA TRAVEL-0003,7 JGE #6012 #6016, FLDA J ATX 6 FLDA I ATX 7 FLDA ODLOC-0003,7 FSTA TK-0003,6 FLDA J FSUB #LIT+6 JLT .+7 FLDA J FSUB #LIT+3 FSTA J JSR RND / JA .+4 JA J FADD #LIT+3 FSTA J FLDA DLOC-0003,7 FSTA ODLOC-0003,7 FLDA J ATX 6 FLDA TK-0003,6 FSTA DLOC-0003,7 FLDA LOC FSUB #LIT+52 JLT .+6 FLDA DSEEN-3,7 JNE .+21 FLDA DLOC-0003,7 FSUB LOC JEQ .+13 FLDA ODLOC-0003,7 FSUB LOC JEQ .+5 FLDA #LIT JA .+3 FLDA #LIT+3 FSTA DSEEN-3,7 JEQ #6030 FLDA LOC FSTA DLOC-0003,7 FLDA I FSUB #LIT+22 JNE #6027 FLDA LOC FSUB ICHLC JEQ #6030 FLDA ICHEST ATX 7 FLDA PROP-0003,7 JGE #6030 FLDA #LIT FSTA K FLDA #LIT+143 FSTA J FLDA MAXTRS FSTA #DOTMP #G0057, FLDA J FSUB IPYRAM JNE .+13 FLDA IPYRAM ATX 7 FLDA LOC FSUB PLAC-0003,7 JEQ #6020 FLDA IEMRLD ATX 6 FLDA LOC FSUB PLAC-0003,6 JEQ #6020 JSR TOTING JA .+4 JA J JNE #6022 #6020, JSR HERE JA .+4 JA J JEQ .+5 FLDA #LIT+3 FSTA K FLDA J / FADD #LIT+3 FSTA J FSUB #DOTMP JLE #G0057 FLDA KTALY2 FADD #LIT+3 FSUB KTALY JNE #M4 FLDA K JNE #M4 FLDA ICHEST ATX 7 FLDA IPLACE-0003,7 JNE #M4 JSR HERE JA .+4 JA LAMP JEQ #M4 FLDA LAMP ATX 6 FLDA PROP-0003,6 FSUB #LIT+3 JEQ #6025 #M4, FLDA #LIT+22 ATX 7 FLDA ODLOC-0003,7 FSUB DLOC-0003,7 JEQ #6030 JSR PCT JA .+4 JA #LIT+66 JEQ #6030 JSR RSPEAK JA #6030 JA #LIT+256 #6022, JSR RSPEAK JA .+4 JA #LIT+261 FLDA MESSAG ATX 7 FLDA IPLACE-0003,7 JNE .+12 JSR MOVE JA .+6 JA ICHEST JA ICHLC JSR MOVE / JA .+6 JA MESSAG JA ICHLC2 FLDA #LIT+143 FSTA J FLDA MAXTRS FSTA #DOTMP+3 #G0063, FLDA J FSUB IPYRAM JNE .+13 FLDA IPYRAM ATX 7 FLDA LOC FSUB PLAC-0003,7 JEQ #6023 FLDA IEMRLD / ATX 6 FLDA LOC FSUB PLAC-0003,6 JEQ #6023 JSR AT JA .+4 JA J JEQ .+21 FLDA J ATX 7 FLDA FIXED-0003,7 JNE .+12 JSR CARRY JA .+6 JA J JA LOC JSR TOTING / JA .+4 JA J JEQ #6023 JSR DROP JA .+6 JA J JA ICHLC #6023, FLDA J FADD #LIT+3 FSTA J FSUB #DOTMP+3 JLE #G0063 #6024, FLDA #LIT+22 ATX 7 FLDA ICHLC FSTA DLOC-0003,7 FSTA ODLOC-0003,7 FLDA #LIT FSTA DSEEN-0003,7 JA #6030 #6025, JSR RSPEAK JA .+4 JA #LIT+314 JSR MOVE JA .+6 JA ICHEST JA ICHLC JSR MOVE JA #6024 JA MESSAG JA ICHLC2 #6027, FLDA DTOTAL FADD #LIT+3 FSTA DTOTAL FLDA I ATX 7 FLDA ODLOC-0003,7 FSUB DLOC-0003,7 JNE #6030 FLDA ATTACK FADD #LIT+3 FSTA ATTACK FLDA KNFLOC JLT .+6 FLDA LOC FSTA KNFLOC JSR RND / JA .+4 JA #LIT+341 FSTA #TMPX+25 FLDA KDFLAG FSUB #LIT+6 FMUL #LIT+223 FSUB #TMPX+25 JLT #6030 FLDA STICK FADD #LIT+3 FSTA STICK #6030, FLDA I FADD #LIT+3 FSTA I FSUB #LIT+22 JLE #G0055 FLDA DTOTAL JEQ #2000 FSUB #LIT+3 JEQ #75 TRAP3 #WRITO JA #LIT+14 JA #67+2 FLDA DTOTAL TRAP3 #RSVO TRAP3 #RENDO #67, JA #77 5057 4740 2410 0522 0540 0122 0540 4754 1161 5447 4024 1022 0501 2405 1611 1607 4014 1124 2414 0540 0427 0122 2605 2340 1116 4024 1005 4740 4054 4740 2217 1715 4027 1124 1040 3117 2556 4751 #75, JSR RSPEAK JA .+4 JA #LIT+14 #77, FLDA ATTACK JEQ #2000 FLDA KDFLAG FSUB #LIT+6 JNE .+5 FLDA #LIT+11 FSTA KDFLAG FLDA ATTACK / FSUB #LIT+3 JEQ #79 TRAP3 #WRITO JA #LIT+14 JA #78+2 FLDA ATTACK TRAP3 #RSVO TRAP3 #RENDO #78, JA .+27 5057 4740 4754 1161 5447 4017 0640 2410 0515 4024 1022 1727 4013 1611 2605 2340 0124 4031 1725 4147 5100 FLDA #LIT+22 FSTA K #82, FLDA STICK FSUB #LIT+3 JGT #83 FLDA K FADD STICK FSTA #TMPX+25 JSR RSPEAK JA .+4 JA #TMPX+25 FLDA STICK JEQ #2000 JA #84 #83, TRAP3 #WRITO JA #LIT+14 JA #68+2 FLDA STICK TRAP3 #RSVO TRAP3 #RENDO #68, JA .+21 5057 4740 4754 1161 5447 4017 0640 2410 0515 4007 0524 4031 1725 4147 5100 #84, FLDA LOC FSTA IOLDL2 JA #99 #79, JSR RSPEAK JA .+4 JA #LIT+17 FLDA #LIT+146 FSTA K JA #82 #2000, FLDA LOC JEQ #99 FLDA LOC ATX 7 FLDA STEXT-0003,7 FSTA KK FLDA #LIT FSTA KENT FLDA IABNUM JEQ .+26 FLDA LOC ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+406 FSTA .+7 STARTF JSR MOD JA .+6 JA . / JA IABNUM FSTA KENT FLDA KENT / JEQ .+6 FLDA KK JNE .+11 FLDA LOC ATX 7 FLDA LTEXT-0003,7 FSTA KK JSR FORCED / JA .+4 JA LOC JNE #2001 JSR DARK JA .+4 JA #LIT JEQ #2001 FLDA WZDARK JEQ .+12 JSR PCT JA .+4 JA #LIT+124 JNE #90 FLDA #LIT+55 ATX 7 FLDA IRTEXT-0003,7 FSTA KK #2001, JSR TOTING JA .+4 JA IBEAR JEQ .+10 JSR RSPEAK JA .+4 JA #LIT+275 JSR SPEAK / JA .+4 JA KK FLDA #LIT+3 FSTA K JSR FORCED JA .+4 JA LOC JNE #8 FLDA LOC FSUB #LIT+121 JNE .+24 JSR PCT JA .+4 JA #LIT+102 JEQ .+14 FLDA CLOSNG JNE .+10 JSR RSPEAK JA .+4 JA #LIT+30 JSR DARK / JA .+4 JA #LIT JNE #2012 FLDA LOC ATX 7 FLDA IABB-0003,7 FADD #LIT+3 FSTA IABB-0003,7 FLDA IATLOC-0003,7 FSTA I #2004, FLDA I JEQ #2012 FSTA IOBJ FSUB #LIT+231 JLE .+7 FLDA IOBJ FSUB #LIT+231 FSTA IOBJ FSUB ISTEPS JNE .+12 JSR TOTING JA .+4 JA NUGGET JNE #2008 FLDA IOBJ ATX 7 FLDA PROP-0003,7 JGE #2006 FLDA CLOSED JNE #2008 FLDA #LIT FSTA PROP-0003,7 FLDA IOBJ FSUB IRUG JEQ .+10 FLDA IOBJ FSUB ICHAIN JNE .+5 FLDA #LIT+3 FSTA PROP-0003,7 FLDA KTALY / FSUB #LIT+3 FSTA KTALY FSUB KTALY2 JNE #2006 FLDA KTALY JEQ #2006 JSR MIN0 JA .+6 JA #LIT+124 JA LIMIT FSTA LIMIT #2006, FLDA IOBJ ATX 7 FLDA PROP-0003,7 FSTA KK FLDA IOBJ FSUB ISTEPS JNE .+16 FLDA ISTEPS ATX 7 FLDA LOC FSUB FIXED-0003,7 JNE .+5 FLDA #LIT+3 FSTA KK JSR PSPEAK / JA .+6 JA IOBJ JA KK #2008, FLDA I ATX 7 FLDA LINK-0003,7 FSTA I JA #2004 #2009, FLDA #LIT+151 FSTA K #2010, FLDA K FSTA SPK #2011, JSR RSPEAK JA .+4 JA SPK #2012, FLDA #LIT FSTA IVERB FSTA IOBJ #2600, FLDA #LIT+14 FSTA IHINT FLDA MAXHNT FSTA #DOTMP+6 #G0102, FLDA IHINT ATX 7 FLDA HINTED-0003,7 JNE #2602 JSR BITSET JA .+6 JA LOC JA IHINT JNE .+6 FLDA MINUS1 FSTA HINTLC-0003,7 FLDA HINTLC-0003,7 FADD #LIT+3 FSTA HINTLC-0003,7 FLDA #LIT+66 FADD IHINT ATX 6 FLDA HINTLC-0003,7 FSUB HINTS-0077,6 JGE #40000 #2602, FLDA IHINT FADD #LIT+3 FSTA IHINT FSUB #DOTMP+6 JLE #G0102 FLDA CLOSED JEQ #2605 FLDA IOYSTR ATX 7 FLDA PROP-0003,7 JGE .+22 JSR TOTING JA .+4 JA IOYSTR JEQ .+12 JSR PSPEAK JA .+6 JA IOYSTR JA #LIT+3 FLDA #LIT+3 / FSTA I #2604, JSR TOTING JA .+4 JA I JEQ .+17 FLDA I ATX 7 FLDA PROP-0003,7 JGE .+10 FLDA MINUS1 FSUB PROP-0003,7 FSTA PROP-0003,7 FLDA I FADD #LIT+3 FSTA I FSUB #LIT+231 JLE #2604 / #2605, JSR DARK JA .+4 JA #LIT FSTA WZDARK FLDA KNFLOC JLE .+11 FSUB LOC JEQ .+5 FLDA #LIT FSTA KNFLOC JSR RND / JA .+4 JA #LIT+3 JSR GETIN JA .+12 JA WD1 JA WD1X JA WD2 JA WD2X #2608, FLDA IFOOBR FNEG FSTA #TMPX+25 JSR MIN0 JA .+6 JA #LIT JA #TMPX+25 FSTA IFOOBR FLDA ITURNS FADD #LIT+3 FSTA ITURNS FLDA KTALY JNE .+21 FLDA LOC FSUB #LIT+52 JLT .+14 FLDA LOC FSUB #LIT+121 JEQ .+7 FLDA ICLOK1 FSUB #LIT+3 FSTA ICLOK1 FLDA ICLOK1 / JEQ #10000 JGE .+7 FLDA ICLOK2 FSUB #LIT+3 FSTA ICLOK2 FLDA ICLOK2 JEQ #11000 FLDA LAMP ATX 7 FLDA PROP-0003,7 FSUB #LIT+3 JNE .+5 FLDA LIMIT FSUB #LIT+3 FSTA LIMIT FLDA LIMIT / FSUB #LIT+116 JGT .+31 JSR HERE JA .+4 JA IBATER JEQ .+21 FLDA IBATER ATX 7 FLDA PROP-0003,7 JNE .+12 JSR HERE JA .+4 JA LAMP JNE #12000 FLDA LIMIT JEQ #12400 FLDA LIMIT JGE .+7 FLDA LOC FSUB #LIT+30 JLE #12600 FLDA LIMIT FSUB #LIT+116 JLE #12200 #19999, FLDA #LIT+140 FSTA K JSR LIQLOC JA .+4 JA LOC FSUB IWATER JNE .+5 FLDA #LIT+201 FSTA K JSR VOCAB JA .+6 JA WD1 JA MINUS1 FSTA I JSR VOCAB JA .+6 JA WD2 JA MINUS1 FSTA J FLDA WD1 FSUB #LIT+462 JNE #2609 FLDA IWATER FADD #LIT+341 FSUB J JEQ #2010 FLDA J FSUB ISTREM JEQ #2010 FLDA WD2 JNE #2800 #2609, FLDA IWATER FADD #LIT+341 FSUB I JEQ .+11 FLDA IOIL FADD #LIT+341 FSUB I JNE #2610 FLDA IPLANT FADD #LIT+341 FSUB J JEQ .+11 FLDA IDOOR FADD #LIT+341 FSUB J JNE #2610 FLDA #LIT+465 FSTA WD2 #2610, FLDA WD1 FSUB #LIT+470 JNE #2630 JSR PCT JA .+4 JA #LIT+36 JEQ #2630 JSR RSPEAK JA .+4 JA #LIT+60 #2630, JSR VOCAB JA .+6 JA WD1 JA MINUS1 FSTA I FADD #LIT+3 JEQ #3000 JSR MOD JA .+6 JA I JA #LIT+341 FSTA K FLDA I FDIV #LIT+341 JSA #FIX FADD #LIT+3 FSTA KQ FLDA KQ ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #8 JA #5000 JA #4000 JA #2010 JSR BUG JA .+4 JA #LIT+71 #2800, FLDA WD2 FSTA WD1 FLDA WD2X FSTA WD1X FLDA #LIT FSTA WD2 JA #2610 #3000, FLDA #LIT+165 FSTA SPK JSR PCT JA .+4 JA #LIT+66 JEQ .+4 FLDA #LIT+170 FSTA SPK JSR PCT JA .+4 JA #LIT+66 JEQ .+4 FLDA #LIT+47 FSTA SPK JSR RSPEAK JA .+4 JA SPK JA #2600 #4000, FLDA K FSTA IVERB ATX 7 FLDA ACTSPK-0003,7 FSTA SPK FLDA WD2 JEQ .+10 FLDA IVERB FSUB ISAY JNE #2800 FLDA IVERB FSUB ISAY JNE .+5 FLDA WD2 FSTA IOBJ FLDA IOBJ / FSUB #LIT JNE #4090 #4080, FLDA IVERB ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #8010 JA #8000 JA #8000 JA #8040 JA #2009 JA #8040 JA #9070 JA #9080 JA #8000 JA #8000 JA #2011 JA #9120 JA #9130 JA #8140 JA #9150 JA #8000 JA #8000 JA #8180 JA #8000 JA #8200 JA #8000 JA #9220 JA #9230 JA #8240 JA #8250 JA #8260 JA #8270 JA #8000 JA #8000 JA #8300 JA #8310 JSR BUG JA .+4 JA #LIT+74 #4090, FLDA IVERB ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #9010 JA #9020 JA #9030 JA #9040 JA #2009 JA #9040 JA #9070 JA #9080 JA #9090 JA #2011 JA #2011 JA #9120 JA #9130 JA #9140 JA #9150 JA #9160 JA #9170 JA #2011 JA #9190 JA #9190 JA #9210 JA #9220 JA #9230 JA #2011 JA #2011 JA #2011 JA #9270 JA #9280 JA #9290 JA #2011 JA #2011 JA #2011 JSR BUG JA .+4 JA #LIT+77 #5000, FLDA K FSTA IOBJ FLDA K ATX 7 FLDA FIXED-0003,7 FSUB LOC JEQ #5010 JSR HERE JA .+4 JA K JEQ #5100 #5010, FLDA WD2 JNE #2800 FLDA IVERB JNE #4090 TRAP3 #WRITO JA #LIT+14 JA #5015+2 TRAP3 #RENDO #5015, JA .+26 5047 4027 1001 2440 0417 4031 1725 4027 0116 2440 2417 4004 1740 2711 2410 4024 1005 4047 5444 5100 JSR A5TOA1 JA .+10 JA WD1 JA WD1X JA #LIT+501 TRAP3 #WRITO JA #LIT+14 JA #LINEF+2 TRAP3 #RENDO #LINEF, JA #2600 TEXT +(' ')+ #5100, FLDA K FSUB IGRATE JNE #5110 FLDA LOC FSUB #LIT+3 JEQ .+14 FLDA LOC FSUB #LIT+14 JEQ .+7 FLDA LOC FSUB #LIT+25 JNE .+6 FLDA IDPRSN FSTA K FLDA LOC / FSUB #LIT+33 JLE .+13 FLDA LOC FSUB #LIT+52 JGE .+6 FLDA IENTRC FSTA K FLDA K / FSUB IGRATE JNE #8 #5110, FLDA K FSUB IDWARF JNE #5120 FLDA #LIT+3 FSTA I #G0122, FLDA I ATX 7 FLDA DLOC-0003,7 FSUB LOC JNE #5112 FLDA KDFLAG FSUB #LIT+6 JGE #5010 #5112, FLDA I FADD #LIT+3 FSTA I FSUB #LIT+17 JLE #G0122 #5120, JSR LIQ JA .+4 JA #LIT FSUB K JNE .+12 JSR HERE JA .+4 JA IBOTLE JNE #5010 JSR LIQLOC JA .+4 JA LOC FSUB K JEQ #5010 FLDA IOBJ FSUB IPLANT JNE #5130 JSR AT JA .+4 JA IPLNT2 JEQ #5130 FLDA IPLNT2 ATX 7 FLDA PROP-0003,7 JEQ #5130 FLDA IPLNT2 FSTA IOBJ JA #5010 #5130, FLDA IOBJ FSUB KNIFE JNE #5140 FLDA KNFLOC FSUB LOC JNE #5140 FLDA MINUS1 FSTA KNFLOC FLDA #LIT+250 FSTA SPK JA #2011 #5140, FLDA IOBJ FSUB IROD JNE #5190 JSR HERE JA .+4 JA IROD2 JEQ #5190 FLDA IROD2 FSTA IOBJ JA #5010 #5190, FLDA IVERB FSUB INVENT JEQ .+10 FLDA IVERB FSUB IFIND JNE .+5 FLDA WD2 JEQ #5010 TRAP3 #WRITO JA #LIT+14 JA #5199+2 TRAP3 #RENDO #5199, JA .+16 5047 4011 4004 1716 4747 2440 2305 0540 0116 3140 4754 4451 JSR A5TOA1 JA .+10 JA WD1 JA WD1X JA #LIT+476 TRAP3 #WRITO JA #LIT+14 JA #LINEF+2 TRAP3 #RENDO JA #2012 #8, FLDA LOC ATX 7 FLDA KEY-0003,7 FSTA KK FLDA LOC FSTA NEWLOC FLDA KK JNE .+10 JSR BUG JA .+4 JA #LIT+105 FLDA K / FSUB NULL JEQ #2 FLDA K FSUB IBACK JEQ #20 FLDA K FSUB LOOK JEQ #30 FLDA K FSUB ICAVE JEQ #40 FLDA IOLDLC FSTA IOLDL2 FLDA LOC FSTA IOLDLC #9, FLDA KK ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+455 FSTA .+7 STARTF JSR IABS JA .+4 JA . FSTA LL FSUB #LIT+3 JEQ #10 FLDA LL FSUB K JEQ #10 FLDA KK ATX 7 FLDA TRAVEL-0003,7 JLT #50 FLDA KK FADD #LIT+3 FSTA KK JA #9 #10, JSR TRVCON JA .+4 JA KK FSTA NEWLOC JSR MOD JA .+6 JA NEWLOC JA #LIT+231 FSTA K FLDA NEWLOC FSUB #LIT+325 JLE #13 FLDA K ATX 7 FLDA NEWLOC FDIV #LIT+231 JSA #FIX FSUB #LIT+11 FSUB PROP-0003,7 JNE #16 #12, FLDA KK ATX 7 FLDA TRAVEL-0003,7 JGE .+10 JSR BUG JA .+4 JA #LIT+102 FLDA KK / FADD #LIT+3 FSTA KK JA #10 #13, FLDA NEWLOC FSUB #LIT+231 JLE #14 JSR TOTING JA .+4 JA K JNE #16 FLDA NEWLOC FSUB #LIT+317 JLE #12 JSR AT JA .+4 JA K JNE #16 JA #12 #14, FLDA NEWLOC JEQ #16 JSR PCT JA .+4 JA NEWLOC JEQ #12 #16, JSR TRVLOC JA .+4 JA KK FSTA NEWLOC FSUB #LIT+325 JLE #2 FLDA NEWLOC FSUB #LIT+333 JLE #30000 FLDA NEWLOC FSUB #LIT+333 FSTA #TMPX+25 JSR RSPEAK JA .+4 JA #TMPX+25 FLDA LOC FSTA NEWLOC JA #2 #30000, FLDA NEWLOC FSUB #LIT+325 FSTA NEWLOC FLDA NEWLOC ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #30100 JA #30200 JA #30300 JSR BUG JA .+4 JA #LIT+66 #30100, FLDA #LIT+226 FADD #LIT+231 FSUB LOC FSTA NEWLOC FLDA IHLDNG JEQ #2 FSUB #LIT+3 JNE #M27 JSR TOTING JA .+4 JA IEMRLD JNE #2 #M27, FLDA LOC FSTA NEWLOC JSR RSPEAK JA .+4 JA #LIT+253 JA #2 #30200, JSR DROP JA .+6 JA IEMRLD JA LOC JA #12 #30300, FLDA ITROL ATX 7 FLDA PROP-0003,7 FSUB #LIT+3 JNE #30310 JSR PSPEAK JA .+6 JA ITROL JA #LIT+3 FLDA #LIT FSTA PROP-0003,7 JSR MOVE JA .+6 JA ITROL2 JA #LIT FLDA ITROL2 FADD #LIT+231 FSTA #TMPX+25 JSR MOVE JA .+6 JA #TMPX+25 JA #LIT FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+441 FSTA .+11 STARTF JSR MOVE JA .+6 JA ITROL JA . FLDA ITROL FADD #LIT+231 FSTA #TMPX+25 FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+367 FSTA .+11 STARTF JSR MOVE JA .+6 JA #TMPX+25 JA . JSR JUGGLE JA .+4 JA ICHASM FLDA LOC FSTA NEWLOC JA #2 #30310, FLDA ITROL ATX 7 FLDA PLAC-0003,7 FADD FIXD-0003,7 FSUB LOC FSTA NEWLOC FLDA PROP-0003,7 JNE .+5 FLDA #LIT+3 FSTA PROP-0003,7 JSR TOTING / JA .+4 JA IBEAR JEQ #2 JSR RSPEAK JA .+4 JA #LIT+303 FLDA ICHASM ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 FLDA ITROL ATX 7 FLDA #LIT+6 FSTA PROP-0003,7 JSR DROP JA .+6 JA IBEAR JA NEWLOC FLDA IBEAR ATX 7 FLDA MINUS1 FSTA FIXED-0003,7 FLDA #LIT+11 FSTA PROP-0003,7 FLDA ISPCES ATX 7 FLDA PROP-0003,7 JGE .+7 FLDA KTALY2 FADD #LIT+3 FSTA KTALY2 FLDA NEWLOC / FSTA IOLDL2 JA #99 #20, FLDA IOLDLC FSTA K JSR FORCED JA .+4 JA K JEQ .+5 FLDA IOLDL2 FSTA K FLDA IOLDLC FSTA IOLDL2 FLDA LOC FSTA IOLDLC FLDA #LIT FSTA K2 FLDA K FSUB LOC JNE #21 JSR RSPEAK JA .+4 JA #LIT+215 JA #2 #21, JSR TRVLOC JA .+4 JA KK FSTA LL FSUB K JEQ #25 FLDA LL FSUB #LIT+325 JGT #22 FLDA LL ATX 7 FLDA KEY-0003,7 FSTA J JSR FORCED JA .+4 JA LL JEQ #22 JSR TRVLOC JA .+4 JA KK FSUB K JNE #22 FLDA KK FSTA K2 #22, FLDA KK ATX 7 FLDA TRAVEL-0003,7 JLT #23 FLDA KK FADD #LIT+3 FSTA KK JA #21 #23, FLDA K2 FSTA KK JNE #25 JSR RSPEAK JA .+4 JA #LIT+272 JA #2 #25, FLDA KK ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+455 FSTA .+7 STARTF JSR IABS JA .+4 JA . FSTA K FLDA LOC ATX 7 FLDA KEY-0003,7 FSTA KK JA #9 #30, FLDA IDTAIL FSUB #LIT+11 JGE .+10 JSR RSPEAK JA .+4 JA #LIT+52 FLDA IDTAIL / FADD #LIT+3 FSTA IDTAIL FLDA #LIT FSTA WZDARK FLDA LOC ATX 7 FLDA #LIT FSTA IABB-0003,7 JA #2 #40, FLDA LOC FSUB #LIT+30 JGE .+10 JSR RSPEAK JA #2 JA #LIT+154 JSR RSPEAK JA #2 JA #LIT+157 #50, FLDA #LIT+44 FSTA SPK FLDA K FSUB #LIT+140 JLT .+7 FLDA K FSUB #LIT+143 JLE #M31 FLDA K / FSUB #LIT+113 JEQ #M31 FLDA K FSUB #LIT+116 JEQ #M31 JA #M33 #M31, FLDA #LIT+33 FSTA SPK JA #M32 FLDA K FSUB #LIT+25 JEQ #M34 FLDA K FSUB #LIT+127 JEQ #M34 FLDA K FSUB #LIT+132 JNE #M35 #M34, FLDA #LIT+36 FSTA SPK JA #M32 #M35, FLDA K / FSUB #LIT+41 JEQ #M36 FLDA K FSUB #LIT+63 JNE #M32 #M36, FLDA #LIT+41 FSTA SPK #M32, FLDA IVERB / FSUB INVENT JEQ #M37 FLDA IVERB FSUB IFIND JNE #M38 #M37, FLDA #LIT+162 FSTA SPK #M38, FLDA K / FSUB #LIT+173 JEQ #M39 FLDA K FSUB #LIT+176 JNE #M40 #M39, FLDA #LIT+135 FSTA SPK #M40, FLDA K / FSUB #LIT+60 JNE .+4 FLDA #LIT+204 FSTA SPK #M33, JSR RSPEAK JA .+4 JA SPK JA #2 #90, JSR RSPEAK JA .+4 JA #LIT+74 FLDA LOC FSTA IOLDL2 #99, FLDA CLOSNG JNE #95 FLDA NUMDIE FMUL #LIT+6 FADD #LIT+207 FSTA #TMPX+25 FLDA NUMDIE FMUL #LIT+6 FADD #LIT+212 FSTA #TMPX+30 JSR YES JA .+10 JA #TMPX+25 JA #TMPX+30 JA #LIT+151 FSTA YEA FLDA NUMDIE FADD #LIT+3 FSTA NUMDIE FSUB MAXDIE JEQ #20000 FLDA YEA JEQ #20000 FLDA IWATER ATX 7 FLDA #LIT FSTA IPLACE-0003,7 FLDA IOIL ATX 7 FLDA #LIT FSTA IPLACE-0003,7 JSR TOTING JA .+4 JA LAMP JEQ .+10 FLDA LAMP ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA #LIT+3 / FSTA J #G0150, FLDA #LIT+234 FSUB J FSTA I JSR TOTING JA .+4 JA I JEQ #98 FLDA IOLDL2 FSTA K FLDA I FSUB LAMP JNE .+5 FLDA #LIT+3 FSTA K JSR DROP / JA .+6 JA I JA K #98, FLDA J FADD #LIT+3 FSTA J FSUB #LIT+231 JLE #G0150 FLDA #LIT+11 FSTA LOC FSTA IOLDLC JA #2000 #95, JSR RSPEAK JA .+4 JA #LIT+267 FLDA NUMDIE FADD #LIT+3 FSTA NUMDIE JA #20000 #8000, TRAP3 #WRITO JA #LIT+14 JA #8002+2 TRAP3 #RENDO #8002, JA .+20 5047 4011 4004 1716 4747 2440 2516 0405 2223 2401 1604 4042 4754 4451 JSR A5TOA1 JA .+10 JA WD1 JA WD1X JA #LIT+473 FLDA #LIT FSTA IOBJ TRAP3 #WRITO JA #LIT+14 JA #LINEF+2 TRAP3 #RENDO JA #2600 #8010, FLDA LOC ATX 7 FLDA IATLOC-0003,7 JEQ #8000 ATX 6 FLDA LINK-0003,6 JNE #8000 FLDA #LIT+3 FSTA I #G0152, FLDA I ATX 7 FLDA DLOC-0003,7 FSUB LOC JNE #8012 FLDA KDFLAG FSUB #LIT+6 JGE #8000 #8012, FLDA I FADD #LIT+3 FSTA I FSUB #LIT+17 JLE #G0152 FLDA LOC ATX 7 FLDA IATLOC-0003,7 FSTA IOBJ #9010, JSR TOTING JA .+4 JA IOBJ JNE #2011 FLDA #LIT+102 FSTA SPK FLDA IOBJ FSUB IPLANT JNE .+13 FLDA IPLANT ATX 7 FLDA PROP-0003,7 JGT .+4 FLDA #LIT+245 FSTA SPK FLDA IOBJ / FSUB IBEAR JNE .+14 FLDA IBEAR ATX 7 FLDA PROP-0003,7 FSUB #LIT+3 JNE .+4 FLDA #LIT+306 FSTA SPK FLDA IOBJ / FSUB ICHAIN JNE .+13 FLDA IBEAR ATX 7 FLDA PROP-0003,7 JEQ .+4 FLDA #LIT+311 FSTA SPK FLDA IOBJ / ATX 7 FLDA FIXED-0003,7 JNE #2011 FLDA IOBJ FSUB IWATER JEQ .+10 FLDA IOBJ FSUB IOIL JNE #9017 JSR HERE JA .+4 JA IBOTLE JEQ .+14 JSR LIQ JA .+4 JA #LIT FSUB IOBJ JEQ #9018 FLDA IBOTLE FSTA IOBJ JSR TOTING JA .+4 JA IBOTLE JEQ #M222 FLDA IBOTLE ATX 7 FLDA PROP-0003,7 FSUB #LIT+3 JEQ #9220 #M222, FLDA IBOTLE ATX 7 FLDA PROP-0003,7 FSUB #LIT+3 JEQ .+4 FLDA #LIT+242 FSTA SPK JSR TOTING JA .+4 JA IBOTLE JNE #2011 FLDA #LIT+237 FSTA SPK JA #2011 #9018, FLDA IBOTLE FSTA IOBJ #9017, FLDA IHLDNG FSUB #LIT+25 JLT #9016 JSR RSPEAK JA .+4 JA #LIT+220 JA #2012 #9016, FLDA IOBJ FSUB IBIRD JNE #9014 FLDA IBIRD ATX 7 FLDA PROP-0003,7 JNE #9014 JSR TOTING JA .+4 JA IROD JEQ #9013 JSR RSPEAK JA .+4 JA #LIT+105 JA #2012 #9013, JSR TOTING JA .+4 JA ICAGE JNE #9015 JSR RSPEAK JA .+4 JA #LIT+110 JA #2012 #9015, FLDA IBIRD ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 #9014, FLDA IOBJ FSUB IBIRD JEQ .+10 FLDA IOBJ FSUB ICAGE JNE .+31 FLDA IBIRD ATX 7 FLDA PROP-0003,7 JEQ .+22 FLDA IBIRD FADD ICAGE FSUB IOBJ FSTA #TMPX+25 JSR CARRY JA .+6 JA #TMPX+25 JA LOC JSR CARRY / JA .+6 JA IOBJ JA LOC JSR LIQ JA .+4 JA #LIT FSTA K FLDA IOBJ FSUB IBOTLE JNE #2009 FLDA K JEQ #2009 ATX 7 FLDA MINUS1 FSTA IPLACE-0003,7 JA #2009 #9020, JSR TOTING JA .+4 JA IROD2 JEQ .+24 FLDA IOBJ FSUB IROD JNE .+16 JSR TOTING JA .+4 JA IROD JNE .+6 FLDA IROD2 FSTA IOBJ JSR TOTING / JA .+4 JA IOBJ JEQ #2011 FLDA IOBJ FSUB IBIRD JNE #9024 JSR HERE JA .+4 JA ISNAKE JEQ #9024 JSR RSPEAK JA .+4 JA #LIT+116 FLDA CLOSED JNE #19000 JSR DSTROY JA .+4 JA ISNAKE FLDA ISNAKE ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 #9021, JSR LIQ JA .+4 JA #LIT FSTA K FSUB IOBJ JNE .+6 FLDA IBOTLE FSTA IOBJ FLDA IOBJ / FSUB IBOTLE JNE .+12 FLDA K JEQ .+6 ATX 7 FLDA #LIT FSTA IPLACE-0003,7 FLDA IOBJ / FSUB ICAGE JNE .+21 FLDA IBIRD ATX 7 FLDA PROP-0003,7 JEQ .+12 JSR DROP JA .+6 JA IBIRD JA LOC FLDA IOBJ / FSUB IBIRD JNE .+10 FLDA IBIRD ATX 7 FLDA #LIT FSTA PROP-0003,7 JSR DROP JA #2012 JA IOBJ JA LOC #9024, FLDA IOBJ FSUB ICOINS JNE #9025 JSR HERE JA .+4 JA IVEND JEQ #9025 JSR DSTROY JA .+4 JA ICOINS JSR DROP JA .+6 JA IBATER JA LOC JSR PSPEAK JA .+6 JA IBATER JA #LIT JA #2012
/START PART 2 #9025, FLDA IOBJ FSUB IBIRD JNE #9026 JSR AT JA .+4 JA IDRAGN JEQ #9026 FLDA IDRAGN ATX 7 FLDA PROP-0003,7 JNE #9026 JSR RSPEAK JA .+4 JA #LIT1 JSR DSTROY JA .+4 JA IBIRD FLDA IBIRD ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA ISNAKE ATX 7 FLDA IPLACE-0003,7 FSUB PLAC-0003,7 JNE #2012 FLDA KTALY2 FADD #LIT+3 FSTA KTALY2 JA #2012 / #9026, FLDA IOBJ FSUB IBEAR JNE #9027 JSR AT JA .+4 JA ITROL JEQ #9027 JSR RSPEAK JA .+4 JA #LIT1+3 JSR MOVE JA .+6 JA ITROL JA #LIT FLDA ITROL FADD #LIT+231 FSTA #TMPX+25 JSR MOVE JA .+6 JA #TMPX+25 JA #LIT FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+441 FSTA .+11 STARTF JSR MOVE JA .+6 JA ITROL2 JA . FLDA ITROL2 FADD #LIT+231 FSTA #TMPX+25 FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+367 FSTA .+11 STARTF JSR MOVE JA .+6 JA #TMPX+25 JA . JSR JUGGLE JA .+4 JA ICHASM FLDA ITROL ATX 7 FLDA #LIT+6 FSTA PROP-0003,7 JA #9021 #9027, FLDA IOBJ FSUB IVASE JNE .+13 FLDA IPILOW ATX 7 FLDA LOC FSUB PLAC-0003,7 JNE #9028 JSR RSPEAK JA .+4 JA #LIT+151 JA #9021 #9028, FLDA IVASE ATX 7 FLDA #LIT+6 FSTA PROP-0003,7 JSR AT JA .+4 JA IPILOW JEQ .+10 FLDA IVASE ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA IVASE / ATX 7 FLDA PROP-0003,7 FADD #LIT+3 FSTA #TMPX+25 JSR PSPEAK JA .+6 JA IVASE JA #TMPX+25 FLDA IVASE ATX 7 FLDA PROP-0003,7 JEQ #9021 FLDA MINUS1 FSTA FIXED-0003,7 JA #9021 #9030, FLDA WD2 JEQ #9031 FLDA WD2 FSTA WD1 FLDA WD2X FSTA WD1X #9031, JSR VOCAB JA .+6 JA WD1 JA MINUS1 FSTA I FSUB #LIT+173 JEQ #9035 FLDA I FSUB #LIT+176 JEQ #9035 FLDA I FSUB #LIT1+6 JEQ #9035 FLDA I FSUB #LIT1+11 JEQ #9035 TRAP3 #WRITO JA #LIT+14 JA #9032+2 TRAP3 #RENDO #9032, JA .+11 5047 4017 1301 3154 4042 4754 4451 JSR A5TOA1 JA .+10 JA WD1 JA WD1X JA #LIT1+413 TRAP3 #WRITO JA #LIT+14 JA #LINEF+2 TRAP3 #WRITO JA #2012 #9035, FLDA #LIT FSTA WD2 FSTA IOBJ JA #2630 #8040, FLDA #LIT1+14 FSTA SPK JSR HERE JA .+4 JA ICLAM JEQ .+6 FLDA ICLAM FSTA IOBJ JSR HERE / JA .+4 JA IOYSTR JEQ .+6 FLDA IOYSTR FSTA IOBJ JSR AT / JA .+4 JA IDOOR JEQ .+6 FLDA IDOOR FSTA IOBJ JSR AT / JA .+4 JA IGRATE JEQ .+6 FLDA IGRATE FSTA IOBJ FLDA IOBJ / JEQ .+12 JSR HERE JA .+4 JA ICHAIN JNE #8000 JSR HERE JA .+4 JA ICHAIN JEQ .+6 FLDA ICHAIN FSTA IOBJ FLDA IOBJ / JEQ #2011 #9040, FLDA IOBJ FSUB ICLAM JEQ #9046 FLDA IOBJ FSUB IOYSTR JEQ #9046 FLDA IOBJ FSUB IDOOR JNE .+5 FLDA #LIT1+17 FSTA SPK FLDA IOBJ / FSUB IDOOR JNE .+14 FLDA IDOOR ATX 7 FLDA PROP-0003,7 FSUB #LIT+3 JEQ .+4 FLDA #LIT+165 FSTA SPK FLDA IOBJ / FSUB ICAGE JNE .+5 FLDA #LIT1+22 FSTA SPK FLDA IOBJ / FSUB KEYS JNE .+5 FLDA #LIT1+25 FSTA SPK FLDA IOBJ / FSUB IGRATE JEQ .+10 FLDA IOBJ FSUB ICHAIN JNE .+5 FLDA #LIT1+30 FSTA SPK FLDA SPK / FSUB #LIT1+30 JNE #2011 JSR HERE JA .+4 JA KEYS JEQ #2011 FLDA IOBJ FSUB ICHAIN JEQ #9048 FLDA CLOSNG JEQ #9043 FLDA #LIT+264 FSTA K FLDA PANIC JNE .+5 FLDA #LIT+52 FSTA ICLOK2 FLDA #LIT+3 / FSTA PANIC JA #2010 #9043, FLDA IGRATE ATX 7 FLDA #LIT1+33 FADD PROP-0003,7 FSTA K FLDA IGRATE ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 FLDA IVERB FSUB LOCK JNE .+10 FLDA IGRATE ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA IGRATE / ATX 7 FLDA #LIT+6 FMUL PROP-0003,7 FADD K FSTA K JA #2010 #9046, FLDA #LIT FSTA K FLDA IOBJ FSUB IOYSTR JNE .+5 FLDA #LIT+3 FSTA K FLDA #LIT1+36 FADD K FSTA SPK JSR TOTING JA .+4 JA IOBJ JEQ .+7 FLDA #LIT1+41 FADD K FSTA SPK JSR TOTING / JA .+4 JA ITRDNT JNE .+7 FLDA #LIT1+44 FADD K FSTA SPK FLDA IVERB / FSUB LOCK JNE .+4 FLDA #LIT+170 FSTA SPK FLDA SPK / FSUB #LIT1+36 JNE #2011 JSR DSTROY JA .+4 JA ICLAM JSR DROP JA .+6 JA IOYSTR JA LOC JSR DROP JA .+6 JA IPEARL JA #LIT+242 JA #2011 #9048, FLDA IVERB FSUB LOCK JEQ #9049 FLDA #LIT1+47 FSTA SPK FLDA IBEAR ATX 7 FLDA PROP-0003,7 JNE .+5 FLDA #LIT1+52 FSTA SPK FLDA ICHAIN / ATX 7 FLDA PROP-0003,7 JNE .+4 FLDA #LIT+132 FSTA SPK FLDA SPK FSUB #LIT1+47 JNE #2011 FLDA #LIT FSTA PROP-0003,7 FSTA FIXED-0003,7 FLDA IBEAR ATX 7 FLDA PROP-0003,7 FSUB #LIT+11 JEQ .+5 FLDA #LIT+6 FSTA PROP-0003,7 FLDA #LIT+6 FSUB PROP-0003,7 FSTA FIXED-0003,7 JA #2011 #9049, FLDA #LIT1+55 FSTA SPK FLDA ICHAIN ATX 7 FLDA PROP-0003,7 JEQ .+5 FLDA #LIT1+33 FSTA SPK FLDA LOC FSUB PLAC-0003,7 JEQ .+5 FLDA #LIT1+60 FSTA SPK FLDA SPK / FSUB #LIT1+55 JNE #2011 FLDA #LIT+6 FSTA PROP-0003,7 JSR TOTING JA .+4 JA ICHAIN JEQ .+12 JSR DROP JA .+6 JA ICHAIN JA LOC FLDA MINUS1 FSTA FIXED-0003,7 JA #2011 #9070, JSR HERE JA .+4 JA LAMP JEQ #2011 FLDA #LIT1+63 FSTA SPK FLDA LIMIT JLT #2011 FLDA LAMP ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 JSR RSPEAK JA .+4 JA #LIT1+66 FLDA WZDARK JNE #2000 JA #2012 #9080, JSR HERE JA .+4 JA LAMP JEQ #2011 FLDA LAMP ATX 7 FLDA #LIT FSTA PROP-0003,7 JSR RSPEAK JA .+4 JA #LIT1+71 JSR DARK JA .+4 JA #LIT JEQ #2012 JSR RSPEAK JA .+4 JA #LIT+55 JA #2012 #9090, JSR TOTING JA .+4 JA IOBJ JNE .+22 FLDA IOBJ FSUB IROD JNE .+12 JSR TOTING JA .+4 JA IROD2 JNE .+4 FLDA #LIT+132 FSTA SPK FLDA IOBJ / FSUB IROD JNE #2011 JSR AT JA .+4 JA IFISUR JEQ #2011 JSR TOTING JA .+4 JA IOBJ JEQ #2011 FLDA CLOSNG JNE #2011 FLDA IFISUR ATX 7 FLDA #LIT+3 FSUB PROP-0003,7 FSTA PROP-0003,7 FLDA IFISUR ATX 7 FLDA #LIT+6 FSUB PROP-0003,7 FSTA #TMPX+25 JSR PSPEAK JA .+6 JA IFISUR JA #TMPX+25 JA #2012 #9120, FLDA #LIT+3 FSTA I #H0102, FLDA I ATX 7 FLDA DLOC-0003,7 FSUB LOC JNE #9121 FLDA KDFLAG FSUB #LIT+6 JGE #9122 #9121, FLDA I FADD #LIT+3 FSTA I FSUB #LIT+17 JLE #H0102 FLDA #LIT FSTA I #9122, FLDA IOBJ JNE #9124 FLDA I JEQ .+6 FLDA IDWARF FSTA IOBJ JSR HERE / JA .+4 JA ISNAKE JEQ .+11 FLDA IOBJ FMUL #LIT+231 FADD ISNAKE FSTA IOBJ JSR AT / JA .+4 JA IDRAGN JEQ .+20 FLDA IDRAGN ATX 7 FLDA PROP-0003,7 JNE .+11 FLDA IOBJ FMUL #LIT+231 FADD IDRAGN FSTA IOBJ JSR AT / JA .+4 JA ITROL JEQ .+11 FLDA IOBJ FMUL #LIT+231 FADD ITROL FSTA IOBJ JSR HERE / JA .+4 JA IBEAR JEQ .+20 FLDA IBEAR ATX 7 FLDA PROP-0003,7 JNE .+11 FLDA IOBJ FMUL #LIT+231 FADD IBEAR FSTA IOBJ FLDA IOBJ / FSUB #LIT+231 JGT #8000 FLDA IOBJ JNE #9124 JSR HERE JA .+4 JA IBIRD JEQ .+14 FLDA IVERB FSUB ITHROW JNE .+6 FLDA IBIRD FSTA IOBJ JSR HERE / JA .+4 JA ICLAM JNE .+12 JSR HERE JA .+4 JA IOYSTR JEQ .+11 FLDA #LIT+231 FMUL IOBJ FADD ICLAM FSTA IOBJ FLDA IOBJ / FSUB #LIT+231 JGT #8000 #9124, FLDA IOBJ FSUB IBIRD JNE #9125 FLDA #LIT1+74 FSTA SPK FLDA CLOSED JNE #2011 JSR DSTROY JA .+4 JA IBIRD FLDA IBIRD ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA ISNAKE ATX 7 FLDA IPLACE-0003,7 FSUB PLAC-0003,7 JNE .+7 FLDA KTALY2 FADD #LIT+3 FSTA KTALY2 FLDA #LIT1+77 FSTA SPK #9125, FLDA IOBJ JNE .+5 FLDA #LIT1+102 FSTA SPK FLDA IOBJ / FSUB ICLAM JEQ .+10 FLDA IOBJ FSUB IOYSTR JNE .+5 FLDA #LIT1+421 FSTA SPK FLDA IOBJ / FSUB ISNAKE JNE .+5 FLDA #LIT1+105 FSTA SPK FLDA IOBJ / FSUB IDWARF JNE .+5 FLDA #LIT1+110 FSTA SPK FLDA IOBJ / FSUB IDWARF JNE .+6 FLDA CLOSED JNE #19000 FLDA IOBJ FSUB IDRAGN JNE .+5 FLDA #LIT1+113 FSTA SPK FLDA IOBJ / FSUB ITROL JNE .+5 FLDA #LIT1+116 FSTA SPK FLDA IOBJ / FSUB IBEAR JNE .+16 FLDA IBEAR ATX 7 FLDA PROP-0003,7 FADD #LIT+3 FDIV #LIT+6 JSA #FIX FADD #LIT1+121 FSTA SPK FLDA IOBJ / FSUB IDRAGN JNE #2011 FLDA IDRAGN ATX 7 FLDA PROP-0003,7 JNE #2011 JSR RSPEAK JA .+4 JA #LIT1+110 FLDA #LIT FSTA IVERB FSTA IOBJ JSR GETIN JA .+12 JA WD1 JA WD1X JA WD2 JA WD2X FLDA WD1 FSUB #LIT1+124 JEQ #M74 FLDA WD1 FSUB #LIT1+127 JNE #2608 #M74, JSR PSPEAK JA .+6 JA IDRAGN JA #LIT+3 FLDA IDRAGN ATX 7 FLDA #LIT+6 FSTA PROP-0003,7 FLDA IRUG ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA IDRAGN ATX 7 FLDA PLAC-0003,7 FADD FIXD-0003,7 FDIV #LIT+6 JSA #FIX FSTA K FLDA IDRAGN FADD #LIT+231 FSTA #TMPX+25 JSR MOVE JA .+6 JA #TMPX+25 JA MINUS1 FLDA IRUG FADD #LIT+231 FSTA #TMPX+25 JSR MOVE JA .+6 JA #TMPX+25 JA #LIT JSR MOVE JA .+6 JA IDRAGN JA K JSR MOVE JA .+6 JA IRUG JA K FLDA #LIT+3 FSTA IOBJ #H0122, FLDA IOBJ ATX 7 FLDA IDRAGN ATX 6 FLDA IPLACE-0003,7 FSUB PLAC-0003,6 JEQ .+10 FLDA IPLACE-0003,7 FSUB FIXD-0003,6 JNE #9126 JSR MOVE JA .+6 JA IOBJ JA K #9126, FLDA IOBJ FADD #LIT+3 FSTA IOBJ FSUB #LIT+231 JLE #H0122 FLDA K FSTA LOC FLDA NULL FSTA K JA #8 #9130, FLDA IOBJ FSUB IBOTLE JEQ .+6 FLDA IOBJ JNE .+12 JSR LIQ JA .+4 JA #LIT FSTA IOBJ FLDA IOBJ / JEQ #8000 JSR TOTING JA .+4 JA IOBJ JEQ #2011 FLDA #LIT1+132 FSTA SPK FLDA IOBJ FSUB IOIL JEQ .+10 FLDA IOBJ FSUB IWATER JNE #2011 FLDA IBOTLE ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 FLDA IOBJ ATX 7 FLDA #LIT FSTA IPLACE-0003,7 FLDA #LIT1+135 FSTA SPK JSR AT JA .+4 JA IPLANT JNE .+12 JSR AT JA .+4 JA IDOOR JEQ #2011 JSR AT JA .+4 JA IDOOR JNE #9132 FLDA #LIT1+140 FSTA SPK FLDA IOBJ FSUB IWATER JNE #2011 FLDA IPLANT ATX 7 FLDA PROP-0003,7 FADD #LIT+3 FSTA #TMPX+25 JSR PSPEAK JA .+6 JA IPLANT JA #TMPX+25 FLDA IPLANT ATX 7 FLDA PROP-0003,7 FADD #LIT+6 FSTA #TMPX+25 JSR MOD JA .+6 JA #TMPX+25 JA #LIT+22 FSTA PROP-0003,7 FLDA IPLNT2 ATX 7 FLDA IPLANT ATX 6 FLDA PROP-0003,6 FDIV #LIT+6 JSA #FIX FSTA PROP-0003,7 FLDA NULL FSTA K JA #8 #9132, FLDA IDOOR ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA IOBJ FSUB IOIL JNE .+10 FLDA IDOOR ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 FLDA IDOOR / ATX 7 FLDA #LIT1+143 FADD PROP-0003,7 FSTA SPK JA #2011 #8140, JSR HERE JA .+4 JA IFOOD JEQ #8000 #8142, JSR DSTROY JA .+4 JA IFOOD FLDA #LIT1+146 FSTA SPK JA #2011 #9140, FLDA IOBJ FSUB IFOOD JEQ #8142 FLDA IOBJ FSUB IBIRD JEQ #M78 FLDA IOBJ FSUB ISNAKE JEQ #M78 FLDA IOBJ FSUB ICLAM JEQ #M78 FLDA IOBJ FSUB IOYSTR JEQ #M78 FLDA IOBJ FSUB IDWARF JEQ #M78 FLDA IOBJ FSUB IDRAGN JEQ #M78 FLDA IOBJ FSUB ITROL JEQ #M78 FLDA IOBJ FSUB IBEAR JNE #2011 #M78, FLDA #LIT1+6 FSTA SPK JA #2011 #9150, FLDA IOBJ JNE #M79 JSR LIQLOC JA .+4 JA LOC FSUB IWATER JEQ #M79 JSR LIQ JA .+4 JA #LIT FSUB IWATER JNE #8000 JSR HERE JA .+4 JA IBOTLE JEQ #8000 #M79, FLDA IOBJ JEQ .+13 FLDA IOBJ FSUB IWATER JEQ .+5 FLDA #LIT1+223 FSTA SPK FLDA SPK / FSUB #LIT1+223 JEQ #2011 JSR LIQ JA .+4 JA #LIT FSUB IWATER JNE #2011 JSR HERE JA .+4 JA IBOTLE JEQ #2011 FLDA IBOTLE ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 FLDA IWATER ATX 7 FLDA #LIT FSTA IPLACE-0003,7 FLDA #LIT1+154 FSTA SPK JA #2011 #9160, FLDA IOBJ FSUB LAMP JEQ #2011 FLDA #LIT1+157 FSTA SPK JA #2011 #9170, JSR TOTING JA .+4 JA IROD2 JEQ #M81 FLDA IOBJ FSUB IROD JNE #M81 JSR TOTING JA .+4 JA IROD JNE #M81 FLDA IROD2 FSTA IOBJ #M81, JSR TOTING / JA .+4 JA IOBJ JEQ #2011 FLDA IOBJ FSUB #LIT+143 JLT #M82 FLDA IOBJ FSUB MAXTRS JGT #M82 JSR AT JA .+4 JA ITROL JNE #9178 #M82, FLDA IOBJ FSUB IFOOD JNE #M83 JSR HERE JA .+4 JA IBEAR JNE #9177 #M83, FLDA IOBJ FSUB IAXE JNE #9020 FLDA #LIT+3 FSTA I #H0132, FLDA I ATX 7 FLDA DLOC-0003,7 FSUB LOC JEQ #9172 #9171, FLDA I FADD #LIT+3 FSTA I FSUB #LIT+17 JLE #H0132 FLDA #LIT1+162 FSTA SPK JSR AT JA .+4 JA IDRAGN JEQ #M84 FLDA IDRAGN ATX 7 FLDA PROP-0003,7 JEQ #9175 #M84, FLDA #LIT1+165 FSTA SPK JSR AT JA .+4 JA ITROL JNE #9175 JSR HERE JA .+4 JA IBEAR JEQ #M85 FLDA IBEAR ATX 7 FLDA PROP-0003,7 JEQ #9176 #M85, FLDA #LIT FSTA IOBJ JA #9120 #9172, FLDA #LIT1+170 FSTA SPK JSR RND JA .+4 JA #LIT+11 JEQ #9175 FLDA I ATX 7 FLDA #LIT FSTA DSEEN-0003,7 FLDA I ATX 7 FLDA #LIT FSTA DLOC-0003,7 FLDA #LIT1+173 FSTA SPK FLDA IDKILL FADD #LIT+3 FSTA IDKILL FSUB #LIT+3 JNE #9175 FLDA #LIT1+176 FSTA SPK #9175, JSR RSPEAK JA .+4 JA SPK JSR DROP JA .+6 JA IAXE JA LOC FLDA NULL FSTA K JA #8 #9176, FLDA #LIT1+201 FSTA SPK JSR DROP JA .+6 JA IAXE JA LOC FLDA IAXE ATX 7 FLDA MINUS1 FSTA FIXED-0003,7 FLDA #LIT+3 FSTA PROP-0003,7 JSR JUGGLE JA #2011 JA IBEAR #9177, FLDA IBEAR FSTA IOBJ JA #9210 #9178, FLDA #LIT1+204 FSTA SPK JSR DROP JA .+6 JA IOBJ JA #LIT JSR MOVE JA .+6 JA ITROL JA #LIT FLDA ITROL FADD #LIT+231 FSTA #TMPX+25 JSR MOVE JA .+6 JA #TMPX+25 JA #LIT FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+441 FSTA .+11 STARTF JSR DROP JA .+6 JA ITROL2 JA . FLDA ITROL2 FADD #LIT+231 FSTA #TMPX+25 FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+367 FSTA .+11 STARTF JSR DROP JA .+6 JA #TMPX+25 JA . JSR JUGGLE JA .+4 JA ICHASM JA #2011 #8180, JSR YES JA .+10 JA #LIT+71 JA #LIT+151 JA #LIT+151 FSTA GAVEUP #8185, FLDA GAVEUP JNE #20000 JA #2012 #9190, JSR AT JA .+4 JA IOBJ JNE #M86 JSR LIQ JA .+4 JA #LIT FSUB IOBJ JNE #M87 JSR AT JA .+4 JA IBOTLE JNE #M86 #M87, JSR LIQLOC JA .+4 JA LOC FSUB K JNE .+5 #M86, FLDA #LIT1+207 FSTA SPK FLDA #LIT+3 / FSTA I #9192, FLDA I ATX 7 FLDA DLOC-0003,7 FSUB LOC JNE #M88 FLDA KDFLAG FSUB #LIT+6 JLT #M88 FLDA IOBJ FSUB IDWARF JNE .+5 FLDA #LIT1+207 FSTA SPK #M88, FLDA I / FADD #LIT+3 FSTA I FSUB #LIT+17 JLE #9192 FLDA CLOSED JEQ .+5 FLDA #LIT1+212 FSTA SPK JSR TOTING / JA .+4 JA IOBJ JEQ #2011 FLDA #LIT+77 FSTA SPK JA #2011 #8200, FLDA #LIT1+215 FSTA SPK FLDA #LIT+3 FSTA I #H0143, FLDA I FSUB IBEAR JEQ #8201 JSR TOTING JA .+4 JA I JEQ #8201 FLDA SPK FSUB #LIT1+215 JNE .+10 JSR RSPEAK JA .+4 JA #LIT+226 JSR PSPEAK JA .+6 JA I JA MINUS1 FLDA #LIT FSTA SPK #8201, FLDA I FADD #LIT+3 FSTA I FSUB #LIT+231 JLE #H0143 JSR TOTING JA .+4 JA IBEAR JEQ #2011 FLDA #LIT+275 FSTA SPK JA #2011 / #9210, FLDA IOBJ FSUB IBIRD JNE #9212 FLDA #LIT+231 FSTA SPK JA #2011 #9212, FLDA IOBJ FSUB ISNAKE JEQ #M89 FLDA IOBJ FSUB IDRAGN JEQ #M89 FLDA IOBJ FSUB ITROL JNE #9213 #M89, FLDA #LIT1+220 FSTA SPK FLDA IOBJ FSUB IDRAGN JNE #M90 FLDA IDRAGN ATX 7 FLDA PROP-0003,7 JEQ .+5 FLDA #LIT1+223 FSTA SPK #M90, FLDA IOBJ / FSUB ITROL JNE .+5 FLDA #LIT1+226 FSTA SPK FLDA IOBJ / FSUB ISNAKE JNE #2011 FLDA CLOSED JNE #2011 JSR HERE JA .+4 JA IBIRD JEQ #2011 FLDA #LIT+234 FSTA SPK JSR DSTROY JA .+4 JA IBIRD FLDA IBIRD ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA KTALY2 FADD #LIT+3 FSTA KTALY2 JA #2011 #9213, FLDA IOBJ FSUB IDWARF JNE #9214 JSR HERE JA .+4 JA IFOOD JEQ #2011 FLDA #LIT1+231 FSTA SPK FLDA KDFLAG FADD #LIT+3 FSTA KDFLAG JA #2011 #9214, FLDA IOBJ FSUB IBEAR JNE #9215 FLDA IBEAR ATX 7 FLDA PROP-0003,7 JNE .+5 FLDA #LIT1+220 FSTA SPK FLDA PROP-0003,7 FSUB #LIT+11 JNE .+5 FLDA #LIT1+223 FSTA SPK JSR HERE / JA .+4 JA IFOOD JEQ #2011 JSR DSTROY JA .+4 JA IFOOD FLDA #LIT+3 FSTA PROP-0003,7 FLDA IAXE ATX 7 FLDA #LIT FSTA FIXED-0003,7 FSTA PROP-0003,7 FLDA #LIT1+234 FSTA SPK JA #2011 #9215, FLDA #LIT1+237 FSTA SPK JA #2011 #9220, FLDA IOBJ FSUB IVASE JEQ #9222 FLDA IOBJ JEQ #M91 FLDA IOBJ FSUB IBOTLE JNE #2011 #M91, FLDA IOBJ JNE #M92 JSR HERE JA .+4 JA IBOTLE JEQ #8000 #M92, FLDA #LIT1+242 FSTA SPK JSR LIQLOC JA .+4 JA LOC JNE .+5 FLDA #LIT1+245 FSTA SPK JSR LIQ / JA .+4 JA #LIT JEQ .+4 FLDA #LIT+242 FSTA SPK FLDA SPK / FSUB #LIT1+242 JNE #2011 FLDA IBOTLE ATX 7 FLDA LOC ATX 6 XTA 6 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+350 FSTA .+7 STARTF JSR MOD JA .+6 JA . JA #LIT+14 FDIV #LIT+6 JSA #FIX FMUL #LIT+6 FSTA PROP-0003,7 JSR LIQ JA .+4 JA #LIT FSTA K JSR TOTING JA .+4 JA IBOTLE JEQ .+11 FLDA K ATX 7 FLDA MINUS1 FSTA IPLACE-0003,7 FLDA K / FSUB IOIL JNE #2011 FLDA #LIT1+250 FSTA SPK JA #2011 #9222, FLDA #LIT+113 FSTA SPK JSR LIQLOC JA .+4 JA LOC JNE .+5 FLDA #LIT1+253 FSTA SPK JSR LIQLOC / JA .+4 JA LOC JEQ #2011 JSR TOTING JA .+4 JA IVASE JEQ #2011 JSR RSPEAK JA .+4 JA #LIT1+266 FLDA IVASE ATX 7 FLDA #LIT+6 FSTA PROP-0003,7 FLDA MINUS1 FSTA FIXED-0003,7 JA #9024 #9230, FLDA IROD2 ATX 7 FLDA PROP-0003,7 JLT #2011 FLDA CLOSED JEQ #2011 FLDA #LIT1+261 FSTA IBONUS FLDA LOC FSUB #LIT+245 JNE .+6 FLDA #LIT1+264 FSTA IBONUS JSR HERE / JA .+4 JA IROD2 JEQ .+6 FLDA #LIT1+267 FSTA IBONUS JSR RSPEAK / JA .+4 JA IBONUS JA #20000 #8240, FLDA #LIT+3 FSTA SCORNG JA #20000 #8241, FLDA #LIT FSTA SCORNG TRAP3 #WRITO JA #LIT+14 JA #8243+2 FLDA SCORE TRAP3 #RSVO FLDA MXSCOR TRAP3 #RSVO TRAP3 #RENDO #8243, JA .+51 5047 4011 0640 3117 2540 2705 2205 4024 1740 2125 1124 4016 1727 5440 3117 2540 2717 2514 0440 2303 1722 0547 5411 6440 4054 4740 1725 2440 1706 4001 4020 1723 2311 0214 0547 5411 6454 4756 4751 JSR YES JA .+10 JA #LIT1+272 JA #LIT+151 JA #LIT+151 FSTA GAVEUP JA #8185 #8250, JSR VOCAB JA .+6 JA WD1 JA #LIT+11 FSTA K FLDA #LIT+135 FSTA SPK FLDA #LIT+3 FSUB K FSUB IFOOBR JEQ #8252 FLDA IFOOBR JEQ #2011 FLDA #LIT1+275 FSTA SPK JA #2011 #8252, FLDA K FSTA IFOOBR FLDA K FSUB #LIT+14 JNE #2009 FLDA #LIT FSTA IFOOBR FLDA IEGGS ATX 7 FLDA IPLACE-0003,7 FSUB PLAC-0003,7 JEQ #2011 JSR TOTING JA .+4 JA IEGGS JEQ #M93 FLDA LOC FSUB PLAC-0003,7 JEQ #2011 #M93, FLDA IPLACE-0003,7 JNE #M94 FLDA ITROL ATX 6 FLDA IPLACE-0003,6 JNE #M94 FLDA PROP-0003,6 JNE #M94 FLDA #LIT+3 FSTA PROP-0003,6 #M94, FLDA #LIT+6 / FSTA K JSR HERE JA .+4 JA IEGGS JEQ .+5 FLDA #LIT+3 FSTA K FLDA LOC FSUB PLAC-0003,7 JNE .+5 FLDA #LIT FSTA K XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+441 FSTA .+11 STARTF JSR MOVE JA .+6 JA IEGGS JA . JSR PSPEAK JA .+6 JA IEGGS JA K JA #2012 #8260, FLDA #LIT1+300 FSTA SPK FLDA #LIT1+303 FSTA IABNUM FLDA #LIT+11 FSTA IDTAIL JA #2011 #8270, JSR HERE JA .+4 JA MAGZIN JEQ .+6 FLDA MAGZIN FSTA IOBJ JSR HERE / JA .+4 JA ITABLT JEQ .+11 FLDA IOBJ FMUL #LIT+231 FADD ITABLT FSTA IOBJ JSR HERE / JA .+4 JA MESSAG JEQ .+11 FLDA IOBJ FMUL #LIT+231 FADD MESSAG FSTA IOBJ JSR TOTING / JA .+4 JA IOYSTR FMUL CLOSED JEQ .+6 FLDA IOYSTR FSTA IOBJ FLDA IOBJ / FSUB #LIT+231 JGT #8000 FLDA IOBJ JEQ #8000 JSR DARK JA .+4 JA #LIT JNE #8000 #9270, JSR DARK JA .+4 JA #LIT JNE #5190 FLDA IOBJ FSUB MAGZIN JNE .+5 FLDA #LIT1+306 FSTA SPK FLDA IOBJ / FSUB ITABLT JNE .+5 FLDA #LIT1+311 FSTA SPK FLDA IOBJ / FSUB MESSAG JNE .+5 FLDA #LIT1+314 FSTA SPK FLDA IOBJ / FSUB IOYSTR JNE #M95 FLDA #LIT+6 ATX 7 FLDA HINTED-0003,7 JEQ #M95 JSR TOTING JA .+4 JA IOYSTR JEQ .+5 FLDA #LIT1+317 FSTA SPK #M95, FLDA IOBJ / FSUB IOYSTR JNE #2011 FLDA HINTED-0003,7 JNE #2011 JSR TOTING JA .+4 JA IOYSTR JEQ #2011 FLDA CLOSED JEQ #2011 FLDA #LIT+6 ATX 7 JSR YES JA .+10 JA #LIT1+322 JA #LIT1+325 JA #LIT+151 FSTA HINTED-0003,7 JA #2012 #9280, FLDA IOBJ FSUB MIRROR JNE .+5 FLDA #LIT1+330 FSTA SPK FLDA IOBJ / FSUB IVASE JNE #M96 FLDA IVASE ATX 7 FLDA PROP-0003,7 JEQ #9282 #M96, FLDA IOBJ FSUB MIRROR JNE #2011 FLDA CLOSED JEQ #2011 JSR RSPEAK JA #19000 JA #LIT1+333 #9282, FLDA #LIT1+336 FSTA SPK JSR TOTING JA .+4 JA IVASE JEQ .+12 JSR DROP JA .+6 JA IVASE JA LOC FLDA IVASE / ATX 7 FLDA #LIT+6 FSTA PROP-0003,7 FLDA MINUS1 FSTA FIXED-0003,7 JA #2011 #9290, FLDA IOBJ FSUB IDWARF JNE #2011 FLDA CLOSED JEQ #2011 JSR RSPEAK JA #19000 JA #LIT1+341 #8300, JSR RSPEAK JA #2012 JA #LIT1+344 #8310, JSR RSPEAK JA #2012 JA #LIT1+347 #40000, FLDA IHINT FSUB #LIT+11 ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #40400 JA #40500 JA #40600 JA #40700 JA #40800 JA #40010 JSR BUG JA .+4 JA #LIT+110 #40010, FLDA IHINT ATX 7 FLDA #LIT FSTA HINTLC-0003,7 FLDA #LIT+11 FMUL #LIT+66 FADD IHINT ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+403 FSTA .+7 STARTF JSR YES JA .+10 JA . JA #LIT JA #LIT+151 JEQ #2602 TRAP3 #WRITO JA #LIT+14 JA #40012+2 FLDA #LIT+6 FMUL #LIT+66 FADD IHINT ATX 7 FLDA HINTS-0077,7 TRAP3 #RSVO TRAP3 #RENDO #40012, JA .+50 5057 4740 1140 0115 4020 2205 2001 2205 0440 2417 4007 1126 0540 3117 2540 0140 1011 1624 5440 0225 2440 1124 4027 1114 1440 0317 2324 4031 1725 4754 4040 1162 5447 4020 1711 1624 2356 4751 FLDA IHINT ATX 7 FLDA #LIT+14 FMUL #LIT+66 FADD IHINT ATX 6 XTA 6 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+403 FSTA .+11 STARTF JSR YES JA .+10 JA #LIT1+352 JA . JA #LIT+151 FSTA HINTED-0003,7 JEQ #40020 FLDA LIMIT FSUB #LIT+116 JLE #40020 FLDA #LIT+6 FMUL #LIT+66 FADD IHINT ATX 6 FLDA #LIT+116 FMUL HINTS-0077,6 FADD LIMIT FSTA LIMIT #40020, FLDA IHINT ATX 7 FLDA #LIT FSTA HINTLC-0003,7 JA #2602 #40400, FLDA IGRATE ATX 7 FLDA PROP-0003,7 JNE #40020 JSR HERE JA .+4 JA KEYS JEQ #40010 JA #40020 #40500, JSR HERE JA .+4 JA IBIRD JEQ #2602 JSR TOTING JA .+4 JA IROD JEQ #2602 FLDA IOBJ JEQ #40010 FSUB IBIRD JEQ #40010 JA #2602 #40600, JSR HERE JA .+4 JA ISNAKE JEQ #40020 JSR HERE JA .+4 JA IBIRD JEQ #40010 JA #40020 #40700, FLDA LOC ATX 7 FLDA IATLOC-0003,7 JNE #40020 FLDA IOLDLC ATX 6 FLDA IATLOC-0003,6 JNE #40020 FLDA IOLDL2 ATX 5 FLDA IATLOC-0003,5 JNE #40020 FLDA IHLDNG FSUB #LIT+3 JGT #40010 JA #40020 #40800, FLDA IEMRLD ATX 7 FLDA MINUS1 FSUB PROP-0003,7 JEQ #40020 FLDA IPYRAM ATX 6 FLDA MINUS1 FSUB PROP-0003,6 JEQ #40010 JA #40020 #10000, FLDA IGRATE ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA IFISUR ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA #LIT+3 FSTA I #H0204, FLDA I ATX 7 FLDA #LIT FSTA DSEEN-0003,7 #10010, FLDA I ATX 7 FLDA #LIT FSTA DLOC-0003,7 FLDA I FADD #LIT+3 FSTA I FSUB #LIT+22 JLE #H0204 JSR MOVE JA .+6 JA ITROL JA #LIT FLDA ITROL FADD #LIT+231 FSTA #TMPX+25 JSR MOVE JA .+6 JA #TMPX+25 JA #LIT FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+441 FSTA .+11 STARTF JSR MOVE JA .+6 JA ITROL2 JA . FLDA ITROL2 FADD #LIT+231 FSTA #TMPX+25 FLDA ITROL ATX 7 XTA 7 FMUL #LIT+11 ALN 0 STARTD FADD #LIT+367 FSTA .+11 STARTF JSR MOVE JA .+6 JA #TMPX+25 JA . JSR JUGGLE JA .+4 JA ICHASM FLDA IBEAR ATX 7 FLDA PROP-0003,7 FSUB #LIT+11 JEQ .+10 JSR DSTROY JA .+4 JA IBEAR FLDA ICHAIN / ATX 7 FLDA #LIT FSTA PROP-0003,7 FLDA #LIT FSTA FIXED-0003,7 FLDA IAXE ATX 7 FLDA #LIT FSTA PROP-0003,7 FSTA FIXED-0003,7 JSR RSPEAK JA .+4 JA #LIT1+355 FLDA MINUS1 FSTA ICLOK1 FLDA #LIT+3 FSTA CLOSNG JA #19999 #11000, FLDA IBOTLE ATX 7 JSR PUT JA .+10 JA IBOTLE JA #LIT+245 JA #LIT+3 FSTA PROP-0003,7 FLDA IPLANT ATX 7 JSR PUT JA .+10 JA IPLANT JA #LIT+245 JA #LIT FSTA PROP-0003,7 FLDA IOYSTR ATX 7 JSR PUT JA .+10 JA IOYSTR JA #LIT+245 JA #LIT FSTA PROP-0003,7 FLDA LAMP ATX 7 JSR PUT JA .+10 JA LAMP JA #LIT+245 JA #LIT FSTA PROP-0003,7 FLDA IROD ATX 7 JSR PUT JA .+10 JA IROD JA #LIT+245 JA #LIT FSTA PROP-0003,7 FLDA IDWARF ATX 7 JSR PUT JA .+10 JA IDWARF JA #LIT+245 JA #LIT FSTA PROP-0003,7 FLDA #LIT+245 FSTA LOC FSTA IOLDLC FSTA NEWLOC JSR PUT JA .+10 JA IGRATE JA #LIT+250 JA #LIT FSTA I FLDA ISNAKE ATX 7 JSR PUT JA .+10 JA ISNAKE JA #LIT+250 JA #LIT+3 FSTA PROP-0003,7 FLDA IBIRD ATX 7 JSR PUT JA .+10 JA IBIRD JA #LIT+250 JA #LIT+3 FSTA PROP-0003,7 FLDA ICAGE ATX 7 JSR PUT JA .+10 JA ICAGE JA #LIT+250 JA #LIT FSTA PROP-0003,7 FLDA IROD2 ATX 7 JSR PUT JA .+10 JA IROD2 JA #LIT+250 JA #LIT FSTA PROP-0003,7 FLDA IPILOW ATX 7 JSR PUT JA .+10 JA IPILOW JA #LIT+250 JA #LIT FSTA PROP-0003,7 FLDA MIRROR ATX 7 JSR PUT JA .+10 JA MIRROR JA #LIT+245 JA #LIT FSTA PROP-0003,7 FLDA #LIT+250 FSTA FIXED-0003,7 FLDA #LIT+3 FSTA I #11010, JSR TOTING JA .+4 JA I JEQ .+10 JSR DSTROY JA .+4 JA I FLDA I / FADD #LIT+3 FSTA I FSUB #LIT+231 JLE #11010 JSR RSPEAK JA .+4 JA #LIT1+360 FLDA #LIT+3 FSTA CLOSED JA #2 #12000, JSR RSPEAK JA .+4 JA #LIT1+363 FLDA IBATER ATX 7 FLDA #LIT+3 FSTA PROP-0003,7 JSR TOTING JA .+4 JA IBATER JEQ .+12 JSR DROP JA .+6 JA IBATER JA LOC FLDA LIMIT / FADD #LIT1+366 FSTA LIMIT FLDA #LIT FSTA LMWARN JA #19999 #12200, JSR HERE JA .+4 JA LAMP JEQ #19999 FLDA LMWARN JNE #19999 FLDA #LIT+3 FSTA LMWARN FLDA #LIT1+371 FSTA SPK FLDA IBATER ATX 7 FLDA IPLACE-0003,7 JNE .+5 FLDA #LIT1+374 FSTA SPK FLDA PROP-0003,7 FSUB #LIT+3 JNE .+5 FLDA #LIT1+377 FSTA SPK #H0214, JSR RSPEAK JA #19999 JA SPK #12400, FLDA MINUS1 FSTA LIMIT FLDA LAMP ATX 7 FLDA #LIT FSTA PROP-0003,7 JSR HERE JA .+4 JA LAMP JEQ #19999 JSR RSPEAK JA #19999 JA #LIT1+63 #12600, JSR RSPEAK JA .+4 JA #LIT1+402 FLDA #LIT+3 FSTA GAVEUP JA #20000 #19000, JSR RSPEAK JA .+4 JA #LIT1+405 #20000, FLDA #LIT FSTA SCORE FSTA MXSCOR FLDA #LIT+143 FSTA I FLDA MAXTRS FSTA #DOTMP #H0216, FLDA I ATX 7 FLDA IPTEXT-0003,7 JEQ #20010 FLDA #LIT+44 FSTA K FLDA I FSUB ICHEST JNE .+6 FLDA #LIT1+237 FSTA K FLDA I FSUB ICHEST JLE .+5 FLDA #LIT+55 FSTA K FLDA I / ATX 7 FLDA PROP-0003,7 JLT .+5 FLDA SCORE FADD #LIT+6 FSTA SCORE FLDA I / ATX 7 FLDA IPLACE-0003,7 FSUB #LIT+11 JNE #M100 FLDA PROP-0003,7 JNE .+7 FLDA SCORE FADD K FSUB #LIT+6 FSTA SCORE #M100, FLDA MXSCOR / FADD K FSTA MXSCOR #20010, FLDA I FADD #LIT+3 FSTA I FSUB #DOTMP JLE #H0216 FLDA MAXDIE FSUB NUMDIE FMUL #LIT+36 FADD SCORE FSTA SCORE FLDA MAXDIE FMUL #LIT+36 FADD MXSCOR FSTA MXSCOR FLDA SCORNG FADD GAVEUP JNE .+5 FLDA SCORE FADD #LIT+14 FSTA SCORE FLDA MXSCOR / FADD #LIT+14 FSTA MXSCOR
/BEGIN FILE 3 FLDA KDFLAG JEQ .+5 FLDA SCORE FADD #LIT+102 FSTA SCORE FLDA MXSCOR FADD #LIT+102 FSTA MXSCOR FLDA CLOSNG JEQ .+5 FLDA SCORE FADD #LIT+102 FSTA SCORE FLDA MXSCOR FADD #LIT+102 FSTA MXSCOR FLDA CLOSED JEQ #20020 FLDA IBONUS JNE .+5 FLDA SCORE FADD #LIT+36 FSTA SCORE FLDA IBONUS / FSUB #LIT1+267 JNE .+5 FLDA SCORE FADD #LIT+102 FSTA SCORE FLDA IBONUS / FSUB #LIT1+264 JNE .+6 FLDA SCORE FADD #LIT1+416 FSTA SCORE FLDA IBONUS / FSUB #LIT1+261 JNE #20020 FLDA SCORE FADD #LIT1+410 FSTA SCORE #20020, FLDA MXSCOR FADD #LIT1+410 FSTA MXSCOR FLDA MAGZIN ATX 7 FLDA IPLACE-0003,7 FSUB #LIT1+250 JNE .+5 FLDA SCORE FADD #LIT+3 FSTA SCORE FLDA MXSCOR / FADD #LIT+3 FSTA MXSCOR FLDA SCORE FADD #LIT+6 FSTA SCORE FLDA MXSCOR FADD #LIT+6 FSTA MXSCOR FLDA #LIT+3 FSTA I FLDA MAXHNT FSTA #DOTMP+3 #20030, FLDA I ATX 7 FLDA HINTED-3,7 JEQ .+13 FLDA #LIT+6 FMUL #LIT+66 FADD I ATX 6 FLDA SCORE FSUB HINTS-0077,6 FSTA SCORE FLDA I / FADD #LIT+3 FSTA I FSUB #DOTMP+3 JLE #20030 FLDA SCORNG JNE #8241 EXTERN #WRITO TRAP3 #WRITO JA #LIT+14 JA #20100+2 FLDA SCORE EXTERN #RSVO TRAP3 #RSVO FLDA MXSCOR EXTERN #RSVO TRAP3 #RSVO FLDA ITURNS EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO #20100, JA .+45 5057 4740 3117 2540 2303 1722 0504 4754 1164 5447 4017 2524 4017 0640 0140 2017 2323 1102 1405 4754 1164 5440 4047 5440 2523 1116 0747 5411 6554 4740 2425 2216 2356 4751 0000 FLDA #LIT+3 FSTA I FLDA ICLSES FSTA #DOTMP+6 #I0064, FLDA I ATX 7 FLDA CVAL-0003,7 FSUB SCORE JGE #20210 #20200, FLDA I FADD #LIT+3 FSTA I FSUB #DOTMP+6 JLE #I0064 EXTERN #WRITO TRAP3 #WRITO JA #LIT+14 JA #20202+2 EXTERN #RENDO TRAP3 #RENDO #20202, JA .+24 5057 4740 3117 2540 1225 2324 4027 0516 2440 1706 0640 1531 4023 0301 1405 4141 4757 5100 JA #25000 #20210, FLDA I ATX 7 FLDA CTEXT-3,7 /GET CLASS MESSAGE FSTA #TMPX-3 JSR SPEAK JA .+4 JA #TMPX-3 FLDA ICLSES FSUB #LIT+3 FSUB I JEQ #20220 FLDA I ATX 7 FLDA CVAL-0003,7 FADD #LIT+3 FSUB SCORE FSTA K EXTERN #WRITO TRAP3 #WRITO JA #LIT+14 JA #20212+2 FLDA K EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO #20212, JA .+45 5057 4740 2417 4001 0310 1105 2605 4024 1005 4016 0530 2440 1011 0710 0522 4022 0124 1116 0754 4031 1725 4016 0505 0447 5411 6354 4040 4740 1517 2205 4020 1711 1624 4754 4451 FLDA K FSUB #LIT+3 JNE .+12 EXTERN #WRITO TRAP3 #WRITO JA #LIT+14 JA #20213+2 EXTERN #RENDO TRAP3 #RENDO FLDA K / FSUB #LIT+3 JEQ #25000 EXTERN #WRITO TRAP3 #WRITO JA #LIT+14 JA #20214+2 EXTERN #RENDO TRAP3 #RENDO #20213, JA .+6 5047 5356 4757 5100 #20214, JA .+6 5047 5323 5647 5751 JA #25000 #20220, EXTERN #WRITO TRAP3 #WRITO JA #LIT+14 JA #20222+2 EXTERN #RENDO TRAP3 #RENDO #20222, JA #RTN 5057 4740 2417 4001 0310 1105 2605 4024 1005 4016 0530 2440 1011 0710 0522 4022 0124 1116 0740 4754 4040 4727 1725 1404 4002 0540 0140 1605 0124 4024 2211 0313 4147 5757 4740 0317 1607 2201 2425 1401 2411 1716 2341 4147 5751 #DOTMP, ORG .+11 ORG .+3 #TMPX, ORG .+33 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search