@@ -12,6 +12,8 @@
.csb:
save[r2,r3]
movd 4(r1), r2 !number of entries
+ cmpqd 0, r2
+ beq 3f
movd r1, r3
1:
addd 8, r3 !find addres of next index
@@ -15,6 +15,6 @@
addr 8(fp),tos
movqd 1,tos
bsr _write
- asjspb -12
+ adjspb -12
exit []
ret 0
@@ -22,7 +22,7 @@
movqd 0, @.trpreg
jsr r1
3:
- adjspd $-4
+ adjspd -4
restore [r0, r1]
ret 4
2: