1984-12-17 11:03:13 +00:00
|
|
|
.define Stl
|
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 performs the storage of a local which offset
|
|
|
|
|
! is to big.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Stl:
|
|
|
|
|
jsr Locaddr ! get the local address
|
|
|
|
|
jsr Pop ! get the word
|
|
|
|
|
ldy #1
|
|
|
|
|
sta (ADDR),y ! store highbyte
|
|
|
|
|
dey
|
|
|
|
|
txa
|
|
|
|
|
sta (ADDR),y ! store lowbyte
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
