; Panca 1
; Luca Pancani and Giovanni Ciraolo
;
p      dat #2068
start  spl b
a      add #16,p
       jmz a,@p
       sub #10,p
       mov ad,@p
       mov ac,<p
       mov ab,<p
       mov aa,<p
       spl @p
       add #600,p
       jmp a
aa     add #1,3
ab     mov 2,@2
ac     jmp -2
ad     dat 3
b      sub #15,h
       jmz b,@h
       add #5,h
       mov bc,@h
       mov bb,<h
       mov ba,<h
       spl @h
       sub #600,h
       jmp b
ba     mov 2,<h
bb     jmp -1
bc     dat -3
h      dat #-2072
