;name gate c-ca ;assert 1 gate1 equ (gate-5) org start for 10 dat 0,0 rof dat 100 gate dat jump-gate1+5,-5 spl #jump-gate1+5,-5 for 10 dat 0,0 rof start spl #-10,#10 mov @jump,}gate1 jump djn start+1,