| 1 | |
| 1 example 1 calculate f of x | |
| 1 | |
| 1 f(x) = a*x*x+b*x+c | |
| 1 | |
| 1 card output | |
| 1 word1 word2 | |
| 1 x f(x) | |
| 1 | |
| blr 1951 1960 read area | |
| regp0027 0028 punch area | |
| 1 | |
| synstart 1000 prgm start | |
| 1 | |
| startnop 0000 setx | |
| setx rauone stx set x | |
| stx stup0001 to 1 | |
| mpya calculate | |
| alob f | |
| rau 8002 | |
| mpyp0001 | |
| aloc | |
| stlp0002 | |
| pchp0001 punch | |
| raup0001 is x max | |
| supxmax | |
| nzu 9999 | |
| aupi01 stx step x | |
| 1 | |
| one 00 0000 0001 constants | |
| xmax 00 0000 0100 | |
| i01 00 0000 0101 | |
| 1 | |
| a 00 0000 0002 params | |
| b 00 0000 0003 for f(x) | |
| c 00 0000 0004 | |
| 1 | |
| -neg 00 0000 0006 | |
| -negz 00 0000 0000 |