From 861d56e556b597115ad01b4b4cc0e5b932545ce9 Mon Sep 17 00:00:00 2001
From: mrb0nk500 <b0nk@b0nk.xyz>
Date: Fri, 10 Jan 2020 16:35:34 -0500
Subject: Added GPLv2.

We're now Free Software!!!
---
 programs/forg.s | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 programs/forg.s

(limited to 'programs/forg.s')

diff --git a/programs/forg.s b/programs/forg.s
new file mode 100644
index 0000000..3e6aea1
--- /dev/null
+++ b/programs/forg.s
@@ -0,0 +1,17 @@
+forg:
+	iny		; Increment offset.
+	lda buf, y
+	jsr iswhite
+	bcs forg	; Reset y, if we hit the null terminator.
+	cmp #$2E	; Is this character a '.'?
+	bne forg_exit	; No, so return.
+	sty org		; Yes, so store the origin.
+forg_end:
+	iny		; Increment offset.
+	lda buf, y
+	jsr istoken
+	bcs forg_end
+	dey
+	sty scr_col
+forg_exit:
+	rts		; End of forg.
-- 
cgit v1.2.3-13-gbd6f