This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/c128/conio.s

@@ -0,0 +1,50 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; Low level stuff for screen output/console input
+;
+
+   	.export		initconio, doneconio
+	.exportzp	CURS_X, CURS_Y
+	.import		xsize, ysize
+
+	.include	"c128.inc"
+	.include	"../cbm/cbm.inc"
+
+.bss
+keyvec:	.res	2
+
+
+.code
+
+initconio:
+   	jsr	SCREEN
+	inx
+   	stx	xsize
+	iny
+   	sty	ysize
+
+; Save the old vector
+
+	lda	KeyStoreVec
+	sta	keyvec
+	lda	KeyStoreVec+1
+	sta	keyvec+1
+
+; Set the new vector. I can only hope that this works for other C128
+; versions...
+
+	lda	#<$C6B7
+	ldx	#>$C6B7
+
+SetVec:	sei
+	sta	KeyStoreVec
+	stx	KeyStoreVec+1
+	cli
+	rts
+
+doneconio:
+	lda	keyvec
+	ldx	keyvec+1
+	bne	SetVec
+