File LIQ.RA

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

	SECT	LIQ
	EXTERN	MAX0
	JA	#ST
#XR,	ORG	.+10
	TEXT	+LIQ  +
#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
#ARGS,	ORG	.+3
AT,	ORG	.+0003
BITSET,	ORG	.+0003
DARK,	ORG	.+0003
FORCED,	ORG	.+0003
HERE,	ORG	.+0003
I,	ORG	.+0003
PCT,	ORG	.+0003
TOTING,	ORG	.+0003
WZDARK,	ORG	.+0003
YEA,	ORG	.+0003
YES,	ORG	.+0003
#TMP,	ORG	.+0011
#LIT,	0001
	2000
	0000
	0002
	2000
	0000
	0002
	3000
	0000
	0003
	2000
	0000
	0003
	3000
	0000
	0004
	3000
	0000
	0005
	2400
	0000
	0006
	2140
	0000
	0007
	3100
	0000
	0010
	2260
	0000
	0000
	JA	ACTSPK-0003
	0000
	JA	COND-0003
	0000
	JA	CVAL-0003
	0000
	JA	DLOC-0003
	0000
	JA	DSEEN-0003
	0000
	JA	FIXD-0003
	0000
	JA	HINTED-0003
	0000
	JA	HINTLC-0003
	0000
	JA	HINTS-0077
	0000
	JA	KEY-0003
	0000
	JA	ODLOC-0003
	0000
	JA	PLAC-0003
	0000
	JA	PROP-0003
	0000
	JA	TK-0003
HINTED,	ORG	.+0074
	#LBL=.
	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
	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
	FSTA	#ARGS
	FLDA%	#BASE,1+
	FSTA	NOTHIN
	STARTF
	FLDA	IBOTLE
	ATX	7
	FLDA	#LIT+0000
	FNEG
	FSTA	#TMP+0000
	FLDA	#TMP+0000
	FSUB	PROP-0003,7
	FSTA	#TMP+0000
	XTA	7
	FMUL	#LIT+0006
	ALN	0
	STARTD
	FADD	#LIT+0103
	FSTA	#G0001
	STARTF
	JSR	MAX0
	JA	.+0006
#G0001,	JA	.
	JA	#TMP+0000
	FSTA	I
	FLDA	#LIT+0000
	FSUB	I
	FMUL	IWATER
	FSTA	#TMP+0000
	FLDA	I
	FDIV	#LIT+0003
	EXTERN	#FIX
	JSA	#FIX
	FSTA	#TMP+0003
	FLDA	IWATER
	FADD	IOIL
	FMUL	#TMP+0003
	FADD	#TMP+0000
	FSTA	#VAL
	EXTERN	#NE
	JA	#RTN
	EXTERN	#NE
	JA	#RTN



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