Trailing-Edge
-
PDP-10 Archives
-
decuslib10-08
-
43,50503/readt.mac
There are no other files named readt.mac in the archive.
TITLE READT
SUBTTL GARCIA-JURADO 28-MAR-74
ENTRY READT,INITT
SEARCH MACTEN,UUOSYM,SCNMAC
REPEAT 0,< SUBRUTINA PARA LEER CINTA PERFORADA EN
MODO IMAGEN REGRESANDO COMO TRES CIFRAS OCTALES
LOS OCHO BITS DE LA CINTA.>
AC=0
INCHN=17
INITT: 0
INIT INCHN,.IOIMG
SIXBIT /PTR/
XWD 0,IB
JRST NOINI
INBUF INCHN,
JRA 16,(16)
NOINI: TTCALL 3,NOAV
CALL [SIXBIT .EXIT.]
NOAV: ASCIZ /PTR NO DISPONIBLE.
/
TEM: 0
IB: BLOCK 3
READT: 0
SOSLE IB+2
JRST READ
INPUT INCHN,
STATZ INCHN,740000
JRST EXIT
STATZ INCHN,IO.EOF
JRST EXIT
READ: ILDB AC,IB+1
MOVEM AC,TEM
ANDI AC,7
MOVEM AC,@2(16)
MOVE AC,TEM
ROT AC,-3
ANDI AC,7
MOVEM AC,@1(16)
MOVE AC,TEM
ROT AC,-6
ANDI AC,7
MOVEM AC,@(16)
EXIT: JRA 16,3(16)
END