|
|
1.1 ! root 1: .th FTOO III 1/15/73 ! 2: .sh NAME ! 3: ftoo \*- floating to octal conversion ! 4: .sh SYNOPSIS ! 5: .ft B ! 6: jsr r5,ftoo; subr ! 7: .ft R ! 8: .sh DESCRIPTION ! 9: .it ftoo ! 10: will convert the floating point number ! 11: in fr0 into ascii in the conventional octal form ! 12: .s3 ! 13: 000000;000000;000000;000000 ! 14: .s3 ! 15: For each character generated by ftoo, the subroutine ! 16: .it subr ! 17: (supplied by the caller) is called on register r5 ! 18: with the character in r0. ! 19: .s3 ! 20: The \fIsubr\fR must not disturb any registers.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.