Apple-2-SW/qasm
1
0
Fork 0
mirror of https://github.com/marketideas/qasm.git synced 2024-12-28 06:29:58 +00:00
Code Issues Projects Releases Wiki Activity

the graphical shell was missing support for the _QADrawStrL / _QAErrDrawStrL vectors.

Browse Source
This commit is contained in:
Kelvin Sherlock 2024-11-17 14:01:44 -05:00
parent e687507a3b
commit 91f2a0ce59
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/shell/qasm2.s
View File

@ -101,6 +101,39 @@ pblkz
REP #$30 REP #$30
bra pstr2 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 pstr ENT ;print a PString
clc clc
@ -440,10 +473,14 @@ GrafVectors ENT
~QASetVector #1;#pchr ~QASetVector #1;#pchr
~QASetVector #2;#pstr ;set vectors for text output ~QASetVector #2;#pstr ;set vectors for text output
~QASetVector #5;#pblk ~QASetVector #5;#pblk
~QASetVector #20;#pstrl
~QASetVector #3;#pechr ~QASetVector #3;#pechr
~QASetVector #4;#pestr ;set error vectors for text output ~QASetVector #4;#pestr ;set error vectors for text output
~QASetVector #6;#peblk ~QASetVector #6;#peblk
~QASetVector #21;#pestrl
~QASetVector #14;#pt2c ~QASetVector #14;#pt2c
rts rts
*====================================================== *======================================================