1984-12-17 11:03:13 +00:00
|
|
|
.define Sts
|
1987-01-30 18:41:42 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1984-12-17 11:03:13 +00:00
|
|
|
|
|
|
|
|
! This subroutine stores indirect a number of bytes.
|
|
|
|
|
! The number of bytes is in the registerpair AX.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Sts:
|
|
|
|
|
cmp #0
|
|
|
|
|
bne 3f ! number of bytes > 255
|
|
|
|
|
cpx #1
|
|
|
|
|
bne 1f ! onebyte storage
|
|
|
|
|
jsr Pop ! get the address
|
|
|
|
|
jmp Sti1 ! store the byte
|
|
|
|
|
1: cpx #2
|
|
|
|
|
bne 2f ! twobyte storage
|
|
|
|
|
jsr Pop ! get the address
|
|
|
|
|
jmp Sti ! store the word
|
|
|
|
|
2: cpx #4
|
|
|
|
|
bne 3f ! fourbyte storage
|
|
|
|
|
jsr Pop ! get the address
|
|
|
|
|
jmp Sdi ! store the double word
|
|
|
|
|
3: sta ARTH+1 ! objectsize > 4
|
|
|
|
|
txa
|
|
|
|
|
tay
|
|
|
|
|
jsr Pop ! get address
|
|
|
|
|
jmp Stil ! store the object
|
|
|
|
|
|
|
|
|
|
|
