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 ›