Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0162/josh.unv
There is 1 other file named josh.unv in the archive. Click here to see a list.
x
,5	@P G>tlV HDMOVEI 2,[FH!LDDB.(.CMCFM)]
	H@COMND
	TXNE 1,CM%NOP
	JRST AMKEyS NAvMOVEI 1,-1Na
	RFMOD
	TXZ 2,TT%ECO
	SFMOD,KE{@ O!|MOVEI 1,-1OA
	RFMOD
	TXO 2,TT%ECO
	SFMOD,KK}: PHRROI 1,[AP!SCIZ/A/]
	ESOUTIZ/A/]
	ESOUT]Vm}: LfMOVEI 1,.PL!RIOU
	MOVE 2,A
	MOVEI 3,^D10
	L`NOUT
	  JRST BOUT
	  JRST B_W$: M!jMOVEI 1,"A"
	PBOUT 1,"a9  IJCOMND
	TXI!NE 1,CM%NOP
	JRST AM%NOP
	JRSaJL<@ MapHRROI 1,[ANSCIZ/
/]
	PSOUTIZ/
/]
	PSOUTaJMm IaPHRROI 1,[AJSCIZ/A/]
	PSOUTIZ/A/]
	PSOUTeH1 KA\MOVSI 17,A
	BLT 17,17,g4y JAXMOVEM 17,JaA+17
	MOVEI 17,KA
	BLT 17,A+16
	BLT 17,A+16g&+ QAMOVEI 1,-1Qa
	RFCOC
	TXO 2,R1B17
	TXZ 2,1B16
	SFCOC 2,1B16g2,\ PaMOVEI 1,^DQ<A>*^D1000
	DISMS*^D1000
	DISlHU DA.
CM%RAI+A
	.PRIIN,,.PRIOU
	POINT 7,[ASCIZ/E B/]
	POINT 7,CE@
	POINT 7,C
	2E`00
	0
	POINT 7,D
	200
	E7,S@P +y F!<HRROI 1,BFA
	MOVE 2,[.FHSLFF`,,-1]
	SETZ 3,
G	ERSTR
	JFCL
	JG FCL
	HRROI 1,B
	ESOUT
	JRST AESOUT
	JRST A>}{woP