Stockly.com Forums  

Go Back   Stockly.com Forums > Kenbak-1 Series 2 > Kenbak-1

Notices

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 10-08-2007, 08:23 PM
Geoff Harrison Geoff Harrison is offline
Senior Member
 
Join Date: Feb 2007
Posts: 104
Default Kenbak-1 demo program.

Well, I finally got tired of watching the Kanbak-1 counting to 255 in binary, so I wrote a little program to do a Cylon display on the LEDs instead.

Change the value at 034 to change the speed.

Code:
Addr    Value
----    ---------
                        ; Display Cylon lights on the Kenbak-1 front panel
003     004
004     023 001         START   LOAD A, #1      ; A = 00000001b
006     034 200         LEFT    STORE A, 0200   ; display A on LEDs
010     367 032                 JMD WAIT        ; pause
012     211                     LEFT SHIFT A 1  ; A << 1
013     043 006                 JPD A!=0, LEFT  ; if A != 0 jump to label LEFT
;
015     023 200                 LOAD A, #0200   ; A = 10000000b
017     034 200         RIGHT   STORE A, 0200   ; display B on LEDs
021     367 032                 JMD WAIT        ; pause
023     011                     RIGHT SHIFT A 1 ; A >> 1
024     323 177                 AND A, #0177    ; mask off sign bit
026     043 017                 JPD A!=0, RIGHT ; if A != 0 jump to label RIGHT
030     347 004                 JPD START       ; repeat forever
;
032     000             WAIT    .equ 0          ; return address will be stored here
033     123 020                 LOAD B, #020    ; delay for a count of 020
035     113 001         WAIT1   SUB B, #1       ; decrement B
037     143 035                 JPD B!=0, WAIT1 ; if B != 0 jump to label WAIT1
041     357 032                 JPI WAIT        ; return
Reply With Quote
 

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Looking for Kenbak 1 kit Boris Kenbak-1 2 10-20-2010 06:17 AM
Kenbak Assembler Project Grant Stockly Kenbak-1 0 08-29-2007 08:30 AM
Anyone Around??? What happened to the Kenbak kit? Cappellanus Kenbak-1 2 08-25-2007 01:16 AM
Serial Loading Program Grant Stockly Altair 8800 3 07-08-2007 09:42 AM


All times are GMT. The time now is 08:38 PM.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2024, vBulletin Solutions, Inc.