File:  [Research Unix] / researchv10no / cmd / lcc / gen3 / tst / array.s
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

.text
.globl _main
_main:.word 0x0
subl2 $116,sp
moval -8(fp),r1
movl $0,r2
movl r2,(r1)
L1:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L5:moval -4(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r2
moval -8(fp),r3
movl (r3),r3
movl $4,r4
ashl r4,r3,r4
moval _x,r5
addl3 r5,r4,r4
addl3 r4,r2,r2
movl $1000,r4
mull3 r3,r4,r3
addl3 r1,r3,r1
movl r1,(r2)
L6: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 $4,r2
cmpl r1,r2; jlss L5
moval -8(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r2
moval _y,r3
addl3 r3,r2,r2
movl $4,r3
ashl r3,r1,r1
moval _x,r3
addl3 r3,r1,r1
movl r1,(r2)
L2:moval -8(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
moval -8(fp),r1
movl (r1),r1
movl $3,r2
cmpl r1,r2; jlss L1
moval _f,r1
calls $0,(r1)
movl r0,r1
moval -8(fp),r1
movl $0,r2
movl r2,(r1)
L9:moval -12(fp),r1
moval -8(fp),r2
movl (r2),r2
movl $4,r3
ashl r3,r2,r3
moval -60(fp),r4
addl3 r4,r3,r3
movl r3,(r1)
movl $2,r1
ashl r1,r2,r1
moval _y,r2
addl3 r2,r1,r1
movl r3,(r1)
moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L13:moval -4(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r1
moval -12(fp),r2
movl (r2),r2
addl3 r2,r1,r2
moval -8(fp),r3
movl (r3),r3
movl $4,r4
ashl r4,r3,r3
moval _x,r4
addl3 r4,r3,r3
addl3 r3,r1,r1
movl (r1),r1
movl r1,(r2)
L14: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 $4,r2
cmpl r1,r2; jlss L13
L10:moval -8(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
moval -8(fp),r1
movl (r1),r1
movl $3,r2
cmpl r1,r2; jlss L9
moval -60(fp),r1
movl r1,0(sp)
moval _y,r1
movl r1,4(sp)
moval _g,r1
calls $0,(r1)
movl r0,r1
movl $0,r1
movl r1,r0; ret
.globl _f
_f:.word 0x0
subl2 $64,sp
moval -8(fp),r1
movl $0,r2
movl r2,(r1)
L17:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L21:moval _25,r1
movl r1,0(sp)
moval -4(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r1
moval -8(fp),r2
movl (r2),r2
movl $4,r3
ashl r3,r2,r2
moval _x,r3
addl3 r3,r2,r2
addl3 r2,r1,r1
movl (r1),r1
movl r1,4(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L22: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 $4,r2
cmpl r1,r2; jlss L21
L18:moval -8(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
moval -8(fp),r1
movl (r1),r1
movl $3,r2
cmpl r1,r2; jlss L17
moval _26,r1
movl r1,0(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval -8(fp),r1
movl $0,r2
movl r2,(r1)
L27:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L31:moval _25,r1
movl r1,0(sp)
moval -4(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r1
moval -8(fp),r3
movl (r3),r3
ashl r2,r3,r2
moval _y,r3
addl3 r3,r2,r2
movl (r2),r2
addl3 r2,r1,r1
movl (r1),r1
movl r1,4(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L32: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 $4,r2
cmpl r1,r2; jlss L31
L28:moval -8(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
moval -8(fp),r1
movl (r1),r1
movl $3,r2
cmpl r1,r2; jlss L27
moval _26,r1
movl r1,0(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
ret
.globl _g
_g:.word 0x0
subl2 $64,sp
moval -8(fp),r1
movl $0,r2
movl r2,(r1)
L35:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L39:moval _25,r1
movl r1,0(sp)
moval -4(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r1
moval -8(fp),r2
movl (r2),r2
movl $4,r3
ashl r3,r2,r2
moval 4(ap),r3
movl (r3),r3
addl3 r3,r2,r2
addl3 r2,r1,r1
movl (r1),r1
movl r1,4(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L40: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 $4,r2
cmpl r1,r2; jlss L39
L36:moval -8(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
moval -8(fp),r1
movl (r1),r1
movl $3,r2
cmpl r1,r2; jlss L35
moval _26,r1
movl r1,0(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval -8(fp),r1
movl $0,r2
movl r2,(r1)
L43:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L47:moval _25,r1
movl r1,0(sp)
moval -4(fp),r1
movl (r1),r1
movl $2,r2
ashl r2,r1,r1
moval -8(fp),r3
movl (r3),r3
ashl r2,r3,r2
moval 8(ap),r3
movl (r3),r3
addl3 r3,r2,r2
movl (r2),r2
addl3 r2,r1,r1
movl (r1),r1
movl r1,4(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L48: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 $4,r2
cmpl r1,r2; jlss L47
L44:moval -8(fp),r1
movl (r1),r2
movl $1,r3
addl3 r3,r2,r2
movl r2,(r1)
moval -8(fp),r1
movl (r1),r1
movl $3,r2
cmpl r1,r2; jlss L43
moval _26,r1
movl r1,0(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
ret
.data
.globl _y
.align 2; _y:.space 12
.globl _x
.align 2; _x:.space 48
.text 1
_26:.byte 10
.byte 0
_25:.byte 32
.byte 37
.byte 100
.byte 0


unix.superglobalmegacorp.com

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