File DARK.RA

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

	SECT	DARK
	EXTERN	HERE
	EXTERN	MOD
	JA	#ST
#XR,	ORG	.+10
	TEXT	+DARK  +
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
NOTHIN,	ORG	.+3
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
ZERO,	F 0.0
ONE,	F 1.0
TWO,	F 2.0
THREE,	F 3.0
	0000
CONDPT,	JA	COND-3
	#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
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	STARTF
	JSR	HERE
	JA	.+4
	JA	LAMP
	JEQ	NOTHR
	FLDA	LAMP
	ATX	7
	FLDA	PROP-3,7
	JNE	FALSE
NOTHR,	FLDA	LOC
	ATX	7
	XTA	7
	FMUL	THREE
	ALN	0
	STARTD
	FADD	CONDPT
	FSTA	#G1
	STARTF
	JSR	MOD
	JA	.+6
#G1,	JA	.
	JA	TWO
	JNE	FALSE
TRUE,	FLDA	ONE
	JA	#RTN

FALSE,	FLDA	ZERO
	JA	#RTN

	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