From 68e517b3a0d0ddd8efc16c5c396e37a3bfa94975 Mon Sep 17 00:00:00 2001 From: Alan Cox Date: Mon, 13 Aug 2018 00:37:35 +0100 Subject: [PATCH] trs80m1: make the lower case status C visible --- Kernel/platform-trs80m1/vtsupport.s | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Kernel/platform-trs80m1/vtsupport.s b/Kernel/platform-trs80m1/vtsupport.s index c1a87aa2..ab450160 100644 --- a/Kernel/platform-trs80m1/vtsupport.s +++ b/Kernel/platform-trs80m1/vtsupport.s @@ -9,7 +9,7 @@ .globl _vtswap .globl vtbufinit .globl _vtbase - + .globl _video_lower .globl _curtty .globl _cursor_off @@ -31,7 +31,7 @@ _vtbackbuf: _vtbase: .dw 0x3C00 .dw _vtbackbuf -video_lower: +_video_lower: .db 1 ; Assume we have lower case .area _CODE2 @@ -61,7 +61,7 @@ vtbufinit: cp (hl) jr z, have_lower xor a - ld (video_lower),a + ld (_video_lower),a have_lower: ld (hl),#32 ld hl,#_vtbackbuf @@ -137,7 +137,7 @@ _plot_char: push hl push ix call addr - ld a,(video_lower) ; hot path, maybe we should runtime + ld a,(_video_lower) ; hot path, maybe we should runtime or a ; patch jr nz, plot_lower ; -- 2.34.1