trs80: fix silly bug

diff --git a/Kernel/platform-trs80/trs80.s b/Kernel/platform-trs80/trs80.s
index 1763d49..fc22d6d 100644 (file)
--- a/Kernel/platform-trs80/trs80.s
+++ b/Kernel/platform-trs80/trs80.s
@@ -83,7 +83,7 @@ ctcloop:    out (c), b                        ; register
            out (0x89), a               ; data
            inc hl
            dec b
-           jp po, ctcloop
+           jp p, ctcloop
 
            ; clear screen
            ld hl, #0xF800