%begin

%routine zap
%integer i
  integer(i) = 16_55555555 %for i = 16_1000,4,16_3ffc
%end
  
  *move.w #16_2700,d0
  *trap #0
  *mfusp sp
  zap
  *move.l 0,sp
  *move.l 4,-(sp)
  *rts
%end
