;        The listing in the text has been augmented to make
;        complete program.


List:   .BYTE   3, 5, 7, 9, 11, 13
Number = 6

        .ENTRY   TEST    0

        Output   <The list of values>  ; Print heading
        MOVL     #Number, R10          ; R10 <-- element count
        MOVAB    List, R11             ; R11 <-- address List
Loop:   Output   Byte = (R11)+         ; Output next element
        SOBGTR   R10, Loop             ; Decrement count and
                                       ;   repeat if needed.
        Output                         ; Print blank line
        $EXIT_S
        .END     TEST