home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / zarathrusta.s < prev   
Encoding:
Text File  |  1996-03-09  |  4.2 KB  |  333 lines
  1.  
  2.  
  3.     Auto    jj\wb\a0\a1\a\
  4.  
  5.     org    $79000
  6.     load    $79000
  7.  
  8. j:    move.l    #$100000,d0
  9. .a    subq.l    #1,d0
  10.     bne.s    .a
  11.     LEA    $DFF000,A6
  12.     move.w    #$7fff,$dff09a
  13.     move.w    #$8210,$dff096
  14.     lea    $c80000,a0
  15.     move.l    $78ffc,d0
  16.     bsr    C1ee
  17.     move.w    #$83f0,$dff096
  18.     move.w    #$e02c,$dff09a    
  19.     move.l    stara,a0
  20.     move.l    starb,a1
  21.     move.l    $78ffc,d0
  22.     addq.l    #1,$78ffc
  23.     rts
  24.  
  25. stara    dc.l    0
  26. starb    dc.l    0
  27.  
  28. C1DE    LEA    $7a000,A4
  29.     LSL.W    #3,D0
  30.     ADD.W    D0,A4
  31.     MOVE.L    (A4)+,D1
  32.     MOVE.L    (A4),D0
  33.     RTS
  34.  
  35. C1EE    BSR.S    C1DE            ;a0 locate
  36.     MOVE.L    -(A0),D7
  37.     move.l    a0,stara
  38.     LEA    0(A0,D0.L),A1
  39.     move.l    a1,starb
  40.     LEA    $60000,A2        ;diskbuffer
  41.     MOVEQ    #0,D0
  42.     BSR    C2EC
  43.     ;LEA    4(A0),A0
  44.     ;MOVE.L    A1,A2
  45.     ;BSR.S    C248
  46.     ;MOVE.L    D7,-(A0)
  47.     RTS
  48.  
  49. C248    MOVEQ    #0,D0
  50.     MOVE.B    -(A2),D0
  51.     LSL.W    #8,D0
  52.     MOVE.B    -(A2),D0
  53.     LSL.L    #8,D0
  54.     MOVE.B    -(A2),D0
  55.     LEA    0(A0,D0.L),A1
  56. C258    MOVEQ    #0,D0
  57.     MOVE.B    -(A2),D0
  58.     LSR.B    #1,D0
  59.     BCS.S    C2B0
  60.     LSR.B    #1,D0
  61.     BCS.S    C2A4
  62.     LSR.B    #1,D0
  63.     BCS.S    C2CA
  64.     LSR.B    #1,D0
  65.     BCS.S    C2A0
  66.     LSR.B    #1,D0
  67.     BCS.S    C284
  68.     LSL.W    #8,D0
  69.     MOVE.B    -(A2),D0
  70.     MOVE.B    -(A2),D1
  71.     ADDQ.W    #5,D0
  72. C278    MOVE.B    D1,-(A1)
  73.     DBRA    D0,C278
  74.  
  75.     CMP.L    A1,A0
  76.     BLT.S    C258
  77.     RTS
  78.  
  79. C284    MOVE.B    -(A2),D1
  80.     LSR.B    #1,D1
  81.     ADDX.W    D0,D0
  82.     ADDQ.W    #3,D0
  83.     LSL.W    #8,D1
  84.     MOVE.B    -(A2),D1
  85.     LEA    0(A1,D1.W),A3
  86. C294    MOVE.B    -(A3),-(A1)
  87.     DBRA    D0,C294
  88.  
  89.     CMP.L    A1,A0
  90.     BLT.S    C258
  91.     RTS
  92.  
  93. C2A0    LSL.W    #8,D0
  94.     MOVE.B    -(A2),D0
  95. C2A4    MOVE.B    -(A2),-(A1)
  96.     DBRA    D0,C2A4
  97.  
  98.     CMP.L    A1,A0
  99.     BLT.S    C258
  100.     RTS
  101.  
  102. C2B0    MOVE.W    D0,D1
  103.     AND.W    #3,D0
  104.     LSR.B    #2,D1
  105.     LEA    0(A1,D1.W),A3
  106.     ADDQ.W    #3,D0
  107. C2BE    MOVE.B    -(A3),-(A1)
  108.     DBRA    D0,C2BE
  109.  
  110.     CMP.L    A1,A0
  111.     BLT.S    C258
  112.     RTS
  113.  
  114. C2CA    MOVEQ    #0,D1
  115.     MOVE.B    -(A2),D1
  116.     MOVEQ    #15,D2
  117.     AND.W    D1,D2
  118.     LSL.W    #5,D2
  119.     LSR.W    #4,D1
  120.     OR.W    D0,D2
  121.     LEA    0(A1,D2.W),A3
  122.     ADDQ.W    #3,D1
  123. C2DE    MOVE.B    -(A3),-(A1)
  124.     DBRA    D1,C2DE
  125.  
  126.     CMP.L    A1,A0
  127.     BLT    C258
  128.     RTS
  129.  
  130. C2EC    MOVEM.L    D0-D7/A0-A6,-(SP)
  131. C2F0    LEA    $DFF000,A6
  132.     DIVU    #$18A0,D1
  133.     MOVE.L    D1,D3
  134.     SWAP    D3
  135.     MOVE.L    A0,A5
  136.     MOVE.L    A1,D5
  137.     SUB.L    A5,D5
  138.     MOVE.L    A2,A3
  139.     BSR    C342
  140.     BSR    C476
  141. C30E    BSR    C4F4
  142.     BEQ.S    C336
  143.     BSR    C3BE
  144.     BEQ.S    C336
  145.     BSR    C418
  146.     BEQ.S    C336
  147.     MOVEQ    #0,D3
  148.     TST.L    D5
  149.     BLE.S    C32C
  150.     BSR    C394
  151.     BNE.S    C30E
  152. C32C    BSR    C4A0
  153.     MOVEM.L    (SP)+,D0-D7/A0-A6
  154.     RTS
  155.  
  156. C336    LEA    L55C(PC),A0
  157.     ST     (A0)
  158.     MOVEM.L    (SP),D0-D7/A0-A6
  159.     BRA.S    C2F0
  160.  
  161. C342    BSR    C4C6
  162.     LEA    L55C(PC),A0
  163.     MOVE.W    (A0),2(A0)
  164.     BPL.S    C356
  165.     CLR.W    (A0)
  166.     BSR    C540
  167. C356    MOVE.W    (A0),D7
  168.     MOVE.W    D1,(A0)
  169.     LSR.W    #1,D7
  170.     LSR.W    #1,D1
  171.     CMP.W    D1,D7
  172.     BEQ.S    C382
  173.     BLT.S    C374
  174.     BSR    C528
  175. C368    BSR    C4E0
  176.     SUBQ.W    #1,D7
  177.     CMP.W    D1,D7
  178.     BNE.S    C368
  179.     BRA.S    C382
  180.  
  181. C374    BSR    C534
  182. C378    BSR    C4E0
  183.     ADDQ.W    #1,D7
  184.     CMP.W    D1,D7
  185.     BNE.S    C378
  186. C382    BSR    C534
  187.     MOVE.W    (A0),D7
  188.     BTST    #0,D7
  189.     BEQ    C510
  190.     BRA    C51C
  191.  
  192. C394    LEA    L55C(PC),A0
  193.     ADDQ.W    #1,(A0)
  194.     CMP.W    #$A4,(A0)
  195.     BGE.S    C3A8
  196.     BSR    C3AC
  197.     MOVEQ    #-$1,D0
  198.     RTS
  199.  
  200. C3A8    MOVEQ    #0,D0
  201.     RTS
  202.  
  203. C3AC    BTST    #0,1(A0)
  204.     BNE    C51C
  205.     BSR    C510
  206.     BRA    C4E0
  207.  
  208. C3BE    MOVE.W    #$8210,$96(A6)
  209.     MOVE.W    #$7FFF,$9E(A6)
  210.     MOVE.W    #$9500,$9E(A6)
  211.     MOVE.W    #$2112,$7E(A6)
  212.     MOVE.L    A3,$20(A6)
  213.     MOVE.W    #$9900,$24(A6)
  214.     MOVE.W    #$9900,$24(A6)
  215.     BRA    C3EA
  216.  
  217. C3EA    MOVE.W    #2,$9C(A6)
  218.     MOVE.W    #$1F4,D0
  219. C3F4    BTST    #1,$1F(A6)
  220.     BNE.S    C40E
  221.     BSR    C476
  222.     DBRA    D0,C3F4
  223.  
  224.     MOVE.W    #$4000,$24(A6)
  225.     MOVEQ    #0,D0
  226.     RTS
  227.  
  228. C40E    MOVE.W    #$4000,$24(A6)
  229.     MOVEQ    #-$1,D0
  230.     RTS
  231.  
  232. C418    MOVE.W    #$5555,D4
  233.     MOVE.L    A3,A0
  234.     MOVE.W    #3,D2
  235. C422    CMP.W    #$5245,(A0)+
  236.     DBEQ    D2,C422
  237.  
  238.     BNE    C472
  239.     MOVEM.W    (A0)+,D0/D1
  240.     AND.W    D4,D0
  241.     AND.W    D4,D1
  242.     LSL.W    #1,D0
  243.     OR.W    D1,D0
  244.     CMP.W    L55C(PC),D0
  245.     BNE    C472
  246.     CMP.W    #$5245,$3140(A0)
  247.     BNE    C472
  248.     MOVE.W    #$18A0,D2
  249.     SUB.W    D3,D2
  250.     ADD.W    D3,D3
  251.     ADD.W    D3,A0
  252.     LSR.W    #1,D2
  253.     SUBQ.W    #1,D2
  254. C45A    MOVEM.W    (A0)+,D0/D1
  255.     AND.W    D4,D0
  256.     AND.W    D4,D1
  257.     LSL.W    #1,D0
  258.     OR.W    D1,D0
  259.     MOVE.W    D0,(A5)+
  260.     SUBQ.L    #2,D5
  261.     DBLE    D2,C45A
  262.  
  263.     MOVEQ    #-$1,D0
  264.     RTS
  265.  
  266. C472    MOVEQ    #0,D0
  267.     RTS
  268.  
  269. C476    CLR.B    $BFD400
  270.     MOVE.B    #$18,$BFD500
  271.     MOVE.B    #1,$BFDE00
  272. C48C    BTST    #0,$BFDD00
  273.     BEQ.S    C48C
  274.     BCLR    #0,$BFDE00
  275.     RTS
  276.  
  277. C4A0    BSET    #7,$BFD100
  278.     OR.B    #$78,$BFD100
  279.     BSR.S    C476
  280.     AND.B    #$87,$BFD100
  281.     BSR.S    C476
  282.     OR.B    #$78,$BFD100
  283.     BRA.S    C476
  284.  
  285. C4C6    ADDQ.B    #3,D0
  286.     BCLR    #7,$BFD100
  287.     BSET    D0,$BFD100
  288.     BSR.S    C476
  289.     BCLR    D0,$BFD100
  290.     BRA.S    C476
  291.  
  292. C4E0    BCLR    #0,$BFD100
  293.     BSR.S    C476
  294.     BSET    #0,$BFD100
  295.     BRA.S    C476
  296.  
  297. C4F4    MOVE.L    #$61A80,D0
  298. C4FA    BTST    #5,$BFE001
  299.     BEQ.S    C50C
  300.     SUBQ.L    #1,D0
  301.     BNE.S    C4FA
  302.     MOVEQ    #0,D0
  303.     RTS
  304.  
  305. C50C    MOVEQ    #-$1,D0
  306.     RTS
  307.  
  308. C510    BSET    #2,$BFD100
  309.     BRA    C476
  310.  
  311. C51C    BCLR    #2,$BFD100
  312.     BRA    C476
  313.  
  314. C528    BSET    #1,$BFD100
  315.     BRA    C476
  316.  
  317. C534    BCLR    #1,$BFD100
  318.     BRA    C476
  319.  
  320. C540    MOVE.L    D1,-(SP)
  321.     BSR.S    C528
  322.     MOVEQ    #0,D1
  323. C546    BTST    #4,$BFE001
  324.     BEQ.S    C556
  325.     ADDQ.W    #1,D1
  326.     BSR.S    C4E0
  327.     BRA.S    C546
  328.  
  329. C556    MOVE.W    D1,D0
  330.     MOVE.L    (SP)+,D1
  331.     RTS
  332. L55C    dc.l    $FFFF0000
  333.