;
; Chang
; -----
;
trap      MOV #0, $7999
maketrap  JMP $trap    
ptr       DAT 9
start     SPL $maketrap
          SPL $lnge 
          SUB #16, ptr 
          MOV #0, @ptr 
          JMP start
lnge      SPL 2
          JMP -1
          MOV 0, 1