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

cleanup

Browse Source
This commit is contained in:
mrdudz
2022-07-24 03:59:19 +02:00
parent 74098077d3
commit 6dae5324dd
7 changed files with 26 additions and 174 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
libsrc/c128/cpeekcol.s
View File

@@ -1,67 +0,0 @@
.export _cpeekcol
.export _cpeekcolxy
.import _gotoxy
.include "c128.inc"
.segment "CODE"
_cpeekcolxy:
jsr _gotoxy ; Set cursor
_cpeekcol:
bit MODE
bmi @c80
ldy CURS_X
lda (CRAM_PTR),y ; get col
and #$0f
ldx #0
rts
@c80:
lda CRAM_PTR
ldy CRAM_PTR+1
clc
adc CURS_X
bcc @s
iny
@s:
; get byte from vdc mem
ldx #VDC_DATA_LO
stx VDC_INDEX
@L0: bit VDC_INDEX
bpl @L0
sta VDC_DATA
dex
;;tya
stx VDC_INDEX
sty VDC_DATA
ldx #VDC_DATA_RW
stx VDC_INDEX
@L1: bit VDC_INDEX
bpl @L1
lda VDC_DATA
and #$0f
; translate vdc->vic colour
vdctovic:
ldy #16
@L2: cmp $CE5C-1,y
beq @L3
dey
bne @L2
@L3:
dey
tya
ldx #0
rts

11
libsrc/c16/cpeekcol.s
View File

@@ -1,18 +1,11 @@
.export _cpeekcol
.export _cpeekcolxy
.import _gotoxy
.export _cpeekcolor
.include "c16.inc"
.segment "CODE"
_cpeekcolxy:
jsr _gotoxy ; Set cursor
_cpeekcol:
_cpeekcolor:
ldy CURS_X
lda (CRAM_PTR),y ; get color

23
libsrc/c64/cpeekcol.s
View File

@@ -1,21 +1,14 @@
.export _cpeekcol
.export _cpeekcolxy
.export _cpeekcolor
.import _gotoxy
.include "c64.inc"
.include "c64.inc"
.segment "CODE"
.segment "CODE"
_cpeekcolor:
_cpeekcolxy:
jsr _gotoxy ; Set cursor
_cpeekcol:
ldy CURS_X
lda (CRAM_PTR),y ; get color
and #$0f
ldy CURS_X
lda (CRAM_PTR),y ; get color
and #$0f
ldx #0
rts
rts

21
libsrc/c64/soft80_cpeekcol.s
View File

@@ -1,21 +0,0 @@
.export _cpeekcol
.export _cpeekcolxy
.import _gotoxy
.include "c64.inc"
.segment "CODE"
_cpeekcolxy:
jsr _gotoxy ; Set cursor
_cpeekcol:
ldy #0
lda (CRAM_PTR),y ; get char
and #$0f
ldx #0
rts

32
libsrc/cbm510/cpeekcol.s
View File

@@ -1,32 +0,0 @@
.export _cpeekcol
.export _cpeekcolxy
.import _gotoxy
.include "cbm510.inc"
.include "extzp.inc"
.segment "CODE"
_cpeekcolxy:
jsr _gotoxy ; Set cursor
_cpeekcol:
lda #0
ldx #0
rts
;; why the HELL doesnt this work ?!?
lda #$0F
ldy CURS_X
sei
ldx IndReg
sta IndReg
lda (CRAM_PTR),y ; get color
stx IndReg
cli
ldx #0
rts

23
libsrc/plus4/cpeekcol.s
View File

@@ -1,21 +1,14 @@
.export _cpeekcol
.export _cpeekcolxy
.export _cpeekcolor
.import _gotoxy
.include "plus4.inc"
.include "plus4.inc"
.segment "CODE"
.segment "CODE"
_cpeekcolor:
_cpeekcolxy:
jsr _gotoxy ; Set cursor
_cpeekcol:
ldy CURS_X
lda (CRAM_PTR),y ; get color
;and #$0f is this ok?
ldy CURS_X
lda (CRAM_PTR),y ; get color
;and #$0f is this ok?
ldx #0
rts
rts

23
libsrc/vic20/cpeekcol.s
View File

@@ -1,21 +1,14 @@
.export _cpeekcol
.export _cpeekcolxy
.export _cpeekcolor
.import _gotoxy
.include "vic20.inc"
.include "vic20.inc"
.segment "CODE"
.segment "CODE"
_cpeekcolor:
_cpeekcolxy:
jsr _gotoxy ; Set cursor
_cpeekcol:
ldy CURS_X
lda (CRAM_PTR),y ; get color
and #$0f
ldy CURS_X
lda (CRAM_PTR),y ; get color
and #$0f
ldx #0
rts
rts