home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / compress / filearchivers / lhsfx / source.lha / LhSFX / source / LHsfxV15a.s next >
Text File  |  1991-06-01  |  58KB  |  2,952 lines
  1. ;--------------------------------------------------------------------
  2. ;
  3. ;    Proggy:        LHSFX
  4. ;
  5. ;
  6. ;    Version:    V1.5a
  7. ;
  8. ;    Date:        14/11/92
  9. ;
  10. ;
  11. ;    Author:        Mike Kennedy and Ralf Thanner
  12. ;
  13. ;    Assembler:    ASM-ONE  (old syntax)
  14. ;
  15. ;--------------------------------------------------------------------
  16. ;
  17. ;  This source is not well optimized and may still include some
  18. ;  bugs and should  therefore not be seen as an example of good
  19. ;  programming. The only thing  I did was adding some stuff and
  20. ;  removing bugs. The decrunch header is still awfull and  some
  21. ;  other parts of the code too, but I'm really too lazy because
  22. ;  there are other and better SFX (like LHAsfx) around.
  23. ;
  24. ;  So do what you want with this piece but don't blame  ME  for
  25. ;  this code!-)
  26. ;
  27. ;  Be carefull when you assemble it  with an assembler like DEVPAC
  28. ;  with optimisation, coz the decrunch header includes lots of bad
  29. ;  code but has a hard-coded reloc table at the end. This makes it
  30. ;  a little bit complicated, and gives you only the choice  either
  31. ;  to rewrite the complete header or not to touch this area:-((
  32. ;  Look at 'SFX header' for a short overview. 
  33. ; 
  34. ;--------------------------------------------------------------------
  35. ;                       ****** History ******
  36. ;--------------------------------------------------------------------
  37. ;
  38. ; V1.2   28/05/91        [INTERNAL]
  39. ;
  40. ;     - removed Mikes bugs (LHSfx crashed sometimes; not all mem freed)
  41. ;
  42. ;     - added filerequester of req.library!
  43. ;       (if you don't have the req.lib you must type the name.-(
  44. ;
  45. ;     - removed screen color cycle during crunch.
  46. ;
  47. ;     - tried to improve the code a little bit!
  48. ;       ( fixed bugs, added file req., made it more multitasking
  49. ;         friendly and the code is still shorter! )
  50. ;
  51. ;     - changed:        DESTINATION  > ram:testfile
  52. ;                to     ARCHIVE NAME > ram:testfile
  53. ;
  54. ;
  55. ;     - changed:        'Press Left Mouse Button'
  56. ;                to     'Press RIGHT Mouse Button' for DMOUSE user!
  57. ;
  58. ----------------------------------------------------------------------
  59. ;
  60. ; V1.3   14/06/91        [INTERNAL]
  61. ;
  62. ;     - the filerequester is now also used for 'ARCHIV NAME' and
  63. ;       'EXTRACT PATH'.
  64. ;
  65. ;     - short instructions at the beginning ( only with req.lib. ).
  66. ;
  67. ;     - '.SFX' will be added automagically to archiv name.
  68. ;
  69. ;     - added led-cycling during crunch. ( is he still crunching?? )
  70. ;       ( In a multitasking system i prefer something more subtil than
  71. ;         a flashing screen. )
  72. ;
  73. ;     - added requester for '[F]ile' or '[D]isplay' choice.
  74. ;
  75. ;     - 'CON' and 'ANSI' part thrown out.
  76. ;       ( filelenght reduced from 18kb to 9kb! )
  77. ;
  78. ;---------------------------------------------------------------------
  79. ;
  80. ; V1.4   22/10/91        [INTERNAL]
  81. ;
  82. ;     - added requester for 'Overwrite [Y]es / [N]o' decision.
  83. ;
  84. ;     - removed some of my own bugs and some of Mike.
  85. ;
  86. ;     - the 'EXTRACT PATH' has only to be declared once.
  87. ;
  88. ;---------------------------------------------------------------------
  89. ;
  90. ; V1.5   03/11/92        Public release
  91. ;
  92. ;     - rewrote part of the code and removed bugs.
  93. ;
  94. ;     - changed TASKPRI during crunch from '0' to '+8'.
  95. ;
  96. ;     - handles now different 'source file dirs' correct (V1.5a).
  97. ;
  98. ;=====================================================================
  99. ;                 ********** Allgemeine Konstanten ***********
  100. ;=====================================================================
  101. ; a6 = $dff000    (oder execbase)
  102. ; a5 = pointer auf globales Variablenfeld (VAR)
  103. ;--------------------------------------------------------------------
  104.  
  105. disable        EQU    -120    ;     Exec.library
  106. enable        EQU    -126
  107. forbid        EQU    -132
  108. permit        EQU    -138
  109. allocmem    EQU    -198
  110. freemem        EQU    -210
  111. availmem    EQU    -216
  112. findname    EQU    -276
  113. addtask        EQU    -282
  114. findtask    EQU    -294
  115. settaskpri    EQU    -300
  116. allocsignal    EQU    -330
  117. freesignal    EQU    -336
  118. addport        EQU    -354
  119. RemPort        EQU    -360
  120. putmsg        EQU    -366
  121. getmsg        EQU    -372
  122. replymsg    EQU    -378
  123. waitport    EQU    -384
  124. findport    EQU    -390
  125. closelib    EQU    -414
  126. OpenDevice    EQU    -444
  127. CloseDevice    EQU    -450
  128. doio        EQU    -456
  129. openresource    EQU    -498
  130. openlib        EQU    -552
  131.  
  132. Center            EQU    -$1e    ;    Req-Library
  133. SetSize            EQU    -$24
  134. SetLocation        EQU    -$2a
  135. ReadLocation        EQU    -$30
  136. Format            EQU    -$36
  137. FakeFunction1        EQU    -$3c 
  138. FakeFunction2        EQU    -$42 
  139. FakeFunction3        EQU    -$48 
  140. FakeFunction4        EQU    -$4e 
  141. FileRequester        EQU    -$54
  142. ColorRequester        EQU    -$5a
  143. DrawBox            EQU    -$60
  144. MakeButton        EQU    -$66
  145. MakeScrollBar        EQU    -$6c
  146. PurgeFiles        EQU    -$72
  147. GetFontHeightAndWidth    EQU    -$78
  148. MakeGadget        EQU    -$7e
  149. MakeString        EQU    -$84
  150. MakeProp        EQU    -$8a
  151. LinkGadget        EQU    -$90
  152. LinkStringGadget    EQU    -$96
  153. LinkPropGadget        EQU    -$9c
  154. GetString        EQU    -$a2
  155. RealTimeScroll        EQU    -$a8
  156. TextRequest        EQU    -$ae
  157. GetLong            EQU    -$b4
  158. RawKeyToAscii        EQU    -$ba
  159. ExtendedColorRequester    EQU    -$c0
  160. NewGetString        EQU    -$c6
  161.  
  162. *************************************************************************
  163. FRQSHOWINFO    EQU $00000001 ; .info files to show.  They default to hidden.
  164. FRQEXTSELECT    EQU $00000002 ; extended select.  Default is not.
  165. FRQCACHING    EQU $00000004 ; directory caching.  Default is not.
  166. FRQGETFONTS    EQU $00000008 ; font Requester rather than a file Requester.
  167. FRQINFOGADGET    EQU $00000010 ; hide-info files gadget.
  168. FRQHIDEWILDS    EQU $00000020 ; DON'T want 'show' and 'hide' string gadgets.
  169. FRQABSOLUTEXY    EQU $00000040 ; absolute x,y positions rather than centering on mouse.
  170. FRQCACHEPURGE    EQU $00000080 ; Purge the cache whenever the directory date stamp changes if this is set.
  171. FRQNOHALFCACHE    EQU $00000100 ; Don't cache a directory unless it is completely read in when this is set.
  172. FRQNOSORT    EQU $00000200 ; DON'T want sorted directories.
  173. FRQNODRAG    EQU $00000400 ; DON'T want a drag bar and depth gadgets.
  174. FRQSAVING    EQU $00000800 ; selecting a file to save to.
  175. FRQLOADING    EQU $00001000 ; selecting a file(s) to load from.
  176. FRQDIRONLY    EQU $00002000 ; select a directory, rather than a file.
  177. DSIZE        EQU 130        ;Directory SIZE    ;DON'T CHANGE !!
  178. FCHARS        EQU 30        ;Filename SIZE    ;DON'T CHANGE !!
  179. WILDLENGTH    EQU 30             ;Wildcards SIZE    ;DON'T CHANGE !!
  180. **********************************************************************
  181.  
  182.  
  183. ;=====================================================================
  184. ;                             ** MAIN **
  185. ;=====================================================================
  186.  
  187. ; code by MIKE and me...
  188.  
  189. start:
  190.  
  191.  
  192.     movem.l    d0-d7/a0-a6,-(SP)
  193.  
  194.     MOVE.L        4.w,A6
  195.     lea        VAR(PC),A5    ; master base to avoid reloc_32
  196.                     ; hunks and to get faster code..
  197.     suba.l        a1,a1
  198.     jsr    findtask(a6)
  199.     move.l        d0,a4
  200.     move.l        d0,my_task-var(a5)
  201.  
  202. ;    LEA        $5c(A4),A1    ; MSG Port
  203. ;    move.l        a1,port1-var(a5)
  204.  
  205.     tst.l        $ac(a4)
  206.     bne.b    cli_call
  207.  
  208. * Worbench Part
  209.  
  210.     lea        $5c(a4),a0
  211.     jsr    waitport(a6)
  212.     lea        $5c(a4),a0
  213.     jsr    getmsg(a6)
  214.     move.l        d0,A4    ; WB_Message
  215.  
  216.     jsr    forbid(a6)
  217.     move.l        A4,a1
  218.     jsr    replymsg(a6)
  219.     movem.l     (a7)+,d0-d7/a0-a6
  220.     moveq        #00,d0
  221.     rts
  222.  
  223. * CLI-PARAMETER HANDLER
  224.  
  225. cli_call
  226.     movem.l     (a7)+,d0-d7/a0-a6
  227.  
  228.     MOVE.L        4.w,A6
  229.     lea        VAR(PC),A5
  230.  
  231.     lea        reqname(pc),a1    ; open req.lib
  232.     moveq        #0,d0
  233.     jsr    -552(a6)
  234.     move.l        d0,reqbase-var(a5)
  235.  
  236. led_test
  237.     btst        #1,$bfe001
  238.     seq        led-var(a5)
  239.     bset        #1,$bfe001
  240.  
  241.     LEA        doslibrary(pc),A1
  242.     moveq        #0,d0
  243.     JSR    -552(A6)
  244.     MOVE.L        D0,dosbase-var(a5)    ; dosbase
  245.     beq.w        nix_dos_open
  246.     move.l        d0,a6
  247.  
  248.     jsr    -60(a6)                ; output
  249.     MOVE.L        D0,conbase0-var(a5)
  250.     BEQ.W    dos_open_aber_no_con
  251.  
  252. ;    MOVE.L        #mes0,D2
  253.     lea        mes0(pc),a0
  254.     MOVE.l        #mes0leng,D3
  255.     bsr.w    write_text        ; write begin text
  256.  
  257.     tst.l        reqbase-var(a5)
  258.     bne.b    oh_no
  259.  
  260. ;    MOVE.L        #mes1,D2
  261.     lea        mes1(pc),a0
  262.     MOVE.l        #mes1leng,D3
  263.     bsr.w    write_text        ; write begin text
  264.  
  265. oh_no
  266.     MOVE.L        #$9C40,D0        
  267.     MOVE.L        #$10001,D1    ; Clear&Public
  268.     MOVE.L        4.w,A6
  269.     JSR    -$C6(A6)
  270.     MOVE.L        D0,alloc0-var(a5)    ; alloc mem
  271.     beq.w    alloc0_no
  272.  
  273. overwrite_no
  274.     tst.l        reqbase-var(a5)
  275.     beq.b    war_nix1
  276.  
  277.     bsr.w    about
  278.  
  279.     lea        load_title1(pc),a1    ; Archivname
  280.     moveq        #0,d0
  281.     bra.w        use_it
  282.  
  283. war_nix1
  284. ;    MOVE.L        #mDestination0,D2    ; 'archiv name'
  285.     lea        mDestination0(pc),a0
  286.     MOVEq        #$18,D3
  287.     bsr.w    write_text
  288.  
  289.     moveq        #0,d0
  290.     bsr.w        enter_arh_name        ; 0 Archiv
  291.  
  292.     LEA        name_buff(pc),A0
  293.     TST.L        (A0)
  294.     beq.b    war_nix1
  295.     CMP.L        #'exit',(A0)
  296.     beq.w    free_mem
  297.     CMP.L        #'EXIT',(A0)
  298.     beq.w    free_mem
  299. howdi1
  300.     lea        var(pc),a5
  301.     MOVE.L        A0,D1
  302.     moveq        #-2,D2
  303.     MOVE.L        dosbase(pc),A6
  304.     JSR    -$54(A6)            ; lock
  305.     TST.L        D0
  306.     beq.b    overwrite_yes1
  307.     MOVE.L        D0,lock_handle-var(a5)
  308.     MOVE.L        D0,D1
  309.  
  310. ;    MOVE.L        #info_block,D2
  311.     lea        info_block(pc),a0
  312.     move.l        a0,d2
  313.  
  314.     MOVE.L        dosbase(pc),A6
  315.     JSR    -$66(A6)            ; examine
  316.     MOVE.L        lock_handle(PC),D1
  317.     MOVE.L        dosbase(pc),A6
  318.     JSR    -$5A(A6)            ; unlock
  319.     MOVE.L        is_it_datei(PC),D0
  320.     TST.L        D0
  321.     BLT.s    ask_for_overwrite
  322.  
  323. ;    MOVE.L        #mThatsadirect,D2    ; 'That's a directory'
  324.     lea        mThatsadirect(pc),a0
  325.     MOVEq        #$22,D3
  326.  
  327.     bsr.w    write_text
  328.     bra.w    overwrite_no
  329.  
  330. ask_for_overwrite
  331.     tst.l        reqbase-var(a5)
  332.     beq.b    ask_for_overwrite1
  333.     bra.w    req_ask_overwrite
  334. ask_for_overwrite1
  335. ;    MOVE.L        #mFileExistsOv,D2    ; 'File exists /overwrite?'
  336.     lea        mFileExistsOv(pc),a0
  337.     MOVEq        #$2B,D3
  338.     bsr.w    write_text
  339.     bsr.w    two_input
  340.     CMP.B        #$59,(A0)    ; y (overwrite?)
  341.     beq.b    overwrite_yes
  342.     CMP.B        #$79,(A0)
  343.     beq.b    overwrite_yes
  344.     bra.w    overwrite_no
  345.  
  346. overwrite_yes
  347.     MOVE.L        #name_buff,D1
  348.     MOVE.L        dosbase(pc),A6
  349.     JSR    -72(A6)            ; Delete
  350. overwrite_yes1
  351.  
  352.     MOVE.L        #name_buff,D1
  353.     MOVE.L        #$3EE,D2
  354.     MOVE.L        dosbase(pc),A6
  355.     JSR    -$1E(A6)        ; Open
  356.     TST.L        D0
  357.     bne.b    lbC000134        ; hat geklappt
  358.     bra.w    write_file_error
  359.  
  360. lbC000134
  361.     lea        VAR(PC),a5
  362.     MOVE.L        D0,File_handle-var(a5)
  363.     move.l        d0,d1
  364.     MOVE.L        #sfx_hunk,D2
  365.     MOVE.L        #sfx_len,D3
  366.     JSR    -$30(A6)        ; Write
  367.     tst.l        d0
  368.     bmi.w    lbc00066e
  369. ;    MOVE.L        #mArchiveOpene,D2    ; 'Archiv opened..'
  370.     lea        mArchiveOpene(pc),a0
  371.     MOVEq        #$1C,D3
  372.     bsr.w    write_text
  373.  
  374. main_loop:
  375.     lea        VAR(PC),A5
  376.     tst.l        reqbase-var(a5)
  377.     beq.b    war_nix
  378.     lea        load_title(pc),a1
  379.     moveq        #1,d0
  380.     bra.w        use_it
  381. war_nix
  382. ;    MOVE.L        #mOriginal0m,D2    ; 'Original >'
  383.     lea        mOriginal0m(pc),a0
  384.     MOVEq        #$15,D3
  385.     BSR.W    write_text        ; text schreiben
  386.  
  387.     moveq        #1,d0
  388.     bsr.w    enter_arh_name        ; 1 File
  389.  
  390.     LEA        name_buff(pc),A0
  391.     TST.L        (A0)
  392.     beq.w    lbC000518
  393.     CMP.L        #'EXIT',(A0)
  394.     beq.w    lbC000692
  395.     CMP.L        #'exit',(A0)
  396.     beq.w    lbC000692
  397. howdi
  398.     MOVE.L        A0,D1
  399.     MOVEq        #-2,D2        ; 'lese lock'
  400.     MOVE.L        dosbase(pc),A6
  401.     JSR    -84(A6)            ; Lock
  402.     TST.L        D0
  403.     beq.w    lbC0006EC
  404.  
  405.     MOVE.L        D0,lock_handle-var(a5)
  406.     move.l        d0,d1
  407.  
  408. ;    MOVE.L        #info_block,D2
  409.     lea        info_block(pc),a0
  410.     move.l        a0,d2
  411.  
  412.     MOVE.L        dosbase(pc),A6
  413.     JSR    -102(A6)            ; Examine
  414.     MOVE.L        lock_handle(PC),D1
  415.     MOVE.L        dosbase(pc),A6
  416.     JSR    -$5A(A6)
  417.     MOVE.L        is_it_datei(PC),D0
  418.     TST.L        D0
  419.     BLT.b    lbC000206
  420. ;    MOVE.L        #mCannotcompre,D2    ; 'cannot compress a direc'
  421.     lea        mCannotcompre(pc),a0
  422.     MOVEq        #$29,D3
  423.     bsr.w        write_text
  424.     bra.w    main_loop
  425. lbC000206
  426. ;    MOVE.L        #pfeil,D2        ; ' (xxxx) bytes'
  427.     lea        pfeil(pc),a0
  428.     MOVEq        #6,D3
  429.     bsr.w    write_text
  430. ;    MOVE.L        #name_buff,D2
  431.     lea        name_buff(pc),a0
  432.     MOVE.L        name_len(pc),D3
  433.     bsr.w    write_text
  434. ;    MOVE.L        #ascii,D2
  435.     lea        ascii(pc),a0
  436.     MOVEq        #6,D3
  437.     bsr.w    write_text
  438.     MOVE.L        file_len_imlock(PC),D0
  439.     BSR.W    lbC00079C
  440.  
  441. ;    MOVE.L        #ascii0,D2
  442.     lea        ascii0(pc),a0
  443.  
  444.     MOVEq        #9,D3
  445.     bsr.w    write_text
  446. ;    MOVE.L        #bytes1,D2
  447.     lea        bytes1(pc),a0
  448.     MOVEq        #9,D3
  449.     bsr.w    write_text
  450.     MOVE.L        file_len_imlock(PC),D0
  451.     MOVE.L        D0,file_len_backsave-var(a5)
  452.     MOVE.L        D0,D1
  453.     DIVU        #8,D1
  454.     AND.L        #$FFFF,D1
  455.     ADD.L        D1,D0
  456.     ADD.L        #$40,D0        ; header/file-len/packed/pack_chksum
  457.     MOVE.L        D0,file_len_umgerechnet-var(a5)
  458.     MOVE.L        4.w,A6
  459.     MOVE.L        #$10001,D1
  460.     JSR    -$C6(A6)            ; Alloc
  461.     TST.L        D0
  462.     beq.w    lbC00065A
  463.     MOVE.L        D0,extract_buf-var(a5)
  464.     MOVE.L        file_len_backsave(pc),D0
  465.     MOVE.L        #$10001,D1        ; Public
  466. ;    MOVE.L        4.w,A6
  467.     JSR    -$C6(A6)            ; Alloc
  468.     TST.L        D0
  469.     beq.w    lbC000646
  470.     MOVE.L        D0,alloc2-var(a5)
  471.     MOVE.L        #name_buff,D1
  472.     MOVE.L        #$3ED,D2
  473.     MOVE.L        dosbase(pc),A6
  474.     JSR    -$1E(A6)            ; Open
  475.     TST.L        D0
  476.     beq.w    lbC000632
  477.     MOVE.L        D0,D1
  478.     MOVE.L        D0,file_handle2-var(a5)
  479.     MOVE.L        alloc2(pc),D2
  480.     MOVE.L        file_len_backsave(pc),D3
  481.     MOVE.L        dosbase(pc),A6
  482.     JSR    -$2A(A6)            ; Read
  483.     CMP.L        file_len_backsave(pc),D0
  484.     bne.w    lbC000622
  485.     MOVE.L        file_handle2(pc),D1
  486.     MOVE.L        dosbase(pc),A6
  487.     JSR    -$24(A6)            ; Close
  488. ;    MOVE.L        #mCompressingP,D2    ; 'Compressing please wait...'
  489.     lea        mCompressingP(pc),a0
  490.     MOVEq        #$2A,D3
  491.     bsr.w    write_text
  492.     LEA        crunch_strucc(pc),A0
  493.     MOVE.L        alloc2(pc),(A0)+
  494.     MOVE.L        file_len_backsave(pc),(A0)+
  495.     MOVE.L        extract_buf(pc),(A0)
  496.     ADD.L        #$40,(A0)+
  497.     MOVE.L        file_len_umgerechnet(pc),(A0)+
  498.     MOVE.L        alloc0(pc),(A0)+
  499.     MOVE.L        #$9C40,(A0)+
  500.     CLR.L        (A0)
  501. ;--------------------------------------------------------------------
  502. set_task_pri:
  503.  
  504.     move.l        $04.w,a6
  505.     move.l        my_task(pc),a1
  506.     moveq        #8,d0
  507.     jsr    -300(a6)            ; set task pri
  508. ;--------------------------------------------------------------------
  509.     LEA        crunch_strucc(pc),A0
  510.     bsr.w    lbC0007FC        ; cruncher
  511. ;--------------------------------------------------------------------
  512.     movem.l        d0-d7/a0-a6,-(SP)
  513.     move.l        $04.w,a6
  514.     move.l        my_task(pc),a1
  515.     moveq        #0,d0
  516.     jsr    -300(a6)            ; set task pri
  517.     movem.l     (a7)+,d0-d7/a0-a6
  518. ;--------------------------------------------------------------------
  519.     MOVE.L        D0,packed_len-var(a5)
  520.     MOVE.L        alloc2(pc),A1
  521.     MOVE.L        file_len_backsave(pc),D0
  522.     MOVE.L        4.w,A6
  523.     JSR    -$D2(A6)
  524. ;    MOVE.L        #mCompressed,D2        ; 'Compressed xxx'
  525.     lea        mCompressed(pc),a0
  526.     MOVEq        #$10,D3
  527.     bsr.w    write_text
  528. ;    MOVE.L        #ascii0,D2
  529.     MOVEq        #9,D3
  530.     lea        ascii0(pc),a0
  531.     bsr.w        write_text
  532. ;    MOVE.L        #bytestobytes0,D2    ; xxxx bytes to'
  533.     lea        bytestobytes0(pc),a0
  534.     MOVEq        #10,D3
  535.     bsr.w    write_text
  536.     MOVE.L        packed_len(pc),D0
  537.     bsr.w    lbC00079C
  538. ;    MOVE.L        #ascii0,D2        ; alte byte zahl
  539.     lea        ascii0(pc),a0
  540.     MOVEq        #9,D3
  541.     bsr.w        write_text
  542. ;    MOVE.L        #bytes0m,D2        ; ' bytes'
  543.     lea        bytes0m(pc),a0
  544.     MOVEq        #12,D3
  545.     bsr.w    write_text
  546.  
  547.     MOVE.L        extract_buf(pc),A0
  548.     MOVE.L        packed_len(pc),D0
  549.     moveq        #0,d2
  550.     moveq        #0,d1
  551. lbC0003DE
  552.     MOVE.B        (A0)+,D1
  553.     ADD.L        D1,D2
  554.     DBRA    D0,lbC0003DE
  555.     MOVE.L        D2,pack_checksum-var(a5)
  556. lbC0003EE
  557.  
  558.     tst.l        reqbase-var(a5)
  559.     beq.b    lbc0003ee1
  560.     bra.w    ask_exit
  561. lbC0003Ee1
  562. ;    MOVE.L        #mFileorDispla,D2    ; 'File or Display'
  563.     lea        mFileorDispla(pc),a0
  564.     MOVEq        #$20,D3
  565.     bsr.w    write_text
  566.     bsr.w    two_input
  567.     CMP.B        #'f',(A0)
  568.     beq.b    lbC000448
  569.     CMP.B        #'F',(A0)
  570.     beq.b    lbC000448
  571.     CMP.B        #'d',(A0)
  572.     beq.b    lbC000426
  573.     CMP.B        #'D',(A0)
  574.     beq.b    lbC000426
  575.     bra.b    lbC0003EE1
  576. sfg
  577.     MOVE.L        file_len_backsave(pc),(A0)+
  578.     MOVE.L        packed_len(pc),(A0)+
  579.     MOVE.L        pack_checksum(pc),(A0)
  580.     rts
  581. lbC000426
  582.     MOVE.L        extract_buf(pc),A0
  583.     MOVE.L        #$22222222,(A0)+    ; Display
  584.     bsr.b    sfg
  585.     bra.w    lbC0004C6            ; bei Display gibbet keinen
  586. lbC000448                    ; 'extract' path
  587.     MOVE.L        extract_buf(pc),A0
  588.     MOVE.L        #$11111111,(A0)+    ; File
  589.     bsr.b    sfg
  590.  
  591. lbC000466
  592.     tst.w        arq-var(a5)
  593.     bne.b    do_the_complete_copy_name
  594.  
  595.     move.w        #-1,arq-var(a5)        ; Extract Path nur einmal
  596.  
  597.     tst.l        reqbase-var(a5)
  598.     beq.b    cli_trot
  599.     bra.w    and_again        ; zurueck nach lbc0004c6
  600.  
  601. do_the_complete_copy_name:
  602.     lea        backsave_buf(pc),a1    ; old extract path
  603.     move.l        extract_buf(pc),a0
  604.     lea        $10(a0),a0
  605. copy_dir_to_sfx:
  606.     move.b        (a1)+,(a0)+
  607.     bne.b    copy_dir_to_sfx
  608.  
  609.     subq.l        #1,a0
  610.  
  611.     lea        name_buff(pc),A1
  612.     MOVE.L        load_dir_len-var(a5),d0
  613.     add.l        d0,a1
  614. copy_name_to_sfx:
  615.     move.b        (a1)+,(a0)+
  616.     bne.b    copy_name_to_sfx
  617.     clr.b        -(a0)
  618.  
  619.     bra.b    lbC0004C6
  620.  
  621. cli_trot
  622.  
  623. ;    MOVE.L        #mExtractPath0,D2
  624.     lea        mExtractPath0(pc),a0
  625.     MOVEq        #$19,D3
  626.     bsr.w    write_text
  627.  
  628.     MOVE.L        conbase0(pc),D1
  629.     MOVE.L        extract_buf(pc),D2
  630.     ADD.L        #$10,D2
  631.     MOVEq        #$30,D3
  632.     MOVE.L        dosbase(pc),A6
  633.     JSR    -42(A6)                ; read
  634.  
  635.     MOVE.L        extract_buf(pc),A0
  636.     ADD.L        #$10,A0
  637. lbC0004A4
  638.     CMP.B        #10,(A0)+
  639.     bne.b    lbC0004A4
  640.     clr.b        -1(a0)
  641.     move.l        a0,a1
  642.     MOVE.L        extract_buf(pc),A0
  643.     ADD.L        #$10,A0
  644.     tst.b        (a0)
  645.     beq.b    cli_trot
  646.  
  647. ;do_the_copy_name:
  648. ;    subq.l        #1,a1
  649. ;    lea        name_buff(pc),A0
  650. ;    MOVE.L        name_len-var(a5),d0
  651. ;    subq.l        #1,d0
  652. ;copy_cli_name_to_sfx:
  653. ;    move.b        (a0)+,(a1)+
  654. ;    dbf    d0,copy_cli_name_to_sfx
  655.  
  656. lbC0004C6
  657.     MOVE.L        File_handle(pc),D1
  658.     MOVE.L        extract_buf(pc),D2
  659.     MOVE.L        packed_len(pc),D3
  660.     ADD.L        #$40,D3
  661.  
  662.     ADD.L        D3,new_filepacked_len-var(a5)
  663.     MOVE.L        dosbase(pc),A6
  664.  
  665.     JSR    -48(A6)                ; write
  666.  
  667.     tst.l        d0
  668.     bmi.w    lbc000622
  669.  
  670.     MOVE.L        extract_buf(pc),A1
  671.     MOVE.L        file_len_umgerechnet(pc),D0
  672.     MOVE.L        4.w,A6
  673.     JSR    -210(A6)            ; free mem
  674.  
  675. ;    MOVE.L        #mAddedtoArchi,D2    ; 'Added to Archive...'
  676.     lea        mAddedtoArchi(pc),a0
  677.     MOVEq        #$1E,D3
  678.     bsr.w    write_text
  679.     bra.w    main_loop
  680.  
  681. lbC000518
  682.     LEA        lbL000DE0(pc),A0
  683.     MOVE.L        A0,lbL000DD4-var(a5)
  684.     MOVE.L        #4,lbL000DD0-var(a5)
  685.     MOVE.L        new_filepacked_len(pc),D0
  686.     ADDq.L        #4,D0
  687.     DIVU        #4,D0
  688.     SWAP        D0
  689.     TST.W        D0
  690.     beq.b    fix_sfx_hunk
  691.     CLR.W        D0
  692.     SWAP        D0
  693.     ADDq.L        #1,D0
  694.     SWAP        D0
  695.     SUBq.L        #2,lbL000DD4-var(a5)
  696.     ADDq.L        #2,lbL000DD0-var(a5)
  697. fix_sfx_hunk
  698.     SWAP        D0
  699.     LEA        sfx_hunk(pc),A0    ; ARCHIV HUNK
  700.     MOVE.L        D0,$1C(A0)
  701.     MOVE.L        D0,$914(A0)
  702.     MOVE.L        File_handle(pc),D1
  703.  
  704. ;    MOVE.L        #lbL000DD8,D2
  705.     lea        lbl000dd8(pc),a0
  706.     move.l        a0,d2
  707.  
  708.     MOVEq        #4,D3
  709.     move.l        dosbase(pc),a6
  710.     JSR    -$30(A6)        ; Write
  711.     tst.w        d0
  712.     bmi.W    lbc00066e
  713.  
  714.     MOVE.L        File_handle(pc),D1
  715.     MOVE.L        lbL000DD4(pc),D2
  716.     MOVE.L        lbL000DD0(pc),D3
  717.     JSR    -$30(A6)
  718.     tst.w        d0
  719.     bmi.W    lbc00066e
  720.  
  721.     MOVE.L        File_handle(pc),D1
  722.     MOVEq        #0,D2
  723.     moveq        #0,d3
  724.     not.l        d3
  725.     MOVE.L        dosbase(pc),A6
  726.     JSR    -$42(A6)
  727.     TST.L        D0
  728.     BLT.B    lbC00066E
  729.     MOVE.L        File_handle(pc),D1
  730.  
  731. ;    MOVE.L        #sfx_hunk,D2
  732.     lea        sfx_hunk(pc),a0
  733.     move.l        a0,d2
  734.  
  735.     MOVE.L        #sfx_len,D3
  736.     JSR    -$30(A6)
  737.     tst.w        d0
  738.     bmi.s    lbc00066e
  739.  
  740.     MOVE.L        File_handle(pc),D1
  741.     MOVE.L        dosbase(pc),A6
  742.     JSR    -$24(A6)
  743.  
  744. ;    bsr    moxi
  745. ;    MOVE.L        #mArchiveSucce,D2
  746.     lea        mArchiveSucce(pc),a0
  747.     MOVE.l        #malen,D3
  748.     bsr.b    write_text
  749. ;right_mouse_button1:
  750. ;    moveq        #$0a,d1
  751. ;    jsr    -198(a6)        ; Delay
  752. ;    BTST        #10,$dff016
  753. ;    bne    right_mouse_button1
  754.  
  755.     BRA.B    free_mem
  756.  
  757. ;-------------------------------------------------------------------------
  758. write_text:
  759.     movem.l        d0-d1/a0-a1/a6,-(sp)
  760.     move.l        a0,d2
  761.     move.l        dosbase(pc),a6
  762.     move.l        conbase0(pc),d1 ; window
  763.     tst.l        d1
  764.     beq.b    writer_no
  765.     jsr    -$30(a6)
  766. writer_no:
  767.     movem.l        (SP)+,d0-d1/a0-a1/a6
  768.     rts
  769. ;--------------------------------------------------------------------------
  770.  
  771. lbC000622
  772.     MOVE.L        file_handle2(pc),D1
  773.     bsr.b    moxi1
  774. ;    MOVE.L    dosbase(pc),A6
  775. ;    JSR    -$24(A6)
  776. lbC000632
  777. ;    MOVE.L        #mErrorreading,D2
  778.     lea        mErrorreading(pc),a0
  779.     MOVEq        #$2E,D3
  780.     bsr.b    write_text
  781.     bra.w    main_loop
  782.  
  783. moxi
  784.     MOVE.L        File_handle(pc),D1
  785. moxi1
  786.     MOVE.L        dosbase(pc),A6
  787.     Jmp    -$24(A6)
  788.  
  789. lbC000646
  790. lbC00065A
  791. ;    MOVE.L        #mCouldntalloc,D2
  792.     lea        mCouldntalloc(pc),a0
  793.     MOVEq        #$30,D3
  794.     bsr.b    write_text
  795.     bra.w    main_loop
  796.  
  797. lbC00066E
  798.     bsr.b moxi
  799.  
  800. write_file_error
  801. ;    MOVE.L        #mErrorreading,D2
  802.     lea        mErrorreading(pc),a0
  803.     MOVEq        #$2E,D3
  804.     bsr.b    write_text
  805.     bra.w    overwrite_no
  806.  
  807. real_ende
  808. lbC000692
  809.     bsr.b    moxi
  810.  
  811. free_mem
  812.     MOVE.L        alloc0(pc),A1
  813.     MOVE.L        #$9C40,D0
  814.     MOVE.L        4.w,A6
  815.     JSR    -$D2(A6)
  816.     BRA.B    kurz_vor_ende
  817.  
  818. alloc0_no
  819. ;    MOVE.L        #mCouldntalloc,D2
  820.     lea        mCouldntalloc(pc),a0
  821.     MOVEq        #$30,D3
  822.     bsr.b    write_text
  823.  
  824. kurz_vor_ende
  825.  
  826. ;MOVE.L    dosbase(pc),A6
  827. ;MOVE.L    conbase0(pc),D1
  828. ;JSR    -$24(A6)
  829. ;bsr    moxi1
  830.  
  831. dos_open_aber_no_con
  832.     MOVE.L        4.w,A6
  833.     MOVE.L        dosbase(pc),A1
  834.     JSR    -414(A6)        ; close dos
  835. nix_dos_open
  836.     tst.l        reqbase-var(a5)
  837.     beq.b    das_warx
  838.  
  839. ;lea        frq_Structure(pc),a0
  840. ;move.l        reqbase(pc),a6
  841. ;jsr    Purgefiles(a6)
  842. ;move.l        $04.w,a6
  843.  
  844.     move.l        reqbase(pc),a1
  845.     jsr    -414(a6)
  846.  
  847. das_warx
  848.     tst.b        led-var(a5)        ; LED ist jetzt genauso
  849.     bne.b    led_light            ; wie vor aufruf...
  850.     bset        #1,$bfe001
  851.     bra.b    led_dark
  852. led_light
  853.     bclr        #1,$bfe001
  854. led_dark
  855. ;    movem.l        (SP)+,d0-d7/a0-a6
  856.     moveq    #0,d0
  857.     RTS
  858.  
  859. lbC0006EC
  860. ;    MOVE.L    #mThatfiledoes,D2
  861.     lea        mThatfiledoes(pc),a0
  862.     MOVEq        #$25,D3
  863.     bsr.w    write_text
  864.     bra.w    main_loop
  865.  
  866. claro
  867.     LEA        name_buff(pc),A0
  868.     MOVEq        #$13,D1
  869. lbC00070C
  870.     CLR.L        (A0)+
  871.     DBRA    D1,lbC00070C
  872.     rts
  873.  
  874. enter_arh_name
  875.     move.l        d0,-(sp)
  876. ;    moveq        #0,d0
  877.     bsr.b    claro
  878.  
  879.     LEA        name_buff(pc),A0
  880.     move.l        a0,d2
  881.     MOVE.L        conbase0(pc),D1
  882.     MOVEq        #$50,D3
  883.     MOVE.L        dosbase(pc),A6
  884.     JSR    -$2A(A6)            ; Read
  885.     SUBq.L        #1,D0            ; wegen 'Return'
  886.     MOVE.L        D0,name_len-var(a5)
  887.     LEA        name_buff(pc),A0
  888. lbC000740
  889.     CMP.B        #10,(A0)+        ; 'Return'
  890.     bne.b    lbC000740
  891.     subq.l        #1,a0        ; return weg
  892.  
  893. li    move.l        (sp)+,d0    ; 0 archiv  | 1 file
  894.     tst.l        d0
  895.     bne.b    az
  896.     move.b        #'.',(a0)+
  897.     move.b        #'S',(a0)+
  898.     move.b        #'F',(a0)+
  899.     move.b        #'X',(a0)+
  900.     clr.b        (a0)
  901.     addq.l        #4,name_len-var(a5)
  902.     rts
  903. az:
  904.     clr.b        (A0)        ; return weg
  905.     RTS
  906.  
  907. two_input:
  908.     LEA        lbL000E5C(pc),A0
  909.     clr.l        (a0)
  910.     MOVE.L        conbase0(pc),D1
  911.  
  912. ;    MOVE.L        #lbL000E5C,D2
  913.     lea        lbl000e5c(pc),a6
  914.     move.l        a6,d2
  915.  
  916.     MOVEq        #2,D3        ; 2 Zeichen
  917.     MOVE.L        dosbase(pc),A6
  918.     JSR    -$2A(A6)        ; Read
  919.     LEA        lbL000E5C(pc),A0
  920.     CMP.B        #10,(A0)
  921.     bne.b        lbC000788
  922.     CLR.L        (A0)
  923. lbC000788
  924.     RTS
  925.  
  926. lbC00079C
  927.     MOVEQ        #7,D2
  928.     LEA        ascii0(pc),A2
  929.     MOVE.L        A2,A0
  930.  
  931.     LEA        lbL0007DC(pc),A1
  932. lbC0007AC
  933.     MOVEQ        #$30,D1
  934. lbC0007AE
  935.     ADDQ.W        #1,D1
  936.     SUB.L        (A1),D0
  937.     BCC.b    lbC0007AE
  938.     SUBQ.W        #1,D1
  939.     ADD.L        (A1),D0
  940.     MOVE.B        D1,(A0)+
  941.     ADDq.L        #4,A1
  942.     DBRA    D2,lbC0007AC
  943.  
  944.     MOVE.L        A2,A0
  945. lbC0007C6
  946.     clr.B        (A0)+
  947.     CMP.B        #$30,(A0)
  948.     beq.b    lbC0007C6
  949.     RTS
  950.  
  951.     cnop 0,4
  952. VAR:
  953.     dc.b    "$VER: LHSFX V1.5a (14.11.92)",0
  954.  
  955.     cnop 0,4
  956.  
  957. ;--------------------------------------------------------------------
  958. ;                         *** Variablen ***
  959. ;--------------------------------------------------------------------
  960.  
  961. backsave_buf:    blk.l    40
  962.  
  963. my_task:    dc.l    0
  964.  
  965. ascii0    dc.b    '00000000',0
  966.     even
  967. lbL0007DC
  968.     dc.l    $989680
  969.     dc.l    $F4240
  970.     dc.l    $186A0
  971.     dc.l    $2710
  972.     dc.l    $3E8
  973.     dc.l    $64
  974.     dc.l    10
  975.     dc.l    1
  976. doslibrary
  977.     dc.b    'dos.library',0
  978.  
  979.     cnop 0,4
  980. dosbase:    dc.l    0
  981. lock_handle:    dc.l    0
  982.  
  983. info_block
  984.     dc.l    0
  985. is_it_datei
  986.     dc.l    0
  987.  
  988.     dc.l    0
  989.     dc.l    0
  990.     dc.l    0
  991.     dc.l    0
  992.     dc.l    0
  993.     dc.l    0
  994.     dc.l    0
  995.     dc.l    0
  996.     dc.l    0
  997.     dc.l    0
  998.     dc.l    0
  999.     dc.l    0
  1000.     dc.l    0
  1001.     dc.l    0
  1002.     dc.l    0
  1003.     dc.l    0
  1004.     dc.l    0
  1005.     dc.l    0
  1006.     dc.l    0
  1007.     dc.l    0
  1008.     dc.l    0
  1009.     dc.l    0
  1010.     dc.l    0
  1011.     dc.l    0
  1012.     dc.l    0
  1013.     dc.l    0
  1014.     dc.l    0
  1015.     dc.l    0
  1016.     dc.l    0
  1017. file_len_imlock:        ; Laenge in bytes
  1018.     dc.l    0
  1019.     dc.l    0
  1020.     dc.l    0
  1021.     dc.l    0
  1022.     dc.l    0
  1023.     dc.l    0
  1024.     dc.l    0
  1025.     dc.l    0
  1026.     dc.l    0
  1027.     dc.l    0
  1028.     dc.l    0
  1029.     dc.l    0
  1030.     dc.l    0
  1031.     dc.l    0
  1032.     dc.l    0
  1033.     dc.l    0
  1034.     dc.l    0
  1035.     dc.l    0
  1036.     dc.l    0
  1037.     dc.l    0
  1038.     dc.l    0
  1039.     dc.l    0
  1040.     dc.l    0
  1041.     dc.l    0
  1042.     dc.l    0
  1043.     dc.l    0
  1044.     dc.l    0
  1045.     dc.l    0
  1046.     dc.l    0
  1047.     dc.l    0
  1048.     dc.l    0
  1049.     dc.l    0
  1050.     dc.l    0
  1051.     dc.l    0
  1052. file_handle2    dc.l    0
  1053. File_handle    dc.l    0
  1054. alloc2        dc.l    0
  1055. extract_buf    dc.l    0
  1056. file_len_backsave    dc.l    0
  1057. file_len_umgerechnet    dc.l    0
  1058. new_filepacked_len    dc.l    0
  1059. packed_len    dc.l    0
  1060. pack_checksum    dc.l    0
  1061. alloc0        dc.l    0
  1062. lbL000DD0    dc.l    0
  1063. lbL000DD4    dc.l    0
  1064. lbL000DD8    dc.l    $FFFFFFFF
  1065.         dc.l    0
  1066. lbL000DE0    dc.l    $3F2
  1067. crunch_strucc    dc.l    0
  1068.     dc.l    0
  1069.     dc.l    0
  1070.     dc.l    0
  1071.     dc.l    0
  1072.     dc.l    0
  1073.     dc.l    0
  1074. conbase0    dc.l    0
  1075. ;conbase1    dc.l    0
  1076. name_buff    blk.l    21,0
  1077. name_len    dc.l    0
  1078. dir_len:    dc.l    0
  1079. load_dir_len:    dc.l    0
  1080. lbL000E5C    dc.l    0
  1081. arq        dc.w    0
  1082. even
  1083. led        dc.b    0
  1084.     even
  1085. ;--------------------------------------------------------------------
  1086. ;                      *** my code (R.T.) ***
  1087. ;--------------------------------------------------------------------
  1088.  
  1089. use_it
  1090.     movem.l        d0-d7/a0-a6,-(a7); save registers
  1091.     move.l        d0,-(sp)
  1092.     bsr.w    claro
  1093.     lea        load_dir(pc),a2
  1094.     lea        load_file(pc),a3
  1095.     move.l        load_flags(pc),d0
  1096.     lea        frq_1(pc),a0
  1097.     lea        frq_3(pc),a4
  1098.     move.l        a1,(a0)+
  1099.     move.l        a2,(a0)+
  1100.     move.l        a3,(a0)+
  1101.     move.l        d0,(a4)
  1102.     lea        frq_Structure(pc),a0
  1103.     move.l        reqbase(pc),a6
  1104.     moveq        #0,d0
  1105.     jsr    FileRequester(a6)
  1106.     tst.w        d0
  1107.     beq.b    das_war_dann_nix
  1108.  
  1109.     moveq        #0,d1
  1110.     lea        load_dir(pc),a0
  1111.     LEA        name_buff(pc),A1
  1112.     lea        load_file(pc),a2
  1113. work_script_string:            ; A0,A1,A2 & D0
  1114.     addq.w        #1,d1
  1115.     move.b        (a0)+,(a1)+
  1116.     bne.b    work_script_string
  1117.     subq.w        #2,d1
  1118.     subq.w        #2,a1
  1119.     move.b        (a1),d0
  1120.     cmp.b        #':',d0
  1121.     beq.b    work_script_string1
  1122.     cmp.b        #'/',d0
  1123.     beq.b    work_script_string1
  1124.     addq.l        #1,a1
  1125.     add.w        #1,d1
  1126.     move.b        #'/',(a1)
  1127. work_script_string1
  1128.     addq.l        #1,a1
  1129.     move.l        d1,load_dir_len-var(a5)
  1130.     add.l        #1,load_dir_len-var(a5)
  1131. work_script_string2
  1132.     addq.w        #1,d1
  1133.     move.b        (a2)+,(a1)+
  1134.     bne.b    work_script_string2
  1135.  
  1136.     subq.l        #1,a1
  1137.  
  1138.     move.l        (sp)+,d0    ; 0 Archiv | 1 File
  1139.     tst.l        d0
  1140.     bne.b    wq
  1141.  
  1142.     move.b        #'.',(a1)+
  1143.     move.b        #'S',(a1)+
  1144.     move.b        #'F',(a1)+
  1145.     move.b        #'X',(a1)+
  1146.     clr.b        (a1)
  1147.     movem.l     (a7)+,d0-d7/a0-a6
  1148.     LEA        name_buff(pc),A0
  1149.     bra.w    howdi1
  1150. wq
  1151.     MOVE.L        D1,name_len-var(a5)
  1152.     clr.b        (a1)
  1153.  
  1154.     movem.l     (a7)+,d0-d7/a0-a6
  1155.     LEA        name_buff(pc),A0
  1156.     bra.w    howdi
  1157.  
  1158.  
  1159. das_war_dann_nix
  1160.     move.l        (sp)+,d0
  1161.     tst.l        d0
  1162.     bne.b    wq1
  1163.     movem.l     (a7)+,d0-d7/a0-a6
  1164.     bra.w    free_mem            ; archiv
  1165. wq1
  1166.     movem.l     (a7)+,d0-d7/a0-a6
  1167.     bra.w    lBC000518            ; file
  1168.  
  1169. ask_exit:
  1170.     movem.l        d0-d7/a0-a6,-(a7); save registers
  1171.     lea        master_text(pc),a1    
  1172.     sub.l        a2,a2
  1173.     sub.l        a3,a3
  1174.     lea        ask_exit_text1(pc),a4
  1175.     lea        ask_exit_text0(pc),a5
  1176.     bsr.w    set_text_req
  1177.     tst.w        d0
  1178.     beq.b    disp
  1179.     movem.l     (a7)+,d0-d7/a0-a6
  1180.     bra.w    lbc000448    ; file
  1181. disp
  1182.     movem.l     (a7)+,d0-d7/a0-a6
  1183.     bra.w    lbc000426    ; display
  1184.  
  1185. req_ask_overwrite
  1186.     movem.l        d0-d7/a0-a6,-(a7); save registers
  1187.     lea        master_text1(pc),a1    
  1188.     sub.l        a2,a2
  1189.     sub.l        a3,a3
  1190.     lea        ask_exit_text2(pc),a4
  1191.     lea        ask_exit_text3(pc),a5
  1192.     bsr.w    set_text_req
  1193.     tst.w        d0
  1194.     beq.b    ov_n
  1195.     movem.l     (a7)+,d0-d7/a0-a6
  1196.     bra.w    overwrite_yes
  1197. ov_n
  1198.     movem.l     (a7)+,d0-d7/a0-a6
  1199.     bra.w    overwrite_no
  1200.  
  1201.     cnop 0,4
  1202.  
  1203. nio:    blk.l    4,0
  1204.  master_Text:
  1205.     DC.B "    Do you want the just crunched part as a    ",10
  1206.     dc.b " [F]ile decrunched or as a TEXT [D]isplayed ?? ",10,0
  1207.  
  1208.     EVEN
  1209.  ask_exit_Text1:    DC.b " »» F «« ",0
  1210.     even
  1211.  ask_exit_text0:    DC.b " »» D «« ",0
  1212.     EVEN
  1213.  master_Text1:
  1214.     DC.B "    Archiv exists. Shall I overwrite it?    ",10,0
  1215.  
  1216.     EVEN
  1217.  ask_exit_Text2:    DC.b " »» Y «« ",0
  1218.     even
  1219.  ask_exit_text3:    DC.b " »» N «« ",0
  1220.  
  1221.     cnop 0,4
  1222.  
  1223. ; entpack dir festlegen
  1224. and_again:
  1225.     movem.l        d0-d7/a0-a6,-(a7); save registers
  1226. and_agi:
  1227.     lea        load_title2(pc),a1
  1228.     lea        load_dir1(pc),a2
  1229.     lea        load_file1(pc),a3
  1230.     move.l        load_flags3(pc),d0
  1231.     lea        frq_1(pc),a0
  1232.     lea        frq_3(pc),a4
  1233.     move.l        a1,(a0)+
  1234.     move.l        a2,(a0)+
  1235.     move.l        a3,(a0)+
  1236.     move.l        d0,(a4)
  1237.     lea        frq_Structure(pc),a0
  1238.     move.l        reqbase(pc),a6
  1239.     moveq        #0,d0
  1240.     jsr    FileRequester(a6)
  1241.     tst.w        d0
  1242.     beq.b    and_agi
  1243.  
  1244.     lea        load_dir1(pc),a0
  1245.     move.l        extract_buf(pc),A1
  1246.     lea        $10(a1),a1
  1247.     moveq        #0,d1
  1248. work_script_string0
  1249.     addq.w        #1,d1
  1250.     move.b        (a0)+,(a1)+
  1251.     bne.b    work_script_string0
  1252.     subq.w        #2,d1
  1253.     subq.l        #2,a1
  1254.     move.b        (a1),d0
  1255.     cmp.b        #':',d0
  1256.     beq.b    work_script_string10
  1257.     cmp.b        #'/',d0
  1258.     beq.b    work_script_string10
  1259.     addq.l        #1,a1
  1260.     addq.w        #1,d1
  1261.     move.b        #'/',(a1)
  1262. work_script_string10
  1263.     addq.w        #1,d1
  1264.     move.l        d1,dir_len-var(a5)
  1265.  
  1266.     addq.l        #1,a1
  1267.     clr.b        (a1)
  1268.  
  1269.     move.l        a1,a2
  1270.  
  1271. ; saves the extract path back
  1272.     lea        backsave_buf(pc),a1
  1273.     move.l        extract_buf(pc),a0
  1274.     lea        $10(a0),a0
  1275. work_script_string_buff:
  1276.     move.b        (a0)+,(a1)+
  1277.     bne.b    work_script_string_buff
  1278.  
  1279.  
  1280. ; inserts the name the first time
  1281.  
  1282.     lea        name_buff(pc),A0
  1283.     MOVE.L        load_dir_len-var(a5),d0
  1284.     add.l        d0,a0
  1285. cli_name_to_sfx:
  1286.     move.b        (a0)+,(a2)+
  1287.     bne.b    cli_name_to_sfx
  1288.  
  1289.     clr.b        -1(a2)
  1290.  
  1291.     movem.l     (a7)+,d0-d7/a0-a6
  1292.  
  1293.     bra.w    lbc0004c6
  1294. ;---------------------------------------------------------------------
  1295. about:
  1296.     lea        about_text(pc),a1
  1297.     lea        about_middletext(pc),a3
  1298.     sub.l        a4,a4
  1299.     sub.l        a5,a5
  1300.     sub.l        a2,a2
  1301. ;    bsr.b    set_text_req
  1302.  
  1303. *****************************************************************************
  1304. ;     A1 -> message text
  1305. ;     A2 -> zeiger auf controls
  1306. ;     A3 -> middle   2
  1307. ;     A4 -> left     1    positive
  1308. ;     A5 -> right    0    negative
  1309. set_text_req:
  1310.     lea        TR_structure(pc),a0
  1311.     move.l        a1,(a0)+
  1312.     move.l        a2,(a0)+
  1313.     addq.l        #4,a0    
  1314.     move.l        a3,(a0)+
  1315.     move.l        a4,(a0)+
  1316.     move.l        a5,(a0)
  1317.     move.l        reqbase(pc),a6
  1318.     lea        TR_Structure(pc),a0
  1319.     jsr    TextRequest(a6)
  1320.     lea        Var(pc),a5
  1321.     rts
  1322.     cnop 0,4
  1323. ;=============================================================================
  1324. ;=                         TextRequester-Structure                           =
  1325. ;=============================================================================
  1326. TR_Structure:
  1327.     DC.l 0    ;This is the message text, including printf() style formatting if desired.
  1328.     DC.l 0    ;This is the address of the parameter list, if printf() style formatting is used.
  1329. on_my_window1: 
  1330.     DC.l 0    ;TR_Window    ;This is an optional (zero if not used) pointer to a window on the screen you
  1331.             ;would like the Requester to show up on.
  1332.     DC.l 0    ; lower middle (returns 2).
  1333.     DC.l 0    ; lower left hand corner (returns 1).
  1334.     DC.l 0    ; lower right (returns 0).
  1335.     DC.l TR_title    ; title for the window.
  1336.     DC.w 0 ;TR_KeyMask    ;This is the qualifier mask for the keyboard shortcuts.
  1337.             ;Use $FFFF to allow any qualifiers (or none).
  1338.             ;Zero means that no keyboard shortcuts are allowed.
  1339.     DC.w 0    ;TR_textcolor    ;Color of the text.  Uses Color 1 if no Color specified.
  1340.     DC.w 3    ;TR_detailcolor    ;Detail and block color, as in a NewWindow structure.  If
  1341.     DC.w 2    ;TR_blockcolor    ;both are left zero, block pen will be set to 1.
  1342.     DC.w 0    ;TR_versionnumber    ;Make SURE this is set to zero.
  1343.     DC.l 0    ;TR_rfu1    ;Make SURE you leave these two zeroed also.
  1344.     DC.l 0    ;TR_rfu2    ;Make SURE you leave these two zeroed also.
  1345.  TR_Title:    DC.b 0
  1346.  
  1347.     even
  1348. ;=============================================================================
  1349. ;=                         FileRequester-Structure                           =
  1350. ;=============================================================================
  1351. ;frq_Flags: EQU FRQINFOGADGET!FRQABSOLUTEXY!FRQLOADING;
  1352. ;ESS_Structure:    ;ExtendedSelectStructure
  1353. ; DC.l 0    ;ESS_NextFile    ;This must be the first element!
  1354. ; DC.w 0    ;ESS_NameLength    ;File name length, not including the terminating zero.
  1355. ; DC.w 0    ;ESS_Pad
  1356. ; DC.l 0    ;ESS_Node    ;Node that the user has extended selected.
  1357. ;==============================================================================
  1358. ;=         When  using  extended  select,  the  directory pointer is Required =
  1359. ;= since  only  the  file  names  are stored in the frq_ExtendedSelect linked =
  1360. ;= list.   When  not  using  extended select, you can either have frq_Dir and =
  1361. ;= frq_File  point  be initialized, or you can have frq_PathName initialized, =
  1362. ;= or  both.   frq_PathName will contain the concatenation of the file and    =
  1363. ;= directory chosen.                                                          =
  1364. ;==============================================================================
  1365.     EVEN
  1366.  
  1367. frq_Structure:
  1368.  DC.w 0    ; frq_VersionNumber : MUST BE ZERO !!!!!!!!!
  1369. frq_1:
  1370.  DC.l 0        ;Hailing text
  1371.  DC.l 0        ;Directory array (must be DSIZE+1 characters long)
  1372.  DC.l 0     ;Filename array (must be FCHARS+1 characters long)
  1373.     ;If you initialize this variable then the file Requester will place the complete path name in here on exit.
  1374. frq_2:
  1375.  DC.l frq_PathName    ;Complete path name array - (must be DSIZE+FCHARS+2 long)
  1376. on_my_window: 
  1377.  DC.l 0    ; frq_Window : Window Requesting or NULL
  1378.     ;Initialize these to the number of lines and columns you want to appear in the inner window that
  1379.     ;displays the file names.  If you leave these set to zero then default values will be used.
  1380.  DC.w 15    ; frq_MaxExtendedSelect : Zero implies a maximum of 65535, as long as FRQEXTSELECT is set.
  1381.  DC.w 16    ; frq_numlines   : Number of lines in file window.
  1382.  DC.w 32    ; frq_numcolumns : Number of columns in file window.
  1383.  DC.w 12    ; frq_devcolumns : Number of columns in device window.
  1384. frq_3:
  1385.  DC.l 0    ;Various - umm - flags.  See above for more info.
  1386.  DC.w 3    ; frq_dirnamescolor    : These five colors will all default
  1387.  DC.w 0    ; frq_filenamescolor   : to color one if you don't specify
  1388.  DC.w 3    ; frq_devicenamescolor : a color (ie; if you specify color zero).
  1389.  DC.w 0    ; frq_fontnamescolor   : If you want color zero to be used, specify
  1390.  DC.w 3    ; frq_fontsizescolor   : color 32, or some other too large number
  1391.     ;which mods down to zero.
  1392.  DC.w 0    ; frq_detailcolor : If both of these colors are specified as
  1393.  DC.w 0    ; frq_blockcolor  : zero then the block pen will be set to one.
  1394.  DC.w 0    ; frq_gadgettextcolor   : The color for the text of the five boolean gadgets.  Defaults to 1.
  1395.  DC.w 0    ; frq_textmessagecolor  : The color for the message at the screen top.  Defaults to 1.
  1396.  DC.w 0    ; frq_stringnamecolor   : The color for the words Drawer, File, Hide and Show.  Defaults to 3.
  1397.  DC.w 0    ; frq_stringgadgetcolor : The color for the borders of the string gadgets.  Defaults to 3.
  1398.  DC.w 0    ; frq_boxbordercolor : The color for the boxes around the file and directory areas.  Defaults to 3.
  1399.  DC.w 0    ; frq_gadgetboxcolor : The color for the boxes around the five boolean gadgets.  Defaults to 3.
  1400.  blk.b 36,0    ; frq_RFU_Stuff,36 : This area, which is reserved for
  1401.     ;future use, should all be zero.
  1402.  blk.b 12    ; frq_DirDateStamp,ds_SIZEOF : A copy of the cached directories date stamp. (12 Bytes !!)
  1403.     ;There should never be any need to change this.
  1404.  DC.w 0; frq_WindowLeftEdge : These two fields are only used when the
  1405.  DC.w 8; frq_WindowTopEdge  : FRQABSOLUTEXY flag is set.  They specify
  1406.     ;the location of the upper left hand
  1407.     ;corner of the window.
  1408.  DC.w 0    ; frq_FontYSize : These fields are used to return the selected
  1409.  DC.w 0    ; frq_FontStyle : font size and style, only applicable when the
  1410.     ;font bit is set.
  1411.     ;If you set the extended select bit and the user extended selects, the list of filenames will start from here.
  1412. acid:
  1413.  DC.l 0    ; frq_ExtendedSelect : Linked list of ESStructures if more than one filename is chosen.
  1414.     ;All of the following variables you shouldn't need to touch.  They contain fields that the file
  1415.     ;Requester sets and likes to preserve over calls, just to make life easier for the user.
  1416. frq_WildHide:    DC.B "*.info"
  1417. frq_WildHide0:    equ *-frq_WildHide
  1418.     blk.b WILDLENGTH+2-frq_WildHide0 ; frq_Hide Wildcards for files to hide.
  1419. frq_WildShow:    DC.B 0
  1420. frq_WildShow0:    equ *-frq_WildShow
  1421.     blk.b WILDLENGTH+2-frq_WildShow0 ; frq_Show Wildcards for files to show.
  1422.  DC.w 0    ; frq_FileBufferPos : Cursor's  position  and first
  1423.  DC.w 0    ; frq_FileDispPos   : displayed character number in
  1424.  DC.w 0    ; frq_DirBufferPos  : the three string gadgets.  No
  1425.  DC.w 0    ; frq_DirDispPos    : need  to initialized these if
  1426.  DC.w 0    ; frq_HideBufferPos : you don't want to.
  1427.  DC.w 0    ; frq_HideDispPos
  1428.  DC.w 0    ; frq_ShowBufferPos
  1429.  DC.w 0    ; frq_ShowDispPos
  1430. ;==============================================================================
  1431. ;=         The  following  fields are PRIVATE!  Don't go messing with them or =
  1432. ;==============================================================================
  1433.  DC.l 0    ; frq_Memory  : Memory allocated for dir entries.
  1434.  DC.l 0    ; frq_Memory2 : Used for currently hidden files.
  1435.  DC.l 0    ; frq_Lock    : Contains lock on directories being read across calls.
  1436.  blk.b DSIZE+2    ; frq_PrivateDirBuffer : Used for keeping a record of which
  1437.     ;directory we have file names for.
  1438.  DC.l 0    ; frq_FileInfoBlock
  1439.  DC.w 0    ; frq_NumEntries
  1440.  DC.w 0    ; frq_NumHiddenEntries
  1441.  DC.w 0    ; frq_filestartnumber
  1442.  DC.w 0    ; frq_devicestartnumber
  1443. ;=============================================================================
  1444. frq_PathName:    blk.b DSIZE+FCHARS+2    ;Here Will Be The Complete PathName !!!
  1445. ;-----------------------------------------------------------------------------
  1446.     EVEN
  1447.  reqbase:    dc.l    0
  1448.  reqname:    dc.b    'req.library',0
  1449.     EVEN
  1450.  load_Flags1: EQU FRQSHOWINFO!FRQINFOGADGET!FRQABSOLUTEXY!FRQLOADING
  1451.  load_flags:    dc.l load_flags1
  1452.  load_File:    DC.b 0
  1453.  load_File0:    EQU *-load_File
  1454.     blk.b FCHARS+1-load_File0
  1455.  load_Title:    DC.b "«« CHOOSE FILE TO CRUNCH »»",0
  1456.     EVEN
  1457.  load_Dir:    DC.b "RAM:"
  1458.  load_Dir0:    EQU *-load_Dir
  1459.     blk.b DSIZE+1-load_Dir0
  1460.     even
  1461.  load_Title1:    DC.b "«« CHOOSE ARCHIVNAME »»",0
  1462.     even
  1463.  load_Title2:    DC.b "«« CHOOSE EXTRACT PATH »»",0
  1464.     even
  1465.  load_Flags2: EQU FRQDIRONLY!FRQINFOGADGET!FRQABSOLUTEXY!FRQLOADING
  1466.  load_flags3:    dc.l load_flags2
  1467.  load_File1:    DC.b 0
  1468.  load_File2:    EQU *-load_File1
  1469.     blk.b FCHARS+1-load_File2
  1470.     even
  1471.  load_Dir1:    DC.b "RAM:"
  1472.  load_Dir2:    EQU *-load_Dir1
  1473.     blk.b DSIZE+1-load_Dir2
  1474.     EVEN
  1475.  about_Text:
  1476.     dc.b "-----------------------------------------------",10
  1477.     DC.b "          »»  LhSFX Archive  V1.5  ««          ",10
  1478.     dc.b "            By Mike Kennedy  © 1991            ",10
  1479.     dc.b "       Cruncher and Decruncher  © by MXM       ",10
  1480.     dc.b "       Improved by Ralf Thanner in 91/92       ",10
  1481.     dc.b "-----------------------------------------------",10,10
  1482.     dc.b " 1.  Choose ARCHIVNAME. '.SFX' will be added.  ",10 
  1483.     dc.b " 2.  Choose FILE to crunch.                    ",10,10
  1484.     dc.b " 3.  Choose if it's [F]ile or [D]isplay.       ",10,10
  1485.     dc.b " 4.  Choose EXTRACT path for archive.          ",10,10
  1486.     dc.b " 5.  Now quit or go to step 2.                 ",10,10
  1487.     dc.b " To close off and finish an archive just click ",10
  1488.     dc.b " the 'FORGET IT' or  'CANCEL' icon in the file ",10
  1489.     dc.b " drawer.                                       ",10,0
  1490.  
  1491.     even
  1492.  about_middletext:
  1493.     DC.b " »» OK «« ",0
  1494.     EVEN
  1495.  
  1496. ;===========================================================================
  1497. ;
  1498. ;        A data compression system for the Commodore Amiga computer
  1499. ;           written by Holger P. Krekel and Olaf 'Olsen' Barthel
  1500. ;                  © Copyright 1990, all rights reserved.
  1501. ;
  1502. ;===========================================================================
  1503. ;
  1504. ;******* Thanks for these versions ********
  1505. ; LZHUF.C English version 1.0
  1506. ; Based on Japanese version 29-NOV-1988
  1507. ; LZSS coded by Haruhiko OKUMURA
  1508. ; Adaptive Huffman Coding coded by Haruyasu YOSHIZAKI
  1509. ; Edited and translated to English by Kenji RIKITAKE
  1510.  
  1511. ;******* Many thanks to Olaf for knowledge and the above ******
  1512. ;******* sourcecodes                     *******
  1513. ;******* they were used to get to know some methods     *******
  1514. ;**************************************************************
  1515. ;******* LZHUF Packing                     *******
  1516. ;******* written in assembly by HPK 24/08/90        *******
  1517. ;
  1518. ;===========================================================================
  1519.  
  1520. ; damm well programmed code...
  1521.  
  1522. lbC0007FC
  1523.     MOVEM.L    D2-D7/A2-A6,-(SP)
  1524.     PEA    (A0)
  1525.     bsr.w    lbC000A4E
  1526.     MOVE.L    (SP)+,A0
  1527.     SUB.L    8(A0),A1
  1528.     CMP.W    #$10,D7
  1529.     beq.b    lbC000814
  1530.     ADDQ.L    #2,A1
  1531. lbC000814
  1532.     MOVE.L    A1,12(A0)
  1533.     MOVE.L    A1,D0
  1534.     MOVEM.L    (SP)+,D2-D7/A2-A6
  1535.     RTS
  1536.  
  1537. lbC000820
  1538.     MOVEQ    #1,D4
  1539.     LEA    -$2078(A3),A6
  1540.     LEA    (A6),A2
  1541.     ADD.W    D0,A2
  1542.     MOVE.W    (A2)+,D5
  1543.     ADD.W    #$1001,D5
  1544.     ADD.W    D5,D5
  1545.     MOVE.W    #$2000,D6
  1546.     MOVE.W    D6,0(A3,D0.W)
  1547.     MOVE.W    D6,0(A4,D0.W)
  1548.     MOVEQ    #0,D6
  1549.     MOVE.L    A2,D3
  1550. lbC000842
  1551.     MOVE.L    D3,A2
  1552. lbC000844
  1553.     TST.W    D4
  1554.     BPL.b    lbC00085C
  1555.     MOVE.W    0(A3,D5.W),D2
  1556.     CMP.W    #$2000,D2
  1557.     bne.b    lbC000870
  1558.     MOVE.W    D0,0(A3,D5.W)
  1559.     MOVE.W    D5,0(A5,D0.W)
  1560.     RTS
  1561.  
  1562. lbC00085C
  1563.     MOVE.W    0(A4,D5.W),D2
  1564.     CMP.W    #$2000,D2
  1565.     bne.b    lbC000870
  1566.     MOVE.W    D0,0(A4,D5.W)
  1567.     MOVE.W    D5,0(A5,D0.W)
  1568.     RTS
  1569.  
  1570. lbC000870
  1571.     MOVE.W    D2,D5
  1572.     LEA    -$2076(A3),A6
  1573.     ADD.W    D2,A6
  1574.     MOVE.L    A2,D3
  1575.     MOVE.W    (A2)+,D4
  1576.     SUB.W    (A6)+,D4
  1577.     bne.b    lbC000842
  1578.     MOVE.W    (A2)+,D4
  1579.     SUB.W    (A6)+,D4
  1580.     bne.b    lbC000842
  1581.     MOVEQ    #$39,D2
  1582. lbC000888
  1583.     MOVE.W    (A2)+,D4
  1584.     SUB.W    (A6)+,D4
  1585.     DBNE    D2,lbC000888
  1586.  
  1587.     NEG.W    D2
  1588.     ADD.W    #$3C,D2
  1589.     MOVE.L    D3,A2
  1590.     CMP.W    D6,D2
  1591.     BLT.b    lbC000844
  1592.     beq.b    lbC0008B4
  1593.     MOVE.W    D2,D6
  1594.     MOVE.W    D0,D3
  1595.     SUB.W    D5,D3
  1596.     AND.W    #$1FFE,D3
  1597.     MOVE.W    D3,$6206(A3)
  1598.     CMP.W    #$3C,D2
  1599.     BCS.b    lbC000844
  1600.     bra.b    lbC0008D2
  1601.  
  1602. lbC0008B4
  1603.     bchg    #1,$bfe001
  1604. ;    MOVE.W    D3,$DFF182
  1605.     MOVE.W    D0,D3
  1606.     SUB.W    D5,D3
  1607.     AND.W    #$1FFE,D3
  1608.     CMP.W    $6206(A3),D3
  1609.     BCC.w    lbC000844
  1610.     MOVE.W    D3,$6206(A3)
  1611.     BRA.w    lbC000844
  1612.  
  1613. lbC0008D2
  1614.     MOVE.W    0(A5,D5.W),0(A5,D0.W)
  1615.     MOVE.W    0(A3,D5.W),0(A3,D0.W)
  1616.     MOVE.W    0(A4,D5.W),0(A4,D0.W)
  1617.     MOVE.W    0(A3,D5.W),D2
  1618.     MOVE.W    D0,0(A5,D2.W)
  1619.     MOVE.W    0(A4,D5.W),D2
  1620.     MOVE.W    D0,0(A5,D2.W)
  1621.     MOVE.W    0(A5,D5.W),D2
  1622.     CMP.W    0(A4,D2.W),D5
  1623.     bne.b    lbC000904
  1624.     MOVE.W    D0,0(A4,D2.W)
  1625.     bra.b    lbC000908
  1626.  
  1627. lbC000904
  1628.     MOVE.W    D0,0(A3,D2.W)
  1629. lbC000908
  1630.     MOVE.W    #$2000,0(A5,D5.W)
  1631.     RTS
  1632.  
  1633. lbC000910
  1634.     MOVE.W    #$2000,D4
  1635.     CMP.W    0(A5,D0.W),D4
  1636.     beq.b    lbC000992
  1637.     CMP.W    0(A4,D0.W),D4
  1638.     bne.b    lbC000926
  1639.     MOVE.W    0(A3,D0.W),D2
  1640.     bra.b    lbC000972
  1641.  
  1642. lbC000926
  1643.     CMP.W    0(A3,D0.W),D4
  1644.     bne.b    lbC000932
  1645.     MOVE.W    0(A4,D0.W),D2
  1646.     bra.b    lbC000972
  1647.  
  1648. lbC000932
  1649.     MOVE.W    0(A3,D0.W),D2
  1650.     CMP.W    0(A4,D2.W),D4
  1651.     beq.b    lbC000966
  1652. lbC00093C
  1653.     MOVE.W    0(A4,D2.W),D2
  1654.     CMP.W    0(A4,D2.W),D4
  1655.     bne.b    lbC00093C
  1656.     MOVE.W    0(A5,D2.W),D3
  1657.     MOVE.W    0(A3,D2.W),0(A4,D3.W)
  1658.     MOVE.W    0(A3,D2.W),D3
  1659.     MOVE.W    0(A5,D2.W),0(A5,D3.W)
  1660.     MOVE.W    0(A3,D0.W),D3
  1661.     MOVE.W    D3,0(A3,D2.W)
  1662.     MOVE.W    D2,0(A5,D3.W)
  1663. lbC000966
  1664.     MOVE.W    0(A4,D0.W),D3
  1665.     MOVE.W    D3,0(A4,D2.W)
  1666.     MOVE.W    D2,0(A5,D3.W)
  1667. lbC000972
  1668.     MOVE.W    0(A5,D0.W),D3
  1669.     MOVE.W    D3,0(A5,D2.W)
  1670.     CMP.W    0(A4,D3.W),D0
  1671.     beq.b    lbC00098A
  1672.     MOVE.W    D2,0(A3,D3.W)
  1673.     MOVE.W    D4,0(A5,D0.W)
  1674.     RTS
  1675.  
  1676. lbC00098A
  1677.     MOVE.W    D2,0(A4,D3.W)
  1678.     MOVE.W    D4,0(A5,D0.W)
  1679. lbC000992
  1680.     RTS
  1681.  
  1682. lbC000994
  1683.     ADD.W    D0,D0
  1684.     MOVE.W    D0,D1
  1685.     NEG.W    D1
  1686.     LEA    -$2A5C(A3),A2
  1687.     MOVE.W    -2(A2,D1.W),D1
  1688.     MOVEQ    #0,D3
  1689.     MOVEQ    #1,D2
  1690.     MOVEQ    #0,D4
  1691. lbC0009A8
  1692.     LSR.W    D2,D3
  1693.     BTST    D2,D1
  1694.     beq.b    lbC0009B2
  1695.     OR.W    #$8000,D3
  1696. lbC0009B2
  1697.     ADD.W    D2,D4
  1698.     MOVE.W    0(A2,D1.W),D1
  1699.     CMP.W    #$4F0,D1
  1700.     bne.b    lbC0009A8
  1701.     SWAP    D3
  1702.     CLR.W    D3
  1703.     ROL.L    D7,D3
  1704.     OR.W    D3,(A1)
  1705.     SUB.B    D4,D7
  1706.     BGT.b    lbC0009D4
  1707.     ADDQ.L    #2,A1
  1708.     SWAP    D3
  1709.     MOVE.W    D3,(A1)
  1710.     MOVEQ    #$10,D3
  1711.     ADD.W    D3,D7
  1712. lbC0009D4
  1713.     CMP.W    #$8000,-$2CDA(A3)
  1714.     beq.b    lbC000A4C
  1715.     LEA    -$31CA(A3),A5
  1716.     LEA    -$2A5C(A3),A4
  1717.     LEA    -$256A(A3),A3
  1718.     MOVEQ    #1,D4
  1719.     NEG.W    D0
  1720.     MOVE.W    -2(A4,D0.W),D0
  1721. lbC0009F0
  1722.     LEA    0(A5,D0.W),A2
  1723.     MOVE.W    (A2),D1
  1724.     ADD.W    D4,D1
  1725.     MOVE.W    D1,(A2)+
  1726.     CMP.W    (A2)+,D1
  1727.     BLS.b    lbC000A3A
  1728. lbC0009FE
  1729.     CMP.W    (A2)+,D1
  1730.     BHI.b    lbC0009FE
  1731.     SUBQ.L    #4,A2
  1732.     MOVE.L    A2,D2
  1733.     SUB.L    A5,D2
  1734.     MOVE.W    (A2),0(A5,D0.W)
  1735.     MOVE.W    D1,(A2)
  1736.     MOVE.W    0(A3,D0.W),D1
  1737.     BMI.b    lbC000A18
  1738.     MOVE.W    D2,2(A4,D1.W)
  1739. lbC000A18
  1740.     MOVE.W    D2,0(A4,D1.W)
  1741.     MOVE.W    0(A3,D2.W),D3
  1742.     BMI.b    lbC000A26
  1743.     MOVE.W    D0,2(A4,D3.W)
  1744. lbC000A26
  1745.     MOVE.W    D1,0(A3,D2.W)
  1746.     MOVE.W    D0,0(A4,D3.W)
  1747.     MOVE.W    D3,0(A3,D0.W)
  1748.     MOVE.W    0(A4,D2.W),D0
  1749.     bne.b    lbC0009F0
  1750.     bra.b    lbC000A40
  1751.  
  1752. lbC000A3A
  1753.     MOVE.W    0(A4,D0.W),D0
  1754.     bne.b    lbC0009F0
  1755. lbC000A40
  1756.     LEA    $31CA(A5),A3
  1757.     LEA    $51CC(A5),A4
  1758.     LEA    $73CE(A5),A5
  1759. lbC000A4C
  1760.     RTS
  1761.  
  1762. lbC000A4E
  1763.     PEA    (A0)
  1764.     MOVE.L    $10(A0),A6
  1765.     MOVE.L    A6,A0
  1766.     LEA    $C60(A6),A1
  1767.     LEA    $76E(A6),A2
  1768.     MOVEQ    #-$2,D0
  1769.     MOVEQ    #0,D3
  1770.     MOVEQ    #1,D1
  1771.     MOVEQ    #2,D2
  1772.     MOVE.W    #$13C,D7
  1773. lbC000A6A
  1774.     MOVE.W    D1,(A0)+
  1775.     MOVE.W    D0,(A1)+
  1776.     MOVE.W    D3,-(A2)
  1777.     SUB.W    D2,D0
  1778.     ADD.W    D2,D3
  1779.     DBRA    D7,lbC000A6A
  1780.  
  1781.     MOVEQ    #0,D6
  1782.     MOVE.L    #$27A,D7
  1783.     MOVE.L    A6,A0
  1784.     LEA    $27A(A6),A1
  1785.     LEA    $EDA(A6),A2
  1786.     LEA    $76E(A6),A3
  1787.     MOVEQ    #4,D4
  1788.     MOVEQ    #2,D2
  1789.     MOVE.W    #$13B,D1
  1790. lbC000A96
  1791.     MOVE.W    (A0)+,D0
  1792.     ADD.W    (A0)+,D0
  1793.     MOVE.W    D0,(A1)+
  1794.     MOVE.W    D6,(A2)+
  1795.     MOVE.W    D7,(A3)+
  1796.     MOVE.W    D7,(A3)+
  1797.     ADD.W    D4,D6
  1798.     ADD.W    D2,D7
  1799.     DBRA    D1,lbC000A96
  1800.  
  1801.     MOVE.W    D1,(A1)
  1802.     CLR.W    $C5E(A6)
  1803.     MOVEQ    #$7F,D0
  1804.     MOVE.L    #$20002000,D1
  1805.     LEA    $71CE(A6),A0
  1806. lbC000ABC
  1807.     MOVE.L    D1,(A0)+
  1808.     DBRA    D0,lbC000ABC
  1809.  
  1810.     MOVE.W    #$3FF,D0
  1811.     LEA    $73CE(A6),A0
  1812. lbC000ACA
  1813.     MOVE.L    D1,(A0)+
  1814.     MOVE.L    D1,(A0)+
  1815.     DBRA    D0,lbC000ACA
  1816.  
  1817.     MOVE.L    (SP)+,A6
  1818.     MOVE.L    (A6),A0
  1819.     MOVE.L    8(A6),A1
  1820.     MOVE.L    4(A6),D0
  1821.     MOVE.L    $10(A6),A2
  1822.     ADD.L    A0,D0
  1823.     MOVE.L    D0,-(SP)
  1824.     LEA    $1152(A2),A6
  1825.     MOVE.W    #$7E2,D1
  1826.     MOVEQ    #0,D0
  1827. lbC000AF0
  1828.     MOVE.L    D0,(A6)+
  1829.     DBRA    D1,lbC000AF0
  1830.  
  1831.     LEA    $30DA(A2),A6
  1832.     MOVEQ    #0,D2
  1833.     MOVEQ    #0,D3
  1834. lbC000AFE
  1835.     MOVE.B    (A0)+,D3
  1836.     CMP.L    (SP),A0
  1837.     BHI.b    lbC000B0E
  1838.     MOVE.W    D3,(A6)+
  1839.     ADDQ.W    #1,D2
  1840.     CMP.W    #$3C,D2
  1841.     BCS.b    lbC000AFE
  1842. lbC000B0E
  1843.     LEA    $31CA(A2),A3
  1844.     LEA    $51CC(A2),A4
  1845.     LEA    $73CE(A2),A5
  1846.     MOVE.W    D2,$4206(A4)
  1847.     CLR.W    (A1)
  1848.     MOVEQ    #$10,D7
  1849.     MOVEQ    #0,D0
  1850.     MOVE.W    #$1F88,D1
  1851.     MOVE.W    D0,-(SP)
  1852.     MOVE.W    D1,-(SP)
  1853.     MOVE.W    D1,D0
  1854.     BSR.w    lbC000820
  1855.     MOVE.W    (SP)+,D1
  1856.     MOVE.W    (SP)+,D0
  1857. lbC000B36
  1858.     CMP.W    $4206(A4),D6
  1859.     BLS.b    lbC000B40
  1860.     MOVE.W    $4206(A4),D6
  1861. lbC000B40
  1862.     CMP.W    #2,D6
  1863.     BCS.b    lbC000C0E
  1864.     MOVE.W    D1,-(SP)
  1865.     MOVE.W    D0,-(SP)
  1866.     MOVE.W    D6,D0
  1867.     ADD.W    #$FF,D0
  1868.     BSR.w    lbC000994
  1869.     MOVEQ    #0,D0
  1870.     MOVE.W    $6206(A3),D0
  1871.     ROR.L    #7,D0
  1872.     ADD.W    D0,D0
  1873.     MOVE.W    lbW000B8E(PC,D0.W),D1
  1874.     MOVE.B    D1,D3
  1875.     CLR.B    D1
  1876.     SWAP    D0
  1877.     LSR.W    D3,D0
  1878.     OR.W    D0,D1
  1879.     ADDQ.W    #6,D3
  1880.     SWAP    D1
  1881.     CLR.W    D1
  1882.     ROL.L    D7,D1
  1883.     OR.W    D1,(A1)
  1884.     SUB.B    D3,D7
  1885.     BGT.S    lbC000B86
  1886.     ADDQ.L    #2,A1
  1887.     SWAP    D1
  1888.     MOVE.W    D1,(A1)
  1889.     MOVEQ    #$10,D1
  1890.     ADD.W    D1,D7
  1891. lbC000B86
  1892.     MOVE.W    (SP)+,D0
  1893.     MOVE.W    (SP)+,D1
  1894.     BRA.b    lbC000C24
  1895. lbC000C0E
  1896.     MOVEQ    #1,D6
  1897.     MOVE.W    D1,-(SP)
  1898.     MOVE.W    D0,-(SP)
  1899.     LEA    -$2078(A3),A6
  1900.     MOVE.W    0(A6,D1.W),D0
  1901.     BSR.w    lbC000994
  1902.     MOVE.W    (SP)+,D0
  1903.     MOVE.W    (SP)+,D1
  1904. lbC000C24
  1905.     MOVE.W    D6,D5
  1906.     SUBQ.W    #1,D5
  1907. lbC000C28
  1908.     BSR.w    lbC000910
  1909.     MOVE.B    (A0)+,D3
  1910.     CMP.L    (SP),A0
  1911.     BLS.w    lbC000C4A
  1912.     SUBQ.W    #1,$4206(A4)
  1913.     bne.w    lbC000C60
  1914.     BGT.w    lbC000B36
  1915.     MOVEQ    #0,D0
  1916.     MOVE.W    #$13C,D0
  1917.     BSR.w    lbC000994
  1918.     ADDQ.L    #4,SP
  1919.     RTS
  1920.  
  1921.     cnop    0,4
  1922.  
  1923. lbW000B8E
  1924.     dc.w    3
  1925.     dc.w    $2004
  1926.     dc.w    $3004
  1927.     dc.w    $4004
  1928.     dc.w    $5005
  1929.     dc.w    $5805
  1930.     dc.w    $6005
  1931.     dc.w    $6805
  1932.     dc.w    $7005
  1933.     dc.w    $7805
  1934.     dc.w    $8005
  1935.     dc.w    $8805
  1936.     dc.w    $9006
  1937.     dc.w    $9406
  1938.     dc.w    $9806
  1939.     dc.w    $9C06
  1940.     dc.w    $A006
  1941.     dc.w    $A406
  1942.     dc.w    $A806
  1943.     dc.w    $AC06
  1944.     dc.w    $B006
  1945.     dc.w    $B406
  1946.     dc.w    $B806
  1947.     dc.w    $BC06
  1948.     dc.w    $C007
  1949.     dc.w    $C207
  1950.     dc.w    $C407
  1951.     dc.w    $C607
  1952.     dc.w    $C807
  1953.     dc.w    $CA07
  1954.     dc.w    $CC07
  1955.     dc.w    $CE07
  1956.     dc.w    $D007
  1957.     dc.w    $D207
  1958.     dc.w    $D407
  1959.     dc.w    $D607
  1960.     dc.w    $D807
  1961.     dc.w    $DA07
  1962.     dc.w    $DC07
  1963.     dc.w    $DE07
  1964.     dc.w    $E007
  1965.     dc.w    $E207
  1966.     dc.w    $E407
  1967.     dc.w    $E607
  1968.     dc.w    $E807
  1969.     dc.w    $EA07
  1970.     dc.w    $EC07
  1971.     dc.w    $EE07
  1972.     dc.w    $F008
  1973.     dc.w    $F108
  1974.     dc.w    $F208
  1975.     dc.w    $F308
  1976.     dc.w    $F408
  1977.     dc.w    $F508
  1978.     dc.w    $F608
  1979.     dc.w    $F708
  1980.     dc.w    $F808
  1981.     dc.w    $F908
  1982.     dc.w    $FA08
  1983.     dc.w    $FB08
  1984.     dc.w    $FC08
  1985.     dc.w    $FD08
  1986.     dc.w    $FE08
  1987.     dc.w    $FF08
  1988.  
  1989. lbC000C4A
  1990.     LEA    -$2078(A3),A6
  1991.     MOVE.B    D3,1(A6,D0.W)
  1992.     CMP.W    #$76,D0
  1993.     BCC.b    lbC000C60
  1994.     LEA    $2000(A6),A2
  1995.     MOVE.B    D3,1(A2,D0.W)
  1996. lbC000C60
  1997.     MOVEQ    #2,D2
  1998.     ADD.W    D2,D0
  1999.     ADD.W    D2,D1
  2000.     MOVE.W    #$1FFE,D2
  2001.     AND.W    D2,D0
  2002.     AND.W    D2,D1
  2003.     MOVE.W    D5,-(SP)
  2004.     MOVE.W    D0,-(SP)
  2005.     MOVE.W    D1,D0
  2006.     bsr.w    lbC000820
  2007.     MOVE.W    (SP)+,D0
  2008.     MOVE.W    (SP)+,D5
  2009.     DBRA    D5,lbC000C28
  2010.  
  2011.     bra.w    lbC000B36
  2012.  
  2013. ;===========================================================================
  2014.  
  2015.     cnop 0,4
  2016. mes0:
  2017.     dc.b ''
  2018.     dc.b $0a,$9b,'7;32;41m'
  2019.     dc.b $1b,'[1m'
  2020.     dc.b ' »»»  LhSFX Archive  V1.5  ««« '   
  2021.     dc.b $9b,'0;31;40m'
  2022.     dc.b $0a,$0a
  2023.     dc.b $1b,'[3m'
  2024.     dc.b ' LhSFX Archive V1.0 by Mike Kennedy  © 1991',$0a
  2025.     dc.b ' LhSFX Archive V1.5 by Ralf Thanner  © 1992',$0a
  2026.     dc.b ' Crunch & Decrunch © by Holger Krekel & Olaf Barthel',$0a,$0a
  2027.     dc.b $1b,'[0m'
  2028. mes0end:
  2029. mes0leng = mes0end-mes0
  2030.     even
  2031. mes1:
  2032.     dc.b " Didn't find 'requester.library', now you must use the cli-interface! "
  2033.     dc.b $0a
  2034. mes1end:
  2035. mes1leng = mes1end-mes1
  2036.     even
  2037.  
  2038. mOriginal0m
  2039.     dc.b    10
  2040.     dc.b    $1B
  2041.     dc.b    '[1mOriginal > '
  2042.     dc.b    $1B
  2043.     dc.b    '[0m',0,0
  2044.  
  2045.     even
  2046. mThatfiledoes:
  2047.     dc.b    $1B
  2048.     dc.b    "[3mThat file doesn't exist ..."
  2049.     dc.b    $1B
  2050.     dc.b    '[0m',$A,0
  2051.     dc.b    0
  2052.  
  2053.     even
  2054. mCannotcompre    dc.b    $1B
  2055.     dc.b    '[3mCannot compress a directory ...'
  2056.     dc.b    $1B
  2057.     dc.b    '[0m',$A,0
  2058.     dc.b    0
  2059.  
  2060.     even
  2061. mFileorDispla    dc.b    10
  2062.     dc.b    $1B
  2063.     dc.b    '[1m[F]ile or [D]isplay > '
  2064.     dc.b    $1B
  2065.     dc.b    '[0m',0
  2066.  
  2067.     even
  2068. mCompressingP    dc.b    10
  2069.     dc.b    $1B
  2070.     dc.b    '[3mCompressing ... Please Wait ...'
  2071.     dc.b    $1B
  2072.     dc.b    '[0m',$A,0
  2073.  
  2074.     even
  2075. mExtractPath0    dc.b    10
  2076.     dc.b    $1B
  2077.     dc.b    '[1mExtract Path > '
  2078.     dc.b    $1B
  2079.     dc.b    '[0m',0,0
  2080.  
  2081.     even
  2082. mDestination0    dc.b    10
  2083.     dc.b    $1B
  2084.     dc.b    '[1mARCHIV NAME > '
  2085.     dc.b    $1B
  2086.     dc.b    '[0m',0
  2087.  
  2088.     even
  2089. pfeil
  2090.     dc.l    $A20BB3E
  2091.     dc.w    $2000
  2092. ascii    dc.b    '    (',0
  2093. bytes1    dc.b    ' bytes)',$A,0
  2094.     dc.b    0
  2095.  
  2096.     even
  2097. mCouldntalloc    dc.b    10
  2098.     dc.b    $1B
  2099.     dc.b    "[3mCouldn't allocate enough memory ..."
  2100.     dc.b    $1B
  2101.     dc.b    '[0m'
  2102.     dc.b    7
  2103.     dc.b    7
  2104.     dc.b    10
  2105.     dc.b    0
  2106.  
  2107.     even
  2108. mThatsadirect    dc.b    10
  2109.     dc.b    $1B
  2110.     dc.b    "[3mThat's a directory ..."
  2111.     dc.b    $1B
  2112.     dc.b    '[0m',$A
  2113.     dc.b    7
  2114.     dc.b    0
  2115.  
  2116.     even
  2117. mFileExistsOv    dc.b    10
  2118.     dc.b    $1B
  2119.     dc.b    '[1mArchiv Exists.  Overwrite <y/n>? '
  2120.     dc.b    $1B
  2121.     dc.b    '[0m'
  2122.     dc.b    7
  2123.     dc.b    0
  2124.  
  2125.     even
  2126. mErrorreading    dc.b    10
  2127.     dc.b    $1B
  2128.     dc.b    '[3mError reading or writing file ...'
  2129.     dc.b    $1B
  2130.     dc.b    '[0m'
  2131.     dc.b    7
  2132.     dc.b    7
  2133.     dc.b    10
  2134.     dc.b    0
  2135.  
  2136.     even
  2137. mArchiveSucce    dc.b    10
  2138.     dc.b    $1B
  2139.     dc.b    '[33mArchive Successfully Completed ...',$A,$A
  2140.     dc.b    $1B
  2141.     dc.b    '[0m',$0a,$0a,0
  2142. maend
  2143. malen=maend-mArchiveSucce
  2144.  
  2145.     even
  2146. mCompressed    dc.b    10
  2147.     dc.b    $1B
  2148.     dc.b    '[1mCompressed '
  2149. bytestobytes0    dc.b    ' bytes to '
  2150. bytes0m    dc.b    ' bytes.'
  2151.     dc.b    $1B
  2152.     dc.b    '[0m',$A
  2153.  
  2154.     even
  2155. mArchiveOpene    dc.b    10
  2156.     dc.b    $1B
  2157.     dc.b    '[1mArchive Opened ...'
  2158.     dc.b    $1B
  2159.     dc.b    '[0m',$A
  2160.  
  2161.     even
  2162. mAddedtoArchi    dc.b    10
  2163.     dc.b    $1B
  2164.     dc.b    '[1mAdded to Archive ...'
  2165.     dc.b    $1B
  2166.     dc.b    '[0m',$A
  2167.  
  2168.     cnop 0,4
  2169. ;--------------------------------------------------------------------
  2170. ;                        *** SFX header ***
  2171. ;--------------------------------------------------------------------
  2172. ;
  2173. ; here is still a lot to do, but now it's your turn....
  2174. ;
  2175. ; be carefull, don't change a bit coz othewrwise it won't decrunch
  2176. ; anymore. If you want to improve it you MUST rewrite the complete
  2177. ; code. 
  2178. ; Mike uses a hard coded reloc table (look at 'how_can_someone_do_
  2179. ; such_shit') for his header and makes it therfore a little bit
  2180. ; complicate to change the code... ha ha ha 
  2181. ;
  2182. ; The rest of the code looked like this part below so you can
  2183. ; surely imagine that I had some troubles...
  2184. ;
  2185. sfx_hunk
  2186. lbL003D00
  2187.     dc.l    $3F3
  2188.     dc.l    0
  2189.     dc.l    3
  2190.     dc.l    0
  2191.     dc.l    2
  2192.     dc.l    $20F
  2193.     dc.l    $465
  2194.     dc.l    1
  2195.     dc.l    $3E9
  2196.     dc.l    $20F
  2197.  
  2198. decruncher
  2199.     LEA    0,A1
  2200.     MOVE.L    A1,$318
  2201.     LEA    $2EC,A1        ; Dosname
  2202.     MOVEA.L    4,A6        ; what about '4.w' ?
  2203.     JSR    -$228(A6)    ; OpenLib
  2204.     MOVE.L    D0,$2FC    ; Dosbase
  2205.     BEQ.L    lbC003F78
  2206.     MOVEA.L    D0,A6
  2207.     JSR    -$3C(A6)    ; Output
  2208.     MOVE.L    D0,$304    ; OutputHandle    
  2209.     LEA    $320,A0
  2210.     BSR.L    lbC003F7C
  2211.     LEA    $308,A4
  2212.     LEA    0,A5
  2213. lbC003D70
  2214.     CMPI.L    #$11111111,(A5)    ; is it File
  2215.     BEQ.L    lbC003D92
  2216.     CMPI.L    #$22222222,(A5)    ; or Display ?
  2217.     BEQ.L    lbC003EB4    ; Show txt and wait mouse
  2218.     CMPI.L    #$FFFFFFFF,(A5)
  2219.     BEQ.L    lbC003F44
  2220.     BRA.L    lbC003F60
  2221.  
  2222. lbC003D92            ; file entpacken
  2223.     LEA    $40(A5),A0
  2224.     MOVE.L    A0,0(A4)
  2225.     MOVE.L    8(A5),4(A4)
  2226.     MOVE.L    4(A5),12(A4)
  2227.     MOVE.L    4(A5),D0
  2228.     BSR.L    lbC003FE8        ; AllocMem
  2229.     BEQ.L    lbC003F52
  2230.     MOVE.L    D0,8(A4)
  2231.     LEA    $10(A5),A0
  2232.     BSR.L    lbC003F7C
  2233.     LEA    $10(A5),A0
  2234. lbC003DC2
  2235.     CMPI.B    #$2F,(A0)
  2236.     BEQ.L    lbC003DDC    ; Create Dir
  2237. lbC003DCA
  2238.     ADDA.L    #1,A0
  2239.     CMPI.B    #0,(A0)
  2240.     BEQ.L    lbC003E2C    ; No DIr
  2241.     BRA.L    lbC003DC2
  2242.  
  2243. lbC003DDC
  2244.     MOVE.B    #0,(A0)
  2245.     MOVE.L    A0,$2F8
  2246.     LEA    $10(A5),A0
  2247.     MOVE.L    A0,D1
  2248.     MOVE.L    #$FFFFFFFE,D2
  2249.     MOVEA.L    $2FC,A6            ; Dosbase    
  2250.     JSR    -$54(A6)    ; Lock
  2251.     TST.L    D0
  2252.     BNE.L    lbC003E18
  2253.     LEA    $10(A5),A0
  2254.     MOVE.L    A0,D1
  2255.     MOVEA.L    $2FC,A6            ; Dosbase
  2256.     JSR    -$78(A6)    ; CreateDir
  2257.     TST.L    D0
  2258.     BEQ.L    lbC003F60
  2259. lbC003E18
  2260.     MOVE.L    D0,D1
  2261.     JSR    -$5A(A6)    ; Unlock
  2262.     MOVEA.L    $2F8,A0
  2263.     MOVE.B    #$2F,(A0)
  2264.     BRA.L    lbC003DCA
  2265.  
  2266. lbC003E2C
  2267.     LEA    $10(A5),A0
  2268.     MOVE.L    A0,D1
  2269.     MOVE.L    #$3Ec,D2    ; Mode RW
  2270.     MOVEA.L    $2FC,A6            ; Dosbase    
  2271.     JSR    -$1E(A6)    ; OPEN
  2272.     MOVE.L    D0,$300            ; FileHandle
  2273.     TST.L    D0
  2274.     BNE.S    lbC003E50
  2275.     BRA.L    lbC003F6A
  2276.  
  2277. lbC003E50
  2278.     MOVE.L    12(A4),D2
  2279.     LEA    Bytes.MSG(PC),A2
  2280.     BSR.L    lbC003F9A
  2281.     LEA    $2DA,A0
  2282.     BSR.L    lbC003F7C
  2283.     LEA    $308,A0
  2284.     BSR.L    lbC00414C
  2285.     MOVE.L    $300,D1
  2286.     MOVE.L    8(A4),D2
  2287.     MOVE.L    D0,D3
  2288.     JSR    -$30(A6)    ; Write
  2289.     CMP.W    #$FFFF,D0
  2290.     MOVE.L    $300,D1
  2291.     JSR    -$24(A6)    ; Close
  2292.     CLR.L    $300
  2293.     MOVEA.L    8(A4),A1
  2294.     MOVE.L    12(A4),D0
  2295.     MOVE.L    4.w,A6
  2296.     JSR    -$D2(A6)    ; FreeMem
  2297.     LEA    8(A5),A0
  2298.     ADDA.L    (A0),A5
  2299.     ADDA.L    #$40,A5
  2300.     BRA.L    lbC003D70
  2301.  
  2302. lbC003EB4
  2303.     LEA    $40(A5),A0
  2304.     MOVE.L    A0,0(A4)
  2305.     MOVE.L    8(A5),4(A4)
  2306.     MOVE.L    4(A5),12(A4)
  2307.     MOVE.L    4(A5),D0
  2308.     BSR.L    lbC003FE8        ; AllocMem
  2309.     BEQ.L    lbC003F52
  2310.     MOVE.L    D0,8(A4)
  2311.     LEA    $308,A0
  2312.     BSR.L    lbC00414C
  2313.     LEA    $382,A0
  2314.     BSR.L    lbC003F7C
  2315.     MOVE.L    $304,D1        ; OutputHandle
  2316.     MOVE.L    8(A4),D2
  2317.     MOVE.L    12(A4),D3
  2318.     MOVEA.L    $2FC,A6            ; Dosbase
  2319.     JSR    -$30(A6)    ; Write
  2320.     MOVEA.L    8(A4),A1
  2321.     MOVE.L    12(A4),D0
  2322.     MOVE.L    4.w,A6
  2323.     JSR    -$D2(A6)    ; FreeMem
  2324.     LEA    $386,A0
  2325.     BSR.L    lbC003F7C
  2326. lbC003F1E
  2327.     BTST    #6,$BFE001    ; Mouse after display
  2328.     BNE.L    lbC003F1E
  2329.     LEA    $3B2,A0
  2330.     BSR.L    lbC003F7C
  2331.     LEA    8(A5),A0
  2332.     ADDA.L    (A0),A5
  2333.     ADDA.L    #$40,A5
  2334.     BRA.L    lbC003D70
  2335.  
  2336. lbC003F44
  2337.     LEA    $35E,A0
  2338.     BSR.L    lbC003F7C
  2339.     BRA.L    lbC003F6A
  2340.  
  2341. lbC003F52
  2342.     LEA    $3F6,A0
  2343.     BSR.L    lbC003F7C
  2344.     BRA.L    lbC003F6A
  2345.  
  2346. lbC003F60
  2347.     LEA    $3B4,A0
  2348.     BSR.L    lbC003F7C
  2349. lbC003F6A
  2350.     MOVEA.L    $2FC,A1            ; Dosbase
  2351.     MOVE.L    4.w,A6
  2352.     JSR    -$19E(A6)    ; Close Lib
  2353. lbC003F78
  2354. ;    CLR.L    D0
  2355.     moveq    #0,d0
  2356.     RTS
  2357.  
  2358. lbC003F7C
  2359.     MOVEA.L    A0,A1
  2360. lbC003F7E
  2361.     TST.B    (A1)+
  2362.     BNE.S    lbC003F7E
  2363.     SUBA.L    A0,A1
  2364.     MOVE.L    A1,D3
  2365.     MOVE.L    A0,D2
  2366.     MOVE.L    $304,D1        ; OutputHandle
  2367.     MOVEA.L    $2FC,A6        ; Dosbase
  2368.     JSR    -$30(A6)    ; WRITE
  2369.     RTS
  2370.  
  2371. lbC003F9A
  2372.     MOVEQ    #7,D0
  2373.     MOVEA.L    A2,A0
  2374.     LEA    lbL003FC8(PC),A1
  2375. lbC003FA2
  2376.     MOVEQ    #$30,D1
  2377. lbC003FA4
  2378.     ADDQ.W    #1,D1
  2379.     SUB.L    (A1),D2
  2380.     BCC.S    lbC003FA4
  2381.     SUBQ.W    #1,D1
  2382.     ADD.L    (A1),D2
  2383.     MOVE.B    D1,(A0)+
  2384.     ADDA.L    #4,A1        ; Addq.l ???
  2385.     DBRA    D0,lbC003FA2
  2386.     MOVEA.L    A2,A0
  2387. lbC003FBC
  2388.     MOVE.B    #$20,(A0)+
  2389.     CMPI.B    #$30,(A0)
  2390.     BEQ.S    lbC003FBC
  2391.     RTS
  2392.  
  2393. lbL003FC8
  2394.     dc.l    $989680
  2395.     dc.l    $F4240
  2396.     dc.l    $186A0
  2397.     dc.l    $2710
  2398.     dc.l    $3E8
  2399.     dc.l    $64
  2400.     dc.l    10
  2401.     dc.l    1
  2402.  
  2403. lbC003FE8
  2404.     MOVEM.L    D1-D7/A0-A6,-(SP)
  2405.     MOVE.L    #1,D1            ; aaargh...
  2406.     MOVE.L    4.w,A6
  2407.     JSR    -$C6(A6)        ; AllocMem
  2408.     TST.L    D0
  2409.     MOVEM.L    (SP)+,D1-D7/A0-A6
  2410.     RTS
  2411.  
  2412.     dc.w    $202D
  2413. Bytes.MSG
  2414.     dc.b    '         Bytes',$A,0
  2415.     dc.b    'dos.library',0,0
  2416.     dc.b    0
  2417.     dc.b    0
  2418.     dc.b    0
  2419.     dc.b    0
  2420.     dc.b    0
  2421.     dc.b    0
  2422.     dc.b    0
  2423.     dc.b    0
  2424.     dc.b    0
  2425.     dc.b    0
  2426.     dc.b    0
  2427.     dc.b    0
  2428.     dc.b    0
  2429.     dc.b    0
  2430.     dc.b    0
  2431.     dc.b    0
  2432.     dc.b    0
  2433.     dc.b    0
  2434.     dc.b    0
  2435.     dc.b    0
  2436.     dc.b    0
  2437.     dc.b    0
  2438.     dc.b    0
  2439.     dc.b    0
  2440.     dc.b    0
  2441.     dc.b    0
  2442.     dc.b    0
  2443.     dc.b    0
  2444.     dc.b    0
  2445.     dc.b    0
  2446.     dc.b    0
  2447.     dc.b    0
  2448.     dc.b    0
  2449.     dc.b    0
  2450.     dc.b    0
  2451.     dc.b    0
  2452.     dc.b    0
  2453.     dc.b    $11
  2454.     dc.b    $94
  2455.     dc.b    10
  2456.     dc.b    $1B
  2457.  
  2458.  
  2459.     dc.b    '[42;33m LHSFX Archive '
  2460.     dc.b    $1B
  2461.     dc.b    '[0m By '
  2462.     dc.b    $1B
  2463.     dc.b    '[1mMK, MXM & RT'
  2464.     dc.b    $1B
  2465.     dc.b    '[0m  '
  2466.     dc.b    $A9
  2467.     dc.b    '1992',$A,$A,0
  2468.  
  2469.     dc.b    10
  2470.     dc.b    $1B
  2471.     dc.b    '[3mFinished Uncompressing !'
  2472.     dc.b    $1B
  2473.     dc.b    '[0m',$A,$A,0
  2474.     dc.b    $1B
  2475.     dc.b    'c',0,0
  2476.     dc.b    $1B
  2477.     dc.b    '[23H'
  2478.     dc.b    $1B
  2479.     dc.b    '[41;30m Press Left Mouse Button '
  2480.     dc.b    $1B
  2481.     dc.b    '[0m',0,0
  2482.     dc.b    10
  2483.     dc.b    0
  2484.     dc.b    10
  2485.     dc.b    $1B
  2486.     dc.b    '[1mError in Archive!  Bad Checksum or Invali'
  2487.     dc.b    'd Filetype.'
  2488.     dc.b    $1B
  2489.     dc.b    '[0m',$A,$A
  2490.     dc.b    7
  2491.     dc.b    0
  2492.     dc.b    0
  2493.     dc.b    10
  2494.     dc.b    $1B
  2495.     dc.b    '[1mUnable to Allocate Enough Memory!'
  2496.     dc.b    $1B
  2497.     dc.b    '[0m',$A,$A
  2498.     dc.b    7
  2499.     dc.b    0
  2500.  
  2501. lbC00414C
  2502.     MOVEM.L    D2-D7/A2-A6,-(SP)
  2503.     PEA    (A0)
  2504.     BSR.L    lbC0041E4
  2505.     MOVE.L    A1,D0
  2506.     move.l    (sp)+,A0
  2507.     SUB.L    8(A0),D0
  2508.     MOVE.L    D0,12(A0)
  2509.     MOVEM.L    (SP)+,D2-D7/A2-A6
  2510.     RTS
  2511.  
  2512.     MOVE.B    (A2)+,(A1)+
  2513.     MOVE.B    (A2)+,(A1)+
  2514.     MOVE.B    (A2)+,(A1)+
  2515.     MOVE.B    (A2)+,(A1)+
  2516.     MOVE.B    (A2)+,(A1)+
  2517.     MOVE.B    (A2)+,(A1)+
  2518.     MOVE.B    (A2)+,(A1)+
  2519.     MOVE.B    (A2)+,(A1)+
  2520.     MOVE.B    (A2)+,(A1)+
  2521.     MOVE.B    (A2)+,(A1)+
  2522.     MOVE.B    (A2)+,(A1)+
  2523.     MOVE.B    (A2)+,(A1)+
  2524.     MOVE.B    (A2)+,(A1)+
  2525.     MOVE.B    (A2)+,(A1)+
  2526.     MOVE.B    (A2)+,(A1)+
  2527.     MOVE.B    (A2)+,(A1)+
  2528.     MOVE.B    (A2)+,(A1)+
  2529.     MOVE.B    (A2)+,(A1)+
  2530.     MOVE.B    (A2)+,(A1)+
  2531.     MOVE.B    (A2)+,(A1)+
  2532.     MOVE.B    (A2)+,(A1)+
  2533.     MOVE.B    (A2)+,(A1)+
  2534.     MOVE.B    (A2)+,(A1)+
  2535.     MOVE.B    (A2)+,(A1)+
  2536.     MOVE.B    (A2)+,(A1)+
  2537.     MOVE.B    (A2)+,(A1)+
  2538.     MOVE.B    (A2)+,(A1)+
  2539.     MOVE.B    (A2)+,(A1)+
  2540.     MOVE.B    (A2)+,(A1)+
  2541.     MOVE.B    (A2)+,(A1)+
  2542.     MOVE.B    (A2)+,(A1)+
  2543.     MOVE.B    (A2)+,(A1)+
  2544.     MOVE.B    (A2)+,(A1)+
  2545.     MOVE.B    (A2)+,(A1)+
  2546.     MOVE.B    (A2)+,(A1)+
  2547.     MOVE.B    (A2)+,(A1)+
  2548.     MOVE.B    (A2)+,(A1)+
  2549.     MOVE.B    (A2)+,(A1)+
  2550.     MOVE.B    (A2)+,(A1)+
  2551.     MOVE.B    (A2)+,(A1)+
  2552.     MOVE.B    (A2)+,(A1)+
  2553.     MOVE.B    (A2)+,(A1)+
  2554.     MOVE.B    (A2)+,(A1)+
  2555.     MOVE.B    (A2)+,(A1)+
  2556.     MOVE.B    (A2)+,(A1)+
  2557.     MOVE.B    (A2)+,(A1)+
  2558.     MOVE.B    (A2)+,(A1)+
  2559.     MOVE.B    (A2)+,(A1)+
  2560.     MOVE.B    (A2)+,(A1)+
  2561.     MOVE.B    (A2)+,(A1)+
  2562.     MOVE.B    (A2)+,(A1)+
  2563.     MOVE.B    (A2)+,(A1)+
  2564.     MOVE.B    (A2)+,(A1)+
  2565.     MOVE.B    (A2)+,(A1)+
  2566.     MOVE.B    (A2)+,(A1)+
  2567.     MOVE.B    (A2)+,(A1)+
  2568.     MOVE.B    (A2)+,(A1)+
  2569.     MOVE.B    (A2)+,(A1)+
  2570.     MOVE.B    (A2)+,(A1)+
  2571.     MOVE.B    (A2)+,(A1)+
  2572.     BRA.L    lbC00426C
  2573.  
  2574. lbC0041E4
  2575.     PEA    (A0)
  2576.     MOVEA.L    $10(A0),A6
  2577.     MOVEA.L    A6,A0
  2578.     LEA    $C60(A6),A1
  2579.     LEA    $76E(A6),A2
  2580.     MOVEQ    #-2,D0
  2581.     MOVEQ    #0,D3
  2582.     MOVEQ    #1,D1
  2583.     MOVEQ    #2,D2
  2584.     MOVE.W    #$13C,D7
  2585. lbC004200
  2586.     MOVE.W    D1,(A0)+
  2587.     MOVE.W    D0,(A1)+
  2588.     MOVE.W    D3,-(A2)
  2589.     SUB.W    D2,D0
  2590.     ADD.W    D2,D3
  2591.     DBRA    D7,lbC004200
  2592.     MOVEQ    #0,D6
  2593.     MOVE.L    #$27A,D7
  2594.     MOVEA.L    A6,A0
  2595.     LEA    $27A(A6),A1
  2596.     LEA    $EDA(A6),A2
  2597.     LEA    $76E(A6),A3
  2598.     MOVEQ    #4,D4
  2599.     MOVEQ    #2,D2
  2600.     MOVE.W    #$13B,D1
  2601. lbC00422C
  2602.     MOVE.W    (A0)+,D0
  2603.     ADD.W    (A0)+,D0
  2604.     MOVE.W    D0,(A1)+
  2605.     MOVE.W    D6,(A2)+
  2606.     MOVE.W    D7,(A3)+
  2607.     MOVE.W    D7,(A3)+
  2608.     ADD.W    D4,D6
  2609.     ADD.W    D2,D7
  2610.     DBRA    D1,lbC00422C
  2611.     MOVE.W    D1,(A1)
  2612.     CLR.W    $C5E(A6)
  2613.     move.l    (sp)+,A5
  2614.     MOVEA.L    (A5),A0
  2615.     MOVEA.L    8(A5),A1
  2616.     MOVEA.L    $10(A5),A6
  2617.     MOVEA.L    A6,A5
  2618.     LEA    $76E(A6),A4
  2619.     LEA    $C60(A6),A3
  2620.     MOVEQ    #1,D4
  2621.     MOVEQ    #15,D5
  2622.     MOVE.W    (A0)+,D6
  2623.     BRA.S    lbC00426C
  2624.  
  2625. lbC004264
  2626.     NEG.W    D7
  2627.     LSR.W    D4,D7
  2628.     SUB.W    D4,D7
  2629.     MOVE.B    D7,(A1)+
  2630. lbC00426C
  2631.     MOVE.W    $4F0(A3),D7
  2632. lbC004270
  2633.     ADD.W    D6,D6
  2634.     BCC.L    lbC004288
  2635.     MOVE.W    2(A3,D7.W),D7
  2636.     DBMI    D5,lbC004270
  2637.     BMI.L    lbC004292
  2638. lbC004282
  2639.     MOVEQ    #15,D5
  2640.     MOVE.W    (A0)+,D6
  2641.     BRA.S    lbC004270
  2642.  
  2643. lbC004288
  2644.     MOVE.W    0(A3,D7.W),D7
  2645.     DBMI    D5,lbC004270
  2646.     BPL.S    lbC004282
  2647. lbC004292
  2648.     DBRA    D5,lbC00429A
  2649.     MOVE.W    (A0)+,D6
  2650.     MOVEQ    #15,D5
  2651. lbC00429A
  2652.     CMPI.W    #$8000,$4F0(A5)
  2653.     BEQ.L    lbC0042F8
  2654.     MOVE.W    0(A4,D7.W),D0
  2655. lbC0042A8
  2656.     LEA    0(A5,D0.W),A2
  2657.     MOVE.W    (A2),D1
  2658.     ADD.W    D4,D1
  2659.     MOVE.W    D1,(A2)+
  2660.     CMP.W    (A2)+,D1
  2661.     BLS.S    lbC0042F2
  2662. lbC0042B6
  2663.     CMP.W    (A2)+,D1
  2664.     BHI.S    lbC0042B6
  2665.     SUBQ.L    #4,A2
  2666.     MOVE.L    A2,D2
  2667.     SUB.L    A5,D2
  2668.     MOVE.W    (A2),0(A5,D0.W)
  2669.     MOVE.W    D1,(A2)
  2670.     MOVE.W    0(A3,D0.W),D1
  2671.     BMI.S    lbC0042D0
  2672.     MOVE.W    D2,2(A4,D1.W)
  2673. lbC0042D0
  2674.     MOVE.W    D2,0(A4,D1.W)
  2675.     MOVE.W    0(A3,D2.W),D3
  2676.     BMI.S    lbC0042DE
  2677.     MOVE.W    D0,2(A4,D3.W)
  2678. lbC0042DE
  2679.     MOVE.W    D1,0(A3,D2.W)
  2680.     MOVE.W    D0,0(A4,D3.W)
  2681.     MOVE.W    D3,0(A3,D0.W)
  2682.     MOVE.W    0(A4,D2.W),D0
  2683.     BNE.S    lbC0042A8
  2684.     BRA.S    lbC0042F8
  2685.  
  2686. lbC0042F2
  2687.     MOVE.W    0(A4,D0.W),D0
  2688.     BNE.S    lbC0042A8
  2689. lbC0042F8
  2690.     CMPI.W    #$FE00,D7
  2691.     BGE.L    lbC004264
  2692.     CMPI.W    #$FD86,D7
  2693.     BGT.S    lbC004308
  2694.     RTS
  2695.  
  2696. lbC004308
  2697.     ROL.W    #8,D6
  2698.     SUBQ.W    #7,D5
  2699.     BCC.S    lbC004328
  2700.     MOVEQ    #0,D3
  2701.     MOVE.W    (A0)+,D3
  2702.     SWAP    D3
  2703.     NEG.W    D5
  2704.     ROL.L    D5,D3
  2705.     MOVE.W    D3,D1
  2706.     OR.B    D6,D1
  2707.     SWAP    D3
  2708.     MOVE.W    D3,D6
  2709.     NEG.W    D5
  2710.     MOVEQ    #15,D2
  2711.     ADD.W    D2,D5
  2712.     BRA.S    lbC004336
  2713.  
  2714. lbC004328
  2715.     MOVEQ    #0,D1
  2716.     MOVE.B    D6,D1
  2717.     CLR.B    D6
  2718.     DBRA    D5,lbC004336
  2719.     MOVE.W    (A0)+,D6
  2720.     MOVEQ    #15,D5
  2721. lbC004336
  2722.     MOVE.W    D1,D3
  2723.     ADD.W    D3,D3
  2724.     MOVE.W    lbW004364(PC,D3.W),D3
  2725.     CLR.W    D2
  2726.     MOVE.B    D3,D2
  2727.     CLR.B    D3
  2728.     LSR.W    #2,D3
  2729. lbC004346
  2730.     ADD.W    D6,D6
  2731.     ADDX.W    D1,D1
  2732.     DBRA    D5,lbC004352
  2733.     MOVEQ    #15,D5
  2734.     MOVE.W    (A0)+,D6
  2735. lbC004352
  2736.     DBRA    D2,lbC004346
  2737.     ANDI.W    #$3F,D1
  2738.     OR.W    D3,D1
  2739.     LEA    (A1),A2
  2740.     SUBA.W    D1,A2
  2741.     JMP    lbL0043E0(PC,D7.W)
  2742.  
  2743. lbW004364
  2744.     dc.w    0
  2745.     dc.w    0
  2746.     dc.w    0
  2747.     dc.w    0
  2748.     dc.w    0
  2749.     dc.w    0
  2750.     dc.w    0
  2751.     dc.w    0
  2752.     dc.w    0
  2753.     dc.w    0
  2754.     dc.w    0
  2755.     dc.w    0
  2756.     dc.w    0
  2757.     dc.w    0
  2758.     dc.w    0
  2759.     dc.w    0
  2760.     dc.w    0
  2761.     dc.w    0
  2762.     dc.w    0
  2763.     dc.w    0
  2764.     dc.w    0
  2765.     dc.w    0
  2766.     dc.w    0
  2767.     dc.w    0
  2768.     dc.w    0
  2769.     dc.w    0
  2770.     dc.w    0
  2771.     dc.w    0
  2772.     dc.w    0
  2773.     dc.w    0
  2774.     dc.w    0
  2775.     dc.w    0
  2776.     dc.w    $101
  2777.     dc.w    $101
  2778.     dc.w    $101
  2779.     dc.w    $101
  2780.     dc.w    $101
  2781.     dc.w    $101
  2782.     dc.w    $101
  2783.     dc.w    $101
  2784.     dc.w    $101
  2785.     dc.w    $101
  2786.     dc.w    $101
  2787.     dc.w    $101
  2788.     dc.w    $101
  2789.     dc.w    $101
  2790.     dc.w    $101
  2791.     dc.w    $101
  2792.     dc.w    $201
  2793.     dc.w    $201
  2794.     dc.w    $201
  2795.     dc.w    $201
  2796.     dc.w    $201
  2797.     dc.w    $201
  2798.     dc.w    $201
  2799.     dc.w    $201
  2800.     dc.w    $201
  2801.     dc.w    $201
  2802.     dc.w    $201
  2803.     dc.w    $201
  2804.     dc.w    $201
  2805.     dc.w    $201
  2806. lbL0043E0
  2807.     dc.l    $2010201
  2808.     dc.l    $3010301
  2809.     dc.l    $3010301
  2810.     dc.l    $3010301
  2811.     dc.l    $3010301
  2812.     dc.l    $3010301
  2813.     dc.l    $3010301
  2814.     dc.l    $3010301
  2815.     dc.l    $3010301
  2816.     dc.l    $4020402
  2817.     dc.l    $4020402
  2818.     dc.l    $4020402
  2819.     dc.l    $4020402
  2820.     dc.l    $5020502
  2821.     dc.l    $5020502
  2822.     dc.l    $5020502
  2823.     dc.l    $5020502
  2824.     dc.l    $6020602
  2825.     dc.l    $6020602
  2826.     dc.l    $6020602
  2827.     dc.l    $6020602
  2828.     dc.l    $7020702
  2829.     dc.l    $7020702
  2830.     dc.l    $7020702
  2831.     dc.l    $7020702
  2832.     dc.l    $8020802
  2833.     dc.l    $8020802
  2834.     dc.l    $8020802
  2835.     dc.l    $8020802
  2836.     dc.l    $9020902
  2837.     dc.l    $9020902
  2838.     dc.l    $9020902
  2839.     dc.l    $9020902
  2840.     dc.l    $A020A02
  2841.     dc.l    $A020A02
  2842.     dc.l    $A020A02
  2843.     dc.l    $A020A02
  2844.     dc.l    $B020B02
  2845.     dc.l    $B020B02
  2846.     dc.l    $B020B02
  2847.     dc.l    $B020B02
  2848.     dc.l    $C030C03
  2849.     dc.l    $C030C03
  2850.     dc.l    $D030D03
  2851.     dc.l    $D030D03
  2852.     dc.l    $E030E03
  2853.     dc.l    $E030E03
  2854.     dc.l    $F030F03
  2855.     dc.l    $F030F03
  2856.     dc.l    $10031003
  2857.     dc.l    $10031003
  2858.     dc.l    $11031103
  2859.     dc.l    $11031103
  2860.     dc.l    $12031203
  2861.     dc.l    $12031203
  2862.     dc.l    $13031303
  2863.     dc.l    $13031303
  2864.     dc.l    $14031403
  2865.     dc.l    $14031403
  2866.     dc.l    $15031503
  2867.     dc.l    $15031503
  2868.     dc.l    $16031603
  2869.     dc.l    $16031603
  2870.     dc.l    $17031703
  2871.     dc.l    $17031703
  2872.     dc.l    $18041804
  2873.     dc.l    $19041904
  2874.     dc.l    $1A041A04
  2875.     dc.l    $1B041B04
  2876.     dc.l    $1C041C04
  2877.     dc.l    $1D041D04
  2878.     dc.l    $1E041E04
  2879.     dc.l    $1F041F04
  2880.     dc.l    $20042004
  2881.     dc.l    $21042104
  2882.     dc.l    $22042204
  2883.     dc.l    $23042304
  2884.     dc.l    $24042404
  2885.     dc.l    $25042504
  2886.     dc.l    $26042604
  2887.     dc.l    $27042704
  2888.     dc.l    $28042804
  2889.     dc.l    $29042904
  2890.     dc.l    $2A042A04
  2891.     dc.l    $2B042B04
  2892.     dc.l    $2C042C04
  2893.     dc.l    $2D042D04
  2894.     dc.l    $2E042E04
  2895.     dc.l    $2F042F04
  2896.     dc.l    $30053105
  2897.     dc.l    $32053305
  2898.     dc.l    $34053505
  2899.     dc.l    $36053705
  2900.     dc.l    $38053905
  2901.     dc.l    $3A053B05
  2902.     dc.l    $3C053D05
  2903.     dc.l    $3E053F05
  2904. how_can_someone_do_such_shit:
  2905.     dc.l    $3EC
  2906.     dc.l    $1D
  2907.     dc.l    0
  2908.     dc.l    8
  2909.     dc.l    14
  2910.     dc.l    $1E
  2911.     dc.l    $2E
  2912.     dc.l    $34
  2913.     dc.l    $3E
  2914.     dc.l    $BA
  2915.     dc.l    $CC
  2916.     dc.l    $E2
  2917.     dc.l    $F8
  2918.     dc.l    $112
  2919.     dc.l    $11C
  2920.     dc.l    $136
  2921.     dc.l    $140
  2922.     dc.l    $14A
  2923.     dc.l    $15E
  2924.     dc.l    $168
  2925.     dc.l    $1B2
  2926.     dc.l    $1BC
  2927.     dc.l    $1C6
  2928.     dc.l    $1D4
  2929.     dc.l    $1EE
  2930.     dc.l    $204
  2931.     dc.l    $21E
  2932.     dc.l    $22C
  2933.     dc.l    $23A
  2934.     dc.l    $244
  2935.     dc.l    $262
  2936.     dc.l    $268
  2937.     dc.l    1
  2938.     dc.l    1
  2939.     dc.l    2
  2940.     dc.l    1
  2941.     dc.l    2
  2942.     dc.l    $44
  2943.     dc.l    0
  2944.     dc.l    $3F2
  2945.     dc.l    $3EB
  2946.     dc.l    $465
  2947.     dc.l    $3F2
  2948.     dc.l    $3EA
  2949.     dc.l    1
  2950. end_of_sfx
  2951. sfx_len= end_of_sfx-sfx_hunk
  2952.