1985-07-26 11:56:24 +00:00
|
|
|
.define .cii
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
|
|
|
|
!r7 will save return addres
|
|
|
|
|
.cii:
|
|
|
|
|
movd tos, r7
|
|
|
|
|
cmpqd 4, tos
|
|
|
|
|
bne 3f
|
|
|
|
|
movd tos, r0
|
|
|
|
|
cmpqd 1, r0
|
|
|
|
|
beq 1f
|
|
|
|
|
cmpqd 2, r0
|
|
|
|
|
beq 2f
|
|
|
|
|
cmpqd 4, r0
|
|
|
|
|
beq 4f
|
|
|
|
|
3:
|
|
|
|
|
movd EILLINS, tos
|
|
|
|
|
jsr @.trp
|
|
|
|
|
4:
|
|
|
|
|
movd r7, tos
|
|
|
|
|
ret 0
|
|
|
|
|
1:
|
|
|
|
|
movxbd 0(sp), 0(sp)
|
|
|
|
|
br 4b
|
|
|
|
|
2:
|
|
|
|
|
movxwd 0(sp), 0(sp)
|
|
|
|
|
br 4b
|
