; ***************************************************** ; * BANK 1 ; ***************************************************** bank 1 temp1 = temp1 set kernel DPC+ ; set kernel_options collision(playfield,player0) set tv ntsc set smartbranching on set optimization inlinerand goto main bank2 ; ***************************************************** ; * BANK 2 ; ***************************************************** bank 2 temp1 = temp1 f=0 player2x = 62 rem DF0FRACINC = 255 ;PF0 rem DF1FRACINC = 255 ;PF1 rem DF2FRACINC = 255 ;PF2 rem DF3FRACINC = 255 ; rem DF4FRACINC = 255 ; change playfield every scanline rem DF6FRACINC = 255 ;controls background color changes rem main rem player0color: rem $82 rem end rem player1color: rem $82 rem end COLUM0 = $82 ; missile 0 colour COLUM1 = $82 rem missile0y = 3 rem missile0height = 36 rem missile1y = 3 rem missile1height = 37 rem NUSIZ0 = $00 ; missile 1 =1=1 pixel wide, 3=three close copies rem DF0FRACINC = 255: DF1FRACINC = 255: DF2FRACINC = 255: DF3FRACINC = 255: DF4FRACINC = 255: DF6FRACINC = 0 ;controls background color changes rem asm rem LDA #255 rem STA DF0FRACINC rem STA DF1FRACINC rem STA DF2FRACINC rem STA DF3FRACINC rem STA DF4FRACINC rem STA DF5FRACINC rem STA DF6FRACINC rem LDA DF0FRACDATA rem LDA DF1FRACDATA rem LDA DF2FRACDATA rem LDA DF3FRACDATA rem LDA DF4FRACDATA rem LDA DF5FRACDATA rem LDA DF6FRACDATA rem end rem bkcolors: rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem $B2 rem $00 rem end rem rem f=f+1 if f{0} then player2color: $58 $58 $58 $58 $1E $1E $1E $1E $86 $1E $1E $1E $58 $1E end if f{0} then player2: %000000 %000000 %010000 %000000 %001111 %000100 %101111 %111000 %011110 %100100 %000101 %000001 %010010 %110010 end if f{0} then pfcolors: $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 $44 end if f{0} then playfield: ................................ ........XX...................... ........XX...................... .X..X...XX...................... .X..X..XXXX..................... .X..X..XXXX..................... .X..X..XXXX..................... XX..XXXXXXXX.................... XX..XXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXX..XX.................... XXXXXXXX..XX.................... XXXXXXXX..XX.................... XXXXXXXX..XX.................... XXXXXXXX..XX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXXXXXX.................... XXXXXXXX..XX.................... XXXXXXXX..XX.................... X.XX.XXX..XX.................... X.XX.XXX..XX.................... X.XX.XXX..XX.................... ................................ ................................ end if !f{0} then player2color: $58 $58 $58 $58 $58 $58 $58 $58 $88 $58 $58 $58 $58 $1E end if !f{0} then player2: %001010 %001010 %011110 %011111 %111111 %010111 %010011 %000110 %011110 %111010 %011010 %011111 %011110 %110010 end rem if f=2 then pfcolors: rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem $18 rem end rem rem if f=2 then playfield: rem ................................ rem ........XX..XXXXXXXXXXXX........ rem ............XXXXXX.............. rem ................................ rem .......XXXX.XXXXXXXXXXXX........ rem ............XXXXXX.............. rem ................................ rem ......XXXXXXXXXXXXXXXXXX........ rem ............XXXXXX.............. rem ................................ rem ......XXXXXXXXXX.XXXXX.X........ rem ............XXXX.X.............. rem ................................ rem ......XXXXXXXXXX.XXXXX.X........ rem ............XXXX.X.............. rem ................................ rem ......XXXXXXXXXX.XXXXX.X........ rem ............XXXX.X.............. rem ................................ rem ......XXXXXXXXXX.XXXXX.X........ rem ............XXXX.X.............. rem ................................ rem ......XXXXXXXXXXXXXXXXXX........ rem ............XXXXXX.............. rem ................................ rem ......XX..XXXXXXXXXXXXXX........ rem ............XXXXXX.............. rem ................................ rem ......XX..XXXXXXX.XXXXX......... rem ............XXXXX............... rem ................................ rem ......XXXXXXXXX...XXX........... rem ............XXX................. rem ................................ rem ......XX..XXXXX...XXX........... rem ............XXX................. rem ................................ rem ......XX..XXXXX...XXX........... rem ............XXX................. rem end rem rem anext3 rem $94 player0color: $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 end P0_v2 player0: %00110011 %00110011 %00110011 %01111011 %01111011 %01111011 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11001111 %11001111 %11001111 %11001111 %11001111 %11111111 %11111111 %11111111 %11111111 %11001111 %11001111 %11001111 %11001111 %11001111 end player1color: $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 $16 end P1_v2 player1: %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %01111101 %01111101 %01111101 %01111101 %01111101 %01111101 %01111101 %01111101 %01111101 %01111101 %01111101 %01111101 %11111111 %11111111 %11111111 %11111111 %11111111 %11111111 %10111110 %10111110 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 end end if !f{0} then pfcolors: $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 $a4 end if f{1} && f{0} then player2x = player2x - 1 if player2x <= 50 then player2x = 82 if !f{0} then player2color: $58 $58 $58 $58 $58 $58 $58 $58 $88 $58 $58 $58 $58 $1E end if !f{0} then player2: %001010 %001010 %011110 %011111 %111111 %010111 %010011 %000110 %011110 %111010 %011010 %011111 %011110 %110010 end if !f{0} then playfield: ................................ ..................XXXXXXX....X.. ..................XXXXXXX....X.. ..................XXXXXXX....X.. ..................XXXXXXX....X.. ..................XXXXXXXX..XX.. ..................XXXXXXXX..XX.. ..................XXXXXXXX..XX.. ..................XXXXXXXXXXXX.. ..................XXXXXXXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.XXXXXXX.. ..................XXXX.X.XXXXX.. ..................XXXX.X.XXXXX.. ..................XXXXXX.XXXXX.. ..................XXXXXX..XXXX.. ..................XXXXXX..XXXX.. ..................XXXXXX..XXXX.. ..................XXXXXX...XXX.. ..................XXXXXX...XXX.. ..................XXXXX....XXX.. ..................XXXXX...XXX... ..................XXX.....XXX... ..................XXX.....XXX... ..................XXX....XXX.... ..................XXX....XXX.... ..................XXX....XXX.... ..................XXX...XXX..... ..................XXX...XXX..... ..................XXX...X....... ..................XXX...X....... ..................XXX...X....... ................................ end ; COLUM0 = $00 COLUM1 = $00 NUSIZ0 = $27 _NUSIZ1 = $27 CTRLPF = $35 missile0height=39 missile0x=73: missile0y=1 missile1height=31 missile1x=77: missile1y=1 player2y = 62 player0x = 39: player0y=2 player1x = 79: player1y=2 drawscreen rem if f=3 then f=0 goto main