ASMB,A,B,L
      HED THE FIRST SECTION OF LOADER LOADER TAPE   
* 
* 
* 
*  EACH OF THESE INSTRUCTIONS ARE PUNCHED ONTO PAPER TAPE IN THE
*  FOLLOWING FORMAT:
* 
*      BYTE 0:  BIT 4 ON , BITS 3-0 CONTAIN BITS 15-12 OF INSTRUCTION 
*      BYTE 1:  BIT 4 OFF, BITS 3-0 CONTAIN BITS 11- 8 OF INSTRUCTION 
*      BYTE 2:  BIT 4 OFF, BITS 3-0 CONTAIN BITS  7- 4 OF INSTRUCTION 
*      BYTE 3:  BIT 4 OFF, BITS 3-0 CONTAIN BITS  3- 0 OF INSTRUCTION 
* 
*  THE FIRST, THIRD, FIFTH, ETC INSTRUCTIONS ARE STORED IN LOCATION 
*  3003 OCTAL BY THE TOGGLED-IN PROGRAM; THESE INSTRUCTIONS ARE THEN
*  EXECUTED WITH THE A REGISTER CONTAINING THE SECOND, FOURTH, SIXTH, 
*  ETC, RESPECTIVELY, INSTRUCTIONS.  THIS PRODUCES A BOOTSTRAPPING
*  EFFECT.
* 
      ORG 2000B 
      STA 3004B 
      JMP 3000B 
      STA 2000B 
      CLC 0,C 
      STA 2001B 
      CLA,RSS 
      STA 2002B 
      LDA 2056B 
      STA 2003B 
      CLB,CCE 
      STA 2004B 
      JSB 2042B 
      STA 2005B 
      CMB,CCE,INB,SZB 
      STA 2006B 
      JMP 2013B 
      STA 2007B 
      INA,SZA 
      STA 2010B 
      JMP 2003B 
      STA 2011B 
      JMP 100B
      STA 2012B 
      JMP 2000B 
      STA 2013B 
      STB 2054B 
      STA 2014B 
      JSB 2042B 
      STA 2015B 
      JSB 2042B 
      STA 2016B 
      STB 0 
      STA 2017B 
      STB 2057B 
      STA 2020B 
      LDB 2057B 
      STA 2021B 
      ADB 2055B 
      STA 2022B 
      SEZ 
      STA 2023B 
      JMP 2040B 
      STA 2024B 
      JSB 2042B 
      STA 2025B 
      ADA 1 
      STA 2026B 
      STB 2057B,I 
      STA 2027B 
      ISZ 2057B 
      STA 2030B 
      CLE 
      STA 2031B 
      ISZ 2054B 
      STA 2032B 
      JMP 2020B 
      STA 2033B 
      JSB 2042B 
      STA 2034B 
      CPB 0 
      STA 2035B 
      JMP 2002B 
      STA 2036B 
      HLT 11B 
      STA 2037B 
      JMP 2000B 
      STA 2040B 
      HLT 55B 
      STA 2041B 
      JMP 2000B 
      STA 2043B 
      CLB,CME 
      STA 2044B 
      STC 0,C 
      STA 2045B 
      SFS 0 
      STA 2046B 
      JMP 2045B 
      STA 2047B 
      MIB 0 
      STA 2050B 
      SEZ,RSS 
      STA 2051B 
      JMP 2042B,I 
      STA 2052B 
      BLF,CLE,BLF 
      STA 2053B 
      JMP 2044B 
      STA 2055B 
      OCT 160100
      STA 2056B 
      DEC -10 
      STA 2060B 
      LDA 2770B 
      STA 2061B 
      AND 2074B 
      STA 2062B 
      STA 1 
      STA 2063B 
      IOR 2044B 
      STA 2064B 
      STA 2044B 
      STA 2065B 
      LDA 1 
      STA 2066B 
      IOR 2045B 
      STA 2067B 
      STA 2045B 
      STA 2070B 
      LDA 1 
      STA 2071B 
      IOR 2047B 
      STA 2072B 
      STA 2047B 
      STA 2073B 
      JMP 2000B 
      STA 2074B 
      OCT 77
      STA 3004B 
      JMP 2060B 
      END 
                                                                                                                                                                                      