;LOCUST
START MOV IMP NEW
      MOV #0 -2
      SPL NEW
      JMP START
IMP   MOV 0 1
A     DAT 0
B     DAT 0
E     DAT 0
NEW   DAT 0
END