|
|
1.1 ! root 1: .pa 1 ! 2: .he 'ATOF (III)'1/15/73'ATOF (III)' ! 3: .ti 0 ! 4: NAME atof -- ascii to floating ! 5: .sp ! 6: .ti 0 ! 7: SYNOPSIS jsr r5,atof; subr ! 8: .sp ! 9: .ti 0 ! 10: DESCRIPTION atof____ ! 11: will convert an ascii stream to a floating ! 12: number returned in fr0. ! 13: ! 14: The subroutine subr____ ! 15: (supplied by the caller) ! 16: is called on r5 for each character of the ! 17: ascii stream. ! 18: subr____ should return the character in r0. ! 19: The first character not used in the conversion ! 20: is left in r0. ! 21: .sp ! 22: The only numbers recognized are: an optional minus ! 23: sign followed by a string of digits optionally containing ! 24: one decimal point, then followed optionally by the ! 25: letter "e" followed by a signed integer. ! 26: .sp ! 27: The subroutine subr____ must not disturb any registers. ! 28: .sp ! 29: .ti 0 ! 30: FILES kept in /lib/liba.a ! 31: .sp ! 32: .ti 0 ! 33: SEE ALSO Calls atoi (III) ! 34: .sp ! 35: .ti 0 ! 36: DIAGNOSTICS There are none; overflow results in a very large ! 37: number and garbage characters terminate the scan. ! 38: .sp ! 39: .ti 0 ! 40: BUGS The ! 41: routine should accept initial "+", initial blanks, and "E" for "e". ! 42: ! 43: Overflow should be signalled with the carry bit.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.