AppleIIAsm-Collection/source/d1_reqcommon/T.MIN.SUB.MEMFILL
nathanriggs 9f35f32f67 Revision 0.5.0
- massive overhaul of architecture
- first round of optimizations
- first draft of the technical manual for the entire library
- reorganization of directory structure
2019-09-27 16:57:34 -04:00

27 lines
547 B
Plaintext

]FILL EQU BPAR1
]SIZE EQU WPAR2
]ADDR EQU WPAR1
MEMFILL
LDA ]FILL
LDX ]SIZE+1
BEQ :PARTPG
LDY #0
:FULLPG
STA (]ADDR),Y
INY
BNE :FULLPG
INC ]ADDR+1
DEX
BNE :FULLPG
:PARTPG
LDX ]SIZE
BEQ :EXIT
LDY #0
:PARTLP
STA (]ADDR),Y
INY
DEX
BNE :PARTLP
:EXIT
RTS