SECT LIQLOC EXTERN MOD JA #ST #XR, ORG .+10 TEXT +LIQLOC+ #RET, SETX #XR SETB #BASE JA .+3 #BASE, ORG .+6 NOTHIN, ORG .+3 ORG #BASE+30 FNOP JA #RET FNOP #GOBAK, 0;0 #VAL, ORG .+6 #TMP, ORG .+0011 ONE, F 1.0 TWO, F 2.0 FOUR, F 4.0 FIVE, F 5.0 EIGHT, F 8.0 #LBL=. COMMON ABBCOM IABB, ORG .+0702 COMMON MISCOM LINUSE, ORG .+0003 ITRVS, ORG .+0003 ICLSES, ORG .+0003 IOLDLC, ORG .+0003 LOC, ORG .+0003 CVAL, ORG .+0044 TK, ORG .+0074 NEWLOC, ORG .+0003 KEY, ORG .+0702 PLAC, ORG .+0454 FIXD, ORG .+0454 ACTSPK, ORG .+0151 COND, ORG .+0702 HINTS, ORG .+0360 MAXHNT, ORG .+0003 PROP, ORG .+0454 KTALY, ORG .+0003 KTALY2, ORG .+0003 HINTLC, ORG .+0074 ICHLC, ORG .+0003 ICHLC2, ORG .+0003 DSEEN, ORG .+0022 KDFLAG, ORG .+0003 DLOC, ORG .+0022 LCDALT, ORG .+0003 KEYS, ORG .+0003 LAMP, ORG .+0003 IGRATE, ORG .+0003 ICAGE, ORG .+0003 IROD, ORG .+0003 IROD2, ORG .+0003 ISTEPS, ORG .+0003 IBIRD, ORG .+0003 IDOOR, ORG .+0003 IPILOW, ORG .+0003 ISNAKE, ORG .+0003 IFISUR, ORG .+0003 ITABLT, ORG .+0003 ICLAM, ORG .+0003 IOYSTR, ORG .+0003 MAGZIN, ORG .+0003 IDWARF, ORG .+0003 KNIFE, ORG .+0003 IFOOD, ORG .+0003 IBOTLE, ORG .+0003 IWATER, ORG .+0003 IOIL, ORG .+0003 IPLANT, ORG .+0003 IPLNT2, ORG .+0003 IAXE, ORG .+0003 MIRROR, ORG .+0003 IDRAGN, ORG .+0003 ICHASM, ORG .+0003 ITROL, ORG .+0003 ITROL2, ORG .+0003 IBEAR, ORG .+0003 MESSAG, ORG .+0003 IVEND, ORG .+0003 IBATER, ORG .+0003 NUGGET, ORG .+0003 ICOINS, ORG .+0003 ICHEST, ORG .+0003 IEGGS, ORG .+0003 ITRDNT, ORG .+0003 IVASE, ORG .+0003 IEMRLD, ORG .+0003 IPYRAM, ORG .+0003 IPEARL, ORG .+0003 IRUG, ORG .+0003 ICHAIN, ORG .+0003 IBACK, ORG .+0003 LOOK, ORG .+0003 ICAVE, ORG .+0003 NULL, ORG .+0003 IENTRC, ORG .+0003 IDPRSN, ORG .+0003 ISAY, ORG .+0003 LOCK, ORG .+0003 ITHROW, ORG .+0003 IFIND, ORG .+0003 INVENT, ORG .+0003 ITURNS, ORG .+0003 LMWARN, ORG .+0003 KNFLOC, ORG .+0003 IDTAIL, ORG .+0003 IABNUM, ORG .+0003 NUMDIE, ORG .+0003 MAXDIE, ORG .+0003 IDKILL, ORG .+0003 IFOOBR, ORG .+0003 IBONUS, ORG .+0003 ICLOK1, ORG .+0003 ICLOK2, ORG .+0003 CLOSNG, ORG .+0003 PANIC, ORG .+0003 CLOSED, ORG .+0003 GAVEUP, ORG .+0003 SCORNG, ORG .+0003 ODLOC, ORG .+0022 ISTREM, ORG .+0003 COMMON MISC2 I, ORG .+0003 IRTXSZ, ORG .+0003 ICLSMX, ORG .+0003 MAGSIZ, ORG .+0003 LOCSIZ, ORG .+0003 CTEXT, ORG .+0044 STEXT, ORG .+0702 LTEXT, ORG .+0702 ISECT, ORG .+0003 TRAVEL, ORG .+4312 TRVPOS, ORG .+4312 ITRSIZ, ORG .+0003 ITBNDX, ORG .+0003 IOBJ, ORG .+0003 J, ORG .+0003 K, ORG .+0003 IVERB, ORG .+0003 IHNTSZ, ORG .+0003 MAXTRS, ORG .+0003 HINTED, ORG .+0074 IHNTLC, ORG .+0003 KK, ORG .+0003 COMMON PLACOM IATLOC, ORG .+0702 LINK, ORG .+1130 IPLACE, ORG .+0454 FIXED, ORG .+0454 IHLDNG, ORG .+0003 COMMON PTXCOM IPTEXT, ORG .+0454 COMMON TXTCOM IRTEXT, ORG .+1147 ORG #LBL #RTN, BASE #BASE FLDA #VAL JA #GOBAK #ST, STARTD 0210 FSTA #GOBAK,0 0200 SETX #XR SETB #BASE LDX 0,1 FSTA #BASE FLDA% #BASE,1+ FSTA NOTHIN STARTF FLDA% NOTHIN ATX 7 FLDA COND-0003,7 FDIV TWO EXTERN #FIX JSA #FIX FMUL TWO FSTA #TMP+0000 JSR MOD JA .+0006 JA #TMP+0000 JA EIGHT FSUB FIVE FSTA #TMP+0000 FLDA COND-0003,7 FDIV FOUR EXTERN #FIX JSA #FIX FSTA #TMP+0003 JSR MOD JA .+0006 JA #TMP+0003 JA TWO FMUL #TMP+0000 FADD ONE FSTA I FLDA ONE FSUB I FMUL IWATER FSTA #TMP+0000 FLDA I FDIV TWO EXTERN #FIX JSA #FIX FSTA #TMP+0003 FLDA IWATER FADD IOIL FMUL #TMP+0003 FADD #TMP+0000 FSTA #VAL JA #RTN END