From c25178c4350b22ee1fbb2c0fb3dfef38fd5f5cfa Mon Sep 17 00:00:00 2001
From: stid <stid@me.com>
Date: Sun, 8 Mar 2020 22:57:30 -0700
Subject: [PATCH] local

---
 core/system.asm      |   11 +-
 devices/video.asm    |    1 +
 hardware/mem_map.asm |   14 +-
 libs/print.asm       |   33 +-
 libs/timers.asm      |   86 +++
 main.asm             |    6 +-
 makefile             |    4 +
 progs/bin/test.bin   |  Bin 0 -> 8192 bytes
 progs/bin/test.crt   |  Bin 0 -> 8272 bytes
 progs/diag.asm       | 1324 ++++++++++++++++++++++++++++++++++++++++++
 progs/stid_shell.asm |  195 +++++++
 progs/woz_shell.asm  |   56 +-
 12 files changed, 1701 insertions(+), 29 deletions(-)
 create mode 100644 libs/timers.asm
 create mode 100644 progs/bin/test.bin
 create mode 100644 progs/bin/test.crt
 create mode 100644 progs/diag.asm
 create mode 100644 progs/stid_shell.asm

diff --git a/core/system.asm b/core/system.asm
index fbc7209..7ed7110 100644
--- a/core/system.asm
+++ b/core/system.asm
@@ -9,14 +9,16 @@
 #import "../devices/keyboard.asm"
 #import "../devices/video.asm"
 #import "../progs/woz_shell.asm"
+//#import "../progs/stid_shell.asm"
+
 
 .filenamespace System
 
 // ========================================================
 // ////// CONST ///////////////////////////////////////////
 // ========================================================
-.const  MAIN_COLOR              = $03
-.const  BORDER_COLOR            = $05
+.const  MAIN_COLOR              = $00
+.const  BORDER_COLOR            = $c
 
 * = * "System Core"
 
@@ -30,12 +32,13 @@
 // System Start
 // --------------------------------------------------------
 start: {
-                VideoClearColorRam($00)
+                VideoClearColorRam($03)
                 VideoClear(' ')
                 VideoSetBorderColor(BORDER_COLOR)
                 VideoSetBackgroundColor(MAIN_COLOR)
                 //      Start Main Program
                 jsr     WozShell.start
+                //jsr     StidShell.start
 
                 //      TODO: Program exited here
                 //      We can ask program to set a ram param and let us know
@@ -60,6 +63,7 @@ init: {
                 jsr     Keyboard.init
 
                 jsr     WozShell.init
+                //jsr     StidShell.init
                 rts
 }
 
@@ -83,6 +87,7 @@ toDebug: {
                 jsr     Video.toDebug
 
                 jsr     WozShell.toDebug
+                //jsr     StidShell.toDebug
                 rts
 }
 
diff --git a/devices/video.asm b/devices/video.asm
index b62daed..885dde7 100644
--- a/devices/video.asm
+++ b/devices/video.asm
@@ -32,6 +32,7 @@
 }
 
 
+
 // --------------------------------------------------------
 // VideoClear -
 // Fast clear screen characters mem.
diff --git a/hardware/mem_map.asm b/hardware/mem_map.asm
index ac83cb0..10f96e3 100644
--- a/hardware/mem_map.asm
+++ b/hardware/mem_map.asm
@@ -23,13 +23,11 @@
     CursorRow:          .byte 0             // Actual cursor row position
     StatusBitsA:        .byte 0             // Status Bits
                                                 // Bit0:    ScrollUpTriggred if ON
-
 }
 
 .namespace MATH {
     factor1:            .byte 0             // Factor 1 used in MUL ops
     factor2:            .byte 0             // Factor 2 used in MUL ops
-
     result:             .word 0             // 16 Bit math operation result
 }
 
@@ -54,6 +52,11 @@
     size:                .word 0
 }
 
+
+.namespace TIMERS {
+    counter:            .byte 0             // Factor 1 used in MUL ops
+}
+
 .namespace MODULE {
     versionPtr:          .word 0
 }
@@ -72,5 +75,12 @@
     .label buffer        = SHELL_BUFFER_ADDR  // 256 bytes
 }
 
+.namespace STID_SHELL {
+    pos:                 .byte 0
+    mode:                .byte 0
+    sAddr:               .word 0
+    eAddr:               .word 0
+    .label buffer        = SHELL_BUFFER_ADDR  // 256 bytes
+}
 
 
diff --git a/libs/print.asm b/libs/print.asm
index 150bc0f..0d59111 100644
--- a/libs/print.asm
+++ b/libs/print.asm
@@ -99,29 +99,22 @@ printLine: {
 //      X       = lns ascii char result
 // --------------------------------------------------------
 byteToHex:      {
-                pha                   //save byte
-                and     #%00001111        //extract lsn
-                tax                   //save it
-                pla                   //recover byte
-                lsr                   //extract...
-                lsr                   //msn
+                pha
+                jsr !+
+                tax
+                pla
                 lsr
                 lsr
-                pha                   //save msn
-                txa                   //lsn
-                jsr     binhex1           //generate ascii lsn
-                tax                   //save
-                pla                   //get msn & fall thru
-        //
-        //   convert nybble to hex ascii equivalent...
-        binhex1:
-                cmp     #$0a
-                bcc     binhex2           //in decimal range
-                sbc     #$09              //hex compensate
+                lsr
+                lsr
+
+        !:	and #$0f
+                cmp #$0a
+                bcc !+
+                adc #6
+
+        !:	adc #'0'
                 rts
-        binhex2:
-                eor     #%00110000        //finalize nybble
-                rts                   //done
 }
 
 // --------------------------------------------------------
diff --git a/libs/timers.asm b/libs/timers.asm
new file mode 100644
index 0000000..dca1bf1
--- /dev/null
+++ b/libs/timers.asm
@@ -0,0 +1,86 @@
+
+#importonce
+#import "../core/module.asm"
+
+
+// ========================================================
+// ////// MACROS //////////////////////////////////////////
+// ========================================================
+
+.filenamespace Timers
+
+* = * "Timers Lib"
+
+// ========================================================
+// ////// METHODS /////////////////////////////////////////
+// ========================================================
+
+
+// --------------------------------------------------------
+// init -
+// Module Init.
+// --------------------------------------------------------
+init: {
+                rts
+}
+
+// --------------------------------------------------------
+// toDebug -
+// Print debug info.
+// --------------------------------------------------------
+toDebug: {
+                ModuleToDebug(module_type, module_name, version)
+                rts
+}
+
+// --------------------------------------------------------
+// multiply -
+// 8 Bit in to 16 Bit out Multiplier
+//
+// Parameters:
+//      MemMap.MATH.factor1       = 8 Bit Factor 1
+//      MemMap.MATH.factor2       = 8 Bit Factor 2
+//
+// Result
+//      MemMap.MATH.result        = 16 bit result
+// --------------------------------------------------------
+delayOne: {
+                pha
+                lda     #$00
+                sta     MemMap.TIMERS.counter
+    loop1:      lda     #$fb    // wait for vertical retrace
+    loop2:      cmp     $d012   // until it reaches 251th raster line ($fb)
+                bne     loop2       // which is out of the inner screen area
+                inc     MemMap.TIMERS.counter // increase frame counter
+                lda     MemMap.TIMERS.counter // check if counter
+                cmp     #$32    // reached 50
+                bne     out         // if not, pass the color changing routine
+                jmp     exit
+
+    out:
+                lda     $d012   // make sure we reached
+    loop3:      cmp     $d012   // the next raster line so next time we
+                beq     loop3
+                jmp loop1 // jump to main loop
+    exit:
+                pla
+                rts
+}
+
+
+// ========================================================
+// ////// DATA ////////////////////////////////////////////
+// ========================================================
+
+* = * "Timers Lib Data"
+module_type:    .byte Module.TYPES.LIB
+version:        .byte 1, 0, 0
+
+.encoding "screencode_mixed"
+module_name:
+                .text "timers"
+                .byte 0
+
+
+#import "../hardware/mem_map.asm"
+
diff --git a/main.asm b/main.asm
index 7c8e574..75c42bc 100644
--- a/main.asm
+++ b/main.asm
@@ -12,7 +12,11 @@
 #import "./core/boot.asm"
 
 * = * "Kernel Data"
-* = $9FFF "EpromFiller"
+
+* = $9FFF "EpromFiller" // 8K Cartridge, $8000-$9FFF (ROML / ROMH).
+// * = $BFFF "EpromFiller" // 16K Cartridge, $8000-$9FFF / $A000-$BFFF (ROML / ROMH).
+                        // GAME = 0, EXROM = 0
+                        // ROML/ROMH are read only, Basic ROM is overwritten by ROMH.
                 .byte 0
 
 
diff --git a/makefile b/makefile
index ff76361..05f93ea 100644
--- a/makefile
+++ b/makefile
@@ -15,3 +15,7 @@ eprom:
 clean:
 	rm -Rf ./bin
 
+run:
+	java -jar ${KICKASS_BIN} -odir ${BUILD_PATH} -log ${BUILD_PATH}/buildlog.txt -showmem ./main.asm
+	cartconv -t normal -name "woz" -i ${BUILD_PATH}/main.prg -o ${BUILD_PATH}/woz.crt
+	x64sc ${BUILD_PATH}/woz.crt
diff --git a/progs/bin/test.bin b/progs/bin/test.bin
new file mode 100644
index 0000000000000000000000000000000000000000..665df7513aaf1db9a8f453cb18fe8f9d9c9b6bd8
GIT binary patch
literal 8192
zcmeHIZA@F|6+ZXF_xcO_VxV=iBy}^A3`Ol6!rDx;B1E&uTCA!2v1lJ^=Vq%%BdyAh
zX^OPTL|b7k+RKt3(PFAASyn)~NVLnZ$yKZnDs^Bb*;VJZa19I41a9cGdR1GpRKz>y
zwE@H0PW!hXKEOR6&$-Vz@8j#ssZ4or%2?_Zj3;^__M3TQDzn_{>T?^AarS!pycr=4
zmt1E(6Xw4b-HYD5_F+cO{bNa2XL29nbvAGQGXs5MpOgV3q=T%3LkC3%)xgV?4%0eV
zIuvblKC?GBZ0ljg5cRM{JdnF#PnJun{yoKx{b~;LD|afnWygLuhy8zC)}t!+M~m2R
zIGKNj`DcwN^UYx5o6USRcV$U0|0Qp(WP-T|ZQUv7wH4eiZ0lnxhC^bT-xX$)>X7&?
zG@eYTLlO`EjKO;KO%=~C#O^J`zVlvadNDN2ugWcoPu%+NqEO%E+jk8i_?*})8t|Od
zE3M0F01Fm2^s#Z>$4D$CuicAXo<lffvPaBJOB!-3ODPaiAf`Y{ft&(I3X~M6DR8F1
zl>&DPJSp&|pdkgm6!<61>-`x>!%OCB-n=)G1z~n&$^1nYMDj0WK_Z{Xf=vFIEI7y?
z%Ys7w+gVV_AIXA~{Glwk$UmM1H~Gi1;32;!3tsX&v(P~Pfh_pQ`?BCCuS}Gb*p2zv
z4;J!aM;c<kpO0yCPp>SEwB0uy8E0&0p}%bvBb7&=Vx;hB1tSNKKEO!k(M^mb9$mpm
z#3&;S8bU>){!GvMS=VH%sZ~|Tm!#P6!iFrBa_#kX!kxLV+4@ubk!i}UETsb}fC=+n
zt)9F*4PZ7+n0NEqwBct@%Z7(NBgeFPI-ns^LBN6`vmeQ^tG6<)+#y>(wLuH`f&M4$
zGzeAFB9itJX`dWxS|i1RfCVJ|ZI$%Lww~sske2&gFS_Y#8O_k*XI;2*-dr8I#6P?p
zd2PA-tZUI_ii_?c_oUM-;Dk|{@TwfIE{&;xDe}K2hj3|U?kQWJsPa!$_$w1UIged4
zq0K+*u}z#|*Up$R-@+Mh(~Ng;hQ}shFcmPx8SnBlsJW=Em#Q<Il^N>?=-D{HHax)k
z_L^xS^C~glU*8^60aIiy%l&OaX&X+vpkQrC!P+psV%P<X4Owj1>TeS{oFaIT;8zGv
zS!~c^uOKXQ_!`023BEz_HH%%h*bRi89KK5MIKgiaeAQy(7JCC>jl&-i{4v3w5d4wF
zKDO8=2!}X)hu~#`-zWHv#g;AhKEj<G-mW6NLq&KezU<icBHK}9JB$5or#ak6aDd<@
zf*Xr0P-IQTSoStPYTvi@pab7@Ml-%*@Eh@9!8pVm1tZTCN&^K$jAoSF&uk_XazD2j
z6uK{F2W=)6vbxQrLiP_flMCmg#);6M7V!od@4_f=UaOD=iS`il5@SOFnSN<AXCe1%
zo2gYM7iV&FCQl8MXA9HA6{aR)Y9^+aZRRiJ&e+UXWzslPBWDWKFySGpJ9S@t>3mp<
zE!>VzLdk!zKYD&7UFP5GyWJykdV_ELa~So^1l?yE42>04qk+w+!82|YvYH^;){_>@
zcJ^0wpr9I$vbWVy_e@$eL+l-O;9aUrsiUr$v}F3&v^rp^qt2P&nQx>a`l6PWP3Hw|
zq`UI(W6~XV9K3^HH&=K}D7`u+mM)J;rTmy&Dvmiy;W4FjXiP1|;-j9~>PCyS(NcAz
zYJw<k<S^6hZ|cBJnm>md&88Le?`&QjSfI*#xY2A{H7#~a9k`7f&BkG?eTfQA2vqBm
zu(g5m)9~GqvLMP%E!27X{_3YIAKbjs0}i*JYQ6@KDn0smM@V)Ea;VwS)Eo*p9tb^g
zaDRJySn{{{nzuOu{*Wf92nmvhM**RMw@QAmKM=yK2^%YSH%S49!$-BomWOsd)Y7<n
z@Y2ysgS&U_J8<~GzFkK<o;~+$$I-*b5-%r?9X|K`_`dPy&waCTH?HXfaKTr~55E@L
zWV`l!j(vGkTWD`h+OZ!Gv}Uyc)+%Ys*Vo`sOZ$Eve|F#g@LFR_d;1slRY<U-rTxGc
z^;JlCUuDP7oXZ(DU-p)jO(t&2YLYF$mUN?W3$P{qKj<rO7NGTW9)vyg^l(ddbtR7+
zIReS!$LSZ6U7eksUF5rt^E@6ub@C+U+@B=;1*&)9eb@k+rUlVJmSsgrVEu43nMfo6
zS>o|{5}y3&51&MXg}3r=j*pKMFOK8<NEzpIPT+mCNB2*T6Ms^qJ%|-~aRyqX;#-4&
z9OKsFIOeUvR-BJu2le$xic^dCKqO2S0iPDWAC8wH;w6g!1S6ahv~W*PSX(<j_<XoU
z+~>oB>feq;0CS~-G<v&V#UvO!SeiqRRxaa(5HfEN#{|8Ae_o6M5|MHw!5eT6wW9?I
zfFzGAIe?^KJ3lu`2;s1%MIsSMiej>}6VHuaQIdd5B`^RgVhK(~J4qtcM|Pq?q_s7Y
zsOpB#9gNhiu0UOZx&n0t>I&2qs4Gxcpsqk&fw}^91?mda6{ssvSD>yyU4j2W0hpto
Fe*@(>U<?2N

literal 0
HcmV?d00001

diff --git a/progs/bin/test.crt b/progs/bin/test.crt
new file mode 100644
index 0000000000000000000000000000000000000000..7c34008f4b04d6759835da7adbbd28a930a1a580
GIT binary patch
literal 8272
zcmeHMZ)_9i8Gr74zVpA>7bj_52K2@PEJE!}U@g<EC`$r!hc&T|q5V-im#tokw2BYY
zgtW;)Ta&fX-V8pV;Z!GC7C~I3wBu9d3X70RU19+{b#9y3$w*R2j&xeRs%;n*c+d0N
zNgPHy?b|;1O>)nl-*dm`d4Ik;pOntWc59vAc=F(rPjr2Aucm1L&@SMC{%9TC``v?O
z@BYWm@Dm3BG?ma<(BN3AG&pH2_6o-1y%72BoH3bN>UH+H3`jY8-F=>vkc9KjlkRcz
zUkk1UPgeafC1w7xs4LT%5AisYHUF7{KC#c10z=b5(!s8Stb=0UVN!=F9r8L9EORck
zJ#*I5gR&v&!94Lm=BhPODk}Q-Wh?UQS&T2<EXR2(^7~n=|I?BlR<J%?z<R^MeACP~
zV}zM^8Uyc4>MNOxi+brVS#voR$UJE24k@cH<9tC&A63vD5?g%EAe&Hz#Bbr^!MHMH
z<IbPaS<Sww;Qock?fJ-e-qWTQw6pvuUnl>__5Usk)m^x8%Mb$3ioK!%&)RxztFjuv
z0=YGPEFAYy5=+jiw<8y35!OuhMKjfugv|0{0)zyJ39uzVN`O59asreDI1=DYfGYv+
z1b7lqmjG`9eB<Vo{uCtPMe|P9ygi%-VP<*J{AC(Mvd^c%MmClPiR{y9u#-KM2AS-)
z)1Z*umj(yfwlp}&K9&X-*+<jhCc7;S9<rO$P)GKGG<eB+)8Hd3j~C_0)w#$I=d(e3
z5+Z+?i>R|tEiVqY+%@efM`UQezvT{k3im!mPv+h-dUo!8fS$y?Yv|dycM&}iy_7I$
z2xW=-Q$4GDU6HLSS5YBbv_;O&ugOwQS07&|+>!aJr61szOhaaQG3ieLjGMQs_2lU(
z0JCA-yp>g_3?F++GTiKGDWcBN1`UxC0wxTJ{aA`zx}I`o+ARIp8ZF=l`k%B@AXG>T
zNZL!JeNv=hg%lG4CXn=Z71EzrdXkeuQtETQ;G)|yoT9-`I&tKzd1v@M|L`_t)urx}
z&IP9_F1UtV6Am+n9Y(0bD^j#FG=>6($p5OO;n0rE0ZSjR@K2Wc%N^Vqw^h}l#W&-&
zOzdG*_n0={!X9r^k9V+#+ah5w6fndd@A5q;nXsi7D?J?L9;+MZS=+z{+`#Jes+mXT
zJH&i<b$Sd143W7c^|uJc4cP6BjJY8hb7%1p!_MT{P@bL5_qT`~P7pju@XG`z@@z2A
zUPf5r@MVIp5PX&3%XxMs&#ofu;P54a#|VCd;7fTnmS=AutaA7xf<Gqs6M{d=vyb!a
z6NEJm-z0d6;P(l>nP*FR_CCVx9NwrPyh%ZLGd}Ft#sb?^V4Dm5Eyp=rPq3fh27>Dg
z%wJ#)g-H4aUTQzE^ne|obVegSV(^Z5FlV$ed(Ox*nL>Zg5W^`s^K**{xy&yt2D$EY
z=|PK$xwLLETQ2=ai%GfDVdIGQ+5(;+;aTWq&C6x70MWKF4>8u|km*+zbL29=v6xa}
za&jgYXL46Dx$j|mxXjc*OpV0!lEr+v%n6HmD@-b9s^?7pDkj`SWv1?PFP;wCBJ($*
z6HxS>>kpqEPL}w6eXDyoN>A{$FNYELbij3@&QMuFG3wZ~5;);PAu9o*Ej>xWY-N8{
z26Bq=2zy%@aZM*hQ)BNa1MgC1QW<ehCvB#eO(_F;WyCQZIPvu)gkMmTlIb|34tJNo
zJ|<j2`<|P4yE%iSLh+SRv3OzBR?Ln{#lon)7#x+0ZKFyt5*=~RR3=)Wi54ppRRTnD
zBD<Mne^UmoQU6(-XeKF}e`j;bz&vH%!--~+ikWBEm4O>L(M*)S$JebdP~-rAC23oE
zF<4i09KJVP5=6<NYVF7G-uZO-gKHOi!0z%<&RgeJY>(i3hGZ8ct<m1lsQK*=XpisN
z+1eVk`I@|q8|;3crV0u|g3Zl6zfi|ZZ9b3BuVK`Hh2^swY<|1lOS$@{hqgS_RKIob
z{QmQUTes}k)wOHKmi@b*IrYr${auG*FU1aZoqBF;$JleH_SSFZ+W;qgx%BX>_@Yy_
zwru;1^`)vJbhlT9yLaM-R#r8zTG#Zo6<BL(-O2s?*X<0h6gIWCeqLRf1S^_acYR)6
znS|GsXS{D;&anQly(F(&;<~6RxCgi=Tr0c>xF`HSs4J}(p!qW{gl%;7@D=aqi0|9C
z58{Up(=Wt3+S}VZ$aWm&aWs1D=uwQhJxciVl<&avumDt54d4Pvl4LoC`L1w07K;J0
zM5EC-bpGr|ow#8Bt?Zj)V`IdN?KnSDMtPqjcplBs{nNw59~Ws3Vntr;fh$zD%>h7;
zvHZdq#?66d?2q7Xs_U`I4mH{Xp&+dgc-7$DV6+4w53LYDAjBy_4fgZ|`RhI3zt@XX
zM7>@N6yHW9!q@)d9%{YOr(h5W>?zKo#Z@Zdfe>1r0JaHu0RKGb1H?k5P>dH~A1cQc
zAOParFUJ5j8O!;;NkRw)RW%d}L0lB$?d`a4w6Yur94dwmP!dycEZj~Kp+1rW7lfLd
zL$Qi(c-_HpZPgU0DNs|Ora(=BngTTiY6{d8s3}lWpr$}gftms}1!@Y^6sRfiKPZ6z
I{>Ptx17&?@qyPW_

literal 0
HcmV?d00001

diff --git a/progs/diag.asm b/progs/diag.asm
new file mode 100644
index 0000000..68484c7
--- /dev/null
+++ b/progs/diag.asm
@@ -0,0 +1,1324 @@
+//---------------------------------------
+// c64 deadtest diagnostic 781220
+// disassembly by worldofjani.com
+//---------------------------------------
+//
+.const a00 = $00
+.const a01 = $01
+.const a02 = $02
+.const a03 = $03
+.const a09 = $09
+.const a0a = $0a
+.const a0b = $0b
+.const a0c = $0c
+.const a10 = $10
+//
+.const p09 = $09
+.const p0b = $0b
+//
+.const f0000 = $0000
+.const f0100 = $0100
+.const f0200 = $0200
+.const f0300 = $0300
+.const f0400 = $0400
+.const f0408 = $0408
+.const f0450 = $0450
+.const f0478 = $0478
+.const f04a0 = $04a0
+.const f04c8 = $04c8
+.const f04f0 = $04f0
+.const f0500 = $0500
+.const f0518 = $0518
+.const f0600 = $0600
+.const f0630 = $0630
+.const f0658 = $0658
+.const f0700 = $0700
+.const f0748 = $0748
+.const f07c0 = $07c0
+.const f0800 = $0800
+.const f0900 = $0900
+.const f0a00 = $0a00
+.const f0b00 = $0b00
+.const f0c00 = $0c00
+.const f0d00 = $0d00
+.const f0e00 = $0e00
+.const f0f00 = $0f00
+.const fcfff = $cfff
+.const fd800 = $d800
+.const fd900 = $d900
+.const fda00 = $da00
+.const fda30 = $da30
+.const fda58 = $da58
+.const fdb00 = $db00
+.const fdb48 = $db48
+.const fdc07 = $dc07
+.const fdd07 = $dd07
+//
+.const a045d = $045d
+.const a045e = $045e
+.const a045f = $045f
+.const a0485 = $0485
+.const a0486 = $0486
+.const a0487 = $0487
+.const a04ad = $04ad
+.const a04ae = $04ae
+.const a04af = $04af
+.const a04d5 = $04d5
+.const a04d6 = $04d6
+.const a04d7 = $04d7
+.const a04fd = $04fd
+.const a04fe = $04fe
+.const a04ff = $04ff
+.const a0699 = $0699
+.const a069a = $069a
+.const a069b = $069b
+.const a06a4 = $06a4
+.const a06a5 = $06a5
+.const a06a6 = $06a6
+.const a06c1 = $06c1
+.const a06c2 = $06c2
+.const a06c3 = $06c3
+.const a06cc = $06cc
+.const a06cd = $06cd
+.const a06ce = $06ce
+.const a06e9 = $06e9
+.const a06ea = $06ea
+.const a06eb = $06eb
+.const a06f4 = $06f4
+.const a06f5 = $06f5
+.const a06f6 = $06f6
+.const a0711 = $0711
+.const a0712 = $0712
+.const a0713 = $0713
+.const a071c = $071c
+.const a071d = $071d
+.const a071e = $071e
+.const a07c6 = $07c6
+.const a07c7 = $07c7
+.const a07c8 = $07c8
+.const a07c9 = $07c9
+.const a07d3 = $07d3
+.const a07d4 = $07d4
+.const a07d5 = $07d5
+.const a07d6 = $07d6
+.const a07d7 = $07d7
+.const a07d8 = $07d8
+.const a07d9 = $07d9
+.const a07da = $07da
+.const a07db = $07db
+.const a07dc = $07dc
+.const a07de = $07de
+.const a07df = $07df
+.const a07e0 = $07e0
+.const a07e1 = $07e1
+.const a07e2 = $07e2
+.const a07e3 = $07e3
+.const a07e4 = $07e4
+.const a07e5 = $07e5
+.const a07e6 = $07e6
+.const a07e7 = $07e7
+.const ad020 = $d020
+.const ad021 = $d021
+.const ad400 = $d400
+.const ad401 = $d401
+.const ad402 = $d402
+.const ad403 = $d403
+.const ad404 = $d404
+.const ad405 = $d405
+.const ad406 = $d406
+.const ad407 = $d407
+.const ad408 = $d408
+.const ad409 = $d409
+.const ad40a = $d40a
+.const ad40b = $d40b
+.const ad40c = $d40c
+.const ad40d = $d40d
+.const ad40e = $d40e
+.const ad40f = $d40f
+.const ad410 = $d410
+.const ad411 = $d411
+.const ad412 = $d412
+.const ad413 = $d413
+.const ad414 = $d414
+.const ad417 = $d417
+.const ad418 = $d418
+.const ada99 = $da99
+.const ada9a = $da9a
+.const ada9b = $da9b
+.const adaa4 = $daa4
+.const adaa5 = $daa5
+.const adaa6 = $daa6
+.const adac1 = $dac1
+.const adac2 = $dac2
+.const adac3 = $dac3
+.const adacc = $dacc
+.const adacd = $dacd
+.const adace = $dace
+.const adae9 = $dae9
+.const adaea = $daea
+.const adaeb = $daeb
+.const adaf4 = $daf4
+.const adaf5 = $daf5
+.const adaf6 = $daf6
+.const adb11 = $db11
+.const adb12 = $db12
+.const adb13 = $db13
+.const adb1c = $db1c
+.const adb1d = $db1d
+.const adb1e = $db1e
+.const adc08 = $dc08
+.const adc09 = $dc09
+.const adc0a = $dc0a
+.const adc0b = $dc0b
+.const adc0e = $dc0e
+.const adc0f = $dc0f
+.const add08 = $dd08
+.const add09 = $dd09
+.const add0a = $dd0a
+.const add0b = $dd0b
+.const add0e = $dd0e
+.const add0f = $dd0f
+
+//---------------------------------------
+        * = $e000 "Main"
+
+        sei
+        ldx #$ff
+        txs
+        cld
+        lda #$e7
+        sta a01
+        lda #$37
+        sta a00
+        jmp ie183
+
+ie010:  lda #<fead8      //font
+        ldx #>fead8
+        sta a09
+        stx a0a
+        lda #<$0800
+        ldx #>$0800
+        sta a0b
+        stx a0c
+        ldx #$01
+        ldy #$00
+ie024:  lda (p09),y
+        sta (p0b),y
+        iny
+        bne ie024
+        inc a0a
+        inc a0c
+        dex
+        bpl ie024
+        ldx #$04
+ie034:  lda fe7ee,x
+        sta fdc07,x
+        lda fe7f2,x
+        sta fdd07,x
+        dex
+        bne ie034
+        ldx #$00
+        stx a02
+        stx a03
+        ldx #$00
+ie04b:  lda #$20
+        sta f0400,x
+        sta f0500,x
+        sta f0600,x
+        sta f0700,x
+        lda #$06
+        sta fd800,x
+        sta fd900,x
+        sta fda00,x
+        sta fdb00,x
+        inx
+        bne ie04b
+        ldx #$27
+ie06c:  lda fe8a6,x      //box upper part
+        sta f0630,x
+        lda #$02         //red
+        sta fda30,x
+        dex
+        bpl ie06c
+        ldx #$00
+ie07c:  lda fe8ce,x
+        cmp #$ff
+        beq ie08a
+        sta f0658,x
+        inx
+        jmp ie07c
+
+ie08a:  ldx #$00
+ie08c:  lda fe9bf,x      //color
+        cmp #$ff
+        beq ie09a
+        sta fda58,x
+        inx
+        jmp ie08c
+
+ie09a:  ldx #$27
+ie09c:  lda feab0,x      //box lower part
+        sta f0748,x
+        lda #$02         //red
+        sta fdb48,x
+        dex
+        bpl ie09c
+        lda #$08
+        sta adc0f
+        sta add0f
+        lda #$48
+        sta adc0e
+        lda #$08
+        sta add0e
+
+ie0bc:  ldx #$2f
+ie0be:  lda fe7bf-1,x      //vic/d000- values
+        sta fcfff,x
+        dex
+        bne ie0be
+        ldx #$18
+ie0c9:  lda fe817,x      //c-64 dead test rev 781220
+        sta f0408,x
+        dex
+        bpl ie0c9
+        ldx #$04
+ie0d4:  lda fe830,x      //count
+        sta f07c0,x
+        dex
+        bpl ie0d4
+        lda a02
+        and #$0f
+        ora #$30
+        sta a07c9
+        lda a02
+        lsr
+        lsr
+        lsr
+        lsr
+        and #$0f
+        ora #$30
+        sta a07c8
+        lda a03
+        and #$0f
+        ora #$30
+        sta a07c7
+        lda a03
+        lsr
+        lsr
+        lsr
+        lsr
+        and #$0f
+        ora #$30
+        sta a07c6
+        lda #$37
+        sta a01
+        jmp ie2fa        //zeropage test
+
+ie110:  jmp ie351        //stack page test
+
+ie113:  jsr ie6d9
+        jsr ie3a6        //screen ram test
+        jsr ie6d9
+        jsr ie406        //color ram test
+        jsr ie6d9
+        jsr ie46a        //ram test
+
+        lda #<fead8      //font
+        ldx #>fead8
+        sta a09
+        stx a0a
+        lda #<$0800
+        ldx #>$0800
+        sta a0b
+        stx a0c
+        ldx #$01
+        ldy #$00
+ie139:  lda (p09),y
+        sta (p0b),y
+        iny
+        bne ie139
+        inc a0a
+        inc a0c
+        dex
+        bpl ie139
+        jsr ie6d9
+        jsr ie5bc        //sound test
+        sed
+        lda #$01
+        clc
+        adc a02
+        sta a02
+        lda #$00
+        adc a03
+        sta a03
+        cld
+        lda #$e7
+        sta a01
+        lda #$37
+        sta a00
+        lda #$00
+        sta ad418
+        ldx #$00
+        lda #$20
+ie16d:  sta f0400,x
+        sta f0500,x
+        inx
+        bne ie16d
+        ldx #$2e
+        lda #$20
+ie17a:  sta f0600,x
+        dex
+        bpl ie17a
+        jmp ie0bc
+
+ie183:  lda #$00
+        sta ad020
+        sta ad021
+        ldx #$15
+        ldy #$00
+ie18f:  lda fe7f7,x      //memtest pattern
+        sta f0100,y
+        sta f0200,y
+        sta f0300,y
+        sta f0400,y
+        sta f0500,y
+        sta f0600,y
+        sta f0700,y
+        sta f0800,y
+        sta f0900,y
+        sta f0a00,y
+        sta f0b00,y
+        sta f0c00,y
+        sta f0d00,y
+        sta f0e00,y
+        sta f0f00,y
+        iny
+        bne ie18f
+        txa
+        ldx #$00
+        ldy #$00
+ie1c7:  dey
+        bne ie1c7
+        dex
+        bne ie1c7
+        tax
+ie1ce:  lda f0100,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0200,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0300,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0400,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0500,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0600,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0700,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0800,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0900,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0a00,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0b00,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0c00,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0d00,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0e00,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        lda f0f00,y
+        cmp fe7f7,x      //memtest pattern
+        bne ie24c
+        iny
+        beq ie24f
+        jmp ie1ce
+
+ie24c:  jmp ie25a
+
+ie24f:  dex
+        bmi ie257
+        ldy #$00
+        jmp ie18f
+
+ie257:  jmp ie010        //memtest ok
+
+ie25a:  eor fe7f7,x      //memtest pattern
+        tax
+        and #$fe
+        bne ie267
+        ldx #$08
+        jmp ie2a5        //mem error flash
+
+ie267:  txa
+        and #$fd
+        bne ie271
+        ldx #$07
+        jmp ie2a5        //mem error flash
+
+ie271:  txa
+        and #$fb
+        bne ie27b
+        ldx #$06
+        jmp ie2a5        //mem error flash
+
+ie27b:  txa
+        and #$f7
+        bne ie285
+        ldx #$05
+        jmp ie2a5        //mem error flash
+
+ie285:  txa
+        and #$ef
+        bne ie28f
+        ldx #$04
+        jmp ie2a5        //mem error flash
+
+ie28f:  txa
+        and #$df
+        bne ie299
+        ldx #$03
+        jmp ie2a5        //mem error flash
+
+ie299:  txa
+        and #$bf
+        bne ie2a3
+        ldx #$02
+        jmp ie2a5        //mem error flash
+
+ie2a3:  ldx #$01         //mem error flash
+ie2a5:  txs
+ie2a6:  lda #$01
+        sta ad020
+        sta ad021
+        txa
+        ldx #$7f
+        ldy #$00
+ie2b3:  dey
+        bne ie2b3
+        dex
+        bne ie2b3
+        tax
+        lda #$00
+        sta ad020
+        sta ad021
+        txa
+        ldx #$7f
+        ldy #$00
+ie2c7:  dey
+        bne ie2c7
+        dex
+        bne ie2c7
+ie2cd:  dey
+        bne ie2cd
+        dex
+        bne ie2cd
+        tax
+        dex
+        beq ie2da
+        jmp ie2a6
+
+ie2da:  ldx #$00
+        ldy #$00
+ie2de:  dey
+        bne ie2de
+        dex
+        bne ie2de
+ie2e4:  dey
+        bne ie2e4
+        dex
+        bne ie2e4
+ie2ea:  dey
+        bne ie2ea
+        dex
+        bne ie2ea
+ie2f0:  dey
+        bne ie2f0
+        dex
+        bne ie2f0
+        tsx
+        jmp ie2a6
+
+ie2fa:  ldx #$08
+ie2fc:  lda fe835,x      //zeropage test
+        sta f0450,x
+        dex
+        bpl ie2fc
+        ldx #$13
+ie307:  lda fe7f7,x      //memtest pattern
+        ldy #$12
+ie30c:  sta f0000,y
+        iny
+        bne ie30c
+        txa
+        ldx #$00
+        ldy #$00
+ie317:  dey
+        bne ie317
+        dex
+        bne ie317
+        tax
+        lda fe7f7,x      //memtest pattern
+        ldy #$12
+ie323:  cmp f0000,y
+        bne ie33b
+        iny
+        bne ie323
+        dex
+        bpl ie307
+        lda #$0f         //"o"
+        sta a045d
+        lda #$0b         //"k"
+        sta a045e
+        jmp ie110
+
+ie33b:  eor fe7f7,x      //memtest pattern
+        tax
+        lda #$02         //"b"
+        sta a045d
+        lda #$01         //"a"
+        sta a045e
+        lda #$04         //"d"
+        sta a045f
+        jmp ie4c1
+
+ie351:  ldx #$09
+ie353:  lda fe83e,x      //stack page
+        sta f0478,x
+        dex
+        bpl ie353
+        ldx #$13
+ie35e:  lda fe7f7,x      //memtest pattern
+        ldy #$00
+ie363:  sta f0100,y
+        iny
+        bne ie363
+        txa
+        ldx #$00
+        ldy #$00
+ie36e:  dey
+        bne ie36e
+        dex
+        bne ie36e
+        tax
+        lda fe7f7,x      //memtest pattern
+ie378:  cmp f0100,y
+        bne ie390
+        iny
+        bne ie378
+        dex
+        bpl ie35e
+        lda #$0f         //"o"
+        sta a0485
+        lda #$0b         //"k"
+        sta a0486
+        jmp ie113
+
+ie390:  eor fe7f7,x      //memtest pattern
+        tax
+        lda #$02         //"b"
+        sta a0485
+        lda #$01         //"a"
+        sta a0486
+        lda #$04         //"d"
+        sta a0487
+        jmp ie4c1
+
+ie3a6:  ldx #$09
+ie3a8:  lda fe863,x      //screen ram
+        sta f04a0,x
+        dex
+        bpl ie3a8
+        ldx #<$0400
+        ldy #>$0400
+        stx a09
+        sty a0a
+ie3b9:  ldy #$00
+        lda (p09),y
+        pha
+        ldx #$13
+ie3c0:  lda fe7f7,x      //memtest pattern
+        sta (p09),y
+        txa
+        ldx #$00
+ie3c8:  dex
+        bne ie3c8
+        tax
+        lda (p09),y
+        cmp fe7f7,x      //memtest pattern
+        bne ie3f0
+        dex
+        bpl ie3c0
+        pla
+        sta (p09),y
+        inc a09
+        bne ie3df
+        inc a0a
+ie3df:  lda a0a
+        cmp #$08
+        bne ie3b9
+        lda #$0f         //"o"
+        sta a04ad
+        lda #$0b         //"k"
+        sta a04ae
+        rts
+
+ie3f0:  eor fe7f7,x      //memtest pattern
+        tax
+        lda #$02         //"b"
+        sta a04ad
+        lda #$01         //"a"
+        sta a04ae
+        lda #$04         //"d"
+        sta a04af
+        jsr ie4c1
+
+ie406:  ldx #$08
+ie408:  lda fe850,x      //color ram test
+        sta f04c8,x
+        dex
+        bpl ie408
+        ldx #<$d800
+        ldy #>$d800
+        stx a09
+        sty a0a
+        ldy #$00
+ie41b:  ldy #$00
+        lda (p09),y
+        pha
+        ldx #$0b
+ie422:  lda fe80b,x
+        sta (p09),y
+        txa
+        ldx #$00
+ie42a:  dex
+        bne ie42a
+        tax
+        lda (p09),y
+        and #$0f
+        cmp fe80b,x
+        bne ie454
+        dex
+        bpl ie422
+        pla
+        sta (p09),y
+        inc a09
+        bne ie443
+        inc a0a
+ie443:  lda a0a
+        cmp #$dc
+        bne ie41b
+        lda #$0f         //"o"
+        sta a04d5
+        lda #$0b         //"k"
+        sta a04d6
+        rts
+
+ie454:  eor fe80b,x
+        tax
+        lda #$02         //"b"
+        sta a04d5
+        lda #$01         //"a"
+        sta a04d6
+        lda #$04         //"d"
+        sta a04d7
+        jmp ie4c1
+
+ie46a:  ldx #$07
+ie46c:  lda fe848,x      //ram test
+        sta f04f0,x
+        dex
+        bpl ie46c
+        ldx #<$0800
+        ldy #>$0800
+        stx a09
+        sty a0a
+ie47d:  ldy #$00
+        ldx #$13
+ie481:  lda fe7f7,x      //memtest pattern
+        sta (p09),y
+        txa
+        ldx #$7f
+ie489:  dex
+        bne ie489
+        tax
+        lda (p09),y
+        cmp fe7f7,x      //memtest pattern
+        bne ie4ae
+        dex
+        bpl ie481
+        inc a09
+        bne ie49d
+        inc a0a
+ie49d:  lda a0a
+        cmp #$10
+        bne ie47d
+        lda #$0f         //"o"
+        sta a04fd
+        lda #$0b         //"k"
+        sta a04fe
+        rts
+
+ie4ae:  eor fe7f7,x      //memtest pattern
+        tax
+        lda #$02         //"b"
+        sta a04fd
+        lda #$01         //"a"
+        sta a04fe
+        lda #$04         //"d"
+        sta a04ff
+ie4c1:  txa
+        and #$01
+        beq ie4e0
+        lda #$02         //"b"
+        sta a06a4
+        lda #$01         //"a"
+        sta a06a5
+        lda #$04         //"d"
+        sta a06a6
+        lda #$02         //red
+        sta adaa4
+        sta adaa5
+        sta adaa6
+ie4e0:  txa
+        and #$02
+        beq ie4ff
+        lda #$02         //"b"
+        sta a0699
+        lda #$01         //"a"
+        sta a069a
+        lda #$04         //"d"
+        sta a069b
+        lda #$02         //red
+        sta ada99
+        sta ada9a
+        sta ada9b
+ie4ff:  txa
+        and #$04
+        beq ie51e
+        lda #$02         //"b"
+        sta a06cc
+        lda #$01         //"a"
+        sta a06cd
+        lda #$04         //"d"
+        sta a06ce
+        lda #$02         //red
+        sta adacc
+        sta adacd
+        sta adace
+ie51e:  txa
+        and #$08
+        beq ie53d
+        lda #$02         //"b"
+        sta a06c1
+        lda #$01         //"a"
+        sta a06c2
+        lda #$04         //"d"
+        sta a06c3
+        lda #$02         //red
+        sta adac1
+        sta adac2
+        sta adac3
+ie53d:  txa
+        and #$10
+        beq ie55c
+        lda #$02         //"b"
+        sta a06f4
+        lda #$01         //"a"
+        sta a06f5
+        lda #$04         //"d"
+        sta a06f6
+        lda #$02         //red
+        sta adaf4
+        sta adaf5
+        sta adaf6
+ie55c:  txa
+        and #$20
+        beq ie57b
+        lda #$02         //"b"
+        sta a06e9
+        lda #$01         //"a"
+        sta a06ea
+        lda #$04         //"d"
+        sta a06eb
+        lda #$02         //red
+        sta adae9
+        sta adaea
+        sta adaeb
+ie57b:  txa
+        and #$40
+        beq ie59a
+        lda #$02         //"b"
+        sta a071c
+        lda #$01         //"a"
+        sta a071d
+        lda #$04         //"d"
+        sta a071e
+        lda #$02         //red
+        sta adb1c
+        sta adb1d
+        sta adb1e
+ie59a:  txa
+        and #$80
+        beq ie5b9
+        lda #$02         //"b"
+        sta a0711
+        lda #$01         //"a"
+        sta a0712
+        lda #$04         //"d"
+        sta a0713
+        lda #$02         //red
+        sta adb11
+        sta adb12
+        sta adb13
+ie5b9:  jmp ie5b9
+
+ie5bc:  ldx #$09
+ie5be:  lda fe859,x      //sound test
+        sta f0518,x
+        dex
+        bpl ie5be
+        lda #$14
+        sta ad418
+        lda #$00
+        sta ad417
+        lda #$3e
+        sta ad405
+        lda #$ca
+        sta ad406
+        lda #$00
+        sta ad412
+        lda #$02
+ie5e2:  pha
+        ldx #$06
+ie5e5:  lda fe86d,x
+        sta ad401
+        lda fe874,x
+        sta ad400
+        pla
+        tay
+        lda fe89a,y
+        sta ad402
+        lda fe89d,y
+        sta ad403
+        lda fe897,y
+        sta ad404
+        tya
+        pha
+        lda #$6a
+        jsr ie6b7
+        lda #$00
+        sta ad404
+        lda #$00
+        jsr ie6b7
+        dex
+        bne ie5e5
+        lda #$00
+        sta ad417
+        lda #$18
+        sta ad418
+        lda #$3e
+        sta ad40c
+        lda #$ca
+        sta ad40d
+        ldx #$06
+ie62f:  lda fe87b,x
+        sta ad408
+        lda fe882,x
+        sta ad407
+        pla
+        tay
+        lda fe89a,y
+        sta ad409
+        lda fe89d,y
+        sta ad40a
+        lda fe897,y
+        sta ad40b
+        tya
+        pha
+        lda #$6a
+        jsr ie6b7
+        lda #$00
+        sta ad40b
+        lda #$00
+        jsr ie6b7
+        dex
+        bne ie62f
+        lda #$00
+        sta ad417
+        lda #$1f
+        sta ad418
+        lda #$3e
+        sta ad413
+        lda #$ca
+        sta ad414
+        ldx #$06
+ie679:  lda fe889,x
+        sta ad40f
+        lda fe890,x
+        sta ad40e
+        pla
+        tay
+        lda fe89a,y
+        sta ad410
+        lda fe89d,y
+        sta ad411
+        lda fe897,y
+        sta ad412
+        tya
+        pha
+        lda #$6a
+        jsr ie6b7
+        lda #$00
+        sta ad412
+        lda #$00
+        jsr ie6b7
+        dex
+        bne ie679
+        pla
+        tay
+        dey
+        tya
+        bmi ie6b6
+        jmp ie5e2
+
+ie6b6:  rts
+
+ie6b7:  cmp #$00
+        beq ie6ca
+        tay
+        txa
+        pha
+        tya
+        tax
+ie6c0:  ldy #$ff
+ie6c2:  dey
+        bne ie6c2
+        dex
+        bne ie6c0
+        pla
+        tax
+ie6ca:  rts
+
+                         //not referenced?
+        lda #$37
+        sta a01
+        lda #$48
+        sta adc0e
+        lda #$08
+        sta add0e
+ie6d9:  lda adc0b
+        clc
+        asl
+        bcc ie6ed
+        lda #$10         //"p"
+        sta a07db
+        lda #$0d         //"m"
+        sta a07dc
+        clc
+        bcc ie6f7
+ie6ed:  lda #$01         //"a"
+        sta a07db
+        lda #$0d         //"m"
+        sta a07dc
+ie6f7:  lda adc0b
+        and #$7f
+        ldy #$01
+        bne ie732
+ie700:  sta a07d3        //xx-00-00
+        stx a07d4
+        lda #$2d         //"-"
+        sta a07d5
+        lda adc0a
+        ldy #$02
+        bne ie732
+ie712:  sta a07d6        //00-xx-00
+        stx a07d7
+        lda #$2d         //"-"
+        sta a07d8
+        lda adc09
+        ldy #$03
+        bne ie732
+ie724:  sta a07d9        //00-00-xx
+        stx a07da
+        lda adc08
+        clc
+        bcc ie76b
+        ldy #$00
+ie732:  pha
+        sty a10
+        ldy #$04
+        bne ie741
+ie739:  ldy a10
+        tax
+        pla
+        lsr
+        lsr
+        lsr
+        lsr
+ie741:  and #$0f
+        cmp #$0a
+        bmi ie74c
+        sec
+        sbc #$09
+        bne ie74e
+ie74c:  ora #$30
+ie74e:  cpy #$01
+        beq ie700
+        cpy #$02
+        beq ie712
+        cpy #$03
+        beq ie724
+        cpy #$04
+        beq ie739
+        cpy #$05
+        beq ie792
+        cpy #$06
+        beq ie7a4
+        cpy #$07
+        beq ie7b6
+        rts
+
+ie76b:  lda add0b
+        clc
+        asl
+        bcc ie77f
+        lda #$10         //"p"
+        sta a07e6
+        lda #$0d         //"m"
+        sta a07e7
+        clc
+        bcc ie789
+ie77f:  lda #$01         //"a"
+        sta a07e6
+        lda #$0d         //"m"
+        sta a07e7
+ie789:  lda add0b
+        and #$7f
+        ldy #$05
+ie790:  bne ie732
+ie792:  sta a07de        //xx-00-00
+        stx a07df
+        lda #$2d         //"-"
+        sta a07e0
+        lda add0a
+        ldy #$06
+        bne ie790
+ie7a4:  sta a07e1        //00-xx-00
+        stx a07e2
+        lda #$2d         //"-"
+        sta a07e3
+        lda add09
+        ldy #$07
+        bne ie790
+ie7b6:  sta a07e4        //00-00-xx
+        stx a07e5
+        lda add08
+        rts
+
+fe7bf:
+        .byte $00,$00,$00,$00,$00,$00,$00,$00
+        .byte $00,$00,$00,$00,$00,$00,$00,$00
+        .byte $00,$1b,$00,$00,$00,$00,$08,$00
+        .byte $12,$00,$00,$00,$00,$00,$00,$00
+        .byte $03,$01,$00,$00,$00,$00,$00,$00
+        .byte $00,$00,$00,$00,$00,$00
+
+fe7ee:  .byte $00,$00,$00,$00
+fe7f2:  .byte $00,$00,$00,$00,$80
+
+fe7f7:  .byte $00,$55,$aa,$ff,$01,$02,$04,$08     // memtest pattern
+        .byte $10,$20,$40,$80,$fe,$fd,$fb,$f7     //
+        .byte $ef,$df,$bf,$7f                     //
+
+fe80b:  .byte $00,$05,$0a,$0f,$01,$02,$04,$08
+        .byte $0e,$0d,$0b,$07
+
+
+.encoding "screencode_mixed"
+fe817:  .text "c-64 dead test rev 781220"
+fe830:  .text "count"
+fe835:  .text "zero page"
+fe83e:  .text "stack page"
+fe848:  .text "ram test"
+fe850:  .text "color ram"
+fe859:  .text "sound test"
+fe863:  .text "screen ram"
+
+fe86d:  .byte $11,$15,$19,$22,$19,$15,$11         // soundtest
+fe874:  .byte $25,$9a,$b1,$4b,$b1,$9a,$25         //
+fe87b:  .byte $22,$2b,$33,$44,$33,$2b,$22         //
+fe882:  .byte $4b,$34,$61,$95,$61,$34,$4b         //
+fe889:  .byte $44,$56,$66,$89,$66,$56,$44         //
+fe890:  .byte $95,$69,$c2,$2b,$c2,$69,$95         //
+fe897:  .byte $45,$11,$25                         //
+fe89a:  .byte $00,$00,$00                         //
+fe89d:  .byte $08,$00,$00,$09,$00,$28,$ff,$1f     //
+        .byte $af                                 //
+
+
+fe8a6:  .byte $20,$20,$20,$20,$20,$20,$20,$20     // box upper part
+        .byte $20,$20,$20,$20,$20,$20,$22,$26
+        .byte $26,$26,$26,$26,$26,$26,$26,$26
+        .byte $26,$26,$26,$26,$26,$26,$26,$26
+        .byte $26,$26,$26,$26,$26,$26,$26,$23
+
+fe8ce:  .byte $20,$20,$20,$20,$20,$20,$20,$20     // box text. 4164 etc.
+        .byte $20,$20,$20,$20,$20,$20,$27,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$34,$31,$36,$34,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$27
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$27,$20
+        .byte $20,$20,$20,$20,$15,$39,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$15
+        .byte $32,$31,$20,$20,$20,$20,$20,$27
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$27,$20
+        .byte $20,$20,$20,$20,$15,$31,$30,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$15
+        .byte $32,$32,$20,$20,$20,$20,$20,$27
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$27,$20
+        .byte $20,$20,$20,$20,$15,$31,$31,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$15
+        .byte $32,$33,$20,$20,$20,$20,$20,$27
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$27,$20
+        .byte $20,$20,$20,$20,$15,$31,$32,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$15
+        .byte $32,$34,$20,$20,$20,$20,$20,$27
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$27,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$20
+        .byte $20,$20,$20,$20,$20,$20,$20,$27
+        .byte $ff
+
+fe9bf:  .byte $06,$06,$06,$06,$06,$06,$06,$06     //color
+        .byte $06,$06,$06,$06,$06,$06,$02,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$02
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$02,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$02
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$02,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$02
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$02,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$02
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$02,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$02
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$02,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$06
+        .byte $06,$06,$06,$06,$06,$06,$06,$02
+        .byte $ff
+
+feab0:  .byte $20,$20,$20,$20,$20,$20,$20,$20     //box lower part
+        .byte $20,$20,$20,$20,$20,$20,$24,$26
+        .byte $26,$26,$26,$26,$26,$26,$26,$26
+        .byte $26,$26,$26,$26,$26,$26,$26,$26
+        .byte $26,$26,$26,$26,$26,$26,$26,$25
+
+fead8:  .byte $00,$00,$00,$00,$00,$00,$00,$00     //font
+        .byte $7e,$42,$42,$7e,$46,$46,$46,$00
+        .byte $7e,$62,$62,$7e,$62,$62,$7e,$00
+        .byte $7e,$42,$40,$40,$40,$42,$7e,$00
+        .byte $7e,$42,$42,$62,$62,$62,$7e,$00
+        .byte $7e,$60,$60,$78,$70,$70,$7e,$00
+        .byte $7e,$60,$60,$78,$70,$70,$70,$00
+        .byte $7e,$42,$40,$6e,$62,$62,$7e,$00
+        .byte $42,$42,$42,$7e,$62,$62,$62,$00
+        .byte $10,$10,$10,$18,$18,$18,$18,$00
+        .byte $04,$04,$04,$06,$06,$66,$7e,$00
+        .byte $42,$44,$48,$7e,$66,$66,$66,$00
+        .byte $40,$40,$40,$60,$60,$60,$7e,$00
+        .byte $43,$67,$5b,$43,$43,$43,$43,$00
+        .byte $e2,$d2,$ca,$c6,$c2,$c2,$c2,$00
+        .byte $7e,$42,$42,$46,$46,$46,$7e,$00
+        .byte $7e,$42,$42,$7e,$60,$60,$60,$00
+        .byte $7e,$42,$42,$62,$6a,$66,$7e,$00
+        .byte $7e,$42,$42,$7e,$68,$64,$62,$00
+        .byte $7e,$42,$40,$7e,$02,$62,$7e,$00
+        .byte $7e,$18,$18,$18,$18,$18,$18,$00
+        .byte $62,$62,$62,$62,$62,$62,$3c,$00
+        .byte $62,$62,$62,$62,$62,$24,$18,$00
+        .byte $c2,$c2,$c2,$c2,$da,$e6,$c2,$00
+        .byte $62,$62,$24,$18,$24,$62,$62,$00
+        .byte $62,$62,$62,$34,$18,$18,$18,$00
+        .byte $7f,$03,$06,$08,$10,$60,$7f,$00
+        .byte $3c,$30,$30,$30,$30,$30,$3c,$00
+        .byte $0e,$10,$30,$fe,$30,$60,$ff,$00
+        .byte $3c,$0c,$0c,$0c,$0c,$0c,$3c,$00
+        .byte $00,$18,$3c,$7e,$18,$18,$18,$18
+        .byte $00,$10,$30,$7f,$7f,$30,$10,$00
+        .byte $00,$00,$00,$00,$00,$00,$00,$00
+        .byte $0e,$0e,$60,$60,$60,$60,$0e,$0e
+        .byte $00,$00,$00,$07,$0f,$1c,$18,$18
+        .byte $00,$00,$00,$e0,$f0,$38,$18,$18
+        .byte $18,$18,$1c,$0f,$07,$00,$00,$00
+        .byte $18,$18,$38,$f0,$e0,$00,$00,$00
+        .byte $00,$00,$00,$ff,$ff,$00,$00,$00
+        .byte $18,$18,$18,$18,$18,$18,$18,$18
+        .byte $0c,$18,$30,$30,$30,$18,$0c,$00
+        .byte $30,$18,$0c,$0c,$0c,$18,$30,$00
+        .byte $00,$66,$3c,$ff,$3c,$66,$00,$00
+        .byte $00,$18,$18,$7e,$18,$18,$00,$00
+        .byte $00,$00,$00,$00,$00,$18,$18,$30
+        .byte $00,$00,$00,$7e,$00,$00,$00,$00
+        .byte $00,$00,$00,$00,$00,$18,$18,$00
+        .byte $00,$03,$06,$0c,$18,$30,$60,$00
+        .byte $7e,$42,$42,$42,$42,$42,$7e,$00
+        .byte $30,$30,$10,$10,$3c,$3c,$3c,$00
+        .byte $7e,$02,$02,$7e,$40,$40,$7e,$00
+        .byte $7e,$02,$02,$7e,$06,$06,$7e,$00
+        .byte $60,$60,$60,$66,$7e,$06,$06,$00
+        .byte $7e,$40,$40,$7e,$02,$02,$7e,$00
+        .byte $78,$48,$40,$7e,$42,$42,$7e,$00
+        .byte $7e,$42,$04,$08,$08,$08,$08,$00
+        .byte $3c,$24,$24,$3c,$66,$66,$7e,$00
+        .byte $7e,$42,$42,$7e,$06,$06,$06,$00
+prefill:
+
+
+.fill ($ffff-prefill-5),$aa
+
+         *=$fffa
+         .word $e000
+         *=$fffc
+         .word $e000
+         *=$fffe
+         .word $e000
+
+//---------------------------------------
+//eof
\ No newline at end of file
diff --git a/progs/stid_shell.asm b/progs/stid_shell.asm
new file mode 100644
index 0000000..6b11a12
--- /dev/null
+++ b/progs/stid_shell.asm
@@ -0,0 +1,195 @@
+#importonce
+#import "../core/pseudo.asm"
+#import "../core/system.asm"
+#import "../libs/print.asm"
+#import "../core/module.asm"
+#import "../hardware/vic.asm"
+#import "../devices/keyboard.asm"
+#import "../devices/video.asm"
+#import "../hardware/mem_map.asm"
+
+.filenamespace StidShell
+
+* = * "StidShell Routines"
+
+// ========================================================
+// ////// CONSTANTS ///////////////////////////////////////
+// ========================================================
+
+.const          R       =       $52
+.const          CR      =       $0d
+.const          BS      =       $14
+
+.const          MAX_CMD_BUFFER  = 40
+
+
+.namespace MODE {
+    .label      MEMORY  = $48
+    .label      HELP    = $4D
+
+}
+
+
+// ========================================================
+// ////// METHODS /////////////////////////////////////////
+// ========================================================
+
+
+init: {
+                jsr StidShell.clear
+                rts
+}
+
+start: {
+                PrintLine(lineString)
+                PrintLine(aboutString)
+                PrintLine(lineString)
+                jsr     StidShell.printRegs
+
+                jmp     StidShell.loop
+}
+
+clear: {
+                lda     #-1
+                sta     MemMap.STID_SHELL.pos
+                lda     #0
+                sta     MemMap.STID_SHELL.sAddr
+                sta     MemMap.STID_SHELL.eAddr
+
+                rts
+}
+
+
+
+//------------------------------------------------------------------------------------
+loop: {
+                jsr     Keyboard.waitForKey
+
+                cmp     #CR
+                beq     cr
+
+                cmp     #BS
+                beq     backspace
+        inputChar:
+                jsr     StidShell.push                 // Char in Buffer
+                cpy     #MAX_CMD_BUFFER
+                beq     loop
+                PrintChar()
+                jmp     loop
+        backspace:
+                jsr     StidShell.backspace
+                PrintChar()
+                jmp     loop
+
+        cr:
+                jsr     StidShell.push                 // CR in Buffer
+                jsr     Video.screenNewLine
+                jsr     StidShell.exec
+                jsr     Video.screenNewLine
+                jsr     StidShell.clear
+                jmp     loop
+}
+
+toDebug: {
+                ModuleToDebug(module_type, module_name, version)
+                rts
+}
+
+push: {
+                ldy     MemMap.STID_SHELL.pos
+                iny
+                cpy     #MAX_CMD_BUFFER
+                beq     done
+                sty     MemMap.STID_SHELL.pos
+                sta     MemMap.STID_SHELL.buffer, y
+        done:
+                rts
+}
+
+backspace: {
+                ldy     MemMap.STID_SHELL.pos
+                cpy     #-1
+                beq     done
+                dey
+                sty     MemMap.STID_SHELL.pos
+        done:
+                rts
+}
+
+exec: {
+        ldy     #0
+        lda     MemMap.STID_SHELL.buffer, y
+
+        sta     MemMap.STID_SHELL.mode            // Store as mode
+
+        cmp     #StidShell.MODE.HELP      // H
+        beq     cmdHelp
+
+        cmp     #StidShell.MODE.MEMORY    // M
+        beq     cmdMemory
+
+        rts
+
+        cmdHelp:
+                rts
+
+        cmdMemory: {
+                loop:
+                        iny
+                        lda     MemMap.STID_SHELL.buffer, y
+                        cmp     $20
+                        beq     loop
+                        cmp     #CR
+                        beq     done
+
+
+                done:
+                        rts
+        }
+}
+
+
+printRegs: {
+        PrintLine(regString)
+        lda     $02
+        jsr     Print.byteToHex
+        PrintChar()
+        txa
+        PrintChar()
+        lda     $03
+        jsr     Print.byteToHex
+        PrintChar()
+        txa
+        PrintChar()
+        rts
+}
+
+
+// ========================================================
+// ////// DATA ////////////////////////////////////////////
+// ========================================================
+
+* = * "StidShell Data"
+module_type:    .byte   Module.TYPES.PROG
+version:        .byte   0, 0, 1
+
+.encoding "screencode_mixed"
+module_name:
+                .text   "stid-shell"
+                .byte   0
+
+aboutString:
+                .text   "stid mon 0.0.1"
+                .byte   Video.CR, 0
+lineString:
+                .text   "----------------------------------------"
+                .byte   Video.CR, 0
+
+regString:
+                .text   "    pc   sr ac xr yr sp"
+                .byte   Video.CR
+                .text   ";  "
+                .byte   0
+
+
+#import "../hardware/mem_map.asm"
diff --git a/progs/woz_shell.asm b/progs/woz_shell.asm
index e17072b..50bae17 100644
--- a/progs/woz_shell.asm
+++ b/progs/woz_shell.asm
@@ -2,13 +2,19 @@
 #import "../core/pseudo.asm"
 #import "../core/system.asm"
 #import "../libs/print.asm"
+#import "../libs/timers.asm"
 #import "../core/module.asm"
 #import "../hardware/vic.asm"
 #import "../devices/keyboard.asm"
+#import "../devices/video.asm"
 #import "../hardware/mem_map.asm"
 
 .filenamespace WozShell
 
+
+
+
+
 * = * "WozShell Routines"
 
 // ========================================================
@@ -156,7 +162,12 @@ stidExec: {
                 beq     cmdReset
 
                 cmp     #$56 // V
-                beq     cmdZeroPageInfo
+                beq     cmdSysInfo
+
+                .break
+                cmp     #$54 // T
+                beq     cmdTest
+
     done:
                 rts
     // STID Commands
@@ -166,9 +177,48 @@ stidExec: {
     cmdReset:
                 jmp     $fce2       // SYS 64738
 
-    cmdZeroPageInfo:
+    cmdSysInfo:
                 jsr     System.toDebug
                 jmp     done
+
+    cmdTest:  {
+                // TODO: Optizime for code size here
+                        ldy     #1
+                loop:
+                        tya
+                        jsr     clearVideo
+                        jsr     clearColors
+                        jsr     Timers.delayOne
+                        iny
+                        bne     loop
+                        VideoClearColorRam($03)
+
+                        jmp     done
+
+        clearVideo: {
+                        ldx     #0
+                !loop:
+                        sta     $0400, x
+                        sta     $0400 + $100, x
+                        sta     $0400 + $200, x
+                        sta     $0400 + $300, x
+                        inx
+                        bne     !loop-
+                        rts
+        }
+
+        clearColors: {
+                        ldx     #0
+                !loop:
+                        sta     $d800, x
+                        sta     $d800 + $100, x
+                        sta     $d800 + $200, x
+                        sta     $d800 + $300, x
+                        inx
+                        bne     !loop-
+                        rts
+        }
+    }
 }
 
 
@@ -362,7 +412,7 @@ helpString:
                 .byte   $8e, 0
 
 aboutString:
-                .text   "woz64 mon - v 1.5.0"
+                .text   "woz64 mon - v 1.6.0"
                 .byte   $8e, 0
 lineString:
                 .text   "----------------------------------------"