Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-03 14:05:58 +00:00
Code Issues Projects Releases Wiki Activity

botdemo: minor change

Browse Source
This commit is contained in:
Vince Weaver 2020-11-09 00:03:24 -05:00
parent c9835427bc
commit 8ca7b3f3fd
4 changed files with 63 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
bot_demo/Makefile
View File

@ -5,13 +5,31 @@ TOKENIZE = ../asoft_basic-utils/tokenize_asoft
all: bot_demo.dsk
bot_demo.dsk: RLE
bot_demo.dsk: HELLO BOTDEMO
cp empty.dsk bot_demo.dsk
$(DOS33) -y bot_demo.dsk BSAVE -a 0x036c RLE
$(DOS33) -y bot_demo.dsk BSAVE -a 0x6000 BOTDEMO
$(DOS33) -y bot_demo.dsk SAVE A HELLO
###
BOTDEMO: botdemo.o
ld65 -o BOTDEMO botdemo.o -C ../linker_scripts/apple2_6000.inc
botdemo.o: botdemo.s \
zp.inc hardware.inc nozp.inc \
load.s \
interrupt_handler.s
ca65 -o botdemo.o botdemo.s -l botdemo.lst
###
HELLO: hello.bas
../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
###
RLE: rle.o
ld65 -o RLE rle.o -C ./apple2_custom.inc
@ -21,4 +39,4 @@ rle.o: rle.s
####
clean:
rm -f *~ *.o *.lst RLE
rm -f *~ *.o *.lst RLE BOTDEMO

12
bot_demo/apple2_custom.inc
View File

@ -1,12 +0,0 @@
MEMORY {
ZP: start = $00, size = $1A, type = rw;
RAM: start = $36c, size = $8E00, file = %O;
}
SEGMENTS {
CODE: load = RAM, type = ro, align = $1;
RODATA: load = RAM, type = ro;
DATA: load = RAM, type = rw;
BSS: load = RAM, type = bss, define = yes;
ZEROPAGE: load = ZP, type = zp;
}

BIN
bot_demo/bg.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

53
bot_demo/load.s
View File

@ -11,20 +11,51 @@ TRACE_ = $D805
load_file:
;=================
; run list command
do_list:
lda #'L'
sta $200
lda #'I'
sta $201
lda #'S'
sta $202
lda #'T'
sta $203
lda #0
sta $204
lda #<list_string
sta cti_smc+1
lda #>list_string
sta cti_smc+2
jsr copy_to_input
jmp run_command
;=================
; run run command
; a do-run-run, a do-run-run
do_run:
lda #<run_string
sta cti_smc
lda #>run_string
sta cti_smc+1
jsr copy_to_input
jmp run_command
;=====================
; copy_to_input
; copies NUL terminator too
copy_to_input:
ldx #0
cti_loop:
cti_smc:
lda $1234,X
sta $200,X
beq done_copy
inx
bne cti_loop
done_copy:
rts
list_string:
.byte "LIST",0
run_string:
.byte "RUN",0
run_command:
; calls MON_GETLN