home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / reader.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  8.0 KB  |  535 lines
  1.  
  2.     org    $482d8
  3.     load    $482d8
  4.  
  5.     BCLR    #7,$2F9.W
  6.     BEQ.S    C028
  7.     MOVE.B    #$FF,$BFD100
  8.     MOVE.W    $33E.W,D3
  9.     ADDQ.W    #3,D3
  10.     BSET    D3,$BFD100
  11.     BCLR    D3,$BFD100
  12.     BSET    D3,$BFD100
  13. C028    CLR.W    $2FC.W
  14.     RTS
  15. C02E    ST    $2FA.W        ;48306
  16.     CLR.L    $25E.W
  17. C036    BTST    #7,$2F9.W
  18.     BEQ.S    C05C
  19.     TST.W    $2FC.W
  20.     BEQ.S    C05C
  21.     BMI.S    C05C
  22.     TST.W    $2F6.W
  23.     BNE.S    C05C
  24.     TST.B    $2FA.W
  25.     BEQ.S    C05C
  26.     CMPI.L    #$78,$25E.W
  27.     BLS.S    C036
  28. C05C    CLR.W    $2FC.W
  29.     RTS
  30.     ST    $2F3.W        ;4833a
  31.     SF    $327.W
  32.     MOVE.L    D0,-(SP)
  33.     BSR.S    C02E
  34.     BSET    #7,$2F9.W
  35.     BNE.S    C0A2
  36.     MOVE.B    #$FF,$BFD100
  37.     BCLR    #7,$BFD100
  38.     MOVE.W    $33E.W,D1
  39.     ADDQ.W    #3,D1
  40.     BCLR    D1,$BFD100
  41.     MOVEQ    #4,D6
  42. C094    MOVEQ    #-1,D1
  43.     BSR.W    C270
  44.     DBRA    D6,C094
  45.     ST    $2E8.W
  46. C0A2    CLR.W    $2F6.W
  47.     SF    $2FA.W
  48.     MOVE.W    #1,$2FC.W
  49.     MOVE.L    (SP)+,D0
  50.     BCLR    #7,$344.W
  51.     BNE.S    C0C6
  52.     BTST    #2,$BFE001
  53.     BEQ.W    C462
  54. C0C6    MOVE.L    D0,D1
  55.     DIVU.W    #4,D0
  56.     MOVE.W    D0,$2E4.W
  57.     CMPI.W    #1,$330.W
  58.     BNE.S    C0DC
  59.     ADDQ.W    #4,$2E4.W
  60. C0DC    SWAP    D0
  61.     MOVE.W    D0,$2E2.W
  62.     LEA    $3AFD0,A0
  63.     TST.W    D1
  64.     BEQ.S    C0F4
  65.     SUBQ.W    #1,D1
  66.     LEA    $3B610,A0
  67. C0F4    MOVE.L    A0,$30A.W
  68.     MOVE.L    #$30D50,$30E.W
  69.     LEA    $3AFD0,A0
  70.     ADDA.W    #0,A0
  71.     ADDA.W    D1,A0
  72.     MOVE.L    A0,$334.W
  73.     SF    $2F8.w
  74.     SF    $2F4.w
  75.     SF    $2F5.w
  76.     MOVE.L    $30A.w,$31A.W
  77.     MOVE.L    $30E.w,$31E.W
  78. C128    MOVE.B    #3,$2EA.W
  79.     MOVE.W    #$64,$2EC.W
  80.     MOVE.B    #10,$2EB.W
  81. C13A    ORI.B    #7,$BFD100
  82.     MOVE.W    $2E8.W,D1
  83.     BPL.S    C162
  84.     MOVEQ    #-12,D0
  85.     SUBQ.W    #1,$2EC.W
  86.     BEQ.W    C46C
  87.     BTST    #4,$BFE001
  88.     BNE.S    C182
  89.     MOVEQ    #0,D1
  90.     MOVE.W    D1,$2E8.W
  91. C162    MOVE.W    $2E4.W,D0
  92.     LSR.W    #1,D0
  93.     SCS    $2E6.W
  94.     SUB.B    D0,D1
  95.     BEQ.S    C1AA
  96.     BPL.S    C17E
  97.     ANDI.B    #$FD,$BFD100
  98.     ADDQ.W    #2,$2E8.W
  99. C17E    SUBQ.W    #1,$2E8.W
  100. C182    ANDI.B    #$FE,$BFD100
  101.     NOP
  102.     NOP
  103.     ORI.B    #1,$BFD100
  104.     MOVE.W    #$85E,D0
  105.     SUBQ.B    #1,D1
  106.     BNE.S    C1A2
  107.     ADD.W    #$29D6,D0
  108. C1A2    LEA    C13A(PC),A0
  109.     BRA.W    C248
  110. C1AA    TST.B    $2E6.W
  111.     BEQ.S    C1B8
  112.     ANDI.B    #$FB,$BFD100
  113. C1B8    TST.B    $2F3.W
  114.     BEQ.S    C1C8
  115.     SF    $2F3.W
  116.     CLR.W    $2FC.W
  117.     RTS
  118. C1C8    MOVE.B    $2F4.W,$2F5.W
  119.     BEQ.S    C1D2
  120.     RTS
  121. C1D2    LEA    C1DC(PC),A0
  122.     MOVE.W    #$2CA,D0
  123.     BRA.S    C248
  124. C1DC    BCLR    #7,$326.W
  125.     BEQ.S    C200
  126.     MOVE.L    $322.W,$334.W
  127.     SUBQ.W    #1,$2E4.W
  128.     MOVEQ    #-13,D0
  129.     MOVE.L    $30A.W,$31A.W
  130.     MOVE.L    $30E.W,$31E.W
  131.     BRA.W    C46C
  132. C200    SF    $345.W
  133.     MOVE.L    $31A.W,$30A.W
  134.     MOVE.L    $31E.W,$30E.W
  135.     LEA    $2D550,A1
  136.     MOVE.L    A1,$DFF020
  137.     CLR.L    (A1)
  138.     MOVE.W    #$9A40,$DFF024
  139.     MOVE.W    #$9A40,$DFF024
  140.     MOVEQ    #-1,D0
  141.     LEA    C236(PC),A0
  142.     BRA.S    C248
  143. C236    LEA    $2D550,A1
  144.     TST.W    (A1)
  145.     BEQ.S    C242
  146.     RTS
  147. C242    MOVEQ    #-10,D0
  148.     BRA.W    C46C
  149. C248    MOVE.L    A0,$2EE.W
  150.     LEA    $BFD000,A0
  151.     ANDI.B    #$C0,$E00(A0)
  152.     ORI.B    #8,$E00(A0)
  153.     MOVE.B    D0,$400(A0)
  154.     LSR.W    #8,D0
  155.     MOVE.B    #$81,$D00(A0)
  156.     MOVE.B    D0,$500(A0)
  157.     RTS
  158. C270    LEA    $BFD000,A2
  159.     ANDI.B    #$C0,$F00(A2)
  160.     ORI.B    #8,$F00(A2)
  161.     MOVE.B    D1,$600(A2)
  162.     LSR.W    #8,D1
  163.     MOVE.B    #$82,$D00(A2)
  164.     SF    $2F2.W
  165.     MOVE.B    D1,$700(A2)
  166. C296    TST.B    $2F2.W
  167.     BEQ.S    C296
  168.     RTS
  169. C29E    SF    $2FA.W
  170.     RTS
  171.     TST.B    $2FA.W
  172.     BNE.S    C29E
  173.     BSET    #7,$345.W
  174.     SF    $359.W
  175.     MOVE.W    #3,$338.W
  176.     LEA    $3AFD0,A0
  177.     CMPA.L    $30A.W,A0
  178.     BEQ.W    C38A
  179.     MOVEQ    #0,D1
  180.     MOVEQ    #0,D2
  181.     MOVEA.L    $334.W,A0
  182.     MOVE.L    A0,$322.W
  183. C2D4    TST.B    (A0,D2.W)
  184.     BMI.S    C2E2
  185.     SNE    $359.W
  186.     BNE.S    C2EA
  187.     ADDQ.W    #1,D1
  188. C2E2    ADDQ.W    #1,D2
  189.     CMP.W    #4,D2
  190.     BNE.S    C2D4
  191. C2EA    SUBQ.W    #1,D2
  192.     BPL.S    C2F8
  193.     SF    $345.W
  194.     MOVEQ    #0,D0
  195.     BRA.W    C46C
  196. C2F8    TST.B    $359.W
  197.     BNE.S    C308
  198.     CMPI.B    #1,4(A0)
  199.     SEQ    $359.W
  200. C308    MOVE.W    D2,$338.W
  201.     SUB.W    D1,D2
  202.     ADDQ.W    #1,D2
  203.     MOVE.L    $312.W,D0
  204.     TST.B    $281.W
  205.     BNE.S    C330
  206.     LEA    $3B610,A1
  207.     MOVE.L    #$17700,D0
  208.     ADDA.L    D0,A1
  209.     CMPA.L    A1,A6
  210.     BCS.S    C32E
  211.     SUBA.L    D0,A6
  212. C32E    MOVE.L    A6,D0
  213. C330    SUB.L    $30A.W,D0
  214.     BEQ.S    C338
  215.     BPL.S    C33E
  216. C338    ADD.L    #$17700,D0
  217. C33E    MULU.W    #$640,D2
  218.     CMP.L    D2,D0
  219.     SLS    $2F6.W
  220.     BHI.S    C350
  221.     SF    $345.W
  222.     RTS
  223. C350    MOVE.L    $2B4.W,D0
  224.     ADD.L    #$30D50,D0
  225.     TST.B    $281.W
  226.     BEQ.S    C364
  227.     MOVE.L    $316.W,D0
  228. C364    SUB.L    $30E.W,D0
  229.     BEQ.S    C36C
  230.     BPL.S    C372
  231. C36C    ADD.L    #$A280,D0
  232. C372    TST.W    D1
  233.     BEQ.S    C38A
  234.     ADDQ.W    #1,D1
  235.     MULU.W    #$C80,D1
  236.     CMP.L    D0,D1
  237.     SHI    $2F7.W
  238.     BLS.S    C38A
  239.     SF    $345.W
  240.     RTS
  241. C38A    SF    $345.W
  242.     MOVEM.L    D4/D5,-(SP)
  243.     LEA    $2D550,A0
  244.     LEA    $300.W,A1
  245.     CLR.L    (A1)
  246.     CLR.L    4(A1)
  247.     MOVEQ    #3,D4
  248.     MOVEQ    #0,D1
  249.     BSR.W    C72A
  250.     BRA.S    C3B0
  251.  
  252. C3AC    BSR.W    C722
  253. C3B0    BSR.W    C73A
  254.     MOVE.L    D0,D2
  255.     BSR.W    C740
  256.     EOR.L    D2,D0
  257.     ADDQ.L    #1,D0
  258.     BNE.W    C466
  259.     MOVEQ    #-6,D0
  260.     CMP.B    $2E5.W,D2
  261.     BNE.W    C468
  262.     CLR.B    D2
  263.     LSR.W    #7,D2
  264.     MOVEA.L    A0,A2
  265.     SUBA.L    #$2D550,A2
  266.     MOVEQ    #-7,D0
  267.     TST.W    (A1,D2.W)
  268.     BNE.W    C468
  269.     MOVE.W    A2,(A1,D2.W)
  270.     MOVE.W    D2,D3
  271.     SWAP    D2
  272.     MOVEQ    #-5,D0
  273.     MOVE.B    D2,$343.W
  274.     CMP.B    $331.W,D2
  275.     BNE.S    C468
  276.     ADDA.W    #$C88,A0
  277.     BSR.W    C73A
  278.     CMP.L    #$53444446,D0
  279.     BNE.S    C45E
  280.     MOVE.W    #2,$2FC.W
  281.     MOVE.W    #10,D1
  282.     SUBQ.W    #6,D3
  283.     BNE.S    C418
  284.     MOVE.W    #$100,D1
  285. C418    DBRA    D4,C3AC
  286.     MOVE.W    $338.W,D3
  287.     MOVE.W    $2E2.W,D0
  288.     SUB.W    D0,D3
  289.     ADD.W    D0,D0
  290.     MOVE.W    D0,$308.W
  291.     CLR.W    $2E2.W
  292.     ST    $2F4.W
  293.     MOVE.L    $30A.W,$31A.W
  294.     MOVE.L    $30E.W,$31E.W
  295. C440    LEA    C5B8(PC),A0
  296.     BSR.W    $45272
  297.     DBRA    D3,C440
  298.     MOVEM.L    (SP)+,D4/D5
  299.     ADDQ.W    #1,$2E4.W
  300.     TST.B    $359.W
  301.     BEQ.W    C128
  302.     RTS
  303. C45E    MOVEQ    #-9,D0
  304.     BRA.S    C468
  305. C462    MOVEQ    #-4,D0
  306.     BRA.S    C46C
  307. C466    MOVEQ    #-8,D0
  308. C468    MOVEM.L    (SP)+,D4/D5
  309. C46C    TST.W    D0
  310.     BEQ.S    C4C4
  311.     TST.B    $327.W
  312.     BNE.S    C488
  313.     CMP.W    #$FFF4,D0
  314.     BEQ.S    C4C4
  315.     CMP.W    #$FFFB,D0
  316.     BEQ.S    C4C4
  317.     CMP.W    #$FFFC,D0
  318.     BEQ.S    C4C4
  319. C488    CMP.W    #$FFFA,D0
  320.     BEQ.S    C4A4
  321.     CMP.W    #$FFF6,D0
  322.     BEQ.S    C4A4
  323.     SF    $2F4.W
  324.     SF    $2F5.W
  325.     SUBQ.B    #1,$2EB.W
  326.     BPL.W    C13A
  327. C4A4    ST    $2E8.W
  328.     MOVE.W    #$64,$2EC.W
  329.     MOVE.B    #10,$2EB.W
  330.     TST.B    $327.W
  331.     BMI.W    C13A
  332.     SUBQ.B    #1,$2EA.W
  333.     BPL.W    C13A
  334. C4C4    MOVE.W    D0,$2FC.W
  335.     ADDI.L    #$64A,$30A.W
  336.     RTS
  337. C4D2    LEA    $300.W,A1
  338.     MOVEA.W    (A1,D0.W),A0
  339.     ADDA.L    #$2D550,A0
  340.     MOVEA.L    $31E.W,A2
  341.     MOVE.W    #$31,D1
  342.     MOVE.L    #$F0F0F0F0,D0
  343.     MOVE.L    D4,-(SP)
  344.     MOVEQ    #4,D4
  345. C4F2    MOVE.L    (A0)+,D2
  346.     MOVE.L    D2,D3
  347.     AND.L    D0,D2
  348.     MOVE.L    D2,(A2)+
  349.     LSL.L    D4,D3
  350.     MOVE.L    D3,(A2)+
  351.     MOVE.L    (A0)+,D2
  352.     MOVE.L    D2,D3
  353.     AND.L    D0,D2
  354.     MOVE.L    D2,(A2)+
  355.     LSL.L    D4,D3
  356.     MOVE.L    D3,(A2)+
  357.     MOVE.L    (A0)+,D2
  358.     MOVE.L    D2,D3
  359.     AND.L    D0,D2
  360.     MOVE.L    D2,(A2)+
  361.     LSL.L    D4,D3
  362.     MOVE.L    D3,(A2)+
  363.     MOVE.L    (A0)+,D2
  364.     MOVE.L    D2,D3
  365.     AND.L    D0,D2
  366.     MOVE.L    D2,(A2)+
  367.     LSL.L    D4,D3
  368.     MOVE.L    D3,(A2)+
  369.     MOVE.L    (A0)+,D2
  370.     MOVE.L    D2,D3
  371.     AND.L    D0,D2
  372.     MOVE.L    D2,(A2)+
  373.     LSL.L    D4,D3
  374.     MOVE.L    D3,(A2)+
  375.     MOVE.L    (A0)+,D2
  376.     MOVE.L    D2,D3
  377.     AND.L    D0,D2
  378.     MOVE.L    D2,(A2)+
  379.     LSL.L    D4,D3
  380.     MOVE.L    D3,(A2)+
  381.     MOVE.L    (A0)+,D2
  382.     MOVE.L    D2,D3
  383.     AND.L    D0,D2
  384.     MOVE.L    D2,(A2)+
  385.     LSL.L    D4,D3
  386.     MOVE.L    D3,(A2)+
  387.     MOVE.L    (A0)+,D2
  388.     MOVE.L    D2,D3
  389.     AND.L    D0,D2
  390.     MOVE.L    D2,(A2)+
  391.     LSL.L    D4,D3
  392.     MOVE.L    D3,(A2)+
  393.     DBRA    D1,C4F2
  394.     MOVE.L    (SP)+,D4
  395.     CMPA.L    #$3AFD0,A2
  396.     BNE.S    C566
  397.     LEA    $30D50,A2
  398. C566    MOVE.L    A2,$31E.W
  399.     CLR.W    $2BE.W
  400.     MOVE.W    $308.W,D0
  401.     BRA.W    C6E0
  402.  
  403. C576    SF    $2F8.W
  404.     MOVEA.L    $328.W,A0
  405.     MOVE.L    A0,$DFF050
  406.     ADDA.L    #$17700,A0
  407.     MOVE.L    A0,$DFF054
  408.     MOVEQ    #0,D2
  409.     MOVE.W    D2,$DFF042
  410.     MOVE.W    D2,$DFF064
  411.     MOVE.W    D2,$DFF066
  412.     MOVE.W    #$9F0,$DFF040
  413.     MOVE.W    #$C801,$DFF058
  414.     BRA.W    C6E0
  415.  
  416. C5B8    MOVE.W    $308.W,D0
  417.     LEA    $300.W,A1
  418.     MOVEA.W    (A1,D0.W),A0
  419.     ADDA.L    #$2D550,A0
  420.     TST.B    $2F8.W
  421.     BNE.S    C576
  422.     TST.W    $2BE.W
  423.     BNE.W    C4D2
  424.     MOVE.W    #$63F,D1
  425.     MOVE.L    A0,$328.W
  426.     ADDA.W    D1,A0
  427.     MOVEA.L    A0,A1
  428.     MOVE.L    A0,$DFF050
  429.     ADDA.W    D1,A0
  430.     ADDQ.W    #1,A0
  431.     MOVE.L    A0,$DFF04C
  432.     ADDQ.W    #1,A0
  433.     MOVE.L    A0,$32C.W
  434.     MOVE.W    #$5555,$DFF070
  435.     MOVEA.L    $31A.W,A0
  436.     CMPA.L    #$3AFD0,A0
  437.     BEQ.S    C628
  438.     MOVEA.L    $334.W,A0
  439.     MOVE.B    (A0)+,D2
  440.     MOVE.L    A0,$334.W
  441.     TST.B    D2
  442.     BNE.S    C628
  443.     MOVE.L    A1,$DFF054
  444.     ADDQ.W    #2,$2BE.W
  445.     BRA.S    C65E
  446. C628    MOVEA.L    $31A.W,A0
  447.     MOVE.L    A0,D2
  448.     SUB.L    #$3B610,D2
  449.     CMP.L    #$640,D2
  450.     SCS    $2F8.W
  451.     MOVE.L    A0,$328.W
  452.     ADDA.W    D1,A0
  453.     MOVE.L    A0,$DFF054
  454.     ADDQ.W    #1,A0
  455.     CMP.L    #$170C0,D2
  456.     BNE.S    C65A
  457.     SUBA.L    #$17700,A0
  458. C65A    MOVE.L    A0,$31A.W
  459. C65E    MOVE.W    #2,$DFF042
  460.     MOVEQ    #0,D1
  461.     MOVE.L    D1,$DFF062
  462.     MOVE.W    D1,$DFF066
  463.     MOVE.W    #$1DD8,$DFF040
  464.     MOVE.W    #$C801,$DFF058
  465. C684    BTST    #6,$DFF01F
  466.     BEQ.S    C684
  467.     MOVEM.L    D0-D7/A0-A6,-(SP)
  468.     MOVEA.L    $32C.W,A0
  469.     BSR.W    C73A
  470.     NEG.L    D0
  471.     MOVEA.L    $328.W,A0
  472.     MOVE.W    #$18,D1
  473. C6A4    ADD.L    (A0)+,D0
  474.     ADD.L    (A0)+,D0
  475.     ADD.L    (A0)+,D0
  476.     ADD.L    (A0)+,D0
  477.     ADD.L    (A0)+,D0
  478.     ADD.L    (A0)+,D0
  479.     ADD.L    (A0)+,D0
  480.     ADD.L    (A0)+,D0
  481.     ADD.L    (A0)+,D0
  482.     ADD.L    (A0)+,D0
  483.     ADD.L    (A0)+,D0
  484.     ADD.L    (A0)+,D0
  485.     ADD.L    (A0)+,D0
  486.     ADD.L    (A0)+,D0
  487.     ADD.L    (A0)+,D0
  488.     ADD.L    (A0)+,D0
  489.     DBRA    D1,C6A4
  490.     BEQ.S    C6CE
  491.     ST    $326.W
  492. C6CE    MOVEM.L    (SP)+,D0-D7/A0-A6
  493.     TST.W    $2BE.W
  494.     BNE.W    C4D2
  495.     TST.B    $2F8.W
  496.     BNE.S    C6F6
  497. C6E0    ADDQ.W    #2,$308.W
  498.     SUBA.L    A0,A0
  499.     MOVE.W    $338.W,D1
  500.     ADD.W    D1,D1
  501.     CMP.W    D1,D0
  502.     BNE.S    C6F4
  503.     LEA    C6F8(PC),A0
  504. C6F4    MOVEQ    #0,D0
  505. C6F6    RTS
  506. C6F8    SF    $2F4.W
  507.     TST.B    $2F5.W
  508.     BEQ.S    C70A
  509.     SF    $2F5.W
  510.     BRA.W    C1DC
  511. C70A    TST.B    $359.W
  512.     BEQ.S    C6F6
  513.     MOVE.L    $31A.W,$30A.W
  514.     MOVE.L    $31E.W,$30E.W
  515.     MOVEQ    #0,D0
  516.     BRA.W    C46C
  517.  
  518. C722    CMPI.W    #$4489,(A0)+
  519.     DBEQ    D1,C722
  520. C72A    CMPI.W    #$4489,(A0)+
  521.     BNE.S    C736
  522.     CMPI.W    #$4489,(A0)+
  523.     BEQ.S    C738
  524. C736    SUBQ.W    #2,A0
  525. C738    RTS
  526. C73A    MOVE.L    #$55555555,D5
  527. C740    MOVE.L    (A0)+,D0
  528.     MOVE.L    (A0)+,D1
  529.     AND.L    D5,D0
  530.     AND.L    D5,D1
  531.     LSL.L    #1,D0
  532.     OR.L    D1,D0
  533.     RTS
  534. jend        ;48a26
  535.