                                                                                                                                                                                                                                                                                                                                                                                                                                 /STARTING ADDRESS ---YOUR DISCREATION--
/ENTER BY LOAD ADDRESS - READ WITH S.R. = 1 FOR HIGH SPEED READER OR
/S.R. = ZERO FOR TELETYPE
*200
STA,      LAS
         DCA RREG   /READ REG.
         HLT
         LAS     /STARTING STORAGE ADDRESS
          DCA BEGN   /BEGN,   GET IN BEGINNING ADDRESS
         TAD RREG
          SZA CLA
          JMP HSR    /NON ZERO---HSR
RTT,      KSF
         JMP .-1
         KRB
         TLS
         TSF
         JMP .-1
         JMP TEST
HSR,      RFC
          RSF
          JMP .-1
          RRB
         JMP TEST
SPEC,    TAD ZOC   /ZERO ONE COUNTER
          SZA CLA    /1 - LEFT HALF FULL
          JMP .+6
         TAD TEM
         AND C770
          DCA I BEGN
         ISZ BEGN
          JMP X
         TAD TEM1
          DCA I BEGN
         ISZ BEGN
         JMP Y
END,     TAD ZOC
         SNA CLA
          JMP .+6
         TAD TEM1
         DCA I BEGN
         ISZ BEGN
          TAD OONE
          JMP .+2
         CLA IAC
          DCA I BEGN
         DCA ZOC
         TAD BEGN
         HLT
         JMP STA
TEST,    DCA TEM
         TAD TEM
         TAD LT
         SNA CLA   /LEADER TRAILER  0-200
         JMP X
          TAD TEM
          TAD ENDS   /END SIGNAL 0-246
          SNA CLA
          JMP END
          TAD A
          JMS CK
          TAD RET
          JMS CK
          TAD LF
          JMS CK
          TAD EOT
          JMS CK
          TAD WRU
          JMS CK
          TAD RU
          JMS CK
          TAD BELL
          JMS CK
          TAD ACK
          JMS CK
          TAD ALTM
          JMS CK
          TAD RUBO
          JMS CK
         TAD ZOC     /ZERO ONE COUNTER
         SZA
          JMP .+14
         ISZ ZOC
Y,       TAD TEM
         AND C770
         CLL RTL
         RTL
         RTL
         DCA TEM1
X,        TAD RREG
          SZA CLA
         JMP HSR
         JMP RTT
         CLA
         DCA ZOC
         TAD TEM
         AND C770
         TAD TEM1
          DCA I BEGN
          ISZ BEGN
          JMP X
CK,       0
          TAD TEM
          SNA CLA
          JMP SPEC
          JMP I CK
OONE,  0100
A, 0-300
BEGN, 0
RREG, 0
TEM, 0
TEM1, 0
C770, 0077
ZOC, 0
RUBO, 0-377
ALTM, 0-375
ACK, 0-374
BELL, 0-207
RU, 0-206
WRU, 0-205
EOT, 0-204
ENDS, 0-246
LF, 0-212
RET, 0-215
LT, 0-200
$
                                                                                                                   @p