31 lines
390 B
ArmAsm
31 lines
390 B
ArmAsm
! @[$] execle.s 2.1 09/12/83 11:40:35 - 87wega3.2 !
|
|
|
|
execle module
|
|
|
|
external
|
|
cerror procedure
|
|
|
|
global
|
|
_execle procedure
|
|
entry
|
|
ld r0,@r15
|
|
ex r0,r7
|
|
ld @r15,r2
|
|
push @r15,r3
|
|
push @r15,r4
|
|
push @r15,r5
|
|
push @r15,r6
|
|
ld r1,r15
|
|
ld r2,r1
|
|
ld r3,#%8000
|
|
xor r4,r4
|
|
cpir r4,@r2,r3,z
|
|
ld r2,@r2
|
|
sc #59
|
|
ld r2,r4
|
|
inc r15,#8
|
|
ld @r15,r7
|
|
jp cerror
|
|
end _execle
|
|
end execle
|