File: TDBOOT.PA of Disk: Disks/MyPDP/m8-rka0-rkb0
(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 $$