

Spoc is a cpu... guess what? let's use it to display "Hello world!".
For this example, you need an FPGA board with an RS-232 output.// First set the stack pointer (required since we use a subroutine below) do #0x0C00 -> SP BeginString: do #GreetingString -> CS SendChar: sel CS.p do #0x1000 -> WA0 do.byte @ -> @ // transmit one byte out of RS-232 TX // check the RS-232 TX busy bit do #0x1000 -> RA0 LoopTxD_ready: do.bit @ jmp.z=1 #LoopTxD_ready // check the end of string do CS-#GreetingStringEnd jmp.z=1 #SendChar // once the string is completely sent, delay before sending again jsr #Delay jmp #BeginString // delay subroutine Delay: do.dw #200000 -> A DelayLoop: dec.dw A jmp.z=1 #DelayLoop ret GreetingString: data.byte "Hello world!", 13 GreetingStringEnd: // that's all folks

module spoc_test(clk, TxD);
input clk;
output TxD;
// first instantiate Spoc
wire spoc_WriteData, spoc_WriteEnable, spoc_ReadData;
wire [15:0] spoc_WriteAddress, spoc_ReadAddress;
spoc my_first_spoc
(
.clk(clk), .ExecuteOpcode_Enable(1'b1),
.WriteAddress(spoc_WriteAddress), .WriteData(spoc_WriteData), .WriteEnable(spoc_WriteEnable),
.ReadAddress(spoc_ReadAddress), .ReadData(spoc_ReadData)
);
// second hook it up to an RS-232 TX module
reg TxD_start;
reg [7:0] TxD_data;
wire TxD_busy;
async_transmitter asyncTX(.clk(clk), .TxD_start(TxD_start), .TxD_data(TxD_data), .TxD(TxD), .TxD_busy(TxD_busy));
always @(posedge clk) if(spoc_WriteEnable) TxD_data[spoc_WriteAddress[2:0]] <= spoc_WriteData;
always @(posedge clk) TxD_start <= spoc_WriteEnable & (spoc_WriteAddress[2:0]==3'h7);
assign spoc_ReadData = TxD_busy;
endmodule
If you own an fpga4fun board, press CTRL-T in FPGAconf after configuring your FPGA to get the terminal window.
Otherwise just use your favorite terminal software!