home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / shadowwarrior1.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  4.5 KB  |  264 lines
  1.  
  2. **********************************************************************
  3.     SECTION sharr000000,CODE
  4. ProgStart
  5. lbC000000    LEA    $00C0E2F8(PC),A6
  6.     MOVE.W    lbW0002C6,D0
  7.     ADD.W    D0,D0
  8.     LEA    lbW0002C8(PC),A0
  9.     MOVE.W    0(A0,D0.W),14(A6)
  10.     MOVE.W    2(A0,D0.W),lbW0002C2
  11.     LEA    $00DFF000,A0
  12.     LEA    $00BFD000,A1
  13.     MOVE.W    D7,D6
  14.     SUBQ.W    #3,D6
  15.     ADD.W    D6,D6
  16.     BSR    lbC000216
  17.     MOVE.W    #$0190,D2
  18. lbC000038    BTST    #5,$00BFE001
  19.     DBNE    D2,lbC000038
  20.     AND.B    #$7F,$0100(A1)
  21.     MOVE.B    $0100(A1),D0
  22.     AND.B    #$FD,D0
  23.     OR.B    #$78,D0
  24.     BCLR    D7,D0
  25.     MOVE.B    D0,$0100(A1)
  26.     TST.B    $4C00007C
  27.     BEQ.S    lbC000076
  28.     MOVE    #$2700,SR
  29.     CLR.L    $00000060
  30.     CLR.L    $4C00007C
  31.     MOVE    #$2000,SR
  32. lbC000076    RTS
  33. lbC000078    BSR    lbC000126
  34.     TST.B    lbB000215
  35.     BEQ.S    lbC000078
  36. lbC000084    LEA    $00C0E2F8(PC),A6
  37.     LEA    $00DFF000,A0
  38.     LEA    $00BFD000,A1
  39.     MOVE.W    lbW0003A2,D7
  40.     MOVE.W    D7,D6
  41.     SUBQ.W    #3,D6
  42.     ADD.W    D6,D6
  43.     MOVE.B    $0100(A1),D1
  44.     AND.B    #$FB,D1
  45.     BTST    #0,7(A6,D6.W)
  46.     BNE.S    lbC0000B4
  47.     OR.B    #4,D1
  48. lbC0000B4    MOVE.B    D1,$0100(A1)
  49.     LEA    $0004B918,A2
  50.     NOT.W    lbW000120
  51.     BEQ.S    lbC0000CC
  52.     LEA    $0004F518,A2
  53. lbC0000CC    MOVE.L    A2,$0020(A0)
  54.     MOVE.L    A2,lbL000122
  55.     MOVE.W    $00DFF01E,D0
  56.     BTST    #1,D0
  57.     BEQ.S    lbC0000EE
  58.     MOVEQ    #-1,D0
  59. lbC0000E4    MOVE.W    D0,$00DFF180
  60.     DBRA    D0,lbC0000E4
  61. lbC0000EE    MOVE.W    #$4489,$007E(A0)
  62.     MOVE.W    #$7F00,$009E(A0)
  63.     MOVE.W    #$8500,$009E(A0)
  64.     MOVE.W    #$4000,$0024(A0)
  65.     MOVE.W    #$9E00,$0024(A0)
  66.     MOVE.W    #$9E00,$0024(A0)
  67.     ST     lbB000214
  68.     SF    lbB000215
  69.     RTS
  70. lbW000120    dc.w    0
  71. lbL000122    dc.l    0
  72. lbC000126    TST.B    lbB000214
  73.     BEQ    lbC0001D4
  74.     MOVE.W    $00DFF01E,D0
  75.     BTST    #1,D0
  76.     BNE.S    lbC000144
  77.     SF    lbB000215
  78.     RTS
  79. lbC000144    MOVE.W    #2,$00DFF09C
  80.     LEA    $00C0E2F8(PC),A6
  81.     MOVE.W    lbW0003A2,D6
  82.     SUBQ.W    #3,D6
  83.     ADD.W    D6,D6
  84.     SF    lbB000214
  85.     MOVE.W    #$4000,$00DFF024
  86.     MOVE.L    $00007774,A0
  87. lbC00016C    CMP.W    #$4489,(A0)+
  88.     BNE.S    lbC00016C
  89. lbC000172    CMP.W    #$4489,(A0)+
  90.     BEQ.S    lbC000172
  91.     LEA    -2(A0),A0
  92.     MOVE.L    (A0),D5
  93.     MOVE.L    4(A0),D1
  94.     AND.L    #$55555555,D5
  95.     ADD.L    D5,D5
  96.     AND.L    #$55555555,D1
  97.     OR.L    D5,D1
  98.     CMP.W    6(A6,D6.W),D1
  99.     BEQ.S    lbC0001AA
  100.     MOVE.W    #$FFFF,D0
  101. lbC00019C    MOVE.W    D0,$00DFF180
  102.     DBRA    D0,lbC00019C
  103.     BRA    lbC000084
  104.  
  105. lbC0001AA    LEA    $0040(A0),A0
  106.     MOVE.L    A0,$000072CC
  107.     ADDQ.W    #1,6(A6,D6.W)
  108.     BTST    #0,7(A6,D6.W)
  109.     BNE.S    lbC0001D4
  110.     BCLR    #0,$00BFD100
  111.     NOP
  112.     NOP
  113.     NOP
  114.     BSET    #0,$00BFD100
  115. lbC0001D4    ST     lbB000215
  116.     RTS
  117.     MOVE.B    $00BFEE01,D0
  118.     AND.B    #$C0,D0
  119.     OR.B    #8,D0
  120.     MOVE.B    D0,$00BFEE01
  121.     MOVE.B    #$7F,$00BFED01
  122.     MOVE.B    #$CA,$00BFE401
  123.     MOVE.B    #8,$00BFE501
  124. lbC000208    BTST    #0,$00BFED01
  125.     BEQ.S    lbC000208
  126.     RTS
  127. lbB000214    dc.b    0
  128. lbB000215    dc.b    0
  129. lbC000216    MOVE.B    $0100(A1),D0
  130.     AND.B    #$7F,D0
  131.     MOVE.B    D0,$0100(A1)
  132.     AND.B    #$FD,D0
  133.     OR.B    #$7A,D0
  134.     BCLR    D7,D0
  135.     MOVE.B    D0,$0100(A1)
  136.     BSR    $00C0DB30
  137.     MOVE.W    D7,-(SP)
  138.     MOVEQ    #14,D7
  139. lbC000238    MOVE.W    #$8BD4,D0
  140.     BSR    $00C0DB1C
  141.     DBRA    D7,lbC000238
  142.     MOVE.W    (SP)+,D7
  143.     MOVE.W    14(A6),D1
  144.     CMP.W    6(A6,D6.W),D1
  145.     BNE.S    lbC000252
  146.     RTS
  147. lbC000252    BCC.S    lbC00028A
  148.     MOVE.B    $0100(A1),D0
  149.     AND.B    #$7F,D0
  150.     MOVE.B    D0,$0100(A1)
  151.     AND.B    #$FD,D0
  152.     OR.B    #$7A,D0
  153.     BCLR    D7,D0
  154.     MOVE.B    D0,$0100(A1)
  155. lbC00026E    MOVE.W    6(A6,D6.W),D0
  156.     CMP.W    14(A6),D0
  157.     BEQ.S    lbC0002C0
  158.     SUBQ.W    #1,D0
  159.     MOVE.W    D0,6(A6,D6.W)
  160.     BTST    #0,D0
  161.     BEQ.S    lbC00026E
  162.     BSR    $00C0DAF4
  163.     BRA.S    lbC00026E
  164.  
  165. lbC00028A    MOVE.B    $0100(A1),D0
  166.     AND.B    #$7F,D0
  167.     MOVE.B    D0,$0100(A1)
  168.     AND.B    #$FD,D0
  169.     OR.B    #$78,D0
  170.     BCLR    D7,D0
  171.     MOVE.B    D0,$0100(A1)
  172. lbC0002A4    MOVE.W    6(A6,D6.W),D0
  173.     CMP.W    14(A6),D0
  174.     BEQ.S    lbC0002C0
  175.     ADDQ.W    #1,D0
  176.     MOVE.W    D0,6(A6,D6.W)
  177.     BTST    #0,D0
  178.     BNE.S    lbC0002A4
  179.     BSR    $00C0DAF4
  180.     BRA.S    lbC0002A4
  181.  
  182. lbC0002C0    RTS
  183. lbW0002C2    dc.w    0
  184.     dc.w    0
  185. lbW0002C6    dc.w    0
  186. lbW0002C8    dc.w    2
  187.     dc.w    $0018
  188.     dc.w    $0030
  189.     dc.w    $0043
  190.     dc.w    $0062
  191.     dc.w    $0074
  192.     dc.w    $008C
  193.     MOVE.W    $00DFF01C,-(SP)
  194.     MOVE.W    #2,$00DFF09A
  195.     BSR    lbC000314
  196.     BSR    lbC000000
  197.     MOVE.W    (SP)+,D0
  198.     OR.W    #$8000,D0
  199.     MOVE.W    D0,$00DFF09A
  200.     TST.B    $6500007D
  201.     BEQ.S    lbC000312
  202.     MOVE    #$2700,SR
  203.     CLR.L    $00000060
  204.     CLR.L    $6500007C
  205.     MOVE    #$2000,SR
  206. lbC000312    RTS
  207. lbC000314    SF    $0000148A
  208.     BSR    $00C0E162
  209. lbC00031C    CLR.W    lbW0003A2
  210.     MOVEQ    #3,D7
  211.     CMP.L    #$53445731,$00001510
  212.     BEQ.S    lbC000392
  213.     MOVEQ    #4,D7
  214.     CMP.L    #$53445731,$00001514
  215.     BEQ.S    lbC000392
  216.     MOVEQ    #5,D7
  217.     CMP.L    #$53445731,$00001518
  218.     BEQ.S    lbC000392
  219.     MOVEQ    #6,D7
  220.     CMP.L    #$53445731,$0000151C
  221.     BEQ.S    lbC000392
  222.     OR.W    #$8000,$00007A1E
  223.     TST.W    $00007ADA
  224.     BNE.S    lbC00038C
  225.     MOVEM.L    D0-D7/A0-A6,-(SP)
  226.     MOVE.L    $000018F8,A0
  227.     MOVE.W    #$252F,D0
  228. lbC00036E    CLR.L    (A0)+
  229.     DBRA    D0,lbC00036E
  230.     LEA    $00001D6A,A0
  231.     LEA    $00007ACA,A1
  232.     MOVEQ    #15,D0
  233. lbC000380    MOVE.W    (A0)+,(A1)
  234.     ADDQ.W    #4,A1
  235.     DBRA    D0,lbC000380
  236.     MOVEM.L    (SP)+,D0-D7/A0-A6
  237. lbC00038C    BSR    $00C0E162
  238.     BRA.S    lbC00031C
  239.  
  240. lbC000392    AND.W    #$7FFF,$00007A1E
  241.     MOVE.W    D7,lbW0003A2
  242.     RTS
  243. lbW0003A2    dc.w    0
  244.     dc.w    0
  245.     dc.w    $0100
  246.     dc.w    $5200
  247.     dc.w    $0102
  248.     dc.w    0
  249.     dc.w    $0104
  250.     dc.w    $0024
  251.     dc.w    $0108
  252.     dc.w    2
  253.     dc.w    $010A
  254.     dc.w    2
  255.     dc.w    $0092
  256.     dc.w    $0048
  257.     dc.w    $0094
  258.     dc.w    $00C0
  259.     dc.w    $008E
  260.     dc.w    $1FA1
  261.     dc.w    $0090
  262.     dc.w    $FFB1
  263.     END
  264.