r3 is now scratch
This commit is contained in:
parent
2962e93407
commit
f7fbe11132
9 changed files with 17 additions and 22 deletions
|
@ -8,8 +8,8 @@
|
|||
.sect .text
|
||||
|
||||
.aar:
|
||||
movd 8(sp), r7
|
||||
subd 0(4(sp)), r7
|
||||
muld 8(4(sp)), r7
|
||||
addd r7, 12(sp)
|
||||
movd 8(sp), r3
|
||||
subd 0(4(sp)), r3
|
||||
muld 8(4(sp)), r3
|
||||
addd r3, 12(sp)
|
||||
ret 8
|
||||
|
|
|
@ -7,9 +7,9 @@
|
|||
|
||||
.sect .text
|
||||
|
||||
!r7 will save return addres
|
||||
!r3 will save return addres
|
||||
.cii:
|
||||
movd tos, r7
|
||||
movd tos, r3
|
||||
cmpqd 4, tos
|
||||
bne 3f
|
||||
movd tos, r0
|
||||
|
@ -23,7 +23,7 @@
|
|||
movd EILLINS, tos
|
||||
jsr @.trp
|
||||
4:
|
||||
movd r7, tos
|
||||
movd r3, tos
|
||||
ret 0
|
||||
1:
|
||||
movxbd 0(sp), 0(sp)
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
|
||||
.sect .text
|
||||
|
||||
.cms: movd tos, r7 !return addres
|
||||
.cms: movd tos, r3 !return addres
|
||||
addr 4(sp), r1
|
||||
movd r1, r2
|
||||
addd 0(sp), r2
|
||||
|
@ -23,7 +23,7 @@
|
|||
xord r1, r1
|
||||
4:
|
||||
adjspd r0
|
||||
movd r7, tos
|
||||
movd r3, tos
|
||||
ret 0
|
||||
2:
|
||||
movd 1, r1
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
|
||||
.sect .text
|
||||
|
||||
.cmu: movd tos, r7 !return addres
|
||||
.cmu: movd tos, r3 !return addres
|
||||
addr 4(sp), r1
|
||||
movd r1, r2
|
||||
addd 0(sp), r2
|
||||
|
@ -24,7 +24,7 @@
|
|||
xord r1, r1
|
||||
4:
|
||||
adjspd r0
|
||||
movd r7, tos
|
||||
movd r3, tos
|
||||
ret 0
|
||||
1:
|
||||
movd 1, r1
|
||||
|
|
|
@ -10,7 +10,6 @@
|
|||
!r0 contains index
|
||||
!r1 contains pointer to csb descriptor
|
||||
.csb:
|
||||
save[r2,r3]
|
||||
movd 4(r1), r2 !number of entries
|
||||
cmpqd 0, r2
|
||||
beq 3f
|
||||
|
@ -23,7 +22,6 @@
|
|||
3: !r1 now contains right pointer
|
||||
cmpqd 0, 0(r1) !test destination addres
|
||||
beq 4f
|
||||
restore[r2,r3]
|
||||
movd 0(r1), tos !jump to destination
|
||||
ret 4
|
||||
2:
|
||||
|
@ -32,5 +30,4 @@
|
|||
4:
|
||||
movd ECASE, tos
|
||||
jsr @.trp
|
||||
restore[r2,r3]
|
||||
ret 0
|
||||
|
|
|
@ -8,7 +8,6 @@
|
|||
.sect .text
|
||||
|
||||
.exg:
|
||||
save [r2,r3]
|
||||
addr 8(sp), r3
|
||||
movd r3, r2
|
||||
addd r0, r3
|
||||
|
@ -19,5 +18,4 @@
|
|||
addr 4(r2), r2
|
||||
addr 4(r3), r3
|
||||
acbd -4, r0, 1b
|
||||
restore[r2,r3]
|
||||
ret 0
|
||||
|
|
|
@ -8,7 +8,7 @@
|
|||
.sect .text
|
||||
|
||||
.los:
|
||||
movd tos, r7
|
||||
movd tos, r3
|
||||
movd tos, r0
|
||||
movd tos, r1
|
||||
cmpqd 1, r0
|
||||
|
@ -21,7 +21,7 @@
|
|||
movd 0(r1), tos
|
||||
acbd -4, r0, 3b
|
||||
4:
|
||||
movd r7, tos
|
||||
movd r3, tos
|
||||
ret 0
|
||||
1:
|
||||
movzbd 0(r1), tos
|
||||
|
|
|
@ -6,9 +6,9 @@
|
|||
|
||||
|
||||
.strhp:
|
||||
movd tos,r7
|
||||
movd tos,r3
|
||||
movd tos,r0
|
||||
movd r7,tos
|
||||
movd r3,tos
|
||||
movd r0,@.reghp
|
||||
! cmpd r0,@.limhp
|
||||
! blo I2
|
||||
|
|
|
@ -8,7 +8,7 @@
|
|||
.sect .text
|
||||
|
||||
.sts:
|
||||
movd tos, r7
|
||||
movd tos, r3
|
||||
movd tos, r0
|
||||
movd tos, r1
|
||||
cmpqd 1, r0
|
||||
|
@ -20,7 +20,7 @@
|
|||
addqd 4, r1
|
||||
acbd -4, r0, 3b
|
||||
4:
|
||||
movd r7, tos
|
||||
movd r3, tos
|
||||
ret 0
|
||||
1:
|
||||
movb tos, 0(r1)
|
||||
|
|
Loading…
Reference in a new issue