1985-07-26 11:56:24 +00:00
|
|
|
.define .cms
|
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
|
|
|
|
|
|
|
|
.cms: movd tos, r7 !return addres
|
|
|
|
|
addr 4(sp), r1
|
|
|
|
|
movd r1, r2
|
|
|
|
|
addd 0(sp), r2
|
|
|
|
|
movd 0(sp), r0
|
|
|
|
|
muld -2, r0
|
|
|
|
|
subd 4, r0
|
|
|
|
|
3:
|
|
|
|
|
cmpd 0(r2), 0(r1)
|
|
|
|
|
bne 2f
|
|
|
|
|
addr 4(r1), r1
|
|
|
|
|
addr 4(r2), r2
|
|
|
|
|
acbd -4, 0(sp), 3b
|
|
|
|
|
xord r1, r1
|
|
|
|
|
4:
|
|
|
|
|
adjspd r0
|
|
|
|
|
movd r7, tos
|
|
|
|
|
ret 0
|
|
|
|
|
2:
|
|
|
|
|
movd 1, r1
|
|
|
|
|
br 4b
|
