; -*-MIDAS-*-
        TITLE   COUNT

A=1                             ;Define a name for an accumulator
START:  MOVSI A,-100            ;initialize loop counter.
LOOP:   HRRZM A,TABLE(A)        ;Use right half of A to index.
        AOBJN A,LOOP            ;Add 1 to both halves (-77,,1 -76
        .VALUE                  ;Halt program.
TABLE:  BLOCK 100               ;Assemble space to fill up.
END START