| TITLE COUNT | |
| A=1 ;Define a name for an accumulator. | |
| START: MOVSI A,-100 ;initialize loop counter. | |
| ;A contains -100,,0 | |
| LOOP: HRRZM A,TABLE(A) ;Use right half of A to index. | |
| AOBJN A,LOOP ;Add 1 to both halves (-77,,1 -76,,2 etc.) | |
| ;Jump if still negative. | |
| .VALUE ;Halt program. | |
| TABLE: BLOCK 100 ;Assemble space to fill up. | |
| END START ;End the assembly. |