;FACTA
START MOV IMP 900
LOOP  MOV #0 START
      MOV #0 START
      MOV #0 START
      MOV #0 START
      SPL 895
      JMP LOOP
IMP   MOV 0 1
END