;  IMP TRAP has required some modifications
;  Jon Newman 7/18/89
    spl 3,0
    mov 4,-1
    jmp -1,0
    spl -2,0
    jmp 2,0
    dat 0,5
    djn 0,-1
    mov #2000,-3
    spl 2,0
    jmp -3,0
    mov 0,1