        org    $1000
start:  move.l #$10000,a0   *POINT TO RAM START
        move.l #$05,d0
        move.l #$70000,a1
        move.w d0,(a1)
loop1:  move.w d0,(a0)+     *STORE '5' 
        cmp.l #$1fffe,a0
        bne  loop1          *KEEP GOING TILL DONE
*
        move.l #$10000,a0   *POINT TO RAM START
loop2:  move.w (a0)+,d0     *READ CONTENTS
        cmp.w #$05,d0       *IS IT '5'?
        bne error           *NO? (OH DEAR!)
        cmp.l #$1fffe,a0
        bne loop2           *YES, KEEP GOING!
        move.l #$00,d1
        move.w d1,(a1)
loop:   jmp    loop         
error:  jmp    error
*
berr:   jmp    berr         *IN CASE OF BUSERROR
adderr: jmp    adderr       *IN CASE OF ADDRERROR
*
        org    $0
        dc.l   $12000       *SETUP STACK POINTER
        dc.l   start        *START OF PROGRAM
        dc.l   berr         *BUSERROR VECTOR
        dc.l   adderr       *ADDRERROR VECTOR
        END
