set kernel DPC+ dim PF_line = a dim chroma = b goto Start bank2 asm minikernel ldx #$00 stx COLUBK rts end bank 2 Start dim _sc1 = score dim _sc2 = score+1 dim _sc3 = score+2 const pfscore=1 scorecolors: $6E $6E $6C $6C $6A $6A $68 $68 end playfield: ................................ ................................ ................................ ................................ ................................ ................................ ................................ ...XX......XX......XX......XX... ...XX......XX......XX......XX... ...XX......XX......XX......XX... ...XX......XX......XX......XX... ...XX......XX......XX......XX... ;12 ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ;39 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX .X............................X. ................................ ................................ ................................ ................................ ................................ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX .X............................X. ;48 ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ;76 ...XX......XX......XX......XX... ...XX......XX......XX......XX... ...XX......XX......XX......XX... ...XX......XX......XX......XX... ...XX......XX......XX......XX... ................................ ................................ ................................ ................................ ................................ ................................ ................................ ;88 end pfcolors: $00 $00 $00 $00 $00 $00 $3E $98 $00 $00 ;10 $00 $0E $0E $0E $0E $2E $0E $2C $0E $2A ;20 $0E $28 $0E $26 $0E $24 $0E $22 $0E $20 ;30 $0E $0E $0E $0E $0E $0E $0E $0E $98 ; rails start $94 ;40 $00 $78 $78 $00 $94 $98 $94 ; rails end $00 $00 $00 ;50 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 ;60 $04 $04 $04 $04 $04 $04 $04 $04 $04 $04 ;70 $04 $04 $04 $04 $04 $00 $00 $00 $98 $3E ;80 $56 $84 $86 $88 $8A $8C $CC $00 ;88 end bkcolors: $00 $9E $98 $96 $94 $9C $94 $92 $96 $90 ;10 $92 $00 $00 $00 $00 $00 $00 $00 $00 $00 ;20 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 ;30 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 ;40 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 ;50 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 ;60 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 ;70 $00 $00 $00 $00 $00 $92 $90 $96 $92 $94 ;80 $9C $94 $96 $98 $9E $00 $00 $00 ;88 end data zonelumshift2 $0E, $08, $06, $04, $0C, $04, $02, $06, $00, $02 end data zonelumshift3 $02, $00, $06, $02, $04, $0C, $04, $06, $08, $0E end data zonelumshift $94, $98, $94, $00, $78, $78, $00, $94, $98 end chroma = 16 WritePFColorLoop d=d+1 if joy0fire then chroma = chroma + 16 DF7HI = 10 rem DF7LOW = 55 DF7LOW = d ;................................rails PF_line = 0 PFColor for e = 1 to 9 DF7PUSH = zonelumshift[PF_line] + chroma PF_line = PF_line + 1 next ;..............................rails end ;...........................top wall PF_line = 0 DF7HI = 11 rem DF7LOW = 176 DF7LOW = d for e = 1 to 10 DF7PUSH = zonelumshift3[PF_line] + chroma PF_line = PF_line + 1 next ;...........................top wall end ;...........................bottom wall PF_line = 0 DF7HI = 11 rem DF7LOW = 250 DF7LOW = d for e = 1 to 10 DF7PUSH = zonelumshift2[PF_line] + chroma PF_line = PF_line + 1 next ;...........................bottom wall end temp4 = d _sc1 = 0 : _sc2 = _sc2 & 15 if temp4 >= 100 then _sc1 = _sc1 + 16 : temp4 = temp4 - 100 if temp4 >= 100 then _sc1 = _sc1 + 16 : temp4 = temp4 - 100 if temp4 >= 50 then _sc1 = _sc1 + 5 : temp4 = temp4 - 50 if temp4 >= 30 then _sc1 = _sc1 + 3 : temp4 = temp4 - 30 if temp4 >= 20 then _sc1 = _sc1 + 2 : temp4 = temp4 - 20 if temp4 >= 10 then _sc1 = _sc1 + 1 : temp4 = temp4 - 10 _sc2 = (temp4 * 4 * 4) | _sc2 temp4 = d _sc2 = _sc2 & 240 : _sc3 = 0 if temp4 >= 100 then _sc2 = _sc2 + 1 : temp4 = temp4 - 100 if temp4 >= 100 then _sc2 = _sc2 + 1 : temp4 = temp4 - 100 if temp4 >= 50 then _sc3 = _sc3 + 80 : temp4 = temp4 - 50 if temp4 >= 30 then _sc3 = _sc3 + 48 : temp4 = temp4 - 30 if temp4 >= 20 then _sc3 = _sc3 + 32 : temp4 = temp4 - 20 if temp4 >= 10 then _sc3 = _sc3 + 16 : temp4 = temp4 - 10 _sc3 = _sc3 | temp4 DF6FRACINC = 255 : DF4FRACINC = 255 DF0FRACINC = 128 : DF1FRACINC = 128 : DF2FRACINC = 128 : DF3FRACINC = 128 drawscreen goto WritePFColorLoop