From dd54db97af4935f12a2778c364b7709a11e204c0 Mon Sep 17 00:00:00 2001 From: Pedro de Oliveira Date: Wed, 13 Aug 2014 00:53:03 +0100 Subject: [PATCH] aids --- zx-brainfuck/main.asm | 12 +++++++----- zx-brainfuck/main.tap | Bin 298 -> 365 bytes 2 files changed, 7 insertions(+), 5 deletions(-) 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 6d57007c3c2d5d083363ed32fa760a13df23d0d1..e74514b770e7af1499348e2396d6803f19da9d40 100644 GIT binary patch delta 251 zcmZ3*^p