Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0002/sddt.mac
There is 1 other file named sddt.mac in the archive. Click here to see a list.
	.require sai:bail.rel
	extern b.,bail,.uinit

	search monsym

	a=1
	b=2
	c=3
	d=4
	p=17
	.jbddt=74
	.jbsa=120

	twoseg

	loc .jbddt

	exp ddst

	reloc 400000

ddst:	setzm .jbddt	;say we are no longer DDT, so we get real one
	hrrz a,.jbsa	;look for place to put break
	move b,[pushj p,.uinit] ;right after this
search:	camn b,(a)	;now look for it
	jrst found
	caie a,777777	;ran out
	aoja a,search
	hrroi a,[asciz /Doesn't seem to be a SAIL program
/]
	esout
	haltf
	jrst .-1

found:	move b,[pushj p,pat1] ;replace call to .uinit with to our patch
	movem b,(a)
	move a,.jbsa	;now start program
	jrst (a)

pat1:	pushj p,.uinit	;now really call .uinit
	jrst bail	;and fake call to bail at that point

	end