From 3e0f57c44e617f15de72055ea50ad2bac4c3a0ec Mon Sep 17 00:00:00 2001
From: Jakub Husak <qba@qba-MacBookPro.local>
Date: Sun, 31 May 2020 17:50:16 +0200
Subject: [PATCH] working basic xe

---
 .../034M_Action36ACS_orig/flashwrite.asx      |   6 ++--
 .../M091_BASICXE41/BASICXEflashwrite.xex      | Bin 26277 -> 26277 bytes
 .../M091_BASICXE41/flashwrite.asx             |  16 +++++-----
 various_flashers/M091_BASICXE41/makerom.sh    |  29 ++++++++++++++++++
 4 files changed, 40 insertions(+), 11 deletions(-)
 create mode 100755 various_flashers/M091_BASICXE41/makerom.sh

diff --git a/various_flashers/034M_Action36ACS_orig/flashwrite.asx b/various_flashers/034M_Action36ACS_orig/flashwrite.asx
index 8b58827..91efbe8 100644
--- a/various_flashers/034M_Action36ACS_orig/flashwrite.asx
+++ b/various_flashers/034M_Action36ACS_orig/flashwrite.asx
@@ -344,7 +344,7 @@ badcompare_tmp2 equ 	* +1
 	dta b(1) ; Counter
 ;------------	
 	org _SOURCE
-	ins "action.bin",+0*$1000+$0,$1000
+	ins "action.bin",+$0000+$0,$1000
 	ins "action.bin",+$3000+$0,$1000
 ;------------
 	org $2e2
@@ -355,7 +355,7 @@ badcompare_tmp2 equ 	* +1
 	dta b(1) ; Counter
 ;------------	
 	org _SOURCE
-	ins "action.bin",+1*$1000+$0,$1000
+	ins "action.bin",+$1000+$0,$1000
 	ins "action.bin",+$3000+$0,$1000
 ;------------
 	org $2e2
@@ -366,7 +366,7 @@ badcompare_tmp2 equ 	* +1
 	dta b(1) ; Counter
 ;------------	
 	org _SOURCE
-	ins "action.bin",+2*$1000+$0,$1000
+	ins "action.bin",+$2000+$0,$1000
 	ins "action.bin",+$3000+$0,$1000
 ;------------
 	org $2e2
diff --git a/various_flashers/M091_BASICXE41/BASICXEflashwrite.xex b/various_flashers/M091_BASICXE41/BASICXEflashwrite.xex
index fca4c3a48fb03bf4e41270ef6178a78cde4bf3bd..fd86e9e30dfbd24e93e0f67480d0603c180275f4 100644
GIT binary patch
delta 80
zcmZ2_mT~D>#toHhiz~$h7FV(f2s~nX%yd|}gQ1gwk&z+cfBoW_VdxT^5Q$DRumlf8
J2Z&Tr0RWdt95w&|

delta 80
zcmZ2_mT~D>#toHhiz~$h7FV(f2s~nX%yd|}gQ1gwlaV3ee?3@YrW>*ZBSNB6O@IfY
J14OE*005QI95w&|

diff --git a/various_flashers/M091_BASICXE41/flashwrite.asx b/various_flashers/M091_BASICXE41/flashwrite.asx
index fabf361..4db401e 100644
--- a/various_flashers/M091_BASICXE41/flashwrite.asx
+++ b/various_flashers/M091_BASICXE41/flashwrite.asx
@@ -344,30 +344,30 @@ badcompare_tmp2 equ 	* +1
 	dta b(1) ; Counter
 ;------------	
 	org _SOURCE
-	ins "BASIC XE 4.1.rom",0,$1000
-	ins "BASIC XE 4.1.rom",+1*$1000+$0,$1000
+	ins "BASIC XE 4.1.rom",+$1000,$1000
+	ins "BASIC XE 4.1.rom",+$0000,$1000
 ;------------
 	org $2e2
 	dta a(MAIN_PROCESS)
 ;------------
 	org BankNum
-	dta b(9) ; d501
+	dta b(1) ; d501
 	dta b(1) ; Counter
 ;------------	
 	org _SOURCE
-	ins "BASIC XE 4.1.rom",0,$1000
-	ins "BASIC XE 4.1.rom",+2*$1000+$0,$1000
+	ins "BASIC XE 4.1.rom",+$3000,$1000
+	ins "BASIC XE 4.1.rom",+$0000,$1000
 ;------------
 	org $2e2
 	dta a(MAIN_PROCESS)
 ;------------
 	org BankNum
-	dta b(1) ; $d509
+	dta b(9) ; $d509
 	dta b(1) ; Counter
 ;------------	
 	org _SOURCE
-	ins "BASIC XE 4.1.rom",0,$1000
-	ins "BASIC XE 4.1.rom",+3*$1000+$0,$1000
+	ins "BASIC XE 4.1.rom",+$2000,$1000
+	ins "BASIC XE 4.1.rom",+$0000+$0,$1000
 ;------------
 	org $2e2
 	dta a(MAIN_PROCESS)
diff --git a/various_flashers/M091_BASICXE41/makerom.sh b/various_flashers/M091_BASICXE41/makerom.sh
new file mode 100755
index 0000000..1d23069
--- /dev/null
+++ b/various_flashers/M091_BASICXE41/makerom.sh
@@ -0,0 +1,29 @@
+I="BASIC XE 4.1.rom"
+O=basicxe_128.rom
+i=0
+z=""
+while [[ $i -lt 512 ]]; do 
+z+=FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+(( i = i + 1 ))
+done
+function out8k() {
+echo "$z" | xxd -r -ps
+}
+
+echo -n >$O
+dd iseek=1 if="$I" of=/dev/stdout bs=4096 count=1 >>$O
+dd iseek=0 if="$I" of=/dev/stdout bs=4096 count=1 >>$O
+
+# for t in 1 2 ; do out8k >>$O ; done
+
+
+dd iseek=3 if="$I" of=/dev/stdout bs=4096 count=1 >>$O
+dd iseek=0 if="$I" of=/dev/stdout bs=4096 count=1 >>$O
+for t in 2 3 4 5 6 7 8  ; do out8k >>$O ; done
+
+dd iseek=2 if="$I" of=/dev/stdout bs=4096 count=1 >>$O
+dd iseek=0 if="$I" of=/dev/stdout bs=4096 count=1 >>$O
+
+for t in a b c d e f  ; do out8k >>$O ; done
+
+