File:  [Research Unix] / researchv10no / cmd / lcc / gen3 / tst / fields.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

.data
.globl _x
.align 2; _x:.long 1
.byte 2
.space 3
.byte 3
.byte 64
.space 2
.byte 80
.byte 6
.space 2
.globl _i
.align 2; _i:.long 16
.globl _y
.align 2; _y:.byte 35
.space 3
.byte 9
.byte 0
.byte 0
.byte 0
.text
.globl _main
_main:.word 0x0
subl2 $76,sp
moval _3,r1
movl r1,0(sp)
moval _x,r1
movl (r1),r1
movl r1,4(sp)
moval _x+4,r1
movb (r1),r1
cvtbl r1,r1
movl r1,8(sp)
moval _x+8,r1
movl (r1),r1
movl $20,r2
ashl r2,r1,r1
movl $-20,r2
ashl r2,r1,r1
movl r1,12(sp)
moval _x+8,r1
movl (r1),r1
movl $16,r2
ashl r2,r1,r1
movl $-28,r2
ashl r2,r1,r1
movl r1,16(sp)
moval _x+12,r1
movl (r1),r1
movl $25,r2
ashl r2,r1,r1
movl $-29,r2
ashl r2,r1,r1
movl r1,20(sp)
moval _x+13,r1
movb (r1),r1
cvtbl r1,r1
movl r1,24(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval _9,r1
movl r1,0(sp)
moval _y,r1
movl (r1),r1
movl $30,r2
ashl r2,r1,r3
subl3 r2,$32,r0; extzv r2,r0,r3,r2
movl r2,4(sp)
movl $26,r2
ashl r2,r1,r1
movl $28,r2
subl3 r2,$32,r0; extzv r2,r0,r1,r1
movl r1,8(sp)
moval _y+4,r1
movl (r1),r1
movl r1,12(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval _x+8,r1
movl (r1),r2
movl r2,r2
movl $0xf000,r3
bicl3 r3,r2,r2
moval _i,r3
movl (r3),r3
movl r3,r3
movl $28,r4
ashl r4,r3,r3
movl $-28,r4
ashl r4,r3,r3
movl r3,r3
movl $12,r4
ashl r4,r3,r3
movl $0xffff0fff,r4
bicl3 r4,r3,r3
bisl3 r3,r2,r2
movl r2,(r1)
moval _x+12,r1
movl (r1),r2
movl r2,r2
movl $112,r3
bicl3 r3,r2,r2
movl r2,(r1)
moval _3,r1
movl r1,0(sp)
moval _x,r1
movl (r1),r1
movl r1,4(sp)
moval _x+4,r1
movb (r1),r1
cvtbl r1,r1
movl r1,8(sp)
moval _x+8,r1
movl (r1),r1
movl $20,r2
ashl r2,r1,r1
movl $-20,r2
ashl r2,r1,r1
movl r1,12(sp)
moval _x+8,r1
movl (r1),r1
movl $16,r2
ashl r2,r1,r1
movl $-28,r2
ashl r2,r1,r1
movl r1,16(sp)
moval _x+12,r1
movl (r1),r1
movl $25,r2
ashl r2,r1,r1
movl $-29,r2
ashl r2,r1,r1
movl r1,20(sp)
moval _x+13,r1
movb (r1),r1
cvtbl r1,r1
movl r1,24(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval _y,r1
movl (r1),r2
movl $3,r3
bicl3 r3,r2,r2
movl $2,r3
bisl3 r3,r2,r2
movl r2,(r1)
moval _y+4,r1
moval _i,r2
movl (r2),r2
movl r2,r2
movl r2,(r1)
moval _9,r1
movl r1,0(sp)
moval _y,r1
movl (r1),r1
movl $30,r2
ashl r2,r1,r3
subl3 r2,$32,r0; extzv r2,r0,r3,r2
movl r2,4(sp)
movl $26,r2
ashl r2,r1,r1
movl $28,r2
subl3 r2,$32,r0; extzv r2,r0,r1,r1
movl r1,8(sp)
moval _y+4,r1
movl (r1),r1
movl r1,12(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
moval _x,r1
movl r1,0(sp)
moval _f2,r1
calls $0,(r1)
movl r0,r1
ret
.globl _f1
_f1:.word 0x0
subl2 $60,sp
moval 4(ap),r1
movl (r1),r1
movl (r1),r2
movl $60,r3
bicl3 r3,r2,r2
movl r2,(r1)
moval 4(ap),r1
movl (r1),r1
movl (r1),r2
movl $3,r3
bicl3 r3,r2,r2
movl $0,r3
movl $0xfffffffc,r4
bicl3 r4,r3,r3
bicl3 r4,r3,r3
bisl3 r3,r2,r2
movl r2,(r1)
moval 4(ap),r1
movl (r1),r1
movl (r1),r1
movl $0xffffffc3,r2
bicl3 r2,r1,r1
movl $0,r2
cmpl r1,r2; jeqlu L20
moval _22,r1
movl r1,0(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
L20:moval 4(ap),r1
movl (r1),r1
movl (r1),r2
movl $3,r3
bisl3 r3,r2,r2
movl r2,(r1)
moval 4(ap),r1
movl (r1),r1
movl (r1),r2
movl $60,r3
bisl3 r3,r2,r2
movl r2,(r1)
moval _23,r1
movl r1,0(sp)
moval 4(ap),r1
movl (r1),r1
movl (r1),r1
movl $30,r2
ashl r2,r1,r3
subl3 r2,$32,r0; extzv r2,r0,r3,r2
movl r2,4(sp)
movl $26,r2
ashl r2,r1,r1
movl $28,r2
subl3 r2,$32,r0; extzv r2,r0,r1,r1
movl r1,8(sp)
moval _printf,r1
calls $0,(r1)
movl r0,r1
ret
.globl _f2
_f2:.word 0x0
subl2 $56,sp
moval _i,r1
movl (r1),r1
movl $0,r2
cmpl r1,r2; jneq L25
moval -4(fp),r1
movl $1,r2
movl r2,(r1)
moval L26,r1
jmp (r1)
L25:moval -4(fp),r1
movl $0,r2
movl r2,(r1)
L26:moval 4(ap),r1
movl (r1),r1
movl (r1),r2
movl $3,r3
bicl3 r3,r2,r2
moval -4(fp),r3
movl (r3),r3
movl r3,r3
movl $0xfffffffc,r4
bicl3 r4,r3,r3
bicl3 r4,r3,r3
bisl3 r3,r2,r2
movl r2,(r1)
moval 4(ap),r1
movl (r1),r1
movl r1,0(sp)
moval _f1,r2
movl r1,-48(fp)
calls $0,(r2)
movl r0,r2
movl -48(fp),r1
movl (r1),r2
movl $60,r3
bicl3 r3,r2,r2
movl $0,r3
movl r3,r3
movl $0xfffffff0,r4
bicl3 r4,r3,r3
movl $2,r4
ashl r4,r3,r3
movl $0xffffffc3,r4
bicl3 r4,r3,r3
bisl3 r3,r2,r2
movl r2,(r1)
ret
.text 1
_23:.byte 112
.byte 45
.byte 62
.byte 97
.byte 32
.byte 61
.byte 32
.byte 48
.byte 120
.byte 37
.byte 120
.byte 44
.byte 32
.byte 112
.byte 45
.byte 62
.byte 98
.byte 32
.byte 61
.byte 32
.byte 48
.byte 120
.byte 37
.byte 120
.byte 10
.byte 0
_22:.byte 112
.byte 45
.byte 62
.byte 98
.byte 32
.byte 33
.byte 61
.byte 32
.byte 48
.byte 33
.byte 10
.byte 0
_9:.byte 121
.byte 32
.byte 61
.byte 32
.byte 37
.byte 100
.byte 32
.byte 37
.byte 100
.byte 32
.byte 37
.byte 100
.byte 10
.byte 0
_3:.byte 120
.byte 32
.byte 61
.byte 32
.byte 37
.byte 100
.byte 32
.byte 37
.byte 100
.byte 32
.byte 37
.byte 100
.byte 32
.byte 37
.byte 100
.byte 32
.byte 37
.byte 100
.byte 32
.byte 37
.byte 100
.byte 10
.byte 0


unix.superglobalmegacorp.com

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