From da2c027feeb595262f4e3e751f3012a6109e0b10 Mon Sep 17 00:00:00 2001
From: pkali <pawel.kalinowski@gmail.com>
Date: Wed, 5 Oct 2022 11:21:49 -0400
Subject: [PATCH] WIP: 5200 keyboard revert

---
 lib/5200SYS.ASM |  68 +++++++++++++++++++++++++++++++++++++++++++++++-
 scorch.asm      |   8 +++---
 scorch.bin      | Bin 32768 -> 32768 bytes
 3 files changed, 71 insertions(+), 5 deletions(-)

diff --git a/lib/5200SYS.ASM b/lib/5200SYS.ASM
index cebd9e0..314072b 100644
--- a/lib/5200SYS.ASM
+++ b/lib/5200SYS.ASM
@@ -268,4 +268,70 @@ scr32   = @dmactl(narrow|dma|players|missiles|lineX1)
     _pause = $0d
     _reset = $0e
 .ende
-*/
\ No newline at end of file
+*/
+
+.enum @kbcode
+    _none = 255
+    _esc = 28
+    _1 = 31
+    _2 = 30
+    _3 = 26
+    _4 = 24
+    _5 = 29
+    _6 = 27
+    _7 = 51
+    _8 = 53
+    _9 = 48
+    _0 = 50
+    _lt = 54
+    _gt = 55
+    _del = 52
+    _tab = 44
+    _Q = 47
+    _W = 46
+    _E = 42
+    _R = 40
+    _T = 45
+    _Y = 43
+    _U = 11
+    _I = 13
+    _O = 8
+    _P = 10
+    _min = 14
+    _up =  14  ; cursor function 
+    _eq = 15
+    _down = 15 ; cursor function
+    _ret = 12
+    _A = 63
+    _S = 62
+    _D = 58
+    _F = 56
+    _G = 61
+    _H = 57
+    _J = 1
+    _K = 5
+    _L = 0
+    _semicolon = 2
+    _plus = 6
+    _left = 6  ; cursor function
+    _asterisk = 7
+    _right = 7 ; cursor function
+    _caps = 60
+    _Z = 23
+    _X = 22
+    _C = 18
+    _V = 16
+    _B = 21
+    _N = 36
+    _M = 37
+    _comma = 32
+    _dot = 34
+    _slash = 38
+    _atari = 39
+    _help = 17
+    _F1 = 3
+    _F2 = 4
+    _F3 = 19
+    _F4 = 20
+    _space = 33
+.ende
\ No newline at end of file
diff --git a/scorch.asm b/scorch.asm
index abdae63..dc52539 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -6,7 +6,7 @@
 ;Miami & Warsaw 2022
 
 ;---------------------------------------------------
-.def TARGET = 800 ;5200  ; or 800
+.def TARGET = 800; 5200  ; or 800
 ;atari800  -5200 -cart ${outputFilePath} -cart-type 4
 ;atari800  -run ${outputFilePath}
 ;---------------------------------------------------
@@ -135,7 +135,7 @@
       OPT h-f+
       icl 'lib/5200SYS.ASM'
       icl 'lib/5200MACRO.ASM'
-      .enum @kbcode 
+/*      .enum @kbcode 
         /*
         _0
         _1
@@ -153,7 +153,7 @@
         _pause = $0d
         _reset = $0e
         */
-        _space = $00
+/*        _space = $00
         _Y     = $01
         _up    = $02
         _O     = $03
@@ -169,7 +169,7 @@
         _S     = $0e
         _del = $0e  ; not used in 5200
 
-      .ende
+      .ende */
     .ELSE
       icl 'lib/ATARISYS.ASM'
       icl 'lib/MACRO.ASM'
diff --git a/scorch.bin b/scorch.bin
index f1148f672e673ef7b37d2b1cde9138ac903356b5..8a4098f449bdbd0ae5e0eda24a079ed42d49f7fb 100644
GIT binary patch
delta 353
zcmZo@U}|V!+7QaiD6=_?cRMR1&t^X1hg@157kCu3D^#uuoL=eBdNtvs%moeze|N%3
z`wN^3dz%zi<oT$^o#dS?DW~n$cY)dGb==8*Af*+5at)B;OwhDH$@d}fBtMYzFYY88
zkeV8Qk{w97#h+9JQr-zCb%4~9_>-zYN-N={-R3U230$IZs~#nsWc!eNlKq47NyW|j
zn$MU+_%8^(Q{i8$!he$U!t<3Jy(;`ZoVh3YF7TdH;TO2Jk^w5fc0q8R3je(tp1n0Z
z0{j2f@PJgYUl0Zg0y#jzldKn30Hr~~JexChb(myjKGXs&t31hbfiVH-Y>|`vAB@4S
zR4Y2kzIl`WR~8u_peqeaPwIRy06IwrsM-ps$PK7C>ZHl$!zPQF8MQa3TSzH#u>b%6
OpY1<C-{#K9ay0-M!Hrq~

delta 353
zcmZo@U}|V!+7Qai$hA3)cRMR1_hvrfhg@3B7kCu3D^#uuoL=eBdNtuB*98s;e|N%3
z_6wW}dz%zi<oT$^o#dP>DW~n$bb;CDb==7gAf*+5vK2^iCTQB9Wcm<zk^{*37k82c
zNKK7D$p)m{;!iRFDer`ntU&5X{7GIQrIm1!Z*!O21TImyRgV%*vV6!r$@W3{B*SKX
z&1cLZ92bP%sqn8=;XlcF;rU9AUKM^H&fJqs7kJO9@C#g9$p95#xgfYsh5ud+&)ymy
zf&Kq#ctEPyE(ik!fgGS9(Bc(9X^=4Y=1g53CRwfzwLr@%PjX*iOaMAt<Rr%jW3VgL
zicYd^-lYGPMTQ&bO2g8VtRD=3PSOFYwgM`011gRJy8N)oVrE9h&FL0WiX3eJ|Nm$C
M&%w00GqPL_0BygD*#H0l