
 1000  *SAVE S.RAMFILL BRUCE LOVE
 1010  *--------------------------------
 1020         .OP 65802
 1030         .OR $4C49
 1040  *--------------------------------
 1050  PAINT  JMP .2
 1060  *--------------------------------
 1070  .1     PHA          PUSH FROM $BFFF DOWN
 1080         JMP .1       (NOTE = 4C4C4C)
 1090  *--------------------------------
 1100  .2     CLC          TURN ON 65802 MODE
 1110         XCE
 1120         REP #$10     X=16 BIT, A=8 BIT
 1130         LDX ##$BFFF  POINT STACK TO TOP OF RAM
 1140         TXS
 1150         LDA #$4C     FILL VALUE
 1160         LDX ##0      POINT TO BOTTOM OF RAM
 1170  .3     STA >0,X     FILL FROM $0000 TO $4C4B
 1180         INX
 1190         CPX ##$4C4C
 1200         BCC .3
 1210         BCS .1       BACK TO FILL FROM TOP DOWN
 1220  *--------------------------------

