added fixed files for c64/c16/plus4/vic20/pet

2017-06-17 03:46:53 +02:00
parent b523f070f3
commit dd14f15f94
11 changed files with 413 additions and 0 deletions
--- a/libsrc/plus4/cpeekchar.s
+++ b/libsrc/plus4/cpeekchar.s
@@ -0,0 +1,39 @@
+
+		.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
--- a/libsrc/plus4/cpeekcol.s
+++ b/libsrc/plus4/cpeekcol.s
@@ -0,0 +1,21 @@
+
+		.export _cpeekcol
+		.export _cpeekcolxy
+
+		.import _gotoxy
+
+		.include "plus4.inc"
+
+	.segment "CODE"
+
+_cpeekcolxy:
+
+	jsr	_gotoxy		; Set cursor
+
+_cpeekcol:
+
+   	ldy CURS_X
+	lda	(CRAM_PTR),y	; get color
+	;and #$0f is this ok?
+    ldx #0
+	rts