Trailing-Edge
-
PDP-10 Archives
-
AP-D543V_SB
-
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