home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / LHASOURCE.LHA / LhA.S < prev   
Encoding:
Text File  |  1992-12-03  |  225.2 KB  |  14,987 lines
  1.  
  2. ThisTask=$114
  3. pr_CLI=$AC
  4. pr_WindowPtr=$B8
  5. Open=-$1E
  6. WaitPort=-$180
  7. Read=-$2A
  8. GetMsg=-$174
  9. FreeMem=-$D2
  10. CloseLibrary=-$19E
  11. Seek=-$42
  12. CurrentDir=-$7E
  13. UnLock=-$5A
  14. IsInteractive=-$D8
  15. Input=-$36
  16. RawDoFmt=-$20A
  17. PutMsg=-$16E
  18. SetTaskPri=-$12C
  19. Output=-$3C
  20. Write=-$30
  21. FnDeleteFile=-$48
  22. OpenLibrary=-$228
  23. Rename=-$4E
  24. AllocMem=-$C6
  25. pr_CurrentDir=$98
  26. IoErr=-$84
  27. Close=-$24
  28. FindTask=-$126
  29. Lock=-$54
  30. ParentDir=-$D2
  31. SelectInput=-$126
  32. CopyMem=-$270
  33. SetSignal=-$132
  34.  
  35.     SECTION    LhA,CODE
  36.  
  37. ProgStart:
  38.     movea.l    a0,a2
  39.     move.l    d0,d2
  40.     clr.b    0(a2,d2.w)
  41.     bra.l    c002C
  42.  
  43.     dc.b    '== LhA unregistered eval copy =='
  44.  
  45. c002C:    lea    lAFF0,a4
  46.     movea.l    4,a6
  47.     move.l    d2,-(sp)
  48.     movem.l    a0-a2,-(sp)
  49.     movea.l    ThisTask(a6),a3
  50.     move.l    pr_CLI(a3),d1
  51.     beq.l    c01B2
  52.     lsl.l    #2,d1
  53.     movea.l    d1,a0
  54.     move.l    $34(a0),d1
  55.     lsl.l    #2,d1
  56.     moveq    #0,d2
  57.     move.l    #$AE8,d0
  58.     cmp.l    0(a4),d1
  59.     bcc.s    c0068
  60.     move.l    0(a4),d1
  61.     add.l    d1,d0
  62.     moveq    #1,d2
  63. c0068:    movea.l    d1,a3
  64.     move.l    #$10001,d1
  65.     jsr    AllocMem(a6)
  66.     tst.l    d0
  67.     bne.s    EnoughMem
  68.     movem.l    (sp)+,a0-a2
  69.     move.l    (sp)+,d2
  70.     rts
  71.  
  72. EnoughMem:    movea.l    d0,a0
  73.     movea.l    d0,a2
  74.     movea.l    d0,a1
  75.     move.l    #$103,d0
  76.     suba.l    #0,a4
  77. c0092:    move.l    (a4)+,(a0)+
  78.     subq.l    #1,d0
  79.     bne.s    c0092
  80.     move.l    (a4)+,d0
  81. c009A:    beq.s    c00AA
  82.     movea.l    a1,a0
  83.     adda.l    (a4)+,a0
  84.     adda.l    (a0),a2
  85.     move.l    a2,(a0)
  86.     movea.l    a1,a2
  87.     subq.l    #1,d0
  88.     bra.s    c009A
  89.  
  90. c00AA:    movea.l    a1,a4
  91.     adda.l    #0,a4
  92.     move.l    #$AE8,$40C(a4)
  93.     movem.l    (sp)+,a0-a2
  94.     move.l    a6,$418(a4)
  95.     tst.b    d2
  96.     movem.l    (sp)+,d2
  97.     movem.l    a7,$41C(a4)
  98.     beq.s    c00F6
  99.     move.l    a4,d0
  100.     subi.l    #0,d0
  101.     addi.l    #$AE8,d0
  102.     add.l    0(a4),d0
  103.     subi.l    #$80,d0
  104.     movea.l    d0,sp
  105.     move.l    0(a4),d0
  106.     move.l    d0,4(sp)
  107.     add.l    d0,$40C(a4)
  108. c00F6:    moveq    #0,d0
  109.     move.l    #$3000,d1
  110.     jsr    SetSignal(a6)
  111.     lea    doslibrary.MSG(pc),a1
  112.     moveq    #0,d0
  113.     jsr    OpenLibrary(a6)
  114.     move.l    d0,$420(a4)
  115.     lea    arplibrary.MSG(pc),a1
  116.     moveq    #$21,d0
  117.     jsr    OpenLibrary(a6)
  118.     move.l    d0,$424(a4)
  119.     beq.s    c0146
  120.     movea.l    ThisTask(a6),a3
  121.     move.l    pr_CurrentDir(a3),$428(a4)
  122.     movea.l    a3,a1
  123.     moveq    #0,d0
  124.     jsr    SetTaskPri(a6)
  125.     move.l    d0,$42C(a4)
  126.     movea.l    a3,a1
  127.     jsr    SetTaskPri(a6)
  128.     movea.l    a2,a0
  129.     jsr    c05D4(pc)
  130.     moveq    #0,d0
  131.     bra.s    c0168
  132.  
  133. c0146:    lea    Requires.MSG(pc),a0
  134.     move.l    a0,d2
  135.     move.l    #$17,d3
  136.     movea.l    $420(a4),a6
  137.     jsr    Output(a6)
  138.     move.l    d0,d1
  139.     jsr    Write(a6)
  140.     moveq    #$14,d0
  141.     bra.s    c016E
  142.  
  143.     move.l    4(sp),d0
  144. c0168:    move.l    d0,-(sp)
  145.     jsr    c0D2C(pc)
  146. c016E:    movea.l    4,a6
  147.     movea.l    ThisTask(a6),a3
  148.     movea.l    a3,a1
  149.     move.l    $42C(a4),d0
  150.     jsr    SetTaskPri(a6)
  151.     movea.l    $424(a4),a1
  152.     move.l    a1,d0
  153.     beq.s    c018C
  154.     jsr    CloseLibrary(a6)
  155. c018C:    movea.l    $420(a4),a1
  156.     jsr    CloseLibrary(a6)
  157.     move.l    $40C(a4),d0
  158.     movea.l    a4,a1
  159.     suba.l    #0,a1
  160.     movea.l    4,a6
  161.     movea.l    $41C(a4),a5
  162.     jsr    FreeMem(a6)
  163.     move.l    (sp)+,d0
  164.     movea.l    a5,sp
  165.     rts
  166.  
  167. c01B2:    moveq    #0,d0
  168.     rts
  169.  
  170. doslibrary.MSG:    dc.b    'dos.library',0
  171. Requires.MSG:    dc.b    'Requires '
  172. arplibrary.MSG:    dc.b    'arp.library',0,$A,$A,0
  173.     dc.b    '$VER: LhA Evaluation V1.10 (14-Jan-91)',0,0
  174.     dcb.b    $2,0
  175.  
  176. c0204:    moveq    #2,d0
  177.     move.l    d0,$848(a4)
  178.     jsr    c23E2(pc)
  179.     move.l    12(a4),-(sp)
  180.     move.l    8(a4),-(sp)
  181.     move.l    4(a4),-(sp)
  182.     pea    LhAVld02ldCop.MSG(pc)
  183.     jsr    c22C6(pc)
  184.     move.l    $1DC(a4),d0
  185.     movea.l    $1D8(a4),a0
  186.     jsr    c24DA(pc)
  187.     jsr    c23EE(pc)
  188.     moveq    #$14,d0
  189.     jsr    c21BC(pc)
  190.     lea    $10(sp),sp
  191.     rts
  192.  
  193. LhAVld02ldCop.MSG:    dc.b    'LhA V%ld.%02ld - Copyright '
  194.     dc.b    $A9
  195.     dc.b    ' 1991,92 Stefan Boberg. Not for commercial u'
  196.     dc.b    'se.',$A,$A,0
  197. sarchivesK.MSG:    dc.b    13
  198.     dc.b    '%s archive ''%s'':'
  199.     dc.b    $1B
  200.     dc.b    '[K',$A,0
  201. ErrorUnableto.MSG:    dc.b    ' Error: Unable to find work directory!',$A,0
  202. T.MSG:    dc.b    'T:',0,0
  203. w02CE:    dc.w    0
  204. Add.MSG:    dc.b    'Add',0
  205. to.MSG:    dc.b    'to',0,0
  206. Convert.MSG:    dc.b    'Convert',0
  207. in.MSG:    dc.b    'in',0,0
  208. Delete.MSG:    dc.b    'Delete',0,0
  209. from.MSG:    dc.b    'from',0,0
  210. Extract.MSG:    dc.b    'Extract',0
  211. Freshen.MSG:    dc.b    'Freshen',0
  212. List.MSG:    dc.b    'List',0,0
  213. Move.MSG:    dc.b    'Move',0,0
  214. Rename.MSG:    dc.b    'Rename',0,0
  215. Order.MSG:    dc.b    'Order',0
  216. Print.MSG:    dc.b    'Print',0
  217. Repair.MSG:    dc.b    'Repair',0,0
  218. Test.MSG:    dc.b    'Test',0,0
  219. Update.MSG:    dc.b    'Update',0,0
  220. LZHLHA.MSG:    dc.b    '.(LZH|LHA)',0,0
  221. LZH.MSG:    dc.b    '.LZH',0,0
  222. LHA.MSG:    dc.b    '.LHA',0,0
  223. Unabletoopena.MSG:    dc.b    ' Unable to open archive!',$A,$A,0
  224.     dc.b    0
  225. LhANoarchives.MSG:    dc.b    '*** LhA: No archives match pattern!',$A,$A,0
  226. LhACouldnotcr.MSG:    dc.b    '** LhA: Could not create archive `%s''.',$A,0
  227. sfiless.MSG:    dc.b    '%s files %s',0
  228. LhANofilesmat.MSG:    dc.b    '*** LhA: No files match action pattern(s)!',$A,$A,0
  229.     dc.b    0
  230. Creatingnew.MSG:    dc.b    'Creating new',0,0
  231. Addingfilesto.MSG:    dc.b    'Adding files to',0
  232. Updating.MSG:    dc.b    'Updating',0,0
  233. Movingfilesto.MSG:    dc.b    'Moving files to',0
  234. Freshening.MSG:    dc.b    'Freshening',0,0
  235. Deletingfiles.MSG:    dc.b    'Deleting files in',0
  236. deleted.MSG:    dc.b    'deleted',0
  237. Testingintegr.MSG:    dc.b    'Testing integrity of',0,0
  238. Extractingfro.MSG:    dc.b    'Extracting from',0
  239. printed.MSG:    dc.b    'printed',0
  240. Testing.MSG:    dc.b    'Testing',0
  241. tested.MSG:    dc.b    'tested',0,0
  242. Extracting.MSG:    dc.b    'Extracting',0,0
  243. extracted.MSG:    dc.b    'extracted',0
  244. Listingof.MSG:    dc.b    'Listing of',0,0
  245. LhAUnknownoru.MSG:    dc.b    'LhA: Unknown or unimplemented command ''%c'''
  246.     dc.b    '.',$A,0
  247.     dc.b    0
  248. Operationsucc.MSG:    dc.b    'Operation successful.',$A,0
  249.     dc.b    0
  250. Operationfail.MSG:    dc.b    'Operation failed.',$A,0
  251.     dc.b    0
  252. Operationnote.MSG:    dc.b    'Operation not entirely successful.',$A,0
  253. ESCseq:    dc.l    $D1B5B4B
  254.     dc.l    $1B5B3120
  255.     dc.l    $701B5B30
  256.     dc.w    $6D00
  257.  
  258. c053E:    movem.l    a2/a3,-(sp)
  259.     movea.l    a0,a3
  260.     movea.l    a1,a2
  261.     move.l    a2,-(sp)
  262.     move.l    a3,-(sp)
  263.     pea    sarchivesK.MSG(pc)
  264.     jsr    c2328(pc)
  265.     lea    12(sp),sp
  266.     movem.l    (sp)+,a2/a3
  267.     rts
  268.  
  269. c055C:    movem.l    d7/a3/a6,-(sp)
  270.     move.l    $820(a4),d0
  271.     beq.s    c0590
  272.     movea.l    d0,a0
  273.     tst.b    (a0)
  274.     beq.s    c0590
  275.     moveq    #-2,d0
  276.     jsr    c12FC(pc)
  277.     move.l    d0,d7
  278.     tst.l    d7
  279.     bne.s    c0588
  280.     pea    ErrorUnableto.MSG(pc)
  281.     jsr    c2328(pc)
  282.     moveq    #$14,d0
  283.     jsr    c21BC(pc)
  284.     addq.w    #4,sp
  285. c0588:    move.l    d7,d0
  286.     jsr    c137C(pc)
  287.     bra.s    c05CE
  288.  
  289. c0590:    suba.l    a1,a1
  290.     movea.l    4,a6
  291.     jsr    FindTask(a6)
  292.     movea.l    d0,a3
  293.     move.l    pr_WindowPtr(a3),d7
  294.     moveq    #-1,d0
  295.     move.l    d0,pr_WindowPtr(a3)
  296.     moveq    #-2,d0
  297.     lea    T.MSG(pc),a0
  298.     jsr    c12FC(pc)
  299.     tst.l    d0
  300.     beq.s    c05C2
  301.     jsr    c137C(pc)
  302.     lea    T.MSG(pc),a0
  303.     move.l    a0,$820(a4)
  304.     bra.s    c05CA
  305.  
  306. c05C2:    lea    w02CE(pc),a0
  307.     move.l    a0,$820(a4)
  308. c05CA:    move.l    d7,pr_WindowPtr(a3)
  309. c05CE:    movem.l    (sp)+,d7/a3/a6
  310.     rts
  311.  
  312. c05D4:    link.w    a5,#-$24
  313.     movem.l    d2-d7/a2/a3/a6,-(sp)
  314.     movea.l    a0,a3
  315.     moveq    #0,d7
  316.     moveq    #0,d6
  317.     moveq    #0,d5
  318.     jsr    c0D6C(pc)
  319.     lea    $430(a4),a0
  320.     jsr    c21AE(pc)
  321.     lea    $450(a4),a0
  322.     jsr    c21AE(pc)
  323.     lea    $470(a4),a0
  324.     jsr    c21AE(pc)
  325.     lea    $480(a4),a0
  326.     jsr    c21AE(pc)
  327.     clr.b    $710(a4)
  328.     moveq    #-2,d0
  329.     move.l    d0,$816(a4)
  330.     suba.l    a0,a0
  331.     move.l    a0,$47C(a4)
  332.     move.l    a0,d0
  333.     movea.l    a3,a0
  334.     lea    $470(a4),a1
  335.     jsr    c4346(pc)
  336.     move.l    $816(a4),d0
  337.     tst.l    d0
  338.     bpl.s    c0630
  339.     bsr.l    c0204
  340. c0630:    jsr    c1016(pc)
  341.     bsr.l    c055C
  342.     tst.l    $864(a4)
  343.     bne.s    c065A
  344.     move.l    12(a4),-(sp)
  345.     move.l    8(a4),-(sp)
  346.     move.l    4(a4),-(sp)
  347.     pea    LhAVld02ldCop.MSG(pc)
  348.     jsr    c2328(pc)
  349.     jsr    c23E2(pc)
  350.     lea    $10(sp),sp
  351. c065A:    lea    w02CE(pc),a0
  352.     move.l    a0,$488(a4)
  353.     lea    $690(a4),a0
  354.     move.l    a0,$48C(a4)
  355.     tst.l    $880(a4)
  356.     beq.s    c0674
  357.     jsr    c2494(pc)
  358. c0674:    move.b    $810(a4),d0
  359.     move.b    $811(a4),d1
  360.     lea    $14(a4),a3
  361.     move.b    d0,$25(sp)
  362.     move.b    d1,$24(sp)
  363.     bra.s    c06A4
  364.  
  365. c068A:    move.b    $25(sp),d0
  366.     move.b    (a3),d1
  367.     cmp.b    d0,d1
  368.     bne.s    c06A0
  369.     movea.l    2(a3),a2
  370.     move.l    6(a3),-$18(a5)
  371.     bra.s    c06AA
  372.  
  373. c06A0:    adda.w    #10,a3
  374. c06A4:    tst.l    2(a3)
  375.     bne.s    c068A
  376. c06AA:    moveq    #0,d0
  377.     move.b    $25(sp),d0
  378.     subi.w    #$61,d0
  379.     blt.l    c0900
  380.     cmpi.w    #$18,d0
  381.     bge.l    c0900
  382.     add.w    d0,d0
  383.     move.w    w06CA(pc,d0.w),d0
  384.     jmp    l06CC(pc,d0.w)
  385.  
  386. w06CA:    dc.w    $128
  387. l06CC:    dc.l    $234002E
  388.     dc.l    $2E002E
  389.     dc.l    $2E0234
  390.     dcb.l    $2,$2340234
  391.     dc.l    $2E0128
  392.     dc.l    $234002E
  393.     dc.l    $2E0234
  394.     dc.l    $2E002E
  395.     dc.l    $2E0128
  396.     dc.l    $2E0234
  397.     dc.w    $2E
  398.  
  399.     tst.l    $870(a4)
  400.     bne.l    c07B8
  401.     lea    $690(a4),a0
  402.     movea.l    a0,a1
  403. c0708:    tst.b    (a1)+
  404.     bne.s    c0708
  405.     subq.l    #1,a1
  406.     suba.l    a0,a1
  407.     move.l    a1,d0
  408.     move.l    d0,d4
  409.     subq.l    #1,d4
  410.     bra.s    c0728
  411.  
  412. c0718:    move.b    (a3),d0
  413.     moveq    #$2F,d1
  414.     cmp.b    d1,d0
  415.     beq.s    c0734
  416.     moveq    #$2E,d1
  417.     cmp.b    d1,d0
  418.     beq.s    c0734
  419.     subq.l    #1,d4
  420. c0728:    lea    $690(a4),a0
  421.     adda.l    d4,a0
  422.     movea.l    a0,a3
  423.     tst.l    d4
  424.     bne.s    c0718
  425. c0734:    moveq    #$2F,d0
  426.     cmp.b    (a3),d0
  427.     beq.s    c073E
  428.     tst.l    d4
  429.     bne.s    c07B8
  430. c073E:    lea    $690(a4),a0
  431.     jsr    c3424(pc)
  432.     tst.l    d0
  433.     beq.s    c0758
  434.     lea    $690(a4),a0
  435.     lea    LZHLHA.MSG(pc),a1
  436.     jsr    c0D90(pc)
  437.     bra.s    c07B8
  438.  
  439. c0758:    lea    $690(a4),a0
  440.     movea.l    a0,a1
  441. c075E:    tst.b    (a1)+
  442.     bne.s    c075E
  443.     subq.l    #1,a1
  444.     suba.l    a0,a1
  445.     move.l    a1,d0
  446.     adda.l    d0,a0
  447.     move.l    a0,$26(sp)
  448.     lea    LZH.MSG(pc),a1
  449.     movea.l    a0,a6
  450. c0774:    move.b    (a1)+,(a6)+
  451.     bne.s    c0774
  452.     lea    $690(a4),a0
  453.     jsr    c2104(pc)
  454.     move.l    d0,$2A(sp)
  455.     lea    LHA.MSG(pc),a0
  456.     movea.l    $26(sp),a1
  457. c078C:    move.b    (a0)+,(a1)+
  458.     bne.s    c078C
  459.     moveq    #$10,d0
  460.     moveq    #1,d1
  461.     jsr    c29BA(pc)
  462.     lea    w02CE(pc),a0
  463.     movea.l    d0,a1
  464.     move.l    a0,8(a1)
  465.     move.l    $2A(sp),12(a1)
  466.     movea.l    d0,a0
  467.     lea    $480(a4),a1
  468.     jsr    c2130(pc)
  469.     moveq    #1,d0
  470.     move.l    d0,$10(a4)
  471. c07B8:    move.l    $82C(a4),d0
  472.     lea    $480(a4),a0
  473.     lea    $430(a4),a1
  474.     jsr    c3636(pc)
  475.     clr.l    $10(a4)
  476.     lea    $430(a4),a0
  477.     movea.l    $434(a4),a1
  478.     cmpa.l    a0,a1
  479.     bne.s    c07E8
  480.     pea    Unabletoopena.MSG(pc)
  481.     jsr    c2328(pc)
  482.     addq.w    #4,sp
  483.     moveq    #2,d6
  484.     bra.l    c0CE8
  485.  
  486. c07E8:    lea    $470(a4),a0
  487.     jsr    c3448(pc)
  488.     bra.l    c0900
  489.  
  490.     tst.l    $870(a4)
  491.     bne.s    c0856
  492.     lea    $690(a4),a0
  493.     movea.l    a0,a1
  494. c0800:    tst.b    (a1)+
  495.     bne.s    c0800
  496.     subq.l    #1,a1
  497.     suba.l    a0,a1
  498.     move.l    a1,d0
  499.     move.l    d0,d4
  500.     subq.l    #1,d4
  501.     bra.s    c0820
  502.  
  503. c0810:    move.b    (a3),d0
  504.     moveq    #$2F,d1
  505.     cmp.b    d1,d0
  506.     beq.s    c082C
  507.     moveq    #$2E,d1
  508.     cmp.b    d1,d0
  509.     beq.s    c082C
  510.     subq.l    #1,d4
  511. c0820:    lea    $690(a4),a0
  512.     adda.l    d4,a0
  513.     movea.l    a0,a3
  514.     tst.l    d4
  515.     bne.s    c0810
  516. c082C:    moveq    #$2F,d0
  517.     cmp.b    (a3),d0
  518.     beq.s    c0836
  519.     tst.l    d4
  520.     bne.s    c0856
  521. c0836:    tst.l    $874(a4)
  522.     beq.s    c084A
  523.     lea    $690(a4),a0
  524.     lea    LZH.MSG(pc),a1
  525.     jsr    c0D90(pc)
  526.     bra.s    c0856
  527.  
  528. c084A:    lea    $690(a4),a0
  529.     lea    LHA.MSG(pc),a1
  530.     jsr    c0D90(pc)
  531. c0856:    lea    $690(a4),a0
  532.     jsr    c3424(pc)
  533.     tst.l    d0
  534.     beq.s    c0892
  535.     move.l    $82C(a4),d0
  536.     lea    $480(a4),a0
  537.     lea    $430(a4),a1
  538.     jsr    c3636(pc)
  539.     lea    $430(a4),a0
  540.     movea.l    $430(a4),a1
  541.     cmpa.l    a0,a1
  542.     bne.l    c0900
  543.     pea    LhANoarchives.MSG(pc)
  544.     jsr    c2328(pc)
  545.     moveq    #$14,d0
  546.     jsr    c21BC(pc)
  547.     addq.w    #4,sp
  548.     bra.s    c0900
  549.  
  550. c0892:    moveq    #-2,d0
  551.     lea    $690(a4),a0
  552.     jsr    c12FC(pc)
  553.     move.l    d0,d4
  554.     tst.l    d4
  555.     beq.s    c08AA
  556.     move.l    d4,d0
  557.     jsr    c137C(pc)
  558.     bra.s    c08F0
  559.  
  560. c08AA:    move.l    #$3EE,d0
  561.     lea    $690(a4),a0
  562.     jsr    c1276(pc)
  563.     move.l    d0,d5
  564.     tst.l    d5
  565.     bne.s    c08D2
  566.     pea    $690(a4)
  567.     pea    LhACouldnotcr.MSG(pc)
  568.     jsr    c2328(pc)
  569.     moveq    #$14,d0
  570.     jsr    c21BC(pc)
  571.     addq.w    #8,sp
  572. c08D2:    clr.b    $490(a4)
  573.     move.l    d5,d1
  574.     lea    $490(a4),a0
  575.     move.l    a0,d2
  576.     moveq    #1,d3
  577.     movea.l    $420(a4),a6
  578.     jsr    -$30(a6)
  579.     move.l    d5,d0
  580.     jsr    c12BC(pc)
  581.     moveq    #1,d5
  582. c08F0:    move.l    $82C(a4),d0
  583.     lea    $480(a4),a0
  584.     lea    $430(a4),a1
  585.     jsr    c3636(pc)
  586. c0900:    move.l    -$18(a5),-(sp)
  587.     move.l    a2,-(sp)
  588.     pea    sfiless.MSG(pc)
  589.     pea    $490(a4)
  590.     jsr    c2374(pc)
  591.     lea    $430(a4),a0
  592.     lea    $490(a4),a1
  593.     jsr    c5204(pc)
  594.     lea    $10(sp),sp
  595.     moveq    #0,d0
  596.     move.b    $25(sp),d0
  597.     subi.w    #$61,d0
  598.     beq.s    c096A
  599.     subq.w    #3,d0
  600.     beq.l    c0A9A
  601.     subq.w    #1,d0
  602.     beq.l    c0B20
  603.     subq.w    #1,d0
  604.     beq.l    c0A52
  605.     subq.w    #6,d0
  606.     beq.l    c0C36
  607.     subq.w    #1,d0
  608.     beq.s    c096A
  609.     subq.w    #3,d0
  610.     beq.l    c0B20
  611.     subq.w    #4,d0
  612.     beq.l    c0B20
  613.     subq.w    #1,d0
  614.     beq.s    c096A
  615.     subq.w    #1,d0
  616.     beq.l    c0C36
  617.     subq.w    #2,d0
  618.     beq.l    c0B1A
  619.     bra.l    c0CCC
  620.  
  621. c096A:    movea.l    $430(a4),a3
  622.     move.l    $828(a4),d0
  623.     lea    $470(a4),a0
  624.     lea    $450(a4),a1
  625.     jsr    c3636(pc)
  626.     lea    $450(a4),a0
  627.     movea.l    $450(a4),a1
  628.     cmpa.l    a0,a1
  629.     bne.l    c0A2C
  630.     pea    LhANofilesmat.MSG(pc)
  631.     jsr    c2328(pc)
  632.     moveq    #$14,d0
  633.     jsr    c21BC(pc)
  634.     addq.w    #4,sp
  635.     bra.l    c0A2C
  636.  
  637. c09A0:    tst.l    d5
  638.     beq.s    c09AA
  639.     lea    Creatingnew.MSG(pc),a0
  640.     bra.s    c09CA
  641.  
  642. c09AA:    move.b    $25(sp),d0
  643.     moveq    #$61,d1
  644.     cmp.b    d1,d0
  645.     bne.s    c09BA
  646.     lea    Addingfilesto.MSG(pc),a0
  647.     bra.s    c09CA
  648.  
  649. c09BA:    moveq    #$75,d1
  650.     cmp.b    d1,d0
  651.     bne.s    c09C6
  652.     lea    Updating.MSG(pc),a0
  653.     bra.s    c09CA
  654.  
  655. c09C6:    lea    Movingfilesto.MSG(pc),a0
  656. c09CA:    movea.l    $10(a3),a1
  657.     bsr.l    c053E
  658.     moveq    #0,d0
  659.     move.b    $25(sp),d0
  660.     subi.w    #$61,d0
  661.     beq.s    c09EA
  662.     subi.w    #12,d0
  663.     beq.s    c0A0A
  664.     subq.w    #8,d0
  665.     beq.s    c09FA
  666.     bra.s    c0A18
  667.  
  668. c09EA:    movea.l    $10(a3),a0
  669.     lea    $450(a4),a1
  670.     jsr    c4862(pc)
  671.     move.l    d0,d7
  672.     bra.s    c0A18
  673.  
  674. c09FA:    movea.l    $10(a3),a0
  675.     lea    $450(a4),a1
  676.     jsr    c49FA(pc)
  677.     move.l    d0,d7
  678.     bra.s    c0A18
  679.  
  680. c0A0A:    movea.l    $10(a3),a0
  681.     lea    $450(a4),a1
  682.     jsr    c48B0(pc)
  683.     move.l    d0,d7
  684. c0A18:    tst.l    d7
  685.     bne.s    c0A24
  686.     movea.l    $10(a3),a0
  687.     jsr    c5354(pc)
  688. c0A24:    cmp.l    d6,d7
  689.     ble.s    c0A2A
  690.     move.l    d7,d6
  691. c0A2A:    movea.l    (a3),a3
  692. c0A2C:    lea    $430(a4),a0
  693.     cmpa.l    a0,a3
  694.     beq.s    c0A3C
  695.     moveq    #2,d0
  696.     cmp.l    d0,d7
  697.     blt.l    c09A0
  698. c0A3C:    move.l    $824(a4),d0
  699.     beq.l    c0CE8
  700.     movea.l    d0,a0
  701.     lea    $450(a4),a1
  702.     jsr    c5372(pc)
  703.     bra.l    c0CE8
  704.  
  705. c0A52:    movea.l    $430(a4),a3
  706.     bra.s    c0A86
  707.  
  708. c0A58:    lea    Freshening.MSG(pc),a0
  709.     movea.l    $10(a3),a1
  710.     bsr.l    c053E
  711.     movea.l    $10(a3),a0
  712.     lea    $470(a4),a1
  713.     jsr    c4C64(pc)
  714.     move.l    d0,d7
  715.     tst.l    d7
  716.     bne.s    c0A7E
  717.     movea.l    $10(a3),a0
  718.     jsr    c5354(pc)
  719. c0A7E:    cmp.l    d6,d7
  720.     ble.s    c0A84
  721.     move.l    d7,d6
  722. c0A84:    movea.l    (a3),a3
  723. c0A86:    lea    $430(a4),a0
  724.     cmpa.l    a0,a3
  725.     beq.l    c0CE8
  726.     moveq    #2,d0
  727.     cmp.l    d0,d7
  728.     blt.s    c0A58
  729.     bra.l    c0CE8
  730.  
  731. c0A9A:    movea.l    $430(a4),a3
  732.     bra.s    c0B06
  733.  
  734. c0AA0:    lea    Deletingfiles.MSG(pc),a0
  735.     movea.l    $10(a3),a1
  736.     bsr.l    c053E
  737.     moveq    #0,d0
  738.     move.l    d0,-(sp)
  739.     move.l    d0,-(sp)
  740.     move.l    d0,-(sp)
  741.     pea    c0D96(pc)
  742.     pea    c0D8A(pc)
  743.     pea    c0D7E(pc)
  744.     pea    Delete.MSG(pc)
  745.     pea    deleted.MSG(pc)
  746.     move.l    d0,-(sp)
  747.     move.l    d0,-(sp)
  748.     move.l    #$101E8,d0
  749.     movea.l    $10(a3),a0
  750.     lea    $470(a4),a1
  751.     jsr    c4D50(pc)
  752.     lea    $28(sp),sp
  753.     move.l    d0,d7
  754.     tst.l    d7
  755.     bne.s    c0AF2
  756.     movea.l    $10(a3),a0
  757.     jsr    c0D5A(pc)
  758.     move.l    d0,d7
  759. c0AF2:    tst.l    d7
  760.     bne.s    c0AFE
  761.     movea.l    $10(a3),a0
  762.     jsr    c5354(pc)
  763. c0AFE:    cmp.l    d6,d7
  764.     ble.s    c0B04
  765.     move.l    d7,d6
  766. c0B04:    movea.l    (a3),a3
  767. c0B06:    lea    $430(a4),a0
  768.     cmpa.l    a0,a3
  769.     beq.l    c0CE8
  770.     moveq    #2,d0
  771.     cmp.l    d0,d7
  772.     blt.s    c0AA0
  773.     bra.l    c0CE8
  774.  
  775. c0B1A:    moveq    #1,d0
  776.     move.l    d0,$D4(a4)
  777. c0B20:    move.b    $25(sp),d0
  778.     moveq    #$70,d1
  779.     cmp.b    d1,d0
  780.     bne.s    c0B2E
  781.     moveq    #4,d1
  782.     bra.s    c0B3C
  783.  
  784. c0B2E:    moveq    #$74,d1
  785.     cmp.b    d1,d0
  786.     bne.s    c0B38
  787.     moveq    #2,d0
  788.     bra.s    c0B3A
  789.  
  790. c0B38:    moveq    #1,d0
  791. c0B3A:    move.l    d0,d1
  792. c0B3C:    move.l    d1,d0
  793.     jsr    c0D60(pc)
  794.     movea.l    d0,a3
  795.     move.l    a3,d0
  796.     bne.s    c0B4A
  797.     moveq    #2,d7
  798. c0B4A:    movea.l    $430(a4),a2
  799.     bra.l    c0C1C
  800.  
  801. c0B52:    move.b    $25(sp),d0
  802.     moveq    #$74,d1
  803.     cmp.b    d1,d0
  804.     bne.s    c0B62
  805.     lea    Testingintegr.MSG(pc),a0
  806.     bra.s    c0B66
  807.  
  808. c0B62:    lea    Extractingfro.MSG(pc),a0
  809. c0B66:    movea.l    $10(a2),a1
  810.     bsr.l    c053E
  811.     move.b    $25(sp),d0
  812.     moveq    #$70,d1
  813.     cmp.b    d1,d0
  814.     bne.s    c0BAA
  815.     move.l    a3,-(sp)
  816.     moveq    #0,d0
  817.     move.l    d0,-(sp)
  818.     move.l    d0,-(sp)
  819.     move.l    d0,-(sp)
  820.     pea    c0D9C(pc)
  821.     move.l    d0,-(sp)
  822.     pea    Print.MSG(pc)
  823.     pea    printed.MSG(pc)
  824.     move.l    d0,-(sp)
  825.     move.l    d0,-(sp)
  826.     moveq    #4,d0
  827.     movea.l    $10(a2),a0
  828.     lea    $470(a4),a1
  829.     jsr    c4D50(pc)
  830.     lea    $28(sp),sp
  831.     move.l    d0,d7
  832.     bra.s    c0C14
  833.  
  834. c0BAA:    moveq    #$74,d1
  835.     cmp.b    d1,d0
  836.     bne.s    c0BE0
  837.     move.l    a3,-(sp)
  838.     moveq    #0,d0
  839.     move.l    d0,-(sp)
  840.     move.l    d0,-(sp)
  841.     move.l    d0,-(sp)
  842.     pea    c0D9C(pc)
  843.     move.l    d0,-(sp)
  844.     move.l    d0,-(sp)
  845.     pea    tested.MSG(pc)
  846.     move.l    d0,-(sp)
  847.     pea    Testing.MSG(pc)
  848.     movea.l    d0,a1
  849.     moveq    #2,d0
  850.     movea.l    $10(a2),a0
  851.     jsr    c4D50(pc)
  852.     lea    $28(sp),sp
  853.     move.l    d0,d7
  854.     bra.s    c0C14
  855.  
  856. c0BE0:    move.l    a3,-(sp)
  857.     pea    $710(a4)
  858.     moveq    #0,d0
  859.     move.l    d0,-(sp)
  860.     move.l    d0,-(sp)
  861.     pea    c0D9C(pc)
  862.     move.l    d0,-(sp)
  863.     pea    Extract.MSG(pc)
  864.     pea    extracted.MSG(pc)
  865.     move.l    d0,-(sp)
  866.     pea    Extracting.MSG(pc)
  867.     moveq    #1,d0
  868.     movea.l    $10(a2),a0
  869.     lea    $470(a4),a1
  870.     jsr    c4D50(pc)
  871.     lea    $28(sp),sp
  872.     move.l    d0,d7
  873. c0C14:    cmp.l    d6,d7
  874.     ble.s    c0C1A
  875.     move.l    d7,d6
  876. c0C1A:    movea.l    (a2),a2
  877. c0C1C:    lea    $430(a4),a0
  878.     cmpa.l    a0,a2
  879.     beq.s    c0C2C
  880.     moveq    #2,d0
  881.     cmp.l    d0,d7
  882.     blt.l    c0B52
  883. c0C2C:    movea.l    a3,a0
  884.     jsr    c0D66(pc)
  885.     bra.l    c0CE8
  886.  
  887. c0C36:    movea.l    $430(a4),a3
  888.     move.l    #$1E8,$C0(a4)
  889.     bra.s    c0CBA
  890.  
  891. c0C44:    move.b    $24(sp),d0
  892.     moveq    #$76,d2
  893.     cmp.b    d2,d0
  894.     seq    d1
  895.     neg.b    d1
  896.     ext.w    d1
  897.     ext.l    d1
  898.     move.b    $25(sp),d0
  899.     cmp.b    d2,d0
  900.     seq    d2
  901.     neg.b    d2
  902.     ext.w    d2
  903.     ext.l    d2
  904.     add.l    d1,d2
  905.     move.l    d2,$26(sp)
  906.     lea    Listingof.MSG(pc),a0
  907.     movea.l    $10(a3),a1
  908.     bsr.l    c053E
  909.     move.l    $26(sp),d0
  910.     jsr    c0D54(pc)
  911.     moveq    #0,d0
  912.     move.l    d0,-(sp)
  913.     move.l    d0,-(sp)
  914.     move.l    d0,-(sp)
  915.     move.l    d0,-(sp)
  916.     pea    c0D84(pc)
  917.     move.l    d0,-(sp)
  918.     move.l    d0,-(sp)
  919.     move.l    d0,-(sp)
  920.     move.l    d0,-(sp)
  921.     move.l    d0,-(sp)
  922.     move.l    $4E(sp),d0
  923.     movea.l    $10(a3),a0
  924.     lea    $470(a4),a1
  925.     jsr    c4D50(pc)
  926.     move.l    d0,d7
  927.     movea.l    $10(a3),a0
  928.     jsr    c0D72(pc)
  929.     lea    $28(sp),sp
  930.     cmp.l    d6,d7
  931.     ble.s    c0CB8
  932.     move.l    d7,d6
  933. c0CB8:    movea.l    (a3),a3
  934. c0CBA:    lea    $430(a4),a0
  935.     cmpa.l    a0,a3
  936.     beq.s    c0CE8
  937.     moveq    #2,d0
  938.     cmp.l    d0,d6
  939.     blt.l    c0C44
  940.     bra.s    c0CE8
  941.  
  942. c0CCC:    moveq    #0,d0
  943.     move.b    $810(a4),d0
  944.     swap    d0
  945.     clr.w    d0
  946.     move.l    d0,-(sp)
  947.     pea    LhAUnknownoru.MSG(pc)
  948.     jsr    c2328(pc)
  949.     moveq    #$14,d0
  950.     jsr    c21BC(pc)
  951.     addq.w    #8,sp
  952. c0CE8:    move.l    d6,d0
  953.     tst.l    d0
  954.     beq.s    c0CF4
  955.     subq.l    #2,d0
  956.     beq.s    c0D04
  957.     bra.s    c0D14
  958.  
  959. c0CF4:    pea    Operationsucc.MSG(pc)
  960.     jsr    c2328(pc)
  961.     moveq    #0,d0
  962.     jsr    c21BC(pc)
  963.     addq.w    #4,sp
  964. c0D04:    pea    Operationfail.MSG(pc)
  965.     jsr    c2328(pc)
  966.     moveq    #$14,d0
  967.     jsr    c21BC(pc)
  968.     addq.w    #4,sp
  969. c0D14:    pea    Operationnote.MSG(pc)
  970.     jsr    c2328(pc)
  971.     moveq    #10,d0
  972.     jsr    c21BC(pc)
  973.     addq.w    #4,sp
  974.     movem.l    (sp)+,d2-d7/a2/a3/a6
  975.     unlk    a5
  976.     rts
  977.  
  978. c0D2C:    movem.l    d2/d3/a6,-(sp)
  979.     jsr    c10FC(pc)
  980.     jsr    c0D78(pc)
  981.     movea.l    $420(a4),a6
  982.     jsr    Output(a6)
  983.     move.l    d0,d1
  984.     lea    ESCseq(pc),a0
  985.     move.l    a0,d2
  986.     moveq    #13,d3
  987.     jsr    Write(a6)
  988.     movem.l    (sp)+,d2/d3/a6
  989.     rts
  990.  
  991. c0D54:    jmp    c9DF4
  992.  
  993. c0D5A:    jmp    cA654
  994.  
  995. c0D60:    jmp    c9712
  996.  
  997. c0D66:    jmp    c9762
  998.  
  999. c0D6C:    jmp    cA6F8
  1000.  
  1001. c0D72:    jmp    cA2A4
  1002.  
  1003. c0D78:    jmp    cA774
  1004.  
  1005. c0D7E:    jmp    cA5EE
  1006.  
  1007. c0D84:    jmp    cA034
  1008.  
  1009. c0D8A:    jmp    cA604
  1010.  
  1011. c0D90:    jmp    cA9D4
  1012.  
  1013. c0D96:    jmp    cA638
  1014.  
  1015. c0D9C:    jmp    c9780
  1016.  
  1017.     moveq    #$61,d0
  1018. c0DA4:    movem.l    d7/a3,-(sp)
  1019.     move.l    d0,d7
  1020.     movea.l    a0,a3
  1021.     moveq    #$30,d0
  1022.     cmp.b    d0,d7
  1023.     bcs.s    c0DB8
  1024.     moveq    #$39,d0
  1025.     cmp.b    d0,d7
  1026.     bls.s    c0DBC
  1027. c0DB8:    moveq    #1,d0
  1028.     bra.s    c0DC6
  1029.  
  1030. c0DBC:    addq.l    #1,(a3)
  1031.     moveq    #0,d0
  1032.     move.b    d7,d0
  1033.     moveq    #$30,d1
  1034.     sub.l    d1,d0
  1035. c0DC6:    movem.l    (sp)+,d7/a3
  1036.     rts
  1037.  
  1038. LhAInvalidopt.MSG:    dc.b    'LhA: Invalid option - %c',$A,0
  1039. LhAInvalidext.MSG:    dc.b    'LhA: Invalid extended option - %c',$A,0
  1040.     dc.b    0
  1041.  
  1042. c0E0A:    link.w    a5,#-$1C
  1043.     movem.l    d6/d7/a2/a3/a6,-(sp)
  1044.     move.l    a0,-$16(a5)
  1045.     moveq    #0,d0
  1046.     move.l    d0,-$10(a5)
  1047.     move.l    d0,d7
  1048.     bra.l    c0FEC
  1049.  
  1050. c0E22:    tst.l    d7
  1051.     bne.l    c0F92
  1052.     lea    $F0(a4),a3
  1053.     bra.s    c0E30
  1054.  
  1055. c0E2E:    addq.l    #6,a3
  1056. c0E30:    move.b    (a3),d0
  1057.     beq.s    c0E38
  1058.     cmp.b    d6,d0
  1059.     bne.s    c0E2E
  1060. c0E38:    tst.b    (a3)
  1061.     beq.s    c0E5C
  1062.     movea.l    2(a3),a0
  1063.     moveq    #0,d0
  1064.     move.b    1(a2),d0
  1065.     move.l    a0,$14(sp)
  1066.     lea    -$10(a5),a0
  1067.     bsr.l    c0DA4
  1068.     movea.l    $14(sp),a0
  1069.     move.l    d0,(a0)
  1070.     bra.l    c0FEC
  1071.  
  1072. c0E5C:    moveq    #0,d0
  1073.     move.b    d6,d0
  1074.     subi.w    #$30,d0
  1075.     beq.l    c0F68
  1076.     subq.w    #1,d0
  1077.     beq.l    c0F68
  1078.     subq.w    #1,d0
  1079.     beq.l    c0F70
  1080.     subi.w    #$1A,d0
  1081.     beq.l    c0F04
  1082.     subq.w    #4,d0
  1083.     beq.l    c0F10
  1084.     subq.w    #1,d0
  1085.     beq.l    c0F34
  1086.     subq.w    #4,d0
  1087.     beq.l    c0F3A
  1088.     subi.w    #13,d0
  1089.     beq.s    c0EA4
  1090.     subq.w    #7,d0
  1091.     beq.s    c0EE0
  1092.     subi.w    #14,d0
  1093.     beq.l    c0F5C
  1094.     bra.l    c0F76
  1095.  
  1096. c0EA4:    lea    1(a2),a0
  1097.     jsr    c10F4(pc)
  1098.     asl.l    #8,d0
  1099.     asl.l    #2,d0
  1100.     move.l    d0,$C0(a4)
  1101.     cmpi.l    #$2000,d0
  1102.     bge.s    c0ECA
  1103.     move.l    #$2000,d1
  1104.     move.l    d1,$C0(a4)
  1105.     bra.l    c100E
  1106.  
  1107. c0ECA:    cmpi.l    #$10000,d0
  1108.     ble.l    c100E
  1109.     move.l    #$10000,$C0(a4)
  1110.     bra.l    c100E
  1111.  
  1112. c0EE0:    moveq    #8,d0
  1113.     jsr    c210A(pc)
  1114.     movea.l    d0,a0
  1115.     move.l    $B4(a4),(a0)
  1116.     movea.l    -$16(a5),a1
  1117.     adda.l    -$10(a5),a1
  1118.     lea    1(a1),a6
  1119.     move.l    a6,4(a0)
  1120.     move.l    d0,$B4(a4)
  1121.     bra.l    c100E
  1122.  
  1123. c0F04:    lea    1(a2),a0
  1124.     move.l    a0,$824(a4)
  1125.     bra.l    c100E
  1126.  
  1127. c0F10:    lea    1(a2),a0
  1128.     jsr    c10F4(pc)
  1129.     move.l    d0,$88C(a4)
  1130.     suba.l    a1,a1
  1131.     movea.l    4,a6
  1132.     jsr    FindTask(a6)
  1133.     movea.l    d0,a1
  1134.     move.l    $88C(a4),d0
  1135.     jsr    SetTaskPri(a6)
  1136.     bra.l    c100E
  1137.  
  1138. c0F34:    moveq    #1,d7
  1139.     bra.l    c0FEC
  1140.  
  1141. c0F3A:    lea    1(a2),a0
  1142.     jsr    c10F4(pc)
  1143.     move.l    d0,$E8(a4)
  1144.     cmpi.l    #$400,d0
  1145.     bge.l    c100E
  1146.     move.l    #$400,$E8(a4)
  1147.     bra.l    c100E
  1148.  
  1149. c0F5C:    lea    1(a2),a0
  1150.     move.l    a0,$820(a4)
  1151.     bra.l    c100E
  1152.  
  1153. c0F68:    moveq    #1,d0
  1154.     move.l    d0,$874(a4)
  1155.     bra.s    c0FEC
  1156.  
  1157. c0F70:    clr.l    $874(a4)
  1158.     bra.s    c0FEC
  1159.  
  1160. c0F76:    moveq    #0,d0
  1161.     move.b    (a2),d0
  1162.     swap    d0
  1163.     clr.w    d0
  1164.     move.l    d0,-(sp)
  1165.     pea    LhAInvalidopt.MSG(pc)
  1166.     jsr    c2328(pc)
  1167.     moveq    #$14,d0
  1168.     jsr    c21BC(pc)
  1169.     addq.w    #8,sp
  1170.     bra.s    c0FEC
  1171.  
  1172. c0F92:    moveq    #0,d0
  1173.     move.b    d6,d0
  1174.     subi.w    #$68,d0
  1175.     bne.s    c0FD2
  1176.     lea    1(a2),a0
  1177.     jsr    c10F4(pc)
  1178.     asl.l    #8,d0
  1179.     asl.l    #2,d0
  1180.     move.l    d0,$BC(a4)
  1181.     cmpi.l    #$1000,d0
  1182.     bge.s    c0FC0
  1183.     move.l    #$1000,d1
  1184.     move.l    d1,$BC(a4)
  1185.     bra.s    c100E
  1186.  
  1187. c0FC0:    cmpi.l    #$FFFF,d0
  1188.     ble.s    c100E
  1189.     move.l    #$FFFF,$BC(a4)
  1190.     bra.s    c100E
  1191.  
  1192. c0FD2:    moveq    #0,d0
  1193.     move.b    d6,d0
  1194.     swap    d0
  1195.     clr.w    d0
  1196.     move.l    d0,-(sp)
  1197.     pea    LhAInvalidext.MSG(pc)
  1198.     jsr    c2328(pc)
  1199.     moveq    #$14,d0
  1200.     jsr    c21BC(pc)
  1201.     addq.w    #8,sp
  1202. c0FEC:    addq.l    #1,-$10(a5)
  1203.     movea.l    -$16(a5),a0
  1204.     adda.l    -$10(a5),a0
  1205.     movea.l    a0,a2
  1206.     move.b    (a2),d6
  1207.     tst.b    d6
  1208.     bne.l    c0E22
  1209.     tst.l    $864(a4)
  1210.     beq.s    c100E
  1211.     moveq    #1,d0
  1212.     move.l    d0,$86C(a4)
  1213. c100E:    movem.l    (sp)+,d6/d7/a2/a3/a6
  1214.     unlk    a5
  1215.     rts
  1216.  
  1217. c1016:    move.l    a6,-(sp)
  1218.     moveq    #-1,d0
  1219.     cmp.l    $D4(a4),d0
  1220.     bne.s    c1052
  1221.     moveq    #0,d0
  1222.     move.b    $810(a4),d0
  1223.     subi.w    #$61,d0
  1224.     beq.s    c1038
  1225.     subq.w    #5,d0
  1226.     beq.s    c104C
  1227.     subq.w    #7,d0
  1228.     beq.s    c1038
  1229.     subq.w    #8,d0
  1230.     bne.s    c104C
  1231. c1038:    tst.l    $828(a4)
  1232.     beq.s    c1046
  1233.     moveq    #1,d0
  1234.     move.l    d0,$D4(a4)
  1235.     bra.s    c1052
  1236.  
  1237. c1046:    clr.l    $D4(a4)
  1238.     bra.s    c1052
  1239.  
  1240. c104C:    moveq    #1,d0
  1241.     move.l    d0,$D4(a4)
  1242. c1052:    moveq    #-1,d0
  1243.     cmp.l    $D0(a4),d0
  1244.     bne.s    c107E
  1245.     moveq    #0,d0
  1246.     move.b    $810(a4),d0
  1247.     subi.w    #$61,d0
  1248.     beq.s    c1072
  1249.     subq.w    #5,d0
  1250.     beq.s    c1072
  1251.     subq.w    #7,d0
  1252.     beq.s    c1072
  1253.     subq.w    #8,d0
  1254.     bne.s    c107A
  1255. c1072:    moveq    #1,d0
  1256.     move.l    d0,$D0(a4)
  1257.     bra.s    c107E
  1258.  
  1259. c107A:    clr.l    $D0(a4)
  1260. c107E:    tst.l    $E4(a4)
  1261.     beq.s    c108A
  1262.     clr.l    $E4(a4)
  1263.     bra.s    c1090
  1264.  
  1265. c108A:    moveq    #1,d0
  1266.     move.l    d0,$E4(a4)
  1267. c1090:    tst.l    $830(a4)
  1268.     beq.s    c109C
  1269.     moveq    #1,d0
  1270.     move.l    d0,$864(a4)
  1271. c109C:    move.l    $864(a4),d0
  1272.     beq.s    c10A8
  1273.     moveq    #1,d1
  1274.     move.l    d1,$86C(a4)
  1275. c10A8:    tst.l    d0
  1276.     beq.s    c10B2
  1277.     moveq    #1,d0
  1278.     move.l    d0,$868(a4)
  1279. c10B2:    tst.l    $868(a4)
  1280.     bne.s    c10D0
  1281.     movea.l    $420(a4),a6
  1282.     jsr    Input(a6)
  1283.     move.l    d0,d1
  1284.     jsr    IsInteractive(a6)
  1285.     tst.l    d0
  1286.     bne.s    c10D0
  1287.     moveq    #1,d0
  1288.     move.l    d0,$868(a4)
  1289. c10D0:    tst.l    $868(a4)
  1290.     beq.s    c10E4
  1291.     move.l    $CC(a4),d0
  1292.     tst.l    d0
  1293.     bpl.s    c10E4
  1294.     moveq    #1,d1
  1295.     move.l    d1,$CC(a4)
  1296. c10E4:    move.l    $CC(a4),d0
  1297.     tst.l    d0
  1298.     bpl.s    c10F0
  1299.     clr.l    $CC(a4)
  1300. c10F0:    movea.l    (sp)+,a6
  1301.     rts
  1302.  
  1303. c10F4:    jmp    cA96C
  1304.  
  1305.     moveq    #$61,d0
  1306. c10FC:    link.w    a5,#-$10C
  1307.     movem.l    d7/a2/a3/a6,-(sp)
  1308.     move.l    $428(a4),d1
  1309.     movea.l    $420(a4),a6
  1310.     jsr    CurrentDir(a6)
  1311.     lea    $894(a4),a3
  1312.     bra.s    c114E
  1313.  
  1314. c1116:    moveq    #0,d7
  1315.     movea.l    (a3),a2
  1316.     move.l    a2,d0
  1317.     beq.s    c114C
  1318.     btst    #6,$1B(a2)
  1319.     beq.s    c1134
  1320.     moveq    #1,d7
  1321.     movea.l    $1C(a2),a0
  1322.     lea    -$10C(a5),a1
  1323. c1130:    move.b    (a0)+,(a1)+
  1324.     bne.s    c1130
  1325. c1134:    movea.l    (a3),a0
  1326.     bsr.l    c1732
  1327.     tst.l    d7
  1328.     beq.s    c114C
  1329.     lea    -$10C(a5),a0
  1330.     move.l    a0,d1
  1331.     movea.l    $420(a4),a6
  1332.     jsr    -$48(a6)
  1333. c114C:    addq.l    #4,a3
  1334. c114E:    lea    $8E4(a4),a0
  1335.     cmpa.l    a0,a3
  1336.     bcs.s    c1116
  1337.     lea    $8E4(a4),a3
  1338.     bra.s    c116C
  1339.  
  1340. c115C:    move.l    (a3),d0
  1341.     beq.s    c116A
  1342.     move.l    d0,d1
  1343.     movea.l    $420(a4),a6
  1344.     jsr    -$24(a6)
  1345. c116A:    addq.l    #4,a3
  1346. c116C:    lea    $904(a4),a0
  1347.     cmpa.l    a0,a3
  1348.     bcs.s    c115C
  1349.     lea    $904(a4),a3
  1350.     bra.s    c118C
  1351.  
  1352. c117A:    move.l    (a3),d0
  1353.     tst.l    d0
  1354.     ble.s    c118A
  1355.     move.l    d0,d1
  1356.     movea.l    $420(a4),a6
  1357.     jsr    -$5A(a6)
  1358. c118A:    addq.l    #4,a3
  1359. c118C:    lea    $A04(a4),a0
  1360.     cmpa.l    a0,a3
  1361.     bcs.s    c117A
  1362.     movem.l    (sp)+,d7/a2/a3/a6
  1363.     unlk    a5
  1364.     rts
  1365.  
  1366. LhATmp.MSG:    dc.b    'LhATmp.',0
  1367. LhA_ArcWork.MSG:    dc.b    'LhA_ArcWork.',0,0
  1368. LhAUnabletode.MSG:    dc.b    10
  1369.     dc.b    '*** LhA: Unable to delete original archive',$A
  1370.     dc.b    '    Recovery archive is left in file `%s''.',$A,0
  1371. LhAErrorwhile.MSG:    dc.b    10
  1372.     dc.b    '*** LhA: Error while replacing original with'
  1373.     dc.b    ' temporary archive',$A
  1374.     dc.b    '    Recovery archive is left in file `%s''.',$A,0
  1375.  
  1376. c1276:    movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  1377.     movea.l    a0,a3
  1378.     move.l    d0,d7
  1379.     moveq    #0,d6
  1380.     lea    $8E4(a4),a2
  1381.     bra.s    c128E
  1382.  
  1383. c1286:    tst.l    (a2)
  1384.     beq.s    c1294
  1385.     addq.l    #1,d6
  1386.     addq.l    #4,a2
  1387. c128E:    moveq    #8,d0
  1388.     cmp.l    d0,d6
  1389.     blt.s    c1286
  1390. c1294:    moveq    #8,d0
  1391.     cmp.l    d0,d6
  1392.     blt.s    OpenFile
  1393.     moveq    #0,d0
  1394.     bra.s    c12B6
  1395.  
  1396. OpenFile:    move.l    a3,d1
  1397.     move.l    d7,d2
  1398.     movea.l    $420(a4),a6
  1399.     jsr    Open(a6)
  1400.     move.l    d6,d1
  1401.     asl.l    #2,d1
  1402.     lea    $8E4(a4),a0
  1403.     move.l    d0,0(a0,d1.l)
  1404. c12B6:    movem.l    (sp)+,d2/d6/d7/a2/a3/a6
  1405.     rts
  1406.  
  1407. c12BC:    movem.l    d6/d7/a3/a6,-(sp)
  1408.     move.l    d0,d7
  1409.     moveq    #0,d6
  1410.     lea    $8E4(a4),a3
  1411.     bra.s    c12D4
  1412.  
  1413. CloseFile:    move.l    (a3),d0
  1414.     cmp.l    d7,d0
  1415.     beq.s    c12DA
  1416.     addq.l    #1,d6
  1417.     addq.l    #4,a3
  1418. c12D4:    moveq    #8,d0
  1419.     cmp.l    d0,d6
  1420.     blt.s    CloseFile
  1421. c12DA:    move.l    d7,d1
  1422.     movea.l    $420(a4),a6
  1423.     jsr    Close(a6)
  1424.     moveq    #8,d0
  1425.     cmp.l    d0,d6
  1426.     bge.s    c12F6
  1427.     move.l    d6,d0
  1428.     asl.l    #2,d0
  1429.     lea    $8E4(a4),a0
  1430.     clr.l    0(a0,d0.l)
  1431. c12F6:    movem.l    (sp)+,d6/d7/a3/a6
  1432.     rts
  1433.  
  1434. c12FC:    movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  1435.     movea.l    a0,a3
  1436.     move.l    d0,d7
  1437.     moveq    #0,d6
  1438.     lea    $904(a4),a2
  1439.     bra.s    c1314
  1440.  
  1441. c130C:    tst.l    (a2)
  1442.     beq.s    c131A
  1443.     addq.l    #1,d6
  1444.     addq.l    #4,a2
  1445. c1314:    moveq    #$40,d0
  1446.     cmp.l    d0,d6
  1447.     blt.s    c130C
  1448. c131A:    moveq    #$40,d0
  1449.     cmp.l    d0,d6
  1450.     blt.s    FindLock
  1451.     moveq    #0,d0
  1452.     bra.s    c133C
  1453.  
  1454. FindLock:    move.l    a3,d1
  1455.     move.l    d7,d2
  1456.     movea.l    $420(a4),a6
  1457.     jsr    Lock(a6)
  1458.     move.l    d6,d1
  1459.     asl.l    #2,d1
  1460.     lea    $904(a4),a0
  1461.     move.l    d0,0(a0,d1.l)
  1462. c133C:    movem.l    (sp)+,d2/d6/d7/a2/a3/a6
  1463.     rts
  1464.  
  1465. c1342:    movem.l    d6/d7/a3,-(sp)
  1466.     move.l    d0,d7
  1467.     moveq    #0,d6
  1468.     lea    $904(a4),a3
  1469.     bra.s    c1358
  1470.  
  1471. c1350:    tst.l    (a3)
  1472.     beq.s    c135E
  1473.     addq.l    #1,d6
  1474.     addq.l    #4,a3
  1475. c1358:    moveq    #$40,d0
  1476.     cmp.l    d0,d6
  1477.     blt.s    c1350
  1478. c135E:    moveq    #$40,d0
  1479.     cmp.l    d0,d6
  1480.     blt.s    c1368
  1481.     moveq    #0,d0
  1482.     bra.s    c1376
  1483.  
  1484. c1368:    move.l    d6,d0
  1485.     asl.l    #2,d0
  1486.     lea    $904(a4),a0
  1487.     move.l    d7,0(a0,d0.l)
  1488.     move.l    d7,d0
  1489. c1376:    movem.l    (sp)+,d6/d7/a3
  1490.     rts
  1491.  
  1492. c137C:    movem.l    d6/d7/a3/a6,-(sp)
  1493.     move.l    d0,d7
  1494.     moveq    #0,d6
  1495.     lea    $904(a4),a3
  1496.     bra.s    c1394
  1497.  
  1498. FreeLock:    move.l    (a3),d0
  1499.     cmp.l    d7,d0
  1500.     beq.s    c139A
  1501.     addq.l    #1,d6
  1502.     addq.l    #4,a3
  1503. c1394:    moveq    #$40,d0
  1504.     cmp.l    d0,d6
  1505.     blt.s    FreeLock
  1506. c139A:    moveq    #$40,d0
  1507.     cmp.l    d0,d6
  1508.     bge.s    c13AC
  1509.     move.l    d6,d0
  1510.     asl.l    #2,d0
  1511.     lea    $904(a4),a0
  1512.     clr.l    0(a0,d0.l)
  1513. c13AC:    move.l    d7,d1
  1514.     movea.l    $420(a4),a6
  1515.     jsr    UnLock(a6)
  1516.     jsr    c2282(pc)
  1517.     movem.l    (sp)+,d6/d7/a3/a6
  1518.     rts
  1519.  
  1520. c13C0:    link.w    a5,#-$120
  1521.     move.l    a6,-(sp)
  1522.     lea    LhATmp.MSG(pc),a0
  1523.     lea    -$20(a5),a1
  1524.     move.l    (a0)+,(a1)+
  1525.     move.l    (a0)+,(a1)+
  1526.     movea.w    #4,a0
  1527.     movea.l    (a0),a1
  1528.     move.l    $114(a1),d0
  1529.     lea    -$19(a5),a0
  1530.     jsr    c2110(pc)
  1531.     movea.l    $820(a4),a0
  1532.     lea    -$120(a5),a1
  1533. c13EC:    move.b    (a0)+,(a1)+
  1534.     bne.s    c13EC
  1535.     lea    -$120(a5),a0
  1536.     lea    -$20(a5),a1
  1537.     movea.l    $424(a4),a6
  1538.     jsr    -$270(a6)
  1539.     moveq    #$54,d0
  1540.     move.l    $C0(a4),d1
  1541.     lea    -$120(a5),a0
  1542.     bsr.l    c1564
  1543.     movea.l    (sp)+,a6
  1544.     unlk    a5
  1545.     rts
  1546.  
  1547. c1414:    link.w    a5,#-$120
  1548.     move.l    a6,-(sp)
  1549.     lea    LhA_ArcWork.MSG(pc),a0
  1550.     lea    -$20(a5),a1
  1551.     move.l    (a0)+,(a1)+
  1552.     move.l    (a0)+,(a1)+
  1553.     move.l    (a0)+,(a1)+
  1554.     clr.b    (a1)
  1555.     movea.w    #4,a0
  1556.     movea.l    (a0),a1
  1557.     move.l    $114(a1),d0
  1558.     lea    -$14(a5),a0
  1559.     jsr    c2110(pc)
  1560.     movea.l    $820(a4),a0
  1561.     lea    -$120(a5),a1
  1562. c1444:    move.b    (a0)+,(a1)+
  1563.     bne.s    c1444
  1564.     lea    -$120(a5),a0
  1565.     lea    -$20(a5),a1
  1566.     movea.l    $424(a4),a6
  1567.     jsr    -$270(a6)
  1568.     moveq    #$74,d0
  1569.     move.l    $C0(a4),d1
  1570.     lea    -$120(a5),a0
  1571.     bsr.l    c1564
  1572.     movea.l    (sp)+,a6
  1573.     unlk    a5
  1574.     rts
  1575.  
  1576. c146C:    link.w    a5,#-8
  1577.     movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  1578.     movea.l    a0,a3
  1579.     movea.l    a1,a2
  1580.     move.l    d0,d7
  1581.     movea.l    $1C(a3),a0
  1582.     jsr    c2104(pc)
  1583.     move.l    d0,$18(sp)
  1584.     moveq    #0,d0
  1585.     move.l    d0,d1
  1586.     movea.l    a3,a0
  1587.     bsr.l    c188C
  1588.     tst.l    d0
  1589.     bpl.s    DeleteFile
  1590.     moveq    #-1,d0
  1591.     bra.l    c155A
  1592.  
  1593. DeleteFile:
  1594.     move.l    a2,d1
  1595.     movea.l    $420(a4),a6
  1596.     jsr    -$AE(a6)
  1597.     move.l    d0,$1C(sp)
  1598.     move.l    $18(sp),d1
  1599.     jsr    -$AE(a6)
  1600.     movea.l    $1C(sp),a0
  1601.     cmpa.l    d0,a0
  1602.     bne.s    c14F6
  1603.     move.l    a2,d1
  1604.     jsr    FnDeleteFile(a6)
  1605.     tst.l    d0
  1606.     bne.s    RenameFile
  1607.     move.l    $1C(a3),-(sp)
  1608.     pea    LhAUnabletode.MSG(pc)
  1609.     jsr    c2328(pc)
  1610.     bclr    #6,$1B(a3)
  1611.     movea.l    a3,a0
  1612.     bsr.l    c1732
  1613.     moveq    #-1,d0
  1614.     bra.s    c155A
  1615.  
  1616. RenameFile:    movea.l    a3,a0
  1617.     bsr.l    c1732
  1618.     movea.l    $18(sp),a3
  1619.     move.l    a3,d1
  1620.     move.l    a2,d2
  1621.     movea.l    $420(a4),a6
  1622.     jsr    Rename(a6)
  1623.     bra.s    c1552
  1624.  
  1625. c14F6:    move.l    #$3EE,d0
  1626.     movea.l    a2,a0
  1627.     bsr.l    c1276
  1628.     move.l    d0,d6
  1629.     tst.l    d6
  1630.     beq.s    c1516
  1631.     move.l    d6,d0
  1632.     move.l    d7,d1
  1633.     movea.l    a3,a0
  1634.     bsr.l    c1B76
  1635.     tst.l    d0
  1636.     bpl.s    c1538
  1637. c1516:    move.l    $1C(a3),-(sp)
  1638.     pea    LhAErrorwhile.MSG(pc)
  1639.     jsr    c2328(pc)
  1640.     bclr    #6,$1B(a3)
  1641.     movea.l    a3,a0
  1642.     bsr.l    c1732
  1643.     move.l    d6,d0
  1644.     bsr.l    c12BC
  1645.     moveq    #-1,d0
  1646.     bra.s    c155A
  1647.  
  1648. c1538:    movea.l    a3,a0
  1649.     bsr.l    c1732
  1650.     move.l    d6,d0
  1651.     bsr.l    c12BC
  1652.     movea.l    $18(sp),a3
  1653.     move.l    a3,d1
  1654.     movea.l    $420(a4),a6
  1655.     jsr    FnDeleteFile(a6)
  1656. c1552:    movea.l    a3,a0
  1657.     jsr    c29D2(pc)
  1658.     moveq    #0,d0
  1659. c155A:    movem.l    -$20(a5),d2/d6/d7/a2/a3/a6
  1660.     unlk    a5
  1661.     rts
  1662.  
  1663. c1564:    link.w    a5,#-$14
  1664.     movem.l    d2/d4-d7/a2/a3/a6,-(sp)
  1665.     move.l    d0,d7
  1666.     move.l    d1,d6
  1667.     move.l    a0,-$14(a5)
  1668.     clr.w    -$10(a5)
  1669.     bra.s    c1590
  1670.  
  1671. c157A:    move.w    -$10(a5),d0
  1672.     ext.l    d0
  1673.     asl.l    #2,d0
  1674.     lea    $894(a4),a0
  1675.     tst.l    0(a0,d0.l)
  1676.     beq.s    c1598
  1677.     addq.w    #1,-$10(a5)
  1678. c1590:    cmpi.w    #$14,-$10(a5)
  1679.     blt.s    c157A
  1680. c1598:    cmpi.w    #$14,-$10(a5)
  1681.     blt.s    c15A6
  1682.     moveq    #0,d0
  1683.     bra.l    c172A
  1684.  
  1685. c15A6:    moveq    #$20,d0
  1686.     jsr    c210A(pc)
  1687.     movea.l    d0,a2
  1688.     move.l    a2,d0
  1689.     bne.s    c15B8
  1690.     moveq    #0,d0
  1691.     bra.l    c172A
  1692.  
  1693. c15B8:    move.l    d6,8(a2)
  1694.     suba.l    a0,a0
  1695.     move.l    a0,$1C(a2)
  1696.     move.l    a0,$18(a2)
  1697.     move.l    a0,$10(a2)
  1698.     move.l    a0,12(a2)
  1699.     moveq    #-1,d0
  1700.     move.l    d0,$14(a2)
  1701.     moveq    #$77,d0
  1702.     cmp.b    d0,d7
  1703.     beq.s    c15E0
  1704.     moveq    #$57,d0
  1705.     cmp.b    d0,d7
  1706.     bne.s    c1644
  1707. c15E0:    move.l    #$104,d0
  1708.     moveq    #1,d1
  1709.     jsr    c29BA(pc)
  1710.     movea.l    d0,a3
  1711.     tst.l    d0
  1712.     bne.s    c15F8
  1713.     moveq    #0,d0
  1714.     bra.l    c172A
  1715.  
  1716. c15F8:    moveq    #-1,d0
  1717.     movea.l    -$14(a5),a0
  1718.     bsr.l    c12FC
  1719.     move.l    d0,d5
  1720.     tst.l    d5
  1721.     bne.s    c1614
  1722.     moveq    #$77,d0
  1723.     cmp.b    d0,d7
  1724.     bne.s    c1614
  1725.     moveq    #0,d0
  1726.     bra.l    c172A
  1727.  
  1728. c1614:    tst.l    d5
  1729.     beq.s    c163E
  1730.     move.l    d5,d1
  1731.     move.l    a3,d2
  1732.     movea.l    $420(a4),a6
  1733.     jsr    -$66(a6)
  1734.     move.l    d5,d0
  1735.     bsr.l    c137C
  1736.     moveq    #5,d0
  1737.     and.l    $74(a3),d0
  1738.     beq.s    c163E
  1739.     movea.l    a3,a0
  1740.     jsr    c29D2(pc)
  1741.     moveq    #0,d0
  1742.     bra.l    c172A
  1743.  
  1744. c163E:    movea.l    a3,a0
  1745.     jsr    c29D2(pc)
  1746. c1644:    moveq    #$77,d0
  1747.     cmp.b    d0,d7
  1748.     bne.s    c164E
  1749.     moveq    #0,d4
  1750.     bra.s    c168A
  1751.  
  1752. c164E:    moveq    #$57,d0
  1753.     cmp.b    d0,d7
  1754.     bne.s    c1658
  1755.     moveq    #1,d4
  1756.     bra.s    c168A
  1757.  
  1758. c1658:    moveq    #$2B,d0
  1759.     cmp.b    d0,d7
  1760.     bne.s    c1662
  1761.     moveq    #2,d4
  1762.     bra.s    c168A
  1763.  
  1764. c1662:    moveq    #$72,d0
  1765.     cmp.b    d0,d7
  1766.     bne.s    c166C
  1767.     moveq    #0,d4
  1768.     bra.s    c168A
  1769.  
  1770. c166C:    moveq    #$74,d0
  1771.     cmp.b    d0,d7
  1772.     bne.s    c167C
  1773.     moveq    #$48,d0
  1774.     or.l    d0,$18(a2)
  1775.     moveq    #1,d4
  1776.     bra.s    c168A
  1777.  
  1778. c167C:    moveq    #$54,d0
  1779.     cmp.b    d0,d7
  1780.     bne.s    c168A
  1781.     moveq    #$28,d0
  1782.     or.l    d0,$18(a2)
  1783.     moveq    #1,d4
  1784. c168A:    btst    #4,$1B(a2)
  1785.     bne.s    c16AC
  1786.     move.l    d6,d0
  1787.     jsr    c210A(pc)
  1788.     move.l    d0,4(a2)
  1789.     tst.l    d0
  1790.     bne.s    c16B0
  1791.     movea.l    a2,a0
  1792.     jsr    c29D2(pc)
  1793.     moveq    #0,d0
  1794.     bra.l    c172A
  1795.  
  1796. c16AC:    clr.l    4(a2)
  1797. c16B0:    btst    #3,$1B(a2)
  1798.     bne.s    c170A
  1799.     moveq    #2,d0
  1800.     cmp.w    d0,d4
  1801.     bne.s    c16C6
  1802.     move.l    #$3EE,d0
  1803.     bra.s    c16CC
  1804.  
  1805. c16C6:    move.l    #$3ED,d0
  1806. c16CC:    movea.l    -$14(a5),a3
  1807.     movea.l    a3,a0
  1808.     bsr.l    c1276
  1809.     move.l    d0,(a2)
  1810.     bne.s    c16EE
  1811.     moveq    #1,d0
  1812.     cmp.w    d0,d4
  1813.     bne.s    c16EE
  1814.     move.l    #$3EE,d0
  1815.     movea.l    a3,a0
  1816.     bsr.l    c1276
  1817.     move.l    d0,(a2)
  1818. c16EE:    tst.l    (a2)
  1819.     bne.s    c170C
  1820.     tst.l    4(a2)
  1821.     beq.s    c1700
  1822.     movea.l    4(a2),a0
  1823.     jsr    c29D2(pc)
  1824. c1700:    movea.l    a2,a0
  1825.     jsr    c29D2(pc)
  1826.     moveq    #0,d0
  1827.     bra.s    c172A
  1828.  
  1829. c170A:    clr.l    (a2)
  1830. c170C:    movea.l    -$14(a5),a0
  1831.     jsr    c2104(pc)
  1832.     move.l    d0,$1C(a2)
  1833.     move.w    -$10(a5),d0
  1834.     ext.l    d0
  1835.     asl.l    #2,d0
  1836.     lea    $894(a4),a0
  1837.     move.l    a2,0(a0,d0.l)
  1838.     move.l    a2,d0
  1839. c172A:    movem.l    (sp)+,d2/d4-d7/a2/a3/a6
  1840.     unlk    a5
  1841.     rts
  1842.  
  1843. c1732:    movem.l    a2/a3/a6,-(sp)
  1844.     movea.l    a0,a3
  1845.     move.l    a3,d0
  1846.     beq.s    c17A2
  1847.     btst    #2,$1B(a3)
  1848.     beq.s    c174A
  1849.     movea.l    a3,a0
  1850.     bsr.l    c17A8
  1851. c174A:    move.l    (a3),d0
  1852.     beq.s    c1766
  1853.     bsr.l    c12BC
  1854.     btst    #5,$1B(a3)
  1855.     beq.s    c1766
  1856.     move.l    $1C(a3),d1
  1857.     movea.l    $420(a4),a6
  1858.     jsr    FnDeleteFile(a6)
  1859. c1766:    tst.l    $1C(a3)
  1860.     beq.s    c1774
  1861.     movea.l    $1C(a3),a0
  1862.     jsr    c29D2(pc)
  1863. c1774:    tst.l    4(a3)
  1864.     beq.s    c1782
  1865.     movea.l    4(a3),a0
  1866.     jsr    c29D2(pc)
  1867. c1782:    movea.l    a3,a0
  1868.     jsr    c29D2(pc)
  1869.     lea    $894(a4),a2
  1870.     bra.s    c179A
  1871.  
  1872. c178E:    movea.l    (a2),a0
  1873.     cmpa.l    a3,a0
  1874.     bne.s    c1798
  1875.     clr.l    (a2)
  1876.     bra.s    c17A2
  1877.  
  1878. c1798:    addq.l    #4,a2
  1879. c179A:    lea    $8E4(a4),a0
  1880.     cmpa.l    a0,a2
  1881.     bcs.s    c178E
  1882. c17A2:    movem.l    (sp)+,a2/a3/a6
  1883.     rts
  1884.  
  1885. c17A8:    movem.l    d2/d3/d7/a3/a6,-(sp)
  1886.     movea.l    a0,a3
  1887.     tst.l    4(a3)
  1888.     bne.s    c17BA
  1889.     moveq    #0,d0
  1890.     bra.l    c1886
  1891.  
  1892. c17BA:    jsr    c2282(pc)
  1893.     btst    #1,$1B(a3)
  1894.     beq.s    c17CC
  1895.     moveq    #-1,d0
  1896.     bra.l    c1886
  1897.  
  1898. c17CC:    btst    #2,$1B(a3)
  1899.     beq.s    c17DC
  1900.     move.l    $14(a3),d0
  1901.     tst.l    d0
  1902.     bpl.s    c17E2
  1903. c17DC:    moveq    #0,d0
  1904.     bra.l    c1886
  1905.  
  1906. c17E2:    tst.l    (a3)
  1907.     bne.s    c180E
  1908.     move.l    #$3EE,d0
  1909.     movea.l    $1C(a3),a0
  1910.     bsr.l    c1276
  1911.     move.l    d0,(a3)
  1912.     bne.s    c180E
  1913.     bset    #1,$1B(a3)
  1914.     movea.l    $420(a4),a6
  1915.     jsr    IoErr(a6)
  1916.     move.l    d0,$A04(a4)
  1917.     moveq    #-1,d0
  1918.     bra.s    c1886
  1919.  
  1920. c180E:    move.l    (a3),d1
  1921.     move.l    $10(a3),d2
  1922.     moveq    #-1,d3
  1923.     movea.l    $420(a4),a6
  1924.     jsr    Seek(a6)
  1925.     tst.l    d0
  1926.     bpl.s    c1838
  1927.     bset    #1,$1B(a3)
  1928.     movea.l    $420(a4),a6
  1929.     jsr    IoErr(a6)
  1930.     move.l    d0,$A04(a4)
  1931.     moveq    #-1,d0
  1932.     bra.s    c1886
  1933.  
  1934. c1838:    move.l    (a3),d1
  1935.     move.l    4(a3),d2
  1936.     move.l    $14(a3),d3
  1937.     jsr    -$30(a6)
  1938.     move.l    d0,d7
  1939.     tst.l    d7
  1940.     bpl.s    c1862
  1941.     bset    #1,$1B(a3)
  1942.     movea.l    $420(a4),a6
  1943.     jsr    IoErr(a6)
  1944.     move.l    d0,$A04(a4)
  1945.     moveq    #-1,d0
  1946.     bra.s    c1886
  1947.  
  1948. c1862:    bclr    #2,$1B(a3)
  1949.     cmp.l    $14(a3),d7
  1950.     beq.s    c1884
  1951.     bset    #1,$1B(a3)
  1952.     movea.l    $420(a4),a6
  1953.     jsr    IoErr(a6)
  1954.     move.l    d0,$A04(a4)
  1955.     moveq    #-1,d0
  1956.     bra.s    c1886
  1957.  
  1958. c1884:    moveq    #0,d0
  1959. c1886:    movem.l    (sp)+,d2/d3/d7/a3/a6
  1960.     rts
  1961.  
  1962. c188C:    movem.l    d2/d3/d5-d7/a3/a6,-(sp)
  1963.     movea.l    a0,a3
  1964.     move.l    d0,d7
  1965.     move.l    d1,d6
  1966.     move.l    $10(a3),d0
  1967.     add.l    12(a3),d0
  1968.     move.l    d0,d5
  1969.     move.l    d6,d0
  1970.     tst.l    d0
  1971.     beq.s    c18B0
  1972.     subq.l    #1,d0
  1973.     beq.s    c18B4
  1974.     subq.l    #1,d0
  1975.     beq.s    c18BA
  1976.     bra.s    c18F6
  1977.  
  1978. c18B0:    move.l    d7,d6
  1979.     bra.s    c18FA
  1980.  
  1981. c18B4:    move.l    d5,d6
  1982.     add.l    d7,d6
  1983.     bra.s    c18FA
  1984.  
  1985. c18BA:    move.l    (a3),d0
  1986.     beq.s    c18E8
  1987.     move.l    d0,d1
  1988.     moveq    #0,d2
  1989.     moveq    #1,d3
  1990.     movea.l    $420(a4),a6
  1991.     jsr    Seek(a6)
  1992.     tst.l    d0
  1993.     bpl.s    c18DC
  1994.     jsr    IoErr(a6)
  1995.     move.l    d0,$A04(a4)
  1996.     moveq    #-1,d0
  1997.     bra.s    c193A
  1998.  
  1999. c18DC:    move.l    (a3),d1
  2000.     jsr    Seek(a6)
  2001.     sub.l    d7,d0
  2002.     move.l    d0,d6
  2003.     bra.s    c18FA
  2004.  
  2005. c18E8:    move.l    $10(a3),d0
  2006.     add.l    $14(a3),d0
  2007.     sub.l    d7,d0
  2008.     move.l    d0,d6
  2009.     bra.s    c18FA
  2010.  
  2011. c18F6:    moveq    #-1,d0
  2012.     bra.s    c193A
  2013.  
  2014. c18FA:    move.l    $10(a3),d0
  2015.     cmp.l    d0,d6
  2016.     blt.s    c190A
  2017.     add.l    $14(a3),d0
  2018.     cmp.l    d0,d6
  2019.     blt.s    c192A
  2020. c190A:    movea.l    a3,a0
  2021.     bsr.l    c17A8
  2022.     tst.w    d0
  2023.     bpl.s    c1918
  2024.     moveq    #-1,d0
  2025.     bra.s    c193A
  2026.  
  2027. c1918:    moveq    #-1,d0
  2028.     move.l    d0,$14(a3)
  2029.     move.l    d6,d0
  2030.     move.l    d0,$10(a3)
  2031.     clr.l    12(a3)
  2032.     bra.s    c1934
  2033.  
  2034. c192A:    move.l    d6,d0
  2035.     sub.l    $10(a3),d0
  2036.     move.l    d0,12(a3)
  2037. c1934:    jsr    c2282(pc)
  2038.     move.l    d5,d0
  2039. c193A:    movem.l    (sp)+,d2/d3/d5-d7/a3/a6
  2040.     rts
  2041.  
  2042. c1940:    movem.l    d2/d3/a3/a6,-(sp)
  2043.     movea.l    a0,a3
  2044.     tst.l    4(a3)
  2045.     bne.s    c196C
  2046.     move.l    8(a3),d0
  2047.     jsr    c210A(pc)
  2048.     move.l    d0,4(a3)
  2049.     bne.s    c196C
  2050.     moveq    #3,d0
  2051.     or.l    d0,$18(a3)
  2052.     moveq    #0,d0
  2053.     move.l    d0,$14(a3)
  2054.     moveq    #-1,d0
  2055.     bra.l    c1A12
  2056.  
  2057. c196C:    move.l    $14(a3),d0
  2058.     move.l    12(a3),d1
  2059.     cmp.l    d0,d1
  2060.     bge.s    c1988
  2061.     tst.l    d0
  2062.     bgt.l    c1A0A
  2063.     btst    #0,$1B(a3)
  2064.     bne.l    c1A0A
  2065. c1988:    movea.l    a3,a0
  2066.     bsr.l    c17A8
  2067.     tst.w    d0
  2068.     bpl.s    c1996
  2069.     moveq    #-1,d0
  2070.     bra.s    c1A12
  2071.  
  2072. c1996:    tst.l    (a3)
  2073.     bne.s    c19C2
  2074.     move.l    #$3EE,d0
  2075.     movea.l    $1C(a3),a0
  2076.     bsr.l    c1276
  2077.     move.l    d0,(a3)
  2078.     bne.s    c19C2
  2079.     bset    #1,$1B(a3)
  2080.     movea.l    $420(a4),a6
  2081.     jsr    IoErr(a6)
  2082.     move.l    d0,$A04(a4)
  2083.     moveq    #-1,d0
  2084.     bra.s    c1A12
  2085.  
  2086. c19C2:    move.l    12(a3),d0
  2087.     add.l    $10(a3),d0
  2088.     move.l    d0,d2
  2089.     move.l    (a3),d1
  2090.     moveq    #-1,d3
  2091.     movea.l    $420(a4),a6
  2092.     jsr    Seek(a6)
  2093.     tst.l    d0
  2094.     bpl.s    ReadBytes
  2095.     jsr    IoErr(a6)
  2096.     move.l    d0,$A04(a4)
  2097.     move.l    d3,d0
  2098.     bra.s    c1A12
  2099.  
  2100. ReadBytes:    move.l    12(a3),d0
  2101.     add.l    d0,$10(a3)
  2102.     move.l    (a3),d1
  2103.     move.l    4(a3),d2
  2104.     move.l    8(a3),d3
  2105.     movea.l    $420(a4),a6
  2106.     jsr    Read(a6)
  2107.     move.l    d0,$14(a3)
  2108.     clr.l    12(a3)
  2109. c1A0A:    jsr    c2282(pc)
  2110.     move.l    $14(a3),d0
  2111. c1A12:    movem.l    (sp)+,d2/d3/a3/a6
  2112.     rts
  2113.  
  2114. c1A18:    link.w    a5,#-12
  2115.     movem.l    d6/d7/a2/a3/a6,-(sp)
  2116.     movea.l    a0,a3
  2117.     move.l    d0,d7
  2118.     move.l    a1,-12(a5)
  2119.     moveq    #0,d6
  2120.     tst.l    $14(a3)
  2121.     bne.l    c1AB8
  2122.     bset    #0,$1B(a3)
  2123.     moveq    #-1,d0
  2124.     bra.l    c1ABE
  2125.  
  2126. c1A3E:    movea.l    a3,a0
  2127.     bsr.l    c1940
  2128.     tst.l    d0
  2129.     bpl.s    c1A4C
  2130.     moveq    #-1,d0
  2131.     bra.s    c1ABE
  2132.  
  2133. c1A4C:    move.l    $14(a3),d0
  2134.     bne.s    c1A5A
  2135.     bset    #0,$1B(a3)
  2136.     bra.s    c1ABC
  2137.  
  2138. c1A5A:    move.l    12(a3),d0
  2139.     move.l    $14(a3),d1
  2140.     sub.l    d0,d1
  2141.     movea.l    4(a3),a0
  2142.     adda.l    d0,a0
  2143.     movea.l    a0,a2
  2144.     cmp.l    d1,d7
  2145.     ble.s    c1A98
  2146.     move.l    d1,d0
  2147.     movea.l    a2,a0
  2148.     movea.l    -12(a5),a1
  2149.     movea.l    4,a6
  2150.     jsr    -$270(a6)
  2151.     move.l    $14(a3),d0
  2152.     move.l    d0,d1
  2153.     sub.l    12(a3),d1
  2154.     add.l    d1,d6
  2155.     add.l    d1,-12(a5)
  2156.     sub.l    d1,d7
  2157.     move.l    d0,12(a3)
  2158.     bra.s    c1AB8
  2159.  
  2160. c1A98:    movea.l    a2,a0
  2161.     movea.l    -12(a5),a1
  2162.     move.l    d7,d0
  2163.     movea.l    4,a6
  2164.     jsr    CopyMem(a6)
  2165.     add.l    d7,d6
  2166.     add.l    d7,12(a3)
  2167.     add.l    d7,-12(a5)
  2168.     move.l    d7,d0
  2169.     sub.l    d7,d0
  2170.     move.l    d0,d7
  2171. c1AB8:    tst.l    d7
  2172.     bne.w    c1A3E
  2173. c1ABC:    move.l    d6,d0
  2174. c1ABE:    movem.l    (sp)+,d6/d7/a2/a3/a6
  2175.     unlk    a5
  2176.     rts
  2177.  
  2178. c1AC6:    link.w    a5,#-12
  2179.     movem.l    d6/d7/a2/a3/a6,-(sp)
  2180.     movea.l    a0,a3
  2181.     move.l    d0,d7
  2182.     move.l    a1,-12(a5)
  2183.     moveq    #0,d6
  2184.     bra.l    c1B66
  2185.  
  2186. c1ADC:    movea.l    a3,a0
  2187.     bsr.l    c1940
  2188.     tst.l    d0
  2189.     bpl.s    c1AEC
  2190.     moveq    #-1,d0
  2191.     bra.l    c1B6E
  2192.  
  2193. c1AEC:    move.l    12(a3),d0
  2194.     move.l    8(a3),d1
  2195.     sub.l    d0,d1
  2196.     movea.l    4(a3),a0
  2197.     adda.l    d0,a0
  2198.     movea.l    a0,a2
  2199.     cmp.l    d1,d7
  2200.     ble.s    c1B36
  2201.     move.l    d1,d0
  2202.     movea.l    -12(a5),a0
  2203.     movea.l    a2,a1
  2204.     movea.l    4,a6
  2205.     jsr    CopyMem(a6)
  2206.     bset    #2,$1B(a3)
  2207.     move.l    8(a3),d0
  2208.     move.l    d0,d1
  2209.     sub.l    12(a3),d1
  2210.     add.l    d1,d6
  2211.     add.l    d1,-12(a5)
  2212.     sub.l    d1,d7
  2213.     move.l    d0,12(a3)
  2214.     move.l    8(a3),$14(a3)
  2215.     bra.s    c1B66
  2216.  
  2217. c1B36:    movea.l    -12(a5),a0
  2218.     movea.l    a2,a1
  2219.     move.l    d7,d0
  2220.     movea.l    4,a6
  2221.     jsr    CopyMem(a6)
  2222.     bset    #2,$1B(a3)
  2223.     add.l    d7,12(a3)
  2224.     move.l    12(a3),d0
  2225.     cmp.l    $14(a3),d0
  2226.     ble.s    c1B5E
  2227.     move.l    d0,$14(a3)
  2228. c1B5E:    add.l    d7,d6
  2229.     move.l    d7,d0
  2230.     sub.l    d7,d0
  2231.     move.l    d0,d7
  2232. c1B66:    tst.l    d7
  2233.     bne.l    c1ADC
  2234.     move.l    d6,d0
  2235. c1B6E:    movem.l    (sp)+,d6/d7/a2/a3/a6
  2236.     unlk    a5
  2237.     rts
  2238.  
  2239. c1B76:    movem.l    d2/d3/d6/d7/a3/a6,-(sp)
  2240.     movea.l    a0,a3
  2241.     move.l    d0,d7
  2242.     move.l    d1,d6
  2243.     move.l    (a3),d1
  2244.     moveq    #0,d2
  2245.     moveq    #-1,d3
  2246.     movea.l    $420(a4),a6
  2247.     jsr    Seek(a6)
  2248.     tst.l    d0
  2249.     bpl.l    c1C2A
  2250.     jsr    IoErr(a6)
  2251.     move.l    d0,$A04(a4)
  2252.     move.l    d3,d0
  2253.     bra.l    c1C32
  2254.  
  2255. ReadBytes2:    cmp.l    8(a3),d6
  2256.     bgt.s    ReadBytes3
  2257.     move.l    (a3),d1
  2258.     move.l    4(a3),d2
  2259.     move.l    d6,d3
  2260.     movea.l    $420(a4),a6
  2261.     jsr    Read(a6)
  2262.     tst.l    d0
  2263.     bpl.s    WriteBytes
  2264.     jsr    IoErr(a6)
  2265.     move.l    d0,$A04(a4)
  2266.     moveq    #-1,d0
  2267.     bra.s    c1C32
  2268.  
  2269. WriteBytes:    move.l    d7,d1
  2270.     move.l    4(a3),d2
  2271.     jsr    Write(a6)
  2272.     tst.l    d0
  2273.     bpl.s    c1BE2
  2274.     jsr    IoErr(a6)
  2275.     move.l    d0,$A04(a4)
  2276.     moveq    #-1,d0
  2277.     bra.s    c1C32
  2278.  
  2279. c1BE2:    moveq    #0,d6
  2280.     bra.s    c1C2A
  2281.  
  2282. ReadBytes3:    move.l    (a3),d1
  2283.     move.l    4(a3),d2
  2284.     move.l    8(a3),d3
  2285.     movea.l    $420(a4),a6
  2286.     jsr    Read(a6)
  2287.     tst.l    d0
  2288.     bpl.s    WriteBytes2
  2289.     jsr    IoErr(a6)
  2290.     move.l    d0,$A04(a4)
  2291.     moveq    #-1,d0
  2292.     bra.s    c1C32
  2293.  
  2294. WriteBytes2:    move.l    d7,d1
  2295.     move.l    4(a3),d2
  2296.     move.l    8(a3),d3
  2297.     jsr    Write(a6)
  2298.     tst.l    d0
  2299.     bpl.s    c1C26
  2300.     jsr    IoErr(a6)
  2301.     move.l    d0,$A04(a4)
  2302.     moveq    #-1,d0
  2303.     bra.s    c1C32
  2304.  
  2305. c1C26:    sub.l    8(a3),d6
  2306. c1C2A:    tst.l    d6
  2307.     bne.l    ReadBytes2
  2308.     moveq    #0,d0
  2309. c1C32:    movem.l    (sp)+,d2/d3/d6/d7/a3/a6
  2310.     rts
  2311.  
  2312. c1C38:    link.w    a5,#-8
  2313.     movem.l    d2-d7/a2/a3/a6,-(sp)
  2314.     movea.l    a0,a3
  2315.     movea.l    a1,a2
  2316.     move.l    d0,d7
  2317.     moveq    #0,d6
  2318.     bra.l    c1DE6
  2319.  
  2320. c1C4C:    movea.l    a2,a0
  2321.     bsr.l    c1940
  2322.     tst.l    d0
  2323.     bpl.s    c1C5C
  2324.     moveq    #-1,d0
  2325.     bra.l    c1DEE
  2326.  
  2327. c1C5C:    move.l    12(a3),d0
  2328.     move.l    $14(a3),d1
  2329.     sub.l    d0,d1
  2330.     move.l    d1,d5
  2331.     move.l    12(a2),d1
  2332.     move.l    8(a2),d2
  2333.     sub.l    d1,d2
  2334.     move.l    d2,d4
  2335.     tst.l    d5
  2336.     ble.l    c1D00
  2337.     movea.l    4(a2),a0
  2338.     adda.l    d1,a0
  2339.     movea.l    4(a3),a1
  2340.     adda.l    d0,a1
  2341.     move.l    a0,$28(sp)
  2342.     cmp.l    d4,d5
  2343.     ble.s    c1CC8
  2344.     movea.l    a1,a0
  2345.     movea.l    $28(sp),a1
  2346.     move.l    d4,d0
  2347.     movea.l    4,a6
  2348.     jsr    CopyMem(a6)
  2349.     move.l    8(a2),d0
  2350.     move.l    d0,d1
  2351.     sub.l    12(a2),d1
  2352.     add.l    d1,d6
  2353.     sub.l    d1,d7
  2354.     add.l    d1,12(a3)
  2355.     move.l    8(a2),d0
  2356.     move.l    d0,12(a2)
  2357.     move.l    8(a2),$14(a2)
  2358.     bset    #2,$1B(a2)
  2359.     bra.l    c1DE6
  2360.  
  2361. c1CC8:    movea.l    a1,a0
  2362.     movea.l    $28(sp),a1
  2363.     move.l    d5,d0
  2364.     movea.l    4,a6
  2365.     jsr    CopyMem(a6)
  2366.     move.l    $14(a3),d0
  2367.     move.l    d0,d1
  2368.     sub.l    12(a3),d1
  2369.     add.l    d1,d6
  2370.     sub.l    d1,d7
  2371.     add.l    d1,$14(a2)
  2372.     move.l    $14(a2),12(a2)
  2373.     move.l    $14(a3),12(a3)
  2374.     bset    #2,$1B(a2)
  2375.     bra.l    c1DE6
  2376.  
  2377. c1D00:    cmp.l    d4,d7
  2378.     ble.l    c1D84
  2379.     move.l    (a3),d1
  2380.     move.l    $10(a3),d2
  2381.     moveq    #-1,d3
  2382.     movea.l    $420(a4),a6
  2383.     jsr    Seek(a6)
  2384.     tst.l    d0
  2385.     bpl.s    ReadBytes4
  2386.     jsr    IoErr(a6)
  2387.     move.l    d0,$A04(a4)
  2388.     move.l    d3,d0
  2389.     bra.l    c1DEE
  2390.  
  2391. ReadBytes4:    move.l    12(a2),d0
  2392.     movea.l    4(a2),a0
  2393.     adda.l    d0,a0
  2394.     move.l    8(a2),d1
  2395.     sub.l    d0,d1
  2396.     move.l    a0,d2
  2397.     move.l    d1,d3
  2398.     move.l    (a3),d1
  2399.     jsr    Read(a6)
  2400.     tst.l    d0
  2401.     bpl.s    c1D54
  2402.     jsr    IoErr(a6)
  2403.     move.l    d0,$A04(a4)
  2404.     moveq    #-1,d0
  2405.     bra.l    c1DEE
  2406.  
  2407. c1D54:    bset    #2,$1B(a2)
  2408.     move.l    12(a2),d0
  2409.     move.l    8(a2),d1
  2410.     move.l    d1,d2
  2411.     sub.l    d0,d2
  2412.     add.l    d2,d6
  2413.     add.l    d2,$10(a3)
  2414.     move.l    8(a2),d0
  2415.     move.l    d0,d1
  2416.     sub.l    12(a2),d1
  2417.     sub.l    d1,d7
  2418.     move.l    d0,12(a2)
  2419.     move.l    8(a2),$14(a2)
  2420.     bra.s    c1DE6
  2421.  
  2422. c1D84:    move.l    (a3),d1
  2423.     move.l    $10(a3),d2
  2424.     moveq    #-1,d3
  2425.     movea.l    $420(a4),a6
  2426.     jsr    Seek(a6)
  2427.     tst.l    d0
  2428.     bpl.s    ReadBytes5
  2429.     jsr    IoErr(a6)
  2430.     move.l    d0,$A04(a4)
  2431.     move.l    d3,d0
  2432.     bra.s    c1DEE
  2433.  
  2434. ReadBytes5:    movea.l    4(a2),a0
  2435.     adda.l    12(a2),a0
  2436.     move.l    a0,d2
  2437.     move.l    (a3),d1
  2438.     move.l    d7,d3
  2439.     jsr    Read(a6)
  2440.     tst.l    d0
  2441.     bpl.s    c1DC6
  2442.     jsr    IoErr(a6)
  2443.     move.l    d0,$A04(a4)
  2444.     moveq    #-1,d0
  2445.     bra.s    c1DEE
  2446.  
  2447. c1DC6:    bset    #2,$1B(a2)
  2448.     add.l    d3,12(a2)
  2449.     add.l    d3,$10(a3)
  2450.     move.l    12(a2),d0
  2451.     cmp.l    $14(a2),d0
  2452.     ble.s    c1DE2
  2453.     move.l    d0,$14(a2)
  2454. c1DE2:    add.l    d3,d6
  2455.     moveq    #0,d7
  2456. c1DE6:    tst.l    d7
  2457.     bne.l    c1C4C
  2458.     move.l    d6,d0
  2459. c1DEE:    movem.l    (sp)+,d2-d7/a2/a3/a6
  2460.     unlk    a5
  2461.     rts
  2462.  
  2463. c1DF6:    movem.l    d2-d7/a2/a3/a6,-(sp)
  2464.     move.l    d0,d7
  2465.     movea.l    a0,a3
  2466.     move.l    d1,d6
  2467.     moveq    #0,d5
  2468.     bra.l    c1EAA
  2469.  
  2470. c1E06:    movea.l    a3,a0
  2471.     bsr.l    c1940
  2472.     tst.l    d0
  2473.     bpl.s    ReadBytes6
  2474.     moveq    #-1,d0
  2475.     bra.l    c1EB2
  2476.  
  2477. ReadBytes6:    move.l    12(a3),d0
  2478.     move.l    8(a3),d1
  2479.     sub.l    d0,d1
  2480.     move.l    d1,d4
  2481.     movea.l    4(a3),a0
  2482.     adda.l    d0,a0
  2483.     movea.l    a0,a2
  2484.     cmp.l    d4,d6
  2485.     ble.s    ReadBytes7
  2486.     move.l    d7,d1
  2487.     move.l    a2,d2
  2488.     move.l    d4,d3
  2489.     movea.l    $420(a4),a6
  2490.     jsr    Read(a6)
  2491.     move.l    8(a3),d1
  2492.     sub.l    12(a3),d1
  2493.     move.l    d1,d4
  2494.     cmp.l    d4,d0
  2495.     beq.s    c1E56
  2496.     jsr    IoErr(a6)
  2497.     move.l    d0,$A04(a4)
  2498.     moveq    #-1,d0
  2499.     bra.s    c1EB2
  2500.  
  2501. c1E56:    bset    #2,$1B(a3)
  2502.     add.l    d4,d5
  2503.     sub.l    d4,d6
  2504.     move.l    8(a3),d0
  2505.     move.l    d0,12(a3)
  2506.     move.l    8(a3),$14(a3)
  2507.     bra.s    c1EAA
  2508.  
  2509. ReadBytes7:    move.l    d7,d1
  2510.     move.l    a2,d2
  2511.     move.l    d6,d3
  2512.     movea.l    $420(a4),a6
  2513.     jsr    Read(a6)
  2514.     tst.l    d0
  2515.     bpl.s    c1E8E
  2516.     jsr    IoErr(a6)
  2517.     move.l    d0,$A04(a4)
  2518.     moveq    #-1,d0
  2519.     bra.s    c1EB2
  2520.  
  2521. c1E8E:    bset    #2,$1B(a3)
  2522.     add.l    d3,12(a3)
  2523.     move.l    12(a3),d0
  2524.     cmp.l    $14(a3),d0
  2525.     ble.s    c1EA6
  2526.     move.l    d0,$14(a3)
  2527. c1EA6:    add.l    d3,d5
  2528.     moveq    #0,d6
  2529. c1EAA:    tst.l    d6
  2530.     bne.l    c1E06
  2531.     move.l    d5,d0
  2532. c1EB2:    movem.l    (sp)+,d2-d7/a2/a3/a6
  2533.     rts
  2534.  
  2535. c1EB8:    link.w    a5,#-$10
  2536.     movem.l    d2-d7/a2/a3/a6,-(sp)
  2537.     move.l    d0,d7
  2538.     movea.l    a0,a3
  2539.     move.l    d1,d6
  2540.     move.l    a1,-$10(a5)
  2541.     moveq    #0,d5
  2542.     bra.l    c1FA4
  2543.  
  2544. c1ED0:    movea.l    a3,a0
  2545.     bsr.l    c1940
  2546.     tst.l    d0
  2547.     bpl.s    ReadBytes8
  2548.     moveq    #-1,d0
  2549.     bra.l    c1FAC
  2550.  
  2551. ReadBytes8:    move.l    12(a3),d0
  2552.     move.l    8(a3),d1
  2553.     sub.l    d0,d1
  2554.     move.l    d1,d4
  2555.     movea.l    4(a3),a0
  2556.     adda.l    d0,a0
  2557.     movea.l    a0,a2
  2558.     cmp.l    d4,d6
  2559.     ble.s    ReadBytes9
  2560.     move.l    d7,d1
  2561.     move.l    a2,d2
  2562.     move.l    d4,d3
  2563.     movea.l    $420(a4),a6
  2564.     jsr    Read(a6)
  2565.     tst.l    d0
  2566.     bpl.s    c1F18
  2567.     jsr    IoErr(a6)
  2568.     move.l    d0,$A04(a4)
  2569.     moveq    #-1,d0
  2570.     bra.l    c1FAC
  2571.  
  2572. c1F18:    movea.l    4(a3),a0
  2573.     adda.l    12(a3),a0
  2574.     movea.l    -$10(a5),a1
  2575.     move.w    (a1),d0
  2576.     ext.l    d0
  2577.     move.l    d3,d1
  2578.     jsr    c6FBE(pc)
  2579.     movea.l    -$10(a5),a0
  2580.     move.w    d0,(a0)
  2581.     bset    #2,$1B(a3)
  2582.     add.l    d4,d5
  2583.     sub.l    d4,d6
  2584.     move.l    8(a3),d0
  2585.     move.l    d0,$14(a3)
  2586.     move.l    8(a3),12(a3)
  2587.     bra.s    c1FA4
  2588.  
  2589. ReadBytes9:    move.l    d7,d1
  2590.     move.l    a2,d2
  2591.     move.l    d6,d3
  2592.     movea.l    $420(a4),a6
  2593.     jsr    Read(a6)
  2594.     tst.l    d0
  2595.     bpl.s    c1F6C
  2596.     jsr    IoErr(a6)
  2597.     move.l    d0,$A04(a4)
  2598.     moveq    #-1,d0
  2599.     bra.s    c1FAC
  2600.  
  2601. c1F6C:    movea.l    4(a3),a0
  2602.     adda.l    12(a3),a0
  2603.     movea.l    -$10(a5),a1
  2604.     move.w    (a1),d0
  2605.     ext.l    d0
  2606.     move.l    d3,d1
  2607.     jsr    c6FBE(pc)
  2608.     movea.l    -$10(a5),a0
  2609.     move.w    d0,(a0)
  2610.     bset    #2,$1B(a3)
  2611.     add.l    d6,12(a3)
  2612.     move.l    12(a3),d0
  2613.     cmp.l    $14(a3),d0
  2614.     ble.s    c1FA0
  2615.     move.l    d0,$14(a3)
  2616. c1FA0:    add.l    d6,d5
  2617.     moveq    #0,d6
  2618. c1FA4:    tst.l    d6
  2619.     bne.l    c1ED0
  2620.     move.l    d5,d0
  2621. c1FAC:    movem.l    (sp)+,d2-d7/a2/a3/a6
  2622.     unlk    a5
  2623.     rts
  2624.  
  2625. c1FB4:    movem.l    d7/a3,-(sp)
  2626.     move.l    d0,d7
  2627.     movea.l    a0,a3
  2628.     tst.l    4(a3)
  2629.     bne.s    c1FD0
  2630.     movea.l    a3,a0
  2631.     bsr.l    c1940
  2632.     tst.l    d0
  2633.     bpl.s    c1FD0
  2634.     moveq    #-1,d0
  2635.     bra.s    c2014
  2636.  
  2637. c1FD0:    btst    #1,$1B(a3)
  2638.     beq.s    c1FDC
  2639.     moveq    #-1,d0
  2640.     bra.s    c2014
  2641.  
  2642. c1FDC:    move.l    12(a3),d0
  2643.     addq.l    #1,12(a3)
  2644.     movea.l    4(a3),a0
  2645.     adda.l    d0,a0
  2646.     move.b    d7,(a0)
  2647.     move.l    12(a3),d0
  2648.     cmp.l    $14(a3),d0
  2649.     ble.s    c1FFA
  2650.     move.l    d0,$14(a3)
  2651. c1FFA:    bset    #2,$1B(a3)
  2652.     move.l    12(a3),d0
  2653.     cmp.l    8(a3),d0
  2654.     blt.s    c2012
  2655.     movea.l    a3,a0
  2656.     bsr.l    c1940
  2657.     bra.s    c2014
  2658.  
  2659. c2012:    moveq    #0,d0
  2660. c2014:    movem.l    (sp)+,d7/a3
  2661.     rts
  2662.  
  2663. c201A:    move.l    a3,-(sp)
  2664.     movea.l    a0,a3
  2665.     movea.l    a3,a0
  2666.     bsr.l    c1940
  2667.     tst.l    d0
  2668.     bgt.s    c2032
  2669.     bset    #0,$1B(a3)
  2670.     moveq    #-1,d0
  2671.     bra.s    c2044
  2672.  
  2673. c2032:    move.l    12(a3),d0
  2674.     addq.l    #1,12(a3)
  2675.     movea.l    4(a3),a0
  2676.     adda.l    d0,a0
  2677.     moveq    #0,d0
  2678.     move.b    (a0),d0
  2679. c2044:    movea.l    (sp)+,a3
  2680.     rts
  2681.  
  2682.     movem.l    d2/d6/d7/a3,-(sp)
  2683.     movea.l    a0,a3
  2684.     movea.l    a3,a0
  2685.     bsr.s    c201A
  2686.     move.l    d0,d7
  2687.     movea.l    a3,a0
  2688.     bsr.s    c201A
  2689.     move.l    d0,d6
  2690.     moveq    #-1,d0
  2691.     cmp.l    d0,d7
  2692.     beq.s    c207A
  2693.     cmp.l    d0,d6
  2694.     beq.s    c207A
  2695.     move.l    d7,d0
  2696.     moveq    #0,d1
  2697.     not.b    d1
  2698.     and.l    d1,d0
  2699.     move.l    d6,d1
  2700.     moveq    #0,d2
  2701.     not.b    d2
  2702.     and.l    d2,d1
  2703.     asl.l    #8,d1
  2704.     or.l    d0,d1
  2705.     move.l    d1,d0
  2706. c207A:    movem.l    (sp)+,d2/d6/d7/a3
  2707.     rts
  2708.  
  2709.     link.w    a5,#-12
  2710.     move.l    a3,-(sp)
  2711.     movea.l    a0,a3
  2712.     movea.l    a3,a0
  2713.     bsr.s    c201A
  2714.     move.l    d0,4(sp)
  2715.     movea.l    a3,a0
  2716.     bsr.s    c201A
  2717.     move.l    d0,8(sp)
  2718.     movea.l    a3,a0
  2719.     bsr.l    c201A
  2720.     move.l    d0,12(sp)
  2721.     movea.l    a3,a0
  2722.     bsr.l    c201A
  2723.     asl.l    #8,d0
  2724.     move.l    12(sp),d1
  2725.     or.l    d1,d0
  2726.     asl.l    #8,d0
  2727.     move.l    8(sp),d1
  2728.     or.l    d1,d0
  2729.     asl.l    #8,d0
  2730.     move.l    4(sp),d1
  2731.     or.l    d1,d0
  2732.     movea.l    (sp)+,a3
  2733.     unlk    a5
  2734.     rts
  2735.  
  2736. c20C6:    move.l    a3,-(sp)
  2737.     movea.l    a0,a3
  2738.     btst    #0,$1B(a3)
  2739.     beq.s    c20D6
  2740.     moveq    #1,d0
  2741.     bra.s    c20EE
  2742.  
  2743. c20D6:    move.l    $14(a3),d0
  2744.     cmp.l    8(a3),d0
  2745.     bge.s    c20EC
  2746.     move.l    12(a3),d1
  2747.     cmp.l    d0,d1
  2748.     blt.s    c20EC
  2749.     moveq    #1,d0
  2750.     bra.s    c20EE
  2751.  
  2752. c20EC:    moveq    #0,d0
  2753. c20EE:    movea.l    (sp)+,a3
  2754.     rts
  2755.  
  2756. c20F2:    move.l    a3,-(sp)
  2757.     movea.l    a0,a3
  2758.     move.l    $10(a3),d0
  2759.     add.l    12(a3),d0
  2760.     movea.l    (sp)+,a3
  2761.     rts
  2762.  
  2763.     dc.w    0
  2764.  
  2765. c2104:    jmp    cA8C4
  2766.  
  2767. c210A:    jmp    cA7AA
  2768.  
  2769. c2110:    jmp    cA93A
  2770.  
  2771.     moveq    #$61,d0
  2772. c2118:    move.l    a3,-(sp)
  2773.     movea.l    a0,a3
  2774.     movea.l    4(a3),a0
  2775.     movea.l    (a3),a1
  2776.     move.l    a1,(a0)
  2777.     movea.l    (a3),a0
  2778.     move.l    4(a3),4(a0)
  2779.     movea.l    (sp)+,a3
  2780.     rts
  2781.  
  2782. c2130:    movem.l    a2/a3,-(sp)
  2783.     movea.l    a0,a3
  2784.     movea.l    a1,a2
  2785.     movea.l    4(a2),a0
  2786.     move.l    a0,4(a3)
  2787.     move.l    a2,(a3)
  2788.     movea.l    4(a2),a0
  2789.     move.l    a3,(a0)
  2790.     move.l    a3,4(a2)
  2791.     movem.l    (sp)+,a2/a3
  2792.     rts
  2793.  
  2794.     movem.l    a2/a3,-(sp)
  2795.     movea.l    a0,a3
  2796.     movea.l    a1,a2
  2797.     movea.l    4(a2),a0
  2798.     cmpa.l    a3,a0
  2799.     seq    d0
  2800.     neg.b    d0
  2801.     ext.w    d0
  2802.     ext.l    d0
  2803.     movem.l    (sp)+,a2/a3
  2804.     rts
  2805.  
  2806. c216E:    movem.l    a2/a3,-(sp)
  2807.     movea.l    a0,a3
  2808.     movea.l    a1,a2
  2809.     movea.l    4(a2),a0
  2810.     move.l    a0,4(a3)
  2811.     movea.l    4(a2),a0
  2812.     move.l    a3,(a0)
  2813.     move.l    a2,(a3)
  2814.     move.l    a3,4(a2)
  2815.     movem.l    (sp)+,a2/a3
  2816.     rts
  2817.  
  2818.     movem.l    a2/a3,-(sp)
  2819.     movea.l    a0,a3
  2820.     movea.l    a1,a2
  2821.     move.l    a2,4(a3)
  2822.     movea.l    (a2),a0
  2823.     move.l    a0,(a3)
  2824.     movea.l    (a2),a0
  2825.     move.l    a3,4(a0)
  2826.     move.l    a3,(a2)
  2827.     movem.l    (sp)+,a2/a3
  2828.     rts
  2829.  
  2830. c21AE:    move.l    a3,-(sp)
  2831.     movea.l    a0,a3
  2832.     move.l    a3,(a3)
  2833.     move.l    a3,4(a3)
  2834.     movea.l    (sp)+,a3
  2835.     rts
  2836.  
  2837. c21BC:    move.l    d7,-(sp)
  2838.     move.l    d0,d7
  2839.     move.l    d7,d0
  2840.     jsr    c0168(pc)
  2841.     move.l    (sp)+,d7
  2842.     rts
  2843.  
  2844. LhAUseraborte.MSG:    dc.b    10
  2845.     dc.b    '** LhA: User aborted',$A,0
  2846.     dc.b    0
  2847. p.MSG:    dc.b    $1B
  2848.     dc.b    '[0 p',0
  2849. p.MSG0:    dc.b    $1B
  2850.     dc.b    '[ p',0,0
  2851. m7m.MSG:    dc.b    $1B
  2852.     dc.b    '[3m'
  2853.     dc.b    $1B
  2854.     dc.b    '[7m',0,0
  2855. m.MSG:    dc.b    $1B
  2856.     dc.b    '[0m',0,0
  2857. PausedPressan.MSG:    dc.b    'Paused. Press any key to continue...',0,0
  2858. K.MSG:    dc.b    13
  2859.     dc.b    $1B
  2860.     dc.b    '[K',0,0
  2861. ascii.MSG1:    dc.b    12
  2862.     dc.b    0
  2863. YESNOetc:    dc.b    10
  2864.     dc.b    '%s (Y/N/A/Q): '
  2865.     dc.b    $1B
  2866.     dc.b    '[K',0,0
  2867. K.MSG0:    dc.b    13
  2868.     dc.b    $1B
  2869.     dc.b    '[K'
  2870.     dc.b    11
  2871.     dc.b    0
  2872.  
  2873. c2246:    movem.l    d5-d7,-(sp)
  2874.     move.l    d0,d7
  2875.     move.l    d1,d6
  2876.     tst.l    d7
  2877.     beq.s    c227A
  2878.     bra.s    c2258
  2879.  
  2880. c2254:    asr.l    #1,d7
  2881.     asr.l    #1,d6
  2882. c2258:    move.l    d7,d5
  2883.     sub.l    d6,d5
  2884.     move.l    d5,d0
  2885.     andi.l    #$FFF00000,d0
  2886.     bne.s    c2254
  2887.     move.l    d5,d0
  2888.     move.l    #$3E8,d1
  2889.     jsr    c29CC(pc)
  2890.     move.l    d7,d1
  2891.     jsr    c29B4(pc)
  2892.     bra.s    c227C
  2893.  
  2894. c227A:    moveq    #0,d0
  2895. c227C:    movem.l    (sp)+,d5-d7
  2896.     rts
  2897.  
  2898. c2282:    movem.l    d2/d3/a6,-(sp)
  2899.     tst.l    $1B0(a4)
  2900.     bne.s    c22C0
  2901.     moveq    #0,d0
  2902.     move.l    d0,d1
  2903.     movea.l    4,a6
  2904.     jsr    SetSignal(a6)
  2905.     btst    #12,d0
  2906.     beq.s    c22C0
  2907.     movea.l    $420(a4),a6
  2908.     jsr    -$3C(a6)
  2909.     move.l    d0,d1
  2910.     lea    LhAUseraborte.MSG(pc),a0
  2911.     move.l    a0,d2
  2912.     moveq    #$16,d3
  2913.     jsr    -$30(a6)
  2914.     moveq    #1,d0
  2915.     move.l    d0,$1B0(a4)
  2916.     moveq    #$14,d0
  2917.     bsr.l    c21BC
  2918. c22C0:    movem.l    (sp)+,d2/d3/a6
  2919.     rts
  2920.  
  2921. c22C6:    link.w    a5,#-$400
  2922.     movem.l    d2/d3/a6,-(sp)
  2923.     lea    -$400(a5),a0
  2924.     move.l    a0,d0
  2925.     movea.l    8(a5),a0
  2926.     lea    12(a5),a1
  2927.     jsr    c29C6(pc)
  2928.     tst.l    $848(a4)
  2929.     beq.s    c22FC
  2930.     lea    -$400(a5),a0
  2931.     movea.l    a0,a1
  2932. c22EC:    tst.b    (a1)+
  2933.     bne.s    c22EC
  2934.     subq.l    #1,a1
  2935.     suba.l    a0,a1
  2936.     move.l    a1,d0
  2937.     bsr.l    c24DA
  2938.     bra.s    c231C
  2939.  
  2940. c22FC:    movea.l    $420(a4),a6
  2941.     jsr    -$3C(a6)
  2942.     lea    -$400(a5),a0
  2943.     movea.l    a0,a1
  2944. c230A:    tst.b    (a1)+
  2945.     bne.s    c230A
  2946.     subq.l    #1,a1
  2947.     suba.l    a0,a1
  2948.     move.l    d0,d1
  2949.     move.l    a0,d2
  2950.     move.l    a1,d3
  2951.     jsr    -$30(a6)
  2952. c231C:    bsr.l    c2282
  2953.     movem.l    (sp)+,d2/d3/a6
  2954.     unlk    a5
  2955.     rts
  2956.  
  2957. c2328:    link.w    a5,#-$400
  2958.     movem.l    d2/d3/a6,-(sp)
  2959.     tst.l    $830(a4)
  2960.     bne.s    c236C
  2961.     lea    -$400(a5),a0
  2962.     move.l    a0,d0
  2963.     movea.l    8(a5),a0
  2964.     lea    12(a5),a1
  2965.     jsr    c29C6(pc)
  2966.     movea.l    $420(a4),a6
  2967.     jsr    -$3C(a6)
  2968.     lea    -$400(a5),a0
  2969.     movea.l    a0,a1
  2970. c2356:    tst.b    (a1)+
  2971.     bne.s    c2356
  2972.     subq.l    #1,a1
  2973.     suba.l    a0,a1
  2974.     move.l    d0,d1
  2975.     move.l    a0,d2
  2976.     move.l    a1,d3
  2977.     jsr    -$30(a6)
  2978.     bsr.l    c2282
  2979. c236C:    movem.l    (sp)+,d2/d3/a6
  2980.     unlk    a5
  2981.     rts
  2982.  
  2983. c2374:    link.w    a5,#0
  2984.     move.l    a3,-(sp)
  2985.     movea.l    8(a5),a3
  2986.     move.l    a3,d0
  2987.     movea.l    12(a5),a0
  2988.     lea    $10(a5),a1
  2989.     jsr    c29C6(pc)
  2990.     movea.l    (sp)+,a3
  2991.     unlk    a5
  2992.     rts
  2993.  
  2994. c2392:    movem.l    d5-d7/a2/a3,-(sp)
  2995.     move.l    d0,d7
  2996.     movea.l    a0,a3
  2997.     moveq    #7,d6
  2998.     moveq    #0,d5
  2999.     bra.s    c23D4
  3000.  
  3001. c23A0:    move.l    d5,d0
  3002.     move.l    d0,d5
  3003.     addq.w    #1,d5
  3004.     movea.l    a3,a2
  3005.     adda.w    d0,a2
  3006.     move.l    d6,d0
  3007.     ext.l    d0
  3008.     moveq    #1,d1
  3009.     asl.l    d0,d1
  3010.     move.l    d7,d0
  3011.     ext.l    d0
  3012.     and.l    d1,d0
  3013.     beq.s    c23C6
  3014.     moveq    #0,d0
  3015.     lea    $1B4(a4),a0
  3016.     move.b    0(a0,d6.w),d0
  3017.     bra.s    c23D0
  3018.  
  3019. c23C6:    moveq    #0,d0
  3020.     lea    $1BD(a4),a0
  3021.     move.b    0(a0,d6.w),d0
  3022. c23D0:    move.b    d0,(a2)
  3023.     subq.w    #1,d6
  3024. c23D4:    tst.w    d6
  3025.     bpl.s    c23A0
  3026.     clr.b    8(a3)
  3027.     movem.l    (sp)+,d5-d7/a2/a3
  3028.     rts
  3029.  
  3030. c23E2:    pea    p.MSG(pc)
  3031.     bsr.l    c2328
  3032.     addq.w    #4,sp
  3033.     rts
  3034.  
  3035. c23EE:    pea    p.MSG0(pc)
  3036.     bsr.l    c2328
  3037.     addq.w    #4,sp
  3038.     rts
  3039.  
  3040. c23FA:    pea    m7m.MSG(pc)
  3041.     bsr.l    c2328
  3042.     addq.w    #4,sp
  3043.     rts
  3044.  
  3045. c2406:    pea    m.MSG(pc)
  3046.     bsr.l    c2328
  3047.     addq.w    #4,sp
  3048.     rts
  3049.  
  3050. c2412:    link.w    a5,#-8
  3051.     move.l    a6,-(sp)
  3052.     moveq    #-1,d0
  3053.     move.l    d0,-4(a5)
  3054.     suba.l    a1,a1
  3055.     movea.l    4,a6
  3056.     jsr    -$126(a6)
  3057.     move.l    d0,4(sp)
  3058.     movea.l    d0,a0
  3059.     tst.l    $A4(a0)
  3060.     beq.s    c244E
  3061.     move.l    #$3E2,d0
  3062.     lea    -4(a5),a0
  3063.     movea.l    4(sp),a1
  3064.     movea.l    $A4(a1),a1
  3065.     movea.l    $424(a4),a6
  3066.     jsr    -$13E(a6)
  3067. c244E:    movea.l    (sp)+,a6
  3068.     unlk    a5
  3069.     rts
  3070.  
  3071. c2454:    link.w    a5,#-8
  3072.     move.l    a6,-(sp)
  3073.     clr.l    -4(a5)
  3074.     suba.l    a1,a1
  3075.     movea.l    4,a6
  3076.     jsr    -$126(a6)
  3077.     move.l    d0,4(sp)
  3078.     movea.l    d0,a0
  3079.     tst.l    $A4(a0)
  3080.     beq.s    c248E
  3081.     move.l    #$3E2,d0
  3082.     lea    -4(a5),a0
  3083.     movea.l    4(sp),a1
  3084.     movea.l    $A4(a1),a1
  3085.     movea.l    $424(a4),a6
  3086.     jsr    -$13E(a6)
  3087. c248E:    movea.l    (sp)+,a6
  3088.     unlk    a5
  3089.     rts
  3090.  
  3091. c2494:    link.w    a5,#-4
  3092.     movem.l    d2/d3/a6,-(sp)
  3093.     bsr.l    c23FA
  3094.     pea    PausedPressan.MSG(pc)
  3095.     bsr.l    c2328
  3096.     bsr.l    c2406
  3097.     bsr.l    c2412
  3098.     movea.l    $420(a4),a6
  3099.     jsr    -$36(a6)
  3100.     move.l    d0,d1
  3101.     lea    -1(a5),a0
  3102.     move.l    a0,d2
  3103.     moveq    #1,d3
  3104.     jsr    -$2A(a6)
  3105.     bsr.s    c2454
  3106.     pea    K.MSG(pc)
  3107.     bsr.l    c2328
  3108.     movem.l    -$10(a5),d2/d3/a6
  3109.     unlk    a5
  3110.     rts
  3111.  
  3112. c24DA:    link.w    a5,#-8
  3113.     movem.l    d2/d3/d7/a2/a3/a6,-(sp)
  3114.     movea.l    a0,a3
  3115.     move.l    d0,d7
  3116.     bsr.l    c2628
  3117.     move.l    d0,$EC(a4)
  3118.     bra.s    c255C
  3119.  
  3120. c24F0:    movea.l    a3,a2
  3121. c24F2:    subq.l    #1,d7
  3122.     move.b    (a3)+,d0
  3123.     moveq    #10,d1
  3124.     cmp.b    d1,d0
  3125.     beq.s    c2500
  3126.     tst.l    d7
  3127.     bne.s    c24F2
  3128. c2500:    movea.l    $420(a4),a6
  3129.     jsr    -$3C(a6)
  3130.     move.l    a3,d1
  3131.     move.l    a2,d2
  3132.     sub.l    d2,d1
  3133.     move.l    d1,$1C(sp)
  3134.     move.l    d0,d1
  3135.     move.l    a2,d2
  3136.     move.l    $1C(sp),d3
  3137.     jsr    -$30(a6)
  3138.     bsr.l    c2282
  3139.     moveq    #10,d0
  3140.     cmp.b    -1(a3),d0
  3141.     bne.s    c252E
  3142.     addq.l    #1,$1C6(a4)
  3143. c252E:    tst.l    $848(a4)
  3144.     beq.s    c255C
  3145.     move.l    $EC(a4),d0
  3146.     subq.l    #1,d0
  3147.     move.l    $1C6(a4),d1
  3148.     cmp.l    d0,d1
  3149.     blt.s    c255C
  3150.     clr.l    $1C6(a4)
  3151.     bsr.l    c2494
  3152.     moveq    #1,d0
  3153.     cmp.l    $848(a4),d0
  3154.     bne.s    c255C
  3155.     pea    ascii.MSG1(pc)
  3156.     bsr.l    c2328
  3157.     addq.w    #4,sp
  3158. c255C:    tst.l    d7
  3159.     bne.s    c24F0
  3160.     movem.l    (sp)+,d2/d3/d7/a2/a3/a6
  3161.     unlk    a5
  3162.     rts
  3163.  
  3164. c2568:    link.w    a5,#-4
  3165.     movem.l    d2/d3/a6,-(sp)
  3166.     bsr.l    c23EE
  3167.     bsr.l    c2412
  3168.     movea.l    $420(a4),a6
  3169.     jsr    -$36(a6)
  3170.     move.l    d0,d1
  3171.     lea    -1(a5),a0
  3172.     move.l    a0,d2
  3173.     moveq    #1,d3
  3174.     jsr    -$2A(a6)
  3175.     bsr.l    c2454
  3176.     bsr.l    c23E2
  3177.     move.b    -1(a5),d0
  3178.     movem.l    (sp)+,d2/d3/a6
  3179.     unlk    a5
  3180.     rts
  3181.  
  3182. c25A2:    movem.l    d7/a3,-(sp)
  3183.     move.l    d0,d7
  3184.     movea.l    a0,a3
  3185.     lea    $A08(a4),a0
  3186.     tst.b    0(a0,d7.l)
  3187.     bne.s    c25BA
  3188.     tst.l    $868(a4)
  3189.     beq.s    c25BE
  3190. c25BA:    moveq    #1,d0
  3191.     bra.s    c2622
  3192.  
  3193. c25BE:    move.l    a3,-(sp)
  3194.     pea    YESNOetc(pc)
  3195.     bsr.l    c2328
  3196.     addq.w    #8,sp
  3197. c25CA:    bsr.s    c2568
  3198.     moveq    #0,d1
  3199.     move.b    d0,d1
  3200.     subi.w    #$41,d1
  3201.     beq.s    c25F8
  3202.     subi.w    #13,d1
  3203.     beq.s    c2606
  3204.     subq.w    #3,d1
  3205.     beq.s    c260A
  3206.     subq.w    #8,d1
  3207.     beq.s    c2602
  3208.     subq.w    #8,d1
  3209.     beq.s    c25F8
  3210.     subi.w    #13,d1
  3211.     beq.s    c2606
  3212.     subq.w    #3,d1
  3213.     beq.s    c260A
  3214.     subq.w    #8,d1
  3215.     beq.s    c2602
  3216.     bra.s    c25CA
  3217.  
  3218. c25F8:    lea    $A08(a4),a0
  3219.     move.b    #1,0(a0,d7.l)
  3220. c2602:    moveq    #1,d7
  3221.     bra.s    c260C
  3222.  
  3223. c2606:    moveq    #0,d7
  3224.     bra.s    c260C
  3225.  
  3226. c260A:    moveq    #-1,d7
  3227. c260C:    pea    K.MSG0(pc)
  3228.     bsr.l    c2328
  3229.     addq.w    #4,sp
  3230.     tst.l    d7
  3231.     bpl.s    c2620
  3232.     moveq    #$14,d0
  3233.     bsr.l    c21BC
  3234. c2620:    move.l    d7,d0
  3235. c2622:    movem.l    (sp)+,d7/a3
  3236.     rts
  3237.  
  3238. c2628:    link.w    a5,#-12
  3239.     movem.l    d2-d4/a3/a6,-(sp)
  3240.     clr.l    -8(a5)
  3241.     moveq    #$24,d0
  3242.     moveq    #1,d1
  3243.     jsr    c29BA(pc)
  3244.     movea.l    d0,a3
  3245.     move.l    a3,d0
  3246.     bne.s    c264A
  3247.     moveq    #2,d0
  3248.     swap    d0
  3249.     bra.l    c26CE
  3250.  
  3251. c264A:    suba.l    a1,a1
  3252.     movea.l    4,a6
  3253.     jsr    -$126(a6)
  3254.     move.l    d0,$14(sp)
  3255.     movea.l    d0,a0
  3256.     tst.l    $A4(a0)
  3257.     beq.s    c26BC
  3258.     move.l    a3,d1
  3259.     asr.l    #2,d1
  3260.     move.l    d1,-8(a5)
  3261.     moveq    #$19,d0
  3262.     lea    -8(a5),a0
  3263.     movea.l    $14(sp),a1
  3264.     movea.l    $A4(a1),a1
  3265.     movea.l    $424(a4),a6
  3266.     jsr    -$13E(a6)
  3267.     move.l    $1C(a3),d0
  3268.     bne.s    c268E
  3269.     moveq    #2,d1
  3270.     swap    d1
  3271.     move.l    d1,-8(a5)
  3272.     bra.s    c26C4
  3273.  
  3274. c268E:    movea.l    d0,a1
  3275.     movea.l    $80(a1),a0
  3276.     moveq    #0,d1
  3277.     move.w    $14(a0),d1
  3278.     moveq    #0,d2
  3279.     move.b    $39(a1),d2
  3280.     moveq    #0,d3
  3281.     move.b    $37(a1),d3
  3282.     move.w    10(a1),d4
  3283.     ext.l    d4
  3284.     sub.l    d3,d4
  3285.     sub.l    d2,d4
  3286.     move.l    d4,d0
  3287.     jsr    c29B4(pc)
  3288.     move.l    d0,-8(a5)
  3289.     bra.s    c26C4
  3290.  
  3291. c26BC:    move.l    #$20000,-8(a5)
  3292. c26C4:    movea.l    a3,a0
  3293.     jsr    c29D2(pc)
  3294.     move.l    -8(a5),d0
  3295. c26CE:    movem.l    (sp)+,d2-d4/a3/a6
  3296.     unlk    a5
  3297.     rts
  3298.  
  3299. c26D6:    link.w    a5,#-$10
  3300.     movem.l    d5-d7/a2/a3,-(sp)
  3301.     movea.l    a0,a3
  3302.     movea.l    a1,a2
  3303.     move.l    (a3),d0
  3304.     move.l    d0,$16(sp)
  3305.     move.l    8(a3),d0
  3306.     moveq    #$32,d1
  3307.     jsr    c29B4(pc)
  3308.     move.l    d0,$1A(sp)
  3309.     move.l    4(a3),d0
  3310.     moveq    #$3C,d1
  3311.     jsr    c29CC(pc)
  3312.     move.l    $16(sp),d1
  3313.     move.l    d0,$1E(sp)
  3314.     move.l    #$15180,d0
  3315.     jsr    c29CC(pc)
  3316.     move.l    $1E(sp),d1
  3317.     add.l    d1,d0
  3318.     move.l    $1A(sp),d1
  3319.     add.l    d1,d0
  3320.     moveq    #$3C,d1
  3321.     move.l    d0,$1A(sp)
  3322.     jsr    c29B4(pc)
  3323.     tst.l    d1
  3324.     bpl.s    c272E
  3325.     addq.l    #1,d1
  3326. c272E:    asr.l    #1,d1
  3327.     andi.l    #$1F,d1
  3328.     move.l    (a2),d0
  3329.     andi.w    #$FFE0,d0
  3330.     or.l    d1,d0
  3331.     move.l    d0,(a2)
  3332.     move.l    $1A(sp),d0
  3333.     moveq    #$3C,d1
  3334.     jsr    c29B4(pc)
  3335.     moveq    #$3C,d1
  3336.     jsr    c29B4(pc)
  3337.     lsl.l    #5,d1
  3338.     andi.l    #$7E0,d1
  3339.     move.l    (a2),d0
  3340.     andi.w    #$F81F,d0
  3341.     or.l    d1,d0
  3342.     move.l    d0,(a2)
  3343.     move.l    $1A(sp),d0
  3344.     move.l    #$E10,d1
  3345.     jsr    c29B4(pc)
  3346.     moveq    #$18,d1
  3347.     jsr    c29B4(pc)
  3348.     lsl.l    #8,d1
  3349.     lsl.l    #3,d1
  3350.     andi.l    #$F800,d1
  3351.     move.l    (a2),d0
  3352.     andi.w    #$7FF,d0
  3353.     or.l    d1,d0
  3354.     move.l    d0,(a2)
  3355.     move.l    #$2DB,d0
  3356.     add.l    $16(sp),d0
  3357.     move.l    #$5B5,d1
  3358.     move.l    d0,$16(sp)
  3359.     jsr    c29B4(pc)
  3360.     move.l    #$5B5,d1
  3361.     move.l    d0,$1A(sp)
  3362.     jsr    c29CC(pc)
  3363.     move.l    $16(sp),d1
  3364.     sub.l    d0,d1
  3365.     move.l    d1,d7
  3366.     cmpi.l    #$16D,d7
  3367.     sle    d0
  3368.     neg.b    d0
  3369.     ext.w    d0
  3370.     ext.l    d0
  3371.     move.l    $1A(sp),d1
  3372.     asl.l    #2,d1
  3373.     move.l    d1,d6
  3374.     addi.l    #$7B8,d6
  3375.     movem.w    d0,$14(sp)
  3376.     tst.w    d0
  3377.     bne.s    c280E
  3378.     move.l    d7,d1
  3379.     subi.l    #$16E,d1
  3380.     move.l    d1,d0
  3381.     move.l    d1,$16(sp)
  3382.     move.l    #$16D,d1
  3383.     jsr    c29B4(pc)
  3384.     move.l    d6,d1
  3385.     addq.l    #1,d1
  3386.     add.l    d0,d1
  3387.     move.l    d1,d6
  3388.     move.l    $16(sp),d0
  3389.     move.l    #$16D,d1
  3390.     jsr    c29B4(pc)
  3391.     move.l    d1,d7
  3392. c280E:    cmpi.l    #$7DA,d6
  3393.     bgt.s    c281E
  3394.     cmpi.l    #$7BC,d6
  3395.     bge.s    c282C
  3396. c281E:    moveq    #0,d0
  3397.     move.l    (a2),d1
  3398.     andi.l    #$1FFFFFF,d1
  3399.     move.l    d1,(a2)
  3400.     bra.s    c284E
  3401.  
  3402. c282C:    move.l    d6,d0
  3403.     subi.l    #$7BC,d0
  3404.     swap    d0
  3405.     clr.w    d0
  3406.     lsl.l    #8,d0
  3407.     add.l    d0,d0
  3408.     andi.l    #$FE000000,d0
  3409.     move.l    (a2),d1
  3410.     andi.l    #$1FFFFFF,d1
  3411.     or.l    d0,d1
  3412.     move.l    d1,(a2)
  3413. c284E:    moveq    #0,d5
  3414.     bra.s    c2872
  3415.  
  3416. c2852:    moveq    #1,d0
  3417.     cmp.w    d0,d5
  3418.     bne.s    c2864
  3419.     move.w    $14(sp),d0
  3420.     ext.l    d0
  3421.     moveq    #$1C,d1
  3422.     add.l    d1,d0
  3423.     bra.s    c286E
  3424.  
  3425. c2864:    moveq    #0,d0
  3426.     lea    $1CA(a4),a0
  3427.     move.b    0(a0,d5.w),d0
  3428. c286E:    sub.l    d0,d7
  3429.     move.l    d6,d5
  3430. c2872:    moveq    #1,d0
  3431.     cmp.w    d0,d5
  3432.     bne.s    c288E
  3433.     move.w    $14(sp),d0
  3434.     ext.l    d0
  3435.     moveq    #$1C,d1
  3436.     add.l    d1,d0
  3437.     cmp.l    d0,d7
  3438.     sge    d1
  3439.     neg.b    d1
  3440.     ext.w    d1
  3441.     ext.l    d1
  3442.     bra.s    c28A2
  3443.  
  3444. c288E:    moveq    #0,d0
  3445.     lea    $1CA(a4),a0
  3446.     move.b    0(a0,d5.w),d0
  3447.     cmp.l    d0,d7
  3448.     sge    d1
  3449.     neg.b    d1
  3450.     ext.w    d1
  3451.     ext.l    d1
  3452. c28A2:    move.l    d5,d0
  3453.     ext.l    d0
  3454.     move.l    d0,d6
  3455.     addq.l    #1,d6
  3456.     tst.l    d1
  3457.     bne.s    c2852
  3458.     move.l    d6,d0
  3459.     swap    d0
  3460.     clr.w    d0
  3461.     lsl.l    #5,d0
  3462.     andi.l    #$1E00000,d0
  3463.     move.l    (a2),d1
  3464.     andi.l    #$FE1FFFFF,d1
  3465.     or.l    d0,d1
  3466.     move.l    d1,(a2)
  3467.     move.l    d7,d0
  3468.     addq.l    #1,d0
  3469.     swap    d0
  3470.     clr.w    d0
  3471.     andi.l    #$1F0000,d0
  3472.     andi.l    #$FFE0FFFF,d1
  3473.     or.l    d0,d1
  3474.     move.l    d1,(a2)
  3475.     movem.l    (sp)+,d5-d7/a2/a3
  3476.     unlk    a5
  3477.     rts
  3478.  
  3479. c28E8:    link.w    a5,#-4
  3480.     movem.l    d4-d7/a2/a3,-(sp)
  3481.     movea.l    a0,a3
  3482.     movea.l    a1,a2
  3483.     move.l    (a3),d0
  3484.     lsr.l    #5,d0
  3485.     andi.l    #$3F,d0
  3486.     move.l    (a3),d1
  3487.     lsr.l    #8,d1
  3488.     lsr.l    #3,d1
  3489.     andi.l    #$1F,d1
  3490.     move.l    d0,$18(sp)
  3491.     moveq    #$3C,d0
  3492.     jsr    c29C0(pc)
  3493.     move.l    $18(sp),d1
  3494.     add.l    d1,d0
  3495.     move.l    d0,4(a2)
  3496.     move.l    (a3),d0
  3497.     andi.l    #$1F,d0
  3498.     moveq    #$64,d1
  3499.     jsr    c29C0(pc)
  3500.     move.l    d0,8(a2)
  3501.     move.l    (a3),d0
  3502.     clr.w    d0
  3503.     swap    d0
  3504.     lsr.l    #8,d0
  3505.     lsr.l    #1,d0
  3506.     andi.l    #$7F,d0
  3507.     move.l    d0,d7
  3508.     move.l    d7,d0
  3509.     move.l    #$16D,d1
  3510.     jsr    c29C0(pc)
  3511.     move.l    d0,d6
  3512.     addi.l    #$2DA,d6
  3513.     tst.l    d7
  3514.     beq.s    c2962
  3515.     move.l    d7,d0
  3516.     addq.l    #3,d0
  3517.     lsr.l    #2,d0
  3518.     add.l    d0,d6
  3519. c2962:    moveq    #1,d5
  3520.     move.l    (a3),d0
  3521.     clr.w    d0
  3522.     swap    d0
  3523.     lsr.l    #5,d0
  3524.     andi.l    #15,d0
  3525.     move.l    d0,d4
  3526.     bra.s    c2994
  3527.  
  3528. c2976:    moveq    #0,d0
  3529.     lea    $1C9(a4),a0
  3530.     move.b    0(a0,d5.l),d0
  3531.     add.l    d0,d6
  3532.     moveq    #2,d0
  3533.     cmp.l    d0,d5
  3534.     bne.s    c2992
  3535.     move.l    d7,d0
  3536.     moveq    #3,d1
  3537.     and.l    d1,d0
  3538.     bne.s    c2992
  3539.     addq.l    #1,d6
  3540. c2992:    addq.l    #1,d5
  3541. c2994:    cmp.l    d4,d5
  3542.     bcs.s    c2976
  3543.     move.l    (a3),d0
  3544.     clr.w    d0
  3545.     swap    d0
  3546.     andi.l    #$1F,d0
  3547.     subq.l    #1,d0
  3548.     move.l    d6,d1
  3549.     add.l    d0,d1
  3550.     move.l    d1,(a2)
  3551.     movem.l    (sp)+,d4-d7/a2/a3
  3552.     unlk    a5
  3553.     rts
  3554.  
  3555. c29B4:    jmp    cAF2C
  3556.  
  3557. c29BA:    jmp    cA81C
  3558.  
  3559. c29C0:    jmp    cAF0C
  3560.  
  3561. c29C6:    jmp    cA6D4
  3562.  
  3563. c29CC:    jmp    cAF0C
  3564.  
  3565. c29D2:    jmp    cA894
  3566.  
  3567. c29D8:    link.w    a5,#-12
  3568.     movem.l    d7/a2/a3,-(sp)
  3569.     movea.l    a0,a3
  3570.     move.l    a1,-12(a5)
  3571.     movea.l    -12(a5),a2
  3572.     moveq    #1,d7
  3573. c29EC:    move.l    $10(a2),d0
  3574.     beq.s    c2A02
  3575.     movea.l    d0,a1
  3576.     movea.l    $10(a3),a0
  3577.     jsr    cA9E2(pc)
  3578.     move.l    d0,d7
  3579.     tst.l    d7
  3580.     ble.s    c2A0A
  3581. c2A02:    movea.l    (a2),a2
  3582.     cmpa.l    -12(a5),a2
  3583.     bne.s    c29EC
  3584. c2A0A:    tst.l    d7
  3585.     ble.s    c2A1A
  3586.     movea.l    a3,a0
  3587.     movea.l    -12(a5),a1
  3588.     jsr    c2130(pc)
  3589.     bra.s    c2A46
  3590.  
  3591. c2A1A:    tst.l    d7
  3592.     bpl.s    c2A28
  3593.     movea.l    a3,a0
  3594.     movea.l    a2,a1
  3595.     jsr    c2130(pc)
  3596.     bra.s    c2A46
  3597.  
  3598. c2A28:    movea.l    12(a3),a0
  3599.     jsr    cA894(pc)
  3600.     movea.l    $10(a3),a0
  3601.     jsr    cA894(pc)
  3602.     movea.l    $16(a3),a0
  3603.     jsr    cA894(pc)
  3604.     movea.l    a3,a0
  3605.     jsr    cA894(pc)
  3606. c2A46:    movem.l    (sp)+,d7/a2/a3
  3607.     unlk    a5
  3608.     rts
  3609.  
  3610. ascii.MSG3:    dc.b    '/',0
  3611. l2A50:    dc.l    $4C65
  3612. LevelldNodeNa.MSG=    *-2
  3613.     dc.b    'vel: %ld, NodeName: %s, Flags=%ld',$A,0
  3614.     dc.b    0
  3615. ascii.MSG:    dc.b    '%*#?~[(',0
  3616. ascii.MSG0:    dc.b    '*',0
  3617. Warningnomatc.MSG:    dc.b    'Warning: no match for file `%s''.',$A,0
  3618.  
  3619. c2AA4:    link.w    a5,#-$14
  3620.     movem.l    d2/d7/a2/a3/a6,-(sp)
  3621.     move.l    d0,d7
  3622.     movem.l    a0/a1,-$14(a5)
  3623.     movea.l    -$14(a5),a3
  3624.     movea.l    a3,a2
  3625.     bra.s    c2ABE
  3626.  
  3627. c2ABC:    addq.l    #1,a2
  3628. c2ABE:    move.b    (a2),d0
  3629.     beq.s    c2ACE
  3630.     moveq    #$2F,d1
  3631.     cmp.b    d1,d0
  3632.     beq.s    c2ACE
  3633.     moveq    #$3A,d1
  3634.     cmp.b    d1,d0
  3635.     bne.s    c2ABC
  3636. c2ACE:    moveq    #$2F,d0
  3637.     cmp.b    (a2),d0
  3638.     bne.s    c2AE6
  3639.     cmpa.l    a3,a2
  3640.     bne.s    c2AE6
  3641.     lea    ascii.MSG3(pc),a0
  3642.     jsr    cA8C4(pc)
  3643.     move.l    d0,-12(a5)
  3644.     bra.s    c2B26
  3645.  
  3646. c2AE6:    moveq    #$3A,d1
  3647.     cmp.b    (a2),d1
  3648.     seq    d0
  3649.     neg.b    d0
  3650.     ext.w    d0
  3651.     ext.l    d0
  3652.     move.l    a2,d1
  3653.     move.l    a3,d2
  3654.     sub.l    d2,d1
  3655.     add.l    d0,d1
  3656.     addq.l    #1,d1
  3657.     move.l    d1,d0
  3658.     jsr    cA7AA(pc)
  3659.     movea.l    d0,a3
  3660.     move.l    d0,-12(a5)
  3661.     bra.s    c2B14
  3662.  
  3663. c2B0A:    movea.l    -$14(a5),a0
  3664.     move.b    (a0)+,(a3)+
  3665.     move.l    a0,-$14(a5)
  3666. c2B14:    movea.l    -$14(a5),a0
  3667.     cmpa.l    a2,a0
  3668.     bne.s    c2B0A
  3669.     moveq    #$3A,d0
  3670.     cmp.b    (a2),d0
  3671.     bne.s    c2B24
  3672.     move.b    d0,(a3)+
  3673. c2B24:    clr.b    (a3)
  3674. c2B26:    moveq    #$12,d0
  3675.     jsr    cA7AA(pc)
  3676.     movea.l    d0,a3
  3677.     movea.l    a3,a0
  3678.     jsr    c21AE(pc)
  3679.     clr.l    8(a3)
  3680.     movea.l    -$10(a5),a0
  3681.     move.l    a3,8(a0)
  3682.     movea.l    -12(a5),a0
  3683.     move.l    a0,12(a3)
  3684.     move.l    d7,d0
  3685.     move.w    d0,$10(a3)
  3686.     bsr.l    c3424
  3687.     tst.l    d0
  3688.     beq.s    c2B88
  3689.     bset    #1,$11(a3)
  3690.     movea.l    -12(a5),a0
  3691.     jsr    cA9FC(pc)
  3692.     movea.l    -12(a5),a0
  3693.     lea    $490(a4),a1
  3694.     movea.l    $424(a4),a6
  3695.     jsr    -$22E(a6)
  3696.     movea.l    -12(a5),a0
  3697.     jsr    cA894(pc)
  3698.     lea    $490(a4),a0
  3699.     jsr    cA8C4(pc)
  3700.     move.l    d0,12(a3)
  3701. c2B88:    tst.b    (a2)
  3702.     beq.s    c2B9A
  3703.     lea    1(a2),a0
  3704.     move.l    d7,d0
  3705.     movea.l    a3,a1
  3706.     bsr.l    c2AA4
  3707.     movea.l    d0,a3
  3708. c2B9A:    move.l    a3,d0
  3709.     movem.l    (sp)+,d2/d7/a2/a3/a6
  3710.     unlk    a5
  3711.     rts
  3712.  
  3713. c2BA4:    link.w    a5,#-$20
  3714.     movem.l    d6/d7/a2/a3/a6,-(sp)
  3715.     move.l    d0,d7
  3716.     movem.l    a0/a1,-$20(a5)
  3717.     movea.l    -$20(a5),a2
  3718.     movea.l    -$1C(a5),a3
  3719.     move.l    a3,-$14(a5)
  3720.     move.l    a3,-$18(a5)
  3721.     moveq    #0,d6
  3722.     bra.s    c2BCA
  3723.  
  3724. c2BC8:    addq.l    #1,a2
  3725. c2BCA:    move.b    (a2),d0
  3726.     beq.s    c2BDA
  3727.     moveq    #$2F,d1
  3728.     cmp.b    d1,d0
  3729.     beq.s    c2BDA
  3730.     moveq    #$3A,d1
  3731.     cmp.b    d1,d0
  3732.     bne.s    c2BC8
  3733. c2BDA:    moveq    #$2F,d0
  3734.     cmp.b    (a2),d0
  3735.     bne.s    c2BF4
  3736.     cmpa.l    -$20(a5),a2
  3737.     bne.s    c2BF4
  3738.     lea    ascii.MSG3(pc),a0
  3739.     jsr    cA8C4(pc)
  3740.     move.l    d0,-$10(a5)
  3741.     bra.s    c2C38
  3742.  
  3743. c2BF4:    moveq    #$3A,d1
  3744.     cmp.b    (a2),d1
  3745.     seq    d0
  3746.     neg.b    d0
  3747.     ext.w    d0
  3748.     ext.l    d0
  3749.     move.l    a2,d1
  3750.     sub.l    -$20(a5),d1
  3751.     add.l    d0,d1
  3752.     addq.l    #1,d1
  3753.     move.l    d1,d0
  3754.     jsr    cA7AA(pc)
  3755.     movea.l    d0,a3
  3756.     move.l    d0,-$10(a5)
  3757.     bra.s    c2C22
  3758.  
  3759. c2C18:    movea.l    -$20(a5),a0
  3760.     move.b    (a0)+,(a3)+
  3761.     move.l    a0,-$20(a5)
  3762. c2C22:    movea.l    -$20(a5),a0
  3763.     cmpa.l    a2,a0
  3764.     bne.s    c2C18
  3765.     moveq    #$3A,d0
  3766.     cmp.b    (a2),d0
  3767.     bne.s    c2C32
  3768.     move.b    d0,(a3)+
  3769. c2C32:    clr.b    (a3)
  3770.     movea.l    -$14(a5),a3
  3771. c2C38:    movea.l    -$10(a5),a0
  3772.     movea.l    12(a3),a1
  3773.     jsr    cA9E2(pc)
  3774.     tst.l    d0
  3775.     bne.s    c2C86
  3776.     move.w    $10(a3),d0
  3777.     ext.l    d0
  3778.     cmp.l    d7,d0
  3779.     bne.s    c2C86
  3780.     tst.b    (a2)
  3781.     beq.s    c2C7E
  3782.     lea    1(a2),a3
  3783.     movea.l    -$14(a5),a0
  3784.     move.l    8(a0),d0
  3785.     beq.s    c2C72
  3786.     movea.l    d0,a1
  3787.     move.l    d7,d0
  3788.     movea.l    a3,a0
  3789.     bsr.l    c2BA4
  3790.     movea.l    d0,a3
  3791.     bra.s    c2C7E
  3792.  
  3793. c2C72:    movea.l    a0,a1
  3794.     move.l    d7,d0
  3795.     movea.l    a3,a0
  3796.     bsr.l    c2AA4
  3797.     movea.l    d0,a3
  3798. c2C7E:    move.l    a3,-$18(a5)
  3799.     moveq    #1,d6
  3800.     bra.s    c2C96
  3801.  
  3802. c2C86:    movea.l    -$14(a5),a3
  3803.     movea.l    (a3),a3
  3804.     move.l    a3,-$14(a5)
  3805.     cmpa.l    -$1C(a5),a3
  3806.     bne.s    c2C38
  3807. c2C96:    tst.l    d6
  3808.     bne.s    c2D14
  3809.     moveq    #$12,d0
  3810.     jsr    cA7AA(pc)
  3811.     movea.l    d0,a3
  3812.     clr.l    8(a3)
  3813.     movea.l    -$10(a5),a0
  3814.     move.l    a0,12(a3)
  3815.     move.l    d7,d0
  3816.     move.w    d0,$10(a3)
  3817.     bsr.l    c3424
  3818.     tst.l    d0
  3819.     beq.s    c2CEE
  3820.     bset    #1,$11(a3)
  3821.     movea.l    -$10(a5),a0
  3822.     jsr    cA9FC(pc)
  3823.     movea.l    -$10(a5),a0
  3824.     lea    $490(a4),a1
  3825.     movea.l    $424(a4),a6
  3826.     jsr    -$22E(a6)
  3827.     movea.l    -$10(a5),a0
  3828.     jsr    cA894(pc)
  3829.     lea    $490(a4),a0
  3830.     jsr    cA8C4(pc)
  3831.     move.l    d0,12(a3)
  3832. c2CEE:    movea.l    a3,a0
  3833.     movea.l    -$1C(a5),a1
  3834.     jsr    c2130(pc)
  3835.     tst.b    (a2)
  3836.     beq.s    c2D0E
  3837.     lea    1(a2),a0
  3838.     move.l    d7,d0
  3839.     movea.l    a3,a1
  3840.     bsr.l    c2AA4
  3841.     move.l    d0,-$18(a5)
  3842.     bra.s    c2D1C
  3843.  
  3844. c2D0E:    move.l    a3,-$18(a5)
  3845.     bra.s    c2D1C
  3846.  
  3847. c2D14:    movea.l    -$10(a5),a0
  3848.     jsr    cA894(pc)
  3849. c2D1C:    move.l    -$18(a5),d0
  3850.     movem.l    (sp)+,d6/d7/a2/a3/a6
  3851.     unlk    a5
  3852.     rts
  3853.  
  3854. c2D28:    link.w    a5,#-$10
  3855.     movem.l    a2/a3,-(sp)
  3856.     move.l    a0,-$10(a5)
  3857.     moveq    #$12,d0
  3858.     jsr    cA7AA(pc)
  3859.     movea.l    -$10(a5),a2
  3860.     move.l    d0,-12(a5)
  3861.     movea.l    d0,a0
  3862.     jsr    c21AE(pc)
  3863.     movea.l    -12(a5),a0
  3864.     clr.l    8(a0)
  3865.     lea    l2A50(pc),a0
  3866.     jsr    cA8C4(pc)
  3867.     movea.l    -12(a5),a0
  3868.     move.l    d0,12(a0)
  3869.     move.w    #1,$10(a0)
  3870. c2D66:    moveq    #1,d0
  3871.     movea.l    8(a2),a0
  3872.     movea.l    -12(a5),a1
  3873.     bsr.l    c2BA4
  3874.     movea.l    d0,a3
  3875.     move.l    8(a3),d0
  3876.     beq.s    c2D8A
  3877.     movea.l    d0,a1
  3878.     moveq    #0,d0
  3879.     movea.l    12(a2),a0
  3880.     bsr.l    c2BA4
  3881.     bra.s    c2D96
  3882.  
  3883. c2D8A:    moveq    #0,d0
  3884.     movea.l    12(a2),a0
  3885.     movea.l    a3,a1
  3886.     bsr.l    c2AA4
  3887. c2D96:    movea.l    (a2),a2
  3888.     cmpa.l    -$10(a5),a2
  3889.     bne.s    c2D66
  3890.     move.l    -12(a5),d0
  3891.     movem.l    (sp)+,a2/a3
  3892.     unlk    a5
  3893.     rts
  3894.  
  3895. c2DAA:    movem.l    d7/a2/a3,-(sp)
  3896.     movea.l    a0,a3
  3897.     move.l    d0,d7
  3898.     movea.l    a3,a2
  3899. c2DB4:    move.w    $10(a2),d0
  3900.     ext.l    d0
  3901.     move.l    d0,-(sp)
  3902.     move.l    12(a2),-(sp)
  3903.     move.l    d7,-(sp)
  3904.     pea    LevelldNodeNa.MSG(pc)
  3905.     jsr    c2328(pc)
  3906.     lea    $10(sp),sp
  3907.     move.l    8(a2),d0
  3908.     beq.s    c2DE0
  3909.     move.l    d7,d1
  3910.     addq.l    #1,d1
  3911.     move.l    d1,d0
  3912.     movea.l    8(a2),a0
  3913.     bsr.s    c2DAA
  3914. c2DE0:    movea.l    (a2),a2
  3915.     cmpa.l    a3,a2
  3916.     bne.s    c2DB4
  3917.     movem.l    (sp)+,d7/a2/a3
  3918.     rts
  3919.  
  3920. c2DEC:    movem.l    a2/a3,-(sp)
  3921.     movea.l    a0,a3
  3922. c2DF2:    movea.l    a3,a2
  3923.     move.l    8(a2),d0
  3924.     beq.s    c2DFE
  3925.     movea.l    d0,a0
  3926.     bsr.s    c2DEC
  3927. c2DFE:    movea.l    (a2),a3
  3928.     movea.l    a2,a0
  3929.     jsr    c2118(pc)
  3930.     movea.l    12(a2),a0
  3931.     jsr    cA894(pc)
  3932.     movea.l    a2,a0
  3933.     jsr    cA894(pc)
  3934.     cmpa.l    a3,a2
  3935.     bne.s    c2DF2
  3936.     movem.l    (sp)+,a2/a3
  3937.     rts
  3938.  
  3939. c2E1E:    link.w    a5,#-$28
  3940.     movem.l    d2/d5-d7/a2/a3/a6,-(sp)
  3941.     movem.l    a0/a1,-$1C(a5)
  3942.     moveq    #0,d7
  3943.     movea.l    -$18(a5),a0
  3944.     tst.b    (a0)
  3945.     bne.s    c2E3C
  3946.     moveq    #0,d0
  3947.     bra.l    c2FC2
  3948.  
  3949. c2E3C:    movea.l    12(a5),a0
  3950. c2E40:    tst.b    (a0)+
  3951.     bne.s    c2E40
  3952.     subq.l    #1,a0
  3953.     suba.l    12(a5),a0
  3954.     move.l    a0,d6
  3955.     move.l    #$104,d0
  3956.     jsr    cA7AA(pc)
  3957.     movea.l    d0,a3
  3958.     movea.l    a3,a0
  3959.     move.l    a0,$20(sp)
  3960.     moveq    #-2,d0
  3961.     lea    l2A50(pc),a0
  3962.     jsr    c12FC(pc)
  3963.     move.l    d0,d5
  3964.     move.l    d5,d1
  3965.     move.l    a3,d2
  3966.     movea.l    $420(a4),a6
  3967.     jsr    -$66(a6)
  3968.     bra.l    c2F9E
  3969.  
  3970. c2E7A:    movea.l    12(a5),a0
  3971.     adda.l    d6,a0
  3972.     movea.l    a0,a2
  3973.     move.l    4(a3),d1
  3974.     tst.l    d1
  3975.     smi    d0
  3976.     neg.b    d0
  3977.     ext.w    d0
  3978.     ext.l    d0
  3979.     addq.l    #8,a3
  3980.     tst.l    d0
  3981.     beq.l    c2F44
  3982.     movea.l    a3,a0
  3983.     jsr    cA8C4(pc)
  3984.     move.l    d0,$1C(sp)
  3985.     movea.l    d0,a0
  3986.     jsr    cA9FC(pc)
  3987.     movea.l    -$18(a5),a0
  3988.     movea.l    $1C(sp),a1
  3989.     movea.l    $424(a4),a6
  3990.     jsr    -$1B0(a6)
  3991.     tst.l    d0
  3992.     beq.s    c2F34
  3993.     movea.l    12(a5),a0
  3994.     movea.l    a3,a1
  3995.     jsr    -$270(a6)
  3996.     moveq    #$20,d0
  3997.     moveq    #1,d1
  3998.     jsr    cA81C(pc)
  3999.     movea.l    $20(sp),a0
  4000.     movea.l    d0,a1
  4001.     move.l    $7C(a0),8(a1)
  4002.     move.l    $74(a0),d1
  4003.     move.w    d1,$14(a1)
  4004.     lea    $90(a0),a6
  4005.     move.l    d0,$24(sp)
  4006.     movea.l    a6,a0
  4007.     jsr    cA8C4(pc)
  4008.     movea.l    $24(sp),a0
  4009.     move.l    d0,$16(a0)
  4010.     movea.l    $20(sp),a1
  4011.     adda.w    #$84,a1
  4012.     lea    $1A(a0),a6
  4013.     movea.l    a1,a0
  4014.     movea.l    a6,a1
  4015.     jsr    c26D6(pc)
  4016.     movea.l    8(a5),a0
  4017.     jsr    cA8C4(pc)
  4018.     movea.l    $24(sp),a0
  4019.     move.l    d0,12(a0)
  4020.     movea.l    12(a5),a0
  4021.     jsr    cA8C4(pc)
  4022.     movea.l    $24(sp),a0
  4023.     move.l    d0,$10(a0)
  4024.     movea.l    -$1C(a5),a1
  4025.     bsr.l    c29D8
  4026. c2F34:    movea.l    $1C(sp),a0
  4027.     jsr    cA894(pc)
  4028.     clr.b    (a2)
  4029.     movea.l    $20(sp),a3
  4030.     bra.s    c2F9E
  4031.  
  4032. c2F44:    movea.l    12(a5),a0
  4033.     movea.l    a3,a1
  4034.     movea.l    $424(a4),a6
  4035.     jsr    -$270(a6)
  4036.     moveq    #-2,d0
  4037.     movea.l    a3,a0
  4038.     jsr    c12FC(pc)
  4039.     move.l    d0,$1C(sp)
  4040.     move.l    d0,d1
  4041.     movea.l    $420(a4),a6
  4042.     jsr    -$7E(a6)
  4043.     move.l    12(a5),-(sp)
  4044.     move.l    8(a5),-(sp)
  4045.     move.l    d0,$2C(sp)
  4046.     movea.l    -$1C(a5),a0
  4047.     movea.l    -$18(a5),a1
  4048.     bsr.l    c2E1E
  4049.     move.l    d0,d7
  4050.     move.l    $2C(sp),d1
  4051.     movea.l    $420(a4),a6
  4052.     jsr    -$7E(a6)
  4053.     move.l    $24(sp),d0
  4054.     jsr    c137C(pc)
  4055.     addq.w    #8,sp
  4056.     clr.b    (a2)
  4057.     movea.l    $20(sp),a3
  4058. c2F9E:    move.l    d5,d1
  4059.     move.l    a3,d2
  4060.     movea.l    $420(a4),a6
  4061.     jsr    -$6C(a6)
  4062.     tst.l    d0
  4063.     beq.s    c2FB4
  4064.     tst.l    d7
  4065.     beq.l    c2E7A
  4066. c2FB4:    movea.l    a3,a0
  4067.     jsr    cA894(pc)
  4068.     move.l    d5,d0
  4069.     jsr    c137C(pc)
  4070.     move.l    d7,d0
  4071. c2FC2:    movem.l    (sp)+,d2/d5-d7/a2/a3/a6
  4072.     unlk    a5
  4073.     rts
  4074.  
  4075. c2FCA:    link.w    a5,#-$2C
  4076.     movem.l    d2/d5-d7/a2/a3/a6,-(sp)
  4077.     move.l    d0,d7
  4078.     movem.l    a0/a1,-$18(a5)
  4079.     movea.l    -$18(a5),a3
  4080.     movea.l    a3,a0
  4081.     moveq    #0,d6
  4082.     movea.l    8(a5),a1
  4083. c2FE6:    tst.b    (a1)+
  4084.     bne.s    c2FE6
  4085.     subq.l    #1,a1
  4086.     suba.l    8(a5),a1
  4087.     movea.l    12(a5),a6
  4088. c2FF4:    tst.b    (a6)+
  4089.     bne.s    c2FF4
  4090.     subq.l    #1,a6
  4091.     suba.l    12(a5),a6
  4092.     move.l    a0,$28(sp)
  4093.     move.l    a1,$1C(sp)
  4094.     move.l    a6,$2C(sp)
  4095.     move.l    #$104,d0
  4096.     jsr    cA7AA(pc)
  4097.     movea.l    d0,a2
  4098.     move.l    $2C(sp),d0
  4099.     movea.l    12(a5),a0
  4100.     adda.l    d0,a0
  4101.     move.l    $1C(sp),d0
  4102.     movea.l    8(a5),a1
  4103.     adda.l    d0,a1
  4104.     move.l    a0,$24(sp)
  4105.     move.l    a1,$20(sp)
  4106. c3032:    tst.l    8(a3)
  4107.     bne.l    c3202
  4108.     tst.l    d7
  4109.     beq.s    c305A
  4110.     move.l    12(a5),-(sp)
  4111.     move.l    8(a5),-(sp)
  4112.     movea.l    -$14(a5),a0
  4113.     movea.l    12(a3),a1
  4114.     bsr.l    c2E1E
  4115.     addq.w    #8,sp
  4116.     move.l    d0,d6
  4117.     bra.l    c33F4
  4118.  
  4119. c305A:    btst    #1,$11(a3)
  4120.     beq.l    c3152
  4121.     moveq    #-2,d0
  4122.     lea    l2A50(pc),a0
  4123.     jsr    c12FC(pc)
  4124.     move.l    d0,d5
  4125.     move.l    d5,d1
  4126.     move.l    a2,d2
  4127.     movea.l    $420(a4),a6
  4128.     jsr    -$66(a6)
  4129.     bra.l    c3136
  4130.  
  4131. c3080:    move.l    4(a2),d0
  4132.     tst.l    d0
  4133.     bpl.l    c3136
  4134.     lea    8(a2),a0
  4135.     move.l    a0,$1C(sp)
  4136.     jsr    cA8C4(pc)
  4137.     movea.l    d0,a3
  4138.     movea.l    a3,a0
  4139.     jsr    cA9FC(pc)
  4140.     movea.l    -$18(a5),a0
  4141.     movea.l    12(a0),a0
  4142.     movea.l    a3,a1
  4143.     movea.l    $424(a4),a6
  4144.     jsr    -$1B0(a6)
  4145.     tst.l    d0
  4146.     beq.s    c3126
  4147.     movea.l    12(a5),a0
  4148.     movea.l    $1C(sp),a1
  4149.     jsr    -$270(a6)
  4150.     moveq    #$20,d0
  4151.     moveq    #1,d1
  4152.     jsr    cA81C(pc)
  4153.     movea.l    d0,a0
  4154.     move.l    $7C(a2),8(a0)
  4155.     move.l    $74(a2),d1
  4156.     move.w    d1,$14(a0)
  4157.     lea    $90(a2),a1
  4158.     move.l    d0,$1C(sp)
  4159.     movea.l    a1,a0
  4160.     jsr    cA8C4(pc)
  4161.     movea.l    $1C(sp),a0
  4162.     move.l    d0,$16(a0)
  4163.     lea    $84(a2),a1
  4164.     lea    $1A(a0),a6
  4165.     movea.l    a1,a0
  4166.     movea.l    a6,a1
  4167.     jsr    c26D6(pc)
  4168.     movea.l    8(a5),a0
  4169.     jsr    cA8C4(pc)
  4170.     movea.l    $1C(sp),a0
  4171.     move.l    d0,12(a0)
  4172.     movea.l    12(a5),a0
  4173.     jsr    cA8C4(pc)
  4174.     movea.l    $1C(sp),a0
  4175.     move.l    d0,$10(a0)
  4176.     movea.l    -$14(a5),a1
  4177.     bsr.l    c29D8
  4178. c3126:    movea.l    a3,a0
  4179.     jsr    cA894(pc)
  4180.     movea.l    $24(sp),a0
  4181.     clr.b    (a0)
  4182.     movea.l    -$18(a5),a3
  4183. c3136:    move.l    d5,d1
  4184.     move.l    a2,d2
  4185.     movea.l    $420(a4),a6
  4186.     jsr    -$6C(a6)
  4187.     tst.l    d0
  4188.     bne.l    c3080
  4189.     move.l    d5,d0
  4190.     jsr    c137C(pc)
  4191.     bra.l    c33F4
  4192.  
  4193. c3152:    moveq    #-2,d0
  4194.     movea.l    12(a3),a0
  4195.     jsr    c12FC(pc)
  4196.     move.l    d0,d5
  4197.     tst.l    d5
  4198.     beq.l    c33F4
  4199.     movea.l    -$18(a5),a3
  4200.     move.l    d5,d1
  4201.     move.l    a2,d2
  4202.     movea.l    $420(a4),a6
  4203.     jsr    -$66(a6)
  4204.     move.l    4(a2),d0
  4205.     tst.l    d0
  4206.     bpl.s    c31F2
  4207.     lea    8(a2),a1
  4208.     movea.l    12(a5),a0
  4209.     movea.l    $424(a4),a6
  4210.     jsr    -$270(a6)
  4211.     moveq    #$20,d0
  4212.     moveq    #1,d1
  4213.     jsr    cA81C(pc)
  4214.     movea.l    d0,a0
  4215.     move.l    $7C(a2),8(a0)
  4216.     move.l    $74(a2),d1
  4217.     move.w    d1,$14(a0)
  4218.     lea    $90(a2),a1
  4219.     move.l    d0,$1C(sp)
  4220.     movea.l    a1,a0
  4221.     jsr    cA8C4(pc)
  4222.     movea.l    $1C(sp),a0
  4223.     move.l    d0,$16(a0)
  4224.     lea    $84(a2),a1
  4225.     lea    $1A(a0),a6
  4226.     movea.l    a1,a0
  4227.     movea.l    a6,a1
  4228.     jsr    c26D6(pc)
  4229.     movea.l    8(a5),a0
  4230.     jsr    cA8C4(pc)
  4231.     movea.l    $1C(sp),a0
  4232.     move.l    d0,12(a0)
  4233.     movea.l    12(a5),a0
  4234.     jsr    cA8C4(pc)
  4235.     movea.l    $1C(sp),a0
  4236.     move.l    d0,$10(a0)
  4237.     movea.l    -$14(a5),a1
  4238.     bsr.l    c29D8
  4239. c31F2:    move.l    d5,d0
  4240.     jsr    c137C(pc)
  4241.     movea.l    $24(sp),a0
  4242.     clr.b    (a0)
  4243.     bra.l    c33F4
  4244.  
  4245. c3202:    btst    #1,$11(a3)
  4246.     beq.l    c32F6
  4247.     moveq    #-2,d0
  4248.     lea    l2A50(pc),a0
  4249.     jsr    c12FC(pc)
  4250.     move.l    d0,d5
  4251.     move.l    d5,d1
  4252.     move.l    a2,d2
  4253.     movea.l    $420(a4),a6
  4254.     jsr    -$66(a6)
  4255.     bra.l    c32DA
  4256.  
  4257. c3228:    move.l    4(a2),d0
  4258.     tst.l    d0
  4259.     ble.l    c32DA
  4260.     lea    8(a2),a3
  4261.     movea.l    a3,a0
  4262.     jsr    cA8C4(pc)
  4263.     move.l    d0,$1C(sp)
  4264.     movea.l    d0,a0
  4265.     jsr    cA9FC(pc)
  4266.     movea.l    -$18(a5),a0
  4267.     movea.l    12(a0),a0
  4268.     movea.l    $1C(sp),a1
  4269.     movea.l    $424(a4),a6
  4270.     jsr    -$1B0(a6)
  4271.     tst.l    d0
  4272.     beq.s    c32C0
  4273.     movea.l    -$18(a5),a0
  4274.     btst    #0,$11(a0)
  4275.     beq.s    c3276
  4276.     movea.l    8(a5),a0
  4277.     movea.l    a3,a1
  4278.     jsr    -$270(a6)
  4279.     bra.s    c3280
  4280.  
  4281. c3276:    movea.l    12(a5),a0
  4282.     movea.l    a3,a1
  4283.     jsr    -$270(a6)
  4284. c3280:    moveq    #-2,d0
  4285.     movea.l    a3,a0
  4286.     jsr    c12FC(pc)
  4287.     move.l    d0,d1
  4288.     movea.l    $420(a4),a6
  4289.     jsr    -$7E(a6)
  4290.     move.l    12(a5),-(sp)
  4291.     move.l    8(a5),-(sp)
  4292.     move.l    d0,$34(sp)
  4293.     move.l    d7,d0
  4294.     movea.l    -$18(a5),a0
  4295.     movea.l    8(a0),a0
  4296.     movea.l    -$14(a5),a1
  4297.     bsr.l    c2FCA
  4298.     addq.w    #8,sp
  4299.     move.l    d0,d6
  4300.     move.l    $2C(sp),d1
  4301.     movea.l    $420(a4),a6
  4302.     jsr    -$7E(a6)
  4303. c32C0:    movea.l    $1C(sp),a0
  4304.     jsr    cA894(pc)
  4305.     moveq    #0,d0
  4306.     movea.l    $20(sp),a0
  4307.     move.b    d0,(a0)
  4308.     movea.l    $24(sp),a0
  4309.     move.b    d0,(a0)
  4310.     movea.l    -$18(a5),a3
  4311. c32DA:    move.l    d5,d1
  4312.     move.l    a2,d2
  4313.     movea.l    $420(a4),a6
  4314.     jsr    -$6C(a6)
  4315.     tst.l    d0
  4316.     bne.l    c3228
  4317.     move.l    d5,d0
  4318.     jsr    c137C(pc)
  4319.     bra.l    c33F4
  4320.  
  4321. c32F6:    moveq    #-2,d0
  4322.     movea.l    12(a3),a0
  4323.     jsr    c12FC(pc)
  4324.     move.l    d0,d5
  4325.     tst.l    d5
  4326.     beq.l    c33F4
  4327.     movea.l    -$18(a5),a3
  4328.     move.l    d5,d1
  4329.     move.l    a2,d2
  4330.     movea.l    $420(a4),a6
  4331.     jsr    -$66(a6)
  4332.     move.l    4(a2),d0
  4333.     tst.l    d0
  4334.     bmi.l    c33F4
  4335.     movea.l    -$18(a5),a3
  4336.     movea.l    12(a3),a1
  4337. c332A:    tst.b    (a1)+
  4338.     bne.s    c332A
  4339.     subq.l    #1,a1
  4340.     suba.l    12(a3),a1
  4341.     movea.l    12(a3),a3
  4342.     moveq    #$3A,d0
  4343.     move.l    a1,d1
  4344.     cmp.b    -1(a3,d1.l),d0
  4345.     beq.s    c334E
  4346.     move.b    (a3),d0
  4347.     moveq    #$2F,d1
  4348.     cmp.b    d1,d0
  4349.     beq.s    c334E
  4350.     tst.b    d0
  4351.     bne.s    c337A
  4352. c334E:    movea.l    -$18(a5),a1
  4353.     btst    #0,$11(a1)
  4354.     beq.s    c336A
  4355.     movea.l    8(a5),a0
  4356.     movea.l    a3,a1
  4357.     movea.l    $424(a4),a6
  4358.     jsr    -$270(a6)
  4359.     bra.s    c33A8
  4360.  
  4361. c336A:    movea.l    12(a5),a0
  4362.     movea.l    a3,a1
  4363.     movea.l    $424(a4),a6
  4364.     jsr    -$270(a6)
  4365.     bra.s    c33A8
  4366.  
  4367. c337A:    lea    8(a2),a3
  4368.     movea.l    -$18(a5),a1
  4369.     btst    #0,$11(a1)
  4370.     beq.s    c339A
  4371.     movea.l    8(a5),a0
  4372.     movea.l    a3,a1
  4373.     movea.l    $424(a4),a6
  4374.     jsr    -$270(a6)
  4375.     bra.s    c33A8
  4376.  
  4377. c339A:    movea.l    12(a5),a0
  4378.     movea.l    a3,a1
  4379.     movea.l    $424(a4),a6
  4380.     jsr    -$270(a6)
  4381. c33A8:    move.l    d5,d1
  4382.     movea.l    $420(a4),a6
  4383.     jsr    -$7E(a6)
  4384.     movea.l    -$18(a5),a3
  4385.     move.l    12(a5),-(sp)
  4386.     move.l    8(a5),-(sp)
  4387.     move.l    d0,$24(sp)
  4388.     move.l    d7,d0
  4389.     movea.l    8(a3),a0
  4390.     movea.l    -$14(a5),a1
  4391.     bsr.l    c2FCA
  4392.     move.l    $24(sp),d1
  4393.     movea.l    $420(a4),a6
  4394.     jsr    -$7E(a6)
  4395.     move.l    d5,d0
  4396.     jsr    c137C(pc)
  4397.     addq.w    #8,sp
  4398.     moveq    #0,d6
  4399.     moveq    #0,d0
  4400.     movea.l    $20(sp),a0
  4401.     move.b    d0,(a0)
  4402.     movea.l    $24(sp),a0
  4403.     move.b    d0,(a0)
  4404. c33F4:    movea.l    (a3),a3
  4405.     move.l    a3,-$18(a5)
  4406.     cmpa.l    $28(sp),a3
  4407.     beq.s    c3406
  4408.     tst.l    d6
  4409.     beq.l    c3032
  4410. c3406:    movea.l    a2,a0
  4411.     jsr    cA894(pc)
  4412.     moveq    #0,d0
  4413.     movea.l    $20(sp),a0
  4414.     move.b    d0,(a0)
  4415.     movea.l    $24(sp),a0
  4416.     move.b    d0,(a0)
  4417.     move.l    d6,d0
  4418.     movem.l    (sp)+,d2/d5-d7/a2/a3/a6
  4419.     unlk    a5
  4420.     rts
  4421.  
  4422. c3424:    move.l    a3,-(sp)
  4423.     movea.l    a0,a3
  4424.     move.l    a3,d0
  4425.     bne.s    c3430
  4426.     moveq    #0,d0
  4427.     bra.s    c3444
  4428.  
  4429. c3430:    lea    ascii.MSG(pc),a0
  4430.     movea.l    a3,a1
  4431.     jsr    cA9B6(pc)
  4432.     subq.l    #7,d0
  4433.     beq.s    c3442
  4434.     moveq    #1,d0
  4435.     bra.s    c3444
  4436.  
  4437. c3442:    moveq    #0,d0
  4438. c3444:    movea.l    (sp)+,a3
  4439.     rts
  4440.  
  4441. c3448:    movem.l    a2/a3/a6,-(sp)
  4442.     movea.l    a0,a3
  4443.     movea.l    a3,a2
  4444. c3450:    move.l    12(a2),d0
  4445.     beq.s    c349E
  4446.     movea.l    d0,a0
  4447.     lea    $490(a4),a1
  4448.     movea.l    $424(a4),a6
  4449.     jsr    -$22E(a6)
  4450.     lea    $490(a4),a0
  4451.     movea.l    a0,a1
  4452. c346A:    tst.b    (a1)+
  4453.     bne.s    c346A
  4454.     subq.l    #1,a1
  4455.     suba.l    a0,a1
  4456.     movea.l    12(a2),a0
  4457. c3476:    tst.b    (a0)+
  4458.     bne.s    c3476
  4459.     subq.l    #1,a0
  4460.     suba.l    12(a2),a0
  4461.     cmpa.l    a0,a1
  4462.     ble.s    c3492
  4463.     lea    $490(a4),a0
  4464.     jsr    cA8C4(pc)
  4465.     move.l    d0,12(a2)
  4466.     bra.s    c349E
  4467.  
  4468. c3492:    lea    $490(a4),a0
  4469.     movea.l    12(a2),a1
  4470. c349A:    move.b    (a0)+,(a1)+
  4471.     bne.s    c349A
  4472. c349E:    movea.l    (a2),a2
  4473.     cmpa.l    a3,a2
  4474.     bne.s    c3450
  4475.     movem.l    (sp)+,a2/a3/a6
  4476.     rts
  4477.  
  4478. c34AA:    link.w    a5,#-$18
  4479.     movem.l    d2/a2/a3/a6,-(sp)
  4480.     movem.l    a0/a1,-$10(a5)
  4481.     move.l    #$104,d0
  4482.     jsr    cA7AA(pc)
  4483.     movea.l    -$10(a5),a2
  4484.     move.l    d0,$14(sp)
  4485. c34CA:    movea.l    12(a2),a0
  4486.     bsr.l    c3424
  4487.     tst.l    d0
  4488.     bne.l    c361A
  4489.     movea.l    a2,a3
  4490.     movea.l    (a3),a2
  4491.     movea.l    8(a3),a0
  4492.     movea.l    8(a5),a1
  4493. c34E4:    move.b    (a0)+,(a1)+
  4494.     bne.s    c34E4
  4495.     movea.l    8(a5),a0
  4496.     movea.l    12(a3),a1
  4497.     movea.l    $424(a4),a6
  4498.     jsr    -$270(a6)
  4499.     moveq    #-2,d0
  4500.     movea.l    8(a5),a0
  4501.     jsr    c12FC(pc)
  4502.     move.l    d0,$10(sp)
  4503.     tst.l    d0
  4504.     beq.l    c35E4
  4505.     move.l    d0,d1
  4506.     move.l    $14(sp),d2
  4507.     movea.l    $420(a4),a6
  4508.     jsr    -$66(a6)
  4509.     move.l    $10(sp),d0
  4510.     jsr    c137C(pc)
  4511.     movea.l    $14(sp),a0
  4512.     move.l    4(a0),d0
  4513.     tst.l    d0
  4514.     ble.s    c355A
  4515.     movea.l    12(a3),a1
  4516.     movea.l    12(a5),a6
  4517. c3536:    move.b    (a1)+,(a6)+
  4518.     bne.s    c3536
  4519.     movea.l    12(a5),a0
  4520.     lea    ascii.MSG0(pc),a1
  4521.     movea.l    $424(a4),a6
  4522.     jsr    -$270(a6)
  4523.     movea.l    12(a5),a0
  4524.     jsr    cA8C4(pc)
  4525.     move.l    d0,12(a3)
  4526.     bra.l    c361C
  4527.  
  4528. c355A:    moveq    #$20,d0
  4529.     moveq    #1,d1
  4530.     jsr    cA81C(pc)
  4531.     movea.l    $14(sp),a0
  4532.     movea.l    d0,a1
  4533.     move.l    $7C(a0),8(a1)
  4534.     move.l    $74(a0),d1
  4535.     move.w    d1,$14(a1)
  4536.     lea    $90(a0),a6
  4537.     move.l    d0,$10(sp)
  4538.     movea.l    a6,a0
  4539.     jsr    cA8C4(pc)
  4540.     movea.l    $10(sp),a0
  4541.     move.l    d0,$16(a0)
  4542.     movea.l    $14(sp),a1
  4543.     adda.w    #$84,a1
  4544.     lea    $1A(a0),a6
  4545.     movea.l    a1,a0
  4546.     movea.l    a6,a1
  4547.     jsr    c26D6(pc)
  4548.     movea.l    8(a3),a0
  4549.     jsr    cA8C4(pc)
  4550.     movea.l    $10(sp),a0
  4551.     move.l    d0,12(a0)
  4552.     movea.l    12(a3),a0
  4553.     jsr    cA8C4(pc)
  4554.     movea.l    $10(sp),a0
  4555.     move.l    d0,$10(a0)
  4556.     movea.l    d0,a0
  4557.     movea.l    $424(a4),a6
  4558.     jsr    -$276(a6)
  4559.     movea.l    $14(sp),a0
  4560.     addq.l    #8,a0
  4561.     movea.l    d0,a1
  4562. c35D2:    move.b    (a0)+,(a1)+
  4563.     bne.s    c35D2
  4564.     movea.l    $10(sp),a0
  4565.     movea.l    -12(a5),a1
  4566.     bsr.l    c29D8
  4567.     bra.s    c35F8
  4568.  
  4569. c35E4:    tst.l    $10(a4)
  4570.     bne.s    c35F8
  4571.     move.l    8(a5),-(sp)
  4572.     pea    Warningnomatc.MSG(pc)
  4573.     jsr    c2328(pc)
  4574.     addq.w    #8,sp
  4575. c35F8:    cmpa.l    -$10(a5),a3
  4576.     beq.s    c360C
  4577.     movea.l    a3,a0
  4578.     jsr    c2118(pc)
  4579.     movea.l    a3,a0
  4580.     jsr    cA894(pc)
  4581.     bra.s    c361C
  4582.  
  4583. c360C:    lea    l2A50(pc),a0
  4584.     move.l    a0,12(a3)
  4585.     move.l    a0,8(a3)
  4586.     bra.s    c361C
  4587.  
  4588. c361A:    movea.l    (a2),a2
  4589. c361C:    movea.l    -$10(a5),a0
  4590.     cmpa.l    a2,a0
  4591.     bne.l    c34CA
  4592.     movea.l    $14(sp),a0
  4593.     jsr    cA894(pc)
  4594.     movem.l    (sp)+,d2/a2/a3/a6
  4595.     unlk    a5
  4596.     rts
  4597.  
  4598. c3636:    link.w    a5,#-$208
  4599.     movem.l    d6/d7/a2/a3,-(sp)
  4600.     movea.l    a0,a3
  4601.     movea.l    a1,a2
  4602.     move.l    d0,d7
  4603.     pea    -$204(a5)
  4604.     pea    -$104(a5)
  4605.     movea.l    a3,a0
  4606.     movea.l    a2,a1
  4607.     bsr.l    c34AA
  4608.     addq.w    #8,sp
  4609.     movea.l    (a3),a0
  4610.     cmpa.l    a3,a0
  4611.     bne.s    c3664
  4612.     movea.l    12(a3),a0
  4613.     tst.b    (a0)
  4614.     beq.s    c3696
  4615. c3664:    movea.l    a3,a0
  4616.     bsr.l    c2D28
  4617.     moveq    #0,d1
  4618.     move.b    d1,-$204(a5)
  4619.     move.b    d1,-$104(a5)
  4620.     pea    -$204(a5)
  4621.     pea    -$104(a5)
  4622.     move.l    d0,$18(sp)
  4623.     movea.l    d0,a0
  4624.     move.l    d7,d0
  4625.     movea.l    a2,a1
  4626.     bsr.l    c2FCA
  4627.     move.l    d0,d6
  4628.     movea.l    $18(sp),a0
  4629.     bsr.l    c2DEC
  4630.     addq.w    #8,sp
  4631. c3696:    move.l    d6,d0
  4632.     movem.l    (sp)+,d6/d7/a2/a3
  4633.     unlk    a5
  4634.     rts
  4635.  
  4636. c36A0:    link.w    a5,#-$208
  4637.     movem.l    a2/a3/a6,-(sp)
  4638.     movea.l    a1,a3
  4639.     move.l    a0,-$208(a5)
  4640.     movea.l    a3,a2
  4641.     move.l    a2,d0
  4642.     beq.s    c370A
  4643.     movea.l    -$208(a5),a0
  4644.     lea    -$104(a5),a1
  4645.     jsr    c5282(pc)
  4646.     lea    -$104(a5),a0
  4647.     jsr    cA9FC(pc)
  4648. c36C8:    tst.l    12(a3)
  4649.     beq.s    c36FE
  4650.     movea.l    8(a3),a0
  4651.     lea    -$204(a5),a1
  4652. c36D6:    move.b    (a0)+,(a1)+
  4653.     bne.s    c36D6
  4654.     lea    -$204(a5),a0
  4655.     movea.l    12(a3),a1
  4656.     movea.l    $424(a4),a6
  4657.     jsr    -$270(a6)
  4658.     lea    -$204(a5),a0
  4659.     lea    -$104(a5),a1
  4660.     jsr    -$1B0(a6)
  4661.     tst.l    d0
  4662.     beq.s    c3702
  4663.     moveq    #1,d0
  4664.     bra.s    c3710
  4665.  
  4666. c36FE:    moveq    #1,d0
  4667.     bra.s    c3710
  4668.  
  4669. c3702:    movea.l    (a3),a3
  4670.     cmpa.l    a2,a3
  4671.     bne.s    c36C8
  4672.     bra.s    c370E
  4673.  
  4674. c370A:    moveq    #1,d0
  4675.     bra.s    c3710
  4676.  
  4677. c370E:    moveq    #0,d0
  4678. c3710:    movem.l    (sp)+,a2/a3/a6
  4679.     unlk    a5
  4680.     rts
  4681.  
  4682.     jmp    cA9E2
  4683.  
  4684.     jmp    cA9B6
  4685.  
  4686.     jmp    cA9FC
  4687.  
  4688.     moveq    #$61,d0
  4689. UsageLhAoptio.MSG:    dc.b    'Usage: LhA [-<options>] <command> <archive[.'
  4690.     dc.b    'LZH/LHA]> [[homedir]',$A
  4691.     dc.b    '           <filespec>...] [@file] [destdir]',$A,$A
  4692.     dc.b    '                        Where <Command> is o'
  4693.     dc.b    'ne of:',$A,$A
  4694.     dc.b    '  a   Add files                        d   D'
  4695.     dc.b    'elete files',$A
  4696.     dc.b    '  e   Extract files                    f   F'
  4697.     dc.b    'reshen files',$A
  4698.     dc.b    '  l   List archive (terse)             m   M'
  4699.     dc.b    'ove files to archive',$A
  4700.     dc.b    '  p   Print files to stdout            t   T'
  4701.     dc.b    'est archive integrity',$A
  4702.     dc.b    '  u   Update archive                   v   L'
  4703.     dc.b    'ist archive (verbose)',$A
  4704.     dc.b    '  vv  Show archive contents (full)     x   E'
  4705.     dc.b    'xtract files with full path',$A,$A
  4706.     dc.b    '                      And <Options> is one o'
  4707.     dc.b    'r more of:',$A,$A
  4708.     dc.b    ' -a  Preserve file attributes         -A  Se'
  4709.     dc.b    't archive attributes',$A
  4710.     dc.b    ' -b  Set I/O buffer size (KB)         -c  Co'
  4711.     dc.b    'nfirm files',$A
  4712.     dc.b    ' -C  Clear arc-bit on extract         -D  Al'
  4713.     dc.b    'ternate progress display',$A
  4714.     dc.b    ' -f  Ignore filenotes                 -F  Us'
  4715.     dc.b    'e fast e,x,t progress display',$A
  4716.     dc.b    ' -i  Read filelist from file          -k  Ke'
  4717.     dc.b    'ep partial files',$A
  4718.     dc.b    ' -l  Make filenames lowercase         -L  Cr'
  4719.     dc.b    'eate filelist',$A
  4720.     dc.b    ' -m  No messages for query            -M  No'
  4721.     dc.b    ' autoshow files',$A
  4722.     dc.b    ' -n  No byte progress indicator       -N  No'
  4723.     dc.b    ' progress indicator',$A
  4724.     dc.b    ' -p  Pause after loading              -P  Se'
  4725.     dc.b    't task priority',$A
  4726.     dc.b    ' -q  Be quiet                         -Q  Al'
  4727.     dc.b    'ternate option set introducer',$A
  4728.     dc.b    ' -Qh Set Huffman buffer size (KB)     -r  Co'
  4729.     dc.b    'llect files recursively',$A
  4730.     dc.b    ' -R  Collect archives recursively     -S  Se'
  4731.     dc.b    't A flag on added files',$A
  4732.     dc.b    ' -t  Only extract new files           -T  On'
  4733.     dc.b    'ly extract new & newer files',$A
  4734.     dc.b    ' -u  Make filenames uppercase         -U  Se'
  4735.     dc.b    't indicator update rate(bytes)',$A
  4736.     dc.b    ' -v  Set compression speed            -w  Se'
  4737.     dc.b    't work directory',$A
  4738.     dc.b    ' -x  Preserve and use path names      -X  Do'
  4739.     dc.b    ' not append LZH/LHA suffix',$A
  4740.     dc.b    ' -Y  Store big files w.ratio < 3%.    -z  Do'
  4741.     dc.b    ' not compress files',$A
  4742.     dc.b    ' -Z  Compress archives',$A
  4743.     dc.b    ' -0  Use LhArc V1.x compression       -2  Us'
  4744.     dc.b    'e LHA V2.x compression',$A,$A
  4745.     dc.b    '  Options are case-sensitive and may be spec'
  4746.     dc.b    'ified anywhere on the command',$A
  4747.     dc.b    'line, the option letter followed by a 0 disa'
  4748.     dc.b    'bles the option, any non-zero',$A
  4749.     dc.b    'digit will enable it. If no digit follows th'
  4750.     dc.b    'e option letter, it will be',$A
  4751.     dc.b    'enabled. Some options are enabled by default'
  4752.     dc.b    ' (depending on used command),',$A
  4753.     dc.b    'the default compression is LHA V2.x-style co'
  4754.     dc.b    'mpression. For more info please',$A
  4755.     dc.b    'consult the user''s manual.',$A,$A
  4756.     dc.b    '  The destination directory must have a trai'
  4757.     dc.b    'ling slash (/) or colon (:).',$A,$A
  4758.     dc.b    '  This is the evaluation version of LhA, it '
  4759.     dc.b    'is a cut-down version of the',$A
  4760.     dc.b    'LhA archiver. The full version (for register'
  4761.     dc.b    'ed users only) is faster and',$A
  4762.     dc.b    'has more commands and options - for example '
  4763.     dc.b    'multi-volume archive handling,',$A
  4764.     dc.b    'extended SFX archive capability and more.',$A,$A
  4765.     dc.b    '  LhA is SHAREWARE; If you use and like it, '
  4766.     dc.b    'please register by sending',$A
  4767.     dc.b    '100SEK or US$20 to the address given below. '
  4768.     dc.b    'The payment must be made in US',$A
  4769.     dc.b    'dollar or SEK bills or by a postal money ord'
  4770.     dc.b    'er (in SEK). Refer to the',$A
  4771.     dc.b    'documentation for more details on registerin'
  4772.     dc.b    'g and update policy. Inquiries',$A
  4773.     dc.b    'for use in commercial products should also b'
  4774.     dc.b    'e sent to the address below:',$A,$A
  4775.     dc.b    '  Stefan Boberg, Rydsv. 242 A:25, S-58251 Li'
  4776.     dc.b    'nk'
  4777.     dc.b    $F6
  4778.     dc.b    'ping, Sweden (Europe)',$A,0
  4779.  
  4780. c42D4:    move.l    d7,-(sp)
  4781.     move.l    d0,d7
  4782.     moveq    #$20,d0
  4783.     cmp.b    d0,d7
  4784.     beq.s    c42F4
  4785.     moveq    #9,d0
  4786.     cmp.b    d0,d7
  4787.     beq.s    c42F4
  4788.     moveq    #10,d0
  4789.     cmp.b    d0,d7
  4790.     beq.s    c42F4
  4791.     moveq    #13,d0
  4792.     cmp.b    d0,d7
  4793.     beq.s    c42F4
  4794.     moveq    #0,d0
  4795.     bra.s    c42F6
  4796.  
  4797. c42F4:    moveq    #1,d0
  4798. c42F6:    move.l    (sp)+,d7
  4799.     rts
  4800.  
  4801. w42FA:    dc.w    0
  4802. errorQuotedst.MSG:    dc.b    'error: Quoted string not terminated!',$A,$A,0
  4803.     dc.b    0
  4804. Unabletoopeni.MSG:    dc.b    'Unable to open include file %s.',$A,$A,0
  4805.  
  4806. c4346:    link.w    a5,#-$2C
  4807.     movem.l    d2-d4/d7/a2/a3/a6,-(sp)
  4808.     move.l    d0,d7
  4809.     movem.l    a0/a1,-$1C(a5)
  4810.     movea.l    -$1C(a5),a2
  4811.     lea    w42FA(pc),a0
  4812.     clr.l    $812(a4)
  4813.     move.l    -$18(a5),-$10(a5)
  4814.     movea.l    a2,a1
  4815. c436A:    tst.b    (a1)+
  4816.     bne.s    c436A
  4817.     subq.l    #1,a1
  4818.     suba.l    a2,a1
  4819.     move.l    a1,d0
  4820.     movea.l    a2,a6
  4821.     adda.l    d0,a6
  4822.     move.l    a0,-$14(a5)
  4823.     move.l    a6,$20(sp)
  4824.     bra.l    c45D0
  4825.  
  4826. c4384:    moveq    #0,d0
  4827.     move.b    (a2),d0
  4828.     bsr.l    c42D4
  4829.     tst.l    d0
  4830.     beq.s    c43A4
  4831.     bra.s    c4394
  4832.  
  4833. c4392:    addq.l    #1,a2
  4834. c4394:    moveq    #0,d0
  4835.     move.b    (a2),d0
  4836.     bsr.l    c42D4
  4837.     tst.l    d0
  4838.     bne.s    c4392
  4839.     bra.l    c45D0
  4840.  
  4841. c43A4:    moveq    #$22,d0
  4842.     cmp.b    (a2),d0
  4843.     bne.s    c43DC
  4844.     lea    1(a2),a3
  4845.     move.l    a3,-12(a5)
  4846.     bra.s    c43B6
  4847.  
  4848. c43B4:    movea.l    a2,a3
  4849. c43B6:    lea    1(a3),a2
  4850.     move.b    (a3),d0
  4851.     beq.s    c43C4
  4852.     moveq    #$22,d1
  4853.     cmp.b    d1,d0
  4854.     bne.s    c43B4
  4855. c43C4:    tst.b    (a3)
  4856.     bne.s    c43D8
  4857.     pea    errorQuotedst.MSG(pc)
  4858.     jsr    c2328(pc)
  4859.     moveq    #$14,d0
  4860.     jsr    c21BC(pc)
  4861.     addq.w    #4,sp
  4862. c43D8:    clr.b    (a3)
  4863.     bra.s    c43FC
  4864.  
  4865. c43DC:    move.l    a2,-12(a5)
  4866.     bra.s    c43E4
  4867.  
  4868. c43E2:    addq.l    #1,a2
  4869. c43E4:    move.b    (a2),d0
  4870.     beq.s    c43F6
  4871.     moveq    #0,d1
  4872.     move.b    d0,d1
  4873.     move.l    d1,d0
  4874.     bsr.l    c42D4
  4875.     tst.l    d0
  4876.     beq.s    c43E2
  4877. c43F6:    tst.b    (a2)
  4878.     beq.s    c43FC
  4879.     clr.b    (a2)+
  4880. c43FC:    movea.l    -12(a5),a3
  4881.     moveq    #$2D,d0
  4882.     cmp.b    (a3),d0
  4883.     bne.s    c4420
  4884.     cmp.b    1(a3),d0
  4885.     bne.s    c4416
  4886.     lea    1(a3),a0
  4887.     move.l    a0,-12(a5)
  4888.     bra.s    c4420
  4889.  
  4890. c4416:    movea.l    a3,a0
  4891.     jsr    c0E0A(pc)
  4892.     bra.l    c45D0
  4893.  
  4894. c4420:    movea.l    -12(a5),a3
  4895.     moveq    #$40,d0
  4896.     cmp.b    (a3),d0
  4897.     bne.l    c44D0
  4898.     move.b    1(a3),d1
  4899.     addq.l    #1,a3
  4900.     cmp.b    d0,d1
  4901.     bne.s    c443E
  4902.     move.l    a3,-12(a5)
  4903.     bra.l    c44D0
  4904.  
  4905. c443E:    move.l    #$3ED,d0
  4906.     movea.l    a3,a0
  4907.     jsr    c1276(pc)
  4908.     move.l    d0,$1C(sp)
  4909.     tst.l    d0
  4910.     beq.s    c44BA
  4911.     move.l    d0,d1
  4912.     moveq    #0,d2
  4913.     moveq    #1,d3
  4914.     movea.l    $420(a4),a6
  4915.     jsr    -$42(a6)
  4916.     move.l    $1C(sp),d1
  4917.     moveq    #-1,d3
  4918.     jsr    -$42(a6)
  4919.     move.l    d0,d1
  4920.     addq.l    #1,d1
  4921.     move.l    d0,$24(sp)
  4922.     move.l    d1,d0
  4923.     jsr    cA7AA(pc)
  4924.     move.l    d0,$28(sp)
  4925.     move.l    d0,d2
  4926.     move.l    $1C(sp),d1
  4927.     move.l    $24(sp),d3
  4928.     movea.l    $420(a4),a6
  4929.     jsr    -$2A(a6)
  4930.     move.l    $1C(sp),d0
  4931.     jsr    c12BC(pc)
  4932.     movea.l    $24(sp),a0
  4933.     movea.l    $28(sp),a1
  4934.     move.l    a0,d0
  4935.     clr.b    0(a1,d0.l)
  4936.     move.l    d7,d0
  4937.     addq.l    #1,d0
  4938.     movea.l    a1,a0
  4939.     movea.l    -$10(a5),a1
  4940.     bsr.l    c4346
  4941.     move.l    d0,-$10(a5)
  4942.     bra.l    c45D0
  4943.  
  4944. c44BA:    move.l    a3,-(sp)
  4945.     pea    Unabletoopeni.MSG(pc)
  4946.     jsr    c2328(pc)
  4947.     moveq    #$14,d0
  4948.     jsr    c21BC(pc)
  4949.     addq.w    #8,sp
  4950.     bra.l    c45D0
  4951.  
  4952. c44D0:    move.l    $816(a4),d0
  4953.     moveq    #-2,d1
  4954.     cmp.l    d1,d0
  4955.     bne.s    c4526
  4956.     movea.l    -12(a5),a3
  4957.     move.b    (a3),d1
  4958.     moveq    #$41,d2
  4959.     cmp.b    d2,d1
  4960.     bcs.s    c44EC
  4961.     moveq    #$5A,d3
  4962.     cmp.b    d3,d1
  4963.     bls.s    c44F2
  4964. c44EC:    moveq    #0,d3
  4965.     move.b    d1,d3
  4966.     bra.s    c44FA
  4967.  
  4968. c44F2:    moveq    #0,d3
  4969.     move.b    d1,d3
  4970.     moveq    #$20,d4
  4971.     add.l    d4,d3
  4972. c44FA:    move.b    d3,$810(a4)
  4973.     addq.l    #1,a3
  4974.     move.b    (a3),d0
  4975.     cmp.b    d2,d0
  4976.     bcs.s    c450C
  4977.     moveq    #$5A,d1
  4978.     cmp.b    d1,d0
  4979.     bls.s    c4512
  4980. c450C:    moveq    #0,d1
  4981.     move.b    d0,d1
  4982.     bra.s    c451A
  4983.  
  4984. c4512:    moveq    #0,d1
  4985.     move.b    d0,d1
  4986.     moveq    #$20,d0
  4987.     add.l    d0,d1
  4988. c451A:    move.b    d1,$811(a4)
  4989.     addq.l    #1,$816(a4)
  4990.     bra.l    c45D0
  4991.  
  4992. c4526:    moveq    #-1,d0
  4993.     cmp.l    $816(a4),d0
  4994.     bne.s    c4542
  4995.     movea.l    -12(a5),a0
  4996.     lea    $690(a4),a1
  4997. c4536:    move.b    (a0)+,(a1)+
  4998.     bne.s    c4536
  4999.     addq.l    #1,$816(a4)
  5000.     bra.l    c45D0
  5001.  
  5002. c4542:    movea.l    -12(a5),a3
  5003.     movea.l    a3,a0
  5004. c4548:    tst.b    (a0)+
  5005.     bne.s    c4548
  5006.     subq.l    #1,a0
  5007.     suba.l    a3,a0
  5008.     move.l    a0,d0
  5009.     movea.l    a3,a1
  5010.     adda.l    d0,a1
  5011.     move.b    -1(a1),d0
  5012.     moveq    #$2F,d1
  5013.     cmp.b    d1,d0
  5014.     beq.s    c4566
  5015.     moveq    #$3A,d2
  5016.     cmp.b    d2,d0
  5017.     bne.s    c459A
  5018. c4566:    move.b    $810(a4),d0
  5019.     moveq    #$78,d2
  5020.     cmp.b    d2,d0
  5021.     beq.s    c458E
  5022.     moveq    #$65,d2
  5023.     cmp.b    d2,d0
  5024.     beq.s    c458E
  5025.     move.l    a3,-$14(a5)
  5026.     movea.l    a1,a3
  5027.     cmp.b    -1(a3),d1
  5028.     bne.s    c4586
  5029.     clr.b    -1(a3)
  5030. c4586:    moveq    #1,d0
  5031.     move.l    d0,$812(a4)
  5032.     bra.s    c45CC
  5033.  
  5034. c458E:    movea.l    a3,a0
  5035.     lea    $710(a4),a1
  5036. c4594:    move.b    (a0)+,(a1)+
  5037.     bne.s    c4594
  5038.     bra.s    c45CC
  5039.  
  5040. c459A:    clr.l    $812(a4)
  5041.     movea.l    -$10(a5),a0
  5042.     move.l    -$14(a5),8(a0)
  5043.     move.l    a3,12(a0)
  5044.     movea.l    a3,a0
  5045.     jsr    cA9FC(pc)
  5046.     moveq    #$10,d0
  5047.     jsr    cA7AA(pc)
  5048.     move.l    d0,$1C(sp)
  5049.     movea.l    d0,a0
  5050.     movea.l    -$10(a5),a1
  5051.     jsr    c2130(pc)
  5052.     move.l    $1C(sp),-$10(a5)
  5053. c45CC:    addq.l    #1,$816(a4)
  5054. c45D0:    tst.b    (a2)
  5055.     beq.s    c45DC
  5056.     cmpa.l    $20(sp),a2
  5057.     bcs.l    c4384
  5058. c45DC:    movea.l    -$10(a5),a2
  5059.     tst.l    d7
  5060.     bne.s    c4622
  5061.     tst.l    $812(a4)
  5062.     beq.s    c45F6
  5063.     movea.l    -$14(a5),a0
  5064.     lea    $710(a4),a1
  5065. c45F2:    move.b    (a0)+,(a1)+
  5066.     bne.s    c45F2
  5067. c45F6:    movea.l    $B4(a4),a3
  5068.     bra.s    c461E
  5069.  
  5070. c45FC:    movea.l    4(a3),a0
  5071.     move.b    #$40,-1(a0)
  5072.     movea.l    4(a3),a0
  5073.     subq.l    #1,a0
  5074.     move.l    d7,d0
  5075.     addq.l    #1,d0
  5076.     movea.l    a2,a1
  5077.     bsr.l    c4346
  5078.     movea.l    d0,a2
  5079.     move.l    a2,-$10(a5)
  5080.     movea.l    (a3),a3
  5081. c461E:    move.l    a3,d0
  5082.     bne.s    c45FC
  5083. c4622:    tst.l    d7
  5084.     bne.s    c4638
  5085.     cmpa.l    -$18(a5),a2
  5086.     beq.s    c4638
  5087.     movea.l    a2,a0
  5088.     jsr    c2118(pc)
  5089.     movea.l    a2,a0
  5090.     jsr    cA894(pc)
  5091. c4638:    move.l    a2,d0
  5092.     movem.l    (sp)+,d2-d4/d7/a2/a3/a6
  5093.     unlk    a5
  5094.     rts
  5095.  
  5096.     dc.w    0
  5097.  
  5098. c4644:    link.w    a5,#-8
  5099.     move.l    a3,-(sp)
  5100.     move.l    a0,-8(a5)
  5101.     movea.l    $A1C(a4),a0
  5102.     movea.l    (a0),a3
  5103.     bra.s    c4680
  5104.  
  5105. c4656:    bclr    #2,$1F(a3)
  5106.     movea.l    $10(a3),a0
  5107.     lea    $490(a4),a1
  5108.     jsr    cA914(pc)
  5109.     lea    $790(a4),a0
  5110.     lea    $490(a4),a1
  5111.     jsr    cA9E2(pc)
  5112.     tst.l    d0
  5113.     bne.s    c467E
  5114.     bset    #2,$1F(a3)
  5115. c467E:    movea.l    (a3),a3
  5116. c4680:    cmpa.l    $A1C(a4),a3
  5117.     bne.s    c4656
  5118.     moveq    #0,d0
  5119.     movea.l    (sp)+,a3
  5120.     unlk    a5
  5121.     rts
  5122.  
  5123. Skippedalread.MSG:    dc.b    '  Skipped, already present in archive : %s',$A,0
  5124. Archivecorrup.MSG:    dc.b    10
  5125.     dc.b    ' Archive corrupted -- no files added.',$A,0
  5126. added.MSG:    dc.b    'added',0
  5127. moved.MSG:    dc.b    'moved',0
  5128. Archivecorrup.MSG0:    dc.b    10
  5129.     dc.b    ' Archive corrupted -- no files added or repl'
  5130.     dc.b    'aced.',$A,0
  5131. addedreplaced.MSG:    dc.b    'added/replaced',0,0
  5132. w4732:    dc.w    0
  5133. Archivecorrup.MSG1:    dc.b    10
  5134.     dc.b    ' Archive corrupted -- no files replaced.',$A,0
  5135.     dc.b    0
  5136. freshened.MSG:    dc.b    'freshened',0
  5137.  
  5138. c476A:    link.w    a5,#-12
  5139.     movem.l    a2/a3/a6,-(sp)
  5140.     movea.l    a1,a3
  5141.     movem.l    d0/a0,-12(a5)
  5142.     movea.l    $A1C(a4),a0
  5143.     movea.l    (a0),a2
  5144.     bra.s    c47DA
  5145.  
  5146. c4782:    btst    #2,$1F(a2)
  5147.     bne.s    c47D8
  5148.     movea.l    $10(a2),a0
  5149.     movea.l    a3,a1
  5150.     jsr    c52C2(pc)
  5151.     tst.l    d0
  5152.     bne.s    c47D8
  5153.     tst.l    $A2C(a4)
  5154.     bne.s    c47D2
  5155.     move.l    $1E(a3),d0
  5156.     beq.s    c47B0
  5157.     movea.l    d0,a0
  5158.     lea    $590(a4),a1
  5159. c47AA:    move.b    (a0)+,(a1)+
  5160.     bne.s    c47AA
  5161.     bra.s    c47B4
  5162.  
  5163. c47B0:    clr.b    $590(a4)
  5164. c47B4:    lea    $590(a4),a0
  5165.     movea.l    $1A(a3),a1
  5166.     movea.l    $424(a4),a6
  5167.     jsr    -$270(a6)
  5168.     pea    $590(a4)
  5169.     pea    Skippedalread.MSG(pc)
  5170.     jsr    c2328(pc)
  5171.     addq.w    #8,sp
  5172. c47D2:    bset    #2,$1F(a2)
  5173. c47D8:    movea.l    (a2),a2
  5174. c47DA:    cmpa.l    $A1C(a4),a2
  5175.     bne.s    c4782
  5176.     moveq    #0,d0
  5177.     movem.l    (sp)+,a2/a3/a6
  5178.     unlk    a5
  5179.     rts
  5180.  
  5181. c47EA:    link.w    a5,#-12
  5182.     movem.l    a2/a3,-(sp)
  5183.     movea.l    8(a5),a3
  5184.     movem.l    a0/a1,-12(a5)
  5185.     movea.l    $A1C(a4),a0
  5186.     movea.l    (a0),a2
  5187.     clr.l    (a3)
  5188.     movea.l    -8(a5),a0
  5189.     tst.l    (a0)
  5190.     beq.s    c4846
  5191.     pea    Archivecorrup.MSG(pc)
  5192.     jsr    c2328(pc)
  5193.     moveq    #0,d0
  5194.     bra.s    c4858
  5195.  
  5196. c4818:    btst    #2,$1F(a2)
  5197.     bne.s    c4844
  5198.     tst.l    $10(a2)
  5199.     beq.s    c4844
  5200.     move.l    $A20(a4),d0
  5201.     movea.l    a2,a0
  5202.     movea.l    -12(a5),a1
  5203.     jsr    c5EEE(pc)
  5204.     tst.l    d0
  5205.     beq.s    c4842
  5206.     movea.l    -8(a5),a0
  5207.     addq.l    #1,(a0)
  5208.     moveq    #-1,d0
  5209.     bra.s    c4858
  5210.  
  5211. c4842:    addq.l    #1,(a3)
  5212. c4844:    movea.l    (a2),a2
  5213. c4846:    cmpa.l    $A1C(a4),a2
  5214.     bne.s    c4818
  5215.     moveq    #0,d0
  5216.     movea.l    -12(a5),a0
  5217.     jsr    c1FB4(pc)
  5218.     moveq    #0,d0
  5219. c4858:    movem.l    -$14(a5),a2/a3
  5220.     unlk    a5
  5221.     rts
  5222.  
  5223. c4862:    movem.l    a2/a3,-(sp)
  5224.     movea.l    a0,a3
  5225.     movea.l    a1,a2
  5226.     lea    $A0C(a4),a0
  5227.     jsr    c21AE(pc)
  5228.     move.l    a2,$A1C(a4)
  5229.     clr.l    $A20(a4)
  5230.     moveq    #0,d0
  5231.     move.l    d0,-(sp)
  5232.     move.l    d0,-(sp)
  5233.     pea    c47EA(pc)
  5234.     move.l    d0,-(sp)
  5235.     pea    c476A(pc)
  5236.     pea    c4644(pc)
  5237.     move.l    d0,-(sp)
  5238.     pea    added.MSG(pc)
  5239.     move.l    d0,-(sp)
  5240.     move.l    d0,-(sp)
  5241.     moveq    #1,d0
  5242.     swap    d0
  5243.     movea.l    a3,a0
  5244.     lea    $A0C(a4),a1
  5245.     jsr    c4D50(pc)
  5246.     lea    $28(sp),sp
  5247.     movem.l    (sp)+,a2/a3
  5248.     rts
  5249.  
  5250. c48B0:    movem.l    a2/a3,-(sp)
  5251.     movea.l    a0,a3
  5252.     movea.l    a1,a2
  5253.     lea    $A0C(a4),a0
  5254.     jsr    c21AE(pc)
  5255.     move.l    a2,$A1C(a4)
  5256.     moveq    #1,d0
  5257.     move.l    d0,$A20(a4)
  5258.     moveq    #0,d0
  5259.     move.l    d0,-(sp)
  5260.     move.l    d0,-(sp)
  5261.     pea    c47EA(pc)
  5262.     move.l    d0,-(sp)
  5263.     pea    c476A(pc)
  5264.     pea    c4644(pc)
  5265.     move.l    d0,-(sp)
  5266.     pea    moved.MSG(pc)
  5267.     move.l    d0,-(sp)
  5268.     move.l    d0,-(sp)
  5269.     moveq    #1,d0
  5270.     swap    d0
  5271.     movea.l    a3,a0
  5272.     lea    $A0C(a4),a1
  5273.     jsr    c4D50(pc)
  5274.     lea    $28(sp),sp
  5275.     movem.l    (sp)+,a2/a3
  5276.     rts
  5277.  
  5278. c4900:    link.w    a5,#-8
  5279.     move.l    a3,-(sp)
  5280.     move.l    a0,-8(a5)
  5281.     movea.l    $A1C(a4),a0
  5282.     movea.l    (a0),a3
  5283.     moveq    #0,d0
  5284.     move.l    d0,$A24(a4)
  5285.     move.l    d0,$A28(a4)
  5286.     bra.s    c4946
  5287.  
  5288. c491C:    moveq    #-13,d0
  5289.     and.w    d0,$1E(a3)
  5290.     movea.l    $10(a3),a0
  5291.     lea    $490(a4),a1
  5292.     jsr    cA914(pc)
  5293.     lea    $790(a4),a0
  5294.     lea    $490(a4),a1
  5295.     jsr    cA9E2(pc)
  5296.     tst.l    d0
  5297.     bne.s    c4944
  5298.     bset    #2,$1F(a3)
  5299. c4944:    movea.l    (a3),a3
  5300. c4946:    cmpa.l    $A1C(a4),a3
  5301.     bne.s    c491C
  5302.     jsr    cA3D0(pc)
  5303.     moveq    #0,d0
  5304.     movea.l    (sp)+,a3
  5305.     unlk    a5
  5306.     rts
  5307.  
  5308. c4958:    link.w    a5,#-$10
  5309.     movem.l    d7/a2/a3,-(sp)
  5310.     movea.l    a1,a3
  5311.     movem.l    d0/a0,-$10(a5)
  5312.     movea.l    $A1C(a4),a0
  5313.     movea.l    (a0),a2
  5314.     moveq    #0,d7
  5315.     movea.l    a3,a0
  5316.     lea    $590(a4),a1
  5317.     jsr    c5282(pc)
  5318.     bra.s    c49B4
  5319.  
  5320. c497C:    btst    #2,$1F(a2)
  5321.     bne.s    c49B2
  5322.     movea.l    $10(a2),a0
  5323.     movea.l    a3,a1
  5324.     jsr    c52C2(pc)
  5325.     tst.l    d0
  5326.     bne.s    c49B2
  5327.     move.l    $24(a3),d0
  5328.     cmp.l    $1A(a2),d0
  5329.     bge.s    c49AC
  5330.     bset    #3,$1F(a2)
  5331.     moveq    #1,d7
  5332.     moveq    #1,d0
  5333.     move.l    d0,$A28(a4)
  5334.     bra.s    c49B2
  5335.  
  5336. c49AC:    bset    #2,$1F(a2)
  5337. c49B2:    movea.l    (a2),a2
  5338. c49B4:    cmpa.l    $A1C(a4),a2
  5339.     bne.s    c497C
  5340.     tst.l    d7
  5341.     bne.s    c49C4
  5342.     movea.l    a3,a0
  5343.     jsr    cA4C8(pc)
  5344. c49C4:    moveq    #0,d0
  5345.     movem.l    (sp)+,d7/a2/a3
  5346.     unlk    a5
  5347.     rts
  5348.  
  5349. c49CE:    link.w    a5,#-4
  5350.     move.l    a3,-(sp)
  5351.     movea.l    a1,a3
  5352.     move.l    a0,-4(a5)
  5353.     tst.l    (a3)
  5354.     beq.s    c49F0
  5355.     pea    Archivecorrup.MSG0(pc)
  5356.     jsr    c2328(pc)
  5357.     moveq    #1,d0
  5358.     move.l    d0,$A24(a4)
  5359.     moveq    #0,d0
  5360.     bra.s    c49F2
  5361.  
  5362. c49F0:    moveq    #0,d0
  5363. c49F2:    movea.l    -8(a5),a3
  5364.     unlk    a5
  5365.     rts
  5366.  
  5367. c49FA:    link.w    a5,#-$14
  5368.     movem.l    d5-d7/a2/a3,-(sp)
  5369.     movea.l    a1,a3
  5370.     move.l    a0,-$14(a5)
  5371.     movea.l    (a3),a2
  5372.     moveq    #0,d7
  5373.     move.l    a3,$A1C(a4)
  5374.     lea    $A0C(a4),a0
  5375.     jsr    c21AE(pc)
  5376.     move.l    $C0(a4),d6
  5377.     move.l    #$1E8,$C0(a4)
  5378.     moveq    #0,d0
  5379.     move.l    d0,-(sp)
  5380.     move.l    d0,-(sp)
  5381.     pea    c49CE(pc)
  5382.     move.l    d0,-(sp)
  5383.     pea    c4958(pc)
  5384.     pea    c4900(pc)
  5385.     move.l    d0,-(sp)
  5386.     move.l    d0,-(sp)
  5387.     move.l    d0,-(sp)
  5388.     move.l    d0,-(sp)
  5389.     moveq    #1,d0
  5390.     swap    d0
  5391.     movea.l    -$14(a5),a0
  5392.     lea    $A0C(a4),a1
  5393.     jsr    c4D50(pc)
  5394.     lea    $28(sp),sp
  5395.     move.l    d0,d5
  5396.     tst.l    d5
  5397.     beq.s    c4A60
  5398.     move.l    d5,d0
  5399.     bra.l    c4AFC
  5400.  
  5401. c4A60:    move.l    d6,$C0(a4)
  5402.     tst.l    $A24(a4)
  5403.     beq.s    c4A70
  5404.     moveq    #1,d0
  5405.     bra.l    c4AFC
  5406.  
  5407. c4A70:    tst.l    $A28(a4)
  5408.     bne.s    c4A8C
  5409.     moveq    #1,d0
  5410.     move.l    d0,$A2C(a4)
  5411.     movea.l    -$14(a5),a0
  5412.     movea.l    a3,a1
  5413.     bsr.l    c4862
  5414.     clr.l    $A2C(a4)
  5415.     bra.s    c4AFA
  5416.  
  5417. c4A8C:    movea.l    -$14(a5),a0
  5418.     jsr    cA53C(pc)
  5419.     movea.l    d0,a3
  5420.     move.l    a3,d0
  5421.     bne.s    c4ACE
  5422.     moveq    #-1,d0
  5423.     bra.s    c4AFC
  5424.  
  5425. c4A9E:    btst    #2,$1F(a2)
  5426.     bne.s    c4ABC
  5427.     tst.l    $10(a2)
  5428.     beq.s    c4ABC
  5429.     move.l    $A20(a4),d0
  5430.     movea.l    a2,a0
  5431.     movea.l    a3,a1
  5432.     jsr    c5EEE(pc)
  5433.     move.l    d0,d5
  5434.     addq.l    #1,d7
  5435. c4ABC:    tst.l    d5
  5436.     beq.s    c4ACC
  5437.     moveq    #0,d0
  5438.     movea.l    a3,a0
  5439.     jsr    c1FB4(pc)
  5440.     move.l    d5,d0
  5441.     bra.s    c4AFC
  5442.  
  5443. c4ACC:    movea.l    (a2),a2
  5444. c4ACE:    cmpa.l    $A1C(a4),a2
  5445.     bne.s    c4A9E
  5446.     moveq    #0,d0
  5447.     movea.l    a3,a0
  5448.     jsr    c1FB4(pc)
  5449.     movea.l    a3,a0
  5450.     jsr    c20F2(pc)
  5451.     movea.l    a3,a0
  5452.     movea.l    -$14(a5),a1
  5453.     jsr    c146C(pc)
  5454.     move.l    d0,d5
  5455.     move.l    d7,d0
  5456.     moveq    #0,d1
  5457.     lea    addedreplaced.MSG(pc),a0
  5458.     jsr    c5182(pc)
  5459. c4AFA:    move.l    d5,d0
  5460. c4AFC:    movem.l    (sp)+,d5-d7/a2/a3
  5461.     unlk    a5
  5462.     rts
  5463.  
  5464. c4B04:    link.w    a5,#-8
  5465.     move.l    a3,-(sp)
  5466.     move.l    a0,-8(a5)
  5467.     movea.l    $A30(a4),a3
  5468.     moveq    #0,d0
  5469.     move.l    d0,$A24(a4)
  5470.     move.l    d0,$A28(a4)
  5471.     bra.s    c4B24
  5472.  
  5473. c4B1E:    movea.l    a3,a0
  5474.     jsr    cA894(pc)
  5475. c4B24:    move.l    a3,d0
  5476.     bne.s    c4B1E
  5477.     suba.l    a0,a0
  5478.     move.l    a0,$A34(a4)
  5479.     move.l    a0,$A30(a4)
  5480.     jsr    cA3D0(pc)
  5481.     moveq    #0,d0
  5482.     movea.l    (sp)+,a3
  5483.     unlk    a5
  5484.     rts
  5485.  
  5486. c4B3E:    link.w    a5,#-$14
  5487.     movem.l    d2/a2/a3/a6,-(sp)
  5488.     movea.l    a1,a3
  5489.     movem.l    d0/a0,-$10(a5)
  5490.     movea.l    a3,a0
  5491.     lea    $590(a4),a1
  5492.     jsr    c5282(pc)
  5493.     moveq    #-2,d0
  5494.     lea    $590(a4),a0
  5495.     jsr    c12FC(pc)
  5496.     move.l    d0,$10(sp)
  5497.     tst.l    d0
  5498.     beq.l    c4C12
  5499.     move.l    #$104,d0
  5500.     moveq    #1,d1
  5501.     jsr    cA81C(pc)
  5502.     movea.l    d0,a2
  5503.     move.l    $10(sp),d1
  5504.     move.l    a2,d2
  5505.     movea.l    $420(a4),a6
  5506.     jsr    -$66(a6)
  5507.     move.l    $10(sp),d0
  5508.     jsr    c137C(pc)
  5509.     lea    $84(a2),a0
  5510.     lea    -8(a5),a1
  5511.     jsr    c26D6(pc)
  5512.     move.l    $24(a3),d0
  5513.     cmp.l    -8(a5),d0
  5514.     bge.s    c4C06
  5515.     moveq    #1,d0
  5516.     move.l    d0,$A28(a4)
  5517.     moveq    #$20,d1
  5518.     exg    d0,d1
  5519.     jsr    cA81C(pc)
  5520.     movea.l    d0,a3
  5521.     move.l    $7C(a2),8(a3)
  5522.     move.l    $74(a2),d0
  5523.     move.w    d0,$14(a3)
  5524.     lea    $90(a2),a0
  5525.     jsr    cA8C4(pc)
  5526.     move.l    d0,$16(a3)
  5527.     lea    w4732(pc),a0
  5528.     move.l    a0,12(a3)
  5529.     lea    $590(a4),a0
  5530.     jsr    cA8C4(pc)
  5531.     move.l    d0,$10(a3)
  5532.     move.l    -8(a5),$1A(a3)
  5533.     tst.l    $A34(a4)
  5534.     beq.s    c4BFC
  5535.     movea.l    $A34(a4),a0
  5536.     move.l    a3,(a0)
  5537.     move.l    a3,$A34(a4)
  5538.     bra.s    c4C0C
  5539.  
  5540. c4BFC:    move.l    a3,$A34(a4)
  5541.     move.l    a3,$A30(a4)
  5542.     bra.s    c4C0C
  5543.  
  5544. c4C06:    movea.l    a3,a0
  5545.     jsr    cA4C8(pc)
  5546. c4C0C:    movea.l    a2,a0
  5547.     jsr    cA894(pc)
  5548. c4C12:    moveq    #0,d0
  5549.     movem.l    (sp)+,d2/a2/a3/a6
  5550.     unlk    a5
  5551.     rts
  5552.  
  5553. c4C1C:    link.w    a5,#-8
  5554.     move.l    a3,-(sp)
  5555.     movea.l    a1,a3
  5556.     movem.l    d0/a0,-8(a5)
  5557.     movea.l    a3,a0
  5558.     jsr    cA4C8(pc)
  5559.     moveq    #0,d0
  5560.     movea.l    (sp)+,a3
  5561.     unlk    a5
  5562.     rts
  5563.  
  5564. c4C38:    link.w    a5,#-4
  5565.     move.l    a3,-(sp)
  5566.     movea.l    a1,a3
  5567.     move.l    a0,-4(a5)
  5568.     tst.l    (a3)
  5569.     beq.s    c4C5A
  5570.     pea    Archivecorrup.MSG1(pc)
  5571.     jsr    c2328(pc)
  5572.     moveq    #1,d0
  5573.     move.l    d0,$A24(a4)
  5574.     moveq    #0,d0
  5575.     bra.s    c4C5C
  5576.  
  5577. c4C5A:    moveq    #0,d0
  5578. c4C5C:    movea.l    -8(a5),a3
  5579.     unlk    a5
  5580.     rts
  5581.  
  5582. c4C64:    link.w    a5,#-$14
  5583.     movem.l    d6/d7/a2/a3,-(sp)
  5584.     movea.l    a1,a3
  5585.     move.l    a0,-$10(a5)
  5586.     moveq    #0,d7
  5587.     move.l    $C0(a4),d6
  5588.     move.l    #$1E8,$C0(a4)
  5589.     moveq    #0,d0
  5590.     move.l    d0,-(sp)
  5591.     move.l    d0,-(sp)
  5592.     pea    c4C38(pc)
  5593.     pea    c4C1C(pc)
  5594.     pea    c4B3E(pc)
  5595.     pea    c4B04(pc)
  5596.     move.l    d0,-(sp)
  5597.     move.l    d0,-(sp)
  5598.     move.l    d0,-(sp)
  5599.     move.l    d0,-(sp)
  5600.     moveq    #1,d0
  5601.     swap    d0
  5602.     movea.l    -$10(a5),a0
  5603.     movea.l    a3,a1
  5604.     jsr    c4D50(pc)
  5605.     lea    $28(sp),sp
  5606.     tst.l    d0
  5607.     bne.l    c4D46
  5608.     move.l    d6,$C0(a4)
  5609.     tst.l    $A24(a4)
  5610.     beq.s    c4CC6
  5611.     moveq    #1,d0
  5612.     bra.l    c4D46
  5613.  
  5614. c4CC6:    tst.l    $A28(a4)
  5615.     bne.s    c4CDC
  5616.     moveq    #0,d0
  5617.     move.l    d0,d1
  5618.     lea    freshened.MSG(pc),a0
  5619.     jsr    c5182(pc)
  5620.     moveq    #0,d0
  5621.     bra.s    c4D46
  5622.  
  5623. c4CDC:    movea.l    -$10(a5),a0
  5624.     jsr    cA53C(pc)
  5625.     movea.l    d0,a2
  5626.     move.l    a2,d0
  5627.     bne.s    c4CEE
  5628.     moveq    #-1,d0
  5629.     bra.s    c4D46
  5630.  
  5631. c4CEE:    movea.l    $A30(a4),a3
  5632.     bra.s    c4D16
  5633.  
  5634. c4CF4:    move.l    $A20(a4),d0
  5635.     movea.l    a3,a0
  5636.     movea.l    a2,a1
  5637.     jsr    c5EEE(pc)
  5638.     move.l    d0,d6
  5639.     addq.l    #1,d7
  5640.     tst.l    d6
  5641.     beq.s    c4D14
  5642.     moveq    #0,d0
  5643.     movea.l    a2,a0
  5644.     jsr    c1FB4(pc)
  5645.     move.l    d6,d0
  5646.     bra.s    c4D46
  5647.  
  5648. c4D14:    movea.l    (a3),a3
  5649. c4D16:    move.l    a3,d0
  5650.     bne.s    c4CF4
  5651.     moveq    #0,d0
  5652.     movea.l    a2,a0
  5653.     jsr    c1FB4(pc)
  5654.     movea.l    a2,a0
  5655.     jsr    c20F2(pc)
  5656.     movea.l    a2,a0
  5657.     movea.l    -$10(a5),a1
  5658.     jsr    c146C(pc)
  5659.     move.l    d0,$10(sp)
  5660.     move.l    d7,d0
  5661.     moveq    #0,d1
  5662.     lea    freshened.MSG(pc),a0
  5663.     jsr    c5182(pc)
  5664.     move.l    $10(sp),d0
  5665. c4D46:    movem.l    (sp)+,d6/d7/a2/a3
  5666.     unlk    a5
  5667.     rts
  5668.  
  5669.     dc.w    0
  5670.  
  5671. c4D50:    link.w    a5,#-$130
  5672.     movem.l    d4-d7/a2/a3/a6,-(sp)
  5673.     movea.l    a0,a3
  5674.     move.l    d0,d7
  5675.     move.l    a1,-$126(a5)
  5676.     moveq    #0,d0
  5677.     move.l    d0,-$14(a5)
  5678.     move.l    d0,d4
  5679.     move.l    d0,-$18(a5)
  5680.     move.l    d0,d6
  5681.     move.l    d0,-$20(a5)
  5682.     tst.l    -$126(a5)
  5683.     beq.s    c4D82
  5684.     tst.l    $14(a5)
  5685.     beq.s    c4D82
  5686.     move.l    $83C(a4),d6
  5687. c4D82:    move.l    d6,-$1C(a5)
  5688.     btst    #$10,d7
  5689.     beq.s    c4D90
  5690.     moveq    #$77,d0
  5691.     bra.s    c4D92
  5692.  
  5693. c4D90:    moveq    #$72,d0
  5694. c4D92:    moveq    #0,d6
  5695.     move.b    d0,d6
  5696.     move.l    d7,d0
  5697.     andi.l    #$FFFF,d0
  5698.     movem.l    d0,$20(sp)
  5699.     cmpi.l    #$1E8,d0
  5700.     bne.s    c4DB4
  5701.     move.l    #$1E8,d1
  5702.     bra.s    c4DB8
  5703.  
  5704. c4DB4:    move.l    $C0(a4),d1
  5705. c4DB8:    move.l    d6,d0
  5706.     movea.l    a3,a0
  5707.     jsr    c1564(pc)
  5708.     movea.l    d0,a2
  5709.     move.l    a2,d0
  5710.     bne.s    c4DE8
  5711.     btst    #$10,d7
  5712.     beq.s    c4DD2
  5713.     lea    forwriting.MSG(pc),a0
  5714.     bra.s    c4DD6
  5715.  
  5716. c4DD2:    lea    w5090(pc),a0
  5717. c4DD6:    move.l    a0,-(sp)
  5718.     move.l    a3,-(sp)
  5719.     pea    LhAUnabletoop.MSG0(pc)
  5720.     jsr    c2328(pc)
  5721.     moveq    #2,d0
  5722.     bra.l    c504E
  5723.  
  5724. c4DE8:    movea.l    a3,a0
  5725.     lea    $790(a4),a1
  5726.     jsr    cA914(pc)
  5727.     movea.l    $18(a5),a3
  5728.     move.l    -$20(a5),d7
  5729.     move.l    a3,d0
  5730.     beq.l    c4FF6
  5731.     movea.l    a2,a0
  5732.     jsr    (a3)
  5733.     bra.l    c4FF6
  5734.  
  5735. c4E08:    tst.l    d6
  5736.     beq.s    c4E14
  5737.     moveq    #1,d0
  5738.     cmp.l    d0,d4
  5739.     bge.s    c4E14
  5740.     move.l    d0,d4
  5741. c4E14:    moveq    #2,d0
  5742.     cmp.l    d0,d6
  5743.     bge.l    c500A
  5744.     lea    $1E0(a4),a0
  5745.     movea.l    -$126(a5),a1
  5746.     jsr    c36A0(pc)
  5747.     move.l    d0,d6
  5748.     lea    $1E0(a4),a0
  5749.     lea    -$120(a5),a1
  5750.     bsr.l    c5282
  5751.     tst.l    -$1C(a5)
  5752.     beq.s    c4E6E
  5753.     tst.l    d6
  5754.     beq.s    c4E6E
  5755.     movea.l    $14(a5),a3
  5756.     move.l    a3,d0
  5757.     beq.s    c4E6E
  5758.     pea    -$120(a5)
  5759.     move.l    a3,-(sp)
  5760.     pea    ss.MSG(pc)
  5761.     pea    $490(a4)
  5762.     jsr    c2374(pc)
  5763.     moveq    #2,d0
  5764.     lea    $490(a4),a0
  5765.     jsr    c25A2(pc)
  5766.     lea    $10(sp),sp
  5767.     tst.l    d0
  5768.     bne.s    c4E6E
  5769.     moveq    #0,d6
  5770. c4E6E:    movea.l    a2,a0
  5771.     jsr    c20F2(pc)
  5772.     move.l    d0,d7
  5773.     move.l    d7,-$20(a5)
  5774.     tst.l    d6
  5775.     beq.s    c4E84
  5776.     tst.l    $1C(a5)
  5777.     bne.s    c4E92
  5778. c4E84:    tst.l    d6
  5779.     bne.l    c4FBE
  5780.     tst.l    $20(a5)
  5781.     beq.l    c4FBE
  5782. c4E92:    movea.l    8(a5),a3
  5783.     tst.l    d6
  5784.     beq.s    c4EB0
  5785.     move.l    a3,d0
  5786.     beq.s    c4EB0
  5787.     pea    -$120(a5)
  5788.     lea    $1E0(a4),a0
  5789.     movea.l    a3,a1
  5790.     jsr    c9B10(pc)
  5791.     addq.w    #4,sp
  5792.     bra.s    c4ECC
  5793.  
  5794. c4EB0:    tst.l    d6
  5795.     bne.s    c4ECC
  5796.     tst.l    12(a5)
  5797.     beq.s    c4ECC
  5798.     pea    -$120(a5)
  5799.     lea    $1E0(a4),a0
  5800.     movea.l    12(a5),a1
  5801.     jsr    c9B10(pc)
  5802.     addq.w    #4,sp
  5803. c4ECC:    move.l    $20(sp),d5
  5804.     tst.l    d6
  5805.     beq.s    c4EF0
  5806.     move.l    $28(a5),-(sp)
  5807.     move.l    $2C(a5),-(sp)
  5808.     move.l    d5,d0
  5809.     movea.l    a2,a0
  5810.     lea    $1E0(a4),a1
  5811.     movea.l    $1C(a5),a6
  5812.     jsr    (a6)
  5813.     addq.w    #8,sp
  5814.     move.l    d0,d5
  5815.     bra.s    c4F0A
  5816.  
  5817. c4EF0:    move.l    $28(a5),-(sp)
  5818.     move.l    $2C(a5),-(sp)
  5819.     move.l    d5,d0
  5820.     movea.l    a2,a0
  5821.     lea    $1E0(a4),a1
  5822.     movea.l    $20(a5),a6
  5823.     jsr    (a6)
  5824.     addq.w    #8,sp
  5825.     move.l    d0,d5
  5826. c4F0A:    tst.l    d6
  5827.     beq.s    c4F16
  5828.     tst.l    d5
  5829.     bmi.s    c4F16
  5830.     addq.l    #1,-$14(a5)
  5831. c4F16:    tst.l    d5
  5832.     ble.s    c4F40
  5833.     jsr    c2406(pc)
  5834.     move.l    $1FA(a4),-(sp)
  5835.     pea    Erroronfiles.MSG(pc)
  5836.     jsr    c2328(pc)
  5837.     move.l    d5,d0
  5838.     jsr    cAD80(pc)
  5839.     addq.w    #8,sp
  5840.     cmp.l    d4,d0
  5841.     ble.s    c4F38
  5842.     move.l    d0,d4
  5843. c4F38:    addq.l    #1,-$18(a5)
  5844.     bra.l    c4FBE
  5845.  
  5846. c4F40:    tst.l    $E4(a4)
  5847.     beq.s    c4F8C
  5848.     tst.l    $86C(a4)
  5849.     bne.s    c4F8C
  5850.     clr.w    -$122(a5)
  5851.     tst.l    d5
  5852.     bpl.s    c4F60
  5853.     pea    K.MSG1(pc)
  5854.     jsr    c2328(pc)
  5855.     addq.w    #4,sp
  5856.     bra.s    c4FA2
  5857.  
  5858. c4F60:    tst.l    d6
  5859.     bne.s    c4F6A
  5860.     tst.l    12(a5)
  5861.     bne.s    c4F72
  5862. c4F6A:    tst.l    d6
  5863.     beq.s    c4FA2
  5864.     move.l    a3,d0
  5865.     beq.s    c4FA2
  5866. c4F72:    move.l    $1EC(a4),d0
  5867.     move.l    d0,d1
  5868.     lea    -$122(a5),a0
  5869.     jsr    c9D22(pc)
  5870.     pea    ascii.MSG2(pc)
  5871.     jsr    c2328(pc)
  5872.     addq.w    #4,sp
  5873.     bra.s    c4FA2
  5874.  
  5875. c4F8C:    tst.l    $864(a4)
  5876.     bne.s    c4FA2
  5877.     tst.l    $E4(a4)
  5878.     beq.s    c4FA2
  5879.     pea    ascii.MSG2(pc)
  5880.     jsr    c2328(pc)
  5881.     addq.w    #4,sp
  5882. c4FA2:    tst.l    d6
  5883.     bne.s    c4FAC
  5884.     tst.l    12(a5)
  5885.     bne.s    c4FB4
  5886. c4FAC:    tst.l    d6
  5887.     beq.s    c4FBE
  5888.     move.l    a3,d0
  5889.     beq.s    c4FBE
  5890. c4FB4:    tst.l    $864(a4)
  5891.     bne.s    c4FBE
  5892.     jsr    c2406(pc)
  5893. c4FBE:    moveq    #2,d0
  5894.     cmp.l    d0,d4
  5895.     beq.s    c500A
  5896.     move.l    -$20(a5),d7
  5897.     tst.l    d6
  5898.     beq.s    c4FDC
  5899.     tst.l    d5
  5900.     beq.s    c4FDC
  5901.     moveq    #4,d0
  5902.     cmp.l    d0,d5
  5903.     beq.s    c4FDC
  5904.     moveq    #-1,d0
  5905.     cmp.l    d0,d5
  5906.     bne.s    c4FEC
  5907. c4FDC:    add.l    $1F0(a4),d7
  5908.     move.l    d7,d0
  5909.     moveq    #0,d1
  5910.     movea.l    a2,a0
  5911.     jsr    c188C(pc)
  5912.     bra.s    c4FF6
  5913.  
  5914. c4FEC:    move.l    d7,d0
  5915.     moveq    #0,d1
  5916.     movea.l    a2,a0
  5917.     jsr    c188C(pc)
  5918. c4FF6:    lea    $1E0(a4),a0
  5919.     movea.l    a2,a1
  5920.     jsr    c55F8(pc)
  5921.     move.l    d0,d6
  5922.     moveq    #-1,d0
  5923.     cmp.l    d0,d6
  5924.     bne.l    c4E08
  5925. c500A:    movea.l    $24(a5),a3
  5926.     move.l    a3,d0
  5927.     beq.s    c5030
  5928.     move.l    d7,d0
  5929.     moveq    #0,d1
  5930.     movea.l    a2,a0
  5931.     jsr    c188C(pc)
  5932.     pea    -$14(a5)
  5933.     movea.l    a2,a0
  5934.     lea    -$18(a5),a1
  5935.     jsr    (a3)
  5936.     addq.w    #4,sp
  5937.     tst.l    d0
  5938.     bpl.s    c5030
  5939.     moveq    #1,d4
  5940. c5030:    movea.l    a2,a0
  5941.     jsr    c1732(pc)
  5942.     movea.l    $10(a5),a2
  5943.     move.l    a2,d0
  5944.     beq.s    c504C
  5945.     move.l    -$14(a5),d0
  5946.     move.l    -$18(a5),d1
  5947.     movea.l    a2,a0
  5948.     bsr.l    c5182
  5949. c504C:    move.l    d4,d0
  5950. c504E:    movem.l    -$14C(a5),d4-d7/a2/a3/a6
  5951.     unlk    a5
  5952.     rts
  5953.  
  5954. LhAUnabletoop.MSG0:    dc.b    'LhA: Unable to open archive file ''%s''%s.',$A,0
  5955. forwriting.MSG:    dc.b    ' for writing',0,0
  5956. w5090:    dc.w    0
  5957. ss.MSG:    dc.b    13
  5958.     dc.b    '%s ''%s''? ',0,0
  5959. Erroronfiles.MSG:    dc.b    13
  5960.     dc.b    '*** Error on file ''%s'' : ',0,0
  5961. K.MSG1:    dc.b    13
  5962.     dc.b    $1B
  5963.     dc.b    '[K',0,0
  5964. ascii.MSG2:    dc.b    10
  5965.     dc.b    0
  5966. Nofiless.MSG:    dc.b    13
  5967.     dc.b    'No files %s',0,0
  5968. files.MSG:    dc.b    13
  5969.     dc.b    '1 file %s',0,0
  5970. ldfiless.MSG:    dc.b    13
  5971.     dc.b    '%ld files %s',0
  5972. ldfilesfailed.MSG:    dc.b    ', %ld files failed',0,0
  5973. filefailed.MSG:    dc.b    ', 1 file failed',0
  5974. allfilesOK.MSG:    dc.b    ', all files OK',0,0
  5975. K.MSG2:    dc.b    '.'
  5976.     dc.b    $1B
  5977.     dc.b    '[K',$A,$A,0
  5978.     dc.b    0
  5979. sarchives.MSG:    dc.b    13
  5980.     dc.b    '%s archive ''%s''? ',0,0
  5981. Creatinglistf.MSG:    dc.b    'Creating list file `%s'' ... ',0,0
  5982. done.MSG:    dc.b    'done.',$A,0
  5983.     dc.b    0
  5984. Unabletocreat.MSG:    dc.b    'Unable to create list file `%s''.',$A,0
  5985.  
  5986. c5182:    movem.l    d6/d7/a3,-(sp)
  5987.     movea.l    a0,a3
  5988.     move.l    d0,d7
  5989.     move.l    d1,d6
  5990.     tst.l    d7
  5991.     bne.s    c519E
  5992.     move.l    a3,-(sp)
  5993.     pea    Nofiless.MSG(pc)
  5994.     jsr    c2328(pc)
  5995.     addq.w    #8,sp
  5996.     bra.s    c51C2
  5997.  
  5998. c519E:    moveq    #1,d0
  5999.     cmp.l    d0,d7
  6000.     bne.s    c51B2
  6001.     move.l    a3,-(sp)
  6002.     pea    files.MSG(pc)
  6003.     jsr    c2328(pc)
  6004.     addq.w    #8,sp
  6005.     bra.s    c51C2
  6006.  
  6007. c51B2:    move.l    a3,-(sp)
  6008.     move.l    d7,-(sp)
  6009.     pea    ldfiless.MSG(pc)
  6010.     jsr    c2328(pc)
  6011.     lea    12(sp),sp
  6012. c51C2:    tst.l    d6
  6013.     beq.s    c51E6
  6014.     moveq    #1,d0
  6015.     cmp.l    d0,d6
  6016.     ble.s    c51DA
  6017.     move.l    d6,-(sp)
  6018.     pea    ldfilesfailed.MSG(pc)
  6019.     jsr    c2328(pc)
  6020.     addq.w    #8,sp
  6021.     bra.s    c51F4
  6022.  
  6023. c51DA:    pea    filefailed.MSG(pc)
  6024.     jsr    c2328(pc)
  6025.     addq.w    #4,sp
  6026.     bra.s    c51F4
  6027.  
  6028. c51E6:    tst.l    d7
  6029.     beq.s    c51F4
  6030.     pea    allfilesOK.MSG(pc)
  6031.     jsr    c2328(pc)
  6032.     addq.w    #4,sp
  6033. c51F4:    pea    K.MSG2(pc)
  6034.     jsr    c2328(pc)
  6035.     addq.w    #4,sp
  6036.     movem.l    (sp)+,d6/d7/a3
  6037.     rts
  6038.  
  6039. c5204:    link.w    a5,#-$10
  6040.     movem.l    a2/a3,-(sp)
  6041.     movem.l    a0/a1,-$10(a5)
  6042.     tst.l    $83C(a4)
  6043.     beq.s    c527A
  6044.     movea.l    -$10(a5),a0
  6045.     movea.l    (a0),a3
  6046.     movea.l    (a3),a0
  6047.     cmpa.l    a3,a0
  6048.     bne.s    c5274
  6049.     bra.s    c527A
  6050.  
  6051. c5226:    movea.l    (a3),a2
  6052.     move.l    $10(a3),-(sp)
  6053.     move.l    -12(a5),-(sp)
  6054.     pea    sarchives.MSG(pc)
  6055.     pea    $590(a4)
  6056.     jsr    c2374(pc)
  6057.     moveq    #1,d0
  6058.     lea    $590(a4),a0
  6059.     jsr    c25A2(pc)
  6060.     lea    $10(sp),sp
  6061.     tst.l    d0
  6062.     bne.s    c5272
  6063.     movea.l    a3,a0
  6064.     jsr    c2118(pc)
  6065.     movea.l    $10(a3),a0
  6066.     jsr    cA894(pc)
  6067.     movea.l    12(a3),a0
  6068.     jsr    cA894(pc)
  6069.     movea.l    $16(a3),a0
  6070.     jsr    cA894(pc)
  6071.     movea.l    a3,a0
  6072.     jsr    cA894(pc)
  6073. c5272:    movea.l    a2,a3
  6074. c5274:    cmpa.l    -$10(a5),a3
  6075.     bne.s    c5226
  6076. c527A:    movem.l    (sp)+,a2/a3
  6077.     unlk    a5
  6078.     rts
  6079.  
  6080. c5282:    movem.l    a2/a3/a6,-(sp)
  6081.     movea.l    a0,a3
  6082.     movea.l    a1,a2
  6083.     tst.l    $D4(a4)
  6084.     beq.s    c52B2
  6085.     move.l    $1E(a3),d0
  6086.     beq.s    c52A0
  6087.     movea.l    d0,a0
  6088.     movea.l    a2,a1
  6089. c529A:    move.b    (a0)+,(a1)+
  6090.     bne.s    c529A
  6091.     bra.s    c52A2
  6092.  
  6093. c52A0:    clr.b    (a2)
  6094. c52A2:    movea.l    a2,a0
  6095.     movea.l    $1A(a3),a1
  6096.     movea.l    $424(a4),a6
  6097.     jsr    -$270(a6)
  6098.     bra.s    c52BC
  6099.  
  6100. c52B2:    movea.l    $1A(a3),a0
  6101.     movea.l    a2,a1
  6102. c52B8:    move.b    (a0)+,(a1)+
  6103.     bne.s    c52B8
  6104. c52BC:    movem.l    (sp)+,a2/a3/a6
  6105.     rts
  6106.  
  6107. c52C2:    movem.l    a2/a3/a6,-(sp)
  6108.     movea.l    a0,a3
  6109.     movea.l    a1,a2
  6110.     move.l    a3,d0
  6111.     bne.s    c52D2
  6112.     moveq    #1,d0
  6113.     bra.s    c534E
  6114.  
  6115. c52D2:    move.l    $1E(a2),d0
  6116.     beq.s    c52E4
  6117.     movea.l    d0,a0
  6118.     lea    $490(a4),a1
  6119. c52DE:    move.b    (a0)+,(a1)+
  6120.     bne.s    c52DE
  6121.     bra.s    c52E8
  6122.  
  6123. c52E4:    clr.b    $490(a4)
  6124. c52E8:    lea    $490(a4),a0
  6125.     movea.l    $1A(a2),a1
  6126.     movea.l    $424(a4),a6
  6127.     jsr    -$270(a6)
  6128.     movea.l    a3,a0
  6129.     lea    $590(a4),a1
  6130.     jsr    cA914(pc)
  6131.     lea    $590(a4),a3
  6132.     tst.l    $D4(a4)
  6133.     bne.s    c5344
  6134.     lea    $590(a4),a0
  6135.     movea.l    a0,a1
  6136. c5312:    tst.b    (a1)+
  6137.     bne.s    c5312
  6138.     subq.l    #1,a1
  6139.     suba.l    a0,a1
  6140.     move.l    a1,d0
  6141.     adda.l    d0,a0
  6142.     movea.l    a0,a3
  6143.     bra.s    c5324
  6144.  
  6145. c5322:    subq.l    #1,a3
  6146. c5324:    lea    $590(a4),a0
  6147.     cmpa.l    a0,a3
  6148.     beq.s    c533A
  6149.     move.b    (a3),d0
  6150.     moveq    #$2F,d1
  6151.     cmp.b    d1,d0
  6152.     beq.s    c533A
  6153.     moveq    #$3A,d1
  6154.     cmp.b    d1,d0
  6155.     bne.s    c5322
  6156. c533A:    lea    $590(a4),a0
  6157.     cmpa.l    a3,a0
  6158.     beq.s    c5344
  6159.     addq.l    #1,a3
  6160. c5344:    movea.l    a3,a0
  6161.     lea    $490(a4),a1
  6162.     jsr    cA9E2(pc)
  6163. c534E:    movem.l    (sp)+,a2/a3/a6
  6164.     rts
  6165.  
  6166. c5354:    movem.l    d2/a3/a6,-(sp)
  6167.     movea.l    a0,a3
  6168.     tst.l    $DC(a4)
  6169.     beq.s    c536C
  6170.     move.l    a3,d1
  6171.     moveq    #2,d2
  6172.     movea.l    $420(a4),a6
  6173.     jsr    -$BA(a6)
  6174. c536C:    movem.l    (sp)+,d2/a3/a6
  6175.     rts
  6176.  
  6177. c5372:    link.w    a5,#-12
  6178.     movem.l    d2/d3/d7/a2/a3/a6,-(sp)
  6179.     movea.l    a0,a3
  6180.     move.l    a1,-12(a5)
  6181.     movea.l    -12(a5),a0
  6182.     movea.l    (a0),a2
  6183.     move.l    #$3EE,d0
  6184.     movea.l    a3,a0
  6185.     jsr    c1276(pc)
  6186.     move.l    d0,d7
  6187.     tst.l    d7
  6188.     beq.s    c5406
  6189.     move.l    a3,-(sp)
  6190.     pea    Creatinglistf.MSG(pc)
  6191.     jsr    c2328(pc)
  6192.     addq.w    #8,sp
  6193.     movea.l    -12(a5),a3
  6194. c53A8:    btst    #2,$1F(a2)
  6195.     bne.s    c53EE
  6196.     movea.l    $10(a2),a0
  6197.     lea    $490(a4),a1
  6198.     jsr    cA914(pc)
  6199.     lea    $490(a4),a0
  6200.     movea.l    a0,a1
  6201. c53C2:    tst.b    (a1)+
  6202.     bne.s    c53C2
  6203.     subq.l    #1,a1
  6204.     suba.l    a0,a1
  6205.     lea    $490(a4),a6
  6206.     move.l    a1,d0
  6207.     move.b    #10,0(a6,d0.l)
  6208.     lea    $490(a4),a6
  6209.     clr.b    1(a6,d0.l)
  6210.     addq.l    #1,d0
  6211.     move.l    a0,d2
  6212.     move.l    d0,d3
  6213.     move.l    d7,d1
  6214.     movea.l    $420(a4),a6
  6215.     jsr    -$30(a6)
  6216. c53EE:    movea.l    (a2),a2
  6217.     cmpa.l    a3,a2
  6218.     bne.s    c53A8
  6219.     move.l    d7,d0
  6220.     jsr    c12BC(pc)
  6221.     pea    done.MSG(pc)
  6222.     jsr    c2328(pc)
  6223.     addq.w    #4,sp
  6224.     bra.s    c5412
  6225.  
  6226. c5406:    move.l    a3,-(sp)
  6227.     pea    Unabletocreat.MSG(pc)
  6228.     jsr    c2328(pc)
  6229.     addq.w    #8,sp
  6230. c5412:    movem.l    (sp)+,d2/d3/d7/a2/a3/a6
  6231.     unlk    a5
  6232.     rts
  6233.  
  6234.     dc.w    0
  6235.  
  6236. c541C:    movem.l    d6/d7/a3,-(sp)
  6237.     movea.l    a0,a3
  6238.     move.l    d0,d7
  6239.     bra.s    c543C
  6240.  
  6241. c5426:    moveq    #$5C,d0
  6242.     cmp.b    d0,d6
  6243.     beq.s    c5438
  6244.     moveq    #$2F,d0
  6245.     cmp.b    d0,d6
  6246.     beq.s    c5438
  6247.     cmpi.b    #$FF,d6
  6248.     bne.s    c543A
  6249. c5438:    move.b    d7,(a3)
  6250. c543A:    addq.l    #1,a3
  6251. c543C:    move.b    (a3),d6
  6252.     tst.b    d6
  6253.     bne.s    c5426
  6254.     movem.l    (sp)+,d6/d7/a3
  6255.     rts
  6256.  
  6257. LHHDRHeaderto.MSG:    dc.b    13
  6258.     dc.b    '     LHHDR: Header too long or corrupted'
  6259.     dc.b    $1B
  6260.     dc.b    '[K',$A,0
  6261. WARNINGSkippi.MSG:    dc.b    13
  6262.     dc.b    '     WARNING: Skipping corrupt/extraneous da'
  6263.     dc.b    'ta'
  6264.     dc.b    $1B
  6265.     dc.b    '[K',$A,0
  6266. Warningsisani.MSG:    dc.b    13
  6267.     dc.b    '** Warning: `%s'' is an illegal filename.'
  6268.     dc.b    $1B
  6269.     dc.b    '[K',$A,0
  6270.  
  6271. c54D8:    movem.l    d2/d7/a3,-(sp)
  6272.     movea.l    a0,a3
  6273.     bra.s    c553E
  6274.  
  6275. c54E0:    moveq    #0,d7
  6276.     bra.s    c54F8
  6277.  
  6278. c54E4:    move.l    d7,d0
  6279.     ext.l    d0
  6280.     lea    $A39(a4),a0
  6281.     lea    $A38(a4),a1
  6282.     move.b    0(a0,d0.l),0(a1,d7.w)
  6283.     addq.w    #1,d7
  6284. c54F8:    moveq    #4,d0
  6285.     cmp.w    d0,d7
  6286.     blt.s    c54E4
  6287.     movea.l    a3,a0
  6288.     jsr    c201A(pc)
  6289.     move.b    d0,$A3C(a4)
  6290.     move.b    $A38(a4),d1
  6291.     moveq    #$2D,d2
  6292.     cmp.b    d2,d1
  6293.     bne.s    c553E
  6294.     cmp.b    d2,d0
  6295.     bne.s    c553E
  6296.     move.b    $A39(a4),d0
  6297.     moveq    #$6C,d1
  6298.     cmp.b    d1,d0
  6299.     bne.s    c553E
  6300.     movea.l    a3,a0
  6301.     jsr    c20F2(pc)
  6302.     moveq    #7,d1
  6303.     cmp.l    d1,d0
  6304.     bge.s    c5530
  6305.     moveq    #1,d0
  6306.     bra.s    c554A
  6307.  
  6308. c5530:    moveq    #-7,d0
  6309.     moveq    #1,d1
  6310.     movea.l    a3,a0
  6311.     jsr    c188C(pc)
  6312.     moveq    #0,d0
  6313.     bra.s    c554A
  6314.  
  6315. c553E:    movea.l    a3,a0
  6316.     jsr    c20C6(pc)
  6317.     tst.l    d0
  6318.     beq.s    c54E0
  6319.     moveq    #1,d0
  6320. c554A:    movem.l    (sp)+,d2/d7/a3
  6321.     rts
  6322.  
  6323. c5550:    movem.l    d7/a2/a3,-(sp)
  6324.     movea.l    a0,a3
  6325.     movea.l    a3,a0
  6326.     addq.l    #2,a3
  6327.     moveq    #0,d7
  6328.     moveq    #0,d0
  6329.     move.b    (a0),d0
  6330.     adda.w    d0,a0
  6331.     lea    2(a0),a2
  6332.     bra.s    c556C
  6333.  
  6334. c5568:    add.b    (a3),d7
  6335.     addq.l    #1,a3
  6336. c556C:    cmpa.l    a2,a3
  6337.     bcs.s    c5568
  6338.     move.l    d7,d0
  6339.     movem.l    (sp)+,d7/a2/a3
  6340.     rts
  6341.  
  6342. c5578:    link.w    a5,#-4
  6343.     movem.l    d2/a2/a3,-(sp)
  6344.     movea.l    a0,a3
  6345.     movea.l    a1,a2
  6346.     moveq    #0,d0
  6347.     move.b    2(a3),d0
  6348.     tst.w    d0
  6349.     beq.s    c55EE
  6350.     subq.w    #1,d0
  6351.     beq.s    c55EE
  6352.     subq.w    #1,d0
  6353.     beq.s    c559E
  6354.     subi.w    #$3E,d0
  6355.     beq.s    c55EE
  6356.     bra.s    c55E8
  6357.  
  6358. c559E:    moveq    #0,d0
  6359.     move.b    1(a3),d0
  6360.     asl.l    #8,d0
  6361.     moveq    #0,d1
  6362.     move.b    (a3),d1
  6363.     add.l    d0,d1
  6364.     move.l    d1,12(sp)
  6365.     move.l    d1,d0
  6366.     jsr    cA7AA(pc)
  6367.     move.l    d0,$1E(a2)
  6368.     lea    3(a3),a0
  6369.     move.l    12(sp),d1
  6370.     move.l    d1,d2
  6371.     subq.l    #3,d2
  6372.     movea.l    d0,a1
  6373.     bra.s    c55CC
  6374.  
  6375. c55CA:    move.b    (a0)+,(a1)+
  6376. c55CC:    subq.l    #1,d2
  6377.     bcc.s    c55CA
  6378.     movea.l    $1E(a2),a0
  6379.     movea.l    a0,a1
  6380.     adda.l    d1,a1
  6381.     clr.b    -3(a1)
  6382.     moveq    #$2F,d0
  6383.     movea.l    $1E(a2),a0
  6384.     bsr.l    c541C
  6385.     bra.s    c55EE
  6386.  
  6387. c55E8:    bset    #3,$2F(a2)
  6388. c55EE:    moveq    #0,d0
  6389.     movem.l    (sp)+,d2/a2/a3
  6390.     unlk    a5
  6391.     rts
  6392.  
  6393. c55F8:    link.w    a5,#-$12C
  6394.     movem.l    d2/d4-d7/a2/a3,-(sp)
  6395.     movem.l    a0/a1,-$126(a5)
  6396.     moveq    #0,d5
  6397.     movea.l    -$122(a5),a3
  6398.     movea.l    -$126(a5),a2
  6399. c5610:    moveq    #0,d6
  6400.     movea.l    a3,a0
  6401.     jsr    c20F2(pc)
  6402.     move.l    d0,8(a2)
  6403.     moveq    #$15,d0
  6404.     movea.l    a3,a0
  6405.     lea    -$11C(a5),a1
  6406.     jsr    c1A18(pc)
  6407.     move.l    d0,d7
  6408.     move.b    -$11C(a5),d0
  6409.     tst.b    d0
  6410.     bne.s    c5638
  6411.     moveq    #-1,d0
  6412.     bra.l    c5A8A
  6413.  
  6414. c5638:    moveq    #$15,d0
  6415.     cmp.l    d0,d7
  6416.     beq.s    c5644
  6417.     moveq    #-1,d0
  6418.     bra.l    c5A8A
  6419.  
  6420. c5644:    moveq    #0,d0
  6421.     move.b    -$11C(a5),d0
  6422.     move.l    d0,d7
  6423.     addq.l    #2,d7
  6424.     movea.l    -$126(a5),a0
  6425.     adda.w    #$14,a0
  6426.     movea.l    a0,a2
  6427.     moveq    #5,d0
  6428.     movea.l    a2,a0
  6429.     lea    -$11A(a5),a1
  6430.     jsr    cA9A8(pc)
  6431.     movea.l    -$126(a5),a0
  6432.     clr.b    $19(a0)
  6433.     moveq    #4,d0
  6434.     movea.l    a2,a0
  6435.     lea    $24E(a4),a1
  6436. c5674:    move.b    (a0)+,(a1)+
  6437.     dbra    d0,c5674
  6438.     moveq    #0,d4
  6439.     lea    $218(a4),a3
  6440.     bra.s    c5686
  6441.  
  6442. c5682:    addq.l    #1,d4
  6443.     addq.l    #6,a3
  6444. c5686:    moveq    #4,d0
  6445.     movea.l    a2,a0
  6446.     movea.l    a3,a1
  6447. c568C:    move.b    (a0)+,d1
  6448.     cmp.b    (a1)+,d1
  6449.     dbne    d0,c568C
  6450.     bne.s    c5682
  6451.     moveq    #9,d0
  6452.     cmp.l    d0,d4
  6453.     bne.s    c569E
  6454.     moveq    #-1,d4
  6455. c569E:    movea.l    -$126(a5),a3
  6456.     move.l    d4,d0
  6457.     move.w    d0,$34(a3)
  6458.     tst.l    $28(a3)
  6459.     beq.s    c56BA
  6460.     movea.l    $28(a3),a0
  6461.     jsr    cA894(pc)
  6462.     clr.l    $28(a3)
  6463. c56BA:    tst.l    $1E(a3)
  6464.     beq.s    c56CC
  6465.     movea.l    $1E(a3),a0
  6466.     jsr    cA894(pc)
  6467.     clr.l    $1E(a3)
  6468. c56CC:    tst.l    $1A(a3)
  6469.     beq.s    c56E0
  6470.     movea.l    $1A(a3),a0
  6471.     jsr    cA894(pc)
  6472.     suba.l    a0,a0
  6473.     move.l    a0,$1A(a3)
  6474. c56E0:    moveq    #0,d0
  6475.     move.b    -$112(a5),d0
  6476.     asl.l    #8,d0
  6477.     moveq    #0,d1
  6478.     move.b    -$113(a5),d1
  6479.     add.l    d0,d1
  6480.     swap    d1
  6481.     clr.w    d1
  6482.     moveq    #0,d0
  6483.     move.b    -$114(a5),d0
  6484.     asl.l    #8,d0
  6485.     moveq    #0,d2
  6486.     move.b    -$115(a5),d2
  6487.     add.l    d0,d2
  6488.     add.l    d1,d2
  6489.     move.l    d2,$10(a3)
  6490.     moveq    #0,d0
  6491.     move.b    -$10E(a5),d0
  6492.     asl.l    #8,d0
  6493.     moveq    #0,d1
  6494.     move.b    -$10F(a5),d1
  6495.     add.l    d0,d1
  6496.     swap    d1
  6497.     clr.w    d1
  6498.     moveq    #0,d0
  6499.     move.b    -$110(a5),d0
  6500.     asl.l    #8,d0
  6501.     moveq    #0,d2
  6502.     move.b    -$111(a5),d2
  6503.     add.l    d0,d2
  6504.     add.l    d1,d2
  6505.     move.l    d2,12(a3)
  6506.     move.b    -$108(a5),d0
  6507.     moveq    #0,d1
  6508.     move.b    d0,d1
  6509.     moveq    #7,d2
  6510.     and.l    d2,d1
  6511.     move.w    d1,$2E(a3)
  6512.     moveq    #0,d1
  6513.     move.b    -$109(a5),d1
  6514.     move.w    d1,$22(a3)
  6515.     suba.l    a0,a0
  6516.     move.l    a0,$28(a3)
  6517.     move.l    a0,$1E(a3)
  6518.     move.b    #$3F,$36(a3)
  6519.     moveq    #0,d1
  6520.     move.b    d0,d1
  6521.     move.b    d0,-$11D(a5)
  6522.     tst.w    d1
  6523.     beq.s    c5778
  6524.     subq.w    #1,d1
  6525.     beq.s    c5778
  6526.     subq.w    #1,d1
  6527.     beq.l    c595A
  6528.     bra.l    c59D2
  6529.  
  6530. c5778:    moveq    #0,d0
  6531.     move.b    -$10A(a5),d0
  6532.     asl.l    #8,d0
  6533.     moveq    #0,d1
  6534.     move.b    -$10B(a5),d1
  6535.     add.l    d0,d1
  6536.     swap    d1
  6537.     clr.w    d1
  6538.     moveq    #0,d0
  6539.     move.b    -$10C(a5),d0
  6540.     asl.l    #8,d0
  6541.     moveq    #0,d2
  6542.     move.b    -$10D(a5),d2
  6543.     add.l    d0,d2
  6544.     add.l    d1,d2
  6545.     move.l    d2,$24(a3)
  6546.     moveq    #$16,d0
  6547.     cmp.l    d0,d7
  6548.     bge.s    c57AE
  6549.     moveq    #1,d6
  6550.     bra.l    c59D4
  6551.  
  6552. c57AE:    move.l    d7,d0
  6553.     moveq    #$15,d1
  6554.     sub.l    d1,d0
  6555.     movea.l    -$122(a5),a0
  6556.     lea    -$107(a5),a1
  6557.     jsr    c1A18(pc)
  6558.     lea    -$11C(a5),a0
  6559.     bsr.l    c5550
  6560.     move.b    -$11B(a5),d1
  6561.     cmp.b    d1,d0
  6562.     beq.s    c57D6
  6563.     moveq    #1,d6
  6564.     bra.l    c59D4
  6565.  
  6566. c57D6:    move.b    -$107(a5),d0
  6567.     moveq    #0,d4
  6568.     move.b    d0,$1C(sp)
  6569.     bra.s    c5834
  6570.  
  6571. c57E2:    lea    -$11C(a5),a0
  6572.     adda.l    d4,a0
  6573.     movea.l    a0,a2
  6574.     moveq    #0,d0
  6575.     move.b    $16(a2),d0
  6576.     tst.l    d0
  6577.     bne.s    c5832
  6578.     moveq    #0,d0
  6579.     move.b    $1C(sp),d0
  6580.     move.l    d0,d1
  6581.     sub.l    d4,d1
  6582.     move.l    d1,$1E(sp)
  6583.     move.l    d1,d0
  6584.     jsr    cA7AA(pc)
  6585.     move.l    d0,$28(a3)
  6586.     lea    $17(a2),a0
  6587.     move.l    $1E(sp),d0
  6588.     move.l    d0,d1
  6589.     subq.l    #1,d1
  6590.     move.l    d1,d0
  6591.     movea.l    a0,a1
  6592.     movea.l    $28(a3),a0
  6593.     jsr    cA9A8(pc)
  6594.     movea.l    $28(a3),a0
  6595.     adda.l    $1E(sp),a0
  6596.     clr.b    -1(a0)
  6597.     bra.s    c5842
  6598.  
  6599. c5832:    addq.l    #1,d4
  6600. c5834:    movea.l    -$126(a5),a3
  6601.     moveq    #0,d0
  6602.     move.b    $1C(sp),d0
  6603.     cmp.l    d0,d4
  6604.     blt.s    c57E2
  6605. c5842:    tst.l    $28(a3)
  6606.     beq.s    c5856
  6607.     lea    -$106(a5),a0
  6608.     jsr    cA8C4(pc)
  6609.     move.l    d0,$1A(a3)
  6610.     bra.s    c588A
  6611.  
  6612. c5856:    moveq    #0,d0
  6613.     move.b    $1C(sp),d0
  6614.     move.l    d0,d1
  6615.     addq.l    #1,d1
  6616.     move.l    d1,d0
  6617.     jsr    cA7AA(pc)
  6618.     move.l    d0,$1A(a3)
  6619.     moveq    #0,d0
  6620.     move.b    $1C(sp),d0
  6621.     movea.l    $1A(a3),a0
  6622.     lea    -$106(a5),a1
  6623.     jsr    cA9A8(pc)
  6624.     moveq    #0,d0
  6625.     move.b    $1C(sp),d0
  6626.     movea.l    $1A(a3),a0
  6627.     adda.w    d0,a0
  6628.     clr.b    (a0)
  6629. c588A:    moveq    #0,d0
  6630.     move.b    $1C(sp),d0
  6631.     move.l    d7,d4
  6632.     sub.l    d0,d4
  6633.     moveq    #$18,d1
  6634.     cmp.l    d1,d4
  6635.     blt.s    c58BC
  6636.     moveq    #0,d1
  6637.     move.b    d0,d1
  6638.     lea    -$106(a5),a0
  6639.     movea.l    a0,a1
  6640.     adda.w    d1,a1
  6641.     moveq    #0,d1
  6642.     move.b    1(a1),d1
  6643.     move.l    d1,d2
  6644.     asl.l    #8,d2
  6645.     moveq    #0,d1
  6646.     move.b    (a1),d1
  6647.     add.l    d2,d1
  6648.     move.w    d1,$2C(a3)
  6649.     bra.s    c58C2
  6650.  
  6651. c58BC:    move.b    #$FF,-$11D(a5)
  6652. c58C2:    moveq    #$19,d1
  6653.     cmp.l    d1,d4
  6654.     blt.s    c58E4
  6655.     moveq    #0,d1
  6656.     move.b    d0,d1
  6657.     lea    -$106(a5),a0
  6658.     adda.w    d1,a0
  6659.     move.b    2(a0),d0
  6660.     move.b    d0,$36(a3)
  6661.     moveq    #$41,d1
  6662.     cmp.b    d1,d0
  6663.     beq.s    c58E4
  6664.     clr.w    $22(a3)
  6665. c58E4:    movea.l    -$122(a5),a0
  6666.     jsr    c20F2(pc)
  6667.     move.l    d0,$30(a3)
  6668.     cmpi.b    #0,-$11D(a5)
  6669.     bls.l    c59D4
  6670.     moveq    #0,d0
  6671.     move.b    -$11C(a5),d0
  6672.     lea    -$11C(a5),a0
  6673.     adda.w    d0,a0
  6674.     movea.l    a0,a2
  6675.     bra.s    c592C
  6676.  
  6677. c590A:    moveq    #0,d0
  6678.     move.b    $1C(sp),d0
  6679.     movea.l    -$122(a5),a0
  6680.     movea.l    a3,a1
  6681.     jsr    c1A18(pc)
  6682.     movea.l    a2,a0
  6683.     movea.l    -$126(a5),a1
  6684.     bsr.l    c5578
  6685.     moveq    #0,d0
  6686.     move.b    $1C(sp),d0
  6687.     adda.w    d0,a2
  6688. c592C:    moveq    #0,d0
  6689.     move.b    1(a2),d0
  6690.     asl.l    #8,d0
  6691.     moveq    #0,d1
  6692.     move.b    (a2),d1
  6693.     add.l    d0,d1
  6694.     lea    2(a2),a3
  6695.     move.b    d1,$1C(sp)
  6696.     tst.b    d1
  6697.     bne.s    c590A
  6698.     move.l    a3,d0
  6699.     lea    -$11C(a5),a0
  6700.     sub.l    a0,d0
  6701.     sub.l    d7,d0
  6702.     movea.l    -$126(a5),a0
  6703.     sub.l    d0,$10(a0)
  6704.     bra.s    c59D4
  6705.  
  6706. c595A:    moveq    #0,d0
  6707.     move.b    -$11B(a5),d0
  6708.     asl.l    #8,d0
  6709.     moveq    #0,d1
  6710.     move.b    -$11C(a5),d1
  6711.     add.l    d0,d1
  6712.     move.l    d1,d7
  6713.     cmpi.l    #$104,d7
  6714.     ble.s    c5982
  6715.     pea    LHHDRHeaderto.MSG(pc)
  6716.     jsr    c2328(pc)
  6717.     addq.w    #4,sp
  6718.     moveq    #1,d6
  6719.     bra.s    c59D4
  6720.  
  6721. c5982:    move.l    d7,d0
  6722.     moveq    #$15,d1
  6723.     sub.l    d1,d0
  6724.     movea.l    -$122(a5),a0
  6725.     lea    -$107(a5),a1
  6726.     jsr    c1A18(pc)
  6727.     lea    -$104(a5),a3
  6728.     bra.s    c59A2
  6729.  
  6730. c599A:    moveq    #0,d0
  6731.     move.b    $1C(sp),d0
  6732.     adda.w    d0,a3
  6733. c59A2:    moveq    #0,d0
  6734.     move.b    1(a3),d0
  6735.     asl.l    #8,d0
  6736.     moveq    #0,d1
  6737.     move.b    (a3),d1
  6738.     add.l    d0,d1
  6739.     move.b    d1,$1C(sp)
  6740.     tst.b    d1
  6741.     bne.s    c599A
  6742.     moveq    #0,d0
  6743.     move.b    -$106(a5),d0
  6744.     asl.l    #8,d0
  6745.     moveq    #0,d1
  6746.     move.b    -$107(a5),d1
  6747.     add.l    d0,d1
  6748.     movea.l    -$126(a5),a0
  6749.     move.w    d1,$2C(a0)
  6750.     bra.s    c59D4
  6751.  
  6752. c59D2:    moveq    #1,d6
  6753. c59D4:    moveq    #1,d0
  6754.     cmp.l    d0,d6
  6755.     bne.s    c5A10
  6756.     tst.l    d5
  6757.     bne.s    c59E8
  6758.     pea    WARNINGSkippi.MSG(pc)
  6759.     jsr    c2328(pc)
  6760.     addq.w    #4,sp
  6761. c59E8:    movea.l    -$126(a5),a2
  6762.     move.l    8(a2),d0
  6763.     addq.l    #4,d0
  6764.     movea.l    -$122(a5),a3
  6765.     moveq    #0,d1
  6766.     movea.l    a3,a0
  6767.     jsr    c188C(pc)
  6768.     moveq    #1,d5
  6769.     movea.l    a3,a0
  6770.     bsr.l    c54D8
  6771.     tst.w    d0
  6772.     beq.l    c5610
  6773.     moveq    #2,d0
  6774.     bra.s    c5A8A
  6775.  
  6776. c5A10:    movea.l    -$126(a5),a3
  6777.     moveq    #$2F,d0
  6778.     movea.l    $1A(a3),a0
  6779.     bsr.l    c541C
  6780.     tst.l    $854(a4)
  6781.     beq.s    c5A2C
  6782.     movea.l    $1A(a3),a0
  6783.     jsr    cA9FC(pc)
  6784. c5A2C:    tst.l    $C4(a4)
  6785.     beq.s    c5A3A
  6786.     movea.l    $1A(a3),a0
  6787.     jsr    cAB0A(pc)
  6788. c5A3A:    movea.l    $1A(a3),a2
  6789.     movea.l    a2,a0
  6790. c5A40:    tst.b    (a0)+
  6791.     bne.s    c5A40
  6792.     subq.l    #1,a0
  6793.     suba.l    a2,a0
  6794.     move.l    a0,d0
  6795.     move.l    d0,d7
  6796.     subq.l    #1,d7
  6797.     bra.s    c5A80
  6798.  
  6799. c5A50:    moveq    #$2F,d0
  6800.     cmp.b    (a3),d0
  6801.     bne.s    c5A7E
  6802.     lea    1(a3),a0
  6803.     jsr    cA8C4(pc)
  6804.     movea.l    -$126(a5),a0
  6805.     move.l    d0,$1A(a0)
  6806.     clr.b    (a3)
  6807.     movea.l    a2,a0
  6808.     jsr    cA8C4(pc)
  6809.     movea.l    -$126(a5),a0
  6810.     move.l    d0,$1E(a0)
  6811.     movea.l    a2,a0
  6812.     jsr    cA894(pc)
  6813.     bra.s    c5A88
  6814.  
  6815. c5A7E:    subq.l    #1,d7
  6816. c5A80:    movea.l    a2,a3
  6817.     adda.l    d7,a3
  6818.     tst.b    (a3)
  6819.     bne.s    c5A50
  6820. c5A88:    move.l    d5,d0
  6821. c5A8A:    movem.l    (sp)+,d2/d4-d7/a2/a3
  6822.     unlk    a5
  6823.     rts
  6824.  
  6825. c5A92:    link.w    a5,#-$118
  6826.     movem.l    d2/d3/d6/d7/a2/a3/a6,-(sp)
  6827.     movea.l    a0,a3
  6828.     move.l    d0,d7
  6829.     move.l    a1,-$110(a5)
  6830.     move.w    $34(a3),d0
  6831.     muls.w    #6,d0
  6832.     lea    $218(a4),a0
  6833.     adda.l    d0,a0
  6834.     moveq    #4,d0
  6835.     lea    -$106(a5),a1
  6836. c5AB6:    move.b    (a0)+,(a1)+
  6837.     dbra    d0,c5AB6
  6838.     move.l    $10(a3),d0
  6839.     move.b    d0,-$101(a5)
  6840.     move.l    d0,d1
  6841.     lsr.l    #8,d1
  6842.     move.b    d1,-$100(a5)
  6843.     move.l    d0,d1
  6844.     clr.w    d1
  6845.     swap    d1
  6846.     move.b    d1,-$FF(a5)
  6847.     clr.w    d0
  6848.     swap    d0
  6849.     lsr.l    #8,d0
  6850.     move.b    d0,-$FE(a5)
  6851.     move.l    12(a3),d0
  6852.     move.b    d0,-$FD(a5)
  6853.     move.l    d0,d1
  6854.     lsr.l    #8,d1
  6855.     move.b    d1,-$FC(a5)
  6856.     move.l    d0,d1
  6857.     clr.w    d1
  6858.     swap    d1
  6859.     move.b    d1,-$FB(a5)
  6860.     clr.w    d0
  6861.     swap    d0
  6862.     lsr.l    #8,d0
  6863.     move.b    d0,-$FA(a5)
  6864.     tst.l    $D0(a4)
  6865.     beq.s    c5B14
  6866.     move.w    $22(a3),d0
  6867.     move.b    d0,-$F5(a5)
  6868.     bra.s    c5B1A
  6869.  
  6870. c5B14:    move.b    #$20,-$F5(a5)
  6871. c5B1A:    move.l    d7,d0
  6872.     move.b    d0,-$F4(a5)
  6873.     movea.l    a3,a0
  6874.     lea    -$F2(a5),a1
  6875.     jsr    c5282(pc)
  6876.     lea    -$F2(a5),a0
  6877.     movea.l    a0,a1
  6878. c5B30:    tst.b    (a1)+
  6879.     bne.s    c5B30
  6880.     subq.l    #1,a1
  6881.     suba.l    a0,a1
  6882.     move.l    a1,d6
  6883.     move.l    $28(a3),d0
  6884.     beq.s    c5B56
  6885.     tst.l    $84C(a4)
  6886.     bne.s    c5B56
  6887.     movea.l    d0,a0
  6888. c5B48:    tst.b    (a0)+
  6889.     bne.s    c5B48
  6890.     subq.l    #1,a0
  6891.     suba.l    d0,a0
  6892.     move.l    a0,d0
  6893.     addq.l    #1,d0
  6894.     add.l    d0,d6
  6895. c5B56:    lea    -$F3(a5),a2
  6896.     moveq    #2,d0
  6897.     cmp.l    d0,d7
  6898.     beq.l    c5BF0
  6899.     moveq    #$40,d0
  6900.     add.l    d0,d0
  6901.     cmp.l    d0,d6
  6902.     ble.s    c5B74
  6903.     lea    -$F2(a5),a2
  6904.     clr.b    -$F3(a5)
  6905.     bra.s    c5BF0
  6906.  
  6907. c5B74:    move.l    d6,d0
  6908.     move.b    d0,-$F3(a5)
  6909.     move.b    -$F2(a5),d0
  6910.     moveq    #$2F,d1
  6911.     cmp.b    d1,d0
  6912.     bne.s    c5B92
  6913.     pea    -$F2(a5)
  6914.     pea    Warningsisani.MSG(pc)
  6915.     jsr    c2328(pc)
  6916.     addq.w    #8,sp
  6917. c5B92:    tst.l    d7
  6918.     bne.s    c5BA0
  6919.     moveq    #$5C,d0
  6920.     lea    -$F2(a5),a0
  6921.     bsr.l    c541C
  6922. c5BA0:    lea    -$F2(a5),a0
  6923.     adda.l    d6,a0
  6924.     movea.l    a0,a2
  6925.     move.l    $28(a3),d0
  6926.     beq.s    c5BCC
  6927.     tst.l    $84C(a4)
  6928.     bne.s    c5BCC
  6929.     movea.l    d0,a0
  6930. c5BB6:    tst.b    (a0)+
  6931.     bne.s    c5BB6
  6932.     subq.l    #1,a0
  6933.     suba.l    d0,a0
  6934.     move.l    a0,d0
  6935.     movea.l    a2,a1
  6936.     suba.l    d0,a1
  6937.     movea.l    $28(a3),a0
  6938. c5BC8:    move.b    (a0)+,(a1)+
  6939.     bne.s    c5BC8
  6940. c5BCC:    move.l    $24(a3),d0
  6941.     move.b    d0,-$F9(a5)
  6942.     move.l    d0,d1
  6943.     lsr.l    #8,d1
  6944.     move.b    d1,-$F8(a5)
  6945.     move.l    d0,d1
  6946.     clr.w    d1
  6947.     swap    d1
  6948.     move.b    d1,-$F7(a5)
  6949.     clr.w    d0
  6950.     swap    d0
  6951.     lsr.l    #8,d0
  6952.     move.b    d0,-$F6(a5)
  6953. c5BF0:    moveq    #0,d0
  6954.     move.w    $2C(a3),d0
  6955.     move.b    d0,(a2)
  6956.     lsr.l    #8,d0
  6957.     move.b    d0,1(a2)
  6958.     addq.l    #2,a2
  6959.     tst.l    d7
  6960.     bne.s    c5C2C
  6961.     move.l    a2,d0
  6962.     move.l    d0,d1
  6963.     lea    -$106(a5),a0
  6964.     sub.l    a0,d1
  6965.     move.b    d1,-$108(a5)
  6966.     move.l    a2,d0
  6967.     lea    -$108(a5),a0
  6968.     sub.l    a0,d0
  6969.     move.l    d0,d6
  6970.     lea    -$108(a5),a0
  6971.     bsr.l    c5550
  6972.     move.b    d0,-$107(a5)
  6973.     bra.l    c5D9E
  6974.  
  6975. c5C2C:    move.b    #$41,(a2)+
  6976.     move.l    a2,d0
  6977.     lea    -$108(a5),a0
  6978.     sub.l    a0,d0
  6979.     move.b    d0,-$108(a5)
  6980.     moveq    #2,d0
  6981.     cmp.l    d0,d7
  6982.     beq.s    c5C4A
  6983.     moveq    #$40,d0
  6984.     add.l    d0,d0
  6985.     cmp.l    d0,d6
  6986.     ble.s    c5C86
  6987. c5C4A:    movea.l    $1A(a3),a0
  6988. c5C4E:    tst.b    (a0)+
  6989.     bne.s    c5C4E
  6990.     subq.l    #1,a0
  6991.     suba.l    $1A(a3),a0
  6992.     move.l    a0,d0
  6993.     move.l    d0,d1
  6994.     addq.l    #3,d1
  6995.     move.b    d1,(a2)
  6996.     lsr.l    #8,d1
  6997.     move.b    d1,1(a2)
  6998.     lea    3(a2),a1
  6999.     move.b    #1,2(a2)
  7000.     move.l    d0,d1
  7001.     movea.l    $1A(a3),a6
  7002.     bra.s    c5C7A
  7003.  
  7004. c5C78:    move.b    (a6)+,(a1)+
  7005. c5C7A:    subq.l    #1,d1
  7006.     bcc.s    c5C78
  7007.     movea.l    a2,a1
  7008.     adda.l    d0,a1
  7009.     lea    3(a1),a2
  7010. c5C86:    move.l    $1E(a3),d0
  7011.     beq.s    c5CEA
  7012.     movea.l    d0,a0
  7013. c5C8E:    tst.b    (a0)+
  7014.     bne.s    c5C8E
  7015.     subq.l    #1,a0
  7016.     suba.l    d0,a0
  7017.     move.l    a0,d1
  7018.     move.l    d1,d2
  7019.     addq.l    #3,d2
  7020.     move.b    d2,(a2)
  7021.     lsr.l    #8,d2
  7022.     move.b    d2,1(a2)
  7023.     lea    3(a2),a1
  7024.     move.b    #2,2(a2)
  7025.     move.l    d1,$1C(sp)
  7026.     move.l    a1,$20(sp)
  7027.     moveq    #0,d0
  7028.     not.b    d0
  7029.     movea.l    $1E(a3),a0
  7030.     bsr.l    c541C
  7031.     move.l    $1C(sp),d0
  7032.     movea.l    $1E(a3),a0
  7033.     movea.l    $20(sp),a1
  7034.     bra.s    c5CD2
  7035.  
  7036. c5CD0:    move.b    (a0)+,(a1)+
  7037. c5CD2:    subq.l    #1,d0
  7038.     bcc.s    c5CD0
  7039.     movea.l    a2,a0
  7040.     adda.l    $1C(sp),a0
  7041.     lea    3(a0),a2
  7042.     moveq    #$2F,d0
  7043.     movea.l    $1E(a3),a0
  7044.     bsr.l    c541C
  7045. c5CEA:    move.w    $22(a3),d0
  7046.     beq.s    c5D12
  7047.     move.b    #5,(a2)
  7048.     moveq    #0,d0
  7049.     move.b    d0,1(a2)
  7050.     move.b    #$40,2(a2)
  7051.     move.w    $22(a3),d1
  7052.     ext.l    d1
  7053.     move.b    d1,3(a2)
  7054.     lsr.l    #8,d1
  7055.     move.b    d1,4(a2)
  7056.     addq.l    #5,a2
  7057. c5D12:    moveq    #0,d0
  7058.     move.b    -$108(a5),d0
  7059.     lea    -$108(a5),a0
  7060.     movea.l    a0,a1
  7061.     adda.w    d0,a1
  7062.     cmpa.l    a2,a1
  7063.     beq.s    c5D52
  7064.     movea.l    a2,a1
  7065.     moveq    #0,d0
  7066.     move.b    d0,2(a1)
  7067.     lea    3(a1),a6
  7068.     move.b    d0,(a6)
  7069.     move.b    d0,1(a6)
  7070.     addq.l    #6,a2
  7071.     move.b    d0,5(a1)
  7072.     move.l    a2,d1
  7073.     move.l    d1,d2
  7074.     move.l    a1,d3
  7075.     sub.l    d3,d2
  7076.     move.b    d2,(a1)
  7077.     move.l    d2,d1
  7078.     lsr.l    #8,d1
  7079.     move.b    d1,1(a1)
  7080.     move.l    a6,-$10C(a5)
  7081. c5D52:    moveq    #0,d0
  7082.     move.b    d0,(a2)
  7083.     move.b    d0,1(a2)
  7084.     addq.l    #2,a2
  7085.     move.l    a2,d1
  7086.     sub.l    a0,d1
  7087.     move.l    d1,d6
  7088.     moveq    #2,d1
  7089.     cmp.l    d1,d7
  7090.     bne.s    c5D84
  7091.     move.l    d6,d1
  7092.     moveq    #0,d2
  7093.     not.b    d2
  7094.     and.l    d2,d1
  7095.     bne.s    c5D76
  7096.     move.b    d0,(a2)
  7097.     addq.l    #1,d6
  7098. c5D76:    move.l    d6,d0
  7099.     move.b    d0,-$108(a5)
  7100.     move.l    d6,d0
  7101.     lsr.l    #8,d0
  7102.     move.b    d0,-$107(a5)
  7103. c5D84:    moveq    #0,d0
  7104.     move.l    d6,d1
  7105.     lea    -$108(a5),a0
  7106.     jsr    c6FBE(pc)
  7107.     ext.l    d0
  7108.     movea.l    -$10C(a5),a0
  7109.     move.b    d0,(a0)
  7110.     lsr.l    #8,d0
  7111.     move.b    d0,1(a0)
  7112. c5D9E:    move.l    d6,d0
  7113.     movea.l    -$110(a5),a0
  7114.     lea    -$108(a5),a1
  7115.     jsr    c1AC6(pc)
  7116.     tst.l    d0
  7117.     bpl.s    c5DB4
  7118.     moveq    #-1,d0
  7119.     bra.s    c5DB6
  7120.  
  7121. c5DB4:    moveq    #0,d0
  7122. c5DB6:    movem.l    (sp)+,d2/d3/d6/d7/a2/a3/a6
  7123.     unlk    a5
  7124.     rts
  7125.  
  7126.     dc.w    0
  7127.  
  7128. c5DC0:    movem.l    a2/a3,-(sp)
  7129.     movea.l    a0,a3
  7130.     movea.l    a3,a0
  7131. c5DC8:    tst.b    (a0)+
  7132.     bne.s    c5DC8
  7133.     subq.l    #1,a0
  7134.     suba.l    a3,a0
  7135.     move.l    a0,d0
  7136.     subq.l    #3,d0
  7137.     adda.l    d0,a3
  7138.     moveq    #$2E,d0
  7139.     cmp.b    -1(a3),d0
  7140.     beq.s    c5DE2
  7141.     moveq    #0,d0
  7142.     bra.s    c5E00
  7143.  
  7144. c5DE2:    lea    $254(a4),a2
  7145.     bra.s    c5DFA
  7146.  
  7147. c5DE8:    movea.l    a3,a0
  7148.     movea.l    a2,a1
  7149.     jsr    cA9E2(pc)
  7150.     tst.l    d0
  7151.     bne.s    c5DF8
  7152.     moveq    #1,d0
  7153.     bra.s    c5E00
  7154.  
  7155. c5DF8:    addq.l    #4,a2
  7156. c5DFA:    tst.b    (a2)
  7157.     bne.s    c5DE8
  7158.     moveq    #0,d0
  7159. c5E00:    movem.l    (sp)+,a2/a3
  7160.     rts
  7161.  
  7162. LhAUnabletoop.MSG2:    dc.b    '*** LhA: Unable to open file `%s'' for readi'
  7163.     dc.b    'ng.',$A,0
  7164. Freezing.MSG:    dc.b    'Freezing',0,0
  7165. LhAIOErrorocc.MSG:    dc.b    13
  7166.     dc.b    '*** LhA: I/O Error occurred while compressin'
  7167.     dc.b    'g.'
  7168.     dc.b    $1B
  7169.     dc.b    '[K',$A,0
  7170. LhACouldnotop.MSG:    dc.b    13
  7171.     dc.b    '*** LhA: Could not open file!'
  7172.     dc.b    $1B
  7173.     dc.b    '[K',$A,0
  7174.     dc.b    0
  7175. Copytoarchive.MSG:    dc.b    13
  7176.     dc.b    '*** Copy to archive failed - file not added'
  7177.     dc.b    $1B
  7178.     dc.b    '[K',$A,0
  7179.     dc.b    0
  7180. LhACouldnotlo.MSG:    dc.b    '*** LhA: Could not lock file!',$A
  7181.     dc.b    $1B
  7182.     dc.b    '[K',$A,0
  7183.     dc.b    0
  7184.  
  7185. c5EEE:    link.w    a5,#-$50
  7186.     movem.l    d2/d4-d7/a2/a3/a6,-(sp)
  7187.     movea.l    a0,a3
  7188.     move.l    d0,d7
  7189.     move.l    a1,-$4C(a5)
  7190.     moveq    #0,d5
  7191.     moveq    #0,d6
  7192.     movea.l    -$4C(a5),a0
  7193.     jsr    c20F2(pc)
  7194.     move.l    d0,-$40(a5)
  7195.     move.l    8(a3),d0
  7196.     move.l    d0,-$38(a5)
  7197.     move.l    8(a3),-$3C(a5)
  7198.     movea.l    $10(a3),a0
  7199.     movea.l    $424(a4),a6
  7200.     jsr    -$276(a6)
  7201.     move.l    d0,-$2E(a5)
  7202.     movea.l    $10(a3),a0
  7203.     cmpa.l    d0,a0
  7204.     beq.s    c5F90
  7205.     movea.l    d0,a2
  7206.     subq.l    #1,a2
  7207.     move.b    (a2),d0
  7208.     move.b    d0,$20(sp)
  7209.     moveq    #$3A,d1
  7210.     cmp.b    d1,d0
  7211.     beq.s    c5F88
  7212.     clr.b    (a2)
  7213.     moveq    #0,d4
  7214.     bra.s    c5F4C
  7215.  
  7216. c5F4A:    addq.l    #1,d4
  7217. c5F4C:    movea.l    $10(a3),a0
  7218.     adda.l    d4,a0
  7219.     movea.l    a0,a2
  7220.     move.b    (a2),d0
  7221.     beq.s    c5F5E
  7222.     moveq    #$3A,d1
  7223.     cmp.b    d1,d0
  7224.     bne.s    c5F4A
  7225. c5F5E:    tst.b    (a2)
  7226.     bne.s    c5F70
  7227.     movea.l    $10(a3),a0
  7228.     jsr    cA8C4(pc)
  7229.     move.l    d0,-$2A(a5)
  7230.     bra.s    c5F7C
  7231.  
  7232. c5F70:    lea    1(a2),a0
  7233.     jsr    cA8C4(pc)
  7234.     move.l    d0,-$2A(a5)
  7235. c5F7C:    movea.l    -$2E(a5),a0
  7236.     move.b    $20(sp),-1(a0)
  7237.     bra.s    c5F94
  7238.  
  7239. c5F88:    suba.l    a0,a0
  7240.     move.l    a0,-$2A(a5)
  7241.     bra.s    c5F94
  7242.  
  7243. c5F90:    clr.l    -$2A(a5)
  7244. c5F94:    move.w    $14(a3),-$26(a5)
  7245.     movea.l    $16(a3),a0
  7246. c5F9E:    tst.b    (a0)+
  7247.     bne.s    c5F9E
  7248.     subq.l    #1,a0
  7249.     suba.l    $16(a3),a0
  7250.     move.l    a0,d0
  7251.     beq.s    c5FB2
  7252.     movea.l    $16(a3),a0
  7253.     bra.s    c5FB4
  7254.  
  7255. c5FB2:    suba.l    a0,a0
  7256. c5FB4:    move.l    a0,-$20(a5)
  7257.     move.l    $1A(a3),-$24(a5)
  7258.     tst.l    $860(a4)
  7259.     bne.l    c60AA
  7260.     movea.l    -$2E(a5),a0
  7261.     bsr.l    c5DC0
  7262.     tst.l    d0
  7263.     beq.s    c5FDA
  7264.     tst.l    $838(a4)
  7265.     beq.l    c60AA
  7266. c5FDA:    movea.l    12(a3),a0
  7267.     lea    $490(a4),a1
  7268. c5FE2:    move.b    (a0)+,(a1)+
  7269.     bne.s    c5FE2
  7270.     lea    $490(a4),a0
  7271.     movea.l    $10(a3),a1
  7272.     movea.l    $424(a4),a6
  7273.     jsr    -$270(a6)
  7274.     moveq    #$72,d0
  7275.     move.l    $C0(a4),d1
  7276.     lea    $490(a4),a0
  7277.     jsr    c1564(pc)
  7278.     movea.l    d0,a2
  7279.     move.l    a2,d0
  7280.     bne.s    c601C
  7281.     pea    $490(a4)
  7282.     pea    LhAUnabletoop.MSG2(pc)
  7283.     jsr    c2328(pc)
  7284.     moveq    #-1,d0
  7285.     bra.l    c6230
  7286.  
  7287. c601C:    move.l    -$2E(a5),-(sp)
  7288.     lea    -$48(a5),a0
  7289.     lea    Freezing.MSG(pc),a1
  7290.     jsr    c9B10(pc)
  7291.     movea.l    a2,a0
  7292.     move.l    a0,$24(sp)
  7293.     move.l    8(a3),d0
  7294.     move.l    $874(a4),d1
  7295.     bsr.l    c623A
  7296.     movea.l    d0,a2
  7297.     movea.l    $24(sp),a0
  7298.     jsr    c1732(pc)
  7299.     addq.w    #4,sp
  7300.     move.l    a2,d0
  7301.     beq.s    c60AA
  7302.     movea.l    a2,a0
  7303.     jsr    c20F2(pc)
  7304.     move.l    d0,-$38(a5)
  7305.     move.w    $A40(a4),d0
  7306.     move.w    d0,-$1C(a5)
  7307.     move.l    $A42(a4),d0
  7308.     move.w    d0,-$14(a5)
  7309.     lea    -$48(a5),a0
  7310.     jsr    c9C9E(pc)
  7311.     moveq    #0,d0
  7312.     move.l    d0,d1
  7313.     movea.l    a2,a0
  7314.     jsr    c188C(pc)
  7315.     moveq    #0,d0
  7316.     lea    -$48(a5),a0
  7317.     movea.l    -$4C(a5),a1
  7318.     jsr    c5A92(pc)
  7319.     move.l    d0,$20(sp)
  7320.     move.l    -$38(a5),d0
  7321.     movea.l    a2,a0
  7322.     movea.l    -$4C(a5),a1
  7323.     jsr    c1C38(pc)
  7324.     move.l    $20(sp),d1
  7325.     or.l    d0,d1
  7326.     move.l    d1,d6
  7327.     moveq    #1,d5
  7328.     movea.l    a2,a0
  7329.     jsr    c1732(pc)
  7330. c60AA:    move.l    $A42(a4),d0
  7331.     tst.l    d0
  7332.     bpl.s    c60C0
  7333.     pea    LhAIOErrorocc.MSG(pc)
  7334.     jsr    c2328(pc)
  7335.     moveq    #-1,d0
  7336.     bra.l    c6230
  7337.  
  7338. c60C0:    tst.l    d5
  7339.     bne.l    c6178
  7340.     clr.w    -$14(a5)
  7341.     lea    -$48(a5),a0
  7342.     jsr    c9C9E(pc)
  7343.     movea.l    12(a3),a0
  7344.     lea    $490(a4),a1
  7345. c60DA:    move.b    (a0)+,(a1)+
  7346.     bne.s    c60DA
  7347.     lea    $490(a4),a0
  7348.     movea.l    $10(a3),a1
  7349.     movea.l    $424(a4),a6
  7350.     jsr    -$270(a6)
  7351.     move.l    #$3ED,d0
  7352.     lea    $490(a4),a0
  7353.     jsr    c1276(pc)
  7354.     move.l    d0,d5
  7355.     tst.l    d5
  7356.     bne.s    c6110
  7357.     pea    LhACouldnotop.MSG(pc)
  7358.     jsr    c2328(pc)
  7359.     moveq    #-1,d0
  7360.     bra.l    c6230
  7361.  
  7362. c6110:    movea.l    -$4C(a5),a2
  7363.     moveq    #0,d0
  7364.     lea    -$48(a5),a0
  7365.     movea.l    a2,a1
  7366.     jsr    c5A92(pc)
  7367.     move.l    d0,d6
  7368.     tst.l    d6
  7369.     bne.s    c6178
  7370.     clr.w    $A40(a4)
  7371.     move.l    d5,d0
  7372.     move.l    8(a3),d1
  7373.     movea.l    a2,a0
  7374.     lea    $A40(a4),a1
  7375.     jsr    c1EB8(pc)
  7376.     move.l    d0,d6
  7377.     move.l    d5,d0
  7378.     jsr    c12BC(pc)
  7379.     move.w    $A40(a4),d0
  7380.     move.w    d0,-$1C(a5)
  7381.     movea.l    a2,a0
  7382.     jsr    c20F2(pc)
  7383.     move.l    d0,$20(sp)
  7384.     move.l    -$40(a5),d0
  7385.     moveq    #0,d1
  7386.     movea.l    a2,a0
  7387.     jsr    c188C(pc)
  7388.     moveq    #0,d0
  7389.     lea    -$48(a5),a0
  7390.     movea.l    a2,a1
  7391.     jsr    c5A92(pc)
  7392.     move.l    $20(sp),d0
  7393.     moveq    #0,d1
  7394.     movea.l    a2,a0
  7395.     jsr    c188C(pc)
  7396. c6178:    tst.l    d6
  7397.     bpl.s    c61A2
  7398.     move.l    -$40(a5),d0
  7399.     moveq    #0,d1
  7400.     movea.l    -$4C(a5),a0
  7401.     jsr    c188C(pc)
  7402.     moveq    #0,d0
  7403.     movea.l    -$4C(a5),a0
  7404.     jsr    c1FB4(pc)
  7405.     pea    Copytoarchive.MSG(pc)
  7406.     jsr    c2328(pc)
  7407.     moveq    #-1,d0
  7408.     bra.l    c6230
  7409.  
  7410. c61A2:    movea.l    12(a3),a0
  7411.     lea    $490(a4),a1
  7412. c61AA:    move.b    (a0)+,(a1)+
  7413.     bne.s    c61AA
  7414.     lea    $490(a4),a0
  7415.     movea.l    $10(a3),a1
  7416.     movea.l    $424(a4),a6
  7417.     jsr    -$270(a6)
  7418.     tst.l    d7
  7419.     beq.s    c61D0
  7420.     lea    $490(a4),a0
  7421.     move.l    a0,d1
  7422.     movea.l    $420(a4),a6
  7423.     jsr    -$48(a6)
  7424. c61D0:    tst.l    d7
  7425.     bne.s    c622E
  7426.     tst.l    $D8(a4)
  7427.     beq.s    c622E
  7428.     move.l    #$104,d0
  7429.     jsr    cA7AA(pc)
  7430.     movea.l    d0,a2
  7431.     moveq    #-2,d0
  7432.     lea    $490(a4),a0
  7433.     jsr    c12FC(pc)
  7434.     move.l    d0,d6
  7435.     tst.l    d6
  7436.     bne.s    c6200
  7437.     pea    LhACouldnotlo.MSG(pc)
  7438.     jsr    c2328(pc)
  7439.     addq.w    #4,sp
  7440. c6200:    move.l    d6,d1
  7441.     move.l    a2,d2
  7442.     movea.l    $420(a4),a6
  7443.     jsr    -$66(a6)
  7444.     move.l    d6,d0
  7445.     jsr    c137C(pc)
  7446.     move.l    $74(a2),d0
  7447.     ori.w    #$10,d0
  7448.     move.l    d0,d2
  7449.     move.l    $10(a3),d1
  7450.     movea.l    $420(a4),a6
  7451.     jsr    -$BA(a6)
  7452.     movea.l    a2,a0
  7453.     jsr    cA894(pc)
  7454. c622E:    moveq    #0,d0
  7455. c6230:    movem.l    -$70(a5),d2/d4-d7/a2/a3/a6
  7456.     unlk    a5
  7457.     rts
  7458.  
  7459. c623A:    movem.l    d5-d7/a2/a3,-(sp)
  7460.     movea.l    a0,a3
  7461.     move.l    d0,d7
  7462.     move.l    d1,d6
  7463.     moveq    #$10,d0
  7464.     cmp.l    d0,d7
  7465.     bge.s    c6250
  7466.     moveq    #0,d0
  7467.     bra.l    c6380
  7468.  
  7469. c6250:    tst.l    $A46(a4)
  7470.     bne.s    c629A
  7471.     move.l    #$729C,d0
  7472.     moveq    #1,d1
  7473.     jsr    cA81C(pc)
  7474.     move.l    d0,$A46(a4)
  7475.     tst.l    d0
  7476.     beq.l    c6380
  7477.     moveq    #1,d1
  7478.     cmp.l    d1,d6
  7479.     bne.s    c627C
  7480.     movea.l    d0,a0
  7481.     jsr    c65C6(pc)
  7482.     move.l    d0,d5
  7483.     bra.s    c6284
  7484.  
  7485. c627C:    movea.l    d0,a0
  7486.     jsr    c6680(pc)
  7487.     move.l    d0,d5
  7488. c6284:    tst.l    d5
  7489.     bne.s    c629A
  7490.     movea.l    $A46(a4),a0
  7491.     jsr    cA894(pc)
  7492.     clr.l    $A46(a4)
  7493.     moveq    #0,d0
  7494.     bra.l    c6380
  7495.  
  7496. c629A:    jsr    c13C0(pc)
  7497.     movea.l    d0,a2
  7498.     move.l    a2,d0
  7499.     bne.s    c62AA
  7500.     moveq    #0,d0
  7501.     bra.l    c6380
  7502.  
  7503. c62AA:    moveq    #0,d0
  7504.     movea.l    $A46(a4),a0
  7505.     move.l    d0,$34(a0)
  7506.     move.l    d7,$38(a0)
  7507.     move.l    d0,$3C(a0)
  7508.     move.l    d0,$18(a0)
  7509.     move.l    $E8(a4),d0
  7510.     move.l    d0,$20(a0)
  7511.     move.l    d0,$1C(a0)
  7512.     move.l    a3,$44(a0)
  7513.     move.l    a2,$48(a0)
  7514.     move.l    4(a2),$28(a0)
  7515.     moveq    #0,d0
  7516.     move.w    d0,$4E(a0)
  7517.     move.w    d0,$50(a0)
  7518.     move.w    #1,$5A(a0)
  7519.     moveq    #1,d0
  7520.     cmp.l    d0,d6
  7521.     bne.s    c630E
  7522.     jsr    c6628(pc)
  7523.     movea.l    $A46(a4),a0
  7524.     jsr    c82D4(pc)
  7525.     move.l    d0,d6
  7526.     movea.l    $A46(a4),a0
  7527.     jsr    c6672(pc)
  7528.     moveq    #1,d0
  7529.     move.l    d0,$A42(a4)
  7530.     bra.s    c632A
  7531.  
  7532. c630E:    jsr    c6750(pc)
  7533.     movea.l    $A46(a4),a0
  7534.     jsr    c82D4(pc)
  7535.     move.l    d0,d6
  7536.     movea.l    $A46(a4),a0
  7537.     jsr    c679A(pc)
  7538.     moveq    #5,d0
  7539.     move.l    d0,$A42(a4)
  7540. c632A:    movea.l    $A46(a4),a0
  7541.     move.w    $4E(a0),d0
  7542.     move.w    d0,$A40(a4)
  7543.     tst.l    $C8(a4)
  7544.     bne.s    c635E
  7545.     cmpi.l    #$8000,d7
  7546.     ble.s    c635E
  7547.     move.l    d7,d0
  7548.     move.l    $34(a0),d1
  7549.     jsr    c2246(pc)
  7550.     moveq    #$1E,d1
  7551.     cmp.l    d1,d0
  7552.     bge.s    c635E
  7553.     moveq    #1,d0
  7554.     movea.l    $A46(a4),a0
  7555.     move.w    d0,$50(a0)
  7556. c635E:    tst.l    d6
  7557.     bne.s    c636C
  7558.     movea.l    $A46(a4),a0
  7559.     tst.w    $50(a0)
  7560.     beq.s    c6374
  7561. c636C:    movea.l    a2,a0
  7562.     jsr    c1732(pc)
  7563.     suba.l    a2,a2
  7564. c6374:    tst.l    d6
  7565.     beq.s    c637E
  7566.     moveq    #-1,d0
  7567.     move.l    d0,$A42(a4)
  7568. c637E:    move.l    a2,d0
  7569. c6380:    movem.l    (sp)+,d5-d7/a2/a3
  7570.     rts
  7571.  
  7572. c6386:    movea.l    $A46(a4),a0
  7573.     jsr    c8508
  7574.     rts
  7575.  
  7576.     dc.w    0
  7577.  
  7578. c6394:    pea    c6434(pc)
  7579.     bra.s    c639E
  7580.  
  7581. c639A:    pea    c64BE(pc)
  7582. c639E:    lea    c63B4(pc),a1
  7583.     move.l    a1,(a0)+
  7584.     move.l    (sp)+,(a0)+
  7585.     lea    c648E(pc),a1
  7586.     move.l    a1,(a0)+
  7587.     lea    c6FBE(pc),a1
  7588.     move.l    a1,(a0)+
  7589.     rts
  7590.  
  7591. c63B4:    movem.l    d7/a3,-(sp)
  7592.     movea.l    12(sp),a3
  7593.     move.l    $34(a3),d0
  7594.     sub.l    $3C(a3),d0
  7595.     move.l    d0,d7
  7596.     move.l    $40(a3),d0
  7597.     cmp.l    d0,d7
  7598.     bgt.s    c63D0
  7599.     move.l    d7,d0
  7600. c63D0:    move.l    d0,$2C(a3)
  7601.     tst.l    d0
  7602.     bne.s    c63DC
  7603.     addq.l    #1,$294(a4)
  7604. c63DC:    cmpi.l    #5,$294(a4)
  7605.     ble.s    c63EA
  7606.     moveq    #-2,d0
  7607.     bra.s    c642E
  7608.  
  7609. c63EA:    move.l    $2C(a3),d0
  7610.     beq.s    c642E
  7611.     clr.l    $294(a4)
  7612.     move.l    $2C(a3),d0
  7613.     movea.l    $44(a3),a0
  7614.     movea.l    $24(a3),a1
  7615.     jsr    c1A18(pc)
  7616.     move.l    $2C(a3),d1
  7617.     cmp.l    d1,d0
  7618.     beq.s    c6410
  7619.     moveq    #-1,d0
  7620.     bra.s    c642E
  7621.  
  7622. c6410:    add.l    d1,$3C(a3)
  7623.     move.l    $3C(a3),d0
  7624.     cmp.l    $34(a3),d0
  7625.     bne.s    c642A
  7626.     move.l    $2C(a3),d0
  7627.     movea.l    $24(a3),a0
  7628.     adda.l    d0,a0
  7629.     clr.b    (a0)
  7630. c642A:    move.l    $2C(a3),d0
  7631. c642E:    movem.l    (sp)+,d7/a3
  7632.     rts
  7633.  
  7634. c6434:    movem.l    d2/d3/a3/a6,-(sp)
  7635.     movea.l    $14(sp),a3
  7636.     moveq    #-1,d0
  7637.     cmp.w    $4C(a3),d0
  7638.     bne.s    c6456
  7639.     movea.l    $28(a3),a0
  7640.     adda.w    #$1000,a0
  7641.     move.l    $30(a3),d0
  7642.     jsr    c24DA(pc)
  7643.     bra.s    c6484
  7644.  
  7645. c6456:    move.l    $48(a3),d0
  7646.     beq.s    c6484
  7647.     movea.l    $28(a3),a0
  7648.     adda.w    #$1000,a0
  7649.     move.l    d0,d1
  7650.     move.l    a0,d2
  7651.     move.l    $30(a3),d3
  7652.     movea.l    $420(a4),a6
  7653.     jsr    -$30(a6)
  7654.     tst.l    d0
  7655.     bpl.s    c6484
  7656.     jsr    -$84(a6)
  7657.     move.l    d0,$A04(a4)
  7658.     moveq    #-1,d0
  7659.     bra.s    c6488
  7660.  
  7661. c6484:    move.l    $40(a3),d0
  7662. c6488:    movem.l    (sp)+,d2/d3/a3/a6
  7663.     rts
  7664.  
  7665. c648E:    link.w    a5,#0
  7666.     tst.l    $86C(a4)
  7667.     bne.s    c649E
  7668.     tst.l    $864(a4)
  7669.     beq.s    c64A2
  7670. c649E:    moveq    #0,d0
  7671.     bra.s    c64BA
  7672.  
  7673. c64A2:    movea.l    8(a5),a0
  7674.     adda.w    #$4C,a0
  7675.     movea.l    8(a5),a1
  7676.     move.l    $18(a1),d0
  7677.     move.l    $38(a1),d1
  7678.     jsr    c9D22(pc)
  7679. c64BA:    unlk    a5
  7680.     rts
  7681.  
  7682. c64BE:    movem.l    d2/d3/a3/a6,-(sp)
  7683.     movea.l    $14(sp),a3
  7684.     moveq    #-1,d0
  7685.     cmp.w    $4C(a3),d0
  7686.     bne.s    c64E0
  7687.     movea.l    $28(a3),a0
  7688.     adda.w    #$2000,a0
  7689.     move.l    $30(a3),d0
  7690.     jsr    c24DA(pc)
  7691.     bra.s    c650E
  7692.  
  7693. c64E0:    move.l    $48(a3),d0
  7694.     beq.s    c650E
  7695.     movea.l    $28(a3),a0
  7696.     adda.w    #$2000,a0
  7697.     move.l    d0,d1
  7698.     move.l    a0,d2
  7699.     move.l    $30(a3),d3
  7700.     movea.l    $420(a4),a6
  7701.     jsr    -$30(a6)
  7702.     tst.l    d0
  7703.     bpl.s    c650E
  7704.     jsr    -$84(a6)
  7705.     move.l    d0,$A04(a4)
  7706.     moveq    #-1,d0
  7707.     bra.s    c6512
  7708.  
  7709. c650E:    move.l    $40(a3),d0
  7710. c6512:    movem.l    (sp)+,d2/d3/a3/a6
  7711.     rts
  7712.  
  7713. c6518:    link.w    a5,#-4
  7714.     movem.l    d7/a2/a3,-(sp)
  7715.     movea.l    a0,a3
  7716.     move.l    d0,d7
  7717.     movea.l    a1,a2
  7718.     move.l    d7,d0
  7719.     movea.l    a2,a0
  7720.     movea.l    a3,a1
  7721.     jsr    c1A18(pc)
  7722.     move.w    $A4C(a4),d1
  7723.     ext.l    d1
  7724.     move.l    d0,12(sp)
  7725.     movea.l    a3,a0
  7726.     exg    d0,d1
  7727.     jsr    c6FBE(pc)
  7728.     move.w    d0,$A4C(a4)
  7729.     move.l    12(sp),d0
  7730.     moveq    #-1,d1
  7731.     cmp.l    d1,d0
  7732.     bne.s    c6552
  7733.     moveq    #0,d0
  7734. c6552:    movem.l    (sp)+,d7/a2/a3
  7735.     unlk    a5
  7736.     rts
  7737.  
  7738. c655A:    link.w    a5,#-8
  7739.     movem.l    d7/a2/a3,-(sp)
  7740.     movea.l    a0,a3
  7741.     move.l    d0,d7
  7742.     move.l    a1,-4(a5)
  7743.     movea.l    -4(a5),a0
  7744.     move.w    $4E(a0),$A4C(a4)
  7745.     move.l    d7,d0
  7746.     movea.l    a3,a0
  7747.     movea.l    -4(a5),a1
  7748.     movea.l    $44(a1),a1
  7749.     bsr.s    c6518
  7750.     movea.l    -4(a5),a0
  7751.     move.w    $A4C(a4),$4E(a0)
  7752.     add.l    d0,$3C(a0)
  7753.     lea    $4C(a0),a1
  7754.     move.l    d0,12(sp)
  7755.     movea.l    a1,a0
  7756.     movea.l    -4(a5),a2
  7757.     move.l    $3C(a2),d0
  7758.     move.l    $38(a2),d1
  7759.     jsr    c9D22(pc)
  7760.     move.l    12(sp),d0
  7761.     movem.l    (sp)+,d7/a2/a3
  7762.     unlk    a5
  7763.     rts
  7764.  
  7765. c65B6:    link.w    a5,#-12
  7766.     movem.l    d0/a0/a1,-12(a5)
  7767.     moveq    #0,d0
  7768.     unlk    a5
  7769.     rts
  7770.  
  7771. c65C6:    move.l    a3,-(sp)
  7772.     movea.l    a0,a3
  7773.     move.l    #$8002,d0
  7774.     jsr    cA7AA(pc)
  7775.     move.l    d0,$60(a3)
  7776.     tst.l    d0
  7777.     beq.s    c6622
  7778.     move.l    #$10002,d0
  7779.     jsr    cA7AA(pc)
  7780.     move.l    d0,$64(a3)
  7781.     tst.l    d0
  7782.     beq.s    c6614
  7783.     move.l    $BC(a4),d0
  7784.     jsr    cA7AA(pc)
  7785.     move.l    d0,$68(a3)
  7786.     beq.s    c6608
  7787.     move.l    $BC(a4),d0
  7788.     move.w    d0,$54(a3)
  7789.     moveq    #1,d0
  7790.     bra.s    c6624
  7791.  
  7792. c6608:    movea.l    $64(a3),a0
  7793.     jsr    cA894(pc)
  7794.     clr.l    $64(a3)
  7795. c6614:    movea.l    $60(a3),a0
  7796.     jsr    cA894(pc)
  7797.     suba.l    a0,a0
  7798.     move.l    a0,$60(a3)
  7799. c6622:    moveq    #0,d0
  7800. c6624:    movea.l    (sp)+,a3
  7801.     rts
  7802.  
  7803. c6628:    move.l    a3,-(sp)
  7804.     movea.l    a0,a3
  7805.     lea    c655A(pc),a0
  7806.     move.l    a0,(a3)
  7807.     lea    c65B6(pc),a0
  7808.     move.l    a0,4(a3)
  7809.     lea    c92DC(pc),a0
  7810.     move.l    a0,$6C(a3)
  7811.     move.w    #$1000,$52(a3)
  7812.     move.l    $B8(a4),d0
  7813.     asl.l    #2,d0
  7814.     lea    $298(a4),a0
  7815.     move.w    0(a0,d0.l),$56(a3)
  7816.     lea    $298(a4),a0
  7817.     move.w    2(a0,d0.l),$58(a3)
  7818.     move.w    #1,$5C(a3)
  7819.     movea.l    a3,a0
  7820.     jsr    c939E(pc)
  7821.     movea.l    (sp)+,a3
  7822.     rts
  7823.  
  7824. c6672:    move.l    a3,-(sp)
  7825.     movea.l    a0,a3
  7826.     movea.l    a3,a0
  7827.     jsr    c9364(pc)
  7828.     movea.l    (sp)+,a3
  7829.     rts
  7830.  
  7831. c6680:    move.l    a3,-(sp)
  7832.     movea.l    a0,a3
  7833.     move.l    #$8002,d0
  7834.     jsr    cA7AA(pc)
  7835.     move.l    d0,$60(a3)
  7836.     tst.l    d0
  7837.     beq.s    c66DC
  7838.     move.l    #$10002,d0
  7839.     jsr    cA7AA(pc)
  7840.     move.l    d0,$64(a3)
  7841.     tst.l    d0
  7842.     beq.s    c66CE
  7843.     move.l    $BC(a4),d0
  7844.     jsr    cA7AA(pc)
  7845.     move.l    d0,$68(a3)
  7846.     beq.s    c66C2
  7847.     move.l    $BC(a4),d0
  7848.     move.w    d0,$54(a3)
  7849.     moveq    #1,d0
  7850.     bra.s    c66DE
  7851.  
  7852. c66C2:    movea.l    $64(a3),a0
  7853.     jsr    cA894(pc)
  7854.     clr.l    $64(a3)
  7855. c66CE:    movea.l    $60(a3),a0
  7856.     jsr    cA894(pc)
  7857.     suba.l    a0,a0
  7858.     move.l    a0,$60(a3)
  7859. c66DC:    moveq    #0,d0
  7860. c66DE:    movea.l    (sp)+,a3
  7861.     rts
  7862.  
  7863. c66E2:    link.w    a5,#-8
  7864.     movem.l    d7/a2/a3,-(sp)
  7865.     movea.l    a0,a3
  7866.     move.l    d0,d7
  7867.     move.l    a1,-4(a5)
  7868.     movea.l    -4(a5),a0
  7869.     move.w    $4E(a0),$A4C(a4)
  7870.     move.l    d7,d0
  7871.     movea.l    a3,a0
  7872.     movea.l    -4(a5),a1
  7873.     movea.l    $44(a1),a1
  7874.     bsr.l    c6518
  7875.     movea.l    -4(a5),a0
  7876.     move.w    $A4C(a4),$4E(a0)
  7877.     add.l    d0,$3C(a0)
  7878.     lea    $4C(a0),a1
  7879.     move.l    d0,12(sp)
  7880.     movea.l    a1,a0
  7881.     movea.l    -4(a5),a2
  7882.     move.l    $3C(a2),d0
  7883.     move.l    $38(a2),d1
  7884.     jsr    c9D22(pc)
  7885.     move.l    12(sp),d0
  7886.     movem.l    (sp)+,d7/a2/a3
  7887.     unlk    a5
  7888.     rts
  7889.  
  7890. c6740:    link.w    a5,#-12
  7891.     movem.l    d0/a0/a1,-12(a5)
  7892.     moveq    #0,d0
  7893.     unlk    a5
  7894.     rts
  7895.  
  7896. c6750:    move.l    a3,-(sp)
  7897.     movea.l    a0,a3
  7898.     lea    c66E2(pc),a0
  7899.     move.l    a0,(a3)
  7900.     lea    c6740(pc),a0
  7901.     move.l    a0,4(a3)
  7902.     lea    c8D02(pc),a0
  7903.     move.l    a0,$6C(a3)
  7904.     move.w    #$2000,$52(a3)
  7905.     move.l    $B8(a4),d0
  7906.     asl.l    #2,d0
  7907.     lea    $2C0(a4),a0
  7908.     move.w    0(a0,d0.l),$56(a3)
  7909.     lea    $2C0(a4),a0
  7910.     move.w    2(a0,d0.l),$58(a3)
  7911.     move.w    #5,$5C(a3)
  7912.     movea.l    a3,a0
  7913.     jsr    c8DAA(pc)
  7914.     movea.l    (sp)+,a3
  7915.     rts
  7916.  
  7917. c679A:    move.l    a3,-(sp)
  7918.     movea.l    a0,a3
  7919.     movea.l    a3,a0
  7920.     jsr    c8E5E(pc)
  7921.     movea.l    (sp)+,a3
  7922.     rts
  7923.  
  7924. c67A8:    move.l    d5,-(sp)
  7925.     moveq    #0,d4
  7926.     moveq    #1,d0
  7927. c67AE:    move.w    d0,0(a6,d4.w)
  7928.     move.w    d4,d1
  7929.     neg.w    d1
  7930.     subq.w    #2,d1
  7931.     move.w    d1,0(a1,d4.w)
  7932.     move.w    d4,0(a2,d1.w)
  7933.     addq.w    #2,d4
  7934.     cmpi.w    #$274,d4
  7935.     blt.s    c67AE
  7936.     moveq    #0,d4
  7937.     move.w    #$274,d5
  7938. c67CE:    move.w    0(a6,d4.w),d3
  7939.     add.w    2(a6,d4.w),d3
  7940.     move.w    d3,0(a6,d5.w)
  7941.     move.w    d4,0(a1,d5.w)
  7942.     move.w    d5,0(a2,d4.w)
  7943.     move.w    d5,2(a2,d4.w)
  7944.     addq.w    #4,d4
  7945.     addq.w    #2,d5
  7946.     cmpi.w    #$4E4,d5
  7947.     ble.s    c67CE
  7948.     move.w    #$FFFF,$4E6(a6)
  7949.     move.w    #$FFFF,$4E4(a2)
  7950.     move.l    (sp)+,d5
  7951.     rts
  7952.  
  7953. c6800:    movem.l    d0-d7/a0/a3-a5,-(sp)
  7954.     move.w    #$272,d5
  7955.     moveq    #0,d4
  7956.     movea.l    a6,a0
  7957.     movea.l    a1,a3
  7958.     movea.l    a6,a4
  7959.     movea.l    a1,a5
  7960. c6812:    move.w    (a5)+,d0
  7961.     bpl.s    c6820
  7962.     move.w    (a4),d2
  7963.     addq.w    #1,d2
  7964.     lsr.w    #1,d2
  7965.     move.w    d2,(a0)+
  7966.     move.w    d0,(a3)+
  7967. c6820:    addq.w    #2,a4
  7968.     dbra    d5,c6812
  7969.     moveq    #0,d4
  7970.     move.w    #$274,d5
  7971. c682C:    move.w    0(a6,d4.w),d7
  7972.     add.w    2(a6,d4.w),d7
  7973.     move.w    d7,0(a6,d5.w)
  7974.     move.w    d5,d6
  7975. c683A:    subq.w    #2,d6
  7976.     cmp.w    0(a6,d6.w),d7
  7977.     bcs.s    c683A
  7978.     addq.w    #2,d6
  7979.     move.w    d5,d1
  7980.     sub.w    d6,d1
  7981.     lsr.w    #1,d1
  7982.     subq.w    #1,d1
  7983.     bmi.s    c685E
  7984.     lea    0(a6,d5.w),a0
  7985.     lea    2(a0),a4
  7986.     move.w    d1,d0
  7987. c6858:    move.w    -(a0),-(a4)
  7988.     dbra    d0,c6858
  7989. c685E:    move.w    d7,0(a6,d6.w)
  7990.     tst.w    d1
  7991.     bmi.s    c6874
  7992.     lea    0(a1,d5.w),a0
  7993.     lea    2(a0),a4
  7994. c686E:    move.w    -(a0),-(a4)
  7995.     dbra    d1,c686E
  7996. c6874:    move.w    d4,0(a1,d6.w)
  7997.     addq.w    #4,d4
  7998.     addq.w    #2,d5
  7999.     cmpi.w    #$4E6,d5
  8000.     blt.s    c682C
  8001.     movea.l    a1,a0
  8002.     moveq    #0,d4
  8003. c6886:    move.w    (a0)+,d6
  8004.     bpl.s    c6890
  8005.     move.w    d4,0(a2,d6.w)
  8006.     bra.s    c6898
  8007.  
  8008. c6890:    move.w    d4,2(a2,d6.w)
  8009.     move.w    d4,0(a2,d6.w)
  8010. c6898:    addq.w    #2,d4
  8011.     cmpi.w    #$4E6,d4
  8012.     blt.s    c6886
  8013.     movem.l    (sp)+,d0-d7/a0/a3-a5
  8014.     rts
  8015.  
  8016. c68A6:    movem.l    d2-d7/a2-a6,-(sp)
  8017.     lea    $54(a0),a6
  8018.     move.l    a4,-$40(a6)
  8019.     move.l    sp,-$44(a6)
  8020.     movea.l    -$2C(a6),a0
  8021.     adda.w    #$1000,a0
  8022.     move.l    #$20202020,d1
  8023.     move.l    d1,d2
  8024.     move.l    d2,d3
  8025.     move.l    d3,d6
  8026.     move.l    d6,d7
  8027.     movea.l    d7,a4
  8028.     movea.l    a4,a1
  8029.     movea.l    a1,a2
  8030.     movem.l    d1-d3/d6/d7/a1/a2/a4,-(a0)
  8031.     movem.l    d1-d3/d6/d7/a1/a2/a4,-(a0)
  8032.     clr.w    -6(a6)
  8033.     move.l    -$34(a6),-$38(a6)
  8034.     move.w    #$8000,d7
  8035.     move.l    -$24(a6),d6
  8036.     move.l    -$28(a6),d5
  8037.     addq.l    #1,d5
  8038.     lsr.l    #1,d5
  8039.     movea.l    -$30(a6),a5
  8040.     movea.l    -$2C(a6),a4
  8041.     adda.w    #$1000,a4
  8042.     lea    $75C(a6),a2
  8043.     lea    $C42(a6),a1
  8044.     move.l    -$1C(a6),d0
  8045.     beq.l    c6E3A
  8046.     move.l    d0,-4(a6)
  8047.     bsr.l    c67A8
  8048.     clr.l    -$3C(a6)
  8049.     bra.s    c692C
  8050.  
  8051. c691E:    move.w    (a5)+,d7
  8052.     addx.w    d7,d7
  8053.     dbra    d5,c698E
  8054.     bsr.l    c6E52
  8055.     bra.s    c691E
  8056.  
  8057. c692C:    move.w    $4E4(a1),d2
  8058.     add.w    d7,d7
  8059.     beq.s    c691E
  8060.     bcc.s    c6942
  8061. c6936:    move.w    2(a1,d2.w),d2
  8062. c693A:    bmi.s    c6984
  8063.     add.w    d7,d7
  8064.     beq.s    c691E
  8065.     bcs.s    c6936
  8066. c6942:    move.w    0(a1,d2.w),d2
  8067.     bmi.s    c6984
  8068.     add.w    d7,d7
  8069.     beq.s    c691E
  8070.     bcs.s    c6936
  8071.     move.w    0(a1,d2.w),d2
  8072.     bmi.s    c69D2
  8073.     add.w    d7,d7
  8074.     beq.s    c691E
  8075.     bcs.s    c6936
  8076.     move.w    0(a1,d2.w),d2
  8077.     bmi.s    c69D2
  8078.     add.w    d7,d7
  8079.     beq.s    c691E
  8080.     bcs.s    c6936
  8081.     move.w    0(a1,d2.w),d2
  8082.     bmi.s    c69D2
  8083.     add.w    d7,d7
  8084.     beq.s    c691E
  8085.     bcs.s    c6936
  8086.     move.w    0(a1,d2.w),d2
  8087.     bmi.s    c69D2
  8088.     add.w    d7,d7
  8089.     beq.s    c691E
  8090.     bcs.s    c6936
  8091.     move.w    0(a1,d2.w),d2
  8092.     bpl.s    c693A
  8093. c6984:    bra.s    c69D2
  8094.  
  8095. c6986:    move.w    2(a1,d2.w),d2
  8096. c698A:    bmi.s    c69D2
  8097.     add.w    d7,d7
  8098. c698E:    bcs.s    c6986
  8099.     move.w    0(a1,d2.w),d2
  8100.     bmi.s    c69D2
  8101.     add.w    d7,d7
  8102.     bcs.s    c6986
  8103.     move.w    0(a1,d2.w),d2
  8104.     bmi.s    c69D2
  8105.     add.w    d7,d7
  8106.     bcs.s    c6986
  8107.     move.w    0(a1,d2.w),d2
  8108.     bmi.s    c69D2
  8109.     add.w    d7,d7
  8110.     bcs.s    c6986
  8111.     move.w    0(a1,d2.w),d2
  8112.     bmi.s    c69D2
  8113.     add.w    d7,d7
  8114.     bcs.s    c6986
  8115.     move.w    0(a1,d2.w),d2
  8116.     bmi.s    c69D2
  8117.     add.w    d7,d7
  8118.     bcs.s    c6986
  8119.     move.w    0(a1,d2.w),d2
  8120.     bra.s    c698A
  8121.  
  8122. c69C8:    bsr.l    c6800
  8123.     bra.s    c69D8
  8124.  
  8125. c69CE:    bra.l    c6AAE
  8126.  
  8127. c69D2:    tst.w    $4E4(a6)
  8128.     bmi.s    c69C8
  8129. c69D8:    move.w    0(a2,d2.w),d4
  8130.     lea    0(a6,d4.w),a3
  8131.     addq.w    #1,(a3)
  8132.     move.w    (a3)+,d0
  8133.     cmp.w    (a3)+,d0
  8134.     bhi.s    c69FA
  8135. c69E8:    move.w    0(a2,d4.w),d4
  8136.     bmi.s    c69CE
  8137. c69EE:    lea    0(a6,d4.w),a3
  8138.     addq.w    #1,(a3)
  8139.     move.w    (a3)+,d0
  8140.     cmp.w    (a3)+,d0
  8141.     bls.s    c69E8
  8142. c69FA:    cmp.w    (a3)+,d0
  8143.     bls.s    c6A76
  8144.     cmp.w    (a3)+,d0
  8145.     bls.s    c6A76
  8146.     cmp.w    (a3)+,d0
  8147.     bls.s    c6A76
  8148.     cmp.w    (a3)+,d0
  8149.     bls.s    c6A76
  8150.     cmp.w    (a3)+,d0
  8151.     bls.s    c6A76
  8152.     cmp.w    (a3)+,d0
  8153.     bls.s    c6A76
  8154.     cmp.w    (a3)+,d0
  8155.     bls.s    c6A76
  8156.     cmp.w    (a3)+,d0
  8157.     bls.s    c6A76
  8158.     cmp.w    (a3)+,d0
  8159.     bls.s    c6A76
  8160.     cmp.w    (a3)+,d0
  8161.     bls.s    c6A76
  8162.     cmp.w    (a3)+,d0
  8163.     bls.s    c6A76
  8164.     cmp.w    (a3)+,d0
  8165.     bls.s    c6A76
  8166.     cmp.w    (a3)+,d0
  8167.     bls.s    c6A76
  8168.     cmp.w    (a3)+,d0
  8169.     bls.s    c6A76
  8170.     cmp.w    (a3)+,d0
  8171.     bls.s    c6A76
  8172.     cmp.w    (a3)+,d0
  8173.     bls.s    c6A76
  8174.     cmp.w    (a3)+,d0
  8175.     bls.s    c6A76
  8176.     cmp.w    (a3)+,d0
  8177.     bls.s    c6A76
  8178.     cmp.w    (a3)+,d0
  8179.     bls.s    c6A76
  8180.     cmp.w    (a3)+,d0
  8181.     bls.s    c6A76
  8182.     cmp.w    (a3)+,d0
  8183.     bls.s    c6A76
  8184.     cmp.w    (a3)+,d0
  8185.     bls.s    c6A76
  8186.     cmp.w    (a3)+,d0
  8187.     bls.s    c6A76
  8188.     cmp.w    (a3)+,d0
  8189.     bls.s    c6A76
  8190.     cmp.w    (a3)+,d0
  8191.     bls.s    c6A76
  8192.     cmp.w    (a3)+,d0
  8193.     bls.s    c6A76
  8194.     cmp.w    (a3)+,d0
  8195.     bls.s    c6A76
  8196.     cmp.w    (a3)+,d0
  8197.     bls.s    c6A76
  8198.     cmp.w    (a3)+,d0
  8199.     bls.s    c6A76
  8200.     cmp.w    (a3)+,d0
  8201.     bls.s    c6A76
  8202.     cmp.w    (a3)+,d0
  8203.     bhi.s    c69FA
  8204. c6A76:    subq.w    #4,a3
  8205.     movea.l    a3,a0
  8206.     suba.l    a6,a0
  8207.     subq.w    #1,0(a6,d4.w)
  8208.     move.w    d0,(a3)
  8209.     move.w    0(a1,d4.w),d1
  8210.     bmi.s    c6A8C
  8211.     move.w    a0,2(a2,d1.w)
  8212. c6A8C:    move.w    a0,0(a2,d1.w)
  8213.     move.w    $C42(a3),d0
  8214.     bmi.s    c6A9A
  8215.     move.w    d4,2(a2,d0.w)
  8216. c6A9A:    move.w    d4,0(a2,d0.w)
  8217.     move.w    d1,$C42(a3)
  8218.     move.w    d0,0(a1,d4.w)
  8219.     move.w    $75C(a3),d4
  8220.     bpl.l    c69EE
  8221. c6AAE:    not.w    d2
  8222.     asr.w    #1,d2
  8223.     cmpi.w    #$100,d2
  8224.     bge.s    c6ACC
  8225.     addq.l    #1,-$3C(a6)
  8226.     move.b    d2,(a4)+
  8227.     subq.l    #1,d6
  8228.     bne.l    c6DEC
  8229.     bsr.l    c6E7E
  8230.     bra.l    c6DEC
  8231.  
  8232. c6ACC:    move.w    d2,d3
  8233.     ext.l    d3
  8234.     subi.w    #$FD,d3
  8235.     add.l    d3,-$3C(a6)
  8236.     tst.b    d7
  8237.     bne.s    c6B34
  8238.     moveq    #0,d4
  8239.     moveq    #7,d2
  8240.     add.w    d7,d7
  8241.     beq.s    c6B26
  8242.     addx.w    d4,d4
  8243.     subq.l    #1,d2
  8244.     add.w    d7,d7
  8245.     beq.s    c6B26
  8246.     addx.w    d4,d4
  8247.     subq.l    #1,d2
  8248.     add.w    d7,d7
  8249.     beq.s    c6B26
  8250.     addx.w    d4,d4
  8251.     subq.l    #1,d2
  8252.     add.w    d7,d7
  8253.     beq.s    c6B26
  8254.     addx.w    d4,d4
  8255.     subq.l    #1,d2
  8256.     add.w    d7,d7
  8257.     beq.s    c6B26
  8258.     addx.w    d4,d4
  8259.     subq.l    #1,d2
  8260.     add.w    d7,d7
  8261.     beq.s    c6B26
  8262.     addx.w    d4,d4
  8263.     subq.l    #1,d2
  8264.     add.w    d7,d7
  8265.     beq.s    c6B26
  8266.     addx.w    d4,d4
  8267.     subq.l    #1,d2
  8268.     add.w    d7,d7
  8269.     bra.s    c6B26
  8270.  
  8271. c6B1C:    add.w    d7,d7
  8272. c6B1E:    addx.w    d4,d4
  8273.     dbra    d2,c6B1C
  8274.     bra.s    c6B3A
  8275.  
  8276. c6B26:    move.w    (a5)+,d7
  8277.     addx.w    d7,d7
  8278.     dbra    d5,c6B1E
  8279.     bsr.l    c6E52
  8280.     bra.s    c6B26
  8281.  
  8282. c6B34:    move.w    d7,d4
  8283.     lsl.w    #8,d7
  8284.     lsr.w    #8,d4
  8285. c6B3A:    move.w    d4,d1
  8286.     add.w    d1,d1
  8287.     moveq    #0,d2
  8288.     move.w    w6B6C(pc,d1.w),d1
  8289.     move.b    d1,d2
  8290.     clr.b    d1
  8291.     lsr.w    #2,d1
  8292. c6B4A:    add.w    d7,d7
  8293.     beq.s    c6B5E
  8294. c6B4E:    addx.w    d4,d4
  8295.     dbra    d2,c6B4A
  8296.     andi.w    #$3F,d4
  8297.     or.w    d1,d4
  8298.     bra.l    c6E04
  8299.  
  8300. c6B5E:    move.w    (a5)+,d7
  8301.     addx.w    d7,d7
  8302.     dbra    d5,c6B4E
  8303.     bsr.l    c6E52
  8304.     bra.s    c6B5E
  8305.  
  8306. w6B6C:    dcb.w    $20,0
  8307.     dcb.w    $10,$101
  8308.     dcb.w    $10,$201
  8309.     dcb.w    $10,$301
  8310.     dcb.w    $8,$402
  8311.     dcb.w    $8,$502
  8312.     dcb.w    $8,$602
  8313.     dcb.w    $8,$702
  8314.     dcb.w    $8,$802
  8315.     dcb.w    $8,$902
  8316.     dcb.w    $8,$A02
  8317.     dcb.w    $8,$B02
  8318.     dcb.w    $4,$C03
  8319.     dcb.w    $4,$D03
  8320.     dcb.w    $4,$E03
  8321.     dcb.w    $4,$F03
  8322.     dcb.w    $4,$1003
  8323.     dcb.w    $4,$1103
  8324.     dcb.w    $4,$1203
  8325.     dcb.w    $4,$1303
  8326.     dcb.w    $4,$1403
  8327.     dcb.w    $4,$1503
  8328.     dcb.w    $4,$1603
  8329.     dcb.w    $4,$1703
  8330.     dcb.w    $2,$1804
  8331.     dcb.w    $2,$1904
  8332.     dcb.w    $2,$1A04
  8333.     dcb.w    $2,$1B04
  8334.     dcb.w    $2,$1C04
  8335.     dcb.w    $2,$1D04
  8336.     dcb.w    $2,$1E04
  8337.     dcb.w    $2,$1F04
  8338.     dcb.w    $2,$2004
  8339.     dcb.w    $2,$2104
  8340.     dcb.w    $2,$2204
  8341.     dcb.w    $2,$2304
  8342.     dcb.w    $2,$2404
  8343.     dcb.w    $2,$2504
  8344.     dcb.w    $2,$2604
  8345.     dcb.w    $2,$2704
  8346.     dcb.w    $2,$2804
  8347.     dcb.w    $2,$2904
  8348.     dcb.w    $2,$2A04
  8349.     dcb.w    $2,$2B04
  8350.     dcb.w    $2,$2C04
  8351.     dcb.w    $2,$2D04
  8352.     dcb.w    $2,$2E04
  8353.     dcb.w    $2,$2F04
  8354.     dc.w    $3005
  8355.     dc.w    $3105
  8356.     dc.w    $3205
  8357.     dc.w    $3305
  8358.     dc.w    $3405
  8359.     dc.w    $3505
  8360.     dc.w    $3605
  8361.     dc.w    $3705
  8362.     dc.w    $3805
  8363.     dc.w    $3905
  8364.     dc.w    $3A05
  8365.     dc.w    $3B05
  8366.     dc.w    $3C05
  8367.     dc.w    $3D05
  8368.     dc.w    $3E05
  8369.     dc.w    $3F05
  8370.     dcb.w    $3C,$18D8
  8371.  
  8372. c6DE4:    tst.l    d6
  8373.     bgt.s    c6DEC
  8374.     bsr.l    c6E7E
  8375. c6DEC:    move.l    -$3C(a6),d0
  8376.     cmp.l    -$38(a6),d0
  8377.     bhi.l    c6E14
  8378.     cmp.l    -$1C(a6),d0
  8379.     blt.l    c692C
  8380.     bra.l    c6E30
  8381.  
  8382. c6E04:    neg.w    d4
  8383.     lea    -1(a4,d4.w),a0
  8384.     sub.l    d3,d6
  8385.     add.w    d3,d3
  8386.     neg.w    d3
  8387.     jmp    c6DE4(pc,d3.w)
  8388.  
  8389. c6E14:    bsr.l    c6F50
  8390.     tst.w    d0
  8391.     bne.s    c6E36
  8392.     move.l    -$34(a6),d0
  8393.     add.l    d0,-$38(a6)
  8394.     move.l    -$3C(a6),d0
  8395.     cmp.l    -$1C(a6),d0
  8396.     blt.l    c692C
  8397. c6E30:    bsr.l    c6EDE
  8398.     bra.s    c6E3A
  8399.  
  8400. c6E36:    moveq    #-1,d0
  8401.     bra.s    c6E3C
  8402.  
  8403. c6E3A:    moveq    #0,d0
  8404. c6E3C:    movea.l    -$44(a6),sp
  8405.     movem.l    (sp)+,d2-d7/a2-a6
  8406.     rts
  8407.  
  8408. c6E46:    cmpi.l    #$FFFFFFFE,d0
  8409.     beq.s    c6E3A
  8410.     moveq    #3,d0
  8411.     bra.s    c6E3C
  8412.  
  8413. c6E52:    movem.l    d0/d1/a0/a1/a4,-(sp)
  8414.     movea.l    -$40(a6),a4
  8415.     pea    -$54(a6)
  8416.     movea.l    -$54(a6),a1
  8417.     jsr    (a1)
  8418.     addq.l    #4,sp
  8419.     tst.l    d0
  8420.     bmi.s    c6E46
  8421.     movea.l    -$30(a6),a5
  8422.     move.l    d0,d5
  8423.     addq.l    #1,d5
  8424.     lsr.l    #1,d5
  8425.     move.w    #$10,ccr
  8426.     movem.l    (sp)+,d0/d1/a0/a1/a4
  8427.     rts
  8428.  
  8429. c6E7E:    movem.l    d0-d4/a0-a2,-(sp)
  8430.     movea.l    -$2C(a6),a0
  8431.     adda.w    #$1000,a0
  8432.     move.l    -$24(a6),d1
  8433.     move.w    -6(a6),d0
  8434.     bsr.l    c6FBE
  8435.     move.w    d0,-6(a6)
  8436.     movea.l    a4,a2
  8437.     movea.l    -$40(a6),a4
  8438.     pea    -$54(a6)
  8439.     movea.l    -$50(a6),a1
  8440.     jsr    (a1)
  8441.     addq.l    #4,sp
  8442.     tst.l    d0
  8443.     bmi.s    c6E46
  8444.     movea.l    a2,a4
  8445.     move.l    -$24(a6),d0
  8446.     sub.l    d0,-4(a6)
  8447.     beq.s    c6ED2
  8448.     movea.l    -$2C(a6),a0
  8449.     lea    -$1000(a4),a1
  8450.     adda.l    d6,a1
  8451.     move.w    #$FFF,d0
  8452.     sub.l    d6,d0
  8453. c6ECC:    move.b    (a1)+,(a0)+
  8454.     dbra    d0,c6ECC
  8455. c6ED2:    add.l    -$24(a6),d6
  8456.     movea.l    a0,a4
  8457.     movem.l    (sp)+,d0-d4/a0-a2
  8458.     rts
  8459.  
  8460. c6EDE:    movem.l    d0-d4/a0/a1,-(sp)
  8461.     movea.l    -$2C(a6),a0
  8462.     adda.w    #$1000,a0
  8463.     move.l    -$24(a6),d1
  8464.     sub.l    d6,d1
  8465.     beq.s    c6F22
  8466.     move.l    d1,-$24(a6)
  8467.     move.w    -6(a6),d0
  8468.     bsr.l    c6FBE
  8469.     move.w    d0,-6(a6)
  8470.     movea.l    -$40(a6),a4
  8471.     pea    -$54(a6)
  8472.     movea.l    -$50(a6),a1
  8473.     jsr    (a1)
  8474.     addq.w    #4,sp
  8475.     tst.l    d0
  8476.     bmi.l    c6E46
  8477.     movea.l    -$2C(a6),a4
  8478.     adda.w    #$1000,a4
  8479.     moveq    #0,d6
  8480. c6F22:    movem.l    (sp)+,d0-d4/a0/a1
  8481.     rts
  8482.  
  8483. c6F28:    movem.l    d0/d1/a0/a1/a4,-(sp)
  8484.     movea.l    -$40(a6),a4
  8485.     pea    -$54(a6)
  8486.     movea.l    -$54(a6),a1
  8487.     jsr    (a1)
  8488.     addq.l    #4,sp
  8489.     tst.l    d0
  8490.     bmi.l    c6E46
  8491.     movea.l    -$30(a6),a5
  8492.     move.l    d0,d5
  8493.     subq.l    #1,d5
  8494.     movem.l    (sp)+,d0/d1/a0/a1/a4
  8495.     rts
  8496.  
  8497. c6F50:    movem.l    d1/a0/a1/a4,-(sp)
  8498.     movea.l    -$40(a6),a4
  8499.     pea    -$54(a6)
  8500.     movea.l    -$4C(a6),a1
  8501.     jsr    (a1)
  8502.     addq.l    #4,sp
  8503.     movem.l    (sp)+,d1/a0/a1/a4
  8504.     rts
  8505.  
  8506. c6F6A:    movem.l    d2-d7/a2-a6,-(sp)
  8507.     lea    $54(a0),a6
  8508.     move.l    a4,-$40(a6)
  8509.     clr.w    -6(a6)
  8510.     clr.l    -$3C(a6)
  8511.     tst.l    -$1C(a6)
  8512.     beq.s    c6FB6
  8513.     move.l    -$24(a6),d6
  8514.     move.l    -$28(a6),d5
  8515.     movea.l    -$30(a6),a5
  8516.     movea.l    -$2C(a6),a4
  8517.     adda.w    #$1000,a4
  8518. c6F98:    move.b    (a5)+,(a4)+
  8519.     subq.l    #1,d5
  8520.     beq.s    c6FA8
  8521. c6F9E:    subq.l    #1,d6
  8522.     bne.s    c6F98
  8523.     bsr.l    c6E7E
  8524.     bra.s    c6F98
  8525.  
  8526. c6FA8:    bsr.l    c6F28
  8527.     addq.l    #1,d5
  8528.     bne.s    c6F9E
  8529.     subq.l    #1,d6
  8530.     bsr.l    c6EDE
  8531. c6FB6:    moveq    #0,d0
  8532.     movem.l    (sp)+,d2-d7/a2-a6
  8533.     rts
  8534.  
  8535. c6FBE:    movem.l    d2/d3,-(sp)
  8536.     bsr.l    c6FCC
  8537.     movem.l    (sp)+,d2/d3
  8538.     rts
  8539.  
  8540. c6FCC:    move.w    #$FF,d3
  8541.     subq.l    #1,d1
  8542.     bmi.s    c6FE8
  8543. c6FD4:    move.b    (a0)+,d2
  8544.     eor.b    d0,d2
  8545.     lsr.w    #8,d0
  8546.     and.w    d3,d2
  8547.     add.w    d2,d2
  8548.     move.w    w6FEC(pc,d2.w),d2
  8549.     eor.w    d2,d0
  8550.     dbra    d1,c6FD4
  8551. c6FE8:    rts
  8552.  
  8553.     dc.w    0
  8554. w6FEC:    dc.w    0
  8555.     dc.w    $C0C1
  8556.     dc.w    $C181
  8557.     dc.w    $140
  8558.     dc.w    $C301
  8559.     dc.w    $3C0
  8560.     dc.w    $280
  8561.     dc.w    $C241
  8562.     dc.w    $C601
  8563.     dc.w    $6C0
  8564.     dc.w    $780
  8565.     dc.w    $C741
  8566.     dc.w    $500
  8567.     dc.w    $C5C1
  8568.     dc.w    $C481
  8569.     dc.w    $440
  8570.     dc.w    $CC01
  8571.     dc.w    $CC0
  8572.     dc.w    $D80
  8573.     dc.w    $CD41
  8574.     dc.w    $F00
  8575.     dc.w    $CFC1
  8576.     dc.w    $CE81
  8577.     dc.w    $E40
  8578.     dc.w    $A00
  8579.     dc.w    $CAC1
  8580.     dc.w    $CB81
  8581.     dc.w    $B40
  8582.     dc.w    $C901
  8583.     dc.w    $9C0
  8584.     dc.w    $880
  8585.     dc.w    $C841
  8586.     dc.w    $D801
  8587.     dc.w    $18C0
  8588.     dc.w    $1980
  8589.     dc.w    $D941
  8590.     dc.w    $1B00
  8591.     dc.w    $DBC1
  8592.     dc.w    $DA81
  8593.     dc.w    $1A40
  8594.     dc.w    $1E00
  8595.     dc.w    $DEC1
  8596.     dc.w    $DF81
  8597.     dc.w    $1F40
  8598.     dc.w    $DD01
  8599.     dc.w    $1DC0
  8600.     dc.w    $1C80
  8601.     dc.w    $DC41
  8602.     dc.w    $1400
  8603.     dc.w    $D4C1
  8604.     dc.w    $D581
  8605.     dc.w    $1540
  8606.     dc.w    $D701
  8607.     dc.w    $17C0
  8608.     dc.w    $1680
  8609.     dc.w    $D641
  8610.     dc.w    $D201
  8611.     dc.w    $12C0
  8612.     dc.w    $1380
  8613.     dc.w    $D341
  8614.     dc.w    $1100
  8615.     dc.w    $D1C1
  8616.     dc.w    $D081
  8617.     dc.w    $1040
  8618.     dc.w    $F001
  8619.     dc.w    $30C0
  8620.     dc.w    $3180
  8621.     dc.w    $F141
  8622.     dc.w    $3300
  8623.     dc.w    $F3C1
  8624.     dc.w    $F281
  8625.     dc.w    $3240
  8626.     dc.w    $3600
  8627.     dc.w    $F6C1
  8628.     dc.w    $F781
  8629.     dc.w    $3740
  8630.     dc.w    $F501
  8631.     dc.w    $35C0
  8632.     dc.w    $3480
  8633.     dc.w    $F441
  8634.     dc.w    $3C00
  8635.     dc.w    $FCC1
  8636.     dc.w    $FD81
  8637.     dc.w    $3D40
  8638.     dc.w    $FF01
  8639.     dc.w    $3FC0
  8640.     dc.w    $3E80
  8641.     dc.w    $FE41
  8642.     dc.w    $FA01
  8643.     dc.w    $3AC0
  8644.     dc.w    $3B80
  8645.     dc.w    $FB41
  8646.     dc.w    $3900
  8647.     dc.w    $F9C1
  8648.     dc.w    $F881
  8649.     dc.w    $3840
  8650.     dc.w    $2800
  8651.     dc.w    $E8C1
  8652.     dc.w    $E981
  8653.     dc.w    $2940
  8654.     dc.w    $EB01
  8655.     dc.w    $2BC0
  8656.     dc.w    $2A80
  8657.     dc.w    $EA41
  8658.     dc.w    $EE01
  8659.     dc.w    $2EC0
  8660.     dc.w    $2F80
  8661.     dc.w    $EF41
  8662.     dc.w    $2D00
  8663.     dc.w    $EDC1
  8664.     dc.w    $EC81
  8665.     dc.w    $2C40
  8666.     dc.w    $E401
  8667.     dc.w    $24C0
  8668.     dc.w    $2580
  8669.     dc.w    $E541
  8670.     dc.w    $2700
  8671.     dc.w    $E7C1
  8672.     dc.w    $E681
  8673.     dc.w    $2640
  8674.     dc.w    $2200
  8675.     dc.w    $E2C1
  8676.     dc.w    $E381
  8677.     dc.w    $2340
  8678.     dc.w    $E101
  8679.     dc.w    $21C0
  8680.     dc.w    $2080
  8681.     dc.w    $E041
  8682.     dc.w    $A001
  8683.     dc.w    $60C0
  8684.     dc.w    $6180
  8685.     dc.w    $A141
  8686.     dc.w    $6300
  8687.     dc.w    $A3C1
  8688.     dc.w    $A281
  8689.     dc.w    $6240
  8690.     dc.w    $6600
  8691.     dc.w    $A6C1
  8692.     dc.w    $A781
  8693.     dc.w    $6740
  8694.     dc.w    $A501
  8695.     dc.w    $65C0
  8696.     dc.w    $6480
  8697.     dc.w    $A441
  8698.     dc.w    $6C00
  8699.     dc.w    $ACC1
  8700.     dc.w    $AD81
  8701.     dc.w    $6D40
  8702.     dc.w    $AF01
  8703.     dc.w    $6FC0
  8704.     dc.w    $6E80
  8705.     dc.w    $AE41
  8706.     dc.w    $AA01
  8707.     dc.w    $6AC0
  8708.     dc.w    $6B80
  8709.     dc.w    $AB41
  8710.     dc.w    $6900
  8711.     dc.w    $A9C1
  8712.     dc.w    $A881
  8713.     dc.w    $6840
  8714.     dc.w    $7800
  8715.     dc.w    $B8C1
  8716.     dc.w    $B981
  8717.     dc.w    $7940
  8718.     dc.w    $BB01
  8719.     dc.w    $7BC0
  8720.     dc.w    $7A80
  8721.     dc.w    $BA41
  8722.     dc.w    $BE01
  8723.     dc.w    $7EC0
  8724.     dc.w    $7F80
  8725.     dc.w    $BF41
  8726.     dc.w    $7D00
  8727.     dc.w    $BDC1
  8728.     dc.w    $BC81
  8729.     dc.w    $7C40
  8730.     dc.w    $B401
  8731.     dc.w    $74C0
  8732.     dc.w    $7580
  8733.     dc.w    $B541
  8734.     dc.w    $7700
  8735.     dc.w    $B7C1
  8736.     dc.w    $B681
  8737.     dc.w    $7640
  8738.     dc.w    $7200
  8739.     dc.w    $B2C1
  8740.     dc.w    $B381
  8741.     dc.w    $7340
  8742.     dc.w    $B101
  8743.     dc.w    $71C0
  8744.     dc.w    $7080
  8745.     dc.w    $B041
  8746.     dc.w    $5000
  8747.     dc.w    $90C1
  8748.     dc.w    $9181
  8749.     dc.w    $5140
  8750.     dc.w    $9301
  8751.     dc.w    $53C0
  8752.     dc.w    $5280
  8753.     dc.w    $9241
  8754.     dc.w    $9601
  8755.     dc.w    $56C0
  8756.     dc.w    $5780
  8757.     dc.w    $9741
  8758.     dc.w    $5500
  8759.     dc.w    $95C1
  8760.     dc.w    $9481
  8761.     dc.w    $5440
  8762.     dc.w    $9C01
  8763.     dc.w    $5CC0
  8764.     dc.w    $5D80
  8765.     dc.w    $9D41
  8766.     dc.w    $5F00
  8767.     dc.w    $9FC1
  8768.     dc.w    $9E81
  8769.     dc.w    $5E40
  8770.     dc.w    $5A00
  8771.     dc.w    $9AC1
  8772.     dc.w    $9B81
  8773.     dc.w    $5B40
  8774.     dc.w    $9901
  8775.     dc.w    $59C0
  8776.     dc.w    $5880
  8777.     dc.w    $9841
  8778.     dc.w    $8801
  8779.     dc.w    $48C0
  8780.     dc.w    $4980
  8781.     dc.w    $8941
  8782.     dc.w    $4B00
  8783.     dc.w    $8BC1
  8784.     dc.w    $8A81
  8785.     dc.w    $4A40
  8786.     dc.w    $4E00
  8787.     dc.w    $8EC1
  8788.     dc.w    $8F81
  8789.     dc.w    $4F40
  8790.     dc.w    $8D01
  8791.     dc.w    $4DC0
  8792.     dc.w    $4C80
  8793.     dc.w    $8C41
  8794.     dc.w    $4400
  8795.     dc.w    $84C1
  8796.     dc.w    $8581
  8797.     dc.w    $4540
  8798.     dc.w    $8701
  8799.     dc.w    $47C0
  8800.     dc.w    $4680
  8801.     dc.w    $8641
  8802.     dc.w    $8201
  8803.     dc.w    $42C0
  8804.     dc.w    $4380
  8805.     dc.w    $8341
  8806.     dc.w    $4100
  8807.     dc.w    $81C1
  8808.     dc.w    $8081
  8809.     dc.w    $4040
  8810.  
  8811. c71EC:    movem.l    d3-d7/a1/a4/a6,-(sp)
  8812.     link.w    a5,#-$70
  8813.     movea.l    a0,a6
  8814.     moveq    #0,d5
  8815.     bset    d1,d5
  8816.     add.w    d5,d5
  8817.     adda.w    d5,a0
  8818.     move.l    a0,-$6C(a5)
  8819.     move.w    d0,d5
  8820.     add.w    d5,d5
  8821.     move.w    d0,-$6E(a5)
  8822.     move.w    d1,d7
  8823.     movea.l    a5,a0
  8824.     clr.l    -(a0)
  8825.     clr.l    -(a0)
  8826.     clr.l    -(a0)
  8827.     clr.l    -(a0)
  8828.     clr.l    -(a0)
  8829.     clr.l    -(a0)
  8830.     clr.l    -(a0)
  8831.     clr.l    -(a0)
  8832.     moveq    #0,d2
  8833.     movea.l    a1,a0
  8834.     subq.w    #1,d0
  8835. c7224:    move.b    (a0)+,d2
  8836.     add.w    d2,d2
  8837.     addq.w    #1,-$22(a5,d2.w)
  8838.     dbra    d0,c7224
  8839.     lea    -$66(a5),a0
  8840.     clr.w    (a0)
  8841.     lea    -$20(a5),a4
  8842.     moveq    #15,d4
  8843.     moveq    #0,d0
  8844. c723E:    move.w    (a4)+,d1
  8845.     lsl.w    d4,d1
  8846.     add.w    (a0)+,d1
  8847.     move.w    d1,(a0)
  8848.     dbra    d4,c723E
  8849.     tst.w    d1
  8850.     bne.l    c7AC6
  8851.     moveq    #$10,d3
  8852.     sub.b    d7,d3
  8853.     lea    -$66(a5),a0
  8854.     lea    -$42(a5),a4
  8855.     move.w    d7,d4
  8856.     subq.w    #1,d4
  8857. c7260:    move.w    (a0),d1
  8858.     lsr.w    d3,d1
  8859.     move.w    d1,(a0)+
  8860.     moveq    #0,d1
  8861.     bset    d4,d1
  8862.     move.w    d1,(a4)+
  8863.     dbra    d4,c7260
  8864.     moveq    #$10,d4
  8865.     sub.w    d7,d4
  8866.     subq.w    #1,d4
  8867. c7276:    moveq    #0,d2
  8868.     bset    d4,d2
  8869.     move.w    d2,(a4)+
  8870.     dbra    d4,c7276
  8871.     move.w    d7,d0
  8872.     add.w    d0,d0
  8873.     move.w    -$66(a5,d0.w),d4
  8874.     lsr.w    d3,d4
  8875.     beq.s    c72AA
  8876.     moveq    #0,d2
  8877.     bset    d7,d2
  8878.     sub.w    d4,d2
  8879.     subq.w    #1,d2
  8880.     add.w    d4,d4
  8881.     lea    0(a6,d4.w),a4
  8882.     cmpa.l    -$6C(a5),a4
  8883.     bge.l    c7AD0
  8884.     moveq    #0,d1
  8885. c72A4:    move.w    d1,(a4)+
  8886.     dbra    d2,c72A4
  8887. c72AA:    move.w    -$6E(a5),d6
  8888.     subq.w    #1,d6
  8889.     lea    l7BC4(pc),a0
  8890. c72B4:    moveq    #0,d0
  8891.     move.b    (a1)+,d0
  8892.     beq.s    c7320
  8893.     move.w    d0,d4
  8894.     add.w    d0,d0
  8895.     move.w    -$68(a5,d0.w),d1
  8896.     move.w    -$44(a5,d0.w),d2
  8897.     add.w    d1,d2
  8898.     move.w    d2,-$68(a5,d0.w)
  8899.     sub.w    d7,d4
  8900.     bgt.s    c72EC
  8901.     sub.w    d1,d2
  8902.     subq.w    #1,d2
  8903.     add.w    d1,d1
  8904.     lea    0(a6,d1.w),a4
  8905.     cmpa.l    -$6C(a5),a4
  8906.     bge.l    c7AD0
  8907.     move.w    (a0),d0
  8908. c72E4:    move.w    d0,(a4)+
  8909.     dbra    d2,c72E4
  8910.     bra.s    c7320
  8911.  
  8912. c72EC:    move.w    d1,d0
  8913.     lsr.w    d3,d0
  8914.     add.w    d0,d0
  8915.     lea    0(a6,d0.w),a4
  8916.     lsl.w    d7,d1
  8917.     subq.w    #1,d4
  8918. c72FA:    move.w    (a4),d2
  8919.     bne.s    c730C
  8920.     clr.w    0(a3,d5.w)
  8921.     clr.w    0(a2,d5.w)
  8922.     move.w    d5,(a4)
  8923.     move.w    d5,d2
  8924.     addq.w    #2,d5
  8925. c730C:    add.w    d1,d1
  8926.     bcc.s    c7316
  8927.     lea    0(a3,d2.w),a4
  8928.     bra.s    c731A
  8929.  
  8930. c7316:    lea    0(a2,d2.w),a4
  8931. c731A:    dbra    d4,c72FA
  8932.     move.w    (a0),(a4)
  8933. c7320:    addq.w    #2,a0
  8934.     dbra    d6,c72B4
  8935.     unlk    a5
  8936.     movem.l    (sp)+,d3-d7/a1/a4/a6
  8937.     rts
  8938.  
  8939. c732E:    movem.l    d3/d4/a1,-(sp)
  8940.     move.w    d0,-(sp)
  8941.     lea    -$80(a6),a0
  8942.     move.l    d7,d4
  8943.     clr.w    d4
  8944.     rol.l    d0,d4
  8945.     lsl.l    d0,d7
  8946.     sub.b    d0,d6
  8947.     bgt.s    c736E
  8948.     beq.s    c7354
  8949.     moveq    #0,d0
  8950.     move.w    (a5)+,d0
  8951.     dbra    d5,c7362
  8952.     bsr.l    c7ADE
  8953.     bra.s    c7362
  8954.  
  8955. c7354:    moveq    #$10,d6
  8956.     move.w    (a5)+,d7
  8957.     dbra    d5,c736E
  8958.     bsr.l    c7ADE
  8959.     bra.s    c736E
  8960.  
  8961. c7362:    neg.b    d6
  8962.     lsl.l    d6,d0
  8963.     or.l    d0,d7
  8964.     neg.b    d6
  8965.     add.b    #$10,d6
  8966. c736E:    tst.w    d4
  8967.     bne.s    c73D4
  8968.     move.w    (sp)+,d4
  8969.     move.l    d7,d3
  8970.     clr.w    d3
  8971.     rol.l    d4,d3
  8972.     lsl.l    d4,d7
  8973.     sub.b    d4,d6
  8974.     bgt.s    c73AA
  8975.     beq.s    c7390
  8976.     moveq    #0,d0
  8977.     move.w    (a5)+,d0
  8978.     dbra    d5,c739E
  8979.     bsr.l    c7ADE
  8980.     bra.s    c739E
  8981.  
  8982. c7390:    moveq    #$10,d6
  8983.     move.w    (a5)+,d7
  8984.     dbra    d5,c73AA
  8985.     bsr.l    c7ADE
  8986.     bra.s    c73AA
  8987.  
  8988. c739E:    neg.b    d6
  8989.     lsl.l    d6,d0
  8990.     or.l    d0,d7
  8991.     neg.b    d6
  8992.     add.b    #$10,d6
  8993. c73AA:    move.l    d1,d0
  8994.     subq.l    #1,d0
  8995. c73AE:    clr.b    -$300(a0)
  8996.     clr.b    (a0)+
  8997.     dbra    d0,c73AE
  8998.     lea    l7BC4(pc),a0
  8999.     add.w    d3,d3
  9000.     move.w    0(a0,d3.w),d3
  9001.     lea    $24FE(a6),a0
  9002.     move.w    #$FF,d0
  9003. c73CA:    move.w    d3,(a0)+
  9004.     dbra    d0,c73CA
  9005.     bra.l    c74D0
  9006.  
  9007. c73D4:    lea    0(a0,d2.w),a1
  9008.     move.w    d1,(sp)
  9009.     sub.w    d2,d1
  9010. c73DC:    move.l    d7,d0
  9011.     swap    d0
  9012.     rol.w    #3,d0
  9013.     move.w    d0,d3
  9014.     and.w    #7,d3
  9015.     cmpi.w    #7,d3
  9016.     beq.s    c7420
  9017.     lsl.l    #3,d7
  9018.     subq.b    #3,d6
  9019.     bgt.s    c741E
  9020.     beq.s    c7404
  9021.     moveq    #0,d0
  9022.     move.w    (a5)+,d0
  9023.     dbra    d5,c7412
  9024.     bsr.l    c7ADE
  9025.     bra.s    c7412
  9026.  
  9027. c7404:    moveq    #$10,d6
  9028.     move.w    (a5)+,d7
  9029.     dbra    d5,c741E
  9030.     bsr.l    c7ADE
  9031.     bra.s    c741E
  9032.  
  9033. c7412:    neg.b    d6
  9034.     lsl.l    d6,d0
  9035.     or.l    d0,d7
  9036.     neg.b    d6
  9037.     add.b    #$10,d6
  9038. c741E:    bra.s    c745C
  9039.  
  9040. c7420:    add.w    d0,d0
  9041.     bcc.s    c7428
  9042.     addq.w    #1,d3
  9043.     bra.s    c7420
  9044.  
  9045. c7428:    move.w    d3,d0
  9046.     subq.w    #3,d0
  9047.     lsl.l    d0,d7
  9048.     sub.b    d0,d6
  9049.     bgt.s    c745C
  9050.     beq.s    c7442
  9051.     moveq    #0,d0
  9052.     move.w    (a5)+,d0
  9053.     dbra    d5,c7450
  9054.     bsr.l    c7ADE
  9055.     bra.s    c7450
  9056.  
  9057. c7442:    moveq    #$10,d6
  9058.     move.w    (a5)+,d7
  9059.     subq.w    #1,d5
  9060.     bpl.s    c745C
  9061.     bsr.l    c7ADE
  9062.     bra.s    c745C
  9063.  
  9064. c7450:    neg.b    d6
  9065.     lsl.l    d6,d0
  9066.     or.l    d0,d7
  9067.     neg.b    d6
  9068.     add.b    #$10,d6
  9069. c745C:    move.b    d3,(a0)+
  9070.     cmpa.l    a0,a1
  9071.     bne.s    c74A0
  9072.     rol.l    #2,d7
  9073.     move.w    d7,d3
  9074.     and.w    #3,d3
  9075.     and.w    #$FFFC,d7
  9076.     subq.b    #2,d6
  9077.     bgt.s    c7496
  9078.     beq.s    c7484
  9079.     moveq    #15,d6
  9080.     moveq    #0,d0
  9081.     move.w    (a5)+,d0
  9082.     dbra    d5,c7492
  9083.     bsr.l    c7ADE
  9084.     bra.s    c7492
  9085.  
  9086. c7484:    moveq    #$10,d6
  9087.     move.w    (a5)+,d7
  9088.     dbra    d5,c7496
  9089.     bsr.l    c7ADE
  9090.     bra.s    c7496
  9091.  
  9092. c7492:    add.l    d0,d0
  9093.     or.l    d0,d7
  9094. c7496:    bra.s    c749C
  9095.  
  9096. c7498:    clr.b    (a0)+
  9097.     subq.w    #1,d4
  9098. c749C:    dbra    d3,c7498
  9099. c74A0:    subq.w    #1,d4
  9100.     bne.l    c73DC
  9101.     adda.w    d1,a1
  9102. c74A8:    cmpa.l    a1,a0
  9103.     bge.s    c74B0
  9104.     clr.b    (a0)+
  9105.     bra.s    c74A8
  9106.  
  9107. c74B0:    lea    -$80(a6),a1
  9108.     lea    $24FE(a6),a0
  9109.     move.w    (sp)+,d3
  9110.     move.w    d3,d0
  9111.     moveq    #8,d1
  9112.     bsr.l    c71EC
  9113.     lea    -$380(a6),a0
  9114.     lea    -$80(a6),a1
  9115. c74CA:    move.b    (a1)+,(a0)+
  9116.     dbra    d3,c74CA
  9117. c74D0:    movem.l    (sp)+,d3/d4/a1
  9118.     rts
  9119.  
  9120. c74D6:    movem.l    d3/d4/a1,-(sp)
  9121.     moveq    #9,d2
  9122.     move.l    d7,d4
  9123.     clr.w    d4
  9124.     rol.l    d2,d4
  9125.     lsl.l    d2,d7
  9126.     sub.b    d2,d6
  9127.     bgt.s    c7512
  9128.     beq.s    c74F8
  9129.     moveq    #0,d0
  9130.     move.w    (a5)+,d0
  9131.     dbra    d5,c7506
  9132.     bsr.l    c7ADE
  9133.     bra.s    c7506
  9134.  
  9135. c74F8:    moveq    #$10,d6
  9136.     move.w    (a5)+,d7
  9137.     dbra    d5,c7512
  9138.     bsr.l    c7ADE
  9139.     bra.s    c7512
  9140.  
  9141. c7506:    neg.b    d6
  9142.     lsl.l    d6,d0
  9143.     or.l    d0,d7
  9144.     neg.b    d6
  9145.     add.b    #$10,d6
  9146. c7512:    tst.w    d4
  9147.     bne.s    c7572
  9148.     move.l    d7,d3
  9149.     clr.w    d3
  9150.     rol.l    d2,d3
  9151.     lsl.l    d2,d7
  9152.     sub.b    d2,d6
  9153.     bgt.s    c754C
  9154.     beq.s    c7532
  9155.     moveq    #0,d0
  9156.     move.w    (a5)+,d0
  9157.     dbra    d5,c7540
  9158.     bsr.l    c7ADE
  9159.     bra.s    c7540
  9160.  
  9161. c7532:    moveq    #$10,d6
  9162.     move.w    (a5)+,d7
  9163.     dbra    d5,c754C
  9164.     bsr.l    c7ADE
  9165.     bra.s    c754C
  9166.  
  9167. c7540:    neg.b    d6
  9168.     lsl.l    d6,d0
  9169.     or.l    d0,d7
  9170.     neg.b    d6
  9171.     add.b    #$10,d6
  9172. c754C:    move.w    #$1FD,d2
  9173.     movea.l    a1,a0
  9174. c7552:    clr.w    (a0)+
  9175.     dbra    d2,c7552
  9176.     lea    l7BC4(pc),a0
  9177.     add.w    d3,d3
  9178.     move.w    0(a0,d3.w),d3
  9179.     movea.l    a6,a0
  9180.     move.w    #$FFF,d1
  9181. c7568:    move.w    d3,(a0)+
  9182.     dbra    d1,c7568
  9183.     bra.l    c768C
  9184.  
  9185. c7572:    moveq    #0,d2
  9186. c7574:    cmp.w    d4,d2
  9187.     bge.l    c7672
  9188.     lea    $24FE(a6),a0
  9189.     move.l    d7,d0
  9190.     swap    d0
  9191.     move.b    d0,d1
  9192.     lsr.w    #7,d0
  9193.     and.w    #$1FE,d0
  9194.     move.w    0(a0,d0.w),d3
  9195.     bmi.s    c75A2
  9196. c7590:    add.b    d1,d1
  9197.     bcc.s    c759C
  9198.     move.w    0(a3,d3.w),d3
  9199.     bpl.s    c7590
  9200.     bra.s    c75A2
  9201.  
  9202. c759C:    move.w    0(a2,d3.w),d3
  9203.     bpl.s    c7590
  9204. c75A2:    move.b    -$80(a6,d3.w),d0
  9205.     lsl.l    d0,d7
  9206.     sub.b    d0,d6
  9207.     bgt.s    c75D6
  9208.     beq.s    c75BC
  9209.     moveq    #0,d0
  9210.     move.w    (a5)+,d0
  9211.     dbra    d5,c75CA
  9212.     bsr.l    c7ADE
  9213.     bra.s    c75CA
  9214.  
  9215. c75BC:    moveq    #$10,d6
  9216.     move.w    (a5)+,d7
  9217.     subq.w    #1,d5
  9218.     bpl.s    c75D6
  9219.     bsr.l    c7ADE
  9220.     bra.s    c75D6
  9221.  
  9222. c75CA:    neg.b    d6
  9223.     lsl.l    d6,d0
  9224.     or.l    d0,d7
  9225.     neg.b    d6
  9226.     add.b    #$10,d6
  9227. c75D6:    subq.b    #2,d3
  9228.     bgt.l    c7668
  9229.     bmi.s    c761C
  9230.     moveq    #9,d0
  9231.     move.l    d7,d3
  9232.     clr.w    d3
  9233.     rol.l    d0,d3
  9234.     lsl.l    d0,d7
  9235.     sub.b    d0,d6
  9236.     bgt.s    c7616
  9237.     beq.s    c75FC
  9238.     moveq    #0,d1
  9239.     move.w    (a5)+,d1
  9240.     dbra    d5,c760A
  9241.     bsr.l    c7ADE
  9242.     bra.s    c760A
  9243.  
  9244. c75FC:    moveq    #$10,d6
  9245.     move.w    (a5)+,d7
  9246.     dbra    d5,c7616
  9247.     bsr.l    c7ADE
  9248.     bra.s    c7616
  9249.  
  9250. c760A:    neg.b    d6
  9251.     lsl.l    d6,d1
  9252.     or.l    d1,d7
  9253.     neg.b    d6
  9254.     add.b    #$10,d6
  9255. c7616:    add.w    #$13,d3
  9256.     bra.s    c765A
  9257.  
  9258. c761C:    addq.b    #1,d3
  9259.     bne.s    c7666
  9260.     move.l    d7,d3
  9261.     clr.w    d3
  9262.     rol.l    #4,d3
  9263.     lsl.l    #4,d7
  9264.     sub.b    #4,d6
  9265.     bgt.s    c7658
  9266.     beq.s    c763E
  9267.     moveq    #0,d0
  9268.     move.w    (a5)+,d0
  9269.     dbra    d5,c764C
  9270.     bsr.l    c7ADE
  9271.     bra.s    c764C
  9272.  
  9273. c763E:    moveq    #$10,d6
  9274.     move.w    (a5)+,d7
  9275.     dbra    d5,c7658
  9276.     bsr.l    c7ADE
  9277.     bra.s    c7658
  9278.  
  9279. c764C:    neg.b    d6
  9280.     lsl.l    d6,d0
  9281.     or.l    d0,d7
  9282.     neg.b    d6
  9283.     add.b    #$10,d6
  9284. c7658:    addq.w    #2,d3
  9285. c765A:    clr.b    0(a1,d2.w)
  9286.     addq.w    #1,d2
  9287.     dbra    d3,c765A
  9288.     bra.s    c766E
  9289.  
  9290. c7666:    moveq    #0,d3
  9291. c7668:    move.b    d3,0(a1,d2.w)
  9292.     addq.w    #1,d2
  9293. c766E:    bra.l    c7574
  9294.  
  9295. c7672:    cmpi.w    #$1FE,d2
  9296.     bge.s    c7680
  9297.     clr.b    0(a1,d2.w)
  9298.     addq.w    #1,d2
  9299.     bra.s    c7672
  9300.  
  9301. c7680:    move.w    #$1FE,d0
  9302.     moveq    #12,d1
  9303.     movea.l    a6,a0
  9304.     bsr.l    c71EC
  9305. c768C:    lea    $2000(a6),a0
  9306.     moveq    #15,d0
  9307. c7692:    move.l    (a1)+,(a0)+
  9308.     move.l    (a1)+,(a0)+
  9309.     move.l    (a1)+,(a0)+
  9310.     move.l    (a1)+,(a0)+
  9311.     dbra    d0,c7692
  9312.     lea    $22FE(a6),a0
  9313.     move.w    #$FF,d0
  9314. c76A6:    move.b    (a1)+,(a0)
  9315.     subq.l    #2,a0
  9316.     dbra    d0,c76A6
  9317.     movem.l    (sp)+,d3/d4/a1
  9318.     rts
  9319.  
  9320. c76B4:    movem.l    d1-d7/a0-a6,-(sp)
  9321.     lea    $13C2(a0),a6
  9322.     move.l    sp,-$13B2(a6)
  9323.     move.l    a4,-$13AE(a6)
  9324.     move.l    -$138A(a6),d0
  9325.     move.l    d0,-$1372(a6)
  9326.     cmp.l    -$1392(a6),d0
  9327.     bge.s    c76D6
  9328.     move.l    d0,-$1392(a6)
  9329. c76D6:    lea    $2300(a6),a1
  9330.     lea    -$136C(a6),a2
  9331.     lea    -$B76(a6),a3
  9332.     movea.l    -$139A(a6),a4
  9333.     adda.l    #$2000,a4
  9334.     movea.l    -$139E(a6),a5
  9335.     move.l    -$1392(a6),d4
  9336.     move.l    -$1396(a6),d5
  9337.     addq.l    #1,d5
  9338.     lsr.l    #1,d5
  9339.     clr.w    -$1374(a6)
  9340.     clr.l    -$13AA(a6)
  9341.     move.l    (a5)+,d7
  9342.     subq.l    #3,d5
  9343.     bmi.l    c7AC6
  9344.     moveq    #$10,d6
  9345.     bra.l    c778C
  9346.  
  9347. c7712:    swap    d5
  9348.     swap    d7
  9349.     move.w    d7,d0
  9350.     clr.w    d7
  9351.     btst    #4,d6
  9352.     beq.s    c772C
  9353.     move.w    (a5)+,d7
  9354.     dbra    d5,c7746
  9355.     bsr.l    c7ADE
  9356.     bra.s    c7746
  9357.  
  9358. c772C:    moveq    #0,d1
  9359.     move.w    (a5)+,d1
  9360.     dbra    d5,c7738
  9361.     bsr.l    c7ADE
  9362. c7738:    move.w    d6,-(sp)
  9363.     sub.b    #$10,d6
  9364.     neg.b    d6
  9365.     lsl.l    d6,d1
  9366.     move.w    (sp)+,d6
  9367.     or.l    d1,d7
  9368. c7746:    subq.w    #1,d0
  9369.     swap    d5
  9370.     move.w    d0,d5
  9371.     swap    d5
  9372.     move.w    #$FD00,d0
  9373.     move.w    d0,(a2)
  9374.     move.w    d0,(a3)
  9375.     moveq    #$13,d1
  9376.     moveq    #5,d0
  9377.     moveq    #3,d2
  9378.     bsr.l    c732E
  9379.     bsr.l    c74D6
  9380.     moveq    #14,d1
  9381.     moveq    #4,d0
  9382.     moveq    #-1,d2
  9383.     bsr.l    c732E
  9384.     bra.s    c7794
  9385.  
  9386. c7770:    bra.s    c7712
  9387.  
  9388. c7772:    move.l    d7,d0
  9389.     swap    d0
  9390.     lsl.b    #4,d0
  9391. c7778:    add.b    d0,d0
  9392.     bcc.s    c7784
  9393.     move.w    0(a3,d1.w),d1
  9394.     bpl.s    c7778
  9395.     bra.s    c77A2
  9396.  
  9397. c7784:    move.w    0(a2,d1.w),d1
  9398.     bpl.s    c7778
  9399.     bra.s    c77A2
  9400.  
  9401. c778C:    swap    d5
  9402.     subq.w    #1,d5
  9403.     bcs.s    c7770
  9404.     swap    d5
  9405. c7794:    move.l    d7,d1
  9406.     swap    d1
  9407.     lsr.w    #4,d1
  9408.     add.w    d1,d1
  9409.     move.w    0(a6,d1.w),d1
  9410.     bpl.s    c7772
  9411. c77A2:    move.b    0(a1,d1.w),d0
  9412.     lsl.l    d0,d7
  9413.     sub.b    d0,d6
  9414.     bgt.s    c77D6
  9415.     beq.s    c77BC
  9416.     moveq    #0,d0
  9417.     move.w    (a5)+,d0
  9418.     dbra    d5,c77CA
  9419.     bsr.l    c7ADE
  9420.     bra.s    c77CA
  9421.  
  9422. c77BC:    moveq    #$10,d6
  9423.     move.w    (a5)+,d7
  9424.     subq.w    #1,d5
  9425.     bpl.s    c77D6
  9426.     bsr.l    c7ADE
  9427.     bra.s    c77D6
  9428.  
  9429. c77CA:    neg.b    d6
  9430.     lsl.l    d6,d0
  9431.     or.l    d0,d7
  9432.     neg.b    d6
  9433.     add.b    #$10,d6
  9434. c77D6:    cmpi.w    #$FE00,d1
  9435.     bcc.s    c7804
  9436.     move.b    d1,(a4)+
  9437.     subq.l    #1,d4
  9438.     bne.s    c778C
  9439.     bsr.l    c7B10
  9440.     bne.s    c778C
  9441.     bra.l    c7AB0
  9442.  
  9443. c77EC:    move.l    d7,d2
  9444.     swap    d2
  9445. c77F0:    add.b    d2,d2
  9446.     bcc.s    c77FC
  9447.     move.w    0(a3,d3.w),d3
  9448.     bpl.s    c77F0
  9449.     bra.s    c7816
  9450.  
  9451. c77FC:    move.w    0(a2,d3.w),d3
  9452.     bpl.s    c77F0
  9453.     bra.s    c7816
  9454.  
  9455. c7804:    move.l    d7,d3
  9456.     swap    d3
  9457.     lsr.w    #8,d3
  9458.     add.w    d3,d3
  9459.     lea    $24FE(a6),a0
  9460.     move.w    0(a0,d3.w),d3
  9461.     bpl.s    c77EC
  9462. c7816:    move.b    -$80(a6,d3.w),d0
  9463.     lsl.l    d0,d7
  9464.     sub.b    d0,d6
  9465.     bgt.s    c784A
  9466.     beq.s    c7830
  9467.     moveq    #0,d0
  9468.     move.w    (a5)+,d0
  9469.     dbra    d5,c783E
  9470.     bsr.l    c7ADE
  9471.     bra.s    c783E
  9472.  
  9473. c7830:    moveq    #$10,d6
  9474.     move.w    (a5)+,d7
  9475.     subq.w    #1,d5
  9476.     bpl.s    c784A
  9477.     bsr.l    c7ADE
  9478.     bra.s    c784A
  9479.  
  9480. c783E:    neg.b    d6
  9481.     lsl.l    d6,d0
  9482.     or.l    d0,d7
  9483.     neg.b    d6
  9484.     add.b    #$10,d6
  9485. c784A:    subq.b    #1,d3
  9486.     bmi.l    c7AA6
  9487.     move.b    d3,d2
  9488.     move.l    d7,d0
  9489.     clr.w    d0
  9490.     rol.l    d3,d0
  9491.     lsl.l    d3,d7
  9492.     sub.b    d3,d6
  9493.     bgt.s    c7888
  9494.     beq.s    c786E
  9495.     moveq    #0,d3
  9496.     move.w    (a5)+,d3
  9497.     dbra    d5,c787C
  9498.     bsr.l    c7ADE
  9499.     bra.s    c787C
  9500.  
  9501. c786E:    moveq    #$10,d6
  9502.     move.w    (a5)+,d7
  9503.     dbra    d5,c7888
  9504.     bsr.l    c7ADE
  9505.     bra.s    c7888
  9506.  
  9507. c787C:    neg.b    d6
  9508.     lsl.l    d6,d3
  9509.     or.l    d3,d7
  9510.     neg.b    d6
  9511.     add.b    #$10,d6
  9512. c7888:    bset    d2,d0
  9513.     not.w    d0
  9514.     lea    0(a4,d0.w),a0
  9515.     bra.l    c7AAA
  9516.  
  9517.     move.b    (a0)+,(a4)+
  9518.     move.b    (a0)+,(a4)+
  9519.     move.b    (a0)+,(a4)+
  9520.     move.b    (a0)+,(a4)+
  9521.     move.b    (a0)+,(a4)+
  9522.     move.b    (a0)+,(a4)+
  9523.     move.b    (a0)+,(a4)+
  9524.     move.b    (a0)+,(a4)+
  9525.     move.b    (a0)+,(a4)+
  9526.     move.b    (a0)+,(a4)+
  9527.     move.b    (a0)+,(a4)+
  9528.     move.b    (a0)+,(a4)+
  9529.     move.b    (a0)+,(a4)+
  9530.     move.b    (a0)+,(a4)+
  9531.     move.b    (a0)+,(a4)+
  9532.     move.b    (a0)+,(a4)+
  9533.     move.b    (a0)+,(a4)+
  9534.     move.b    (a0)+,(a4)+
  9535.     move.b    (a0)+,(a4)+
  9536.     move.b    (a0)+,(a4)+
  9537.     move.b    (a0)+,(a4)+
  9538.     move.b    (a0)+,(a4)+
  9539.     move.b    (a0)+,(a4)+
  9540.     move.b    (a0)+,(a4)+
  9541.     move.b    (a0)+,(a4)+
  9542.     move.b    (a0)+,(a4)+
  9543.     move.b    (a0)+,(a4)+
  9544.     move.b    (a0)+,(a4)+
  9545.     move.b    (a0)+,(a4)+
  9546.     move.b    (a0)+,(a4)+
  9547.     move.b    (a0)+,(a4)+
  9548.     move.b    (a0)+,(a4)+
  9549.     move.b    (a0)+,(a4)+
  9550.     move.b    (a0)+,(a4)+
  9551.     move.b    (a0)+,(a4)+
  9552.     move.b    (a0)+,(a4)+
  9553.     move.b    (a0)+,(a4)+
  9554.     move.b    (a0)+,(a4)+
  9555.     move.b    (a0)+,(a4)+
  9556.     move.b    (a0)+,(a4)+
  9557.     move.b    (a0)+,(a4)+
  9558.     move.b    (a0)+,(a4)+
  9559.     move.b    (a0)+,(a4)+
  9560.     move.b    (a0)+,(a4)+
  9561.     move.b    (a0)+,(a4)+
  9562.     move.b    (a0)+,(a4)+
  9563.     move.b    (a0)+,(a4)+
  9564.     move.b    (a0)+,(a4)+
  9565.     move.b    (a0)+,(a4)+
  9566.     move.b    (a0)+,(a4)+
  9567.     move.b    (a0)+,(a4)+
  9568.     move.b    (a0)+,(a4)+
  9569.     move.b    (a0)+,(a4)+
  9570.     move.b    (a0)+,(a4)+
  9571.     move.b    (a0)+,(a4)+
  9572.     move.b    (a0)+,(a4)+
  9573.     move.b    (a0)+,(a4)+
  9574.     move.b    (a0)+,(a4)+
  9575.     move.b    (a0)+,(a4)+
  9576.     move.b    (a0)+,(a4)+
  9577.     move.b    (a0)+,(a4)+
  9578.     move.b    (a0)+,(a4)+
  9579.     move.b    (a0)+,(a4)+
  9580.     move.b    (a0)+,(a4)+
  9581.     move.b    (a0)+,(a4)+
  9582.     move.b    (a0)+,(a4)+
  9583.     move.b    (a0)+,(a4)+
  9584.     move.b    (a0)+,(a4)+
  9585.     move.b    (a0)+,(a4)+
  9586.     move.b    (a0)+,(a4)+
  9587.     move.b    (a0)+,(a4)+
  9588.     move.b    (a0)+,(a4)+
  9589.     move.b    (a0)+,(a4)+
  9590.     move.b    (a0)+,(a4)+
  9591.     move.b    (a0)+,(a4)+
  9592.     move.b    (a0)+,(a4)+
  9593.     move.b    (a0)+,(a4)+
  9594.     move.b    (a0)+,(a4)+
  9595.     move.b    (a0)+,(a4)+
  9596.     move.b    (a0)+,(a4)+
  9597.     move.b    (a0)+,(a4)+
  9598.     move.b    (a0)+,(a4)+
  9599.     move.b    (a0)+,(a4)+
  9600.     move.b    (a0)+,(a4)+
  9601.     move.b    (a0)+,(a4)+
  9602.     move.b    (a0)+,(a4)+
  9603.     move.b    (a0)+,(a4)+
  9604.     move.b    (a0)+,(a4)+
  9605.     move.b    (a0)+,(a4)+
  9606.     move.b    (a0)+,(a4)+
  9607.     move.b    (a0)+,(a4)+
  9608.     move.b    (a0)+,(a4)+
  9609.     move.b    (a0)+,(a4)+
  9610.     move.b    (a0)+,(a4)+
  9611.     move.b    (a0)+,(a4)+
  9612.     move.b    (a0)+,(a4)+
  9613.     move.b    (a0)+,(a4)+
  9614.     move.b    (a0)+,(a4)+
  9615.     move.b    (a0)+,(a4)+
  9616.     move.b    (a0)+,(a4)+
  9617.     move.b    (a0)+,(a4)+
  9618.     move.b    (a0)+,(a4)+
  9619.     move.b    (a0)+,(a4)+
  9620.     move.b    (a0)+,(a4)+
  9621.     move.b    (a0)+,(a4)+
  9622.     move.b    (a0)+,(a4)+
  9623.     move.b    (a0)+,(a4)+
  9624.     move.b    (a0)+,(a4)+
  9625.     move.b    (a0)+,(a4)+
  9626.     move.b    (a0)+,(a4)+
  9627.     move.b    (a0)+,(a4)+
  9628.     move.b    (a0)+,(a4)+
  9629.     move.b    (a0)+,(a4)+
  9630.     move.b    (a0)+,(a4)+
  9631.     move.b    (a0)+,(a4)+
  9632.     move.b    (a0)+,(a4)+
  9633.     move.b    (a0)+,(a4)+
  9634.     move.b    (a0)+,(a4)+
  9635.     move.b    (a0)+,(a4)+
  9636.     move.b    (a0)+,(a4)+
  9637.     move.b    (a0)+,(a4)+
  9638.     move.b    (a0)+,(a4)+
  9639.     move.b    (a0)+,(a4)+
  9640.     move.b    (a0)+,(a4)+
  9641.     move.b    (a0)+,(a4)+
  9642.     move.b    (a0)+,(a4)+
  9643.     move.b    (a0)+,(a4)+
  9644.     move.b    (a0)+,(a4)+
  9645.     move.b    (a0)+,(a4)+
  9646.     move.b    (a0)+,(a4)+
  9647.     move.b    (a0)+,(a4)+
  9648.     move.b    (a0)+,(a4)+
  9649.     move.b    (a0)+,(a4)+
  9650.     move.b    (a0)+,(a4)+
  9651.     move.b    (a0)+,(a4)+
  9652.     move.b    (a0)+,(a4)+
  9653.     move.b    (a0)+,(a4)+
  9654.     move.b    (a0)+,(a4)+
  9655.     move.b    (a0)+,(a4)+
  9656.     move.b    (a0)+,(a4)+
  9657.     move.b    (a0)+,(a4)+
  9658.     move.b    (a0)+,(a4)+
  9659.     move.b    (a0)+,(a4)+
  9660.     move.b    (a0)+,(a4)+
  9661.     move.b    (a0)+,(a4)+
  9662.     move.b    (a0)+,(a4)+
  9663.     move.b    (a0)+,(a4)+
  9664.     move.b    (a0)+,(a4)+
  9665.     move.b    (a0)+,(a4)+
  9666.     move.b    (a0)+,(a4)+
  9667.     move.b    (a0)+,(a4)+
  9668.     move.b    (a0)+,(a4)+
  9669.     move.b    (a0)+,(a4)+
  9670.     move.b    (a0)+,(a4)+
  9671.     move.b    (a0)+,(a4)+
  9672.     move.b    (a0)+,(a4)+
  9673.     move.b    (a0)+,(a4)+
  9674.     move.b    (a0)+,(a4)+
  9675.     move.b    (a0)+,(a4)+
  9676.     move.b    (a0)+,(a4)+
  9677.     move.b    (a0)+,(a4)+
  9678.     move.b    (a0)+,(a4)+
  9679.     move.b    (a0)+,(a4)+
  9680.     move.b    (a0)+,(a4)+
  9681.     move.b    (a0)+,(a4)+
  9682.     move.b    (a0)+,(a4)+
  9683.     move.b    (a0)+,(a4)+
  9684.     move.b    (a0)+,(a4)+
  9685.     move.b    (a0)+,(a4)+
  9686.     move.b    (a0)+,(a4)+
  9687.     move.b    (a0)+,(a4)+
  9688.     move.b    (a0)+,(a4)+
  9689.     move.b    (a0)+,(a4)+
  9690.     move.b    (a0)+,(a4)+
  9691.     move.b    (a0)+,(a4)+
  9692.     move.b    (a0)+,(a4)+
  9693.     move.b    (a0)+,(a4)+
  9694.     move.b    (a0)+,(a4)+
  9695.     move.b    (a0)+,(a4)+
  9696.     move.b    (a0)+,(a4)+
  9697.     move.b    (a0)+,(a4)+
  9698.     move.b    (a0)+,(a4)+
  9699.     move.b    (a0)+,(a4)+
  9700.     move.b    (a0)+,(a4)+
  9701.     move.b    (a0)+,(a4)+
  9702.     move.b    (a0)+,(a4)+
  9703.     move.b    (a0)+,(a4)+
  9704.     move.b    (a0)+,(a4)+
  9705.     move.b    (a0)+,(a4)+
  9706.     move.b    (a0)+,(a4)+
  9707.     move.b    (a0)+,(a4)+
  9708.     move.b    (a0)+,(a4)+
  9709.     move.b    (a0)+,(a4)+
  9710.     move.b    (a0)+,(a4)+
  9711.     move.b    (a0)+,(a4)+
  9712.     move.b    (a0)+,(a4)+
  9713.     move.b    (a0)+,(a4)+
  9714.     move.b    (a0)+,(a4)+
  9715.     move.b    (a0)+,(a4)+
  9716.     move.b    (a0)+,(a4)+
  9717.     move.b    (a0)+,(a4)+
  9718.     move.b    (a0)+,(a4)+
  9719.     move.b    (a0)+,(a4)+
  9720.     move.b    (a0)+,(a4)+
  9721.     move.b    (a0)+,(a4)+
  9722.     move.b    (a0)+,(a4)+
  9723.     move.b    (a0)+,(a4)+
  9724.     move.b    (a0)+,(a4)+
  9725.     move.b    (a0)+,(a4)+
  9726.     move.b    (a0)+,(a4)+
  9727.     move.b    (a0)+,(a4)+
  9728.     move.b    (a0)+,(a4)+
  9729.     move.b    (a0)+,(a4)+
  9730.     move.b    (a0)+,(a4)+
  9731.     move.b    (a0)+,(a4)+
  9732.     move.b    (a0)+,(a4)+
  9733.     move.b    (a0)+,(a4)+
  9734.     move.b    (a0)+,(a4)+
  9735.     move.b    (a0)+,(a4)+
  9736.     move.b    (a0)+,(a4)+
  9737.     move.b    (a0)+,(a4)+
  9738.     move.b    (a0)+,(a4)+
  9739.     move.b    (a0)+,(a4)+
  9740.     move.b    (a0)+,(a4)+
  9741.     move.b    (a0)+,(a4)+
  9742.     move.b    (a0)+,(a4)+
  9743.     move.b    (a0)+,(a4)+
  9744.     move.b    (a0)+,(a4)+
  9745.     move.b    (a0)+,(a4)+
  9746.     move.b    (a0)+,(a4)+
  9747.     move.b    (a0)+,(a4)+
  9748.     move.b    (a0)+,(a4)+
  9749.     move.b    (a0)+,(a4)+
  9750.     move.b    (a0)+,(a4)+
  9751.     move.b    (a0)+,(a4)+
  9752.     move.b    (a0)+,(a4)+
  9753.     move.b    (a0)+,(a4)+
  9754.     move.b    (a0)+,(a4)+
  9755.     move.b    (a0)+,(a4)+
  9756.     move.b    (a0)+,(a4)+
  9757.     move.b    (a0)+,(a4)+
  9758.     move.b    (a0)+,(a4)+
  9759.     move.b    (a0)+,(a4)+
  9760.     move.b    (a0)+,(a4)+
  9761.     move.b    (a0)+,(a4)+
  9762.     move.b    (a0)+,(a4)+
  9763.     move.b    (a0)+,(a4)+
  9764.     move.b    (a0)+,(a4)+
  9765.     move.b    (a0)+,(a4)+
  9766.     move.b    (a0)+,(a4)+
  9767.     move.b    (a0)+,(a4)+
  9768.     move.b    (a0)+,(a4)+
  9769.     move.b    (a0)+,(a4)+
  9770.     move.b    (a0)+,(a4)+
  9771. c7A90:    move.b    (a0)+,(a4)+
  9772.     move.b    (a0)+,(a4)+
  9773.     suba.l    d0,a0
  9774.     sub.l    a0,d4
  9775.     bgt.l    c778C
  9776.     bsr.l    c7B10
  9777.     bne.l    c778C
  9778.     bra.s    c7AB0
  9779.  
  9780. c7AA6:    lea    -1(a4),a0
  9781. c7AAA:    move.l    a0,d0
  9782.     jmp    c7A90(pc,d1.w)
  9783.  
  9784. c7AB0:    tst.l    -$1392(a6)
  9785.     beq.s    c7ABA
  9786.     bsr.l    c7B10
  9787. c7ABA:    moveq    #0,d0
  9788. c7ABC:    movea.l    -$13B2(a6),sp
  9789.     movem.l    (sp)+,d1-d7/a0-a6
  9790.     rts
  9791.  
  9792. c7AC6:    unlk    a5
  9793.     movem.l    (sp)+,d3-d7/a1/a4/a6
  9794.     moveq    #2,d0
  9795.     bra.s    c7ABC
  9796.  
  9797. c7AD0:    unlk    a5
  9798.     movem.l    (sp)+,d3-d7/a1/a4/a6
  9799.     moveq    #4,d0
  9800.     bra.s    c7ABC
  9801.  
  9802. c7ADA:    moveq    #3,d0
  9803.     bra.s    c7ABC
  9804.  
  9805. c7ADE:    movem.l    d0/d1/d6/d7/a0/a1/a4,-(sp)
  9806.     movea.l    -$13AE(a6),a4
  9807.     pea    -$13C2(a6)
  9808.     movea.l    -$13C2(a6),a1
  9809.     jsr    (a1)
  9810.     addq.l    #4,sp
  9811.     movea.l    -$139E(a6),a5
  9812.     move.l    d5,d1
  9813.     move.l    d0,d5
  9814.     bmi.s    c7ADA
  9815.     addq.l    #1,d5
  9816.     lsr.l    #1,d5
  9817.     subq.l    #1,d5
  9818.     swap    d5
  9819.     swap    d1
  9820.     move.w    d1,d5
  9821.     swap    d5
  9822.     movem.l    (sp)+,d0/d1/d6/d7/a0/a1/a4
  9823.     rts
  9824.  
  9825. c7B10:    movem.l    d0-d3/d5-d7/a0-a3/a5/a6,-(sp)
  9826.     movea.l    -$139A(a6),a0
  9827.     adda.w    #$2000,a0
  9828.     move.l    -$1392(a6),d1
  9829.     add.l    d1,-$13AA(a6)
  9830.     move.w    -$1374(a6),d0
  9831.     movea.l    -$13B6(a6),a1
  9832.     move.l    a4,-(sp)
  9833.     movea.l    -$13AE(a6),a4
  9834.     jsr    (a1)
  9835.     movea.l    (sp)+,a4
  9836.     move.w    d0,-$1374(a6)
  9837.     movea.l    a4,a2
  9838.     movea.l    -$13AE(a6),a4
  9839.     pea    -$13C2(a6)
  9840.     movea.l    -$13BE(a6),a1
  9841.     jsr    (a1)
  9842.     tst.l    d0
  9843.     bmi.s    c7ADA
  9844.     move.l    -$1392(a6),d1
  9845.     sub.l    d1,-$1372(a6)
  9846.     bne.s    c7B5E
  9847.     clr.l    -$1392(a6)
  9848.     bra.s    c7BBA
  9849.  
  9850. c7B5E:    movea.l    -$13BA(a6),a1
  9851.     jsr    (a1)
  9852.     movea.l    a2,a4
  9853.     movea.l    -$139A(a6),a0
  9854.     lea    -$2000(a4),a1
  9855.     adda.l    d4,a1
  9856.     move.l    #$2000,d0
  9857.     sub.l    d4,d0
  9858.     divu.w    #$30,d0
  9859.     subq.w    #1,d0
  9860.     bmi.s    c7B98
  9861.     movem.l    d4/a4/a6,-(sp)
  9862. c7B84:    movem.l    (a1)+,d1-d7/a2-a6
  9863.     movem.l    d1-d7/a2-a6,(a0)
  9864.     adda.w    #$30,a0
  9865.     dbra    d0,c7B84
  9866.     movem.l    (sp)+,d4/a4/a6
  9867. c7B98:    swap    d0
  9868.     subq.w    #1,d0
  9869.     bmi.s    c7BA4
  9870. c7B9E:    move.b    (a1)+,(a0)+
  9871.     dbra    d0,c7B9E
  9872. c7BA4:    move.l    -$1372(a6),d0
  9873.     move.l    -$1392(a6),d1
  9874.     cmp.l    d0,d1
  9875.     ble.s    c7BB8
  9876.     move.l    d0,-$1392(a6)
  9877.     add.l    d0,d4
  9878.     bra.s    c7BBA
  9879.  
  9880. c7BB8:    add.l    d1,d4
  9881. c7BBA:    movea.l    a0,a4
  9882.     addq.l    #4,sp
  9883.     movem.l    (sp)+,d0-d3/d5-d7/a0-a3/a5/a6
  9884.     rts
  9885.  
  9886. l7BC4:    dc.l    $FD00FD01
  9887.     dc.l    $FD02FD03
  9888.     dc.l    $FD04FD05
  9889.     dc.l    $FD06FD07
  9890.     dc.l    $FD08FD09
  9891.     dc.l    $FD0AFD0B
  9892.     dc.l    $FD0CFD0D
  9893.     dc.l    $FD0EFD0F
  9894.     dc.l    $FD10FD11
  9895.     dc.l    $FD12FD13
  9896.     dc.l    $FD14FD15
  9897.     dc.l    $FD16FD17
  9898.     dc.l    $FD18FD19
  9899.     dc.l    $FD1AFD1B
  9900.     dc.l    $FD1CFD1D
  9901.     dc.l    $FD1EFD1F
  9902.     dc.l    $FD20FD21
  9903.     dc.l    $FD22FD23
  9904.     dc.l    $FD24FD25
  9905.     dc.l    $FD26FD27
  9906.     dc.l    $FD28FD29
  9907.     dc.l    $FD2AFD2B
  9908.     dc.l    $FD2CFD2D
  9909.     dc.l    $FD2EFD2F
  9910.     dc.l    $FD30FD31
  9911.     dc.l    $FD32FD33
  9912.     dc.l    $FD34FD35
  9913.     dc.l    $FD36FD37
  9914.     dc.l    $FD38FD39
  9915.     dc.l    $FD3AFD3B
  9916.     dc.l    $FD3CFD3D
  9917.     dc.l    $FD3EFD3F
  9918.     dc.l    $FD40FD41
  9919.     dc.l    $FD42FD43
  9920.     dc.l    $FD44FD45
  9921.     dc.l    $FD46FD47
  9922.     dc.l    $FD48FD49
  9923.     dc.l    $FD4AFD4B
  9924.     dc.l    $FD4CFD4D
  9925.     dc.l    $FD4EFD4F
  9926.     dc.l    $FD50FD51
  9927.     dc.l    $FD52FD53
  9928.     dc.l    $FD54FD55
  9929.     dc.l    $FD56FD57
  9930.     dc.l    $FD58FD59
  9931.     dc.l    $FD5AFD5B
  9932.     dc.l    $FD5CFD5D
  9933.     dc.l    $FD5EFD5F
  9934.     dc.l    $FD60FD61
  9935.     dc.l    $FD62FD63
  9936.     dc.l    $FD64FD65
  9937.     dc.l    $FD66FD67
  9938.     dc.l    $FD68FD69
  9939.     dc.l    $FD6AFD6B
  9940.     dc.l    $FD6CFD6D
  9941.     dc.l    $FD6EFD6F
  9942.     dc.l    $FD70FD71
  9943.     dc.l    $FD72FD73
  9944.     dc.l    $FD74FD75
  9945.     dc.l    $FD76FD77
  9946.     dc.l    $FD78FD79
  9947.     dc.l    $FD7AFD7B
  9948.     dc.l    $FD7CFD7D
  9949.     dc.l    $FD7EFD7F
  9950.     dc.l    $FD80FD81
  9951.     dc.l    $FD82FD83
  9952.     dc.l    $FD84FD85
  9953.     dc.l    $FD86FD87
  9954.     dc.l    $FD88FD89
  9955.     dc.l    $FD8AFD8B
  9956.     dc.l    $FD8CFD8D
  9957.     dc.l    $FD8EFD8F
  9958.     dc.l    $FD90FD91
  9959.     dc.l    $FD92FD93
  9960.     dc.l    $FD94FD95
  9961.     dc.l    $FD96FD97
  9962.     dc.l    $FD98FD99
  9963.     dc.l    $FD9AFD9B
  9964.     dc.l    $FD9CFD9D
  9965.     dc.l    $FD9EFD9F
  9966.     dc.l    $FDA0FDA1
  9967.     dc.l    $FDA2FDA3
  9968.     dc.l    $FDA4FDA5
  9969.     dc.l    $FDA6FDA7
  9970.     dc.l    $FDA8FDA9
  9971.     dc.l    $FDAAFDAB
  9972.     dc.l    $FDACFDAD
  9973.     dc.l    $FDAEFDAF
  9974.     dc.l    $FDB0FDB1
  9975.     dc.l    $FDB2FDB3
  9976.     dc.l    $FDB4FDB5
  9977.     dc.l    $FDB6FDB7
  9978.     dc.l    $FDB8FDB9
  9979.     dc.l    $FDBAFDBB
  9980.     dc.l    $FDBCFDBD
  9981.     dc.l    $FDBEFDBF
  9982.     dc.l    $FDC0FDC1
  9983.     dc.l    $FDC2FDC3
  9984.     dc.l    $FDC4FDC5
  9985.     dc.l    $FDC6FDC7
  9986.     dc.l    $FDC8FDC9
  9987.     dc.l    $FDCAFDCB
  9988.     dc.l    $FDCCFDCD
  9989.     dc.l    $FDCEFDCF
  9990.     dc.l    $FDD0FDD1
  9991.     dc.l    $FDD2FDD3
  9992.     dc.l    $FDD4FDD5
  9993.     dc.l    $FDD6FDD7
  9994.     dc.l    $FDD8FDD9
  9995.     dc.l    $FDDAFDDB
  9996.     dc.l    $FDDCFDDD
  9997.     dc.l    $FDDEFDDF
  9998.     dc.l    $FDE0FDE1
  9999.     dc.l    $FDE2FDE3
  10000.     dc.l    $FDE4FDE5
  10001.     dc.l    $FDE6FDE7
  10002.     dc.l    $FDE8FDE9
  10003.     dc.l    $FDEAFDEB
  10004.     dc.l    $FDECFDED
  10005.     dc.l    $FDEEFDEF
  10006.     dc.l    $FDF0FDF1
  10007.     dc.l    $FDF2FDF3
  10008.     dc.l    $FDF4FDF5
  10009.     dc.l    $FDF6FDF7
  10010.     dc.l    $FDF8FDF9
  10011.     dc.l    $FDFAFDFB
  10012.     dc.l    $FDFCFDFD
  10013.     dc.l    $FDFEFDFF
  10014.     dc.l    $FFFEFFFC
  10015.     dc.l    $FFFAFFF8
  10016.     dc.l    $FFF6FFF4
  10017.     dc.l    $FFF2FFF0
  10018.     dc.l    $FFEEFFEC
  10019.     dc.l    $FFEAFFE8
  10020.     dc.l    $FFE6FFE4
  10021.     dc.l    $FFE2FFE0
  10022.     dc.l    $FFDEFFDC
  10023.     dc.l    $FFDAFFD8
  10024.     dc.l    $FFD6FFD4
  10025.     dc.l    $FFD2FFD0
  10026.     dc.l    $FFCEFFCC
  10027.     dc.l    $FFCAFFC8
  10028.     dc.l    $FFC6FFC4
  10029.     dc.l    $FFC2FFC0
  10030.     dc.l    $FFBEFFBC
  10031.     dc.l    $FFBAFFB8
  10032.     dc.l    $FFB6FFB4
  10033.     dc.l    $FFB2FFB0
  10034.     dc.l    $FFAEFFAC
  10035.     dc.l    $FFAAFFA8
  10036.     dc.l    $FFA6FFA4
  10037.     dc.l    $FFA2FFA0
  10038.     dc.l    $FF9EFF9C
  10039.     dc.l    $FF9AFF98
  10040.     dc.l    $FF96FF94
  10041.     dc.l    $FF92FF90
  10042.     dc.l    $FF8EFF8C
  10043.     dc.l    $FF8AFF88
  10044.     dc.l    $FF86FF84
  10045.     dc.l    $FF82FF80
  10046.     dc.l    $FF7EFF7C
  10047.     dc.l    $FF7AFF78
  10048.     dc.l    $FF76FF74
  10049.     dc.l    $FF72FF70
  10050.     dc.l    $FF6EFF6C
  10051.     dc.l    $FF6AFF68
  10052.     dc.l    $FF66FF64
  10053.     dc.l    $FF62FF60
  10054.     dc.l    $FF5EFF5C
  10055.     dc.l    $FF5AFF58
  10056.     dc.l    $FF56FF54
  10057.     dc.l    $FF52FF50
  10058.     dc.l    $FF4EFF4C
  10059.     dc.l    $FF4AFF48
  10060.     dc.l    $FF46FF44
  10061.     dc.l    $FF42FF40
  10062.     dc.l    $FF3EFF3C
  10063.     dc.l    $FF3AFF38
  10064.     dc.l    $FF36FF34
  10065.     dc.l    $FF32FF30
  10066.     dc.l    $FF2EFF2C
  10067.     dc.l    $FF2AFF28
  10068.     dc.l    $FF26FF24
  10069.     dc.l    $FF22FF20
  10070.     dc.l    $FF1EFF1C
  10071.     dc.l    $FF1AFF18
  10072.     dc.l    $FF16FF14
  10073.     dc.l    $FF12FF10
  10074.     dc.l    $FF0EFF0C
  10075.     dc.l    $FF0AFF08
  10076.     dc.l    $FF06FF04
  10077.     dc.l    $FF02FF00
  10078.     dc.l    $FEFEFEFC
  10079.     dc.l    $FEFAFEF8
  10080.     dc.l    $FEF6FEF4
  10081.     dc.l    $FEF2FEF0
  10082.     dc.l    $FEEEFEEC
  10083.     dc.l    $FEEAFEE8
  10084.     dc.l    $FEE6FEE4
  10085.     dc.l    $FEE2FEE0
  10086.     dc.l    $FEDEFEDC
  10087.     dc.l    $FEDAFED8
  10088.     dc.l    $FED6FED4
  10089.     dc.l    $FED2FED0
  10090.     dc.l    $FECEFECC
  10091.     dc.l    $FECAFEC8
  10092.     dc.l    $FEC6FEC4
  10093.     dc.l    $FEC2FEC0
  10094.     dc.l    $FEBEFEBC
  10095.     dc.l    $FEBAFEB8
  10096.     dc.l    $FEB6FEB4
  10097.     dc.l    $FEB2FEB0
  10098.     dc.l    $FEAEFEAC
  10099.     dc.l    $FEAAFEA8
  10100.     dc.l    $FEA6FEA4
  10101.     dc.l    $FEA2FEA0
  10102.     dc.l    $FE9EFE9C
  10103.     dc.l    $FE9AFE98
  10104.     dc.l    $FE96FE94
  10105.     dc.l    $FE92FE90
  10106.     dc.l    $FE8EFE8C
  10107.     dc.l    $FE8AFE88
  10108.     dc.l    $FE86FE84
  10109.     dc.l    $FE82FE80
  10110.     dc.l    $FE7EFE7C
  10111.     dc.l    $FE7AFE78
  10112.     dc.l    $FE76FE74
  10113.     dc.l    $FE72FE70
  10114.     dc.l    $FE6EFE6C
  10115.     dc.l    $FE6AFE68
  10116.     dc.l    $FE66FE64
  10117.     dc.l    $FE62FE60
  10118.     dc.l    $FE5EFE5C
  10119.     dc.l    $FE5AFE58
  10120.     dc.l    $FE56FE54
  10121.     dc.l    $FE52FE50
  10122.     dc.l    $FE4EFE4C
  10123.     dc.l    $FE4AFE48
  10124.     dc.l    $FE46FE44
  10125.     dc.l    $FE42FE40
  10126.     dc.l    $FE3EFE3C
  10127.     dc.l    $FE3AFE38
  10128.     dc.l    $FE36FE34
  10129.     dc.l    $FE32FE30
  10130.     dc.l    $FE2EFE2C
  10131.     dc.l    $FE2AFE28
  10132.     dc.l    $FE26FE24
  10133.     dc.l    $FE22FE20
  10134.     dc.l    $FE1EFE1C
  10135.     dc.l    $FE1AFE18
  10136.     dc.l    $FE16FE14
  10137.     dc.l    $FE12FE10
  10138.     dc.l    $FE0EFE0C
  10139.     dc.l    $FE0AFE08
  10140.     dc.l    $FE06FE04
  10141.     dc.l    $FE02FE00
  10142.  
  10143. c7FC4:    moveq    #0,d6
  10144.     movea.l    a5,a0
  10145.     adda.l    #$8002,a0
  10146.     move.w    #$7FF,d0
  10147.     move.l    #$40004000,d1
  10148. c7FD8:    move.l    d1,(a0)+
  10149.     move.l    d1,(a0)+
  10150.     move.l    d1,(a0)+
  10151.     move.l    d1,(a0)+
  10152.     dbra    d0,c7FD8
  10153.     movea.l    a4,a0
  10154.     movea.l    a5,a1
  10155.     move.w    #$7FF,d0
  10156. c7FEC:    move.l    d1,(a0)+
  10157.     move.l    d1,(a0)+
  10158.     move.l    d1,(a0)+
  10159.     move.l    d1,(a0)+
  10160.     dbra    d0,c7FEC
  10161.     move.w    d1,(a0)+
  10162.     movea.l    a5,a0
  10163.     move.w    #$1F,d0
  10164. c8000:    move.l    d1,(a0)+
  10165.     move.l    d1,(a0)+
  10166.     move.l    d1,(a0)+
  10167.     move.l    d1,(a0)+
  10168.     dbra    d0,c8000
  10169.     rts
  10170.  
  10171. c800E:    movem.l    d5-d7,-(sp)
  10172.     moveq    #2,d4
  10173.     lea    0(a6,d7.w),a2
  10174.     move.w    d1,d7
  10175.     moveq    #0,d6
  10176.     move.w    d0,d6
  10177.     move.b    (a2),d5
  10178.     move.b    1(a2),d2
  10179.     move.b    2(a2),d1
  10180. c8028:    lea    0(a6,d6.w),a0
  10181.     cmp.b    0(a0,d4.w),d1
  10182.     bne.s    c8068
  10183.     cmp.b    -1(a0,d4.w),d2
  10184.     bne.s    c8068
  10185.     cmp.b    (a0)+,d5
  10186.     bne.s    c8068
  10187.     lea    2(a2),a1
  10188.     addq.w    #1,a0
  10189.     move.w    #$FD,d0
  10190. c8046:    cmpm.b    (a0)+,(a1)+
  10191.     dbne    d0,c8046
  10192.     not.w    d0
  10193.     addi.w    #$100,d0
  10194.     cmp.w    d4,d0
  10195.     ble.s    c8068
  10196.     move.w    d6,d3
  10197.     move.w    d0,d4
  10198.     cmp.w    #$100,d0
  10199.     beq.s    c8078
  10200.     move.b    0(a2,d4.w),d1
  10201.     move.b    -1(a2,d4.w),d2
  10202. c8068:    subq.w    #1,d7
  10203.     beq.s    c8078
  10204.     add.w    d6,d6
  10205.     move.w    0(a5,d6.l),d6
  10206.     cmp.w    #$4000,d6
  10207.     bne.s    c8028
  10208. c8078:    movem.l    (sp)+,d5-d7
  10209.     rts
  10210.  
  10211. c807E:    movem.l    d5-d7,-(sp)
  10212.     moveq    #2,d4
  10213.     lea    0(a6,d7.w),a2
  10214.     move.w    d1,d7
  10215.     moveq    #0,d6
  10216.     move.w    d0,d6
  10217.     move.b    (a2),d5
  10218.     move.b    1(a2),d2
  10219.     move.b    2(a2),d1
  10220. c8098:    lea    0(a6,d6.w),a0
  10221.     cmp.b    0(a0,d4.w),d1
  10222.     bne.s    c80D8
  10223.     cmp.b    -1(a0,d4.w),d2
  10224.     bne.s    c80D8
  10225.     cmp.b    (a0)+,d5
  10226.     bne.s    c80D8
  10227.     lea    2(a2),a1
  10228.     addq.w    #1,a0
  10229.     move.w    #$39,d0
  10230. c80B6:    cmpm.b    (a0)+,(a1)+
  10231.     dbne    d0,c80B6
  10232.     not.w    d0
  10233.     addi.w    #$3C,d0
  10234.     cmp.w    d4,d0
  10235.     ble.s    c80D8
  10236.     move.w    d6,d3
  10237.     move.w    d0,d4
  10238.     cmp.w    #$3C,d0
  10239.     beq.s    c80E8
  10240.     move.b    0(a2,d4.w),d1
  10241.     move.b    -1(a2,d4.w),d2
  10242. c80D8:    subq.w    #1,d7
  10243.     beq.s    c80E8
  10244.     add.w    d6,d6
  10245.     move.w    0(a5,d6.l),d6
  10246.     cmp.w    #$4000,d6
  10247.     bne.s    c8098
  10248. c80E8:    movem.l    (sp)+,d5-d7
  10249.     rts
  10250.  
  10251. c80EE:    movem.l    d0-d2/a0-a2,-(sp)
  10252.     cmp.w    #$1000,d7
  10253.     beq.s    c812A
  10254.     cmp.w    #$2000,d7
  10255.     beq.s    c8130
  10256.     cmp.w    #$3000,d7
  10257.     beq.s    c8136
  10258.     cmp.w    #$4000,d7
  10259.     bne.s    c816A
  10260.     lea    $100(a6),a0
  10261.     clr.w    d7
  10262. c8110:    movea.l    -$74(a6),a2
  10263.     move.l    #$1000,d0
  10264.     lea    -$74(a6),a1
  10265.     move.l    a4,-(sp)
  10266.     movea.l    -$60(a6),a4
  10267.     jsr    (a2)
  10268.     movea.l    (sp)+,a4
  10269.     bra.s    c8168
  10270.  
  10271. c812A:    lea    $1100(a6),a0
  10272.     bra.s    c8110
  10273.  
  10274. c8130:    lea    $2100(a6),a0
  10275.     bra.s    c8110
  10276.  
  10277. c8136:    movea.l    -$74(a6),a2
  10278.     lea    $3100(a6),a0
  10279.     move.l    #$1000,d0
  10280.     lea    -$74(a6),a1
  10281.     move.l    a4,-(sp)
  10282.     movea.l    -$60(a6),a4
  10283.     jsr    (a2)
  10284.     movea.l    (sp)+,a4
  10285.     movea.l    a6,a0
  10286.     lea    $4000(a6),a1
  10287.     moveq    #$1F,d1
  10288.     move.b    -1(a1),-1(a0)
  10289. c8160:    move.l    (a1)+,(a0)+
  10290.     move.l    (a1)+,(a0)+
  10291.     dbra    d1,c8160
  10292. c8168:    add.w    d0,d5
  10293. c816A:    movem.l    (sp)+,d0-d2/a0-a2
  10294.     rts
  10295.  
  10296. c8170:    movem.l    d0-d2/a0-a2,-(sp)
  10297.     subq.w    #1,d5
  10298.     addq.w    #1,d7
  10299.     move.w    d7,d0
  10300.     andi.w    #$FFF,d0
  10301.     bne.s    c8184
  10302.     bsr.l    c80EE
  10303. c8184:    lsl.w    #5,d6
  10304.     move.b    2(a6,d7.w),d2
  10305.     eor.b    d2,d6
  10306.     andi.w    #$3FFF,d6
  10307.     move.w    d7,d1
  10308.     add.w    d1,d1
  10309.     moveq    #0,d2
  10310.     move.w    d6,d2
  10311.     add.w    d2,d2
  10312.     addi.l    #$8002,d2
  10313.     move.w    0(a5,d2.l),d0
  10314.     move.w    d0,0(a5,d1.w)
  10315.     move.w    d7,0(a5,d2.l)
  10316.     asr.l    #1,d2
  10317.     move.w    d2,0(a4,d1.w)
  10318.     move.w    d0,d2
  10319.     add.w    d2,d2
  10320.     move.w    d7,0(a4,d2.l)
  10321.     swap    d7
  10322.     addq.w    #1,d7
  10323.     andi.w    #$3FFF,d7
  10324.     moveq    #0,d0
  10325.     move.w    d7,d0
  10326.     add.w    d0,d0
  10327.     move.w    0(a4,d0.w),d0
  10328.     add.l    d0,d0
  10329.     move.w    #$4000,0(a5,d0.l)
  10330.     swap    d7
  10331.     movem.l    (sp)+,d0-d2/a0-a2
  10332.     rts
  10333.  
  10334. c81DC:    movem.l    d0-d2/a0-a2,-(sp)
  10335.     subq.w    #1,d5
  10336.     addq.w    #1,d7
  10337.     move.w    d7,d0
  10338.     andi.w    #$FFF,d0
  10339.     bne.s    c81F0
  10340.     bsr.l    c80EE
  10341. c81F0:    lsl.w    #5,d6
  10342.     move.b    2(a6,d7.w),d2
  10343.     eor.b    d2,d6
  10344.     andi.w    #$3FFF,d6
  10345.     move.w    d7,d1
  10346.     add.w    d1,d1
  10347.     moveq    #0,d2
  10348.     move.w    d6,d2
  10349.     add.w    d2,d2
  10350.     addi.l    #$8002,d2
  10351.     move.w    0(a5,d2.l),d0
  10352.     move.w    d0,0(a5,d1.w)
  10353.     move.w    d7,0(a5,d2.l)
  10354.     asr.l    #1,d2
  10355.     move.w    d2,0(a4,d1.w)
  10356.     move.w    d0,d2
  10357.     add.w    d2,d2
  10358.     move.w    d7,0(a4,d2.l)
  10359.     moveq    #0,d4
  10360.     cmp.w    #$4000,d0
  10361.     beq.s    c8236
  10362.     move.w    -$1C(a6),d1
  10363.     bsr.l    c800E
  10364. c8236:    swap    d7
  10365.     addq.w    #1,d7
  10366.     andi.w    #$3FFF,d7
  10367.     moveq    #0,d0
  10368.     move.w    d7,d0
  10369.     add.w    d0,d0
  10370.     move.w    0(a4,d0.w),d0
  10371.     add.l    d0,d0
  10372.     move.w    #$4000,0(a5,d0.l)
  10373.     swap    d7
  10374.     movem.l    (sp)+,d0-d2/a0-a2
  10375.     rts
  10376.  
  10377. c8258:    movem.l    d0-d2/a0-a2,-(sp)
  10378.     subq.w    #1,d5
  10379.     addq.w    #1,d7
  10380.     move.w    d7,d0
  10381.     andi.w    #$FFF,d0
  10382.     bne.s    c826C
  10383.     bsr.l    c80EE
  10384. c826C:    lsl.w    #5,d6
  10385.     move.b    2(a6,d7.w),d2
  10386.     eor.b    d2,d6
  10387.     andi.w    #$3FFF,d6
  10388.     move.w    d7,d1
  10389.     add.w    d1,d1
  10390.     moveq    #0,d2
  10391.     move.w    d6,d2
  10392.     add.w    d2,d2
  10393.     addi.l    #$8002,d2
  10394.     move.w    0(a5,d2.l),d0
  10395.     move.w    d0,0(a5,d1.w)
  10396.     move.w    d7,0(a5,d2.l)
  10397.     asr.l    #1,d2
  10398.     move.w    d2,0(a4,d1.w)
  10399.     move.w    d0,d2
  10400.     add.w    d2,d2
  10401.     move.w    d7,0(a4,d2.l)
  10402.     moveq    #0,d4
  10403.     cmp.w    #$4000,d0
  10404.     beq.s    c82B2
  10405.     move.w    -$1C(a6),d1
  10406.     bsr.l    c807E
  10407. c82B2:    swap    d7
  10408.     addq.w    #1,d7
  10409.     andi.w    #$3FFF,d7
  10410.     moveq    #0,d0
  10411.     move.w    d7,d0
  10412.     add.w    d0,d0
  10413.     move.w    0(a4,d0.w),d0
  10414.     add.l    d0,d0
  10415.     move.w    #$4000,0(a5,d0.l)
  10416.     swap    d7
  10417.     movem.l    (sp)+,d0-d2/a0-a2
  10418.     rts
  10419.  
  10420. c82D4:    movem.l    d2-d7/a2-a6,-(sp)
  10421.     lea    $74(a0),a6
  10422.     move.l    a4,-$60(a6)
  10423.     move.l    sp,-$64(a6)
  10424.     movea.l    -$14(a6),a4
  10425.     movea.l    -$10(a6),a5
  10426.     bsr.l    c7FC4
  10427.     clr.w    -$24(a6)
  10428.     move.w    #$100,d7
  10429.     swap    d7
  10430.     move.w    #$4100,d7
  10431.     sub.w    -$22(a6),d7
  10432.     swap    d7
  10433.     movea.l    -$74(a6),a2
  10434.     lea    $100(a6),a0
  10435.     move.l    #$1000,d0
  10436.     lea    -$74(a6),a1
  10437.     move.l    a4,-(sp)
  10438.     movea.l    -$60(a6),a4
  10439.     jsr    (a2)
  10440.     movea.l    (sp)+,a4
  10441.     move.l    d0,d5
  10442.     swap    d5
  10443.     move.w    -$20(a6),d5
  10444.     swap    d5
  10445.     move.w    -$18(a6),d0
  10446.     cmp.w    #1,d0
  10447.     beq.s    c8340
  10448.     cmp.w    #5,d0
  10449.     beq.s    c83A0
  10450.     moveq    #$63,d0
  10451.     bra.l    c84FE
  10452.  
  10453. c8340:    move.w    #$1F,d0
  10454.     movea.l    a6,a0
  10455.     move.l    #$20202020,d1
  10456. c834C:    move.l    d1,(a0)+
  10457.     move.l    d1,(a0)+
  10458.     dbra    d0,c834C
  10459.     move.w    #$C4,d0
  10460.     move.w    #$420,d6
  10461. c835C:    lsl.w    #5,d6
  10462.     move.b    2(a6,d0.w),d3
  10463.     eor.b    d3,d6
  10464.     andi.w    #$3FFF,d6
  10465.     move.w    d0,d2
  10466.     add.w    d2,d2
  10467.     moveq    #0,d3
  10468.     move.w    d6,d3
  10469.     add.w    d3,d3
  10470.     addi.l    #$8002,d3
  10471.     move.w    0(a5,d3.l),d1
  10472.     move.w    d1,0(a5,d2.w)
  10473.     move.w    d0,0(a5,d3.l)
  10474.     asr.l    #1,d3
  10475.     move.w    d3,0(a4,d2.w)
  10476.     move.w    d1,d3
  10477.     add.w    d3,d3
  10478.     move.w    d0,0(a4,d3.l)
  10479.     addq.w    #1,d0
  10480.     cmp.w    #$100,d0
  10481.     bne.s    c835C
  10482.     lea    c8258(pc),a2
  10483.     bra.s    c83C0
  10484.  
  10485. c83A0:    move.w    #$1F,d0
  10486.     movea.l    a6,a0
  10487. c83A6:    clr.l    (a0)+
  10488.     clr.l    (a0)+
  10489.     dbra    d0,c83A6
  10490.     lea    c81DC(pc),a2
  10491.     moveq    #0,d6
  10492.     move.b    (a0)+,d6
  10493.     lsl.w    #5,d6
  10494.     move.b    (a0)+,d1
  10495.     eor.b    d1,d6
  10496.     andi.w    #$3FFF,d6
  10497. c83C0:    lsl.w    #5,d6
  10498.     move.b    2(a6,d7.w),d3
  10499.     eor.b    d3,d6
  10500.     andi.w    #$3FFF,d6
  10501.     move.w    d7,d2
  10502.     add.w    d2,d2
  10503.     moveq    #0,d3
  10504.     move.w    d6,d3
  10505.     add.w    d3,d3
  10506.     addi.l    #$8002,d3
  10507.     move.w    0(a5,d3.l),d1
  10508.     move.w    d1,0(a5,d2.w)
  10509.     move.w    d7,0(a5,d3.l)
  10510.     asr.l    #1,d3
  10511.     move.w    d3,0(a4,d2.w)
  10512.     move.w    d1,d3
  10513.     add.w    d3,d3
  10514.     move.w    d7,0(a4,d3.l)
  10515.     moveq    #0,d4
  10516.     movea.l    -12(a6),a1
  10517.     moveq    #0,d0
  10518. c83FE:    move.l    d4,d2
  10519.     move.l    d3,d1
  10520.     jsr    (a2)
  10521.     cmp.w    d5,d4
  10522.     ble.s    c840A
  10523.     move.w    d5,d4
  10524. c840A:    cmp.w    #3,d2
  10525.     blt.s    c8414
  10526.     cmp.w    d2,d4
  10527.     ble.s    c845E
  10528. c8414:    swap    d5
  10529.     lsr.b    #1,d0
  10530.     bne.s    c8454
  10531.     move.b    #$80,d0
  10532.     cmp.w    #$1C,d5
  10533.     bhi.s    c844E
  10534.     movem.l    d0/d1/a0/a1,-(sp)
  10535.     movea.l    -8(a6),a1
  10536.     moveq    #0,d0
  10537.     move.w    -$20(a6),d0
  10538.     sub.w    d5,d0
  10539.     lea    -$74(a6),a0
  10540.     move.l    a4,-(sp)
  10541.     movea.l    -$60(a6),a4
  10542.     jsr    (a1)
  10543.     movea.l    (sp)+,a4
  10544.     movem.l    (sp)+,d0/d1/a0/a1
  10545.     move.w    -$20(a6),d5
  10546.     movea.l    -12(a6),a1
  10547. c844E:    movea.l    a1,a0
  10548.     clr.b    (a1)+
  10549.     subq.w    #1,d5
  10550. c8454:    move.b    -1(a6,d7.w),(a1)+
  10551.     subq.w    #1,d5
  10552.     swap    d5
  10553.     bra.s    c84C8
  10554.  
  10555. c845E:    swap    d5
  10556.     lsr.b    #1,d0
  10557.     bne.s    c849E
  10558.     move.b    #$80,d0
  10559.     cmp.w    #$1C,d5
  10560.     bhi.s    c8498
  10561.     movem.l    d0/d1/a0/a1,-(sp)
  10562.     movea.l    -8(a6),a1
  10563.     moveq    #0,d0
  10564.     move.w    -$20(a6),d0
  10565.     sub.w    d5,d0
  10566.     lea    -$74(a6),a0
  10567.     move.l    a4,-(sp)
  10568.     movea.l    -$60(a6),a4
  10569.     jsr    (a1)
  10570.     movea.l    (sp)+,a4
  10571.     movem.l    (sp)+,d0/d1/a0/a1
  10572.     move.w    -$20(a6),d5
  10573.     movea.l    -12(a6),a1
  10574. c8498:    movea.l    a1,a0
  10575.     clr.b    (a1)+
  10576.     subq.w    #1,d5
  10577. c849E:    or.b    d0,(a0)
  10578.     subq.w    #3,d2
  10579.     move.b    d2,(a1)+
  10580.     sub.w    d7,d1
  10581.     neg.w    d1
  10582.     subq.w    #2,d1
  10583.     andi.w    #$3FFF,d1
  10584.     move.b    d1,(a1)+
  10585.     lsr.w    #8,d1
  10586.     move.b    d1,(a1)+
  10587.     subq.w    #3,d5
  10588.     swap    d5
  10589. c84B8:    bsr.l    c8170
  10590.     dbra    d2,c84B8
  10591.     jsr    (a2)
  10592.     cmp.w    d5,d4
  10593.     ble.s    c84C8
  10594.     move.w    d5,d4
  10595. c84C8:    tst.w    d5
  10596.     ble.s    c84D4
  10597.     tst.w    -$24(a6)
  10598.     beq.l    c83FE
  10599. c84D4:    movem.l    d0/d1/a0/a1,-(sp)
  10600.     swap    d5
  10601.     movea.l    -8(a6),a1
  10602.     moveq    #0,d0
  10603.     move.w    -$20(a6),d0
  10604.     sub.w    d5,d0
  10605.     beq.s    c84F6
  10606.     lea    -$74(a6),a0
  10607.     move.l    a4,-(sp)
  10608.     movea.l    -$60(a6),a4
  10609.     jsr    (a1)
  10610.     movea.l    (sp)+,a4
  10611. c84F6:    swap    d5
  10612.     movem.l    (sp)+,d0/d1/a0/a1
  10613.     moveq    #0,d0
  10614. c84FE:    movea.l    -$64(a6),sp
  10615.     movem.l    (sp)+,d2-d7/a2-a6
  10616.     rts
  10617.  
  10618. c8508:    lea    $74(a0),a6
  10619.     moveq    #1,d0
  10620.     bra.s    c84FE
  10621.  
  10622. c8510:    link.w    a5,#-4
  10623.     move.l    d7,-(sp)
  10624.     move.l    d0,d7
  10625.     cmp.l    $A94(a4),d7
  10626.     bge.s    c8536
  10627.     move.l    $2E8(a4),d0
  10628.     moveq    #$10,d1
  10629.     cmp.l    d1,d0
  10630.     blt.s    c852A
  10631.     move.l    d1,d0
  10632. c852A:    add.l    d0,d0
  10633.     movea.l    $AA8(a4),a0
  10634.     adda.l    d0,a0
  10635.     addq.w    #1,(a0)
  10636.     bra.s    c8564
  10637.  
  10638. c8536:    addq.l    #1,$2E8(a4)
  10639.     move.l    d7,d0
  10640.     add.l    d0,d0
  10641.     movea.l    $A68(a4),a0
  10642.     adda.l    d0,a0
  10643.     moveq    #0,d1
  10644.     move.w    (a0),d1
  10645.     move.l    d0,4(sp)
  10646.     move.l    d1,d0
  10647.     bsr.s    c8510
  10648.     move.l    4(sp),d0
  10649.     movea.l    $A6C(a4),a0
  10650.     adda.l    d0,a0
  10651.     moveq    #0,d0
  10652.     move.w    (a0),d0
  10653.     bsr.s    c8510
  10654.     subq.l    #1,$2E8(a4)
  10655. c8564:    move.l    (sp)+,d7
  10656.     unlk    a5
  10657.     rts
  10658.  
  10659. c856A:    movem.l    d5-d7/a2/a3,-(sp)
  10660.     move.l    d0,d7
  10661.     movea.l    $AA8(a4),a3
  10662.     lea    $20(a3),a2
  10663.     bra.s    c857C
  10664.  
  10665. c857A:    clr.w    (a3)+
  10666. c857C:    cmpa.l    a2,a3
  10667.     bls.s    c857A
  10668.     move.l    d7,d0
  10669.     bsr.s    c8510
  10670.     moveq    #0,d7
  10671.     moveq    #$10,d6
  10672.     movea.l    a2,a3
  10673.     bra.s    c859C
  10674.  
  10675. c858C:    moveq    #$10,d0
  10676.     sub.l    d6,d0
  10677.     moveq    #0,d1
  10678.     move.w    (a3),d1
  10679.     asl.l    d0,d1
  10680.     add.l    d1,d7
  10681.     subq.l    #1,d6
  10682.     subq.l    #2,a3
  10683. c859C:    tst.l    d6
  10684.     bgt.s    c858C
  10685.     bra.s    c85C6
  10686.  
  10687. c85A2:    movea.l    $AA8(a4),a0
  10688.     subq.w    #1,$20(a0)
  10689.     lea    $1E(a0),a3
  10690.     bra.s    c85BE
  10691.  
  10692. c85B0:    move.w    (a3),d0
  10693.     beq.s    c85BC
  10694.     subq.w    #1,(a3)
  10695.     addq.w    #2,2(a3)
  10696.     bra.s    c85C4
  10697.  
  10698. c85BC:    subq.l    #2,a3
  10699. c85BE:    cmpa.l    $AA8(a4),a3
  10700.     bhi.s    c85B0
  10701. c85C4:    subq.l    #1,d7
  10702. c85C6:    cmpi.l    #$10000,d7
  10703.     bne.s    c85A2
  10704.     moveq    #$10,d7
  10705.     moveq    #$20,d6
  10706.     bra.s    c8602
  10707.  
  10708. c85D4:    movea.l    $AA8(a4),a0
  10709.     adda.l    d6,a0
  10710.     moveq    #0,d5
  10711.     move.w    (a0),d5
  10712.     bra.s    c85FA
  10713.  
  10714. c85E0:    movea.l    $AAC(a4),a0
  10715.     moveq    #0,d0
  10716.     movea.l    $AA4(a4),a1
  10717.     move.w    (a1)+,d0
  10718.     move.l    a1,$AA4(a4)
  10719.     adda.l    d0,a0
  10720.     move.l    a1,$AA4(a4)
  10721.     move.l    d7,d0
  10722.     move.b    d0,(a0)
  10723. c85FA:    subq.l    #1,d5
  10724.     bge.s    c85E0
  10725.     subq.l    #1,d7
  10726.     subq.l    #2,d6
  10727. c8602:    tst.l    d7
  10728.     bgt.s    c85D4
  10729.     movem.l    (sp)+,d5-d7/a2/a3
  10730.     rts
  10731.  
  10732. c860C:    movem.l    d6/d7/a2/a3/a6,-(sp)
  10733.     move.l    d0,d7
  10734.     move.l    d7,d0
  10735.     add.l    d0,d0
  10736.     movea.l    $A9C(a4),a0
  10737.     adda.l    d0,a0
  10738.     move.w    (a0),d6
  10739.     ext.l    d6
  10740.     bra.s    c8684
  10741.  
  10742. c8622:    cmp.l    $A98(a4),d7
  10743.     bge.s    c865A
  10744.     move.l    d7,d0
  10745.     add.l    d0,d0
  10746.     movea.l    $A9C(a4),a0
  10747.     movea.l    a0,a1
  10748.     adda.l    d0,a1
  10749.     move.w    2(a1),d0
  10750.     ext.l    d0
  10751.     add.l    d0,d0
  10752.     movea.l    $AA0(a4),a6
  10753.     adda.l    d0,a6
  10754.     move.w    (a6),d0
  10755.     move.w    (a1),d1
  10756.     ext.l    d1
  10757.     add.l    d1,d1
  10758.     movea.l    $AA0(a4),a1
  10759.     movea.l    a1,a6
  10760.     adda.l    d1,a6
  10761.     move.w    (a6),d1
  10762.     cmp.w    d0,d1
  10763.     bls.s    c865A
  10764.     addq.l    #1,d7
  10765. c865A:    move.l    d7,d0
  10766.     add.l    d0,d0
  10767.     movea.l    $A9C(a4),a0
  10768.     adda.l    d0,a0
  10769.     movea.l    a0,a3
  10770.     move.w    (a3),d0
  10771.     ext.l    d0
  10772.     add.l    d0,d0
  10773.     movea.l    $AA0(a4),a0
  10774.     movea.l    a0,a1
  10775.     adda.l    d0,a1
  10776.     move.w    (a1),d0
  10777.     move.l    d6,d1
  10778.     add.l    d1,d1
  10779.     adda.l    d1,a0
  10780.     move.w    (a0),d1
  10781.     cmp.w    d0,d1
  10782.     bls.s    c8694
  10783.     move.w    (a3),(a2)
  10784. c8684:    add.l    d7,d7
  10785.     movea.l    $A9C(a4),a0
  10786.     adda.l    d7,a0
  10787.     movea.l    a0,a2
  10788.     cmp.l    $A98(a4),d7
  10789.     ble.s    c8622
  10790. c8694:    move.l    d6,d0
  10791.     move.w    d0,(a2)
  10792.     movem.l    (sp)+,d6/d7/a2/a3/a6
  10793.     rts
  10794.  
  10795. c869E:    link.w    a5,#-$28
  10796.     movem.l    d2/d6/d7/a2/a3,-(sp)
  10797.     move.l    d0,d7
  10798.     movea.l    a0,a3
  10799.     movea.l    a1,a2
  10800.     clr.w    -$26(a5)
  10801.     moveq    #2,d6
  10802.     bra.s    c86CA
  10803.  
  10804. c86B4:    movea.l    $AA8(a4),a0
  10805.     adda.l    d6,a0
  10806.     move.w    (a0),d0
  10807.     move.w    -$28(a5,d6.l),d1
  10808.     add.w    d0,d1
  10809.     add.w    d1,d1
  10810.     move.w    d1,-$26(a5,d6.l)
  10811.     addq.l    #2,d6
  10812. c86CA:    moveq    #$20,d0
  10813.     cmp.l    d0,d6
  10814.     ble.s    c86B4
  10815.     moveq    #0,d6
  10816.     bra.s    c86F0
  10817.  
  10818. c86D4:    moveq    #0,d0
  10819.     move.b    0(a3,d6.l),d0
  10820.     move.l    d0,d1
  10821.     ext.l    d1
  10822.     add.l    d1,d1
  10823.     move.w    -$28(a5,d1.l),d0
  10824.     move.l    d0,d2
  10825.     addq.w    #1,d2
  10826.     move.w    d2,-$28(a5,d1.l)
  10827.     move.w    d0,(a2)+
  10828.     addq.l    #1,d6
  10829. c86F0:    cmp.l    d7,d6
  10830.     blt.s    c86D4
  10831.     movem.l    (sp)+,d2/d6/d7/a2/a3
  10832.     unlk    a5
  10833.     rts
  10834.  
  10835. c86FC:    link.w    a5,#-$1C
  10836.     movem.l    d2/d4-d7/a2/a3/a6,-(sp)
  10837.     movea.l    a1,a3
  10838.     movea.l    8(a5),a2
  10839.     move.l    a0,-$18(a5)
  10840.     move.l    d0,$A94(a4)
  10841.     move.l    -$18(a5),$AA0(a4)
  10842.     move.l    a3,$AAC(a4)
  10843.     moveq    #0,d1
  10844.     move.l    d1,$A98(a4)
  10845.     movea.l    $A9C(a4),a0
  10846.     clr.w    2(a0)
  10847.     move.l    d1,d7
  10848.     move.l    d1,d6
  10849.     move.l    d0,-$14(a5)
  10850.     move.l    d0,-$1C(a5)
  10851.     bra.s    c8762
  10852.  
  10853. c8738:    movea.l    $AAC(a4),a0
  10854.     adda.l    d7,a0
  10855.     clr.b    (a0)
  10856.     movea.l    $AA0(a4),a0
  10857.     adda.l    d6,a0
  10858.     tst.w    (a0)
  10859.     beq.s    c875E
  10860.     addq.l    #1,$A98(a4)
  10861.     move.l    $A98(a4),d0
  10862.     add.l    d0,d0
  10863.     movea.l    $A9C(a4),a0
  10864.     adda.l    d0,a0
  10865.     move.l    d7,d0
  10866.     move.w    d0,(a0)
  10867. c875E:    addq.l    #1,d7
  10868.     addq.l    #2,d6
  10869. c8762:    cmp.l    $A94(a4),d7
  10870.     blt.s    c8738
  10871.     move.l    $A98(a4),d0
  10872.     moveq    #2,d1
  10873.     cmp.l    d1,d0
  10874.     bge.s    c878C
  10875.     movea.l    $A9C(a4),a0
  10876.     move.w    2(a0),d2
  10877.     ext.l    d2
  10878.     add.l    d2,d2
  10879.     clr.w    0(a2,d2.l)
  10880.     move.w    2(a0),d0
  10881.     ext.l    d0
  10882.     bra.l    c8882
  10883.  
  10884. c878C:    move.l    $A98(a4),d0
  10885.     bpl.s    c8794
  10886.     addq.l    #1,d0
  10887. c8794:    asr.l    #1,d0
  10888.     move.l    d0,d7
  10889.     bra.s    c87A2
  10890.  
  10891. c879A:    move.l    d7,d0
  10892.     bsr.l    c860C
  10893.     subq.l    #1,d7
  10894. c87A2:    moveq    #1,d0
  10895.     cmp.l    d0,d7
  10896.     bge.s    c879A
  10897.     move.l    a2,$AA4(a4)
  10898.     move.l    -$14(a5),d0
  10899.     add.l    d0,d0
  10900.     move.l    d0,d5
  10901. c87B4:    movea.l    $A9C(a4),a0
  10902.     move.w    2(a0),d4
  10903.     ext.l    d4
  10904.     cmp.l    $A94(a4),d4
  10905.     bge.s    c87D4
  10906.     move.l    d4,d0
  10907.     movea.l    $AA4(a4),a0
  10908.     move.w    d0,(a0)+
  10909.     move.l    a0,$AA4(a4)
  10910.     move.l    a0,$AA4(a4)
  10911. c87D4:    move.l    $A98(a4),d0
  10912.     add.l    d0,d0
  10913.     subq.l    #1,$A98(a4)
  10914.     movea.l    $A9C(a4),a0
  10915.     adda.l    d0,a0
  10916.     movea.l    $A9C(a4),a1
  10917.     move.w    (a0),2(a1)
  10918.     moveq    #1,d0
  10919.     bsr.l    c860C
  10920.     movea.l    $A9C(a4),a0
  10921.     move.w    2(a0),d6
  10922.     ext.l    d6
  10923.     cmp.l    $A94(a4),d6
  10924.     bge.s    c8812
  10925.     move.l    d6,d0
  10926.     movea.l    $AA4(a4),a0
  10927.     move.w    d0,(a0)+
  10928.     move.l    a0,$AA4(a4)
  10929.     move.l    a0,$AA4(a4)
  10930. c8812:    move.l    -$14(a5),d7
  10931.     addq.l    #1,-$14(a5)
  10932.     movea.l    $AA0(a4),a0
  10933.     movea.l    a0,a1
  10934.     adda.l    d5,a1
  10935.     move.l    d4,d0
  10936.     add.l    d0,d0
  10937.     movea.l    a0,a6
  10938.     adda.l    d0,a6
  10939.     move.l    d6,d0
  10940.     add.l    d0,d0
  10941.     adda.l    d0,a0
  10942.     move.w    (a0),d0
  10943.     move.w    (a6),d1
  10944.     add.w    d0,d1
  10945.     move.w    d1,(a1)
  10946.     move.l    d7,d0
  10947.     movea.l    $A9C(a4),a0
  10948.     move.w    d0,2(a0)
  10949.     moveq    #1,d0
  10950.     bsr.l    c860C
  10951.     movea.l    $A68(a4),a0
  10952.     adda.l    d5,a0
  10953.     move.l    d4,d0
  10954.     move.w    d0,(a0)
  10955.     movea.l    $A6C(a4),a0
  10956.     adda.l    d5,a0
  10957.     move.l    d6,d0
  10958.     move.w    d0,(a0)
  10959.     addq.l    #2,d5
  10960.     cmpi.l    #1,$A98(a4)
  10961.     bgt.l    c87B4
  10962.     move.l    a2,$AA4(a4)
  10963.     move.l    d7,d0
  10964.     bsr.l    c856A
  10965.     move.l    -$1C(a5),d0
  10966.     movea.l    a3,a0
  10967.     movea.l    a2,a1
  10968.     bsr.l    c869E
  10969.     move.l    d7,d0
  10970. c8882:    movem.l    (sp)+,d2/d4-d7/a2/a3/a6
  10971.     unlk    a5
  10972.     rts
  10973.  
  10974. c888A:    movem.l    d5-d7/a2/a3,-(sp)
  10975.     movea.l    $A90(a4),a3
  10976.     lea    $26(a3),a2
  10977.     bra.s    c889A
  10978.  
  10979. c8898:    clr.w    (a3)+
  10980. c889A:    cmpa.l    a2,a3
  10981.     bcs.s    c8898
  10982.     move.l    #$1FE,d7
  10983.     bra.s    c88A8
  10984.  
  10985. c88A6:    subq.l    #1,d7
  10986. c88A8:    tst.l    d7
  10987.     ble.s    c88B8
  10988.     movea.l    $A74(a4),a0
  10989.     adda.l    d7,a0
  10990.     tst.b    -1(a0)
  10991.     beq.s    c88A6
  10992. c88B8:    moveq    #0,d6
  10993.     bra.l    c894A
  10994.  
  10995. c88BE:    movea.l    $A74(a4),a0
  10996.     adda.l    d6,a0
  10997.     addq.l    #1,d6
  10998.     moveq    #0,d5
  10999.     move.b    (a0),d5
  11000.     tst.l    d5
  11001.     bne.s    c893C
  11002.     moveq    #1,d5
  11003.     bra.s    c88D6
  11004.  
  11005. c88D2:    addq.l    #1,d6
  11006.     addq.l    #1,d5
  11007. c88D6:    cmp.l    d7,d6
  11008.     bge.s    c88E4
  11009.     movea.l    $A74(a4),a0
  11010.     adda.l    d6,a0
  11011.     tst.b    (a0)
  11012.     beq.s    c88D2
  11013. c88E4:    moveq    #2,d0
  11014.     cmp.l    d0,d5
  11015.     bgt.s    c88FC
  11016.     moveq    #0,d1
  11017.     movea.l    $A90(a4),a0
  11018.     move.w    (a0),d1
  11019.     add.l    d5,d1
  11020.     movea.l    $A90(a4),a0
  11021.     move.w    d1,(a0)
  11022.     bra.s    c894A
  11023.  
  11024. c88FC:    moveq    #$12,d1
  11025.     cmp.l    d1,d5
  11026.     bgt.s    c8916
  11027.     movea.l    $A90(a4),a0
  11028.     move.w    2(a0),d1
  11029.     addq.w    #1,d1
  11030.     movea.l    $A90(a4),a0
  11031.     move.w    d1,2(a0)
  11032.     bra.s    c894A
  11033.  
  11034. c8916:    moveq    #$13,d1
  11035.     cmp.l    d1,d5
  11036.     bne.s    c8928
  11037.     movea.l    $A90(a4),a0
  11038.     addq.w    #1,(a0)
  11039.     addq.w    #1,2(a0)
  11040.     bra.s    c894A
  11041.  
  11042. c8928:    movea.l    $A90(a4),a0
  11043.     move.w    4(a0),d1
  11044.     addq.w    #1,d1
  11045.     movea.l    $A90(a4),a0
  11046.     move.w    d1,4(a0)
  11047.     bra.s    c894A
  11048.  
  11049. c893C:    move.l    d5,d0
  11050.     add.l    d0,d0
  11051.     movea.l    $A90(a4),a0
  11052.     adda.l    d0,a0
  11053.     addq.w    #1,4(a0)
  11054. c894A:    cmp.l    d7,d6
  11055.     blt.l    c88BE
  11056.     movem.l    (sp)+,d5-d7/a2/a3
  11057.     rts
  11058.  
  11059. c8956:    movem.l    d4-d7,-(sp)
  11060.     move.l    d0,d7
  11061.     move.l    d1,d6
  11062.     move.l    $14(sp),d5
  11063.     bra.s    c8966
  11064.  
  11065. c8964:    subq.l    #1,d7
  11066. c8966:    tst.l    d7
  11067.     ble.s    c8976
  11068.     movea.l    $A78(a4),a0
  11069.     adda.l    d7,a0
  11070.     tst.b    -1(a0)
  11071.     beq.s    c8964
  11072. c8976:    move.l    d6,d0
  11073.     move.l    d7,d1
  11074.     bsr.l    c8E88
  11075.     moveq    #0,d6
  11076.     bra.s    c89D4
  11077.  
  11078. c8982:    movea.l    $A78(a4),a0
  11079.     adda.l    d6,a0
  11080.     addq.l    #1,d6
  11081.     moveq    #0,d4
  11082.     move.b    (a0),d4
  11083.     moveq    #6,d0
  11084.     cmp.l    d0,d4
  11085.     bgt.s    c899E
  11086.     moveq    #3,d0
  11087.     move.l    d4,d1
  11088.     bsr.l    c8E88
  11089.     bra.s    c89AC
  11090.  
  11091. c899E:    move.l    d4,d0
  11092.     subq.l    #3,d0
  11093.     moveq    #1,d1
  11094.     asl.l    d0,d1
  11095.     subq.l    #2,d1
  11096.     bsr.l    c8E88
  11097. c89AC:    cmp.l    d5,d6
  11098.     bne.s    c89D4
  11099.     bra.s    c89B4
  11100.  
  11101. c89B2:    addq.l    #1,d6
  11102. c89B4:    moveq    #6,d0
  11103.     cmp.l    d0,d6
  11104.     bge.s    c89C4
  11105.     movea.l    $A78(a4),a0
  11106.     adda.l    d6,a0
  11107.     tst.b    (a0)
  11108.     beq.s    c89B2
  11109. c89C4:    move.l    d6,d0
  11110.     subq.l    #3,d0
  11111.     moveq    #3,d1
  11112.     and.l    d1,d0
  11113.     moveq    #2,d1
  11114.     exg    d0,d1
  11115.     bsr.l    c8E88
  11116. c89D4:    cmp.l    d7,d6
  11117.     blt.s    c8982
  11118.     movem.l    (sp)+,d4-d7
  11119.     rts
  11120.  
  11121. c89DE:    movem.l    d4-d7,-(sp)
  11122.     move.l    #$1FE,d6
  11123.     bra.s    c89EC
  11124.  
  11125. c89EA:    subq.l    #1,d6
  11126. c89EC:    tst.l    d6
  11127.     ble.s    c89FC
  11128.     movea.l    $A74(a4),a0
  11129.     adda.l    d6,a0
  11130.     tst.b    -1(a0)
  11131.     beq.s    c89EA
  11132. c89FC:    moveq    #9,d0
  11133.     move.l    d6,d1
  11134.     bsr.l    c8E88
  11135.     moveq    #0,d7
  11136.     bra.l    c8B0C
  11137.  
  11138. c8A0A:    movea.l    $A74(a4),a0
  11139.     adda.l    d7,a0
  11140.     addq.l    #1,d7
  11141.     moveq    #0,d5
  11142.     move.b    (a0),d5
  11143.     tst.l    d5
  11144.     bne.l    c8AEC
  11145.     moveq    #1,d5
  11146.     bra.s    c8A24
  11147.  
  11148. c8A20:    addq.l    #1,d7
  11149.     addq.l    #1,d5
  11150. c8A24:    cmp.l    d6,d7
  11151.     bge.s    c8A32
  11152.     movea.l    $A74(a4),a0
  11153.     adda.l    d7,a0
  11154.     tst.b    (a0)
  11155.     beq.s    c8A20
  11156. c8A32:    moveq    #2,d0
  11157.     cmp.l    d0,d5
  11158.     bgt.s    c8A5A
  11159.     moveq    #0,d4
  11160.     bra.s    c8A52
  11161.  
  11162. c8A3C:    moveq    #0,d0
  11163.     movea.l    $A78(a4),a0
  11164.     move.b    (a0),d0
  11165.     moveq    #0,d1
  11166.     movea.l    $A8C(a4),a0
  11167.     move.w    (a0),d1
  11168.     bsr.l    c8E88
  11169.     addq.l    #1,d4
  11170. c8A52:    cmp.l    d5,d4
  11171.     blt.s    c8A3C
  11172.     bra.l    c8B0C
  11173.  
  11174. c8A5A:    moveq    #$12,d0
  11175.     cmp.l    d0,d5
  11176.     bgt.s    c8A88
  11177.     moveq    #0,d0
  11178.     movea.l    $A78(a4),a0
  11179.     move.b    1(a0),d0
  11180.     moveq    #0,d1
  11181.     movea.l    $A8C(a4),a1
  11182.     move.w    2(a1),d1
  11183.     bsr.l    c8E88
  11184.     move.l    d5,d0
  11185.     subq.l    #3,d0
  11186.     moveq    #4,d1
  11187.     exg    d0,d1
  11188.     bsr.l    c8E88
  11189.     bra.l    c8B0C
  11190.  
  11191. c8A88:    moveq    #$13,d0
  11192.     cmp.l    d0,d5
  11193.     bne.s    c8AC4
  11194.     moveq    #0,d0
  11195.     movea.l    $A78(a4),a0
  11196.     move.b    (a0),d0
  11197.     moveq    #0,d1
  11198.     movea.l    $A8C(a4),a1
  11199.     move.w    (a1),d1
  11200.     bsr.l    c8E88
  11201.     moveq    #0,d0
  11202.     movea.l    $A78(a4),a0
  11203.     move.b    1(a0),d0
  11204.     moveq    #0,d1
  11205.     movea.l    $A8C(a4),a1
  11206.     move.w    2(a1),d1
  11207.     bsr.l    c8E88
  11208.     moveq    #4,d0
  11209.     moveq    #15,d1
  11210.     bsr.l    c8E88
  11211.     bra.s    c8B0C
  11212.  
  11213. c8AC4:    moveq    #0,d0
  11214.     movea.l    $A78(a4),a0
  11215.     move.b    2(a0),d0
  11216.     moveq    #0,d1
  11217.     movea.l    $A8C(a4),a1
  11218.     move.w    4(a1),d1
  11219.     bsr.l    c8E88
  11220.     move.l    d5,d0
  11221.     moveq    #$14,d1
  11222.     sub.l    d1,d0
  11223.     moveq    #9,d1
  11224.     exg    d0,d1
  11225.     bsr.l    c8E88
  11226.     bra.s    c8B0C
  11227.  
  11228. c8AEC:    movea.l    $A78(a4),a0
  11229.     adda.l    d5,a0
  11230.     moveq    #0,d0
  11231.     move.b    2(a0),d0
  11232.     move.l    d5,d1
  11233.     add.l    d1,d1
  11234.     movea.l    $A8C(a4),a0
  11235.     adda.l    d1,a0
  11236.     moveq    #0,d1
  11237.     move.w    4(a0),d1
  11238.     bsr.l    c8E88
  11239. c8B0C:    cmp.l    d6,d7
  11240.     blt.l    c8A0A
  11241.     movem.l    (sp)+,d4-d7
  11242.     rts
  11243.  
  11244. c8B18:    move.l    d7,-(sp)
  11245.     move.l    d0,d7
  11246.     movea.l    $A74(a4),a0
  11247.     adda.l    d7,a0
  11248.     moveq    #0,d0
  11249.     move.b    (a0),d0
  11250.     move.l    d7,d1
  11251.     add.l    d1,d1
  11252.     movea.l    $A84(a4),a0
  11253.     adda.l    d1,a0
  11254.     moveq    #0,d1
  11255.     move.w    (a0),d1
  11256.     bsr.l    c8E88
  11257.     move.l    (sp)+,d7
  11258.     rts
  11259.  
  11260. c8B3C:    movem.l    d2/d5-d7,-(sp)
  11261.     move.l    d0,d7
  11262.     moveq    #0,d6
  11263.     move.l    d7,d5
  11264.     bra.s    c8B4C
  11265.  
  11266. c8B48:    lsr.l    #1,d5
  11267.     addq.l    #1,d6
  11268. c8B4C:    tst.l    d5
  11269.     bne.s    c8B48
  11270.     movea.l    $A78(a4),a0
  11271.     adda.l    d6,a0
  11272.     moveq    #0,d0
  11273.     move.b    (a0),d0
  11274.     move.l    d6,d1
  11275.     add.l    d1,d1
  11276.     movea.l    $A8C(a4),a0
  11277.     adda.l    d1,a0
  11278.     moveq    #0,d1
  11279.     move.w    (a0),d1
  11280.     bsr.l    c8E88
  11281.     moveq    #1,d0
  11282.     cmp.l    d0,d6
  11283.     bls.s    c8B8A
  11284.     move.l    d6,d0
  11285.     subq.l    #1,d0
  11286.     moveq    #$11,d1
  11287.     sub.l    d6,d1
  11288.     move.l    #$FFFF,d2
  11289.     lsr.l    d1,d2
  11290.     move.l    d7,d1
  11291.     and.l    d2,d1
  11292.     bsr.l    c8E88
  11293. c8B8A:    movem.l    (sp)+,d2/d5-d7
  11294.     rts
  11295.  
  11296. c8B90:    movem.l    d4-d7/a2/a3,-(sp)
  11297.     move.l    $A84(a4),-(sp)
  11298.     move.l    #$1FE,d0
  11299.     movea.l    $A80(a4),a0
  11300.     movea.l    $A74(a4),a1
  11301.     bsr.l    c86FC
  11302.     move.l    d0,d5
  11303.     move.l    d5,d0
  11304.     add.l    d0,d0
  11305.     movea.l    $A80(a4),a0
  11306.     adda.l    d0,a0
  11307.     moveq    #0,d6
  11308.     move.w    (a0),d6
  11309.     moveq    #$10,d0
  11310.     move.l    d6,d1
  11311.     bsr.l    c8E88
  11312.     addq.w    #4,sp
  11313.     cmpi.l    #$1FE,d5
  11314.     bcs.s    c8C10
  11315.     bsr.l    c888A
  11316.     move.l    $A8C(a4),-(sp)
  11317.     moveq    #$13,d0
  11318.     movea.l    $A90(a4),a0
  11319.     movea.l    $A78(a4),a1
  11320.     bsr.l    c86FC
  11321.     addq.w    #4,sp
  11322.     move.l    d0,d5
  11323.     moveq    #$13,d0
  11324.     cmp.l    d0,d5
  11325.     bcs.s    c8BFA
  11326.     pea    3
  11327.     moveq    #5,d1
  11328.     bsr.l    c8956
  11329.     addq.w    #4,sp
  11330.     bra.s    c8C0A
  11331.  
  11332. c8BFA:    moveq    #5,d0
  11333.     moveq    #0,d1
  11334.     bsr.l    c8E88
  11335.     moveq    #5,d0
  11336.     move.l    d5,d1
  11337.     bsr.l    c8E88
  11338. c8C0A:    bsr.l    c89DE
  11339.     bra.s    c8C30
  11340.  
  11341. c8C10:    moveq    #5,d0
  11342.     moveq    #0,d1
  11343.     bsr.l    c8E88
  11344.     moveq    #5,d0
  11345.     moveq    #0,d1
  11346.     bsr.l    c8E88
  11347.     moveq    #9,d0
  11348.     moveq    #0,d1
  11349.     bsr.l    c8E88
  11350.     moveq    #9,d0
  11351.     move.l    d5,d1
  11352.     bsr.l    c8E88
  11353. c8C30:    move.l    $A8C(a4),-(sp)
  11354.     moveq    #14,d0
  11355.     movea.l    $A88(a4),a0
  11356.     movea.l    $A78(a4),a1
  11357.     bsr.l    c86FC
  11358.     addq.w    #4,sp
  11359.     move.l    d0,d5
  11360.     moveq    #14,d0
  11361.     cmp.l    d0,d5
  11362.     bcs.s    c8C5A
  11363.     pea    -1
  11364.     moveq    #4,d1
  11365.     bsr.l    c8956
  11366.     addq.w    #4,sp
  11367.     bra.s    c8C6A
  11368.  
  11369. c8C5A:    moveq    #4,d0
  11370.     moveq    #0,d1
  11371.     bsr.l    c8E88
  11372.     moveq    #4,d0
  11373.     move.l    d5,d1
  11374.     bsr.l    c8E88
  11375. c8C6A:    moveq    #0,d5
  11376.     moveq    #0,d4
  11377.     bra.s    c8CD8
  11378.  
  11379. c8C70:    move.l    d4,d0
  11380.     moveq    #7,d1
  11381.     and.l    d1,d0
  11382.     bne.s    c8C88
  11383.     movea.l    $A70(a4),a0
  11384.     movea.l    a0,a1
  11385.     adda.l    d5,a1
  11386.     addq.l    #1,d5
  11387.     moveq    #0,d7
  11388.     move.b    (a1),d7
  11389.     bra.s    c8C8A
  11390.  
  11391. c8C88:    add.l    d7,d7
  11392. c8C8A:    movea.l    $A70(a4),a0
  11393.     adda.l    d5,a0
  11394.     movea.l    a0,a3
  11395.     btst    #7,d7
  11396.     beq.s    c8CC6
  11397.     moveq    #0,d0
  11398.     move.b    (a3),d0
  11399.     addi.l    #$100,d0
  11400.     bsr.l    c8B18
  11401.     movea.l    $A70(a4),a0
  11402.     adda.l    d5,a0
  11403.     addq.l    #3,d5
  11404.     moveq    #0,d0
  11405.     move.b    2(a0),d0
  11406.     move.l    d0,d1
  11407.     asl.l    #8,d1
  11408.     moveq    #0,d0
  11409.     move.b    1(a0),d0
  11410.     add.l    d1,d0
  11411.     bsr.l    c8B3C
  11412.     bra.s    c8CD0
  11413.  
  11414. c8CC6:    addq.l    #1,d5
  11415.     moveq    #0,d0
  11416.     move.b    (a3),d0
  11417.     bsr.l    c8B18
  11418. c8CD0:    tst.l    $2EC(a4)
  11419.     bne.s    c8CFC
  11420.     addq.l    #1,d4
  11421. c8CD8:    cmp.l    d6,d4
  11422.     bcs.s    c8C70
  11423.     movea.l    $A80(a4),a3
  11424.     lea    $3FC(a3),a2
  11425.     bra.s    c8CE8
  11426.  
  11427. c8CE6:    clr.w    (a3)+
  11428. c8CE8:    cmpa.l    a2,a3
  11429.     bcs.s    c8CE6
  11430.     movea.l    $A88(a4),a3
  11431.     lea    $1C(a3),a2
  11432.     bra.s    c8CF8
  11433.  
  11434. c8CF6:    clr.w    (a3)+
  11435. c8CF8:    cmpa.l    a2,a3
  11436.     bcs.s    c8CF6
  11437. c8CFC:    movem.l    (sp)+,d4-d7/a2/a3
  11438.     rts
  11439.  
  11440. c8D02:    link.w    a5,#-$1C
  11441.     movem.l    d4-d7/a2/a3,-(sp)
  11442.     movea.l    a0,a3
  11443.     move.l    d0,-$1C(a5)
  11444.     moveq    #0,d5
  11445.     moveq    #0,d4
  11446.     movea.l    $68(a3),a3
  11447.     move.l    -$18(a5),d7
  11448.     bra.s    c8D96
  11449.  
  11450. c8D1E:    asr.l    #1,d4
  11451.     bne.s    c8D32
  11452.     moveq    #$40,d4
  11453.     add.l    d4,d4
  11454.     movea.l    d5,a0
  11455.     addq.l    #1,d5
  11456.     moveq    #0,d7
  11457.     move.l    a0,d0
  11458.     move.b    0(a3,d0.l),d7
  11459. c8D32:    movea.l    a3,a2
  11460.     adda.l    d5,a2
  11461.     move.l    d4,d0
  11462.     and.l    d7,d0
  11463.     beq.s    c8D82
  11464.     move.l    d7,-$18(a5)
  11465.     moveq    #0,d0
  11466.     move.b    (a2),d0
  11467.     add.l    d0,d0
  11468.     movea.l    $A80(a4),a0
  11469.     adda.l    d0,a0
  11470.     addq.w    #1,$200(a0)
  11471.     addq.l    #3,d5
  11472.     moveq    #0,d0
  11473.     move.b    2(a2),d0
  11474.     asl.l    #8,d0
  11475.     moveq    #0,d1
  11476.     move.b    1(a2),d1
  11477.     add.l    d0,d1
  11478.     move.l    d1,d7
  11479.     moveq    #0,d6
  11480.     bra.s    c8D6C
  11481.  
  11482. c8D68:    asr.l    #1,d7
  11483.     addq.l    #1,d6
  11484. c8D6C:    tst.l    d7
  11485.     bne.s    c8D68
  11486.     move.l    d6,d0
  11487.     add.l    d0,d0
  11488.     movea.l    $A88(a4),a0
  11489.     adda.l    d0,a0
  11490.     addq.w    #1,(a0)
  11491.     move.l    -$18(a5),d7
  11492.     bra.s    c8D96
  11493.  
  11494. c8D82:    addq.l    #1,d5
  11495.     moveq    #0,d0
  11496.     move.b    (a2),d0
  11497.     move.l    d0,d1
  11498.     ext.l    d1
  11499.     add.l    d1,d1
  11500.     movea.l    $A80(a4),a0
  11501.     adda.l    d1,a0
  11502.     addq.w    #1,(a0)
  11503. c8D96:    cmp.l    -$1C(a5),d5
  11504.     blt.s    c8D1E
  11505.     bsr.l    c8B90
  11506.     moveq    #0,d0
  11507.     movem.l    (sp)+,d4-d7/a2/a3
  11508.     unlk    a5
  11509.     rts
  11510.  
  11511. c8DAA:    movem.l    a2/a3,-(sp)
  11512.     movea.l    a0,a3
  11513.     lea    $4174(a3),a0
  11514.     move.l    a0,$A68(a4)
  11515.     lea    $496A(a3),a0
  11516.     move.l    a0,$A6C(a4)
  11517.     lea    $555C(a3),a0
  11518.     move.l    a0,$A74(a4)
  11519.     lea    $5160(a3),a0
  11520.     move.l    a0,$A84(a4)
  11521.     lea    $575A(a3),a0
  11522.     move.l    a0,$A80(a4)
  11523.     lea    $60D0(a3),a1
  11524.     move.l    a1,$A88(a4)
  11525.     lea    $6050(a3),a1
  11526.     move.l    a1,$A78(a4)
  11527.     lea    $5F50(a3),a1
  11528.     move.l    a1,$A8C(a4)
  11529.     lea    $6106(a3),a1
  11530.     move.l    a1,$A90(a4)
  11531.     lea    $6150(a3),a1
  11532.     move.l    a1,$A9C(a4)
  11533.     lea    $654E(a3),a1
  11534.     move.l    a1,$AA8(a4)
  11535.     move.w    $54(a3),d0
  11536.     ext.l    d0
  11537.     move.l    d0,$2F0(a4)
  11538.     move.l    $68(a3),$A70(a4)
  11539.     move.l    $38(a3),$A5C(a4)
  11540.     moveq    #0,d0
  11541.     move.l    d0,$A60(a4)
  11542.     move.l    $48(a3),$A64(a4)
  11543.     move.l    d0,$2EC(a4)
  11544.     movea.l    $A70(a4),a1
  11545.     clr.b    (a1)
  11546.     movea.l    $A80(a4),a3
  11547.     lea    $3FC(a3),a2
  11548.     bra.s    c8E40
  11549.  
  11550. c8E3E:    clr.w    (a3)+
  11551. c8E40:    cmpa.l    a2,a3
  11552.     bcs.s    c8E3E
  11553.     movea.l    $A88(a4),a3
  11554.     lea    $1C(a3),a2
  11555.     bra.s    c8E50
  11556.  
  11557. c8E4E:    clr.w    (a3)+
  11558. c8E50:    cmpa.l    a2,a3
  11559.     bcs.s    c8E4E
  11560.     bsr.l    c8F56
  11561.     movem.l    (sp)+,a2/a3
  11562.     rts
  11563.  
  11564. c8E5E:    move.l    a3,-(sp)
  11565.     movea.l    a0,a3
  11566.     tst.l    $2EC(a4)
  11567.     bne.s    c8E76
  11568.     tst.l    $AB0(a4)
  11569.     bne.s    c8E76
  11570.     moveq    #7,d0
  11571.     moveq    #0,d1
  11572.     bsr.l    c8E88
  11573. c8E76:    move.l    $2EC(a4),d0
  11574.     move.w    d0,$50(a3)
  11575.     move.l    $A60(a4),$34(a3)
  11576.     movea.l    (sp)+,a3
  11577.     rts
  11578.  
  11579. c8E88:    movem.l    d2/d6/d7,-(sp)
  11580.     move.l    d0,d7
  11581.     move.l    d1,d6
  11582.     move.l    $A58(a4),d0
  11583.     cmp.l    d0,d7
  11584.     bge.s    c8EAC
  11585.     sub.l    d7,$A58(a4)
  11586.     move.l    d6,d0
  11587.     move.l    $A58(a4),d1
  11588.     asl.l    d1,d0
  11589.     or.l    d0,$A54(a4)
  11590.     bra.l    c8F50
  11591.  
  11592. c8EAC:    move.l    $A60(a4),d1
  11593.     cmp.l    $A5C(a4),d1
  11594.     bcc.s    c8EE2
  11595.     sub.l    d0,d7
  11596.     move.l    d6,d0
  11597.     lsr.l    d7,d0
  11598.     move.l    $A54(a4),d1
  11599.     or.l    d0,d1
  11600.     moveq    #0,d0
  11601.     move.b    d1,d0
  11602.     movea.l    $A64(a4),a0
  11603.     jsr    c1FB4(pc)
  11604.     tst.l    d0
  11605.     bpl.s    c8EDC
  11606.     moveq    #1,d0
  11607.     move.l    d0,$AB0(a4)
  11608.     jsr    c6386(pc)
  11609. c8EDC:    addq.l    #1,$A60(a4)
  11610.     bra.s    c8EE8
  11611.  
  11612. c8EE2:    moveq    #1,d0
  11613.     move.l    d0,$2EC(a4)
  11614. c8EE8:    moveq    #8,d0
  11615.     cmp.l    d0,d7
  11616.     bge.s    c8F04
  11617.     move.l    d0,d1
  11618.     sub.l    d7,d1
  11619.     move.l    d1,$A58(a4)
  11620.     move.l    d6,d1
  11621.     move.l    $A58(a4),d2
  11622.     asl.l    d2,d1
  11623.     move.l    d1,$A54(a4)
  11624.     bra.s    c8F50
  11625.  
  11626. c8F04:    move.l    $A60(a4),d1
  11627.     cmp.l    $A5C(a4),d1
  11628.     bcc.s    c8F36
  11629.     move.l    d7,d0
  11630.     subq.l    #8,d0
  11631.     move.l    d6,d1
  11632.     lsr.l    d0,d1
  11633.     moveq    #0,d0
  11634.     move.b    d1,d0
  11635.     movea.l    $A64(a4),a0
  11636.     jsr    c1FB4(pc)
  11637.     tst.l    d0
  11638.     bpl.s    c8F30
  11639.     moveq    #1,d0
  11640.     move.l    d0,$AB0(a4)
  11641.     jsr    c6386(pc)
  11642. c8F30:    addq.l    #1,$A60(a4)
  11643.     bra.s    c8F3C
  11644.  
  11645. c8F36:    moveq    #1,d0
  11646.     move.l    d0,$2EC(a4)
  11647. c8F3C:    moveq    #$10,d0
  11648.     sub.l    d7,d0
  11649.     move.l    d0,$A58(a4)
  11650.     move.l    d6,d0
  11651.     move.l    $A58(a4),d1
  11652.     asl.l    d1,d0
  11653.     move.l    d0,$A54(a4)
  11654. c8F50:    movem.l    (sp)+,d2/d6/d7
  11655.     rts
  11656.  
  11657. c8F56:    moveq    #8,d0
  11658.     move.l    d0,$A58(a4)
  11659.     moveq    #0,d0
  11660.     move.l    d0,$A54(a4)
  11661.     move.l    d0,$AB0(a4)
  11662.     rts
  11663.  
  11664. c8F68:    link.w    a5,#-$10
  11665.     movem.l    d2/d4-d7,-(sp)
  11666.     move.l    d0,d7
  11667.     move.l    d1,d6
  11668.     moveq    #0,d0
  11669.     move.b    $2F8(a4),d0
  11670.     move.l    $2F4(a4),d1
  11671.     move.l    d6,d2
  11672.     lsr.l    d0,d2
  11673.     move.l    d1,-$10(a5)
  11674.     or.l    d2,d1
  11675.     move.l    d1,d4
  11676.     move.l    d0,-12(a5)
  11677.     add.l    d7,d0
  11678.     move.l    d0,d5
  11679.     moveq    #8,d0
  11680.     cmp.l    d0,d5
  11681.     blt.s    c8FD8
  11682.     move.l    d4,d0
  11683.     lsr.l    #8,d0
  11684.     moveq    #0,d1
  11685.     move.b    d0,d1
  11686.     move.l    d1,d0
  11687.     movea.l    $AB4(a4),a0
  11688.     jsr    c1FB4(pc)
  11689.     subq.l    #8,d5
  11690.     moveq    #8,d0
  11691.     cmp.l    d0,d5
  11692.     blt.s    c8FD2
  11693.     move.l    d4,d0
  11694.     moveq    #0,d1
  11695.     move.b    d0,d1
  11696.     move.l    d1,d0
  11697.     movea.l    $AB4(a4),a0
  11698.     jsr    c1FB4(pc)
  11699.     addq.l    #2,$AB8(a4)
  11700.     subq.l    #8,d5
  11701.     move.l    d7,d0
  11702.     sub.l    d5,d0
  11703.     move.l    d6,d4
  11704.     asl.l    d0,d4
  11705.     bra.s    c8FD8
  11706.  
  11707. c8FD2:    asl.l    #8,d4
  11708.     addq.l    #1,$AB8(a4)
  11709. c8FD8:    move.l    d4,$2F4(a4)
  11710.     move.l    d5,d0
  11711.     move.b    d0,$2F8(a4)
  11712.     movem.l    (sp)+,d2/d4-d7
  11713.     unlk    a5
  11714.     rts
  11715.  
  11716. c8FEA:    link.w    a5,#-$20
  11717.     movem.l    d4-d7/a2/a3,-(sp)
  11718.     moveq    #0,d7
  11719.     moveq    #0,d6
  11720.     bra.s    c902A
  11721.  
  11722. c8FF8:    movea.l    $AC4(a4),a0
  11723.     movea.l    a0,a1
  11724.     adda.l    d7,a1
  11725.     movea.l    a1,a3
  11726.     move.w    (a3),d0
  11727.     cmpi.w    #$273,d0
  11728.     blt.s    c9028
  11729.     moveq    #0,d1
  11730.     movea.l    $ABC(a4),a1
  11731.     move.w    0(a1,d7.l),d1
  11732.     addq.l    #1,d1
  11733.     tst.l    d1
  11734.     bpl.s    c901C
  11735.     addq.l    #1,d1
  11736. c901C:    asr.l    #1,d1
  11737.     move.w    d1,0(a1,d6.l)
  11738.     move.w    (a3),0(a0,d6.l)
  11739.     addq.l    #2,d6
  11740. c9028:    addq.l    #2,d7
  11741. c902A:    cmpi.l    #$4E6,d7
  11742.     blt.s    c8FF8
  11743.     moveq    #0,d7
  11744.     move.l    #$13A,d4
  11745.     move.l    #$274,d5
  11746.     movea.l    $ABC(a4),a3
  11747.     bra.l    c90DA
  11748.  
  11749. c9048:    movea.l    $ABC(a4),a0
  11750.     movea.l    a0,a1
  11751.     adda.l    d5,a1
  11752.     movea.l    a1,a2
  11753.     move.w    (a3),d0
  11754.     add.w    2(a3),d0
  11755.     move.w    d0,(a2)
  11756.     moveq    #0,d6
  11757.     move.w    d0,d6
  11758.     move.l    d4,d7
  11759.     subq.l    #1,d7
  11760.     move.l    d7,d0
  11761.     add.l    d0,d0
  11762.     adda.l    d0,a0
  11763.     movea.l    a0,a3
  11764.     bra.s    c9070
  11765.  
  11766. c906C:    subq.l    #1,d7
  11767.     subq.l    #2,a3
  11768. c9070:    moveq    #0,d0
  11769.     move.w    (a3),d0
  11770.     cmp.l    d0,d6
  11771.     bcs.s    c906C
  11772.     addq.l    #1,d7
  11773.     movea.l    a2,a3
  11774.     move.l    d7,d0
  11775.     add.l    d0,d0
  11776.     movea.l    $ABC(a4),a0
  11777.     adda.l    d0,a0
  11778.     movea.l    a0,a2
  11779.     bra.s    c9090
  11780.  
  11781. c908A:    move.w    -2(a3),(a3)
  11782.     subq.l    #2,a3
  11783. c9090:    cmpa.l    a2,a3
  11784.     bhi.s    c908A
  11785.     move.l    d7,d0
  11786.     add.l    d0,d0
  11787.     move.l    d6,d1
  11788.     movea.l    $ABC(a4),a0
  11789.     move.w    d1,0(a0,d0.l)
  11790.     movea.l    $AC4(a4),a0
  11791.     movea.l    a0,a1
  11792.     adda.l    d5,a1
  11793.     movea.l    a1,a3
  11794.     adda.l    d0,a0
  11795.     movea.l    a0,a2
  11796.     bra.s    c90B8
  11797.  
  11798. c90B2:    move.w    -2(a3),(a3)
  11799.     subq.l    #2,a3
  11800. c90B8:    cmpa.l    a2,a3
  11801.     bhi.s    c90B2
  11802.     move.l    d7,d0
  11803.     add.l    d0,d0
  11804.     move.l    -$1C(a5),d1
  11805.     movea.l    $AC4(a4),a0
  11806.     move.w    d1,0(a0,d0.l)
  11807.     move.l    d1,d7
  11808.     addq.l    #2,d7
  11809.     addq.l    #1,d4
  11810.     addq.l    #2,d5
  11811.     movea.l    -$20(a5),a3
  11812.     addq.l    #4,a3
  11813. c90DA:    move.l    a3,-$20(a5)
  11814.     move.l    d7,-$1C(a5)
  11815.     cmpi.l    #$4E6,d5
  11816.     blt.l    c9048
  11817.     moveq    #0,d7
  11818.     movea.l    $AC4(a4),a3
  11819.     bra.s    c911A
  11820.  
  11821. c90F4:    move.w    (a3),d0
  11822.     ext.l    d0
  11823.     add.l    d0,d0
  11824.     movea.l    $AC0(a4),a0
  11825.     adda.l    d0,a0
  11826.     movea.l    a0,a2
  11827.     cmpi.w    #$273,(a3)
  11828.     blt.s    c910E
  11829.     move.l    d7,d0
  11830.     move.w    d0,(a2)
  11831.     bra.s    c9116
  11832.  
  11833. c910E:    move.l    d7,d0
  11834.     move.w    d0,2(a2)
  11835.     move.w    d0,(a2)
  11836. c9116:    addq.l    #1,d7
  11837.     addq.l    #2,a3
  11838. c911A:    cmpi.l    #$273,d7
  11839.     blt.s    c90F4
  11840.     movem.l    (sp)+,d4-d7/a2/a3
  11841.     unlk    a5
  11842.     rts
  11843.  
  11844. c912A:    link.w    a5,#-$18
  11845.     movem.l    d4-d7/a3,-(sp)
  11846.     move.l    d0,d7
  11847.     moveq    #0,d1
  11848.     movea.l    $ABC(a4),a0
  11849.     move.w    $4E4(a0),d1
  11850.     move.l    d0,-$18(a5)
  11851.     cmpi.l    #$8000,d1
  11852.     bne.s    c914E
  11853.     bsr.l    c8FEA
  11854. c914E:    move.l    d7,d0
  11855.     add.l    d0,d0
  11856.     movea.l    $AC0(a4),a0
  11857.     move.l    d0,d1
  11858.     addi.l    #$4E6,d1
  11859.     move.w    0(a0,d1.l),d6
  11860.     ext.l    d6
  11861. c9164:    move.l    d6,d5
  11862.     add.l    d5,d5
  11863.     movea.l    $ABC(a4),a0
  11864.     addq.w    #1,0(a0,d5.l)
  11865.     moveq    #0,d4
  11866.     move.w    0(a0,d5.l),d4
  11867.     move.l    d6,d0
  11868.     addq.l    #1,d0
  11869.     add.l    d0,d0
  11870.     adda.l    d0,a0
  11871.     movea.l    a0,a3
  11872.     moveq    #0,d0
  11873.     move.w    (a3),d0
  11874.     cmp.l    d0,d4
  11875.     ble.l    c9208
  11876.     addq.l    #2,a3
  11877. c918C:    moveq    #0,d0
  11878.     move.w    (a3)+,d0
  11879.     cmp.l    d0,d4
  11880.     bgt.s    c918C
  11881.     move.l    a3,d0
  11882.     sub.l    $ABC(a4),d0
  11883.     asr.l    #1,d0
  11884.     move.l    d0,d7
  11885.     subq.l    #2,d7
  11886.     movea.l    $ABC(a4),a0
  11887.     move.w    -4(a3),0(a0,d5.l)
  11888.     move.l    d4,d0
  11889.     move.w    d0,-4(a3)
  11890.     movea.l    $AC4(a4),a0
  11891.     movea.l    a0,a1
  11892.     adda.l    d5,a1
  11893.     movea.l    a1,a3
  11894.     move.w    (a3),d5
  11895.     ext.l    d5
  11896.     move.l    d5,d0
  11897.     add.l    d0,d0
  11898.     move.l    d7,d1
  11899.     movea.l    $AC0(a4),a1
  11900.     move.w    d1,0(a1,d0.l)
  11901.     cmpi.l    #$273,d5
  11902.     bge.s    c91DA
  11903.     move.l    d7,d1
  11904.     move.w    d1,2(a1,d0.l)
  11905. c91DA:    move.l    d7,d0
  11906.     add.l    d0,d0
  11907.     move.w    0(a0,d0.l),d4
  11908.     ext.l    d4
  11909.     move.l    d5,d1
  11910.     move.w    d1,0(a0,d0.l)
  11911.     move.l    d4,d0
  11912.     add.l    d0,d0
  11913.     move.l    d6,d1
  11914.     move.w    d1,0(a1,d0.l)
  11915.     cmpi.l    #$273,d4
  11916.     bge.s    c9202
  11917.     move.l    d6,d1
  11918.     move.w    d1,2(a1,d0.l)
  11919. c9202:    move.l    d4,d0
  11920.     move.w    d0,(a3)
  11921.     move.l    d7,d6
  11922. c9208:    move.l    d6,d0
  11923.     add.l    d0,d0
  11924.     movea.l    $AC0(a4),a0
  11925.     move.w    0(a0,d0.l),d6
  11926.     ext.l    d6
  11927.     bne.l    c9164
  11928.     movem.l    (sp)+,d4-d7/a3
  11929.     unlk    a5
  11930.     rts
  11931.  
  11932. c9222:    movem.l    d4-d7,-(sp)
  11933.     move.l    d0,d7
  11934.     moveq    #0,d6
  11935.     moveq    #0,d5
  11936.     move.l    d7,d0
  11937.     add.l    d0,d0
  11938.     movea.l    $AC0(a4),a0
  11939.     move.l    d0,d1
  11940.     addi.l    #$4E6,d1
  11941.     move.w    0(a0,d1.l),d4
  11942.     ext.l    d4
  11943. c9242:    lsr.l    #1,d6
  11944.     btst    #0,d4
  11945.     beq.s    c9250
  11946.     subi.l    #$80000000,d6
  11947. c9250:    addq.l    #1,d5
  11948.     move.l    d4,d0
  11949.     add.l    d0,d0
  11950.     movea.l    $AC0(a4),a0
  11951.     move.w    0(a0,d0.l),d4
  11952.     ext.l    d4
  11953.     cmpi.l    #$272,d4
  11954.     bne.s    c9242
  11955.     move.l    d6,d4
  11956.     clr.w    d4
  11957.     swap    d4
  11958.     moveq    #$10,d0
  11959.     cmp.l    d0,d5
  11960.     ble.s    c9288
  11961.     move.l    d4,d1
  11962.     bsr.l    c8F68
  11963.     move.l    d5,d0
  11964.     moveq    #$10,d1
  11965.     sub.l    d1,d0
  11966.     move.l    d6,d1
  11967.     bsr.l    c8F68
  11968.     bra.s    c9290
  11969.  
  11970. c9288:    move.l    d5,d0
  11971.     move.l    d4,d1
  11972.     bsr.l    c8F68
  11973. c9290:    move.l    d7,d0
  11974.     bsr.l    c912A
  11975.     movem.l    (sp)+,d4-d7
  11976.     rts
  11977.  
  11978. c929C:    movem.l    d2/d7,-(sp)
  11979.     move.l    d0,d7
  11980.     move.l    d7,d0
  11981.     lsr.l    #6,d0
  11982.     moveq    #0,d1
  11983.     lea    $2F9(a4),a0
  11984.     move.b    0(a0,d0.l),d1
  11985.     moveq    #0,d2
  11986.     lea    $339(a4),a0
  11987.     move.b    0(a0,d0.l),d2
  11988.     asl.l    #8,d2
  11989.     move.l    d1,d0
  11990.     move.l    d2,d1
  11991.     bsr.l    c8F68
  11992.     move.l    d7,d0
  11993.     moveq    #$3F,d1
  11994.     and.l    d1,d0
  11995.     asl.l    #8,d0
  11996.     asl.l    #2,d0
  11997.     moveq    #6,d1
  11998.     exg    d0,d1
  11999.     bsr.l    c8F68
  12000.     movem.l    (sp)+,d2/d7
  12001.     rts
  12002.  
  12003. c92DC:    link.w    a5,#-$18
  12004.     movem.l    d4-d7/a2/a3,-(sp)
  12005.     move.l    d0,d7
  12006.     move.l    a0,-$18(a5)
  12007.     moveq    #0,d6
  12008.     moveq    #0,d5
  12009.     movea.l    -$18(a5),a0
  12010.     movea.l    $68(a0),a2
  12011.     bra.s    c9356
  12012.  
  12013. c92F8:    move.l    $AB8(a4),d0
  12014.     movea.l    -$18(a5),a0
  12015.     cmp.l    $38(a0),d0
  12016.     bge.s    c935A
  12017.     asr.l    #1,d5
  12018.     bne.s    c931A
  12019.     moveq    #$40,d5
  12020.     add.l    d5,d5
  12021.     movea.l    d6,a0
  12022.     addq.l    #1,d6
  12023.     moveq    #0,d4
  12024.     move.l    a0,d0
  12025.     move.b    0(a2,d0.l),d4
  12026. c931A:    movea.l    a2,a3
  12027.     adda.l    d6,a3
  12028.     move.l    d4,d0
  12029.     and.l    d5,d0
  12030.     beq.s    c934C
  12031.     moveq    #0,d0
  12032.     move.b    (a3),d0
  12033.     addi.l    #$100,d0
  12034.     bsr.l    c9222
  12035.     addq.l    #3,d6
  12036.     moveq    #0,d0
  12037.     move.b    2(a3),d0
  12038.     asl.l    #8,d0
  12039.     moveq    #0,d1
  12040.     move.b    1(a3),d1
  12041.     add.l    d0,d1
  12042.     move.l    d1,d0
  12043.     bsr.l    c929C
  12044.     bra.s    c9356
  12045.  
  12046. c934C:    addq.l    #1,d6
  12047.     moveq    #0,d0
  12048.     move.b    (a3),d0
  12049.     bsr.l    c9222
  12050. c9356:    cmp.l    d7,d6
  12051.     blt.s    c92F8
  12052. c935A:    moveq    #0,d0
  12053.     movem.l    (sp)+,d4-d7/a2/a3
  12054.     unlk    a5
  12055.     rts
  12056.  
  12057. c9364:    move.l    a3,-(sp)
  12058.     movea.l    a0,a3
  12059.     tst.b    $2F8(a4)
  12060.     beq.s    c9386
  12061.     move.l    $2F4(a4),d0
  12062.     lsr.l    #8,d0
  12063.     moveq    #0,d1
  12064.     move.b    d0,d1
  12065.     move.l    d1,d0
  12066.     movea.l    $AB4(a4),a0
  12067.     jsr    c1FB4(pc)
  12068.     addq.l    #1,$AB8(a4)
  12069. c9386:    move.l    $AB8(a4),d0
  12070.     cmp.l    $38(a3),d0
  12071.     blt.s    c9396
  12072.     move.w    #1,$50(a3)
  12073. c9396:    move.l    d0,$34(a3)
  12074.     movea.l    (sp)+,a3
  12075.     rts
  12076.  
  12077. c939E:    movem.l    d4-d7/a2/a3,-(sp)
  12078.     movea.l    a0,a3
  12079.     lea    $6174(a3),a0
  12080.     lea    $6DB6(a3),a1
  12081.     lea    $665C(a3),a2
  12082.     move.l    $48(a3),$AB4(a4)
  12083.     moveq    #0,d0
  12084.     move.l    d0,d7
  12085.     move.l    d0,d6
  12086.     move.l    d0,$AB8(a4)
  12087.     move.l    a0,$ABC(a4)
  12088.     move.l    a1,$AC4(a4)
  12089.     move.l    a2,$AC0(a4)
  12090.     bra.s    c93FE
  12091.  
  12092. c93CE:    movea.l    $ABC(a4),a0
  12093.     move.w    #1,0(a0,d6.l)
  12094.     move.l    d7,d0
  12095.     addi.l    #$273,d0
  12096.     movea.l    $AC4(a4),a0
  12097.     move.w    d0,0(a0,d6.l)
  12098.     move.l    d7,d0
  12099.     movea.l    $AC0(a4),a0
  12100.     move.l    d6,d1
  12101.     addi.l    #$4E6,d1
  12102.     move.w    d0,0(a0,d1.l)
  12103.     addq.l    #1,d7
  12104.     addq.l    #2,d6
  12105. c93FE:    cmpi.l    #$13A,d7
  12106.     blt.s    c93CE
  12107.     moveq    #0,d7
  12108.     move.l    #$13A,d6
  12109.     move.l    #$274,d5
  12110.     moveq    #0,d4
  12111.     bra.s    c9448
  12112.  
  12113. c9418:    movea.l    $ABC(a4),a0
  12114.     move.w    0(a0,d4.l),d0
  12115.     add.w    2(a0,d4.l),d0
  12116.     move.w    d0,0(a0,d5.l)
  12117.     move.l    d7,d0
  12118.     movea.l    $AC4(a4),a0
  12119.     move.w    d0,0(a0,d5.l)
  12120.     move.l    d6,d0
  12121.     movea.l    $AC0(a4),a0
  12122.     move.w    d0,2(a0,d4.l)
  12123.     move.w    d0,0(a0,d4.l)
  12124.     addq.l    #2,d7
  12125.     addq.l    #1,d6
  12126.     addq.l    #2,d5
  12127.     addq.l    #4,d4
  12128. c9448:    cmpi.l    #$272,d6
  12129.     ble.s    c9418
  12130.     movea.l    $ABC(a4),a0
  12131.     move.w    #$FFFF,$4E6(a0)
  12132.     movea.l    $AC0(a4),a0
  12133.     clr.w    $4E4(a0)
  12134.     clr.b    $2F8(a4)
  12135.     clr.l    $2F4(a4)
  12136.     movem.l    (sp)+,d4-d7/a2/a3
  12137.     rts
  12138.  
  12139. c9470:    link.w    a5,#-$18
  12140.     movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  12141.     movea.l    a0,a3
  12142.     move.l    a1,-$14(a5)
  12143.     movea.l    a3,a2
  12144.     tst.l    $868(a4)
  12145.     bne.l    c9520
  12146.     moveq    #-2,d0
  12147.     movea.l    a3,a0
  12148.     jsr    cAD74(pc)
  12149.     move.l    d0,d7
  12150.     tst.l    d7
  12151.     beq.l    c9520
  12152.     tst.l    $858(a4)
  12153.     beq.s    c94AA
  12154.     move.l    d7,d0
  12155.     jsr    cAD7A(pc)
  12156.     moveq    #-1,d0
  12157.     bra.l    c958E
  12158.  
  12159. c94AA:    tst.l    $85C(a4)
  12160.     beq.s    c94F6
  12161.     move.l    #$104,d0
  12162.     jsr    cA7AA(pc)
  12163.     move.l    d0,$18(sp)
  12164.     move.l    d0,d2
  12165.     move.l    d7,d1
  12166.     movea.l    $420(a4),a6
  12167.     jsr    -$66(a6)
  12168.     move.l    d7,d0
  12169.     jsr    cAD7A(pc)
  12170.     movea.l    $18(sp),a0
  12171.     lea    $84(a0),a1
  12172.     movea.l    a1,a0
  12173.     lea    -$10(a5),a1
  12174.     jsr    c26D6(pc)
  12175.     movea.l    -$14(a5),a0
  12176.     move.l    $24(a0),d0
  12177.     cmp.l    -$10(a5),d0
  12178.     bgt.s    c9520
  12179.     moveq    #-1,d0
  12180.     bra.l    c958E
  12181.  
  12182. c94F6:    move.l    d7,d0
  12183.     jsr    cAD7A(pc)
  12184.     move.l    a3,-(sp)
  12185.     pea    salreadyexist.MSG(pc)
  12186.     pea    $590(a4)
  12187.     jsr    c2374(pc)
  12188.     moveq    #0,d0
  12189.     lea    $590(a4),a0
  12190.     jsr    c25A2(pc)
  12191.     lea    12(sp),sp
  12192.     tst.l    d0
  12193.     bne.s    c9520
  12194.     moveq    #-1,d0
  12195.     bra.s    c958E
  12196.  
  12197. c9520:    move.l    #$3EE,d0
  12198.     movea.l    a3,a0
  12199.     jsr    cA6A4(pc)
  12200.     move.l    d0,d7
  12201.     tst.l    d7
  12202.     beq.s    c9588
  12203.     move.l    d7,d0
  12204.     bra.s    c958E
  12205.  
  12206. c9536:    addq.l    #1,a2
  12207. c9538:    move.b    (a2),d0
  12208.     beq.s    c9542
  12209.     moveq    #$2F,d1
  12210.     cmp.b    d1,d0
  12211.     bne.s    c9536
  12212. c9542:    tst.b    (a2)
  12213.     beq.s    c957A
  12214.     clr.b    (a2)
  12215.     moveq    #-2,d0
  12216.     movea.l    a3,a0
  12217.     jsr    cAD74(pc)
  12218.     move.l    d0,d6
  12219.     tst.l    d6
  12220.     bne.s    c956E
  12221.     move.l    a3,d1
  12222.     movea.l    $420(a4),a6
  12223.     jsr    -$78(a6)
  12224.     jsr    c9B08(pc)
  12225.     move.l    d0,d6
  12226.     move.l    d6,d0
  12227.     bne.s    c956E
  12228.     moveq    #0,d0
  12229.     bra.s    c958E
  12230.  
  12231. c956E:    move.l    d6,d0
  12232.     jsr    cAD7A(pc)
  12233.     move.b    #$2F,(a2)+
  12234.     bra.s    c9588
  12235.  
  12236. c957A:    move.l    #$3EE,d0
  12237.     movea.l    a3,a0
  12238.     jsr    cA6A4(pc)
  12239.     move.l    d0,d7
  12240. c9588:    tst.b    (a2)
  12241.     bne.s    c9538
  12242.     move.l    d7,d0
  12243. c958E:    movem.l    (sp)+,d2/d6/d7/a2/a3/a6
  12244.     unlk    a5
  12245.     rts
  12246.  
  12247. salreadyexist.MSG:    dc.b    '''%s'' already exists, overwrite?',0
  12248. LhAWARNINGThi.MSG:    dc.b    'LhA WARNING: This file may be corrupt or inc'
  12249.     dc.b    'omplete.',0,0
  12250. dummy.MSG:    dc.b    'dummy',0
  12251. displayme.MSG:    dc.b    '.displayme',0,0
  12252. con02640198Lh.MSG:    dc.b    'con:0/2/640/198/LhA: Contents of file `%s''.'
  12253.     dc.b    '.. Press return to close/CLOSE',0
  12254. LhAUnabletore.MSG:    dc.b    '*** LhA: Unable to re-open autoshow file for'
  12255.     dc.b    ' display!',$A,0
  12256.     dc.b    0
  12257. LhAUnabletoop.MSG:    dc.b    13
  12258.     dc.b    '*** LhA: Unable to open window for autoshow '
  12259.     dc.b    'file!',$A,0
  12260. ENDOFFILE.MSG:    dcb.b    $2,10
  12261.     dc.b    '-------------> END OF FILE <-------------',$A,$A,$A,0
  12262.     dc.b    0
  12263.  
  12264. c96E4:    movem.l    d2/a3/a6,-(sp)
  12265.     movea.l    a0,a3
  12266.     tst.l    $850(a4)
  12267.     bne.s    c96FC
  12268.     move.l    a3,d1
  12269.     movea.l    $420(a4),a6
  12270.     jsr    -$48(a6)
  12271.     bra.s    c970C
  12272.  
  12273. c96FC:    move.l    a3,d1
  12274.     lea    LhAWARNINGThi.MSG(pc),a0
  12275.     move.l    a0,d2
  12276.     movea.l    $420(a4),a6
  12277.     jsr    -$B4(a6)
  12278. c970C:    movem.l    (sp)+,d2/a3/a6
  12279.     rts
  12280.  
  12281. c9712:    link.w    a5,#-8
  12282.     move.l    d0,-4(a5)
  12283.     move.l    #$3AC0,d0
  12284.     jsr    cA7AA(pc)
  12285.     move.l    d0,0(sp)
  12286.     move.l    $C0(a4),d0
  12287.     moveq    #1,d1
  12288.     jsr    cA81C(pc)
  12289.     movea.l    0(sp),a0
  12290.     move.l    d0,$24(a0)
  12291.     move.l    #$2100,d0
  12292.     add.l    $C0(a4),d0
  12293.     moveq    #1,d1
  12294.     jsr    cA81C(pc)
  12295.     movea.l    0(sp),a0
  12296.     move.l    d0,$28(a0)
  12297.     clr.l    $48(a0)
  12298.     move.l    $E8(a4),$20(a0)
  12299.     move.l    a0,d0
  12300.     unlk    a5
  12301.     rts
  12302.  
  12303. c9762:    move.l    a3,-(sp)
  12304.     movea.l    a0,a3
  12305.     movea.l    $24(a3),a0
  12306.     jsr    cA894(pc)
  12307.     movea.l    $28(a3),a0
  12308.     jsr    cA894(pc)
  12309.     movea.l    a3,a0
  12310.     jsr    cA894(pc)
  12311.     movea.l    (sp)+,a3
  12312.     rts
  12313.  
  12314. c9780:    link.w    a5,#-$118
  12315.     movem.l    d2/d3/d5-d7/a2/a3/a6,-(sp)
  12316.     movea.l    a1,a3
  12317.     movea.l    8(a5),a2
  12318.     move.l    d0,d7
  12319.     move.l    a0,-$118(a5)
  12320.     btst    #0,d7
  12321.     beq.s    c97F4
  12322.     clr.b    -$108(a5)
  12323.     move.l    12(a5),d0
  12324.     beq.s    c97CC
  12325.     movea.l    d0,a0
  12326.     lea    -$108(a5),a1
  12327. c97AA:    move.b    (a0)+,(a1)+
  12328.     bne.s    c97AA
  12329.     tst.l    $D4(a4)
  12330.     beq.s    c97E4
  12331.     tst.l    $1E(a3)
  12332.     beq.s    c97E4
  12333.     lea    -$108(a5),a0
  12334.     movea.l    $1E(a3),a1
  12335.     movea.l    $424(a4),a6
  12336.     jsr    -$270(a6)
  12337.     bra.s    c97E4
  12338.  
  12339. c97CC:    tst.l    $D4(a4)
  12340.     beq.s    c97E4
  12341.     tst.l    $1E(a3)
  12342.     beq.s    c97E4
  12343.     movea.l    $1E(a3),a0
  12344.     lea    -$108(a5),a1
  12345. c97E0:    move.b    (a0)+,(a1)+
  12346.     bne.s    c97E0
  12347. c97E4:    lea    -$108(a5),a0
  12348.     movea.l    $1A(a3),a1
  12349.     movea.l    $424(a4),a6
  12350.     jsr    -$270(a6)
  12351. c97F4:    movea.l    $1A(a3),a0
  12352.     tst.b    (a0)
  12353.     bne.s    c9840
  12354.     lea    -$108(a5),a0
  12355.     lea    dummy.MSG(pc),a1
  12356.     movea.l    $424(a4),a6
  12357.     jsr    -$270(a6)
  12358.     lea    -$108(a5),a0
  12359.     movea.l    a3,a1
  12360.     bsr.l    c9470
  12361.     move.l    d0,d7
  12362.     tst.l    d7
  12363.     bpl.s    c9822
  12364.     moveq    #-1,d0
  12365.     bra.l    c9B00
  12366.  
  12367. c9822:    tst.l    d7
  12368.     ble.s    c982C
  12369.     move.l    d7,d0
  12370.     jsr    cA6B6(pc)
  12371. c982C:    lea    -$108(a5),a0
  12372.     move.l    a0,d1
  12373.     movea.l    $420(a4),a6
  12374.     jsr    -$48(a6)
  12375.     moveq    #0,d0
  12376.     bra.l    c9B00
  12377.  
  12378. c9840:    move.l    -$118(a5),$44(a2)
  12379.     move.l    $10(a3),$34(a2)
  12380.     move.l    12(a3),$38(a2)
  12381.     moveq    #0,d0
  12382.     move.l    d0,$3C(a2)
  12383.     move.l    d0,$294(a4)
  12384.     move.l    $C0(a4),d1
  12385.     move.l    d1,$40(a2)
  12386.     move.l    $C0(a4),$30(a2)
  12387.     btst    #2,d7
  12388.     beq.s    c9874
  12389.     moveq    #-1,d1
  12390.     bra.s    c9876
  12391.  
  12392. c9874:    move.l    d0,d1
  12393. c9876:    move.w    d1,$4C(a2)
  12394.     btst    #0,d7
  12395.     beq.s    c98A4
  12396.     lea    -$108(a5),a0
  12397.     movea.l    a3,a1
  12398.     bsr.l    c9470
  12399.     move.l    d0,$48(a2)
  12400.     bne.s    c9896
  12401.     moveq    #4,d0
  12402.     bra.l    c9B00
  12403.  
  12404. c9896:    move.l    $48(a2),d0
  12405.     tst.l    d0
  12406.     bpl.s    c98A4
  12407.     moveq    #-1,d0
  12408.     bra.l    c9B00
  12409.  
  12410. c98A4:    move.w    $34(a3),d0
  12411.     tst.w    d0
  12412.     beq.s    c98BA
  12413.     subq.w    #1,d0
  12414.     beq.s    c98DA
  12415.     subq.w    #3,d0
  12416.     beq.s    c98FA
  12417.     subq.w    #1,d0
  12418.     beq.s    c98FA
  12419.     bra.s    c991A
  12420.  
  12421. c98BA:    move.l    a2,-(sp)
  12422.     jsr    c63B4(pc)
  12423.     addq.w    #4,sp
  12424.     tst.l    d0
  12425.     bpl.s    c98CA
  12426.     moveq    #3,d6
  12427.     bra.s    c9930
  12428.  
  12429. c98CA:    movea.l    a2,a0
  12430.     jsr    c6394(pc)
  12431.     movea.l    a2,a0
  12432.     jsr    c6F6A(pc)
  12433.     move.l    d0,d6
  12434.     bra.s    c9930
  12435.  
  12436. c98DA:    move.l    a2,-(sp)
  12437.     jsr    c63B4(pc)
  12438.     addq.w    #4,sp
  12439.     tst.l    d0
  12440.     bpl.s    c98EA
  12441.     moveq    #3,d6
  12442.     bra.s    c9930
  12443.  
  12444. c98EA:    movea.l    a2,a0
  12445.     jsr    c6394(pc)
  12446.     movea.l    a2,a0
  12447.     jsr    c68A6(pc)
  12448.     move.l    d0,d6
  12449.     bra.s    c9930
  12450.  
  12451. c98FA:    move.l    a2,-(sp)
  12452.     jsr    c63B4(pc)
  12453.     addq.w    #4,sp
  12454.     tst.l    d0
  12455.     bpl.s    c990A
  12456.     moveq    #3,d6
  12457.     bra.s    c9930
  12458.  
  12459. c990A:    movea.l    a2,a0
  12460.     jsr    c639A(pc)
  12461.     movea.l    a2,a0
  12462.     jsr    c76B4(pc)
  12463.     move.l    d0,d6
  12464.     bra.s    c9930
  12465.  
  12466. c991A:    move.l    $48(a2),d0
  12467.     jsr    cA6B6(pc)
  12468.     lea    -$108(a5),a0
  12469.     bsr.l    c96E4
  12470.     moveq    #1,d0
  12471.     bra.l    c9B00
  12472.  
  12473. c9930:    btst    #0,d7
  12474.     beq.s    c993E
  12475.     move.l    $48(a2),d0
  12476.     jsr    cA6B6(pc)
  12477. c993E:    tst.l    d6
  12478.     beq.s    c997A
  12479.     btst    #0,d7
  12480.     beq.s    c9950
  12481.     lea    -$108(a5),a0
  12482.     bsr.l    c96E4
  12483. c9950:    moveq    #2,d0
  12484.     cmp.l    d0,d6
  12485.     bne.s    c995C
  12486.     moveq    #5,d0
  12487.     bra.l    c9B00
  12488.  
  12489. c995C:    moveq    #3,d0
  12490.     cmp.l    d0,d6
  12491.     bne.s    c9968
  12492.     moveq    #2,d0
  12493.     bra.l    c9B00
  12494.  
  12495. c9968:    moveq    #4,d0
  12496.     cmp.l    d0,d6
  12497.     bne.s    c9974
  12498.     moveq    #8,d0
  12499.     bra.l    c9B00
  12500.  
  12501. c9974:    moveq    #2,d0
  12502.     bra.l    c9B00
  12503.  
  12504. c997A:    move.w    $2C(a3),d0
  12505.     cmp.w    $4E(a2),d0
  12506.     beq.s    c9998
  12507.     btst    #0,d7
  12508.     beq.s    c9992
  12509.     lea    -$108(a5),a0
  12510.     bsr.l    c96E4
  12511. c9992:    moveq    #3,d0
  12512.     bra.l    c9B00
  12513.  
  12514. c9998:    btst    #0,d7
  12515.     beq.l    c9AEE
  12516.     lea    $24(a3),a0
  12517.     lea    -$114(a5),a1
  12518.     jsr    c28E8(pc)
  12519.     lea    -$108(a5),a0
  12520.     lea    -$114(a5),a1
  12521.     jsr    cAC18(pc)
  12522.     tst.l    $D0(a4)
  12523.     beq.s    c99E6
  12524.     tst.l    $834(a4)
  12525.     beq.s    c99D0
  12526.     move.w    $22(a3),d0
  12527.     ext.l    d0
  12528.     andi.w    #$FFEF,d0
  12529.     bra.s    c99D6
  12530.  
  12531. c99D0:    move.w    $22(a3),d0
  12532.     ext.l    d0
  12533. c99D6:    move.l    d0,d2
  12534.     lea    -$108(a5),a0
  12535.     move.l    a0,d1
  12536.     movea.l    $420(a4),a6
  12537.     jsr    -$BA(a6)
  12538. c99E6:    tst.l    $84C(a4)
  12539.     bne.s    c9A04
  12540.     tst.l    $28(a3)
  12541.     beq.s    c9A04
  12542.     lea    -$108(a5),a0
  12543.     move.l    a0,d1
  12544.     move.l    $28(a3),d2
  12545.     movea.l    $420(a4),a6
  12546.     jsr    -$B4(a6)
  12547. c9A04:    tst.l    $CC(a4)
  12548.     bne.l    c9AFE
  12549.     movea.l    $1A(a3),a0
  12550. c9A10:    tst.b    (a0)+
  12551.     bne.s    c9A10
  12552.     subq.l    #1,a0
  12553.     suba.l    $1A(a3),a0
  12554.     move.l    a0,d0
  12555.     movea.l    $1A(a3),a1
  12556.     adda.l    d0,a1
  12557.     movea.l    a1,a2
  12558. c9A24:    movea.l    a2,a0
  12559.     subq.l    #1,a2
  12560.     cmpa.l    $1A(a3),a0
  12561.     beq.s    c9A34
  12562.     moveq    #$2E,d0
  12563.     cmp.b    (a2),d0
  12564.     bne.s    c9A24
  12565. c9A34:    tst.b    (a2)
  12566.     beq.l    c9AFE
  12567.     lea    displayme.MSG(pc),a0
  12568.     movea.l    a2,a1
  12569.     jsr    cA9E2(pc)
  12570.     tst.l    d0
  12571.     bne.l    c9AFE
  12572.     move.l    $1A(a3),-(sp)
  12573.     pea    con02640198Lh.MSG(pc)
  12574.     pea    $490(a4)
  12575.     jsr    c2374(pc)
  12576.     move.l    #$3EE,d0
  12577.     lea    $490(a4),a0
  12578.     jsr    cA6A4(pc)
  12579.     lea    12(sp),sp
  12580.     move.l    d0,d7
  12581.     tst.l    d7
  12582.     beq.s    c9AE2
  12583.     move.l    #$3ED,d0
  12584.     lea    -$108(a5),a0
  12585.     jsr    cA6A4(pc)
  12586.     move.l    d0,d6
  12587.     tst.l    d6
  12588.     beq.s    c9AD0
  12589.     bra.s    c9A9A
  12590.  
  12591. c9A88:    move.l    d7,d1
  12592.     lea    $490(a4),a0
  12593.     move.l    a0,d2
  12594.     move.l    d5,d3
  12595.     movea.l    $420(a4),a6
  12596.     jsr    -$30(a6)
  12597. c9A9A:    move.l    d6,d1
  12598.     lea    $490(a4),a0
  12599.     move.l    a0,d2
  12600.     move.l    #$100,d3
  12601.     movea.l    $420(a4),a6
  12602.     jsr    -$2A(a6)
  12603.     move.l    d0,d5
  12604.     tst.l    d5
  12605.     bgt.s    c9A88
  12606.     move.l    d6,d0
  12607.     jsr    cA6B6(pc)
  12608.     move.l    d7,d1
  12609.     lea    $490(a4),a0
  12610.     move.l    a0,d2
  12611.     moveq    #1,d3
  12612.     movea.l    $420(a4),a6
  12613.     jsr    -$2A(a6)
  12614.     bra.s    c9ADA
  12615.  
  12616. c9AD0:    pea    LhAUnabletore.MSG(pc)
  12617.     jsr    c2328(pc)
  12618.     addq.w    #4,sp
  12619. c9ADA:    move.l    d7,d0
  12620.     jsr    cA6B6(pc)
  12621.     bra.s    c9AFE
  12622.  
  12623. c9AE2:    pea    LhAUnabletoop.MSG(pc)
  12624.     jsr    c2328(pc)
  12625.     addq.w    #4,sp
  12626.     bra.s    c9AFE
  12627.  
  12628. c9AEE:    btst    #2,d7
  12629.     beq.s    c9AFE
  12630.     moveq    #$2E,d0
  12631.     lea    ENDOFFILE.MSG(pc),a0
  12632.     jsr    c24DA(pc)
  12633. c9AFE:    moveq    #0,d0
  12634. c9B00:    movem.l    (sp)+,d2/d3/d5-d7/a2/a3/a6
  12635.     unlk    a5
  12636.     rts
  12637.  
  12638. c9B08:    jmp    c1342
  12639.  
  12640.     moveq    #$61,d0
  12641. c9B10:    link.w    a5,#0
  12642.     movem.l    a2/a3,-(sp)
  12643.     movea.l    a0,a3
  12644.     movea.l    a1,a2
  12645.     tst.l    $864(a4)
  12646.     bne.l    c9BA4
  12647.     tst.l    $86C(a4)
  12648.     beq.s    c9B3E
  12649.     move.l    8(a5),-(sp)
  12650.     move.l    12(a3),-(sp)
  12651.     move.l    a2,-(sp)
  12652.     pea    FormStr2(pc)
  12653.     jsr    c2328(pc)
  12654.     bra.s    c9BA4
  12655.  
  12656. c9B3E:    move.l    $844(a4),d0
  12657.     moveq    #1,d1
  12658.     cmp.l    d1,d0
  12659.     blt.s    c9B4E
  12660.     moveq    #3,d1
  12661.     cmp.l    d1,d0
  12662.     ble.s    c9B68
  12663. c9B4E:    move.l    8(a5),-(sp)
  12664.     move.l    12(a3),-(sp)
  12665.     clr.l    -(sp)
  12666.     move.l    a2,-(sp)
  12667.     pea    FormsStr3(pc)
  12668.     jsr    c2328(pc)
  12669.     lea    $14(sp),sp
  12670.     bra.s    c9BA4
  12671.  
  12672. c9B68:    moveq    #2,d1
  12673.     cmp.l    d1,d0
  12674.     beq.s    c9B72
  12675.     subq.l    #1,d0
  12676.     bne.s    c9B86
  12677. c9B72:    move.l    $1A(a3),-(sp)
  12678.     move.l    a2,-(sp)
  12679.     pea    ssK.MSG(pc)
  12680.     jsr    c2328(pc)
  12681.     lea    12(sp),sp
  12682.     bra.s    c9BA4
  12683.  
  12684. c9B86:    moveq    #3,d0
  12685.     cmp.l    $844(a4),d0
  12686.     bne.s    c9BA4
  12687.     move.l    8(a5),-(sp)
  12688.     move.l    a2,-(sp)
  12689.     pea    l9BF4(pc)
  12690.     jsr    c2328(pc)
  12691.     jsr    c23FA(pc)
  12692.     lea    12(sp),sp
  12693. c9BA4:    movem.l    -8(a5),a2/a3
  12694.     unlk    a5
  12695.     rts
  12696.  
  12697. FormStr2:    dc.b    13
  12698.     dc.b    '%11s: (%8ld)  %s'
  12699.     dc.b    $1B
  12700.     dc.b    '[K',0,0
  12701. FormsStr3:    dc.b    13
  12702.     dc.b    '%11s: (%8ld/%8ld)  %s'
  12703.     dc.b    $1B
  12704.     dc.b    '[K',0
  12705. ssK.MSG:    dc.b    13
  12706.     dc.b    '%11s: (    ) %s '
  12707.     dc.b    $1B
  12708.     dc.b    '[K',0,0
  12709. l9BF4:    dc.l    $D253131
  12710.     dc.l    $733A207F
  12711.     dcb.l    $4,$7F7F7F7F
  12712.     dc.l    $7F7F2025
  12713.     dc.l    $731B5B4B
  12714.     dc.l    $D1B5B31
  12715.     dc.l    $32430000
  12716. FormatedStr:    dc.b    13
  12717.     dc.b    '%11s: (%2ld.%1ld%%) %7ld =>%7ld : %s'
  12718.     dc.b    $1B
  12719.     dc.b    '[K',0,0
  12720. Frozen.MSG:    dc.b    'Frozen',0,0
  12721. Stored.MSG:    dc.b    'Stored',0,0
  12722. ascii.MSG4:    dc.b    10
  12723.     dc.b    0
  12724. FormStr:    dc.b    13
  12725.     dc.b    $1B
  12726.     dc.b    '[14C%8ld',0,0
  12727. l9C64:    dc.l    $D1B5B31
  12728.     dc.l    $35432563
  12729.     dc.w    $800
  12730. l9C6E:    dc.l    $D1B5B31
  12731.     dc.l    $34432533
  12732.     dc.l    $6C642525
  12733.     dc.l    $8080808
  12734.     dc.w    0
  12735. C.MSG:    dc.b    13
  12736.     dc.b    $1B
  12737.     dc.b    '[13C',0,0
  12738. UnderScores:    dc.b    '_____________________',0
  12739.  
  12740. c9C9E:    link.w    a5,#-8
  12741.     movem.l    d7/a3,-(sp)
  12742.     movea.l    a0,a3
  12743.     tst.l    $864(a4)
  12744.     bne.s    c9D1A
  12745.     movea.l    a3,a0
  12746.     lea    $590(a4),a1
  12747.     jsr    c5282(pc)
  12748.     move.l    12(a3),d0
  12749.     move.l    $10(a3),d1
  12750.     jsr    c2246(pc)
  12751.     move.l    d0,d7
  12752.     tst.w    $34(a3)
  12753.     beq.s    c9CD2
  12754.     lea    Frozen.MSG(pc),a0
  12755.     bra.s    c9CD6
  12756.  
  12757. c9CD2:    lea    Stored.MSG(pc),a0
  12758. c9CD6:    move.l    d7,d0
  12759.     moveq    #10,d1
  12760.     jsr    cAF2C(pc)
  12761.     move.l    d0,12(sp)
  12762.     move.l    d7,d0
  12763.     moveq    #10,d1
  12764.     jsr    cAF2C(pc)
  12765.     pea    $590(a4)
  12766.     move.l    $10(a3),-(sp)
  12767.     move.l    12(a3),-(sp)
  12768.     move.l    d1,-(sp)
  12769.     move.l    $1C(sp),-(sp)
  12770.     move.l    a0,-(sp)
  12771.     pea    FormatedStr(pc)
  12772.     jsr    c2328(pc)
  12773.     lea    $1C(sp),sp
  12774.     tst.l    $E4(a4)
  12775.     beq.s    c9D1A
  12776.     pea    ascii.MSG4(pc)
  12777.     jsr    c2328(pc)
  12778.     addq.w    #4,sp
  12779. c9D1A:    movem.l    (sp)+,d7/a3
  12780.     unlk    a5
  12781.     rts
  12782.  
  12783. c9D22:    link.w    a5,#-8
  12784.     movem.l    d2/d3/d5-d7/a3/a6,-(sp)
  12785.     move.l    d0,d7
  12786.     move.l    d1,d6
  12787.     movea.l    a0,a3
  12788.     tst.l    $864(a4)
  12789.     bne.s    c9D3C
  12790.     tst.l    $86C(a4)
  12791.     beq.s    c9D42
  12792. c9D3C:    moveq    #0,d0
  12793.     bra.l    c9DEC
  12794.  
  12795. c9D42:    move.l    $844(a4),d0
  12796.     subq.l    #1,d0
  12797.     beq.s    c9D62
  12798.     subq.l    #1,d0
  12799.     beq.s    c9D8C
  12800.     subq.l    #1,d0
  12801.     beq.s    c9DA8
  12802.     move.l    d7,-(sp)
  12803.     pea    FormStr(pc)
  12804.     jsr    c2328(pc)
  12805.     addq.w    #8,sp
  12806.     bra.l    c9DEA
  12807.  
  12808. c9D62:    move.w    $37C(a4),d0
  12809.     addq.w    #1,d0
  12810.     andi.w    #3,d0
  12811.     moveq    #0,d1
  12812.     lea    $37E(a4),a0
  12813.     move.b    0(a0,d0.w),d1
  12814.     swap    d1
  12815.     clr.w    d1
  12816.     move.l    d1,-(sp)
  12817.     pea    l9C64(pc)
  12818.     move.w    d0,$37C(a4)
  12819.     jsr    c2328(pc)
  12820.     addq.w    #8,sp
  12821.     bra.s    c9DEA
  12822.  
  12823. c9D8C:    move.l    d7,d0
  12824.     moveq    #$64,d1
  12825.     jsr    cAF0C(pc)
  12826.     move.l    d6,d1
  12827.     jsr    cAF2C(pc)
  12828.     move.l    d0,-(sp)
  12829.     pea    l9C6E(pc)
  12830.     jsr    c2328(pc)
  12831.     addq.w    #8,sp
  12832.     bra.s    c9DEA
  12833.  
  12834. c9DA8:    move.l    d7,d0
  12835.     moveq    #$14,d1
  12836.     jsr    cAF0C(pc)
  12837.     move.l    d6,d1
  12838.     jsr    cAF2C(pc)
  12839.     subq.l    #1,d0
  12840.     move.l    d0,d5
  12841.     cmp.w    (a3),d5
  12842.     ble.s    c9DEA
  12843.     pea    C.MSG(pc)
  12844.     jsr    c2328(pc)
  12845.     addq.w    #4,sp
  12846.     movea.l    $420(a4),a6
  12847.     jsr    -$3C(a6)
  12848.     move.l    d5,d1
  12849.     ext.l    d1
  12850.     move.l    d1,$20(sp)
  12851.     move.l    d0,d1
  12852.     lea    UnderScores(pc),a0
  12853.     move.l    a0,d2
  12854.     move.l    $20(sp),d3
  12855.     jsr    -$30(a6)
  12856.     move.w    d5,(a3)
  12857. c9DEA:    moveq    #0,d0
  12858. c9DEC:    movem.l    (sp)+,d2/d3/d5-d7/a3/a6
  12859.     unlk    a5
  12860.     rts
  12861.  
  12862. c9DF4:    move.l    d7,-(sp)
  12863.     move.l    d0,d7
  12864.     moveq    #0,d0
  12865.     move.l    d0,$AD0(a4)
  12866.     move.l    d0,$ACC(a4)
  12867.     move.l    d0,$AC8(a4)
  12868.     jsr    c2628(pc)
  12869.     move.l    d0,$EC(a4)
  12870.     moveq    #1,d0
  12871.     cmp.l    d0,d7
  12872.     beq.s    c9E18
  12873.     tst.l    d7
  12874.     bne.s    c9E24
  12875. c9E18:    pea    OriginalPacke.MSG(pc)
  12876.     jsr    c2328(pc)
  12877.     addq.w    #4,sp
  12878.     bra.s    c9E2E
  12879.  
  12880. c9E24:    pea    OriginalPacke.MSG0(pc)
  12881.     jsr    c2328(pc)
  12882.     addq.w    #4,sp
  12883. c9E2E:    moveq    #0,d0
  12884.     move.l    (sp)+,d7
  12885.     rts
  12886.  
  12887. OriginalPacke.MSG:    dc.b    'Original  Packed Ratio    Date     Time    N'
  12888.     dc.b    'ame',$A
  12889.     dc.b    '-------- ------- ----- --------- --------  -'
  12890.     dc.b    '------------',$A,0
  12891. OriginalPacke.MSG0:    dc.b    'Original  Packed Ratio    Date     Time     '
  12892.     dc.b    'Atts   Method CRC  L OS  ',$A
  12893.     dc.b    '-------- ------- ----- --------- -------- --'
  12894.     dc.b    '------ ------ ---- ------',$A,0
  12895.     dc.b    0
  12896. s8ld7ld2ld1ld.MSG:    dc.b    '%s',$A
  12897.     dc.b    '%8ld %7ld %2ld.%1ld%% %02ld-%3s-%02ld %02ld:'
  12898.     dc.b    '%02ld:%02ld %8s %6s %04lx %ld %lc %lc',$A,0
  12899. s.MSG:    dc.b    ': %s',$A,0
  12900. ld7ld2ld1ld02.MSG:    dc.b    '%8ld %7ld %2ld.%1ld%% %02ld-%3s-%02ld %02ld:'
  12901.     dc.b    '%02ld:%02ld %s',$A,0
  12902. ld7ld2ld1ld02.MSG0:    dc.b    '-------- ------- ----- --------- --------',$A
  12903.     dc.b    '%8ld %7ld %2ld.%1ld%% %02ld-%3s-%02ld %02ld:'
  12904.     dc.b    '%02ld:%02ld   %ld files',$A,$A,0
  12905.  
  12906. cA034:    link.w    a5,#-$34
  12907.     movem.l    d2-d7/a3/a6,-(sp)
  12908.     movea.l    a1,a3
  12909.     move.l    d0,d7
  12910.     move.l    a0,-$1A(a5)
  12911.     move.l    12(a3),d0
  12912.     move.l    $10(a3),d1
  12913.     jsr    c2246(pc)
  12914.     ext.l    d0
  12915.     moveq    #10,d1
  12916.     move.l    d0,$24(sp)
  12917.     jsr    cAF2C(pc)
  12918.     move.l    d1,d4
  12919.     move.l    $24(sp),d0
  12920.     moveq    #10,d1
  12921.     jsr    cAF2C(pc)
  12922.     move.l    d0,$20(sp)
  12923.     moveq    #2,d1
  12924.     cmp.l    d1,d7
  12925.     bne.l    cA192
  12926.     move.w    $22(a3),d1
  12927.     ext.l    d1
  12928.     move.l    d1,d0
  12929.     lea    -$15(a5),a0
  12930.     jsr    c2392(pc)
  12931.     move.l    $1E(a3),d0
  12932.     beq.s    cA096
  12933.     movea.l    d0,a0
  12934.     lea    $490(a4),a1
  12935. cA090:    move.b    (a0)+,(a1)+
  12936.     bne.s    cA090
  12937.     bra.s    cA09A
  12938.  
  12939. cA096:    clr.b    $490(a4)
  12940. cA09A:    lea    $490(a4),a0
  12941.     movea.l    $1A(a3),a1
  12942.     movea.l    $424(a4),a6
  12943.     jsr    -$270(a6)
  12944.     moveq    #0,d7
  12945.     move.w    $2C(a3),d7
  12946.     move.w    $2E(a3),d0
  12947.     ext.l    d0
  12948.     move.l    d0,d6
  12949.     moveq    #7,d1
  12950.     and.l    d1,d6
  12951.     moveq    #0,d5
  12952.     move.b    $36(a3),d5
  12953.     btst    #3,$2F(a3)
  12954.     beq.s    cA0CE
  12955.     moveq    #$58,d0
  12956.     bra.s    cA0D0
  12957.  
  12958. cA0CE:    moveq    #$20,d0
  12959. cA0D0:    lea    $14(a3),a0
  12960.     move.l    $24(a3),d1
  12961.     andi.l    #$1F,d1
  12962.     add.l    d1,d1
  12963.     move.l    $24(a3),d2
  12964.     lsr.l    #5,d2
  12965.     andi.l    #$3F,d2
  12966.     move.l    $24(a3),d3
  12967.     lsr.l    #8,d3
  12968.     lsr.l    #3,d3
  12969.     andi.l    #$1F,d3
  12970.     move.l    d0,$24(sp)
  12971.     move.l    $24(a3),d0
  12972.     clr.w    d0
  12973.     swap    d0
  12974.     lsr.l    #8,d0
  12975.     lsr.l    #1,d0
  12976.     andi.l    #$7F,d0
  12977.     move.l    d1,$2C(sp)
  12978.     moveq    #$50,d1
  12979.     add.l    d1,d0
  12980.     move.l    $24(a3),d1
  12981.     clr.w    d1
  12982.     swap    d1
  12983.     lsr.l    #5,d1
  12984.     andi.l    #15,d1
  12985.     asl.l    #2,d1
  12986.     lea    $380(a4),a1
  12987.     adda.l    d1,a1
  12988.     move.l    $24(a3),d1
  12989.     clr.w    d1
  12990.     swap    d1
  12991.     andi.l    #$1F,d1
  12992.     move.l    $24(sp),-(sp)
  12993.     move.l    d5,-(sp)
  12994.     move.l    d6,-(sp)
  12995.     move.l    d7,-(sp)
  12996.     move.l    a0,-(sp)
  12997.     pea    -$15(a5)
  12998.     move.l    $44(sp),-(sp)
  12999.     move.l    d2,-(sp)
  13000.     move.l    d3,-(sp)
  13001.     move.l    d0,-(sp)
  13002.     move.l    a1,-(sp)
  13003.     move.l    d1,-(sp)
  13004.     move.l    d4,-(sp)
  13005.     move.l    $54(sp),-(sp)
  13006.     move.l    $10(a3),-(sp)
  13007.     move.l    12(a3),-(sp)
  13008.     pea    $490(a4)
  13009.     pea    s8ld7ld2ld1ld.MSG(pc)
  13010.     jsr    c2328(pc)
  13011.     lea    $48(sp),sp
  13012.     move.l    $28(a3),d0
  13013.     beq.l    cA286
  13014.     move.l    d0,-(sp)
  13015.     pea    s.MSG(pc)
  13016.     jsr    c2328(pc)
  13017.     addq.w    #8,sp
  13018.     bra.l    cA286
  13019.  
  13020. cA192:    move.b    #$20,$490(a4)
  13021.     tst.l    d7
  13022.     beq.s    cA1C4
  13023.     move.l    $1E(a3),d1
  13024.     beq.s    cA1AE
  13025.     movea.l    d1,a0
  13026.     lea    $491(a4),a1
  13027. cA1A8:    move.b    (a0)+,(a1)+
  13028.     bne.s    cA1A8
  13029.     bra.s    cA1B2
  13030.  
  13031. cA1AE:    clr.b    $491(a4)
  13032. cA1B2:    lea    $491(a4),a0
  13033.     movea.l    $1A(a3),a1
  13034.     movea.l    $424(a4),a6
  13035.     jsr    -$270(a6)
  13036.     bra.s    cA1DC
  13037.  
  13038. cA1C4:    movea.l    $1A(a3),a0
  13039.     lea    $491(a4),a1
  13040. cA1CC:    move.b    (a0)+,(a1)+
  13041.     bne.s    cA1CC
  13042.     tst.l    $1E(a3)
  13043.     beq.s    cA1DC
  13044.     move.b    #$2B,$490(a4)
  13045. cA1DC:    move.l    $24(a3),d0
  13046.     clr.w    d0
  13047.     swap    d0
  13048.     andi.l    #$1F,d0
  13049.     move.l    $24(a3),d1
  13050.     clr.w    d1
  13051.     swap    d1
  13052.     lsr.l    #5,d1
  13053.     andi.l    #15,d1
  13054.     asl.l    #2,d1
  13055.     lea    $380(a4),a0
  13056.     adda.l    d1,a0
  13057.     move.l    $24(a3),d1
  13058.     clr.w    d1
  13059.     swap    d1
  13060.     lsr.l    #8,d1
  13061.     lsr.l    #1,d1
  13062.     andi.l    #$7F,d1
  13063.     moveq    #$50,d2
  13064.     add.l    d2,d1
  13065.     move.l    $24(a3),d2
  13066.     lsr.l    #8,d2
  13067.     lsr.l    #3,d2
  13068.     andi.l    #$1F,d2
  13069.     move.l    $24(a3),d3
  13070.     lsr.l    #5,d3
  13071.     andi.l    #$3F,d3
  13072.     move.l    d3,$34(sp)
  13073.     move.l    $24(a3),d3
  13074.     andi.l    #$1F,d3
  13075.     add.l    d3,d3
  13076.     pea    $490(a4)
  13077.     move.l    d3,-(sp)
  13078.     move.l    $3C(sp),-(sp)
  13079.     move.l    d2,-(sp)
  13080.     move.l    d1,-(sp)
  13081.     move.l    a0,-(sp)
  13082.     move.l    d0,-(sp)
  13083.     move.l    d4,-(sp)
  13084.     move.l    $40(sp),-(sp)
  13085.     move.l    $10(a3),-(sp)
  13086.     move.l    12(a3),-(sp)
  13087.     pea    ld7ld2ld1ld02.MSG(pc)
  13088.     jsr    c2328(pc)
  13089.     lea    $30(sp),sp
  13090.     tst.l    d7
  13091.     beq.s    cA286
  13092.     tst.l    $28(a3)
  13093.     beq.s    cA286
  13094.     move.l    $28(a3),-(sp)
  13095.     pea    s.MSG(pc)
  13096.     jsr    c2328(pc)
  13097.     addq.w    #8,sp
  13098. cA286:    addq.l    #1,$AD0(a4)
  13099.     move.l    $10(a3),d0
  13100.     add.l    d0,$AC8(a4)
  13101.     move.l    12(a3),d0
  13102.     add.l    d0,$ACC(a4)
  13103.     moveq    #0,d0
  13104.     movem.l    (sp)+,d2-d7/a3/a6
  13105.     unlk    a5
  13106.     rts
  13107.  
  13108. cA2A4:    link.w    a5,#-12
  13109.     movem.l    d2-d5/a3/a6,-(sp)
  13110.     movea.l    a0,a3
  13111.     move.l    #$104,d0
  13112.     moveq    #1,d1
  13113.     jsr    cA81C(pc)
  13114.     move.l    d0,$18(sp)
  13115.     tst.l    d0
  13116.     beq.s    cA2FC
  13117.     moveq    #-2,d0
  13118.     movea.l    a3,a0
  13119.     jsr    cAD74(pc)
  13120.     move.l    d0,$1C(sp)
  13121.     move.l    d0,d1
  13122.     move.l    $18(sp),d2
  13123.     movea.l    $420(a4),a6
  13124.     jsr    -$66(a6)
  13125.     move.l    $1C(sp),d0
  13126.     jsr    cAD7A(pc)
  13127.     movea.l    $18(sp),a0
  13128.     adda.w    #$84,a0
  13129.     lea    -4(a5),a1
  13130.     jsr    c26D6(pc)
  13131.     movea.l    $18(sp),a0
  13132.     jsr    cA894(pc)
  13133. cA2FC:    move.l    $ACC(a4),d0
  13134.     move.l    $AC8(a4),d1
  13135.     jsr    cA3B8(pc)
  13136.     ext.l    d0
  13137.     moveq    #10,d1
  13138.     move.l    d0,$18(sp)
  13139.     jsr    cAF2C(pc)
  13140.     move.l    $18(sp),d1
  13141.     move.l    d0,$1C(sp)
  13142.     move.l    d1,d0
  13143.     moveq    #10,d1
  13144.     jsr    cAF2C(pc)
  13145.     move.l    -4(a5),d0
  13146.     clr.w    d0
  13147.     swap    d0
  13148.     andi.l    #$1F,d0
  13149.     move.l    -4(a5),d2
  13150.     clr.w    d2
  13151.     swap    d2
  13152.     lsr.l    #5,d2
  13153.     andi.l    #15,d2
  13154.     asl.l    #2,d2
  13155.     lea    $380(a4),a0
  13156.     adda.l    d2,a0
  13157.     move.l    -4(a5),d2
  13158.     clr.w    d2
  13159.     swap    d2
  13160.     lsr.l    #8,d2
  13161.     lsr.l    #1,d2
  13162.     andi.l    #$7F,d2
  13163.     moveq    #$50,d3
  13164.     add.l    d3,d2
  13165.     move.l    -4(a5),d3
  13166.     lsr.l    #8,d3
  13167.     lsr.l    #3,d3
  13168.     andi.l    #$1F,d3
  13169.     move.l    -4(a5),d4
  13170.     lsr.l    #5,d4
  13171.     andi.l    #$3F,d4
  13172.     move.l    -4(a5),d5
  13173.     andi.l    #$1F,d5
  13174.     add.l    d5,d5
  13175.     move.l    $AD0(a4),-(sp)
  13176.     move.l    d5,-(sp)
  13177.     move.l    d4,-(sp)
  13178.     move.l    d3,-(sp)
  13179.     move.l    d2,-(sp)
  13180.     move.l    a0,-(sp)
  13181.     move.l    d0,-(sp)
  13182.     move.l    d1,-(sp)
  13183.     move.l    $3C(sp),-(sp)
  13184.     move.l    $AC8(a4),-(sp)
  13185.     move.l    $ACC(a4),-(sp)
  13186.     pea    ld7ld2ld1ld02.MSG0(pc)
  13187.     jsr    cAF04(pc)
  13188.     movem.l    -$24(a5),d2-d5/a3/a6
  13189.     unlk    a5
  13190.     rts
  13191.  
  13192.     dc.w    0
  13193.  
  13194. cA3B8:    jmp    c2246
  13195.  
  13196.     jmp    c26D6
  13197.  
  13198.     jmp    c2392
  13199.  
  13200.     jmp    c2628
  13201.  
  13202. cA3D0:    suba.l    a0,a0
  13203.     move.l    a0,$AD8(a4)
  13204.     move.l    a0,$AD4(a4)
  13205.     rts
  13206.  
  13207. LhAUnabletoop.MSG1:    dc.b    10
  13208.     dc.b    '*** LhA: Unable to open temporary archive fi'
  13209.     dc.b    'le',$A,0
  13210.     dc.b    0
  13211. LhACouldnotre.MSG:    dc.b    10
  13212.     dc.b    '*** LhA: Could not re-open archive `%s''.',$A,0
  13213.     dc.b    0
  13214. LhAIOerrorwhi.MSG:    dc.b    10
  13215.     dc.b    '*** LhA: I/O error while copying from archiv'
  13216.     dc.b    'e to temporary',$A,0
  13217.     dc.b    0
  13218. Deletings.MSG:    dc.b    '  Deleting ''%s''',$A,0
  13219.     dc.b    0
  13220. Packingarchiv.MSG:    dc.b    'Packing archive...',$A,0
  13221. LhANofilesdel.MSG:    dc.b    '*** LhA: No files deleted from archive.',$A,0
  13222.     dc.b    0
  13223.  
  13224. cA4C8:    movem.l    d2/a2/a3,-(sp)
  13225.     movea.l    a0,a3
  13226.     tst.l    $AD4(a4)
  13227.     beq.s    cA4FA
  13228.     movea.l    $AD4(a4),a0
  13229.     move.l    4(a0),d0
  13230.     move.l    8(a0),d1
  13231.     add.l    d0,d1
  13232.     move.l    8(a3),d2
  13233.     cmp.l    d2,d1
  13234.     bne.s    cA4FA
  13235.     move.l    $30(a3),d1
  13236.     add.l    $10(a3),d1
  13237.     sub.l    d2,d1
  13238.     add.l    d1,4(a0)
  13239.     bra.s    cA536
  13240.  
  13241. cA4FA:    moveq    #12,d0
  13242.     jsr    cA7AA(pc)
  13243.     movea.l    d0,a2
  13244.     move.l    8(a3),d0
  13245.     move.l    d0,8(a2)
  13246.     move.l    $30(a3),d0
  13247.     add.l    $10(a3),d0
  13248.     sub.l    8(a3),d0
  13249.     move.l    d0,4(a2)
  13250.     clr.l    (a2)
  13251.     tst.l    $AD4(a4)
  13252.     beq.s    cA528
  13253.     movea.l    $AD4(a4),a0
  13254.     move.l    a2,(a0)
  13255. cA528:    move.l    a2,$AD4(a4)
  13256.     tst.l    $AD8(a4)
  13257.     bne.s    cA536
  13258.     move.l    a2,$AD8(a4)
  13259. cA536:    movem.l    (sp)+,d2/a2/a3
  13260.     rts
  13261.  
  13262. cA53C:    link.w    a5,#-$10
  13263.     movem.l    d2/d3/d7/a2/a3/a6,-(sp)
  13264.     move.l    a0,-$10(a5)
  13265.     movea.l    $AD8(a4),a3
  13266.     jsr    cA6C2(pc)
  13267.     movea.l    d0,a2
  13268.     move.l    a2,d0
  13269.     bne.s    cA564
  13270.     pea    LhAUnabletoop.MSG1(pc)
  13271.     jsr    cAF04(pc)
  13272.     moveq    #0,d0
  13273.     bra.l    cA5E4
  13274.  
  13275. cA564:    move.l    #$3ED,d0
  13276.     movea.l    -$10(a5),a0
  13277.     jsr    cA6A4(pc)
  13278.     move.l    d0,d7
  13279.     tst.l    d7
  13280.     bne.s    cA5CE
  13281.     move.l    -$10(a5),-(sp)
  13282.     pea    LhACouldnotre.MSG(pc)
  13283.     jsr    cAF04(pc)
  13284.     movea.l    a2,a0
  13285.     jsr    cA6C8(pc)
  13286.     moveq    #0,d0
  13287.     bra.s    cA5E4
  13288.  
  13289. cA58E:    move.l    d7,d1
  13290.     move.l    8(a3),d2
  13291.     moveq    #-1,d3
  13292.     movea.l    $420(a4),a6
  13293.     jsr    Seek(a6)
  13294.     move.l    d7,d0
  13295.     move.l    4(a3),d1
  13296.     movea.l    a2,a0
  13297.     jsr    cA6CE(pc)
  13298.     tst.l    d0
  13299.     bpl.s    cA5C6
  13300.     pea    LhAIOerrorwhi.MSG(pc)
  13301.     jsr    cAF04(pc)
  13302.     bset    #5,$1B(a2)
  13303.     movea.l    a2,a0
  13304.     jsr    cA6C8(pc)
  13305.     moveq    #0,d0
  13306.     bra.s    cA5E4
  13307.  
  13308. cA5C6:    movea.l    a3,a0
  13309.     movea.l    (a0),a3
  13310.     jsr    cA894(pc)
  13311. cA5CE:    move.l    a3,d0
  13312.     bne.s    cA58E
  13313.     move.l    d7,d0
  13314.     jsr    cA6B6(pc)
  13315.     suba.l    a0,a0
  13316.     move.l    a0,$AD4(a4)
  13317.     move.l    a0,$AD8(a4)
  13318.     move.l    a2,d0
  13319. cA5E4:    movem.l    -$28(a5),d2/d3/d7/a2/a3/a6
  13320.     unlk    a5
  13321.     rts
  13322.  
  13323. cA5EE:    link.w    a5,#-4
  13324.     move.l    a0,-4(a5)
  13325.     bsr.l    cA3D0
  13326.     moveq    #0,d0
  13327.     move.l    d0,$ADC(a4)
  13328.     unlk    a5
  13329.     rts
  13330.  
  13331. cA604:    link.w    a5,#-8
  13332.     move.l    a3,-(sp)
  13333.     movea.l    a1,a3
  13334.     movem.l    d0/a0,-8(a5)
  13335.     moveq    #1,d0
  13336.     move.l    d0,$ADC(a4)
  13337.     movea.l    a3,a0
  13338.     lea    $490(a4),a1
  13339.     jsr    c5282(pc)
  13340.     pea    $490(a4)
  13341.     pea    Deletings.MSG(pc)
  13342.     jsr    cAF04(pc)
  13343.     moveq    #0,d0
  13344.     movea.l    -12(a5),a3
  13345.     unlk    a5
  13346.     rts
  13347.  
  13348. cA638:    link.w    a5,#-8
  13349.     move.l    a3,-(sp)
  13350.     movea.l    a1,a3
  13351.     movem.l    d0/a0,-8(a5)
  13352.     movea.l    a3,a0
  13353.     bsr.l    cA4C8
  13354.     moveq    #0,d0
  13355.     movea.l    (sp)+,a3
  13356.     unlk    a5
  13357.     rts
  13358.  
  13359. cA654:    movem.l    a2/a3,-(sp)
  13360.     movea.l    a0,a3
  13361.     tst.l    $ADC(a4)
  13362.     beq.s    cA69A
  13363.     pea    Packingarchiv.MSG(pc)
  13364.     jsr    cAF04(pc)
  13365.     movea.l    a3,a0
  13366.     bsr.l    cA53C
  13367.     addq.w    #4,sp
  13368.     movea.l    d0,a2
  13369.     move.l    a2,d0
  13370.     bne.s    cA684
  13371.     pea    LhANofilesdel.MSG(pc)
  13372.     jsr    cAF04(pc)
  13373.     addq.w    #4,sp
  13374.     moveq    #-1,d0
  13375.     bra.s    cA69C
  13376.  
  13377. cA684:    moveq    #0,d0
  13378.     movea.l    a2,a0
  13379.     jsr    cA6B0(pc)
  13380.     movea.l    a2,a0
  13381.     jsr    cA6BC(pc)
  13382.     movea.l    a2,a0
  13383.     movea.l    a3,a1
  13384.     jsr    cA6AA(pc)
  13385. cA69A:    moveq    #0,d0
  13386. cA69C:    movem.l    (sp)+,a2/a3
  13387.     rts
  13388.  
  13389.     dc.w    0
  13390.  
  13391. cA6A4:    jmp    c1276
  13392.  
  13393. cA6AA:    jmp    c146C
  13394.  
  13395. cA6B0:    jmp    c1FB4
  13396.  
  13397. cA6B6:    jmp    c12BC
  13398.  
  13399. cA6BC:    jmp    c20F2
  13400.  
  13401. cA6C2:    jmp    c1414
  13402.  
  13403. cA6C8:    jmp    c1732
  13404.  
  13405. cA6CE:    jmp    c1DF6
  13406.  
  13407. cA6D4:    movem.l    a2/a3/a6,-(sp)
  13408.     movea.l    d0,a3
  13409.     move.l    a3,-(sp)
  13410.     lea    cA6F2(pc),a2
  13411.     movea.l    4,a6
  13412.     jsr    RawDoFmt(a6)
  13413.     move.l    a3,d0
  13414.     sub.l    (sp)+,d0
  13415.     movem.l    (sp)+,a2/a3/a6
  13416.     rts
  13417.  
  13418. cA6F2:    move.b    d0,(a3)+
  13419.     clr.b    (a3)
  13420.     rts
  13421.  
  13422. cA6F8:    lea    $AE0(a4),a0
  13423.     jsr    cA900(pc)
  13424.     rts
  13425.  
  13426. FATALERRORUna.MSG:    dc.b    10
  13427.     dc.b    'FATAL ERROR: Unable to allocate %ld bytes of'
  13428.     dc.b    ' memory.'
  13429.     dc.b    $1B
  13430.     dc.b    '[K',$A,0
  13431. PressRETURNto.MSG:    dc.b    ' - Press RETURN to retry, or Q to Quit LhA: '
  13432.     dc.b    '(RETURN/Q)',0,0
  13433.  
  13434. cA774:    link.w    a5,#-4
  13435.     movem.l    a3/a6,-(sp)
  13436.     movea.l    $AE0(a4),a3
  13437.     bra.s    cA79A
  13438.  
  13439. cA782:    movea.l    (a3),a0
  13440.     move.l    a0,8(sp)
  13441.     movea.l    a3,a1
  13442.     move.l    8(a1),d0
  13443.     movea.l    4,a6
  13444.     jsr    FreeMem(a6)
  13445.     movea.l    8(sp),a3
  13446. cA79A:    lea    $AE0(a4),a0
  13447.     cmpa.l    a0,a3
  13448.     bne.s    cA782
  13449.     movem.l    (sp)+,a3/a6
  13450.     unlk    a5
  13451.     rts
  13452.  
  13453. cA7AA:    movem.l    d6/d7/a3/a6,-(sp)
  13454.     move.l    d0,d7
  13455.     move.l    d7,d6
  13456.     moveq    #12,d0
  13457.     add.l    d0,d6
  13458. cA7B6:    move.l    d6,d0
  13459.     moveq    #1,d1
  13460.     movea.l    4,a6
  13461.     jsr    AllocMem(a6)
  13462.     movea.l    d0,a3
  13463.     move.l    a3,d0
  13464.     bne.s    cA802
  13465.     pea    FATALERRORUna.MSG(pc)
  13466.     jsr    cAF04(pc)
  13467.     addq.w    #4,sp
  13468.     tst.l    $868(a4)
  13469.     bne.s    cA7FC
  13470.     move.l    d7,-(sp)
  13471.     pea    PressRETURNto.MSG(pc)
  13472.     jsr    cAF04(pc)
  13473.     jsr    cA906(pc)
  13474.     addq.w    #8,sp
  13475.     moveq    #$51,d1
  13476.     cmp.b    d1,d0
  13477.     beq.s    cA7F4
  13478.     moveq    #$71,d1
  13479.     cmp.b    d1,d0
  13480.     bne.s    cA7B6
  13481. cA7F4:    moveq    #$28,d0
  13482.     jsr    cA8F4(pc)
  13483.     bra.s    cA7B6
  13484.  
  13485. cA7FC:    moveq    #$28,d0
  13486.     jsr    cA8F4(pc)
  13487. cA802:    move.l    d6,8(a3)
  13488.     movea.l    a3,a0
  13489.     lea    $AE0(a4),a1
  13490.     jsr    cA90C(pc)
  13491.     lea    12(a3),a0
  13492.     move.l    a0,d0
  13493.     movem.l    (sp)+,d6/d7/a3/a6
  13494.     rts
  13495.  
  13496. cA81C:    movem.l    d6/d7/a3/a6,-(sp)
  13497.     move.l    d0,d7
  13498.     move.l    d7,d6
  13499.     moveq    #12,d0
  13500.     add.l    d0,d6
  13501. cA828:    move.l    d6,d0
  13502.     move.l    #$10001,d1
  13503.     movea.l    4,a6
  13504.     jsr    -$C6(a6)
  13505.     movea.l    d0,a3
  13506.     move.l    a3,d0
  13507.     bne.s    cA87A
  13508.     move.l    d7,-(sp)
  13509.     pea    FATALERRORUna.MSG(pc)
  13510.     jsr    cAF04(pc)
  13511.     addq.w    #8,sp
  13512.     tst.l    $868(a4)
  13513.     bne.s    cA874
  13514.     move.l    d7,-(sp)
  13515.     pea    PressRETURNto.MSG(pc)
  13516.     jsr    cAF04(pc)
  13517.     jsr    cA906(pc)
  13518.     addq.w    #8,sp
  13519.     moveq    #$51,d1
  13520.     cmp.b    d1,d0
  13521.     beq.s    cA86C
  13522.     moveq    #$71,d1
  13523.     cmp.b    d1,d0
  13524.     bne.s    cA828
  13525. cA86C:    moveq    #$28,d0
  13526.     jsr    cA8F4(pc)
  13527.     bra.s    cA828
  13528.  
  13529. cA874:    moveq    #$28,d0
  13530.     jsr    cA8F4(pc)
  13531. cA87A:    move.l    d6,8(a3)
  13532.     movea.l    a3,a0
  13533.     lea    $AE0(a4),a1
  13534.     jsr    cA90C(pc)
  13535.     lea    12(a3),a0
  13536.     move.l    a0,d0
  13537.     movem.l    (sp)+,d6/d7/a3/a6
  13538.     rts
  13539.  
  13540. cA894:    link.w    a5,#-8
  13541.     move.l    a6,-(sp)
  13542.     move.l    a0,-4(a5)
  13543.     movea.l    -4(a5),a0
  13544.     suba.w    #12,a0
  13545.     move.l    a0,4(sp)
  13546.     jsr    cA8FA(pc)
  13547.     movea.l    4(sp),a1
  13548.     move.l    8(a1),d0
  13549.     movea.l    4,a6
  13550.     jsr    -$D2(a6)
  13551.     movea.l    (sp)+,a6
  13552.     unlk    a5
  13553.     rts
  13554.  
  13555. cA8C4:    movem.l    a2/a3,-(sp)
  13556.     movea.l    a0,a3
  13557.     movea.l    a3,a0
  13558. cA8CC:    tst.b    (a0)+
  13559.     bne.s    cA8CC
  13560.     subq.l    #1,a0
  13561.     suba.l    a3,a0
  13562.     move.l    a0,d0
  13563.     addq.l    #1,d0
  13564.     bsr.l    cA7AA
  13565.     movea.l    d0,a2
  13566.     move.l    a2,d0
  13567.     beq.s    cA8EA
  13568.     movea.l    a3,a0
  13569.     movea.l    a2,a1
  13570. cA8E6:    move.b    (a0)+,(a1)+
  13571.     bne.s    cA8E6
  13572. cA8EA:    move.l    a2,d0
  13573.     movem.l    (sp)+,a2/a3
  13574.     rts
  13575.  
  13576.     dc.w    0
  13577.  
  13578. cA8F4:    jmp    c21BC
  13579.  
  13580. cA8FA:    jmp    c2118
  13581.  
  13582. cA900:    jmp    c21AE
  13583.  
  13584. cA906:    jmp    c2568
  13585.  
  13586. cA90C:    jmp    c216E
  13587.  
  13588.     moveq    #$61,d0
  13589. cA914:    move.l    a0,d0
  13590. cA916:    move.b    (a0)+,d1
  13591.     beq.s    cA926
  13592.     cmpi.b    #$3A,d1
  13593.     bne.s    cA916
  13594. cA920:    move.b    (a0)+,(a1)+
  13595.     bne.s    cA920
  13596.     rts
  13597.  
  13598. cA926:    movea.l    d0,a0
  13599.     bra.s    cA920
  13600.  
  13601. bA92A:    dc.b    $30
  13602.     dc.b    $31
  13603.     dc.b    $32
  13604.     dc.b    $33
  13605.     dc.b    $34
  13606.     dc.b    $35
  13607.     dc.b    $36
  13608.     dc.b    $37
  13609.     dc.b    $38
  13610.     dc.b    $39
  13611.     dc.b    $41
  13612.     dc.b    $42
  13613.     dc.b    $43
  13614.     dc.b    $44
  13615.     dc.b    $45
  13616.     dc.b    $46
  13617.  
  13618. cA93A:    rol.l    #4,d0
  13619.     move.l    d0,d1
  13620.     beq.s    cA950
  13621.     andi.l    #15,d1
  13622.     andi.w    #$FFF0,d0
  13623.     move.b    bA92A(pc,d1.w),(a0)+
  13624.     bra.s    cA93A
  13625.  
  13626. cA950:    clr.b    (a0)
  13627.     rts
  13628.  
  13629. cA954:    divu.w    #10,d0
  13630.     tst.l    d0
  13631.     beq.s    cA968
  13632.     swap    d0
  13633.     addi.b    #$30,d0
  13634.     move.b    d0,(a0)+
  13635.     swap    d0
  13636.     bra.s    cA954
  13637.  
  13638. cA968:    clr.b    (a0)
  13639.     rts
  13640.  
  13641. cA96C:    movem.l    d2/d3,-(sp)
  13642.     moveq    #0,d0
  13643.     moveq    #0,d1
  13644.     move.b    (a0),d1
  13645.     cmpi.b    #$2D,d1
  13646.     seq    d3
  13647.     bne.s    cA980
  13648.     addq.l    #1,a0
  13649. cA980:    move.b    (a0)+,d1
  13650.     subi.b    #$30,d1
  13651.     bmi.s    cA99C
  13652.     cmpi.b    #10,d1
  13653.     bge.s    cA99C
  13654.     add.l    d0,d0
  13655.     move.l    d0,d2
  13656.     add.l    d2,d2
  13657.     add.l    d2,d2
  13658.     add.l    d2,d0
  13659.     add.l    d1,d0
  13660.     bra.s    cA980
  13661.  
  13662. cA99C:    tst.b    d3
  13663.     beq.s    cA9A2
  13664.     neg.l    d0
  13665. cA9A2:    movem.l    (sp)+,d2/d3
  13666.     rts
  13667.  
  13668. cA9A8:    move.l    d0,d1
  13669.     move.l    a0,d0
  13670.     bra.s    cA9B0
  13671.  
  13672. cA9AE:    move.b    (a1)+,(a0)+
  13673. cA9B0:    dbeq    d1,cA9AE
  13674.     rts
  13675.  
  13676. cA9B6:    move.l    a2,-(sp)
  13677.     moveq    #0,d0
  13678.     movea.l    a1,a2
  13679.     bra.s    cA9CC
  13680.  
  13681. cA9BE:    move.b    (a1)+,d2
  13682.     beq.s    cA9C8
  13683.     cmp.b    d1,d2
  13684.     beq.s    cA9CA
  13685.     bra.s    cA9BE
  13686.  
  13687. cA9C8:    addq.l    #1,d0
  13688. cA9CA:    movea.l    a2,a1
  13689. cA9CC:    move.b    (a0)+,d1
  13690.     bne.s    cA9BE
  13691.     movea.l    (sp)+,a2
  13692.     rts
  13693.  
  13694. cA9D4:    move.l    a0,d0
  13695. cA9D6:    tst.b    (a0)+
  13696.     bne.s    cA9D6
  13697.     subq.l    #1,a0
  13698. cA9DC:    move.b    (a1)+,(a0)+
  13699.     bne.s    cA9DC
  13700.     rts
  13701.  
  13702. cA9E2:    moveq    #0,d0
  13703.     moveq    #0,d1
  13704. cA9E6:    move.b    (a0)+,d0
  13705.     move.b    (a1)+,d1
  13706.     move.b    bAA0A(pc,d0.w),d0
  13707.     move.b    bAA0A(pc,d1.w),d1
  13708.     sub.l    d1,d0
  13709.     bne.s    cA9FA
  13710.     tst.b    d1
  13711.     bne.s    cA9E6
  13712. cA9FA:    rts
  13713.  
  13714. cA9FC:    moveq    #0,d1
  13715.     move.l    a0,d0
  13716. cAA00:    move.b    (a0),d1
  13717.     move.b    bAA0A(pc,d1.w),(a0)+
  13718.     bne.s    cAA00
  13719.     rts
  13720.  
  13721. bAA0A:    dc.b    0
  13722.     dc.b    1
  13723.     dc.b    2
  13724.     dc.b    3
  13725.     dc.b    4
  13726.     dc.b    5
  13727.     dc.b    6
  13728.     dc.b    7
  13729.     dc.b    8
  13730.     dc.b    9
  13731.     dc.b    10
  13732.     dc.b    11
  13733.     dc.b    12
  13734.     dc.b    13
  13735.     dc.b    14
  13736.     dc.b    15
  13737.     dc.b    $10
  13738.     dc.b    $11
  13739.     dc.b    $12
  13740.     dc.b    $13
  13741.     dc.b    $14
  13742.     dc.b    $15
  13743.     dc.b    $16
  13744.     dc.b    $17
  13745.     dc.b    $18
  13746.     dc.b    $19
  13747.     dc.b    $1A
  13748.     dc.b    $1B
  13749.     dc.b    $1C
  13750.     dc.b    $1D
  13751.     dc.b    $1E
  13752.     dc.b    $1F
  13753.     dc.b    $20
  13754.     dc.b    $21
  13755.     dc.b    $22
  13756.     dc.b    $23
  13757.     dc.b    $24
  13758.     dc.b    $25
  13759.     dc.b    $26
  13760.     dc.b    $27
  13761.     dc.b    $28
  13762.     dc.b    $29
  13763.     dc.b    $2A
  13764.     dc.b    $2B
  13765.     dc.b    $2C
  13766.     dc.b    $2D
  13767.     dc.b    $2E
  13768.     dc.b    $2F
  13769.     dc.b    $30
  13770.     dc.b    $31
  13771.     dc.b    $32
  13772.     dc.b    $33
  13773.     dc.b    $34
  13774.     dc.b    $35
  13775.     dc.b    $36
  13776.     dc.b    $37
  13777.     dc.b    $38
  13778.     dc.b    $39
  13779.     dc.b    $3A
  13780.     dc.b    $3B
  13781.     dc.b    $3C
  13782.     dc.b    $3D
  13783.     dc.b    $3E
  13784.     dc.b    $3F
  13785.     dc.b    $40
  13786.     dc.b    $61
  13787.     dc.b    $62
  13788.     dc.b    $63
  13789.     dc.b    $64
  13790.     dc.b    $65
  13791.     dc.b    $66
  13792.     dc.b    $67
  13793.     dc.b    $68
  13794.     dc.b    $69
  13795.     dc.b    $6A
  13796.     dc.b    $6B
  13797.     dc.b    $6C
  13798.     dc.b    $6D
  13799.     dc.b    $6E
  13800.     dc.b    $6F
  13801.     dc.b    $70
  13802.     dc.b    $71
  13803.     dc.b    $72
  13804.     dc.b    $73
  13805.     dc.b    $74
  13806.     dc.b    $75
  13807.     dc.b    $76
  13808.     dc.b    $77
  13809.     dc.b    $78
  13810.     dc.b    $79
  13811.     dc.b    $7A
  13812.     dc.b    $5B
  13813.     dc.b    $5C
  13814.     dc.b    $5D
  13815.     dc.b    $5E
  13816.     dc.b    $5F
  13817.     dc.b    $60
  13818.     dc.b    $61
  13819.     dc.b    $62
  13820.     dc.b    $63
  13821.     dc.b    $64
  13822.     dc.b    $65
  13823.     dc.b    $66
  13824.     dc.b    $67
  13825.     dc.b    $68
  13826.     dc.b    $69
  13827.     dc.b    $6A
  13828.     dc.b    $6B
  13829.     dc.b    $6C
  13830.     dc.b    $6D
  13831.     dc.b    $6E
  13832.     dc.b    $6F
  13833.     dc.b    $70
  13834.     dc.b    $71
  13835.     dc.b    $72
  13836.     dc.b    $73
  13837.     dc.b    $74
  13838.     dc.b    $75
  13839.     dc.b    $76
  13840.     dc.b    $77
  13841.     dc.b    $78
  13842.     dc.b    $79
  13843.     dc.b    $7A
  13844.     dc.b    $7B
  13845.     dc.b    $7C
  13846.     dc.b    $7D
  13847.     dc.b    $7E
  13848.     dc.b    $7F
  13849.     dc.b    $80
  13850.     dc.b    $81
  13851.     dc.b    $82
  13852.     dc.b    $83
  13853.     dc.b    $84
  13854.     dc.b    $85
  13855.     dc.b    $86
  13856.     dc.b    $87
  13857.     dc.b    $88
  13858.     dc.b    $89
  13859.     dc.b    $8A
  13860.     dc.b    $8B
  13861.     dc.b    $8C
  13862.     dc.b    $8D
  13863.     dc.b    $8E
  13864.     dc.b    $8F
  13865.     dc.b    $90
  13866.     dc.b    $91
  13867.     dc.b    $92
  13868.     dc.b    $93
  13869.     dc.b    $94
  13870.     dc.b    $95
  13871.     dc.b    $96
  13872.     dc.b    $97
  13873.     dc.b    $98
  13874.     dc.b    $99
  13875.     dc.b    $9A
  13876.     dc.b    $9B
  13877.     dc.b    $9C
  13878.     dc.b    $9D
  13879.     dc.b    $9E
  13880.     dc.b    $9F
  13881.     dc.b    $A0
  13882.     dc.b    $A1
  13883.     dc.b    $A2
  13884.     dc.b    $A3
  13885.     dc.b    $A4
  13886.     dc.b    $A5
  13887.     dc.b    $A6
  13888.     dc.b    $A7
  13889.     dc.b    $A8
  13890.     dc.b    $A9
  13891.     dc.b    $AA
  13892.     dc.b    $AB
  13893.     dc.b    $AC
  13894.     dc.b    $AD
  13895.     dc.b    $AE
  13896.     dc.b    $AF
  13897.     dc.b    $B0
  13898.     dc.b    $B1
  13899.     dc.b    $B2
  13900.     dc.b    $B3
  13901.     dc.b    $B4
  13902.     dc.b    $B5
  13903.     dc.b    $B6
  13904.     dc.b    $B7
  13905.     dc.b    $B8
  13906.     dc.b    $B9
  13907.     dc.b    $BA
  13908.     dc.b    $BB
  13909.     dc.b    $BC
  13910.     dc.b    $BD
  13911.     dc.b    $BE
  13912.     dc.b    $BF
  13913.     dc.b    $E0
  13914.     dc.b    $E1
  13915.     dc.b    $E2
  13916.     dc.b    $E3
  13917.     dc.b    $E4
  13918.     dc.b    $E5
  13919.     dc.b    $E6
  13920.     dc.b    $E7
  13921.     dc.b    $E8
  13922.     dc.b    $E9
  13923.     dc.b    $EA
  13924.     dc.b    $EB
  13925.     dc.b    $EC
  13926.     dc.b    $ED
  13927.     dc.b    $EE
  13928.     dc.b    $EF
  13929.     dc.b    $F0
  13930.     dc.b    $F1
  13931.     dc.b    $F2
  13932.     dc.b    $F3
  13933.     dc.b    $F4
  13934.     dc.b    $F5
  13935.     dc.b    $F6
  13936.     dc.b    $D7
  13937.     dc.b    $F8
  13938.     dc.b    $F9
  13939.     dc.b    $FA
  13940.     dc.b    $FB
  13941.     dc.b    $FC
  13942.     dc.b    $FD
  13943.     dc.b    $FE
  13944.     dc.b    $DF
  13945.     dc.b    $E0
  13946.     dc.b    $E1
  13947.     dc.b    $E2
  13948.     dc.b    $E3
  13949.     dc.b    $E4
  13950.     dc.b    $E5
  13951.     dc.b    $E6
  13952.     dc.b    $E7
  13953.     dc.b    $E8
  13954.     dc.b    $E9
  13955.     dc.b    $EA
  13956.     dc.b    $EB
  13957.     dc.b    $EC
  13958.     dc.b    $ED
  13959.     dc.b    $EE
  13960.     dc.b    $EF
  13961.     dc.b    $F0
  13962.     dc.b    $F1
  13963.     dc.b    $F2
  13964.     dc.b    $F3
  13965.     dc.b    $F4
  13966.     dc.b    $F5
  13967.     dc.b    $F6
  13968.     dc.b    $F7
  13969.     dc.b    $F8
  13970.     dc.b    $F9
  13971.     dc.b    $FA
  13972.     dc.b    $FB
  13973.     dc.b    $FC
  13974.     dc.b    $FD
  13975.     dc.b    $FE
  13976.     dc.b    $FF
  13977.  
  13978. cAB0A:    moveq    #0,d1
  13979.     move.l    a0,d0
  13980. cAB0E:    move.b    (a0),d1
  13981.     move.b    bAB18(pc,d1.w),(a0)+
  13982.     bne.s    cAB0E
  13983.     rts
  13984.  
  13985. bAB18:    dc.b    0
  13986.     dc.b    1
  13987.     dc.b    2
  13988.     dc.b    3
  13989.     dc.b    4
  13990.     dc.b    5
  13991.     dc.b    6
  13992.     dc.b    7
  13993.     dc.b    8
  13994.     dc.b    9
  13995.     dc.b    10
  13996.     dc.b    11
  13997.     dc.b    12
  13998.     dc.b    13
  13999.     dc.b    14
  14000.     dc.b    15
  14001.     dc.b    $10
  14002.     dc.b    $11
  14003.     dc.b    $12
  14004.     dc.b    $13
  14005.     dc.b    $14
  14006.     dc.b    $15
  14007.     dc.b    $16
  14008.     dc.b    $17
  14009.     dc.b    $18
  14010.     dc.b    $19
  14011.     dc.b    $1A
  14012.     dc.b    $1B
  14013.     dc.b    $1C
  14014.     dc.b    $1D
  14015.     dc.b    $1E
  14016.     dc.b    $1F
  14017.     dc.b    $20
  14018.     dc.b    $21
  14019.     dc.b    $22
  14020.     dc.b    $23
  14021.     dc.b    $24
  14022.     dc.b    $25
  14023.     dc.b    $26
  14024.     dc.b    $27
  14025.     dc.b    $28
  14026.     dc.b    $29
  14027.     dc.b    $2A
  14028.     dc.b    $2B
  14029.     dc.b    $2C
  14030.     dc.b    $2D
  14031.     dc.b    $2E
  14032.     dc.b    $2F
  14033.     dc.b    $30
  14034.     dc.b    $31
  14035.     dc.b    $32
  14036.     dc.b    $33
  14037.     dc.b    $34
  14038.     dc.b    $35
  14039.     dc.b    $36
  14040.     dc.b    $37
  14041.     dc.b    $38
  14042.     dc.b    $39
  14043.     dc.b    $3A
  14044.     dc.b    $3B
  14045.     dc.b    $3C
  14046.     dc.b    $3D
  14047.     dc.b    $3E
  14048.     dc.b    $3F
  14049.     dc.b    $40
  14050.     dc.b    $41
  14051.     dc.b    $42
  14052.     dc.b    $43
  14053.     dc.b    $44
  14054.     dc.b    $45
  14055.     dc.b    $46
  14056.     dc.b    $47
  14057.     dc.b    $48
  14058.     dc.b    $49
  14059.     dc.b    $4A
  14060.     dc.b    $4B
  14061.     dc.b    $4C
  14062.     dc.b    $4D
  14063.     dc.b    $4E
  14064.     dc.b    $4F
  14065.     dc.b    $50
  14066.     dc.b    $51
  14067.     dc.b    $52
  14068.     dc.b    $53
  14069.     dc.b    $54
  14070.     dc.b    $55
  14071.     dc.b    $56
  14072.     dc.b    $57
  14073.     dc.b    $58
  14074.     dc.b    $59
  14075.     dc.b    $5A
  14076.     dc.b    $5B
  14077.     dc.b    $5C
  14078.     dc.b    $5D
  14079.     dc.b    $5E
  14080.     dc.b    $5F
  14081.     dc.b    $60
  14082.     dc.b    $41
  14083.     dc.b    $42
  14084.     dc.b    $43
  14085.     dc.b    $44
  14086.     dc.b    $45
  14087.     dc.b    $46
  14088.     dc.b    $47
  14089.     dc.b    $48
  14090.     dc.b    $49
  14091.     dc.b    $4A
  14092.     dc.b    $4B
  14093.     dc.b    $4C
  14094.     dc.b    $4D
  14095.     dc.b    $4E
  14096.     dc.b    $4F
  14097.     dc.b    $50
  14098.     dc.b    $51
  14099.     dc.b    $52
  14100.     dc.b    $53
  14101.     dc.b    $54
  14102.     dc.b    $55
  14103.     dc.b    $56
  14104.     dc.b    $57
  14105.     dc.b    $58
  14106.     dc.b    $59
  14107.     dc.b    $5A
  14108.     dc.b    $7B
  14109.     dc.b    $7C
  14110.     dc.b    $7D
  14111.     dc.b    $7E
  14112.     dc.b    $7F
  14113.     dc.b    $80
  14114.     dc.b    $81
  14115.     dc.b    $82
  14116.     dc.b    $83
  14117.     dc.b    $84
  14118.     dc.b    $85
  14119.     dc.b    $86
  14120.     dc.b    $87
  14121.     dc.b    $88
  14122.     dc.b    $89
  14123.     dc.b    $8A
  14124.     dc.b    $8B
  14125.     dc.b    $8C
  14126.     dc.b    $8D
  14127.     dc.b    $8E
  14128.     dc.b    $8F
  14129.     dc.b    $90
  14130.     dc.b    $91
  14131.     dc.b    $92
  14132.     dc.b    $93
  14133.     dc.b    $94
  14134.     dc.b    $95
  14135.     dc.b    $96
  14136.     dc.b    $97
  14137.     dc.b    $98
  14138.     dc.b    $99
  14139.     dc.b    $9A
  14140.     dc.b    $9B
  14141.     dc.b    $9C
  14142.     dc.b    $9D
  14143.     dc.b    $9E
  14144.     dc.b    $9F
  14145.     dc.b    $A0
  14146.     dc.b    $A1
  14147.     dc.b    $A2
  14148.     dc.b    $A3
  14149.     dc.b    $A4
  14150.     dc.b    $A5
  14151.     dc.b    $A6
  14152.     dc.b    $A7
  14153.     dc.b    $A8
  14154.     dc.b    $A9
  14155.     dc.b    $AA
  14156.     dc.b    $AB
  14157.     dc.b    $AC
  14158.     dc.b    $AD
  14159.     dc.b    $AE
  14160.     dc.b    $AF
  14161.     dc.b    $B0
  14162.     dc.b    $B1
  14163.     dc.b    $B2
  14164.     dc.b    $B3
  14165.     dc.b    $B4
  14166.     dc.b    $B5
  14167.     dc.b    $B6
  14168.     dc.b    $B7
  14169.     dc.b    $B8
  14170.     dc.b    $B9
  14171.     dc.b    $BA
  14172.     dc.b    $BB
  14173.     dc.b    $BC
  14174.     dc.b    $BD
  14175.     dc.b    $BE
  14176.     dc.b    $BF
  14177.     dc.b    $C0
  14178.     dc.b    $C1
  14179.     dc.b    $C2
  14180.     dc.b    $C3
  14181.     dc.b    $C4
  14182.     dc.b    $C5
  14183.     dc.b    $C6
  14184.     dc.b    $C7
  14185.     dc.b    $C8
  14186.     dc.b    $C9
  14187.     dc.b    $CA
  14188.     dc.b    $CB
  14189.     dc.b    $CC
  14190.     dc.b    $CD
  14191.     dc.b    $CE
  14192.     dc.b    $CF
  14193.     dc.b    $D0
  14194.     dc.b    $D1
  14195.     dc.b    $D2
  14196.     dc.b    $D3
  14197.     dc.b    $D4
  14198.     dc.b    $D5
  14199.     dc.b    $D6
  14200.     dc.b    $D7
  14201.     dc.b    $D8
  14202.     dc.b    $D9
  14203.     dc.b    $DA
  14204.     dc.b    $DB
  14205.     dc.b    $DC
  14206.     dc.b    $DD
  14207.     dc.b    $DE
  14208.     dc.b    $DF
  14209.     dc.b    $C0
  14210.     dc.b    $C1
  14211.     dc.b    $C2
  14212.     dc.b    $C3
  14213.     dc.b    $C4
  14214.     dc.b    $C5
  14215.     dc.b    $C6
  14216.     dc.b    $C7
  14217.     dc.b    $C8
  14218.     dc.b    $C9
  14219.     dc.b    $CA
  14220.     dc.b    $CB
  14221.     dc.b    $CC
  14222.     dc.b    $CD
  14223.     dc.b    $CE
  14224.     dc.b    $CF
  14225.     dc.b    $D0
  14226.     dc.b    $D1
  14227.     dc.b    $D2
  14228.     dc.b    $D3
  14229.     dc.b    $D4
  14230.     dc.b    $D5
  14231.     dc.b    $D6
  14232.     dc.b    $F7
  14233.     dc.b    $D8
  14234.     dc.b    $D9
  14235.     dc.b    $DA
  14236.     dc.b    $DB
  14237.     dc.b    $DC
  14238.     dc.b    $DD
  14239.     dc.b    $DE
  14240.     dc.b    $FF
  14241.  
  14242. cAC18:    link.w    a5,#-$10
  14243.     movem.l    d6/d7/a2/a3/a6,-(sp)
  14244.     movea.l    a0,a3
  14245.     movea.l    a1,a2
  14246.     moveq    #-2,d0
  14247.     movea.l    a3,a0
  14248.     jsr    cAD74(pc)
  14249.     move.l    d0,d7
  14250.     move.l    d7,d0
  14251.     bne.s    cAC38
  14252.     moveq    #0,d0
  14253.     bra.l    cAD6C
  14254.  
  14255. cAC38:    move.l    d7,d0
  14256.     move.l    d0,$14(sp)
  14257.     move.l    d0,d1
  14258.     movea.l    $420(a4),a6
  14259.     jsr    ParentDir(a6)
  14260.     move.l    d0,d7
  14261.     move.l    $14(sp),d0
  14262.     jsr    cAD7A(pc)
  14263.     move.l    d7,d0
  14264.     bne.s    cAC5C
  14265.     moveq    #0,d0
  14266.     bra.l    cAD6C
  14267.  
  14268. cAC5C:    movea.l    a3,a0
  14269. cAC5E:    tst.b    (a0)+
  14270.     bne.s    cAC5E
  14271.     subq.l    #1,a0
  14272.     suba.l    a3,a0
  14273.     move.l    a0,d0
  14274.     subq.l    #1,d0
  14275.     move.l    d0,d6
  14276.     bra.s    cAC80
  14277.  
  14278. cAC6E:    move.b    0(a3,d6.w),d0
  14279.     moveq    #$2F,d1
  14280.     cmp.b    d1,d0
  14281.     beq.s    cAC84
  14282.     moveq    #$3A,d1
  14283.     cmp.b    d1,d0
  14284.     beq.s    cAC84
  14285.     subq.w    #1,d6
  14286. cAC80:    tst.w    d6
  14287.     bpl.s    cAC6E
  14288. cAC84:    move.l    d6,d0
  14289.     ext.l    d0
  14290.     addq.l    #1,d0
  14291.     movea.l    a3,a0
  14292.     adda.l    d0,a0
  14293.     move.l    a0,$14(sp)
  14294.     suba.l    a1,a1
  14295.     movea.l    4,a6
  14296.     jsr    FindTask(a6)
  14297.     move.l    d0,$18(sp)
  14298.     moveq    #$44,d0
  14299.     moveq    #1,d1
  14300.     jsr    cA81C(pc)
  14301.     movea.l    $14(sp),a0
  14302. cACAC:    tst.b    (a0)+
  14303.     bne.s    cACAC
  14304.     subq.l    #1,a0
  14305.     suba.l    $14(sp),a0
  14306.     move.l    a0,d1
  14307.     addq.l    #2,d1
  14308.     move.l    d0,$1C(sp)
  14309.     move.l    d1,d0
  14310.     jsr    cA7AA(pc)
  14311.     movea.l    d0,a0
  14312.     lea    1(a0),a1
  14313.     move.l    d0,$20(sp)
  14314.     movea.l    $14(sp),a6
  14315. cACD2:    move.b    (a6)+,(a1)+
  14316.     bne.s    cACD2
  14317.     movea.l    $14(sp),a1
  14318. cACDA:    tst.b    (a1)+
  14319.     bne.s    cACDA
  14320.     subq.l    #1,a1
  14321.     suba.l    $14(sp),a1
  14322.     move.l    a1,d1
  14323.     move.b    d1,(a0)
  14324.     movea.l    $1C(sp),a1
  14325.     lea    $14(a1),a6
  14326.     move.l    a6,10(a1)
  14327.     move.l    a1,$14(a1)
  14328.     movea.l    $18(sp),a6
  14329.     lea    $5C(a6),a1
  14330.     movea.l    $1C(sp),a6
  14331.     move.l    a1,$18(a6)
  14332.     moveq    #$22,d1
  14333.     move.l    d1,$1C(a6)
  14334.     clr.l    $28(a6)
  14335.     move.l    d7,$2C(a6)
  14336.     move.l    d0,d1
  14337.     asr.l    #2,d1
  14338.     move.l    d1,$30(a6)
  14339.     move.l    a2,$34(a6)
  14340.     move.l    d7,d1
  14341.     asl.l    #2,d1
  14342.     move.l    a1,$14(sp)
  14343.     movea.l    a6,a1
  14344.     movea.l    d1,a0
  14345.     movea.l    12(a0),a0
  14346.     movea.l    4,a6
  14347.     jsr    PutMsg(a6)
  14348.     movea.l    $14(sp),a0
  14349.     jsr    WaitPort(a6)
  14350.     movea.l    $14(sp),a0
  14351.     jsr    GetMsg(a6)
  14352.     movea.l    $1C(sp),a0
  14353.     move.l    $20(a0),d0
  14354.     move.l    d0,$14(sp)
  14355.     jsr    cA894(pc)
  14356.     movea.l    $20(sp),a0
  14357.     jsr    cA894(pc)
  14358.     move.l    d7,d0
  14359.     jsr    cAD7A(pc)
  14360.     move.l    $14(sp),d0
  14361. cAD6C:    movem.l    (sp)+,d6/d7/a2/a3/a6
  14362.     unlk    a5
  14363.     rts
  14364.  
  14365. cAD74:    jmp    c12FC
  14366.  
  14367. cAD7A:    jmp    c137C
  14368.  
  14369. cAD80:    movem.l    d6/d7/a3,-(sp)
  14370.     move.l    d0,d7
  14371.     lea    $3B4(a4),a3
  14372.     bra.s    cAD96
  14373.  
  14374. cAD8C:    move.w    (a3),d0
  14375.     ext.l    d0
  14376.     cmp.l    d7,d0
  14377.     beq.s    cAD9C
  14378.     addq.l    #8,a3
  14379. cAD96:    move.w    (a3),d0
  14380.     tst.w    d0
  14381.     bpl.s    cAD8C
  14382. cAD9C:    move.w    (a3),d0
  14383.     tst.w    d0
  14384.     bpl.s    cADB2
  14385.     move.l    d7,-(sp)
  14386.     pea    perrUNKNOWNER.MSG(pc)
  14387.     jsr    cAF04(pc)
  14388.     addq.w    #8,sp
  14389.     moveq    #2,d0
  14390.     bra.s    cADEA
  14391.  
  14392. cADB2:    move.l    4(a3),-(sp)
  14393.     pea    sK.MSG(pc)
  14394.     jsr    cAF04(pc)
  14395.     addq.w    #8,sp
  14396.     move.w    2(a3),d6
  14397.     ext.l    d6
  14398.     moveq    #2,d0
  14399.     cmp.l    d0,d7
  14400.     beq.s    cADD2
  14401.     moveq    #4,d0
  14402.     cmp.l    d0,d7
  14403.     bne.s    cADE8
  14404. cADD2:    moveq    #$22,d0
  14405.     not.b    d0
  14406.     cmp.l    $A04(a4),d0
  14407.     bne.s    cADE8
  14408.     pea    FATALErrorDis.MSG(pc)
  14409.     jsr    cAF04(pc)
  14410.     addq.w    #4,sp
  14411.     moveq    #2,d6
  14412. cADE8:    move.l    d6,d0
  14413. cADEA:    movem.l    (sp)+,d6/d7/a3
  14414.     rts
  14415.  
  14416. Unknowncompre.MSG:    dc.b    'Unknown compression',0
  14417. IOError.MSG:    dc.b    'I/O Error',0
  14418. FailedCRCChec.MSG:    dc.b    'Failed CRC Check',0,0
  14419. Unabletoopeno.MSG:    dc.b    'Unable to open output file',0,0
  14420. Baddecodingta.MSG:    dc.b    'Bad decoding table',0,0
  14421. Inconsistentc.MSG:    dc.b    'Inconsistent code table data',0,0
  14422. Userbreak.MSG:    dc.b    'User break',0,0
  14423. Couldnotopena.MSG:    dc.b    'Could not open archive file',0
  14424. Outofmemory.MSG:    dc.b    'Out of memory',0
  14425. Couldnotopenf.MSG:    dc.b    'Could not open file',0
  14426. perrUNKNOWNER.MSG:    dc.b    '** perr: UNKNOWN ERROR CODE %ld.'
  14427.     dc.b    $1B
  14428.     dc.b    '[K',$A,$A,0
  14429. sK.MSG:    dc.b    '%s'
  14430.     dc.b    $1B
  14431.     dc.b    '[K',$A,0
  14432.     dc.b    0
  14433. FATALErrorDis.MSG:    dc.b    '  FATAL Error: Disk full!',$A,0
  14434.     dcb.b    $2,0
  14435.     dc.b    0
  14436.  
  14437. cAF04:    jmp    c2328
  14438.  
  14439.     moveq    #$61,d0
  14440. cAF0C:    movem.l    d2/d3,-(sp)
  14441.     move.l    d0,d2
  14442.     move.l    d1,d3
  14443.     swap    d2
  14444.     swap    d3
  14445.     mulu.w    d1,d2
  14446.     mulu.w    d0,d3
  14447.     mulu.w    d1,d0
  14448.     add.w    d3,d2
  14449.     swap    d2
  14450.     clr.w    d2
  14451.     add.l    d2,d0
  14452.     movem.l    (sp)+,d2/d3
  14453.     rts
  14454.  
  14455. cAF2C:    tst.l    d0
  14456.     bpl.l    cAF4E
  14457.     neg.l    d0
  14458.     tst.l    d1
  14459.     bpl.l    cAF44
  14460.     neg.l    d1
  14461.     bsr.l    cAF5E
  14462.     neg.l    d1
  14463.     rts
  14464.  
  14465. cAF44:    bsr.l    cAF5E
  14466.     neg.l    d0
  14467.     neg.l    d1
  14468.     rts
  14469.  
  14470. cAF4E:    tst.l    d1
  14471.     bpl.l    cAF5E
  14472.     neg.l    d1
  14473.     bsr.l    cAF5E
  14474.     neg.l    d0
  14475.     rts
  14476.  
  14477. cAF5E:    move.l    d2,-(sp)
  14478.     swap    d1
  14479.     move.w    d1,d2
  14480.     bne.l    cAF88
  14481.     swap    d0
  14482.     swap    d1
  14483.     swap    d2
  14484.     move.w    d0,d2
  14485.     beq.l    cAF78
  14486.     divu.w    d1,d2
  14487.     move.w    d2,d0
  14488. cAF78:    swap    d0
  14489.     move.w    d0,d2
  14490.     divu.w    d1,d2
  14491.     move.w    d2,d0
  14492.     swap    d2
  14493.     move.w    d2,d1
  14494.     move.l    (sp)+,d2
  14495.     rts
  14496.  
  14497. cAF88:    move.l    d3,-(sp)
  14498.     moveq    #$10,d3
  14499.     cmpi.w    #$80,d1
  14500.     bcc.l    cAF98
  14501.     rol.l    #8,d1
  14502.     subq.w    #8,d3
  14503. cAF98:    cmpi.w    #$800,d1
  14504.     bcc.l    cAFA4
  14505.     rol.l    #4,d1
  14506.     subq.w    #4,d3
  14507. cAFA4:    cmpi.w    #$2000,d1
  14508.     bcc.l    cAFB0
  14509.     rol.l    #2,d1
  14510.     subq.w    #2,d3
  14511. cAFB0:    tst.w    d1
  14512.     bmi.l    cAFBA
  14513.     rol.l    #1,d1
  14514.     subq.w    #1,d3
  14515. cAFBA:    move.w    d0,d2
  14516.     lsr.l    d3,d0
  14517.     swap    d2
  14518.     clr.w    d2
  14519.     lsr.l    d3,d2
  14520.     swap    d3
  14521.     divu.w    d1,d0
  14522.     move.w    d0,d3
  14523.     move.w    d2,d0
  14524.     move.w    d3,d2
  14525.     swap    d1
  14526.     mulu.w    d1,d2
  14527.     sub.l    d2,d0
  14528.     bcc.l    cAFDE
  14529.     subq.w    #1,d3
  14530.     add.l    d1,d0
  14531. cAFDC:    bcc.s    cAFDC
  14532. cAFDE:    moveq    #0,d1
  14533.     move.w    d3,d1
  14534.     swap    d3
  14535.     rol.l    d3,d0
  14536.     swap    d0
  14537.     exg    d0,d1
  14538.     move.l    (sp)+,d3
  14539.     move.l    (sp)+,d2
  14540.     rts
  14541.  
  14542.  
  14543.     SECTION    LhAData,DATA
  14544.  
  14545. lAFF0:    dc.l    $1770
  14546.     dc.l    1
  14547.     dc.l    11
  14548.     dc.l    $81
  14549.     dc.l    0
  14550.     dc.w    $6100
  14551.     dc.l    Add.MSG
  14552.     dc.l    to.MSG
  14553.     dc.w    $6300
  14554.     dc.l    Convert.MSG
  14555.     dc.l    in.MSG
  14556.     dc.w    $6400
  14557.     dc.l    Delete.MSG
  14558.     dc.l    from.MSG
  14559.     dc.w    $6500
  14560.     dc.l    Extract.MSG
  14561.     dc.l    from.MSG
  14562.     dc.w    $6600
  14563.     dc.l    Freshen.MSG
  14564.     dc.l    in.MSG
  14565.     dc.w    $6C00
  14566.     dc.l    List.MSG
  14567.     dc.l    in.MSG
  14568.     dc.w    $6D00
  14569.     dc.l    Move.MSG
  14570.     dc.l    to.MSG
  14571.     dc.w    $6E00
  14572.     dc.l    Rename.MSG
  14573.     dc.l    in.MSG
  14574.     dc.w    $6F00
  14575.     dc.l    Order.MSG
  14576.     dc.l    in.MSG
  14577.     dc.w    $7000
  14578.     dc.l    Print.MSG
  14579.     dc.l    in.MSG
  14580.     dc.w    $7200
  14581.     dc.l    Repair.MSG
  14582.     dc.l    in.MSG
  14583.     dc.w    $7400
  14584.     dc.l    Test.MSG
  14585.     dc.l    in.MSG
  14586.     dc.w    $7500
  14587.     dc.l    Update.MSG
  14588.     dc.l    w02CE
  14589.     dc.w    $7600
  14590.     dc.l    List.MSG
  14591.     dc.l    in.MSG
  14592.     dc.w    $7800
  14593.     dc.l    Extract.MSG
  14594.     dc.l    from.MSG
  14595.     dcb.w    $8,0
  14596.     dc.w    5
  14597.     dc.w    0
  14598.     dc.w    $4000
  14599.     dc.w    0
  14600.     dc.w    $8000
  14601.     dcb.w    $3,0
  14602.     dc.w    1
  14603.     dcb.w    $6,$FFFF
  14604.     dcb.w    $5,0
  14605.     dc.w    1
  14606.     dcb.w    $3,0
  14607.     dc.w    $1000
  14608.     dcb.w    $2,0
  14609.     dc.w    $6100
  14610.     dc.w    0
  14611.     dc.w    $D0
  14612.     dc.w    $4100
  14613.     dc.w    0
  14614.     dc.w    $DC
  14615.     dc.w    $6300
  14616.     dc.w    0
  14617.     dc.w    $83C
  14618.     dc.w    $4300
  14619.     dc.w    0
  14620.     dc.w    $834
  14621.     dc.w    $6400
  14622.     dc.w    0
  14623.     dc.w    $888
  14624.     dc.w    $4400
  14625.     dc.w    0
  14626.     dc.w    $844
  14627.     dc.w    $6500
  14628.     dc.w    0
  14629.     dc.w    $87C
  14630.     dc.w    $6600
  14631.     dc.w    0
  14632.     dc.w    $84C
  14633.     dc.w    $4600
  14634.     dc.w    0
  14635.     dc.w    $E4
  14636.     dc.w    $6800
  14637.     dc.w    0
  14638.     dc.w    $848
  14639.     dc.w    $6B00
  14640.     dc.w    0
  14641.     dc.w    $850
  14642.     dc.w    $6C00
  14643.     dc.w    0
  14644.     dc.w    $854
  14645.     dc.w    $6D00
  14646.     dc.w    0
  14647.     dc.w    $868
  14648.     dc.w    $4D00
  14649.     dc.w    0
  14650.     dc.w    $CC
  14651.     dc.w    $6E00
  14652.     dc.w    0
  14653.     dc.w    $86C
  14654.     dc.w    $4E00
  14655.     dc.w    0
  14656.     dc.w    $864
  14657.     dc.w    $6F00
  14658.     dc.w    0
  14659.     dc.w    $890
  14660.     dc.w    $7000
  14661.     dc.w    0
  14662.     dc.w    $880
  14663.     dc.w    $7100
  14664.     dc.w    0
  14665.     dc.w    $830
  14666.     dc.w    $7200
  14667.     dc.w    0
  14668.     dc.w    $828
  14669.     dc.w    $5200
  14670.     dc.w    0
  14671.     dc.w    $82C
  14672.     dc.w    $5300
  14673.     dc.w    0
  14674.     dc.w    $D8
  14675.     dc.w    $7400
  14676.     dc.w    0
  14677.     dc.w    $858
  14678.     dc.w    $5400
  14679.     dc.w    0
  14680.     dc.w    $85C
  14681.     dc.w    $7500
  14682.     dc.w    0
  14683.     dc.w    $C4
  14684.     dc.w    $7600
  14685.     dc.w    0
  14686.     dc.w    $B8
  14687.     dc.w    $7800
  14688.     dc.w    0
  14689.     dc.w    $D4
  14690.     dc.w    $5800
  14691.     dc.w    0
  14692.     dc.w    $870
  14693.     dc.w    $5900
  14694.     dc.w    0
  14695.     dc.w    $C8
  14696.     dc.w    $7A00
  14697.     dc.w    0
  14698.     dc.w    $860
  14699.     dc.w    $5A00
  14700.     dc.w    0
  14701.     dc.w    $838
  14702.     dcb.w    $5,0
  14703.     dcb.w    $2,$2D2D
  14704.     dc.w    $6170
  14705.     dc.w    $7368
  14706.     dc.w    $64
  14707.     dc.w    $6577
  14708.     dc.w    $722D
  14709.     dc.w    $2D2D
  14710.     dc.w    $2D00
  14711.     dcb.w    $2,0
  14712.     dc.w    $1F1C
  14713.     dcb.w    $2,$1F1E
  14714.     dc.w    $1F1F
  14715.     dcb.w    $2,$1E1F
  14716.     dc.w    0
  14717.     dc.l    UsageLhAoptio.MSG
  14718.     dc.w    0
  14719.     dc.w    $BA7
  14720.     dcb.w    $1C,0
  14721.     dc.w    $2D6C
  14722.     dc.w    $6830
  14723.     dc.w    $2D00
  14724.     dc.w    $2D6C
  14725.     dc.w    $6831
  14726.     dc.w    $2D00
  14727.     dc.w    $2D6C
  14728.     dc.w    $6832
  14729.     dc.w    $2D00
  14730.     dc.w    $2D6C
  14731.     dc.w    $6833
  14732.     dc.w    $2D00
  14733.     dc.w    $2D6C
  14734.     dc.w    $6834
  14735.     dc.w    $2D00
  14736.     dc.w    $2D6C
  14737.     dc.w    $6835
  14738.     dc.w    $2D00
  14739.     dc.w    $2D6C
  14740.     dc.w    $7A73
  14741.     dc.w    $2D00
  14742.     dc.w    $2D6C
  14743.     dc.w    $7A35
  14744.     dc.w    $2D00
  14745.     dc.w    $2D6C
  14746.     dc.w    $7A34
  14747.     dc.w    $2D00
  14748.     dcb.w    $3,0
  14749.     dc.w    $4C5A
  14750.     dc.w    $4800
  14751.     dc.w    $4152
  14752.     dc.w    $4A00
  14753.     dc.w    $5A49
  14754.     dc.w    $5000
  14755.     dc.w    $5041
  14756.     dc.w    $4B00
  14757.     dc.w    $4152
  14758.     dc.w    $4300
  14759.     dc.w    $5A4F
  14760.     dc.w    $4F00
  14761.     dc.w    $4C48
  14762.     dc.w    $4400
  14763.     dc.w    $444D
  14764.     dc.w    $5300
  14765.     dc.w    $5752
  14766.     dc.w    $5000
  14767.     dc.w    $5A41
  14768.     dc.w    $5000
  14769.     dc.w    $4C48
  14770.     dc.w    $5700
  14771.     dc.w    $4C5A
  14772.     dc.w    $3200
  14773.     dc.w    $4749
  14774.     dc.w    $4600
  14775.     dc.w    $4A50
  14776.     dc.w    $4700
  14777.     dc.w    $4C48
  14778.     dc.w    $4100
  14779.     dcb.w    $4,0
  14780.     dc.w    $3C
  14781.     dc.w    $B33
  14782.     dc.w    $36
  14783.     dc.w    $800
  14784.     dc.w    $30
  14785.     dc.w    $4CC
  14786.     dc.w    $2A
  14787.     dc.w    $3D7
  14788.     dc.w    $24
  14789.     dc.w    $2B8
  14790.     dc.w    $1E
  14791.     dc.w    $199
  14792.     dc.w    $18
  14793.     dc.w    $11E
  14794.     dc.w    $12
  14795.     dc.w    $CC
  14796.     dc.w    12
  14797.     dc.w    $7A
  14798.     dc.w    6
  14799.     dc.w    $28
  14800.     dc.w    $100
  14801.     dc.w    $1666
  14802.     dc.w    $E6
  14803.     dc.w    $1000
  14804.     dc.w    $CC
  14805.     dc.w    $999
  14806.     dc.w    $B3
  14807.     dc.w    $7AE
  14808.     dc.w    $99
  14809.     dc.w    $570
  14810.     dc.w    $80
  14811.     dc.w    $333
  14812.     dc.w    $66
  14813.     dc.w    $23D
  14814.     dc.w    $4C
  14815.     dc.w    $199
  14816.     dc.w    $33
  14817.     dc.w    $F5
  14818.     dc.w    $19
  14819.     dc.w    $51
  14820.     dcb.w    $8,0
  14821.     dc.w    3
  14822.     dc.w    $404
  14823.     dc.w    $405
  14824.     dcb.w    $3,$505
  14825.     dc.w    $506
  14826.     dcb.w    $5,$606
  14827.     dc.w    $607
  14828.     dcb.w    $B,$707
  14829.     dc.w    $708
  14830.     dcb.w    $7,$808
  14831.     dc.w    $800
  14832.     dc.w    $2030
  14833.     dc.w    $4050
  14834.     dc.w    $5860
  14835.     dc.w    $6870
  14836.     dc.w    $7880
  14837.     dc.w    $8890
  14838.     dc.w    $9498
  14839.     dc.w    $9CA0
  14840.     dc.w    $A4A8
  14841.     dc.w    $ACB0
  14842.     dc.w    $B4B8
  14843.     dc.w    $BCC0
  14844.     dc.w    $C2C4
  14845.     dc.w    $C6C8
  14846.     dc.w    $CACC
  14847.     dc.w    $CED0
  14848.     dc.w    $D2D4
  14849.     dc.w    $D6D8
  14850.     dc.w    $DADC
  14851.     dc.w    $DEE0
  14852.     dc.w    $E2E4
  14853.     dc.w    $E6E8
  14854.     dc.w    $EAEC
  14855.     dc.w    $EEF0
  14856.     dc.w    $F1F2
  14857.     dc.w    $F3F4
  14858.     dc.w    $F5F6
  14859.     dc.w    $F7F8
  14860.     dc.w    $F9FA
  14861.     dc.w    $FBFC
  14862.     dc.w    $FDFE
  14863.     dc.w    $FF00
  14864.     dcb.w    $2,0
  14865.     dc.w    $7C2F
  14866.     dc.w    $2D5C
  14867.     dc.w    0
  14868.     dc.w    $4A61
  14869.     dc.w    $6E00
  14870.     dc.w    $4665
  14871.     dc.w    $6200
  14872.     dc.w    $4D61
  14873.     dc.w    $7200
  14874.     dc.w    $4170
  14875.     dc.w    $7200
  14876.     dc.w    $4D61
  14877.     dc.w    $7900
  14878.     dc.w    $4A75
  14879.     dc.w    $6E00
  14880.     dc.w    $4A75
  14881.     dc.w    $6C00
  14882.     dc.w    $4175
  14883.     dc.w    $6700
  14884.     dc.w    $5365
  14885.     dc.w    $7000
  14886.     dc.w    $4F63
  14887.     dc.w    $7400
  14888.     dc.w    $4E6F
  14889.     dc.w    $7600
  14890.     dc.w    $4465
  14891.     dc.w    $6300
  14892.     dcb.w    $2,1
  14893.     dc.l    Unknowncompre.MSG
  14894.     dc.w    2
  14895.     dc.w    1
  14896.     dc.l    IOError.MSG
  14897.     dc.w    3
  14898.     dc.w    1
  14899.     dc.l    FailedCRCChec.MSG
  14900.     dc.w    4
  14901.     dc.w    1
  14902.     dc.l    Unabletoopeno.MSG
  14903.     dc.w    5
  14904.     dc.w    1
  14905.     dc.l    Baddecodingta.MSG
  14906.     dc.w    8
  14907.     dc.w    1
  14908.     dc.l    Inconsistentc.MSG
  14909.     dc.w    6
  14910.     dc.w    1
  14911.     dc.l    Userbreak.MSG
  14912.     dc.w    7
  14913.     dc.w    1
  14914.     dc.l    Couldnotopena.MSG
  14915.     dc.w    $40
  14916.     dc.w    2
  14917.     dc.l    Outofmemory.MSG
  14918.     dc.w    $41
  14919.     dc.w    2
  14920.     dc.l    Couldnotopenf.MSG
  14921.     dcb.w    $2,$FFFF
  14922.     dcb.w    $3,0
  14923.     dc.w    $1F
  14924.     dc.w    0
  14925.     dc.w    $19A
  14926.     dc.w    0
  14927.     dc.w    $18E
  14928.     dc.w    0
  14929.     dc.w    $188
  14930.     dc.w    0
  14931.     dc.w    $182
  14932.     dc.w    0
  14933.     dc.w    $170
  14934.     dc.w    0
  14935.     dc.w    $140
  14936.     dc.w    0
  14937.     dc.w    $122
  14938.     dc.w    0
  14939.     dc.w    $F8
  14940.     dc.w    0
  14941.     dc.w    $F2
  14942.     dc.w    0
  14943.     dc.w    $1A6
  14944.     dc.w    0
  14945.     dc.w    $1A0
  14946.     dc.w    0
  14947.     dc.w    $194
  14948.     dc.w    0
  14949.     dc.w    $17C
  14950.     dc.w    0
  14951.     dc.w    $176
  14952.     dc.w    0
  14953.     dc.w    $16A
  14954.     dc.w    0
  14955.     dc.w    $164
  14956.     dc.w    0
  14957.     dc.w    $15E
  14958.     dc.w    0
  14959.     dc.w    $158
  14960.     dc.w    0
  14961.     dc.w    $152
  14962.     dc.w    0
  14963.     dc.w    $14C
  14964.     dc.w    0
  14965.     dc.w    $146
  14966.     dc.w    0
  14967.     dc.w    $13A
  14968.     dc.w    0
  14969.     dc.w    $134
  14970.     dc.w    0
  14971.     dc.w    $12E
  14972.     dc.w    0
  14973.     dc.w    $128
  14974.     dc.w    0
  14975.     dc.w    $11C
  14976.     dc.w    0
  14977.     dc.w    $116
  14978.     dc.w    0
  14979.     dc.w    $110
  14980.     dc.w    0
  14981.     dc.w    $10A
  14982.     dc.w    0
  14983.     dc.w    $104
  14984.     dc.w    0
  14985.     dc.w    $FE
  14986.     end
  14987.