mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 13:38:06 +11:00
31a58d00f1
Among random "better safe than sorry" changes, the real fix is in changing "4" for "5" above _find declaration. This off-by-one error had that word, which is the root word in z80, have a 0x01 prev field instead of a 0x00 one. When all memory was initialized to zero, it didn't matter, we ended up hitting 0 prev and considered ourselves properly at the end of dict. When memory wasn't initialized, however, we would end up jumping at all kinds of places, leading to random behavior.
9 lines
268 B
Plaintext
9 lines
268 B
Plaintext
CREATE ORG 0 ,
|
|
CREATE BIN( 0 ,
|
|
VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
|
|
: A 7 ; : B 0 ; : C 1 ; : D 2 ;
|
|
: E 3 ; : H 4 ; : L 5 ; : (HL) 6 ;
|
|
: BC 0 ; : DE 1 ; : HL 2 ; : AF 3 ; : SP AF ;
|
|
: CNZ 0 ; : CZ 1 ; : CNC 2 ; : CC 3 ;
|
|
: CPO 4 ; : CPE 5 ; : CP 6 ; : CM 7 ;
|