| 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 |