Return to rhpfloat.s CVS log

Up to [Research Unix] / researchv10no / cmd / PDP11 / fpp

Annotation of researchv10no/cmd/PDP11/fpp/rhpfloat.s, revision 1.1.1.1

1.1       root        1: .globl pfloat,pscien,_ftoa
                      2: .globl _pfloat
                      3: .text
                      4: 
                      5: _pfloat:rts pc
                      6: pfloat:        mov $'f,-(sp)
                      7:        br 1f
                      8: pscien:        mov $'e,-(sp)
                      9: 1:
                     10:        mov r0,-(sp)
                     11:        tst r2
                     12:        bne 3f
                     13:        mov $6,(sp)
                     14: 3:
                     15:        mov r3,-(sp)
                     16:        mov 2(r4),-(sp)
                     17:        mov (r4)+,-(sp)
                     18:        tst (r4)+
                     19:        jsr pc,_ftoa
                     20: 2:     tstb (r3)+
                     21:        bne 2b
                     22:        dec r3
                     23:        add $10.,sp
                     24:        rts pc

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.