8bitworkshop/test/ecs/titles.ecs

//#resource "vcs-ca65.h"

import "vcslib.ecs"

component Bitmap48
  bitmap0: array of 0..0xff
  bitmap1: array of 0..0xff
  bitmap2: array of 0..0xff
  bitmap3: array of 0..0xff
  bitmap4: array of 0..0xff
  bitmap5: array of 0..0xff
  height: 0..255
end

system Kernel48Pixel
  locals 2
  on kernelsetup do if [Bitmap48] ---
        lda {{<height}}
        sta {{$0}}	; scanline counter
  ---
  // TODO: should factor out this code, but doesnt
  on kernelsetup do if [Bitmap48] ---
        lda #$22
        sta COLUP0	; show how players alternate
        lda #$12
        sta COLUP1	; by having different colors
        lda #3
        sta NUSIZ0
        sta NUSIZ1	; both players have 3 copies
        sta WSYNC
        SLEEPH 35
        sta RESP0	; position 1st player
        sta RESP1	; ...and 2nd player
        lda #$10
        sta HMP1	; 1 pixel to the left
        sta WSYNC
        sta HMOVE	; apply HMOVE
        lda #1
        sta VDELP0	; we need the VDEL registers
        sta VDELP1	; so we can do our 4-store trick
        SLEEPH 24-8	; sleep 24 cycles
        sta HMCLR	; clear HMOVE registers
---
  on kernelsetup do if [PFColor] ---
    lda {{<pfcolor}}
    sta COLUP0
    sta COLUP1
---
  on kerneldraw do critical fit 63
  if [Bitmap48] 
---
  	txa
        pha
:
	ldy {{$0}}	; counts backwards
        {{!wsync}}	; sync to next scanline
        lda {{data bitmap0}},y	; load B0 (1st sprite byte)
        sta GRP0	; B0 -> [GRP0]
        lda {{data bitmap1}},y	; load B1 -> A
        sta GRP1	; B1 -> [GRP1], B0 -> GRP0
        lda {{data bitmap2}},y	; load B2 -> A
        sta GRP0	; B2 -> [GRP0], B1 -> GRP1
        lda {{data bitmap5}},y	; load B5 -> A
        sta {{$1}}	; B5 -> temp
        ldx {{data bitmap4}},y	; load B4 -> X
        lda {{data bitmap3}},y	; load B3 -> A
        ldy {{$1}}	; load B5 -> Y
        sta GRP1	; B3 -> [GRP1]; B2 -> GRP0
        stx GRP0	; B4 -> [GRP0]; B3 -> GRP1
        sty GRP1	; B5 -> [GRP1]; B4 -> GRP0
        sta GRP0	; ?? -> [GRP0]; B5 -> GRP1
        dec {{$0}}	; go to next line
	bpl :-		; repeat until < 0
        pla
        tax
---
end

demo TitleDemo

  scope Title

    using FrameLoop, StandardKernel
    using Kernel48Pixel with [#Name]
    using Kernel48Pixel with [#Copyright]
    using JoyButton
    
    entity [Player]
    end
    
    system Advance
      on joybutton do once
      ---
      jmp Title2__Start
      ---
    end

    entity [KernelSection, BGColor]
      const lines = 30
      const bgcolor = $a0
    end

    entity [KernelSection, BGColor]
      const lines = 10
      const bgcolor = $a2
    end

// convert -size 48x -gravity center label:"6502\nECS" pbm: | pnmtopnm -plain
    entity Name [KernelSection, BGColor, PFColor, Bitmap48]
        const lines = 2
        const bgcolor = 0xa4
        const pfcolor = 0xfc
        decode vcs_bitmap48 ---
000000111100000111111110000011110000001111100000
000011111110000111111110001111111000011111110000
000011000011000110000000001100011000111000011000
000110000011000110000000011000001100110000011000
000110000000000110000000011000001100000000011000
000110111100000111111000011000001100000000011000
000111111110000111111100011000001100000000110000
000111000111000000001110011000001100000001110000
000110000011000000000110011000001100000011100000
000110000011000000000110011000001100000111000000
000110000011000000000110011000001100001110000000
000110000011001100000110011000001100011100000000
000011000011001100001110001100011000111000000000
000011111110000111111100001111111000111111111000
000000111100000011111000000111110000111111111000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000111111111100000011111000000001111100000000
000000111111111100001111111110000111111111000000
000000110000000000011100000111000110000011100000
000000110000000000011000000011001100000001100000
000000110000000000111000000001001100000000000000
000000110000000000110000000000000111000000000000
000000111111111000110000000000000011111000000000
000000111111111000110000000000000001111111000000
000000110000000000110000000000000000000111100000
000000110000000000110000000000000000000001100000
000000110000000000111000000011101100000001100000
000000110000000000011000000011001100000001100000
000000110000000000011100000111000110000011100000
000000111111111100001111111110000111111111000000
000000111111111100000011111000000001111110000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000

---
    end

    entity Copyright [KernelSection, BGColor, PFColor, Bitmap48]
        const lines = 2
        const bgcolor = 0xa4
        const pfcolor = 0x8c
        decode vcs_bitmap48 ---
000000000000000000000000000000100000000100000100
000000000000000000000000000000000000000100000100
000111000111001111010001101110100011010111101110
001001001001001101111001001100100100110110100100
001001001000101000101001001000100100110100010100
011000011000101000101001001000101100010100010100
011000011000101000101010001000101100010100010100
011001001000101000100110001000100100110100010100
001001001001001001000110001000100100110100010110
000110000111001111000110001000100011110100010000
000000000000001000000100000000000000010000000000
000000000000001000000100000000000100100000000000
000000000000001000001000000000000111100000000000
000000000000000000000000000000000000000000000000
000000000000001110001110001110001110000000000000
000000000000010011011010010011010011000000000000
000000000000010001010011010011010001000000000000
000000000000000001110001000001000001000000000000
000000000000000011110001000011000011000000000000
000000000000000110110001000110000110000000000000
000000000000001100110001001100001000000000000000
000000000000010000010001010000010000000000000000
000000000000010000010010010000010000000000000000
000000000000111111001110111111111111000000000000
000000000000000000000000000000000000000000000000
---
    end
    
    entity [KernelSection, BGColor]
      const lines = 10
      const bgcolor = $a2
    end
    entity [KernelSection, BGColor]
      const lines = 10
      const bgcolor = $a0
    end

  end

  scope Title2

    using FrameLoop, Kernel48Pixel, StandardKernel

    entity [KernelSection, BGColor]
      var lines = 60
        var bgcolor = 0x10
    end

    entity [KernelSection, BGColor]
      var lines = 30
        var bgcolor = 0x30
    end

// convert -size 48x -gravity center label:"6502\nECS" pbm: | pnmtopnm -plain
    entity [KernelSection, BGColor, PFColor, Bitmap48]
        var lines = 2
        var pfcolor = 0xec
        var bgcolor = 0x30
        decode vcs_bitmap48 ---
000000000000000000000000000000000000000000011000
000000000000000000000000000000000000000000011000
000000000000000000000000000000000000000000011000
000000000000000000000000000000000000000000011000
000001111011000011111000000111110000001111011000
000011111111000111111100001111111000011111111000
000110000111001100001110011000001100110000111000
000110000011001100000110011000001100110000011000
000110000011001100000110011000001100110000011000
000110000011001100000110011000001100110000011000
000110000011001100000110011000001100110000011000
000110000011001100000110011000001100110000011000
000110000111001100000110011000001100110000111000
000011111111000111111100001111111000011111111000
000001111011000011111000000111110000001111011000
000000000011000000000000000000000000000000000000
000110000110000000000000000000000000000000000000
000111111110000000000000000000000000000000000000
000001111100000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
000000000110000000000000110000000000110000000000
000000000110000000000000110000000000110000000000
000000000000000000000000110000000000110000000000
000000000000000000000000110000000000110000000000
000000000110000111110000110111100000110000000000
000000000110001111111000111111110000110000000000
000000000110011100001100111000011000110000000000
000000000110011000001100110000011000110000000000
000000000110011000001100110000011000110000000000
000000000110011000001100110000011000110000000000
000000000110011000001100110000011000110000000000
000000000110011000001100110000011000000000000000
000000000110011000001100111000011000000000000000
000000000110001111111000111100110000110000000000
000000000110000111110000110111100000110000000000
000000000110000000000000000000000000000000000000
000000000110000000000000000000000000000000000000
000000011110000000000000000000000000000000000000
000000011100000000000000000000000000000000000000
000000000000000000000000000000000000000000000000
---
    end

    entity [KernelSection, BGColor]
      var lines = 20
        var bgcolor = 0x30
    end

    entity [KernelSection, BGColor]
      var lines = 20
        var bgcolor = 0x50
    end

system Colors
    on postframe do foreach [PFColor]
---
    inc {{set pfcolor}}
    bne :+
    inc {{set bgcolor}}
:
---
    on postframe do foreach [KernelSection]
---
    dec {{set lines}}
    bne :+
    lda #1
    sta {{set lines}}
:
---
end

  end

  system Demo
    on start do once
    ---
    {{start Title}}
    ---
  end

end demo