bisb bittab(r1),table(r0)
/ get one character form the argument string.
/ now get the primes from the table
bitb bittab(r5),table(r4)
/ get one character from the console.
tst r0; bne 9f; sys exit; 9:
/ write one character on the console
/ read and convert a line from the console into fr0.
/ replace the f.p. number in fr0 by its square root
divf r3,r0 / x = (x+a/x)/2
/ complain about a number which the program
bittab: .byte 1, 2, 4, 10, 20, 40, 100, 200
big: 056177; 177777; 177777; 177777
pt: 2.; 3.; 5.; 7.; 11.; 13.; 17.; 19.; 23.; 29.; 31.; 37.; 41.; 43.
47.; 53.; 59.; 61.; 67.; 71.; 73.; 79.; 83.; 89.; 97.
41040; 40400; 40600; 40400; 40600; 40700; 40400; 40700
40600; 40400; 40600; 40700; 40700; 40400; 40700; 40600
40400; 40700; 40600; 40700; 41000; 40600; 40400; 40600
40400; 40600; 41000; 40700; 40600; 40700; 40400; 40600
40700; 40400; 40700; 40700; 40600; 40400; 40600; 40700
40400; 40700; 40600; 40400; 40600; 40400; 41040; 40400