Google
 

Trailing-Edge - PDP-10 Archives - de-10-omona-v-mc9 - typvfu.mac
There are 4 other files named typvfu.mac in the archive. Click here to see a list.
	TITLE	TYPVFU

A=1
B=2
C=3
D=4

START:	RESET
	INIT	1,0
	SIXBIT	/DSK/
	XWD	IBUF
	  HALT	.
	LOOKUP	1,FILE
	  HALT	.
	INIT	2,0
	SIXBIT	/DSK/
	XWD	OBUF,0
	  HALT	.
	ENTER	2,FILEA
	  HALT	.
LOOP:	MOVEI	C,5
LOOPA:	SOSG	IBUF+2
	  JRST	[IN 1,
		 JRST	.+1
		 MOVEI	B,15
		 JSR	PUTCHR
		 MOVEI	B,12
		 JSR	PUTCHR
		 CLOSE	2,
		 EXIT]
	ILDB	A,IBUF+1
	LDB	B,[POINT 2,A,29]
	ADDI	B,"0"
	JSR	PUTCHR
	LDB	B,[POINT 3,A,32]
	ADDI	B,"0"
	JSR	PUTCHR
	LDB	B,[POINT 3,A,35]
	ADDI	B,"0"
	JSR	PUTCHR
	SOJE	C,EOL
	MOVEI	B,","
	JSR	PUTCHR
	JRST	LOOPA
EOL:	MOVEI	B,15
	JSR	PUTCHR
	MOVEI	B,12
	JSR	PUTCHR
	JRST	LOOP

PUTCHR:	Z
	SOSG	OBUF+2
	OUTPUT	2,
	IDPB	B,OBUF+1
	JRST	@PUTCHR

OBUF:	BLOCK	3
IBUF:	BLOCK	3

FILE:	SIXBIT	/NORMAL/
	SIXBIT	/VFU/
	Z
	Z

FILEA:	SIXBIT	/NORMAL/
	SIXBIT	/LST/
	Z
	Z

	END	START