     1 000000           ; > ClrMem : Clears memory between 100 and 177776 (octal)
     2 000000           ;
     3 000000           START:  EQU     O100
     4 000000           END:    EQU     O177776
     5 000000                   ORG     O10
     6 000010 012737            MOV     #OOPS,@#4       ; set trap at 4, PSW at 6
     6 000012 000040    
     6 000014 000004    
     7 000016 005037            CLR     @#6
     7 000020 000006    
     8 000022 012700            MOV     #START,R0       ; set R0 to point to first location
     8 000024 000100    
     9 000026 005020    L1:     CLR     (R0)+           ; clear indicated loc'n and point to next
    10 000030 022700            CMP     #END+2,R0       ; is next past end ?
    10 000032 000000    
    11 000034 001374            BNE     L1              ; if not, go and repeat
    12 000036 000000            HALT
    13 000040 005300    OOPS:   DEC     R0              ; get here if bus times out
    14 000042 005300            DEC     R0              ; point to last location
    15 000044 000110            JMP     (R0)            ; which has a HALT instruction (zero)
