.ORG 1000
       MOV #2000, R0
       MOV #3000, R1
       MOV #47, R4
       CLR R2
 LOOP: MOV @R0, R3
       CMP R3, R4
       BEQ IS47
       INC R2
 IS47: INC R0
       CMP R0, R1
       BGT LOOP
       HALT