initial commit from old source

2016-02-28 22:23:40 +01:00
parent 25f4482641
commit dd2972d699
10 changed files with 426 additions and 0 deletions
--- a/libsrc/c128/cpeekcol.s
+++ b/libsrc/c128/cpeekcol.s
@@ -0,0 +1,67 @@
+
+		.export _cpeekcol
+		.export _cpeekcolxy
+
+		.import _gotoxy
+
+		.include	"c128/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_ADDR_REG
+@L0:	bit	VDC_ADDR_REG
+	bpl	@L0
+	sta	VDC_DATA_REG
+	dex
+	;;tya
+	stx	VDC_ADDR_REG
+	sty	VDC_DATA_REG
+
+	ldx	#VDC_DATA_RW
+	stx	VDC_ADDR_REG
+@L1:	bit	VDC_ADDR_REG
+	bpl	@L1
+	lda	VDC_DATA_REG
+
+
+	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