6502/8bitworkshop
1
0
Fork 0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-05-28 08:41:30 +00:00
Code Issues Projects Releases Wiki Activity

ecs: better subroutine finding

Browse Source
This commit is contained in:
Steven Hugg 2022-02-23 08:43:19 -06:00
parent f7099b8e8f
commit 5afd3cf498
9 changed files with 470 additions and 437 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/common/ecs/ecs.ts
View File

@ -623,6 +623,7 @@ class ActionEval {
entities : Entity[]; entities : Entity[];
tmplabel = ''; tmplabel = '';
label : string; label : string;
seq : number;
//used = new Set<string>(); // TODO //used = new Set<string>(); // TODO
constructor( constructor(
@ -655,7 +656,8 @@ class ActionEval {
//let query = (this.action as ActionWithQuery).query; //let query = (this.action as ActionWithQuery).query;
//TODO? if (query && this.entities.length == 0) //TODO? if (query && this.entities.length == 0)
//throw new ECSError(`query doesn't match any entities`, query); // TODO //throw new ECSError(`query doesn't match any entities`, query); // TODO
this.label = `${this.instance.system.name}__${action.event}__${this.em.seq++}`; this.seq = this.em.seq++;
this.label = `${this.instance.system.name}__${action.event}__${this.seq}`;
} }
begin() { begin() {
let state = this.scope.state = Object.assign(new ActionCPUState(), this.scope.state); let state = this.scope.state = Object.assign(new ActionCPUState(), this.scope.state);
@ -1048,7 +1050,7 @@ class ActionEval {
isSubroutineSized(code: string) { isSubroutineSized(code: string) {
// TODO? // TODO?
if (code.length > 20000) return false; if (code.length > 20000) return false;
if (code.split('.dbg line').length >= 4) return true; if (code.split('\n ').length >= 4) return true; // TODO: :^/
return false; return false;
} }
} }
@ -1057,10 +1059,10 @@ class EventCodeStats {
constructor( constructor(
public readonly inst: SystemInstance, public readonly inst: SystemInstance,
public readonly action: Action, public readonly action: Action,
public readonly code: string, public readonly eventcode: string
public readonly symbol: string,
) { } ) { }
count = 0; labels : string[] = [];
count : number = 0;
} }
export class EntityScope implements SourceLocated { export class EntityScope implements SourceLocated {
@ -1080,7 +1082,7 @@ export class EntityScope implements SourceLocated {
filePath = ''; filePath = '';
eventSeq : number; eventSeq : number;
eventStats : { [key:string] : EventCodeStats }; eventCodeStats : { [code:string] : EventCodeStats };
inCritical = 0; inCritical = 0;
constructor( constructor(
@ -1402,19 +1404,21 @@ export class EntityScope implements SourceLocated {
let eventcode = codeeval.codeToString(); let eventcode = codeeval.codeToString();
if (action.critical) this.inCritical--; if (action.critical) this.inCritical--;
if (!this.inCritical && codeeval.isSubroutineSized(eventcode)) { if (!this.inCritical && codeeval.isSubroutineSized(eventcode)) {
let normcode = this.normalizeCode(eventcode, action);
// TODO: label rewriting messes this up // TODO: label rewriting messes this up
let estats = this.eventStats[eventcode]; let estats = this.eventCodeStats[normcode];
if (!estats) { if (!estats) {
estats = this.eventStats[eventcode] = new EventCodeStats( estats = this.eventCodeStats[normcode] = new EventCodeStats(
inst, action, eventcode, codeeval.label); inst, action, eventcode);
} }
estats.labels.push(codeeval.label);
estats.count++; estats.count++;
if (action.critical) estats.count++; // always make critical event subroutines if (action.critical) estats.count++; // always make critical event subroutines
} }
let s = ''; let s = '';
s += this.dialect.comment(`start action ${sys.name} ${inst.id} ${event}`); // TODO s += this.dialect.comment(`start action ${codeeval.label}`);
s += eventcode; s += eventcode;
s += this.dialect.comment(`end action ${sys.name} ${inst.id} ${event}`); s += this.dialect.comment(`end action ${codeeval.label}`);
code += s; code += s;
// TODO: check that this happens once? // TODO: check that this happens once?
codeeval.end(); codeeval.end();
@ -1426,6 +1430,11 @@ export class EntityScope implements SourceLocated {
} }
return code; return code;
} }
normalizeCode(code: string, action: Action) {
// TODO: use dialect to help with this
code = code.replace(/(\w+__\w+__)(\d+)(\w+)/g, (z,a,b,c) => a+c);
return code;
}
getSystemStats(inst: SystemInstance) : SystemStats { getSystemStats(inst: SystemInstance) : SystemStats {
let stats = this.sysstats.get(inst); let stats = this.sysstats.get(inst);
if (!stats) { if (!stats) {
@ -1489,7 +1498,7 @@ export class EntityScope implements SourceLocated {
} }
private generateCode() { private generateCode() {
this.eventSeq = 0; this.eventSeq = 0;
this.eventStats = {}; this.eventCodeStats = {};
let isMainScope = this.parent == null; let isMainScope = this.parent == null;
let start; let start;
let initsys = this.em.getSystemByName('Init'); let initsys = this.em.getSystemByName('Init');
@ -1517,7 +1526,7 @@ export class EntityScope implements SourceLocated {
// TODO: doesn't work with nested subroutines? // TODO: doesn't work with nested subroutines?
// TODO: doesn't work between scopes // TODO: doesn't work between scopes
let allsubs : string[] = []; let allsubs : string[] = [];
for (let stats of Object.values(this.eventStats)) { for (let stats of Object.values(this.eventCodeStats)) {
if (stats.count > 1) { if (stats.count > 1) {
if (allsubs.length == 0) { if (allsubs.length == 0) {
allsubs = [ allsubs = [
@ -1527,12 +1536,22 @@ export class EntityScope implements SourceLocated {
} else if (stats.action.fitbytes) { } else if (stats.action.fitbytes) {
allsubs.push(this.dialect.alignIfLessThan(stats.action.fitbytes)); allsubs.push(this.dialect.alignIfLessThan(stats.action.fitbytes));
} }
code = (code as any).replaceAll(stats.code, this.dialect.call(stats.symbol)); let subcall = this.dialect.call(stats.labels[0]);
let substart = stats.symbol; for (let label of stats.labels) {
// TODO: use dialect
let startdelim = `;;; start action ${label}`
let enddelim = `;;; end action ${label}`
let istart = code.indexOf(startdelim);
let iend = code.indexOf(enddelim, istart);
if (istart >= 0 && iend > istart) {
code = code.substring(0, istart) + subcall + code.substring(iend + enddelim.length);
}
}
let substart = stats.labels[0];
let sublines = [ let sublines = [
this.dialect.segment('rodata'), this.dialect.segment('rodata'),
this.dialect.label(substart), this.dialect.label(substart),
stats.code, stats.eventcode,
this.dialect.return(), this.dialect.return(),
]; ];
if (stats.action.critical) { if (stats.action.critical) {

4
test/ecs/narrow1.txt
View File

@ -19,7 +19,7 @@ __Start:
dey dey
bne :- bne :-
;;; start action move 1 start ;;; start action move__start__1
ldx #0 ldx #0
move__start__1____each: move__start__1____each:
@ -31,7 +31,7 @@ move__start__1____each:
jne move__start__1____each jne move__start__1____each
move__start__1____exit: move__start__1____exit:
;;; end action move 1 start ;;; end action move__start__1
.endscope .endscope
Main__Start = Main::__Start Main__Start = Main::__Start

72
test/ecs/score.txt
View File

@ -49,7 +49,7 @@ Main__INITDATA:
.byte 86 .byte 86
__Start: __Start:
;;; start action Init 9 main_init ;;; start action Init__main_init__1
.include "vcs-ca65.h" .include "vcs-ca65.h"
.macpack longbranch .macpack longbranch
@ -65,12 +65,12 @@ __BRK:
dey dey
bne :- bne :-
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__2
FrameLoop__start__2__NextFrame: FrameLoop__start__2__NextFrame:
FRAME_START FRAME_START
;;; start action Kernel6Digit 2 preframe ;;; start action Kernel6Digit__preframe__3
Digit0 = Kernel6Digit__2__tmp+0 Digit0 = Kernel6Digit__2__tmp+0
Digit1 = Kernel6Digit__2__tmp+2 Digit1 = Kernel6Digit__2__tmp+2
@ -118,11 +118,11 @@ Kernel6Digit__preframe__3__Loop:
dey ; next BCD value dey ; next BCD value
bpl Kernel6Digit__preframe__3__Loop ; repeat until < 0 bpl Kernel6Digit__preframe__3__Loop ; repeat until < 0
;;; end action Kernel6Digit 2 preframe ;;; end action Kernel6Digit__preframe__3
KERNEL_START KERNEL_START
;;; start action Kernel6Digit 2 kernel ;;; start action Kernel6Digit__kernel__4
lda PFColor_pfcolor_b0 lda PFColor_pfcolor_b0
sta COLUP0 sta COLUP0
@ -146,9 +146,9 @@ Kernel6Digit__preframe__3__Loop:
sta VDELP0 sta VDELP0
sta VDELP1 sta VDELP1
;;; end action Kernel6Digit 2 kernel ;;; end action Kernel6Digit__kernel__4
;;; start action Kernel6Digit 2 kernel ;;; start action Kernel6Digit__kernel__5
; Display the resulting 48x8 bitmap ; Display the resulting 48x8 bitmap
; using the Digit0-5 pointers. ; using the Digit0-5 pointers.
@ -191,9 +191,9 @@ Kernel6Digit__kernel__5__BigLoop:
sta GRP1 sta GRP1
sta COLUBK sta COLUBK
;;; end action Kernel6Digit 2 kernel ;;; end action Kernel6Digit__kernel__5
;;; start action Kernel2Digit 4 kernel ;;; start action Kernel2Digit__kernel__6
lda #$02 lda #$02
sta CTRLPF sta CTRLPF
@ -204,9 +204,9 @@ Kernel6Digit__kernel__5__BigLoop:
lda PFColor_pfcolor_b0+1 lda PFColor_pfcolor_b0+1
sta COLUP1 sta COLUP1
;;; end action Kernel2Digit 4 kernel ;;; end action Kernel2Digit__kernel__6
;;; start action Kernel2Digit 4 kernel ;;; start action Kernel2Digit__kernel__7
lda #7 lda #7
sta Kernel2Digit__4__tmp+0 sta Kernel2Digit__4__tmp+0
@ -214,7 +214,7 @@ Kernel2Digit__kernel__7__Loop:
ldx #0 ldx #0
sta WSYNC sta WSYNC
;;; start action Kernel2Digit 4 compute2digit ;;; start action Kernel2Digit__compute2digit__8
lda Kernel2Digit__4__tmp+1 ; load 1st pf lda Kernel2Digit__4__tmp+1 ; load 1st pf
sta PF1 ; store 1st pf sta PF1 ; store 1st pf
@ -226,14 +226,14 @@ Kernel2Digit__kernel__7__Loop:
asl asl
asl asl
;;; start action Kernel2Digit 4 fetchdigit ;;; start action Kernel2Digit__fetchdigit__9
adc Kernel2Digit__4__tmp+0 adc Kernel2Digit__4__tmp+0
tay tay
; TODO: select your own? ; TODO: select your own?
lda FontTablePF,y lda FontTablePF,y
;;; end action Kernel2Digit 4 fetchdigit ;;; end action Kernel2Digit__fetchdigit__9
and #$0f and #$0f
ldy Kernel2Digit__4__tmp+2 ; load 2nd pf ldy Kernel2Digit__4__tmp+2 ; load 2nd pf
@ -244,24 +244,24 @@ Kernel2Digit__kernel__7__Loop:
lsr lsr
sty PF1 ; store 2nd pf sty PF1 ; store 2nd pf
;;; start action Kernel2Digit 4 fetchdigit ;;; start action Kernel2Digit__fetchdigit__10
adc Kernel2Digit__4__tmp+0 adc Kernel2Digit__4__tmp+0
tay tay
; TODO: select your own? ; TODO: select your own?
lda FontTablePF,y lda FontTablePF,y
;;; end action Kernel2Digit 4 fetchdigit ;;; end action Kernel2Digit__fetchdigit__10
and #$f0 and #$f0
ora Kernel2Digit__4__tmp+1 + 0 ora Kernel2Digit__4__tmp+1 + 0
sta Kernel2Digit__4__tmp+1 + 0 sta Kernel2Digit__4__tmp+1 + 0
;;; end action Kernel2Digit 4 compute2digit ;;; end action Kernel2Digit__compute2digit__8
inx inx
;;; start action Kernel2Digit 4 compute2digit ;;; start action Kernel2Digit__compute2digit__11
lda Kernel2Digit__4__tmp+1 ; load 1st pf lda Kernel2Digit__4__tmp+1 ; load 1st pf
sta PF1 ; store 1st pf sta PF1 ; store 1st pf
@ -273,14 +273,14 @@ Kernel2Digit__kernel__7__Loop:
asl asl
asl asl
;;; start action Kernel2Digit 4 fetchdigit ;;; start action Kernel2Digit__fetchdigit__12
adc Kernel2Digit__4__tmp+0 adc Kernel2Digit__4__tmp+0
tay tay
; TODO: select your own? ; TODO: select your own?
lda FontTablePF,y lda FontTablePF,y
;;; end action Kernel2Digit 4 fetchdigit ;;; end action Kernel2Digit__fetchdigit__12
and #$0f and #$0f
ldy Kernel2Digit__4__tmp+2 ; load 2nd pf ldy Kernel2Digit__4__tmp+2 ; load 2nd pf
@ -291,20 +291,20 @@ Kernel2Digit__kernel__7__Loop:
lsr lsr
sty PF1 ; store 2nd pf sty PF1 ; store 2nd pf
;;; start action Kernel2Digit 4 fetchdigit ;;; start action Kernel2Digit__fetchdigit__13
adc Kernel2Digit__4__tmp+0 adc Kernel2Digit__4__tmp+0
tay tay
; TODO: select your own? ; TODO: select your own?
lda FontTablePF,y lda FontTablePF,y
;;; end action Kernel2Digit 4 fetchdigit ;;; end action Kernel2Digit__fetchdigit__13
and #$f0 and #$f0
ora Kernel2Digit__4__tmp+1 + 1 ora Kernel2Digit__4__tmp+1 + 1
sta Kernel2Digit__4__tmp+1 + 1 sta Kernel2Digit__4__tmp+1 + 1
;;; end action Kernel2Digit 4 compute2digit ;;; end action Kernel2Digit__compute2digit__11
; playfield ; playfield
dec Kernel2Digit__4__tmp+0 dec Kernel2Digit__4__tmp+0
@ -312,19 +312,19 @@ Kernel2Digit__kernel__7__Loop:
; dex ; dex
; stx PF1 ; stx PF1
;;; end action Kernel2Digit 4 kernel ;;; end action Kernel2Digit__kernel__7
KERNEL_END KERNEL_END
;;; start action JoyButton 6 postframe ;;; start action JoyButton__postframe__14
lda INPT4 ;read button input lda INPT4 ;read button input
bmi JoyButton__postframe__14__NotPressed bmi JoyButton__postframe__14__NotPressed
;;; start action IncScore 8 joybutton ;;; start action IncScore__joybutton__15
;;; start action BCDMath 7 AddBCD4 ;;; start action BCDMath__AddBCD4__16
.ifnblank $0210 .ifnblank $0210
lda #<$0210 lda #<$0210
@ -345,20 +345,20 @@ Kernel2Digit__kernel__7__Loop:
sta BCDScore6_digits_b16 sta BCDScore6_digits_b16
cld ; exit BCD mode cld ; exit BCD mode
;;; end action BCDMath 7 AddBCD4 ;;; end action BCDMath__AddBCD4__16
;;; end action IncScore 8 joybutton ;;; end action IncScore__joybutton__15
JoyButton__postframe__14__NotPressed: JoyButton__postframe__14__NotPressed:
;;; end action JoyButton 6 postframe ;;; end action JoyButton__postframe__14
FRAME_END FRAME_END
jmp FrameLoop__start__2__NextFrame ; loop to next frame jmp FrameLoop__start__2__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start ;;; end action FrameLoop__start__2
; start main routine ; start main routine
.segment "VECTORS" .segment "VECTORS"
Return: .word $6060 Return: .word $6060
@ -366,11 +366,11 @@ VecNMI:
VecReset: .word Main::__Reset VecReset: .word Main::__Reset
VecBRK: .word Main::__BRK VecBRK: .word Main::__BRK
;;; end action Init 9 main_init ;;; end action Init__main_init__1
FontTable: FontTable:
;;; start action FontTable 3 FontTable ;;; start action FontTable__FontTable__17
; Font table for digits 0-9 (8x8 pixels) ; Font table for digits 0-9 (8x8 pixels)
;;{w:8,h:8,count:10,brev:1,flip:1};; ;;{w:8,h:8,count:10,brev:1,flip:1};;
@ -380,11 +380,11 @@ FontTable:
.byte $00,$3c,$66,$66,$7c,$60,$66,$3c,$00,$18,$18,$18,$18,$0c,$66,$7e .byte $00,$3c,$66,$66,$7c,$60,$66,$3c,$00,$18,$18,$18,$18,$0c,$66,$7e
.byte $00,$3c,$66,$66,$3c,$66,$66,$3c,$00,$3c,$66,$06,$3e,$66,$66,$3c .byte $00,$3c,$66,$66,$3c,$66,$66,$3c,$00,$3c,$66,$06,$3e,$66,$66,$3c
;;; end action FontTable 3 FontTable ;;; end action FontTable__FontTable__17
FontTablePF: FontTablePF:
;;; start action FontTablePF 5 FontTablePF ;;; start action FontTablePF__FontTablePF__18
; Font table for digits 0-9 (4x8 pixels) ; Font table for digits 0-9 (4x8 pixels)
;;{w:8,h:8,count:10,brev:1,flip:1};; ;;{w:8,h:8,count:10,brev:1,flip:1};;
@ -400,7 +400,7 @@ FontTablePF:
.byte $00,$00,$EE,$22,$EE,$AA,$EE,$00 .byte $00,$00,$EE,$22,$EE,$AA,$EE,$00
;; ;;
;;; end action FontTablePF 5 FontTablePF ;;; end action FontTablePF__FontTablePF__18
.endscope .endscope
Main__Start = Main::__Start Main__Start = Main::__Start

112
test/ecs/sprites.txt
View File

@ -116,7 +116,7 @@ Main__INITDATA:
.byte 3 .byte 3
__Start: __Start:
;;; start action Init 10 main_init ;;; start action Init__main_init__1
.include "vcs-ca65.h" .include "vcs-ca65.h"
.macpack longbranch .macpack longbranch
@ -132,12 +132,12 @@ __BRK:
dey dey
bne :- bne :-
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__2
FrameLoop__start__2__NextFrame: FrameLoop__start__2__NextFrame:
FRAME_START FRAME_START
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__3
.define KLINES #192 .define KLINES #192
.define KPAD 32 .define KPAD 32
@ -152,9 +152,9 @@ FrameLoop__start__2__NextFrame:
sta Kernel2Sprite__2__tmp+6 sta Kernel2Sprite__2__tmp+6
sta Kernel2Sprite__2__tmp+7 sta Kernel2Sprite__2__tmp+7
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__3
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__4
ldy #0 ldy #0
Kernel2Sprite__preframe__4____each: Kernel2Sprite__preframe__4____each:
@ -208,9 +208,9 @@ Kernel2Sprite__preframe__4__nosprite:
jne Kernel2Sprite__preframe__4____each jne Kernel2Sprite__preframe__4____each
Kernel2Sprite__preframe__4____exit: Kernel2Sprite__preframe__4____exit:
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__4
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__5
; shuffle pointers into (MSB, LSB) byte order ; shuffle pointers into (MSB, LSB) byte order
; L0 L1 H0 H1 -> L0 H0 L1 H1 ; L0 L1 H0 H1 -> L0 H0 L1 H1
@ -223,26 +223,26 @@ Kernel2Sprite__preframe__4____exit:
sty Kernel2Sprite__2__tmp+5 sty Kernel2Sprite__2__tmp+5
sta Kernel2Sprite__2__tmp+6 sta Kernel2Sprite__2__tmp+6
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__5
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__6
lda #162 lda #162
sta COLUBK sta COLUBK
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__6
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__7
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__7
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__8
sta HMCLR sta HMCLR
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__8
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__9
ldy #0 ldy #0
SetXPos__preframe__9____each: SetXPos__preframe__9____each:
@ -250,7 +250,7 @@ SetXPos__preframe__9____each:
lda HasXpos_xpos_b0,x lda HasXpos_xpos_b0,x
;;; start action SetHorizPos 7 SetHorizPos ;;; start action SetHorizPos__SetHorizPos__10
; SetHorizPos routine ; SetHorizPos routine
; A = X coordinate ; A = X coordinate
@ -269,7 +269,7 @@ SetHorizPos__SetHorizPos__10__DivideLoop:
sta RESP0,y ; fix coarse position sta RESP0,y ; fix coarse position
sta HMP0,y ; set fine offset sta HMP0,y ; set fine offset
;;; end action SetHorizPos 7 SetHorizPos ;;; end action SetHorizPos__SetHorizPos__10
iny iny
@ -277,36 +277,36 @@ SetHorizPos__SetHorizPos__10__DivideLoop:
jne SetXPos__preframe__9____each jne SetXPos__preframe__9____each
SetXPos__preframe__9____exit: SetXPos__preframe__9____exit:
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__9
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__11
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__11
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__12
sta WSYNC sta WSYNC
sta HMOVE sta HMOVE
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__12
KERNEL_START KERNEL_START
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__13
ldy #0 ldy #0
sty VDELP0 sty VDELP0
iny iny
sta VDELP1 sta VDELP1
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__13
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__14
ldy #192 ldy #192
Kernel2Sprite__kernel__14__LVScan: Kernel2Sprite__kernel__14__LVScan:
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__15
; draw player 0 ; draw player 0
lda Kernel2Sprite__2__tmp+8 ; height lda Kernel2Sprite__2__tmp+8 ; height
@ -334,15 +334,15 @@ Kernel2Sprite__scanline__15__DoDraw2:
lda (Kernel2Sprite__2__tmp+6),y lda (Kernel2Sprite__2__tmp+6),y
sta COLUP1 sta COLUP1
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__15
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__16
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__16
dey ; next scanline dey ; next scanline
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__17
; draw player 0 ; draw player 0
lda Kernel2Sprite__2__tmp+8 ; height lda Kernel2Sprite__2__tmp+8 ; height
@ -370,18 +370,18 @@ Kernel2Sprite__scanline__17__DoDraw2:
lda (Kernel2Sprite__2__tmp+6),y lda (Kernel2Sprite__2__tmp+6),y
sta COLUP1 sta COLUP1
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__17
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__18
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__18
dey ; next scanline dey ; next scanline
bne Kernel2Sprite__kernel__14__LVScan ; repeat until out of lines bne Kernel2Sprite__kernel__14__LVScan ; repeat until out of lines
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__14
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__19
lda #0 lda #0
sta GRP0 sta GRP0
@ -389,19 +389,19 @@ Kernel2Sprite__scanline__17__DoDraw2:
sta GRP0 sta GRP0
sta GRP1 sta GRP1
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__19
KERNEL_END KERNEL_END
;;; start action Joystick 3 postframe ;;; start action Joystick__postframe__20
; 2 control inputs share a single byte, 4 bits each ; 2 control inputs share a single byte, 4 bits each
lda SWCHA lda SWCHA
sta Joystick__3__tmp+0 sta Joystick__3__tmp+0
;;; end action Joystick 3 postframe ;;; end action Joystick__postframe__20
;;; start action Joystick 3 postframe ;;; start action Joystick__postframe__21
ldx #0 ldx #0
Joystick__postframe__21____each: Joystick__postframe__21____each:
@ -409,7 +409,7 @@ Joystick__postframe__21____each:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__21__SkipMoveRight bcs Joystick__postframe__21__SkipMoveRight
;;; start action MoveJoyX 4 joyright ;;; start action MoveJoyX__joyright__22
lda HasXpos_xpos_b0,x lda HasXpos_xpos_b0,x
clc clc
@ -419,13 +419,13 @@ Joystick__postframe__21____each:
sta HasXpos_xpos_b0,x sta HasXpos_xpos_b0,x
MoveJoyX__joyright__22__nomove: MoveJoyX__joyright__22__nomove:
;;; end action MoveJoyX 4 joyright ;;; end action MoveJoyX__joyright__22
Joystick__postframe__21__SkipMoveRight: Joystick__postframe__21__SkipMoveRight:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__21__SkipMoveLeft bcs Joystick__postframe__21__SkipMoveLeft
;;; start action MoveJoyX 4 joyleft ;;; start action MoveJoyX__joyleft__23
lda HasXpos_xpos_b0,x lda HasXpos_xpos_b0,x
sec sec
@ -434,13 +434,13 @@ Joystick__postframe__21__SkipMoveRight:
sta HasXpos_xpos_b0,x sta HasXpos_xpos_b0,x
MoveJoyX__joyleft__23__nomove: MoveJoyX__joyleft__23__nomove:
;;; end action MoveJoyX 4 joyleft ;;; end action MoveJoyX__joyleft__23
Joystick__postframe__21__SkipMoveLeft: Joystick__postframe__21__SkipMoveLeft:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__21__SkipMoveDown bcs Joystick__postframe__21__SkipMoveDown
;;; start action MoveJoyY 5 joydown ;;; start action MoveJoyY__joydown__24
lda HasYpos_ypos_b0,x lda HasYpos_ypos_b0,x
clc clc
@ -450,13 +450,13 @@ Joystick__postframe__21__SkipMoveLeft:
sta HasYpos_ypos_b0,x sta HasYpos_ypos_b0,x
MoveJoyY__joydown__24__nomove: MoveJoyY__joydown__24__nomove:
;;; end action MoveJoyY 5 joydown ;;; end action MoveJoyY__joydown__24
Joystick__postframe__21__SkipMoveDown: Joystick__postframe__21__SkipMoveDown:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__21__SkipMoveUp bcs Joystick__postframe__21__SkipMoveUp
;;; start action MoveJoyY 5 joyup ;;; start action MoveJoyY__joyup__25
lda HasYpos_ypos_b0,x lda HasYpos_ypos_b0,x
sec sec
@ -465,7 +465,7 @@ Joystick__postframe__21__SkipMoveDown:
sta HasYpos_ypos_b0,x sta HasYpos_ypos_b0,x
MoveJoyY__joyup__25__nomove: MoveJoyY__joyup__25__nomove:
;;; end action MoveJoyY 5 joyup ;;; end action MoveJoyY__joyup__25
Joystick__postframe__21__SkipMoveUp: Joystick__postframe__21__SkipMoveUp:
@ -474,9 +474,9 @@ Joystick__postframe__21__SkipMoveUp:
jne Joystick__postframe__21____each jne Joystick__postframe__21____each
Joystick__postframe__21____exit: Joystick__postframe__21____exit:
;;; end action Joystick 3 postframe ;;; end action Joystick__postframe__21
;;; start action SpriteShuffler 8 postframe ;;; start action SpriteShuffler__postframe__26
; load two sprite slots at left side of array ; load two sprite slots at left side of array
lda SpriteSlot_sprite_b0 lda SpriteSlot_sprite_b0
@ -497,16 +497,16 @@ SpriteShuffler__postframe__26__loop:
lda SpriteShuffler__8__tmp+1 lda SpriteShuffler__8__tmp+1
sta SpriteSlot_sprite_b0+4-1 sta SpriteSlot_sprite_b0+4-1
;;; end action SpriteShuffler 8 postframe ;;; end action SpriteShuffler__postframe__26
;;; start action SpriteHider 9 postframe ;;; start action SpriteHider__postframe__27
lda #4-1 lda #4-1
sta SpriteHider__9__tmp+0 sta SpriteHider__9__tmp+0
;;; end action SpriteHider 9 postframe ;;; end action SpriteHider__postframe__27
;;; start action SpriteHider 9 postframe ;;; start action SpriteHider__postframe__28
ldy #0 ldy #0
SpriteHider__postframe__28____each: SpriteHider__postframe__28____each:
@ -531,13 +531,13 @@ SpriteHider__postframe__28__skip:
jne SpriteHider__postframe__28____each jne SpriteHider__postframe__28____each
SpriteHider__postframe__28____exit: SpriteHider__postframe__28____exit:
;;; end action SpriteHider 9 postframe ;;; end action SpriteHider__postframe__28
FRAME_END FRAME_END
jmp FrameLoop__start__2__NextFrame ; loop to next frame jmp FrameLoop__start__2__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start ;;; end action FrameLoop__start__2
; start main routine ; start main routine
.segment "VECTORS" .segment "VECTORS"
Return: .word $6060 Return: .word $6060
@ -545,7 +545,7 @@ VecNMI:
VecReset: .word Main::__Reset VecReset: .word Main::__Reset
VecBRK: .word Main::__BRK VecBRK: .word Main::__BRK
;;; end action Init 10 main_init ;;; end action Init__main_init__1
.endscope .endscope
Main__Start = Main::__Start Main__Start = Main::__Start

100
test/ecs/sprites1.txt
View File

@ -116,7 +116,7 @@ Main__INITDATA:
.byte 0 .byte 0
__Start: __Start:
;;; start action Init 10 main_init ;;; start action Init__main_init__1
.include "vcs-ca65.h" .include "vcs-ca65.h"
.macpack longbranch .macpack longbranch
@ -132,19 +132,19 @@ __BRK:
dey dey
bne :- bne :-
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__2
FrameLoop__start__2__NextFrame: FrameLoop__start__2__NextFrame:
FRAME_START FRAME_START
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__3
.define KLINES #192 .define KLINES #192
.define KPAD 32 .define KPAD 32
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__3
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__4
ldy #0 ldy #0
Kernel2Sprite__preframe__4____each: Kernel2Sprite__preframe__4____each:
@ -194,9 +194,9 @@ Kernel2Sprite__preframe__4____each:
jne Kernel2Sprite__preframe__4____each jne Kernel2Sprite__preframe__4____each
Kernel2Sprite__preframe__4____exit: Kernel2Sprite__preframe__4____exit:
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__4
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__5
; L0 L1 H0 H1 -> L0 H0 L1 H1 ; L0 L1 H0 H1 -> L0 H0 L1 H1
lda Kernel2Sprite__2__tmp+1 lda Kernel2Sprite__2__tmp+1
@ -208,26 +208,26 @@ Kernel2Sprite__preframe__4____exit:
sty Kernel2Sprite__2__tmp+5 sty Kernel2Sprite__2__tmp+5
sta Kernel2Sprite__2__tmp+6 sta Kernel2Sprite__2__tmp+6
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__5
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__6
lda #162 lda #162
sta COLUBK sta COLUBK
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__6
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__7
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__7
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__8
sta HMCLR sta HMCLR
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__8
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__9
ldy #0 ldy #0
SetXPos__preframe__9____each: SetXPos__preframe__9____each:
@ -235,7 +235,7 @@ SetXPos__preframe__9____each:
lda HasXpos_xpos_b0,x lda HasXpos_xpos_b0,x
;;; start action SetHorizPos 7 SetHorizPos ;;; start action SetHorizPos__SetHorizPos__10
; SetHorizPos routine ; SetHorizPos routine
; A = X coordinate ; A = X coordinate
@ -254,7 +254,7 @@ SetHorizPos__SetHorizPos__10__DivideLoop:
sta RESP0,y ; fix coarse position sta RESP0,y ; fix coarse position
sta HMP0,y ; set fine offset sta HMP0,y ; set fine offset
;;; end action SetHorizPos 7 SetHorizPos ;;; end action SetHorizPos__SetHorizPos__10
iny iny
@ -262,31 +262,31 @@ SetHorizPos__SetHorizPos__10__DivideLoop:
jne SetXPos__preframe__9____each jne SetXPos__preframe__9____each
SetXPos__preframe__9____exit: SetXPos__preframe__9____exit:
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__9
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__11
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__11
;;; start action SetXPos 6 preframe ;;; start action SetXPos__preframe__12
sta WSYNC sta WSYNC
sta HMOVE sta HMOVE
;;; end action SetXPos 6 preframe ;;; end action SetXPos__preframe__12
KERNEL_START KERNEL_START
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__13
ldy #0 ldy #0
sty VDELP0 sty VDELP0
iny iny
sta VDELP1 sta VDELP1
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__13
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__14
; define macro for each line ; define macro for each line
.macro Kernel2Sprite__kernel__14__DrawLine do_wsync .macro Kernel2Sprite__kernel__14__DrawLine do_wsync
@ -322,9 +322,9 @@ DoDraw2:
ldy #192 ldy #192
Kernel2Sprite__kernel__14__LVScan: Kernel2Sprite__kernel__14__LVScan:
;;; start action Kernel2Sprite 2 scanline1 ;;; start action Kernel2Sprite__scanline1__15
;;; end action Kernel2Sprite 2 scanline1 ;;; end action Kernel2Sprite__scanline1__15
Kernel2Sprite__kernel__14__DrawLine 1 ; macro: draw scanline w/ WSYNC Kernel2Sprite__kernel__14__DrawLine 1 ; macro: draw scanline w/ WSYNC
dey ; next scanline dey ; next scanline
@ -333,9 +333,9 @@ Kernel2Sprite__kernel__14__LVScan:
dey ; next scanline dey ; next scanline
bne Kernel2Sprite__kernel__14__LVScan ; repeat until out of lines bne Kernel2Sprite__kernel__14__LVScan ; repeat until out of lines
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__14
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__16
lda #0 lda #0
sta GRP0 sta GRP0
@ -343,19 +343,19 @@ Kernel2Sprite__kernel__14__LVScan:
sta GRP0 sta GRP0
sta GRP1 sta GRP1
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__16
KERNEL_END KERNEL_END
;;; start action Joystick 3 postframe ;;; start action Joystick__postframe__17
; 2 control inputs share a single byte, 4 bits each ; 2 control inputs share a single byte, 4 bits each
lda SWCHA lda SWCHA
sta Joystick__3__tmp+0 sta Joystick__3__tmp+0
;;; end action Joystick 3 postframe ;;; end action Joystick__postframe__17
;;; start action Joystick 3 postframe ;;; start action Joystick__postframe__18
ldx #0 ldx #0
Joystick__postframe__18____each: Joystick__postframe__18____each:
@ -363,7 +363,7 @@ Joystick__postframe__18____each:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__18__SkipMoveRight bcs Joystick__postframe__18__SkipMoveRight
;;; start action MoveJoyX 4 joyright ;;; start action MoveJoyX__joyright__19
lda HasXpos_xpos_b0,x lda HasXpos_xpos_b0,x
clc clc
@ -373,13 +373,13 @@ Joystick__postframe__18____each:
sta HasXpos_xpos_b0,x sta HasXpos_xpos_b0,x
MoveJoyX__joyright__19__nomove: MoveJoyX__joyright__19__nomove:
;;; end action MoveJoyX 4 joyright ;;; end action MoveJoyX__joyright__19
Joystick__postframe__18__SkipMoveRight: Joystick__postframe__18__SkipMoveRight:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__18__SkipMoveLeft bcs Joystick__postframe__18__SkipMoveLeft
;;; start action MoveJoyX 4 joyleft ;;; start action MoveJoyX__joyleft__20
lda HasXpos_xpos_b0,x lda HasXpos_xpos_b0,x
sec sec
@ -388,13 +388,13 @@ Joystick__postframe__18__SkipMoveRight:
sta HasXpos_xpos_b0,x sta HasXpos_xpos_b0,x
MoveJoyX__joyleft__20__nomove: MoveJoyX__joyleft__20__nomove:
;;; end action MoveJoyX 4 joyleft ;;; end action MoveJoyX__joyleft__20
Joystick__postframe__18__SkipMoveLeft: Joystick__postframe__18__SkipMoveLeft:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__18__SkipMoveDown bcs Joystick__postframe__18__SkipMoveDown
;;; start action MoveJoyY 5 joydown ;;; start action MoveJoyY__joydown__21
lda HasYpos_ypos_b0,x lda HasYpos_ypos_b0,x
clc clc
@ -404,13 +404,13 @@ Joystick__postframe__18__SkipMoveLeft:
sta HasYpos_ypos_b0,x sta HasYpos_ypos_b0,x
MoveJoyY__joydown__21__nomove: MoveJoyY__joydown__21__nomove:
;;; end action MoveJoyY 5 joydown ;;; end action MoveJoyY__joydown__21
Joystick__postframe__18__SkipMoveDown: Joystick__postframe__18__SkipMoveDown:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__18__SkipMoveUp bcs Joystick__postframe__18__SkipMoveUp
;;; start action MoveJoyY 5 joyup ;;; start action MoveJoyY__joyup__22
lda HasYpos_ypos_b0,x lda HasYpos_ypos_b0,x
sec sec
@ -419,7 +419,7 @@ Joystick__postframe__18__SkipMoveDown:
sta HasYpos_ypos_b0,x sta HasYpos_ypos_b0,x
MoveJoyY__joyup__22__nomove: MoveJoyY__joyup__22__nomove:
;;; end action MoveJoyY 5 joyup ;;; end action MoveJoyY__joyup__22
Joystick__postframe__18__SkipMoveUp: Joystick__postframe__18__SkipMoveUp:
@ -428,9 +428,9 @@ Joystick__postframe__18__SkipMoveUp:
jne Joystick__postframe__18____each jne Joystick__postframe__18____each
Joystick__postframe__18____exit: Joystick__postframe__18____exit:
;;; end action Joystick 3 postframe ;;; end action Joystick__postframe__18
;;; start action SpriteShuffler 8 postframe ;;; start action SpriteShuffler__postframe__23
; load two sprite slots at left side of array ; load two sprite slots at left side of array
lda SpriteSlot_sprite_b0 lda SpriteSlot_sprite_b0
@ -451,16 +451,16 @@ SpriteShuffler__postframe__23__loop:
lda SpriteShuffler__8__tmp+1 lda SpriteShuffler__8__tmp+1
sta SpriteSlot_sprite_b0+4-1 sta SpriteSlot_sprite_b0+4-1
;;; end action SpriteShuffler 8 postframe ;;; end action SpriteShuffler__postframe__23
;;; start action SpriteHider 9 postframe ;;; start action SpriteHider__postframe__24
lda #4-1 lda #4-1
sta SpriteHider__9__tmp+0 sta SpriteHider__9__tmp+0
;;; end action SpriteHider 9 postframe ;;; end action SpriteHider__postframe__24
;;; start action SpriteHider 9 postframe ;;; start action SpriteHider__postframe__25
ldy #0 ldy #0
SpriteHider__postframe__25____each: SpriteHider__postframe__25____each:
@ -485,13 +485,13 @@ SpriteHider__postframe__25__skip:
jne SpriteHider__postframe__25____each jne SpriteHider__postframe__25____each
SpriteHider__postframe__25____exit: SpriteHider__postframe__25____exit:
;;; end action SpriteHider 9 postframe ;;; end action SpriteHider__postframe__25
FRAME_END FRAME_END
jmp FrameLoop__start__2__NextFrame ; loop to next frame jmp FrameLoop__start__2__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start ;;; end action FrameLoop__start__2
; start main routine ; start main routine
.segment "VECTORS" .segment "VECTORS"
Return: .word $6060 Return: .word $6060
@ -499,7 +499,7 @@ VecNMI:
VecReset: .word Main::__Reset VecReset: .word Main::__Reset
VecBRK: .word Main::__BRK VecBRK: .word Main::__BRK
;;; end action Init 10 main_init ;;; end action Init__main_init__1
.endscope .endscope
Main__Start = Main::__Start Main__Start = Main::__Start

168
test/ecs/superman.txt
View File

@ -628,7 +628,7 @@ Main__INITDATA:
.byte 0 .byte 0
__Start: __Start:
;;; start action Init 11 main_init ;;; start action Init__main_init__1
.include "vcs-ca65.h" .include "vcs-ca65.h"
.macpack longbranch .macpack longbranch
@ -644,12 +644,12 @@ __BRK:
dey dey
bne :- bne :-
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__2
FrameLoop__start__2__NextFrame: FrameLoop__start__2__NextFrame:
FRAME_START FRAME_START
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__3
.define KLINES #192 .define KLINES #192
.define KPAD 32 .define KPAD 32
@ -664,9 +664,9 @@ FrameLoop__start__2__NextFrame:
sta Kernel2Sprite__2__tmp+6 sta Kernel2Sprite__2__tmp+6
sta Kernel2Sprite__2__tmp+7 sta Kernel2Sprite__2__tmp+7
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__3
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__4
ldy #0 ldy #0
Kernel2Sprite__preframe__4____each: Kernel2Sprite__preframe__4____each:
@ -720,9 +720,9 @@ Kernel2Sprite__preframe__4__nosprite:
jne Kernel2Sprite__preframe__4____each jne Kernel2Sprite__preframe__4____each
Kernel2Sprite__preframe__4____exit: Kernel2Sprite__preframe__4____exit:
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__4
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__5
; shuffle pointers into (MSB, LSB) byte order ; shuffle pointers into (MSB, LSB) byte order
; L0 L1 H0 H1 -> L0 H0 L1 H1 ; L0 L1 H0 H1 -> L0 H0 L1 H1
@ -735,26 +735,26 @@ Kernel2Sprite__preframe__4____exit:
sty Kernel2Sprite__2__tmp+5 sty Kernel2Sprite__2__tmp+5
sta Kernel2Sprite__2__tmp+6 sta Kernel2Sprite__2__tmp+6
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__5
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__6
lda #162 lda #162
sta COLUBK sta COLUBK
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__6
;;; start action Kernel2Sprite 2 preframe ;;; start action Kernel2Sprite__preframe__7
;;; end action Kernel2Sprite 2 preframe ;;; end action Kernel2Sprite__preframe__7
;;; start action SetXPos 8 preframe ;;; start action SetXPos__preframe__8
sta HMCLR sta HMCLR
;;; end action SetXPos 8 preframe ;;; end action SetXPos__preframe__8
;;; start action SetXPos 8 preframe ;;; start action SetXPos__preframe__9
ldy #0 ldy #0
SetXPos__preframe__9____each: SetXPos__preframe__9____each:
@ -762,7 +762,7 @@ SetXPos__preframe__9____each:
lda HasXpos_xpos_b0,x lda HasXpos_xpos_b0,x
;;; start action SetHorizPos 9 SetHorizPos ;;; start action SetHorizPos__SetHorizPos__10
; SetHorizPos routine ; SetHorizPos routine
; A = X coordinate ; A = X coordinate
@ -781,7 +781,7 @@ SetHorizPos__SetHorizPos__10__DivideLoop:
sta RESP0,y ; fix coarse position sta RESP0,y ; fix coarse position
sta HMP0,y ; set fine offset sta HMP0,y ; set fine offset
;;; end action SetHorizPos 9 SetHorizPos ;;; end action SetHorizPos__SetHorizPos__10
iny iny
@ -789,20 +789,20 @@ SetHorizPos__SetHorizPos__10__DivideLoop:
jne SetXPos__preframe__9____each jne SetXPos__preframe__9____each
SetXPos__preframe__9____exit: SetXPos__preframe__9____exit:
;;; end action SetXPos 8 preframe ;;; end action SetXPos__preframe__9
;;; start action SetXPos 8 preframe ;;; start action SetXPos__preframe__11
;;; end action SetXPos 8 preframe ;;; end action SetXPos__preframe__11
;;; start action SetXPos 8 preframe ;;; start action SetXPos__preframe__12
sta WSYNC sta WSYNC
sta HMOVE sta HMOVE
;;; end action SetXPos 8 preframe ;;; end action SetXPos__preframe__12
;;; start action VersatilePlayfield 10 preframe ;;; start action VersatilePlayfield__preframe__13
ldx Location_room_b0+0 ldx Location_room_b0+0
@ -812,25 +812,25 @@ SetXPos__preframe__9____exit:
sta VersatilePlayfield__10__tmp+1 sta VersatilePlayfield__10__tmp+1
;;; end action VersatilePlayfield 10 preframe ;;; end action VersatilePlayfield__preframe__13
KERNEL_START KERNEL_START
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__14
ldy #0 ldy #0
sty VDELP0 sty VDELP0
iny iny
sta VDELP1 sta VDELP1
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__14
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__15
ldy #192 ldy #192
Kernel2Sprite__kernel__15__LVScan: Kernel2Sprite__kernel__15__LVScan:
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__16
; draw player 0 ; draw player 0
lda Kernel2Sprite__2__tmp+8 ; height lda Kernel2Sprite__2__tmp+8 ; height
@ -858,33 +858,33 @@ Kernel2Sprite__scanline__16__DoDraw2:
lda (Kernel2Sprite__2__tmp+6),y lda (Kernel2Sprite__2__tmp+6),y
sta COLUP1 sta COLUP1
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__16
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__17
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__17
;;; start action VersatilePlayfield 10 scanline ;;; start action VersatilePlayfield__scanline__18
.if 0 = 0 .if 0 = 0
lda (VersatilePlayfield__10__tmp+0),y lda (VersatilePlayfield__10__tmp+0),y
tax tax
.endif .endif
;;; end action VersatilePlayfield 10 scanline ;;; end action VersatilePlayfield__scanline__18
;;; start action VersatilePlayfield 10 scanline ;;; start action VersatilePlayfield__scanline__19
.if 0 = 1 .if 0 = 1
lda (VersatilePlayfield__10__tmp+0),y lda (VersatilePlayfield__10__tmp+0),y
sta $00,x sta $00,x
.endif .endif
;;; end action VersatilePlayfield 10 scanline ;;; end action VersatilePlayfield__scanline__19
dey ; next scanline dey ; next scanline
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__20
; draw player 0 ; draw player 0
lda Kernel2Sprite__2__tmp+8 ; height lda Kernel2Sprite__2__tmp+8 ; height
@ -912,36 +912,36 @@ Kernel2Sprite__scanline__20__DoDraw2:
lda (Kernel2Sprite__2__tmp+6),y lda (Kernel2Sprite__2__tmp+6),y
sta COLUP1 sta COLUP1
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__20
;;; start action Kernel2Sprite 2 scanline ;;; start action Kernel2Sprite__scanline__21
;;; end action Kernel2Sprite 2 scanline ;;; end action Kernel2Sprite__scanline__21
;;; start action VersatilePlayfield 10 scanline ;;; start action VersatilePlayfield__scanline__22
.if 1 = 0 .if 1 = 0
lda (VersatilePlayfield__10__tmp+0),y lda (VersatilePlayfield__10__tmp+0),y
tax tax
.endif .endif
;;; end action VersatilePlayfield 10 scanline ;;; end action VersatilePlayfield__scanline__22
;;; start action VersatilePlayfield 10 scanline ;;; start action VersatilePlayfield__scanline__23
.if 1 = 1 .if 1 = 1
lda (VersatilePlayfield__10__tmp+0),y lda (VersatilePlayfield__10__tmp+0),y
sta $00,x sta $00,x
.endif .endif
;;; end action VersatilePlayfield 10 scanline ;;; end action VersatilePlayfield__scanline__23
dey ; next scanline dey ; next scanline
bne Kernel2Sprite__kernel__15__LVScan ; repeat until out of lines bne Kernel2Sprite__kernel__15__LVScan ; repeat until out of lines
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__15
;;; start action Kernel2Sprite 2 kernel ;;; start action Kernel2Sprite__kernel__24
lda #0 lda #0
sta GRP0 sta GRP0
@ -949,32 +949,32 @@ Kernel2Sprite__scanline__20__DoDraw2:
sta GRP0 sta GRP0
sta GRP1 sta GRP1
;;; end action Kernel2Sprite 2 kernel ;;; end action Kernel2Sprite__kernel__24
KERNEL_END KERNEL_END
;;; start action Joystick 3 postframe ;;; start action Joystick__postframe__25
; 2 control inputs share a single byte, 4 bits each ; 2 control inputs share a single byte, 4 bits each
lda SWCHA lda SWCHA
sta Joystick__3__tmp+0 sta Joystick__3__tmp+0
;;; end action Joystick 3 postframe ;;; end action Joystick__postframe__25
;;; start action Joystick 3 postframe ;;; start action Joystick__postframe__26
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__26__SkipMoveRight bcs Joystick__postframe__26__SkipMoveRight
;;; start action JoyFaceDirection 4 joyright ;;; start action JoyFaceDirection__joyright__27
lda Sprite_plyrflags_b0 lda Sprite_plyrflags_b0
and #$f7 and #$f7
sta Sprite_plyrflags_b0 sta Sprite_plyrflags_b0
;;; end action JoyFaceDirection 4 joyright ;;; end action JoyFaceDirection__joyright__27
;;; start action SuperFly 5 joyright ;;; start action SuperFly__joyright__28
lda HasXpos_xpos_b0 lda HasXpos_xpos_b0
clc clc
@ -982,58 +982,58 @@ Kernel2Sprite__scanline__20__DoDraw2:
cmp #142 cmp #142
jcc SuperFly__joyright__28__nomove jcc SuperFly__joyright__28__nomove
;;; start action SuperFly 5 goeast ;;; start action SuperFly__goeast__29
ldy Location_room_b0 ldy Location_room_b0
lda Room_east_b0,y lda Room_east_b0,y
sta Location_room_b0 sta Location_room_b0
;;; end action SuperFly 5 goeast ;;; end action SuperFly__goeast__29
lda #2 lda #2
SuperFly__joyright__28__nomove: SuperFly__joyright__28__nomove:
sta HasXpos_xpos_b0 sta HasXpos_xpos_b0
;;; end action SuperFly 5 joyright ;;; end action SuperFly__joyright__28
Joystick__postframe__26__SkipMoveRight: Joystick__postframe__26__SkipMoveRight:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__26__SkipMoveLeft bcs Joystick__postframe__26__SkipMoveLeft
;;; start action JoyFaceDirection 4 joyleft ;;; start action JoyFaceDirection__joyleft__30
lda Sprite_plyrflags_b0 lda Sprite_plyrflags_b0
ora #$08 ora #$08
sta Sprite_plyrflags_b0 sta Sprite_plyrflags_b0
;;; end action JoyFaceDirection 4 joyleft ;;; end action JoyFaceDirection__joyleft__30
;;; start action SuperFly 5 joyleft ;;; start action SuperFly__joyleft__31
lda HasXpos_xpos_b0 lda HasXpos_xpos_b0
sec sec
sbc #2 sbc #2
jcs SuperFly__joyleft__31__nomove jcs SuperFly__joyleft__31__nomove
;;; start action SuperFly 5 gowest ;;; start action SuperFly__gowest__32
ldy Location_room_b0 ldy Location_room_b0
lda Room_west_b0,y lda Room_west_b0,y
sta Location_room_b0 sta Location_room_b0
;;; end action SuperFly 5 gowest ;;; end action SuperFly__gowest__32
lda #142 lda #142
SuperFly__joyleft__31__nomove: SuperFly__joyleft__31__nomove:
sta HasXpos_xpos_b0 sta HasXpos_xpos_b0
;;; end action SuperFly 5 joyleft ;;; end action SuperFly__joyleft__31
Joystick__postframe__26__SkipMoveLeft: Joystick__postframe__26__SkipMoveLeft:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__26__SkipMoveDown bcs Joystick__postframe__26__SkipMoveDown
;;; start action SuperFly 5 joydown ;;; start action SuperFly__joydown__33
lda HasYpos_ypos_b0 lda HasYpos_ypos_b0
clc clc
@ -1041,64 +1041,64 @@ Joystick__postframe__26__SkipMoveLeft:
cmp #220 cmp #220
jcc SuperFly__joydown__33__nomove jcc SuperFly__joydown__33__nomove
;;; start action SuperFly 5 gosouth ;;; start action SuperFly__gosouth__34
ldy Location_room_b0 ldy Location_room_b0
lda Room_south_b0,y lda Room_south_b0,y
sta Location_room_b0 sta Location_room_b0
;;; end action SuperFly 5 gosouth ;;; end action SuperFly__gosouth__34
lda #2 lda #2
SuperFly__joydown__33__nomove: SuperFly__joydown__33__nomove:
sta HasYpos_ypos_b0 sta HasYpos_ypos_b0
;;; end action SuperFly 5 joydown ;;; end action SuperFly__joydown__33
Joystick__postframe__26__SkipMoveDown: Joystick__postframe__26__SkipMoveDown:
asl Joystick__3__tmp+0 asl Joystick__3__tmp+0
bcs Joystick__postframe__26__SkipMoveUp bcs Joystick__postframe__26__SkipMoveUp
;;; start action SuperFly 5 joyup ;;; start action SuperFly__joyup__35
lda HasYpos_ypos_b0 lda HasYpos_ypos_b0
sec sec
sbc #2 sbc #2
jcs SuperFly__joyup__35__nomove jcs SuperFly__joyup__35__nomove
;;; start action SuperFly 5 gonorth ;;; start action SuperFly__gonorth__36
ldy Location_room_b0 ldy Location_room_b0
lda Room_north_b0,y lda Room_north_b0,y
sta Location_room_b0 sta Location_room_b0
;;; end action SuperFly 5 gonorth ;;; end action SuperFly__gonorth__36
lda #200 lda #200
SuperFly__joyup__35__nomove: SuperFly__joyup__35__nomove:
sta HasYpos_ypos_b0 sta HasYpos_ypos_b0
;;; end action SuperFly 5 joyup ;;; end action SuperFly__joyup__35
Joystick__postframe__26__SkipMoveUp: Joystick__postframe__26__SkipMoveUp:
;;; end action Joystick 3 postframe ;;; end action Joystick__postframe__26
;;; start action BadMove 6 postframe ;;; start action BadMove__postframe__37
ldx #0 ldx #0
BadMove__postframe__37____each: BadMove__postframe__37____each:
;;; start action JoyFaceDirection 4 joyright ;;; start action JoyFaceDirection__joyright__38
lda Sprite_plyrflags_b0+1,x lda Sprite_plyrflags_b0+1,x
and #$f7 and #$f7
sta Sprite_plyrflags_b0+1,x sta Sprite_plyrflags_b0+1,x
;;; end action JoyFaceDirection 4 joyright ;;; end action JoyFaceDirection__joyright__38
;;; start action SuperFly 5 joyright ;;; start action SuperFly__joyright__39
lda HasXpos_xpos_b0+1,x lda HasXpos_xpos_b0+1,x
clc clc
@ -1106,19 +1106,19 @@ BadMove__postframe__37____each:
cmp #142 cmp #142
jcc SuperFly__joyright__39__nomove jcc SuperFly__joyright__39__nomove
;;; start action SuperFly 5 goeast ;;; start action SuperFly__goeast__40
ldy Location_room_b0+1,x ldy Location_room_b0+1,x
lda Room_east_b0,y lda Room_east_b0,y
sta Location_room_b0+1,x sta Location_room_b0+1,x
;;; end action SuperFly 5 goeast ;;; end action SuperFly__goeast__40
lda #2 lda #2
SuperFly__joyright__39__nomove: SuperFly__joyright__39__nomove:
sta HasXpos_xpos_b0+1,x sta HasXpos_xpos_b0+1,x
;;; end action SuperFly 5 joyright ;;; end action SuperFly__joyright__39
inx inx
@ -1126,9 +1126,9 @@ SuperFly__joyright__39__nomove:
jne BadMove__postframe__37____each jne BadMove__postframe__37____each
BadMove__postframe__37____exit: BadMove__postframe__37____exit:
;;; end action BadMove 6 postframe ;;; end action BadMove__postframe__37
;;; start action RoomShuffle 7 postframe ;;; start action RoomShuffle__postframe__41
ldy 4 ldy 4
ldx SpriteSlot_sprite_b0+1 ldx SpriteSlot_sprite_b0+1
@ -1150,22 +1150,22 @@ RoomShuffle__postframe__41__norecycle:
RoomShuffle__postframe__41__exit: RoomShuffle__postframe__41__exit:
stx SpriteSlot_sprite_b0+1 stx SpriteSlot_sprite_b0+1
;;; end action RoomShuffle 7 postframe ;;; end action RoomShuffle__postframe__41
;;; start action VersatilePlayfield 10 postframe ;;; start action VersatilePlayfield__postframe__42
lda #0 lda #0
sta PF0 sta PF0
sta PF1 sta PF1
sta PF2 sta PF2
;;; end action VersatilePlayfield 10 postframe ;;; end action VersatilePlayfield__postframe__42
FRAME_END FRAME_END
jmp FrameLoop__start__2__NextFrame ; loop to next frame jmp FrameLoop__start__2__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start ;;; end action FrameLoop__start__2
; start main routine ; start main routine
.segment "VECTORS" .segment "VECTORS"
Return: .word $6060 Return: .word $6060
@ -1173,7 +1173,7 @@ VecNMI:
VecReset: .word Main::__Reset VecReset: .word Main::__Reset
VecBRK: .word Main::__BRK VecBRK: .word Main::__BRK
;;; end action Init 11 main_init ;;; end action Init__main_init__1
.endscope .endscope
Main__Start = Main::__Start Main__Start = Main::__Start

284
test/ecs/titles.txt
View File

@ -3,7 +3,7 @@
.code .code
__Start: __Start:
;;; start action Init 2 main_init ;;; start action Init__main_init__1
.include "vcs-ca65.h" .include "vcs-ca65.h"
.macpack longbranch .macpack longbranch
@ -13,11 +13,11 @@ __Reset:
__BRK: __BRK:
CLEAN_START CLEAN_START
;;; start action Demo 1 start ;;; start action Demo__start__2
jmp Title__Start jmp Title__Start
;;; end action Demo 1 start ;;; end action Demo__start__2
; start main routine ; start main routine
.segment "VECTORS" .segment "VECTORS"
Return: .word $6060 Return: .word $6060
@ -25,7 +25,7 @@ VecNMI:
VecReset: .word Main::__Reset VecReset: .word Main::__Reset
VecBRK: .word Main::__BRK VecBRK: .word Main::__BRK
;;; end action Init 2 main_init ;;; end action Init__main_init__1
.scope Title .scope Title
.zeropage .zeropage
@ -304,50 +304,50 @@ Bitmap48_height_b0:
.byte 36 .byte 36
__Start: __Start:
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__3
FrameLoop__start__3__NextFrame: FrameLoop__start__3__NextFrame:
FRAME_START FRAME_START
;;; start action StaticKernel 3 preframe ;;; start action StaticKernel__preframe__4
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__5
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__5
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__6
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__6
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__7
lda #160 lda #160
sta COLUBK sta COLUBK
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__7
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__8
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__8
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__9
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__9
;;; end action StaticKernel 3 preframe ;;; end action StaticKernel__preframe__4
KERNEL_START KERNEL_START
;;; start action StaticKernel 3 kernel ;;; start action StaticKernel__kernel__10
ldx #0 ldx #0
StaticKernel__kernel__10____each: StaticKernel__kernel__10____each:
sta WSYNC sta WSYNC
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__11
cpx #2+1 cpx #2+1
jcs Kernel48Pixel__kernelsetup__11____skipxhi jcs Kernel48Pixel__kernelsetup__11____skipxhi
@ -382,9 +382,9 @@ Kernel48Pixel__kernelsetup__11____skipxlo:
Kernel48Pixel__kernelsetup__11____skipxhi: Kernel48Pixel__kernelsetup__11____skipxhi:
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__11
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__12
cpx #2+1 cpx #2+1
jcs Kernel48Pixel__kernelsetup__12____skipxhi jcs Kernel48Pixel__kernelsetup__12____skipxhi
@ -400,16 +400,16 @@ Kernel48Pixel__kernelsetup__12____skipxlo:
Kernel48Pixel__kernelsetup__12____skipxhi: Kernel48Pixel__kernelsetup__12____skipxhi:
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__12
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__13
lda BGColor_bgcolor_b0,x lda BGColor_bgcolor_b0,x
sta COLUBK sta COLUBK
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__13
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__14
cpx #2+1 cpx #2+1
jcs StaticKernel__kernelsetup__14____skipxhi jcs StaticKernel__kernelsetup__14____skipxhi
@ -424,14 +424,61 @@ StaticKernel__kernelsetup__14____skipxlo:
StaticKernel__kernelsetup__14____skipxhi: StaticKernel__kernelsetup__14____skipxhi:
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__14
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__15
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__15
;;; start action Kernel48Pixel 2 kerneldraw jsr Kernel48Pixel__kerneldraw__16
;;; start action StaticKernel__kerneldraw__17
ldy KernelSection_lines_b0,x
StaticKernel__kerneldraw__17__loop:
sta WSYNC
dey
bne StaticKernel__kerneldraw__17__loop
;;; end action StaticKernel__kerneldraw__17
inx
cpx #5
jne StaticKernel__kernel__10____each
StaticKernel__kernel__10____exit:
;;; end action StaticKernel__kernel__10
KERNEL_END
;;; start action JoyButton__postframe__18
lda INPT4 ;read button input
bmi JoyButton__postframe__18__NotPressed
;;; start action Advance__joybutton__19
jmp Title2__Start
;;; end action Advance__joybutton__19
JoyButton__postframe__18__NotPressed:
;;; end action JoyButton__postframe__18
FRAME_END
jmp FrameLoop__start__3__NextFrame ; loop to next frame
;;; end action FrameLoop__start__3
.rodata
__ALIGNORIGIN:
.rodata
Kernel48Pixel__kerneldraw__16:
cpx #2+1 cpx #2+1
jcs Kernel48Pixel__kerneldraw__16____skipxhi jcs Kernel48Pixel__kerneldraw__16____skipxhi
@ -468,51 +515,11 @@ Kernel48Pixel__kerneldraw__16____skipxlo:
Kernel48Pixel__kerneldraw__16____skipxhi: Kernel48Pixel__kerneldraw__16____skipxhi:
;;; end action Kernel48Pixel 2 kerneldraw rts
;;; start action StaticKernel 3 kerneldraw .assert >(Kernel48Pixel__kerneldraw__16) = >(*), error, "Kernel48Pixel__kerneldraw__16 crosses a page boundary!"
ldy KernelSection_lines_b0,x
StaticKernel__kerneldraw__17__loop:
sta WSYNC
dey
bne StaticKernel__kerneldraw__17__loop
;;; end action StaticKernel 3 kerneldraw
inx
cpx #5
jne StaticKernel__kernel__10____each
StaticKernel__kernel__10____exit:
;;; end action StaticKernel 3 kernel
KERNEL_END
;;; start action JoyButton 4 postframe
lda INPT4 ;read button input
bmi JoyButton__postframe__18__NotPressed
;;; start action Advance 5 joybutton
jmp Title2__Start
;;; end action Advance 5 joybutton
JoyButton__postframe__18__NotPressed:
;;; end action JoyButton 4 postframe
FRAME_END
jmp FrameLoop__start__3__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start
.assert (* - Kernel48Pixel__kerneldraw__16) <= 63, error, .sprintf("Kernel48Pixel__kerneldraw__16 does not fit in 63 bytes, it took %d!", (* - Kernel48Pixel__kerneldraw__16))
.endscope .endscope
Title__Start = Title::__Start Title__Start = Title::__Start
.scope Title2 .scope Title2
@ -847,50 +854,50 @@ __Start:
dey dey
bne :- bne :-
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__20
FrameLoop__start__20__NextFrame: FrameLoop__start__20__NextFrame:
FRAME_START FRAME_START
;;; start action StaticKernel 3 preframe ;;; start action StaticKernel__preframe__21
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__22
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__22
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__23
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__23
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__24
lda BGColor_bgcolor_b0 lda BGColor_bgcolor_b0
sta COLUBK sta COLUBK
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__24
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__25
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__25
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__26
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__26
;;; end action StaticKernel 3 preframe ;;; end action StaticKernel__preframe__21
KERNEL_START KERNEL_START
;;; start action StaticKernel 3 kernel ;;; start action StaticKernel__kernel__27
ldx #0 ldx #0
StaticKernel__kernel__27____each: StaticKernel__kernel__27____each:
sta WSYNC sta WSYNC
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__28
cpx #2+1 cpx #2+1
jcs Kernel48Pixel__kernelsetup__28____skipxhi jcs Kernel48Pixel__kernelsetup__28____skipxhi
@ -925,9 +932,9 @@ Kernel48Pixel__kernelsetup__28____skipxlo:
Kernel48Pixel__kernelsetup__28____skipxhi: Kernel48Pixel__kernelsetup__28____skipxhi:
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__28
;;; start action Kernel48Pixel 2 kernelsetup ;;; start action Kernel48Pixel__kernelsetup__29
cpx #2+1 cpx #2+1
jcs Kernel48Pixel__kernelsetup__29____skipxhi jcs Kernel48Pixel__kernelsetup__29____skipxhi
@ -943,16 +950,16 @@ Kernel48Pixel__kernelsetup__29____skipxlo:
Kernel48Pixel__kernelsetup__29____skipxhi: Kernel48Pixel__kernelsetup__29____skipxhi:
;;; end action Kernel48Pixel 2 kernelsetup ;;; end action Kernel48Pixel__kernelsetup__29
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__30
lda BGColor_bgcolor_b0,x lda BGColor_bgcolor_b0,x
sta COLUBK sta COLUBK
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__30
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__31
cpx #2+1 cpx #2+1
jcs StaticKernel__kernelsetup__31____skipxhi jcs StaticKernel__kernelsetup__31____skipxhi
@ -967,14 +974,56 @@ StaticKernel__kernelsetup__31____skipxlo:
StaticKernel__kernelsetup__31____skipxhi: StaticKernel__kernelsetup__31____skipxhi:
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__31
;;; start action StaticKernel 3 kernelsetup ;;; start action StaticKernel__kernelsetup__32
;;; end action StaticKernel 3 kernelsetup ;;; end action StaticKernel__kernelsetup__32
;;; start action Kernel48Pixel 2 kerneldraw jsr Kernel48Pixel__kerneldraw__33
;;; start action StaticKernel__kerneldraw__34
ldy KernelSection_lines_b0,x
StaticKernel__kerneldraw__34__loop:
sta WSYNC
dey
bne StaticKernel__kerneldraw__34__loop
;;; end action StaticKernel__kerneldraw__34
inx
cpx #5
jne StaticKernel__kernel__27____each
StaticKernel__kernel__27____exit:
;;; end action StaticKernel__kernel__27
KERNEL_END
;;; start action Colors__postframe__35
inc PFColor_pfcolor_b0
bne :+
inc BGColor_bgcolor_b0+2
inc BGColor_bgcolor_b0+2
:
;;; end action Colors__postframe__35
FRAME_END
jmp FrameLoop__start__20__NextFrame ; loop to next frame
;;; end action FrameLoop__start__20
.rodata
__ALIGNORIGIN:
.rodata
Kernel48Pixel__kerneldraw__33:
cpx #2+1 cpx #2+1
jcs Kernel48Pixel__kerneldraw__33____skipxhi jcs Kernel48Pixel__kerneldraw__33____skipxhi
@ -1011,46 +1060,11 @@ Kernel48Pixel__kerneldraw__33____skipxlo:
Kernel48Pixel__kerneldraw__33____skipxhi: Kernel48Pixel__kerneldraw__33____skipxhi:
;;; end action Kernel48Pixel 2 kerneldraw rts
;;; start action StaticKernel 3 kerneldraw .assert >(Kernel48Pixel__kerneldraw__33) = >(*), error, "Kernel48Pixel__kerneldraw__33 crosses a page boundary!"
ldy KernelSection_lines_b0,x
StaticKernel__kerneldraw__34__loop:
sta WSYNC
dey
bne StaticKernel__kerneldraw__34__loop
;;; end action StaticKernel 3 kerneldraw
inx
cpx #5
jne StaticKernel__kernel__27____each
StaticKernel__kernel__27____exit:
;;; end action StaticKernel 3 kernel
KERNEL_END
;;; start action Colors 4 postframe
inc PFColor_pfcolor_b0
bne :+
inc BGColor_bgcolor_b0+2
inc BGColor_bgcolor_b0+2
:
;;; end action Colors 4 postframe
FRAME_END
jmp FrameLoop__start__20__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start
.assert (* - Kernel48Pixel__kerneldraw__33) <= 63, error, .sprintf("Kernel48Pixel__kerneldraw__33 does not fit in 63 bytes, it took %d!", (* - Kernel48Pixel__kerneldraw__33))
.endscope .endscope
Title2__Start = Title2::__Start Title2__Start = Title2::__Start
.endscope .endscope

56
test/ecs/vcs1.txt
View File

@ -45,7 +45,7 @@ Main__INITDATA:
.byte 0 .byte 0
__Start: __Start:
;;; start action Init 7 main_init ;;; start action Init__main_init__1
.include "vcs-ca65.h" .include "vcs-ca65.h"
.define PAL 0 .define PAL 0
@ -60,49 +60,49 @@ __BRK:
dey dey
bne :- bne :-
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__2
FrameLoop__start__2__NextFrame: FrameLoop__start__2__NextFrame:
FRAME_START FRAME_START
;;; start action StaticKernel 4 preframe ;;; start action StaticKernel__preframe__3
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__4
lda #24 lda #24
sta COLUBK sta COLUBK
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__4
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__5
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__5
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__6
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__6
;;; end action StaticKernel 4 preframe ;;; end action StaticKernel__preframe__3
KERNEL_START KERNEL_START
;;; start action StaticKernel 4 kernel ;;; start action StaticKernel__kernel__7
ldx #0 ldx #0
StaticKernel__kernel__7____each: StaticKernel__kernel__7____each:
sta WSYNC sta WSYNC
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__8
lda BGColor_bgcolor_b0,x lda BGColor_bgcolor_b0,x
sta COLUBK sta COLUBK
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__8
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__9
cpx #5+2 cpx #5+2
jcs StaticKernel__kernelsetup__9____skipxhi jcs StaticKernel__kernelsetup__9____skipxhi
@ -117,9 +117,9 @@ StaticKernel__kernelsetup__9____skipxlo:
StaticKernel__kernelsetup__9____skipxhi: StaticKernel__kernelsetup__9____skipxhi:
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__9
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__10
cpx #4 cpx #4
jcc StaticKernel__kernelsetup__10____skipxlo jcc StaticKernel__kernelsetup__10____skipxlo
@ -133,7 +133,7 @@ StaticKernel__kernelsetup__9____skipxhi:
StaticKernel__kernelsetup__10____skipxlo: StaticKernel__kernelsetup__10____skipxlo:
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__10
ldy KernelSection_lines_b0,x ldy KernelSection_lines_b0,x
StaticKernel__kernel__7__loop: StaticKernel__kernel__7__loop:
@ -148,46 +148,46 @@ StaticKernel__kernel__7__loop:
jne StaticKernel__kernel__7____each jne StaticKernel__kernel__7____each
StaticKernel__kernel__7____exit: StaticKernel__kernel__7____exit:
;;; end action StaticKernel 4 kernel ;;; end action StaticKernel__kernel__7
KERNEL_END KERNEL_END
;;; start action JoyButton 5 postframe ;;; start action JoyButton__postframe__11
lda INPT4 ;read button input lda INPT4 ;read button input
bmi JoyButton__postframe__11__NotPressed bmi JoyButton__postframe__11__NotPressed
;;; start action Local 6 joybutton ;;; start action Local__joybutton__12
inc Local__6__tmp+0 inc Local__6__tmp+0
inc PFColor_pfcolor_b0 inc PFColor_pfcolor_b0
;;; end action Local 6 joybutton ;;; end action Local__joybutton__12
JoyButton__postframe__11__NotPressed: JoyButton__postframe__11__NotPressed:
;;; end action JoyButton 5 postframe ;;; end action JoyButton__postframe__11
FRAME_END FRAME_END
;;; start action ResetSwitch 2 nextframe ;;; start action ResetSwitch__nextframe__13
lsr SWCHB ; test Game Reset switch lsr SWCHB ; test Game Reset switch
bcs ResetSwitch__nextframe__13__NoStart bcs ResetSwitch__nextframe__13__NoStart
;;; start action ResetConsole 3 resetswitch ;;; start action ResetConsole__resetswitch__14
jmp Main::__Reset ; jump to Reset handler jmp Main::__Reset ; jump to Reset handler
;;; end action ResetConsole 3 resetswitch ;;; end action ResetConsole__resetswitch__14
ResetSwitch__nextframe__13__NoStart: ResetSwitch__nextframe__13__NoStart:
;;; end action ResetSwitch 2 nextframe ;;; end action ResetSwitch__nextframe__13
jmp FrameLoop__start__2__NextFrame ; loop to next frame jmp FrameLoop__start__2__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start ;;; end action FrameLoop__start__2
; start main routine ; start main routine
.segment "VECTORS" .segment "VECTORS"
Return: .word $6060 Return: .word $6060
@ -195,7 +195,7 @@ VecNMI:
VecReset: .word Main::__Reset VecReset: .word Main::__Reset
VecBRK: .word Main::__BRK VecBRK: .word Main::__BRK
;;; end action Init 7 main_init ;;; end action Init__main_init__1
.endscope .endscope
Main__Start = Main::__Start Main__Start = Main::__Start

60
test/ecs/vcslib.txt
View File

@ -45,7 +45,7 @@ Main__INITDATA:
.byte 0 .byte 0
__Start: __Start:
;;; start action Init 7 main_init ;;; start action Init__main_init__1
.include "vcs-ca65.h" .include "vcs-ca65.h"
.macpack longbranch .macpack longbranch
@ -61,49 +61,49 @@ __BRK:
dey dey
bne :- bne :-
;;; start action FrameLoop 1 start ;;; start action FrameLoop__start__2
FrameLoop__start__2__NextFrame: FrameLoop__start__2__NextFrame:
FRAME_START FRAME_START
;;; start action StaticKernel 4 preframe ;;; start action StaticKernel__preframe__3
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__4
lda #24 lda #24
sta COLUBK sta COLUBK
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__4
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__5
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__5
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__6
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__6
;;; end action StaticKernel 4 preframe ;;; end action StaticKernel__preframe__3
KERNEL_START KERNEL_START
;;; start action StaticKernel 4 kernel ;;; start action StaticKernel__kernel__7
ldx #0 ldx #0
StaticKernel__kernel__7____each: StaticKernel__kernel__7____each:
sta WSYNC sta WSYNC
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__8
lda BGColor_bgcolor_b0,x lda BGColor_bgcolor_b0,x
sta COLUBK sta COLUBK
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__8
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__9
cpx #5+2 cpx #5+2
jcs StaticKernel__kernelsetup__9____skipxhi jcs StaticKernel__kernelsetup__9____skipxhi
@ -118,9 +118,9 @@ StaticKernel__kernelsetup__9____skipxlo:
StaticKernel__kernelsetup__9____skipxhi: StaticKernel__kernelsetup__9____skipxhi:
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__9
;;; start action StaticKernel 4 kernelsetup ;;; start action StaticKernel__kernelsetup__10
cpx #4 cpx #4
jcc StaticKernel__kernelsetup__10____skipxlo jcc StaticKernel__kernelsetup__10____skipxlo
@ -134,10 +134,10 @@ StaticKernel__kernelsetup__9____skipxhi:
StaticKernel__kernelsetup__10____skipxlo: StaticKernel__kernelsetup__10____skipxlo:
;;; end action StaticKernel 4 kernelsetup ;;; end action StaticKernel__kernelsetup__10
;;; start action StaticKernel 4 kerneldraw ;;; start action StaticKernel__kerneldraw__11
ldy KernelSection_lines_b0,x ldy KernelSection_lines_b0,x
StaticKernel__kerneldraw__11__loop: StaticKernel__kerneldraw__11__loop:
@ -146,7 +146,7 @@ StaticKernel__kerneldraw__11__loop:
dey dey
bne StaticKernel__kerneldraw__11__loop bne StaticKernel__kerneldraw__11__loop
;;; end action StaticKernel 4 kerneldraw ;;; end action StaticKernel__kerneldraw__11
@ -155,46 +155,46 @@ StaticKernel__kerneldraw__11__loop:
jne StaticKernel__kernel__7____each jne StaticKernel__kernel__7____each
StaticKernel__kernel__7____exit: StaticKernel__kernel__7____exit:
;;; end action StaticKernel 4 kernel ;;; end action StaticKernel__kernel__7
KERNEL_END KERNEL_END
;;; start action JoyButton 5 postframe ;;; start action JoyButton__postframe__12
lda INPT4 ;read button input lda INPT4 ;read button input
bmi JoyButton__postframe__12__NotPressed bmi JoyButton__postframe__12__NotPressed
;;; start action Local 6 joybutton ;;; start action Local__joybutton__13
inc Local__6__tmp+0 inc Local__6__tmp+0
inc PFColor_pfcolor_b0 inc PFColor_pfcolor_b0
;;; end action Local 6 joybutton ;;; end action Local__joybutton__13
JoyButton__postframe__12__NotPressed: JoyButton__postframe__12__NotPressed:
;;; end action JoyButton 5 postframe ;;; end action JoyButton__postframe__12
FRAME_END FRAME_END
;;; start action ResetSwitch 2 nextframe ;;; start action ResetSwitch__nextframe__14
lsr SWCHB ; test Game Reset switch lsr SWCHB ; test Game Reset switch
bcs ResetSwitch__nextframe__14__NoStart bcs ResetSwitch__nextframe__14__NoStart
;;; start action ResetConsole 3 resetswitch ;;; start action ResetConsole__resetswitch__15
jmp Main::__Reset ; jump to Reset handler jmp Main::__Reset ; jump to Reset handler
;;; end action ResetConsole 3 resetswitch ;;; end action ResetConsole__resetswitch__15
ResetSwitch__nextframe__14__NoStart: ResetSwitch__nextframe__14__NoStart:
;;; end action ResetSwitch 2 nextframe ;;; end action ResetSwitch__nextframe__14
jmp FrameLoop__start__2__NextFrame ; loop to next frame jmp FrameLoop__start__2__NextFrame ; loop to next frame
;;; end action FrameLoop 1 start ;;; end action FrameLoop__start__2
; start main routine ; start main routine
.segment "VECTORS" .segment "VECTORS"
Return: .word $6060 Return: .word $6060
@ -202,7 +202,7 @@ VecNMI:
VecReset: .word Main::__Reset VecReset: .word Main::__Reset
VecBRK: .word Main::__BRK VecBRK: .word Main::__BRK
;;; end action Init 7 main_init ;;; end action Init__main_init__1
.endscope .endscope
Main__Start = Main::__Start Main__Start = Main::__Start