.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
.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
movd EILLINS, tos
jsr @.trp
4:
- movd r7, tos
+ movd r3, tos
ret 0
1:
movxbd 0(sp), 0(sp)
.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
xord r1, r1
4:
adjspd r0
- movd r7, tos
+ movd r3, tos
ret 0
2:
movd 1, r1
.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
xord r1, r1
4:
adjspd r0
- movd r7, tos
+ movd r3, tos
ret 0
1:
movd 1, r1
!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
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:
4:
movd ECASE, tos
jsr @.trp
- restore[r2,r3]
ret 0
.sect .text
.exg:
- save [r2,r3]
addr 8(sp), r3
movd r3, r2
addd r0, r3
addr 4(r2), r2
addr 4(r3), r3
acbd -4, r0, 1b
- restore[r2,r3]
ret 0
.sect .text
.los:
- movd tos, r7
+ movd tos, r3
movd tos, r0
movd tos, r1
cmpqd 1, r0
movd 0(r1), tos
acbd -4, r0, 3b
4:
- movd r7, tos
+ movd r3, tos
ret 0
1:
movzbd 0(r1), tos
.strhp:
- movd tos,r7
+ movd tos,r3
movd tos,r0
- movd r7,tos
+ movd r3,tos
movd r0,@.reghp
! cmpd r0,@.limhp
! blo I2
.sect .text
.sts:
- movd tos, r7
+ movd tos, r3
movd tos, r0
movd tos, r1
cmpqd 1, r0
addqd 4, r1
acbd -4, r0, 3b
4:
- movd r7, tos
+ movd r3, tos
ret 0
1:
movb tos, 0(r1)