lovebyte: not enough time

demos/lovebyte2024/d2v/dont.s

@@ -5,6 +5,9 @@
 ; zero page locations
 GBASL		=	$26
 GBASH		=	$27
+H2		=	$2C
+V2		=	$2D
+COLOR		=	$30
 HGR_SCALE	=	$E7
 HGR_ROTATION	=	$F9
 

demos/lovebyte2024/d2v/dont2.s

@@ -10,6 +10,9 @@
 ; zero page locations
 GBASL		=	$26
 GBASH		=	$27
+H2		=	$2C
+V2		=	$2D
+COLOR		=	$30
 
 HGR_X		=	$E0
 HGR_Y		=	$E2
@@ -27,14 +30,14 @@ KEYRESET        =       $C010
 SET_TEXT        =       $C051
 
 
+; ROM locations
+
 HOME    = $FC58                 ; Clear the text screen
 TEXT    = $FB36
 HLINE   = $F819                 ; HLINE Y,$2C at A
 VLINE   = $F828                 ; VLINE A,$2D at Y
 
 
-
-; ROM locations
 HGR2		=	$F3D8
 HGR		=	$F3E2
 BKGND0          =       $F3F4
@@ -42,7 +45,7 @@ HPOSN		=	$F411
 XDRAW0		=	$F65D
 XDRAW1		=	$F661
 HPLOT0		=	$F457
-
+COUT1		=	$FDF0
 
 hposn_low	=	$6000
 hposn_high	=	$6100

demos/lovebyte2024/d2v/still.s

@@ -5,6 +5,88 @@ still:
 	jsr	HOME
 	bit	SET_TEXT
 
+;	HLINE   = $F819                 ; HLINE Y,$2C at A
+;	VLINE   = $F828                 ; VLINE A,$2D at Y
+
+	lda	#'*'|$80
+	sta	COLOR
+
+	lda	#39
+	sta	H2
+	lda	#0
+	tay
+	jsr	HLINE
+
+	; x=0, Y=39 after?
+	sty	H2
+	ldy	#0
+	lda	#46
+	jsr	HLINE
+	; x=0, y=39 after
+
+	lda	#46
+	sta	V2
+	lda	#0
+	tay
+	jsr	VLINE
+	; x=0,y=0
+	lda	#46
+	sta	V2
+	lda	#1
+	ldy	#18
+	jsr	VLINE
+	lda	#46
+	sta	V2
+	lda	#1
+	ldy	#39
+	jsr	VLINE
+
+	lda	#20
+	sta	$20
+	sta	$21
+	lda	#2
+	sta	$22
+
+	lda	#<opening
+	sta	INL
+	lda	#>opening
+	sta	INH
+
+	ldy	#0
+opening_loop:
+	lda	(INL),Y
+	beq	done_still
+	ora	#$80
+	jsr	COUT1
+	iny
+	bne	opening_loop	; bra
 
 done_still:
 	jmp	done_still
+
+opening:
+.byte	13
+.byte "       ,:/;=",13
+.byte "   ,X M@@M  HM@/",13
+.byte "  @@M MX. XXXH@@#/",13
+.byte " @@@X.       .    ;",13
+.byte "@  M/          +M@M",13
+.byte "@@M .          H @@",13
+.byte "/MMMH.         MM =",13
+.byte " .    .     -H @@M ",13
+.byte "  =MMM@MH +M@+ MX",13
+.byte "    ,++ .MMMM= ",0
+
+.if 0
+.byte	13
+.byte "       ,:/;=",13
+.byte "   ,X M@@M=-HM@/",13
+.byte "  @@M MX.-XXXH@@#/",13
+.byte " @@@X.       -H$%%;",13
+.byte "X/-M/          +M@M",13
+.byte "@@M,.          H @@",13
+.byte "/MMMH.         MM;=",13
+.byte " .----.     -H,@@M,",13
+.byte "  =MMM@MH.+M@+/MX",13
+.byte "    ,++,HMMMM==",0
+.endif