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/atmos/cpeekchar.s
+++ b/libsrc/atmos/cpeekchar.s
@@ -0,0 +1,36 @@
+
+	.include	"atmos.inc"
+
+.import _gotoxy
+.export _cpeekchar,_cpeekcharxy
+
+_cpeekcharxy:
+
+	jsr _gotoxy ; Will pop x parameter
+
+_cpeekchar:
+
+	ldy CURS_Y
+	ldx ScrTabLo,y
+	stx @l+1
+	ldx ScrTabHi,y
+	stx @l+2
+	ldx CURS_X
+@l:
+	lda $bb80,x
+;;	inc COORDX_TEXT
+	ldx #0
+	rts
+
+	; FIXME: is that table available elsewhere?
+.rodata
+ScrTabLo:
+        .repeat 28, Line
+                .byte   <(SCREEN + Line * 40)
+        .endrep
+
+ScrTabHi:
+        .repeat 28, Line
+                .byte   >(SCREEN + Line * 40)
+        .endrep
+