From e57aee36bd8c0e38afd5eb7f6b4af8cb9a9ef921 Mon Sep 17 00:00:00 2001
From: maraflush <maraflush@gmail.com>
Date: Sun, 9 Jun 2019 07:33:37 -0700
Subject: [PATCH] nes samples : - show anametable - show a 8x8 pixels sprite -
 show the metasprites

---
 samples/nes_beer.chr                  | Bin 0 -> 8192 bytes
 samples/nes_beer.pal                  |   1 +
 samples/nes_beer_sprite.l65           |  51 ++++++++++++++
 samples/nes_ghosts.chr                | Bin 0 -> 8192 bytes
 samples/nes_ghosts.msb                | Bin 0 -> 65538 bytes
 samples/nes_ghosts.nam                | Bin 0 -> 1024 bytes
 samples/nes_ghosts.pal                |   1 +
 samples/nes_ghosts_metasprites.l65    |  93 ++++++++++++++++++++++++++
 samples/nes_house.nam                 | Bin 0 -> 1024 bytes
 samples/nes_house_print_nametable.l65 |  80 ++++++++++++++++++++++
 samples/nes_house_tileset.chr         | Bin 0 -> 8192 bytes
 11 files changed, 226 insertions(+)
 create mode 100644 samples/nes_beer.chr
 create mode 100644 samples/nes_beer.pal
 create mode 100644 samples/nes_beer_sprite.l65
 create mode 100644 samples/nes_ghosts.chr
 create mode 100644 samples/nes_ghosts.msb
 create mode 100644 samples/nes_ghosts.nam
 create mode 100644 samples/nes_ghosts.pal
 create mode 100644 samples/nes_ghosts_metasprites.l65
 create mode 100644 samples/nes_house.nam
 create mode 100644 samples/nes_house_print_nametable.l65
 create mode 100644 samples/nes_house_tileset.chr

diff --git a/samples/nes_beer.chr b/samples/nes_beer.chr
new file mode 100644
index 0000000000000000000000000000000000000000..d80bd871b0306aca5928c6591ede33f656d63b7b
GIT binary patch
literal 8192
zcmeIup%DN;2m?V1i-P`p`gutQh&`8y+p1mCGt)`sw@-@z0RjXF5FkK+009C72oNAZ
XfB*pk1PBlyK!5-N0t5&UI4SS|_`m~d

literal 0
HcmV?d00001

diff --git a/samples/nes_beer.pal b/samples/nes_beer.pal
new file mode 100644
index 0000000..3c48cff
--- /dev/null
+++ b/samples/nes_beer.pal
@@ -0,0 +1 @@
+80
!1&	)
\ No newline at end of file
diff --git a/samples/nes_beer_sprite.l65 b/samples/nes_beer_sprite.l65
new file mode 100644
index 0000000..479857b
--- /dev/null
+++ b/samples/nes_beer_sprite.l65
@@ -0,0 +1,51 @@
+require'nes'
+
+-- asm code : 2019 - mara/flush 
+-- gfx : mara/flush
+
+mappers.CNROM{chrmap = function(ci) return ci*0x2000, 0x2000, (ci&1)*0x2000 end}
+
+
+location(chrrom0)
+
+-- set beer tileset for sprite
+@@beer_tileset do local f, s = assert(io.open('nes_beer.chr','rb')) s=f:read('*all') f:close() byte{s:byte(1,-1)} end
+
+location(prgrom)
+@@nmi rti
+@@irq rti
+
+-- the beer sprite's palette
+local beer_pal = { 0x0F,0x10,0x38,0x30,0x0F,0x01,0x21,0x31,0x0F,0x06,0x16,0x26,0x0F,0x09,0x19,0x29 }
+
+-- describe oam bank for the sprite 
+-- number, x position, x position, tile number, index in palette
+local sprite_beer = { 0, x=0x80, y=0x80, tile=1, palette=0 }
+
+@@main
+    init()
+    vblank_waitbegin()
+    -- activate sprite
+    lda #0b00011000
+    sta PPUMASK
+    -- load SPRITE palette in PPU RAM
+    ppu_addr(OBJPAL)
+    -- set sprite palette
+    for _,v in ipairs(beer_pal) do lda #v sta PPUDATA end
+    ppu_addr(0x2000)
+
+    -- set the sprite on sprite bank 0
+    oam_set(sprite_beer)
+    -- reset scroll position
+    ppu_addr(0) sta BGSCROL sta BGSCROL
+
+    -- idle
+    @_loop jmp _loop
+    
+    
+
+
+writebin(filename..'.nes')
+writesym(filename..'.mlb', 'mesen')
+writesym(filename..'.nes', 'fceux')
+print(stats)
\ No newline at end of file
diff --git a/samples/nes_ghosts.chr b/samples/nes_ghosts.chr
new file mode 100644
index 0000000000000000000000000000000000000000..7141a57e906fe3a292f0a16edf9e93b42e0f769a
GIT binary patch
literal 8192
zcmeIuF;2rU7zJQQk?>OLp-UtX9=m2@#7F2AdV_YXgp}j}m3jaqxJpKjz|?qPZ(wMQ
zVq&7-aiTIZF+2~kUJ~2SA7j5q6mua}cq?*8Bjmcf%#0PKu8j@fY2FSw%=2NtepcCI
z-hA6Li#Qk8vze<J^>h$7Oq*oC?{j;y$8-J0xV(M1Pg9#6yNyyCR_JxwkLeuWvu|U~
zmNDOoo=VQAJpJ!`y4GLdibwQGH5DyNjHYZ)t<REEc2!P!tqaPbx5{?Ax~@OR-jXjD
zal8n<ozc21%h%A`W_QmkAy%}R%ST_I5B{+J1fM^&KP=>K^bNhgjK4?dz2uUXCPVLc
zZ77G{FEXcmx$ob5gnckW00Izz00bZa0SG_<0uX=z1Rwwb2tWV=5P$##AOHafKmY;|
JfWZF{_yJK*=jZ?c

literal 0
HcmV?d00001

diff --git a/samples/nes_ghosts.msb b/samples/nes_ghosts.msb
new file mode 100644
index 0000000000000000000000000000000000000000..43083527e8532b12aa483b7e2d7005db599c7aa1
GIT binary patch
literal 65538
zcmeIvH&P`~3<N+4Zx`=jF(*-|P~i*z{VxGrg5X!Rq6ueORka^o2Qhsb)o0Ot{+s{B
znwzM(jh?%hxsSD8qSkBldW%{AV{P7}HXqTO&zQ|utnV$o%B<SSuHBs4%hiWjeU#nD
zIen6AF0$q_d#-ZkI@fy0T94W5DQ7+B*6!ZYcd1Q)009C72oNAZfB*pk1PBlyK!5-N
z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+
z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly
zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF
z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk
z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7e?
H9}4^c+`69T

literal 0
HcmV?d00001

diff --git a/samples/nes_ghosts.nam b/samples/nes_ghosts.nam
new file mode 100644
index 0000000000000000000000000000000000000000..86dc39065a3defb5b207904d8731aa9d80388c86
GIT binary patch
literal 1024
zcmZQzU|?WmVrBtS*a0gW13L#N7j{Vo25uf+K7Ii~AzbppBBEmA5|UE5<fUa~<#5S?
X#N`zfmGH@r%8iD=hz@~J%6tz1ZXN=u

literal 0
HcmV?d00001

diff --git a/samples/nes_ghosts.pal b/samples/nes_ghosts.pal
new file mode 100644
index 0000000..16d0c79
--- /dev/null
+++ b/samples/nes_ghosts.pal
@@ -0,0 +1 @@
+0%!10
\ No newline at end of file
diff --git a/samples/nes_ghosts_metasprites.l65 b/samples/nes_ghosts_metasprites.l65
new file mode 100644
index 0000000..1c04ac5
--- /dev/null
+++ b/samples/nes_ghosts_metasprites.l65
@@ -0,0 +1,93 @@
+require'nes'
+
+-- samples : extacted of the demo : Let's Go To The Very Important Party 2018
+-- original code : 2018 - mara/flush
+-- asm code : 2019 - mara/flush 
+-- gfx : Exocet/Up Rough
+
+mappers.CNROM{chrmap = function(ci) return ci*0x2000, 0x2000, (ci&1)*0x2000 end}
+
+
+location(chrrom0)
+
+@@ghosts_tiles do local f, s = assert(io.open('nes_ghosts.chr','rb')) s=f:read('*all') f:close() byte{s:byte(1,-1)} end
+
+location(prgrom)
+@@nmi rti
+@@irq rti
+
+-- ghosts' palette
+local ghosts_pal = { 0x0F, 0x30, 0x25, 0x15, 0x0F, 0x21, 0x31, 0x30, 0x0F, 0x1B, 0x19, 0x1B, 0x0F, 0x0F, 0x0F, 0x0F }
+
+-- metasprite is a set of sprites to draw a big sprite
+-- here you have two big sprites, the son and mother ghosts
+-- it's a set of oam bank
+-- index, x position, y position, tile number, palette number
+local ghosts_spr = {
+   {  2, x= 0+0x80, y= 0+0x88, tile=0x01, palette=1 },                       -- begin sprite son
+   {  3, x= 8+0x80, y= 0+0x88, tile=0x02, palette=1 },
+   {  4, x=16+0x80, y= 0+0x88, tile=0x03, palette=1 },
+   {  5, x=24+0x80, y= 0+0x88, tile=0x04, palette=1 },
+   {  6, x= 0+0x80, y= 8+0x88, tile=0x07, palette=1 },
+   {  7, x= 8+0x80, y= 8+0x88, tile=0x08, palette=1 },
+   {  8, x=16+0x80, y= 8+0x88, tile=0x09, palette=1 },
+   {  9, x=24+0x80, y= 8+0x88, tile=0x0a, palette=1 },
+   { 10, x= 0+0x80, y=16+0x88, tile=0x0f, palette=1 },
+   { 11, x= 8+0x80, y=16+0x88, tile=0x10, palette=1 },
+   { 12, x=16+0x80, y=16+0x88, tile=0x11, palette=1 },
+   { 13, x=24+0x80, y=16+0x88, tile=0x12, palette=1 },
+   { 14, x= 0+0x80, y=24+0x88, tile=0x17, palette=1 },
+   { 15, x= 8+0x80, y=24+0x88, tile=0x18, palette=1 },
+   { 16, x=16+0x80, y=24+0x88, tile=0x19, palette=1 },
+   { 17, x=24+0x80, y=24+0x88, tile=0x1a, palette=1 },
+
+---------------------------------------------------------------
+                                      
+   { 18, x= 8+0x40, y=  0+0x80, tile=0x05, palette=0 },                       --begin sprite mother
+   { 19, x=16+0x40, y=  0+0x80, tile=0x06, palette=0 },
+   { 20, x= 0+0x40, y=  8+0x80, tile=0x0b, palette=0 },
+   { 21, x= 8+0x40, y=  8+0x80, tile=0x0c, palette=0 },
+   { 22, x=16+0x40, y=  8+0x80, tile=0x0d, palette=0 },
+   { 23, x=24+0x40, y=  8+0x80, tile=0x0e, palette=0 },
+   { 24, x= 0+0x40, y= 16+0x80, tile=0x13, palette=0 },
+   { 25, x= 8+0x40, y= 16+0x80, tile=0x14, palette=0 },
+   { 26, x=16+0x40, y= 16+0x80, tile=0x15, palette=0 },
+   { 27, x=24+0x40, y= 16+0x80, tile=0x16, palette=0 },
+   { 28, x= 0+0x40, y= 24+0x80, tile=0x1b, palette=0 },
+   { 29, x= 8+0x40, y= 24+0x80, tile=0x1c, palette=0 },
+   { 30, x=16+0x40, y= 24+0x80, tile=0x1d, palette=0 },
+   { 31, x=24+0x40, y= 24+0x80, tile=0x1e, palette=0 },
+   { 32, x= 0+0x40, y= 32+0x80, tile=0x1f, palette=0 },
+   { 33, x= 8+0x40, y= 32+0x80, tile=0x20, palette=0 },
+   { 34, x=16+0x40, y= 32+0x80, tile=0x21, palette=0 },
+   { 35, x=24+0x40, y= 32+0x80, tile=0x22, palette=0 }
+}
+
+@@main
+    init()
+    vblank_waitbegin()
+    lda #0b00011000
+    sta PPUMASK
+    lda #0
+    sta PPUCTRL
+    
+    -- load SPRITE palette in PPU RAM
+    ppu_addr(OBJPAL)
+    for _,v in ipairs(ghosts_pal) do lda #v sta PPUDATA end
+	-- load the metasprites
+    for _,v in ipairs(ghosts_spr) do oam_set(v) end
+
+
+    -- reset scroll position
+    ppu_addr(0) sta BGSCROL sta BGSCROL
+
+    -- idle
+    @_loop jmp _loop
+    
+    
+
+
+writebin(filename..'.nes')
+writesym(filename..'.mlb', 'mesen')
+writesym(filename..'.nes', 'fceux')
+print(stats)
\ No newline at end of file
diff --git a/samples/nes_house.nam b/samples/nes_house.nam
new file mode 100644
index 0000000000000000000000000000000000000000..61c179e6c96d57833497e5fb15318b7e6b13c9c8
GIT binary patch
literal 1024
zcmb7CYg-ag5MCE3ErN76)Pk;}Xck0T31l}E3QN2!lWdz5R%V$-AziI3^KbB_FZ`c=
zPtD9(9`=0Ud3+Dd%$b>Y&dfZkDEmZ5`+Sukr$`K!+vRafahZWpmmHTF@{I}!#({&<
z>1;hA7+r@B<MAHx`q=PsoI7)QJlK){D4*^gpRg3A*%!v$s-o%Iv4Gy&*MIy3YE8#?
z?MZ|VhUlC;b^6TNQ1IM9sM!~3;)e%^BH_sJ$obI=7sF_^_^L`9iN>Or;<3wP<5#X;
zi%!I2%;QZ7ej=GjT~AKlxOwaL9ki2D9P`ps)0uQ8d-q-z75=C`ZG`f0qq&*;DWpA^
z&CksvJDJF#pE{;I%up8=B^cC|rU!KH4p&hC!oww207dk>iEo<bBl=rFv%_P6<x;5x
zPr&v+wNU_?o!I4-XC@TE_N(gi7qn>$Xm)_rmt`!6d|p4r)?SfW0Gb`(^?KQSvw?h$
zix`;}Y`(2jxc<BM%olYz4MhQ}TcUTak9@(!$J(NX_&}mo`^fSW%g-z^V47dPZhw<Y
zI6dEg?EL&??s9_gJ3WH;dyll!FFejV&P-v8{ML7#N6^jqTQyi)U?}-|9j`|HPosfX
LqtW<h!*An1AK<+d

literal 0
HcmV?d00001

diff --git a/samples/nes_house_print_nametable.l65 b/samples/nes_house_print_nametable.l65
new file mode 100644
index 0000000..24d3547
--- /dev/null
+++ b/samples/nes_house_print_nametable.l65
@@ -0,0 +1,80 @@
+require'nes'
+
+-- samples : extacted of the demo : Let's Go To The Very Important Party 2018
+-- original code : 2018 - mara/flush
+-- asm code : 2019 - mara/flush 
+-- gfx : Exocet/Up Rough
+
+mappers.CNROM{chrmap = function(ci) return ci*0x2000, 0x2000, (ci&1)*0x2000 end}
+
+
+location(chrrom0)
+
+-- create a variable house_tiles which contains tileset.chr's data (house's tiles)
+@@house_tiles do local f, s = assert(io.open('nes_house_tileset.chr','rb')) s=f:read('*all') f:close() byte{s:byte(1,-1)} end
+
+-- don't define nmi and irq routines
+location(prgrom)
+@@nmi rti
+@@irq rti
+
+-- create the house palette
+local home_pal = { 0x32,0x22,0x11,0x30,0x32,0x06,0x16,0x26,0x32,0x27,0x37,0x17,0x32,0x0f,0x00,0x10 }
+
+-- create a variable nam which contains the house's nametable (map of house)
+do
+  local f, s = assert(io.open('nes_house.nam','rb')) s=f:read('*all') f:close()
+  @@nam byte{s:byte(1,-1)}
+end
+
+
+local nam_high = 1
+local nam_low = 0
+
+@@main
+    -- initialize the hardware registers
+    init()
+    -- wait a vertical blank
+    vblank_waitbegin()
+    -- load BG palette in PPU RAM
+    ppu_addr(BGPAL)
+    -- put the house's palette
+    for _,v in ipairs(home_pal) do lda #v sta PPUDATA end
+    ppu_addr(0x2000)
+
+    -- load and set nametable
+    lda #nam>>8&0xff
+    sta nam_high
+    lda #nam & 0xff
+    sta nam_low
+    jsr loadBG
+
+
+    -- reset scroll position
+    ppu_addr(0) sta BGSCROL sta BGSCROL
+    lda #0x0a sta PPUMASK
+    -- idle
+    @_loop jmp _loop
+    
+
+-- routine to load a nametable with the attributes  
+@loadBG
+    ldy #0
+    ldx #0
+    
+@loopLoadBG
+    lda (nam_low), y  -- can only be used with y
+    sta 0x2007
+    iny
+    bne loopLoadBG
+    inc nam_high
+    inx
+    cpx #04
+    bne loopLoadBG
+    rts
+
+-- produce NES file, and debug symbols
+writebin(filename..'.nes')
+writesym(filename..'.mlb', 'mesen')
+writesym(filename..'.nes', 'fceux')
+print(stats)
\ No newline at end of file
diff --git a/samples/nes_house_tileset.chr b/samples/nes_house_tileset.chr
new file mode 100644
index 0000000000000000000000000000000000000000..99d34dd07533d86f5a2147c900f4e7f02e88250b
GIT binary patch
literal 8192
zcmeHMzl$4382xlIk_gI4;42hjZm$SfrK+Gp+?o(@d9Gc#auu*4&4q~Fy-SnAU`QKC
z@~7-^AiIh?lghV-fbB|h4Autk?c}|0W>za>NN|;6zm<3PeZS|;?2p4D9}r`V*Wyye
z<AMTBn*wD>0Zu8vGYarIg+ZDM3Kfx7QM6huV@mwW68Q4cVjyB$I5CKW#A1d+!C_>%
zG&q0>;ieF7y`JDOvR)e;z=W_Xgq=Mwt>(kfY6%V_Wr-e2U_#gx!rtx<_GiZ{v}on*
z`Rcpb{vc6*WBOX}$h>j&`daTMFw1+|Zu)3jU5*@HOUvc=4q2M0kH_71YYYGQI9nZ~
zKFX=s=^be?&i6#;^U6eSJ|{Y#m%yB!pSFf(6ki9UE@2Jp64r2+(mFXgJA3}hlu>ke
zxW6y9+m|M`j)KJleXzUw%Fl~s#g9&A`NDd8eqeVBQT|}}{8_!WTI*I@#mR-)-G+WW
z)>d&cW|ikf@%ptHbi3{LV1WDwJ<<FZx<1NRak<UcWl`~^^8=2V8vN<};P2;WKE5^I
zEO)-$DB$koBsohz8<{AI4@0LGy~ETU{j>cIpXBRBjW6;`tm62kKZW~4+f`&w|7p={
z{%E#X<IcmK3OWOMfclS~JTl*sP1GZwmo+}gU-2G)w0r)zKWVS_r;D%OkF;0!Bl0nx
z_b=~P3ft2QoD%$7;@J>W2{rjbU)BB_IKEb{Up_C$PyKm8{_4*QwIdn%E1ZAZKVP(T
zm*uq}Yr3aa4QG{|o07ZJ8$UGi#;fb={=5mehThJ^6pyh#RXoP?4UgAaJ;jw(FIEud
z7(l4tHARgH1Qqpq`=maMr7)I4C6-WQv8^>%l2{zan*{10LEtqKL$J{q&k1_HmapCE
zULOSXbUi|eNX<|MI>)xr3_c9~usg=FJ7Z?EqTnm){Jh<EuPA6Y^=*mGlcrWubJ`h;
ztX2w5o-@0MXMB^%+L39yA*;4$#QFEBDuDg_)Z-@<9|QXvN)1CL61(So;$C;FOzAd*
zfa?*)I3XlWaKa_5ieUxDJxwvI3<x+&Ee=A9iGtAP%TmKyf_Ij|&x8QEZY42Y-AZQe
z`1rx?c)C;QPDvE8Wh)LgL&HGBK*PYlGJx+0h;`#w?9L`K5!u1PaRiZ(OM|gDoJ=Oe
zp6rcbo?eq-uix+YhBDq0>0g^#$C^Jf=uZum9*HT_soXdi_O77RZ@0#KyB(1$z2U))
zMC6mb@h$i0M1A!?pudc6&u(j;FTRQ}-o2}tsuQ|>U*>g%ov)p6HSwCme6d)Rh&Y9g
zd`wAz%gM3Wou}0A$mxOd)hRnA-ny8A`XfB*U>+g|3CA)k)J_ljM_Hly6Nk$V1@1i&
zj`PLb)jw5#AdUC^pucjlu>El?7RaadZT|Tpwek2))BZRg+8vJ4GA$$fou~Z(r>Vsp
zqZIx%yOu*83hOByH9k5Wcz`bo^DWR1{iL_k<A~&1&)bWq6w4P!deaa6Y5w>5hrLKs
z_21zL`_pnh8d*L@Bic0{1%F4LD4Q!^306?&kL@~f+l?cuZTGwQW;$ed<DceJ5q4MP
z#F!6wTVOqyU&g0nj$B^q$r$sOyVH!L48I=gNYj?^FI2qnoebQI+T)deMd3T4k|fPm
zxmKuD_Z{}*uFHopjJ}W8m&IFYb-RO4`+ak<4u5_)_*}Al^xy&TyJhk0?dlKd2G<V1
zoJ@-7S$QuE?@5x~*)YROwoiOT6#0E|Ul;mK5eB;(T=gWjPxH=BpwqQ~XNT(x4I1T{
zx)#fK76<x`FXkdvd?!n6D%W=y9UtQ}_^+z(pnLslyM5L7ZSpL`R(kCFE~5Qkjs}Ax
zO=jYXUyC2wVyIy8>&zDO*sdUTzVE+tI}hLY^=_b{BiHwzS+3ak{c8{_-p>2+efT`h
n*f7vA&@j+2&@j+2&@j+2&@j+2&@j+2@IPf>Iv?V{)GPT1vKuHA

literal 0
HcmV?d00001