;
; SHIFTING LIGHT DEMO
; A SIMPLE TEST PROGRAM THAT SHIFTS THE ACCUMULATOR TO
; THE LEFT THROUGH THE CARRY BIT OF THE STATUS REGISTER AND
; THEN DISPLAYS ON THE FRONT PANEL LED'S (PORT FF)
;
; SEE IT RUNNING ON THE ORIGINAL MACHINE AT:
;       http://www.youtube.com/watch?v=WHi1b1esV5s
;
        ORG     0

        MVI     A,01
        RRC
        MVI     A,0FEH
LOOP:   OUT     0FFH
        LXI     D,1
        LXI     H,0
DELAY:  DAD     D
        JNC     DELAY
        RLC
        JMP     LOOP

        END