From 2b1e2742a8e0cf96823114a3c421afd0d1084c98 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Tue, 2 Mar 2021 17:20:38 -0500
Subject: [PATCH] floppy: now in assembly

---
 textmode/mousetext/Makefile | 13 +++++--
 textmode/mousetext/floppy.s | 71 +++++++++++++++++++++++++++++++++++++
 2 files changed, 82 insertions(+), 2 deletions(-)
 create mode 100644 textmode/mousetext/floppy.s

diff --git a/textmode/mousetext/Makefile b/textmode/mousetext/Makefile
index 0affc725..6af6d8a6 100644
--- a/textmode/mousetext/Makefile
+++ b/textmode/mousetext/Makefile
@@ -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
diff --git a/textmode/mousetext/floppy.s b/textmode/mousetext/floppy.s
new file mode 100644
index 00000000..8592bd04
--- /dev/null
+++ b/textmode/mousetext/floppy.s
@@ -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