File IFIX.RA

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

/
/ VERSION 5A 4-27-77  PT
/
	SECT	IFIX
	ENTRY	AINT
	ENTRY	INT
	BASE	0
AINT,
INT,	FLDA	0		/ADDRESS OF CALL
	STARTD
	FSTA	RETRN		/SAVE RERN
	FADD	TWO		/INCR BY TWO
	FSTA	3		/GIVES ADDRESS OF ARG POINTER
	FLDA%	3		/GET ADDR OF ARG
	FSTA	3
	STARTF
	FLDA%	3		/GET ARG
	JAL	RETRN	/LEAVE BIGGIES ALONE
	JLT	NEGFIX		/NEGATIVE ARG
	ALN	0		/FIX POSITIVE ARG
	FNORM
	JA	RETRN		/RETURN
NEGFIX,	FNEG			/FIRST MAKE POSITIVE
	ALN	0		/THEN FIX
	FNORM
	FNEG			/THEN RE-NEGATE
RETRN,	JA .
TWO,	0;2
	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