1234567891011121314151617181920212223 |
- .define Zrl, Zro
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! The subroutine Zrl makes a local zero which offset is to big.
- ! The offset of the local is in registerpair AX.
- ! The subroutine Zro is used if the address is already in zeropage.
- Zrl:
- jsr Locaddr ! get address of local
- Zro:
- lda #0
- tay
- sta (ADDR),y ! lowbyte = 0
- iny
- sta (ADDR),y ! highbyte = 0
- rts
|