Kill The Bit in 29 Bytes!

52 views
Skip to first unread message

Ardunaut

unread,
Sep 25, 2021, 2:17:36 AMSep 25
to uKenbak-1
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

unread,
Sep 25, 2021, 7:51:01 PMSep 25
to uKenbak-1
Thanks, I toggled it in and it works great! 
Reply all
Reply to author
Forward
0 new messages