1984-12-17 11:03:13 +00:00
|
|
|
.define Zrl, Zro
|
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
|
|
|
|
|
|
|
|
! 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
|
|
|
|
|
|
|
|
|
|
|
