Kill The Bit in 29 Bytes!

[Ardunaut]

I've been trying to make this program as small as possible but I think I reached my limit with my understanding

of the Kenbak-1 instructions.

The size allows it to be entered in the old (original) style, give it a try.

"Kill The Bit"  KENBAK-1 by Ardunaut Sep 22,2021 

002: 000                    ; X Register

003: 004                    ; P register

004: 023 001  LOAD A C=001

006: 111      RT ROT A,1

007: 234 377  STORE X 377   

011: 123 140  LOAD B C=140

013: 034 200  STORE A 200

015: 113 001  SUB B C=001

017: 143 013  JPD B!=0 013

021: 304 377  OR A 377

023: 033 000  STORE A C=000

025: 024 200  LOAD A 200

027: 324 377  AND A 377

031: 334 000  LNEG A 000

033: 013 001  SUB A C=001

035: 324 024  AND A 024

037: 343 006  JPD UNC 006

Octal file for the kenbakuino serial loader:

000,000,000,004,023,001,111,234,377,123,140,034,200,113,001,143,

013,304,377,033,000,024,200,324,377,334,000,013,001,324,024,343,

006,e

Change the value at (012) to modify the game speed.

- Actual value is 140 (good to be used with the kenbakuino Simulator)

- Maximum speed with 001.

- Reduce the value to slow down.

- Use 020 for the real hardware of the KENBAK-1 or for the kembakuino configured to

  2 millisecond delay between instructions (hold [bit-1] and press [STOP]).

[John Kennedy]

Thanks, I toggled it in and it works great!