From 513531360fe050bcd3598a34dac25afa496fd4b2 Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Sat, 20 Jul 2024 01:38:55 -0500 Subject: Move string comparison --- better_assembler/main.as | 2 +- better_assembler/string.as | 13 ++++++++++++- 2 files changed, 13 insertions(+), 2 deletions(-) (limited to 'better_assembler') diff --git a/better_assembler/main.as b/better_assembler/main.as index 28b5139..d83e469 100644 --- a/better_assembler/main.as +++ b/better_assembler/main.as @@ -5,7 +5,7 @@ JIH 0000 print string JIL 0174 DRF R0 R4 JIH 0000 read string -JIL 0371 +JIL 0271 JA 3770 infinite loop Q 0014 00 Q 0200 00 diff --git a/better_assembler/string.as b/better_assembler/string.as index 35f9248..c42c4b6 100644 --- a/better_assembler/string.as +++ b/better_assembler/string.as @@ -17,7 +17,7 @@ JA 3766 next char JR R14 jump to link register Q 0400 00 uart zero base Q 0400 03 -<0200 getstr +<0180 getstr register zero : string offset register one : current character, uart status register two : rx fifo empty bitmask @@ -46,3 +46,14 @@ JR R14 jump to link register Q 0000 00 alignment Q 0400 00 uart zero base Q 0400 03 +<0200 cmpstr +DI R4 0 +LBR R2 R0 R4 +LBR R3 R1 R4 +CR3 R2 R3 +JN 3 +CI R2 0 +JE 1 +AAI8 R4 1 +JA 3767 +JR R14 -- cgit v1.2.3