Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 00:30:31 +00:00
Code Issues Projects Releases Wiki Activity

floppy: now in assembly

Browse Source
This commit is contained in:
Vince Weaver 2021-03-02 17:20:38 -05:00
parent a64a65ccdd
commit 2b1e2742a8
2 changed files with 82 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
textmode/mousetext/Makefile
View File

@ -7,12 +7,13 @@ EMPTYDISK = ../../empty_disk/empty.dsk
all: mousetext.dsk
mousetext.dsk: HELLO MT.BAS SW.BAS FLOPPY.BAS
mousetext.dsk: HELLO MT.BAS SW.BAS FLOPPY.BAS FLOPPY
cp $(EMPTYDISK) mousetext.dsk
$(DOS33) -y mousetext.dsk SAVE A HELLO
$(DOS33) -y mousetext.dsk SAVE A MT.BAS
$(DOS33) -y mousetext.dsk SAVE A SW.BAS
$(DOS33) -y mousetext.dsk SAVE A FLOPPY.BAS
$(DOS33) -y mousetext.dsk BSAVE -a 0xC00 FLOPPY
###
@ -36,5 +37,13 @@ FLOPPY.BAS: floppy.bas
###
FLOPPY: floppy.o
ld65 -o FLOPPY floppy.o -C $(LINKERSCRIPTS)/apple2_c00.inc
floppy.o: floppy.s
ca65 -o floppy.o floppy.s -l floppy.lst
####
clean:
rm -f *~ *.o *.lst HELLO MT.BAS SW.BAS FLOPPY.BAS
rm -f *~ *.o *.lst HELLO MT.BAS SW.BAS FLOPPY.BAS FLOPPY

71
textmode/mousetext/floppy.s Normal file
View File

@ -0,0 +1,71 @@
;2?CHR$(27)
;3N$=CHR$(14):I$=CHR$(15):B$=CHR$(8):F$=CHR$(10)+B$+B$+B$+B$+B$+B$
;4GOSUB8:?"_____ "F$B$I$"ZA----_"F$B$I$"Z"N$" o "I$"S_"F$B$I$"Z"N$"__|__"I$"_"N$
;6GOSUB8:?N$"____ "F$I$"Z"N$" =='"I$"_"F$I$"Z"N$"_"I$" \T_"N$
;7GOTO4
;8VTAB1+RND(1)*20:HTABRND(1)*70:RETURN
CH = $24
CV = $25
COUT = $FDED
COUT1 = $FDF0
COUTZ = $FDF6 ; cout but ignore inverse flag
floppy:
jsr $C300 ; enable 80-column card firmware
lda #27 ; enable mouse text
jsr COUT
lda #5
sta CH
sta CV
ldx #0
big_loop:
lda big_floppy,X
beq big_done
ora #$80
jsr COUT
inx
bne big_loop
big_done:
lda #10
sta CH
sta CV
ldx #0
small_loop:
lda small_floppy,X
beq small_done
ora #$80
jsr COUT
inx
bne small_loop
small_done:
done:
jmp done
big_floppy:
.byte 10,"_____ "
.byte 10,8,8,8,8,8,8,8
.byte 15,"ZA----_"
.byte 10,8,8,8,8,8,8,8
.byte 15,"Z",14," o ",15,"S_"
.byte 10,8,8,8,8,8,8,8
.byte 15,"Z",14,"__|__",15,"_",14
.byte 0
small_floppy:
.byte 10,14,"____ "
.byte 10,8,8,8,8,8,8
.byte 15,"Z",14," =='",15,"_"
.byte 10,8,8,8,8,8,8
.byte 15,"Z",14,"_",15," \T_",14
.byte 0