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
.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

View file

@ -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)

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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)