1234567891011121314151617181920212223242526272829 |
- .define Ldi, Ldo
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! The subroutine Ldi pushes a four byte object onto the stack.
- ! The address is in registerpair AX.
- ! If the address is already in zeropage Ldo is used.
- Ldi:
- stx ADDR ! address of object (lowbyte)
- sta ADDR+1 ! address of object (highbyte)
- Ldo:
- ldy #3
- 1: lda (ADDR),y ! get lowbyte
- pha
- dey
- lda (ADDR),y ! get highbyte
- tax
- pla
- jsr Push ! do the push
- dey
- bpl 1b ! perform 2 times
- rts
|