From c086f055ef676ca96e948340386cb04725916db3 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sun, 4 Aug 2024 18:23:47 +0100
Subject: Started adding CBM tape file support.  Still the bulk of it to do,
 but framework is there.

---
 src/example/vic20-tap.asm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 src/example/vic20-tap.asm

(limited to 'src/example/vic20-tap.asm')

diff --git a/src/example/vic20-tap.asm b/src/example/vic20-tap.asm
new file mode 100644
index 0000000..ff5317b
--- /dev/null
+++ b/src/example/vic20-tap.asm
@@ -0,0 +1,30 @@
+	; Simple example C64 code
+	;
+
+	cpu 6502
+
+	option	codepage,cbm
+
+	option	output-file,vic20.tap
+	option	output-format,cbm-tap
+	option	cbm-tap-start,start
+        option  cbm-tap-system,vic20
+
+	org $1100
+
+main:
+	lda	#0
+	clc
+loop:
+	sta	36879
+	adc	#1
+        pha
+        jsr     $ffe4
+        beq     nokey
+        rts
+nokey:
+        pla
+	jmp	loop
+
+start:
+	jmp	main
-- 
cgit v1.2.3