From 91f2a0ce59c888985bb85eda6740abb2f116f65a Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sun, 17 Nov 2024 14:01:44 -0500
Subject: [PATCH] the graphical shell was missing support for the _QADrawStrL /
 _QAErrDrawStrL vectors.

---
 src/shell/qasm2.s | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/src/shell/qasm2.s b/src/shell/qasm2.s
index 33e5676..7e87ff6 100644
--- a/src/shell/qasm2.s
+++ b/src/shell/qasm2.s
@@ -101,6 +101,39 @@ pblkz
  REP #$30
  bra pstr2
 
+
+*------------------------------------------------------
+pstrl ENT ;print a GS/OS String
+ clc
+ hex 24
+pestrl ENT ;error entry
+ sec
+
+ phb
+ phk ;need our bank
+ plb
+ phd
+ pha
+ lda myDP ;need our DP
+ tcd
+ pla
+ sax Ptr ;point to CString
+ lda [Ptr] ; length
+ tay
+
+ php ; save carry
+ clc
+ lda Ptr
+ adc #2
+ sta Ptr
+ lda Ptr+2
+ adc #0
+ sta Ptr+2
+ plp
+ bra pstr2
+
+
+
 *------------------------------------------------------
 pstr ENT ;print a PString
  clc
@@ -440,10 +473,14 @@ GrafVectors ENT
  ~QASetVector #1;#pchr
  ~QASetVector #2;#pstr ;set vectors for text output
  ~QASetVector #5;#pblk
+ ~QASetVector #20;#pstrl
  ~QASetVector #3;#pechr
  ~QASetVector #4;#pestr ;set error vectors for text output
  ~QASetVector #6;#peblk
+ ~QASetVector #21;#pestrl
+
  ~QASetVector #14;#pt2c
+
  rts
 
 *======================================================