giomba/ceda-code-experiments
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Effetti speciali tramite la glue ROM.

Browse Source
This commit is contained in:
giomba 2023-09-28 20:23:47 +02:00
parent c9024ce25a
commit 95913c47b5
1 changed files with 72 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
main.asm
View File

@ -6,48 +6,83 @@ putstr = $c01b
PUBLIC _main PUBLIC _main
_main: _main:
in a,($81) ; "CIAO" vertical stretch
set 0,a 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 out ($81),a
ld a,($42) ld a,$60
ld ($d0a0),a 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 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: delay:
push de push de
ld de,$0000 ld de,$0000