323 lines
4.6 KiB
ArmAsm
323 lines
4.6 KiB
ArmAsm
.line 1 ""
|
|
.seg
|
|
fp := r13
|
|
FP := rr12
|
|
sp := r15
|
|
SP := rr14
|
|
.psec data
|
|
.data
|
|
.psec
|
|
.code
|
|
cps::
|
|
{
|
|
dec sp,#12
|
|
ldm @SP,r8,#6
|
|
ld fp,sp
|
|
inc fp,#8
|
|
sub sp,#~L2-12
|
|
ldl FP(#%fff4),rr0
|
|
ldl FP(#%fff0),rr2
|
|
ldl rr2,#%80000000
|
|
ldl FP(#%ffec),rr2
|
|
ldl rr2,#%7ff00000
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
ldl FP(#%ffe4),rr2
|
|
ldl rr2,FP(#%ffec)
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L24
|
|
ldl rr2,FP(#%ffe4)
|
|
ldl rr2,rr2
|
|
com r2
|
|
com r3
|
|
addl rr2,#1
|
|
ldl FP(#%ffe4),rr2
|
|
L24:
|
|
ldl rr2,#%7ff00000
|
|
and r2,_stkseg+%fff0(fp)
|
|
and r3,_stkseg+%fff2(fp)
|
|
ldl FP(#%ffe0),rr2
|
|
ldl rr2,FP(#%ffec)
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L25
|
|
ldl rr2,FP(#%ffe0)
|
|
ldl rr2,rr2
|
|
com r2
|
|
com r3
|
|
addl rr2,#1
|
|
ldl FP(#%ffe0),rr2
|
|
L25:
|
|
ldl rr2,FP(#%ffe4)
|
|
cpl rr2,_stkseg+%ffe0(fp)
|
|
jpr eq,L26
|
|
ldl rr2,FP(#%ffe0)
|
|
subl rr2,_stkseg+%ffe4(fp)
|
|
ldl FP(#%ffe0),rr2
|
|
ldctlb rl0,flags
|
|
jpr L23
|
|
L26:
|
|
ldl rr2,#%fffff
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
ldl FP(#%ffe4),rr2
|
|
ldl rr2,FP(#%ffec)
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L27
|
|
ldl rr2,FP(#%ffe4)
|
|
ldl rr2,rr2
|
|
com r2
|
|
com r3
|
|
addl rr2,#1
|
|
ldl FP(#%ffe4),rr2
|
|
L27:
|
|
ldl rr2,#%fffff
|
|
and r2,_stkseg+%fff0(fp)
|
|
and r3,_stkseg+%fff2(fp)
|
|
ldl FP(#%ffe0),rr2
|
|
ldl rr2,FP(#%ffec)
|
|
and r2,_stkseg+%fff0(fp)
|
|
and r3,_stkseg+%fff2(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L28
|
|
ldl rr2,FP(#%ffe0)
|
|
ldl rr2,rr2
|
|
com r2
|
|
com r3
|
|
addl rr2,#1
|
|
ldl FP(#%ffe0),rr2
|
|
L28:
|
|
ldl rr2,FP(#%ffe4)
|
|
subl rr2,_stkseg+%ffe0(fp)
|
|
ldl FP(#%ffe4),rr2
|
|
ldctlb rl0,flags
|
|
jpr L23
|
|
L23:
|
|
ld sp,fp
|
|
dec sp,#8
|
|
ldm r8,@SP,#6
|
|
inc sp,#12
|
|
ldctlb flags,rl0
|
|
ret
|
|
~L1 := 32
|
|
~L2 := 36
|
|
}
|
|
|
|
.psec data
|
|
.data
|
|
.psec
|
|
.code
|
|
cpdd::
|
|
{
|
|
dec sp,#12
|
|
ldm @SP,r8,#6
|
|
ld fp,sp
|
|
inc fp,#8
|
|
sub sp,#~L2-12
|
|
ldl FP(#%fff4),rr0
|
|
ldl FP(#%fff0),rr4
|
|
ldl FP(#%ffec),rr2
|
|
ldl FP(#%ffe8),rr6
|
|
ldl rr2,#%80000000
|
|
ldl FP(#%ffdc),rr2
|
|
subl rr2,rr2
|
|
ldl FP(#%ffd8),rr2
|
|
ldl rr2,FP(#%ffec)
|
|
cpl rr2,_stkseg+%ffe8(fp)
|
|
jpr ne,L31
|
|
ldl rr2,FP(#%fff4)
|
|
cpl rr2,_stkseg+%fff0(fp)
|
|
jpr ne,L31
|
|
ldctlb rl0,flags
|
|
jpr L30
|
|
L31:
|
|
ldl rr2,#%7ff00000
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
ldl FP(#%ffe4),rr2
|
|
ldl rr2,FP(#%ffdc)
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L32
|
|
ldl rr2,FP(#%ffe4)
|
|
ldl rr2,rr2
|
|
com r2
|
|
com r3
|
|
addl rr2,#1
|
|
ldl FP(#%ffe4),rr2
|
|
L32:
|
|
ldl rr2,#%7ff00000
|
|
and r2,_stkseg+%fff0(fp)
|
|
and r3,_stkseg+%fff2(fp)
|
|
ldl FP(#%ffe0),rr2
|
|
ldl rr2,FP(#%ffdc)
|
|
and r2,_stkseg+%fff0(fp)
|
|
and r3,_stkseg+%fff2(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L33
|
|
ldl rr2,FP(#%ffe0)
|
|
ldl rr2,rr2
|
|
com r2
|
|
com r3
|
|
addl rr2,#1
|
|
ldl FP(#%ffe0),rr2
|
|
L33:
|
|
ldl rr2,FP(#%ffe4)
|
|
cpl rr2,_stkseg+%ffe0(fp)
|
|
jpr eq,L34
|
|
ldctlb rl0,flags
|
|
jpr L30
|
|
L34:
|
|
ldl rr2,FP(#%ffdc)
|
|
and r2,_stkseg+%fff4(fp)
|
|
and r3,_stkseg+%fff6(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L35
|
|
ldl rr2,FP(#%ffd8)
|
|
subl rr2,_stkseg+%ffec(fp)
|
|
ldl FP(#%ffec),rr2
|
|
callr carry
|
|
ld FP(#%ffd2),r2
|
|
ld r2,FP(#%ffd2)
|
|
neg r2
|
|
ld r3,r2
|
|
exts rr2
|
|
subl rr2,_stkseg+%fff4(fp)
|
|
ldl FP(#%fff4),rr2
|
|
L35:
|
|
ldl rr2,FP(#%ffdc)
|
|
and r2,_stkseg+%fff0(fp)
|
|
and r3,_stkseg+%fff2(fp)
|
|
cpl rr2,#0
|
|
jpr eq,L37
|
|
ldl rr2,FP(#%ffd8)
|
|
subl rr2,_stkseg+%ffe8(fp)
|
|
ldl FP(#%ffe8),rr2
|
|
callr carry
|
|
ld FP(#%ffd2),r2
|
|
ld r2,FP(#%ffd2)
|
|
neg r2
|
|
ld r3,r2
|
|
exts rr2
|
|
subl rr2,_stkseg+%fff0(fp)
|
|
ldl FP(#%fff0),rr2
|
|
L37:
|
|
ldl rr2,FP(#%ffec)
|
|
subl rr2,_stkseg+%ffe8(fp)
|
|
ldl FP(#%ffd4),rr2
|
|
callr carry
|
|
ld FP(#%ffd2),r2
|
|
ld r2,FP(#%ffd2)
|
|
neg r2
|
|
ld r3,r2
|
|
exts rr2
|
|
addl rr2,_stkseg+%fff4(fp)
|
|
subl rr2,_stkseg+%fff0(fp)
|
|
ldl FP(#%ffe4),rr2
|
|
ldl rr2,FP(#%ffd4)
|
|
cpl rr2,#0
|
|
jpr eq,L39
|
|
ldl rr2,FP(#%ffe4)
|
|
cpl rr2,#0
|
|
jpr eq,L38
|
|
L39:
|
|
ldl rr2,FP(#%ffe4)
|
|
testl rr2
|
|
ldctlb rl0,flags
|
|
jpr L30
|
|
L38:
|
|
ld r2,#%1
|
|
test r2
|
|
ldctlb rl0,flags
|
|
jpr L30
|
|
L30:
|
|
ld sp,fp
|
|
dec sp,#8
|
|
ldm r8,@SP,#6
|
|
inc sp,#12
|
|
ldctlb flags,rl0
|
|
ret
|
|
~L1 := 46
|
|
~L2 := 50
|
|
}
|
|
|
|
.psec data
|
|
.data
|
|
.psec
|
|
.code
|
|
cpzs::
|
|
{
|
|
dec sp,#12
|
|
ldm @SP,r8,#6
|
|
ld fp,sp
|
|
inc fp,#8
|
|
sub sp,#~L2-12
|
|
ldl rr2,FP(#%8)
|
|
ldl FP(#%8),rr2
|
|
ldctlb rl0,flags
|
|
jpr L41
|
|
L41:
|
|
ld sp,fp
|
|
dec sp,#8
|
|
ldm r8,@SP,#6
|
|
inc sp,#12
|
|
ldctlb flags,rl0
|
|
ret
|
|
~L1 := 8
|
|
~L2 := 12
|
|
}
|
|
|
|
.psec data
|
|
.data
|
|
.psec
|
|
.code
|
|
cpzd::
|
|
{
|
|
dec sp,#12
|
|
ldm @SP,r8,#6
|
|
ld fp,sp
|
|
inc fp,#8
|
|
sub sp,#~L2-12
|
|
ldl FP(#%fff4),rr0
|
|
ldl FP(#%fff0),rr2
|
|
ldl rr2,#%1
|
|
ldl FP(#%ffec),rr2
|
|
ldl rr2,FP(#%fff4)
|
|
cpl rr2,#0
|
|
jpr ne,L44
|
|
ldl rr2,FP(#%fff0)
|
|
cpl rr2,#0
|
|
jpr ne,L44
|
|
ldctlb rl0,flags
|
|
jpr L43
|
|
L44:
|
|
ldl rr2,FP(#%fff4)
|
|
cpl rr2,#0
|
|
jpr eq,L45
|
|
ldctlb rl0,flags
|
|
jpr L43
|
|
L45:
|
|
ldl rr2,#%1
|
|
ldl FP(#%fff4),rr2
|
|
ldctlb rl0,flags
|
|
jpr L43
|
|
L43:
|
|
ld sp,fp
|
|
dec sp,#8
|
|
ldm r8,@SP,#6
|
|
inc sp,#12
|
|
ldctlb flags,rl0
|
|
ret
|
|
~L1 := 20
|
|
~L2 := 24
|
|
}
|
|
|
|
.psec data
|
|
.data
|