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/cbm510/cpeekchar.s
+++ b/libsrc/cbm510/cpeekchar.s
@@ -0,0 +1,32 @@
+
+		.export _cpeekchar
+		.export _cpeekcharxy
+
+		.import _gotoxy
+
+		.include	"cbm510/cbm510.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
--- a/libsrc/cbm510/cpeekcol.s
+++ b/libsrc/cbm510/cpeekcol.s
@@ -0,0 +1,31 @@
+
+		.export _cpeekcol
+		.export _cpeekcolxy
+
+		.import _gotoxy
+
+		.include	"cbm510/cbm510.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