PDP-10 Archive: more-uns/self.exe from walsh_goodStuff

Trailing-Edge - PDP-10 Archives - walsh_goodStuff_1600 - more-uns/self.exe

There are no other files named self.exe in the archive.

?p0?hX0?x "

<++2	`yP%0X23\": "\": "\"6<+0		;TEXT TO START WITH


	END	START
	TITLE	SELF	PROGRAM WHICH TYPES ITSELF OUT



;THIS OUTPUT IS THE SOURCE CODE FOR THE PROGRAM YOU ARE RUNNING.


	SEARCH	MONSYM		;GET SYMBOLS WE NEED


	T1=1			;DEFINE AN AC
	SLASH==57		;ASCII CODE FOR SLASH


START:	RESET			;CLEAR EVERYTHING
	HRROI	T1,TEXT1	;POINT TO FIRST PART OF TEXT
	PSOUT			;TYPE SOME OF US OUT
	MOVEI	T1,SLASH	;GET A DELIMITER
	PBOUT			;OUTPUT IT TOO
	HRROI	T1,TEXT1	;GET ANOTHER COPY OF THE TEXT
	PSOUT			;TYPE IT AGAIN
	MOVEI	T1,SLASH	;GET DELIMITER AGAIN
	PBOUT			;OUTPUT IT
	HRROI	T1,TEXT2	;GET POINTER TO FINAL TEXT
	PSOUT			;TYPE IT
	HALTF			;QUIT
	JRST	START		;DO IT ALL OVER IF CONTINUED


TEXT2:	ASCIZ	"		;TEXT TO START WITH


	END	START
"				;TEXT TO END WITH


TEXT1:	ASCIZ	66`F_6F_:Ye0P-*[3)yl <93 ~`0\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0