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
|
.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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue