Return to cf.s CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst

Annotation of researchv10no/cmd/lcc/gen2/mc-sun/tst/cf.s, revision 1.1

1.1     ! root        1: .text
        !             2: .globl _main
        !             3: .align 2
        !             4: _main:link a6,#-84
        !             5: fmovemx #0xb1,a6@(-48)
        !             6: moveml #0x4f8,a6@(-72)
        !             7: cmpl #1,a6@(8); jgt L2
        !             8: fmoves L4:l,fp7
        !             9: jra L3
        !            10: L2:
        !            11: movl a6@(12),a2
        !            12: movl a2@(4),sp@
        !            13: jbsr _atof:l; movl d0,sp@-; fmoves sp@+,fp0
        !            14: fmovex fp0,fp3; fdivs L5:l,fp3
        !            15: fmovex fp3,fp7
        !            16: L3:
        !            17: clrl d7
        !            18: L6:
        !            19: movl d7,d4
        !            20: movl d4,d3; addql #1,d3
        !            21: movl d3,d7
        !            22: fmoves L4:l,fp3
        !            23: fmoves fp3,@(_f:l,d4:l:4)
        !            24: L7:
        !            25: cmpl #127,d7; jle L6
        !            26: clrl d6
        !            27: jra L11
        !            28: L10:
        !            29: lea @(_f:l,d5:l:4),a2
        !            30: fmoves a2@,fp3
        !            31: fadds L13:l,fp3
        !            32: fmoves fp3,a2@
        !            33: addql #1,d6
        !            34: L11:
        !            35: jbsr _getchar:l
        !            36: movl d0,d5
        !            37: cmpl #-1,d0; jne L10
        !            38: movl #L14,sp@
        !            39: jbsr _printf:l
        !            40: clrl d7
        !            41: L15:
        !            42: fmoves @(_f:l,d7:l:4),fp3
        !            43: fcmps L4:l,fp3; fjeq L19
        !            44: fmovel d6,fp2
        !            45: fmoves fp2,d0; fmoves d0,fp2
        !            46: fdivx fp2,fp3
        !            47: fcmpx fp7,fp3; fjlt L19
        !            48: cmpl #32,d7; jgt L21
        !            49: movl #L23,sp@
        !            50: movl d7,sp@(4)
        !            51: jbsr _printf:l
        !            52: jra L22
        !            53: L21:
        !            54: movl #L24,sp@
        !            55: movl d7,sp@(4)
        !            56: jbsr _printf:l
        !            57: L22:
        !            58: movl #L25,sp@
        !            59: fmoves L5:l,fp3
        !            60: fmuls @(_f:l,d7:l:4),fp3
        !            61: fmovel d6,fp2
        !            62: fmoves fp2,d0; fmoves d0,fp2
        !            63: fdivx fp2,fp3
        !            64: fmoved fp3,sp@(4)
        !            65: jbsr _printf:l
        !            66: L19:
        !            67: L16:
        !            68: addql #1,d7
        !            69: cmpl #127,d7; jle L15
        !            70: clrl d0
        !            71: L1:
        !            72: moveml a6@(-72),#0x4f8
        !            73: fmovemx a6@(-48),#0xb1
        !            74: unlk a6
        !            75: rts
        !            76: .bss
        !            77: .globl _f
        !            78: .comm _f,512
        !            79: .text
        !            80: .align 2; L25:.ascii "\011%.1f\012\000"
        !            81: .align 2; L24:.byte 37,99,0
        !            82: .align 2; L23:.ascii "%03o\000"
        !            83: .align 2; L14:.ascii "char\011freq\012\000"
        !            84: .align 2; L13:.long 0x3f800000
        !            85: .align 2; L5:.long 0x42c80000
        !            86: .align 2; L4:.long 0x0

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