Return to struct.s CVS log

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

researchv10 Norman

.text
.globl _addpoint
_addpoint:.word 0x0
subl2 $52,sp
movl r1,-4(fp)
moval 4(ap),r1
movl (r1),r2
moval 12(ap),r3
movl (r3),r3
addl3 r3,r2,r2
movl r2,(r1)
moval 4+4(ap),r1
movl (r1),r2
moval 12+4(ap),r3
movl (r3),r3
addl3 r3,r2,r2
movl r2,(r1)
moval -4(fp),r1
movl (r1),r1
moval 4(ap),r2
moval (r2),r2
movc3 $8,(r2),(r1)
ret
.globl _canonrect
_canonrect:.word 0x0
subl2 $80,sp
movl r1,-4(fp)
moval 4(ap),r1
movl (r1),r1
moval 4+8(ap),r2
movl (r2),r2
cmpl r1,r2; jgeq L8
moval -24(fp),r1
moval 4(ap),r2
movl (r2),r2
movl r2,(r1)
moval L9,r1
jmp (r1)
L8:moval -24(fp),r1
moval 4+8(ap),r2
movl (r2),r2
movl r2,(r1)
L9:moval -20(fp),r1
moval -24(fp),r2
movl (r2),r2
movl r2,(r1)
moval 4+4(ap),r1
movl (r1),r1
moval 4+8+4(ap),r2
movl (r2),r2
cmpl r1,r2; jgeq L17
moval -24(fp),r1
moval 4+4(ap),r2
movl (r2),r2
movl r2,(r1)
moval L18,r1
jmp (r1)
L17:moval -24(fp),r1
moval 4+8+4(ap),r2
movl (r2),r2
movl r2,(r1)
L18:moval -20+4(fp),r1
moval -24(fp),r2
movl (r2),r2
movl r2,(r1)
moval 4(ap),r1
movl (r1),r1
moval 4+8(ap),r2
movl (r2),r2
cmpl r1,r2; jleq L23
moval -28(fp),r1
moval 4(ap),r2
movl (r2),r2
movl r2,(r1)
moval L24,r1
jmp (r1)
L23:moval -28(fp),r1
moval 4+8(ap),r2
movl (r2),r2
movl r2,(r1)
L24:moval -20+8(fp),r1
moval -28(fp),r2
movl (r2),r2
movl r2,(r1)
moval 4+4(ap),r1
movl (r1),r1
moval 4+8+4(ap),r2
movl (r2),r2
cmpl r1,r2; jleq L34
moval -32(fp),r1
moval 4+4(ap),r2
movl (r2),r2
movl r2,(r1)
moval L35,r1
jmp (r1)
L34:moval -32(fp),r1
moval 4+8+4(ap),r2
movl (r2),r2
movl r2,(r1)
L35:moval -20+8+4(fp),r1
moval -32(fp),r2
movl (r2),r2
movl r2,(r1)
moval -4(fp),r1
movl (r1),r1
moval -20(fp),r2
moval (r2),r2
movc3 $16,(r2),(r1)
ret
.globl _makepoint
_makepoint:.word 0x0
subl2 $60,sp
movl r1,-4(fp)
moval -12(fp),r1
moval 4(ap),r2
movl (r2),r2
movl r2,(r1)
moval -12+4(fp),r1
moval 8(ap),r2
movl (r2),r2
movl r2,(r1)
moval -4(fp),r1
movl (r1),r1
moval -12(fp),r2
moval (r2),r2
movc3 $8,(r2),(r1)
ret
.globl _makerect
_makerect:.word 0x0
subl2 $84,sp
movl r1,-4(fp)
moval -20(fp),r1
moval 4(ap),r2
moval (r2),r2
movc3 $8,(r2),(r1)
moval -20+8(fp),r1
moval 12(ap),r2
moval (r2),r2
movc3 $8,(r2),(r1)
moval -20(fp),r1
moval (r1),r1
movc3 $16,(r1),0(sp)
moval _canonrect,r1
moval -4(fp),r2
movl (r2),r2
movl r1,r0
movl r2,r1
calls $0,(r0)
ret
.globl _ptinrect
_ptinrect:.word 0x0
subl2 $52,sp
moval 4(ap),r1
movl (r1),r1
moval 12(ap),r2
movl (r2),r2
cmpl r1,r2; jlss L48
moval 12+8(ap),r2
movl (r2),r2
cmpl r1,r2; jgeq L48
moval 4+4(ap),r1
movl (r1),r1
moval 12+4(ap),r2
movl (r2),r2
cmpl r1,r2; jlss L48
moval 4+4(ap),r1
movl (r1),r1
moval 12+8+4(ap),r2
movl (r2),r2
cmpl r1,r2; jgeq L48
moval -4(fp),r1
movl $1,r2
movl r2,(r1)
moval L49,r1
jmp (r1)
L48:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L49:moval -4(fp),r1
movl (r1),r1
movl r1,r0; ret
.text 1
.align 2; _50:.long 0
.long 0
.align 2; _51:.long 320
.long 320
.align 2; _52:.long -1
.long -1
.long 1
.long 1
.long 20
.long 300
.long 500
.long 400
.text
.globl _main
_main:.word 0x0
subl2 $180,sp
moval -68(fp),r1
moval _50,r2
moval (r2),r2
movc3 $8,(r2),(r1)
moval -76(fp),r1
moval _51,r2
moval (r2),r2
movc3 $8,(r2),(r1)
moval -36(fp),r1
moval _52,r2
moval (r2),r2
movc3 $32,(r2),(r1)
movl $-10,r1
movl r1,0(sp)
movl r1,4(sp)
moval _makepoint,r1
moval -84(fp),r2
movl r1,r0
movl r2,r1
calls $0,(r0)
moval -84(fp),r1
moval (r1),r1
moval -76(fp),r2
moval (r2),r2
movl r1,-152(fp)
movc3 $8,(r2),0(sp)
movl -152(fp),r1
movc3 $8,(r1),8(sp)
moval _addpoint,r1
moval -92(fp),r2
movl r1,r0
movl r2,r1
calls $0,(r0)
moval -92(fp),r1
moval (r1),r1
movl $10,r2
movl r2,0(sp)
movl r2,4(sp)
moval _makepoint,r2
moval -100(fp),r3
movl r1,-152(fp)
movl r3,r1
calls $0,(r2)
movl -152(fp),r1
moval -100(fp),r2
moval (r2),r2
moval -68(fp),r3
moval (r3),r3
movl r1,-152(fp)
movl r2,-148(fp)
movc3 $8,(r3),0(sp)
movl -152(fp),r1
movl -148(fp),r2
movl r1,-152(fp)
movc3 $8,(r2),8(sp)
movl -152(fp),r1
moval _addpoint,r2
moval -108(fp),r3
movl r1,-152(fp)
movl r3,r1
calls $0,(r2)
movl -152(fp),r1
moval -108(fp),r2
moval (r2),r2
movl r2,-148(fp)
movc3 $8,(r1),0(sp)
movl -148(fp),r2
movc3 $8,(r2),8(sp)
moval _makerect,r1
moval -52(fp),r2
movl r1,r0
movl r2,r1
calls $0,(r0)
moval -4(fp),r1
movl $0,r2
movl r2,(r1)
moval L61,r1
jmp (r1)
L58:moval -4(fp),r1
movl (r1),r1
movl $3,r2
ashl r2,r1,r1
moval -36(fp),r2
addl3 r2,r1,r2
movl (r2),r2
movl r2,0(sp)
moval -36+4(fp),r2
addl3 r2,r1,r1
movl (r1),r1
movl r1,4(sp)
moval _makepoint,r1
moval -60(fp),r2
movl r1,r0
movl r2,r1
calls $0,(r0)
moval -60+4(fp),r1
movl (r1),r1
moval _62,r2
movl r2,0(sp)
moval -4(fp),r2
movl (r2),r2
movl $3,r3
ashl r3,r2,r2
moval -36(fp),r3
addl3 r3,r2,r2
movl (r2),r2
movl r2,4(sp)
movl r1,8(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval -60(fp),r1
moval (r1),r1
movc3 $8,(r1),0(sp)
moval -52(fp),r1
moval (r1),r1
movc3 $16,(r1),8(sp)
moval _ptinrect,r1
calls $0,(r1)
movl r0,r1
movl $0,r2
cmpl r1,r2; jneq L65
moval _67,r1
movl r1,0(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L65:moval _68,r1
movl r1,0(sp)
moval -52(fp),r1
movl (r1),r1
movl r1,4(sp)
moval -52+4(fp),r1
movl (r1),r1
movl r1,8(sp)
moval -52+8(fp),r1
movl (r1),r1
movl r1,12(sp)
moval -52+8+4(fp),r1
movl (r1),r1
movl r1,16(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L59:moval -4(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
L61:moval -4(fp),r1
movl (r1),r1
movl r1,r1
movl $4,r2
cmpl r1,r2; jlssu L58
movl $0,r1
movl r1,0(sp)
moval _exit,r1
calls $0,(r1)
movl r0,r1
ret
.text 1
_68:.byte 119
.byte 105
.byte 116
.byte 104
.byte 105
.byte 110
.byte 32
.byte 91
.byte 37
.byte 100
.byte 44
.byte 37
.byte 100
.byte 59
.byte 32
.byte 37
.byte 100
.byte 44
.byte 37
.byte 100
.byte 93
.byte 10
.byte 0
_67:.byte 110
.byte 111
.byte 116
.byte 32
.byte 0
_62:.byte 40
.byte 37
.byte 100
.byte 44
.byte 37
.byte 100
.byte 41
.byte 32
.byte 105
.byte 115
.byte 32
.byte 0

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