; Quick Sand II
;
; by Norman Richards
;
BOMB         SPL    BOMB
DAT1         DAT                 # 20
NUM          DAT                 # 470
INC          DAT                 # 17
NUMSAVE      DAT                 # 470
OUTERLOOP    DAT                 # 8
;
START        SPL    PART2
PART1        ADD    INC,           DAT1
             MOV    BOMB,        @ DAT1
             DJN    PART1,         NUM
             ADD  # 20,            INC
             SUB  # 50,            NUMSAVE
             MOV    NUMSAVE,       NUM
             MOV  # 20,            DAT1
             DJN    PART1,         OUTERLOOP
             MOV  # 470,           NUMSAVE
             MOV    NUMSAVE,       NUM
             MOV  # 17,            INC
             MOV  # 18,            OUTERLOOP
             JMP    PART1
PART2        CMP  @ POINT1,      @ POINT2
             JMP    NE
             MOV    PABOMB,      @ POINT1
             MOV    PABOMB,      @ POINT2
NE           CMP  < POINT1,      < POINT2
             MOV    POINT2,        POINT1
             JMZ    POINT2,        PART2
             MOV  #-40,            POINT1
             MOV    POINT1,        POINT2
             JMP    PART2,
PABOMB       DAT                 # 0
POINT1       DAT                 #-40
POINT2       DAT                 #-40
             END    START