From afcb3330709e357970a908e3396fe377f28a7222 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie
Date: Sun, 21 Nov 2021 15:56:53 -0800
Subject: Interrupt-driven keyboard input.

---
 mem/hello.pal | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

(limited to 'mem')

diff --git a/mem/hello.pal b/mem/hello.pal
index 989eff8..da1c711 100644
--- a/mem/hello.pal
+++ b/mem/hello.pal
@@ -1,8 +1,11 @@
+	*001
+	JMP I (INT)
 	*200
-START,	CLA CLL
+START,	ION
+	CLA CLL
 	TAD HELLO
-	DCA 10
-LOOP,	TAD I 10
+	DCA Z 10
+LOOP,	TAD I Z 10
 	SNA
 	JMP ECHO
 	TLS
@@ -10,13 +13,10 @@ LOOP,	TAD I 10
 	JMP .-1
 	CLA
 	JMP LOOP
-ECHO,	KSF
-	JMP .-1
-	KRB
-	TLS
-	TSF
-	JMP .-1
-	JMP ECHO
+ECHO,	CLA
+	TAD (1)
+	KIE
+	JMP .
 HELLO,	.
 	"H
 	"e
@@ -34,4 +34,11 @@ HELLO,	.
 	15
 	12
 	0
+	*300
+INT,	KRB
+	TLS
+	TSF
+	JMP .-1
+	ION
+	JMP I Z 000
 $
-- 
cgit v1.2.3