Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Graphical shell _QA[Err]DrawStrL vectors #66

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Graphical shell _QA[Err]DrawStrL vectors #66

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
37 changes: 37 additions & 0 deletions src/shell/qasm2.s
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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

*======================================================
Expand Down