mirror of
https://github.com/PDP-10/its.git
synced 2026-03-06 19:31:20 +00:00
80 lines
935 B
Groff
Executable File
80 lines
935 B
Groff
Executable File
TITLE READ THE TAPE
|
||
A=1
|
||
B=2
|
||
C=3
|
||
D=4
|
||
E=5
|
||
W=16
|
||
P=17
|
||
MAGI=10
|
||
DSK=11
|
||
TYO=12
|
||
START: MOVE P,PDL
|
||
.OPEN MAGI,MAG
|
||
.VALUE
|
||
.OPEN DSK,DSKO
|
||
.VALUE
|
||
LP0: MOVE B,[-1,,MAGBUF]
|
||
.IOT MAGI,B
|
||
SKIPGE B
|
||
JRST DONE
|
||
MOVSI A,-4
|
||
MOVE C,[441000,,MAGBUF]
|
||
MOVE D,[440700,,DSKBUF]
|
||
LP: ILDB E,C
|
||
IDPB E,D
|
||
AOBJN A,LP
|
||
MOVE B,[-1,,DSKBUF]
|
||
.IOT DSK,B
|
||
JRST LP0
|
||
DONE: .CLOSE MAGI,
|
||
.CLOSE DSK,
|
||
.VALUE [ASCIZ /:DONE. ALT P TO READ MOREî/]
|
||
JRST START
|
||
|
||
STOP: MOVE A,[MAGI,,[11]]
|
||
.MTAPE A,
|
||
JFCL
|
||
.CLOSE MAGI,
|
||
|
||
REWIND: .OPEN MAGI,MAG
|
||
.VALUE
|
||
MOVE A,[MAGI,,[1]]
|
||
.MTAPE A,
|
||
.VALUE
|
||
.CLOSE MAGI,
|
||
.VALUE
|
||
|
||
SPACE: .OPEN MAGI,MAG
|
||
.VALUE
|
||
MOVE B,[MAGI,,A]
|
||
MOVEI A,7
|
||
.MTAPE B,
|
||
.VALUE
|
||
.CLOSE MAGI,
|
||
.VALUE
|
||
|
||
EOT: .OPEN MAGI,MAG
|
||
.VALUE
|
||
MOVE B,[MAGI,,[10]]
|
||
.MTAPE B,
|
||
.VALUE
|
||
.CLOSE MAGI,
|
||
.VALUE
|
||
|
||
DSKBUF: 0
|
||
MAGBUF: 0
|
||
MAG: 426,,(SIXBIT /MT0/)
|
||
0
|
||
0
|
||
|
||
DSKO: SIXBIT / 'DSK/
|
||
FNAM1: SIXBIT /JLKTAP/
|
||
FNAM2: SIXBIT />/
|
||
|
||
|
||
PDL: -100,,PDL1
|
||
PDL1: BLOCK 100
|
||
|
||
END START
|
||
|