123456789101112131415161718192021222324252627282930313233343536 |
- FILL MACRO ADDR,DATA,COUNT ;THIS FILLS AN AREA WITH A CONSTANT
- LDA &DATA
- LDX &COUNT
- F&INDX STA &ADDR-1,X
- DEX
- BNE F&INDX
- ENDM
- LOAD MACRO ADDR1,ADDR2,COUNT ;THIS MOVES DATA FROM ONE AREA TO ANOTH
- LDX &COUNT
- L&INDX LDA &ADDR2-1,X
- STA &ADDR1-1,X
- DEX
- BNE L&INDX
- ENDM
- PFILL MACRO ADDR,DATA,PAGENUM ;THIS FILLS A NUMBER OF PAGES
- LDA #H(&ADDR) ;TEMP0 AND TEMP1 ARE USED
- STA TEMP1
- LDA #L(&ADDR)
- STA TEMP0
- LDA &DATA
- LDX &PAGENUM
- JSR PFILLIT
- ENDM
- PLOAD MACRO ADDR,ADDR2,PAGENUM ;THIS LOADS A NUMBER OF PAGES
- LDA #H(&ADDR) ;TEMP0 - TEMP3 ARE USED
- STA TEMP1
- LDA #L(&ADDR)
- STA TEMP0
- LDA #H(&ADDR2)
- STA TEMP3
- LDA #L(&ADDR2)
- STA TEMP2
- LDX &PAGENUM
- JSR PLOADIT
- ENDM
|