Subversion Repositories eus100lx

       CONSTANT port_o_04, 04
       CONSTANT port_i_00, 00
       ;
start: LOAD s2, FF            ;initial output value
  rep: OUTPUT s2, port_o_04
       INPUT s0, port_i_00    ;get delay from inport_0
       ;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