;*********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