File HERE.RA

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

	SECT	HERE
	JA	#ST
#XR,	ORG	.+10
	TEXT	+HERE  +
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
IOBJ,	ORG	.+3
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
#ARGS,	ORG	.+3
IPLACE,	ORG	.+0003
ONE,	F 1.0
ZERO,	F 0.0
	#LBL=.
	COMMON	MISCOM
LINUSE,	ORG	.+0003
ITRVS,	ORG	.+0003
ICLSES,	ORG	.+0003
IOLDLC,	ORG	.+0003
LOC,	ORG	.+0003
	COMMON	PLACOM
IATLOC,	ORG	.+0702
LINK,	ORG	.+1130
PLACE,	ORG	.+0454
	ORG	#LBL
#RTN,	BASE	#BASE
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FSTA	#ARGS
	FLDA%	#BASE,1+
	FSTA	IOBJ
	STARTF
	FLDA%	IOBJ
	ATX	7
	FLDA	PLACE-0003,7
	FSTA	IPLACE
	FSUB	LOC
	JEQ	TRUE
	FLDA	IPLACE
	FADD	ONE
	JEQ	TRUE
	FLDA	ZERO
	JA	#RTN
TRUE,	FLDA	ONE
	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