Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0038/readpl.old
There is 1 other file named readpl.old in the archive. Click here to see a list.
;*********TITLE READPL.MAC APRIL 1970 ***********
; BY PETER LEMKIN AND ALAN CHAUVENET
; NATIONAL INSTITUTES OF HEALTH
; BETHESDA, MD. 20014
;
; THIS PROGRAM READS THE BINARY IMAGE FILE PRODUCED BY
; THE PAL10 ASSEMBLER. IT MUST BE LOADED WITH TALK8F.F4 .
;
;MACRO 10 PROGRAM FOR USE WITH TALK8F, LOADED WITH IT.
;
TITLE READPL
ENTRY READPL
EXTERNAL S8BUF
PASS=10
READPL: 0
MOVEM PASS,SPARE
MOVE PASS,@2(16)
TRNE PASS,1
JRST READ
MOVE PASS,@(16)
MOVEM PASS,INNAME
MOVE PASS,@1(16)
MOVEM PASS,INNAME+1
INIT 16,17
SIXBIT /DSK/
Z
JRST FAIL
LOOKUP 16,INNAME
JRST FAIL
READ: INPUT 16,[IOWD 200,S8BUF+3
0]
STATZ 16,740000
JRST FAIL
MOVE PASS,SPARE
JRA 16,3(16)
FAIL: MOVE PASS,THREE ;SET ARG =3 IF ERROR
MOVEM PASS,@2(16)
JRA 16,3(16) ;RETURN
INNAME: 0
0
0
0
THREE: 3
SPARE: 0
;TITLE CONVER
INTERN CONVER
CONVER: 0
MOVEM 17,REG ;SAVE REG 17
MOVE 17,[XWD 0,SAVE] ;SET UP POINTER
BLT 17,SAVE+7
MOVEI 4,0
MOVEI 5,5
MOVE 2,@0(16)
;CONVERT TO SIXBIT
RET: ROTC 2,1
MOVEI 3,0
ROTC 2,1
JUMPE 3,ONE
JUMPN 3,ZER
RC: ROTC 2,5
ROT 3,36
ROTC 3,6
SOJN 5,RET
ROT 4,6
RETRN: MOVEM 4,@0(16)
MOVSI 17,SAVE
BLT 17,7
MOVE 17,REG
JRA 16,1(16)
ONE: MOVEI 3,1
JUMPA RC
ZER: MOVEI 3,0
JUMPA RC
REG: Z
SAVE: BLOCK 10
END