8bitworkshop/test/ecs/vcslib.txt

EVENT__start = 1
EVENT__postframe = 1
EVENT__resetswitch = 1
EVENT__wsync = 1
EVENT__preframe = 1
EVENT__kernel = 1
EVENT__kerneldraw = 1
EVENT__kernelsetup = 1
EVENT__joybutton = 1
.scope Main
.zeropage
PFColor_pfcolor_b0:
.res 1
.res 1
TEMP:
Local__5__tmp:
.res 1
.code
KernelSection_lines_b0:
.byte 2
.byte 2
.byte 2
.byte 2
.byte 10
.byte 50
.byte 50
.byte 10
BGColor_bgcolor_b0:
.byte 24
.byte 22
.byte 20
.byte 18
.byte 20
.byte 20
.byte 22
.byte 24
Playfield_pf_b0:
.byte 68
.byte 68
.byte 36
.byte 0
Playfield_pf_b8:
.byte 82
.byte 34
.byte 1
.byte 0
Playfield_pf_b16:
.byte 18
.byte 17
.byte 0
.byte 0
Main__INITDATA:
.byte 0
.byte 0
__Start:

;;; start action Init__main_init__1

.include "vcs-ca65.h"
.macpack longbranch
.define PAL 0
.segment "STARTUP"
__NMI:
__Reset:
__BRK:
    CLEAN_START

    ldy #2
:   lda Main__INITDATA-1,y
    sta PFColor_pfcolor_b0-1,y
    dey
    bne :-

;;; start action FrameLoop__start__3

    
FrameLoop__start__4__NextFrame:
    FRAME_END
    
    FRAME_START
    
;;; start action StandardKernel__preframe__5

    
;;; start action StandardKernel__wsync__8

    sta WSYNC

;;; end action StandardKernel__wsync__8

    
;;; start action StandardKernel__kernelsetup__10

    lda #24
    sta COLUBK

;;; end action StandardKernel__kernelsetup__10

;;; start action StandardKernel__kernelsetup__13

;;; end action StandardKernel__kernelsetup__13

;;; start action StandardKernel__kernelsetup__14

;;; end action StandardKernel__kernelsetup__14


;;; end action StandardKernel__preframe__5

    
    KERNEL_START
    
;;; start action StandardKernel__kernel__15

    ldx #0
StandardKernel__kernel__16____each:
    
    
;;; start action StandardKernel__wsync__18

    sta WSYNC

;;; end action StandardKernel__wsync__18

    
;;; start action StandardKernel__kernelsetup__20

    lda BGColor_bgcolor_b0,x
    sta COLUBK

;;; end action StandardKernel__kernelsetup__20

;;; start action StandardKernel__kernelsetup__23

    cpx #5+2
    jcs StandardKernel__kernelsetup__24____skipxhi
    
    cpx #5
    jcc StandardKernel__kernelsetup__24____skipxlo
    
    lda PFColor_pfcolor_b0-5,x
    sta COLUPF

StandardKernel__kernelsetup__24____skipxlo:

StandardKernel__kernelsetup__24____skipxhi:

;;; end action StandardKernel__kernelsetup__23

;;; start action StandardKernel__kernelsetup__26

    cpx #4
    jcc StandardKernel__kernelsetup__27____skipxlo
    
    lda Playfield_pf_b0-4,x
    sta PF0
    lda Playfield_pf_b8-4,x
    sta PF1
    lda Playfield_pf_b16-4,x
    sta PF2

StandardKernel__kernelsetup__27____skipxlo:

;;; end action StandardKernel__kernelsetup__26

    
;;; start action StandardKernel__kerneldraw__29

    ldy KernelSection_lines_b0,x
StandardKernel__kerneldraw__31__loop:
    
    
;;; start action StandardKernel__wsync__32

    sta WSYNC

;;; end action StandardKernel__wsync__32

    
    dey
    bne StandardKernel__kerneldraw__31__loop

;;; end action StandardKernel__kerneldraw__29

    

    inx
    cpx #8
    jne StandardKernel__kernel__16____each
StandardKernel__kernel__16____exit:

;;; end action StandardKernel__kernel__15

    KERNEL_END
    
    
;;; start action FrameLoop__postframe__34

    lsr SWCHB	      ; test Game Reset switch
    bcs FrameLoop__postframe__35__NoStart
    
;;; start action ResetConsole__resetswitch__36

    jmp Main::__Reset ; jump to Reset handler

;;; end action ResetConsole__resetswitch__36

FrameLoop__postframe__35__NoStart:

;;; end action FrameLoop__postframe__34

;;; start action JoyButton__postframe__38

    lda INPT4	;read button input
    bmi JoyButton__postframe__40__NotPressed
    
;;; start action Local__joybutton__41

    inc Local__5__tmp+0
    inc PFColor_pfcolor_b0
    
;;; end action Local__joybutton__41

JoyButton__postframe__40__NotPressed:

;;; end action JoyButton__postframe__38

    jmp FrameLoop__start__4__NextFrame    ; loop to next frame

;;; end action FrameLoop__start__3
	; start main routine
.segment "VECTORS"
ZeroByte:  .byte $00
Return:    .byte $60
VecNMI:
VecReset:  .word __Reset
VecBRK:    .word __BRK
.code

;;; end action Init__main_init__1

.endscope
Main__Start = Main::__Start