ASMB,A,B,L

      HED ** bootstrap loader **

A    EQU 0
B    EQU 1
* device code of paper tape reader
XX   EQU 11B

* set b to 77700 (load address)
* set a to 20 (why?)
* start at 20

      ORG 20B
LOOP  STC XX,C     read
LOOP1 SFS XX       1st
      JMP LOOP1    char
      LIA XX       into A
      ALF,ALF      pack
      STC XX,C     read
LOOP2 SFS XX       2nd
      JMP LOOP2    char
      MIA XX       merge into A
      STA B,I      store
      INB          increment pointer
      JMP LOOP     loop