;Fydgitr
;by Kenneth W. Clapp
;United States of America
;
TOP2          DAT                     0
              DAT                     0
              DAT                     0
              DAT                     0
              DAT                     0
TOP1          DAT                     0
RESTOMP       MOV      ZERO,       @  DEST1
STOMP         MOV   <  DEST1,      <  DEST2
              MOV   <  DEST1,      <  DEST2
              MOV   <  DEST1,      <  DEST2
              MOV   <  DEST1,      <  DEST2
              JMZ      STOMP,      @  DEST1
              ADD   #  9,             DEST1
SPLITA        ADD   #  9,             DEST2
              JMP      RESTOMP
DEST1         DAT                     -10
DEST2         DAT                     -16
ZERO          DAT                     12
              DAT                     10
SKIPA         DAT                     325
              SPL                     SPLITA
              DAT                     4
              DAT                     678
              JMP                     DEST2
              DAT                     7
              DAT                     678
              JMP                     SKIPA
              DAT                     1993
              DAT                     325
START         MOV   <  ZERO,          DEST
              MOV   <  ZERO,          DEST
              MOV   <  ZERO,          STOP
LOOP          MOV      NUM1,       <  DEST
              MOV      NUM2,       <  DEST
              ADD   #  14,            DEST
              DJN      LOOP,          COUNT
STOP          JMP      START
              JMP      RESTOMP
NUM1          JMP                     NUM1-1
NUM2          SPL                     NUM2-12
COUNT         DAT                     1
              DAT                     1
              DAT                     1
              DAT                     1
              DAT                     1
              DAT                     1
              DAT                     1
              DAT                     1
;
              DAT                     1
              DAT                     1
              DAT                     1
              DAT                     1
;
DEST          DAT                     1
              END      START