6502/kickc
1
0
Fork 0
mirror of https://gitlab.com/camelot/kickc.git synced 2025-04-05 07:40:39 +00:00
Code Issues Projects Releases Wiki Activity

Merged CX16 veralib progress.

Browse Source
This commit is contained in:
jespergravgaard 2021-02-01 21:51:12 +01:00
commit c32857c87f
54 changed files with 29594 additions and 20772 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/main/fragment/cache/fragment-cache-csg65ce02.asm vendored
View File

@ -1,4 +1,4 @@
//KICKC FRAGMENT CACHE 11327739d8 113277581a
//KICKC FRAGMENT CACHE 1006a86fd4 1006a88e44
//FRAGMENT vbuz1=vbuc1
lda #{c1}
sta {z1}

2
src/main/fragment/cache/fragment-cache-mega45gs02.asm vendored
View File

@ -1,4 +1,4 @@
//KICKC FRAGMENT CACHE 11327739d8 113277581a
//KICKC FRAGMENT CACHE 1006a86fd4 1006a88e44
//FRAGMENT _deref_pbuc1=vbuc2
lda #{c2}
sta {c1}

2
src/main/fragment/cache/fragment-cache-mos6502.asm vendored
View File

@ -1,4 +1,4 @@
//KICKC FRAGMENT CACHE 11327739d8 113277581a
//KICKC FRAGMENT CACHE 1006a86fd4 1006a88e44
//FRAGMENT vbuz1=vbuc1
lda #{c1}
sta {z1}

746
src/main/fragment/cache/fragment-cache-mos6502x.asm vendored
View File

@ -1,379 +1,7 @@
//KICKC FRAGMENT CACHE 11327739d8 113277581a
//FRAGMENT _stackpushbyte_=vbuc1
lda #{c1}
pha
//FRAGMENT _stackpullbyte_1
pla
//FRAGMENT vbuz1=_stackpullbyte_
pla
sta {z1}
//FRAGMENT _deref_pbuc1=vbuz1
lda {z1}
sta {c1}
//KICKC FRAGMENT CACHE 1006a86fd4 1006a88e44
//FRAGMENT vbuz1=vbuc1
lda #{c1}
sta {z1}
//FRAGMENT vbuz1=vbuz2
lda {z2}
sta {z1}
//FRAGMENT vbuz1=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
sta {z1}
//FRAGMENT vbuz1=vbuz2_plus_vbuz3
lda {z2}
clc
adc {z3}
sta {z1}
//FRAGMENT _stackidxbyte_vbuc1=vbuz1
lda {z1}
tsx
sta STACK_BASE+{c1},x
//FRAGMENT vbuaa=_stackpullbyte_
pla
//FRAGMENT vbuxx=_stackpullbyte_
pla
tax
//FRAGMENT vbuyy=_stackpullbyte_
pla
tay
//FRAGMENT _deref_pbuc1=vbuaa
sta {c1}
//FRAGMENT vbuaa=vbuz1
lda {z1}
//FRAGMENT vbuxx=vbuz1
ldx {z1}
//FRAGMENT vbuz1=vbuaa
sta {z1}
//FRAGMENT vbuaa=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
//FRAGMENT vbuxx=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
tax
//FRAGMENT vbuyy=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
tay
//FRAGMENT vbuaa=vbuz1_plus_vbuz2
lda {z1}
clc
adc {z2}
//FRAGMENT vbuxx=vbuz1_plus_vbuz2
lda {z1}
clc
adc {z2}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuz2
lda {z1}
clc
adc {z2}
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuz2
tya
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuz1
tya
clc
adc {z1}
//FRAGMENT vbuxx=vbuyy_plus_vbuz1
tya
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuz1
tya
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuz2_plus_vbuaa
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuz1_plus_vbuaa
clc
adc {z1}
//FRAGMENT vbuxx=vbuz1_plus_vbuaa
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuaa
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuz2_plus_vbuxx
txa
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuz1_plus_vbuxx
txa
clc
adc {z1}
//FRAGMENT vbuxx=vbuz1_plus_vbuxx
txa
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuxx
txa
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuz2_plus_vbuyy
tya
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuz1_plus_vbuyy
tya
clc
adc {z1}
//FRAGMENT vbuxx=vbuz1_plus_vbuyy
tya
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuyy
tya
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuyy
tya
asl
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuyy
tya
asl
//FRAGMENT vbuxx=vbuyy_plus_vbuyy
tya
asl
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuyy
tya
asl
tay
//FRAGMENT _stackidxbyte_vbuc1=vbuaa
tsx
sta STACK_BASE+{c1},x
//FRAGMENT _stackidxbyte_vbuc1=vbuxx
txa
tsx
sta STACK_BASE+{c1},x
//FRAGMENT _stackidxbyte_vbuc1=vbuyy
tya
tsx
sta STACK_BASE+{c1},x
//FRAGMENT vbuz1=vbuaa_plus_vbuz2
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuaa_plus_vbuz1
clc
adc {z1}
//FRAGMENT vbuxx=vbuaa_plus_vbuz1
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuaa_plus_vbuz1
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuz2
txa
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuz1
txa
clc
adc {z1}
//FRAGMENT vbuxx=vbuxx_plus_vbuz1
txa
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuz1
txa
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuaa_plus_vbuaa
asl
sta {z1}
//FRAGMENT vbuaa=vbuaa_plus_vbuaa
asl
//FRAGMENT vbuxx=vbuaa_plus_vbuaa
asl
tax
//FRAGMENT vbuyy=vbuaa_plus_vbuaa
asl
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuxx
txa
asl
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuxx
txa
asl
//FRAGMENT vbuxx=vbuxx_plus_vbuxx
txa
asl
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuxx
txa
asl
tay
//FRAGMENT vbuz1=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuxx
stx {z1}
//FRAGMENT vbuz1=vbuyy
sty {z1}
//FRAGMENT vbuaa=vbuc1
lda #{c1}
//FRAGMENT vbuxx=vbuc1
ldx #{c1}
//FRAGMENT vbuyy=vbuc1
ldy #{c1}
//FRAGMENT vbuyy=vbuz1
ldy {z1}
//FRAGMENT _deref_pbuc1=vbuxx
stx {c1}
//FRAGMENT _deref_pbuc1=vbuyy
sty {c1}
//FRAGMENT vbuxx=vbuaa
tax
//FRAGMENT vbuyy=vbuaa
tay
//FRAGMENT vbuaa=vbuxx
txa
//FRAGMENT vbuaa=vbuyy
tya
//FRAGMENT pbuz1=pbuc1
lda #<{c1}
sta {z1}
@ -625,6 +253,12 @@ tay
txa
and #{c1}
tay
//FRAGMENT vbuaa=vbuc1
lda #{c1}
//FRAGMENT vbuxx=vbuc1
ldx #{c1}
//FRAGMENT vbuyy=vbuc1
ldy #{c1}
//FRAGMENT vbuaa=pbuc1_derefidx_vbuxx
lda {c1},x
//FRAGMENT vbuaa=pbuc1_derefidx_vbuyy
@ -689,6 +323,9 @@ sta {z1}
lax {z2}
axs #-[{c1}]
stx {z1}
//FRAGMENT vbuz1=vbuz2
lda {z2}
sta {z1}
//FRAGMENT vwuz1=vwuz1_plus_vwuz2
lda {z1}
clc
@ -754,6 +391,11 @@ lda {z2}
sec
sbc {z3}
sta {z1}
//FRAGMENT vbuz1=vbuz2_plus_vbuz3
lda {z2}
clc
adc {z3}
sta {z1}
//FRAGMENT vbuz1=_dec_vbuz1
dec {z1}
//FRAGMENT vbuz1_eq_0_then_la1
@ -854,6 +496,8 @@ adc #{c1}
//FRAGMENT vbuxx=vbuc1_plus_vbuaa
tax
axs #-[{c1}]
//FRAGMENT vbuz1=vbuxx
stx {z1}
//FRAGMENT vbuaa=_deref_pbuz1
ldy #0
lda ({z1}),y
@ -910,6 +554,12 @@ tay
//FRAGMENT vbuz1=pbuc1_derefidx_vbuyy
lda {c1},y
sta {z1}
//FRAGMENT vbuaa=vbuz1
lda {z1}
//FRAGMENT vbuxx=vbuz1
ldx {z1}
//FRAGMENT vbuz1=vbuaa
sta {z1}
//FRAGMENT vbuz1=vbuaa_minus_vbuz2
sec
sbc {z2}
@ -1205,6 +855,225 @@ tay
//FRAGMENT vbuyy=vbuyy_minus_vbuyy
lda #0
tay
//FRAGMENT vbuaa=vbuz1_plus_vbuz2
lda {z1}
clc
adc {z2}
//FRAGMENT vbuxx=vbuz1_plus_vbuz2
lda {z1}
clc
adc {z2}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuz2
lda {z1}
clc
adc {z2}
tay
//FRAGMENT vbuz1=vbuz2_plus_vbuaa
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuz1_plus_vbuaa
clc
adc {z1}
//FRAGMENT vbuxx=vbuz1_plus_vbuaa
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuaa
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuz2_plus_vbuxx
txa
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuz1_plus_vbuxx
txa
clc
adc {z1}
//FRAGMENT vbuxx=vbuz1_plus_vbuxx
txa
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuxx
txa
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuz2_plus_vbuyy
tya
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuz1_plus_vbuyy
tya
clc
adc {z1}
//FRAGMENT vbuxx=vbuz1_plus_vbuyy
tya
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuyy
tya
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuz2
txa
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuz1
txa
clc
adc {z1}
//FRAGMENT vbuxx=vbuxx_plus_vbuz1
txa
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuz1
txa
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuaa
stx $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuxx
txa
asl
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuxx
txa
asl
//FRAGMENT vbuxx=vbuxx_plus_vbuxx
txa
asl
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuxx
txa
asl
tay
//FRAGMENT vbuz1=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuxx_plus_vbuyy
txa
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuz2
tya
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuz1
tya
clc
adc {z1}
//FRAGMENT vbuxx=vbuyy_plus_vbuz1
tya
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuz1
tya
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuaa
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuxx
txa
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuyy_plus_vbuyy
tya
asl
sta {z1}
//FRAGMENT vbuaa=vbuyy_plus_vbuyy
tya
asl
//FRAGMENT vbuxx=vbuyy_plus_vbuyy
tya
asl
tax
//FRAGMENT vbuyy=vbuyy_plus_vbuyy
tya
asl
tay
//FRAGMENT vbuxx_eq_0_then_la1
cpx #0
beq {la1}
@ -1395,6 +1264,8 @@ beq {la1}
txa
lsr
tax
//FRAGMENT vbuyy=vbuz1
ldy {z1}
//FRAGMENT vbuyy_neq_0_then_la1
cpy #0
bne {la1}
@ -1414,9 +1285,17 @@ iny
//FRAGMENT vbuyy_neq_vbuc1_then_la1
cpy #{c1}
bne {la1}
//FRAGMENT vbuxx=vbuaa
tax
//FRAGMENT vbuxx=vbuyy
tya
tax
//FRAGMENT vbuaa=vbuyy
tya
//FRAGMENT vbuz1=vbuyy
sty {z1}
//FRAGMENT vbuaa=vbuxx
txa
//FRAGMENT vbuaa=_dec_vbuaa
sec
sbc #1
@ -1442,6 +1321,8 @@ tay
//FRAGMENT vbsyy=vbsxx
txa
tay
//FRAGMENT vbuyy=vbuaa
tay
//FRAGMENT vwuz1=vwuz1_sethi_vbuxx
stx {z1}+1
//FRAGMENT vbuxx=vbuxx_minus_vbuc1
@ -1818,6 +1699,9 @@ ldy {c1}+1
sty $ff
ldy #0
sta ($fe),y
//FRAGMENT _deref_pbuc1=vbuz1
lda {z1}
sta {c1}
//FRAGMENT _deref_qbuc1=pbuz1
lda {z1}
sta {c1}
@ -2166,6 +2050,8 @@ lda {c1}+2,y
sta {z1}+2
lda {c1}+3,y
sta {z1}+3
//FRAGMENT _deref_pbuc1=vbuaa
sta {c1}
//FRAGMENT vbuaa=vbuz1_bxor_vbuc1
lda #{c1}
eor {z1}
@ -2230,6 +2116,10 @@ ldy {c1}+1
sty $ff
ldy #0
sta ($fe),y
//FRAGMENT _deref_pbuc1=vbuxx
stx {c1}
//FRAGMENT _deref_pbuc1=vbuyy
sty {c1}
//FRAGMENT 0_neq_vbuyy_then_la1
cpy #0
bne {la1}
@ -2490,6 +2380,59 @@ sta ({z1}),y
cmp #{c1}
bcc {la1}
beq {la1}
//FRAGMENT vbuz1=vbuaa_plus_vbuz2
clc
adc {z2}
sta {z1}
//FRAGMENT vbuaa=vbuaa_plus_vbuz1
clc
adc {z1}
//FRAGMENT vbuxx=vbuaa_plus_vbuz1
clc
adc {z1}
tax
//FRAGMENT vbuyy=vbuaa_plus_vbuz1
clc
adc {z1}
tay
//FRAGMENT vbuz1=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tay
//FRAGMENT vbuz1=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
sta {z1}
//FRAGMENT vbuaa=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
//FRAGMENT vbuxx=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
tax
//FRAGMENT vbuyy=vbuaa_plus_vbuyy
sty $ff
clc
adc $ff
tay
//FRAGMENT vbuaa_eq_vbuc1_then_la1
cmp #{c1}
beq {la1}
@ -4897,17 +4840,28 @@ asl {z1}
rol {z1}+1
asl {z1}
rol {z1}+1
//FRAGMENT vbuz1=vbuaa_plus_vbuaa
asl
sta {z1}
//FRAGMENT vbuaa=vbuz1_plus_vbuz1
lda {z1}
asl
//FRAGMENT vbuaa=vbuaa_plus_vbuaa
asl
//FRAGMENT vbuxx=vbuz1_plus_vbuz1
lda {z1}
asl
tax
//FRAGMENT vbuxx=vbuaa_plus_vbuaa
asl
tax
//FRAGMENT vbuyy=vbuz1_plus_vbuz1
lda {z1}
asl
tay
//FRAGMENT vbuyy=vbuaa_plus_vbuaa
asl
tay
//FRAGMENT vbuz1=vbuaa_plus_1
clc
adc #1
@ -6765,6 +6719,52 @@ sta {c1}
tya
ora {c1}
sta {c1}
//FRAGMENT _stackpushbyte_=vbuc1
lda #{c1}
pha
//FRAGMENT _stackpullbyte_1
pla
//FRAGMENT vbuz1=_stackpullbyte_
pla
sta {z1}
//FRAGMENT vbuz1=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
sta {z1}
//FRAGMENT _stackidxbyte_vbuc1=vbuz1
lda {z1}
tsx
sta STACK_BASE+{c1},x
//FRAGMENT vbuaa=_stackpullbyte_
pla
//FRAGMENT vbuxx=_stackpullbyte_
pla
tax
//FRAGMENT vbuyy=_stackpullbyte_
pla
tay
//FRAGMENT vbuaa=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
//FRAGMENT vbuxx=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
tax
//FRAGMENT vbuyy=_stackidxbyte_vbuc1
tsx
lda STACK_BASE+{c1},x
tay
//FRAGMENT _stackidxbyte_vbuc1=vbuaa
tsx
sta STACK_BASE+{c1},x
//FRAGMENT _stackidxbyte_vbuc1=vbuxx
txa
tsx
sta STACK_BASE+{c1},x
//FRAGMENT _stackidxbyte_vbuc1=vbuyy
tya
tsx
sta STACK_BASE+{c1},x
//FRAGMENT vbsz1=_dec_vbsz1
dec {z1}
//FRAGMENT pbuz1=pbuc1_plus_vbsz2

2
src/main/fragment/cache/fragment-cache-rom6502x.asm vendored
View File

@ -1,4 +1,4 @@
//KICKC FRAGMENT CACHE 11327739d8 113277581a
//KICKC FRAGMENT CACHE 1006a86fd4 1006a88e44
//FRAGMENT _deref_pbuc1=_inc__deref_pbuc1
inc {c1}
//FRAGMENT isr_hardware_all_entry

2677
src/main/fragment/cache/fragment-cache-wdc65c02.asm vendored
View File

File diff suppressed because it is too large Load Diff

7
src/main/fragment/mos6502-common/pwuc1_derefidx_vbuyy=pwuc1_derefidx_vbuyy_minus_vwuc2.asm Normal file
View File

@ -0,0 +1,7 @@
sec
lda {c1},y
sbc #<{c2}
sta {c1},y
lda {c1}+1,y
sbc #>{c2}
sta {c1}+1,y

8
src/main/fragment/mos6502-common/pwuc1_derefidx_vbuyy_le_vwuc2_then_la1.asm Normal file
View File

@ -0,0 +1,8 @@
lda {c1}+1,y
cmp #>{c2}
bne !+
lda {c1},y
cmp #<{c2}
beq {la1}
!:
bcc {la1}

8
src/main/fragment/mos6502-common/pwuc1_derefidx_vbuyy_lt_vwuc2_then_la1.asm Normal file
View File

@ -0,0 +1,8 @@
lda {c1}+1,y
cmp #>{c2}
bcc {la1}
bne !+
lda {c1},y
cmp #<{c2}
bcc {la1}
!:

1
src/main/fragment/mos6502-common/vbsxx=vbsxx_minus_1.asm Normal file
View File

@ -0,0 +1 @@
dex

2
src/main/fragment/mos6502-common/vbsxx=vbsxx_minus_2.asm Normal file
View File

@ -0,0 +1,2 @@
dex
dex

4
src/main/fragment/mos6502-common/vbsxx=vbsxx_minus_4.asm Normal file
View File

@ -0,0 +1,4 @@
dex
dex
dex
dex

4
src/main/fragment/mos6502-common/vwuc1_lt_vwuc2_then_la1.asm
View File

@ -1,5 +1,5 @@
lda #>{c1}+1
cmp #>{c2}+1
lda #>{c1}
cmp #>{c2}
bcc {la1}
bne !+
lda #<{c1}

2
src/main/fragment/mos6502-undoc/vbsxx=vbsxx_minus_4.asm Normal file
View File

@ -0,0 +1,2 @@
txa
axs #4

2
src/main/fragment/mos6502-undoc/vbsxx=vbsxx_minus_vbsc1.asm Normal file
View File

@ -0,0 +1,2 @@
txa
axs #{c1}

13
src/main/kc/include/cx16-bitmap.h Normal file
View File

@ -0,0 +1,13 @@
// Plot and line drawing routines for HIRES bitmaps
// Currently it can only plot on the first 256 x-positions.
// Initialize the bitmap plotter tables for a specific bitmap
void bitmap_init(byte layer, dword address);
// Clear all graphics on the bitmap
void bitmap_clear();
void bitmap_plot(word x, word y, byte c);
// Draw a line on the bitmap
void bitmap_line(word x0, word x1, word y0, word y1, byte c);

72
src/main/kc/include/cx16-vera.h
View File

@ -137,41 +137,53 @@ char * const VERA_DC_HSTOP = 0x9f2a;
char * const VERA_DC_VSTART = 0x9f2b;
// $9F2C DC_VSTOP (DCSEL=1) Active Display V-Stop (8:1)
char * const VERA_DC_VSTOP = 0x9f2c;
// $9F2D L0_CONFIG Layer 0 Configuration
// Bit 6-7: Map Height (0:32 tiles, 1:64 tiles, 2:128 tiles, 3:256 tiles)
// Configuration work tables
// Bit 4-5. Map Width (0:32 tiles, 1:64 tiles, 2:128 tiles, 3:256 tiles)
// Bit 3: T256C (0: tiles use a 16-color foreground and background color, 1: tiles use a 256-color foreground color) (only relevant in 1bpp modes)
// Bit 2: Bitmap Mode (0:tile mode, 1: bitmap mode)
byte const VERA_LAYER_WIDTH_32 = 0x00;
byte const VERA_LAYER_WIDTH_64 = 0x10;
byte const VERA_LAYER_WIDTH_128 = 0x20;
byte const VERA_LAYER_WIDTH_256 = 0x30;
byte const VERA_LAYER_WIDTH_MASK = 0x30;
word const VERA_LAYER_WIDTH[4] = {32, 64, 128, 256};
// Bit 6-7: Map Height (0:32 tiles, 1:64 tiles, 2:128 tiles, 3:256 tiles)
byte const VERA_LAYER_HEIGHT_32 = 0x00;
byte const VERA_LAYER_HEIGHT_64 = 0x40;
byte const VERA_LAYER_HEIGHT_128 = 0x80;
byte const VERA_LAYER_HEIGHT_256 = 0xC0;
byte const VERA_LAYER_HEIGHT_MASK = 0xC0;
word const VERA_LAYER_HEIGHT[4] = {32, 64, 128, 256};
// Bit 0-1: Color Depth (0: 1 bpp, 1: 2 bpp, 2: 4 bpp, 3: 8 bpp)
byte const VERA_LAYER_COLOR_DEPTH_1BPP = 0x00;
byte const VERA_LAYER_COLOR_DEPTH_2BPP = 0x01;
byte const VERA_LAYER_COLOR_DEPTH_4BPP = 0x02;
byte const VERA_LAYER_COLOR_DEPTH_8BPP = 0x03;
byte const VERA_LAYER_COLOR_DEPTH_MASK = 0x03;
byte const VERA_LAYER_COLOR_DEPTH[4] = {1, 2, 4, 8};
// $9F2D L0_CONFIG Layer 0 Configuration
char * const VERA_L0_CONFIG = 0x9f2d;
// Layer Configuration Bit 6-7: Map Height (0:32 tiles, 1:64 tiles, 2:128 tiles, 3:256 tiles)
char const VERA_CONFIG_HEIGHT_32 = 0x00;
char const VERA_CONFIG_HEIGHT_64 = 0x40;
char const VERA_CONFIG_HEIGHT_128 = 0x80;
char const VERA_CONFIG_HEIGHT_256 = 0xC0;
char const VERA_CONFIG_HEIGHT_MASK = 0xC0;
// Layer Configuration Bit 4-5. Map Width (0:32 tiles, 1:64 tiles, 2:128 tiles, 3:256 tiles)
char const VERA_CONFIG_WIDTH_32 = 0x00;
char const VERA_CONFIG_WIDTH_64 = 0x10;
char const VERA_CONFIG_WIDTH_128 = 0x20;
char const VERA_CONFIG_WIDTH_256 = 0x30;
char const VERA_CONFIG_WIDTH_MASK = 0x30;
// Layer Configuration Bit 3: T256C (0: tiles use a 16-color foreground and background color, 1: tiles use a 256-color foreground color) (only relevant in 1bpp modes)
char const VERA_CONFIG_16C = 0x00;
char const VERA_CONFIG_256C = 0x08;
// Layer Configuration Bit 2: Bitmap Mode (0:tile mode, 1: bitmap mode)
char const VERA_CONFIG_MODE_TILE = 0x00;
char const VERA_CONFIG_MODE_BITMAP = 0x04;
// Layer Configuration Bit 0-1: Color Depth (0: 1 bpp, 1: 2 bpp, 2: 4 bpp, 3: 8 bpp)
char const VERA_CONFIG_COLOR_1BPP = 0x00;
char const VERA_CONFIG_COLOR_2BPP = 0x01;
char const VERA_CONFIG_COLOR_4BPP = 0x02;
char const VERA_CONFIG_COLOR_8BPP = 0x03;
// Bit 2: Bitmap Mode (0:tile mode, 1: bitmap mode)
char const VERA_LAYER_CONFIG_MODE_TILE = 0x00;
char const VERA_LAYER_CONFIG_MODE_BITMAP = 0x04;
// Bit 3: T256C (0: tiles use a 16-color foreground and background color, 1: tiles use a 256-color foreground color) (only relevant in 1bpp modes)
char const VERA_LAYER_CONFIG_16C = 0x00;
char const VERA_LAYER_CONFIG_256C = 0x08;
// $9F2E L0_MAPBASE Layer 0 Map Base Address (16:9)
char * const VERA_L0_MAPBASE = 0x9f2e;
// $9F2F L0_TILEBASE Layer 0 Tile Base
// Bit 2-7: Tile Base Address (16:11)
// Bit 1: Tile Height (0:8 pixels, 1:16 pixels)
byte const VERA_TILEBASE_WIDTH_8 = 0x00;
byte const VERA_TILEBASE_WIDTH_16 = 0x01;
byte const VERA_TILEBASE_WIDTH_MASK = 0x01;
byte const VERA_TILEBASE_HEIGHT_8 = 0x00;
byte const VERA_TILEBASE_HEIGHT_16 = 0x02;
byte const VERA_TILEBASE_HEIGHT_MASK = 0x02;
byte const VERA_LAYER_TILEBASE_MASK = 0xfC;
// Bit 0: Tile Width (0:8 pixels, 1:16 pixels)
char * const VERA_L0_TILEBASE = 0x9f2f;
// $9F30 L0_HSCROLL_L Layer 0 H-Scroll (7:0)
@ -182,11 +194,7 @@ char * const VERA_L0_HSCROLL_H = 0x9f31;
char * const VERA_L0_VSCROLL_L = 0x9f32;
// $9F33 L0_VSCROLL_H Layer 0 V-Scroll (11:8)
char * const VERA_L0_VSCROLL_H = 0x9f33;
// Bit 6-7: Map Height (0:32 tiles, 1:64 tiles, 2:128 tiles, 3:256 tiles)
// Bit 4-5. Map Width (0:32 tiles, 1:64 tiles, 2:128 tiles, 3:256 tiles)
// Bit 3: T256C (0: tiles use a 16-color foreground and background color, 1: tiles use a 256-color foreground color) (only relevant in 1bpp modes)
// Bit 2: Bitmap Mode (0:tile mode, 1: bitmap mode)
// Bit 0-1: Color Depth (0: 1 bpp, 1: 2 bpp, 2: 4 bpp, 3: 8 bpp)
// $9F34 L1_CONFIG Layer 1 Configuration
char * const VERA_L1_CONFIG = 0x9f34;
// $9F35 L1_MAPBASE Layer 1 Map Base Address (16:9)
char * const VERA_L1_MAPBASE = 0x9f35;

328
src/main/kc/include/cx16-veralib.h Normal file
View File

@ -0,0 +1,328 @@
// Commander X16 VERA (Versatile Embedded Retro Adapter) Video and Audio Processor
// https://github.com/commanderx16/x16-docs/blob/master/VERA%20Programmer's%20Reference.md
// Author: Sven Van de Velde
#include <cx16-vera.h>
// --- VERA function encapsulation ---
__ma word vera_mapbase_offset[2] = {0,0};
__ma byte vera_mapbase_bank[2] = {0,0};
__ma dword vera_mapbase_address[2] = {0,0};
word vera_tilebase_offset[2] = {0,0};
byte vera_tilebase_bank[2] = {0,0};
dword vera_tilebase_address[2] = {0,0};
byte vera_layer_rowshift[2] = {0,0};
word vera_layer_rowskip[2] = {0,0};
const byte vera_layer_hflip[2] = {0,0x04};
const byte vera_layer_vflip[2] = {0,0x08};
byte* vera_layer_config[2] = {VERA_L0_CONFIG, VERA_L1_CONFIG};
byte vera_layer_enable[2] = { VERA_LAYER0_ENABLE, VERA_LAYER1_ENABLE };
byte* vera_layer_mapbase[2] = {VERA_L0_MAPBASE, VERA_L1_MAPBASE};
byte* vera_layer_tilebase[2] = {VERA_L0_TILEBASE, VERA_L1_TILEBASE};
byte* vera_layer_vscroll_l[2] = {VERA_L0_VSCROLL_L, VERA_L1_VSCROLL_L};
byte* vera_layer_vscroll_h[2] = {VERA_L0_VSCROLL_H, VERA_L1_VSCROLL_H};
byte* vera_layer_hscroll_l[2] = {VERA_L0_HSCROLL_L, VERA_L1_HSCROLL_L};
byte* vera_layer_hscroll_h[2] = {VERA_L0_HSCROLL_H, VERA_L1_HSCROLL_H};
byte vera_layer_textcolor[2] = {WHITE, WHITE};
byte vera_layer_backcolor[2] = {BLUE, BLUE};
byte hscale[4] = {0,128,64,32};
// --- VERA addressing ---
inline void vera_vram_bank_offset(byte bank, word offset, byte incr);
inline void vera_vram_address0(dword bankaddr, byte incr);
inline void vera_vram_address1(dword bankaddr, byte incr);
// --- VERA active display management ---
inline void vera_display_set_scale_none();
inline void vera_display_set_scale_double();
inline void vera_display_set_scale_triple();
byte vera_display_get_hscale();
byte vera_display_get_vscale();
word vera_display_get_height();
word vera_display_get_width();
// --- VERA LAYERS ---
// Set the configuration of the layer.
// - layer: Value of 0 or 1.
// - config: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
void vera_layer_set_config(byte layer, byte config);
// Get the configuration of the layer.
// - layer: Value of 0 or 1.
// - return: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
byte vera_layer_get_config(byte layer);
// Set the configuration of the layer text color mode.
// - layer: Value of 0 or 1.
// - color_mode: Specifies the color mode to be VERA_LAYER_CONFIG_16 or VERA_LAYER_CONFIG_256 for text mode.
void vera_layer_set_text_color_mode( byte layer, byte color_mode );
// Set the configuration of the layer to bitmap mode.
// - layer: Value of 0 or 1.
void vera_layer_set_bitmap_mode( byte layer );
// Set the configuration of the layer to tilemap mode.
// - layer: Value of 0 or 1.
void vera_layer_set_tilemap_mode( byte layer );
// Set the map width or height of the layer.
// - layer: Value of 0 or 1.
inline void vera_layer_set_width_32(byte layer);
inline void vera_layer_set_width_64(byte layer);
inline void vera_layer_set_width_128(byte layer);
inline void vera_layer_set_width_256(byte layer);
inline void vera_layer_set_height_32(byte layer);
inline void vera_layer_set_height_64(byte layer);
inline void vera_layer_set_height_128(byte layer);
inline void vera_layer_set_height_256(byte layer);
// Get the map width of the layer.
// - layer: Value of 0 or 1.
inline word vera_layer_get_width(byte layer);
// Get the map height of the layer.
// - layer: Value of 0 or 1.
inline word vera_layer_get_height(byte layer);
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_1BPP(byte layer);
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_2BPP(byte layer);
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_4BPP(byte layer);
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_8BPP(byte layer);
// Get the color depth of the layer.
// - layer: Value of 0 or 1.
// - return: 0 = 1 color, 1 = 2 colors, 2 = 4 colors or 3 = 8 colors.
inline byte vera_layer_get_color_depth(byte layer);
// Enable the layer to be displayed on the screen.
// - layer: 0 or 1.
inline void vera_layer_show(byte layer);
// Disable the layer to be displayed on the screen.
// - layer: 0 or 1.
inline void vera_layer_hide(byte layer);
// Is the layer shown on the screen?
// - returns: 1 if layer is displayed on the screen, 0 if not.
inline byte vera_layer_is_visible(byte layer);
// Set the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - mapbase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
void vera_layer_set_mapbase(byte layer, byte mapbase);
// Set the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - mapbase_address: a dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
void vera_layer_set_mapbase_address(byte layer, dword mapbase_address);
// Get the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Returns the base address of the tile map.
// Note that the register is a byte, specifying only bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
byte vera_layer_get_mapbase(byte layer);
// Get the map base address of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Specifies the map base address of the layer, which is returned as a dword.
// Note that the register only specifies bits 16:9 of the 17 bit address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes!
dword vera_layer_get_mapbase_address(byte layer);
// Get the map base bank of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Bank in vera vram.
byte vera_layer_get_mapbase_bank(byte layer);
// Get the map base lower 16-bit address (offset) of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Offset in vera vram of the specified bank.
word vera_layer_get_mapbase_offset(byte layer);
// Set the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - tilebase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
void vera_layer_set_tilebase(byte layer, byte tilebase);
// Set the base address of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - tilebase_address: a dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
void vera_layer_set_tilebase_address(byte layer, dword tilebase_address);
// Get the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
byte vera_layer_get_tilebase(byte layer);
// Get the tile base address of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Specifies the base address of the tile map, which is calculated as an unsigned long int.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
dword vera_layer_get_tilebase_address(byte layer);
// --- VERA layer color management ---
// Set the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15) when the VERA works in 16x16 color text mode.
// An 8 bit value (decimal between 0 and 255) when the VERA works in 256 text mode.
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_set_textcolor(byte layer, byte color);
// Get the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_get_textcolor(byte layer);
// Set the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_set_backcolor(byte layer, byte color);
// Get the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_get_backcolor(byte layer);
// Get the text and back color for text output in 16 color mode.
// - layer: Value of 0 or 1.
// - return: an 8 bit value with bit 7:4 containing the back color and bit 3:0 containing the front color.
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_get_color(byte layer);
// Scroll the horizontal (X) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_layer_set_horizontal_scroll(byte layer, word scroll);
// Scroll the vertical (Y) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_layer_set_vertical_scroll(byte layer, word scroll);
// --- VERA layer technical functions to quickly shift rows.
// Get the bit shift value required to skip a whole line fast.
// - layer: Value of 0 or 1.
// - return: Rowshift value to calculate fast from a y value to line offset in tile mode.
byte vera_layer_get_rowshift(byte layer);
// Get the value required to skip a whole line fast.
// - layer: Value of 0 or 1.
// - return: Skip value to calculate fast from a y value to line offset in tile mode.
word vera_layer_get_rowskip(byte layer);
// Set a vera layer in tile mode and configure the:
// - layer: Value of 0 or 1.
// - mapbase_address: A dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
// - tilebase_address: A dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
// - mapwidth: The width of the map in number of tiles.
// - mapheight: The height of the map in number of tiles.
// - tilewidth: The width of a tile, which can be 8 or 16 pixels.
// - tileheight: The height of a tile, which can be 8 or 16 pixels.
// - color_depth: The color depth in bits per pixel (BPP), which can be 1, 2, 4 or 8.
void vera_layer_mode_tile(byte layer, dword mapbase_address, dword tilebase_address, word mapwidth, word mapheight, byte tilewidth, byte tileheight, byte color_depth );
// Set a vera layer in text mode and configure the:
// - layer: Value of 0 or 1.
// - mapbase_address: A dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
// - tilebase_address: A dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
// - mapwidth: The width of the map in number of tiles.
// - mapheight: The height of the map in number of tiles.
// - tilewidth: The width of a tile, which can be 8 or 16 pixels.
// - tileheight: The height of a tile, which can be 8 or 16 pixels.
// - color_mode: The color mode, which can be 16 or 256.
void vera_layer_mode_text(byte layer, dword mapbase_address, dword tilebase_address, word mapwidth, word mapheight, byte tilewidth, byte tileheight, word color_mode );
// Set a vera layer in bitmap mode and configure the:
// - layer: Value of 0 or 1.
// - mapbase_address: A dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
// - tilebase_address: A dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
// - mapwidth: The width of the map in number of tiles.
// - mapheight: The height of the map in number of tiles.
// - tilewidth: The width of a tile, which can be 8 or 16 pixels.
// - tileheight: The height of a tile, which can be 8 or 16 pixels.
// - color_mode: The color mode, which can be 16 or 256.
void vera_layer_mode_bitmap(byte layer, dword bitmap_address, word mapwidth, word color_depth );

7
src/main/kc/include/cx16.h
View File

@ -76,3 +76,10 @@ void memcpy_to_vram(char vbank, void* vdest, void* src, unsigned int num );
// - num: The number of bytes to copy
void memcpy_in_vram(char dest_bank, void *dest, char dest_increment, char src_bank, void *src, char src_increment, unsigned int num );
// Set block of memory to a value in VRAM.
// Sets num bytes to a value to the memory block pointed to by destination in VRAM.
// - vbank: Which 64K VRAM bank to put data into (0/1)
// - vdest: The destination address in VRAM
// - data: The value to set the vram with.
// - num: The number of bytes to set
void memset_vram(char vbank, void* vdest, char data, unsigned long num );

5
src/main/kc/include/division.h
View File

@ -30,6 +30,11 @@ extern unsigned int rem16u;
// Implemented using simple binary division
unsigned int divr16u(unsigned int dividend, unsigned int divisor, unsigned int rem);
// Performs modulo on two 16 bit unsigned ints and an initial remainder
// Returns the remainder.
// Implemented using simple binary division
unsigned int modr16u(unsigned int dividend, unsigned int divisor, unsigned int rem);
// Performs division on two 16 bit unsigned ints
// Returns the quotient dividend/divisor.
// The remainder will be set into the global variable rem16u

8
src/main/kc/include/mos6569.h
View File

@ -40,6 +40,10 @@ struct MOS6569_VICII {
// $D011 Control Register #1
// - Bit#0-#2: YSCROLL Screen Soft Scroll Vertical
// - Bit#3: RSEL Switch betweem 25 or 24 visible rows
// RSEL| Display window height | First line | Last line
// ----+--------------------------+-------------+----------
// 0 | 24 text lines/192 pixels | 55 ($37) | 246 ($f6)
// 1 | 25 text lines/200 pixels | 51 ($33) | 250 ($fa)
// - Bit#4: DEN Switch VIC-II output on/off
// - Bit#5: BMM Turn Bitmap Mode on/off
// - Bit#6: ECM Turn Extended Color Mode on/off
@ -60,6 +64,10 @@ struct MOS6569_VICII {
// $D016 Control register 2
// - Bit#0-#2: XSCROLL Screen Soft Scroll Horizontal
// - Bit#3: CSEL Switch betweem 40 or 38 visible columns
// CSEL| Display window width | First X coo. | Last X coo.
// ----+--------------------------+--------------+------------
// 0 | 38 characters/304 pixels | 31 ($1f) | 334 ($14e)
// 1 | 40 characters/320 pixels | 24 ($18) | 343 ($157)
// - Bit#4: MCM Turn Multicolor Mode on/off
// - Bit#5-#7: not used
// Initial Value: %00001000

115
src/main/kc/include/veralib.h
View File

@ -1,115 +0,0 @@
// Commander X16 VERA (Versatile Embedded Retro Adapter) Video and Audio Processor
// https://github.com/commanderx16/x16-docs/blob/master/VERA%20Programmer's%20Reference.md
// Author: Sven Van de Velde
// --- VERA function encapsulation ---
// --- VERA LAYERS ---
// Set the configuration of the layer.
// - layer: Value of 0 or 1.
// - config: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
void vera_set_layer_config(unsigned byte layer, unsigned byte config);
// Set the configuration of the layer.
// - layer: Value of 0 or 1.
// - config: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
unsigned byte vera_get_layer_config(unsigned byte layer);
// Set the map width or height of the layer.
// - layer: Value of 0 or 1.
inline void vera_set_layer_map_width_32(unsigned byte layer);
inline void vera_set_layer_map_width_64(unsigned byte layer);
inline void vera_set_layer_map_width_128(unsigned byte layer);
inline void vera_set_layer_map_width_256(unsigned byte layer);
inline void vera_set_layer_map_height_32(unsigned byte layer);
inline void vera_set_layer_map_height_64(unsigned byte layer);
inline void vera_set_layer_map_height_128(unsigned byte layer);
inline void vera_set_layer_map_height_256(unsigned byte layer);
// Enable the layer to be displayed on the screen.
// - layer: 0 or 1.
void vera_show_layer(unsigned byte layer);
// Disable the layer to be displayed on the screen.
// - layer: 0 or 1.
void vera_hide_layer(unsigned byte layer);
// Is the layer shown on the screen?
// - returns: 1 if layer is displayed on the screen, 0 if not.
unsigned byte vera_is_layer_shown(unsigned byte layer);
// Set the base of the map for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - mapbase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
void vera_set_layer_mapbase(unsigned byte layer, unsigned byte mapbase);
// Get the base of the map for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Returns the base address of the tile map.
// Note that the register is a byte, specifying only bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes!
unsigned byte vera_get_layer_mapbase(unsigned byte layer);
// Set the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - tilebase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
void vera_set_layer_tilebase(unsigned byte layer, unsigned byte tilebase);
// Get the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
unsigned byte vera_get_layer_tilebase(unsigned byte layer);
// Set the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_set_layer_textcolor(unsigned byte layer, unsigned byte color);
// Get the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_get_layer_textcolor(unsigned byte layer);
// Set the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_set_layer_backcolor(unsigned byte layer, unsigned byte color);
// Get the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_get_layer_backcolor(unsigned byte layer);
// Get the text and back color for text output in 16 color mode.
// - layer: Value of 0 or 1.
// - return: an 8 bit value with bit 7:4 containing the back color and bit 3:0 containing the front color.
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_get_layer_color(unsigned byte layer);
// Scroll the horizontal (X) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_set_layer_horizontal_scroll(byte layer, word scroll);
// Scroll the vertical (Y) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_set_layer_vertical_scroll(byte layer, word scroll);

122
src/main/kc/lib/conio-cx16.c
View File

@ -1,7 +1,7 @@
// CX16 conio.h implementation
#include <conio.h>
#include <cx16.h>
#include <veralib.h>
#include <cx16-veralib.h>
// The screen width
#define CONIO_WIDTH conio_screen_width
@ -26,6 +26,43 @@ const char CONIO_TEXTCOLOR_DEFAULT = WHITE;
// The default back color
const char CONIO_BACKCOLOR_DEFAULT = BLUE;
// This requires the following constants to be defined
// - CONIO_WIDTH - The screen width
// - CONIO_HEIGHT - The screen height
// - CONIO_SCREEN_TEXT - The text screen address
// - CONIO_SCREEN_COLORS - The color screen address
// - CONIO_TEXTCOLOR_DEFAULT - The default text color
#include <string.h>
// The number of bytes on the screen
#define CONIO_BYTES CONIO_HEIGHT*CONIO_WIDTH
// The current cursor x-position
unsigned byte conio_cursor_x[2] = {0,0};
// The current cursor y-position
unsigned byte conio_cursor_y[2] = {0,0};
// The current text cursor line start
unsigned word conio_line_text[2] = {0x0000,0x0000};
// Is a cursor whown when waiting for input (0: no, other: yes)
__ma unsigned byte conio_display_cursor = 0;
// Is scrolling enabled when outputting beyond the end of the screen (1: yes, 0: no).
// If disabled the cursor just moves back to (0,0) instead
unsigned byte conio_scroll_enable[2] = {1,1};
// Variable holding the screen width;
__ma unsigned byte conio_screen_width = 0;
// Variable holding the screen height;
__ma unsigned byte conio_screen_height = 0;
// Variable holding the screen layer on the VERA card with which conio interacts;
__ma unsigned byte conio_screen_layer = 1;
// Variables holding the current map width and map height of the layer.
__ma word conio_width = 0;
__ma word conio_height = 0;
__ma byte conio_rowshift = 0;
__ma word conio_rowskip = 0;
// Initializer for conio.h on X16 Commander.
#pragma constructor_for(conio_x16_init, cputc, clrscr, cscroll)
@ -34,12 +71,13 @@ void conio_x16_init() {
// Position cursor at current line
char * const BASIC_CURSOR_LINE = 0xD6;
char line = *BASIC_CURSOR_LINE;
vera_layer_mode_text(1,(dword)0x00000,(dword)0x0F800,128,64,8,8,16);
screensize(&conio_screen_width, &conio_screen_height);
screenlayer(1);
vera_set_layer_textcolor(1, WHITE);
vera_set_layer_backcolor(1, BLUE);
vera_set_layer_mapbase(0,0x20);
vera_set_layer_mapbase(1,0x00);
vera_layer_set_textcolor(1, WHITE);
vera_layer_set_backcolor(1, BLUE);
vera_layer_set_mapbase(0,0x20);
vera_layer_set_mapbase(1,0x00);
if(line>=CONIO_HEIGHT) line=CONIO_HEIGHT-1;
gotoxy(0, line);
}
@ -88,46 +126,10 @@ unsigned char kbhit(void) {
return ch;
}
// This requires the following constants to be defined
// - CONIO_WIDTH - The screen width
// - CONIO_HEIGHT - The screen height
// - CONIO_SCREEN_TEXT - The text screen address
// - CONIO_SCREEN_COLORS - The color screen address
// - CONIO_TEXTCOLOR_DEFAULT - The default text color
#include <string.h>
// The number of bytes on the screen
#define CONIO_BYTES CONIO_HEIGHT*CONIO_WIDTH
// The current cursor x-position
unsigned byte conio_cursor_x[2] = {0,0};
// The current cursor y-position
unsigned byte conio_cursor_y[2] = {0,0};
// The current text cursor line start
unsigned word conio_line_text[2] = {0x0000,0x0000};
// Is a cursor whown when waiting for input (0: no, other: yes)
__ma unsigned byte conio_display_cursor = 0;
// Is scrolling enabled when outputting beyond the end of the screen (1: yes, 0: no).
// If disabled the cursor just moves back to (0,0) instead
unsigned byte conio_scroll_enable[2] = {1,1};
// Variable holding the screen width;
__ma unsigned byte conio_screen_width = 0;
// Variable holding the screen height;
__ma unsigned byte conio_screen_height = 0;
// Variable holding the screen layer on the VERA card with which conio interacts;
__ma unsigned byte conio_screen_layer = 1;
// Variables holding the current map width and map height of the layer.
__ma word conio_width = 0;
__ma word conio_height = 0;
__ma byte conio_skip = 0;
// clears the screen and moves the cursor to the upper left-hand corner of the screen.
void clrscr(void) {
char* line_text = CONIO_SCREEN_TEXT;
word skip = (word)((word)1<<conio_skip);
char color = ( vera_get_layer_backcolor(conio_screen_layer) << 4 ) | vera_get_layer_textcolor(conio_screen_layer);
char color = ( vera_layer_get_backcolor(conio_screen_layer) << 4 ) | vera_layer_get_textcolor(conio_screen_layer);
for( char l=0;l<conio_height; l++ ) {
char *ch = line_text;
// Select DATA0
@ -140,7 +142,7 @@ void clrscr(void) {
*VERA_DATA0 = ' ';
*VERA_DATA0 = color;
}
line_text += skip;
line_text += conio_rowskip;
}
conio_cursor_x[conio_screen_layer] = 0;
conio_cursor_y[conio_screen_layer] = 0;
@ -153,7 +155,7 @@ void gotoxy(unsigned byte x, unsigned byte y) {
if(x>=CONIO_WIDTH) x = 0;
conio_cursor_x[conio_screen_layer] = x;
conio_cursor_y[conio_screen_layer] = y;
unsigned int line_offset = (unsigned int)y << conio_skip;
unsigned int line_offset = (unsigned int)y << conio_rowshift;
conio_line_text[conio_screen_layer] = line_offset;
}
@ -194,7 +196,7 @@ inline unsigned byte wherey(void) {
// Output one character at the current cursor position
// Moves the cursor forward. Scrolls the entire screen if needed
void cputc(char c) {
char color = vera_get_layer_color( conio_screen_layer);
char color = vera_layer_get_color( conio_screen_layer);
char* conio_addr = CONIO_SCREEN_TEXT + conio_line_text[conio_screen_layer];
conio_addr += conio_cursor_x[conio_screen_layer] << 1;
@ -226,7 +228,7 @@ void cputc(char c) {
void cputln() {
// TODO: This needs to be optimized! other variations don't compile because of sections not available!
word temp = conio_line_text[conio_screen_layer];
temp += (word)((word)1<<conio_skip);
temp += conio_rowskip;
conio_line_text[conio_screen_layer] = temp;
conio_cursor_x[conio_screen_layer] = 0;
conio_cursor_y[conio_screen_layer]++;
@ -241,7 +243,7 @@ void clearline() {
*VERA_ADDRX_L = <addr;
*VERA_ADDRX_M = >addr;
*VERA_ADDRX_H = VERA_INC_1;
char color = vera_get_layer_color( conio_screen_layer);
char color = vera_layer_get_color( conio_screen_layer);
for( unsigned int c=0;c<CONIO_WIDTH; c++ ) {
// Set data
*VERA_DATA0 = ' ';
@ -256,9 +258,9 @@ void insertdown() {
cy -= 1;
unsigned byte width = CONIO_WIDTH * 2;
for(unsigned byte i=cy; i>0; i--) {
unsigned int line = (conio_cursor_y[conio_screen_layer] + i - 1) << conio_skip;
unsigned int line = (conio_cursor_y[conio_screen_layer] + i - 1) << conio_rowshift;
unsigned char* start = CONIO_SCREEN_TEXT + line;
memcpy_in_vram(0, start+((word)1<<conio_skip), VERA_INC_1, 0, start, VERA_INC_1, width);
memcpy_in_vram(0, start+conio_rowskip, VERA_INC_1, 0, start, VERA_INC_1, width);
}
clearline();
}
@ -268,9 +270,9 @@ void insertup() {
unsigned byte cy = conio_cursor_y[conio_screen_layer];
unsigned byte width = CONIO_WIDTH * 2;
for(unsigned byte i=1; i<=cy; i++) {
unsigned int line = (i-1) << conio_skip;
unsigned int line = (i-1) << conio_rowshift;
unsigned char* start = CONIO_SCREEN_TEXT + line;
memcpy_in_vram(0, start, VERA_INC_1, 0, start+((word)1<<conio_skip), VERA_INC_1, width);
memcpy_in_vram(0, start, VERA_INC_1, 0, start+conio_rowskip, VERA_INC_1, width);
}
clearline();
}
@ -336,15 +338,13 @@ unsigned byte scroll(unsigned byte onoff) {
// Set the layer with which the conio will interact.
// - layer: value of 0 or 1.
void screenlayer(unsigned byte layer) {
layer &= $1;
conio_screen_layer = layer;
unsigned byte addr = vera_get_layer_mapbase(layer);
unsigned int addr_i = addr << 1;
CONIO_SCREEN_BANK = >addr_i;
CONIO_SCREEN_TEXT = addr_i << 8;
conio_width = vera_get_layer_map_width(conio_screen_layer);
conio_skip = (byte)(conio_width >> 4);
conio_height = vera_get_layer_map_height(conio_screen_layer);
CONIO_SCREEN_BANK = vera_layer_get_mapbase_bank(conio_screen_layer);
CONIO_SCREEN_TEXT = vera_layer_get_mapbase_offset(conio_screen_layer);
conio_width = vera_layer_get_width(conio_screen_layer);
conio_rowshift = vera_layer_get_rowshift(conio_screen_layer);
conio_rowskip = vera_layer_get_rowskip(conio_screen_layer);
conio_height = vera_layer_get_height(conio_screen_layer);
}
@ -353,7 +353,7 @@ void screenlayer(unsigned byte layer) {
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
inline char textcolor(char color) {
return vera_set_layer_textcolor(conio_screen_layer, color);
return vera_layer_set_textcolor(conio_screen_layer, color);
}
// Set the back color for text output. The old back text color setting is returned.
@ -361,7 +361,7 @@ inline char textcolor(char color) {
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
inline char bgcolor(char color) {
return vera_set_layer_backcolor(conio_screen_layer, color);
return vera_layer_set_backcolor(conio_screen_layer, color);
}
// Set the color for the border. The old color setting is returned.

207
src/main/kc/lib/cx16-bitmap.c Normal file
View File

@ -0,0 +1,207 @@
// Plot and line drawing routines for HIRES bitmaps
// Currently it can only plot on the first 256 x-positions.
#include <cx16-bitmap.h>
#include <cx16-veralib.h>
#include <multiply.h>
// Tables for the plotter - initialized by calling bitmap_draw_init();
const word __bitmap_plot_x[640];
const dword __bitmap_plot_y[480];
const byte __bitmap_plot_bitmask[640];
const byte __bitmap_plot_bitshift[640];
__ma dword __bitmap_address = 0;
__ma byte __bitmap_layer = 0;
__ma byte __bitmap_hscale = 0;
__ma byte __bitmap_vscale = 0;
__ma byte __bitmap_color_depth = 0;
word hdeltas[16] = {
0, 80, 40, 20, // 1 BPP
0, 160, 80, 40, // 2 BPP
0, 320, 160, 80, // 4 BPP
0, 640, 320, 160 // 8 BPP
};
const word vdeltas[4] = {0, 480, 240, 160};
const byte bitmasks[5] = {$80, $C0, $F0, $FF};
const signed byte bitshifts[5] = {7, 6, 4, 0};
// Initialize the bitmap plotter tables for a specific bitmap
void bitmap_init(byte layer, dword address) {
__bitmap_address = address;
__bitmap_layer = layer;
__bitmap_color_depth = vera_layer_get_color_depth(__bitmap_layer);
__bitmap_hscale = vera_display_get_hscale(); // Returns 1 when 640 and 2 when 320.
__bitmap_vscale = vera_display_get_vscale(); // Returns 1 when 480 and 2 when 240.
byte bitmask = bitmasks[__bitmap_color_depth];
signed byte bitshift = bitshifts[__bitmap_color_depth];
for(word x : 0..639) {
// 1 BPP
if(__bitmap_color_depth==0) {
__bitmap_plot_x[x] = (x >> 3);
__bitmap_plot_bitmask[x] = bitmask;
__bitmap_plot_bitshift[x] = (byte)bitshift;
bitshift -= 1;
bitmask >>= 1;
}
// 2 BPP
if(__bitmap_color_depth==1) {
__bitmap_plot_x[x] = (x >> 2);
__bitmap_plot_bitmask[x] = bitmask;
__bitmap_plot_bitshift[x] = (byte)bitshift;
bitshift -= 2;
bitmask >>= 2;
}
// 4 BPP
if(__bitmap_color_depth==2) {
__bitmap_plot_x[x] = (x >> 1);
__bitmap_plot_bitmask[x] = bitmask;
__bitmap_plot_bitshift[x] = (byte)bitshift;
bitshift -= 4;
bitmask >>= 4;
}
// 8 BPP
if(__bitmap_color_depth==3) {
__bitmap_plot_x[x] = x;
__bitmap_plot_bitmask[x] = bitmask;
__bitmap_plot_bitshift[x] = (byte)bitshift;
}
if(bitshift<0) {
bitshift = bitshifts[__bitmap_color_depth];
}
if(bitmask==0) {
bitmask = bitmasks[__bitmap_color_depth];
}
}
// This sets the right delta to skip a whole line based on the scale, depending on the color depth.
word hdelta = hdeltas[(__bitmap_color_depth<<2)+__bitmap_hscale];
// We start at the bitmap address; The plot_y contains the bitmap address embedded so we know where a line starts.
dword yoffs = __bitmap_address;
for(word y : 0..479) {
__bitmap_plot_y[y] = yoffs;
yoffs = yoffs + hdelta;
}
}
// Clear all graphics on the bitmap
void bitmap_clear() {
byte bitmask = bitmasks[__bitmap_color_depth];
word vdelta = vdeltas[__bitmap_vscale];
word hdelta = hdeltas[(__bitmap_color_depth<<2)+__bitmap_hscale];
dword count = mul16u(hdelta,vdelta);
char vbank = <(>__bitmap_address);
void* vdest = <__bitmap_address;
memset_vram(vbank, vdest, 0, count);
}
void bitmap_plot(word x, word y, byte c) {
// Needs unsigned int arrays arranged as two underlying char arrays to allow char* plotter_x = plot_x[x]; - and eventually - char* plotter = plot_x[x] + plot_y[y];
dword plot_x = __bitmap_plot_x[x];
dword plot_y = __bitmap_plot_y[y];
dword plotter = plot_x+plot_y;
byte bitshift = __bitmap_plot_bitshift[x];
c = bitshift?c<<(bitshift):c;
vera_vram_address0(plotter,VERA_INC_0);
*VERA_DATA0 = (*VERA_DATA0 & ~__bitmap_plot_bitmask[x]) | c;
}
// Draw a line on the bitmap
void bitmap_line(word x0, word x1, word y0, word y1, byte c) {
word xd;
word yd;
if(x0<x1) {
xd = x1-x0;
if(y0<y1) {
yd = y1-y0;
if(yd<xd) {
bitmap_line_xdyi(x0, y0, x1, xd, yd, c);
} else {
bitmap_line_ydxi(y0, x0, y1, yd, xd, c);
}
} else {
yd = y0-y1;
if(yd<xd) {
bitmap_line_xdyd(x0, y0, x1, xd, yd, c);
} else {
bitmap_line_ydxd(y1, x1, y0, yd, xd, c);
}
}
} else {
xd = x0-x1;
if(y0<y1) {
yd = y1-y0;
if(yd<xd) {
bitmap_line_xdyd(x1, y1, x0, xd, yd, c);
} else {
bitmap_line_ydxd(y0, x0, y1, yd, xd, c);
}
} else {
yd = y0-y1;
if(yd<xd) {
bitmap_line_xdyi(x1, y1, x0, xd, yd, c);
} else {
bitmap_line_ydxi(y1, x1, y0, yd, xd, c);
}
}
}
}
void bitmap_line_xdyi(word x, word y, word x1, word xd, word yd,byte c) {
word e = yd>>1;
do {
bitmap_plot(x,y,c);
x++;
e = e+yd;
if(xd<e) {
y++;
e = e - xd;
}
} while (x!=(x1+1));
}
void bitmap_line_xdyd(word x, word y, word x1, word xd, word yd, byte c) {
word e = yd>>1;
do {
bitmap_plot(x,y,c);
x++;
e = e+yd;
if(xd<e) {
y--;
e = e - xd;
}
} while (x!=(x1+1));
}
void bitmap_line_ydxi(word y, word x, word y1, word yd, word xd, byte c) {
word e = xd>>1;
do {
bitmap_plot(x,y,c);
y++;
e = e+xd;
if(yd<e) {
x++;
e = e - yd;
}
} while (y!=(y1+1));
}
void bitmap_line_ydxd(word y, word x, word y1, word yd, word xd, byte c) {
word e = xd>>1;
do {
bitmap_plot(x,y,c);
y = y++;
e = e+xd;
if(yd<e) {
x--;
e = e - yd;
}
} while (y!=(y1+1));
}

717
src/main/kc/lib/cx16-veralib.c Normal file
View File

@ -0,0 +1,717 @@
// Commander X16 VERA (Versatile Embedded Retro Adapter) Video and Audio Processor
// https://github.com/commanderx16/x16-docs/blob/master/VERA%20Programmer's%20Reference.md
// Author: Sven Van de Velde
#include <cx16.h>
#include <cx16-veralib.h>
// --- VERA function encapsulation ---
// --- VERA layer management ---
// --- VERA addressing ---
inline void vera_vram_bank_offset(byte bank, word offset, byte incr) {
// Select DATA0
*VERA_CTRL &= ~VERA_ADDRSEL;
// Set address
*VERA_ADDRX_L = <(offset);
*VERA_ADDRX_M = >(offset);
*VERA_ADDRX_H = bank | incr;
}
inline void vera_vram_address0(dword bankaddr, byte incr) {
// Select DATA0
*VERA_CTRL &= ~VERA_ADDRSEL;
// Set address
*VERA_ADDRX_L = <(<bankaddr);
*VERA_ADDRX_M = >(<bankaddr);
*VERA_ADDRX_H = <(>bankaddr) | incr;
}
inline void vera_vram_address1(dword bankaddr, byte incr) {
// Select DATA1
*VERA_CTRL |= VERA_ADDRSEL;
// Set address
*VERA_ADDRX_L = <(<bankaddr);
*VERA_ADDRX_M = >(<bankaddr);
*VERA_ADDRX_H = <(>bankaddr) | incr;
}
// --- VERA active display management ---
inline void vera_display_set_scale_none() {
*VERA_DC_HSCALE = 128;
*VERA_DC_VSCALE = 128;
}
inline void vera_display_set_scale_double() {
*VERA_DC_HSCALE = 64;
*VERA_DC_VSCALE = 64;
}
inline void vera_display_set_scale_triple() {
*VERA_DC_HSCALE = 32;
*VERA_DC_VSCALE = 32;
}
byte vera_display_get_hscale() {
byte hscale[4] = {0,128,64,32};
byte scale = 0;
for(byte s:1..3) {
if(*VERA_DC_HSCALE==hscale[s]) {
scale = s;
break;
}
}
return scale;
}
byte vera_display_get_vscale() {
byte vscale[4] = {0,128,64,32};
byte scale = 0;
for(byte s:1..3) {
if(*VERA_DC_VSCALE==vscale[s]) {
scale = s;
break;
}
}
return scale;
}
word vera_display_get_height() {
byte scale = vera_display_get_vscale();
*VERA_CTRL = *VERA_CTRL | VERA_DCSEL;
word height = (word)(*VERA_DC_VSTOP - *VERA_DC_VSTART);
switch( scale ) {
case 2:
height = height >> 1;
break;
case 3:
height = height >> 2;
break;
}
*VERA_CTRL = *VERA_CTRL & ~VERA_DCSEL;
return height<<1;
}
word vera_display_get_width() {
byte scale = vera_display_get_hscale();
*VERA_CTRL = *VERA_CTRL | VERA_DCSEL;
word width = (word)(*VERA_DC_HSTOP - *VERA_DC_HSTART);
switch( scale ) {
case 2:
width = width >> 1;
break;
case 3:
width = width >> 2;
break;
}
*VERA_CTRL = *VERA_CTRL & ~VERA_DCSEL;
return width<<1;
}
// --- VERA layer management ---
// Set the configuration of the layer.
// - layer: Value of 0 or 1.
// - config: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
void vera_layer_set_config(byte layer, byte config) {
byte* addr = vera_layer_config[layer];
*addr = config;
}
// Get the configuration of the layer.
// - layer: Value of 0 or 1.
// - return: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
byte vera_layer_get_config(byte layer) {
byte* config = vera_layer_config[layer];
return *config;
}
// Set the configuration of the layer text color mode.
// - layer: Value of 0 or 1.
// - color_mode: Specifies the color mode to be VERA_LAYER_CONFIG_16 or VERA_LAYER_CONFIG_256 for text mode.
void vera_layer_set_text_color_mode( byte layer, byte color_mode ) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_CONFIG_256C;
*addr |= color_mode;
}
// Set the configuration of the layer to bitmap mode.
// - layer: Value of 0 or 1.
void vera_layer_set_bitmap_mode( byte layer ) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_CONFIG_MODE_BITMAP;
*addr |= VERA_LAYER_CONFIG_MODE_BITMAP;
}
// Set the configuration of the layer to tilemap mode.
// - layer: Value of 0 or 1.
void vera_layer_set_tilemap_mode( byte layer ) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_CONFIG_MODE_BITMAP;
*addr |= VERA_LAYER_CONFIG_MODE_TILE;
}
// Set the map width or height of the layer.
// - layer: Value of 0 or 1.
inline void vera_layer_set_width_32(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_WIDTH_MASK;
*addr |= VERA_LAYER_WIDTH_32;
}
inline void vera_layer_set_width_64(byte layer) {
byte* addr = vera_layer_config[layer];
//*addr &= (~VERA_CONFIG_WIDTH_MASK) | VERA_CONFIG_WIDTH_64;
*addr &= ~VERA_LAYER_WIDTH_MASK;
*addr |= VERA_LAYER_WIDTH_64;
}
inline void vera_layer_set_width_128(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_WIDTH_MASK;
*addr |= VERA_LAYER_WIDTH_128;
}
inline void vera_layer_set_width_256(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_WIDTH_MASK;
*addr |= VERA_LAYER_WIDTH_256;
}
inline void vera_layer_set_height_32(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_HEIGHT_MASK;
*addr |= VERA_LAYER_HEIGHT_32;
}
inline void vera_layer_set_height_64(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_HEIGHT_MASK;
*addr |= VERA_LAYER_HEIGHT_64;
}
inline void vera_layer_set_height_128(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_HEIGHT_MASK;
*addr |= VERA_LAYER_HEIGHT_128;
}
inline void vera_layer_set_height_256(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_HEIGHT_MASK;
*addr |= VERA_LAYER_HEIGHT_256;
}
// Get the map width of the layer.
// - layer: Value of 0 or 1.
inline word vera_layer_get_width(byte layer) {
byte* config = vera_layer_config[layer];
return VERA_LAYER_WIDTH[ (*config & VERA_LAYER_WIDTH_MASK) >> 4];
}
// Get the map height of the layer.
// - layer: Value of 0 or 1.
inline word vera_layer_get_height(byte layer) {
byte* config = vera_layer_config[layer];
return VERA_LAYER_HEIGHT[ (*config & VERA_LAYER_HEIGHT_MASK) >> 6];
}
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_1BPP(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_COLOR_DEPTH_MASK;
*addr |= VERA_LAYER_COLOR_DEPTH_1BPP;
}
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_2BPP(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_COLOR_DEPTH_MASK;
*addr |= VERA_LAYER_COLOR_DEPTH_2BPP;
}
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_4BPP(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_COLOR_DEPTH_MASK;
*addr |= VERA_LAYER_COLOR_DEPTH_4BPP;
}
// Set the color depth of the layer in bit per pixel (BPP) to 1.
// - layer: Value of 0 or 1.
inline void vera_layer_set_color_depth_8BPP(byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_LAYER_COLOR_DEPTH_MASK;
*addr |= VERA_LAYER_COLOR_DEPTH_8BPP;
}
// Get the color depth of the layer.
// - layer: Value of 0 or 1.
// - return: 0 = 1 color, 1 = 2 colors, 2 = 4 colors or 3 = 8 colors.
inline byte vera_layer_get_color_depth(byte layer) {
byte* config = vera_layer_config[layer];
return (*config & VERA_LAYER_COLOR_DEPTH_MASK);
}
// Enable the layer to be displayed on the screen.
// - layer: 0 or 1.
inline void vera_layer_show(byte layer) {
*VERA_DC_VIDEO |= vera_layer_enable[layer];
}
// Disable the layer to be displayed on the screen.
// - layer: 0 or 1.
inline void vera_layer_hide(byte layer) {
*VERA_DC_VIDEO &= ~vera_layer_enable[layer];
}
// Is the layer shown on the screen?
// - returns: 1 if layer is displayed on the screen, 0 if not.
inline byte vera_layer_is_visible(byte layer) {
return *VERA_DC_VIDEO & vera_layer_enable[layer];
}
// Set the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - mapbase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
void vera_layer_set_mapbase(byte layer, byte mapbase) {
byte* addr = vera_layer_mapbase[layer];
*addr = mapbase;
}
// Set the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - mapbase_address: a dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
void vera_layer_set_mapbase_address(byte layer, dword mapbase_address) {
mapbase_address = mapbase_address & 0x1FF00; // Aligned to 2048 bit zones.
byte bank_mapbase = (byte)>mapbase_address;
word offset_mapbase = <mapbase_address;
vera_mapbase_address[layer] = mapbase_address;
vera_mapbase_offset[layer] = offset_mapbase;
vera_mapbase_bank[layer] = bank_mapbase;
byte mapbase = >(<(mapbase_address>>1));
vera_layer_set_mapbase(layer,mapbase);
}
// Get the map base address of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Specifies the map base address of the layer, which is returned as a dword.
// Note that the register only specifies bits 16:9 of the 17 bit address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes!
dword vera_layer_get_mapbase_address(byte layer) {
return vera_mapbase_address[layer];
}
// Get the map base bank of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Bank in vera vram.
byte vera_layer_get_mapbase_bank(byte layer) {
return vera_mapbase_bank[layer];
}
// Get the map base lower 16-bit address (offset) of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Offset in vera vram of the specified bank.
word vera_layer_get_mapbase_offset(byte layer) {
return vera_mapbase_offset[layer];
}
// Get the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Returns the base address of the tile map.
// Note that the register is a byte, specifying only bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
byte vera_layer_get_mapbase(byte layer) {
byte* mapbase = vera_layer_mapbase[layer];
return *mapbase;
}
// Set the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - tilebase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
void vera_layer_set_tilebase(byte layer, byte tilebase) {
byte* addr = vera_layer_tilebase[layer];
*addr = tilebase;
}
// Get the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
byte vera_layer_get_tilebase(byte layer) {
byte* tilebase = vera_layer_tilebase[layer];
return *tilebase;
}
// Set the base address of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - tilebase_address: a dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
void vera_layer_set_tilebase_address(byte layer, dword tilebase_address) {
tilebase_address = tilebase_address & 0x1FC00; // Aligned to 2048 bit zones.
byte bank_tilebase = (byte)>tilebase_address;
word word_tilebase = <tilebase_address;
vera_tilebase_address[layer] = tilebase_address;
vera_tilebase_offset[layer] = word_tilebase;
vera_tilebase_bank[layer] = bank_tilebase;
byte* vera_tilebase = vera_layer_tilebase[layer];
byte tilebase = >(<(tilebase_address>>1));
tilebase &= VERA_LAYER_TILEBASE_MASK; // Ensure that only tilebase is blanked, but keep the rest!
//printf("tilebase = %x\n",tilebase);
//while(!kbhit());
tilebase = tilebase | ( *vera_tilebase & ~VERA_LAYER_TILEBASE_MASK );
vera_layer_set_tilebase(layer,tilebase);
}
// Get the tile base address of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Specifies the base address of the tile map, which is calculated as an unsigned long int.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
dword vera_layer_get_tilebase_address(byte layer) {
byte tilebase = *vera_layer_tilebase[layer];
dword address = tilebase;
address &= $FC;
address <<= 8;
address <<= 1;
return address;
}
// --- VERA color management ---
// Set the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15) when the VERA works in 16x16 color text mode.
// An 8 bit value (decimal between 0 and 255) when the VERA works in 256 text mode.
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_set_textcolor(byte layer, byte color) {
byte old = vera_layer_textcolor[layer];
vera_layer_textcolor[layer] = color;
return old;
}
// Get the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_get_textcolor(byte layer) {
return vera_layer_textcolor[layer];
}
// Set the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_set_backcolor(byte layer, byte color) {
byte old = vera_layer_backcolor[layer];
vera_layer_backcolor[layer] = color;
return old;
}
// Get the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_get_backcolor(byte layer) {
return vera_layer_backcolor[layer];
}
// Get the text and back color for text output in 16 color mode.
// - layer: Value of 0 or 1.
// - return: an 8 bit value with bit 7:4 containing the back color and bit 3:0 containing the front color.
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
byte vera_layer_get_color(byte layer) {
byte* addr = vera_layer_config[layer];
if( *addr & VERA_LAYER_CONFIG_256C )
return (vera_layer_textcolor[layer]);
else
return ((vera_layer_backcolor[layer] << 4) | vera_layer_textcolor[layer]);
}
// Scroll the horizontal (X) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_layer_set_horizontal_scroll(byte layer, word scroll) {
*vera_layer_hscroll_l[layer] = <scroll;
*vera_layer_hscroll_h[layer] = >scroll;
}
// Scroll the vertical (Y) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_layer_set_vertical_scroll(byte layer, word scroll) {
*vera_layer_vscroll_l[layer] = <scroll;
*vera_layer_vscroll_h[layer] = >scroll;
}
// Get the bit shift value required to skip a whole line fast.
// - layer: Value of 0 or 1.
// - return: Rowshift value to calculate fast from a y value to line offset in tile mode.
byte vera_layer_get_rowshift(byte layer) {
return vera_layer_rowshift[layer];
}
// Get the value required to skip a whole line fast.
// - layer: Value of 0 or 1.
// - return: Skip value to calculate fast from a y value to line offset in tile mode.
word vera_layer_get_rowskip(byte layer) {
return vera_layer_rowskip[layer];
}
// Set a vera layer in tile mode and configure the:
// - layer: Value of 0 or 1.
// - mapbase_address: A dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
// - tilebase_address: A dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
// - mapwidth: The width of the map in number of tiles.
// - mapheight: The height of the map in number of tiles.
// - tilewidth: The width of a tile, which can be 8 or 16 pixels.
// - tileheight: The height of a tile, which can be 8 or 16 pixels.
// - color_depth: The color depth in bits per pixel (BPP), which can be 1, 2, 4 or 8.
void vera_layer_mode_tile(byte layer, dword mapbase_address, dword tilebase_address, word mapwidth, word mapheight, byte tilewidth, byte tileheight, byte color_depth ) {
// config
byte config = 0x00;
switch(color_depth) {
case 1:
config |= VERA_LAYER_COLOR_DEPTH_1BPP;
break;
case 2:
config |= VERA_LAYER_COLOR_DEPTH_2BPP;
break;
case 4:
config |= VERA_LAYER_COLOR_DEPTH_4BPP;
break;
case 8:
config |= VERA_LAYER_COLOR_DEPTH_8BPP;
break;
}
switch(mapwidth) {
case 32:
config |= VERA_LAYER_WIDTH_32;
vera_layer_rowshift[layer] = 6;
vera_layer_rowskip[layer] = 64;
break;
case 64:
config |= VERA_LAYER_WIDTH_64;
vera_layer_rowshift[layer] = 7;
vera_layer_rowskip[layer] = 128;
break;
case 128:
config |= VERA_LAYER_WIDTH_128;
vera_layer_rowshift[layer] = 8;
vera_layer_rowskip[layer] = 256;
break;
case 256:
config |= VERA_LAYER_WIDTH_256;
vera_layer_rowshift[layer] = 9;
vera_layer_rowskip[layer] = 512;
break;
}
switch(mapheight) {
case 32:
config |= VERA_LAYER_HEIGHT_32;
break;
case 64:
config |= VERA_LAYER_HEIGHT_64;
break;
case 128:
config |= VERA_LAYER_HEIGHT_128;
break;
case 256:
config |= VERA_LAYER_HEIGHT_256;
break;
}
vera_layer_set_config(layer, config);
// mapbase
vera_mapbase_offset[layer] = <mapbase_address;
vera_mapbase_bank[layer] = (byte)(>mapbase_address);
vera_mapbase_address[layer] = mapbase_address;
mapbase_address = mapbase_address >> 1;
byte mapbase = >(<mapbase_address);
vera_layer_set_mapbase(layer,mapbase);
// tilebase
vera_tilebase_offset[layer] = <tilebase_address;
vera_tilebase_bank[layer] = (byte)>tilebase_address;
vera_tilebase_address[layer] = tilebase_address;
tilebase_address = tilebase_address >> 1;
byte tilebase = >(<tilebase_address);
tilebase &= VERA_LAYER_TILEBASE_MASK;
switch(tilewidth) {
case 8:
tilebase |= VERA_TILEBASE_WIDTH_8;
break;
case 16:
tilebase |= VERA_TILEBASE_WIDTH_16;
break;
}
switch(tileheight) {
case 8:
tilebase |= VERA_TILEBASE_HEIGHT_8;
break;
case 16:
tilebase |= VERA_TILEBASE_HEIGHT_16;
break;
}
vera_layer_set_tilebase(layer,tilebase);
}
// Set a vera layer in text mode and configure the:
// - layer: Value of 0 or 1.
// - mapbase_address: A dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
// - tilebase_address: A dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
// - mapwidth: The width of the map in number of tiles.
// - mapheight: The height of the map in number of tiles.
// - tilewidth: The width of a tile, which can be 8 or 16 pixels.
// - tileheight: The height of a tile, which can be 8 or 16 pixels.
// - color_mode: The color mode, which can be 16 or 256.
void vera_layer_mode_text(byte layer, dword mapbase_address, dword tilebase_address, word mapwidth, word mapheight, byte tilewidth, byte tileheight, word color_mode ) {
vera_layer_mode_tile( layer, mapbase_address, tilebase_address, mapwidth, mapheight, tilewidth, tileheight, 1 );
switch(color_mode) {
case 16:
vera_layer_set_text_color_mode( layer, VERA_LAYER_CONFIG_16C );
break;
case 256:
vera_layer_set_text_color_mode( layer, VERA_LAYER_CONFIG_256C );
break;
}
}
// Set a vera layer in bitmap mode and configure the:
// - layer: Value of 0 or 1.
// - mapbase_address: A dword typed address (4 bytes), that specifies the full address of the map base.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective mapbase vera register.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
// - tilebase_address: A dword typed address (4 bytes), that specifies the base address of the tile map.
// The function does the translation from the dword that contains the 17 bit address,
// to the respective tilebase vera register.
// Note that the resulting vera register holds only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
// - mapwidth: The width of the map in number of tiles.
// - mapheight: The height of the map in number of tiles.
// - tilewidth: The width of a tile, which can be 8 or 16 pixels.
// - tileheight: The height of a tile, which can be 8 or 16 pixels.
// - color_mode: The color mode, which can be 16 or 256.
void vera_layer_mode_bitmap(byte layer, dword bitmap_address, word mapwidth, word color_depth ) {
// config
byte config = 0x00;
switch(color_depth) {
case 1:
config |= VERA_LAYER_COLOR_DEPTH_1BPP;
break;
case 2:
config |= VERA_LAYER_COLOR_DEPTH_2BPP;
break;
case 4:
config |= VERA_LAYER_COLOR_DEPTH_4BPP;
break;
case 8:
config |= VERA_LAYER_COLOR_DEPTH_8BPP;
break;
}
config = config | VERA_LAYER_CONFIG_MODE_BITMAP;
// tilebase
vera_tilebase_offset[layer] = <bitmap_address;
vera_tilebase_bank[layer] = (byte)>bitmap_address;
vera_tilebase_address[layer] = bitmap_address;
bitmap_address = bitmap_address >> 1;
byte tilebase = >(<bitmap_address);
tilebase &= VERA_LAYER_TILEBASE_MASK;
// mapwidth
switch(mapwidth) {
case 320:
vera_display_set_scale_double();
tilebase |= VERA_TILEBASE_WIDTH_8;
break;
case 640:
vera_display_set_scale_none();
tilebase |= VERA_TILEBASE_WIDTH_16;
break;
}
vera_layer_set_config(layer, config);
vera_layer_set_tilebase(layer,tilebase);
}
// --- TILE FUNCTIONS ---
void vera_tile_area(byte layer, word tileindex, byte x, byte y, byte w, byte h, byte hflip, byte vflip, byte offset) {
dword mapbase = vera_mapbase_address[layer];
byte shift = vera_layer_rowshift[layer];
word rowskip = (word)1 << shift;
hflip = vera_layer_hflip[hflip];
vflip = vera_layer_vflip[vflip];
offset = offset << 4;
byte index_l = <tileindex;
byte index_h = >tileindex;
index_h |= hflip;
index_h |= vflip;
index_h |= offset;
mapbase += ((word)y << shift);
mapbase += (x << 1);
for(byte r=0; r<h; r++) {
vera_vram_address0(mapbase,VERA_INC_1);
for(byte c=0; c<w; c++) {
*VERA_DATA0 = index_l;
*VERA_DATA0 = index_h;
}
mapbase += rowskip;
}
}

18
src/main/kc/lib/cx16.c
View File

@ -55,6 +55,24 @@ void memcpy_to_vram(char vbank, void* vdest, void* src, unsigned int num ) {
*VERA_DATA0 = *s;
}
// Set block of memory to a value in VRAM.
// Sets num bytes to a value to the memory block pointed to by destination in VRAM.
// - vbank: Which 64K VRAM bank to put data into (0/1)
// - vdest: The destination address in VRAM
// - data: The value to set the vram with.
// - num: The number of bytes to set
void memset_vram(char vbank, void* vdest, char data, unsigned long num ) {
// Select DATA0
*VERA_CTRL &= ~VERA_ADDRSEL;
// Set address
*VERA_ADDRX_L = <vdest;
*VERA_ADDRX_M = >vdest;
*VERA_ADDRX_H = VERA_INC_1 | vbank;
// Transfer the data
for(unsigned long i = 0; i<num; i++)
*VERA_DATA0 = data;
}
// Copy block of memory (from VRAM to VRAM)
// Copies the values from the location pointed by src to the location pointed by dest.
// The method uses the VERA access ports 0 and 1 to copy data from and to in VRAM.

8
src/main/kc/lib/division.c
View File

@ -71,6 +71,14 @@ unsigned int divr16u(unsigned int dividend, unsigned int divisor, unsigned int r
return quotient;
}
// Performs modulo on two 16 bit unsigned ints and an initial remainder
// Returns the remainder.
// Implemented using simple binary division
unsigned int modr16u(unsigned int dividend, unsigned int divisor, unsigned int rem) {
divr16u(dividend, divisor, rem);
return rem16u;
}
// Performs division on two 16 bit unsigned ints
// Returns the quotient dividend/divisor.
// The remainder will be set into the global variable rem16u

282
src/main/kc/lib/veralib.c
View File

@ -1,282 +0,0 @@
// Commander X16 VERA (Versatile Embedded Retro Adapter) Video and Audio Processor
// https://github.com/commanderx16/x16-docs/blob/master/VERA%20Programmer's%20Reference.md
// Author: Sven Van de Velde
#include <cx16.h>
#include <veralib.h>
// --- VERA function encapsulation ---
// --- VERA layer management ---
byte* vera_layer_config[2] = {VERA_L0_CONFIG, VERA_L1_CONFIG};
byte vera_layer_enable[2] = { VERA_LAYER0_ENABLE, VERA_LAYER1_ENABLE };
byte* vera_layer_mapbase[2] = {VERA_L0_MAPBASE, VERA_L1_MAPBASE};
byte* vera_layer_tilebase[2] = {VERA_L0_TILEBASE, VERA_L1_TILEBASE};
byte* vera_layer_vscroll_l[2] = {VERA_L0_VSCROLL_L, VERA_L1_VSCROLL_L};
byte* vera_layer_vscroll_h[2] = {VERA_L0_VSCROLL_H, VERA_L1_VSCROLL_H};
byte* vera_layer_hscroll_l[2] = {VERA_L0_HSCROLL_L, VERA_L1_HSCROLL_L};
byte* vera_layer_hscroll_h[2] = {VERA_L0_HSCROLL_H, VERA_L1_HSCROLL_H};
byte vera_layer_textcolor[2] = {WHITE, WHITE};
byte vera_layer_backcolor[2] = {BLUE, BLUE};
// --- VERA addressing ---
void vera_vram_address0(dword bankaddr, byte incr) {
word* word_l = &(<bankaddr);
word* word_h = &(>bankaddr);
// Select DATA0
*VERA_CTRL &= ~VERA_ADDRSEL;
// Set address
*VERA_ADDRX_L = <(*word_l);
*VERA_ADDRX_M = >(*word_l);
*VERA_ADDRX_H = <(*word_h) | incr;
}
void vera_vram_address1(dword bankaddr, byte incr) {
word* word_l = &(<bankaddr);
word* word_h = &(>bankaddr);
// Select DATA1
*VERA_CTRL |= VERA_ADDRSEL;
// Set address
*VERA_ADDRX_L = <(*word_l);
*VERA_ADDRX_M = >(*word_l);
*VERA_ADDRX_H = <(*word_h) | incr;
}
// --- VERA layer management ---
// Set the configuration of the layer.
// - layer: Value of 0 or 1.
// - config: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
void vera_set_layer_config(char layer, char config) {
layer &= $1;
char* addr = vera_layer_config[layer];
*addr = config;
}
// Set the configuration of the layer.
// - layer: Value of 0 or 1.
// - config: Specifies the modes which are specified using T256C / 'Bitmap Mode' / 'Color Depth'.
char vera_get_layer_config(char layer) {
layer &= $1;
char* config = vera_layer_config[layer];
return *config;
}
// Set the map width or height of the layer.
// - layer: Value of 0 or 1.
inline void vera_set_layer_map_width_32(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_CONFIG_WIDTH_MASK;
*addr |= VERA_CONFIG_WIDTH_32;
}
inline void vera_set_layer_map_width_64(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
//*addr &= (~VERA_CONFIG_WIDTH_MASK) | VERA_CONFIG_WIDTH_64;
*addr &= ~VERA_CONFIG_WIDTH_MASK;
*addr |= VERA_CONFIG_WIDTH_64;
}
inline void vera_set_layer_map_width_128(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_CONFIG_WIDTH_MASK;
*addr |= VERA_CONFIG_WIDTH_128;
}
inline void vera_set_layer_map_width_256(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_CONFIG_WIDTH_MASK;
*addr |= VERA_CONFIG_WIDTH_256;
}
inline void vera_set_layer_map_height_32(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_CONFIG_HEIGHT_MASK;
*addr |= VERA_CONFIG_HEIGHT_32;
}
inline void vera_set_layer_map_height_64(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_CONFIG_HEIGHT_MASK;
*addr |= VERA_CONFIG_HEIGHT_64;
}
inline void vera_set_layer_map_height_128(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_CONFIG_HEIGHT_MASK;
*addr |= VERA_CONFIG_HEIGHT_128;
}
inline void vera_set_layer_map_height_256(unsigned byte layer) {
byte* addr = vera_layer_config[layer];
*addr &= ~VERA_CONFIG_HEIGHT_MASK;
*addr |= VERA_CONFIG_HEIGHT_256;
}
unsigned int const VERA_CONFIG_WIDTH[4] = { 32, 64, 128, 256 };
// Get the map width or height of the layer.
// - layer: Value of 0 or 1.
word vera_get_layer_map_width(unsigned byte layer) {
byte* config = vera_layer_config[layer];
byte mask = (byte)VERA_CONFIG_WIDTH_MASK;
return VERA_CONFIG_WIDTH[ (*config & mask) >> 4];
}
unsigned int const VERA_CONFIG_HEIGHT[4] = { 32, 64, 128, 256 };
word vera_get_layer_map_height(unsigned byte layer) {
byte* config = vera_layer_config[layer];
byte mask = VERA_CONFIG_HEIGHT_MASK;
return VERA_CONFIG_HEIGHT[ (*config & mask) >> 6];
}
// Enable the layer to be displayed on the screen.
// - layer: 0 or 1.
inline void vera_show_layer(char layer) {
*VERA_DC_VIDEO |= vera_layer_enable[layer];
}
// Disable the layer to be displayed on the screen.
// - layer: 0 or 1.
inline void vera_hide_layer(char layer) {
*VERA_DC_VIDEO &= ~vera_layer_enable[layer];
}
// Is the layer shown on the screen?
// - returns: 1 if layer is displayed on the screen, 0 if not.
char vera_is_layer_shown(char layer) {
layer &= $1;
return *VERA_DC_VIDEO & vera_layer_enable[layer];
}
// Set the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - mapbase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
void vera_set_layer_mapbase(unsigned byte layer, unsigned byte mapbase) {
layer &= $1;
unsigned byte* addr = vera_layer_mapbase[layer];
*addr = mapbase;
}
// Get the base of the map layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Returns the base address of the tile map.
// Note that the register is a byte, specifying only bits 16:9 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 512 bytes.
unsigned byte vera_get_layer_mapbase(unsigned byte layer) {
layer &= $1;
unsigned byte* mapbase = vera_layer_mapbase[layer];
return *mapbase;
}
// Set the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - tilebase: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
void vera_set_layer_tilebase(unsigned byte layer, unsigned byte tilebase) {
layer &= $1;
unsigned byte* addr = vera_layer_tilebase[layer];
*addr = tilebase;
}
// Get the base of the tiles for the layer with which the conio will interact.
// - layer: Value of 0 or 1.
// - return: Specifies the base address of the tile map.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
unsigned byte vera_get_layer_tilebase(unsigned byte layer) {
layer &= $1;
unsigned byte* tilebase = vera_layer_tilebase[layer];
return *tilebase;
}
// Get the tile base address of the tiles for the layer.
// - layer: Value of 0 or 1.
// - return: Specifies the base address of the tile map, which is calculated as an unsigned long int.
// Note that the register only specifies bits 16:11 of the address,
// so the resulting address in the VERA VRAM is always aligned to a multiple of 2048 bytes!
dword vera_get_layer_tilebase_address(byte layer) {
layer &= $1;
byte tilebase = *vera_layer_tilebase[layer];
dword address = tilebase;
address &= $FC;
address <<= 8;
address <<= 1;
return address;
}
// --- VERA color management ---
// Set the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_set_layer_textcolor(unsigned byte layer, unsigned byte color) {
layer &= $1;
unsigned byte old = vera_layer_textcolor[layer];
vera_layer_textcolor[layer] = color;
return old;
}
// Get the front color for text output. The old front text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_get_layer_textcolor(unsigned byte layer) {
layer &= $1;
return vera_layer_textcolor[layer];
}
// Set the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - color: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_set_layer_backcolor(unsigned byte layer, unsigned byte color) {
layer &= $1;
unsigned byte old = vera_layer_backcolor[layer];
vera_layer_backcolor[layer] = color;
return old;
}
// Get the back color for text output. The old back text color setting is returned.
// - layer: Value of 0 or 1.
// - return: a 4 bit value ( decimal between 0 and 15).
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_get_layer_backcolor(unsigned byte layer) {
layer &= $1;
return vera_layer_backcolor[layer];
}
// Get the text and back color for text output in 16 color mode.
// - layer: Value of 0 or 1.
// - return: an 8 bit value with bit 7:4 containing the back color and bit 3:0 containing the front color.
// This will only work when the VERA is in 16 color mode!
// Note that on the VERA, the transparent color has value 0.
unsigned byte vera_get_layer_color(unsigned byte layer) {
layer &= $1;
return ((vera_layer_backcolor[layer] << 4) | vera_layer_textcolor[layer]);
}
// Scroll the horizontal (X) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_set_layer_horizontal_scroll(byte layer, word scroll) {
*vera_layer_hscroll_l[layer] = <scroll;
*vera_layer_hscroll_h[layer] = >scroll;
}
// Scroll the vertical (Y) axis of the layer visible area over the layer tile map area.
// - layer: Value of 0 or 1.
// - scroll: A value between 0 and 4096.
inline void vera_set_layer_vertical_scroll(byte layer, word scroll) {
*vera_layer_vscroll_l[layer] = <scroll;
*vera_layer_vscroll_h[layer] = >scroll;
}

10
src/test/java/dk/camelot64/kickc/test/TestPrograms.java
View File

@ -472,6 +472,16 @@ public class TestPrograms {
// compileAndCompare("examples/cx16/cx16-vera.c");
//}
@Test
public void testCx16VeralibTilemap8bpp() throws IOException, URISyntaxException {
compileAndCompare("examples/cx16/veralib/tilemap_8bpp_16_x_16.c");
}
@Test
public void testCx16VeralibBitmap8bpp() throws IOException, URISyntaxException {
compileAndCompare("examples/cx16/veralib/bitmap_8bpp_320_x_240.c");
}
@Test
public void testCx16VeraLayers() throws IOException, URISyntaxException {
compileAndCompare("examples/cx16/cx16-veralayers.c");

27
src/test/kc/examples/cx16/cx16-tilemap.c
View File

@ -8,8 +8,9 @@
// The map base is address 0x00000 in VERA VRAM, the tile map is address 0x0F800.
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <veralib.h>
#include <cx16-veralib.h>
#include <stdio.h>
#include <6502.h>
@ -19,13 +20,9 @@ void main() {
bgcolor(BLACK);
clrscr();
// Now we set the tile map width and height.
vera_set_layer_mapbase(0,0x80); // Set the map base to address 0x10000 in VERA VRAM!
vera_set_layer_config(0, vera_get_layer_config(1));
vera_set_layer_tilebase(0, vera_get_layer_tilebase(1));
vera_set_layer_map_width_128(0);
vera_set_layer_map_height_128(0);
dword tilebase = vera_get_layer_tilebase_address(0);
dword tilebase = vera_layer_get_tilebase_address(1);
vera_layer_mode_tile(0, 0x10000, tilebase, 128, 128, 8, 8, 1);
screenlayer(0);
scroll(0); // Scrolling on conio is deactivated, so conio will output beyond the borders of the visible screen.
@ -40,14 +37,14 @@ void main() {
*VERA_IEN = VERA_VSYNC;
CLI();
vera_show_layer(0);
vera_layer_show(0);
while(!kbhit());
vera_hide_layer(0);
vera_layer_hide(0);
textcolor(GREY);
bgcolor(GREEN);
draw_characters(tilebase);
vera_show_layer(0);
vera_layer_show(0);
screenlayer(1);
@ -68,11 +65,11 @@ void main() {
while(!kbhit());
screenlayer(0);
vera_hide_layer(0);
vera_layer_hide(0);
textcolor(DARK_GREY);
bgcolor(BLACK);
draw_characters(tilebase);
vera_show_layer(0);
vera_layer_show(0);
screenlayer(1);
gotoxy(0,20);
@ -140,8 +137,8 @@ __interrupt(rom_sys_cx16) void irq_vsync() {
scroll_y = 0;
}
vera_set_layer_horizontal_scroll(0,(word)scroll_x);
vera_set_layer_vertical_scroll(0,(word)scroll_y);
vera_layer_set_horizontal_scroll(0,(word)scroll_x);
vera_layer_set_vertical_scroll(0,(word)scroll_y);
// Reset the VSYNC interrupt
*VERA_ISR = VERA_VSYNC;

1242
src/test/kc/examples/cx16/cx16-vera.c Normal file
View File

File diff suppressed because it is too large Load Diff

35
src/test/kc/examples/cx16/cx16-veralayers.c
View File

@ -8,9 +8,10 @@
// The map base is address 0x00000 in VERA VRAM, the tile map is address 0x0F800.
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <stdio.h>
#include <veralib.h>
#include <cx16-veralib.h>
void main() {
@ -39,12 +40,12 @@ void main() {
// It displays the characters in 1BPP 16x16 color mode!
unsigned byte dcvideo = *VERA_DC_VIDEO;
printf("\nvera dc video = %x\n", dcvideo);
unsigned byte config = vera_get_layer_config(1);
unsigned byte config = vera_layer_get_config(1);
printf("\nvera layer 1 config = %x\n", config);
unsigned byte layershown = vera_is_layer_shown(1);
unsigned byte layershown = vera_layer_is_visible(1);
printf("vera layer 1 shown = %c\n", layershown);
unsigned byte mapbase = vera_get_layer_mapbase(1);
unsigned byte tilebase = vera_get_layer_tilebase(1);
unsigned byte mapbase = vera_layer_get_mapbase(1);
unsigned byte tilebase = vera_layer_get_tilebase(1);
printf("vera layer 1 mapbase = %hhx, tilebase = %hhx\n", mapbase, tilebase);
// Wait for a keypress and after clear the line!
@ -62,17 +63,17 @@ void main() {
// But first, we also print the layer 0 VERA configuration.
// This statement sets the base of the display layer 1 at VRAM address 0x0200
vera_set_layer_mapbase(0,0x80); // Set the map base to address 0x10000 in VERA VRAM!
vera_set_layer_config(0, vera_get_layer_config(1));
vera_set_layer_tilebase(0, vera_get_layer_tilebase(1));
vera_layer_set_mapbase(0,0x80); // Set the map base to address 0x10000 in VERA VRAM!
vera_layer_set_config(0, vera_layer_get_config(1));
vera_layer_set_tilebase(0, vera_layer_get_tilebase(1));
textcolor(WHITE);
config = vera_get_layer_config(0);
printf("\nvera layer 0 config = %x\n", vera_get_layer_config(0));
layershown = vera_is_layer_shown(0);
config = vera_layer_get_config(0);
printf("\nvera layer 0 config = %x\n", vera_layer_get_config(0));
layershown = vera_layer_is_visible(0);
printf("vera layer 0 shown = %x\n", layershown);
mapbase = vera_get_layer_mapbase(0);
tilebase = vera_get_layer_tilebase(0);
mapbase = vera_layer_get_mapbase(0);
tilebase = vera_layer_get_tilebase(0);
printf("vera layer 0 mapbase = %x, tilebase = %x\n", mapbase, tilebase);
// Now we print the layer 0 text on the layer 0!
@ -98,10 +99,10 @@ void main() {
clearline();
// Now we activate layer 0.
vera_show_layer(0);
vera_layer_show(0);
textcolor(WHITE);
bgcolor(BLACK);
printf("vera layer 0 shown = %x. ", vera_is_layer_shown(0));
printf("vera layer 0 shown = %x. ", vera_layer_is_visible(0));
// Wait for a keypress and after clear the line!
textcolor(YELLOW);
@ -110,10 +111,10 @@ void main() {
while(!kbhit());
clearline();
vera_hide_layer(0);
vera_layer_hide(0);
textcolor(WHITE);
bgcolor(BLACK);
printf("vera layer 0 shown = %x. ", vera_is_layer_shown(0));
printf("vera layer 0 shown = %x. ", vera_layer_is_visible(0));
// Wait for a keypress and after clear the line!
textcolor(YELLOW);

79
src/test/kc/examples/cx16/veralib/bitmap_1bpp_320_x_240.c Normal file
View File

@ -0,0 +1,79 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA graphic modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <printf.h>
#include <cx16-bitmap.h>
#include <stdlib.h>
#include <division.h>
void main() {
// Before we configure the bitmap pane into vera memory we need to re-arrange a few things!
// It is better to load all in bank 0, but then there is an issue.
// So the default CX16 character set is located in bank 0, at address 0xF800.
// So we need to move this character set to bank 1, suggested is at address 0xF000.
// The CX16 by default writes textual output to layer 1 in text mode, so we need to
// realign the moved character set to 0xf000 as the new tile base for layer 1.
// We also will need to realign for layer 1 the map base from 0x00000 to 0x14000.
// This is now all easily done with a few statements in the new kickc vera lib ...
memcpy_in_vram(1, 0xF000, VERA_INC_1, 0, 0xF800, VERA_INC_1, 256*8); // We copy the 128 character set of 8 bytes each.
vera_layer_mode_tile(1, 0x14000, 0x1F000, 128, 64, 8, 8, 1);
vera_layer_mode_bitmap(0, (dword)0x00000, 320, 1);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,25);
printf("vera in bitmap mode,\n");
printf("color depth 1 bits per pixel.\n");
printf("in this mode, it is possible to display\n");
printf("graphics in 2 colors (black or color).\n");
vera_layer_show(0);
bitmap_init(0, 0x00000);
bitmap_clear();
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
while(!kbhit()) {
bitmap_line(modr16u(rand(),320,0), modr16u(rand(),320,0), modr16u(rand(),200,0), modr16u(rand(),200,0), rand()&1);
};
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,26);
printf("here you see all the colors possible.\n");
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
word x = 0;
byte color = 0;
while(!kbhit()) {
bitmap_line(x, x, 0, 199, color);
color++;
if(color>1) color=0;
x++;
if(x>319) x=0;
};
screenlayer(1);
textcolor(WHITE);
bgcolor(BLUE);
clrscr();
}

79
src/test/kc/examples/cx16/veralib/bitmap_1bpp_640_x_480.c Normal file
View File

@ -0,0 +1,79 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA graphic modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <printf.h>
#include <cx16-bitmap.h>
#include <stdlib.h>
#include <division.h>
void main() {
// Before we configure the bitmap pane into vera memory we need to re-arrange a few things!
// It is better to load all in bank 0, but then there is an issue.
// So the default CX16 character set is located in bank 0, at address 0xF800.
// So we need to move this character set to bank 1, suggested is at address 0xF000.
// The CX16 by default writes textual output to layer 1 in text mode, so we need to
// realign the moved character set to 0xf000 as the new tile base for layer 1.
// We also will need to realign for layer 1 the map base from 0x00000 to 0x14000.
// This is now all easily done with a few statements in the new kickc vera lib ...
memcpy_in_vram(1, 0xF000, VERA_INC_1, 0, 0xF800, VERA_INC_1, 256*8); // We copy the 128 character set of 8 bytes each.
vera_layer_mode_tile(1, 0x14000, 0x1F000, 128, 64, 8, 8, 1);
vera_layer_mode_bitmap(0, (dword)0x00000, 640, 1);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,54);
printf("vera in bitmap mode,\n");
printf("color depth 1 bits per pixel.\n");
printf("in this mode, it is possible to display\n");
printf("graphics in 2 colors (black or color).\n");
vera_layer_show(0);
bitmap_init(0, 0x00000);
bitmap_clear();
gotoxy(0,59);
textcolor(YELLOW);
printf("press a key ...");
while(!kbhit()) {
bitmap_line(modr16u(rand(),639,0), modr16u(rand(),639,0), modr16u(rand(),399,0), modr16u(rand(),399,0), rand()&1);
};
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,54);
printf("here you see all the colors possible.\n");
gotoxy(0,59);
textcolor(YELLOW);
printf("press a key ...");
word x = 0;
byte color = 0;
while(!kbhit()) {
bitmap_line(x, x, 0, 399, color);
color++;
if(color>1) color=0;
x++;
if(x>639) x=0;
};
screenlayer(1);
textcolor(WHITE);
bgcolor(BLUE);
clrscr();
}

79
src/test/kc/examples/cx16/veralib/bitmap_2bpp_320_x_240.c Normal file
View File

@ -0,0 +1,79 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA graphic modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <printf.h>
#include <cx16-bitmap.h>
#include <stdlib.h>
#include <division.h>
void main() {
// Before we configure the bitmap pane into vera memory we need to re-arrange a few things!
// It is better to load all in bank 0, but then there is an issue.
// So the default CX16 character set is located in bank 0, at address 0xF800.
// So we need to move this character set to bank 1, suggested is at address 0xF000.
// The CX16 by default writes textual output to layer 1 in text mode, so we need to
// realign the moved character set to 0xf000 as the new tile base for layer 1.
// We also will need to realign for layer 1 the map base from 0x00000 to 0x14000.
// This is now all easily done with a few statements in the new kickc vera lib ...
memcpy_in_vram(1, 0xF000, VERA_INC_1, 0, 0xF800, VERA_INC_1, 256*8); // We copy the 128 character set of 8 bytes each.
vera_layer_mode_tile(1, 0x14000, 0x1F000, 128, 64, 8, 8, 1);
vera_layer_mode_bitmap(0, (dword)0x00000, 320, 2);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,25);
printf("vera in bitmap mode,\n");
printf("color depth 2 bits per pixel.\n");
printf("in this mode, it is possible to display\n");
printf("graphics in 4 colors.\n");
vera_layer_show(0);
bitmap_init(0, 0x00000);
bitmap_clear();
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
while(!kbhit()) {
bitmap_line(modr16u(rand(),320,0), modr16u(rand(),320,0), modr16u(rand(),200,0), modr16u(rand(),200,0), rand()&3);
};
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,26);
printf("here you see all the colors possible.\n");
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
word x = 0;
byte color = 0;
while(!kbhit()) {
bitmap_line(x, x, 0, 199, color);
color++;
if(color>3) color=0;
x++;
if(x>319) x=0;
};
screenlayer(1);
textcolor(WHITE);
bgcolor(BLUE);
clrscr();
}

79
src/test/kc/examples/cx16/veralib/bitmap_2bpp_640_x_480.c Normal file
View File

@ -0,0 +1,79 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA graphic modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <printf.h>
#include <cx16-bitmap.h>
#include <stdlib.h>
#include <division.h>
void main() {
// Before we configure the bitmap pane into vera memory we need to re-arrange a few things!
// It is better to load all in bank 0, but then there is an issue.
// So the default CX16 character set is located in bank 0, at address 0xF800.
// So we need to move this character set to bank 1, suggested is at address 0xF000.
// The CX16 by default writes textual output to layer 1 in text mode, so we need to
// realign the moved character set to 0xf000 as the new tile base for layer 1.
// We also will need to realign for layer 1 the map base from 0x00000 to 0x14000.
// This is now all easily done with a few statements in the new kickc vera lib ...
memcpy_in_vram(1, 0xF000, VERA_INC_1, 0, 0xF800, VERA_INC_1, 256*8); // We copy the 128 character set of 8 bytes each.
vera_layer_mode_tile(1, 0x14000, 0x1F000, 128, 64, 8, 8, 1);
vera_layer_mode_bitmap(0, (dword)0x00000, 640, 2);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,54);
printf("vera in bitmap mode,\n");
printf("color depth 1 bits per pixel.\n");
printf("in this mode, it is possible to display\n");
printf("graphics in 2 colors (black or color).\n");
vera_layer_show(0);
bitmap_init(0, 0x00000);
bitmap_clear();
gotoxy(0,59);
textcolor(YELLOW);
printf("press a key ...");
while(!kbhit()) {
bitmap_line(modr16u(rand(),639,0), modr16u(rand(),639,0), modr16u(rand(),399,0), modr16u(rand(),399,0), rand()&3);
};
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,54);
printf("here you see all the colors possible.\n");
gotoxy(0,59);
textcolor(YELLOW);
printf("press a key ...");
word x = 0;
byte color = 0;
while(!kbhit()) {
bitmap_line(x, x, 0, 399, color);
color++;
if(color>3) color=0;
x++;
if(x>639) x=0;
};
screenlayer(1);
textcolor(WHITE);
bgcolor(BLUE);
clrscr();
}

80
src/test/kc/examples/cx16/veralib/bitmap_4bpp_320_x_240.c Normal file
View File

@ -0,0 +1,80 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA graphic modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <printf.h>
#include <cx16-bitmap.h>
#include <stdlib.h>
#include <division.h>
void main() {
// Before we configure the bitmap pane into vera memory we need to re-arrange a few things!
// It is better to load all in bank 0, but then there is an issue.
// So the default CX16 character set is located in bank 0, at address 0xF800.
// So we need to move this character set to bank 1, suggested is at address 0xF000.
// The CX16 by default writes textual output to layer 1 in text mode, so we need to
// realign the moved character set to 0xf000 as the new tile base for layer 1.
// We also will need to realign for layer 1 the map base from 0x00000 to 0x14000.
// This is now all easily done with a few statements in the new kickc vera lib ...
memcpy_in_vram(1, 0xF000, VERA_INC_1, 0, 0xF800, VERA_INC_1, 256*8); // We copy the 128 character set of 8 bytes each.
vera_layer_mode_tile(1, 0x14000, 0x1F000, 128, 64, 8, 8, 1);
vera_layer_mode_bitmap(0, (dword)0x00000, 320, 4);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,25);
printf("vera in bitmap mode,\n");
printf("color depth 4 bits per pixel.\n");
printf("in this mode, it is possible to display\n");
printf("graphics in 16 colors.\n");
vera_layer_show(0);
bitmap_init(0, 0x00000);
bitmap_clear();
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
while(!kbhit()) {
bitmap_line(modr16u(rand(),320,0), modr16u(rand(),320,0), modr16u(rand(),200,0), modr16u(rand(),200,0), rand()&15);
};
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,26);
printf("here you see all the colors possible.\n");
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
word x = 0;
byte color = 0;
while(!kbhit()) {
bitmap_line(x, x, 0, 199, color);
color++;
if(color>15) color=0;
x++;
if(x>319) x=0;
};
screenlayer(1);
textcolor(WHITE);
bgcolor(BLUE);
clrscr();
}

83
src/test/kc/examples/cx16/veralib/bitmap_8bpp_320_x_240.c Normal file
View File

@ -0,0 +1,83 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
// The default layer of the CX16 is layer 1, but the tiles are written on layer 0.
// An explanation is given how this mode is organized, and how the tiles display and coloring works.
// Pälette offsets are explained also.
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <printf.h>
#include <cx16-bitmap.h>
#include <stdlib.h>
#include <division.h>
void main() {
// Before we configure the bitmap pane into vera memory we need to re-arrange a few things!
// It is better to load all in bank 0, but then there is an issue.
// So the default CX16 character set is located in bank 0, at address 0xF800.
// So we need to move this character set to bank 1, suggested is at address 0xF000.
// The CX16 by default writes textual output to layer 1 in text mode, so we need to
// realign the moved character set to 0xf000 as the new tile base for layer 1.
// We also will need to realign for layer 1 the map base from 0x00000 to 0x14000.
// This is now all easily done with a few statements in the new kickc vera lib ...
memcpy_in_vram(1, 0xF000, VERA_INC_1, 0, 0xF800, VERA_INC_1, 256*8); // We copy the 128 character set of 8 bytes each.
vera_layer_mode_tile(1, 0x14000, 0x1F000, 128, 64, 8, 8, 1);
vera_layer_mode_bitmap(0, (dword)0x00000, 320, 8);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,25);
printf("vera in bitmap mode,\n");
printf("color depth 8 bits per pixel.\n");
printf("in this mode, it is possible to display\n");
printf("graphics in 256 colors.\n");
vera_layer_show(0);
bitmap_init(0, 0x00000);
bitmap_clear();
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
while(!kbhit()) {
bitmap_line(modr16u(rand(),320,0), modr16u(rand(),320,0), modr16u(rand(),200,0), modr16u(rand(),200,0), rand()&255);
};
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
gotoxy(0,26);
printf("here you see all the colors possible.\n");
gotoxy(0,29);
textcolor(YELLOW);
printf("press a key ...");
word x = 0;
byte color = 0;
while(!kbhit()) {
bitmap_line(x, x, 0, 199, color);
color++;
x++;
if(x>319) x=0;
};
screenlayer(1);
textcolor(WHITE);
bgcolor(BLUE);
clrscr();
}

43
src/test/kc/examples/cx16/veralib/tilemap_1bpp_8_x_8_16_color.c Normal file
View File

@ -0,0 +1,43 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <cx16-veralib.h>
#include <printf.h>
void main() {
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
// Configure the VERA card to work in text, 16x16 mode.
// The color mode is here 16 colors, indicating 16x16 color mode, (16 foreground and 16 background colors).
vera_layer_set_text_color_mode( 1, VERA_LAYER_CONFIG_16C );
// or you can use the below statement, but that includes setting a "mode", including
// layer, map base address, tile base address, map width, map height, tile width, tile height, color mode.
//vera_layer_mode_text(1, 0x00000, 0x0F800, 128, 128, 8, 8, 16);
for(byte c:0..255) {
bgcolor(c);
printf(" ****** ");
}
vera_layer_show(1);
gotoxy(0,50);
textcolor(WHITE);
bgcolor(BLACK);
printf("vera in text mode 8 x 8, color depth 1 bits per pixel.\n");
printf("in this mode, tiles are 8 pixels wide and 8 pixels tall.\n");
printf("each character can have a variation of 16 foreground colors and 16 background colors.\n");
printf("here we display 6 stars (******) each with a different color.\n");
printf("however, the first color will always be transparent (black).\n");
printf("in this mode, the background color cannot be set and is always transparent.\n");
while(!kbhit());
}

43
src/test/kc/examples/cx16/veralib/tilemap_1bpp_8_x_8_256_color.c Normal file
View File

@ -0,0 +1,43 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <cx16-veralib.h>
#include <printf.h>
void main() {
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
// Configure the VERA card to work in text, 256 mode.
// The color mode is here 256 colors, (256 foreground on a black transparent background).
vera_layer_mode_text( 1, 0x00000, 0x0F800, 128, 128, 8, 8, 256 );
// or you can use the below statement, but that includes setting a "mode", including
// layer, map base address, tile base address, map width, map height, tile width, tile height, color mode.
//vera_layer_mode_text(1, 0x00000, 0x0F800, 128, 128, 8, 8, 256);
for(byte c:0..255) {
textcolor(c);
printf(" ****** ");
}
vera_layer_show(1);
gotoxy(0,50);
textcolor(WHITE);
bgcolor(BLACK);
printf("vera in text mode 8 x 8, color depth 1 bits per pixel.\n");
printf("in this mode, tiles are 8 pixels wide and 8 pixels tall.\n");
printf("each character can have a variation of 256 foreground colors.\n");
printf("here we display 6 stars (******) each with a different color.\n");
printf("however, the first color will always be transparent (black).\n");
printf("in this mode, the background color cannot be set and is always transparent.\n");
while(!kbhit());
}

88
src/test/kc/examples/cx16/veralib/tilemap_2bpp_16_x_16.c Normal file
View File

@ -0,0 +1,88 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <cx16-veralib.h>
#include <printf.h>
void main() {
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
vera_layer_mode_tile(0, 0x04000, 0x14000, 128, 128, 16, 16, 2);
byte tiles[256] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
};
memcpy_to_vram(1, 0x4000, tiles, 256);
//vera_tile_area(byte layer, word tileindex, byte x, byte y, byte w, byte h, byte hflip, byte vflip, byte offset)
vera_tile_area(0, 0, 0, 0, 40, 30, 0, 0, 0);
// Draw 4 squares with each tile, starting from row 4, width 1, height 1, separated by 2 characters.
vera_tile_area(0, 0, 4, 2, 1, 1, 0, 0, 0);
vera_tile_area(0, 1, 10, 2, 1, 1, 0, 0, 0);
vera_tile_area(0, 2, 16, 2, 1, 1, 0, 0, 0);
vera_tile_area(0, 3, 22, 2, 1, 1, 0, 0, 0);
// Draw 4 squares with each tile, starting from row 6, width 4, height 4, separated by 2 characters.
vera_tile_area(0, 0, 4, 4, 4, 4, 0, 0, 0);
vera_tile_area(0, 1, 10, 4, 4, 4, 0, 0, 0);
vera_tile_area(0, 2, 16, 4, 4, 4, 0, 0, 0);
vera_tile_area(0, 3, 22, 4, 4, 4, 0, 0, 0);
word tile = 0;
byte offset = 0;
byte row = 10;
for(byte r:0..3) {
byte column = 4;
for(byte c:0..16) {
vera_tile_area(0, tile, column, row, 1, 1, 0, 0, offset);
column+=2;
offset++;
}
tile++;
tile &= 0x3;
row += 2;
}
vera_layer_show(0);
gotoxy(0,50);
printf("vera in tile mode 8 x 8, color depth 2 bits per pixel.\n");
printf("in this mode, tiles are 8 pixels wide and 8 pixels tall.\n");
printf("each tile can have a variation of 4 colors.\n");
printf("the vera palette of 256 colors, can be used by setting the palette\n");
printf("offset for each tile.\n");
printf("here each column is displaying the same tile, but with different offsets!\n");
printf("each offset aligns to multiples of 16 colors, and only the first 4 colors\n");
printf("can be used per offset!\n");
printf("however, the first color will always be transparent (black).\n");
while(!kbhit());
}

70
src/test/kc/examples/cx16/veralib/tilemap_2bpp_8_x_8.c Normal file
View File

@ -0,0 +1,70 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <cx16-veralib.h>
#include <printf.h>
void main() {
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
vera_layer_mode_tile(0, 0x04000, 0x14000, 128, 128, 8, 8, 2);
byte tiles[64] = {0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF};
byte map[16] = {0x00,0x00,0x00,0x00,0x01,0x00,0x01,0x00,0x02,0x00,0x02,0x00,0x03,0x00,0x03,0x00};
memcpy_to_vram(1, 0x4000, tiles, 64);
//vera_tile_area(byte layer, word tileindex, byte x, byte y, byte w, byte h, byte hflip, byte vflip, byte offset)
vera_tile_area(0, 0, 0, 0, 80, 60, 0, 0, 0);
// Draw 4 squares with each tile, staring from row 2, width 10, height 10, separated by 2 characters.
vera_tile_area(0, 0, 4, 4, 10, 10, 0, 0, 0);
vera_tile_area(0, 1, 16, 4, 10, 10, 0, 0, 0);
vera_tile_area(0, 2, 28, 4, 10, 10, 0, 0, 0);
vera_tile_area(0, 3, 40, 4, 10, 10, 0, 0, 0);
word tile = 0;
byte offset = 0;
byte row = 22;
for(byte r:0..3) {
byte column = 4;
for(byte c:0..15) {
vera_tile_area(0, tile, column, row, 3, 3, 0, 0, offset);
column+=4;
offset++;
}
tile++;
tile &= 0x3;
row += 4;
}
vera_layer_show(0);
gotoxy(0,50);
printf("vera in tile mode 8 x 8, color depth 2 bits per pixel.\n");
printf("in this mode, tiles are 8 pixels wide and 8 pixels tall.\n");
printf("each tile can have a variation of 4 colors.\n");
printf("the vera palette of 256 colors, can be used by setting the palette\n");
printf("offset for each tile.\n");
printf("here each column is displaying the same tile, but with different offsets!\n");
printf("each offset aligns to multiples of 16 colors, and only the first 4 colors\n");
printf("can be used per offset!\n");
printf("however, the first color will always be transparent (black).\n");
while(!kbhit());
}

218
src/test/kc/examples/cx16/veralib/tilemap_4bpp_16_x_16.c Normal file
View File

@ -0,0 +1,218 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <cx16-veralib.h>
#include <printf.h>
void main() {
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
vera_layer_mode_tile(0, 0x04000, 0x14000, 128, 128, 16, 16, 4);
byte tiles[2048] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
};
memcpy_to_vram(1, 0x4000, tiles, 2048);
//vera_tile_area(byte layer, word tileindex, byte x, byte y, byte w, byte h, byte hflip, byte vflip, byte offset)
vera_tile_area(0, 0, 0, 0, 40, 30, 0, 0, 0);
word tile = 0;
// Draw 4 squares with each tile, starting from row 4, width 1, height 1, separated by 2 characters.
tile = 0;
byte column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 1, 1, 1, 0, 0, 0);
column+=4;
tile++;
}
column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 3, 1, 1, 0, 0, 0);
column+=4;
tile++;
}
tile = 0;
column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 5, 3, 3, 0, 0, 0);
column+=4;
tile++;
}
column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 9, 3, 3, 0, 0, 0);
column+=4;
tile++;
}
tile = 0;
byte offset = 0;
byte row = 13;
for(byte r:0..7) {
byte column = 1;
for(byte c:0..31) {
vera_tile_area(0, tile, column, row, 1, 1, 0, 0, offset);
column+=1;
tile++;
if((c & 0x0f) == 0x0f) offset++;
tile &= 0x0f;
}
row += 1;
}
vera_layer_show(0);
gotoxy(0,50);
printf("vera in tile mode 16 x 16, color depth 4 bits per pixel.\n");
printf("in this mode, tiles are 16 pixels wide and 16 pixels tall.\n");
printf("each tile can have a variation of 16 colors.\n");
printf("the vera palette of 256 colors, can be used by setting the palette\n");
printf("offset for each tile.\n");
printf("here each column is displaying the same tile, but with different offsets!\n");
printf("each offset aligns to multiples of 16 colors in the palette!.\n");
printf("however, the first color will always be transparent (black).\n");
while(!kbhit());
}

120
src/test/kc/examples/cx16/veralib/tilemap_4bpp_8_x_8.c Normal file
View File

@ -0,0 +1,120 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <cx16-veralib.h>
#include <printf.h>
void main() {
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
vera_layer_mode_tile(0, 0x04000, 0x14000, 128, 128, 8, 8, 4);
byte tiles[512] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,0x22,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,0x33,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,0x44,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,0x55,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,0x66,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,0x77,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,0x99,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,0xBB,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,0xEE,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
};
memcpy_to_vram(1, 0x4000, tiles, 512);
vera_tile_area(0, 0, 0, 0, 80, 60, 0, 0, 0);
word tile = 0;
// Draw 4 squares with each tile, starting from row 4, width 1, height 1, separated by 2 characters.
tile = 0;
byte column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 1, 1, 1, 0, 0, 0);
column+=8;
tile++;
}
column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 3, 1, 1, 0, 0, 0);
column+=8;
tile++;
}
tile = 0;
column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 5, 6, 6, 0, 0, 0);
column+=8;
tile++;
}
column = 1;
for(byte c:0..7) {
vera_tile_area(0, tile, column, 12, 6, 6, 0, 0, 0);
column+=8;
tile++;
}
tile = 0;
byte offset = 0;
byte row = 20;
for(byte r:0..7) {
byte column = 1;
for(byte c:0..31) {
vera_tile_area(0, tile, column, row, 2, 2, 0, 0, offset);
column+=2;
tile++;
if((c & 0x0f) == 0x0f) offset++;
tile &= 0x0f;
}
row += 2;
}
vera_layer_show(0);
gotoxy(0,50);
printf("vera in tile mode 8 x 8, color depth 4 bits per pixel.\n");
printf("in this mode, tiles are 8 pixels wide and 8 pixels tall.\n");
printf("each tile can have a variation of 16 colors.\n");
printf("the vera palette of 256 colors, can be used by setting the palette\n");
printf("offset for each tile.\n");
printf("here each column is displaying the same tile, but with different offsets!\n");
printf("each offset aligns to multiples of 16 colors in the palette!.\n");
printf("however, the first color will always be transparent (black).\n");
while(!kbhit());
}

133
src/test/kc/examples/cx16/veralib/tilemap_8bpp_16_x_16.c Normal file
View File

@ -0,0 +1,133 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <conio.h>
#include <printf.h>
void main() {
byte tiles[256] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
};
// Before we can load the tiles into memory we need to re-arrange a few things!
// The amount of tiles is 256, the color depth is 256, so each tile is 256 bytes!
// That is 65356 bytes of memory, which is 64K. Yup! One memory bank in VRAM.
// VERA VRAM holds in bank 1 many registers that interfere loading all of this data.
// So it is better to load all in bank 0, but then there is an other issue.
// So the default CX16 character set is located in bank 0, at address 0xF800.
// So we need to move this character set to bank 1, suggested is at address 0xF000.
// The CX16 by default writes textual output to layer 1 in text mode, so we need to
// realign the moved character set to 0xf000 as the new tile base for layer 1.
// We also will need to realign for layer 1 the map base from 0x00000 to 0x10000.
// This is now all easily done with a few statements in the new kickc vera lib ...
memcpy_in_vram(1, 0xF000, VERA_INC_1, 0, 0xF800, VERA_INC_1, 256*8); // We copy the 128 character set of 8 bytes each.
vera_layer_mode_tile(1, 0x10000, 0x1F000, 128, 64, 8, 8, 1);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
// Now we can use the full bank 0!
// We set the mapbase of the tile demo to output to 0x12000,
// and the tilebase is set to 0x0000!
vera_layer_mode_tile(0, 0x14000, 0x00000, 64, 64, 16, 16, 8);
word tilebase = 0x0000;
memcpy_to_vram(0, tilebase, tiles, 256);
tilebase+=256;
for(byte t:1..255) {
for(byte p:0..255) {
tiles[p]+=1;
}
memcpy_to_vram(0, tilebase, tiles, 256);
tilebase+=256;
}
//vera_tile_area(byte layer, word tileindex, byte x, byte y, byte w, byte h, byte hflip, byte vflip, byte offset)
vera_tile_area(0, 0, 0, 0, 40, 30, 0, 0, 0);
word tile = 0;
// Draw 4 squares with each tile, starting from row 4, width 1, height 1, separated by 2 characters.
byte row = 1;
for(byte r:0..11) {
byte column = 0;
for(byte c:0..19) {
vera_tile_area(0, tile, column, row, 1, 1, 0, 0, 0);
column+=2;
tile++;
tile &= 0xff;
}
row += 2;
}
gotoxy(0,50);
printf("vera in tile mode 8 x 8, color depth 8 bits per pixel.\n");
printf("in this mode, tiles are 8 pixels wide and 8 pixels tall.\n");
printf("each tile can have a variation of 256 colors.\n");
printf("the vera palette of 256 colors, can be used by setting the palette\n");
printf("offset for each tile.\n");
printf("here each column is displaying the same tile, but with different offsets!\n");
printf("each offset aligns to multiples of 16 colors in the palette!.\n");
printf("however, the first color will always be transparent (black).\n");
vera_layer_show(0);
while(!kbhit());
vera_tile_area(0, 0, 0, 0, 40, 30, 0, 0, 0);
tile = 0;
row = 0;
for(byte r:0..11) {
byte column = 0;
for(byte c:0..19) {
vera_tile_area(0, tile, column, row, 2, 2, 0, 0, 0);
column+=2;
tile++;
tile &= 0xff;
}
row += 2;
}
while(!kbhit());
// Now put back the defaults ...
vera_tile_area(0, 0, 0, 0, 40, 30, 0, 0, 0);
vera_layer_hide(0);
memcpy_in_vram(0, 0xF800, VERA_INC_1, 1, 0xF000, VERA_INC_1, 256*8);
vera_layer_mode_tile(1, 0x00000, 0x0F800, 128, 128, 8, 8, 1);
vera_layer_mode_tile(0, 0x00000, 0x0F800, 128, 128, 8, 8, 1);
screenlayer(1);
textcolor(WHITE);
bgcolor(BLUE);
clrscr();
}

87
src/test/kc/examples/cx16/veralib/tilemap_8bpp_8_x_8.c Normal file
View File

@ -0,0 +1,87 @@
// Example program for the Commander X16.
// Demonstrates the usage of the VERA tile map modes and layering.
// Author: Sven Van de Velde
#pragma target(cx16)
#include <cx16.h>
#include <cx16-veralib.h>
#include <printf.h>
void main() {
textcolor(WHITE);
bgcolor(BLACK);
clrscr();
vera_layer_mode_tile(0, 0x04000, 0x14000, 128, 128, 8, 8, 8);
byte tiles[64] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00
};
word tilebase = 0x4000;
memcpy_to_vram(1, tilebase, tiles, 64);
tilebase+=64;
for(byte t:1..255) {
for(byte p:0..63) {
tiles[p]+=1;
}
memcpy_to_vram(1, tilebase, tiles, 64);
tilebase+=64;
}
//vera_tile_area(byte layer, word tileindex, byte x, byte y, byte w, byte h, byte hflip, byte vflip, byte offset)
vera_tile_area(0, 0, 0, 0, 80, 60, 0, 0, 0);
word tile = 0;
// Draw 4 squares with each tile, starting from row 4, width 1, height 1, separated by 2 characters.
byte row = 1;
for(byte r:0..7) {
byte column = 1;
for(byte c:0..31) {
vera_tile_area(0, tile, column, row, 1, 1, 0, 0, 0);
column+=2;
tile++;
tile &= 0xff;
}
row += 2;
}
tile = 0;
row = 20;
for(byte r:0..7) {
byte column = 1;
for(byte c:0..31) {
vera_tile_area(0, tile, column, row, 2, 2, 0, 0, 0);
column+=2;
tile++;
tile &= 0xff;
}
row += 2;
}
vera_layer_show(0);
gotoxy(0,50);
printf("vera in tile mode 8 x 8, color depth 8 bits per pixel.\n");
printf("in this mode, tiles are 8 pixels wide and 8 pixels tall.\n");
printf("each tile can have a variation of 256 colors.\n");
printf("the vera palette of 256 colors, can be used by setting the palette\n");
printf("offset for each tile.\n");
printf("here each column is displaying the same tile, but with different offsets!\n");
printf("each offset aligns to multiples of 16 colors in the palette!.\n");
printf("however, the first color will always be transparent (black).\n");
while(!kbhit());
}

1415
src/test/ref/examples/cx16/cx16-tilemap.asm
View File

File diff suppressed because it is too large Load Diff

1368
src/test/ref/examples/cx16/cx16-tilemap.cfg
View File

File diff suppressed because it is too large Load Diff

16598
src/test/ref/examples/cx16/cx16-tilemap.log
View File

File diff suppressed because one or more lines are too long

839
src/test/ref/examples/cx16/cx16-tilemap.sym
View File

File diff suppressed because it is too large Load Diff

1033
src/test/ref/examples/cx16/cx16-veralayers.asm
View File

File diff suppressed because it is too large Load Diff

1601
src/test/ref/examples/cx16/cx16-veralayers.cfg
View File

File diff suppressed because it is too large Load Diff

18828
src/test/ref/examples/cx16/cx16-veralayers.log
View File

File diff suppressed because one or more lines are too long

718
src/test/ref/examples/cx16/cx16-veralayers.sym
View File

@ -2,9 +2,9 @@ const byte BINARY = 2
const nomodify byte BLACK = 0
const nomodify byte BLUE = 6
byte CONIO_SCREEN_BANK
byte CONIO_SCREEN_BANK#16 CONIO_SCREEN_BANK zp[1]:17 2820.008450704225
byte CONIO_SCREEN_BANK#116 CONIO_SCREEN_BANK zp[1]:21 2727.8010899182564
byte* CONIO_SCREEN_TEXT
word CONIO_SCREEN_TEXT#18 CONIO_SCREEN_TEXT zp[2]:18 0.2433734939759036
word CONIO_SCREEN_TEXT#134 CONIO_SCREEN_TEXT zp[2]:22 0.23933649289099526
const byte DECIMAL = $a
const byte* DIGITS[] = "0123456789abcdef"z
const nomodify byte GREEN = 5
@ -20,15 +20,14 @@ const byte* RADIX_DECIMAL_VALUES_CHAR[] = { $64, $a }
const byte* RADIX_HEXADECIMAL_VALUES_CHAR[] = { $10 }
const byte* RADIX_OCTAL_VALUES_CHAR[] = { $40, 8 }
const nomodify byte RED = 2
const byte SIZEOF_DWORD = 4
const byte SIZEOF_POINTER = 2
const byte SIZEOF_STRUCT_PRINTF_BUFFER_NUMBER = $c
const byte SIZEOF_WORD = 2
const nomodify byte VERA_ADDRSEL = 1
const nomodify byte* VERA_ADDRX_H = (byte*) 40738
const nomodify byte* VERA_ADDRX_L = (byte*) 40736
const nomodify byte* VERA_ADDRX_M = (byte*) 40737
const to_nomodify word* VERA_CONFIG_HEIGHT[4] = { $20, $40, $80, $100 }
const nomodify byte VERA_CONFIG_HEIGHT_MASK = $c0
const to_nomodify word* VERA_CONFIG_WIDTH[4] = { $20, $40, $80, $100 }
const nomodify byte VERA_CONFIG_WIDTH_MASK = $30
const nomodify byte* VERA_CTRL = (byte*) 40741
const nomodify byte* VERA_DATA0 = (byte*) 40739
const nomodify byte* VERA_DATA1 = (byte*) 40740
@ -44,6 +43,14 @@ const nomodify byte* VERA_L1_MAPBASE = (byte*) 40757
const nomodify byte* VERA_L1_TILEBASE = (byte*) 40758
const nomodify byte VERA_LAYER0_ENABLE = $10
const nomodify byte VERA_LAYER1_ENABLE = $20
const nomodify byte VERA_LAYER_CONFIG_256C = 8
const to_nomodify word* VERA_LAYER_HEIGHT[4] = { $20, $40, $80, $100 }
const nomodify byte VERA_LAYER_HEIGHT_64 = $40
const nomodify byte VERA_LAYER_HEIGHT_MASK = $c0
const nomodify byte VERA_LAYER_TILEBASE_MASK = $fc
const to_nomodify word* VERA_LAYER_WIDTH[4] = { $20, $40, $80, $100 }
const nomodify byte VERA_LAYER_WIDTH_128 = $20
const nomodify byte VERA_LAYER_WIDTH_MASK = $30
const nomodify byte WHITE = 1
const nomodify byte YELLOW = 7
void __start()
@ -59,13 +66,13 @@ word clearline::c#2 c zp[2]:29 7.5000000000075E11
byte clearline::color
byte clearline::color#0 reg byte x 1.683333333336667E11
void clrscr()
byte~ clrscr::$1 reg byte a 202.0
byte~ clrscr::$10 reg byte a 202.0
byte~ clrscr::$2 zp[1]:42 40.4
byte~ clrscr::$3 reg byte a 202.0
byte~ clrscr::$0 reg byte a 202.0
byte~ clrscr::$1 zp[1]:42 40.4
byte~ clrscr::$2 reg byte a 202.0
byte~ clrscr::$5 reg byte a 2002.0
byte~ clrscr::$6 reg byte a 2002.0
byte~ clrscr::$7 reg byte a 2002.0
byte~ clrscr::$8 reg byte a 2002.0
byte~ clrscr::$9 reg byte a 202.0
byte clrscr::c
byte clrscr::c#1 reg byte y 20002.0
byte clrscr::c#2 reg byte y 7500.75
@ -76,25 +83,24 @@ byte clrscr::l
byte clrscr::l#1 reg byte x 2002.0
byte clrscr::l#2 reg byte x 200.2
byte* clrscr::line_text
byte* clrscr::line_text#0 line_text zp[2]:33 16.833333333333332
byte* clrscr::line_text#1 line_text zp[2]:33 1001.0
byte* clrscr::line_text#2 line_text zp[2]:33 293.2142857142857
word clrscr::skip
word clrscr::skip#0 skip zp[2]:31 40.81481481481482
byte* clrscr::line_text#0 line_text zp[2]:3 18.363636363636363
byte* clrscr::line_text#1 line_text zp[2]:3 1001.0
byte* clrscr::line_text#2 line_text zp[2]:3 293.2142857142857
const byte* conio_cursor_x[2] = { 0, 0 }
const byte* conio_cursor_y[2] = { 0, 0 }
word conio_height loadstore zp[2]:10 277011.3711911357
word conio_height loadstore zp[2]:12 284903.43304843304
const word* conio_line_text[2] = { 0, 0 }
volatile byte conio_screen_height loadstore zp[1]:6 3324099.828254848
byte conio_screen_layer loadstore zp[1]:7 7.880046115366969E7
volatile byte conio_screen_width loadstore zp[1]:5 2.5239319899672546E9
byte conio_rowshift loadstore zp[1]:14 2.7823691488980716E8
word conio_rowskip loadstore zp[2]:15 2.6598404549468085E8
volatile byte conio_screen_height loadstore zp[1]:8 3380281.7971830983
byte conio_screen_layer loadstore zp[1]:9 7.738063393468466E7
volatile byte conio_screen_width loadstore zp[1]:7 2.569233333376923E9
const byte* conio_scroll_enable[2] = { 1, 1 }
byte conio_skip loadstore zp[1]:12 5.0760101062626266E8
word conio_width loadstore zp[2]:8 2894.573065902579
word conio_width loadstore zp[2]:10 2861.4872521246457
void conio_x16_init()
const nomodify byte* conio_x16_init::BASIC_CURSOR_LINE = (byte*) 214
byte conio_x16_init::line
byte conio_x16_init::line#0 line zp[1]:2 2.5384615384615383
byte conio_x16_init::line#0 line zp[1]:2 2.1999999999999997
byte conio_x16_init::line#1 line zp[1]:2 22.0
byte conio_x16_init::line#3 line zp[1]:2 33.0
void cputc(byte cputc::c)
@ -105,10 +111,10 @@ byte~ cputc::$4 reg byte a 2000002.0
byte~ cputc::$5 reg byte a 2000002.0
byte~ cputc::$6 reg byte a 2000002.0
byte cputc::c
byte cputc::c#0 c zp[1]:4 200002.0
byte cputc::c#2 c zp[1]:4 2002.0
byte cputc::c#3 c zp[1]:4 22.0
byte cputc::c#4 c zp[1]:4 123589.11764705883
byte cputc::c#0 c zp[1]:6 200002.0
byte cputc::c#2 c zp[1]:6 2002.0
byte cputc::c#3 c zp[1]:6 22.0
byte cputc::c#4 c zp[1]:6 123589.11764705883
byte cputc::color
byte cputc::color#0 reg byte x 142857.2857142857
byte* cputc::conio_addr
@ -117,19 +123,18 @@ byte* cputc::conio_addr#1 conio_addr zp[2]:29 600000.6000000001
byte cputc::scroll_enable
byte cputc::scroll_enable#0 reg byte a 2000002.0
void cputln()
byte~ cputln::$2 reg byte a 2.0000002E7
byte~ cputln::$3 reg byte a 2.0000002E7
byte~ cputln::$4 reg byte a 2.0000002E7
word~ cputln::$5 zp[2]:39 2.0000002E7
word cputln::temp
word cputln::temp#0 temp zp[2]:37 1.0000001E7
word cputln::temp#1 temp zp[2]:37 1.0000001E7
word cputln::temp#0 temp zp[2]:39 2.0000002E7
word cputln::temp#1 temp zp[2]:39 1.0000001E7
void cputs(to_nomodify byte* cputs::s)
byte cputs::c
byte cputs::c#1 reg byte a 100001.0
to_nomodify byte* cputs::s
to_nomodify byte* cputs::s#0 s zp[2]:33 50000.5
to_nomodify byte* cputs::s#37 s zp[2]:33 155002.0
to_nomodify byte* cputs::s#38 s zp[2]:33 10001.0
to_nomodify byte* cputs::s#0 s zp[2]:3 50000.5
to_nomodify byte* cputs::s#37 s zp[2]:3 155002.0
to_nomodify byte* cputs::s#38 s zp[2]:3 10001.0
void cscroll()
void gotoxy(byte gotoxy::x , byte gotoxy::y)
byte~ gotoxy::$5 reg byte a 2.000000002E9
@ -146,18 +151,17 @@ byte gotoxy::y#11 reg byte x 3.333333336666667E8
byte gotoxy::y#2 reg byte x 2.00000002E8
void insertup()
byte~ insertup::$3 reg byte a 2.00000000002E11
word~ insertup::$6 zp[2]:45 2.00000000002E11
byte insertup::cy
byte insertup::cy#0 cy zp[1]:41 7.769230769384615E9
byte insertup::cy#0 cy zp[1]:41 8.416666666833334E9
byte insertup::i
byte insertup::i#1 reg byte x 2.00000000002E11
byte insertup::i#2 reg byte x 4.00000000004E10
byte insertup::i#2 reg byte x 4.4444444444888885E10
word insertup::line
word insertup::line#0 line zp[2]:43 2.00000000002E11
byte* insertup::start
byte* insertup::start#0 start zp[2]:43 6.6666666667333336E10
byte* insertup::start#0 start zp[2]:43 1.00000000001E11
byte insertup::width
byte insertup::width#0 width zp[1]:42 8.416666666833334E9
byte insertup::width#0 width zp[1]:42 9.181818182E9
byte kbhit()
const nomodify byte* kbhit::GETIN = (byte*) 65508
const nomodify byte* kbhit::IN_DEV = (byte*) 650
@ -187,15 +191,13 @@ byte main::bgcolor7_color
byte main::bgcolor8_color
byte main::bgcolor9_color
byte main::config
byte main::config#0 config zp[1]:3 11.0
byte main::config#0 config zp[1]:5 11.0
byte main::dcvideo
byte main::dcvideo#0 dcvideo zp[1]:3 11.0
byte main::dcvideo#0 dcvideo zp[1]:5 11.0
byte main::layershown
byte main::layershown#0 layershown zp[1]:14 11.0
byte main::layershown#1 layershown_1 zp[1]:3 11.0
byte main::mapbase
byte main::mapbase#0 mapbase zp[1]:3 4.4
byte main::mapbase#1 mapbase zp[1]:3 4.4
byte main::mapbase#0 mapbase zp[1]:5 4.4
byte main::mapbase#1 mapbase zp[1]:5 4.4
const byte* main::s[$c] = "press a key"
const byte* main::s1[$41] = "this program demonstrates the layer functionality in text mode.
"
@ -224,9 +226,9 @@ const byte* main::s7[$18] = "
vera layer 1 config = "
const byte* main::s9[$16] = "vera layer 1 shown = "
byte main::screensizex1_return
byte main::screensizex1_return#0 screensizex1_return zp[1]:3 4.4
byte main::screensizex1_return#0 screensizex1_return zp[1]:5 4.4
byte main::screensizey1_return
byte main::screensizey1_return#0 screensizey1_return zp[1]:13 3.142857142857143
byte main::screensizey1_return#0 screensizey1_return zp[1]:17 3.142857142857143
byte main::textcolor10_color
byte main::textcolor11_color
byte main::textcolor12_color
@ -240,11 +242,24 @@ byte main::textcolor7_color
byte main::textcolor8_color
byte main::textcolor9_color
byte main::tilebase
byte main::tilebase#0 tilebase zp[1]:15 3.6666666666666665
byte main::tilebase#1 tilebase_1 zp[1]:16 3.6666666666666665
byte~ main::vera_hide_layer1_$0 reg byte a 22.0
byte main::vera_hide_layer1_layer
byte main::vera_show_layer1_layer
byte main::tilebase#0 tilebase zp[1]:19 3.6666666666666665
byte main::tilebase#1 tilebase_1 zp[1]:20 3.6666666666666665
byte~ main::vera_layer_hide1_$0 reg byte a 22.0
byte main::vera_layer_hide1_layer
byte main::vera_layer_is_visible1_layer
const byte main::vera_layer_is_visible1_layer#0 vera_layer_is_visible1_layer = 1
byte main::vera_layer_is_visible1_return
byte main::vera_layer_is_visible1_return#0 vera_layer_is_visible1_return zp[1]:18 7.333333333333333
byte main::vera_layer_is_visible2_layer
byte main::vera_layer_is_visible2_return
byte main::vera_layer_is_visible2_return#0 vera_layer_is_visible2_return zp[1]:5 7.333333333333333
byte main::vera_layer_is_visible3_layer
byte main::vera_layer_is_visible3_return
byte main::vera_layer_is_visible3_return#0 vera_layer_is_visible3_return zp[1]:5 5.5
byte main::vera_layer_is_visible4_layer
byte main::vera_layer_is_visible4_return
byte main::vera_layer_is_visible4_return#0 vera_layer_is_visible4_return zp[1]:5 5.5
byte main::vera_layer_show1_layer
void memcpy_in_vram(byte memcpy_in_vram::dest_bank , void* memcpy_in_vram::dest , byte memcpy_in_vram::dest_increment , byte memcpy_in_vram::src_bank , void* memcpy_in_vram::src , byte memcpy_in_vram::src_increment , word memcpy_in_vram::num)
byte~ memcpy_in_vram::$0 reg byte a 2.000000000002E12
byte~ memcpy_in_vram::$1 reg byte a 2.000000000002E12
@ -289,29 +304,45 @@ byte printf_uchar::format_sign_always
byte printf_uchar::format_upper_case
byte printf_uchar::format_zero_padding
byte printf_uchar::uvalue
byte printf_uchar::uvalue#10 uvalue zp[1]:3 7.333333333333333
byte printf_uchar::uvalue#11 uvalue zp[1]:3 7.333333333333333
byte printf_uchar::uvalue#12 uvalue zp[1]:3 116.5
byte printf_uchar::uvalue#19 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#2 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#3 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#4 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#5 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#6 uvalue zp[1]:3 7.333333333333333
byte printf_uchar::uvalue#7 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#8 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#9 uvalue zp[1]:3 22.0
byte printf_uchar::uvalue#12 uvalue zp[1]:5 116.5
byte printf_uchar::uvalue#19 uvalue zp[1]:5 22.0
byte printf_uchar::uvalue#2 uvalue zp[1]:5 22.0
byte printf_uchar::uvalue#3 uvalue zp[1]:5 22.0
byte printf_uchar::uvalue#4 uvalue zp[1]:5 22.0
byte printf_uchar::uvalue#5 uvalue zp[1]:5 22.0
byte printf_uchar::uvalue#6 uvalue zp[1]:5 7.333333333333333
byte printf_uchar::uvalue#7 uvalue zp[1]:5 22.0
byte printf_uchar::uvalue#8 uvalue zp[1]:5 22.0
byte printf_uchar::uvalue#9 uvalue zp[1]:5 22.0
void screenlayer(byte screenlayer::layer)
word~ screenlayer::$2 zp[2]:24 202.0
byte~ screenlayer::$3 reg byte a 202.0
word~ screenlayer::$4 zp[2]:26 202.0
word~ screenlayer::$5 zp[2]:20 101.0
word~ screenlayer::$6 zp[2]:22 202.0
byte screenlayer::addr
byte screenlayer::addr#0 reg byte a 202.0
word screenlayer::addr_i
word screenlayer::addr_i#0 addr_i zp[2]:24 151.5
word~ screenlayer::$5 zp[2]:35 202.0
byte screenlayer::layer
byte screenlayer::layer#1 reg byte a 151.5
byte screenlayer::layer#5 reg byte a 101.0
byte screenlayer::layer#4 reg byte a 101.0
byte~ screenlayer::vera_layer_get_height1_$0 reg byte a 202.0
byte~ screenlayer::vera_layer_get_height1_$1 reg byte a 202.0
byte~ screenlayer::vera_layer_get_height1_$2 reg byte a 202.0
byte~ screenlayer::vera_layer_get_height1_$3 reg byte a 202.0
byte* screenlayer::vera_layer_get_height1_config
byte* screenlayer::vera_layer_get_height1_config#0 vera_layer_get_height1_config zp[2]:33 202.0
byte screenlayer::vera_layer_get_height1_layer
byte screenlayer::vera_layer_get_height1_layer#0 reg byte a 202.0
word screenlayer::vera_layer_get_height1_return
word screenlayer::vera_layer_get_height1_return#0 vera_layer_get_height1_return zp[2]:35 202.0
word screenlayer::vera_layer_get_height1_return#1 vera_layer_get_height1_return zp[2]:35 202.0
byte~ screenlayer::vera_layer_get_width1_$0 reg byte a 202.0
byte~ screenlayer::vera_layer_get_width1_$1 reg byte a 202.0
byte~ screenlayer::vera_layer_get_width1_$2 reg byte a 202.0
byte~ screenlayer::vera_layer_get_width1_$3 reg byte a 202.0
byte* screenlayer::vera_layer_get_width1_config
byte* screenlayer::vera_layer_get_width1_config#0 vera_layer_get_width1_config zp[2]:37 202.0
byte screenlayer::vera_layer_get_width1_layer
byte screenlayer::vera_layer_get_width1_layer#0 reg byte a 202.0
word screenlayer::vera_layer_get_width1_return
word screenlayer::vera_layer_get_width1_return#0 vera_layer_get_width1_return zp[2]:24 202.0
word screenlayer::vera_layer_get_width1_return#1 vera_layer_get_width1_return zp[2]:24 202.0
void screensize(byte* screensize::x , byte* screensize::y)
byte~ screensize::$1 reg byte a 202.0
byte~ screensize::$3 reg byte a 202.0
@ -331,14 +362,14 @@ byte* uctoa::buffer#14 buffer zp[2]:31 15001.5
byte* uctoa::buffer#3 buffer zp[2]:31 2002.0
byte* uctoa::buffer#4 buffer zp[2]:31 20002.0
byte uctoa::digit
byte uctoa::digit#1 digit zp[1]:14 20002.0
byte uctoa::digit#2 digit zp[1]:14 2857.4285714285716
byte uctoa::digit#1 digit zp[1]:18 20002.0
byte uctoa::digit#2 digit zp[1]:18 2857.4285714285716
byte uctoa::digit_value
byte uctoa::digit_value#0 reg byte y 6000.6
byte* uctoa::digit_values
byte* uctoa::digit_values#8 digit_values zp[2]:29 625.0625
byte uctoa::max_digits
byte uctoa::max_digits#7 max_digits zp[1]:4 625.0625
byte uctoa::max_digits#7 max_digits zp[1]:6 625.0625
byte uctoa::radix
byte uctoa::radix#0 reg byte y 1026.25
byte uctoa::started
@ -363,256 +394,296 @@ byte uctoa_append::value
byte uctoa_append::value#0 reg byte x 36667.33333333333
byte uctoa_append::value#1 reg byte x 2.0000002E7
byte uctoa_append::value#2 reg byte x 5018334.166666666
byte vera_get_layer_backcolor(byte vera_get_layer_backcolor::layer)
byte vera_get_layer_backcolor::layer
byte vera_get_layer_backcolor::layer#0 reg byte a 2002.0
byte vera_get_layer_backcolor::layer#1 reg byte a 1102.0
byte vera_get_layer_backcolor::return
byte vera_get_layer_backcolor::return#0 reg byte a 367.33333333333337
byte vera_get_layer_backcolor::return#2 reg byte a 202.0
byte vera_get_layer_color(byte vera_get_layer_color::layer)
byte~ vera_get_layer_color::$0 reg byte a 2.00000000002E11
byte vera_get_layer_color::layer
byte vera_get_layer_color::layer#0 reg byte x 1.500000000015E11
byte vera_get_layer_color::layer#1 reg byte a 2000002.0
byte vera_get_layer_color::layer#2 reg byte a 2.0000000002E10
byte vera_get_layer_color::layer#3 reg byte a 1.10001000003E11
byte vera_get_layer_color::return
byte vera_get_layer_color::return#0 reg byte a 2.750025000075E10
byte vera_get_layer_color::return#2 reg byte a 2000002.0
byte vera_get_layer_color::return#3 reg byte a 2.0000000002E10
byte vera_get_layer_config(byte vera_get_layer_config::layer)
byte~ vera_get_layer_config::$0 reg byte a 202.0
byte* vera_get_layer_config::config
byte* vera_get_layer_config::config#0 config zp[2]:29 202.0
byte vera_get_layer_config::layer
byte vera_get_layer_config::layer#0 reg byte a 202.0
byte vera_get_layer_config::layer#5 reg byte a 101.0
byte vera_get_layer_config::return
byte vera_get_layer_config::return#0 reg byte a 26.8
byte vera_get_layer_config::return#10 reg byte a 22.0
byte vera_get_layer_config::return#2 reg byte a 22.0
byte vera_get_layer_config::return#3 reg byte a 22.0
word vera_get_layer_map_height(byte vera_get_layer_map_height::layer)
byte~ vera_get_layer_map_height::$0 reg byte a 2002.0
byte~ vera_get_layer_map_height::$1 reg byte a 2002.0
byte~ vera_get_layer_map_height::$2 reg byte a 2002.0
byte~ vera_get_layer_map_height::$3 reg byte a 2002.0
byte* vera_get_layer_map_height::config
byte* vera_get_layer_map_height::config#0 config zp[2]:35 2002.0
byte vera_get_layer_map_height::layer
byte vera_get_layer_map_height::layer#0 reg byte a 1102.0
word vera_get_layer_map_height::return
word vera_get_layer_map_height::return#0 return zp[2]:22 367.33333333333337
word vera_get_layer_map_height::return#2 return zp[2]:22 202.0
word vera_get_layer_map_width(byte vera_get_layer_map_width::layer)
byte~ vera_get_layer_map_width::$0 reg byte a 2002.0
byte~ vera_get_layer_map_width::$1 reg byte a 2002.0
byte~ vera_get_layer_map_width::$2 reg byte a 2002.0
byte~ vera_get_layer_map_width::$3 reg byte a 2002.0
byte* vera_get_layer_map_width::config
byte* vera_get_layer_map_width::config#0 config zp[2]:35 2002.0
byte vera_get_layer_map_width::layer
byte vera_get_layer_map_width::layer#0 reg byte a 1102.0
word vera_get_layer_map_width::return
word vera_get_layer_map_width::return#0 return zp[2]:26 367.33333333333337
word vera_get_layer_map_width::return#2 return zp[2]:26 202.0
byte vera_get_layer_mapbase(byte vera_get_layer_mapbase::layer)
byte~ vera_get_layer_mapbase::$0 reg byte a 2002.0
byte vera_get_layer_mapbase::layer
byte vera_get_layer_mapbase::layer#0 reg byte a 2002.0
byte vera_get_layer_mapbase::layer#1 reg byte a 202.0
byte vera_get_layer_mapbase::layer#4 reg byte a 1102.0
byte* vera_get_layer_mapbase::mapbase
byte* vera_get_layer_mapbase::mapbase#0 mapbase zp[2]:35 2002.0
byte vera_get_layer_mapbase::return
byte vera_get_layer_mapbase::return#0 reg byte a 224.79999999999998
byte vera_get_layer_mapbase::return#2 reg byte a 202.0
byte vera_get_layer_mapbase::return#3 reg byte a 22.0
byte vera_get_layer_mapbase::return#4 reg byte a 22.0
byte vera_get_layer_textcolor(byte vera_get_layer_textcolor::layer)
byte vera_get_layer_textcolor::layer
byte vera_get_layer_textcolor::layer#0 reg byte a 2002.0
byte vera_get_layer_textcolor::layer#1 reg byte a 1102.0
byte vera_get_layer_textcolor::return
byte vera_get_layer_textcolor::return#0 reg byte a 367.33333333333337
byte vera_get_layer_textcolor::return#2 reg byte a 202.0
byte vera_get_layer_tilebase(byte vera_get_layer_tilebase::layer)
byte~ vera_get_layer_tilebase::$0 reg byte a 202.0
byte vera_get_layer_tilebase::layer
byte vera_get_layer_tilebase::layer#0 reg byte a 202.0
byte vera_get_layer_tilebase::layer#4 reg byte a 101.0
byte vera_get_layer_tilebase::return
byte vera_get_layer_tilebase::return#0 reg byte a 26.8
byte vera_get_layer_tilebase::return#2 reg byte a 22.0
byte vera_get_layer_tilebase::return#3 reg byte a 22.0
byte vera_get_layer_tilebase::return#4 reg byte a 22.0
byte* vera_get_layer_tilebase::tilebase
byte* vera_get_layer_tilebase::tilebase#0 tilebase zp[2]:31 202.0
byte vera_is_layer_shown(byte vera_is_layer_shown::layer)
byte vera_is_layer_shown::layer
byte vera_is_layer_shown::layer#0 reg byte a 202.0
byte vera_is_layer_shown::layer#5 reg byte a 101.0
byte vera_is_layer_shown::return
byte vera_is_layer_shown::return#0 reg byte a 24.166666666666664
byte vera_is_layer_shown::return#10 reg byte a 22.0
byte vera_is_layer_shown::return#2 reg byte a 22.0
byte vera_is_layer_shown::return#3 reg byte a 22.0
byte vera_is_layer_shown::return#4 reg byte a 22.0
const byte* vera_layer_backcolor[2] = { BLUE, BLUE }
const byte** vera_layer_config[2] = { VERA_L0_CONFIG, VERA_L1_CONFIG }
const byte* vera_layer_enable[2] = { VERA_LAYER0_ENABLE, VERA_LAYER1_ENABLE }
byte vera_layer_get_backcolor(byte vera_layer_get_backcolor::layer)
byte vera_layer_get_backcolor::layer
byte vera_layer_get_backcolor::layer#0 reg byte x 1102.0
byte vera_layer_get_backcolor::return
byte vera_layer_get_backcolor::return#0 reg byte a 367.33333333333337
byte vera_layer_get_backcolor::return#2 reg byte a 202.0
byte vera_layer_get_color(byte vera_layer_get_color::layer)
byte~ vera_layer_get_color::$0 reg byte a 2.00000000002E11
byte~ vera_layer_get_color::$1 reg byte a 2.00000000002E11
byte~ vera_layer_get_color::$3 reg byte a 2.00000000002E11
byte* vera_layer_get_color::addr
byte* vera_layer_get_color::addr#0 addr zp[2]:39 2.00000000002E11
byte vera_layer_get_color::layer
byte vera_layer_get_color::layer#0 reg byte x 2000002.0
byte vera_layer_get_color::layer#1 reg byte x 2.0000000002E10
byte vera_layer_get_color::layer#2 reg byte x 6.833350000100001E10
byte vera_layer_get_color::return
byte vera_layer_get_color::return#0 reg byte a 2.00000000002E11
byte vera_layer_get_color::return#1 reg byte a 2.00000000002E11
byte vera_layer_get_color::return#2 reg byte a 5.2500250001E10
byte vera_layer_get_color::return#3 reg byte a 2000002.0
byte vera_layer_get_color::return#4 reg byte a 2.0000000002E10
byte vera_layer_get_config(byte vera_layer_get_config::layer)
byte~ vera_layer_get_config::$0 reg byte a 202.0
byte* vera_layer_get_config::config
byte* vera_layer_get_config::config#0 config zp[2]:31 202.0
byte vera_layer_get_config::layer
byte vera_layer_get_config::layer#4 reg byte a 101.0
byte vera_layer_get_config::return
byte vera_layer_get_config::return#0 reg byte a 26.8
byte vera_layer_get_config::return#10 reg byte a 22.0
byte vera_layer_get_config::return#2 reg byte a 22.0
byte vera_layer_get_config::return#3 reg byte a 22.0
byte vera_layer_get_mapbase(byte vera_layer_get_mapbase::layer)
byte~ vera_layer_get_mapbase::$0 reg byte a 202.0
byte vera_layer_get_mapbase::layer
byte vera_layer_get_mapbase::layer#2 reg byte a 101.0
byte* vera_layer_get_mapbase::mapbase
byte* vera_layer_get_mapbase::mapbase#0 mapbase zp[2]:29 202.0
byte vera_layer_get_mapbase::return
byte vera_layer_get_mapbase::return#0 reg byte a 30.75
byte vera_layer_get_mapbase::return#2 reg byte a 22.0
byte vera_layer_get_mapbase::return#3 reg byte a 22.0
byte vera_layer_get_mapbase_bank(byte vera_layer_get_mapbase_bank::layer)
byte vera_layer_get_mapbase_bank::layer
byte vera_layer_get_mapbase_bank::layer#0 reg byte x 1102.0
byte vera_layer_get_mapbase_bank::return
byte vera_layer_get_mapbase_bank::return#0 reg byte a 367.33333333333337
byte vera_layer_get_mapbase_bank::return#2 reg byte a 202.0
word vera_layer_get_mapbase_offset(byte vera_layer_get_mapbase_offset::layer)
byte~ vera_layer_get_mapbase_offset::$0 reg byte a 2002.0
byte vera_layer_get_mapbase_offset::layer
byte vera_layer_get_mapbase_offset::layer#0 reg byte a 1102.0
word vera_layer_get_mapbase_offset::return
word vera_layer_get_mapbase_offset::return#0 return zp[2]:37 367.33333333333337
word vera_layer_get_mapbase_offset::return#2 return zp[2]:37 202.0
byte vera_layer_get_rowshift(byte vera_layer_get_rowshift::layer)
byte vera_layer_get_rowshift::layer
byte vera_layer_get_rowshift::layer#0 reg byte x 1102.0
byte vera_layer_get_rowshift::return
byte vera_layer_get_rowshift::return#0 reg byte a 367.33333333333337
byte vera_layer_get_rowshift::return#2 reg byte a 202.0
word vera_layer_get_rowskip(byte vera_layer_get_rowskip::layer)
byte~ vera_layer_get_rowskip::$0 reg byte a 2002.0
byte vera_layer_get_rowskip::layer
byte vera_layer_get_rowskip::layer#0 reg byte a 1102.0
word vera_layer_get_rowskip::return
word vera_layer_get_rowskip::return#0 return zp[2]:26 367.33333333333337
word vera_layer_get_rowskip::return#2 return zp[2]:26 202.0
byte vera_layer_get_textcolor(byte vera_layer_get_textcolor::layer)
byte vera_layer_get_textcolor::layer
byte vera_layer_get_textcolor::layer#0 reg byte x 1102.0
byte vera_layer_get_textcolor::return
byte vera_layer_get_textcolor::return#0 reg byte a 367.33333333333337
byte vera_layer_get_textcolor::return#2 reg byte a 202.0
byte vera_layer_get_tilebase(byte vera_layer_get_tilebase::layer)
byte~ vera_layer_get_tilebase::$0 reg byte a 202.0
byte vera_layer_get_tilebase::layer
byte vera_layer_get_tilebase::layer#3 reg byte a 101.0
byte vera_layer_get_tilebase::return
byte vera_layer_get_tilebase::return#0 reg byte a 26.8
byte vera_layer_get_tilebase::return#2 reg byte a 22.0
byte vera_layer_get_tilebase::return#3 reg byte a 22.0
byte vera_layer_get_tilebase::return#4 reg byte a 22.0
byte* vera_layer_get_tilebase::tilebase
byte* vera_layer_get_tilebase::tilebase#0 tilebase zp[2]:31 202.0
const byte** vera_layer_mapbase[2] = { VERA_L0_MAPBASE, VERA_L1_MAPBASE }
void vera_layer_mode_text(byte vera_layer_mode_text::layer , dword vera_layer_mode_text::mapbase_address , dword vera_layer_mode_text::tilebase_address , word vera_layer_mode_text::mapwidth , word vera_layer_mode_text::mapheight , byte vera_layer_mode_text::tilewidth , byte vera_layer_mode_text::tileheight , word vera_layer_mode_text::color_mode)
word vera_layer_mode_text::color_mode
byte vera_layer_mode_text::layer
const byte vera_layer_mode_text::layer#0 layer = 1
dword vera_layer_mode_text::mapbase_address
const dword vera_layer_mode_text::mapbase_address#0 mapbase_address = 0
word vera_layer_mode_text::mapheight
word vera_layer_mode_text::mapwidth
dword vera_layer_mode_text::tilebase_address
const dword vera_layer_mode_text::tilebase_address#0 tilebase_address = $f800
byte vera_layer_mode_text::tileheight
byte vera_layer_mode_text::tilewidth
void vera_layer_mode_tile(byte vera_layer_mode_tile::layer , dword vera_layer_mode_tile::mapbase_address , dword vera_layer_mode_tile::tilebase_address , word vera_layer_mode_tile::mapwidth , word vera_layer_mode_tile::mapheight , byte vera_layer_mode_tile::tilewidth , byte vera_layer_mode_tile::tileheight , byte vera_layer_mode_tile::color_depth)
byte vera_layer_mode_tile::color_depth
byte vera_layer_mode_tile::config
const byte vera_layer_mode_tile::config#10 config = VERA_LAYER_WIDTH_128|VERA_LAYER_HEIGHT_64
byte vera_layer_mode_tile::layer
byte vera_layer_mode_tile::mapbase
const byte vera_layer_mode_tile::mapbase#0 mapbase = 0
dword vera_layer_mode_tile::mapbase_address
word vera_layer_mode_tile::mapheight
word vera_layer_mode_tile::mapwidth
byte vera_layer_mode_tile::tilebase
dword vera_layer_mode_tile::tilebase_address
const dword vera_layer_mode_tile::tilebase_address#0 tilebase_address = vera_layer_mode_text::tilebase_address#0>>1
byte vera_layer_mode_tile::tileheight
byte vera_layer_mode_tile::tilewidth
const byte* vera_layer_rowshift[2] = { 0, 0 }
const word* vera_layer_rowskip[2] = { 0, 0 }
byte vera_layer_set_backcolor(byte vera_layer_set_backcolor::layer , byte vera_layer_set_backcolor::color)
byte vera_layer_set_backcolor::color
byte vera_layer_set_backcolor::color#10 reg byte a 101.0
byte vera_layer_set_backcolor::layer
byte vera_layer_set_backcolor::layer#1 reg byte x 22.0
byte vera_layer_set_backcolor::layer#10 reg byte x 200.0
byte vera_layer_set_backcolor::layer#2 reg byte x 22.0
byte vera_layer_set_backcolor::layer#3 reg byte x 22.0
byte vera_layer_set_backcolor::layer#4 reg byte x 22.0
byte vera_layer_set_backcolor::layer#5 reg byte x 22.0
byte vera_layer_set_backcolor::layer#6 reg byte x 22.0
byte vera_layer_set_backcolor::layer#7 reg byte x 22.0
byte vera_layer_set_backcolor::layer#8 reg byte x 22.0
byte vera_layer_set_backcolor::layer#9 reg byte x 22.0
byte vera_layer_set_backcolor::old
byte vera_layer_set_backcolor::return
void vera_layer_set_config(byte vera_layer_set_config::layer , byte vera_layer_set_config::config)
byte~ vera_layer_set_config::$0 reg byte a 20002.0
byte* vera_layer_set_config::addr
byte* vera_layer_set_config::addr#0 addr zp[2]:33 20002.0
byte vera_layer_set_config::config
byte vera_layer_set_config::config#1 reg byte x 22.0
byte vera_layer_set_config::config#2 reg byte x 3337.333333333333
byte vera_layer_set_config::layer
byte vera_layer_set_config::layer#2 reg byte a 10001.0
void vera_layer_set_mapbase(byte vera_layer_set_mapbase::layer , byte vera_layer_set_mapbase::mapbase)
byte~ vera_layer_set_mapbase::$0 reg byte a 20002.0
byte* vera_layer_set_mapbase::addr
byte* vera_layer_set_mapbase::addr#0 addr zp[2]:24 20002.0
byte vera_layer_set_mapbase::layer
byte vera_layer_set_mapbase::layer#4 reg byte a 10001.0
byte vera_layer_set_mapbase::mapbase
byte vera_layer_set_mapbase::mapbase#4 reg byte x 3333.6666666666665
void vera_layer_set_text_color_mode(byte vera_layer_set_text_color_mode::layer , byte vera_layer_set_text_color_mode::color_mode)
byte* vera_layer_set_text_color_mode::addr
byte* vera_layer_set_text_color_mode::addr#0 addr zp[2]:37 2502.5
byte vera_layer_set_text_color_mode::color_mode
byte vera_layer_set_text_color_mode::layer
byte vera_layer_set_textcolor(byte vera_layer_set_textcolor::layer , byte vera_layer_set_textcolor::color)
byte vera_layer_set_textcolor::color
byte vera_layer_set_textcolor::color#13 reg byte a 101.0
byte vera_layer_set_textcolor::layer
byte vera_layer_set_textcolor::layer#1 reg byte x 22.0
byte vera_layer_set_textcolor::layer#10 reg byte x 22.0
byte vera_layer_set_textcolor::layer#11 reg byte x 22.0
byte vera_layer_set_textcolor::layer#12 reg byte x 22.0
byte vera_layer_set_textcolor::layer#13 reg byte x 233.0
byte vera_layer_set_textcolor::layer#2 reg byte x 22.0
byte vera_layer_set_textcolor::layer#3 reg byte x 22.0
byte vera_layer_set_textcolor::layer#4 reg byte x 22.0
byte vera_layer_set_textcolor::layer#5 reg byte x 22.0
byte vera_layer_set_textcolor::layer#6 reg byte x 22.0
byte vera_layer_set_textcolor::layer#7 reg byte x 22.0
byte vera_layer_set_textcolor::layer#8 reg byte x 22.0
byte vera_layer_set_textcolor::layer#9 reg byte x 22.0
byte vera_layer_set_textcolor::old
byte vera_layer_set_textcolor::return
void vera_layer_set_tilebase(byte vera_layer_set_tilebase::layer , byte vera_layer_set_tilebase::tilebase)
byte~ vera_layer_set_tilebase::$0 reg byte a 20002.0
byte* vera_layer_set_tilebase::addr
byte* vera_layer_set_tilebase::addr#0 addr zp[2]:35 20002.0
byte vera_layer_set_tilebase::layer
byte vera_layer_set_tilebase::layer#2 reg byte a 10001.0
byte vera_layer_set_tilebase::tilebase
byte vera_layer_set_tilebase::tilebase#1 reg byte x 22.0
byte vera_layer_set_tilebase::tilebase#2 reg byte x 3337.333333333333
const byte* vera_layer_textcolor[2] = { WHITE, WHITE }
const byte** vera_layer_tilebase[2] = { VERA_L0_TILEBASE, VERA_L1_TILEBASE }
byte vera_set_layer_backcolor(byte vera_set_layer_backcolor::layer , byte vera_set_layer_backcolor::color)
byte vera_set_layer_backcolor::color
byte vera_set_layer_backcolor::color#10 reg byte x 50.5
byte vera_set_layer_backcolor::layer
byte vera_set_layer_backcolor::layer#0 reg byte a 202.0
byte vera_set_layer_backcolor::layer#10 reg byte a 22.0
byte vera_set_layer_backcolor::layer#11 reg byte a 200.0
byte vera_set_layer_backcolor::layer#2 reg byte a 22.0
byte vera_set_layer_backcolor::layer#3 reg byte a 22.0
byte vera_set_layer_backcolor::layer#4 reg byte a 22.0
byte vera_set_layer_backcolor::layer#5 reg byte a 22.0
byte vera_set_layer_backcolor::layer#6 reg byte a 22.0
byte vera_set_layer_backcolor::layer#7 reg byte a 22.0
byte vera_set_layer_backcolor::layer#8 reg byte a 22.0
byte vera_set_layer_backcolor::layer#9 reg byte a 22.0
byte vera_set_layer_backcolor::old
byte vera_set_layer_backcolor::return
void vera_set_layer_config(byte vera_set_layer_config::layer , byte vera_set_layer_config::config)
byte* vera_set_layer_config::addr
byte* vera_set_layer_config::addr#0 addr zp[2]:33 202.0
byte vera_set_layer_config::config
byte vera_set_layer_config::config#0 reg byte x 56.0
byte vera_set_layer_config::layer
void vera_set_layer_mapbase(byte vera_set_layer_mapbase::layer , byte vera_set_layer_mapbase::mapbase)
byte~ vera_set_layer_mapbase::$0 reg byte a 202.0
byte* vera_set_layer_mapbase::addr
byte* vera_set_layer_mapbase::addr#0 addr zp[2]:24 202.0
byte vera_set_layer_mapbase::layer
byte vera_set_layer_mapbase::layer#0 reg byte a 202.0
byte vera_set_layer_mapbase::layer#4 reg byte a 101.0
byte vera_set_layer_mapbase::mapbase
byte vera_set_layer_mapbase::mapbase#3 reg byte x 25.25
byte vera_set_layer_textcolor(byte vera_set_layer_textcolor::layer , byte vera_set_layer_textcolor::color)
byte vera_set_layer_textcolor::color
byte vera_set_layer_textcolor::color#13 reg byte x 50.5
byte vera_set_layer_textcolor::layer
byte vera_set_layer_textcolor::layer#0 reg byte a 202.0
byte vera_set_layer_textcolor::layer#10 reg byte a 22.0
byte vera_set_layer_textcolor::layer#11 reg byte a 22.0
byte vera_set_layer_textcolor::layer#12 reg byte a 22.0
byte vera_set_layer_textcolor::layer#13 reg byte a 22.0
byte vera_set_layer_textcolor::layer#14 reg byte a 233.0
byte vera_set_layer_textcolor::layer#2 reg byte a 22.0
byte vera_set_layer_textcolor::layer#3 reg byte a 22.0
byte vera_set_layer_textcolor::layer#4 reg byte a 22.0
byte vera_set_layer_textcolor::layer#5 reg byte a 22.0
byte vera_set_layer_textcolor::layer#6 reg byte a 22.0
byte vera_set_layer_textcolor::layer#7 reg byte a 22.0
byte vera_set_layer_textcolor::layer#8 reg byte a 22.0
byte vera_set_layer_textcolor::layer#9 reg byte a 22.0
byte vera_set_layer_textcolor::old
byte vera_set_layer_textcolor::return
void vera_set_layer_tilebase(byte vera_set_layer_tilebase::layer , byte vera_set_layer_tilebase::tilebase)
byte* vera_set_layer_tilebase::addr
byte* vera_set_layer_tilebase::addr#0 addr zp[2]:33 202.0
byte vera_set_layer_tilebase::layer
byte vera_set_layer_tilebase::tilebase
byte vera_set_layer_tilebase::tilebase#0 reg byte x 56.0
const dword* vera_mapbase_address[2] = { 0, 0 }
const byte* vera_mapbase_bank[2] = { 0, 0 }
const word* vera_mapbase_offset[2] = { 0, 0 }
const dword* vera_tilebase_address[2] = { 0, 0 }
const byte* vera_tilebase_bank[2] = { 0, 0 }
const word* vera_tilebase_offset[2] = { 0, 0 }
zp[1]:2 [ conio_x16_init::line#3 conio_x16_init::line#1 conio_x16_init::line#0 ]
reg byte a [ screenlayer::layer#5 ]
reg byte a [ vera_set_layer_textcolor::layer#14 vera_set_layer_textcolor::layer#2 vera_set_layer_textcolor::layer#11 vera_set_layer_textcolor::layer#12 vera_set_layer_textcolor::layer#13 vera_set_layer_textcolor::layer#3 vera_set_layer_textcolor::layer#4 vera_set_layer_textcolor::layer#5 vera_set_layer_textcolor::layer#6 vera_set_layer_textcolor::layer#7 vera_set_layer_textcolor::layer#8 vera_set_layer_textcolor::layer#9 vera_set_layer_textcolor::layer#10 ]
reg byte x [ vera_set_layer_textcolor::color#13 ]
reg byte a [ vera_set_layer_backcolor::layer#11 vera_set_layer_backcolor::layer#2 vera_set_layer_backcolor::layer#3 vera_set_layer_backcolor::layer#4 vera_set_layer_backcolor::layer#5 vera_set_layer_backcolor::layer#6 vera_set_layer_backcolor::layer#7 vera_set_layer_backcolor::layer#8 vera_set_layer_backcolor::layer#9 vera_set_layer_backcolor::layer#10 ]
reg byte x [ vera_set_layer_backcolor::color#10 ]
reg byte a [ vera_set_layer_mapbase::layer#4 ]
reg byte x [ vera_set_layer_mapbase::mapbase#3 ]
reg byte a [ screenlayer::layer#4 ]
reg byte x [ vera_layer_set_textcolor::layer#13 vera_layer_set_textcolor::layer#1 vera_layer_set_textcolor::layer#10 vera_layer_set_textcolor::layer#11 vera_layer_set_textcolor::layer#12 vera_layer_set_textcolor::layer#2 vera_layer_set_textcolor::layer#3 vera_layer_set_textcolor::layer#4 vera_layer_set_textcolor::layer#5 vera_layer_set_textcolor::layer#6 vera_layer_set_textcolor::layer#7 vera_layer_set_textcolor::layer#8 vera_layer_set_textcolor::layer#9 ]
reg byte a [ vera_layer_set_textcolor::color#13 ]
reg byte x [ vera_layer_set_backcolor::layer#10 vera_layer_set_backcolor::layer#1 vera_layer_set_backcolor::layer#2 vera_layer_set_backcolor::layer#3 vera_layer_set_backcolor::layer#4 vera_layer_set_backcolor::layer#5 vera_layer_set_backcolor::layer#6 vera_layer_set_backcolor::layer#7 vera_layer_set_backcolor::layer#8 vera_layer_set_backcolor::layer#9 ]
reg byte a [ vera_layer_set_backcolor::color#10 ]
reg byte a [ vera_layer_set_mapbase::layer#4 ]
reg byte x [ vera_layer_set_mapbase::mapbase#4 ]
reg byte x [ gotoxy::y#11 gotoxy::y#10 gotoxy::y#0 gotoxy::y#2 ]
reg byte y [ gotoxy::x#11 gotoxy::x#10 ]
reg byte x [ clrscr::l#2 clrscr::l#1 ]
reg byte y [ clrscr::c#2 clrscr::c#1 ]
zp[1]:3 [ printf_uchar::uvalue#12 printf_uchar::uvalue#10 printf_uchar::uvalue#11 main::screensizex1_return#0 printf_uchar::uvalue#19 printf_uchar::uvalue#2 printf_uchar::uvalue#3 printf_uchar::uvalue#4 printf_uchar::uvalue#5 printf_uchar::uvalue#6 printf_uchar::uvalue#7 printf_uchar::uvalue#8 printf_uchar::uvalue#9 main::dcvideo#0 main::config#0 main::mapbase#0 main::layershown#1 main::mapbase#1 ]
zp[2]:3 [ cputs::s#37 cputs::s#38 cputs::s#0 clrscr::line_text#2 clrscr::line_text#1 clrscr::line_text#0 ]
zp[1]:5 [ printf_uchar::uvalue#12 main::vera_layer_is_visible3_return#0 main::vera_layer_is_visible4_return#0 main::screensizex1_return#0 printf_uchar::uvalue#19 printf_uchar::uvalue#2 printf_uchar::uvalue#3 printf_uchar::uvalue#4 printf_uchar::uvalue#5 printf_uchar::uvalue#6 printf_uchar::uvalue#7 printf_uchar::uvalue#8 printf_uchar::uvalue#9 main::dcvideo#0 main::config#0 main::mapbase#0 main::vera_layer_is_visible2_return#0 main::mapbase#1 ]
reg byte y [ printf_uchar::format_radix#12 ]
reg byte a [ vera_get_layer_config::layer#5 ]
reg byte a [ vera_is_layer_shown::layer#5 ]
reg byte a [ vera_get_layer_mapbase::layer#4 vera_get_layer_mapbase::layer#1 ]
reg byte a [ vera_get_layer_tilebase::layer#4 ]
reg byte a [ vera_get_layer_color::layer#3 vera_get_layer_color::layer#2 vera_get_layer_color::layer#1 ]
zp[1]:4 [ uctoa::max_digits#7 cputc::c#4 cputc::c#0 cputc::c#3 cputc::c#2 ]
reg byte a [ vera_layer_get_config::layer#4 ]
reg byte a [ vera_layer_get_mapbase::layer#2 ]
reg byte a [ vera_layer_get_tilebase::layer#3 ]
reg byte a [ vera_layer_set_config::layer#2 ]
reg byte x [ vera_layer_set_config::config#2 vera_layer_set_config::config#1 ]
reg byte a [ vera_layer_set_tilebase::layer#2 ]
reg byte x [ vera_layer_set_tilebase::tilebase#2 vera_layer_set_tilebase::tilebase#1 ]
reg byte x [ vera_layer_get_color::layer#2 vera_layer_get_color::layer#1 vera_layer_get_color::layer#0 ]
reg byte a [ vera_layer_get_color::return#2 vera_layer_get_color::return#0 vera_layer_get_color::return#1 ]
zp[1]:6 [ uctoa::max_digits#7 cputc::c#4 cputc::c#0 cputc::c#3 cputc::c#2 ]
reg byte x [ uctoa::value#2 uctoa::value#6 uctoa::value#1 uctoa::value#0 ]
reg byte x [ uctoa_append::value#2 uctoa_append::value#0 uctoa_append::value#1 ]
reg byte y [ uctoa_append::digit#2 uctoa_append::digit#1 ]
reg byte x [ insertup::i#2 insertup::i#1 ]
zp[1]:5 [ conio_screen_width ]
zp[1]:6 [ conio_screen_height ]
zp[1]:7 [ conio_screen_layer ]
zp[2]:8 [ conio_width ]
zp[2]:10 [ conio_height ]
zp[1]:12 [ conio_skip ]
zp[1]:7 [ conio_screen_width ]
zp[1]:8 [ conio_screen_height ]
zp[1]:9 [ conio_screen_layer ]
zp[2]:10 [ conio_width ]
zp[2]:12 [ conio_height ]
zp[1]:14 [ conio_rowshift ]
zp[2]:15 [ conio_rowskip ]
reg byte a [ kbhit::return#2 ]
reg byte a [ main::$81 ]
zp[1]:13 [ main::screensizey1_return#0 ]
reg byte a [ vera_get_layer_config::return#2 ]
reg byte a [ vera_is_layer_shown::return#2 ]
zp[1]:14 [ main::layershown#0 uctoa::digit#2 uctoa::digit#1 ]
reg byte a [ vera_get_layer_mapbase::return#3 ]
reg byte a [ vera_get_layer_tilebase::return#2 ]
zp[1]:15 [ main::tilebase#0 ]
zp[1]:17 [ main::screensizey1_return#0 ]
reg byte a [ vera_layer_get_config::return#2 ]
zp[1]:18 [ main::vera_layer_is_visible1_return#0 uctoa::digit#2 uctoa::digit#1 ]
reg byte a [ vera_layer_get_mapbase::return#2 ]
reg byte a [ vera_layer_get_tilebase::return#2 ]
zp[1]:19 [ main::tilebase#0 ]
reg byte a [ kbhit::return#3 ]
reg byte a [ main::$83 ]
reg byte a [ vera_get_layer_config::return#3 ]
reg byte x [ vera_set_layer_config::config#0 ]
reg byte a [ vera_get_layer_tilebase::return#3 ]
reg byte x [ vera_set_layer_tilebase::tilebase#0 ]
reg byte a [ vera_get_layer_config::return#10 ]
reg byte a [ vera_is_layer_shown::return#3 ]
reg byte a [ vera_get_layer_mapbase::return#4 ]
reg byte a [ vera_get_layer_tilebase::return#4 ]
zp[1]:16 [ main::tilebase#1 ]
reg byte a [ vera_layer_get_config::return#3 ]
reg byte a [ vera_layer_get_tilebase::return#3 ]
reg byte a [ vera_layer_get_config::return#10 ]
reg byte a [ vera_layer_get_mapbase::return#3 ]
reg byte a [ vera_layer_get_tilebase::return#4 ]
zp[1]:20 [ main::tilebase#1 ]
reg byte a [ kbhit::return#10 ]
reg byte a [ main::$85 ]
reg byte a [ vera_is_layer_shown::return#4 ]
reg byte a [ kbhit::return#11 ]
reg byte a [ main::$87 ]
reg byte a [ main::vera_hide_layer1_$0 ]
reg byte a [ vera_is_layer_shown::return#10 ]
reg byte a [ main::vera_layer_hide1_$0 ]
reg byte a [ kbhit::return#12 ]
reg byte a [ main::$89 ]
reg byte a [ screensize::hscale#0 ]
reg byte a [ screensize::$1 ]
reg byte a [ screensize::vscale#0 ]
reg byte a [ screensize::$3 ]
reg byte a [ screenlayer::layer#1 ]
reg byte a [ vera_get_layer_mapbase::return#2 ]
reg byte a [ screenlayer::addr#0 ]
zp[1]:17 [ CONIO_SCREEN_BANK#16 ]
zp[2]:18 [ CONIO_SCREEN_TEXT#18 ]
reg byte a [ vera_get_layer_map_width::layer#0 ]
zp[2]:20 [ screenlayer::$5 ]
reg byte a [ vera_get_layer_map_height::layer#0 ]
zp[2]:22 [ vera_get_layer_map_height::return#2 screenlayer::$6 vera_get_layer_map_height::return#0 ]
reg byte a [ vera_set_layer_textcolor::layer#0 ]
reg byte a [ vera_set_layer_backcolor::layer#0 ]
reg byte a [ vera_set_layer_mapbase::layer#0 ]
reg byte a [ vera_set_layer_mapbase::$0 ]
zp[2]:24 [ vera_set_layer_mapbase::addr#0 screenlayer::addr_i#0 ]
zp[2]:26 [ gotoxy::$6 gotoxy::line_offset#0 vera_get_layer_map_width::return#2 screenlayer::$4 vera_get_layer_map_width::return#0 ]
reg byte x [ vera_layer_get_mapbase_bank::layer#0 ]
reg byte a [ vera_layer_get_mapbase_bank::return#2 ]
zp[1]:21 [ CONIO_SCREEN_BANK#116 ]
reg byte a [ vera_layer_get_mapbase_offset::layer#0 ]
zp[2]:22 [ CONIO_SCREEN_TEXT#134 ]
reg byte a [ screenlayer::vera_layer_get_width1_layer#0 ]
reg byte a [ screenlayer::vera_layer_get_width1_$2 ]
reg byte a [ screenlayer::vera_layer_get_width1_$0 ]
reg byte a [ screenlayer::vera_layer_get_width1_$1 ]
reg byte a [ screenlayer::vera_layer_get_width1_$3 ]
reg byte x [ vera_layer_get_rowshift::layer#0 ]
reg byte a [ vera_layer_get_rowshift::return#2 ]
reg byte a [ screenlayer::$3 ]
reg byte a [ vera_layer_get_rowskip::layer#0 ]
reg byte a [ screenlayer::vera_layer_get_height1_layer#0 ]
reg byte a [ screenlayer::vera_layer_get_height1_$2 ]
reg byte a [ screenlayer::vera_layer_get_height1_$0 ]
reg byte a [ screenlayer::vera_layer_get_height1_$1 ]
reg byte a [ screenlayer::vera_layer_get_height1_$3 ]
reg byte a [ vera_layer_set_mapbase::$0 ]
zp[2]:24 [ vera_layer_set_mapbase::addr#0 screenlayer::vera_layer_get_width1_return#0 screenlayer::vera_layer_get_width1_return#1 screenlayer::$2 ]
zp[2]:26 [ gotoxy::$6 gotoxy::line_offset#0 vera_layer_get_rowskip::return#2 screenlayer::$4 vera_layer_get_rowskip::return#0 ]
reg byte a [ gotoxy::$5 ]
reg byte a [ vera_get_layer_backcolor::layer#1 ]
reg byte a [ vera_get_layer_backcolor::return#2 ]
reg byte a [ clrscr::$1 ]
reg byte a [ vera_get_layer_textcolor::layer#1 ]
reg byte a [ vera_get_layer_textcolor::return#2 ]
reg byte a [ clrscr::$3 ]
reg byte a [ clrscr::$10 ]
reg byte x [ vera_layer_get_backcolor::layer#0 ]
reg byte a [ vera_layer_get_backcolor::return#2 ]
reg byte a [ clrscr::$0 ]
reg byte x [ vera_layer_get_textcolor::layer#0 ]
reg byte a [ vera_layer_get_textcolor::return#2 ]
reg byte a [ clrscr::$2 ]
reg byte a [ clrscr::$9 ]
reg byte a [ clrscr::$5 ]
reg byte a [ clrscr::$6 ]
reg byte a [ clrscr::$7 ]
reg byte a [ clrscr::$8 ]
reg byte a [ cputs::c#1 ]
zp[1]:28 [ kbhit::ch ]
reg byte a [ kbhit::return#0 ]
@ -620,60 +691,51 @@ reg byte a [ kbhit::return#1 ]
reg byte a [ clearline::$5 ]
reg byte a [ clearline::$1 ]
reg byte a [ clearline::$2 ]
reg byte a [ vera_get_layer_color::return#3 ]
reg byte a [ vera_layer_get_color::return#4 ]
reg byte x [ clearline::color#0 ]
reg byte y [ uctoa::radix#0 ]
reg byte a [ printf_number_buffer::buffer_sign#0 ]
reg byte a [ vera_get_layer_config::layer#0 ]
reg byte a [ vera_get_layer_config::$0 ]
reg byte a [ vera_get_layer_config::return#0 ]
reg byte a [ vera_is_layer_shown::layer#0 ]
reg byte a [ vera_is_layer_shown::return#0 ]
reg byte a [ vera_get_layer_color::return#2 ]
reg byte a [ vera_layer_get_config::$0 ]
reg byte a [ vera_layer_get_config::return#0 ]
reg byte a [ vera_layer_get_color::return#3 ]
reg byte x [ cputc::color#0 ]
reg byte a [ cputc::$15 ]
zp[2]:29 [ cputc::conio_addr#0 cputc::conio_addr#1 vera_get_layer_config::config#0 uctoa::digit_values#8 clearline::c#2 clearline::c#1 ]
reg byte a [ cputc::$2 ]
reg byte a [ cputc::$4 ]
reg byte a [ cputc::$5 ]
reg byte a [ cputc::$6 ]
reg byte a [ cputc::scroll_enable#0 ]
reg byte a [ vera_get_layer_mapbase::layer#0 ]
reg byte a [ vera_get_layer_mapbase::$0 ]
reg byte a [ vera_get_layer_mapbase::return#0 ]
reg byte a [ vera_get_layer_tilebase::layer#0 ]
reg byte a [ vera_get_layer_tilebase::$0 ]
zp[2]:31 [ vera_get_layer_tilebase::tilebase#0 cputc::$16 clearline::addr#0 clrscr::skip#0 memcpy_in_vram::i#2 memcpy_in_vram::i#1 uctoa::buffer#11 uctoa::buffer#14 uctoa::buffer#4 uctoa::buffer#3 uctoa_append::buffer#0 ]
reg byte a [ vera_get_layer_tilebase::return#0 ]
zp[2]:33 [ vera_set_layer_tilebase::addr#0 vera_set_layer_config::addr#0 cputs::s#37 cputs::s#38 cputs::s#0 clrscr::line_text#2 clrscr::line_text#1 clrscr::line_text#0 ]
reg byte a [ vera_get_layer_map_width::$2 ]
reg byte a [ vera_get_layer_map_width::$0 ]
reg byte a [ vera_get_layer_map_width::$1 ]
reg byte a [ vera_get_layer_map_width::$3 ]
reg byte a [ vera_get_layer_map_height::$2 ]
zp[2]:35 [ vera_get_layer_map_height::config#0 vera_get_layer_map_width::config#0 vera_get_layer_mapbase::mapbase#0 ]
reg byte a [ vera_get_layer_map_height::$0 ]
reg byte a [ vera_get_layer_map_height::$1 ]
reg byte a [ vera_get_layer_map_height::$3 ]
reg byte a [ vera_get_layer_backcolor::layer#0 ]
reg byte a [ vera_get_layer_backcolor::return#0 ]
reg byte a [ vera_get_layer_textcolor::layer#0 ]
reg byte a [ vera_get_layer_textcolor::return#0 ]
reg byte x [ vera_get_layer_color::layer#0 ]
reg byte a [ vera_get_layer_color::$0 ]
reg byte a [ vera_get_layer_color::return#0 ]
reg byte a [ vera_layer_get_mapbase::$0 ]
zp[2]:29 [ vera_layer_get_mapbase::mapbase#0 cputc::conio_addr#0 cputc::conio_addr#1 uctoa::digit_values#8 clearline::c#2 clearline::c#1 ]
reg byte a [ vera_layer_get_mapbase::return#0 ]
reg byte a [ vera_layer_get_tilebase::$0 ]
zp[2]:31 [ vera_layer_get_tilebase::tilebase#0 cputc::$16 vera_layer_get_config::config#0 clearline::addr#0 memcpy_in_vram::i#2 memcpy_in_vram::i#1 uctoa::buffer#11 uctoa::buffer#14 uctoa::buffer#4 uctoa::buffer#3 uctoa_append::buffer#0 ]
reg byte a [ vera_layer_get_tilebase::return#0 ]
reg byte a [ vera_layer_set_config::$0 ]
zp[2]:33 [ vera_layer_set_config::addr#0 screenlayer::vera_layer_get_height1_config#0 ]
reg byte a [ vera_layer_set_tilebase::$0 ]
zp[2]:35 [ vera_layer_set_tilebase::addr#0 screenlayer::vera_layer_get_height1_return#0 screenlayer::vera_layer_get_height1_return#1 screenlayer::$5 ]
zp[2]:37 [ vera_layer_set_text_color_mode::addr#0 screenlayer::vera_layer_get_width1_config#0 vera_layer_get_mapbase_offset::return#2 vera_layer_get_mapbase_offset::return#0 ]
reg byte a [ vera_layer_get_mapbase_bank::return#0 ]
reg byte a [ vera_layer_get_mapbase_offset::$0 ]
reg byte a [ vera_layer_get_rowshift::return#0 ]
reg byte a [ vera_layer_get_rowskip::$0 ]
reg byte a [ vera_layer_get_backcolor::return#0 ]
reg byte a [ vera_layer_get_textcolor::return#0 ]
reg byte a [ vera_layer_get_color::$3 ]
reg byte a [ vera_layer_get_color::$0 ]
reg byte a [ vera_layer_get_color::$1 ]
reg byte a [ uctoa::$4 ]
reg byte y [ uctoa::digit_value#0 ]
reg byte x [ uctoa_append::return#0 ]
reg byte a [ cputln::$2 ]
zp[2]:39 [ cputln::temp#0 cputln::temp#1 vera_layer_get_color::addr#0 ]
reg byte a [ cputln::$3 ]
zp[2]:37 [ cputln::temp#0 cputln::temp#1 ]
zp[2]:39 [ cputln::$5 ]
reg byte a [ cputln::$4 ]
zp[1]:41 [ insertup::cy#0 uctoa_append::sub#0 ]
zp[1]:42 [ insertup::width#0 clrscr::$2 clrscr::color#0 uctoa::started#2 uctoa::started#4 ]
zp[1]:42 [ insertup::width#0 clrscr::$1 clrscr::color#0 uctoa::started#2 uctoa::started#4 ]
reg byte a [ insertup::$3 ]
zp[2]:43 [ insertup::line#0 insertup::start#0 memcpy_in_vram::dest#0 ]
zp[2]:45 [ insertup::$6 memcpy_in_vram::src#0 ]
zp[2]:45 [ memcpy_in_vram::src#0 ]
zp[2]:47 [ memcpy_in_vram::num#0 ]
reg byte a [ memcpy_in_vram::$0 ]
reg byte a [ memcpy_in_vram::$1 ]