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

aids

This commit is contained in:
Pedro de Oliveira 2014-08-13 00:53:03 +01:00
parent 6dec8e8081
commit dd54db97af
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
zx-brainfuck/main.asm
View File

@ -13,8 +13,8 @@ OP_JMP_FWD equ "["
OP_JMP_BCK equ "]" OP_JMP_BCK equ "]"
;brainfuck db "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.", 0 ;brainfuck db "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.", 0
brainfuck db "+++++++++++++++++++++++++++++++++.", 0 ;brainfuck db "+++++++++++++++++++++++++++++++++.", 0
;brainfuck db "++++[>++++++++++<-]>++.>+++++++++++++.<<++[>.<-]>>.<<+++[>.<-]>>.<<++++[>.<-]>>.<<+++++[>.<-]>>.", 0 brainfuck db "++++[>++++++++++<-]>++.>+++++++++++++.<<++[>.<-]>>.<<+++[>.<-]>>.<<++++[>.<-]>>.<<+++++[>.<-]>>.", 0
memory_pos db $0,$80 memory_pos db $0,$80
source_pos db $0 source_pos db $0
@ -125,14 +125,16 @@ F_IN_LOOP
jr continue jr continue
F_JMP_FWD F_JMP_FWD
ld d, h ld a, (source_pos)
ld e, l ld d, 0
ld e, a
push de push de
jr continue jr continue
F_JMP_BCK F_JMP_BCK
pop de pop de
ld (memory_pos), hl ld a, e
ld (source_pos), a
jp read_bf jp read_bf
end start end start

BIN
zx-brainfuck/main.tap
View File

Binary file not shown.