From d0728fe9fe42efeaa0b22d6a9cfe389e08e2e2af Mon Sep 17 00:00:00 2001
From: Philip Linde <plinde@proceranetworks.com>
Date: Wed, 29 Jan 2014 22:24:32 +0100
Subject: [PATCH] Initial commit

---
 .gitignore     |   2 +
 enginesounds.s |  28 +++++
 game.s         | 314 +++++++++++++++++++++++++++++++++++++++++++++++++
 level.png      | Bin 0 -> 1296 bytes
 level.s        |   6 +
 player.png     | Bin 0 -> 282 bytes
 player.s       |  10 ++
 vcs            |   1 +
 8 files changed, 361 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 enginesounds.s
 create mode 100644 game.s
 create mode 100644 level.png
 create mode 100644 level.s
 create mode 100644 player.png
 create mode 100644 player.s
 create mode 160000 vcs

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..cfc62af
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+*.bin
+*.sym
diff --git a/enginesounds.s b/enginesounds.s
new file mode 100644
index 0000000..d2efbf5
--- /dev/null
+++ b/enginesounds.s
@@ -0,0 +1,28 @@
+{
+    lda SWCHA
+    eor #$ff
+    tax
+    and #%11000110
+    beq noblow
+    lda SNDFRAME
+    and #1
+    bne noblow
+    lda #8
+    sta AUDC0
+    lda #1
+    sta AUDF0
+    lda #4
+    sta AUDV0
+    jmp nothrust
+noblow:
+    txa
+    and #$11
+    beq nothrust
+    lda #8
+    sta AUDC0
+    lda #20
+    sta AUDF0
+    lda #8
+    sta AUDV0
+nothrust:
+}
diff --git a/game.s b/game.s
new file mode 100644
index 0000000..5beca62
--- /dev/null
+++ b/game.s
@@ -0,0 +1,314 @@
+.import source "vcs/pal.s"
+
+.pseudocommand nop x {
+    .for (var i=0; i<x.getValue(); i++) nop
+}
+
+.var P0COL = $ba
+.var P1COL = $6a
+
+.var LINE = $80       // 1 byte
+.var PFSTEP = $81     // 1 byte
+.var PFSTORE = $82    // 3 bytes
+.var P0STORE = $85    // 1 byte
+.var P1STORE = $86    // 1 byte
+.var M0STORE = $87    // 1 byte
+.var M1STORE = $88    // 1 byte
+.var P0LIVES = $89    // 1 byte
+.var P1LIVES = $8a    // 1 byte
+.var P0YCOUNT = $8b     // 1 byte
+.var P1YCOUNT = $8c     // 1 byte
+
+
+//// GAME VARS ////
+
+.var X0_LO = $8d
+.var X0_HI = $8e
+.var Y0_LO = $8f
+.var Y0_HI = $90
+.var X1_LO = $91
+.var X1_HI = $92
+.var Y1_LO = $93
+.var Y1_HI = $94
+
+.var SPEEDX0_LO = $95
+.var SPEEDX0_HI = $96
+.var SPEEDY0_LO = $97
+.var SPEEDY0_HI = $98
+.var SPEEDX1_LO = $99
+.var SPEEDX1_HI = $9a
+.var SPEEDY1_LO = $9b
+.var SPEEDY1_HI = $9c
+.var P0LASTX = $9d
+.var P1LASTX = $9e
+
+.var BGCOLOR = $9f
+.var SNDFRAME = $a0
+
+///////////////////
+jsr game_init
+
+screenloop:
+:VSync()
+:VBlankBegin()
+    lda #$5a
+    sta COLUPF
+
+    ldx #0
+    stx GRP0
+    stx GRP1
+
+    lda #$10
+    sta PFSTORE
+    lda level_pf1
+    sta PFSTORE+1
+    lda level_pf2
+    sta PFSTORE+2
+
+    lda #$ff
+    sta PF0
+    sta PF1
+    sta PF2
+    jsr game1
+    ldx #0
+:VBlankEnd()
+
+prescreen:
+    sta WSYNC
+    lda P0STORE
+    sta GRP0
+    lda P1STORE
+    sta GRP1
+    sta WSYNC
+    inx
+
+    // Set player Y postitions
+    ldy P0YCOUNT
+    lda player,y
+    sta P0STORE
+    dec P0YCOUNT
+    ldy P1YCOUNT
+    lda player,y
+    sta P1STORE
+    dec P1YCOUNT
+
+    cpx #$3
+    bne prescreen
+    lda PFSTORE
+    sta WSYNC
+    sta PF0
+    jmp screen2
+screen:
+    sta WSYNC
+screen2:
+    lda P0STORE
+    sta GRP0
+    lda P1STORE
+    sta GRP1
+    lda PFSTORE+1
+    sta PF1
+    lda PFSTORE+2
+    sta PF2
+
+    // Reload player stores
+
+    inx
+    txa
+    lsr 
+    lsr
+    tay
+
+    lda #0
+    sta WSYNC
+    sta VBLANK
+
+    // Load playfield data
+    lda level_pf0,y
+    sta PFSTORE
+    lda level_pf1,y
+    sta PFSTORE+1
+    lda level_pf2,y
+    sta PFSTORE+2
+
+    // Set player Y postitions
+    ldy P0YCOUNT
+    lda player,y
+    sta P0STORE
+    dec P0YCOUNT
+    ldy P1YCOUNT
+    lda player,y
+    sta P1STORE
+    dec P1YCOUNT
+
+    cpx #PICTURE_LINES/2-9
+    bne screen
+
+
+postscreen:
+    sta WSYNC
+    lda P0STORE
+    sta GRP0
+    lda P1STORE
+    sta GRP1
+    lda #$ff
+    sta PF0
+    sta PF1
+    sta PF2
+    sta WSYNC
+    inx
+
+    // Set player Y postitions
+    ldy P0YCOUNT
+    lda player,y
+    sta P0STORE
+    dec P0YCOUNT
+    ldy P1YCOUNT
+    lda player,y
+    sta P1STORE
+    dec P1YCOUNT
+
+    cpx #PICTURE_LINES/2-6
+    bne postscreen
+
+
+
+    sta WSYNC
+    lda #2
+    sta VBLANK
+    lda #0
+    sta GRP0
+    sta GRP1
+    sta WSYNC
+    inx
+    sta WSYNC
+    sta WSYNC
+    inx
+
+// Display lives
+scoreview:
+    sta WSYNC
+    lda #2
+    sta VBLANK
+    lda #0
+    sta PF0
+    sta PF1
+    sta PF2
+
+    sta WSYNC
+    sta VBLANK // 3
+    lda #P0COL
+    sta COLUPF
+    ldy P0LIVES     // 2
+    lda livesconv,y // 3
+    sta PF1         // 3
+    :nop #3
+    ldy P1LIVES     // 2
+    lda livesconv,y // 3
+    sta PF1         // 3
+    lda #P1COL
+    sta COLUPF
+
+    inx
+    cpx #PICTURE_LINES/2
+    bne scoreview
+
+:OverscanBegin()
+    jsr game2
+:OverscanEnd()
+
+    jmp screenloop
+
+reposp0:
+    sta WSYNC
+    :nop #18
+    sta RESP0
+    lda #$10
+    sta WSYNC
+    sta HMP0
+    sta HMOVE
+    rts
+
+reposp1:
+    sta WSYNC
+    :nop #26
+    sta RESP1
+    lda #$20
+    sta WSYNC
+    sta HMP1
+    sta HMOVE
+    rts
+
+livesconv:
+    .byte 0
+    .byte %00000010
+    .byte %00001010
+    .byte %00101010
+    .byte %10101010
+
+.import source "level.s"
+
+.import source "player.s"
+
+///////////////////////////// GAME CODE ////////////////////////////////////
+
+game1:
+    lda Y0_HI
+    sta P0YCOUNT
+    lda Y1_HI
+    sta P1YCOUNT
+    rts
+
+game2:
+    // Clear audio
+    lda #0
+    sta AUDV0
+    sta AUDC1
+
+    // Store joystick in x
+    lda SWCHA
+    eor #$ff
+
+.import source "enginesounds.s"
+
+    inc SNDFRAME
+    lda BGCOLOR
+    sta COLUBK
+    rts
+
+game_init:
+    lda #0
+    sta P0LASTX
+    sta P1LASTX
+    sta SPEEDX0_HI
+    sta SPEEDX0_LO
+    sta SPEEDX1_HI
+    sta SPEEDX1_LO
+    sta SPEEDY0_HI
+    sta SPEEDY0_LO
+    sta SPEEDY1_HI
+    sta SPEEDY1_LO
+    sta X0_LO
+    sta X0_HI
+    sta Y0_LO
+    sta Y0_HI
+    sta Y0_LO
+    sta Y1_LO
+    lda #51
+    sta Y0_HI
+    sta Y1_HI
+    lda #5
+    sta CTRLPF
+    lda #P0COL
+    sta COLUP0
+    lda #P1COL
+    sta COLUP1
+    jsr reposp0
+    jsr reposp1
+    lda #4
+    sta P0LIVES
+    sta P1LIVES
+    rts
+
+
+
+.import source "vcs/vectors.s"
diff --git a/level.png b/level.png
new file mode 100644
index 0000000000000000000000000000000000000000..e63b37f156367c4058100b14b93cc9e8e092c1da
GIT binary patch
literal 1296
zcmV+r1@HQaP)<h;3K|Lk000e1NJLTq001Ze000~a1^@s66BYf|000CeX+uL$Nkc;*
zP;zf(X>4Tx05}naRo`#hR1`jmZ&IWdKOk5~hl<6oRa0BJ8yc;~21%2p?MfD<>DVeH
z<T^KrsT&8|>9(p*dx19w`~g7O0}n_%Aq@s%d)fBDv`JHkDym6Hd+5XuAtvnwRpGmK
zVkc9?T=n|PIo~<wJLg{8L_J?=wVD}Kh?c9aozEndlcyGxo=u9<v(!ri)T`-EEs@L3
z5-!0N_s;9#9f}Cc?UC;OPWB_edW+oAi6T$HZWSGU8TbrQ%+zbPOBBBc`}k?M2Hf);
z@Y6N~0;>X-eVh__(Z?q}P9Z-Dj?gOW6|D%o20XmjW-qs4UjrD(li^iv8@eK9k+ZFm
zVRFymFOPAzG5-%Pn|1W;U4vNroTa&AxDScmEA~{ri9gr1^c?U@uwSpaNnw8l_>cP1
zd;)kMQS_;jeRSUEM_*s96y65j1$)tOrwdK{YIQMt92l|D^(E_=$Rjw{b!QT@q!)ni
zR`|5oW9X5n$Wv+HVc@|^eX5yXnsHX<gx$-tTA9oOBadXir_JPm2Y^4ct-PoO&C)tI
zGolvqOIK@duBk!Vu9{g<3;i;gJ6?~-DQ&xz!jvD&4!U-s8Os(*#?k2}f30SEXA#=i
z1-qUX+K`{!((H5w7<t$~ygD!D1{~X6)KX%$qrgY#L_{M_7A<1csY*MfP@XcB#Jxr~
zJS8&7goVS)VKE|4(h_Xlc{z{c$ApZs7riZ_QKdV_uW-M~u~<J-*#Z0?VzcZp8)p-w
zus7J7><CN2I>8PF3UX~a6)MwxDE0HaPjyrlI!;jX{6Kvuh*8ej?;85ekN$?5uuCiS
zBTvvVG+XTxAO{m@bvM#Jr)z6J><&E22D|vq?Y?Vkbo_DijopiF$2PET#<s%v*srlI
z{B2SKJ79W>mZ8e<cESmGBON_l0n;T7>u=y$(ArYkv7@Ex`GL?QCc!_*KFrd&;n1r7
zqW-CFs9&fT)ZaU5gc&=gBz-D<EBz>aCw(vdOp0__x+47~U6sC(E(JNe@4cTT*n6*E
zVH4eoU1-&7pEV~_PRe`a7v+@vy!^5}8?Y3)UmlaE<h}6h3HHql{T;m+bPBU-O|^S1
z@dOw&4<!bj2G_<^#e}PL7FpY$lcrKO$i~?8Bd2y;oaL5^csibnCrF9!i%-PI;xhub
zp1k;8_$IKX1NHus6EHeD;B72SCCD@4ojP$=Mf3`Eo6yZ&eg@wTqDiZE);7u&SJ|(s
zuPF(9%D6IJ)klXF%`_Fy<tR3HxV^%Qqa?nAB97=m-uu2qcHInZ?ps8M|H3=#R%lzO
z6MgLv^}ib0hVV{&<};#;2lcwW;^(7C<OY#bI<VjS9qCKr-E_Cnc!2j+&nHAXA2%BR
zt~VMxUn2h&(Pi^LSpac(Y#S>R0001|Nkl<ZSPAWw-41{t2!*Bf{;ynd!N!;gN|tMf
z8)+Tz`1J!FR}fKIF)nLmThW;I1cRE!NDhJ{)O5}A1b6MWmh-31;r)t4Cq1HiPZuKS
zHL(Zi)ytu3t4lDlnKbUv+CxbXyM_qbqBpN$FiRT*K`=`oTaR~eIzc;QTN|>rSKsQ#
z_d<_2vZ>bS{LVl`!?lmi;u&+84TcD^@T-8qEO`+8J;4(R1t>sxV>U1V0000<MNUMn
GLSTXpmu_PK

literal 0
HcmV?d00001

diff --git a/level.s b/level.s
new file mode 100644
index 0000000..c49e95d
--- /dev/null
+++ b/level.s
@@ -0,0 +1,6 @@
+level_pf0:
+.byte 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
+level_pf1:
+.byte 0,0,0,0,0,0,0,12,8,0,0,0,0,0,0,0,0,0,0,8,12,0,0,0,0,0,0,0
+level_pf2:
+.byte 0,0,0,0,0,0,0,192,128,0,0,0,0,0,0,0,0,0,0,128,192,0,0,0,0,0,0,0
diff --git a/player.png b/player.png
new file mode 100644
index 0000000000000000000000000000000000000000..5dc4364cf403c249ad35aaa3db4eb5b441857916
GIT binary patch
literal 282
zcmeAS@N?(olHy`uVBq!ia0vp^93afd3?%;@)Hwm9SkfJR9T^xl_H+M9WCijWi-X*q
z7}lMWc?skwBzpw;GB8xBF)%c=FfjZA3N^f7U???UV0e|lz+g3lfkC`r&aOZkpaffh
zPlzj!{{R2~(wp<|0$Gen-tI1p|Cw~}0XgEHE{-7_*ONCSu1NlIzCfbmzp;g(4LgHo
zHtP}{lb~-vC8{N^5hW>!C8<`)MX5lF!N|bSMAyJj*T^Eo$k58fz{=24+rZGuz`%MJ
g|6CLex%nxXX_dG&cs<{)2-Lvf>FVdQ&MBb@0G`K7QUCw|

literal 0
HcmV?d00001

diff --git a/player.s b/player.s
new file mode 100644
index 0000000..8632da9
--- /dev/null
+++ b/player.s
@@ -0,0 +1,10 @@
+player:
+.byte %00111100
+.for(var i=0; i<248;i++) .byte 0
+.byte %11100111
+.byte %01000010
+.byte %11111111
+.byte %11111111
+.byte %11000011
+.byte %11111111
+.byte %01111110
diff --git a/vcs b/vcs
new file mode 160000
index 0000000..ff6c8fc
--- /dev/null
+++ b/vcs
@@ -0,0 +1 @@
+Subproject commit ff6c8fc5f9ffcbf083f5f756b20617e9e31b5982