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

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.