fixed a few things, compiles again :)
This commit is contained in:
@@ -163,8 +163,13 @@ SID_Read3 := $D41C
|
||||
; ---------------------------------------------------------------------------
|
||||
; I/O: VDC (128 only)
|
||||
|
||||
VDC_INDEX := $D600
|
||||
VDC_DATA := $D601
|
||||
VDC_INDEX := $D600 ; VDC address
|
||||
VDC_DATA := $D601 ; VDC data
|
||||
|
||||
VDC_DATA_HI := 18
|
||||
VDC_DATA_LO := 19
|
||||
VDC_CSET := 28
|
||||
VDC_DATA_RW := 31
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; I/O: CIAs
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
.import mul40
|
||||
.importzp ptr4
|
||||
|
||||
.include "atari/atari.inc"
|
||||
.include "atari.inc"
|
||||
|
||||
.segment "CODE"
|
||||
|
||||
|
||||
@@ -8,7 +8,7 @@
|
||||
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "c128/c128.inc"
|
||||
.include "c128.inc"
|
||||
|
||||
.segment "CODE"
|
||||
|
||||
@@ -57,18 +57,18 @@ _cpeekchar:
|
||||
@s:
|
||||
; get byte from vdc mem
|
||||
ldx #VDC_DATA_LO
|
||||
stx VDC_ADDR_REG
|
||||
@L0: bit VDC_ADDR_REG
|
||||
stx VDC_INDEX
|
||||
@L0: bit VDC_INDEX
|
||||
bpl @L0
|
||||
sta VDC_DATA_REG
|
||||
sta VDC_DATA
|
||||
dex
|
||||
tya
|
||||
stx VDC_ADDR_REG
|
||||
sta VDC_DATA_REG
|
||||
stx VDC_INDEX
|
||||
sta VDC_DATA
|
||||
|
||||
ldx #VDC_DATA_RW
|
||||
stx VDC_ADDR_REG
|
||||
@L1: bit VDC_ADDR_REG
|
||||
stx VDC_INDEX
|
||||
@L1: bit VDC_INDEX
|
||||
bpl @L1
|
||||
lda VDC_DATA_REG
|
||||
lda VDC_DATA
|
||||
jmp @return
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
.import _gotoxy
|
||||
|
||||
.include "c128/c128.inc"
|
||||
.include "c128.inc"
|
||||
|
||||
.segment "CODE"
|
||||
|
||||
@@ -33,20 +33,20 @@ _cpeekcol:
|
||||
@s:
|
||||
; get byte from vdc mem
|
||||
ldx #VDC_DATA_LO
|
||||
stx VDC_ADDR_REG
|
||||
@L0: bit VDC_ADDR_REG
|
||||
stx VDC_INDEX
|
||||
@L0: bit VDC_INDEX
|
||||
bpl @L0
|
||||
sta VDC_DATA_REG
|
||||
sta VDC_DATA
|
||||
dex
|
||||
;;tya
|
||||
stx VDC_ADDR_REG
|
||||
sty VDC_DATA_REG
|
||||
stx VDC_INDEX
|
||||
sty VDC_DATA
|
||||
|
||||
ldx #VDC_DATA_RW
|
||||
stx VDC_ADDR_REG
|
||||
@L1: bit VDC_ADDR_REG
|
||||
stx VDC_INDEX
|
||||
@L1: bit VDC_INDEX
|
||||
bpl @L1
|
||||
lda VDC_DATA_REG
|
||||
lda VDC_DATA
|
||||
|
||||
|
||||
and #$0f
|
||||
|
||||
@@ -1,39 +0,0 @@
|
||||
|
||||
.export _cpeekchar
|
||||
.export _cpeekcharxy
|
||||
|
||||
.import _gotoxy
|
||||
|
||||
.include "cbm/cbm.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
|
||||
@@ -1,21 +0,0 @@
|
||||
|
||||
.export _cpeekcol
|
||||
.export _cpeekcolxy
|
||||
|
||||
.import _gotoxy
|
||||
|
||||
.include "cc65/conio.inc"
|
||||
|
||||
.segment "CODE"
|
||||
|
||||
_cpeekcolxy:
|
||||
|
||||
jsr _gotoxy ; Set cursor
|
||||
|
||||
_cpeekcol:
|
||||
|
||||
ldy CURS_X
|
||||
lda (CRAM_PTR),y ; get color
|
||||
and #$0f
|
||||
ldx #0
|
||||
rts
|
||||
@@ -3,8 +3,9 @@
|
||||
.export _cpeekcharxy
|
||||
|
||||
.import _gotoxy
|
||||
|
||||
.include "cbm510/cbm510.inc"
|
||||
|
||||
.include "cbm510.inc"
|
||||
.include "extzp.inc"
|
||||
|
||||
.segment "CODE"
|
||||
|
||||
|
||||
@@ -4,7 +4,8 @@
|
||||
|
||||
.import _gotoxy
|
||||
|
||||
.include "cbm510/cbm510.inc"
|
||||
.include "cbm510.inc"
|
||||
.include "extzp.inc"
|
||||
|
||||
.segment "CODE"
|
||||
|
||||
|
||||
@@ -4,7 +4,8 @@
|
||||
|
||||
.import _gotoxy
|
||||
|
||||
.include "cbm610/cbm610.inc"
|
||||
.include "cbm610.inc"
|
||||
.include "extzp.inc"
|
||||
|
||||
.segment "CODE"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user