Add mono conio files

2022-04-18 11:59:06 +03:00
parent 9fecf0b2cc
commit 4fc1270110
6 changed files with 2656 additions and 0 deletions
--- a/libsrc/atari7800/mono_clrscr.s
+++ b/libsrc/atari7800/mono_clrscr.s
@@ -0,0 +1,39 @@
+
+        .include        "atari7800.inc"
+
+        .export _mono_clrscr
+
+	.import	_screen
+	.import	pusha0,pushax
+	.include "extzp.inc"
+
+	.code
+
+	.proc _mono_clrscr
+
+	lda	#<_screen
+	ldx	#>_screen
+	sta	ptr7800
+	stx	ptr7800+1
+	ldx	#screenrows
+@L1:	ldy	#mono_charsperline
+	lda	#0
+@L2:	sta	(ptr7800),y
+	dey
+	bne	@L2
+	lda	ptr7800
+	clc
+	adc	#mono_charsperline
+	bcc	@L3
+	inc	ptr7800+1
+@L3:	dex
+	bne	@L1
+	rts
+
+	.endproc
+
+;-------------------------------------------------------------------------------
+; force the init constructor to be imported
+
+                .import mono_initconio
+conio_init      = mono_initconio