;
;    Warrior: Divers
;  File name: divers.red
; Tournament: ICWST'90
;   Standard: CWS'88
;     Author: Matthew Skala
;
DIVE      MOV   # 13          LOOPCTR
LOOP      ADD   # 16          PTR
ENTER     MOV     PTR       @ PTR
          MOV     TRAP      @ PTR
LOOPCTR   DJN     LOOP      # 1
          SPL   @ PTR
          JMP     DIVE
PTR       DAT               # 1028
TRAP      JMP     0
          END     ENTER