
                               deck 21. extra instr for general computing 
                                                set loopbox O2=800
                                                tr zero     O2=453

21   1 1800 00 0000 0970       set loopbox: 0 800 00r nnn    
                                 if r=0 resets loopbox (= 000 000 000)
                                 if r=1 sets loopbox for a-param, with value 0-999 from float 
                                        contents of register nnn. clears loobox value 
                                        for b and c. if float value at register is outside 
                                        range 0-999 program stops at 2222
                                 if r=2 sets loobox for b
                                 if r=3 sets loobox for c

21   2 0998 00 1000 0000   param1m (const to decrement param)
21   3 0997 35 0006 0987   bxa    slt   0006   svlb
21   4 0996 35 0003 0987   bxb    slt   0003   svlb 
21   5 0995 00 0000 0987   bxc    nop          svlb
21   6 0994 60 0000 0950   fldc   rau   0000   setb1
21   7 0993 00 0000 0000   shbx   
21   8 0992 00 0000 0000   svfc
21   9 0991 01 0000 0000   hi01
21  10 0990 50 0000 0000   hi50


21  11 0970 65 1045 0971          ral   paramb        is nnn0000000
21  12 0971 45 0972 0987          brnz  (cont) svlb
21  13 0972 16 0998 0973          sl    param1m
21  14 0973 45 0975 0977          brnz  (cont) seta
21  15 0975 16 0998 0976          sl    param1m
21  16 0976 45 0979 0978          brnz  setc   setb
21  17 0977 69 0997 0980   seta   ld    bxa    setbx
21  18 0978 69 0996 0980   setb   ld    bxb    setbx
21  19 0979 69 0995 0980   setc   ld    bxc    setbx
21  20 0980 24 0993 0981   setbx  std   shbx 
21  21 0981 65 1023 0982          ral   paramc        lower acc is nnn0000000
21  22 0982 30 0003 0983          srt   3                          00 0nnn 000
21  23 0983 15 0994 8002          al    fldc   8002 
                            8002  rau   [c]    setb1  read float value at [c] as nnnxxxxxee
21  24 0984 35 0003 0985   setb2  slt   3             upper acc is 000000nnn  
21  25 0985 16 8002 0986   setb3  sl    8002          clear lower acc
21  26 0986 69 0993 8001          ld    shbx   8001
                            8001  slt   [0,3,6]       upper acc is 000 000 nnn, 000 nnn 000, or nnn 000 000
21  27 0987 21 1017 1095   svlb   stu   lbox   1095   save loopbox

21  28 0950 21 0992 0951   setb1  stu   svfc          save [c] float value
21  29 0951 44 0952 0987          brnzu        svlb   if [c] is zero go to save loopbox 
21  30 0952 46 1315 0953          brmin 1315          if [c] is <0 go to 2222 stop
21  31 0953 35 0008 0954          slt   8             upper acc is ee00000000
21  32 0954 11 0990 0955          su    hi50
21  33 0955 44 0956 0962          brnzu        i00n   jump if [c] is in range 0-9
21  34 0956 11 0991 0957          su    hi01
21  35 0957 44 0958 0961          brnzu        i0nn   jump if [c] is in range 10-99
21  36 0958 11 0991 0959          su    hi01
21  37 0959 44 1315 0960          brnzu 1315   innn   jump if [c] is in range 100-999, else go to 2222 stop
21  38 0960 69 0969 0963    innn  ld    stnnn  ixxx
21  39 0961 69 0968 0963    i0nn  ld    stn0n  ixxx
21  40 0962 69 0967 0963    i00n  ld    st00n  ixxx
21  41 0963 24 0984 0964    ixxx  std   setb2
21  42 0964 65 0992 0984          ral   svfc   setb2

21  43 1453 60 1009 0965          rau   last          get last result                

                               tr zero: 0 453 bbb ccc   
                                 goto b if last result is zero
                                 goto c if last result is non zero

21  44 0965 30 0002 0966          srt   2
21  45 0966 44 1120 0974          brnzu gotoc  gotob
21  46 0974 60 1045 1027    gotob rau   paramb goto

21  47 0967 35 0001 0985    st00n slt   1      setb3
21  48 0968 35 0002 0985    st0nn slt   2      setb3
21  49 0969 35 0003 0985    stnnn slt   3      setb3

21  50 0988 00 0000 0000                               vacant location
21  51 0989 00 0000 0000                               vacant location
