Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-10-18 01:24:51 +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) { asmsub disable_runstop_and_charsetswitch() clobbers(A) {
%asm {{ %asm {{
;; TODO c128 how to do this? lda #$80
;; lda #$80 sta 247 ; disable charset switching
;; sta 657 ; disable charset switching lda #112
;; lda #239 sta 808 ; disable run/stop key
;; sta 808 ; disable run/stop key
rts rts
}} }}
} }

5
examples/test.p8
View File

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