#include <stdio.h>
#include <unistd.h>
#include <asm/io.h>

#define base 0xD100
#define time 500000

#define   DS      0
#define ST_CP   1
#define SH_CP   2

int sh_out(unsigned char sh_data) {
      int i = 0;
      unsigned char out;
      out &= ~(1 << ST_CP);
      outb (out, base);
         for(i = 0; i < 8; i++) {
            out &=  ~(1 << SH_CP);
            outb (out, base);
            if (sh_data & 0x80) {
               out |=  (1 << DS);
               outb (out, base);
            } else {
               out &= ~(1 << DS);
               outb (out, base);
            }
            sh_data = sh_data << 1;
            out |= (1 << SH_CP);
            outb (out, base);
            }
      out |= (1 << ST_CP);
      outb (out, base);      
   }

int main() {
    int j = 0;
    unsigned char pattern[] = {0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02};
    unsigned char temp = 0;

    if (ioperm(base, 3, 1)) {
        perror("ioperm");
        return 1;
    }
   
    while(1) {
        temp = pattern[j];
        sh_out(temp);
        j++;
        if (j == sizeof(pattern)) j = 0;
        usleep(time);
    }
}