Fix handling of charcodes 254 and 255, fixes issue #988
This commit is contained in:
@@ -62,10 +62,9 @@ cputdirect:
|
|||||||
; Handle character if high bit set
|
; Handle character if high bit set
|
||||||
|
|
||||||
L5: and #$7F
|
L5: and #$7F
|
||||||
cmp #$7E ; PI?
|
cmp #$7F ; PI?
|
||||||
bne L6
|
bne L6
|
||||||
lda #$5E ; Load screen code for PI
|
lda #$5E ; Load screen code for PI
|
||||||
bne cputdirect
|
|
||||||
L6: ora #$40
|
L6: ora #$40
|
||||||
bne cputdirect ; Branch always
|
bne cputdirect ; Branch always
|
||||||
|
|
||||||
|
|||||||
@@ -74,10 +74,9 @@ L5: inc CURS_Y
|
|||||||
; Handle character if high bit set
|
; Handle character if high bit set
|
||||||
|
|
||||||
L10: and #$7F
|
L10: and #$7F
|
||||||
cmp #$7E ; PI?
|
cmp #$7F ; PI?
|
||||||
bne L11
|
bne L11
|
||||||
lda #$5E ; Load screen code for PI
|
lda #$5E ; Load screen code for PI
|
||||||
bne cputdirect
|
|
||||||
L11: ora #$40
|
L11: ora #$40
|
||||||
bne cputdirect
|
bne cputdirect
|
||||||
|
|
||||||
|
|||||||
@@ -65,10 +65,9 @@ L3: sty CURS_X
|
|||||||
; Handle character if high bit set
|
; Handle character if high bit set
|
||||||
|
|
||||||
L10: and #$7F
|
L10: and #$7F
|
||||||
cmp #$7E ; PI?
|
cmp #$7F ; PI?
|
||||||
bne L11
|
bne L11
|
||||||
lda #$5E ; Load screen code for PI
|
lda #$5E ; Load screen code for PI
|
||||||
bne cputdirect
|
|
||||||
L11: ora #$40
|
L11: ora #$40
|
||||||
bne cputdirect ; Branch always
|
bne cputdirect ; Branch always
|
||||||
|
|
||||||
|
|||||||
@@ -73,10 +73,9 @@ L4: inc CURS_Y
|
|||||||
; Handle character if high bit set
|
; Handle character if high bit set
|
||||||
|
|
||||||
L10: and #$7F
|
L10: and #$7F
|
||||||
cmp #$7E ; PI?
|
cmp #$7F ; PI?
|
||||||
bne L11
|
bne L11
|
||||||
lda #$5E ; Load screen code for PI
|
lda #$5E ; Load screen code for PI
|
||||||
bne cputdirect
|
|
||||||
L11: ora #$40
|
L11: ora #$40
|
||||||
bne cputdirect ; Branch always
|
bne cputdirect ; Branch always
|
||||||
|
|
||||||
|
|||||||
@@ -74,10 +74,9 @@ L5: inc CURS_Y
|
|||||||
; Handle character if high bit set
|
; Handle character if high bit set
|
||||||
|
|
||||||
L10: and #$7F
|
L10: and #$7F
|
||||||
cmp #$7E ; PI?
|
cmp #$7F ; PI?
|
||||||
bne L11
|
bne L11
|
||||||
lda #$5E ; Load screen code for PI
|
lda #$5E ; Load screen code for PI
|
||||||
bne cputdirect
|
|
||||||
L11: ora #$40
|
L11: ora #$40
|
||||||
bne cputdirect
|
bne cputdirect
|
||||||
|
|
||||||
|
|||||||
@@ -95,10 +95,9 @@ L5: inc CURS_Y
|
|||||||
; Handle character if high bit set
|
; Handle character if high bit set
|
||||||
|
|
||||||
L10: and #$7F
|
L10: and #$7F
|
||||||
cmp #$7E ; PI?
|
cmp #$7F ; PI?
|
||||||
bne L11
|
bne L11
|
||||||
lda #$5E ; Load screen code for PI
|
lda #$5E ; Load screen code for PI
|
||||||
bne cputdirect
|
|
||||||
L11: ora #$40
|
L11: ora #$40
|
||||||
bne cputdirect
|
bne cputdirect
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user