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