fix printing of shifted and vendor modified keys.
This commit is contained in:
1 parent
dd2200965d
commit
6dad8d491b
1 file changed
+25
-2
+25
-2
@@ -151,11 +151,34 @@ not_13:
|
|||||||
not_clearscreen:
|
not_clearscreen:
|
||||||
|
|
||||||
;; Convert PETSCII to screen code
|
;; Convert PETSCII to screen code
|
||||||
|
|
||||||
|
;; Unshifted letters
|
||||||
cmp #$40
|
cmp #$40
|
||||||
bcc chrout_l1
|
bcc not_lower
|
||||||
cmp #$41+26
|
cmp #$41+26
|
||||||
bcs chrout_l1
|
bcs not_lower
|
||||||
and #$1f
|
and #$1f
|
||||||
|
jmp chrout_l1
|
||||||
|
|
||||||
|
not_lower:
|
||||||
|
|
||||||
|
;; Shifted letters
|
||||||
|
cmp #$60
|
||||||
|
bcc not_upper
|
||||||
|
cmp #$60+26
|
||||||
|
bcs not_upper
|
||||||
|
sec
|
||||||
|
sbc #$20
|
||||||
|
|
||||||
|
jmp chrout_l1
|
||||||
|
|
||||||
|
not_upper:
|
||||||
|
cmp #$a0
|
||||||
|
bcc not_vendor
|
||||||
|
sec
|
||||||
|
sbc #$40
|
||||||
|
|
||||||
|
not_vendor:
|
||||||
|
|
||||||
chrout_l1:
|
chrout_l1:
|
||||||
;; Write normal character on the screen
|
;; Write normal character on the screen
|
||||||
|
|||||||
Reference in new issue
Block a user