0350      COLOR  1
    =0001      M         .IF %1<16
3000 A901      M           LDA #%1
               M           .ELSE 
               M           LDA %1
               M           .ENDIF 
3002 8DF502    M         STA SPARE1
               M         .ENDM 
                0360      SETCOLOR  4,0,4
    =0001      M         .IF %1<16
3005 A204      M           LDX #%1
               M           .ELSE 
               M           LDX %1
               M           .ENDIF 
    =0000      M         .IF %2>16
               M           LDA %2
               M           ASL A
               M           ASL A
               M           ASL A
               M           ASL A
               M           .ELSE 
3007 A900      M           LDA #%2*16
               M           .ENDIF 
    =0001      M         .IF %3<16
3009 A004      M           LDY #%3
               M           .ELSE 
               M           LDY %3
               M           .ENDIF 
300B 9DC402    M         STA COLOR0,X
300E 98        M         TYA 
300F 290E      M         AND #$0E
3011 18        M         CLC 
3012 7DC402    M         ADC COLOR0,X
3015 9DC402    M         STA COLOR0,X
               M         .ENDM 

---

Back to previous page