Mesa 7i96 Ethernet board

component raw_writer "Example for 7i96 AC outputs";
pin in bit out-# [6] "The input data to be written";
pin out unsigned address "Connect to raw.write_address";
pin out unsigned data "Connect to raw.write_data";
pin out bit strobe "Connect to raw.write_strobe";

param r unsigned state=0 "State machine state";
param rw unsigned wait = 4 "how long to wait between strobes";

function _;
license "GPL";
;;

static int ret; // where to go after pause
static int timer;

FUNCTION(_){
    switch (state){
    case 0: // begin init
        address = 0x7e00;
        data = 0x1030; //enable AC out, set frequency to 2 MHz
        state = 100;
        ret = 2;
        break;
    case 2:
        address = 0x1100;
        data = 0x1f800;
        state = 100;
        ret = 4;
        break;
    case 4:
        address = 0x1200;
        data = 0x1f800;
        state = 100;
        ret = 6;
        break;
    case 6:
        address = 0x1104;
        data = 0x103ff;
        state = 100;
        ret = 8;
        break;
    case 8:
        address = 0x1204;
        data = 0x103ff;
        state = 100;
        ret = 10;
        break;
    case 10: // setup copmplete, now just keep sending pin status
        address = 0x7d00;
        data = out(0) + (out(1)<<1) + (out(2)<<2) 
             + (out(3)<<3) + (out(4)<<4) + (out(5)<<5);
        state = 100;
        ret = 10;
        break;
    case 100: // start timer
        timer = 0;
        strobe = 0;
        state = 101;
        break;
    case 101: 
        if (timer++ > wait){
            strobe = 1;
            state = ret;
        }
        break;
    }
}