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