home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / anwend / bkite213 / develop_ / fsellib.s < prev   
Text File  |  1998-04-10  |  9KB  |  263 lines
  1.  
  2.           .EXPORT fsel_boxinput
  3.           .EXPORT fslx_open, fslx_evnt, fslx_close
  4.           .EXPORT fslx_getnxtfile, fslx_do, fslx_set_flags
  5.  
  6.           .TEXT
  7.  
  8. fsel_boxinput:
  9.            MOVEM.L   D1-D2/A0-A3,-(A7)
  10.            LEA.L     -$0080(A7),A7
  11.            LEA.L     $002E(A7),A0
  12.            LEA.L     $0068(A7),A2
  13.            MOVE.L    A0,(A2)
  14.            MOVE.L    $009C(A7),$0004(A2)
  15.            LEA.L     $000E(A7),A1
  16.            MOVE.L    A1,$0008(A2)
  17.            LEA.L     (A7),A1
  18.            MOVE.L    A1,$000C(A2)
  19.            LEA.L     $0050(A7),A1
  20.            MOVE.L    A1,$0010(A2)
  21.            LEA.L     $0038(A7),A3
  22.            MOVE.L    A3,$0014(A2)
  23.            MOVE.W    #$005B,(A0)
  24.            CLR.W     $0002(A0)
  25.            MOVE.W    #$0002,$0004(A0)
  26.            MOVE.W    #$0004,$0006(A0)
  27.            CLR.W     $0008(A0)
  28.            MOVE.L    $00A0(A7),(A1)
  29.            MOVE.L    $00A4(A7),$0004(A1)
  30.            MOVE.L    $00AC(A7),$0008(A1)
  31.            MOVE.L    $00B0(A7),$000C(A1)
  32.            MOVE.L    A2,D1
  33.            MOVE.W    #$C8,D0
  34.            TRAP      #2
  35.            MOVEA.L   $00A8(A7),A0
  36.            MOVE.W    $0002(A7),(A0)
  37.            MOVE.W    (A7),D0
  38.            LEA.L     $0080(A7),A7
  39.            MOVEM.L   (A7)+,D1-D2/A0-A3
  40.            RTS
  41.  
  42. fslx_open:
  43.            MOVEM.L   D1-D2/A0-A4,-(A7)
  44.            LEA.L     -$0080(A7),A7
  45.            LEA.L     $002E(A7),A0
  46.            LEA.L     $0068(A7),A2
  47.            MOVE.L    A0,(A2)
  48.            MOVE.L    $00A0(A7),$0004(A2)
  49.            LEA.L     $000E(A7),A1
  50.            MOVE.L    A1,$0008(A2)
  51.            LEA.L     (A7),A3
  52.            MOVE.L    A3,$000C(A2)
  53.            LEA.L     $0050(A7),A3
  54.            MOVE.L    A3,$0010(A2)
  55.            LEA.L     $0038(A7),A4
  56.            MOVE.L    A4,$0014(A2)
  57.            MOVE.W    #$00BE,(A0)
  58.            MOVE.W    #$0006,$0002(A0)
  59.            MOVE.W    #$0001,$0004(A0)
  60.            MOVE.W    #$0006,$0006(A0)
  61.            MOVE.W    #$0001,$0008(A0)
  62.            MOVE.W    $00A8(A7),(A1)
  63.            MOVE.W    $00AA(A7),$0002(A1)
  64.            MOVE.W    $00B4(A7),$0004(A1)
  65.            MOVE.W    $00B6(A7),$0006(A1)
  66.            MOVE.W    $00C8(A7),$0008(A1)
  67.            MOVE.W    $00CA(A7),$000A(A1)
  68.            MOVE.L    $00A4(A7),(A3)
  69.            MOVE.L    $00B0(A7),$0004(A3)
  70.            MOVE.L    $00B6(A7),$0008(A3)
  71.            MOVE.L    $00BC(A7),$000C(A3)
  72.            MOVE.L    $00C0(A7),$0010(A3)
  73.            MOVE.L    $00C4(A7),$0014(A3)
  74.            MOVE.L    A2,D1
  75.            MOVE.W    #$C8,D0
  76.            TRAP      #2
  77.            MOVEA.L   $00AC(A7),A0
  78.            MOVE.W    (A7),(A0)
  79.            MOVE.L    $0038(A7),D0
  80.            LEA.L     $0080(A7),A7
  81.            MOVEM.L   (A7)+,D1-D2/A0-A4
  82.            RTS
  83.  
  84. fslx_evnt:
  85.            MOVEM.L   D1-D2/A0-A3,-(A7)
  86.            LEA.L     -$0080(A7),A7
  87.            LEA.L     $002E(A7),A0
  88.            LEA.L     $0068(A7),A2
  89.            MOVE.L    A0,(A2)
  90.            MOVE.L    $009C(A7),$0004(A2)
  91.            LEA.L     $000E(A7),A1
  92.            MOVE.L    A1,$0008(A2)
  93.            LEA.L     (A7),A1
  94.            MOVE.L    A1,$000C(A2)
  95.            LEA.L     $0050(A7),A1
  96.            MOVE.L    A1,$0010(A2)
  97.            LEA.L     $0038(A7),A3
  98.            MOVE.L    A3,$0014(A2)
  99.            MOVE.W    #$00C1,(A0)
  100.            CLR.W     $0002(A0)
  101.            MOVE.W    #$0004,$0004(A0)
  102.            MOVE.W    #$0004,$0006(A0)
  103.            MOVE.W    #$0001,$0008(A0)
  104.            MOVE.L    $00A0(A7),(A1)
  105.            MOVE.L    $00A4(A7),$0004(A1)
  106.            MOVE.L    $00A8(A7),$0008(A1)
  107.            MOVE.L    $00AC(A7),$000C(A1)
  108.            MOVE.L    A2,D1
  109.            MOVE.W    #$C8,D0
  110.            TRAP      #2
  111.            MOVEA.L   $00B0(A7),A0
  112.            MOVE.W    $0002(A7),(A0)
  113.            MOVEA.L   $00B4(A7),A1
  114.            MOVE.W    $0004(A7),(A1)
  115.            MOVEA.L   $00B8(A7),A2
  116.            MOVE.W    $0006(A7),(A2)
  117.            MOVEA.L   $00BC(A7),A3
  118.            MOVE.L    $0038(A7),(A3)
  119.            MOVE.W    (A7),D0
  120.            LEA.L     $0080(A7),A7
  121.            MOVEM.L   (A7)+,D1-D2/A0-A3
  122.            RTS
  123.  
  124. fslx_close:
  125.            MOVEM.L   D1-D2/A0-A2,-(A7)
  126.            LEA.L     -$0080(A7),A7
  127.            LEA.L     $002E(A7),A0
  128.            LEA.L     $0068(A7),A2
  129.            MOVE.L    A0,(A2)
  130.            MOVE.L    $0098(A7),$0004(A2)
  131.            LEA.L     $000E(A7),A1
  132.            MOVE.L    A1,$0008(A2)
  133.            LEA.L     (A7),A1
  134.            MOVE.L    A1,$000C(A2)
  135.            LEA.L     $0050(A7),A1
  136.            MOVE.L    A1,$0010(A2)
  137.            LEA.L     $0038(A7),A1
  138.            MOVE.L    A1,$0014(A2)
  139.            MOVE.W    #$00BF,(A0)
  140.            CLR.W     $0002(A0)
  141.            MOVE.W    #$0001,$0004(A0)
  142.            MOVE.W    #$0001,$0006(A0)
  143.            CLR.W     $0008(A0)
  144.            MOVE.L    $009C(A7),$0050(A7)
  145.            MOVE.L    A2,D1
  146.            MOVE.W    #$C8,D0
  147.            TRAP      #2
  148.            MOVE.W    (A7),D0
  149.            LEA.L     $0080(A7),A7
  150.            MOVEM.L   (A7)+,D1-D2/A0-A2
  151.            RTS
  152.  
  153. fslx_getnxtfile:
  154.            MOVEM.L   D1-D2/A0-A2,-(A7)
  155.            LEA.L     -$0080(A7),A7
  156.            LEA.L     $002E(A7),A0
  157.            LEA.L     $0068(A7),A2
  158.            MOVE.L    A0,(A2)
  159.            MOVE.L    $0098(A7),$0004(A2)
  160.            LEA.L     $000E(A7),A1
  161.            MOVE.L    A1,$0008(A2)
  162.            LEA.L     (A7),A1
  163.            MOVE.L    A1,$000C(A2)
  164.            LEA.L     $0050(A7),A1
  165.            MOVE.L    A1,$0010(A2)
  166.            LEA.L     $0038(A7),A1
  167.            MOVE.L    A1,$0014(A2)
  168.            MOVE.W    #$00C0,(A0)
  169.            CLR.W     $0002(A0)
  170.            MOVE.W    #$0001,$0004(A0)
  171.            MOVE.W    #$0002,$0006(A0)
  172.            CLR.W     $0008(A0)
  173.            MOVE.L    $009C(A7),$0050(A7)
  174.            MOVE.L    $00A0(A7),$0054(A7)
  175.            MOVE.L    A2,D1
  176.            MOVE.W    #$C8,D0
  177.            TRAP      #2
  178.            MOVE.W    (A7),D0
  179.            LEA.L     $0080(A7),A7
  180.            MOVEM.L   (A7)+,D1-D2/A0-A2
  181.            RTS
  182.  
  183. fslx_do:
  184.            MOVEM.L   D1-D2/A0-A5,-(A7)
  185.            LEA.L     -$0080(A7),A7
  186.            MOVEA.L   $00B8(A7),A4
  187.            LEA.L     $002E(A7),A0
  188.            LEA.L     $0068(A7),A2
  189.            MOVE.L    A0,(A2)
  190.            MOVE.L    $00A4(A7),$0004(A2)
  191.            LEA.L     $000E(A7),A1
  192.            MOVE.L    A1,$0008(A2)
  193.            LEA.L     (A7),A3
  194.            MOVE.L    A3,$000C(A2)
  195.            LEA.L     $0050(A7),A3
  196.            MOVE.L    A3,$0010(A2)
  197.            LEA.L     $0038(A7),A5
  198.            MOVE.L    A5,$0014(A2)
  199.            MOVE.W    #$00C2,(A0)
  200.            MOVE.W    #$0004,$0002(A0)
  201.            MOVE.W    #$0004,$0004(A0)
  202.            MOVE.W    #$0006,$0006(A0)
  203.            MOVE.W    #$0002,$0008(A0)
  204.            MOVE.W    $00B0(A7),(A1)
  205.            MOVE.W    $00B6(A7),$0002(A1)
  206.            MOVE.W    (A4),$0004(A1)
  207.            MOVE.W    $00C8(A7),$0006(A1)
  208.            MOVE.L    $00A8(A7),(A3)
  209.            MOVE.L    $00AC(A7),$0004(A3)
  210.            MOVE.L    $00B2(A7),$0008(A3)
  211.            MOVE.L    $00B8(A7),$000C(A3)
  212.            MOVE.L    $00BC(A7),$0010(A3)
  213.            MOVE.L    $00C0(A7),$0014(A3)
  214.            MOVE.L    A2,D1
  215.            MOVE.W    #$C8,D0
  216.            TRAP      #2
  217.            MOVEA.L   $00CA(A7),A0
  218.            MOVE.W    $0002(A7),(A0)
  219.            MOVEA.L   $00CE(A7),A1
  220.            MOVE.W    $0004(A7),(A1)
  221.            MOVE.W    $0006(A7),(A4)
  222.            MOVEA.L   $00D2(A7),A2
  223.            MOVE.L    $003C(A7),(A2)
  224.            MOVE.L    $0038(A7),D0
  225.            LEA.L     $0080(A7),A7
  226.            MOVEM.L   (A7)+,D1-D2/A0-A5
  227.            RTS
  228.  
  229. fslx_set_flags:
  230.            MOVEM.L   D1-D2/A0-A2,-(A7)
  231.            LEA.L     -$0080(A7),A7
  232.            LEA.L     $002E(A7),A0
  233.            LEA.L     $0068(A7),A2
  234.            MOVE.L    A0,(A2)
  235.            MOVE.L    $0098(A7),$0004(A2)
  236.            LEA.L     $000E(A7),A1
  237.            MOVE.L    A1,$0008(A2)
  238.            LEA.L     (A7),A1
  239.            MOVE.L    A1,$000C(A2)
  240.            LEA.L     $0050(A7),A1
  241.            MOVE.L    A1,$0010(A2)
  242.            LEA.L     $0038(A7),A1
  243.            MOVE.L    A1,$0014(A2)
  244.            MOVE.W    #$00C3,(A0)
  245.            MOVE.W    #$0002,$0002(A0)
  246.            MOVE.W    #$0002,$0004(A0)
  247.            CLR.W     $0006(A0)
  248.            CLR.W     $0008(A0)
  249.            CLR.W     $000E(A7)
  250.            MOVE.W    $009C(A7),$0010(A7)
  251.            MOVE.L    A2,D1
  252.            MOVE.W    #$C8,D0
  253.            TRAP      #2
  254.            MOVEA.L   $009E(A7),A0
  255.            MOVE.W    $0002(A7),(A0)
  256.            MOVE.W    (A7),D0
  257.            LEA.L     $0080(A7),A7
  258.            MOVEM.L   (A7)+,D1-D2/A0-A2
  259.            RTS
  260.  
  261.  
  262.           .END
  263.