home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / lemmings.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  6.1 KB  |  462 lines
  1.  
  2.  
  3.  
  4.     Auto    jj\wb\a0\a1\jj1\a\
  5.  
  6.  
  7. Laddr    equ    $c80000
  8.     org    $70000
  9.     load    $70000
  10. j:    move.l    #$6f000,d0
  11. .ee    subq.l    #1,d0
  12.     bne.s    .ee
  13.     MOVE.L    #$DFF000,A6
  14.     MOVE.W    #$7FFF,$9A(A6)
  15.     MOVE.W    #$7FFF,$9E(A6)
  16.     LEA    lbL000580(PC),A5
  17.     LEA    $60000,A0
  18.     LEA    $1000(A0),A1
  19.     MOVEQ    #0,D0
  20.     MOVEQ    #5,D1
  21.     BSR    C070
  22. C054
  23.     lea    $60010,a0
  24.     move.l    $6fffc,d0
  25.     cmp.l    #146,d0
  26.     bgt.s    .rtt
  27.     mulu    #$10,d0
  28.     add.l    d0,a0
  29.     MOVE.L    #Laddr,A1
  30.     MOVEQ    #0,D1
  31.     BSR    C070
  32.     btst    #6,$bfe001
  33.     beq.s    .rtt
  34.     TST.W    D0
  35.     BMI    C054
  36.     move.w    #$e02c,$dff09a
  37.     MOVE.W    #$9500,$DFF09E
  38.     move.l    #laddr,a0
  39.     move.l    a0,a1
  40.     add.l    d1,a1
  41.     lea    $60010,a2
  42.     lea    $2d440,a3
  43.     move.l    $6fffc,d0
  44.     cmp.l    #146,d0
  45.     bgt.s    .rtt
  46.     mulu    #$10,d0
  47.     add.l    d0,a2
  48.     moveq    #0,d0
  49. .ra    addq.l    #1,d0
  50.     cmp.l    #254,d0
  51.     bge.s    .r2
  52.     move.b    (a2)+,(A3)+
  53.     bne.s    .ra
  54. .rtt
  55. .r2    rts
  56. j1    addq.l    #1,$6fffc
  57.     rts
  58.  
  59. C070    MOVEM.L    D2-D7/A0-A6,-(SP)
  60.     MOVE.L    #$DFF000,A6
  61.     CLR.W    $14(A5)
  62.     MOVE.W    $10(A6),$16(A5)
  63.     CLR.B    1(A5)
  64.     CLR.B    0(A5)
  65.     CLR.L    12(A5)
  66.     MOVE.W    #$FFFF,$10(A5)
  67.     SUBQ.W    #1,D1
  68.     BMI    C0F0
  69.     SUBQ.W    #1,D1
  70.     BMI    C0EE
  71.     SUBQ.W    #1,D1
  72.     BMI    C110
  73.     SUBQ.W    #1,D1
  74.     BMI    C0EE
  75.     SUBQ.W    #1,D1
  76.     BMI    C0EE
  77.     SUBQ.W    #1,D1
  78.     BMI    C184
  79.     SUBQ.W    #1,D1
  80.     BMI    C194
  81.     SUBQ.W    #1,D1
  82.     BMI    C0EE
  83.     SUBQ.W    #1,D1
  84.     BMI    C0EE
  85.     MOVE.W    #$FFFA,$14(A5)
  86. C0D2    BSR    C4F6
  87.     MOVE.W    $16(A5),D0
  88.     OR.W    #$8000,D0
  89.     MOVE.W    D0,$9E(A6)
  90.     MOVE.W    $14(A5),D0
  91.     EXT.L    D0
  92.     MOVEM.L    (SP)+,D2-D7/A0-A6
  93.     RTS
  94.  
  95. C0EE    RTS
  96.  
  97. C0F0    BSR    C4DA
  98.     BSR    C222
  99.     TST.W    D1
  100.     BEQ    C108
  101.     BSR    C266
  102.     MOVE.L    12(A5),D1
  103.     BRA.S    C0D2
  104.  
  105. C108    MOVE.W    #$FFFF,$14(A5)
  106.     BRA.S    C0D2
  107.  
  108. C110    BSR    C4DA
  109.     BSR    C11A
  110.     BRA.S    C0D2
  111.  
  112. C11A    MOVEM.L    D0/D1/A1,-(SP)
  113.     BSR    C488
  114.     BSET    #2,$BFD100
  115.     CLR.W    $10(A5)
  116.     BSR    C3B4
  117.     TST.W    $14(A5)
  118.     BNE    C17E
  119.     MOVEQ    #0,D1
  120.     MOVE.L    4(A5),A1
  121.     MOVE.W    #$400,D7
  122.     BSR    C320
  123.     TST.W    $14(A5)
  124.     BNE    C17E
  125.     MOVEQ    #1,D1
  126.     LEA    $400(A1),A1
  127.     BSR    C320
  128.     TST.W    $14(A5)
  129.     BNE    C17E
  130.     MOVEQ    #2,D1
  131.     LEA    $400(A1),A1
  132.     BSR    C320
  133.     TST.W    $14(A5)
  134.     BNE    C17E
  135.     MOVEQ    #3,D1
  136.     LEA    $400(A1),A1
  137.     BSR    C320
  138. C17E    MOVEM.L    (SP)+,D0/D1/A1
  139.     RTS
  140.  
  141. C184    MOVE.L    A0,4(A5)
  142.     MOVE.L    A1,8(A5)
  143.     BSR    C194
  144.     BRA    C0D2
  145.  
  146. C194    TST.W    D0
  147.     BMI    C1AA
  148.     ADDQ.W    #3,D0
  149.     MOVE.B    D0,2(A5)
  150.     BSR    C4DA
  151.     BSR    C11A
  152.     RTS
  153.  
  154. C1AA    MOVEQ    #3,D0
  155. C1AC    CLR.W    $14(A5)
  156.     MOVE.B    D0,2(A5)
  157.     BCLR    #7,$BFD100
  158.     BSR    C546
  159.     BCLR    D0,$BFD100
  160.     BSR    C546
  161.     MOVE.W    #$190,D6
  162. C1CE    BSR    C552
  163.     MOVE.B    $BFE001,D7
  164.     BTST    #5,D7
  165.     BEQ    C1F8
  166.     SUBQ.W    #1,D6
  167.     BNE.S    C1CE
  168.     BSR    C4F6
  169. C1E8    ADDQ.W    #1,D0
  170.     CMP.W    #6,D0
  171.     BNE.S    C1AC
  172.     MOVE.W    #$FFF8,$14(A5)
  173.     RTS
  174.  
  175. C1F8    MOVE.L    D0,-(SP)
  176.     BSR    C11A
  177.     BSR    C4F6
  178.     MOVE.L    (SP)+,D0
  179.     TST.W    $14(A5)
  180.     BNE.S    C1E8
  181.     TST.L    D2
  182.     BMI    C21C
  183.     MOVE.L    4(A5),A0
  184.     LEA    $10(A0),A0
  185.     CMP.L    (A0),D2
  186.     BNE.S    C1E8
  187. C21C    CLR.W    $14(A5)
  188.     RTS
  189.  
  190. C222    MOVEM.L    D2/D6/D7/A0/A1,-(SP)
  191.     MOVE.L    4(A5),A1
  192.     MOVE.W    #$BF,D7
  193.     MOVEQ    #0,D1
  194. C230    MOVEQ    #11,D6
  195.     MOVEM.L    A0/A1,-(SP)
  196. C236    MOVE.B    (A0)+,D2
  197.     CMP.B    (A1)+,D2
  198.     BNE    C250
  199.     TST.B    D2
  200.     BEQ    C248
  201.     DBRA    D6,C236
  202.  
  203. C248    MOVEM.L    (SP)+,A0/A1
  204.     BRA    C260
  205.  
  206. C250    ADDQ.W    #1,D1
  207.     MOVEM.L    (SP)+,A0/A1
  208.     LEA    $10(A1),A1
  209.     DBRA    D7,C230
  210.  
  211.     MOVEQ    #0,D1
  212. C260    MOVEM.L    (SP)+,D2/D6/D7/A0/A1
  213.     RTS
  214.  
  215. C266    MOVE.L    4(A5),A0
  216.     LSL.W    #4,D1
  217.     ADD.W    D1,A0
  218.     LSR.W    #4,D1
  219.     MOVE.L    12(A0),D2
  220.     MOVE.L    D2,12(A5)
  221.     MOVE.L    4(A5),A0
  222.     LEA    $C00(A0),A0
  223.     MOVEQ    #0,D3
  224. C282    CMP.B    (A0)+,D1
  225.     BNE    C318
  226.     MOVE.L    D3,D6
  227.     DIVU    #12,D6
  228.     SWAP    D6
  229.     MOVE.W    D6,D4
  230.     SWAP    D6
  231.     MOVEQ    #0,D5
  232.     CMP.W    #5,D4
  233.     BLE    C2A2
  234.     MOVEQ    #1,D5
  235.     SUBQ.W    #6,D4
  236. C2A2    CMP.W    $12(A5),D6
  237.     BNE    C2B6
  238.     CMP.W    $10(A5),D5
  239.     BNE    C2B6
  240.     BRA    C2E8
  241.  
  242. C2B6    MOVE.W    D6,D0
  243.     BSET    #2,$BFD100
  244.     CLR.W    $10(A5)
  245.     TST.W    D5
  246.     BEQ    C2D8
  247.     BCLR    #2,$BFD100
  248.     MOVE.W    #1,$10(A5)
  249. C2D8    BSR    C426
  250.     BSR    C3B4
  251.     TST.W    $14(A5)
  252.     BNE    C31E
  253. C2E8    MOVE.L    D1,-(SP)
  254.     MOVE.W    D4,D1
  255.     MOVE.W    #$400,D7
  256.     CMP.L    #$400,D2
  257.     BGE    C2FC
  258.     MOVE.W    D2,D7
  259. C2FC    BSR    C320
  260.     MOVE.L    (SP)+,D1
  261.     TST.W    $14(A5)
  262.     BNE    C31E
  263.     LEA    $400(A1),A1
  264.     SUB.L    #$400,D2
  265.     BLE    C31E
  266. C318    ADDQ.W    #1,D3
  267.     BRA    C282
  268.  
  269. C31E    RTS
  270.  
  271. C320    MOVEM.L    D1/D6/D7/A0/A1,-(SP)
  272.     MOVE.L    8(A5),A0
  273.     LEA    $A6(A0),A0
  274.     MULU    #$804,D1
  275.     ADD.L    D1,A0
  276.     MOVE.W    D7,D6
  277.     MOVEQ    #2,D7
  278.     BSR    C51E
  279.     MOVE.W    (A1),D0
  280.     MOVE.W    D6,D7
  281.     BSR    C51E
  282.     CMP.W    #$400,D7
  283.     BNE    C35A
  284.     BSR    C360
  285.     SUB.W    D1,D0
  286.     BEQ    C35A
  287.     MOVE.W    #$FFFC,$14(A5)
  288. C35A    MOVEM.L    (SP)+,D1/D6/D7/A0/A1
  289.     RTS
  290.  
  291. C360    MOVEM.L    D7/A1,-(SP)
  292.     MOVE.W    #$1FF,D7
  293.     MOVEQ    #0,D1
  294. C36A    ADD.W    (A1)+,D1
  295.     DBRA    D7,C36A
  296.  
  297.     MOVEM.L    (SP)+,D7/A1
  298.     RTS
  299.  
  300. C376    MOVE.L    D7,-(SP)
  301. C378    MOVE.W    $1E(A6),D7
  302.     BTST    #1,D7
  303.     BEQ.S    C378
  304.     MOVE.W    #2,$9C(A6)
  305.     MOVE.L    (SP)+,D7
  306.     RTS
  307.  
  308. C38C    BSR    C552
  309. C390    BTST    #5,$BFE001
  310.     BNE.S    C390
  311.     RTS
  312.  
  313. C39C    MOVE.L    D7,-(SP)
  314.     MOVE.B    $BFDD00,D7
  315. C3A4    MOVE.B    $BFDD00,D7
  316.     BTST    #4,D7
  317.     BEQ.S    C3A4
  318.     MOVE.L    (SP)+,D7
  319.     RTS
  320.  
  321. C3B4    MOVEM.L    D7/A1,-(SP)
  322.     MOVE.W    #$7FFF,$9E(A6)
  323.     MOVE.W    #$9500,$9E(A6)
  324.     MOVE.W    #$4489,$7E(A6)
  325.     MOVE.L    8(A5),A1
  326.     MOVEQ    #$4F,D7
  327. C3D0    MOVE.W    #$AAAA,(A1)+
  328.     DBRA    D7,C3D0
  329.  
  330.     MOVE.W    #$4489,(A1)+
  331.     MOVE.W    #$8210,$96(A6)
  332.     MOVEQ    #5,D7
  333. C3E4    MOVE.L    A1,$20(A6)
  334.     BSR.S    C39C
  335.     MOVE.W    #$4000,$24(A6)
  336.     MOVE.W    #$9867,$24(A6)
  337.     MOVE.W    #$9867,$24(A6)
  338.     BSR    C376
  339.     CMP.L    #$552AAAAA,(A1)
  340.     BEQ    C414
  341.     DBRA    D7,C3E4
  342.  
  343.     MOVE.W    #$FFFB,$14(A5)
  344. C414    MOVE.W    #$4000,$24(A6)
  345.     MOVE.W    #$10,$96(A6)
  346.     MOVEM.L    (SP)+,D7/A1
  347.     RTS
  348.  
  349. C426    CMP.W    $12(A5),D0
  350.     BNE    C430
  351.     RTS
  352.  
  353. C430    BGT    C45E
  354.     BSET    #1,$BFD100
  355.     BSR    C546
  356.     BCLR    #0,$BFD100
  357.     BSR    C546
  358.     BSET    #0,$BFD100
  359.     BSR    C38C
  360.     SUBQ.W    #1,$12(A5)
  361.     BRA.S    C426
  362.  
  363. C45E    BCLR    #1,$BFD100
  364.     BSR    C546
  365.     BCLR    #0,$BFD100
  366.     BSR    C546
  367.     BSET    #0,$BFD100
  368.     BSR    C38C
  369.     ADDQ.W    #1,$12(A5)
  370.     BRA.S    C426
  371.  
  372. C488    BSR    C4A0
  373.     MOVE.L    D0,-(SP)
  374.     MOVEQ    #1,D0
  375.     BSR.S    C426
  376.     MOVE.L    (SP)+,D0
  377.     RTS
  378.  
  379. C496    MOVE.L    D0,-(SP)
  380.     MOVEQ    #5,D0
  381.     BSR.S    C426
  382.     MOVE.L    (SP)+,D0
  383.     RTS
  384.  
  385. C4A0    BSR.S    C496
  386.     BTST    #4,$BFE001
  387.     BEQ    C4D4
  388.     BSET    #1,$BFD100
  389.     BSR    C546
  390.     BCLR    #0,$BFD100
  391.     BSR    C546
  392.     BSET    #0,$BFD100
  393.     BSR    C38C
  394.     BRA.S    C4A0
  395.  
  396. C4D4    CLR.W    $12(A5)
  397.     RTS
  398.  
  399. C4DA    BCLR    #7,$BFD100
  400.     MOVE.B    2(A5),D7
  401.     BSR    C546
  402.     BCLR    D7,$BFD100
  403.     BSR    C38C
  404.     RTS
  405.  
  406. C4F6    BSET    #7,$BFD100
  407.     MOVE.B    2(A5),D7
  408.     BSET    D7,$BFD100
  409.     BSR    C546
  410.     BCLR    D7,$BFD100
  411.     BSR    C546
  412.     BSET    D7,$BFD100
  413.     RTS
  414.  
  415. C51E    MOVEM.L    D0-D7/A1,-(SP)
  416.     LSR.W    #1,D7
  417.     SUBQ.W    #1,D7
  418.     MOVE.W    #$5555,D4
  419.     MOVE.W    #$AAAA,D5
  420. C52E    MOVE.W    (A0)+,D0
  421.     MOVE.W    (A0)+,D1
  422.     ASL.W    #1,D0
  423.     AND.W    D5,D0
  424.     AND.W    D4,D1
  425.     OR.W    D1,D0
  426.     MOVE.W    D0,(A1)+
  427.     DBRA    D7,C52E
  428.  
  429.     MOVEM.L    (SP)+,D0-D7/A1
  430.     RTS
  431.  
  432. C546    MOVE.L    D0,-(SP)
  433.     MOVEQ    #4,D0
  434.     BSR    C55E
  435.     MOVE.L    (SP)+,D0
  436.     RTS
  437.  
  438. C552    MOVE.L    D0,-(SP)
  439.     MOVEQ    #$30,D0
  440.     BSR    C55E
  441.     MOVE.L    (SP)+,D0
  442.     RTS
  443.  
  444. C55E    MOVEM.L    D1-D3,-(SP)
  445.     MOVEQ    #0,D3
  446. C564    MOVE.W    6(A6),D1
  447.     LSR.W    #8,D1
  448. C56A    MOVE.W    6(A6),D2
  449.     LSR.W    #8,D2
  450.     CMP.W    D1,D2
  451.     BEQ.S    C56A
  452.     ADDQ.W    #1,D3
  453.     CMP.W    D0,D3
  454.     BNE.S    C564
  455.     MOVEM.L    (SP)+,D1-D3
  456.     RTS
  457.  
  458. lbL000580    dc.l    0,0,0,0,0,0,0,0
  459. maina        dc.b    'main',0,0
  460.         dc.l    0
  461.         dc.l    $3F20000
  462.