Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-10-03 20:56:20 +00:00
Code Issues Projects Releases Wiki Activity

added txt.iso() to enable iso-charset on cx16

Browse Source
This commit is contained in:
Irmen de Jong 2022-01-18 21:35:29 +01:00
parent 3b59592110
commit 5237e55326
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/res/prog8lib/cx16/textio.p8
View File

@ -169,13 +169,18 @@ sub color2 (ubyte txtcol, ubyte bgcol) {
}
sub lowercase() {
cx16.screen_set_charset(3, 0) ; lowercase charset
cx16.screen_set_charset(3, 0) ; lowercase petscii charset
}
sub uppercase() {
cx16.screen_set_charset(2, 0) ; uppercase charset
cx16.screen_set_charset(2, 0) ; uppercase petscii charset
}
sub iso() {
cx16.screen_set_charset(1, 0) ; iso charset
}
asmsub scroll_left() clobbers(A, Y) {
; ---- scroll the whole screen 1 character to the left
; contents of the rightmost column are unchanged, you should clear/refill this yourself