                                        1
                                        1 interpretive system (is) loader
                                        1 creates a 1-word load cards 
                                        1 deck by reading cards as 
                                        1 writen in manual 
                                        1
                                        1 this program is manually 
                                        1 assembled (just using soap to
                                        1 load it) as is (1956) predates
                                        1 soap (1957)
                                        1
                                           0880 70 1951  0881 rdcrd rd    loc         read card
                                           0881 60 1951  0892       rau   loc   lbl1  prepare accumulator for move
                                           0882 10 0870  0883 lbl2  au    stw  
                                           0883 15 0871  0884       al    ldw  
                                           0884 10 1952  0885       au    wc          
                                           0885 21 0874  0886       stu   nwc  
                                           0886 11 1952  8002       su    wc  
                                           8002 69 1953  8003       ld    w           move one word form card read area
                                           8003 24 0000  0887       std         
                                           0887 15 0872  0888 nxt   al    iaddr       increase address by 1
                                           0888 10 8001  0889       au    8001  
                                           0889 11 0874  0890       su    nwc         test for end of moving
                                           0890 44 0891  0880       brnzu lbl3  rdcrd
                                           0891 10 0874  8002 lbl3  au    nwc   nxt   return to move another word
                                           0892 44 0893  0880 lbl1  brnzu       rdcrd if loc is zero read next card
                                           0893 11 0873  0894       su    i2000
                                           0894 46 0895  0880       brmin       rdcrd if loc >= 2000 read next card
                                           0895 10 0873  0882       au    i2000 lbl2
                                        1   
                                        1 constants
                                        1   
                                           0870 24 0000  0887 stw   std   0000  nxt  store word
                                           0871 69 1953  8003 ldw   ld    w          load word from card read
                                           0872 00 0001  0000 iaddr 
                                           0873 00 2000  0000 i2000 
                                           0874 00 0000  0000 nwc                    temp variable 
                                        1   
                                        1 card read area
                                        1   
                                        1  1951 00 1002  0000 loc   location     
                                        1  1952 00 0002  0000 wc    word count
                                        1  1953 00 3333  4444 W     word1
                                        1  1954 00 5555  6666       word2
                                        1  1955 00 0000  0000       word3
                                        1  1956 00 0000  0000       word4
                                        1  1957 00 0000  0007       word5
                                        1  1958 00 0000  0008       word6
                                        1   
                                        1   
                                        1 generate system
                                        1 punch the whole is system on a 1 
                                        1 word per card format
                                        1 from 0900 to 1999
                                        1   
                                           0801 65 0852  0802 lblw  ral   loc1        prepare accumulator for move
                                           0802 10 0850  0803       au    stw2  
                                           0803 15 0851  8002       al    ldw2  
                                           8002 69 0000  8003       ld                move one word to card punch area
                                           8003 24 0000  0804       std   ww      
                                           0804 65 0852  0805 p1w   ral   loc1        set word loc in card punch area
                                           0805 15 0854  0806       al    wloc0
                                           0806 20 1979  0807       stl   wloc 
                                           0807 10 1978  0808       au    cnum        set card number in card punch area
                                           0808 10 0855  0809       au    icard 
                                           0809 21 1978  0810       stu   cnum  
                                           0810 71 1977  0811 pch1w pch   1977        punch 1w card
                                           0811 65 0852  0812       ral   loc1
                                           0812 16 0853  0813       sl    loc2
                                           0813 46 0814  9999       brmin       9999  if loc1 >= loc2 terminate
                                           0814 15 0853  0815       al    loc2 
                                           0815 15 0872  0816       al    iaddr       increment loc1
                                           0816 20 0852  0801       stl   loc1  lblw  go punch next word
                                        1   
                                        1 constants
                                        1   
                                           0850 24 1980  0804 stw2  std   wdata p1w  store word for punch
                                           0851 69 0000  8003 ldw2  ld    0000       load word 
                                           0852 00 0900  0000 loc1                   first location to punch
                                           0853 00 1999  0000 loc2                   last location to punch
                                           0854 24 0000  8000 wloc0                  word location on 1e load card format
                                           0855 00 0000  0001 icard                  just one 
                                        1   
                                        1 card punch area (1 word per card load card)
                                        1 make first word negative so is control panel
                                        1 punchs a load card with y(12) hi punch set
                                        1   
                                         - 1977 69 1954  1953                        
                                           1978 00 0000  0000  cnum                  card number 
                                           1979 24 0000  8000  wloc                  word location
                                           1980 00 0000  0000  wdata                 word data in load card
                                           1981 00 0000  0000  
                                           1982 00 0000  0000  
                                           1983 00 0000  0000  
                                           1984 00 0000  0000  
                                           1985 00 0000  0000  
                                           1986 00 0000  0000  
