r3 is now scratch

This commit is contained in:
ceriel 1991-09-18 19:10:24 +00:00
parent 2962e93407
commit f7fbe11132
9 changed files with 17 additions and 22 deletions

View file

@ -8,8 +8,8 @@
.sect .text .sect .text
.aar: .aar:
movd 8(sp), r7 movd 8(sp), r3
subd 0(4(sp)), r7 subd 0(4(sp)), r3
muld 8(4(sp)), r7 muld 8(4(sp)), r3
addd r7, 12(sp) addd r3, 12(sp)
ret 8 ret 8

View file

@ -7,9 +7,9 @@
.sect .text .sect .text
!r7 will save return addres !r3 will save return addres
.cii: .cii:
movd tos, r7 movd tos, r3
cmpqd 4, tos cmpqd 4, tos
bne 3f bne 3f
movd tos, r0 movd tos, r0
@ -23,7 +23,7 @@
movd EILLINS, tos movd EILLINS, tos
jsr @.trp jsr @.trp
4: 4:
movd r7, tos movd r3, tos
ret 0 ret 0
1: 1:
movxbd 0(sp), 0(sp) movxbd 0(sp), 0(sp)

View file

@ -7,7 +7,7 @@
.sect .text .sect .text
.cms: movd tos, r7 !return addres .cms: movd tos, r3 !return addres
addr 4(sp), r1 addr 4(sp), r1
movd r1, r2 movd r1, r2
addd 0(sp), r2 addd 0(sp), r2
@ -23,7 +23,7 @@
xord r1, r1 xord r1, r1
4: 4:
adjspd r0 adjspd r0
movd r7, tos movd r3, tos
ret 0 ret 0
2: 2:
movd 1, r1 movd 1, r1

View file

@ -7,7 +7,7 @@
.sect .text .sect .text
.cmu: movd tos, r7 !return addres .cmu: movd tos, r3 !return addres
addr 4(sp), r1 addr 4(sp), r1
movd r1, r2 movd r1, r2
addd 0(sp), r2 addd 0(sp), r2
@ -24,7 +24,7 @@
xord r1, r1 xord r1, r1
4: 4:
adjspd r0 adjspd r0
movd r7, tos movd r3, tos
ret 0 ret 0
1: 1:
movd 1, r1 movd 1, r1

View file

@ -10,7 +10,6 @@
!r0 contains index !r0 contains index
!r1 contains pointer to csb descriptor !r1 contains pointer to csb descriptor
.csb: .csb:
save[r2,r3]
movd 4(r1), r2 !number of entries movd 4(r1), r2 !number of entries
cmpqd 0, r2 cmpqd 0, r2
beq 3f beq 3f
@ -23,7 +22,6 @@
3: !r1 now contains right pointer 3: !r1 now contains right pointer
cmpqd 0, 0(r1) !test destination addres cmpqd 0, 0(r1) !test destination addres
beq 4f beq 4f
restore[r2,r3]
movd 0(r1), tos !jump to destination movd 0(r1), tos !jump to destination
ret 4 ret 4
2: 2:
@ -32,5 +30,4 @@
4: 4:
movd ECASE, tos movd ECASE, tos
jsr @.trp jsr @.trp
restore[r2,r3]
ret 0 ret 0

View file

@ -8,7 +8,6 @@
.sect .text .sect .text
.exg: .exg:
save [r2,r3]
addr 8(sp), r3 addr 8(sp), r3
movd r3, r2 movd r3, r2
addd r0, r3 addd r0, r3
@ -19,5 +18,4 @@
addr 4(r2), r2 addr 4(r2), r2
addr 4(r3), r3 addr 4(r3), r3
acbd -4, r0, 1b acbd -4, r0, 1b
restore[r2,r3]
ret 0 ret 0

View file

@ -8,7 +8,7 @@
.sect .text .sect .text
.los: .los:
movd tos, r7 movd tos, r3
movd tos, r0 movd tos, r0
movd tos, r1 movd tos, r1
cmpqd 1, r0 cmpqd 1, r0
@ -21,7 +21,7 @@
movd 0(r1), tos movd 0(r1), tos
acbd -4, r0, 3b acbd -4, r0, 3b
4: 4:
movd r7, tos movd r3, tos
ret 0 ret 0
1: 1:
movzbd 0(r1), tos movzbd 0(r1), tos

View file

@ -6,9 +6,9 @@
.strhp: .strhp:
movd tos,r7 movd tos,r3
movd tos,r0 movd tos,r0
movd r7,tos movd r3,tos
movd r0,@.reghp movd r0,@.reghp
! cmpd r0,@.limhp ! cmpd r0,@.limhp
! blo I2 ! blo I2

View file

@ -8,7 +8,7 @@
.sect .text .sect .text
.sts: .sts:
movd tos, r7 movd tos, r3
movd tos, r0 movd tos, r0
movd tos, r1 movd tos, r1
cmpqd 1, r0 cmpqd 1, r0
@ -20,7 +20,7 @@
addqd 4, r1 addqd 4, r1
acbd -4, r0, 3b acbd -4, r0, 3b
4: 4:
movd r7, tos movd r3, tos
ret 0 ret 0
1: 1:
movb tos, 0(r1) movb tos, 0(r1)