;name AZZ Colonizer
;author Adam Sampson 
;by ATS - fires off a chain of imps
               
maximps EQU 30    ; number of imps
delay   EQU 10   ; cycles between imp fire time
                         
START  MOV #maximps,icount

newimp SPL imp
       MOV #delay,dcount
dloop  DJN dloop,dcount
       MOV imp,impst
       DJN newimp,icount
       JMP imp        ; become one yourself!

icount DAT 0          ; imp counter     
dcount DAT 0          ; delay counter
imp    MOV 0,1        ; demo code for an Imp
impst  MOV 0,1        ; the firing platform (must be last)