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

"," implementado

This commit is contained in:
Pedro de Oliveira 2014-08-12 21:05:07 +01:00
parent 867a6bfbe0
commit efab5a3ef0
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scroller1/main.asm
View File

@ -65,7 +65,7 @@ mainloop
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, mainloop ; tecla, por isso... repete
jr z, mainloop ; tecla, por isso... repete
exit
pop bc ; Tira o BC da Stack

16
zx-brainfuck/main.asm
View File

@ -1,6 +1,7 @@
org 30000
tv_flag equ $5c3c ; Variavel das flags da tv
last_k equ $5c08 ; Contem a ultima tecla pressionada
OP_INC_DP equ $3e
OP_DEC_DP equ $3c
@ -49,6 +50,10 @@ read_bf
; .
cp OP_OUT
jr z, F_OUT
; ,
cp OP_IN
jr z, F_IN
continue
pop hl
@ -92,4 +97,15 @@ F_OUT
ld (hl), a
jr continue
F_IN
ld a, $0
ld (last_k), a ; Limpa o valor da ultima tecla pressionada
F_IN_LOOP
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, F_IN_LOOP ; tecla, por isso... repete
ld hl, (memory_pos)
ld (hl), a
jr continue
end start