Browse Source

Cleanup

master
cancel 6 years ago
parent
commit
69044c8e50
  1. 10
      sim.c

10
sim.c

@ -69,12 +69,6 @@ static inline Glyph glyph_of(Usz index) {
return indexed_glyphs[index];
}
static Glyph glyphs_add(Glyph a, Glyph b) {
Usz ia = index_of(a);
Usz ib = index_of(b);
return indexed_glyphs[(ia + ib) % Glyphs_index_count];
}
static inline bool glyph_is_lowercase(Glyph g) { return g & (1 << 5); }
static inline Glyph glyph_lowered_unsafe(Glyph g) {
return (Glyph)(g | (1 << 5));
@ -409,7 +403,9 @@ BEGIN_OPERATOR(add)
PORT(0, 1, IN);
PORT(0, 2, IN);
PORT(1, 0, OUT);
POKE(1, 0, glyphs_add(PEEK(0, 1), PEEK(0, 2)));
Usz a = index_of(PEEK(0, 1));
Usz b = index_of(PEEK(0, 2));
POKE(1, 0, indexed_glyphs[(a + b) % Glyphs_index_count]);
END_OPERATOR
BEGIN_OPERATOR(banger)

Loading…
Cancel
Save