mirror of
https://github.com/Pecusx/jataricart.git
synced 2026-05-20 22:33:22 +02:00
working basic xe
This commit is contained in:
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -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)
|
||||
|
||||
Executable
+29
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user