ASMB,A,B,L

* This program stores a bit pattern in memory, reads it back, and
* compares it. A constant is added and the sum is stored in the same
* memory location repetitively.
*
* When an overflow is reached the next sequential memory location
* is loaded with the same variable bit patterns.
*
* When the specified ending address is reached the program will
* repeat the test.
*
* If an error occurs, a HLT 33 will be displayed.
*
* Run time is a function of memory size, the value in
* END, and the computer.
*
* adapted from CE Handbook page 22-5
* by Tim Riker <Tim@Rikers.org>

      ORG 10B
      CLO          Starting address
BEG   LDB START    Establish starttng addr to be tested
      STB CURR
      OTB 1        Put addr in S-re 9
LOOP  CCA,CLE,SSA,SLA,INA
      SLA,ERA      A=100000;E=O (35B and 135B both?)
      HLT 11B      Halt 11
STORE STA CURR,I   Store data in memory
      LDB CURR,I   Get data from memory
      CPB 0        Retrieved data = stored data
      JMP OK       = Yes
      HLT 33B      # A-good B=bad
OK    ADA INC      Increment A-reg by loc 40
      SOS C        A-reg=077777+1,clo
      JMP STORE    Nooverflow, continue
      LDB CURR     Current addr=last
      CPB END        addr to be tested?
      JMP BEG      Yes: restart
      ISZ CURR     No: increment addr by 1
      OTB 1        Output new addr to S-reg
      JMP LOOP
CURR  OCT 0        Addr under test by prog
START OCT 41B      Addr to start test on*
END   OCT 77777B   Addr to end test on*
INC   OCT 052525B  Increment data by this value*
* CHANGE FOR DESIRED TEST CONDITIONS