玛丽 移除空间

Question

我是玛丽的新手。我正在创建一个玛丽代码，它将删除元素之间的"空格"。例如。如果它是~~FIT ~ 1047~~~，它将删除元素~~~~。

任何人都可以看看我的代码并指导我吗？

我知道当它达到 HEX 020 时，它会跳到应该删除它并将下一个值添加到字符串时结束。

Load NameAddr
Store TrimStringAddr
JnS TrimString
Halt
NameAddr, ADR Name
Name, HEX 052 / R <--- this is where you add your name
HEX 061 / A
HEX 06e / N
HEX 061 / A
HEX 020 / SPACE
HEX 041 / A 
HEX 074 / T
HEX 069 / I
HEX 06e / N
HEX 064 / D
HEX 065 / E
HEX 072 / R
HEX 000 / END
TrimStringAddr, HEX 0    / address of string to trim
TrimString,     HEX 0 
StartTrim, LoadI TrimStringAddr
Output
Subt B
Skipcond 800
Jump End
Subt B
Load TrimStringAddr
Add A
Store TrimStringAddr
Jump StartTrim
End, Halt
B, HEX 020
A, HEX 001

它正在加载到 AC 中。但是。我得到的输出是 RANA，而我想获得的是 RANAATINDER

Answer 1

在检查输出之前打印输出，并在到达空格时结束程序。

这可以通过在使用输出之前检查空格，然后使用临时 IF 来纠正，方法是使用第二个选项来循环打印输出，如下所示：

StartTrim, LoadI TrimStringAddr
Subt B
Skipcond 400 / If not zero will Jump to process output
Jump IsLetter
Subt B
Load TrimStringAddr
Add A
Store TrimStringAddr
Jump StartTrim
IsLetter,   LoadI TrimStringAddr
Skipcond 800 / Check when empty to finish
Jump End
Output
Subt C
Load TrimStringAddr
Add A
Store TrimStringAddr
Jump StartTrim

完整代码：

Load NameAddr
Store TrimStringAddr
JnS TrimString
NameAddr, ADD Name
Name, HEX 052 / R 
HEX 061 / A
HEX 06e / N
HEX 061 / A
HEX 020 / SPACE
HEX 041 / A 
HEX 074 / T
HEX 069 / I
HEX 06e / N
HEX 064 / D
HEX 065 / E
HEX 072 / R
HEX 000 / END
TrimStringAddr, HEX 0    / address of string to trim
TrimString,     HEX 0 
StartTrim, LoadI TrimStringAddr
Subt B
Skipcond 400
Jump IsLetter
Subt B
Load TrimStringAddr
Add A
Store TrimStringAddr
Jump StartTrim
IsLetter,   LoadI TrimStringAddr
Skipcond 800 / Check when empty to finish
Jump End
Output
Subt C
Load TrimStringAddr
Add A
Store TrimStringAddr
Jump StartTrim
End, Halt
B, HEX 020
A, HEX 001
C, HEX 040