
/
/END OF LINE SEARCH
/THE DELIMITER IS CR = 015
/ENTER  WITH AC = 5/7 ASCII WORD PAIR POINTER
/RETURN WITH AC = 0, CR NOT FOUND
/            AC = -1, CR FOUND
EOLTST 0
       DAC EOL1    /SAVE POINTER
       LAC* EOL1   /GET FIRST WORD
       AND (774000
       SAD (64000
       JMP EOL0    /CR FOUND
       LAC* EOL1
       AND (3760
       SAD (320
       JMP EOL0
       LAC* EOL1
       ISZ EOL1    /POINT TO SECOND WORD
       AND (17
       SAD (1
       SKP         /PARTIALLY FOUND
       JMP .+5     /NOT THAT ONE
       LAC* EOL1
       AND (700000
       SAD (500000
       JMP EOL0      /CR FOUND
      AC* EOL1
       AND (77400
       SAD (6400
       JMP EOL0
       LAC* EOL1
       AND (376
       SAD (32
       JMP EOL0
       CLA           /NOT FOUND
       JMP* EOLTST
EOL0   CLA!CMA
       JMP* EOLTST
EOL1   0
