Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 5,17/mac10.unv
There are 5 other files named mac10.unv in the archive. Click here to see a list.
x
,RY>
@ @
RHLHM	<`C>,<HRRZ A,B>,<HLRZ A,B>,<MOVE  A,B>,<LDB A,[PNTR B,C]>
[[?7 }`t
RHLHA	<~B>,<MOVEI A,<B>~ >,<MOVSI A,(B)>~@,<MOVE A,[B]>,<SETZ A,>
]>,<a;&  ~
POINT	^L <-<<B>_^L<B>>-1@>,A,^L<B>+^L<-<`<B>_^L<B>>-1>-1
_^L<B>>-1>-1e"e  { j

IFE	<A>{@&777777<
	IFE	<{`A>&777777000000<|E>
	IFN	<A>&777| 777000000<C>
	>|@
IFN	<A>&777777|`<
	IFE	<A>&7777}77000000<B>
	IF} N	<A>&777777000000<D>
	>
000e"e   

IFE	<A>@-777777<B>
IFN	`<A>-777777<
	IFE	<A>-7777770000 00<C>
	IFN	<A>@-777777000000<
	`	IFE	<A>+1<D>
		IFN	<A>+1<E>
		>
	>
<E> `$
RHLHM	<C>,<HRRM A,B>,< HRLM A,B>,<MOVE@M A,B>,<DPB A,[PNTR B,C]>
ibX`^TXXXA,<B>,CTXXXA,<ib 
`fTXXX A,<B>,CETXXX A,<ib` 
 bTXXX A,<B>,CNTXXX A,<ibp 0JFCLibt :CAIAibtP 8TXXX A,<B>,NETXXX A,<ibu` @4TXXX A,<B>,NNTXXX A,<ibx `>TXXX A,<B>,OTXXX A,<ib| 	 JTXXX A,<B>,OATXXX A,<ib|P `FTXXX A,<B>,OETXXX A,<ib}`  BTXXX A,<B>,ONTXXX A,<icG .
RHLHA	< B>,<TRC A,<B>>@,<TLC A,(B)>,<`TDC A,[B]>,JFCL
A,[B]>,JFCicP 	`NTXXX A,<B>,ZTXXX A,<icT  ZTXXX A,<B>,ZATXXX A,<icTP 
`VTXXX A,<B>,ZETXXX A,<icU` 
 RTXXX A,<B>,ZNTXXX A,<S@P >}{woP