Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/ppn.tco
There is 1 other file named ppn.tco in the archive. Click here to see a list.
!;PPN - Returns user's PPN in "[P,PN]" format in register 0!

[1		!;Save original Q1!
-1,2^GU0	!;Get the user's PPN into register 0!

.U1 [1		!;Save original position!
ZU1		!; and save end of buffer position!
ZJ		!;Go to end of file to insert!
I[		!;Begin to make [P,PN]!
Q0/262144\\	!;Put in project number!
		!;   262144 = ^O1000000!
I,		!; and comma!
Q0&^o777777\\$	!; and programmer number!
I]		!; and close with bracket!

Q1,ZX0		!;Now save string in Q-register 0!
Q1,ZK		!; and clean up what you inserted!
]1 Q1J		!;Go back to original position!
]1		!;Restore orignal Q-register 1!