mirror of
https://github.com/cc65/cc65.git
synced 2024-09-30 08:57:49 +00:00
some cleanup
This commit is contained in:
parent
142ba12634
commit
f207a60365
@ -1,3 +1,8 @@
|
|||||||
|
;
|
||||||
|
; 2017-12-28, Groepaz
|
||||||
|
;
|
||||||
|
; char cpeekc (void);
|
||||||
|
;
|
||||||
|
|
||||||
.export soft80_cpeekc, soft80_cpeekchar
|
.export soft80_cpeekc, soft80_cpeekchar
|
||||||
|
|
||||||
@ -16,8 +21,6 @@ soft80_cpeekc:
|
|||||||
soft80_cpeekchar:
|
soft80_cpeekchar:
|
||||||
|
|
||||||
sei
|
sei
|
||||||
;;dec $01 ;; assumed = $36
|
|
||||||
;;dec $01 ;; assumed = $36
|
|
||||||
lda #$34
|
lda #$34
|
||||||
sta $01
|
sta $01
|
||||||
|
|
||||||
@ -32,37 +35,24 @@ soft80_cpeekchar:
|
|||||||
@l2aa:
|
@l2aa:
|
||||||
ldy #0
|
ldy #0
|
||||||
|
|
||||||
;; stx $d020
|
|
||||||
|
|
||||||
.repeat 8,line
|
.repeat 8,line
|
||||||
;; jsr readdirect
|
|
||||||
lda (SCREEN_PTR),y
|
lda (SCREEN_PTR),y
|
||||||
and #$f0
|
and #$f0
|
||||||
; sta $e100,y
|
|
||||||
cmp soft80_hi_charset+(line*$80),x
|
cmp soft80_hi_charset+(line*$80),x
|
||||||
; cmp #0
|
|
||||||
bne @l2b
|
bne @l2b
|
||||||
.if (line < 7)
|
.if (line < 7)
|
||||||
iny
|
iny
|
||||||
.endif
|
.endif
|
||||||
.endrepeat
|
.endrepeat
|
||||||
|
|
||||||
|
|
||||||
@backok:
|
@backok:
|
||||||
;inc $d020
|
|
||||||
; inc $01
|
|
||||||
; inc $01
|
|
||||||
lda #$36
|
lda #$36
|
||||||
sta $01
|
sta $01
|
||||||
cli
|
cli
|
||||||
txa ; return char in A
|
txa ; return char in A
|
||||||
; sec
|
|
||||||
; sbc #$20
|
|
||||||
ldx #$00 ; revers flag
|
ldx #$00 ; revers flag
|
||||||
;inc $d020
|
|
||||||
rts
|
rts
|
||||||
@l2b:
|
@l2b:
|
||||||
;jmp *
|
|
||||||
inx
|
inx
|
||||||
cpx #$80
|
cpx #$80
|
||||||
jne @l2aa
|
jne @l2aa
|
||||||
@ -73,15 +63,11 @@ soft80_cpeekchar:
|
|||||||
@l2aa2:
|
@l2aa2:
|
||||||
ldy #0
|
ldy #0
|
||||||
|
|
||||||
;; stx $d020
|
|
||||||
|
|
||||||
.repeat 8,line
|
.repeat 8,line
|
||||||
;; jsr readdirect
|
|
||||||
lda (SCREEN_PTR),y
|
lda (SCREEN_PTR),y
|
||||||
and #$f0
|
and #$f0
|
||||||
eor #$f0
|
eor #$f0
|
||||||
cmp soft80_hi_charset+(line*$80),x
|
cmp soft80_hi_charset+(line*$80),x
|
||||||
; cmp #0
|
|
||||||
bne @l2b2
|
bne @l2b2
|
||||||
.if (line < 7)
|
.if (line < 7)
|
||||||
iny
|
iny
|
||||||
@ -89,17 +75,11 @@ soft80_cpeekchar:
|
|||||||
.endrepeat
|
.endrepeat
|
||||||
|
|
||||||
@backokrevers:
|
@backokrevers:
|
||||||
;inc $d020
|
|
||||||
; inc $01
|
|
||||||
; inc $01
|
|
||||||
lda #$36
|
lda #$36
|
||||||
sta $01
|
sta $01
|
||||||
cli
|
cli
|
||||||
txa ; return char in A
|
txa ; return char in A
|
||||||
; sec
|
|
||||||
; sbc #$20
|
|
||||||
ldx #$01 ; revers flag
|
ldx #$01 ; revers flag
|
||||||
;inc $d020
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@l2b2:
|
@l2b2:
|
||||||
@ -108,15 +88,11 @@ soft80_cpeekchar:
|
|||||||
jne @l2aa2
|
jne @l2aa2
|
||||||
|
|
||||||
@backerr:
|
@backerr:
|
||||||
;inc $d020
|
|
||||||
;; inc $01
|
|
||||||
;; inc $01
|
|
||||||
lda #$36
|
lda #$36
|
||||||
sta $01
|
sta $01
|
||||||
cli
|
cli
|
||||||
ldx #0
|
ldx #0
|
||||||
txa
|
txa
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; test non-inverted character (right side)
|
; test non-inverted character (right side)
|
||||||
@ -126,7 +102,6 @@ soft80_cpeekchar:
|
|||||||
@l1aa:
|
@l1aa:
|
||||||
ldy #0
|
ldy #0
|
||||||
.repeat 8,line
|
.repeat 8,line
|
||||||
;; jsr readdirect
|
|
||||||
lda (SCREEN_PTR),y
|
lda (SCREEN_PTR),y
|
||||||
and #$0f
|
and #$0f
|
||||||
eor soft80_lo_charset+(line*$80),x
|
eor soft80_lo_charset+(line*$80),x
|
||||||
@ -147,7 +122,6 @@ soft80_cpeekchar:
|
|||||||
@l1aa2:
|
@l1aa2:
|
||||||
ldy #0
|
ldy #0
|
||||||
.repeat 8,line
|
.repeat 8,line
|
||||||
;; jsr readdirect
|
|
||||||
lda (SCREEN_PTR),y
|
lda (SCREEN_PTR),y
|
||||||
and #$0f
|
and #$0f
|
||||||
eor #$0f
|
eor #$0f
|
||||||
@ -163,6 +137,5 @@ soft80_cpeekchar:
|
|||||||
cpx #$80
|
cpx #$80
|
||||||
bne @l1aa2
|
bne @l1aa2
|
||||||
|
|
||||||
|
|
||||||
jmp @backerr
|
jmp @backerr
|
||||||
|
|
||||||
|
@ -1,3 +1,8 @@
|
|||||||
|
;
|
||||||
|
; 2017-12-28, Groepaz
|
||||||
|
;
|
||||||
|
; unsigned char cpeekrevers (void);
|
||||||
|
;
|
||||||
|
|
||||||
.import soft80_cpeekchar
|
.import soft80_cpeekchar
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user