lb25. mr1 $
   mr2 $
   1 = br1 $
   1 = br2 $
   lmar $
   lctr $
   a1 = $
   a2 = $
plce. a3 = $
   b = $
   a1 + b = a1 $
   a1 + 1 = a2 $
   a3 + b + 1 = mir $
   a2 - b - 1 = b $
   a3 and not b r = mar $
   inc $
   csar $
   set lc1 $
   set lc2 $
   not a1 = $
   not a2 = $
   not a3 = $
   not b = $
   a1 + b001 = $
   a2 and btf0 = $
   a3 or bftt = $
   lit xor ctr = $
   if rdc then a1 + b l = mir, bex, inc, retn else jump $
   a1 - b = ampcr, mw2, if aov then jump else retn $
   step $
   jump $
   call  $
   exec $
   retn $
   b = ampcr $
commnt literal assignment statements follow $
   2 = lit $
   comp 12 = lit $
   5 = slit $
   23 = sar $
   2345 = ampcr $
   plce - 1 = ampcr $
   plce = ampcr $
   2 = lit, 4 = sar $
   comp 16 = sar, 127 = lit $
   end $
