working basic xe

This commit is contained in:
Jakub Husak
2020-05-31 17:50:16 +02:00
parent 466c8ea4dc
commit 3e0f57c44e
4 changed files with 40 additions and 11 deletions
@@ -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
@@ -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)
+29
View File
@@ -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