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