Interrupt-driven keyboard input.

1 files changed, 17 insertions, 10 deletions

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
 $