From 95913c47b5e6236ca9691334f05b696650e967bc Mon Sep 17 00:00:00 2001
From: giomba <giomba@glgprograms.it>
Date: Thu, 28 Sep 2023 20:23:47 +0200
Subject: [PATCH] Effetti speciali tramite la glue ROM.

---
 main.asm | 109 ++++++++++++++++++++++++++++++++++++-------------------
 1 file changed, 72 insertions(+), 37 deletions(-)

diff --git a/main.asm b/main.asm
index 89dfd46..7ff6561 100644
--- a/main.asm
+++ b/main.asm
@@ -6,48 +6,83 @@ putstr = $c01b
 
 PUBLIC _main
 _main:
-    in      a,($81)
-    set     0,a
+    ; "CIAO" vertical stretch
+    ld      a,$43
+    ld      ($d000),a
+    ld      ($d050),a
+    ld      a,$49
+    ld      ($d001),a
+    ld      ($d051),a
+    ld      a,$41
+    ld      ($d002),a
+    ld      ($d052),a
+    ld      a,$4f
+    ld      ($d003),a
+    ld      ($d053),a
+
+    ld      a,$80
     out     ($81),a
 
-    ld      a,($42)
-    ld      ($d0a0),a
+    ld      a,$60
+    ld      ($d000),a
+    ld      ($d001),a
+    ld      ($d002),a
+    ld      ($d003),a
+    ld      a,$70
+    ld      ($d050),a
+    ld      ($d051),a
+    ld      ($d052),a
+    ld      ($d053),a
+
+    ld      a,$00
+    out     ($81),a
+
+    ; "PIPPO" with blinking underline
+    ld      a,$50
+    ld      ($d010),a
+    ld      a,$49
+    ld      ($d011),a
+    ld      a,$50
+    ld      ($d012),a
+    ld      a,$50
+    ld      ($d013),a
+    ld      a,$4f
+    ld      ($d014),a
+
+    ld      a,$80
+    out     ($81),a
+
+    ld      a,$20
+    ld      ($d010),a
+    ld      ($d011),a
+    ld      ($d012),a
+    ld      ($d013),a
+    ld      ($d014),a
+
+    ld      a,$00
+    out     ($81),a
+
+    ; "ABC" underline and overline
+    ld      a,$41
+    ld      ($d020),a
+    ld      a,$42
+    ld      ($d021),a
+    ld      a,$43
+    ld      ($d022),a
+
+    ld      a,$80
+    out     ($81),a
+
+    ld      a,$50
+    ld      ($d020),a
+    ld      ($d021),a
+    ld      ($d022),a
+
+    ld      a,$00
+    out     ($81),a
 
     jp      ASMPC
 
-
-    ld      a,$40
-    ld      ($d77f),a
-
-    ld      hl,613
-main_loop:
-    push    hl
-    call    putstr
-    BYTE    "abc"
-    BYTE    "\0"
-    pop     hl
-    dec     hl
-    ld      a,l
-    or      h
-    jp      nz,main_loop
-
-back:
-    call    uart_rx
-    cp      $61
-    jp      z,log
-    ld      c,a
-    call    putchar
-    jp      back
-
-    jp      ASMPC
-
-log:
-    ld      a,($ffd5)
-    call    prhex
-    ld      a,($ffd4)
-    call    prhex
-    jp      back
-
 delay:
     push    de
     ld      de,$0000