bne 9f; mov $xx0,-(sp); jmp hit; 9:
/ get one character from the console.
tst r0; bne 9f; sys exit; 9:
/ get one character form the argument string.
/ write one character on the console
/ read and convert a line from the console into fr0.
tenth: 037314; 146314; 146314; 146315
/ complain about a number which the program
big: 056177; 177777; 177777; 177777
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
/ sqrt replaces the f.p. number in fr0 by its
/ square root. newton's method
bic $!200,r0 / retain mode
movf (sp)+,fr0 /initial guess
mulf $half,fr0 / x = (x+a/x)/2