Return to cf.s CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / gen3 / tst

researchv10 Norman

.text
.globl _main
_main:.word 0x0
subl2 $76,sp
moval 4(ap),r1
movl (r1),r1
movl $1,r2
cmpl r1,r2; jgtr L1
moval -16(fp),r1
moval _3,r2
movf (r2),r2
movf r2,(r1)
moval L2,r1
jmp (r1)
L1:moval 8(ap),r1
movl (r1),r1
movl $4,r2
addl3 r2,r1,r1
movl (r1),r1
movl r1,0(sp)
moval _atof,r1
calls $0,(r1)
movf r0,r1
moval -16(fp),r2
moval _4,r3
movf (r3),r3
divf3 r3,r1,r1
movf r1,(r2)
L2:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L5:moval -4(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r3
movl r3,(r1)
movl $2,r1
ashl r1,r2,r1
moval _f,r2
addl3 r2,r1,r1
moval _3,r2
movf (r2),r2
movf r2,(r1)
L6:moval -4(fp),r1
movl (r1),r1
movl $127,r2
cmpl r1,r2; jleq L5
moval -8(fp),r1
movl $0,r2
movl r2,(r1)
moval L10,r1
jmp (r1)
L9:moval -12(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r1
moval _f,r2
addl3 r2,r1,r1
movf (r1),r2
moval _12,r3
movf (r3),r3
addf3 r3,r2,r2
movf r2,(r1)
moval -8(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
L10:moval _getchar,r1
calls $0,(r1)
movl r0,r1
moval -12(fp),r2
movl r1,(r2)
movl $-1,r2
cmpl r1,r2; jneq L9
moval _13,r1
movl r1,0(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L14:moval -4(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r1
moval _f,r2
addl3 r2,r1,r1
movf (r1),r1
moval _3,r2
movf (r2),r2
cmpf r1,r2; jeql L18
moval -8(fp),r2
movl (r2),r2
cvtld r2,r2
cvtdf r2,r2
divf3 r2,r1,r1
moval -16(fp),r2
movf (r2),r2
cmpf r1,r2; jlss L18
moval -4(fp),r1
movl (r1),r1
movl $32,r2
cmpl r1,r2; jgtr L20
moval _22,r1
movl r1,0(sp)
moval -4(fp),r1
movl (r1),r1
movl r1,4(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval L21,r1
jmp (r1)
L20:moval _23,r1
movl r1,0(sp)
moval -4(fp),r1
movl (r1),r1
movl r1,4(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L21:moval _24,r1
movl r1,0(sp)
moval _4,r1
movf (r1),r1
moval -4(fp),r2
movl (r2),r2
movl $2,r3
ashl r3,r2,r2
moval _f,r3
addl3 r3,r2,r2
movf (r2),r2
mulf3 r2,r1,r1
moval -8(fp),r2
movl (r2),r2
cvtld r2,r2
cvtdf r2,r2
divf3 r2,r1,r1
cvtfd r1,r1
movd r1,4(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L18:L15:moval -4(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
moval -4(fp),r1
movl (r1),r1
movl $127,r2
cmpl r1,r2; jleq L14
movl $0,r1
movl r1,r0; ret
.data
.globl _f
.align 2; _f:.space 512
.text 1
_24:.byte 9
.byte 37
.byte 46
.byte 49
.byte 102
.byte 10
.byte 0
_23:.byte 37
.byte 99
.byte 0
_22:.byte 37
.byte 48
.byte 51
.byte 111
.byte 0
_13:.byte 99
.byte 104
.byte 97
.byte 114
.byte 9
.byte 102
.byte 114
.byte 101
.byte 113
.byte 10
.byte 0
.align 2; _12:.long 0x4080
.align 2; _4:.long 0x43c8
.align 2; _3:.long 0x0

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