bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
mrdudz
2022-07-24 04:54:34 +02:00
parent d40def3d2d
commit 193b7b9ee7
6 changed files with 0 additions and 228 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
libsrc/c16/cpeekchar.s
View File

@@ -1,39 +0,0 @@
.export _cpeekchar
.export _cpeekcharxy
.import _gotoxy
.include "c16.inc"
.segment "CODE"
_cpeekcharxy:
jsr _gotoxy ; Set cursor
_cpeekchar:
ldy CURS_X
lda (SCREEN_PTR),y ; get char
ldx #0
and #$7f
; 0 - $1f +$40
; $20 - $3f
; $40 - $7e +$80
cmp #$1f
bcs @sk1
;; clc
adc #$40
rts
@sk1:
cmp #$40
bcc @end
clc
adc #$80
@end:
rts

39
libsrc/c64/cpeekchar.s
View File

@@ -1,39 +0,0 @@
.export _cpeekchar
.export _cpeekcharxy
.import _gotoxy
.include "c64.inc"
.segment "CODE"
_cpeekcharxy:
jsr _gotoxy ; Set cursor
_cpeekchar:
ldy CURS_X
lda (SCREEN_PTR),y ; get char
ldx #0
and #$7f
; 0 - $1f +$40
; $20 - $3f
; $40 - $7e +$80
cmp #$1f
bcs @sk1
;; clc
adc #$40
rts
@sk1:
cmp #$40
bcc @end
clc
adc #$80
@end:
rts

33
libsrc/cbm510/cpeekchar.s
View File

@@ -1,33 +0,0 @@
.export _cpeekchar
.export _cpeekcharxy
.import _gotoxy
.include "cbm510.inc"
.include "extzp.inc"
.segment "CODE"
_cpeekcharxy:
jsr _gotoxy ; Set cursor
_cpeekchar:
lda #0
ldx #0
rts
;; ?!?!
ldx IndReg
ldy #$0F
sty IndReg
ldy CURS_X
lda (SCREEN_PTR),y ; get char
stx IndReg
ldx #0
rts

39
libsrc/pet/cpeekchar.s
View File

@@ -1,39 +0,0 @@
.export _cpeekchar
.export _cpeekcharxy
.import _gotoxy
.include "pet.inc"
.segment "CODE"
_cpeekcharxy:
jsr _gotoxy ; Set cursor
_cpeekchar:
ldy CURS_X
lda (SCREEN_PTR),y ; get char
ldx #0
and #$7f
; 0 - $1f +$40
; $20 - $3f
; $40 - $7e +$80
cmp #$1f
bcs @sk1
;; clc
adc #$40
rts
@sk1:
cmp #$40
bcc @end
clc
adc #$80
@end:
rts

39
libsrc/plus4/cpeekchar.s
View File

@@ -1,39 +0,0 @@
.export _cpeekchar
.export _cpeekcharxy
.import _gotoxy
.include "plus4.inc"
.segment "CODE"
_cpeekcharxy:
jsr _gotoxy ; Set cursor
_cpeekchar:
ldy CURS_X
lda (SCREEN_PTR),y ; get char
ldx #0
and #$7f
; 0 - $1f +$40
; $20 - $3f
; $40 - $7e +$80
cmp #$1f
bcs @sk1
;; clc
adc #$40
rts
@sk1:
cmp #$40
bcc @end
clc
adc #$80
@end:
rts

39
libsrc/vic20/cpeekchar.s
View File

@@ -1,39 +0,0 @@
.export _cpeekchar
.export _cpeekcharxy
.import _gotoxy
.include "vic20.inc"
.segment "CODE"
_cpeekcharxy:
jsr _gotoxy ; Set cursor
_cpeekchar:
ldy CURS_X
lda (SCREEN_PTR),y ; get char
ldx #0
and #$7f
; 0 - $1f +$40
; $20 - $3f
; $40 - $7e +$80
cmp #$1f
bcs @sk1
;; clc
adc #$40
rts
@sk1:
cmp #$40
bcc @end
clc
adc #$80
@end:
rts