home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / dragonflight.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  2.4 KB  |  176 lines
  1. org    $6a000
  2. load    $6a000
  3.  
  4. LOCATE:    equ    $c83be4
  5. STtrk:    equ    70
  6. nr:    equ    9
  7.  
  8. j:    move.w    #$7fff,$dff09a
  9.     bsr    Dload
  10.     move.w    #$e02c,$dff09a
  11.     rts
  12.  
  13. Dload:    LEA    $DFF000,A6
  14.     LEA    $BFD100,A4
  15.     LEA    $BFE001,A5
  16.     MOVE.W    #$4000,$24(A6)
  17.     MOVE.W    #$7FFF,$9E(A6)
  18.     MOVE.W    #$D500,$9E(A6)
  19.     MOVE.W    #$4489,$7E(A6)
  20.     MOVE.B    #$7F,D1
  21.     MOVE.B    D1,(A4)
  22.     MOVE.W    #0,D0
  23.     BEQ.S    C070
  24.     BCLR    #2,D1
  25. C070:    BCLR    #3,D1
  26.     MOVE.B    D1,(A4)
  27. C076:    BTST    #5,(A5)
  28.     BNE.S    C076
  29.     MOVE.W    #STtrk,lbW0002C8
  30.  
  31. C084:    BSR    C174
  32.     MOVE.L    #$70000,A3
  33.     MOVE.W    #$9900,D1
  34.     BSR    C1E2
  35.     btst    #6,$bfe001
  36.     beq.s    ex
  37.     TST.L    D0
  38.     BMI.S    C084
  39.     MOVE.L    #$4A4F4348,lbL0002D2
  40. C0A4:    CMP.W    #$44A9,(A3)+
  41.     BEQ.S    C0A4
  42.     SUBQ.W    #2,A3
  43.     MOVEQ    #1,D7
  44.     LEA    lbW0002D6,A2
  45.     BSR    C128
  46.     MOVE.W    lbW0002D8(PC),D0
  47.     CMP.W    lbW0002C8(PC),D0
  48.     BEQ.S    C0CC
  49.     BSR    C14E
  50.     BSR    C174
  51.     BRA.S    C084
  52.  
  53. C0CC:    MOVE.W    #$600,D7
  54.     MOVE.L    lbL0002CE(PC),A2
  55.     BSR    C128
  56.     MOVEQ    #1,D7
  57.     LEA    lbW0002D6,A2
  58.     BSR    C128
  59.     TST.L    lbL0002D2
  60.     BNE.S    C084
  61.     ADD.L    #$1800,lbL0002CE
  62.     ADDQ.W    #1,lbW0002C8
  63.     CMP.W    #sttrk+nr,lbW0002C8
  64.     BNE    C084
  65. ex:    rts
  66.  
  67.  
  68. tt:    move.l    a7,d7
  69.     PEA    $404
  70.     PEA    $3C00
  71.     PEA    $3C4C
  72.     PEA    $3C20
  73.     MOVE.L    (SP)+,D0
  74.     SUB.L    D0,-(SP)
  75.     MOVE.L    (SP)+,A0
  76.     ADD.L    4(SP),A0
  77.     ADD.W    #$6C,A0
  78.     move.l    d7,a7
  79.     rts
  80.  
  81.  
  82.  
  83. C128:    SUBQ.W    #1,D7
  84.     BMI.S    C14A
  85. C12C:    MOVE.L    #$55555555,D6
  86.     MOVE.L    (A3)+,D4
  87.     MOVE.L    (A3)+,D5
  88.     AND.L    D6,D5
  89.     AND.L    D6,D4
  90.     ADD.L    D4,D4
  91.     OR.L    D5,D4
  92.     MOVE.L    D4,(A2)+
  93.     EOR.L    D4,lbL0002D2
  94.     DBRA    D7,C12C
  95.  
  96. C14A:    MOVEQ    #0,D6
  97.     RTS
  98.  
  99. C14E:    MOVE.W    #$59,D7
  100. C152:    BTST    #4,(A5)
  101.     BEQ.S    C164
  102.     BSR    C1B4
  103.     DBRA    D7,C152
  104.  
  105.     MOVEQ    #-$1,D0
  106.     RTS
  107.  
  108. C164:    MOVEQ    #0,D0
  109.     MOVE.W    D0,lbW0002CA
  110.     ST     lbB0002CC
  111.     RTS
  112.  
  113. C174:    TST.W    lbB0002CC
  114.     BNE.S    C180
  115.     BSR    C14E
  116. C180:    MOVE.W    lbW0002CA(PC),D0
  117.     MOVE.W    lbW0002C8(PC),D1
  118.     MOVE.W    D1,lbW0002CA
  119.     SUB.W    D0,D1
  120.     BEQ.S    C19E
  121.     BPL.S    C1AA
  122.     NEG.W    D1
  123.     SUBQ.W    #1,D1
  124. C198:    BSR.S    C1B4
  125.     DBRA    D1,C198
  126.  
  127. C19E:    MOVE.W    #$BB8,D0
  128.     BSR    C1DC
  129.     MOVEQ    #0,D0
  130.     RTS
  131.  
  132. C1AA:    SUBQ.W    #1,D1
  133. C1AC:    BSR.S    C1C8
  134.     DBRA    D1,C1AC
  135.     BRA.S    C19E
  136.  
  137. C1B4:    BSET    #1,(A4)
  138.     BCLR    #0,(A4)
  139.     BSET    #0,(A4)
  140.     MOVE.W    #$9DB,D0
  141.     BSR.S    C1DC
  142.     RTS
  143.  
  144. C1C8:    BCLR    #1,(A4)
  145.     BCLR    #0,(A4)
  146.     BSET    #0,(A4)
  147.     MOVE.W    #$9DB,D0
  148.     BSR.S    C1DC
  149.     RTS
  150. C1DC:    DBRA    D0,C1DC
  151.     RTS
  152.  
  153. C1E2:    MOVE.L    A3,$20(A6)
  154.     MOVE.W    #2,$9C(A6)
  155.     MOVE.W    #$8210,$96(A6)
  156.     MOVE.W    D1,$24(a6)
  157.     MOVE.W    D1,$24(a6)
  158.     MOVE.L    #$1E848,D0
  159. C22A:    btst    #1,$dff01f
  160.     BNE.S    C248
  161.     SUBQ.L    #1,D0
  162.     BPL.S    C22A
  163. C248:    MOVE.W    #$4000,$24(A6)
  164.     RTS
  165.  
  166. lbW0002BE:    dc.l    0
  167.         dc.w    0
  168. lbB0002C4:    dc.l    0
  169. lbW0002C8:    dc.w    0
  170. lbW0002CA:    dc.w    0
  171. lbB0002CC:    dc.w    0
  172. lbL0002CE:    dc.l    LOCATE
  173. lbL0002D2:    dc.l    0
  174. lbW0002D6:    dc.w    0
  175. lbW0002D8:    blk.w    $53,0
  176.