trs80: CRTC reg 0 was not being set

Backported from Microbee port

diff --git a/Kernel/platform-trs80/trs80.s b/Kernel/platform-trs80/trs80.s
index 7a77176..3d73c1d 100644 (file)
--- a/Kernel/platform-trs80/trs80.s
+++ b/Kernel/platform-trs80/trs80.s
@@ -78,12 +78,13 @@ init_early:
 
             ; load the 6845 parameters
            ld hl, #_ctc6845
-           ld bc, #1588
+           ld bc, #0x1088
 ctcloop:    out (c), b                 ; register
            ld a, (hl)
            out (0x89), a               ; data
            inc hl
-           djnz ctcloop
+           dec b
+           jr nc, ctcloop
 
            ; clear screen
            ld hl, #0xF800