Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0120/p.mac
There are 20 other files named p.mac in the archive. Click here to see a list.
00050		TITLE	P
00100	;CALL P(STRING)  WHERE STRING IS TEXT VARIABLE OR LITERAL
00200	;REWRITTEN FOR DEC-20 BY PAUL T. ROBINSON, WESLEYAN UNIV. AUG 1980
00300	
00350		SEARCH MONSYM
00500		ENTRY	P
00600	
00700	P:	HRROI	1,@0(16)		;GET "BYTE POINTER" TO STRING
00800		PSOUT			;WRITE IT OUT
00900		HRROI	1,[ASCIZ/
01000	/]				;AND A CRLF
01100		PSOUT
01200		POPJ	17,		;RETURN
01300	
01400		END