From 8cda8a727ca37a001d337075327826975f732651 Mon Sep 17 00:00:00 2001
From: Irmen de Jong <irmen@razorvine.net>
Date: Tue, 24 Jan 2023 00:58:16 +0100
Subject: [PATCH] update vtui example to vtui 1.0

---
 examples/cx16/vtui/VTUI0.9.BIN | Bin 953 -> 0 bytes
 examples/cx16/vtui/VTUI1.0.BIN | Bin 0 -> 971 bytes
 examples/cx16/vtui/testvtui.p8 |   7 +++++--
 examples/test.p8               |   5 -----
 4 files changed, 5 insertions(+), 7 deletions(-)
 delete mode 100644 examples/cx16/vtui/VTUI0.9.BIN
 create mode 100644 examples/cx16/vtui/VTUI1.0.BIN

diff --git a/examples/cx16/vtui/VTUI0.9.BIN b/examples/cx16/vtui/VTUI0.9.BIN
deleted file mode 100644
index 86c086bf5e1d38fa10b241b26ce0bf34dc921e97..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 953
zcma)4&ubGw7@eJ+jcIDzjj1*LahNpep%>{f2ce;-)DGB-3cYkLm0iIf2eA+kB4i+k
zM%sdqLtz%lmaa6K_8(BNN>`z*hk}%Xf>K<xl9MexSien5soI0X!p^+!eUJCO8HDmC
zdySZj*ayUX#GWgRDQq9Hu)?|(c2S|z3VWfj>k2a!x~;GhX5TOyRT)C`Xx%tkx9>i<
zmC1~Zj9wkP9Q?<x<k<9`dp9Rd|6}lX41t}TP@M@uoUG6sE<zNewEs}xvX6vn<G85`
zVyh++nx(9ey24k9M_|(zUnNs`9=22J9I;80s0GCQHjlH(!)m{rB`r!G5B@6kOCEtG
zFo1&{8V-PFJq-1|;8;q^pt$eqp86;$`SOYLv!pBsgzQO%QS`q518z_W-;acZ>SrD)
zQCT)?rG(@zoo#h9vn?*Kss1o`u5mY0JLA%tW@fl^p9@mZ942(pZ7ikzb`dqQkifZe
z+$5sMfU$Zlw5HWNR&a_8sk9qW9j)hgxmBA<$OS5`@dB|f6++8Y7H|d6P+1}17$zxt
zd*J6y$n&`ys-;BCSc;o%LN~IY8lBjBg6tS%v$Uc=4zGXx6!v}|1QvRZEu{TU(b=$b
zzMS@>;(`Ir;tjJg(N(1qVogY)R!Grq0b51;ER7*M4BO*4DxqT0?x0=B#*m4v_CO|p
z+3f&rB&6L6<e<L|I-5;)gy{&T5n4*qdmW`TAf0FpJ33s}kqBrk49G=NP0Exu6q(06
z*uy(&UM;2MY1mtDbCEzY%{W~Cf9iqs>alb+B_Y<+u)oy{#Ic$;&>YA@TNCulVeY_f
ztB<*zUf)Yp-z_>6IFO;QLN1L4VCOg2Nd5gBhDY-b9!&@y%`1PnDfXx6dj4rcf&T_B
Ct8qR6

diff --git a/examples/cx16/vtui/VTUI1.0.BIN b/examples/cx16/vtui/VTUI1.0.BIN
new file mode 100644
index 0000000000000000000000000000000000000000..6d36bb86cc4c585702a24351973b10e9f19536d8
GIT binary patch
literal 971
zcma)4O=uHA6rP=(jcID_#?%^W50fSZd#kq|goYj@rUUK8OD>&DB~koAM6n>`kbzJd
zX$wjYg$a@^U1?-nya*l?i*!}W3ie>ZAFPxvXvxV+1?$_S)LMIR*qwRvz3+X@d~XoS
zUSqEja}axv*al*=3L8+^PsAD()~>Kq3cIDSCkjg`?4m;7DQpz8b<EDF?2*bItL&M|
z5TZNd{LZ+1_4cKBysz)<x&EZL4i1d4n^&%17|OUGz12($Y>o)kObKEpgl2N#qZswL
zqXHLQBvb>3GpZnlnn6M<DRZQ%@Ok182-?E)WEf9EIIK<(gVc!QpVzeP2Oefa+m#O4
zpjf!;SD{1l01SZv>T1@o2Y6XOWH-G{Au7Gp4_kNCJ5kAJ_v{}=Wzi!f_A=6W=j%V<
z5|!|6L?mQad7waLF=G`XlG}9LZ^z;1<Ji3C_HsLJ9kQvVW#Zht!3D`_CA6SbPtM^O
z>DKqt_nmGr`<9oiv51_avNV_@rPDdzER{K2#$!~L3DDsVd1n(&^1|o1-1b>95lYX5
zGp#~TC&0;IYUMsMLg2~FoPO88xc<rSeBVmX^tf#zm`;H4M~gjfi)g9E#~==h<7t4y
zCKI{{iPj30U}r=MwM_Cx1JzO9I7~yx@I$z3MA?_m8_l#885rC!)HZMfFyjb7OA%=_
z0@<r?g35Z45nwuk+XyYD=_gF3&?(KJg-spWv?Br<Q=M{}RH8Dbbq6N#8g}rSnpF!i
zc@Xx}S)L}~Ox+Hf|DU=iJ-;hmiAk{aAZ)*Sj+mu-2kI9pp_LT<vOTh8H&y%X7N`9w
zs(#Cx6gc3atAa1J0$^vC7fAKZ1cv^<g6HD1x%J%bt&9CFx|n@XQ}AAKvNk1?f7ah$
CSby69

literal 0
HcmV?d00001

diff --git a/examples/cx16/vtui/testvtui.p8 b/examples/cx16/vtui/testvtui.p8
index bfac7e06f..707dc9df7 100644
--- a/examples/cx16/vtui/testvtui.p8
+++ b/examples/cx16/vtui/testvtui.p8
@@ -110,10 +110,10 @@ char_loop:
 
 vtui $1000 {
 
-    %asmbinary "VTUI0.9.BIN", 2     ; skip the 2 dummy load address bytes
+    %asmbinary "VTUI1.0.BIN", 2     ; skip the 2 dummy load address bytes
 
     ; NOTE: base address $1000 here must be the same as the block's memory address, for obvious reasons!
-    ; The routines below are for VTUI 0.8
+    ; The routines below are for VTUI 1.0
     romsub $1000  =  initialize() clobbers(A, X, Y)
     romsub $1002  =  screen_set(ubyte mode @A) clobbers(A, X, Y)
     romsub $1005  =  set_bank(ubyte bank @Pc) clobbers(A)
@@ -133,6 +133,9 @@ vtui $1000 {
     romsub $102f  =  save_rect(ubyte ramtype @A, ubyte vbank @Pc, uword address @R0, ubyte width @R1, ubyte height @R2) clobbers(A, X, Y)
     romsub $1032  =  rest_rect(ubyte ramtype @A, ubyte vbank @Pc, uword address @R0, ubyte width @R1, ubyte height @R2) clobbers(A, X, Y)
     romsub $1035  =  input_str(uword buffer @R0, ubyte buflen @Y, ubyte colors @X) clobbers (A) -> ubyte @Y
+    romsub $1038  =  get_bank() clobbers (A) -> ubyte @Pc
+    romsub $103b  =  get_stride() -> ubyte @A
+    romsub $103e  =  get_decr() clobbers (A) -> ubyte @Pc
 
     ; -- helper function to do string length counting for you internally, and turn the convertchars flag into a boolean again
     asmsub print_str2(str txtstring @R0, ubyte colors @X, ubyte convertchars @Pc) clobbers(A, Y) {
diff --git a/examples/test.p8 b/examples/test.p8
index c8278e132..b1cadbd5f 100644
--- a/examples/test.p8
+++ b/examples/test.p8
@@ -12,11 +12,6 @@ main {
     str name="irmen"
 
     sub start() {
-
-            for cx16.r0 in 0 to 10 {
-                cx16.r1++
-            }
-
         txt.print("= 10 ")
         txt.print_ub(zpvar)
         txt.nl()