Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-27 12:29:24 +00:00
Code Issues Projects Releases Wiki Activity

correctly disable charset switching

Browse Source
This commit is contained in:
Irmen de Jong 2021-12-22 21:47:41 +01:00
parent a3be8ccc87
commit 3e3da38de1
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/res/prog8lib/c128/syslib.p8
View File

@ -313,11 +313,10 @@ asmsub init_system_phase2() {
asmsub disable_runstop_and_charsetswitch() clobbers(A) {
%asm {{
;; TODO c128 how to do this?
;; lda #$80
;; sta 657 ; disable charset switching
;; lda #239
;; sta 808 ; disable run/stop key
lda #$80
sta 247 ; disable charset switching
lda #112
sta 808 ; disable run/stop key
rts
}}
}

5
examples/test.p8
View File

@ -3,6 +3,7 @@
main {
sub start() {
str input = "?" * 20
c128.disable_basic()
txt.lowercase()
txt.print("Hello There! Enter Your Name: ")
void txt.input_chars(input)
@ -10,10 +11,6 @@ main {
repeat {
txt.print(input)
txt.spc()
sys.waitvsync()
sys.waitvsync()
sys.waitvsync()
sys.waitvsync()
}
}
}