enable Z1, Z2 lowercase

This commit is contained in:
Peter Ferrie 2018-04-05 02:14:34 -07:00
parent b04c9a843d
commit c89442b9e9
2 changed files with 46 additions and 0 deletions

View File

@ -82,6 +82,7 @@ op_c7
eor #$a5
beq +
ldx #0
stx $301 ;uppercase
stx $303 ;no script
stx $304
dex
@ -132,6 +133,18 @@ op_c7
sta $1e38
sta $1e5e
lda $301
beq +
lda $bf98
bpl +
lda #0
sta $1bfb
lda #<casemap
sta $1c7c
lda #>casemap
sta $1c7d
+
lda $303
beq +
lda #<print
@ -358,6 +371,16 @@ xopen
sta cb_parms+1
rts
casemap
ldy $32
bmi +
cmp #$e1
bcc +
cmp #$fb
bcs +
and #$df
+ jmp $fdf0
c8_parms
!byte 3
!word gamename

View File

@ -82,6 +82,7 @@ op_c7
eor #$a5
beq +
ldx #0
stx $301 ;uppercase
stx $303 ;no script
stx $304
dex
@ -132,6 +133,18 @@ op_c7
sta $1e06
sta $1e2c
lda $301
beq +
lda $bf98
bpl +
lda #0
sta $1ba7
lda #<casemap
sta $1c4a
lda #>casemap
sta $1c4b
+
lda $303
beq +
lda #<print
@ -358,6 +371,16 @@ xopen
sta cb_parms+1
rts
casemap
ldy $32
bmi +
cmp #$e1
bcc +
cmp #$fb
bcs +
and #$df
+ jmp $fdf0
c8_parms
!byte 3
!word gamename