From 0d7ab1ec70914e2945d0f2530f0999ecea8828fd Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Sat, 22 Jun 2024 17:49:52 -0500 Subject: Improve octedit usability New features: - Displays current address - Press 'B' to go back --- octedit/octedit.s | 45 ++++++++++++++++++++++++++++++++++----------- 1 file changed, 34 insertions(+), 11 deletions(-) (limited to 'octedit/octedit.s') diff --git a/octedit/octedit.s b/octedit/octedit.s index 9445fd8..7d9e7f4 100644 --- a/octedit/octedit.s +++ b/octedit/octedit.s @@ -11,24 +11,47 @@ octedit: ldr r6, =SRAM_BASE adds r5, r6, 1 10: - movs r4, 0 + movs r4, 11 + movs r0, 0x1E + rors r6, r0 + movs r0, 0x01 + b 1f +0: + movs r0, 0x1D + rors r6, r0 + movs r0, 0x07 +1: + ands r0, r6 + adds r0, 0x30 + bl uart_send + subs r4, 1 + bne 0b + movs r0, ' + bl uart_send 20: bl uart_recv cmp r0, '\r - beq 30f - cmp r0, 'G - beq 40f - bl uart_send - subs r0, '0 - lsls r4, 3 - adds r4, r0 - b 20b -30: + bne 30f bl uart_send movs r0, '\n bl uart_send strh r4, [r6] adds r6, 2 b 10b -40: +30: + cmp r0, 'G + bne 40f bx r5 +40: + cmp r0, 'B + bne 50f + movs r0, '\r + bl uart_send + subs r6, 2 + b 10b +50: + bl uart_send + subs r0, '0 + lsls r4, 3 + adds r4, r0 + b 20b -- cgit v1.2.3