                                                                   /GEORGE FRIEDMAN
/MAN VEHICLE LABORATORY
/MASSACHUSETTS INSTITUTE OF TECHNOLOGY
/CAMBRIDGE, MASSACHUSETTS
/
/PAL MODIFIED FOR DECTAPE - 552 CONTROL
/USES LIBRARY TAPE ON UNIT 8.
/
/PASS 0:    WRITE ENABLED
/           SYMBOLIC TAPE IN READER, READER ON
/           LOAD ADDRESS 200
/           SWITCH REGISTER BITS 0 & 1 DOWN
/           PRESS START
/OTHER PASSES AS USUAL.  SYMBOLIC PROGRAM IS NOW READ FROM DECTAPE.
/DECTAPE ERROR HALTS HAVE NON-ZERO AC, PRESS CONTINUE TO RETRY.
/
/USES DECTAPE READ AND WRITE ROUTINES BY THE SAME AUTHOR.
/PAUSE ONLY HALTS ASSEMBLY DURING PASS3 AND CAN BE USED FOR PAGING.
/
                                                   *5
INTSBI,INTSUB
SYMEND,PASS0-204
FBLOCK,0
*205
NOP
*212
TAD SYMEND
*224
JMS I INTSBI
*232
JMP I PPASS0
*270
NOP       /NO PASS3 LEADER
*372
STOP,CLA
TAD PF
SPA CLA              /ONLY HALT ON PASS 3
HLT
POPJ
PF=134
POPJ=5446
PPASS0,PASS0
*613
NOP       /NO SYMBOL TABLE LEADER
*651
NOP       /NO SYMBOL TABLE TRAILER
*1401
JMP DTREAD
NOP
NOP
*1426
INTSUB,0
KCC
CLA CMA
DCA COUNT1
TAD FBLOCK
DCA BLK
JMP I INTSUB
DTREAD,ISZ COUNT1
JMP PICK
TAD SPNT
SPNT=135
TAD Z C4
C4=62
DCA COR
TAD COR
CIA
TAD SYMEND
AND PMSK
RTL CLL
RTL
RTL
IAC
DCA BLK-1
SKP CLA
HLT
JMS I READ2
COR,6252
.-3
1000
3
BLK,0
TAD BLK
TAD BLK-1
DCA BLK
CMA
TAD COR
DCA Z 11
TAD BLK-1
RTR CLL
RTR
RTR
CIA
DCA COUNT1
PICK,TAD I Z 11
JMP 1404
READ2,7206
COUNT1,0
PMSK,7600
*7052
PASS0,CLA IAC
TAD IAM1
DCA CORE1
TAD IAM1
TAD LT
CIA
TAD SYMEND
AND PMASK
DCA NUMBER
TAD NUMBER
RTL CLL
RTL
RTL
DCA NBLCK
SKP CLA
HLT
JMS I READ1
7400
.-3
1000
1
11
TAD I DTWR-1
DCA Z FBLOCK
TAD Z FBLOCK
LOOP1,DCA BLCK
TAD NUMBER
CIA
DCA CNTR1
TAD IAM1
DCA Z 11
CMA
DCA SWITCH
LOOP2,JMS RDCHAR
ISZ CNTR1
JMP LOOP2
SKP CLA
HLT
DTWR,JMS I WRITE1
CORE1,0
.-3
1000
NBLCK,0
BLCK,0
ISZ SWITCH
JMP I BACK
TAD BLCK
TAD NBLCK
JMP LOOP1
READ1,7206
WRITE1,7200
BACK,NXPA
NXPA=241
SWITCH=111
CNTR1=112
NUMBER=113
RDCHAR,0
KSF
JMP .-1
KRB
SNA
JMP RDCHAR+1
TAD LT
SNA
JMP RDCHAR+1
TAD LF
SNA
JMP RDCHAR+1
TAD FF
SNA
JMP RDCHAR+1
TAD RO
SNA
JMP RDCHAR+1
TAD DS
SNA
JMP .+4
TAD C
DCA I Z 11
JMP I RDCHAR
DCA SWITCH
TAD C
DCA I Z 11
JMP DTWR
LT,-200
LF,200-212
FF,212-214
RO,214-377
DS,377-244
C,244
PMASK=LT
IAM1=115
*7200
DISM=NOP
                        