Google
 

Trailing-Edge - PDP-10 Archives - bb-k345a-sb - relod2.mac
There is 1 other file named relod2.mac in the archive. Click here to see a list.
	TITLE	RELOAD - A HACK IN ABSTENTIA

	SEARCH	UUOSYM,SNUP
	.REQUIRE	SNUP
	MONREF	SYSKTM
	MONREF	DEBUGF
	MONREF	BOOTXT
	MONREF	ARFLAG
	BRKPNT	TM0IN0,RELOAD

START:	RESET
	MOVE	P,[IOWD 20,PDL]
	PUSHJ	P,GETINF##
	OUTSTR	[ASCIZ /BOOTXT: /]
	MOVE	P1,[POINT 7,LINBUF]
X1:	INCHWL
	CAIGE	" "
	JRST	X2
	IDPB	P1
	JRST	X1
X2:	MOVEI	15
	IDPB	P1
	MOVEI	0
	IDPB	P1
	PUSHJ	P,XCTSNP##
	MOVEI	0
	HIBER
	  EXIT
	EXIT

RELOAD:	DMOVEM	P1,SAVEP1(3)
	MOVEM	P3,SAVEP3(3)
	MOVE	P1,[POINT 7,LINBUF(3)](3)
	MOVSI	P2,(POINT 7,0)
	HRR	P2,BOOTXT(3)
	ILDB	P3,P1
	IDPB	P3,P2
	JUMPN	P3,.-2(3)
	SETZM	@DEBUGF(3)
	SETZM	@SYSKTM(3)
	MOVEM	P2,@ARFLAG(3)
	SETOM	30
	DMOVE	P1,SAVEP1(3)
	MOVE	P3,SAVEP3(3)
	POPJ	1,

LINBUF:	BLOCK	21
SAVEP1:	BLOCK	2
SAVEP3:	BLOCK	1
PDL:	BLOCK	20
	END	START