diff --git a/zx-brainfuck/main.asm b/zx-brainfuck/main.asm index b2290ec..c108b2f 100644 --- a/zx-brainfuck/main.asm +++ b/zx-brainfuck/main.asm @@ -13,8 +13,8 @@ OP_JMP_FWD equ "[" OP_JMP_BCK equ "]" ;brainfuck db "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.", 0 -brainfuck db "+++++++++++++++++++++++++++++++++.", 0 -;brainfuck db "++++[>++++++++++<-]>++.>+++++++++++++.<<++[>.<-]>>.<<+++[>.<-]>>.<<++++[>.<-]>>.<<+++++[>.<-]>>.", 0 +;brainfuck db "+++++++++++++++++++++++++++++++++.", 0 +brainfuck db "++++[>++++++++++<-]>++.>+++++++++++++.<<++[>.<-]>>.<<+++[>.<-]>>.<<++++[>.<-]>>.<<+++++[>.<-]>>.", 0 memory_pos db $0,$80 source_pos db $0 @@ -125,14 +125,16 @@ F_IN_LOOP jr continue F_JMP_FWD - ld d, h - ld e, l + ld a, (source_pos) + ld d, 0 + ld e, a push de jr continue F_JMP_BCK pop de - ld (memory_pos), hl + ld a, e + ld (source_pos), a jp read_bf end start diff --git a/zx-brainfuck/main.tap b/zx-brainfuck/main.tap index 6d57007..e74514b 100644 Binary files a/zx-brainfuck/main.tap and b/zx-brainfuck/main.tap differ