URL
https://opencores.org/ocsvn/eus100lx/eus100lx/trunk
Subversion Repositories eus100lx
[/] [eus100lx/] [trunk/] [fpga/] [picoblaze-asm/] [basicpb.psm] - Rev 4
Go to most recent revision | Compare with Previous | Blame | View Log
CONSTANT port, 04
;
start: LOAD s2, FF ;initial output value
rep: OUTPUT s2, port
LOAD s0, 08 ;delay size
loop0: LOAD sB, FF
loop1: LOAD sC, FF
loop2: SUB sC, 01
JUMP NZ, loop2
SUB SB, 01
JUMP NZ, loop1
SUB s0, 01 ;delay loop
JUMP NZ, loop0
XOR s2, FF ;toggle waveform
JUMP rep ;repeat sequence
Go to most recent revision | Compare with Previous | Blame | View Log