diff --git a/demos/lovebyte2024/d2v/dont.s b/demos/lovebyte2024/d2v/dont.s index 38f798c4..572bb411 100644 --- a/demos/lovebyte2024/d2v/dont.s +++ b/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 diff --git a/demos/lovebyte2024/d2v/dont2.s b/demos/lovebyte2024/d2v/dont2.s index 913726ac..65420ea1 100644 --- a/demos/lovebyte2024/d2v/dont2.s +++ b/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 diff --git a/demos/lovebyte2024/d2v/still.s b/demos/lovebyte2024/d2v/still.s index ae8b4a43..5c6aada0 100644 --- a/demos/lovebyte2024/d2v/still.s +++ b/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 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