;
;  The following program calculates the sum of all integers between 0 and 
; 0x1000 and serves as a simple test for the assembler and the emulator.
;
     MOVE 0x0000, R0
     MOVE 0x1000, R1
LOOP ADD R1, R0
     SUB 0x0001, R1
     ABRA LOOP, !Z
     HALT