falso
/
z80
mirror of https://github.com/falsovsky/z80.git
1
0
Fork 0
Code Issues Releases Wiki Activity

zbr

This commit is contained in:
Pedro de Oliveira 2014-08-12 08:18:58 +01:00
parent c782f5f7fe
commit f759db4d2c
2 changed files with 19 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scroller2/clear.asm → scroller2/limpa.asm
View File

@ -31,7 +31,7 @@ screen_attribute equ $47
; Valor de 0 a 7
border_color equ $0
clear_screen
limpa_ecra
ld a, screen_attribute
ld (attr_p), a ; Variavel de sistema que permite definir
; o ink, paper, brightness e flash

38
scroller2/main.asm
View File

@ -1,8 +1,8 @@
org 30000
tv_flag equ $5c3c ; Endereço que contem flags da tv
last_k equ $5c08 ; Contem a ultima tecla pressionada
LINHA10 equ $4840
tv_flag equ $5c3c ; Variavel das flags da tv
last_k equ $5c08 ; Variavel que contem a ultima tecla usada
LINHA10 equ $4840 ; Endereço da linha 10 na Memoria Video
o_barbas db 22,9,0, 16,6, "o_barbas disse:", 255
scroll_udg db $8 ; Numero de pixeis já scrollados no UDG#1
@ -11,21 +11,19 @@ scroll_udg db $8 ; Numero de pixeis já scrollados no UDG#1
start
xor a ; O mesmo que LD a, 0
ld (tv_flag), a ; Directs rst 10h output to main screen.
push bc ; Parece que é algum standard guardar o BC
; na stack, e tirar no fim do programa.
ld (tv_flag), a ; Faz com que o rst $10 envie output pra tv
push bc ; Guarda BC na stack
call clear_screen ; Limpa o ecrã
call limpa_ecra ; Limpa o ecrã
ld hl, o_barbas ; Le para HL o endereço da string a printar
printa_ate_255
printa_string
ld a,(hl) ; Le para A o valor que esta no endereço em HL
cp $ff ; Se for 255...
jr z, main_loop ; então já se imprimiu tudo e é para sair
rst $10
inc hl ; Incrementa o valor de HL
; Passa a ter o endereço do proximo caracater da str
jr printa_ate_255 ; Volta ao inicio da rotina
inc hl ; Incrementa a posição na string
jr printa_string ; Volta ao inicio da rotina
main_loop
ld a, $0
@ -33,32 +31,32 @@ main_loop
ld a, (scroll_udg) ; Le o numero de pixeis já scrollados no UDG#1
cp $8 ; São 8?
jr nz, main_loop_scroll ; Não..
jr nz, main_loop_scroll ; Não? salta
call obtem_proxima_letra ; Sim, manda meter uma nova letra em UDG#1
ld a, 0
ld (scroll_udg), a ; 0 pixeis ainda scrollados no novo UDG#1
ld (scroll_udg), a ; Reseta o numero de pixeis scrollados no UDG#1
main_loop_scroll
ld hl, LINHA10
call scroll_esquerda ; Scrolla a linha 10
ld a, (scroll_udg) ; Incrementa o numero de pixeis já scrollados
inc a ; no UDG#1
ld a, (scroll_udg)
inc a ; Incrementa o numero de pixeis já scrollados
ld (scroll_udg), a
ld a, $1
call delay ; Chama a rotina de delay(1)
ld a, (last_k) ; Se o valor da ultima tecla pressionada ainda
cp $0 ; for 0, é porque ainda não se pressionou nenhuma
jr Z, main_loop ; tecla, por isso... repete
cp $0 ; for 0, é porque ainda não se pressionou nenhuma,
jr Z, main_loop ; por isso... repete
exit
pop bc ; Tira o BC da Stack
pop bc ; Tira o BC da stack
ret ; Sai para o BASIC
INCLUDE "delay.asm"
INCLUDE "clear.asm"
INCLUDE "limpa.asm"
INCLUDE "texto.asm"
INCLUDE "scroll.asm"