123456789101112131415161718192021222324252627282930313233 |
- .define Sts
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! 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
|