1            /BINARY AND DECTAPE LOADERS FOR
   2            /555 CONTROL
   3            
   4                    *7612
   5 07612 0000 SWITCH, 0
   6 07613 0000 MEMTEM, 0
   7 07614 0000 CHAR,   0
   8 07615 0000 CHKSUM, 0
   9 07616 0000 ORIGIN, 0
  10            
  11                    *7626
  12            /EXTRACT ERRORS, FIELD, L/T
  13 07626 0000 BEGG,   0
  14 07627 3212         DCA SWITCH      /SET SWITCH
  15 07630 4260         JMS READ        /GET A CHARACTER
  16 07631 1300         TAD M376        /TEST FOR 377
  17 07632 7750         SPA SNA CLA 
  18 07633 5237         JMP .+4         /NO
  19 07634 2212         ISZ SWITCH      /YES: COMPLEMENT SWITCH
  20 07635 7040         CMA 
  21 07636 5227         JMP BEGG+1
  22 07637 1212         TAD SWITCH      /NOT 377
  23 07640 7640         SZA CLA         /IS SWITCH SET?
  24 07641 5230         JMP BEGG+2      /YES; IGNORE
  25 07642 1214         TAD CHAR        /NO; TEST FOR CODE
  26 07643 0274         AND MASK        /TYPES
  27 07644 1341         TAD M200
  28 07645 7510         SPA 
  29 07646 2226         ISZ BEGG        /DATA OR ORIGIN
  30 07647 7750         SNA SPA CLA 
  31 07650 5626         JMP I BEGG      /DATA, ORIGIN, OR L/T
  32 07651 1214         TAD CHAR        /FIELD SETTING
  33 07652 0256         AND FMASK
  34 07653 1257         TAD CHANGE
  35 07654 3213         DCA MEMTEM
  36 07655 5230         JMP BEGG+2      /CONTINUE INPUT
  37 07656 0070 FMASK,  0070
  38 07657 6201 CHANGE, CDF
  39 07660 0000 READ,   0
  40 07661 0000         0
  41 07662 6031 LOR,    KSF             /WAIT FOR FLAG
  42 07663 5262         JMP .-1
  43 07664 6036         KRB
  44 07665 3214         DCA CHAR
  45 07666 1214         TAD CHAR
  46 07667 5660         JMP I READ
  47 07670 6011 HIR,    RSF 
  48 07671 5270         JMP .-1
  49 07672 6016         RRB RFC 
  50 07673 5265         JMP LOR+3
  51 07674 0300 MASK,   300
  52            
  53            /TRAILER CODE SEEN
  54 07675 4343 BEND,   JMS ASSEMB
  55 07676 7041         CIA
  56 07677 1215         TAD CHKSUM
  57 07700 7402 M376,   HLT
  58 07701 6032 BEGIN,  KCC
  59 07702 6014         RFC 
  60 07703 6214         RDF
  61 07704 1257         TAD CHANGE
  62 07705 3213         DCA MEMTEM      /SAVE FIELD INSTRUCTION
  63 07706 7604         CLA OSR 
  64 07707 7700         SMA CLA 
  65 07710 1353         TAD HIRI
  66 07711 1352         TAD LORI
  67 07712 3261         DCA READ+1
  68 07713 4226         JMS BEGG
  69 07714 5313         JMP .-1         /IGNORE LEADER
  70 07715 3215 GO,     DCA CHKSUM
  71 07716 1213         TAD MEMTEM
  72 07717 3336         DCA MEMFLD
  73 07720 1214         TAD CHAR
  74 07721 3376         DCA WORD1
  75 07722 4260         JMS READ
  76 07723 3355         DCA WORD2
  77 07724 4226         JMS BEGG        /LOOK AHEAD
  78 07725 5275         JMP BEND        /TRAILER, END
  79 07726 4343         JMS ASSEMB
  80 07727 7420         SNL 
  81 07730 5336         JMP MEMFLD
  82 07731 3216         DCA ORIGIN
  83 07732 1376 CHEX,   TAD WORD1
  84 07733 1355         TAD WORD2
  85 07734 1215         TAD CHKSUM
  86 07735 5315         JMP GO
  87 07736 0000 MEMFLD, 0
  88 07737 3616         DCA I ORIGIN
  89 07740 2216         ISZ ORIGIN
  90 07741 7600 M200,   7600
  91 07742 5332         JMP CHEX
  92 07743 0000 ASSEMB, 0
  93 07744 1376         TAD WORD1
  94 07745 7106         CLL RTL 
  95 07746 7006         RTL 
  96 07747 7006         RTL 
  97 07750 1355         TAD WORD2
  98 07751 5743         JMP I ASSEMB
  99 07752 5262 LORI,   JMP LOR
 100 07753 0006 HIRI,   HIR-LOR
 101 07754 0000         0
 102            WORD1=7776
 103 07755 0000 WORD2,  0000
 104            
 105                    *7777
 106 07777 5301         JMP BEGIN
 107            $