File: TDBOOT.PA of Disk: Disks/MyPDP/m8-backup-rka1-rkb1

(Source file text) 

---

	SDSS=6771
	SDST=6772
	SDSQ=6773
	SDLC=6774
	SDLD=6775
	SDRC=6776
	SDRD=6777

	*200
	TAD	(3000
	SDLC
LOOP0,	SDSS
	JMP	.-1
	SDRC
	AND	(77
	TAD	(-22
	SZA CLA
	JMP	LOOP0
	CDF	30
	TAD	(1000
	SDLC
LOOP,	SDSS
	JMP	.-1
	SDRC
	DCA I	PTR
	ISZ	PTR
	JMP	LOOP
	SDLC
	CIF CDF	0
	JMP I	(7605
PTR,	0
	$$

	*7300

K1000,	TAD GET		/PUT DRIVE IN REVERSE
	JMS GET		/LOOK FOR END ZONE
	JMS GET		/LOOK FOR 31 CODE
RD,	SDSQ		/NOW READ ALL INTO CORE
	JMP .-1
	SDRD		/READ 12 BIT WORD
	DCA I WCT	/AND PUT IT IN CORE
	ISZ WCT
	JMP RD		/LOOP UNTIL FIELD 0
	JMP I STRT	/IS LOADED, THEN START
GET,	2000
	TAD K1000	/SET MOTION &DIRECTION
	SDLC
BSRCH,	SDSS		/WAIT FOR 22 OR 31 CODE
	JMP .-1		/22 IS END ZONE, 31 IS
	SDRC		/4 WORDS BEFORE DATA
	AND K77		/IS THIS WHAT WE WANT?
	TAD BM22	/THIS GETS INCREMENTED
	SZA CLA		/IF YES, RETURN.
	JMP BSRCH	/NO.KEEP LOOKING.
	ISZ .-3		/LOOK FOR NEXT IN LIST
	JMP I GET
WCT,	7354		/START LOADING CORE AT 7354
BM22,	-22		/THE OTHER BOOTSTRAP GETS
	-31		/LOADED AT 7400.
K77,	77
STRT,	7600
	$$

---