From a3e31f149eb3a234f3d3e035bd21191023b781d5 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 7 Feb 2018 14:29:51 -0800
Subject: [PATCH] add quit and auto-launch handler

---
 res/pitchdark.po | Bin 143360 -> 143360 bytes
 src/quit.s       |  81 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 81 insertions(+)
 create mode 100644 src/quit.s

diff --git a/res/pitchdark.po b/res/pitchdark.po
index 35695fd8a15d745b583550b08b249a7ac961c5e1..fc17497096c756af80614db8c40ee847369863a8 100644
GIT binary patch
delta 222
zcmZp8z|ru4V}mLSBlBc679CaTz);T+z2L~;5LaIYAo#Dzz{oIxfx%rxikE@mF^D0}
zx4E39kDbweGaJt@*ZQ^12Y_e+!%lI9nG6?aG6<Zw@WqEg;Ktgf1HC*4dKnHVO#Y|P
z`LFjki-P`dg@`|k?yo#Qw{qV~hFLEze1Dg}Ux8u&F)slidBRs<ZID232#9?u7(||l
z7Vu$EV2l-DP8DF_U|_k(pz#0yMH5B_cKrYsCx8DCVJA;PKm7pD5N8jUAaAI%H!E%~
MU}_3o7Rq=V0G41*e*gdg

delta 78
zcmZp8z|ru4V}mLSBhzFx79CZFa93CNP)`OJVAEpYXW*A+P*YJ5RAG3`;NY&J%D=gs
crH`Glelr`-FV{r{Op6(r7@I<ug)-g-0FHza`v3p{

diff --git a/src/quit.s b/src/quit.s
new file mode 100644
index 0000000..e0474d6
--- /dev/null
+++ b/src/quit.s
@@ -0,0 +1,81 @@
+;license:MIT
+;(c) 2018 by qkumba
+
+!cpu 6502
+*=$2000
+
+	lda	$c083
+	lda	$c083
+	ldy	#0
+-	lda	runme,y
+	sta	$d100,y ;$d1 heh.
+	sta	$1000,y
+	iny
+	bne	-
+	jmp	$1000
+
+runme !pseudopc $1000 {
+	cld
+	lda	$c082
+	sta	$c00c
+	sta	$c000
+	jsr	$fe93
+	jsr	$fe89
+	sta	$4fb
+	jsr	$fb2f
+	jsr	$fc58
+	ldx	#$df
+	lda	#$cf
+-	sta	$be79,x
+	lda	#0
+	txs
+	inx
+	bne	-
+	inc	$bf6f
+	jsr	$bf00
+	!byte	$c6
+	!word	c6_parms
+	jsr	$bf00
+	!byte	$c8
+	!word	c8_parms
+	lda	c8_parms+5
+	sta	ca_parms+1
+	jsr	$bf00
+	!byte	$ca
+	!word	ca_parms
+	jsr	$bf00
+	!byte	$cc
+	!word	cc_parms
+	jmp	$2000
+
+c6_parms
+	!byte	1
+	!word	prefix
+
+c8_parms
+	!byte	3
+	!word	filename
+	!word	$800
+	!byte	0
+
+ca_parms
+	!byte	4
+	!byte	$d1
+	!word	$2000
+	!word	$ffff
+	!word	$34d1
+
+cc_parms
+	!byte	1
+	!byte	0
+
+prefix
+	!byte	(prefix_e-prefix)-1
+	!text	"/PDBOOT"
+prefix_e
+
+filename
+	!byte	(filename_e-filename)-1
+	!text	"BIN/PITCHDRK.SYSTEM"
+filename_e
+}
\ No newline at end of file