1985-01-08 11:48:43 +00:00
|
|
|
.define cuu
|
1987-01-19 10:51:50 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-01-08 11:48:43 +00:00
|
|
|
|
|
|
|
|
cuu:
|
|
|
|
|
popl RR2, *RR14
|
|
|
|
|
pop R0, *RR14
|
|
|
|
|
pop R1, *RR14
|
|
|
|
|
sub R0, R1 !expansion in bytes
|
|
|
|
|
jr LE, 1f
|
|
|
|
|
sra R0 !expansion in words
|
|
|
|
|
jp EQ, *RR2
|
|
|
|
|
2: push *RR14, $0
|
|
|
|
|
djnz R0, 2b
|
|
|
|
|
jp *RR2
|
|
|
|
|
1: sub R15, R0
|
|
|
|
|
jp *RR2
|
