home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / LhA.S < prev    next >
Encoding:
Text File  |  1978-01-03  |  223.1 KB  |  14,965 lines
  1. ThisTask=$114
  2. pr_CLI=$AC
  3. pr_WindowPtr=$B8
  4. Open=-$1E
  5. WaitPort=-$180
  6. Read=-$2A
  7. GetMsg=-$174
  8. FreeMem=-$D2
  9. CloseLibrary=-$19E
  10. Seek=-$42
  11. CurrentDir=-$7E
  12. UnLock=-$5A
  13. IsInteractive=-$D8
  14. Input=-$36
  15. RawDoFmt=-$20A
  16. PutMsg=-$16E
  17. SetTaskPri=-$12C
  18. Output=-$3C
  19. Write=-$30
  20. FnDeleteFile=-$48
  21. OpenLibrary=-$228
  22. Rename=-$4E
  23. AllocMem=-$C6
  24. pr_CurrentDir=$98
  25. IoErr=-$84
  26. Close=-$24
  27. FindTask=-$126
  28. Lock=-$54
  29. ParentDir=-$D2
  30. SelectInput=-$126
  31. CopyMem=-$270
  32. SetSignal=-$132
  33.             section    codex,code
  34.             jmp    begin
  35.             section    datax,data
  36. begin            move.l    a0,a2
  37.             move.l    d0,d2
  38.             sf    (a2,d2.w)
  39.             lea    lAFF0,a4
  40.             move.l    4.w,a6
  41.             move.l    d2,-(sp)
  42.             movem.l    a0-a2,-(sp)
  43.             move.l    ThisTask(a6),a3
  44.             move.l    pr_CLI(a3),d1
  45.             beq.w    c01B2
  46.             lsl.l    #2,d1
  47.             move.l    d1,a0
  48.             move.l    $34(a0),d1
  49.             lsl.l    #2,d1
  50.             moveq    #0,d2
  51.             move.l    #$AE8,d0
  52.             cmp.l    (a4),d1
  53.     bcc.b    c0068
  54.     move.l    (a4),d1
  55.     add.l    d1,d0
  56.     moveq    #1,d2
  57. c0068:    move.l    d1,a3
  58.     move.l    #$10001,d1
  59.     jsr    AllocMem(a6)
  60.     tst.l    d0
  61.     bne.b    EnoughMem
  62.     movem.l    (sp)+,a0-a2
  63.     move.l    (sp)+,d2
  64.     rts
  65.  
  66. EnoughMem:    move.l    d0,a0
  67.     move.l    d0,a2
  68.     move.l    d0,a1
  69.     move.l    #$103,d0
  70.     suba.l    #0,a4
  71. c0092:    move.l    (a4)+,(a0)+
  72.     subq.l    #1,d0
  73.     bne.b    c0092
  74.     move.l    (a4)+,d0
  75. c009A:    beq.b    c00AA
  76.     move.l    a1,a0
  77.     adda.l    (a4)+,a0
  78.     adda.l    (a0),a2
  79.     move.l    a2,(a0)
  80.     move.l    a1,a2
  81.     subq.l    #1,d0
  82.     bra.b    c009A
  83.  
  84. c00AA:    move.l    a1,a4
  85.     adda.l    #0,a4
  86.     move.l    #$AE8,$40C(a4)
  87.     movem.l    (sp)+,a0-a2
  88.     move.l    a6,$418(a4)
  89.     tst.b    d2
  90.     movem.l    (sp)+,d2
  91.     movem.l    a7,$41C(a4)
  92.     beq.b    c00F6
  93.     move.l    a4,d0
  94.     subi.l    #0,d0
  95.     addi.l    #$AE8,d0
  96.     add.l    (a4),d0
  97.     subi.l    #$80,d0
  98.     move.l    d0,sp
  99.     move.l    (a4),d0
  100.     move.l    d0,4(sp)
  101.     add.l    d0,$40C(a4)
  102. c00F6:    moveq    #0,d0
  103.     move.l    #$3000,d1
  104.     jsr    SetSignal(a6)
  105.     lea    doslibrary.MSG(pc),a1
  106.     moveq    #0,d0
  107.     jsr    OpenLibrary(a6)
  108.     move.l    d0,$420(a4)
  109.     lea    arplibrary.MSG(pc),a1
  110.     moveq    #$21,d0
  111.     jsr    OpenLibrary(a6)
  112.     move.l    d0,$424(a4)
  113.     beq.b    c0146
  114.     move.l    ThisTask(a6),a3
  115.     move.l    pr_CurrentDir(a3),$428(a4)
  116.     move.l    a3,a1
  117.     moveq    #0,d0
  118.     jsr    SetTaskPri(a6)
  119.     move.l    d0,$42C(a4)
  120.     move.l    a3,a1
  121.     jsr    SetTaskPri(a6)
  122.     move.l    a2,a0
  123.     jsr    c05D4(pc)
  124.     moveq    #0,d0
  125.     bra.b    c0168
  126.  
  127. c0146:    lea    Requires.MSG(pc),a0
  128.     move.l    a0,d2
  129.     move.l    #$17,d3
  130.     move.l    $420(a4),a6
  131.     jsr    Output(a6)
  132.     move.l    d0,d1
  133.     jsr    Write(a6)
  134.     moveq    #$14,d0
  135.     bra.b    c016E
  136.  
  137.     move.l    4(sp),d0
  138. c0168:    move.l    d0,-(sp)
  139.     jsr    c0D2C(pc)
  140. c016E:    move.l    4,a6
  141.     move.l    ThisTask(a6),a3
  142.     move.l    a3,a1
  143.     move.l    $42C(a4),d0
  144.     jsr    SetTaskPri(a6)
  145.     move.l    $424(a4),a1
  146.     move.l    a1,d0
  147.     beq.b    c018C
  148.     jsr    CloseLibrary(a6)
  149. c018C:    move.l    $420(a4),a1
  150.     jsr    CloseLibrary(a6)
  151.     move.l    $40C(a4),d0
  152.     move.l    a4,a1
  153.     suba.l    #0,a1
  154.     move.l    4,a6
  155.     move.l    $41C(a4),a5
  156.     jsr    FreeMem(a6)
  157.     move.l    (sp)+,d0
  158.     move.l    a5,sp
  159.     rts
  160.  
  161. c01B2:    moveq    #0,d0
  162.     rts
  163.  
  164. doslibrary.MSG:    dc.b    'dos.library',0
  165. Requires.MSG:    dc.b    'Requires '
  166. arplibrary.MSG:    dc.b    'arp.library',0,$A,$A,0
  167.     dc.b    '$VER: LhA Evaluation V1.10 (14-Jan-91)',0,0
  168.     dcb.b    $2,0
  169.  
  170. c0204:    moveq    #2,d0
  171.     move.l    d0,$848(a4)
  172.     jsr    c23E2(pc)
  173.     move.l    12(a4),-(sp)
  174.     move.l    8(a4),-(sp)
  175.     move.l    4(a4),-(sp)
  176.     pea    LhAVld02ldCop.MSG(pc)
  177.     jsr    c22C6(pc)
  178.     move.l    $1DC(a4),d0
  179.     move.l    $1D8(a4),a0
  180.     jsr    c24DA(pc)
  181.     jsr    c23EE(pc)
  182.     moveq    #$14,d0
  183.     jsr    c21BC(pc)
  184.     lea    $10(sp),sp
  185.     rts
  186.  
  187. LhAVld02ldCop.MSG:    dc.b    'LhA V%ld.%02ld - Copyright '
  188.     dc.b    $A9
  189.     dc.b    ' 1991,92 Stefan Boberg. Not for commercial u'
  190.     dc.b    'se.',$A,$A,0
  191. sarchivesK.MSG:    dc.b    13
  192.     dc.b    '%s archive ''%s'':'
  193.     dc.b    $1B
  194.     dc.b    '[K',$A,0
  195. ErrorUnableto.MSG:    dc.b    ' Error: Unable to find work directory!',$A,0
  196. T.MSG:    dc.b    'T:',0,0
  197. w02CE:    dc.w    0
  198. Add.MSG:    dc.b    'Add',0
  199. to.MSG:    dc.b    'to',0,0
  200. Convert.MSG:    dc.b    'Convert',0
  201. in.MSG:    dc.b    'in',0,0
  202. Delete.MSG:    dc.b    'Delete',0,0
  203. from.MSG:    dc.b    'from',0,0
  204. Extract.MSG:    dc.b    'Extract',0
  205. Freshen.MSG:    dc.b    'Freshen',0
  206. List.MSG:    dc.b    'List',0,0
  207. Move.MSG:    dc.b    'Move',0,0
  208. Rename.MSG:    dc.b    'Rename',0,0
  209. Order.MSG:    dc.b    'Order',0
  210. Print.MSG:    dc.b    'Print',0
  211. Repair.MSG:    dc.b    'Repair',0,0
  212. Test.MSG:    dc.b    'Test',0,0
  213. Update.MSG:    dc.b    'Update',0,0
  214. LZHLHA.MSG:    dc.b    '.(LZH|LHA)',0,0
  215. LZH.MSG:    dc.b    '.LZH',0,0
  216. LHA.MSG:    dc.b    '.LHA',0,0
  217. Unabletoopena.MSG:    dc.b    ' Unable to open archive!',$A,$A,0
  218.     dc.b    0
  219. LhANoarchives.MSG:    dc.b    '*** LhA: No archives match pattern!',$A,$A,0
  220. LhACouldnotcr.MSG:    dc.b    '** LhA: Could not create archive `%s''.',$A,0
  221. sfiless.MSG:    dc.b    '%s files %s',0
  222. LhANofilesmat.MSG:    dc.b    '*** LhA: No files match action pattern(s)!',$A,$A,0
  223.     dc.b    0
  224. Creatingnew.MSG:    dc.b    'Creating new',0,0
  225. Addingfilesto.MSG:    dc.b    'Adding files to',0
  226. Updating.MSG:    dc.b    'Updating',0,0
  227. Movingfilesto.MSG:    dc.b    'Moving files to',0
  228. Freshening.MSG:    dc.b    'Freshening',0,0
  229. Deletingfiles.MSG:    dc.b    'Deleting files in',0
  230. deleted.MSG:    dc.b    'deleted',0
  231. Testingintegr.MSG:    dc.b    'Testing integrity of',0,0
  232. Extractingfro.MSG:    dc.b    'Extracting from',0
  233. printed.MSG:    dc.b    'printed',0
  234. Testing.MSG:    dc.b    'Testing',0
  235. tested.MSG:    dc.b    'tested',0,0
  236. Extracting.MSG:    dc.b    'Extracting',0,0
  237. extracted.MSG:    dc.b    'extracted',0
  238. Listingof.MSG:    dc.b    'Listing of',0,0
  239. LhAUnknownoru.MSG:    dc.b    'LhA: Unknown or unimplemented command ''%c'''
  240.     dc.b    '.',$A,0
  241.     dc.b    0
  242. Operationsucc.MSG:    dc.b    'Operation successful.',$A,0
  243.     dc.b    0
  244. Operationfail.MSG:    dc.b    'Operation failed.',$A,0
  245.     dc.b    0
  246. Operationnote.MSG:    dc.b    'Operation not entirely successful.',$A,0
  247. ESCseq:    dc.l    $D1B5B4B
  248.     dc.l    $1B5B3120
  249.     dc.l    $701B5B30
  250.     dc.w    $6D00
  251.  
  252. c053E:    movem.l    a2/a3,-(sp)
  253.     move.l    a0,a3
  254.     move.l    a1,a2
  255.     move.l    a2,-(sp)
  256.     move.l    a3,-(sp)
  257.     pea    sarchivesK.MSG(pc)
  258.     jsr    c2328(pc)
  259.     lea    12(sp),sp
  260.     movem.l    (sp)+,a2/a3
  261.     rts
  262.  
  263. c055C:    movem.l    d7/a3/a6,-(sp)
  264.     move.l    $820(a4),d0
  265.     beq.b    c0590
  266.     move.l    d0,a0
  267.     tst.b    (a0)
  268.     beq.b    c0590
  269.     moveq    #-2,d0
  270.     jsr    c12FC(pc)
  271.     move.l    d0,d7
  272.     tst.l    d7
  273.     bne.b    c0588
  274.     pea    ErrorUnableto.MSG(pc)
  275.     jsr    c2328(pc)
  276.     moveq    #$14,d0
  277.     jsr    c21BC(pc)
  278.     addq.w    #4,sp
  279. c0588:    move.l    d7,d0
  280.     jsr    c137C(pc)
  281.     bra.b    c05CE
  282.  
  283. c0590:    suba.l    a1,a1
  284.     move.l    4,a6
  285.     jsr    FindTask(a6)
  286.     move.l    d0,a3
  287.     move.l    pr_WindowPtr(a3),d7
  288.     moveq    #-1,d0
  289.     move.l    d0,pr_WindowPtr(a3)
  290.     moveq    #-2,d0
  291.     lea    T.MSG(pc),a0
  292.     jsr    c12FC(pc)
  293.     tst.l    d0
  294.     beq.b    c05C2
  295.     jsr    c137C(pc)
  296.     lea    T.MSG(pc),a0
  297.     move.l    a0,$820(a4)
  298.     bra.b    c05CA
  299.  
  300. c05C2:    lea    w02CE(pc),a0
  301.     move.l    a0,$820(a4)
  302. c05CA:    move.l    d7,pr_WindowPtr(a3)
  303. c05CE:    movem.l    (sp)+,d7/a3/a6
  304.     rts
  305.  
  306. c05D4:    link.w    a5,#-$24
  307.     movem.l    d2-d7/a2/a3/a6,-(sp)
  308.     move.l    a0,a3
  309.     moveq    #0,d7
  310.     moveq    #0,d6
  311.     moveq    #0,d5
  312.     jsr    c0D6C(pc)
  313.     lea    $430(a4),a0
  314.     jsr    c21AE(pc)
  315.     lea    $450(a4),a0
  316.     jsr    c21AE(pc)
  317.     lea    $470(a4),a0
  318.     jsr    c21AE(pc)
  319.     lea    $480(a4),a0
  320.     jsr    c21AE(pc)
  321.     sf    $710(a4)
  322.     moveq    #-2,d0
  323.     move.l    d0,$816(a4)
  324.     suba.l    a0,a0
  325.     move.l    a0,$47C(a4)
  326.     move.l    a0,d0
  327.     move.l    a3,a0
  328.     lea    $470(a4),a1
  329.     jsr    c4346(pc)
  330.     move.l    $816(a4),d0
  331.     tst.l    d0
  332.     bpl.b    c0630
  333.     bsr.w    c0204
  334. c0630:    jsr    c1016(pc)
  335.     bsr.w    c055C
  336.     tst.l    $864(a4)
  337.     bne.b    c065A
  338.     move.l    12(a4),-(sp)
  339.     move.l    8(a4),-(sp)
  340.     move.l    4(a4),-(sp)
  341.     pea    LhAVld02ldCop.MSG(pc)
  342.     jsr    c2328(pc)
  343.     jsr    c23E2(pc)
  344.     lea    $10(sp),sp
  345. c065A:    lea    w02CE(pc),a0
  346.     move.l    a0,$488(a4)
  347.     lea    $690(a4),a0
  348.     move.l    a0,$48C(a4)
  349.     tst.l    $880(a4)
  350.     beq.b    c0674
  351.     jsr    c2494(pc)
  352. c0674:    move.b    $810(a4),d0
  353.     move.b    $811(a4),d1
  354.     lea    $14(a4),a3
  355.     move.b    d0,$25(sp)
  356.     move.b    d1,$24(sp)
  357.     bra.b    c06A4
  358.  
  359. c068A:    move.b    $25(sp),d0
  360.     move.b    (a3),d1
  361.     cmp.b    d0,d1
  362.     bne.b    c06A0
  363.     move.l    2(a3),a2
  364.     move.l    6(a3),-$18(a5)
  365.     bra.b    c06AA
  366.  
  367. c06A0:    adda.w    #10,a3
  368. c06A4:    tst.l    2(a3)
  369.     bne.b    c068A
  370. c06AA:    moveq    #0,d0
  371.     move.b    $25(sp),d0
  372.     subi.w    #$61,d0
  373.     blt.w    c0900
  374.     cmpi.w    #$18,d0
  375.     bge.w    c0900
  376.     add.w    d0,d0
  377.     move.w    w06CA(pc,d0.w),d0
  378.     jmp    l06CC(pc,d0.w)
  379.  
  380. w06CA:    dc.w    $128
  381. l06CC:    dc.l    $234002E
  382.     dc.l    $2E002E
  383.     dc.l    $2E0234
  384.     dcb.l    $2,$2340234
  385.     dc.l    $2E0128
  386.     dc.l    $234002E
  387.     dc.l    $2E0234
  388.     dc.l    $2E002E
  389.     dc.l    $2E0128
  390.     dc.l    $2E0234
  391.     dc.w    $2E
  392.  
  393.     tst.l    $870(a4)
  394.     bne.w    c07B8
  395.     lea    $690(a4),a0
  396.     move.l    a0,a1
  397. c0708:    tst.b    (a1)+
  398.     bne.b    c0708
  399.     subq.l    #1,a1
  400.     suba.l    a0,a1
  401.     move.l    a1,d0
  402.     move.l    d0,d4
  403.     subq.l    #1,d4
  404.     bra.b    c0728
  405.  
  406. c0718:    move.b    (a3),d0
  407.     moveq    #$2F,d1
  408.     cmp.b    d1,d0
  409.     beq.b    c0734
  410.     moveq    #$2E,d1
  411.     cmp.b    d1,d0
  412.     beq.b    c0734
  413.     subq.l    #1,d4
  414. c0728:    lea    $690(a4),a0
  415.     adda.l    d4,a0
  416.     move.l    a0,a3
  417.     tst.l    d4
  418.     bne.b    c0718
  419. c0734:    moveq    #$2F,d0
  420.     cmp.b    (a3),d0
  421.     beq.b    c073E
  422.     tst.l    d4
  423.     bne.b    c07B8
  424. c073E:    lea    $690(a4),a0
  425.     jsr    c3424(pc)
  426.     tst.l    d0
  427.     beq.b    c0758
  428.     lea    $690(a4),a0
  429.     lea    LZHLHA.MSG(pc),a1
  430.     jsr    c0D90(pc)
  431.     bra.b    c07B8
  432.  
  433. c0758:    lea    $690(a4),a0
  434.     move.l    a0,a1
  435. c075E:    tst.b    (a1)+
  436.     bne.b    c075E
  437.     subq.l    #1,a1
  438.     suba.l    a0,a1
  439.     move.l    a1,d0
  440.     adda.l    d0,a0
  441.     move.l    a0,$26(sp)
  442.     lea    LZH.MSG(pc),a1
  443.     move.l    a0,a6
  444. c0774:    move.b    (a1)+,(a6)+
  445.     bne.b    c0774
  446.     lea    $690(a4),a0
  447.     jsr    c2104(pc)
  448.     move.l    d0,$2A(sp)
  449.     lea    LHA.MSG(pc),a0
  450.     move.l    $26(sp),a1
  451. c078C:    move.b    (a0)+,(a1)+
  452.     bne.b    c078C
  453.     moveq    #$10,d0
  454.     moveq    #1,d1
  455.     jsr    c29BA(pc)
  456.     lea    w02CE(pc),a0
  457.     move.l    d0,a1
  458.     move.l    a0,8(a1)
  459.     move.l    $2A(sp),12(a1)
  460.     move.l    d0,a0
  461.     lea    $480(a4),a1
  462.     jsr    c2130(pc)
  463.     moveq    #1,d0
  464.     move.l    d0,$10(a4)
  465. c07B8:    move.l    $82C(a4),d0
  466.     lea    $480(a4),a0
  467.     lea    $430(a4),a1
  468.     jsr    c3636(pc)
  469.     clr.l    $10(a4)
  470.     lea    $430(a4),a0
  471.     move.l    $434(a4),a1
  472.     cmpa.l    a0,a1
  473.     bne.b    c07E8
  474.     pea    Unabletoopena.MSG(pc)
  475.     jsr    c2328(pc)
  476.     addq.w    #4,sp
  477.     moveq    #2,d6
  478.     bra.w    c0CE8
  479.  
  480. c07E8:    lea    $470(a4),a0
  481.     jsr    c3448(pc)
  482.     bra.w    c0900
  483.  
  484.     tst.l    $870(a4)
  485.     bne.b    c0856
  486.     lea    $690(a4),a0
  487.     move.l    a0,a1
  488. c0800:    tst.b    (a1)+
  489.     bne.b    c0800
  490.     subq.l    #1,a1
  491.     suba.l    a0,a1
  492.     move.l    a1,d0
  493.     move.l    d0,d4
  494.     subq.l    #1,d4
  495.     bra.b    c0820
  496.  
  497. c0810:    move.b    (a3),d0
  498.     moveq    #$2F,d1
  499.     cmp.b    d1,d0
  500.     beq.b    c082C
  501.     moveq    #$2E,d1
  502.     cmp.b    d1,d0
  503.     beq.b    c082C
  504.     subq.l    #1,d4
  505. c0820:    lea    $690(a4),a0
  506.     adda.l    d4,a0
  507.     move.l    a0,a3
  508.     tst.l    d4
  509.     bne.b    c0810
  510. c082C:    moveq    #$2F,d0
  511.     cmp.b    (a3),d0
  512.     beq.b    c0836
  513.     tst.l    d4
  514.     bne.b    c0856
  515. c0836:    tst.l    $874(a4)
  516.     beq.b    c084A
  517.     lea    $690(a4),a0
  518.     lea    LZH.MSG(pc),a1
  519.     jsr    c0D90(pc)
  520.     bra.b    c0856
  521.  
  522. c084A:    lea    $690(a4),a0
  523.     lea    LHA.MSG(pc),a1
  524.     jsr    c0D90(pc)
  525. c0856:    lea    $690(a4),a0
  526.     jsr    c3424(pc)
  527.     tst.l    d0
  528.     beq.b    c0892
  529.     move.l    $82C(a4),d0
  530.     lea    $480(a4),a0
  531.     lea    $430(a4),a1
  532.     jsr    c3636(pc)
  533.     lea    $430(a4),a0
  534.     move.l    $430(a4),a1
  535.     cmpa.l    a0,a1
  536.     bne.w    c0900
  537.     pea    LhANoarchives.MSG(pc)
  538.     jsr    c2328(pc)
  539.     moveq    #$14,d0
  540.     jsr    c21BC(pc)
  541.     addq.w    #4,sp
  542.     bra.b    c0900
  543.  
  544. c0892:    moveq    #-2,d0
  545.     lea    $690(a4),a0
  546.     jsr    c12FC(pc)
  547.     move.l    d0,d4
  548.     tst.l    d4
  549.     beq.b    c08AA
  550.     move.l    d4,d0
  551.     jsr    c137C(pc)
  552.     bra.b    c08F0
  553.  
  554. c08AA:    move.l    #$3EE,d0
  555.     lea    $690(a4),a0
  556.     jsr    c1276(pc)
  557.     move.l    d0,d5
  558.     tst.l    d5
  559.     bne.b    c08D2
  560.     pea    $690(a4)
  561.     pea    LhACouldnotcr.MSG(pc)
  562.     jsr    c2328(pc)
  563.     moveq    #$14,d0
  564.     jsr    c21BC(pc)
  565.     addq.w    #8,sp
  566. c08D2:    sf    $490(a4)
  567.     move.l    d5,d1
  568.     lea    $490(a4),a0
  569.     move.l    a0,d2
  570.     moveq    #1,d3
  571.     move.l    $420(a4),a6
  572.     jsr    -$30(a6)
  573.     move.l    d5,d0
  574.     jsr    c12BC(pc)
  575.     moveq    #1,d5
  576. c08F0:    move.l    $82C(a4),d0
  577.     lea    $480(a4),a0
  578.     lea    $430(a4),a1
  579.     jsr    c3636(pc)
  580. c0900:    move.l    -$18(a5),-(sp)
  581.     move.l    a2,-(sp)
  582.     pea    sfiless.MSG(pc)
  583.     pea    $490(a4)
  584.     jsr    c2374(pc)
  585.     lea    $430(a4),a0
  586.     lea    $490(a4),a1
  587.     jsr    c5204(pc)
  588.     lea    $10(sp),sp
  589.     moveq    #0,d0
  590.     move.b    $25(sp),d0
  591.     subi.w    #$61,d0
  592.     beq.b    c096A
  593.     subq.w    #3,d0
  594.     beq.w    c0A9A
  595.     subq.w    #1,d0
  596.     beq.w    c0B20
  597.     subq.w    #1,d0
  598.     beq.w    c0A52
  599.     subq.w    #6,d0
  600.     beq.w    c0C36
  601.     subq.w    #1,d0
  602.     beq.b    c096A
  603.     subq.w    #3,d0
  604.     beq.w    c0B20
  605.     subq.w    #4,d0
  606.     beq.w    c0B20
  607.     subq.w    #1,d0
  608.     beq.b    c096A
  609.     subq.w    #1,d0
  610.     beq.w    c0C36
  611.     subq.w    #2,d0
  612.     beq.w    c0B1A
  613.     bra.w    c0CCC
  614.  
  615. c096A:    move.l    $430(a4),a3
  616.     move.l    $828(a4),d0
  617.     lea    $470(a4),a0
  618.     lea    $450(a4),a1
  619.     jsr    c3636(pc)
  620.     lea    $450(a4),a0
  621.     move.l    $450(a4),a1
  622.     cmpa.l    a0,a1
  623.     bne.w    c0A2C
  624.     pea    LhANofilesmat.MSG(pc)
  625.     jsr    c2328(pc)
  626.     moveq    #$14,d0
  627.     jsr    c21BC(pc)
  628.     addq.w    #4,sp
  629.     bra.w    c0A2C
  630.  
  631. c09A0:    tst.l    d5
  632.     beq.b    c09AA
  633.     lea    Creatingnew.MSG(pc),a0
  634.     bra.b    c09CA
  635.  
  636. c09AA:    move.b    $25(sp),d0
  637.     moveq    #$61,d1
  638.     cmp.b    d1,d0
  639.     bne.b    c09BA
  640.     lea    Addingfilesto.MSG(pc),a0
  641.     bra.b    c09CA
  642.  
  643. c09BA:    moveq    #$75,d1
  644.     cmp.b    d1,d0
  645.     bne.b    c09C6
  646.     lea    Updating.MSG(pc),a0
  647.     bra.b    c09CA
  648.  
  649. c09C6:    lea    Movingfilesto.MSG(pc),a0
  650. c09CA:    move.l    $10(a3),a1
  651.     bsr.w    c053E
  652.     moveq    #0,d0
  653.     move.b    $25(sp),d0
  654.     subi.w    #$61,d0
  655.     beq.b    c09EA
  656.     subi.w    #12,d0
  657.     beq.b    c0A0A
  658.     subq.w    #8,d0
  659.     beq.b    c09FA
  660.     bra.b    c0A18
  661.  
  662. c09EA:    move.l    $10(a3),a0
  663.     lea    $450(a4),a1
  664.     jsr    c4862(pc)
  665.     move.l    d0,d7
  666.     bra.b    c0A18
  667.  
  668. c09FA:    move.l    $10(a3),a0
  669.     lea    $450(a4),a1
  670.     jsr    c49FA(pc)
  671.     move.l    d0,d7
  672.     bra.b    c0A18
  673.  
  674. c0A0A:    move.l    $10(a3),a0
  675.     lea    $450(a4),a1
  676.     jsr    c48B0(pc)
  677.     move.l    d0,d7
  678. c0A18:    tst.l    d7
  679.     bne.b    c0A24
  680.     move.l    $10(a3),a0
  681.     jsr    c5354(pc)
  682. c0A24:    cmp.l    d6,d7
  683.     ble.b    c0A2A
  684.     move.l    d7,d6
  685. c0A2A:    move.l    (a3),a3
  686. c0A2C:    lea    $430(a4),a0
  687.     cmpa.l    a0,a3
  688.     beq.b    c0A3C
  689.     moveq    #2,d0
  690.     cmp.l    d0,d7
  691.     blt.w    c09A0
  692. c0A3C:    move.l    $824(a4),d0
  693.     beq.w    c0CE8
  694.     move.l    d0,a0
  695.     lea    $450(a4),a1
  696.     jsr    c5372(pc)
  697.     bra.w    c0CE8
  698.  
  699. c0A52:    move.l    $430(a4),a3
  700.     bra.b    c0A86
  701.  
  702. c0A58:    lea    Freshening.MSG(pc),a0
  703.     move.l    $10(a3),a1
  704.     bsr.w    c053E
  705.     move.l    $10(a3),a0
  706.     lea    $470(a4),a1
  707.     jsr    c4C64(pc)
  708.     move.l    d0,d7
  709.     tst.l    d7
  710.     bne.b    c0A7E
  711.     move.l    $10(a3),a0
  712.     jsr    c5354(pc)
  713. c0A7E:    cmp.l    d6,d7
  714.     ble.b    c0A84
  715.     move.l    d7,d6
  716. c0A84:    move.l    (a3),a3
  717. c0A86:    lea    $430(a4),a0
  718.     cmpa.l    a0,a3
  719.     beq.w    c0CE8
  720.     moveq    #2,d0
  721.     cmp.l    d0,d7
  722.     blt.b    c0A58
  723.     bra.w    c0CE8
  724.  
  725. c0A9A:    move.l    $430(a4),a3
  726.     bra.b    c0B06
  727.  
  728. c0AA0:    lea    Deletingfiles.MSG(pc),a0
  729.     move.l    $10(a3),a1
  730.     bsr.w    c053E
  731.     moveq    #0,d0
  732.     move.l    d0,-(sp)
  733.     move.l    d0,-(sp)
  734.     move.l    d0,-(sp)
  735.     pea    c0D96(pc)
  736.     pea    c0D8A(pc)
  737.     pea    c0D7E(pc)
  738.     pea    Delete.MSG(pc)
  739.     pea    deleted.MSG(pc)
  740.     move.l    d0,-(sp)
  741.     move.l    d0,-(sp)
  742.     move.l    #$101E8,d0
  743.     move.l    $10(a3),a0
  744.     lea    $470(a4),a1
  745.     jsr    c4D50(pc)
  746.     lea    $28(sp),sp
  747.     move.l    d0,d7
  748.     tst.l    d7
  749.     bne.b    c0AF2
  750.     move.l    $10(a3),a0
  751.     jsr    c0D5A(pc)
  752.     move.l    d0,d7
  753. c0AF2:    tst.l    d7
  754.     bne.b    c0AFE
  755.     move.l    $10(a3),a0
  756.     jsr    c5354(pc)
  757. c0AFE:    cmp.l    d6,d7
  758.     ble.b    c0B04
  759.     move.l    d7,d6
  760. c0B04:    move.l    (a3),a3
  761. c0B06:    lea    $430(a4),a0
  762.     cmpa.l    a0,a3
  763.     beq.w    c0CE8
  764.     moveq    #2,d0
  765.     cmp.l    d0,d7
  766.     blt.b    c0AA0
  767.     bra.w    c0CE8
  768.  
  769. c0B1A:    moveq    #1,d0
  770.     move.l    d0,$D4(a4)
  771. c0B20:    move.b    $25(sp),d0
  772.     moveq    #$70,d1
  773.     cmp.b    d1,d0
  774.     bne.b    c0B2E
  775.     moveq    #4,d1
  776.     bra.b    c0B3C
  777.  
  778. c0B2E:    moveq    #$74,d1
  779.     cmp.b    d1,d0
  780.     bne.b    c0B38
  781.     moveq    #2,d0
  782.     bra.b    c0B3A
  783.  
  784. c0B38:    moveq    #1,d0
  785. c0B3A:    move.l    d0,d1
  786. c0B3C:    move.l    d1,d0
  787.     jsr    c0D60(pc)
  788.     move.l    d0,a3
  789.     move.l    a3,d0
  790.     bne.b    c0B4A
  791.     moveq    #2,d7
  792. c0B4A:    move.l    $430(a4),a2
  793.     bra.w    c0C1C
  794.  
  795. c0B52:    move.b    $25(sp),d0
  796.     moveq    #$74,d1
  797.     cmp.b    d1,d0
  798.     bne.b    c0B62
  799.     lea    Testingintegr.MSG(pc),a0
  800.     bra.b    c0B66
  801.  
  802. c0B62:    lea    Extractingfro.MSG(pc),a0
  803. c0B66:    move.l    $10(a2),a1
  804.     bsr.w    c053E
  805.     move.b    $25(sp),d0
  806.     moveq    #$70,d1
  807.     cmp.b    d1,d0
  808.     bne.b    c0BAA
  809.     move.l    a3,-(sp)
  810.     moveq    #0,d0
  811.     move.l    d0,-(sp)
  812.     move.l    d0,-(sp)
  813.     move.l    d0,-(sp)
  814.     pea    c0D9C(pc)
  815.     move.l    d0,-(sp)
  816.     pea    Print.MSG(pc)
  817.     pea    printed.MSG(pc)
  818.     move.l    d0,-(sp)
  819.     move.l    d0,-(sp)
  820.     moveq    #4,d0
  821.     move.l    $10(a2),a0
  822.     lea    $470(a4),a1
  823.     jsr    c4D50(pc)
  824.     lea    $28(sp),sp
  825.     move.l    d0,d7
  826.     bra.b    c0C14
  827.  
  828. c0BAA:    moveq    #$74,d1
  829.     cmp.b    d1,d0
  830.     bne.b    c0BE0
  831.     move.l    a3,-(sp)
  832.     moveq    #0,d0
  833.     move.l    d0,-(sp)
  834.     move.l    d0,-(sp)
  835.     move.l    d0,-(sp)
  836.     pea    c0D9C(pc)
  837.     move.l    d0,-(sp)
  838.     move.l    d0,-(sp)
  839.     pea    tested.MSG(pc)
  840.     move.l    d0,-(sp)
  841.     pea    Testing.MSG(pc)
  842.     move.l    d0,a1
  843.     moveq    #2,d0
  844.     move.l    $10(a2),a0
  845.     jsr    c4D50(pc)
  846.     lea    $28(sp),sp
  847.     move.l    d0,d7
  848.     bra.b    c0C14
  849.  
  850. c0BE0:    move.l    a3,-(sp)
  851.     pea    $710(a4)
  852.     moveq    #0,d0
  853.     move.l    d0,-(sp)
  854.     move.l    d0,-(sp)
  855.     pea    c0D9C(pc)
  856.     move.l    d0,-(sp)
  857.     pea    Extract.MSG(pc)
  858.     pea    extracted.MSG(pc)
  859.     move.l    d0,-(sp)
  860.     pea    Extracting.MSG(pc)
  861.     moveq    #1,d0
  862.     move.l    $10(a2),a0
  863.     lea    $470(a4),a1
  864.     jsr    c4D50(pc)
  865.     lea    $28(sp),sp
  866.     move.l    d0,d7
  867. c0C14:    cmp.l    d6,d7
  868.     ble.b    c0C1A
  869.     move.l    d7,d6
  870. c0C1A:    move.l    (a2),a2
  871. c0C1C:    lea    $430(a4),a0
  872.     cmpa.l    a0,a2
  873.     beq.b    c0C2C
  874.     moveq    #2,d0
  875.     cmp.l    d0,d7
  876.     blt.w    c0B52
  877. c0C2C:    move.l    a3,a0
  878.     jsr    c0D66(pc)
  879.     bra.w    c0CE8
  880.  
  881. c0C36:    move.l    $430(a4),a3
  882.     move.l    #$1E8,$C0(a4)
  883.     bra.b    c0CBA
  884.  
  885. c0C44:    move.b    $24(sp),d0
  886.     moveq    #$76,d2
  887.     cmp.b    d2,d0
  888.     seq    d1
  889.     neg.b    d1
  890.     ext.w    d1
  891.     ext.l    d1
  892.     move.b    $25(sp),d0
  893.     cmp.b    d2,d0
  894.     seq    d2
  895.     neg.b    d2
  896.     ext.w    d2
  897.     ext.l    d2
  898.     add.l    d1,d2
  899.     move.l    d2,$26(sp)
  900.     lea    Listingof.MSG(pc),a0
  901.     move.l    $10(a3),a1
  902.     bsr.w    c053E
  903.     move.l    $26(sp),d0
  904.     jsr    c0D54(pc)
  905.     moveq    #0,d0
  906.     move.l    d0,-(sp)
  907.     move.l    d0,-(sp)
  908.     move.l    d0,-(sp)
  909.     move.l    d0,-(sp)
  910.     pea    c0D84(pc)
  911.     move.l    d0,-(sp)
  912.     move.l    d0,-(sp)
  913.     move.l    d0,-(sp)
  914.     move.l    d0,-(sp)
  915.     move.l    d0,-(sp)
  916.     move.l    $4E(sp),d0
  917.     move.l    $10(a3),a0
  918.     lea    $470(a4),a1
  919.     jsr    c4D50(pc)
  920.     move.l    d0,d7
  921.     move.l    $10(a3),a0
  922.     jsr    c0D72(pc)
  923.     lea    $28(sp),sp
  924.     cmp.l    d6,d7
  925.     ble.b    c0CB8
  926.     move.l    d7,d6
  927. c0CB8:    move.l    (a3),a3
  928. c0CBA:    lea    $430(a4),a0
  929.     cmpa.l    a0,a3
  930.     beq.b    c0CE8
  931.     moveq    #2,d0
  932.     cmp.l    d0,d6
  933.     blt.w    c0C44
  934.     bra.b    c0CE8
  935.  
  936. c0CCC:    moveq    #0,d0
  937.     move.b    $810(a4),d0
  938.     swap    d0
  939.     clr.w    d0
  940.     move.l    d0,-(sp)
  941.     pea    LhAUnknownoru.MSG(pc)
  942.     jsr    c2328(pc)
  943.     moveq    #$14,d0
  944.     jsr    c21BC(pc)
  945.     addq.w    #8,sp
  946. c0CE8:    move.l    d6,d0
  947.     tst.l    d0
  948.     beq.b    c0CF4
  949.     subq.l    #2,d0
  950.     beq.b    c0D04
  951.     bra.b    c0D14
  952.  
  953. c0CF4:    pea    Operationsucc.MSG(pc)
  954.     jsr    c2328(pc)
  955.     moveq    #0,d0
  956.     jsr    c21BC(pc)
  957.     addq.w    #4,sp
  958. c0D04:    pea    Operationfail.MSG(pc)
  959.     jsr    c2328(pc)
  960.     moveq    #$14,d0
  961.     jsr    c21BC(pc)
  962.     addq.w    #4,sp
  963. c0D14:    pea    Operationnote.MSG(pc)
  964.     jsr    c2328(pc)
  965.     moveq    #10,d0
  966.     jsr    c21BC(pc)
  967.     addq.w    #4,sp
  968.     movem.l    (sp)+,d2-d7/a2/a3/a6
  969.     unlk    a5
  970.     rts
  971.  
  972. c0D2C:    movem.l    d2/d3/a6,-(sp)
  973.     jsr    c10FC(pc)
  974.     jsr    c0D78(pc)
  975.     move.l    $420(a4),a6
  976.     jsr    Output(a6)
  977.     move.l    d0,d1
  978.     lea    ESCseq(pc),a0
  979.     move.l    a0,d2
  980.     moveq    #13,d3
  981.     jsr    Write(a6)
  982.     movem.l    (sp)+,d2/d3/a6
  983.     rts
  984.  
  985. c0D54:    jmp    c9DF4
  986.  
  987. c0D5A:    jmp    cA654
  988.  
  989. c0D60:    jmp    c9712
  990.  
  991. c0D66:    jmp    c9762
  992.  
  993. c0D6C:    jmp    cA6F8
  994.  
  995. c0D72:    jmp    cA2A4
  996.  
  997. c0D78:    jmp    cA774
  998.  
  999. c0D7E:    jmp    cA5EE
  1000.  
  1001. c0D84:    jmp    cA034
  1002.  
  1003. c0D8A:    jmp    cA604
  1004.  
  1005. c0D90:    jmp    cA9D4
  1006.  
  1007. c0D96:    jmp    cA638
  1008.  
  1009. c0D9C:    jmp    c9780
  1010.  
  1011.     moveq    #$61,d0
  1012. c0DA4:    movem.l    d7/a3,-(sp)
  1013.     move.l    d0,d7
  1014.     move.l    a0,a3
  1015.     moveq    #$30,d0
  1016.     cmp.b    d0,d7
  1017.     bcs.b    c0DB8
  1018.     moveq    #$39,d0
  1019.     cmp.b    d0,d7
  1020.     bls.b    c0DBC
  1021. c0DB8:    moveq    #1,d0
  1022.     bra.b    c0DC6
  1023.  
  1024. c0DBC:    addq.l    #1,(a3)
  1025.     moveq    #0,d0
  1026.     move.b    d7,d0
  1027.     moveq    #$30,d1
  1028.     sub.l    d1,d0
  1029. c0DC6:    movem.l    (sp)+,d7/a3
  1030.     rts
  1031.  
  1032. LhAInvalidopt.MSG:    dc.b    'LhA: Invalid option - %c',$A,0
  1033. LhAInvalidext.MSG:    dc.b    'LhA: Invalid extended option - %c',$A,0
  1034.     dc.b    0
  1035.  
  1036. c0E0A:    link.w    a5,#-$1C
  1037.     movem.l    d6/d7/a2/a3/a6,-(sp)
  1038.     move.l    a0,-$16(a5)
  1039.     moveq    #0,d0
  1040.     move.l    d0,-$10(a5)
  1041.     move.l    d0,d7
  1042.     bra.w    c0FEC
  1043.  
  1044. c0E22:    tst.l    d7
  1045.     bne.w    c0F92
  1046.     lea    $F0(a4),a3
  1047.     bra.b    c0E30
  1048.  
  1049. c0E2E:    addq.l    #6,a3
  1050. c0E30:    move.b    (a3),d0
  1051.     beq.b    c0E38
  1052.     cmp.b    d6,d0
  1053.     bne.b    c0E2E
  1054. c0E38:    tst.b    (a3)
  1055.     beq.b    c0E5C
  1056.     move.l    2(a3),a0
  1057.     moveq    #0,d0
  1058.     move.b    1(a2),d0
  1059.     move.l    a0,$14(sp)
  1060.     lea    -$10(a5),a0
  1061.     bsr.w    c0DA4
  1062.     move.l    $14(sp),a0
  1063.     move.l    d0,(a0)
  1064.     bra.w    c0FEC
  1065.  
  1066. c0E5C:    moveq    #0,d0
  1067.     move.b    d6,d0
  1068.     subi.w    #$30,d0
  1069.     beq.w    c0F68
  1070.     subq.w    #1,d0
  1071.     beq.w    c0F68
  1072.     subq.w    #1,d0
  1073.     beq.w    c0F70
  1074.     subi.w    #$1A,d0
  1075.     beq.w    c0F04
  1076.     subq.w    #4,d0
  1077.     beq.w    c0F10
  1078.     subq.w    #1,d0
  1079.     beq.w    c0F34
  1080.     subq.w    #4,d0
  1081.     beq.w    c0F3A
  1082.     subi.w    #13,d0
  1083.     beq.b    c0EA4
  1084.     subq.w    #7,d0
  1085.     beq.b    c0EE0
  1086.     subi.w    #14,d0
  1087.     beq.w    c0F5C
  1088.     bra.w    c0F76
  1089.  
  1090. c0EA4:    lea    1(a2),a0
  1091.     jsr    c10F4(pc)
  1092.     asl.l    #8,d0
  1093.     asl.l    #2,d0
  1094.     move.l    d0,$C0(a4)
  1095.     cmpi.l    #$2000,d0
  1096.     bge.b    c0ECA
  1097.     move.l    #$2000,d1
  1098.     move.l    d1,$C0(a4)
  1099.     bra.w    c100E
  1100.  
  1101. c0ECA:    cmpi.l    #$10000,d0
  1102.     ble.w    c100E
  1103.     move.l    #$10000,$C0(a4)
  1104.     bra.w    c100E
  1105.  
  1106. c0EE0:    moveq    #8,d0
  1107.     jsr    c210A(pc)
  1108.     move.l    d0,a0
  1109.     move.l    $B4(a4),(a0)
  1110.     move.l    -$16(a5),a1
  1111.     adda.l    -$10(a5),a1
  1112.     lea    1(a1),a6
  1113.     move.l    a6,4(a0)
  1114.     move.l    d0,$B4(a4)
  1115.     bra.w    c100E
  1116.  
  1117. c0F04:    lea    1(a2),a0
  1118.     move.l    a0,$824(a4)
  1119.     bra.w    c100E
  1120.  
  1121. c0F10:    lea    1(a2),a0
  1122.     jsr    c10F4(pc)
  1123.     move.l    d0,$88C(a4)
  1124.     suba.l    a1,a1
  1125.     move.l    4,a6
  1126.     jsr    FindTask(a6)
  1127.     move.l    d0,a1
  1128.     move.l    $88C(a4),d0
  1129.     jsr    SetTaskPri(a6)
  1130.     bra.w    c100E
  1131.  
  1132. c0F34:    moveq    #1,d7
  1133.     bra.w    c0FEC
  1134.  
  1135. c0F3A:    lea    1(a2),a0
  1136.     jsr    c10F4(pc)
  1137.     move.l    d0,$E8(a4)
  1138.     cmpi.l    #$400,d0
  1139.     bge.w    c100E
  1140.     move.l    #$400,$E8(a4)
  1141.     bra.w    c100E
  1142.  
  1143. c0F5C:    lea    1(a2),a0
  1144.     move.l    a0,$820(a4)
  1145.     bra.w    c100E
  1146.  
  1147. c0F68:    moveq    #1,d0
  1148.     move.l    d0,$874(a4)
  1149.     bra.b    c0FEC
  1150.  
  1151. c0F70:    clr.l    $874(a4)
  1152.     bra.b    c0FEC
  1153.  
  1154. c0F76:    moveq    #0,d0
  1155.     move.b    (a2),d0
  1156.     swap    d0
  1157.     clr.w    d0
  1158.     move.l    d0,-(sp)
  1159.     pea    LhAInvalidopt.MSG(pc)
  1160.     jsr    c2328(pc)
  1161.     moveq    #$14,d0
  1162.     jsr    c21BC(pc)
  1163.     addq.w    #8,sp
  1164.     bra.b    c0FEC
  1165.  
  1166. c0F92:    moveq    #0,d0
  1167.     move.b    d6,d0
  1168.     subi.w    #$68,d0
  1169.     bne.b    c0FD2
  1170.     lea    1(a2),a0
  1171.     jsr    c10F4(pc)
  1172.     asl.l    #8,d0
  1173.     asl.l    #2,d0
  1174.     move.l    d0,$BC(a4)
  1175.     cmpi.l    #$1000,d0
  1176.     bge.b    c0FC0
  1177.     move.l    #$1000,d1
  1178.     move.l    d1,$BC(a4)
  1179.     bra.b    c100E
  1180.  
  1181. c0FC0:    cmpi.l    #$FFFF,d0
  1182.     ble.b    c100E
  1183.     move.l    #$FFFF,$BC(a4)
  1184.     bra.b    c100E
  1185.  
  1186. c0FD2:    moveq    #0,d0
  1187.     move.b    d6,d0
  1188.     swap    d0
  1189.     clr.w    d0
  1190.     move.l    d0,-(sp)
  1191.     pea    LhAInvalidext.MSG(pc)
  1192.     jsr    c2328(pc)
  1193.     moveq    #$14,d0
  1194.     jsr    c21BC(pc)
  1195.     addq.w    #8,sp
  1196. c0FEC:    addq.l    #1,-$10(a5)
  1197.     move.l    -$16(a5),a0
  1198.     adda.l    -$10(a5),a0
  1199.     move.l    a0,a2
  1200.     move.b    (a2),d6
  1201.     tst.b    d6
  1202.     bne.w    c0E22
  1203.     tst.l    $864(a4)
  1204.     beq.b    c100E
  1205.     moveq    #1,d0
  1206.     move.l    d0,$86C(a4)
  1207. c100E:    movem.l    (sp)+,d6/d7/a2/a3/a6
  1208.     unlk    a5
  1209.     rts
  1210.  
  1211. c1016:    move.l    a6,-(sp)
  1212.     moveq    #-1,d0
  1213.     cmp.l    $D4(a4),d0
  1214.     bne.b    c1052
  1215.     moveq    #0,d0
  1216.     move.b    $810(a4),d0
  1217.     subi.w    #$61,d0
  1218.     beq.b    c1038
  1219.     subq.w    #5,d0
  1220.     beq.b    c104C
  1221.     subq.w    #7,d0
  1222.     beq.b    c1038
  1223.     subq.w    #8,d0
  1224.     bne.b    c104C
  1225. c1038:    tst.l    $828(a4)
  1226.     beq.b    c1046
  1227.     moveq    #1,d0
  1228.     move.l    d0,$D4(a4)
  1229.     bra.b    c1052
  1230.  
  1231. c1046:    clr.l    $D4(a4)
  1232.     bra.b    c1052
  1233.  
  1234. c104C:    moveq    #1,d0
  1235.     move.l    d0,$D4(a4)
  1236. c1052:    moveq    #-1,d0
  1237.     cmp.l    $D0(a4),d0
  1238.     bne.b    c107E
  1239.     moveq    #0,d0
  1240.     move.b    $810(a4),d0
  1241.     subi.w    #$61,d0
  1242.     beq.b    c1072
  1243.     subq.w    #5,d0
  1244.     beq.b    c1072
  1245.     subq.w    #7,d0
  1246.     beq.b    c1072
  1247.     subq.w    #8,d0
  1248.     bne.b    c107A
  1249. c1072:    moveq    #1,d0
  1250.     move.l    d0,$D0(a4)
  1251.     bra.b    c107E
  1252.  
  1253. c107A:    clr.l    $D0(a4)
  1254. c107E:    tst.l    $E4(a4)
  1255.     beq.b    c108A
  1256.     clr.l    $E4(a4)
  1257.     bra.b    c1090
  1258.  
  1259. c108A:    moveq    #1,d0
  1260.     move.l    d0,$E4(a4)
  1261. c1090:    tst.l    $830(a4)
  1262.     beq.b    c109C
  1263.     moveq    #1,d0
  1264.     move.l    d0,$864(a4)
  1265. c109C:    move.l    $864(a4),d0
  1266.     beq.b    c10A8
  1267.     moveq    #1,d1
  1268.     move.l    d1,$86C(a4)
  1269. c10A8:    tst.l    d0
  1270.     beq.b    c10B2
  1271.     moveq    #1,d0
  1272.     move.l    d0,$868(a4)
  1273. c10B2:    tst.l    $868(a4)
  1274.     bne.b    c10D0
  1275.     move.l    $420(a4),a6
  1276.     jsr    Input(a6)
  1277.     move.l    d0,d1
  1278.     jsr    IsInteractive(a6)
  1279.     tst.l    d0
  1280.     bne.b    c10D0
  1281.     moveq    #1,d0
  1282.     move.l    d0,$868(a4)
  1283. c10D0:    tst.l    $868(a4)
  1284.     beq.b    c10E4
  1285.     move.l    $CC(a4),d0
  1286.     tst.l    d0
  1287.     bpl.b    c10E4
  1288.     moveq    #1,d1
  1289.     move.l    d1,$CC(a4)
  1290. c10E4:    move.l    $CC(a4),d0
  1291.     tst.l    d0
  1292.     bpl.b    c10F0
  1293.     clr.l    $CC(a4)
  1294. c10F0:    move.l    (sp)+,a6
  1295.     rts
  1296.  
  1297. c10F4:    jmp    cA96C
  1298.  
  1299.     moveq    #$61,d0
  1300. c10FC:    link.w    a5,#-$10C
  1301.     movem.l    d7/a2/a3/a6,-(sp)
  1302.     move.l    $428(a4),d1
  1303.     move.l    $420(a4),a6
  1304.     jsr    CurrentDir(a6)
  1305.     lea    $894(a4),a3
  1306.     bra.b    c114E
  1307.  
  1308. c1116:    moveq    #0,d7
  1309.     move.l    (a3),a2
  1310.     move.l    a2,d0
  1311.     beq.b    c114C
  1312.     btst    #6,$1B(a2)
  1313.     beq.b    c1134
  1314.     moveq    #1,d7
  1315.     move.l    $1C(a2),a0
  1316.     lea    -$10C(a5),a1
  1317. c1130:    move.b    (a0)+,(a1)+
  1318.     bne.b    c1130
  1319. c1134:    move.l    (a3),a0
  1320.     bsr.w    c1732
  1321.     tst.l    d7
  1322.     beq.b    c114C
  1323.     lea    -$10C(a5),a0
  1324.     move.l    a0,d1
  1325.     move.l    $420(a4),a6
  1326.     jsr    -$48(a6)
  1327. c114C:    addq.l    #4,a3
  1328. c114E:    lea    $8E4(a4),a0
  1329.     cmpa.l    a0,a3
  1330.     bcs.b    c1116
  1331.     lea    $8E4(a4),a3
  1332.     bra.b    c116C
  1333.  
  1334. c115C:    move.l    (a3),d0
  1335.     beq.b    c116A
  1336.     move.l    d0,d1
  1337.     move.l    $420(a4),a6
  1338.     jsr    -$24(a6)
  1339. c116A:    addq.l    #4,a3
  1340. c116C:    lea    $904(a4),a0
  1341.     cmpa.l    a0,a3
  1342.     bcs.b    c115C
  1343.     lea    $904(a4),a3
  1344.     bra.b    c118C
  1345.  
  1346. c117A:    move.l    (a3),d0
  1347.     tst.l    d0
  1348.     ble.b    c118A
  1349.     move.l    d0,d1
  1350.     move.l    $420(a4),a6
  1351.     jsr    -$5A(a6)
  1352. c118A:    addq.l    #4,a3
  1353. c118C:    lea    $A04(a4),a0
  1354.     cmpa.l    a0,a3
  1355.     bcs.b    c117A
  1356.     movem.l    (sp)+,d7/a2/a3/a6
  1357.     unlk    a5
  1358.     rts
  1359.  
  1360. LhATmp.MSG:    dc.b    'LhATmp.',0
  1361. LhA_ArcWork.MSG:    dc.b    'LhA_ArcWork.',0,0
  1362. LhAUnabletode.MSG:    dc.b    10
  1363.     dc.b    '*** LhA: Unable to delete original archive',$A
  1364.     dc.b    '    Recovery archive is left in file `%s''.',$A,0
  1365. LhAErrorwhile.MSG:    dc.b    10
  1366.     dc.b    '*** LhA: Error while replacing original with'
  1367.     dc.b    ' temporary archive',$A
  1368.     dc.b    '    Recovery archive is left in file `%s''.',$A,0
  1369.  
  1370. c1276:    movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  1371.     move.l    a0,a3
  1372.     move.l    d0,d7
  1373.     moveq    #0,d6
  1374.     lea    $8E4(a4),a2
  1375.     bra.b    c128E
  1376.  
  1377. c1286:    tst.l    (a2)
  1378.     beq.b    c1294
  1379.     addq.l    #1,d6
  1380.     addq.l    #4,a2
  1381. c128E:    moveq    #8,d0
  1382.     cmp.l    d0,d6
  1383.     blt.b    c1286
  1384. c1294:    moveq    #8,d0
  1385.     cmp.l    d0,d6
  1386.     blt.b    OpenFile
  1387.     moveq    #0,d0
  1388.     bra.b    c12B6
  1389.  
  1390. OpenFile:    move.l    a3,d1
  1391.     move.l    d7,d2
  1392.     move.l    $420(a4),a6
  1393.     jsr    Open(a6)
  1394.     move.l    d6,d1
  1395.     asl.l    #2,d1
  1396.     lea    $8E4(a4),a0
  1397.     move.l    d0,(a0,d1.l)
  1398. c12B6:    movem.l    (sp)+,d2/d6/d7/a2/a3/a6
  1399.     rts
  1400.  
  1401. c12BC:    movem.l    d6/d7/a3/a6,-(sp)
  1402.     move.l    d0,d7
  1403.     moveq    #0,d6
  1404.     lea    $8E4(a4),a3
  1405.     bra.b    c12D4
  1406.  
  1407. CloseFile:    move.l    (a3),d0
  1408.     cmp.l    d7,d0
  1409.     beq.b    c12DA
  1410.     addq.l    #1,d6
  1411.     addq.l    #4,a3
  1412. c12D4:    moveq    #8,d0
  1413.     cmp.l    d0,d6
  1414.     blt.b    CloseFile
  1415. c12DA:    move.l    d7,d1
  1416.     move.l    $420(a4),a6
  1417.     jsr    Close(a6)
  1418.     moveq    #8,d0
  1419.     cmp.l    d0,d6
  1420.     bge.b    c12F6
  1421.     move.l    d6,d0
  1422.     asl.l    #2,d0
  1423.     lea    $8E4(a4),a0
  1424.     clr.l    (a0,d0.l)
  1425. c12F6:    movem.l    (sp)+,d6/d7/a3/a6
  1426.     rts
  1427.  
  1428. c12FC:    movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  1429.     move.l    a0,a3
  1430.     move.l    d0,d7
  1431.     moveq    #0,d6
  1432.     lea    $904(a4),a2
  1433.     bra.b    c1314
  1434.  
  1435. c130C:    tst.l    (a2)
  1436.     beq.b    c131A
  1437.     addq.l    #1,d6
  1438.     addq.l    #4,a2
  1439. c1314:    moveq    #$40,d0
  1440.     cmp.l    d0,d6
  1441.     blt.b    c130C
  1442. c131A:    moveq    #$40,d0
  1443.     cmp.l    d0,d6
  1444.     blt.b    FindLock
  1445.     moveq    #0,d0
  1446.     bra.b    c133C
  1447.  
  1448. FindLock:    move.l    a3,d1
  1449.     move.l    d7,d2
  1450.     move.l    $420(a4),a6
  1451.     jsr    Lock(a6)
  1452.     move.l    d6,d1
  1453.     asl.l    #2,d1
  1454.     lea    $904(a4),a0
  1455.     move.l    d0,(a0,d1.l)
  1456. c133C:    movem.l    (sp)+,d2/d6/d7/a2/a3/a6
  1457.     rts
  1458.  
  1459. c1342:    movem.l    d6/d7/a3,-(sp)
  1460.     move.l    d0,d7
  1461.     moveq    #0,d6
  1462.     lea    $904(a4),a3
  1463.     bra.b    c1358
  1464.  
  1465. c1350:    tst.l    (a3)
  1466.     beq.b    c135E
  1467.     addq.l    #1,d6
  1468.     addq.l    #4,a3
  1469. c1358:    moveq    #$40,d0
  1470.     cmp.l    d0,d6
  1471.     blt.b    c1350
  1472. c135E:    moveq    #$40,d0
  1473.     cmp.l    d0,d6
  1474.     blt.b    c1368
  1475.     moveq    #0,d0
  1476.     bra.b    c1376
  1477.  
  1478. c1368:    move.l    d6,d0
  1479.     asl.l    #2,d0
  1480.     lea    $904(a4),a0
  1481.     move.l    d7,0(a0,d0.l)
  1482.     move.l    d7,d0
  1483. c1376:    movem.l    (sp)+,d6/d7/a3
  1484.     rts
  1485.  
  1486. c137C:    movem.l    d6/d7/a3/a6,-(sp)
  1487.     move.l    d0,d7
  1488.     moveq    #0,d6
  1489.     lea    $904(a4),a3
  1490.     bra.b    c1394
  1491.  
  1492. FreeLock:    move.l    (a3),d0
  1493.     cmp.l    d7,d0
  1494.     beq.b    c139A
  1495.     addq.l    #1,d6
  1496.     addq.l    #4,a3
  1497. c1394:    moveq    #$40,d0
  1498.     cmp.l    d0,d6
  1499.     blt.b    FreeLock
  1500. c139A:    moveq    #$40,d0
  1501.     cmp.l    d0,d6
  1502.     bge.b    c13AC
  1503.     move.l    d6,d0
  1504.     asl.l    #2,d0
  1505.     lea    $904(a4),a0
  1506.     clr.l    (a0,d0.l)
  1507. c13AC:    move.l    d7,d1
  1508.     move.l    $420(a4),a6
  1509.     jsr    UnLock(a6)
  1510.     jsr    c2282(pc)
  1511.     movem.l    (sp)+,d6/d7/a3/a6
  1512.     rts
  1513.  
  1514. c13C0:    link.w    a5,#-$120
  1515.     move.l    a6,-(sp)
  1516.     lea    LhATmp.MSG(pc),a0
  1517.     lea    -$20(a5),a1
  1518.     move.l    (a0)+,(a1)+
  1519.     move.l    (a0)+,(a1)+
  1520.     movea.w    #4,a0
  1521.     move.l    (a0),a1
  1522.     move.l    $114(a1),d0
  1523.     lea    -$19(a5),a0
  1524.     jsr    c2110(pc)
  1525.     move.l    $820(a4),a0
  1526.     lea    -$120(a5),a1
  1527. c13EC:    move.b    (a0)+,(a1)+
  1528.     bne.b    c13EC
  1529.     lea    -$120(a5),a0
  1530.     lea    -$20(a5),a1
  1531.     move.l    $424(a4),a6
  1532.     jsr    -$270(a6)
  1533.     moveq    #$54,d0
  1534.     move.l    $C0(a4),d1
  1535.     lea    -$120(a5),a0
  1536.     bsr.w    c1564
  1537.     move.l    (a7)+,a6
  1538.     unlk    a5
  1539.     rts
  1540.  
  1541. c1414:    link.w    a5,#-$120
  1542.     move.l    a6,-(sp)
  1543.     lea    LhA_ArcWork.MSG(pc),a0
  1544.     lea    -$20(a5),a1
  1545.     move.l    (a0)+,(a1)+
  1546.     move.l    (a0)+,(a1)+
  1547.     move.l    (a0)+,(a1)+
  1548.     sf    (a1)
  1549.     movea.w    #4,a0
  1550.     move.l    (a0),a1
  1551.     move.l    $114(a1),d0
  1552.     lea    -$14(a5),a0
  1553.     jsr    c2110(pc)
  1554.     move.l    $820(a4),a0
  1555.     lea    -$120(a5),a1
  1556. c1444:    move.b    (a0)+,(a1)+
  1557.     bne.b    c1444
  1558.     lea    -$120(a5),a0
  1559.     lea    -$20(a5),a1
  1560.     move.l    $424(a4),a6
  1561.     jsr    -$270(a6)
  1562.     moveq    #$74,d0
  1563.     move.l    $C0(a4),d1
  1564.     lea    -$120(a5),a0
  1565.     bsr.w    c1564
  1566.     move.l    (sp)+,a6
  1567.     unlk    a5
  1568.     rts
  1569.  
  1570. c146C:    link.w    a5,#-8
  1571.     movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  1572.     move.l    a0,a3
  1573.     move.l    a1,a2
  1574.     move.l    d0,d7
  1575.     move.l    $1C(a3),a0
  1576.     jsr    c2104(pc)
  1577.     move.l    d0,$18(sp)
  1578.     moveq    #0,d0
  1579.     move.l    d0,d1
  1580.     move.l    a3,a0
  1581.     bsr.w    c188C
  1582.     tst.l    d0
  1583.     bpl.b    DeleteFile
  1584.     moveq    #-1,d0
  1585.     bra.w    c155A
  1586.  
  1587. DeleteFile:
  1588.     move.l    a2,d1
  1589.     move.l    $420(a4),a6
  1590.     jsr    -$AE(a6)
  1591.     move.l    d0,$1C(sp)
  1592.     move.l    $18(sp),d1
  1593.     jsr    -$AE(a6)
  1594.     move.l    $1C(sp),a0
  1595.     cmpa.l    d0,a0
  1596.     bne.b    c14F6
  1597.     move.l    a2,d1
  1598.     jsr    FnDeleteFile(a6)
  1599.     tst.l    d0
  1600.     bne.b    RenameFile
  1601.     move.l    $1C(a3),-(sp)
  1602.     pea    LhAUnabletode.MSG(pc)
  1603.     jsr    c2328(pc)
  1604.     bclr    #6,$1B(a3)
  1605.     move.l    a3,a0
  1606.     bsr.w    c1732
  1607.     moveq    #-1,d0
  1608.     bra.b    c155A
  1609.  
  1610. RenameFile:    move.l    a3,a0
  1611.     bsr.w    c1732
  1612.     move.l    $18(sp),a3
  1613.     move.l    a3,d1
  1614.     move.l    a2,d2
  1615.     move.l    $420(a4),a6
  1616.     jsr    Rename(a6)
  1617.     bra.b    c1552
  1618.  
  1619. c14F6:    move.l    #$3EE,d0
  1620.     move.l    a2,a0
  1621.     bsr.w    c1276
  1622.     move.l    d0,d6
  1623.     tst.l    d6
  1624.     beq.b    c1516
  1625.     move.l    d6,d0
  1626.     move.l    d7,d1
  1627.     move.l    a3,a0
  1628.     bsr.w    c1B76
  1629.     tst.l    d0
  1630.     bpl.b    c1538
  1631. c1516:    move.l    $1C(a3),-(sp)
  1632.     pea    LhAErrorwhile.MSG(pc)
  1633.     jsr    c2328(pc)
  1634.     bclr    #6,$1B(a3)
  1635.     move.l    a3,a0
  1636.     bsr.w    c1732
  1637.     move.l    d6,d0
  1638.     bsr.w    c12BC
  1639.     moveq    #-1,d0
  1640.     bra.b    c155A
  1641.  
  1642. c1538:    move.l    a3,a0
  1643.     bsr.w    c1732
  1644.     move.l    d6,d0
  1645.     bsr.w    c12BC
  1646.     move.l    $18(sp),a3
  1647.     move.l    a3,d1
  1648.     move.l    $420(a4),a6
  1649.     jsr    FnDeleteFile(a6)
  1650. c1552:    move.l    a3,a0
  1651.     jsr    c29D2(pc)
  1652.     moveq    #0,d0
  1653. c155A:    movem.l    -$20(a5),d2/d6/d7/a2/a3/a6
  1654.     unlk    a5
  1655.     rts
  1656.  
  1657. c1564:    link.w    a5,#-$14
  1658.     movem.l    d2/d4-d7/a2/a3/a6,-(sp)
  1659.     move.l    d0,d7
  1660.     move.l    d1,d6
  1661.     move.l    a0,-$14(a5)
  1662.     clr.w    -$10(a5)
  1663.     bra.b    c1590
  1664.  
  1665. c157A:    move.w    -$10(a5),d0
  1666.     ext.l    d0
  1667.     asl.l    #2,d0
  1668.     lea    $894(a4),a0
  1669.     tst.l    (a0,d0.l)
  1670.     beq.b    c1598
  1671.     addq.w    #1,-$10(a5)
  1672. c1590:    cmpi.w    #$14,-$10(a5)
  1673.     blt.b    c157A
  1674. c1598:    cmpi.w    #$14,-$10(a5)
  1675.     blt.b    c15A6
  1676.     moveq    #0,d0
  1677.     bra.w    c172A
  1678.  
  1679. c15A6:    moveq    #$20,d0
  1680.     jsr    c210A(pc)
  1681.     move.l    d0,a2
  1682.     move.l    a2,d0
  1683.     bne.b    c15B8
  1684.     moveq    #0,d0
  1685.     bra.w    c172A
  1686.  
  1687. c15B8:    move.l    d6,8(a2)
  1688.     suba.l    a0,a0
  1689.     move.l    a0,$1C(a2)
  1690.     move.l    a0,$18(a2)
  1691.     move.l    a0,$10(a2)
  1692.     move.l    a0,12(a2)
  1693.     moveq    #-1,d0
  1694.     move.l    d0,$14(a2)
  1695.     moveq    #$77,d0
  1696.     cmp.b    d0,d7
  1697.     beq.b    c15E0
  1698.     moveq    #$57,d0
  1699.     cmp.b    d0,d7
  1700.     bne.b    c1644
  1701. c15E0:    move.l    #$104,d0
  1702.     moveq    #1,d1
  1703.     jsr    c29BA(pc)
  1704.     move.l    d0,a3
  1705.     tst.l    d0
  1706.     bne.b    c15F8
  1707.     moveq    #0,d0
  1708.     bra.w    c172A
  1709.  
  1710. c15F8:    moveq    #-1,d0
  1711.     move.l    -$14(a5),a0
  1712.     bsr.w    c12FC
  1713.     move.l    d0,d5
  1714.     tst.l    d5
  1715.     bne.b    c1614
  1716.     moveq    #$77,d0
  1717.     cmp.b    d0,d7
  1718.     bne.b    c1614
  1719.     moveq    #0,d0
  1720.     bra.w    c172A
  1721.  
  1722. c1614:    tst.l    d5
  1723.     beq.b    c163E
  1724.     move.l    d5,d1
  1725.     move.l    a3,d2
  1726.     move.l    $420(a4),a6
  1727.     jsr    -$66(a6)
  1728.     move.l    d5,d0
  1729.     bsr.w    c137C
  1730.     moveq    #5,d0
  1731.     and.l    $74(a3),d0
  1732.     beq.b    c163E
  1733.     move.l    a3,a0
  1734.     jsr    c29D2(pc)
  1735.     moveq    #0,d0
  1736.     bra.w    c172A
  1737.  
  1738. c163E:    move.l    a3,a0
  1739.     jsr    c29D2(pc)
  1740. c1644:    moveq    #$77,d0
  1741.     cmp.b    d0,d7
  1742.     bne.b    c164E
  1743.     moveq    #0,d4
  1744.     bra.b    c168A
  1745.  
  1746. c164E:    moveq    #$57,d0
  1747.     cmp.b    d0,d7
  1748.     bne.b    c1658
  1749.     moveq    #1,d4
  1750.     bra.b    c168A
  1751.  
  1752. c1658:    moveq    #$2B,d0
  1753.     cmp.b    d0,d7
  1754.     bne.b    c1662
  1755.     moveq    #2,d4
  1756.     bra.b    c168A
  1757.  
  1758. c1662:    moveq    #$72,d0
  1759.     cmp.b    d0,d7
  1760.     bne.b    c166C
  1761.     moveq    #0,d4
  1762.     bra.b    c168A
  1763.  
  1764. c166C:    moveq    #$74,d0
  1765.     cmp.b    d0,d7
  1766.     bne.b    c167C
  1767.     moveq    #$48,d0
  1768.     or.l    d0,$18(a2)
  1769.     moveq    #1,d4
  1770.     bra.b    c168A
  1771.  
  1772. c167C:    moveq    #$54,d0
  1773.     cmp.b    d0,d7
  1774.     bne.b    c168A
  1775.     moveq    #$28,d0
  1776.     or.l    d0,$18(a2)
  1777.     moveq    #1,d4
  1778. c168A:    btst    #4,$1B(a2)
  1779.     bne.b    c16AC
  1780.     move.l    d6,d0
  1781.     jsr    c210A(pc)
  1782.     move.l    d0,4(a2)
  1783.     tst.l    d0
  1784.     bne.b    c16B0
  1785.     move.l    a2,a0
  1786.     jsr    c29D2(pc)
  1787.     moveq    #0,d0
  1788.     bra.b    c172A
  1789.  
  1790. c16AC:    clr.l    4(a2)
  1791. c16B0:    btst    #3,$1B(a2)
  1792.     bne.b    c170A
  1793.     moveq    #2,d0
  1794.     cmp.w    d0,d4
  1795.     bne.b    c16C6
  1796.     move.l    #$3EE,d0
  1797.     bra.b    c16CC
  1798.  
  1799. c16C6:    move.l    #$3ED,d0
  1800. c16CC:    move.l    -$14(a5),a3
  1801.     move.l    a3,a0
  1802.     bsr.w    c1276
  1803.     move.l    d0,(a2)
  1804.     bne.b    c16EE
  1805.     moveq    #1,d0
  1806.     cmp.w    d0,d4
  1807.     bne.b    c16EE
  1808.     move.l    #$3EE,d0
  1809.     move.l    a3,a0
  1810.     bsr.w    c1276
  1811.     move.l    d0,(a2)
  1812. c16EE:    tst.l    (a2)
  1813.     bne.b    c170C
  1814.     tst.l    4(a2)
  1815.     beq.b    c1700
  1816.     move.l    4(a2),a0
  1817.     jsr    c29D2(pc)
  1818. c1700:    move.l    a2,a0
  1819.     jsr    c29D2(pc)
  1820.     moveq    #0,d0
  1821.     bra.b    c172A
  1822.  
  1823. c170A:    clr.l    (a2)
  1824. c170C:    move.l    -$14(a5),a0
  1825.     jsr    c2104(pc)
  1826.     move.l    d0,$1C(a2)
  1827.     move.w    -$10(a5),d0
  1828.     ext.l    d0
  1829.     asl.l    #2,d0
  1830.     lea    $894(a4),a0
  1831.     move.l    a2,(a0,d0.l)
  1832.     move.l    a2,d0
  1833. c172A:    movem.l    (sp)+,d2/d4-d7/a2/a3/a6
  1834.     unlk    a5
  1835.     rts
  1836.  
  1837. c1732:    movem.l    a2/a3/a6,-(sp)
  1838.     move.l    a0,a3
  1839.     move.l    a3,d0
  1840.     beq.b    c17A2
  1841.     btst    #2,$1B(a3)
  1842.     beq.b    c174A
  1843.     move.l    a3,a0
  1844.     bsr.b    c17A8
  1845. c174A:    move.l    (a3),d0
  1846.     beq.b    c1766
  1847.     bsr.w    c12BC
  1848.     btst    #5,$1B(a3)
  1849.     beq.b    c1766
  1850.     move.l    $1C(a3),d1
  1851.     move.l    $420(a4),a6
  1852.     jsr    FnDeleteFile(a6)
  1853. c1766:    tst.l    $1C(a3)
  1854.     beq.b    c1774
  1855.     move.l    $1C(a3),a0
  1856.     jsr    c29D2(pc)
  1857. c1774:    tst.l    4(a3)
  1858.     beq.b    c1782
  1859.     move.l    4(a3),a0
  1860.     jsr    c29D2(pc)
  1861. c1782:    move.l    a3,a0
  1862.     jsr    c29D2(pc)
  1863.     lea    $894(a4),a2
  1864.     bra.b    c179A
  1865.  
  1866. c178E:    move.l    (a2),a0
  1867.     cmpa.l    a3,a0
  1868.     bne.b    c1798
  1869.     clr.l    (a2)
  1870.     bra.b    c17A2
  1871.  
  1872. c1798:    addq.l    #4,a2
  1873. c179A:    lea    $8E4(a4),a0
  1874.     cmpa.l    a0,a2
  1875.     bcs.b    c178E
  1876. c17A2:    movem.l    (sp)+,a2/a3/a6
  1877.     rts
  1878.  
  1879. c17A8:    movem.l    d2/d3/d7/a3/a6,-(sp)
  1880.     move.l    a0,a3
  1881.     tst.l    4(a3)
  1882.     bne.b    c17BA
  1883.     moveq    #0,d0
  1884.     bra.w    c1886
  1885.  
  1886. c17BA:    jsr    c2282(pc)
  1887.     btst    #1,$1B(a3)
  1888.     beq.b    c17CC
  1889.     moveq    #-1,d0
  1890.     bra.w    c1886
  1891.  
  1892. c17CC:    btst    #2,$1B(a3)
  1893.     beq.b    c17DC
  1894.     move.l    $14(a3),d0
  1895.     tst.l    d0
  1896.     bpl.b    c17E2
  1897. c17DC:    moveq    #0,d0
  1898.     bra.w    c1886
  1899.  
  1900. c17E2:    tst.l    (a3)
  1901.     bne.b    c180E
  1902.     move.l    #$3EE,d0
  1903.     move.l    $1C(a3),a0
  1904.     bsr.w    c1276
  1905.     move.l    d0,(a3)
  1906.     bne.b    c180E
  1907.     bset    #1,$1B(a3)
  1908.     move.l    $420(a4),a6
  1909.     jsr    IoErr(a6)
  1910.     move.l    d0,$A04(a4)
  1911.     moveq    #-1,d0
  1912.     bra.b    c1886
  1913.  
  1914. c180E:    move.l    (a3),d1
  1915.     move.l    $10(a3),d2
  1916.     moveq    #-1,d3
  1917.     move.l    $420(a4),a6
  1918.     jsr    Seek(a6)
  1919.     tst.l    d0
  1920.     bpl.b    c1838
  1921.     bset    #1,$1B(a3)
  1922.     move.l    $420(a4),a6
  1923.     jsr    IoErr(a6)
  1924.     move.l    d0,$A04(a4)
  1925.     moveq    #-1,d0
  1926.     bra.b    c1886
  1927.  
  1928. c1838:    move.l    (a3),d1
  1929.     move.l    4(a3),d2
  1930.     move.l    $14(a3),d3
  1931.     jsr    -$30(a6)
  1932.     move.l    d0,d7
  1933.     tst.l    d7
  1934.     bpl.b    c1862
  1935.     bset    #1,$1B(a3)
  1936.     move.l    $420(a4),a6
  1937.     jsr    IoErr(a6)
  1938.     move.l    d0,$A04(a4)
  1939.     moveq    #-1,d0
  1940.     bra.b    c1886
  1941.  
  1942. c1862:    bclr    #2,$1B(a3)
  1943.     cmp.l    $14(a3),d7
  1944.     beq.b    c1884
  1945.     bset    #1,$1B(a3)
  1946.     move.l    $420(a4),a6
  1947.     jsr    IoErr(a6)
  1948.     move.l    d0,$A04(a4)
  1949.     moveq    #-1,d0
  1950.     bra.b    c1886
  1951.  
  1952. c1884:    moveq    #0,d0
  1953. c1886:    movem.l    (sp)+,d2/d3/d7/a3/a6
  1954.     rts
  1955.  
  1956. c188C:    movem.l    d2/d3/d5-d7/a3/a6,-(sp)
  1957.     move.l    a0,a3
  1958.     move.l    d0,d7
  1959.     move.l    d1,d6
  1960.     move.l    $10(a3),d0
  1961.     add.l    12(a3),d0
  1962.     move.l    d0,d5
  1963.     move.l    d6,d0
  1964.     tst.l    d0
  1965.     beq.b    c18B0
  1966.     subq.l    #1,d0
  1967.     beq.b    c18B4
  1968.     subq.l    #1,d0
  1969.     beq.b    c18BA
  1970.     bra.b    c18F6
  1971.  
  1972. c18B0:    move.l    d7,d6
  1973.     bra.b    c18FA
  1974.  
  1975. c18B4:    move.l    d5,d6
  1976.     add.l    d7,d6
  1977.     bra.b    c18FA
  1978.  
  1979. c18BA:    move.l    (a3),d0
  1980.     beq.b    c18E8
  1981.     move.l    d0,d1
  1982.     moveq    #0,d2
  1983.     moveq    #1,d3
  1984.     move.l    $420(a4),a6
  1985.     jsr    Seek(a6)
  1986.     tst.l    d0
  1987.     bpl.b    c18DC
  1988.     jsr    IoErr(a6)
  1989.     move.l    d0,$A04(a4)
  1990.     moveq    #-1,d0
  1991.     bra.b    c193A
  1992.  
  1993. c18DC:    move.l    (a3),d1
  1994.     jsr    Seek(a6)
  1995.     sub.l    d7,d0
  1996.     move.l    d0,d6
  1997.     bra.b    c18FA
  1998.  
  1999. c18E8:    move.l    $10(a3),d0
  2000.     add.l    $14(a3),d0
  2001.     sub.l    d7,d0
  2002.     move.l    d0,d6
  2003.     bra.b    c18FA
  2004.  
  2005. c18F6:    moveq    #-1,d0
  2006.     bra.b    c193A
  2007.  
  2008. c18FA:    move.l    $10(a3),d0
  2009.     cmp.l    d0,d6
  2010.     blt.b    c190A
  2011.     add.l    $14(a3),d0
  2012.     cmp.l    d0,d6
  2013.     blt.b    c192A
  2014. c190A:    move.l    a3,a0
  2015.     bsr.w    c17A8
  2016.     tst.w    d0
  2017.     bpl.b    c1918
  2018.     moveq    #-1,d0
  2019.     bra.b    c193A
  2020.  
  2021. c1918:    moveq    #-1,d0
  2022.     move.l    d0,$14(a3)
  2023.     move.l    d6,d0
  2024.     move.l    d0,$10(a3)
  2025.     clr.l    12(a3)
  2026.     bra.b    c1934
  2027.  
  2028. c192A:    move.l    d6,d0
  2029.     sub.l    $10(a3),d0
  2030.     move.l    d0,12(a3)
  2031. c1934:    jsr    c2282(pc)
  2032.     move.l    d5,d0
  2033. c193A:    movem.l    (sp)+,d2/d3/d5-d7/a3/a6
  2034.     rts
  2035.  
  2036. c1940:    movem.l    d2/d3/a3/a6,-(sp)
  2037.     move.l    a0,a3
  2038.     tst.l    4(a3)
  2039.     bne.b    c196C
  2040.     move.l    8(a3),d0
  2041.     jsr    c210A(pc)
  2042.     move.l    d0,4(a3)
  2043.     bne.b    c196C
  2044.     moveq    #3,d0
  2045.     or.l    d0,$18(a3)
  2046.     moveq    #0,d0
  2047.     move.l    d0,$14(a3)
  2048.     moveq    #-1,d0
  2049.     bra.w    c1A12
  2050.  
  2051. c196C:    move.l    $14(a3),d0
  2052.     move.l    12(a3),d1
  2053.     cmp.l    d0,d1
  2054.     bge.b    c1988
  2055.     tst.l    d0
  2056.     bgt.w    c1A0A
  2057.     btst    #0,$1B(a3)
  2058.     bne.w    c1A0A
  2059. c1988:    move.l    a3,a0
  2060.     bsr.w    c17A8
  2061.     tst.w    d0
  2062.     bpl.b    c1996
  2063.     moveq    #-1,d0
  2064.     bra.b    c1A12
  2065.  
  2066. c1996:    tst.l    (a3)
  2067.     bne.b    c19C2
  2068.     move.l    #$3EE,d0
  2069.     move.l    $1C(a3),a0
  2070.     bsr.w    c1276
  2071.     move.l    d0,(a3)
  2072.     bne.b    c19C2
  2073.     bset    #1,$1B(a3)
  2074.     move.l    $420(a4),a6
  2075.     jsr    IoErr(a6)
  2076.     move.l    d0,$A04(a4)
  2077.     moveq    #-1,d0
  2078.     bra.b    c1A12
  2079.  
  2080. c19C2:    move.l    12(a3),d0
  2081.     add.l    $10(a3),d0
  2082.     move.l    d0,d2
  2083.     move.l    (a3),d1
  2084.     moveq    #-1,d3
  2085.     move.l    $420(a4),a6
  2086.     jsr    Seek(a6)
  2087.     tst.l    d0
  2088.     bpl.b    ReadBytes
  2089.     jsr    IoErr(a6)
  2090.     move.l    d0,$A04(a4)
  2091.     move.l    d3,d0
  2092.     bra.b    c1A12
  2093.  
  2094. ReadBytes:    move.l    12(a3),d0
  2095.     add.l    d0,$10(a3)
  2096.     move.l    (a3),d1
  2097.     move.l    4(a3),d2
  2098.     move.l    8(a3),d3
  2099.     move.l    $420(a4),a6
  2100.     jsr    Read(a6)
  2101.     move.l    d0,$14(a3)
  2102.     clr.l    12(a3)
  2103. c1A0A:    jsr    c2282(pc)
  2104.     move.l    $14(a3),d0
  2105. c1A12:    movem.l    (sp)+,d2/d3/a3/a6
  2106.     rts
  2107.  
  2108. c1A18:    link.w    a5,#-12
  2109.     movem.l    d6/d7/a2/a3/a6,-(sp)
  2110.     move.l    a0,a3
  2111.     move.l    d0,d7
  2112.     move.l    a1,-12(a5)
  2113.     moveq    #0,d6
  2114.     tst.l    $14(a3)
  2115.     bne.w    c1AB8
  2116.     bset    #0,$1B(a3)
  2117.     moveq    #-1,d0
  2118.     bra.w    c1ABE
  2119.  
  2120. c1A3E:    move.l    a3,a0
  2121.     bsr.w    c1940
  2122.     tst.l    d0
  2123.     bpl.b    c1A4C
  2124.     moveq    #-1,d0
  2125.     bra.b    c1ABE
  2126.  
  2127. c1A4C:    move.l    $14(a3),d0
  2128.     bne.b    c1A5A
  2129.     bset    #0,$1B(a3)
  2130.     bra.b    c1ABC
  2131.  
  2132. c1A5A:    move.l    12(a3),d0
  2133.     move.l    $14(a3),d1
  2134.     sub.l    d0,d1
  2135.     move.l    4(a3),a0
  2136.     adda.l    d0,a0
  2137.     move.l    a0,a2
  2138.     cmp.l    d1,d7
  2139.     ble.b    c1A98
  2140.     move.l    d1,d0
  2141.     move.l    a2,a0
  2142.     move.l    -12(a5),a1
  2143.     move.l    4,a6
  2144.     jsr    -$270(a6)
  2145.     move.l    $14(a3),d0
  2146.     move.l    d0,d1
  2147.     sub.l    12(a3),d1
  2148.     add.l    d1,d6
  2149.     add.l    d1,-12(a5)
  2150.     sub.l    d1,d7
  2151.     move.l    d0,12(a3)
  2152.     bra.b    c1AB8
  2153.  
  2154. c1A98:    move.l    a2,a0
  2155.     move.l    -12(a5),a1
  2156.     move.l    d7,d0
  2157.     move.l    4,a6
  2158.     jsr    CopyMem(a6)
  2159.     add.l    d7,d6
  2160.     add.l    d7,12(a3)
  2161.     add.l    d7,-12(a5)
  2162.     move.l    d7,d0
  2163.     sub.l    d7,d0
  2164.     move.l    d0,d7
  2165. c1AB8:    tst.l    d7
  2166.     bne.w    c1A3E
  2167. c1ABC:    move.l    d6,d0
  2168. c1ABE:    movem.l    (sp)+,d6/d7/a2/a3/a6
  2169.     unlk    a5
  2170.     rts
  2171.  
  2172. c1AC6:    link.w    a5,#-12
  2173.     movem.l    d6/d7/a2/a3/a6,-(sp)
  2174.     move.l    a0,a3
  2175.     move.l    d0,d7
  2176.     move.l    a1,-12(a5)
  2177.     moveq    #0,d6
  2178.     bra.w    c1B66
  2179.  
  2180. c1ADC:    move.l    a3,a0
  2181.     bsr.w    c1940
  2182.     tst.l    d0
  2183.     bpl.b    c1AEC
  2184.     moveq    #-1,d0
  2185.     bra.w    c1B6E
  2186.  
  2187. c1AEC:    move.l    12(a3),d0
  2188.     move.l    8(a3),d1
  2189.     sub.l    d0,d1
  2190.     move.l    4(a3),a0
  2191.     adda.l    d0,a0
  2192.     move.l    a0,a2
  2193.     cmp.l    d1,d7
  2194.     ble.b    c1B36
  2195.     move.l    d1,d0
  2196.     move.l    -12(a5),a0
  2197.     move.l    a2,a1
  2198.     move.l    4,a6
  2199.     jsr    CopyMem(a6)
  2200.     bset    #2,$1B(a3)
  2201.     move.l    8(a3),d0
  2202.     move.l    d0,d1
  2203.     sub.l    12(a3),d1
  2204.     add.l    d1,d6
  2205.     add.l    d1,-12(a5)
  2206.     sub.l    d1,d7
  2207.     move.l    d0,12(a3)
  2208.     move.l    8(a3),$14(a3)
  2209.     bra.b    c1B66
  2210.  
  2211. c1B36:    move.l    -12(a5),a0
  2212.     move.l    a2,a1
  2213.     move.l    d7,d0
  2214.     move.l    4,a6
  2215.     jsr    CopyMem(a6)
  2216.     bset    #2,$1B(a3)
  2217.     add.l    d7,12(a3)
  2218.     move.l    12(a3),d0
  2219.     cmp.l    $14(a3),d0
  2220.     ble.b    c1B5E
  2221.     move.l    d0,$14(a3)
  2222. c1B5E:    add.l    d7,d6
  2223.     move.l    d7,d0
  2224.     sub.l    d7,d0
  2225.     move.l    d0,d7
  2226. c1B66:    tst.l    d7
  2227.     bne.w    c1ADC
  2228.     move.l    d6,d0
  2229. c1B6E:    movem.l    (sp)+,d6/d7/a2/a3/a6
  2230.     unlk    a5
  2231.     rts
  2232.  
  2233. c1B76:    movem.l    d2/d3/d6/d7/a3/a6,-(sp)
  2234.     move.l    a0,a3
  2235.     move.l    d0,d7
  2236.     move.l    d1,d6
  2237.     move.l    (a3),d1
  2238.     moveq    #0,d2
  2239.     moveq    #-1,d3
  2240.     move.l    $420(a4),a6
  2241.     jsr    Seek(a6)
  2242.     tst.l    d0
  2243.     bpl.w    c1C2A
  2244.     jsr    IoErr(a6)
  2245.     move.l    d0,$A04(a4)
  2246.     move.l    d3,d0
  2247.     bra.w    c1C32
  2248.  
  2249. ReadBytes2:    cmp.l    8(a3),d6
  2250.     bgt.b    ReadBytes3
  2251.     move.l    (a3),d1
  2252.     move.l    4(a3),d2
  2253.     move.l    d6,d3
  2254.     move.l    $420(a4),a6
  2255.     jsr    Read(a6)
  2256.     tst.l    d0
  2257.     bpl.b    WriteBytes
  2258.     jsr    IoErr(a6)
  2259.     move.l    d0,$A04(a4)
  2260.     moveq    #-1,d0
  2261.     bra.b    c1C32
  2262.  
  2263. WriteBytes:    move.l    d7,d1
  2264.     move.l    4(a3),d2
  2265.     jsr    Write(a6)
  2266.     tst.l    d0
  2267.     bpl.b    c1BE2
  2268.     jsr    IoErr(a6)
  2269.     move.l    d0,$A04(a4)
  2270.     moveq    #-1,d0
  2271.     bra.b    c1C32
  2272.  
  2273. c1BE2:    moveq    #0,d6
  2274.     bra.b    c1C2A
  2275.  
  2276. ReadBytes3:    move.l    (a3),d1
  2277.     move.l    4(a3),d2
  2278.     move.l    8(a3),d3
  2279.     move.l    $420(a4),a6
  2280.     jsr    Read(a6)
  2281.     tst.l    d0
  2282.     bpl.b    WriteBytes2
  2283.     jsr    IoErr(a6)
  2284.     move.l    d0,$A04(a4)
  2285.     moveq    #-1,d0
  2286.     bra.b    c1C32
  2287.  
  2288. WriteBytes2:    move.l    d7,d1
  2289.     move.l    4(a3),d2
  2290.     move.l    8(a3),d3
  2291.     jsr    Write(a6)
  2292.     tst.l    d0
  2293.     bpl.b    c1C26
  2294.     jsr    IoErr(a6)
  2295.     move.l    d0,$A04(a4)
  2296.     moveq    #-1,d0
  2297.     bra.b    c1C32
  2298.  
  2299. c1C26:    sub.l    8(a3),d6
  2300. c1C2A:    tst.l    d6
  2301.     bne.w    ReadBytes2
  2302.     moveq    #0,d0
  2303. c1C32:    movem.l    (sp)+,d2/d3/d6/d7/a3/a6
  2304.     rts
  2305.  
  2306. c1C38:    link.w    a5,#-8
  2307.     movem.l    d2-d7/a2/a3/a6,-(sp)
  2308.     move.l    a0,a3
  2309.     move.l    a1,a2
  2310.     move.l    d0,d7
  2311.     moveq    #0,d6
  2312.     bra.w    c1DE6
  2313.  
  2314. c1C4C:    move.l    a2,a0
  2315.     bsr.w    c1940
  2316.     tst.l    d0
  2317.     bpl.b    c1C5C
  2318.     moveq    #-1,d0
  2319.     bra.w    c1DEE
  2320.  
  2321. c1C5C:    move.l    12(a3),d0
  2322.     move.l    $14(a3),d1
  2323.     sub.l    d0,d1
  2324.     move.l    d1,d5
  2325.     move.l    12(a2),d1
  2326.     move.l    8(a2),d2
  2327.     sub.l    d1,d2
  2328.     move.l    d2,d4
  2329.     tst.l    d5
  2330.     ble.w    c1D00
  2331.     move.l    4(a2),a0
  2332.     adda.l    d1,a0
  2333.     move.l    4(a3),a1
  2334.     adda.l    d0,a1
  2335.     move.l    a0,$28(sp)
  2336.     cmp.l    d4,d5
  2337.     ble.b    c1CC8
  2338.     move.l    a1,a0
  2339.     move.l    $28(sp),a1
  2340.     move.l    d4,d0
  2341.     move.l    4,a6
  2342.     jsr    CopyMem(a6)
  2343.     move.l    8(a2),d0
  2344.     move.l    d0,d1
  2345.     sub.l    12(a2),d1
  2346.     add.l    d1,d6
  2347.     sub.l    d1,d7
  2348.     add.l    d1,12(a3)
  2349.     move.l    8(a2),d0
  2350.     move.l    d0,12(a2)
  2351.     move.l    8(a2),$14(a2)
  2352.     bset    #2,$1B(a2)
  2353.     bra.w    c1DE6
  2354.  
  2355. c1CC8:    move.l    a1,a0
  2356.     move.l    $28(sp),a1
  2357.     move.l    d5,d0
  2358.     move.l    4,a6
  2359.     jsr    CopyMem(a6)
  2360.     move.l    $14(a3),d0
  2361.     move.l    d0,d1
  2362.     sub.l    12(a3),d1
  2363.     add.l    d1,d6
  2364.     sub.l    d1,d7
  2365.     add.l    d1,$14(a2)
  2366.     move.l    $14(a2),12(a2)
  2367.     move.l    $14(a3),12(a3)
  2368.     bset    #2,$1B(a2)
  2369.     bra.w    c1DE6
  2370.  
  2371. c1D00:    cmp.l    d4,d7
  2372.     ble.b    c1D84
  2373.     move.l    (a3),d1
  2374.     move.l    $10(a3),d2
  2375.     moveq    #-1,d3
  2376.     move.l    $420(a4),a6
  2377.     jsr    Seek(a6)
  2378.     tst.l    d0
  2379.     bpl.b    ReadBytes4
  2380.     jsr    IoErr(a6)
  2381.     move.l    d0,$A04(a4)
  2382.     move.l    d3,d0
  2383.     bra.w    c1DEE
  2384.  
  2385. ReadBytes4:    move.l    12(a2),d0
  2386.     move.l    4(a2),a0
  2387.     adda.l    d0,a0
  2388.     move.l    8(a2),d1
  2389.     sub.l    d0,d1
  2390.     move.l    a0,d2
  2391.     move.l    d1,d3
  2392.     move.l    (a3),d1
  2393.     jsr    Read(a6)
  2394.     tst.l    d0
  2395.     bpl.b    c1D54
  2396.     jsr    IoErr(a6)
  2397.     move.l    d0,$A04(a4)
  2398.     moveq    #-1,d0
  2399.     bra.w    c1DEE
  2400.  
  2401. c1D54:    bset    #2,$1B(a2)
  2402.     move.l    12(a2),d0
  2403.     move.l    8(a2),d1
  2404.     move.l    d1,d2
  2405.     sub.l    d0,d2
  2406.     add.l    d2,d6
  2407.     add.l    d2,$10(a3)
  2408.     move.l    8(a2),d0
  2409.     move.l    d0,d1
  2410.     sub.l    12(a2),d1
  2411.     sub.l    d1,d7
  2412.     move.l    d0,12(a2)
  2413.     move.l    8(a2),$14(a2)
  2414.     bra.b    c1DE6
  2415.  
  2416. c1D84:    move.l    (a3),d1
  2417.     move.l    $10(a3),d2
  2418.     moveq    #-1,d3
  2419.     move.l    $420(a4),a6
  2420.     jsr    Seek(a6)
  2421.     tst.l    d0
  2422.     bpl.b    ReadBytes5
  2423.     jsr    IoErr(a6)
  2424.     move.l    d0,$A04(a4)
  2425.     move.l    d3,d0
  2426.     bra.b    c1DEE
  2427.  
  2428. ReadBytes5:    move.l    4(a2),a0
  2429.     adda.l    12(a2),a0
  2430.     move.l    a0,d2
  2431.     move.l    (a3),d1
  2432.     move.l    d7,d3
  2433.     jsr    Read(a6)
  2434.     tst.l    d0
  2435.     bpl.b    c1DC6
  2436.     jsr    IoErr(a6)
  2437.     move.l    d0,$A04(a4)
  2438.     moveq    #-1,d0
  2439.     bra.b    c1DEE
  2440.  
  2441. c1DC6:    bset    #2,$1B(a2)
  2442.     add.l    d3,12(a2)
  2443.     add.l    d3,$10(a3)
  2444.     move.l    12(a2),d0
  2445.     cmp.l    $14(a2),d0
  2446.     ble.b    c1DE2
  2447.     move.l    d0,$14(a2)
  2448. c1DE2:    add.l    d3,d6
  2449.     moveq    #0,d7
  2450. c1DE6:    tst.l    d7
  2451.     bne.w    c1C4C
  2452.     move.l    d6,d0
  2453. c1DEE:    movem.l    (sp)+,d2-d7/a2/a3/a6
  2454.     unlk    a5
  2455.     rts
  2456.  
  2457. c1DF6:    movem.l    d2-d7/a2/a3/a6,-(sp)
  2458.     move.l    d0,d7
  2459.     move.l    a0,a3
  2460.     move.l    d1,d6
  2461.     moveq    #0,d5
  2462.     bra.w    c1EAA
  2463.  
  2464. c1E06:    move.l    a3,a0
  2465.     bsr.w    c1940
  2466.     tst.l    d0
  2467.     bpl.b    ReadBytes6
  2468.     moveq    #-1,d0
  2469.     bra.w    c1EB2
  2470.  
  2471. ReadBytes6:    move.l    12(a3),d0
  2472.     move.l    8(a3),d1
  2473.     sub.l    d0,d1
  2474.     move.l    d1,d4
  2475.     move.l    4(a3),a0
  2476.     adda.l    d0,a0
  2477.     move.l    a0,a2
  2478.     cmp.l    d4,d6
  2479.     ble.b    ReadBytes7
  2480.     move.l    d7,d1
  2481.     move.l    a2,d2
  2482.     move.l    d4,d3
  2483.     move.l    $420(a4),a6
  2484.     jsr    Read(a6)
  2485.     move.l    8(a3),d1
  2486.     sub.l    12(a3),d1
  2487.     move.l    d1,d4
  2488.     cmp.l    d4,d0
  2489.     beq.b    c1E56
  2490.     jsr    IoErr(a6)
  2491.     move.l    d0,$A04(a4)
  2492.     moveq    #-1,d0
  2493.     bra.b    c1EB2
  2494.  
  2495. c1E56:    bset    #2,$1B(a3)
  2496.     add.l    d4,d5
  2497.     sub.l    d4,d6
  2498.     move.l    8(a3),d0
  2499.     move.l    d0,12(a3)
  2500.     move.l    8(a3),$14(a3)
  2501.     bra.b    c1EAA
  2502.  
  2503. ReadBytes7:    move.l    d7,d1
  2504.     move.l    a2,d2
  2505.     move.l    d6,d3
  2506.     move.l    $420(a4),a6
  2507.     jsr    Read(a6)
  2508.     tst.l    d0
  2509.     bpl.b    c1E8E
  2510.     jsr    IoErr(a6)
  2511.     move.l    d0,$A04(a4)
  2512.     moveq    #-1,d0
  2513.     bra.b    c1EB2
  2514.  
  2515. c1E8E:    bset    #2,$1B(a3)
  2516.     add.l    d3,12(a3)
  2517.     move.l    12(a3),d0
  2518.     cmp.l    $14(a3),d0
  2519.     ble.b    c1EA6
  2520.     move.l    d0,$14(a3)
  2521. c1EA6:    add.l    d3,d5
  2522.     moveq    #0,d6
  2523. c1EAA:    tst.l    d6
  2524.     bne.w    c1E06
  2525.     move.l    d5,d0
  2526. c1EB2:    movem.l    (sp)+,d2-d7/a2/a3/a6
  2527.     rts
  2528.  
  2529. c1EB8:    link.w    a5,#-$10
  2530.     movem.l    d2-d7/a2/a3/a6,-(sp)
  2531.     move.l    d0,d7
  2532.     move.l    a0,a3
  2533.     move.l    d1,d6
  2534.     move.l    a1,-$10(a5)
  2535.     moveq    #0,d5
  2536.     bra.w    c1FA4
  2537.  
  2538. c1ED0:    move.l    a3,a0
  2539.     bsr.w    c1940
  2540.     tst.l    d0
  2541.     bpl.b    ReadBytes8
  2542.     moveq    #-1,d0
  2543.     bra.w    c1FAC
  2544.  
  2545. ReadBytes8:    move.l    12(a3),d0
  2546.     move.l    8(a3),d1
  2547.     sub.l    d0,d1
  2548.     move.l    d1,d4
  2549.     move.l    4(a3),a0
  2550.     adda.l    d0,a0
  2551.     move.l    a0,a2
  2552.     cmp.l    d4,d6
  2553.     ble.b    ReadBytes9
  2554.     move.l    d7,d1
  2555.     move.l    a2,d2
  2556.     move.l    d4,d3
  2557.     move.l    $420(a4),a6
  2558.     jsr    Read(a6)
  2559.     tst.l    d0
  2560.     bpl.b    c1F18
  2561.     jsr    IoErr(a6)
  2562.     move.l    d0,$A04(a4)
  2563.     moveq    #-1,d0
  2564.     bra.w    c1FAC
  2565.  
  2566. c1F18:    move.l    4(a3),a0
  2567.     adda.l    12(a3),a0
  2568.     move.l    -$10(a5),a1
  2569.     move.w    (a1),d0
  2570.     ext.l    d0
  2571.     move.l    d3,d1
  2572.     jsr    c6FBE(pc)
  2573.     move.l    -$10(a5),a0
  2574.     move.w    d0,(a0)
  2575.     bset    #2,$1B(a3)
  2576.     add.l    d4,d5
  2577.     sub.l    d4,d6
  2578.     move.l    8(a3),d0
  2579.     move.l    d0,$14(a3)
  2580.     move.l    8(a3),12(a3)
  2581.     bra.b    c1FA4
  2582.  
  2583. ReadBytes9:    move.l    d7,d1
  2584.     move.l    a2,d2
  2585.     move.l    d6,d3
  2586.     move.l    $420(a4),a6
  2587.     jsr    Read(a6)
  2588.     tst.l    d0
  2589.     bpl.b    c1F6C
  2590.     jsr    IoErr(a6)
  2591.     move.l    d0,$A04(a4)
  2592.     moveq    #-1,d0
  2593.     bra.b    c1FAC
  2594.  
  2595. c1F6C:    move.l    4(a3),a0
  2596.     adda.l    12(a3),a0
  2597.     move.l    -$10(a5),a1
  2598.     move.w    (a1),d0
  2599.     ext.l    d0
  2600.     move.l    d3,d1
  2601.     jsr    c6FBE(pc)
  2602.     move.l    -$10(a5),a0
  2603.     move.w    d0,(a0)
  2604.     bset    #2,$1B(a3)
  2605.     add.l    d6,12(a3)
  2606.     move.l    12(a3),d0
  2607.     cmp.l    $14(a3),d0
  2608.     ble.b    c1FA0
  2609.     move.l    d0,$14(a3)
  2610. c1FA0:    add.l    d6,d5
  2611.     moveq    #0,d6
  2612. c1FA4:    tst.l    d6
  2613.     bne.w    c1ED0
  2614.     move.l    d5,d0
  2615. c1FAC:    movem.l    (sp)+,d2-d7/a2/a3/a6
  2616.     unlk    a5
  2617.     rts
  2618.  
  2619. c1FB4:    movem.l    d7/a3,-(sp)
  2620.     move.l    d0,d7
  2621.     move.l    a0,a3
  2622.     tst.l    4(a3)
  2623.     bne.b    c1FD0
  2624.     move.l    a3,a0
  2625.     bsr.w    c1940
  2626.     tst.l    d0
  2627.     bpl.b    c1FD0
  2628.     moveq    #-1,d0
  2629.     bra.b    c2014
  2630.  
  2631. c1FD0:    btst    #1,$1B(a3)
  2632.     beq.b    c1FDC
  2633.     moveq    #-1,d0
  2634.     bra.b    c2014
  2635.  
  2636. c1FDC:    move.l    12(a3),d0
  2637.     addq.l    #1,12(a3)
  2638.     move.l    4(a3),a0
  2639.     adda.l    d0,a0
  2640.     move.b    d7,(a0)
  2641.     move.l    12(a3),d0
  2642.     cmp.l    $14(a3),d0
  2643.     ble.b    c1FFA
  2644.     move.l    d0,$14(a3)
  2645. c1FFA:    bset    #2,$1B(a3)
  2646.     move.l    12(a3),d0
  2647.     cmp.l    8(a3),d0
  2648.     blt.b    c2012
  2649.     move.l    a3,a0
  2650.     bsr.w    c1940
  2651.     bra.b    c2014
  2652.  
  2653. c2012:    moveq    #0,d0
  2654. c2014:    movem.l    (sp)+,d7/a3
  2655.     rts
  2656.  
  2657. c201A:    move.l    a3,-(sp)
  2658.     move.l    a0,a3
  2659.     move.l    a3,a0
  2660.     bsr.w    c1940
  2661.     tst.l    d0
  2662.     bgt.b    c2032
  2663.     bset    #0,$1B(a3)
  2664.     moveq    #-1,d0
  2665.     bra.b    c2044
  2666.  
  2667. c2032:    move.l    12(a3),d0
  2668.     addq.l    #1,12(a3)
  2669.     move.l    4(a3),a0
  2670.     adda.l    d0,a0
  2671.     moveq    #0,d0
  2672.     move.b    (a0),d0
  2673. c2044:    move.l    (sp)+,a3
  2674.     rts
  2675.  
  2676.     movem.l    d2/d6/d7/a3,-(sp)
  2677.     move.l    a0,a3
  2678.     move.l    a3,a0
  2679.     bsr.b    c201A
  2680.     move.l    d0,d7
  2681.     move.l    a3,a0
  2682.     bsr.b    c201A
  2683.     move.l    d0,d6
  2684.     moveq    #-1,d0
  2685.     cmp.l    d0,d7
  2686.     beq.b    c207A
  2687.     cmp.l    d0,d6
  2688.     beq.b    c207A
  2689.     move.l    d7,d0
  2690.     moveq    #0,d1
  2691.     not.b    d1
  2692.     and.l    d1,d0
  2693.     move.l    d6,d1
  2694.     moveq    #0,d2
  2695.     not.b    d2
  2696.     and.l    d2,d1
  2697.     asl.l    #8,d1
  2698.     or.l    d0,d1
  2699.     move.l    d1,d0
  2700. c207A:    movem.l    (sp)+,d2/d6/d7/a3
  2701.     rts
  2702.  
  2703.     link.w    a5,#-12
  2704.     move.l    a3,-(sp)
  2705.     move.l    a0,a3
  2706.     move.l    a3,a0
  2707.     bsr.b    c201A
  2708.     move.l    d0,4(sp)
  2709.     move.l    a3,a0
  2710.     bsr.b    c201A
  2711.     move.l    d0,8(sp)
  2712.     move.l    a3,a0
  2713.     bsr.w    c201A
  2714.     move.l    d0,12(sp)
  2715.     move.l    a3,a0
  2716.     bsr.w    c201A
  2717.     asl.l    #8,d0
  2718.     move.l    12(sp),d1
  2719.     or.l    d1,d0
  2720.     asl.l    #8,d0
  2721.     move.l    8(sp),d1
  2722.     or.l    d1,d0
  2723.     asl.l    #8,d0
  2724.     move.l    4(sp),d1
  2725.     or.l    d1,d0
  2726.     move.l    (sp)+,a3
  2727.     unlk    a5
  2728.     rts
  2729.  
  2730. c20C6:    move.l    a3,-(sp)
  2731.     move.l    a0,a3
  2732.     btst    #0,$1B(a3)
  2733.     beq.b    c20D6
  2734.     moveq    #1,d0
  2735.     bra.b    c20EE
  2736.  
  2737. c20D6:    move.l    $14(a3),d0
  2738.     cmp.l    8(a3),d0
  2739.     bge.b    c20EC
  2740.     move.l    12(a3),d1
  2741.     cmp.l    d0,d1
  2742.     blt.b    c20EC
  2743.     moveq    #1,d0
  2744.     bra.b    c20EE
  2745.  
  2746. c20EC:    moveq    #0,d0
  2747. c20EE:    move.l    (sp)+,a3
  2748.     rts
  2749.  
  2750. c20F2:    move.l    a3,-(sp)
  2751.     move.l    a0,a3
  2752.     move.l    $10(a3),d0
  2753.     add.l    12(a3),d0
  2754.     move.l    (sp)+,a3
  2755.     rts
  2756.  
  2757.     dc.w    0
  2758.  
  2759. c2104:    jmp    cA8C4
  2760.  
  2761. c210A:    jmp    cA7AA
  2762.  
  2763. c2110:    jmp    cA93A
  2764.  
  2765.     moveq    #$61,d0
  2766. c2118:    move.l    a3,-(sp)
  2767.     move.l    a0,a3
  2768.     move.l    4(a3),a0
  2769.     move.l    (a3),a1
  2770.     move.l    a1,(a0)
  2771.     move.l    (a3),a0
  2772.     move.l    4(a3),4(a0)
  2773.     move.l    (sp)+,a3
  2774.     rts
  2775.  
  2776. c2130:    movem.l    a2/a3,-(sp)
  2777.     move.l    a0,a3
  2778.     move.l    a1,a2
  2779.     move.l    4(a2),a0
  2780.     move.l    a0,4(a3)
  2781.     move.l    a2,(a3)
  2782.     move.l    4(a2),a0
  2783.     move.l    a3,(a0)
  2784.     move.l    a3,4(a2)
  2785.     movem.l    (sp)+,a2/a3
  2786.     rts
  2787.  
  2788.     movem.l    a2/a3,-(sp)
  2789.     move.l    a0,a3
  2790.     move.l    a1,a2
  2791.     move.l    4(a2),a0
  2792.     cmpa.l    a3,a0
  2793.     seq    d0
  2794.     neg.b    d0
  2795.     ext.w    d0
  2796.     ext.l    d0
  2797.     movem.l    (sp)+,a2/a3
  2798.     rts
  2799.  
  2800. c216E:    movem.l    a2/a3,-(sp)
  2801.     move.l    a0,a3
  2802.     move.l    a1,a2
  2803.     move.l    4(a2),a0
  2804.     move.l    a0,4(a3)
  2805.     move.l    4(a2),a0
  2806.     move.l    a3,(a0)
  2807.     move.l    a2,(a3)
  2808.     move.l    a3,4(a2)
  2809.     movem.l    (sp)+,a2/a3
  2810.     rts
  2811.  
  2812.     movem.l    a2/a3,-(sp)
  2813.     move.l    a0,a3
  2814.     move.l    a1,a2
  2815.     move.l    a2,4(a3)
  2816.     move.l    (a2),a0
  2817.     move.l    a0,(a3)
  2818.     move.l    (a2),a0
  2819.     move.l    a3,4(a0)
  2820.     move.l    a3,(a2)
  2821.     movem.l    (sp)+,a2/a3
  2822.     rts
  2823.  
  2824. c21AE:    move.l    a3,-(sp)
  2825.     move.l    a0,a3
  2826.     move.l    a3,(a3)
  2827.     move.l    a3,4(a3)
  2828.     move.l    (sp)+,a3
  2829.     rts
  2830.  
  2831. c21BC:    move.l    d7,-(sp)
  2832.     move.l    d0,d7
  2833.     move.l    d7,d0
  2834.     jsr    c0168(pc)
  2835.     move.l    (sp)+,d7
  2836.     rts
  2837.  
  2838. LhAUseraborte.MSG:    dc.b    10
  2839.     dc.b    '** LhA: User aborted',$A,0
  2840.     dc.b    0
  2841. p.MSG:    dc.b    $1B
  2842.     dc.b    '[0 p',0
  2843. p.MSG0:    dc.b    $1B
  2844.     dc.b    '[ p',0,0
  2845. m7m.MSG:    dc.b    $1B
  2846.     dc.b    '[3m'
  2847.     dc.b    $1B
  2848.     dc.b    '[7m',0,0
  2849. m.MSG:    dc.b    $1B
  2850.     dc.b    '[0m',0,0
  2851. PausedPressan.MSG:    dc.b    'Paused. Press any key to continue...',0,0
  2852. K.MSG:    dc.b    13
  2853.     dc.b    $1B
  2854.     dc.b    '[K',0,0
  2855. ascii.MSG1:    dc.b    12
  2856.     dc.b    0
  2857. YESNOetc:    dc.b    10
  2858.     dc.b    '%s (Y/N/A/Q): '
  2859.     dc.b    $1B
  2860.     dc.b    '[K',0,0
  2861. K.MSG0:    dc.b    13
  2862.     dc.b    $1B
  2863.     dc.b    '[K'
  2864.     dc.b    11
  2865.     dc.b    0
  2866.  
  2867. c2246:    movem.l    d5-d7,-(sp)
  2868.     move.l    d0,d7
  2869.     move.l    d1,d6
  2870.     tst.l    d7
  2871.     beq.b    c227A
  2872.     bra.b    c2258
  2873.  
  2874. c2254:    asr.l    #1,d7
  2875.     asr.l    #1,d6
  2876. c2258:    move.l    d7,d5
  2877.     sub.l    d6,d5
  2878.     move.l    d5,d0
  2879.     andi.l    #$FFF00000,d0
  2880.     bne.b    c2254
  2881.     move.l    d5,d0
  2882.     move.l    #$3E8,d1
  2883.     jsr    c29CC(pc)
  2884.     move.l    d7,d1
  2885.     jsr    c29B4(pc)
  2886.     bra.b    c227C
  2887.  
  2888. c227A:    moveq    #0,d0
  2889. c227C:    movem.l    (sp)+,d5-d7
  2890.     rts
  2891.  
  2892. c2282:    movem.l    d2/d3/a6,-(sp)
  2893.     tst.l    $1B0(a4)
  2894.     bne.b    c22C0
  2895.     moveq    #0,d0
  2896.     move.l    d0,d1
  2897.     move.l    4,a6
  2898.     jsr    SetSignal(a6)
  2899.     btst    #12,d0
  2900.     beq.b    c22C0
  2901.     move.l    $420(a4),a6
  2902.     jsr    -$3C(a6)
  2903.     move.l    d0,d1
  2904.     lea    LhAUseraborte.MSG(pc),a0
  2905.     move.l    a0,d2
  2906.     moveq    #$16,d3
  2907.     jsr    -$30(a6)
  2908.     moveq    #1,d0
  2909.     move.l    d0,$1B0(a4)
  2910.     moveq    #$14,d0
  2911.     bsr.w    c21BC
  2912. c22C0:    movem.l    (sp)+,d2/d3/a6
  2913.     rts
  2914.  
  2915. c22C6:    link.w    a5,#-$400
  2916.     movem.l    d2/d3/a6,-(sp)
  2917.     lea    -$400(a5),a0
  2918.     move.l    a0,d0
  2919.     move.l    8(a5),a0
  2920.     lea    12(a5),a1
  2921.     jsr    c29C6(pc)
  2922.     tst.l    $848(a4)
  2923.     beq.b    c22FC
  2924.     lea    -$400(a5),a0
  2925.     move.l    a0,a1
  2926. c22EC:    tst.b    (a1)+
  2927.     bne.b    c22EC
  2928.     subq.l    #1,a1
  2929.     suba.l    a0,a1
  2930.     move.l    a1,d0
  2931.     bsr.w    c24DA
  2932.     bra.b    c231C
  2933.  
  2934. c22FC:    move.l    $420(a4),a6
  2935.     jsr    -$3C(a6)
  2936.     lea    -$400(a5),a0
  2937.     move.l    a0,a1
  2938. c230A:    tst.b    (a1)+
  2939.     bne.b    c230A
  2940.     subq.l    #1,a1
  2941.     suba.l    a0,a1
  2942.     move.l    d0,d1
  2943.     move.l    a0,d2
  2944.     move.l    a1,d3
  2945.     jsr    -$30(a6)
  2946. c231C:    bsr.w    c2282
  2947.     movem.l    (sp)+,d2/d3/a6
  2948.     unlk    a5
  2949.     rts
  2950.  
  2951. c2328:    link.w    a5,#-$400
  2952.     movem.l    d2/d3/a6,-(sp)
  2953.     tst.l    $830(a4)
  2954.     bne.b    c236C
  2955.     lea    -$400(a5),a0
  2956.     move.l    a0,d0
  2957.     move.l    8(a5),a0
  2958.     lea    12(a5),a1
  2959.     jsr    c29C6(pc)
  2960.     move.l    $420(a4),a6
  2961.     jsr    -$3C(a6)
  2962.     lea    -$400(a5),a0
  2963.     move.l    a0,a1
  2964. c2356:    tst.b    (a1)+
  2965.     bne.b    c2356
  2966.     subq.l    #1,a1
  2967.     suba.l    a0,a1
  2968.     move.l    d0,d1
  2969.     move.l    a0,d2
  2970.     move.l    a1,d3
  2971.     jsr    -$30(a6)
  2972.     bsr.w    c2282
  2973. c236C:    movem.l    (sp)+,d2/d3/a6
  2974.     unlk    a5
  2975.     rts
  2976.  
  2977. c2374:    link.w    a5,#0
  2978.     move.l    a3,-(sp)
  2979.     move.l    8(a5),a3
  2980.     move.l    a3,d0
  2981.     move.l    12(a5),a0
  2982.     lea    $10(a5),a1
  2983.     jsr    c29C6(pc)
  2984.     move.l    (sp)+,a3
  2985.     unlk    a5
  2986.     rts
  2987.  
  2988. c2392:    movem.l    d5-d7/a2/a3,-(sp)
  2989.     move.l    d0,d7
  2990.     move.l    a0,a3
  2991.     moveq    #7,d6
  2992.     moveq    #0,d5
  2993.     bra.b    c23D4
  2994.  
  2995. c23A0:    move.l    d5,d0
  2996.     move.l    d0,d5
  2997.     addq.w    #1,d5
  2998.     move.l    a3,a2
  2999.     adda.w    d0,a2
  3000.     move.l    d6,d0
  3001.     ext.l    d0
  3002.     moveq    #1,d1
  3003.     asl.l    d0,d1
  3004.     move.l    d7,d0
  3005.     ext.l    d0
  3006.     and.l    d1,d0
  3007.     beq.b    c23C6
  3008.     moveq    #0,d0
  3009.     lea    $1B4(a4),a0
  3010.     move.b    (a0,d6.w),d0
  3011.     bra.b    c23D0
  3012.  
  3013. c23C6:    moveq    #0,d0
  3014.     lea    $1BD(a4),a0
  3015.     move.b    (a0,d6.w),d0
  3016. c23D0:    move.b    d0,(a2)
  3017.     subq.w    #1,d6
  3018. c23D4:    tst.w    d6
  3019.     bpl.b    c23A0
  3020.     sf    8(a3)
  3021.     movem.l    (sp)+,d5-d7/a2/a3
  3022.     rts
  3023.  
  3024. c23E2:    pea    p.MSG(pc)
  3025.     bsr.w    c2328
  3026.     addq.w    #4,sp
  3027.     rts
  3028.  
  3029. c23EE:    pea    p.MSG0(pc)
  3030.     bsr.w    c2328
  3031.     addq.w    #4,sp
  3032.     rts
  3033.  
  3034. c23FA:    pea    m7m.MSG(pc)
  3035.     bsr.w    c2328
  3036.     addq.w    #4,sp
  3037.     rts
  3038.  
  3039. c2406:    pea    m.MSG(pc)
  3040.     bsr.w    c2328
  3041.     addq.w    #4,sp
  3042.     rts
  3043.  
  3044. c2412:    link.w    a5,#-8
  3045.     move.l    a6,-(sp)
  3046.     moveq    #-1,d0
  3047.     move.l    d0,-4(a5)
  3048.     suba.l    a1,a1
  3049.     move.l    4,a6
  3050.     jsr    -$126(a6)
  3051.     move.l    d0,4(sp)
  3052.     move.l    d0,a0
  3053.     tst.l    $A4(a0)
  3054.     beq.b    c244E
  3055.     move.l    #$3E2,d0
  3056.     lea    -4(a5),a0
  3057.     move.l    4(sp),a1
  3058.     move.l    $A4(a1),a1
  3059.     move.l    $424(a4),a6
  3060.     jsr    -$13E(a6)
  3061. c244E:    move.l    (sp)+,a6
  3062.     unlk    a5
  3063.     rts
  3064.  
  3065. c2454:    link.w    a5,#-8
  3066.     move.l    a6,-(sp)
  3067.     clr.l    -4(a5)
  3068.     suba.l    a1,a1
  3069.     move.l    4,a6
  3070.     jsr    -$126(a6)
  3071.     move.l    d0,4(sp)
  3072.     move.l    d0,a0
  3073.     tst.l    $A4(a0)
  3074.     beq.b    c248E
  3075.     move.l    #$3E2,d0
  3076.     lea    -4(a5),a0
  3077.     move.l    4(sp),a1
  3078.     move.l    $A4(a1),a1
  3079.     move.l    $424(a4),a6
  3080.     jsr    -$13E(a6)
  3081. c248E:    move.l    (sp)+,a6
  3082.     unlk    a5
  3083.     rts
  3084.  
  3085. c2494:    link.w    a5,#-4
  3086.     movem.l    d2/d3/a6,-(sp)
  3087.     bsr.w    c23FA
  3088.     pea    PausedPressan.MSG(pc)
  3089.     bsr.w    c2328
  3090.     bsr.w    c2406
  3091.     bsr.w    c2412
  3092.     move.l    $420(a4),a6
  3093.     jsr    -$36(a6)
  3094.     move.l    d0,d1
  3095.     lea    -1(a5),a0
  3096.     move.l    a0,d2
  3097.     moveq    #1,d3
  3098.     jsr    -$2A(a6)
  3099.     bsr.b    c2454
  3100.     pea    K.MSG(pc)
  3101.     bsr.w    c2328
  3102.     movem.l    -$10(a5),d2/d3/a6
  3103.     unlk    a5
  3104.     rts
  3105.  
  3106. c24DA:    link.w    a5,#-8
  3107.     movem.l    d2/d3/d7/a2/a3/a6,-(sp)
  3108.     move.l    a0,a3
  3109.     move.l    d0,d7
  3110.     bsr.w    c2628
  3111.     move.l    d0,$EC(a4)
  3112.     bra.b    c255C
  3113.  
  3114. c24F0:    move.l    a3,a2
  3115. c24F2:    subq.l    #1,d7
  3116.     move.b    (a3)+,d0
  3117.     moveq    #10,d1
  3118.     cmp.b    d1,d0
  3119.     beq.b    c2500
  3120.     tst.l    d7
  3121.     bne.b    c24F2
  3122. c2500:    move.l    $420(a4),a6
  3123.     jsr    -$3C(a6)
  3124.     move.l    a3,d1
  3125.     move.l    a2,d2
  3126.     sub.l    d2,d1
  3127.     move.l    d1,$1C(sp)
  3128.     move.l    d0,d1
  3129.     move.l    a2,d2
  3130.     move.l    $1C(sp),d3
  3131.     jsr    -$30(a6)
  3132.     bsr.w    c2282
  3133.     moveq    #10,d0
  3134.     cmp.b    -1(a3),d0
  3135.     bne.b    c252E
  3136.     addq.l    #1,$1C6(a4)
  3137. c252E:    tst.l    $848(a4)
  3138.     beq.b    c255C
  3139.     move.l    $EC(a4),d0
  3140.     subq.l    #1,d0
  3141.     move.l    $1C6(a4),d1
  3142.     cmp.l    d0,d1
  3143.     blt.b    c255C
  3144.     clr.l    $1C6(a4)
  3145.     bsr.w    c2494
  3146.     moveq    #1,d0
  3147.     cmp.l    $848(a4),d0
  3148.     bne.b    c255C
  3149.     pea    ascii.MSG1(pc)
  3150.     bsr.w    c2328
  3151.     addq.w    #4,sp
  3152. c255C:    tst.l    d7
  3153.     bne.b    c24F0
  3154.     movem.l    (sp)+,d2/d3/d7/a2/a3/a6
  3155.     unlk    a5
  3156.     rts
  3157.  
  3158. c2568:    link.w    a5,#-4
  3159.     movem.l    d2/d3/a6,-(sp)
  3160.     bsr.w    c23EE
  3161.     bsr.w    c2412
  3162.     move.l    $420(a4),a6
  3163.     jsr    -$36(a6)
  3164.     move.l    d0,d1
  3165.     lea    -1(a5),a0
  3166.     move.l    a0,d2
  3167.     moveq    #1,d3
  3168.     jsr    -$2A(a6)
  3169.     bsr.w    c2454
  3170.     bsr.w    c23E2
  3171.     move.b    -1(a5),d0
  3172.     movem.l    (sp)+,d2/d3/a6
  3173.     unlk    a5
  3174.     rts
  3175.  
  3176. c25A2:    movem.l    d7/a3,-(sp)
  3177.     move.l    d0,d7
  3178.     move.l    a0,a3
  3179.     lea    $A08(a4),a0
  3180.     tst.b    (a0,d7.l)
  3181.     bne.b    c25BA
  3182.     tst.l    $868(a4)
  3183.     beq.b    c25BE
  3184. c25BA:    moveq    #1,d0
  3185.     bra.b    c2622
  3186.  
  3187. c25BE:    move.l    a3,-(sp)
  3188.     pea    YESNOetc(pc)
  3189.     bsr.w    c2328
  3190.     addq.w    #8,sp
  3191. c25CA:    bsr.b    c2568
  3192.     moveq    #0,d1
  3193.     move.b    d0,d1
  3194.     subi.w    #$41,d1
  3195.     beq.b    c25F8
  3196.     subi.w    #13,d1
  3197.     beq.b    c2606
  3198.     subq.w    #3,d1
  3199.     beq.b    c260A
  3200.     subq.w    #8,d1
  3201.     beq.b    c2602
  3202.     subq.w    #8,d1
  3203.     beq.b    c25F8
  3204.     subi.w    #13,d1
  3205.     beq.b    c2606
  3206.     subq.w    #3,d1
  3207.     beq.b    c260A
  3208.     subq.w    #8,d1
  3209.     beq.b    c2602
  3210.     bra.b    c25CA
  3211.  
  3212. c25F8:    lea    $A08(a4),a0
  3213.     move.b    #1,(a0,d7.l)
  3214. c2602:    moveq    #1,d7
  3215.     bra.b    c260C
  3216.  
  3217. c2606:    moveq    #0,d7
  3218.     bra.b    c260C
  3219.  
  3220. c260A:    moveq    #-1,d7
  3221. c260C:    pea    K.MSG0(pc)
  3222.     bsr.w    c2328
  3223.     addq.w    #4,sp
  3224.     tst.l    d7
  3225.     bpl.b    c2620
  3226.     moveq    #$14,d0
  3227.     bsr.w    c21BC
  3228. c2620:    move.l    d7,d0
  3229. c2622:    movem.l    (sp)+,d7/a3
  3230.     rts
  3231.  
  3232. c2628:    link.w    a5,#-12
  3233.     movem.l    d2-d4/a3/a6,-(sp)
  3234.     clr.l    -8(a5)
  3235.     moveq    #$24,d0
  3236.     moveq    #1,d1
  3237.     jsr    c29BA(pc)
  3238.     move.l    d0,a3
  3239.     move.l    a3,d0
  3240.     bne.b    c264A
  3241.     moveq    #2,d0
  3242.     swap    d0
  3243.     bra.w    c26CE
  3244.  
  3245. c264A:    suba.l    a1,a1
  3246.     move.l    4,a6
  3247.     jsr    -$126(a6)
  3248.     move.l    d0,$14(sp)
  3249.     move.l    d0,a0
  3250.     tst.l    $A4(a0)
  3251.     beq.b    c26BC
  3252.     move.l    a3,d1
  3253.     asr.l    #2,d1
  3254.     move.l    d1,-8(a5)
  3255.     moveq    #$19,d0
  3256.     lea    -8(a5),a0
  3257.     move.l    $14(sp),a1
  3258.     move.l    $A4(a1),a1
  3259.     move.l    $424(a4),a6
  3260.     jsr    -$13E(a6)
  3261.     move.l    $1C(a3),d0
  3262.     bne.b    c268E
  3263.     moveq    #2,d1
  3264.     swap    d1
  3265.     move.l    d1,-8(a5)
  3266.     bra.b    c26C4
  3267.  
  3268. c268E:    move.l    d0,a1
  3269.     move.l    $80(a1),a0
  3270.     moveq    #0,d1
  3271.     move.w    $14(a0),d1
  3272.     moveq    #0,d2
  3273.     move.b    $39(a1),d2
  3274.     moveq    #0,d3
  3275.     move.b    $37(a1),d3
  3276.     move.w    10(a1),d4
  3277.     ext.l    d4
  3278.     sub.l    d3,d4
  3279.     sub.l    d2,d4
  3280.     move.l    d4,d0
  3281.     jsr    c29B4(pc)
  3282.     move.l    d0,-8(a5)
  3283.     bra.b    c26C4
  3284.  
  3285. c26BC:    move.l    #$20000,-8(a5)
  3286. c26C4:    move.l    a3,a0
  3287.     jsr    c29D2(pc)
  3288.     move.l    -8(a5),d0
  3289. c26CE:    movem.l    (sp)+,d2-d4/a3/a6
  3290.     unlk    a5
  3291.     rts
  3292.  
  3293. c26D6:    link.w    a5,#-$10
  3294.     movem.l    d5-d7/a2/a3,-(sp)
  3295.     move.l    a0,a3
  3296.     move.l    a1,a2
  3297.     move.l    (a3),d0
  3298.     move.l    d0,$16(sp)
  3299.     move.l    8(a3),d0
  3300.     moveq    #$32,d1
  3301.     jsr    c29B4(pc)
  3302.     move.l    d0,$1A(sp)
  3303.     move.l    4(a3),d0
  3304.     moveq    #$3C,d1
  3305.     jsr    c29CC(pc)
  3306.     move.l    $16(sp),d1
  3307.     move.l    d0,$1E(sp)
  3308.     move.l    #$15180,d0
  3309.     jsr    c29CC(pc)
  3310.     move.l    $1E(sp),d1
  3311.     add.l    d1,d0
  3312.     move.l    $1A(sp),d1
  3313.     add.l    d1,d0
  3314.     moveq    #$3C,d1
  3315.     move.l    d0,$1A(sp)
  3316.     jsr    c29B4(pc)
  3317.     tst.l    d1
  3318.     bpl.b    c272E
  3319.     addq.l    #1,d1
  3320. c272E:    asr.l    #1,d1
  3321.     andi.l    #$1F,d1
  3322.     move.l    (a2),d0
  3323.     andi.w    #$FFE0,d0
  3324.     or.l    d1,d0
  3325.     move.l    d0,(a2)
  3326.     move.l    $1A(sp),d0
  3327.     moveq    #$3C,d1
  3328.     jsr    c29B4(pc)
  3329.     moveq    #$3C,d1
  3330.     jsr    c29B4(pc)
  3331.     lsl.l    #5,d1
  3332.     andi.l    #$7E0,d1
  3333.     move.l    (a2),d0
  3334.     andi.w    #$F81F,d0
  3335.     or.l    d1,d0
  3336.     move.l    d0,(a2)
  3337.     move.l    $1A(sp),d0
  3338.     move.l    #$E10,d1
  3339.     jsr    c29B4(pc)
  3340.     moveq    #$18,d1
  3341.     jsr    c29B4(pc)
  3342.     lsl.l    #8,d1
  3343.     lsl.l    #3,d1
  3344.     andi.l    #$F800,d1
  3345.     move.l    (a2),d0
  3346.     andi.w    #$7FF,d0
  3347.     or.l    d1,d0
  3348.     move.l    d0,(a2)
  3349.     move.l    #$2DB,d0
  3350.     add.l    $16(sp),d0
  3351.     move.l    #$5B5,d1
  3352.     move.l    d0,$16(sp)
  3353.     jsr    c29B4(pc)
  3354.     move.l    #$5B5,d1
  3355.     move.l    d0,$1A(sp)
  3356.     jsr    c29CC(pc)
  3357.     move.l    $16(sp),d1
  3358.     sub.l    d0,d1
  3359.     move.l    d1,d7
  3360.     cmpi.l    #$16D,d7
  3361.     sle    d0
  3362.     neg.b    d0
  3363.     ext.w    d0
  3364.     ext.l    d0
  3365.     move.l    $1A(sp),d1
  3366.     asl.l    #2,d1
  3367.     move.l    d1,d6
  3368.     addi.l    #$7B8,d6
  3369.     movem.w    d0,$14(sp)
  3370.     tst.w    d0
  3371.     bne.b    c280E
  3372.     move.l    d7,d1
  3373.     subi.l    #$16E,d1
  3374.     move.l    d1,d0
  3375.     move.l    d1,$16(sp)
  3376.     move.l    #$16D,d1
  3377.     jsr    c29B4(pc)
  3378.     move.l    d6,d1
  3379.     addq.l    #1,d1
  3380.     add.l    d0,d1
  3381.     move.l    d1,d6
  3382.     move.l    $16(sp),d0
  3383.     move.l    #$16D,d1
  3384.     jsr    c29B4(pc)
  3385.     move.l    d1,d7
  3386. c280E:    cmpi.l    #$7DA,d6
  3387.     bgt.b    c281E
  3388.     cmpi.l    #$7BC,d6
  3389.     bge.b    c282C
  3390. c281E:    moveq    #0,d0
  3391.     move.l    (a2),d1
  3392.     andi.l    #$1FFFFFF,d1
  3393.     move.l    d1,(a2)
  3394.     bra.b    c284E
  3395.  
  3396. c282C:    move.l    d6,d0
  3397.     subi.l    #$7BC,d0
  3398.     swap    d0
  3399.     clr.w    d0
  3400.     lsl.l    #8,d0
  3401.     add.l    d0,d0
  3402.     andi.l    #$FE000000,d0
  3403.     move.l    (a2),d1
  3404.     andi.l    #$1FFFFFF,d1
  3405.     or.l    d0,d1
  3406.     move.l    d1,(a2)
  3407. c284E:    moveq    #0,d5
  3408.     bra.b    c2872
  3409.  
  3410. c2852:    moveq    #1,d0
  3411.     cmp.w    d0,d5
  3412.     bne.b    c2864
  3413.     move.w    $14(sp),d0
  3414.     ext.l    d0
  3415.     moveq    #$1C,d1
  3416.     add.l    d1,d0
  3417.     bra.b    c286E
  3418.  
  3419. c2864:    moveq    #0,d0
  3420.     lea    $1CA(a4),a0
  3421.     move.b    (a0,d5.w),d0
  3422. c286E:    sub.l    d0,d7
  3423.     move.l    d6,d5
  3424. c2872:    moveq    #1,d0
  3425.     cmp.w    d0,d5
  3426.     bne.b    c288E
  3427.     move.w    $14(sp),d0
  3428.     ext.l    d0
  3429.     moveq    #$1C,d1
  3430.     add.l    d1,d0
  3431.     cmp.l    d0,d7
  3432.     sge    d1
  3433.     neg.b    d1
  3434.     ext.w    d1
  3435.     ext.l    d1
  3436.     bra.b    c28A2
  3437.  
  3438. c288E:    moveq    #0,d0
  3439.     lea    $1CA(a4),a0
  3440.     move.b    (a0,d5.w),d0
  3441.     cmp.l    d0,d7
  3442.     sge    d1
  3443.     neg.b    d1
  3444.     ext.w    d1
  3445.     ext.l    d1
  3446. c28A2:    move.l    d5,d0
  3447.     ext.l    d0
  3448.     move.l    d0,d6
  3449.     addq.l    #1,d6
  3450.     tst.l    d1
  3451.     bne.b    c2852
  3452.     move.l    d6,d0
  3453.     swap    d0
  3454.     clr.w    d0
  3455.     lsl.l    #5,d0
  3456.     andi.l    #$1E00000,d0
  3457.     move.l    (a2),d1
  3458.     andi.l    #$FE1FFFFF,d1
  3459.     or.l    d0,d1
  3460.     move.l    d1,(a2)
  3461.     move.l    d7,d0
  3462.     addq.l    #1,d0
  3463.     swap    d0
  3464.     clr.w    d0
  3465.     andi.l    #$1F0000,d0
  3466.     andi.l    #$FFE0FFFF,d1
  3467.     or.l    d0,d1
  3468.     move.l    d1,(a2)
  3469.     movem.l    (sp)+,d5-d7/a2/a3
  3470.     unlk    a5
  3471.     rts
  3472.  
  3473. c28E8:    link.w    a5,#-4
  3474.     movem.l    d4-d7/a2/a3,-(sp)
  3475.     move.l    a0,a3
  3476.     move.l    a1,a2
  3477.     move.l    (a3),d0
  3478.     lsr.l    #5,d0
  3479.     andi.l    #$3F,d0
  3480.     move.l    (a3),d1
  3481.     lsr.l    #8,d1
  3482.     lsr.l    #3,d1
  3483.     andi.l    #$1F,d1
  3484.     move.l    d0,$18(sp)
  3485.     moveq    #$3C,d0
  3486.     jsr    c29C0(pc)
  3487.     move.l    $18(sp),d1
  3488.     add.l    d1,d0
  3489.     move.l    d0,4(a2)
  3490.     move.l    (a3),d0
  3491.     andi.l    #$1F,d0
  3492.     moveq    #$64,d1
  3493.     jsr    c29C0(pc)
  3494.     move.l    d0,8(a2)
  3495.     move.l    (a3),d0
  3496.     clr.w    d0
  3497.     swap    d0
  3498.     lsr.l    #8,d0
  3499.     lsr.l    #1,d0
  3500.     andi.l    #$7F,d0
  3501.     move.l    d0,d7
  3502.     move.l    d7,d0
  3503.     move.l    #$16D,d1
  3504.     jsr    c29C0(pc)
  3505.     move.l    d0,d6
  3506.     addi.l    #$2DA,d6
  3507.     tst.l    d7
  3508.     beq.b    c2962
  3509.     move.l    d7,d0
  3510.     addq.l    #3,d0
  3511.     lsr.l    #2,d0
  3512.     add.l    d0,d6
  3513. c2962:    moveq    #1,d5
  3514.     move.l    (a3),d0
  3515.     clr.w    d0
  3516.     swap    d0
  3517.     lsr.l    #5,d0
  3518.     andi.l    #15,d0
  3519.     move.l    d0,d4
  3520.     bra.b    c2994
  3521.  
  3522. c2976:    moveq    #0,d0
  3523.     lea    $1C9(a4),a0
  3524.     move.b    (a0,d5.l),d0
  3525.     add.l    d0,d6
  3526.     moveq    #2,d0
  3527.     cmp.l    d0,d5
  3528.     bne.b    c2992
  3529.     move.l    d7,d0
  3530.     moveq    #3,d1
  3531.     and.l    d1,d0
  3532.     bne.b    c2992
  3533.     addq.l    #1,d6
  3534. c2992:    addq.l    #1,d5
  3535. c2994:    cmp.l    d4,d5
  3536.     bcs.b    c2976
  3537.     move.l    (a3),d0
  3538.     clr.w    d0
  3539.     swap    d0
  3540.     andi.l    #$1F,d0
  3541.     subq.l    #1,d0
  3542.     move.l    d6,d1
  3543.     add.l    d0,d1
  3544.     move.l    d1,(a2)
  3545.     movem.l    (sp)+,d4-d7/a2/a3
  3546.     unlk    a5
  3547.     rts
  3548.  
  3549. c29B4:    jmp    cAF2C
  3550.  
  3551. c29BA:    jmp    cA81C
  3552.  
  3553. c29C0:    jmp    cAF0C
  3554.  
  3555. c29C6:    jmp    cA6D4
  3556.  
  3557. c29CC:    jmp    cAF0C
  3558.  
  3559. c29D2:    jmp    cA894
  3560.  
  3561. c29D8:    link.w    a5,#-12
  3562.     movem.l    d7/a2/a3,-(sp)
  3563.     move.l    a0,a3
  3564.     move.l    a1,-12(a5)
  3565.     move.l    -12(a5),a2
  3566.     moveq    #1,d7
  3567. c29EC:    move.l    $10(a2),d0
  3568.     beq.b    c2A02
  3569.     move.l    d0,a1
  3570.     move.l    $10(a3),a0
  3571.     jsr    cA9E2(pc)
  3572.     move.l    d0,d7
  3573.     tst.l    d7
  3574.     ble.b    c2A0A
  3575. c2A02:    move.l    (a2),a2
  3576.     cmpa.l    -12(a5),a2
  3577.     bne.b    c29EC
  3578. c2A0A:    tst.l    d7
  3579.     ble.b    c2A1A
  3580.     move.l    a3,a0
  3581.     move.l    -12(a5),a1
  3582.     jsr    c2130(pc)
  3583.     bra.b    c2A46
  3584.  
  3585. c2A1A:    tst.l    d7
  3586.     bpl.b    c2A28
  3587.     move.l    a3,a0
  3588.     move.l    a2,a1
  3589.     jsr    c2130(pc)
  3590.     bra.b    c2A46
  3591.  
  3592. c2A28:    move.l    12(a3),a0
  3593.     jsr    cA894(pc)
  3594.     move.l    $10(a3),a0
  3595.     jsr    cA894(pc)
  3596.     move.l    $16(a3),a0
  3597.     jsr    cA894(pc)
  3598.     move.l    a3,a0
  3599.     jsr    cA894(pc)
  3600. c2A46:    movem.l    (sp)+,d7/a2/a3
  3601.     unlk    a5
  3602.     rts
  3603.  
  3604. ascii.MSG3:    dc.b    '/',0
  3605. l2A50:    dc.l    $4C65
  3606. LevelldNodeNa.MSG=    *-2
  3607.     dc.b    'vel: %ld, NodeName: %s, Flags=%ld',$A,0
  3608.     dc.b    0
  3609. ascii.MSG:    dc.b    '%*#?~[(',0
  3610. ascii.MSG0:    dc.b    '*',0
  3611. Warningnomatc.MSG:    dc.b    'Warning: no match for file `%s''.',$A,0
  3612.  
  3613. c2AA4:    link.w    a5,#-$14
  3614.     movem.l    d2/d7/a2/a3/a6,-(sp)
  3615.     move.l    d0,d7
  3616.     movem.l    a0/a1,-$14(a5)
  3617.     move.l    -$14(a5),a3
  3618.     move.l    a3,a2
  3619.     bra.b    c2ABE
  3620.  
  3621. c2ABC:    addq.l    #1,a2
  3622. c2ABE:    move.b    (a2),d0
  3623.     beq.b    c2ACE
  3624.     moveq    #$2F,d1
  3625.     cmp.b    d1,d0
  3626.     beq.b    c2ACE
  3627.     moveq    #$3A,d1
  3628.     cmp.b    d1,d0
  3629.     bne.b    c2ABC
  3630. c2ACE:    moveq    #$2F,d0
  3631.     cmp.b    (a2),d0
  3632.     bne.b    c2AE6
  3633.     cmpa.l    a3,a2
  3634.     bne.b    c2AE6
  3635.     lea    ascii.MSG3(pc),a0
  3636.     jsr    cA8C4(pc)
  3637.     move.l    d0,-12(a5)
  3638.     bra.b    c2B26
  3639.  
  3640. c2AE6:    moveq    #$3A,d1
  3641.     cmp.b    (a2),d1
  3642.     seq    d0
  3643.     neg.b    d0
  3644.     ext.w    d0
  3645.     ext.l    d0
  3646.     move.l    a2,d1
  3647.     move.l    a3,d2
  3648.     sub.l    d2,d1
  3649.     add.l    d0,d1
  3650.     addq.l    #1,d1
  3651.     move.l    d1,d0
  3652.     jsr    cA7AA(pc)
  3653.     move.l    d0,a3
  3654.     move.l    d0,-12(a5)
  3655.     bra.b    c2B14
  3656.  
  3657. c2B0A:    move.l    -$14(a5),a0
  3658.     move.b    (a0)+,(a3)+
  3659.     move.l    a0,-$14(a5)
  3660. c2B14:    move.l    -$14(a5),a0
  3661.     cmpa.l    a2,a0
  3662.     bne.b    c2B0A
  3663.     moveq    #$3A,d0
  3664.     cmp.b    (a2),d0
  3665.     bne.b    c2B24
  3666.     move.b    d0,(a3)+
  3667. c2B24:    sf    (a3)
  3668. c2B26:    moveq    #$12,d0
  3669.     jsr    cA7AA(pc)
  3670.     move.l    d0,a3
  3671.     move.l    a3,a0
  3672.     jsr    c21AE(pc)
  3673.     clr.l    8(a3)
  3674.     move.l    -$10(a5),a0
  3675.     move.l    a3,8(a0)
  3676.     move.l    -12(a5),a0
  3677.     move.l    a0,12(a3)
  3678.     move.l    d7,d0
  3679.     move.w    d0,$10(a3)
  3680.     bsr.w    c3424
  3681.     tst.l    d0
  3682.     beq.b    c2B88
  3683.     bset    #1,$11(a3)
  3684.     move.l    -12(a5),a0
  3685.     jsr    cA9FC(pc)
  3686.     move.l    -12(a5),a0
  3687.     lea    $490(a4),a1
  3688.     move.l    $424(a4),a6
  3689.     jsr    -$22E(a6)
  3690.     move.l    -12(a5),a0
  3691.     jsr    cA894(pc)
  3692.     lea    $490(a4),a0
  3693.     jsr    cA8C4(pc)
  3694.     move.l    d0,12(a3)
  3695. c2B88:    tst.b    (a2)
  3696.     beq.b    c2B9A
  3697.     lea    1(a2),a0
  3698.     move.l    d7,d0
  3699.     move.l    a3,a1
  3700.     bsr.w    c2AA4
  3701.     move.l    d0,a3
  3702. c2B9A:    move.l    a3,d0
  3703.     movem.l    (sp)+,d2/d7/a2/a3/a6
  3704.     unlk    a5
  3705.     rts
  3706.  
  3707. c2BA4:    link.w    a5,#-$20
  3708.     movem.l    d6/d7/a2/a3/a6,-(sp)
  3709.     move.l    d0,d7
  3710.     movem.l    a0/a1,-$20(a5)
  3711.     move.l    -$20(a5),a2
  3712.     move.l    -$1C(a5),a3
  3713.     move.l    a3,-$14(a5)
  3714.     move.l    a3,-$18(a5)
  3715.     moveq    #0,d6
  3716.     bra.b    c2BCA
  3717.  
  3718. c2BC8:    addq.l    #1,a2
  3719. c2BCA:    move.b    (a2),d0
  3720.     beq.b    c2BDA
  3721.     moveq    #$2F,d1
  3722.     cmp.b    d1,d0
  3723.     beq.b    c2BDA
  3724.     moveq    #$3A,d1
  3725.     cmp.b    d1,d0
  3726.     bne.b    c2BC8
  3727. c2BDA:    moveq    #$2F,d0
  3728.     cmp.b    (a2),d0
  3729.     bne.b    c2BF4
  3730.     cmpa.l    -$20(a5),a2
  3731.     bne.b    c2BF4
  3732.     lea    ascii.MSG3(pc),a0
  3733.     jsr    cA8C4(pc)
  3734.     move.l    d0,-$10(a5)
  3735.     bra.b    c2C38
  3736.  
  3737. c2BF4:    moveq    #$3A,d1
  3738.     cmp.b    (a2),d1
  3739.     seq    d0
  3740.     neg.b    d0
  3741.     ext.w    d0
  3742.     ext.l    d0
  3743.     move.l    a2,d1
  3744.     sub.l    -$20(a5),d1
  3745.     add.l    d0,d1
  3746.     addq.l    #1,d1
  3747.     move.l    d1,d0
  3748.     jsr    cA7AA(pc)
  3749.     move.l    d0,a3
  3750.     move.l    d0,-$10(a5)
  3751.     bra.b    c2C22
  3752.  
  3753. c2C18:    move.l    -$20(a5),a0
  3754.     move.b    (a0)+,(a3)+
  3755.     move.l    a0,-$20(a5)
  3756. c2C22:    move.l    -$20(a5),a0
  3757.     cmpa.l    a2,a0
  3758.     bne.b    c2C18
  3759.     moveq    #$3A,d0
  3760.     cmp.b    (a2),d0
  3761.     bne.b    c2C32
  3762.     move.b    d0,(a3)+
  3763. c2C32:    sf    (a3)
  3764.     move.l    -$14(a5),a3
  3765. c2C38:    move.l    -$10(a5),a0
  3766.     move.l    12(a3),a1
  3767.     jsr    cA9E2(pc)
  3768.     tst.l    d0
  3769.     bne.b    c2C86
  3770.     move.w    $10(a3),d0
  3771.     ext.l    d0
  3772.     cmp.l    d7,d0
  3773.     bne.b    c2C86
  3774.     tst.b    (a2)
  3775.     beq.b    c2C7E
  3776.     lea    1(a2),a3
  3777.     move.l    -$14(a5),a0
  3778.     move.l    8(a0),d0
  3779.     beq.b    c2C72
  3780.     move.l    d0,a1
  3781.     move.l    d7,d0
  3782.     move.l    a3,a0
  3783.     bsr.w    c2BA4
  3784.     move.l    d0,a3
  3785.     bra.b    c2C7E
  3786.  
  3787. c2C72:    move.l    a0,a1
  3788.     move.l    d7,d0
  3789.     move.l    a3,a0
  3790.     bsr.w    c2AA4
  3791.     move.l    d0,a3
  3792. c2C7E:    move.l    a3,-$18(a5)
  3793.     moveq    #1,d6
  3794.     bra.b    c2C96
  3795.  
  3796. c2C86:    move.l    -$14(a5),a3
  3797.     move.l    (a3),a3
  3798.     move.l    a3,-$14(a5)
  3799.     cmpa.l    -$1C(a5),a3
  3800.     bne.b    c2C38
  3801. c2C96:    tst.l    d6
  3802.     bne.b    c2D14
  3803.     moveq    #$12,d0
  3804.     jsr    cA7AA(pc)
  3805.     move.l    d0,a3
  3806.     clr.l    8(a3)
  3807.     move.l    -$10(a5),a0
  3808.     move.l    a0,12(a3)
  3809.     move.l    d7,d0
  3810.     move.w    d0,$10(a3)
  3811.     bsr.w    c3424
  3812.     tst.l    d0
  3813.     beq.b    c2CEE
  3814.     bset    #1,$11(a3)
  3815.     move.l    -$10(a5),a0
  3816.     jsr    cA9FC(pc)
  3817.     move.l    -$10(a5),a0
  3818.     lea    $490(a4),a1
  3819.     move.l    $424(a4),a6
  3820.     jsr    -$22E(a6)
  3821.     move.l    -$10(a5),a0
  3822.     jsr    cA894(pc)
  3823.     lea    $490(a4),a0
  3824.     jsr    cA8C4(pc)
  3825.     move.l    d0,12(a3)
  3826. c2CEE:    move.l    a3,a0
  3827.     move.l    -$1C(a5),a1
  3828.     jsr    c2130(pc)
  3829.     tst.b    (a2)
  3830.     beq.b    c2D0E
  3831.     lea    1(a2),a0
  3832.     move.l    d7,d0
  3833.     move.l    a3,a1
  3834.     bsr.w    c2AA4
  3835.     move.l    d0,-$18(a5)
  3836.     bra.b    c2D1C
  3837.  
  3838. c2D0E:    move.l    a3,-$18(a5)
  3839.     bra.b    c2D1C
  3840.  
  3841. c2D14:    move.l    -$10(a5),a0
  3842.     jsr    cA894(pc)
  3843. c2D1C:    move.l    -$18(a5),d0
  3844.     movem.l    (sp)+,d6/d7/a2/a3/a6
  3845.     unlk    a5
  3846.     rts
  3847.  
  3848. c2D28:    link.w    a5,#-$10
  3849.     movem.l    a2/a3,-(sp)
  3850.     move.l    a0,-$10(a5)
  3851.     moveq    #$12,d0
  3852.     jsr    cA7AA(pc)
  3853.     move.l    -$10(a5),a2
  3854.     move.l    d0,-12(a5)
  3855.     move.l    d0,a0
  3856.     jsr    c21AE(pc)
  3857.     move.l    -12(a5),a0
  3858.     clr.l    8(a0)
  3859.     lea    l2A50(pc),a0
  3860.     jsr    cA8C4(pc)
  3861.     move.l    -12(a5),a0
  3862.     move.l    d0,12(a0)
  3863.     move.w    #1,$10(a0)
  3864. c2D66:    moveq    #1,d0
  3865.     move.l    8(a2),a0
  3866.     move.l    -12(a5),a1
  3867.     bsr.w    c2BA4
  3868.     move.l    d0,a3
  3869.     move.l    8(a3),d0
  3870.     beq.b    c2D8A
  3871.     move.l    d0,a1
  3872.     moveq    #0,d0
  3873.     move.l    12(a2),a0
  3874.     bsr.w    c2BA4
  3875.     bra.b    c2D96
  3876.  
  3877. c2D8A:    moveq    #0,d0
  3878.     move.l    12(a2),a0
  3879.     move.l    a3,a1
  3880.     bsr.w    c2AA4
  3881. c2D96:    move.l    (a2),a2
  3882.     cmpa.l    -$10(a5),a2
  3883.     bne.b    c2D66
  3884.     move.l    -12(a5),d0
  3885.     movem.l    (sp)+,a2/a3
  3886.     unlk    a5
  3887.     rts
  3888.  
  3889. c2DAA:    movem.l    d7/a2/a3,-(sp)
  3890.     move.l    a0,a3
  3891.     move.l    d0,d7
  3892.     move.l    a3,a2
  3893. c2DB4:    move.w    $10(a2),d0
  3894.     ext.l    d0
  3895.     move.l    d0,-(sp)
  3896.     move.l    12(a2),-(sp)
  3897.     move.l    d7,-(sp)
  3898.     pea    LevelldNodeNa.MSG(pc)
  3899.     jsr    c2328(pc)
  3900.     lea    $10(sp),sp
  3901.     move.l    8(a2),d0
  3902.     beq.b    c2DE0
  3903.     move.l    d7,d1
  3904.     addq.l    #1,d1
  3905.     move.l    d1,d0
  3906.     move.l    8(a2),a0
  3907.     bsr.b    c2DAA
  3908. c2DE0:    move.l    (a2),a2
  3909.     cmpa.l    a3,a2
  3910.     bne.b    c2DB4
  3911.     movem.l    (sp)+,d7/a2/a3
  3912.     rts
  3913.  
  3914. c2DEC:    movem.l    a2/a3,-(sp)
  3915.     move.l    a0,a3
  3916. c2DF2:    move.l    a3,a2
  3917.     move.l    8(a2),d0
  3918.     beq.b    c2DFE
  3919.     move.l    d0,a0
  3920.     bsr.b    c2DEC
  3921. c2DFE:    move.l    (a2),a3
  3922.     move.l    a2,a0
  3923.     jsr    c2118(pc)
  3924.     move.l    12(a2),a0
  3925.     jsr    cA894(pc)
  3926.     move.l    a2,a0
  3927.     jsr    cA894(pc)
  3928.     cmpa.l    a3,a2
  3929.     bne.b    c2DF2
  3930.     movem.l    (sp)+,a2/a3
  3931.     rts
  3932.  
  3933. c2E1E:    link.w    a5,#-$28
  3934.     movem.l    d2/d5-d7/a2/a3/a6,-(sp)
  3935.     movem.l    a0/a1,-$1C(a5)
  3936.     moveq    #0,d7
  3937.     move.l    -$18(a5),a0
  3938.     tst.b    (a0)
  3939.     bne.b    c2E3C
  3940.     moveq    #0,d0
  3941.     bra.w    c2FC2
  3942.  
  3943. c2E3C:    move.l    12(a5),a0
  3944. c2E40:    tst.b    (a0)+
  3945.     bne.b    c2E40
  3946.     subq.l    #1,a0
  3947.     suba.l    12(a5),a0
  3948.     move.l    a0,d6
  3949.     move.l    #$104,d0
  3950.     jsr    cA7AA(pc)
  3951.     move.l    d0,a3
  3952.     move.l    a3,a0
  3953.     move.l    a0,$20(sp)
  3954.     moveq    #-2,d0
  3955.     lea    l2A50(pc),a0
  3956.     jsr    c12FC(pc)
  3957.     move.l    d0,d5
  3958.     move.l    d5,d1
  3959.     move.l    a3,d2
  3960.     move.l    $420(a4),a6
  3961.     jsr    -$66(a6)
  3962.     bra.w    c2F9E
  3963.  
  3964. c2E7A:    move.l    12(a5),a0
  3965.     adda.l    d6,a0
  3966.     move.l    a0,a2
  3967.     move.l    4(a3),d1
  3968.     tst.l    d1
  3969.     smi    d0
  3970.     neg.b    d0
  3971.     ext.w    d0
  3972.     ext.l    d0
  3973.     addq.l    #8,a3
  3974.     tst.l    d0
  3975.     beq.w    c2F44
  3976.     move.l    a3,a0
  3977.     jsr    cA8C4(pc)
  3978.     move.l    d0,$1C(sp)
  3979.     move.l    d0,a0
  3980.     jsr    cA9FC(pc)
  3981.     move.l    -$18(a5),a0
  3982.     move.l    $1C(sp),a1
  3983.     move.l    $424(a4),a6
  3984.     jsr    -$1B0(a6)
  3985.     tst.l    d0
  3986.     beq.b    c2F34
  3987.     move.l    12(a5),a0
  3988.     move.l    a3,a1
  3989.     jsr    -$270(a6)
  3990.     moveq    #$20,d0
  3991.     moveq    #1,d1
  3992.     jsr    cA81C(pc)
  3993.     move.l    $20(sp),a0
  3994.     move.l    d0,a1
  3995.     move.l    $7C(a0),8(a1)
  3996.     move.l    $74(a0),d1
  3997.     move.w    d1,$14(a1)
  3998.     lea    $90(a0),a6
  3999.     move.l    d0,$24(sp)
  4000.     move.l    a6,a0
  4001.     jsr    cA8C4(pc)
  4002.     move.l    $24(sp),a0
  4003.     move.l    d0,$16(a0)
  4004.     move.l    $20(sp),a1
  4005.     adda.w    #$84,a1
  4006.     lea    $1A(a0),a6
  4007.     move.l    a1,a0
  4008.     move.l    a6,a1
  4009.     jsr    c26D6(pc)
  4010.     move.l    8(a5),a0
  4011.     jsr    cA8C4(pc)
  4012.     move.l    $24(sp),a0
  4013.     move.l    d0,12(a0)
  4014.     move.l    12(a5),a0
  4015.     jsr    cA8C4(pc)
  4016.     move.l    $24(sp),a0
  4017.     move.l    d0,$10(a0)
  4018.     move.l    -$1C(a5),a1
  4019.     bsr.w    c29D8
  4020. c2F34:    move.l    $1C(sp),a0
  4021.     jsr    cA894(pc)
  4022.     sf    (a2)
  4023.     move.l    $20(sp),a3
  4024.     bra.b    c2F9E
  4025.  
  4026. c2F44:    move.l    12(a5),a0
  4027.     move.l    a3,a1
  4028.     move.l    $424(a4),a6
  4029.     jsr    -$270(a6)
  4030.     moveq    #-2,d0
  4031.     move.l    a3,a0
  4032.     jsr    c12FC(pc)
  4033.     move.l    d0,$1C(sp)
  4034.     move.l    d0,d1
  4035.     move.l    $420(a4),a6
  4036.     jsr    -$7E(a6)
  4037.     move.l    12(a5),-(sp)
  4038.     move.l    8(a5),-(sp)
  4039.     move.l    d0,$2C(sp)
  4040.     move.l    -$1C(a5),a0
  4041.     move.l    -$18(a5),a1
  4042.     bsr.w    c2E1E
  4043.     move.l    d0,d7
  4044.     move.l    $2C(sp),d1
  4045.     move.l    $420(a4),a6
  4046.     jsr    -$7E(a6)
  4047.     move.l    $24(sp),d0
  4048.     jsr    c137C(pc)
  4049.     addq.w    #8,sp
  4050.     sf    (a2)
  4051.     move.l    $20(sp),a3
  4052. c2F9E:    move.l    d5,d1
  4053.     move.l    a3,d2
  4054.     move.l    $420(a4),a6
  4055.     jsr    -$6C(a6)
  4056.     tst.l    d0
  4057.     beq.b    c2FB4
  4058.     tst.l    d7
  4059.     beq.w    c2E7A
  4060. c2FB4:    move.l    a3,a0
  4061.     jsr    cA894(pc)
  4062.     move.l    d5,d0
  4063.     jsr    c137C(pc)
  4064.     move.l    d7,d0
  4065. c2FC2:    movem.l    (sp)+,d2/d5-d7/a2/a3/a6
  4066.     unlk    a5
  4067.     rts
  4068.  
  4069. c2FCA:    link.w    a5,#-$2C
  4070.     movem.l    d2/d5-d7/a2/a3/a6,-(sp)
  4071.     move.l    d0,d7
  4072.     movem.l    a0/a1,-$18(a5)
  4073.     move.l    -$18(a5),a3
  4074.     move.l    a3,a0
  4075.     moveq    #0,d6
  4076.     move.l    8(a5),a1
  4077. c2FE6:    tst.b    (a1)+
  4078.     bne.b    c2FE6
  4079.     subq.l    #1,a1
  4080.     suba.l    8(a5),a1
  4081.     move.l    12(a5),a6
  4082. c2FF4:    tst.b    (a6)+
  4083.     bne.b    c2FF4
  4084.     subq.l    #1,a6
  4085.     suba.l    12(a5),a6
  4086.     move.l    a0,$28(sp)
  4087.     move.l    a1,$1C(sp)
  4088.     move.l    a6,$2C(sp)
  4089.     move.l    #$104,d0
  4090.     jsr    cA7AA(pc)
  4091.     move.l    d0,a2
  4092.     move.l    $2C(sp),d0
  4093.     move.l    12(a5),a0
  4094.     adda.l    d0,a0
  4095.     move.l    $1C(sp),d0
  4096.     move.l    8(a5),a1
  4097.     adda.l    d0,a1
  4098.     move.l    a0,$24(sp)
  4099.     move.l    a1,$20(sp)
  4100. c3032:    tst.l    8(a3)
  4101.     bne.w    c3202
  4102.     tst.l    d7
  4103.     beq.b    c305A
  4104.     move.l    12(a5),-(sp)
  4105.     move.l    8(a5),-(sp)
  4106.     move.l    -$14(a5),a0
  4107.     move.l    12(a3),a1
  4108.     bsr.w    c2E1E
  4109.     addq.w    #8,sp
  4110.     move.l    d0,d6
  4111.     bra.w    c33F4
  4112.  
  4113. c305A:    btst    #1,$11(a3)
  4114.     beq.w    c3152
  4115.     moveq    #-2,d0
  4116.     lea    l2A50(pc),a0
  4117.     jsr    c12FC(pc)
  4118.     move.l    d0,d5
  4119.     move.l    d5,d1
  4120.     move.l    a2,d2
  4121.     move.l    $420(a4),a6
  4122.     jsr    -$66(a6)
  4123.     bra.w    c3136
  4124.  
  4125. c3080:    move.l    4(a2),d0
  4126.     tst.l    d0
  4127.     bpl.w    c3136
  4128.     lea    8(a2),a0
  4129.     move.l    a0,$1C(sp)
  4130.     jsr    cA8C4(pc)
  4131.     move.l    d0,a3
  4132.     move.l    a3,a0
  4133.     jsr    cA9FC(pc)
  4134.     move.l    -$18(a5),a0
  4135.     move.l    12(a0),a0
  4136.     move.l    a3,a1
  4137.     move.l    $424(a4),a6
  4138.     jsr    -$1B0(a6)
  4139.     tst.l    d0
  4140.     beq.b    c3126
  4141.     move.l    12(a5),a0
  4142.     move.l    $1C(sp),a1
  4143.     jsr    -$270(a6)
  4144.     moveq    #$20,d0
  4145.     moveq    #1,d1
  4146.     jsr    cA81C(pc)
  4147.     move.l    d0,a0
  4148.     move.l    $7C(a2),8(a0)
  4149.     move.l    $74(a2),d1
  4150.     move.w    d1,$14(a0)
  4151.     lea    $90(a2),a1
  4152.     move.l    d0,$1C(sp)
  4153.     move.l    a1,a0
  4154.     jsr    cA8C4(pc)
  4155.     move.l    $1C(sp),a0
  4156.     move.l    d0,$16(a0)
  4157.     lea    $84(a2),a1
  4158.     lea    $1A(a0),a6
  4159.     move.l    a1,a0
  4160.     move.l    a6,a1
  4161.     jsr    c26D6(pc)
  4162.     move.l    8(a5),a0
  4163.     jsr    cA8C4(pc)
  4164.     move.l    $1C(sp),a0
  4165.     move.l    d0,12(a0)
  4166.     move.l    12(a5),a0
  4167.     jsr    cA8C4(pc)
  4168.     move.l    $1C(sp),a0
  4169.     move.l    d0,$10(a0)
  4170.     move.l    -$14(a5),a1
  4171.     bsr.w    c29D8
  4172. c3126:    move.l    a3,a0
  4173.     jsr    cA894(pc)
  4174.     move.l    $24(sp),a0
  4175.     sf    (a0)
  4176.     move.l    -$18(a5),a3
  4177. c3136:    move.l    d5,d1
  4178.     move.l    a2,d2
  4179.     move.l    $420(a4),a6
  4180.     jsr    -$6C(a6)
  4181.     tst.l    d0
  4182.     bne.w    c3080
  4183.     move.l    d5,d0
  4184.     jsr    c137C(pc)
  4185.     bra.w    c33F4
  4186.  
  4187. c3152:    moveq    #-2,d0
  4188.     move.l    12(a3),a0
  4189.     jsr    c12FC(pc)
  4190.     move.l    d0,d5
  4191.     tst.l    d5
  4192.     beq.w    c33F4
  4193.     move.l    -$18(a5),a3
  4194.     move.l    d5,d1
  4195.     move.l    a2,d2
  4196.     move.l    $420(a4),a6
  4197.     jsr    -$66(a6)
  4198.     move.l    4(a2),d0
  4199.     tst.l    d0
  4200.     bpl.b    c31F2
  4201.     lea    8(a2),a1
  4202.     move.l    12(a5),a0
  4203.     move.l    $424(a4),a6
  4204.     jsr    -$270(a6)
  4205.     moveq    #$20,d0
  4206.     moveq    #1,d1
  4207.     jsr    cA81C(pc)
  4208.     move.l    d0,a0
  4209.     move.l    $7C(a2),8(a0)
  4210.     move.l    $74(a2),d1
  4211.     move.w    d1,$14(a0)
  4212.     lea    $90(a2),a1
  4213.     move.l    d0,$1C(sp)
  4214.     move.l    a1,a0
  4215.     jsr    cA8C4(pc)
  4216.     move.l    $1C(sp),a0
  4217.     move.l    d0,$16(a0)
  4218.     lea    $84(a2),a1
  4219.     lea    $1A(a0),a6
  4220.     move.l    a1,a0
  4221.     move.l    a6,a1
  4222.     jsr    c26D6(pc)
  4223.     move.l    8(a5),a0
  4224.     jsr    cA8C4(pc)
  4225.     move.l    $1C(sp),a0
  4226.     move.l    d0,12(a0)
  4227.     move.l    12(a5),a0
  4228.     jsr    cA8C4(pc)
  4229.     move.l    $1C(sp),a0
  4230.     move.l    d0,$10(a0)
  4231.     move.l    -$14(a5),a1
  4232.     bsr.w    c29D8
  4233. c31F2:    move.l    d5,d0
  4234.     jsr    c137C(pc)
  4235.     move.l    $24(sp),a0
  4236.     sf    (a0)
  4237.     bra.w    c33F4
  4238.  
  4239. c3202:    btst    #1,$11(a3)
  4240.     beq.w    c32F6
  4241.     moveq    #-2,d0
  4242.     lea    l2A50(pc),a0
  4243.     jsr    c12FC(pc)
  4244.     move.l    d0,d5
  4245.     move.l    d5,d1
  4246.     move.l    a2,d2
  4247.     move.l    $420(a4),a6
  4248.     jsr    -$66(a6)
  4249.     bra.w    c32DA
  4250.  
  4251. c3228:    move.l    4(a2),d0
  4252.     tst.l    d0
  4253.     ble.w    c32DA
  4254.     lea    8(a2),a3
  4255.     move.l    a3,a0
  4256.     jsr    cA8C4(pc)
  4257.     move.l    d0,$1C(sp)
  4258.     move.l    d0,a0
  4259.     jsr    cA9FC(pc)
  4260.     move.l    -$18(a5),a0
  4261.     move.l    12(a0),a0
  4262.     move.l    $1C(sp),a1
  4263.     move.l    $424(a4),a6
  4264.     jsr    -$1B0(a6)
  4265.     tst.l    d0
  4266.     beq.b    c32C0
  4267.     move.l    -$18(a5),a0
  4268.     btst    #0,$11(a0)
  4269.     beq.b    c3276
  4270.     move.l    8(a5),a0
  4271.     move.l    a3,a1
  4272.     jsr    -$270(a6)
  4273.     bra.b    c3280
  4274.  
  4275. c3276:    move.l    12(a5),a0
  4276.     move.l    a3,a1
  4277.     jsr    -$270(a6)
  4278. c3280:    moveq    #-2,d0
  4279.     move.l    a3,a0
  4280.     jsr    c12FC(pc)
  4281.     move.l    d0,d1
  4282.     move.l    $420(a4),a6
  4283.     jsr    -$7E(a6)
  4284.     move.l    12(a5),-(sp)
  4285.     move.l    8(a5),-(sp)
  4286.     move.l    d0,$34(sp)
  4287.     move.l    d7,d0
  4288.     move.l    -$18(a5),a0
  4289.     move.l    8(a0),a0
  4290.     move.l    -$14(a5),a1
  4291.     bsr.w    c2FCA
  4292.     addq.w    #8,sp
  4293.     move.l    d0,d6
  4294.     move.l    $2C(sp),d1
  4295.     move.l    $420(a4),a6
  4296.     jsr    -$7E(a6)
  4297. c32C0:    move.l    $1C(sp),a0
  4298.     jsr    cA894(pc)
  4299.     moveq    #0,d0
  4300.     move.l    $20(sp),a0
  4301.     move.b    d0,(a0)
  4302.     move.l    $24(sp),a0
  4303.     move.b    d0,(a0)
  4304.     move.l    -$18(a5),a3
  4305. c32DA:    move.l    d5,d1
  4306.     move.l    a2,d2
  4307.     move.l    $420(a4),a6
  4308.     jsr    -$6C(a6)
  4309.     tst.l    d0
  4310.     bne.w    c3228
  4311.     move.l    d5,d0
  4312.     jsr    c137C(pc)
  4313.     bra.w    c33F4
  4314.  
  4315. c32F6:    moveq    #-2,d0
  4316.     move.l    12(a3),a0
  4317.     jsr    c12FC(pc)
  4318.     move.l    d0,d5
  4319.     tst.l    d5
  4320.     beq.w    c33F4
  4321.     move.l    -$18(a5),a3
  4322.     move.l    d5,d1
  4323.     move.l    a2,d2
  4324.     move.l    $420(a4),a6
  4325.     jsr    -$66(a6)
  4326.     move.l    4(a2),d0
  4327.     tst.l    d0
  4328.     bmi.w    c33F4
  4329.     move.l    -$18(a5),a3
  4330.     move.l    12(a3),a1
  4331. c332A:    tst.b    (a1)+
  4332.     bne.b    c332A
  4333.     subq.l    #1,a1
  4334.     suba.l    12(a3),a1
  4335.     move.l    12(a3),a3
  4336.     moveq    #$3A,d0
  4337.     move.l    a1,d1
  4338.     cmp.b    -1(a3,d1.l),d0
  4339.     beq.b    c334E
  4340.     move.b    (a3),d0
  4341.     moveq    #$2F,d1
  4342.     cmp.b    d1,d0
  4343.     beq.b    c334E
  4344.     tst.b    d0
  4345.     bne.b    c337A
  4346. c334E:    move.l    -$18(a5),a1
  4347.     btst    #0,$11(a1)
  4348.     beq.b    c336A
  4349.     move.l    8(a5),a0
  4350.     move.l    a3,a1
  4351.     move.l    $424(a4),a6
  4352.     jsr    -$270(a6)
  4353.     bra.b    c33A8
  4354.  
  4355. c336A:    move.l    12(a5),a0
  4356.     move.l    a3,a1
  4357.     move.l    $424(a4),a6
  4358.     jsr    -$270(a6)
  4359.     bra.b    c33A8
  4360.  
  4361. c337A:    lea    8(a2),a3
  4362.     move.l    -$18(a5),a1
  4363.     btst    #0,$11(a1)
  4364.     beq.b    c339A
  4365.     move.l    8(a5),a0
  4366.     move.l    a3,a1
  4367.     move.l    $424(a4),a6
  4368.     jsr    -$270(a6)
  4369.     bra.b    c33A8
  4370.  
  4371. c339A:    move.l    12(a5),a0
  4372.     move.l    a3,a1
  4373.     move.l    $424(a4),a6
  4374.     jsr    -$270(a6)
  4375. c33A8:    move.l    d5,d1
  4376.     move.l    $420(a4),a6
  4377.     jsr    -$7E(a6)
  4378.     move.l    -$18(a5),a3
  4379.     move.l    12(a5),-(sp)
  4380.     move.l    8(a5),-(sp)
  4381.     move.l    d0,$24(sp)
  4382.     move.l    d7,d0
  4383.     move.l    8(a3),a0
  4384.     move.l    -$14(a5),a1
  4385.     bsr.w    c2FCA
  4386.     move.l    $24(sp),d1
  4387.     move.l    $420(a4),a6
  4388.     jsr    -$7E(a6)
  4389.     move.l    d5,d0
  4390.     jsr    c137C(pc)
  4391.     addq.w    #8,sp
  4392.     moveq    #0,d6
  4393.     moveq    #0,d0
  4394.     move.l    $20(sp),a0
  4395.     move.b    d0,(a0)
  4396.     move.l    $24(sp),a0
  4397.     move.b    d0,(a0)
  4398. c33F4:    move.l    (a3),a3
  4399.     move.l    a3,-$18(a5)
  4400.     cmpa.l    $28(sp),a3
  4401.     beq.b    c3406
  4402.     tst.l    d6
  4403.     beq.w    c3032
  4404. c3406:    move.l    a2,a0
  4405.     jsr    cA894(pc)
  4406.     moveq    #0,d0
  4407.     move.l    $20(sp),a0
  4408.     move.b    d0,(a0)
  4409.     move.l    $24(sp),a0
  4410.     move.b    d0,(a0)
  4411.     move.l    d6,d0
  4412.     movem.l    (sp)+,d2/d5-d7/a2/a3/a6
  4413.     unlk    a5
  4414.     rts
  4415.  
  4416. c3424:    move.l    a3,-(sp)
  4417.     move.l    a0,a3
  4418.     move.l    a3,d0
  4419.     bne.b    c3430
  4420.     moveq    #0,d0
  4421.     bra.b    c3444
  4422.  
  4423. c3430:    lea    ascii.MSG(pc),a0
  4424.     move.l    a3,a1
  4425.     jsr    cA9B6(pc)
  4426.     subq.l    #7,d0
  4427.     beq.b    c3442
  4428.     moveq    #1,d0
  4429.     bra.b    c3444
  4430.  
  4431. c3442:    moveq    #0,d0
  4432. c3444:    move.l    (sp)+,a3
  4433.     rts
  4434.  
  4435. c3448:    movem.l    a2/a3/a6,-(sp)
  4436.     move.l    a0,a3
  4437.     move.l    a3,a2
  4438. c3450:    move.l    12(a2),d0
  4439.     beq.b    c349E
  4440.     move.l    d0,a0
  4441.     lea    $490(a4),a1
  4442.     move.l    $424(a4),a6
  4443.     jsr    -$22E(a6)
  4444.     lea    $490(a4),a0
  4445.     move.l    a0,a1
  4446. c346A:    tst.b    (a1)+
  4447.     bne.b    c346A
  4448.     subq.l    #1,a1
  4449.     suba.l    a0,a1
  4450.     move.l    12(a2),a0
  4451. c3476:    tst.b    (a0)+
  4452.     bne.b    c3476
  4453.     subq.l    #1,a0
  4454.     suba.l    12(a2),a0
  4455.     cmpa.l    a0,a1
  4456.     ble.b    c3492
  4457.     lea    $490(a4),a0
  4458.     jsr    cA8C4(pc)
  4459.     move.l    d0,12(a2)
  4460.     bra.b    c349E
  4461.  
  4462. c3492:    lea    $490(a4),a0
  4463.     move.l    12(a2),a1
  4464. c349A:    move.b    (a0)+,(a1)+
  4465.     bne.b    c349A
  4466. c349E:    move.l    (a2),a2
  4467.     cmpa.l    a3,a2
  4468.     bne.b    c3450
  4469.     movem.l    (sp)+,a2/a3/a6
  4470.     rts
  4471.  
  4472. c34AA:    link.w    a5,#-$18
  4473.     movem.l    d2/a2/a3/a6,-(sp)
  4474.     movem.l    a0/a1,-$10(a5)
  4475.     move.l    #$104,d0
  4476.     jsr    cA7AA(pc)
  4477.     move.l    -$10(a5),a2
  4478.     move.l    d0,$14(sp)
  4479. c34CA:    move.l    12(a2),a0
  4480.     bsr.w    c3424
  4481.     tst.l    d0
  4482.     bne.w    c361A
  4483.     move.l    a2,a3
  4484.     move.l    (a3),a2
  4485.     move.l    8(a3),a0
  4486.     move.l    8(a5),a1
  4487. c34E4:    move.b    (a0)+,(a1)+
  4488.     bne.b    c34E4
  4489.     move.l    8(a5),a0
  4490.     move.l    12(a3),a1
  4491.     move.l    $424(a4),a6
  4492.     jsr    -$270(a6)
  4493.     moveq    #-2,d0
  4494.     move.l    8(a5),a0
  4495.     jsr    c12FC(pc)
  4496.     move.l    d0,$10(sp)
  4497.     tst.l    d0
  4498.     beq.w    c35E4
  4499.     move.l    d0,d1
  4500.     move.l    $14(sp),d2
  4501.     move.l    $420(a4),a6
  4502.     jsr    -$66(a6)
  4503.     move.l    $10(sp),d0
  4504.     jsr    c137C(pc)
  4505.     move.l    $14(sp),a0
  4506.     move.l    4(a0),d0
  4507.     tst.l    d0
  4508.     ble.b    c355A
  4509.     move.l    12(a3),a1
  4510.     move.l    12(a5),a6
  4511. c3536:    move.b    (a1)+,(a6)+
  4512.     bne.b    c3536
  4513.     move.l    12(a5),a0
  4514.     lea    ascii.MSG0(pc),a1
  4515.     move.l    $424(a4),a6
  4516.     jsr    -$270(a6)
  4517.     move.l    12(a5),a0
  4518.     jsr    cA8C4(pc)
  4519.     move.l    d0,12(a3)
  4520.     bra.w    c361C
  4521.  
  4522. c355A:    moveq    #$20,d0
  4523.     moveq    #1,d1
  4524.     jsr    cA81C(pc)
  4525.     move.l    $14(sp),a0
  4526.     move.l    d0,a1
  4527.     move.l    $7C(a0),8(a1)
  4528.     move.l    $74(a0),d1
  4529.     move.w    d1,$14(a1)
  4530.     lea    $90(a0),a6
  4531.     move.l    d0,$10(sp)
  4532.     move.l    a6,a0
  4533.     jsr    cA8C4(pc)
  4534.     move.l    $10(sp),a0
  4535.     move.l    d0,$16(a0)
  4536.     move.l    $14(sp),a1
  4537.     adda.w    #$84,a1
  4538.     lea    $1A(a0),a6
  4539.     move.l    a1,a0
  4540.     move.l    a6,a1
  4541.     jsr    c26D6(pc)
  4542.     move.l    8(a3),a0
  4543.     jsr    cA8C4(pc)
  4544.     move.l    $10(sp),a0
  4545.     move.l    d0,12(a0)
  4546.     move.l    12(a3),a0
  4547.     jsr    cA8C4(pc)
  4548.     move.l    $10(sp),a0
  4549.     move.l    d0,$10(a0)
  4550.     move.l    d0,a0
  4551.     move.l    $424(a4),a6
  4552.     jsr    -$276(a6)
  4553.     move.l    $14(sp),a0
  4554.     addq.l    #8,a0
  4555.     move.l    d0,a1
  4556. c35D2:    move.b    (a0)+,(a1)+
  4557.     bne.b    c35D2
  4558.     move.l    $10(sp),a0
  4559.     move.l    -12(a5),a1
  4560.     bsr.w    c29D8
  4561.     bra.b    c35F8
  4562.  
  4563. c35E4:    tst.l    $10(a4)
  4564.     bne.b    c35F8
  4565.     move.l    8(a5),-(sp)
  4566.     pea    Warningnomatc.MSG(pc)
  4567.     jsr    c2328(pc)
  4568.     addq.w    #8,sp
  4569. c35F8:    cmpa.l    -$10(a5),a3
  4570.     beq.b    c360C
  4571.     move.l    a3,a0
  4572.     jsr    c2118(pc)
  4573.     move.l    a3,a0
  4574.     jsr    cA894(pc)
  4575.     bra.b    c361C
  4576.  
  4577. c360C:    lea    l2A50(pc),a0
  4578.     move.l    a0,12(a3)
  4579.     move.l    a0,8(a3)
  4580.     bra.b    c361C
  4581.  
  4582. c361A:    move.l    (a2),a2
  4583. c361C:    move.l    -$10(a5),a0
  4584.     cmpa.l    a2,a0
  4585.     bne.w    c34CA
  4586.     move.l    $14(sp),a0
  4587.     jsr    cA894(pc)
  4588.     movem.l    (sp)+,d2/a2/a3/a6
  4589.     unlk    a5
  4590.     rts
  4591.  
  4592. c3636:    link.w    a5,#-$208
  4593.     movem.l    d6/d7/a2/a3,-(sp)
  4594.     move.l    a0,a3
  4595.     move.l    a1,a2
  4596.     move.l    d0,d7
  4597.     pea    -$204(a5)
  4598.     pea    -$104(a5)
  4599.     move.l    a3,a0
  4600.     move.l    a2,a1
  4601.     bsr.w    c34AA
  4602.     addq.w    #8,sp
  4603.     move.l    (a3),a0
  4604.     cmpa.l    a3,a0
  4605.     bne.b    c3664
  4606.     move.l    12(a3),a0
  4607.     tst.b    (a0)
  4608.     beq.b    c3696
  4609. c3664:    move.l    a3,a0
  4610.     bsr.w    c2D28
  4611.     moveq    #0,d1
  4612.     move.b    d1,-$204(a5)
  4613.     move.b    d1,-$104(a5)
  4614.     pea    -$204(a5)
  4615.     pea    -$104(a5)
  4616.     move.l    d0,$18(sp)
  4617.     move.l    d0,a0
  4618.     move.l    d7,d0
  4619.     move.l    a2,a1
  4620.     bsr.w    c2FCA
  4621.     move.l    d0,d6
  4622.     move.l    $18(sp),a0
  4623.     bsr.w    c2DEC
  4624.     addq.w    #8,sp
  4625. c3696:    move.l    d6,d0
  4626.     movem.l    (sp)+,d6/d7/a2/a3
  4627.     unlk    a5
  4628.     rts
  4629.  
  4630. c36A0:    link.w    a5,#-$208
  4631.     movem.l    a2/a3/a6,-(sp)
  4632.     move.l    a1,a3
  4633.     move.l    a0,-$208(a5)
  4634.     move.l    a3,a2
  4635.     move.l    a2,d0
  4636.     beq.b    c370A
  4637.     move.l    -$208(a5),a0
  4638.     lea    -$104(a5),a1
  4639.     jsr    c5282(pc)
  4640.     lea    -$104(a5),a0
  4641.     jsr    cA9FC(pc)
  4642. c36C8:    tst.l    12(a3)
  4643.     beq.b    c36FE
  4644.     move.l    8(a3),a0
  4645.     lea    -$204(a5),a1
  4646. c36D6:    move.b    (a0)+,(a1)+
  4647.     bne.b    c36D6
  4648.     lea    -$204(a5),a0
  4649.     move.l    12(a3),a1
  4650.     move.l    $424(a4),a6
  4651.     jsr    -$270(a6)
  4652.     lea    -$204(a5),a0
  4653.     lea    -$104(a5),a1
  4654.     jsr    -$1B0(a6)
  4655.     tst.l    d0
  4656.     beq.b    c3702
  4657.     moveq    #1,d0
  4658.     bra.b    c3710
  4659.  
  4660. c36FE:    moveq    #1,d0
  4661.     bra.b    c3710
  4662.  
  4663. c3702:    move.l    (a3),a3
  4664.     cmpa.l    a2,a3
  4665.     bne.b    c36C8
  4666.     bra.b    c370E
  4667.  
  4668. c370A:    moveq    #1,d0
  4669.     bra.b    c3710
  4670.  
  4671. c370E:    moveq    #0,d0
  4672. c3710:    movem.l    (sp)+,a2/a3/a6
  4673.     unlk    a5
  4674.     rts
  4675.  
  4676.     jmp    cA9E2
  4677.  
  4678.     jmp    cA9B6
  4679.  
  4680.     jmp    cA9FC
  4681.  
  4682.     moveq    #$61,d0
  4683. UsageLhAoptio.MSG:    dc.b    'Usage: LhA [-<options>] <command> <archive[.'
  4684.     dc.b    'LZH/LHA]> [[homedir]',$A
  4685.     dc.b    '           <filespec>...] [@file] [destdir]',$A,$A
  4686.     dc.b    '                        Where <Command> is o'
  4687.     dc.b    'ne of:',$A,$A
  4688.     dc.b    '  a   Add files                        d   D'
  4689.     dc.b    'elete files',$A
  4690.     dc.b    '  e   Extract files                    f   F'
  4691.     dc.b    'reshen files',$A
  4692.     dc.b    '  l   List archive (terse)             m   M'
  4693.     dc.b    'ove files to archive',$A
  4694.     dc.b    '  p   Print files to stdout            t   T'
  4695.     dc.b    'est archive integrity',$A
  4696.     dc.b    '  u   Update archive                   v   L'
  4697.     dc.b    'ist archive (verbose)',$A
  4698.     dc.b    '  vv  Show archive contents (full)     x   E'
  4699.     dc.b    'xtract files with full path',$A,$A
  4700.     dc.b    '                      And <Options> is one o'
  4701.     dc.b    'r more of:',$A,$A
  4702.     dc.b    ' -a  Preserve file attributes         -A  Se'
  4703.     dc.b    't archive attributes',$A
  4704.     dc.b    ' -b  Set I/O buffer size (KB)         -c  Co'
  4705.     dc.b    'nfirm files',$A
  4706.     dc.b    ' -C  Clear arc-bit on extract         -D  Al'
  4707.     dc.b    'ternate progress display',$A
  4708.     dc.b    ' -f  Ignore filenotes                 -F  Us'
  4709.     dc.b    'e fast e,x,t progress display',$A
  4710.     dc.b    ' -i  Read filelist from file          -k  Ke'
  4711.     dc.b    'ep partial files',$A
  4712.     dc.b    ' -l  Make filenames lowercase         -L  Cr'
  4713.     dc.b    'eate filelist',$A
  4714.     dc.b    ' -m  No messages for query            -M  No'
  4715.     dc.b    ' autoshow files',$A
  4716.     dc.b    ' -n  No byte progress indicator       -N  No'
  4717.     dc.b    ' progress indicator',$A
  4718.     dc.b    ' -p  Pause after loading              -P  Se'
  4719.     dc.b    't task priority',$A
  4720.     dc.b    ' -q  Be quiet                         -Q  Al'
  4721.     dc.b    'ternate option set introducer',$A
  4722.     dc.b    ' -Qh Set Huffman buffer size (KB)     -r  Co'
  4723.     dc.b    'llect files recursively',$A
  4724.     dc.b    ' -R  Collect archives recursively     -S  Se'
  4725.     dc.b    't A flag on added files',$A
  4726.     dc.b    ' -t  Only extract new files           -T  On'
  4727.     dc.b    'ly extract new & newer files',$A
  4728.     dc.b    ' -u  Make filenames uppercase         -U  Se'
  4729.     dc.b    't indicator update rate(bytes)',$A
  4730.     dc.b    ' -v  Set compression speed            -w  Se'
  4731.     dc.b    't work directory',$A
  4732.     dc.b    ' -x  Preserve and use path names      -X  Do'
  4733.     dc.b    ' not append LZH/LHA suffix',$A
  4734.     dc.b    ' -Y  Store big files w.ratio < 3%.    -z  Do'
  4735.     dc.b    ' not compress files',$A
  4736.     dc.b    ' -Z  Compress archives',$A
  4737.     dc.b    ' -0  Use LhArc V1.x compression       -2  Us'
  4738.     dc.b    'e LHA V2.x compression',$A,$A
  4739.     dc.b    '  Options are case-sensitive and may be spec'
  4740.     dc.b    'ified anywhere on the command',$A
  4741.     dc.b    'line, the option letter followed by a 0 disa'
  4742.     dc.b    'bles the option, any non-zero',$A
  4743.     dc.b    'digit will enable it. If no digit follows th'
  4744.     dc.b    'e option letter, it will be',$A
  4745.     dc.b    'enabled. Some options are enabled by default'
  4746.     dc.b    ' (depending on used command),',$A
  4747.     dc.b    'the default compression is LHA V2.x-style co'
  4748.     dc.b    'mpression. For more info please',$A
  4749.     dc.b    'consult the user''s manual.',$A,$A
  4750.     dc.b    '  The destination directory must have a trai'
  4751.     dc.b    'ling slash (/) or colon (:).',$A,$A
  4752.     dc.b    '  This is the evaluation version of LhA, it '
  4753.     dc.b    'is a cut-down version of the',$A
  4754.     dc.b    'LhA archiver. The full version (for register'
  4755.     dc.b    'ed users only) is faster and',$A
  4756.     dc.b    'has more commands and options - for example '
  4757.     dc.b    'multi-volume archive handling,',$A
  4758.     dc.b    'extended SFX archive capability and more.',$A,$A
  4759.     dc.b    'This Is Based On Stefan Boberg LHA, Rest Coded By'
  4760.     dc.b    'Infection/Destruction...'
  4761.     dc.b    $a,0,$F6
  4762.     even
  4763. c42D4:    move.l    d7,-(sp)
  4764.     move.l    d0,d7
  4765.     moveq    #$20,d0
  4766.     cmp.b    d0,d7
  4767.     beq.b    c42F4
  4768.     moveq    #9,d0
  4769.     cmp.b    d0,d7
  4770.     beq.b    c42F4
  4771.     moveq    #10,d0
  4772.     cmp.b    d0,d7
  4773.     beq.b    c42F4
  4774.     moveq    #13,d0
  4775.     cmp.b    d0,d7
  4776.     beq.b    c42F4
  4777.     moveq    #0,d0
  4778.     bra.b    c42F6
  4779.  
  4780. c42F4:    moveq    #1,d0
  4781. c42F6:    move.l    (sp)+,d7
  4782.     rts
  4783.  
  4784. w42FA:    dc.w    0
  4785. errorQuotedst.MSG:    dc.b    'error: Quoted string not terminated!',$A,$A,0
  4786.     dc.b    0
  4787. Unabletoopeni.MSG:    dc.b    'Unable to open include file %s.',$A,$A,0
  4788.  
  4789. c4346:    link.w    a5,#-$2C
  4790.     movem.l    d2-d4/d7/a2/a3/a6,-(sp)
  4791.     move.l    d0,d7
  4792.     movem.l    a0/a1,-$1C(a5)
  4793.     move.l    -$1C(a5),a2
  4794.     lea    w42FA(pc),a0
  4795.     clr.l    $812(a4)
  4796.     move.l    -$18(a5),-$10(a5)
  4797.     move.l    a2,a1
  4798. c436A:    tst.b    (a1)+
  4799.     bne.b    c436A
  4800.     subq.l    #1,a1
  4801.     suba.l    a2,a1
  4802.     move.l    a1,d0
  4803.     move.l    a2,a6
  4804.     adda.l    d0,a6
  4805.     move.l    a0,-$14(a5)
  4806.     move.l    a6,$20(sp)
  4807.     bra.w    c45D0
  4808.  
  4809. c4384:    moveq    #0,d0
  4810.     move.b    (a2),d0
  4811.     bsr.w    c42D4
  4812.     tst.l    d0
  4813.     beq.b    c43A4
  4814.     bra.b    c4394
  4815.  
  4816. c4392:    addq.l    #1,a2
  4817. c4394:    moveq    #0,d0
  4818.     move.b    (a2),d0
  4819.     bsr.w    c42D4
  4820.     tst.l    d0
  4821.     bne.b    c4392
  4822.     bra.w    c45D0
  4823.  
  4824. c43A4:    moveq    #$22,d0
  4825.     cmp.b    (a2),d0
  4826.     bne.b    c43DC
  4827.     lea    1(a2),a3
  4828.     move.l    a3,-12(a5)
  4829.     bra.b    c43B6
  4830.  
  4831. c43B4:    move.l    a2,a3
  4832. c43B6:    lea    1(a3),a2
  4833.     move.b    (a3),d0
  4834.     beq.b    c43C4
  4835.     moveq    #$22,d1
  4836.     cmp.b    d1,d0
  4837.     bne.b    c43B4
  4838. c43C4:    tst.b    (a3)
  4839.     bne.b    c43D8
  4840.     pea    errorQuotedst.MSG(pc)
  4841.     jsr    c2328(pc)
  4842.     moveq    #$14,d0
  4843.     jsr    c21BC(pc)
  4844.     addq.w    #4,sp
  4845. c43D8:    sf    (a3)
  4846.     bra.b    c43FC
  4847.  
  4848. c43DC:    move.l    a2,-12(a5)
  4849.     bra.b    c43E4
  4850.  
  4851. c43E2:    addq.l    #1,a2
  4852. c43E4:    move.b    (a2),d0
  4853.     beq.b    c43F6
  4854.     moveq    #0,d1
  4855.     move.b    d0,d1
  4856.     move.l    d1,d0
  4857.     bsr.w    c42D4
  4858.     tst.l    d0
  4859.     beq.b    c43E2
  4860. c43F6:    tst.b    (a2)
  4861.     beq.b    c43FC
  4862.     sf    (a2)+
  4863. c43FC:    move.l    -12(a5),a3
  4864.     moveq    #$2D,d0
  4865.     cmp.b    (a3),d0
  4866.     bne.b    c4420
  4867.     cmp.b    1(a3),d0
  4868.     bne.b    c4416
  4869.     lea    1(a3),a0
  4870.     move.l    a0,-12(a5)
  4871.     bra.b    c4420
  4872.  
  4873. c4416:    move.l    a3,a0
  4874.     jsr    c0E0A(pc)
  4875.     bra.w    c45D0
  4876.  
  4877. c4420:    move.l    -12(a5),a3
  4878.     moveq    #$40,d0
  4879.     cmp.b    (a3),d0
  4880.     bne.w    c44D0
  4881.     move.b    1(a3),d1
  4882.     addq.l    #1,a3
  4883.     cmp.b    d0,d1
  4884.     bne.b    c443E
  4885.     move.l    a3,-12(a5)
  4886.     bra.w    c44D0
  4887.  
  4888. c443E:    move.l    #$3ED,d0
  4889.     move.l    a3,a0
  4890.     jsr    c1276(pc)
  4891.     move.l    d0,$1C(sp)
  4892.     tst.l    d0
  4893.     beq.b    c44BA
  4894.     move.l    d0,d1
  4895.     moveq    #0,d2
  4896.     moveq    #1,d3
  4897.     move.l    $420(a4),a6
  4898.     jsr    -$42(a6)
  4899.     move.l    $1C(sp),d1
  4900.     moveq    #-1,d3
  4901.     jsr    -$42(a6)
  4902.     move.l    d0,d1
  4903.     addq.l    #1,d1
  4904.     move.l    d0,$24(sp)
  4905.     move.l    d1,d0
  4906.     jsr    cA7AA(pc)
  4907.     move.l    d0,$28(sp)
  4908.     move.l    d0,d2
  4909.     move.l    $1C(sp),d1
  4910.     move.l    $24(sp),d3
  4911.     move.l    $420(a4),a6
  4912.     jsr    -$2A(a6)
  4913.     move.l    $1C(sp),d0
  4914.     jsr    c12BC(pc)
  4915.     move.l    $24(sp),a0
  4916.     move.l    $28(sp),a1
  4917.     move.l    a0,d0
  4918.     sf    (a1,d0.l)
  4919.     move.l    d7,d0
  4920.     addq.l    #1,d0
  4921.     move.l    a1,a0
  4922.     move.l    -$10(a5),a1
  4923.     bsr.w    c4346
  4924.     move.l    d0,-$10(a5)
  4925.     bra.w    c45D0
  4926.  
  4927. c44BA:    move.l    a3,-(sp)
  4928.     pea    Unabletoopeni.MSG(pc)
  4929.     jsr    c2328(pc)
  4930.     moveq    #$14,d0
  4931.     jsr    c21BC(pc)
  4932.     addq.w    #8,sp
  4933.     bra.w    c45D0
  4934.  
  4935. c44D0:    move.l    $816(a4),d0
  4936.     moveq    #-2,d1
  4937.     cmp.l    d1,d0
  4938.     bne.b    c4526
  4939.     move.l    -12(a5),a3
  4940.     move.b    (a3),d1
  4941.     moveq    #$41,d2
  4942.     cmp.b    d2,d1
  4943.     bcs.b    c44EC
  4944.     moveq    #$5A,d3
  4945.     cmp.b    d3,d1
  4946.     bls.b    c44F2
  4947. c44EC:    moveq    #0,d3
  4948.     move.b    d1,d3
  4949.     bra.b    c44FA
  4950.  
  4951. c44F2:    moveq    #0,d3
  4952.     move.b    d1,d3
  4953.     moveq    #$20,d4
  4954.     add.l    d4,d3
  4955. c44FA:    move.b    d3,$810(a4)
  4956.     addq.l    #1,a3
  4957.     move.b    (a3),d0
  4958.     cmp.b    d2,d0
  4959.     bcs.b    c450C
  4960.     moveq    #$5A,d1
  4961.     cmp.b    d1,d0
  4962.     bls.b    c4512
  4963. c450C:    moveq    #0,d1
  4964.     move.b    d0,d1
  4965.     bra.b    c451A
  4966.  
  4967. c4512:    moveq    #0,d1
  4968.     move.b    d0,d1
  4969.     moveq    #$20,d0
  4970.     add.l    d0,d1
  4971. c451A:    move.b    d1,$811(a4)
  4972.     addq.l    #1,$816(a4)
  4973.     bra.w    c45D0
  4974.  
  4975. c4526:    moveq    #-1,d0
  4976.     cmp.l    $816(a4),d0
  4977.     bne.b    c4542
  4978.     move.l    -12(a5),a0
  4979.     lea    $690(a4),a1
  4980. c4536:    move.b    (a0)+,(a1)+
  4981.     bne.b    c4536
  4982.     addq.l    #1,$816(a4)
  4983.     bra.w    c45D0
  4984.  
  4985. c4542:    move.l    -12(a5),a3
  4986.     move.l    a3,a0
  4987. c4548:    tst.b    (a0)+
  4988.     bne.b    c4548
  4989.     subq.l    #1,a0
  4990.     suba.l    a3,a0
  4991.     move.l    a0,d0
  4992.     move.l    a3,a1
  4993.     adda.l    d0,a1
  4994.     move.b    -1(a1),d0
  4995.     moveq    #$2F,d1
  4996.     cmp.b    d1,d0
  4997.     beq.b    c4566
  4998.     moveq    #$3A,d2
  4999.     cmp.b    d2,d0
  5000.     bne.b    c459A
  5001. c4566:    move.b    $810(a4),d0
  5002.     moveq    #$78,d2
  5003.     cmp.b    d2,d0
  5004.     beq.b    c458E
  5005.     moveq    #$65,d2
  5006.     cmp.b    d2,d0
  5007.     beq.b    c458E
  5008.     move.l    a3,-$14(a5)
  5009.     move.l    a1,a3
  5010.     cmp.b    -1(a3),d1
  5011.     bne.b    c4586
  5012.     sf    -1(a3)
  5013. c4586:    moveq    #1,d0
  5014.     move.l    d0,$812(a4)
  5015.     bra.b    c45CC
  5016.  
  5017. c458E:    move.l    a3,a0
  5018.     lea    $710(a4),a1
  5019. c4594:    move.b    (a0)+,(a1)+
  5020.     bne.b    c4594
  5021.     bra.b    c45CC
  5022.  
  5023. c459A:    clr.l    $812(a4)
  5024.     move.l    -$10(a5),a0
  5025.     move.l    -$14(a5),8(a0)
  5026.     move.l    a3,12(a0)
  5027.     move.l    a3,a0
  5028.     jsr    cA9FC(pc)
  5029.     moveq    #$10,d0
  5030.     jsr    cA7AA(pc)
  5031.     move.l    d0,$1C(sp)
  5032.     move.l    d0,a0
  5033.     move.l    -$10(a5),a1
  5034.     jsr    c2130(pc)
  5035.     move.l    $1C(sp),-$10(a5)
  5036. c45CC:    addq.l    #1,$816(a4)
  5037. c45D0:    tst.b    (a2)
  5038.     beq.b    c45DC
  5039.     cmpa.l    $20(sp),a2
  5040.     bcs.w    c4384
  5041. c45DC:    move.l    -$10(a5),a2
  5042.     tst.l    d7
  5043.     bne.b    c4622
  5044.     tst.l    $812(a4)
  5045.     beq.b    c45F6
  5046.     move.l    -$14(a5),a0
  5047.     lea    $710(a4),a1
  5048. c45F2:    move.b    (a0)+,(a1)+
  5049.     bne.b    c45F2
  5050. c45F6:    move.l    $B4(a4),a3
  5051.     bra.b    c461E
  5052.  
  5053. c45FC:    move.l    4(a3),a0
  5054.     move.b    #$40,-1(a0)
  5055.     move.l    4(a3),a0
  5056.     subq.l    #1,a0
  5057.     move.l    d7,d0
  5058.     addq.l    #1,d0
  5059.     move.l    a2,a1
  5060.     bsr.w    c4346
  5061.     move.l    d0,a2
  5062.     move.l    a2,-$10(a5)
  5063.     move.l    (a3),a3
  5064. c461E:    move.l    a3,d0
  5065.     bne.b    c45FC
  5066. c4622:    tst.l    d7
  5067.     bne.b    c4638
  5068.     cmpa.l    -$18(a5),a2
  5069.     beq.b    c4638
  5070.     move.l    a2,a0
  5071.     jsr    c2118(pc)
  5072.     move.l    a2,a0
  5073.     jsr    cA894(pc)
  5074. c4638:    move.l    a2,d0
  5075.     movem.l    (sp)+,d2-d4/d7/a2/a3/a6
  5076.     unlk    a5
  5077.     rts
  5078.  
  5079.     dc.w    0
  5080.  
  5081. c4644:    link.w    a5,#-8
  5082.     move.l    a3,-(sp)
  5083.     move.l    a0,-8(a5)
  5084.     move.l    $A1C(a4),a0
  5085.     move.l    (a0),a3
  5086.     bra.b    c4680
  5087.  
  5088. c4656:    bclr    #2,$1F(a3)
  5089.     move.l    $10(a3),a0
  5090.     lea    $490(a4),a1
  5091.     jsr    cA914(pc)
  5092.     lea    $790(a4),a0
  5093.     lea    $490(a4),a1
  5094.     jsr    cA9E2(pc)
  5095.     tst.l    d0
  5096.     bne.b    c467E
  5097.     bset    #2,$1F(a3)
  5098. c467E:    move.l    (a3),a3
  5099. c4680:    cmpa.l    $A1C(a4),a3
  5100.     bne.b    c4656
  5101.     moveq    #0,d0
  5102.     move.l    (sp)+,a3
  5103.     unlk    a5
  5104.     rts
  5105.  
  5106. Skippedalread.MSG:    dc.b    '  Skipped, already present in archive : %s',$A,0
  5107. Archivecorrup.MSG:    dc.b    10
  5108.     dc.b    ' Archive corrupted -- no files added.',$A,0
  5109. added.MSG:    dc.b    'added',0
  5110. moved.MSG:    dc.b    'moved',0
  5111. Archivecorrup.MSG0:    dc.b    10
  5112.     dc.b    ' Archive corrupted -- no files added or repl'
  5113.     dc.b    'aced.',$A,0
  5114. addedreplaced.MSG:    dc.b    'added/replaced',0,0
  5115. w4732:    dc.w    0
  5116. Archivecorrup.MSG1:    dc.b    10
  5117.     dc.b    ' Archive corrupted -- no files replaced.',$A,0
  5118.     dc.b    0
  5119. freshened.MSG:    dc.b    'freshened',0
  5120.  
  5121. c476A:    link.w    a5,#-12
  5122.     movem.l    a2/a3/a6,-(sp)
  5123.     move.l    a1,a3
  5124.     movem.l    d0/a0,-12(a5)
  5125.     move.l    $A1C(a4),a0
  5126.     move.l    (a0),a2
  5127.     bra.b    c47DA
  5128.  
  5129. c4782:    btst    #2,$1F(a2)
  5130.     bne.b    c47D8
  5131.     move.l    $10(a2),a0
  5132.     move.l    a3,a1
  5133.     jsr    c52C2(pc)
  5134.     tst.l    d0
  5135.     bne.b    c47D8
  5136.     tst.l    $A2C(a4)
  5137.     bne.b    c47D2
  5138.     move.l    $1E(a3),d0
  5139.     beq.b    c47B0
  5140.     move.l    d0,a0
  5141.     lea    $590(a4),a1
  5142. c47AA:    move.b    (a0)+,(a1)+
  5143.     bne.b    c47AA
  5144.     bra.b    c47B4
  5145.  
  5146. c47B0:    sf    $590(a4)
  5147. c47B4:    lea    $590(a4),a0
  5148.     move.l    $1A(a3),a1
  5149.     move.l    $424(a4),a6
  5150.     jsr    -$270(a6)
  5151.     pea    $590(a4)
  5152.     pea    Skippedalread.MSG(pc)
  5153.     jsr    c2328(pc)
  5154.     addq.w    #8,sp
  5155. c47D2:    bset    #2,$1F(a2)
  5156. c47D8:    move.l    (a2),a2
  5157. c47DA:    cmpa.l    $A1C(a4),a2
  5158.     bne.b    c4782
  5159.     moveq    #0,d0
  5160.     movem.l    (sp)+,a2/a3/a6
  5161.     unlk    a5
  5162.     rts
  5163.  
  5164. c47EA:    link.w    a5,#-12
  5165.     movem.l    a2/a3,-(sp)
  5166.     move.l    8(a5),a3
  5167.     movem.l    a0/a1,-12(a5)
  5168.     move.l    $A1C(a4),a0
  5169.     move.l    (a0),a2
  5170.     clr.l    (a3)
  5171.     move.l    -8(a5),a0
  5172.     tst.l    (a0)
  5173.     beq.b    c4846
  5174.     pea    Archivecorrup.MSG(pc)
  5175.     jsr    c2328(pc)
  5176.     moveq    #0,d0
  5177.     bra.b    c4858
  5178.  
  5179. c4818:    btst    #2,$1F(a2)
  5180.     bne.b    c4844
  5181.     tst.l    $10(a2)
  5182.     beq.b    c4844
  5183.     move.l    $A20(a4),d0
  5184.     move.l    a2,a0
  5185.     move.l    -12(a5),a1
  5186.     jsr    c5EEE(pc)
  5187.     tst.l    d0
  5188.     beq.b    c4842
  5189.     move.l    -8(a5),a0
  5190.     addq.l    #1,(a0)
  5191.     moveq    #-1,d0
  5192.     bra.b    c4858
  5193.  
  5194. c4842:    addq.l    #1,(a3)
  5195. c4844:    move.l    (a2),a2
  5196. c4846:    cmpa.l    $A1C(a4),a2
  5197.     bne.b    c4818
  5198.     moveq    #0,d0
  5199.     move.l    -12(a5),a0
  5200.     jsr    c1FB4(pc)
  5201.     moveq    #0,d0
  5202. c4858:    movem.l    -$14(a5),a2/a3
  5203.     unlk    a5
  5204.     rts
  5205.  
  5206. c4862:    movem.l    a2/a3,-(sp)
  5207.     move.l    a0,a3
  5208.     move.l    a1,a2
  5209.     lea    $A0C(a4),a0
  5210.     jsr    c21AE(pc)
  5211.     move.l    a2,$A1C(a4)
  5212.     clr.l    $A20(a4)
  5213.     moveq    #0,d0
  5214.     move.l    d0,-(sp)
  5215.     move.l    d0,-(sp)
  5216.     pea    c47EA(pc)
  5217.     move.l    d0,-(sp)
  5218.     pea    c476A(pc)
  5219.     pea    c4644(pc)
  5220.     move.l    d0,-(sp)
  5221.     pea    added.MSG(pc)
  5222.     move.l    d0,-(sp)
  5223.     move.l    d0,-(sp)
  5224.     moveq    #1,d0
  5225.     swap    d0
  5226.     move.l    a3,a0
  5227.     lea    $A0C(a4),a1
  5228.     jsr    c4D50(pc)
  5229.     lea    $28(sp),sp
  5230.     movem.l    (sp)+,a2/a3
  5231.     rts
  5232.  
  5233. c48B0:    movem.l    a2/a3,-(sp)
  5234.     move.l    a0,a3
  5235.     move.l    a1,a2
  5236.     lea    $A0C(a4),a0
  5237.     jsr    c21AE(pc)
  5238.     move.l    a2,$A1C(a4)
  5239.     moveq    #1,d0
  5240.     move.l    d0,$A20(a4)
  5241.     moveq    #0,d0
  5242.     move.l    d0,-(sp)
  5243.     move.l    d0,-(sp)
  5244.     pea    c47EA(pc)
  5245.     move.l    d0,-(sp)
  5246.     pea    c476A(pc)
  5247.     pea    c4644(pc)
  5248.     move.l    d0,-(sp)
  5249.     pea    moved.MSG(pc)
  5250.     move.l    d0,-(sp)
  5251.     move.l    d0,-(sp)
  5252.     moveq    #1,d0
  5253.     swap    d0
  5254.     move.l    a3,a0
  5255.     lea    $A0C(a4),a1
  5256.     jsr    c4D50(pc)
  5257.     lea    $28(sp),sp
  5258.     movem.l    (sp)+,a2/a3
  5259.     rts
  5260.  
  5261. c4900:    link.w    a5,#-8
  5262.     move.l    a3,-(sp)
  5263.     move.l    a0,-8(a5)
  5264.     move.l    $A1C(a4),a0
  5265.     move.l    (a0),a3
  5266.     moveq    #0,d0
  5267.     move.l    d0,$A24(a4)
  5268.     move.l    d0,$A28(a4)
  5269.     bra.b    c4946
  5270.  
  5271. c491C:    moveq    #-13,d0
  5272.     and.w    d0,$1E(a3)
  5273.     move.l    $10(a3),a0
  5274.     lea    $490(a4),a1
  5275.     jsr    cA914(pc)
  5276.     lea    $790(a4),a0
  5277.     lea    $490(a4),a1
  5278.     jsr    cA9E2(pc)
  5279.     tst.l    d0
  5280.     bne.b    c4944
  5281.     bset    #2,$1F(a3)
  5282. c4944:    move.l    (a3),a3
  5283. c4946:    cmpa.l    $A1C(a4),a3
  5284.     bne.b    c491C
  5285.     jsr    cA3D0(pc)
  5286.     moveq    #0,d0
  5287.     move.l    (sp)+,a3
  5288.     unlk    a5
  5289.     rts
  5290.  
  5291. c4958:    link.w    a5,#-$10
  5292.     movem.l    d7/a2/a3,-(sp)
  5293.     move.l    a1,a3
  5294.     movem.l    d0/a0,-$10(a5)
  5295.     move.l    $A1C(a4),a0
  5296.     move.l    (a0),a2
  5297.     moveq    #0,d7
  5298.     move.l    a3,a0
  5299.     lea    $590(a4),a1
  5300.     jsr    c5282(pc)
  5301.     bra.b    c49B4
  5302.  
  5303. c497C:    btst    #2,$1F(a2)
  5304.     bne.b    c49B2
  5305.     move.l    $10(a2),a0
  5306.     move.l    a3,a1
  5307.     jsr    c52C2(pc)
  5308.     tst.l    d0
  5309.     bne.b    c49B2
  5310.     move.l    $24(a3),d0
  5311.     cmp.l    $1A(a2),d0
  5312.     bge.b    c49AC
  5313.     bset    #3,$1F(a2)
  5314.     moveq    #1,d7
  5315.     moveq    #1,d0
  5316.     move.l    d0,$A28(a4)
  5317.     bra.b    c49B2
  5318.  
  5319. c49AC:    bset    #2,$1F(a2)
  5320. c49B2:    move.l    (a2),a2
  5321. c49B4:    cmpa.l    $A1C(a4),a2
  5322.     bne.b    c497C
  5323.     tst.l    d7
  5324.     bne.b    c49C4
  5325.     move.l    a3,a0
  5326.     jsr    cA4C8(pc)
  5327. c49C4:    moveq    #0,d0
  5328.     movem.l    (sp)+,d7/a2/a3
  5329.     unlk    a5
  5330.     rts
  5331.  
  5332. c49CE:    link.w    a5,#-4
  5333.     move.l    a3,-(sp)
  5334.     move.l    a1,a3
  5335.     move.l    a0,-4(a5)
  5336.     tst.l    (a3)
  5337.     beq.b    c49F0
  5338.     pea    Archivecorrup.MSG0(pc)
  5339.     jsr    c2328(pc)
  5340.     moveq    #1,d0
  5341.     move.l    d0,$A24(a4)
  5342.     moveq    #0,d0
  5343.     bra.b    c49F2
  5344.  
  5345. c49F0:    moveq    #0,d0
  5346. c49F2:    move.l    -8(a5),a3
  5347.     unlk    a5
  5348.     rts
  5349.  
  5350. c49FA:    link.w    a5,#-$14
  5351.     movem.l    d5-d7/a2/a3,-(sp)
  5352.     move.l    a1,a3
  5353.     move.l    a0,-$14(a5)
  5354.     move.l    (a3),a2
  5355.     moveq    #0,d7
  5356.     move.l    a3,$A1C(a4)
  5357.     lea    $A0C(a4),a0
  5358.     jsr    c21AE(pc)
  5359.     move.l    $C0(a4),d6
  5360.     move.l    #$1E8,$C0(a4)
  5361.     moveq    #0,d0
  5362.     move.l    d0,-(sp)
  5363.     move.l    d0,-(sp)
  5364.     pea    c49CE(pc)
  5365.     move.l    d0,-(sp)
  5366.     pea    c4958(pc)
  5367.     pea    c4900(pc)
  5368.     move.l    d0,-(sp)
  5369.     move.l    d0,-(sp)
  5370.     move.l    d0,-(sp)
  5371.     move.l    d0,-(sp)
  5372.     moveq    #1,d0
  5373.     swap    d0
  5374.     move.l    -$14(a5),a0
  5375.     lea    $A0C(a4),a1
  5376.     jsr    c4D50(pc)
  5377.     lea    $28(sp),sp
  5378.     move.l    d0,d5
  5379.     tst.l    d5
  5380.     beq.b    c4A60
  5381.     move.l    d5,d0
  5382.     bra.w    c4AFC
  5383.  
  5384. c4A60:    move.l    d6,$C0(a4)
  5385.     tst.l    $A24(a4)
  5386.     beq.b    c4A70
  5387.     moveq    #1,d0
  5388.     bra.w    c4AFC
  5389.  
  5390. c4A70:    tst.l    $A28(a4)
  5391.     bne.b    c4A8C
  5392.     moveq    #1,d0
  5393.     move.l    d0,$A2C(a4)
  5394.     move.l    -$14(a5),a0
  5395.     move.l    a3,a1
  5396.     bsr.w    c4862
  5397.     clr.l    $A2C(a4)
  5398.     bra.b    c4AFA
  5399.  
  5400. c4A8C:    move.l    -$14(a5),a0
  5401.     jsr    cA53C(pc)
  5402.     move.l    d0,a3
  5403.     move.l    a3,d0
  5404.     bne.b    c4ACE
  5405.     moveq    #-1,d0
  5406.     bra.b    c4AFC
  5407.  
  5408. c4A9E:    btst    #2,$1F(a2)
  5409.     bne.b    c4ABC
  5410.     tst.l    $10(a2)
  5411.     beq.b    c4ABC
  5412.     move.l    $A20(a4),d0
  5413.     move.l    a2,a0
  5414.     move.l    a3,a1
  5415.     jsr    c5EEE(pc)
  5416.     move.l    d0,d5
  5417.     addq.l    #1,d7
  5418. c4ABC:    tst.l    d5
  5419.     beq.b    c4ACC
  5420.     moveq    #0,d0
  5421.     move.l    a3,a0
  5422.     jsr    c1FB4(pc)
  5423.     move.l    d5,d0
  5424.     bra.b    c4AFC
  5425.  
  5426. c4ACC:    move.l    (a2),a2
  5427. c4ACE:    cmpa.l    $A1C(a4),a2
  5428.     bne.b    c4A9E
  5429.     moveq    #0,d0
  5430.     move.l    a3,a0
  5431.     jsr    c1FB4(pc)
  5432.     move.l    a3,a0
  5433.     jsr    c20F2(pc)
  5434.     move.l    a3,a0
  5435.     move.l    -$14(a5),a1
  5436.     jsr    c146C(pc)
  5437.     move.l    d0,d5
  5438.     move.l    d7,d0
  5439.     moveq    #0,d1
  5440.     lea    addedreplaced.MSG(pc),a0
  5441.     jsr    c5182(pc)
  5442. c4AFA:    move.l    d5,d0
  5443. c4AFC:    movem.l    (sp)+,d5-d7/a2/a3
  5444.     unlk    a5
  5445.     rts
  5446.  
  5447. c4B04:    link.w    a5,#-8
  5448.     move.l    a3,-(sp)
  5449.     move.l    a0,-8(a5)
  5450.     move.l    $A30(a4),a3
  5451.     moveq    #0,d0
  5452.     move.l    d0,$A24(a4)
  5453.     move.l    d0,$A28(a4)
  5454.     bra.b    c4B24
  5455.  
  5456. c4B1E:    move.l    a3,a0
  5457.     jsr    cA894(pc)
  5458. c4B24:    move.l    a3,d0
  5459.     bne.b    c4B1E
  5460.     suba.l    a0,a0
  5461.     move.l    a0,$A34(a4)
  5462.     move.l    a0,$A30(a4)
  5463.     jsr    cA3D0(pc)
  5464.     moveq    #0,d0
  5465.     move.l    (sp)+,a3
  5466.     unlk    a5
  5467.     rts
  5468.  
  5469. c4B3E:    link.w    a5,#-$14
  5470.     movem.l    d2/a2/a3/a6,-(sp)
  5471.     move.l    a1,a3
  5472.     movem.l    d0/a0,-$10(a5)
  5473.     move.l    a3,a0
  5474.     lea    $590(a4),a1
  5475.     jsr    c5282(pc)
  5476.     moveq    #-2,d0
  5477.     lea    $590(a4),a0
  5478.     jsr    c12FC(pc)
  5479.     move.l    d0,$10(sp)
  5480.     tst.l    d0
  5481.     beq.w    c4C12
  5482.     move.l    #$104,d0
  5483.     moveq    #1,d1
  5484.     jsr    cA81C(pc)
  5485.     move.l    d0,a2
  5486.     move.l    $10(sp),d1
  5487.     move.l    a2,d2
  5488.     move.l    $420(a4),a6
  5489.     jsr    -$66(a6)
  5490.     move.l    $10(sp),d0
  5491.     jsr    c137C(pc)
  5492.     lea    $84(a2),a0
  5493.     lea    -8(a5),a1
  5494.     jsr    c26D6(pc)
  5495.     move.l    $24(a3),d0
  5496.     cmp.l    -8(a5),d0
  5497.     bge.b    c4C06
  5498.     moveq    #1,d0
  5499.     move.l    d0,$A28(a4)
  5500.     moveq    #$20,d1
  5501.     exg    d0,d1
  5502.     jsr    cA81C(pc)
  5503.     move.l    d0,a3
  5504.     move.l    $7C(a2),8(a3)
  5505.     move.l    $74(a2),d0
  5506.     move.w    d0,$14(a3)
  5507.     lea    $90(a2),a0
  5508.     jsr    cA8C4(pc)
  5509.     move.l    d0,$16(a3)
  5510.     lea    w4732(pc),a0
  5511.     move.l    a0,12(a3)
  5512.     lea    $590(a4),a0
  5513.     jsr    cA8C4(pc)
  5514.     move.l    d0,$10(a3)
  5515.     move.l    -8(a5),$1A(a3)
  5516.     tst.l    $A34(a4)
  5517.     beq.b    c4BFC
  5518.     move.l    $A34(a4),a0
  5519.     move.l    a3,(a0)
  5520.     move.l    a3,$A34(a4)
  5521.     bra.b    c4C0C
  5522.  
  5523. c4BFC:    move.l    a3,$A34(a4)
  5524.     move.l    a3,$A30(a4)
  5525.     bra.b    c4C0C
  5526.  
  5527. c4C06:    move.l    a3,a0
  5528.     jsr    cA4C8(pc)
  5529. c4C0C:    move.l    a2,a0
  5530.     jsr    cA894(pc)
  5531. c4C12:    moveq    #0,d0
  5532.     movem.l    (sp)+,d2/a2/a3/a6
  5533.     unlk    a5
  5534.     rts
  5535.  
  5536. c4C1C:    link.w    a5,#-8
  5537.     move.l    a3,-(sp)
  5538.     move.l    a1,a3
  5539.     movem.l    d0/a0,-8(a5)
  5540.     move.l    a3,a0
  5541.     jsr    cA4C8(pc)
  5542.     moveq    #0,d0
  5543.     move.l    (sp)+,a3
  5544.     unlk    a5
  5545.     rts
  5546.  
  5547. c4C38:    link.w    a5,#-4
  5548.     move.l    a3,-(sp)
  5549.     move.l    a1,a3
  5550.     move.l    a0,-4(a5)
  5551.     tst.l    (a3)
  5552.     beq.b    c4C5A
  5553.     pea    Archivecorrup.MSG1(pc)
  5554.     jsr    c2328(pc)
  5555.     moveq    #1,d0
  5556.     move.l    d0,$A24(a4)
  5557.     moveq    #0,d0
  5558.     bra.b    c4C5C
  5559.  
  5560. c4C5A:    moveq    #0,d0
  5561. c4C5C:    move.l    -8(a5),a3
  5562.     unlk    a5
  5563.     rts
  5564.  
  5565. c4C64:    link.w    a5,#-$14
  5566.     movem.l    d6/d7/a2/a3,-(sp)
  5567.     move.l    a1,a3
  5568.     move.l    a0,-$10(a5)
  5569.     moveq    #0,d7
  5570.     move.l    $C0(a4),d6
  5571.     move.l    #$1E8,$C0(a4)
  5572.     moveq    #0,d0
  5573.     move.l    d0,-(sp)
  5574.     move.l    d0,-(sp)
  5575.     pea    c4C38(pc)
  5576.     pea    c4C1C(pc)
  5577.     pea    c4B3E(pc)
  5578.     pea    c4B04(pc)
  5579.     move.l    d0,-(sp)
  5580.     move.l    d0,-(sp)
  5581.     move.l    d0,-(sp)
  5582.     move.l    d0,-(sp)
  5583.     moveq    #1,d0
  5584.     swap    d0
  5585.     move.l    -$10(a5),a0
  5586.     move.l    a3,a1
  5587.     jsr    c4D50
  5588.     ;(sp)
  5589.     lea    $28(a7),a7
  5590.     tst.l    d0
  5591.     bne.w    c4D46
  5592.     move.l    d6,$C0(a4)
  5593.     tst.l    $A24(a4)
  5594.     beq.b    c4CC6
  5595.     moveq    #1,d0
  5596.     bra.w    c4D46
  5597.  
  5598. c4CC6:    tst.l    $A28(a4)
  5599.     bne.b    c4CDC
  5600.     moveq    #0,d0
  5601.     move.l    d0,d1
  5602.     lea    freshened.MSG(pc),a0
  5603.     jsr    c5182(pc)
  5604.     moveq    #0,d0
  5605.     bra.b    c4D46
  5606.  
  5607. c4CDC:    move.l    -$10(a5),a0
  5608.     jsr    cA53C(pc)
  5609.     move.l    d0,a2
  5610.     move.l    a2,d0
  5611.     bne.b    c4CEE
  5612.     moveq    #-1,d0
  5613.     bra.b    c4D46
  5614.  
  5615. c4CEE:    move.l    $A30(a4),a3
  5616.     bra.b    c4D16
  5617.  
  5618. c4CF4:    move.l    $A20(a4),d0
  5619.     move.l    a3,a0
  5620.     move.l    a2,a1
  5621.     jsr    c5EEE(pc)
  5622.     move.l    d0,d6
  5623.     addq.l    #1,d7
  5624.     tst.l    d6
  5625.     beq.b    c4D14
  5626.     moveq    #0,d0
  5627.     move.l    a2,a0
  5628.     jsr    c1FB4(pc)
  5629.     move.l    d6,d0
  5630.     bra.b    c4D46
  5631.  
  5632. c4D14:    move.l    (a3),a3
  5633. c4D16:    move.l    a3,d0
  5634.     bne.b    c4CF4
  5635.     moveq    #0,d0
  5636.     move.l    a2,a0
  5637.     jsr    c1FB4(pc)
  5638.     move.l    a2,a0
  5639.     jsr    c20F2(pc)
  5640.     move.l    a2,a0
  5641.     move.l    -$10(a5),a1
  5642.     jsr    c146C(pc)
  5643.     move.l    d0,$10(sp)
  5644.     move.l    d7,d0
  5645.     moveq    #0,d1
  5646.     lea    freshened.MSG(pc),a0
  5647.     jsr    c5182(pc)
  5648.     move.l    $10(sp),d0
  5649. c4D46:    movem.l    (sp)+,d6/d7/a2/a3
  5650.     unlk    a5
  5651.     rts
  5652.  
  5653.     dc.w    0
  5654.  
  5655. c4D50:    link.w    a5,#-$130
  5656.     movem.l    d4-d7/a2/a3/a6,-(sp)
  5657.     move.l    a0,a3
  5658.     move.l    d0,d7
  5659.     move.l    a1,-$126(a5)
  5660.     moveq    #0,d0
  5661.     move.l    d0,-$14(a5)
  5662.     move.l    d0,d4
  5663.     move.l    d0,-$18(a5)
  5664.     move.l    d0,d6
  5665.     move.l    d0,-$20(a5)
  5666.     tst.l    -$126(a5)
  5667.     beq.b    c4D82
  5668.     tst.l    $14(a5)
  5669.     beq.b    c4D82
  5670.     move.l    $83C(a4),d6
  5671. c4D82:    move.l    d6,-$1C(a5)
  5672.     btst    #$10,d7
  5673.     beq.b    c4D90
  5674.     moveq    #$77,d0
  5675.     bra.b    c4D92
  5676.  
  5677. c4D90:    moveq    #$72,d0
  5678. c4D92:    moveq    #0,d6
  5679.     move.b    d0,d6
  5680.     move.l    d7,d0
  5681.     andi.l    #$FFFF,d0
  5682.     movem.l    d0,$20(sp)
  5683.     cmpi.l    #$1E8,d0
  5684.     bne.b    c4DB4
  5685.     move.l    #$1E8,d1
  5686.     bra.b    c4DB8
  5687.  
  5688. c4DB4:    move.l    $C0(a4),d1
  5689. c4DB8:    move.l    d6,d0
  5690.     move.l    a3,a0
  5691.     jsr    c1564(pc)
  5692.     move.l    d0,a2
  5693.     move.l    a2,d0
  5694.     bne.b    c4DE8
  5695.     btst    #$10,d7
  5696.     beq.b    c4DD2
  5697.     lea    forwriting.MSG(pc),a0
  5698.     bra.b    c4DD6
  5699.  
  5700. c4DD2:    lea    w5090(pc),a0
  5701. c4DD6:    move.l    a0,-(sp)
  5702.     move.l    a3,-(sp)
  5703.     pea    LhAUnabletoop.MSG0(pc)
  5704.     jsr    c2328(pc)
  5705.     moveq    #2,d0
  5706.     bra.w    c504E
  5707.  
  5708. c4DE8:    move.l    a3,a0
  5709.     lea    $790(a4),a1
  5710.     jsr    cA914(pc)
  5711.     move.l    $18(a5),a3
  5712.     move.l    -$20(a5),d7
  5713.     move.l    a3,d0
  5714.     beq.w    c4FF6
  5715.     move.l    a2,a0
  5716.     jsr    (a3)
  5717.     bra.w    c4FF6
  5718.  
  5719. c4E08:    tst.l    d6
  5720.     beq.b    c4E14
  5721.     moveq    #1,d0
  5722.     cmp.l    d0,d4
  5723.     bge.b    c4E14
  5724.     move.l    d0,d4
  5725. c4E14:    moveq    #2,d0
  5726.     cmp.l    d0,d6
  5727.     bge.w    c500A
  5728.     lea    $1E0(a4),a0
  5729.     move.l    -$126(a5),a1
  5730.     jsr    c36A0(pc)
  5731.     move.l    d0,d6
  5732.     lea    $1E0(a4),a0
  5733.     lea    -$120(a5),a1
  5734.     bsr.w    c5282
  5735.     tst.l    -$1C(a5)
  5736.     beq.b    c4E6E
  5737.     tst.l    d6
  5738.     beq.b    c4E6E
  5739.     move.l    $14(a5),a3
  5740.     move.l    a3,d0
  5741.     beq.b    c4E6E
  5742.     pea    -$120(a5)
  5743.     move.l    a3,-(sp)
  5744.     pea    ss.MSG(pc)
  5745.     pea    $490(a4)
  5746.     jsr    c2374(pc)
  5747.     moveq    #2,d0
  5748.     lea    $490(a4),a0
  5749.     jsr    c25A2(pc)
  5750.     lea    $10(sp),sp
  5751.     tst.l    d0
  5752.     bne.b    c4E6E
  5753.     moveq    #0,d6
  5754. c4E6E:    move.l    a2,a0
  5755.     jsr    c20F2(pc)
  5756.     move.l    d0,d7
  5757.     move.l    d7,-$20(a5)
  5758.     tst.l    d6
  5759.     beq.b    c4E84
  5760.     tst.l    $1C(a5)
  5761.     bne.b    c4E92
  5762. c4E84:    tst.l    d6
  5763.     bne.w    c4FBE
  5764.     tst.l    $20(a5)
  5765.     beq.w    c4FBE
  5766. c4E92:    move.l    8(a5),a3
  5767.     tst.l    d6
  5768.     beq.b    c4EB0
  5769.     move.l    a3,d0
  5770.     beq.b    c4EB0
  5771.     pea    -$120(a5)
  5772.     lea    $1E0(a4),a0
  5773.     move.l    a3,a1
  5774.     jsr    c9B10(pc)
  5775.     addq.w    #4,sp
  5776.     bra.b    c4ECC
  5777.  
  5778. c4EB0:    tst.l    d6
  5779.     bne.b    c4ECC
  5780.     tst.l    12(a5)
  5781.     beq.b    c4ECC
  5782.     pea    -$120(a5)
  5783.     lea    $1E0(a4),a0
  5784.     move.l    12(a5),a1
  5785.     jsr    c9B10(pc)
  5786.     addq.w    #4,sp
  5787. c4ECC:    move.l    $20(sp),d5
  5788.     tst.l    d6
  5789.     beq.b    c4EF0
  5790.     move.l    $28(a5),-(sp)
  5791.     move.l    $2C(a5),-(sp)
  5792.     move.l    d5,d0
  5793.     move.l    a2,a0
  5794.     lea    $1E0(a4),a1
  5795.     move.l    $1C(a5),a6
  5796.     jsr    (a6)
  5797.     addq.w    #8,sp
  5798.     move.l    d0,d5
  5799.     bra.b    c4F0A
  5800.  
  5801. c4EF0:    move.l    $28(a5),-(sp)
  5802.     move.l    $2C(a5),-(sp)
  5803.     move.l    d5,d0
  5804.     move.l    a2,a0
  5805.     lea    $1E0(a4),a1
  5806.     move.l    $20(a5),a6
  5807.     jsr    (a6)
  5808.     addq.w    #8,sp
  5809.     move.l    d0,d5
  5810. c4F0A:    tst.l    d6
  5811.     beq.b    c4F16
  5812.     tst.l    d5
  5813.     bmi.b    c4F16
  5814.     addq.l    #1,-$14(a5)
  5815. c4F16:    tst.l    d5
  5816.     ble.b    c4F40
  5817.     jsr    c2406(pc)
  5818.     move.l    $1FA(a4),-(sp)
  5819.     pea    Erroronfiles.MSG(pc)
  5820.     jsr    c2328(pc)
  5821.     move.l    d5,d0
  5822.     jsr    cAD80(pc)
  5823.     addq.w    #8,sp
  5824.     cmp.l    d4,d0
  5825.     ble.b    c4F38
  5826.     move.l    d0,d4
  5827. c4F38:    addq.l    #1,-$18(a5)
  5828.     bra.b    c4FBE
  5829.  
  5830. c4F40:    tst.l    $E4(a4)
  5831.     beq.b    c4F8C
  5832.     tst.l    $86C(a4)
  5833.     bne.b    c4F8C
  5834.     clr.w    -$122(a5)
  5835.     tst.l    d5
  5836.     bpl.b    c4F60
  5837.     pea    K.MSG1(pc)
  5838.     jsr    c2328(pc)
  5839.     addq.w    #4,sp
  5840.     bra.b    c4FA2
  5841.  
  5842. c4F60:    tst.l    d6
  5843.     bne.b    c4F6A
  5844.     tst.l    12(a5)
  5845.     bne.b    c4F72
  5846. c4F6A:    tst.l    d6
  5847.     beq.b    c4FA2
  5848.     move.l    a3,d0
  5849.     beq.b    c4FA2
  5850. c4F72:    move.l    $1EC(a4),d0
  5851.     move.l    d0,d1
  5852.     lea    -$122(a5),a0
  5853.     jsr    c9D22(pc)
  5854.     pea    ascii.MSG2(pc)
  5855.     jsr    c2328(pc)
  5856.     addq.w    #4,sp
  5857.     bra.b    c4FA2
  5858.  
  5859. c4F8C:    tst.l    $864(a4)
  5860.     bne.b    c4FA2
  5861.     tst.l    $E4(a4)
  5862.     beq.b    c4FA2
  5863.     pea    ascii.MSG2(pc)
  5864.     jsr    c2328(pc)
  5865.     addq.w    #4,sp
  5866. c4FA2:    tst.l    d6
  5867.     bne.b    c4FAC
  5868.     tst.l    12(a5)
  5869.     bne.b    c4FB4
  5870. c4FAC:    tst.l    d6
  5871.     beq.b    c4FBE
  5872.     move.l    a3,d0
  5873.     beq.b    c4FBE
  5874. c4FB4:    tst.l    $864(a4)
  5875.     bne.b    c4FBE
  5876.     jsr    c2406(pc)
  5877. c4FBE:    moveq    #2,d0
  5878.     cmp.l    d0,d4
  5879.     beq.b    c500A
  5880.     move.l    -$20(a5),d7
  5881.     tst.l    d6
  5882.     beq.b    c4FDC
  5883.     tst.l    d5
  5884.     beq.b    c4FDC
  5885.     moveq    #4,d0
  5886.     cmp.l    d0,d5
  5887.     beq.b    c4FDC
  5888.     moveq    #-1,d0
  5889.     cmp.l    d0,d5
  5890.     bne.b    c4FEC
  5891. c4FDC:    add.l    $1F0(a4),d7
  5892.     move.l    d7,d0
  5893.     moveq    #0,d1
  5894.     move.l    a2,a0
  5895.     jsr    c188C(pc)
  5896.     bra.b    c4FF6
  5897.  
  5898. c4FEC:    move.l    d7,d0
  5899.     moveq    #0,d1
  5900.     move.l    a2,a0
  5901.     jsr    c188C(pc)
  5902. c4FF6:    lea    $1E0(a4),a0
  5903.     move.l    a2,a1
  5904.     jsr    c55F8(pc)
  5905.     move.l    d0,d6
  5906.     moveq    #-1,d0
  5907.     cmp.l    d0,d6
  5908.     bne.w    c4E08
  5909. c500A:    move.l    $24(a5),a3
  5910.     move.l    a3,d0
  5911.     beq.b    c5030
  5912.     move.l    d7,d0
  5913.     moveq    #0,d1
  5914.     move.l    a2,a0
  5915.     jsr    c188C(pc)
  5916.     pea    -$14(a5)
  5917.     move.l    a2,a0
  5918.     lea    -$18(a5),a1
  5919.     jsr    (a3)
  5920.     addq.w    #4,sp
  5921.     tst.l    d0
  5922.     bpl.b    c5030
  5923.     moveq    #1,d4
  5924. c5030:    move.l    a2,a0
  5925.     jsr    c1732(pc)
  5926.     move.l    $10(a5),a2
  5927.     move.l    a2,d0
  5928.     beq.b    c504C
  5929.     move.l    -$14(a5),d0
  5930.     move.l    -$18(a5),d1
  5931.     move.l    a2,a0
  5932.     bsr.w    c5182
  5933. c504C:    move.l    d4,d0
  5934. c504E:    movem.l    -$14C(a5),d4-d7/a2/a3/a6
  5935.     unlk    a5
  5936.     rts
  5937.  
  5938. LhAUnabletoop.MSG0:    dc.b    'LhA: Unable to open archive file ''%s''%s.',$A,0
  5939. forwriting.MSG:    dc.b    ' for writing',0,0
  5940. w5090:    dc.w    0
  5941. ss.MSG:    dc.b    13
  5942.     dc.b    '%s ''%s''? ',0,0
  5943. Erroronfiles.MSG:    dc.b    13
  5944.     dc.b    '*** Error on file ''%s'' : ',0,0
  5945. K.MSG1:    dc.b    13
  5946.     dc.b    $1B
  5947.     dc.b    '[K',0,0
  5948. ascii.MSG2:    dc.b    10
  5949.     dc.b    0
  5950. Nofiless.MSG:    dc.b    13
  5951.     dc.b    'No files %s',0,0
  5952. files.MSG:    dc.b    13
  5953.     dc.b    '1 file %s',0,0
  5954. ldfiless.MSG:    dc.b    13
  5955.     dc.b    '%ld files %s',0
  5956. ldfilesfailed.MSG:    dc.b    ', %ld files failed',0,0
  5957. filefailed.MSG:    dc.b    ', 1 file failed',0
  5958. allfilesOK.MSG:    dc.b    ', all files OK',0,0
  5959. K.MSG2:    dc.b    '.'
  5960.     dc.b    $1B
  5961.     dc.b    '[K',$A,$A,0
  5962.     dc.b    0
  5963. sarchives.MSG:    dc.b    13
  5964.     dc.b    '%s archive ''%s''? ',0,0
  5965. Creatinglistf.MSG:    dc.b    'Creating list file `%s'' ... ',0,0
  5966. done.MSG:    dc.b    'done.',$A,0
  5967.     dc.b    0
  5968. Unabletocreat.MSG:    dc.b    'Unable to create list file `%s''.',$A,0
  5969.  
  5970. c5182:    movem.l    d6/d7/a3,-(sp)
  5971.     move.l    a0,a3
  5972.     move.l    d0,d7
  5973.     move.l    d1,d6
  5974.     tst.l    d7
  5975.     bne.b    c519E
  5976.     move.l    a3,-(sp)
  5977.     pea    Nofiless.MSG(pc)
  5978.     jsr    c2328(pc)
  5979.     addq.w    #8,sp
  5980.     bra.b    c51C2
  5981.  
  5982. c519E:    moveq    #1,d0
  5983.     cmp.l    d0,d7
  5984.     bne.b    c51B2
  5985.     move.l    a3,-(sp)
  5986.     pea    files.MSG(pc)
  5987.     jsr    c2328(pc)
  5988.     addq.w    #8,sp
  5989.     bra.b    c51C2
  5990.  
  5991. c51B2:    move.l    a3,-(sp)
  5992.     move.l    d7,-(sp)
  5993.     pea    ldfiless.MSG(pc)
  5994.     jsr    c2328(pc)
  5995.     lea    12(sp),sp
  5996. c51C2:    tst.l    d6
  5997.     beq.b    c51E6
  5998.     moveq    #1,d0
  5999.     cmp.l    d0,d6
  6000.     ble.b    c51DA
  6001.     move.l    d6,-(sp)
  6002.     pea    ldfilesfailed.MSG(pc)
  6003.     jsr    c2328(pc)
  6004.     addq.w    #8,sp
  6005.     bra.b    c51F4
  6006.  
  6007. c51DA:    pea    filefailed.MSG(pc)
  6008.     jsr    c2328(pc)
  6009.     addq.w    #4,sp
  6010.     bra.b    c51F4
  6011.  
  6012. c51E6:    tst.l    d7
  6013.     beq.b    c51F4
  6014.     pea    allfilesOK.MSG(pc)
  6015.     jsr    c2328(pc)
  6016.     addq.w    #4,sp
  6017. c51F4:    pea    K.MSG2(pc)
  6018.     jsr    c2328(pc)
  6019.     addq.w    #4,sp
  6020.     movem.l    (sp)+,d6/d7/a3
  6021.     rts
  6022.  
  6023. c5204:    link.w    a5,#-$10
  6024.     movem.l    a2/a3,-(sp)
  6025.     movem.l    a0/a1,-$10(a5)
  6026.     tst.l    $83C(a4)
  6027.     beq.b    c527A
  6028.     move.l    -$10(a5),a0
  6029.     move.l    (a0),a3
  6030.     move.l    (a3),a0
  6031.     cmpa.l    a3,a0
  6032.     bne.b    c5274
  6033.     bra.b    c527A
  6034.  
  6035. c5226:    move.l    (a3),a2
  6036.     move.l    $10(a3),-(sp)
  6037.     move.l    -12(a5),-(sp)
  6038.     pea    sarchives.MSG(pc)
  6039.     pea    $590(a4)
  6040.     jsr    c2374(pc)
  6041.     moveq    #1,d0
  6042.     lea    $590(a4),a0
  6043.     jsr    c25A2(pc)
  6044.     lea    $10(sp),sp
  6045.     tst.l    d0
  6046.     bne.b    c5272
  6047.     move.l    a3,a0
  6048.     jsr    c2118(pc)
  6049.     move.l    $10(a3),a0
  6050.     jsr    cA894(pc)
  6051.     move.l    12(a3),a0
  6052.     jsr    cA894(pc)
  6053.     move.l    $16(a3),a0
  6054.     jsr    cA894(pc)
  6055.     move.l    a3,a0
  6056.     jsr    cA894(pc)
  6057. c5272:    move.l    a2,a3
  6058. c5274:    cmpa.l    -$10(a5),a3
  6059.     bne.b    c5226
  6060. c527A:    movem.l    (sp)+,a2/a3
  6061.     unlk    a5
  6062.     rts
  6063.  
  6064. c5282:    movem.l    a2/a3/a6,-(sp)
  6065.     move.l    a0,a3
  6066.     move.l    a1,a2
  6067.     tst.l    $D4(a4)
  6068.     beq.b    c52B2
  6069.     move.l    $1E(a3),d0
  6070.     beq.b    c52A0
  6071.     move.l    d0,a0
  6072.     move.l    a2,a1
  6073. c529A:    move.b    (a0)+,(a1)+
  6074.     bne.b    c529A
  6075.     bra.b    c52A2
  6076.  
  6077. c52A0:    sf    (a2)
  6078. c52A2:    move.l    a2,a0
  6079.     move.l    $1A(a3),a1
  6080.     move.l    $424(a4),a6
  6081.     jsr    -$270(a6)
  6082.     bra.b    c52BC
  6083.  
  6084. c52B2:    move.l    $1A(a3),a0
  6085.     move.l    a2,a1
  6086. c52B8:    move.b    (a0)+,(a1)+
  6087.     bne.b    c52B8
  6088. c52BC:    movem.l    (sp)+,a2/a3/a6
  6089.     rts
  6090.  
  6091. c52C2:    movem.l    a2/a3/a6,-(sp)
  6092.     move.l    a0,a3
  6093.     move.l    a1,a2
  6094.     move.l    a3,d0
  6095.     bne.b    c52D2
  6096.     moveq    #1,d0
  6097.     bra.b    c534E
  6098.  
  6099. c52D2:    move.l    $1E(a2),d0
  6100.     beq.b    c52E4
  6101.     move.l    d0,a0
  6102.     lea    $490(a4),a1
  6103. c52DE:    move.b    (a0)+,(a1)+
  6104.     bne.b    c52DE
  6105.     bra.b    c52E8
  6106.  
  6107. c52E4:    sf    $490(a4)
  6108. c52E8:    lea    $490(a4),a0
  6109.     move.l    $1A(a2),a1
  6110.     move.l    $424(a4),a6
  6111.     jsr    -$270(a6)
  6112.     move.l    a3,a0
  6113.     lea    $590(a4),a1
  6114.     jsr    cA914(pc)
  6115.     lea    $590(a4),a3
  6116.     tst.l    $D4(a4)
  6117.     bne.b    c5344
  6118.     lea    $590(a4),a0
  6119.     move.l    a0,a1
  6120. c5312:    tst.b    (a1)+
  6121.     bne.b    c5312
  6122.     subq.l    #1,a1
  6123.     suba.l    a0,a1
  6124.     move.l    a1,d0
  6125.     adda.l    d0,a0
  6126.     move.l    a0,a3
  6127.     bra.b    c5324
  6128.  
  6129. c5322:    subq.l    #1,a3
  6130. c5324:    lea    $590(a4),a0
  6131.     cmpa.l    a0,a3
  6132.     beq.b    c533A
  6133.     move.b    (a3),d0
  6134.     moveq    #$2F,d1
  6135.     cmp.b    d1,d0
  6136.     beq.b    c533A
  6137.     moveq    #$3A,d1
  6138.     cmp.b    d1,d0
  6139.     bne.b    c5322
  6140. c533A:    lea    $590(a4),a0
  6141.     cmpa.l    a3,a0
  6142.     beq.b    c5344
  6143.     addq.l    #1,a3
  6144. c5344:    move.l    a3,a0
  6145.     lea    $490(a4),a1
  6146.     jsr    cA9E2(pc)
  6147. c534E:    movem.l    (sp)+,a2/a3/a6
  6148.     rts
  6149.  
  6150. c5354:    movem.l    d2/a3/a6,-(sp)
  6151.     move.l    a0,a3
  6152.     tst.l    $DC(a4)
  6153.     beq.b    c536C
  6154.     move.l    a3,d1
  6155.     moveq    #2,d2
  6156.     move.l    $420(a4),a6
  6157.     jsr    -$BA(a6)
  6158. c536C:    movem.l    (sp)+,d2/a3/a6
  6159.     rts
  6160.  
  6161. c5372:    link.w    a5,#-12
  6162.     movem.l    d2/d3/d7/a2/a3/a6,-(sp)
  6163.     move.l    a0,a3
  6164.     move.l    a1,-12(a5)
  6165.     move.l    -12(a5),a0
  6166.     move.l    (a0),a2
  6167.     move.l    #$3EE,d0
  6168.     move.l    a3,a0
  6169.     jsr    c1276(pc)
  6170.     move.l    d0,d7
  6171.     tst.l    d7
  6172.     beq.b    c5406
  6173.     move.l    a3,-(sp)
  6174.     pea    Creatinglistf.MSG(pc)
  6175.     jsr    c2328(pc)
  6176.     addq.w    #8,sp
  6177.     move.l    -12(a5),a3
  6178. c53A8:    btst    #2,$1F(a2)
  6179.     bne.b    c53EE
  6180.     move.l    $10(a2),a0
  6181.     lea    $490(a4),a1
  6182.     jsr    cA914(pc)
  6183.     lea    $490(a4),a0
  6184.     move.l    a0,a1
  6185. c53C2:    tst.b    (a1)+
  6186.     bne.b    c53C2
  6187.     subq.l    #1,a1
  6188.     suba.l    a0,a1
  6189.     lea    $490(a4),a6
  6190.     move.l    a1,d0
  6191.     move.b    #10,(a6,d0.l)
  6192.     lea    $490(a4),a6
  6193.     sf    1(a6,d0.l)
  6194.     addq.l    #1,d0
  6195.     move.l    a0,d2
  6196.     move.l    d0,d3
  6197.     move.l    d7,d1
  6198.     move.l    $420(a4),a6
  6199.     jsr    -$30(a6)
  6200. c53EE:    move.l    (a2),a2
  6201.     cmpa.l    a3,a2
  6202.     bne.b    c53A8
  6203.     move.l    d7,d0
  6204.     jsr    c12BC(pc)
  6205.     pea    done.MSG(pc)
  6206.     jsr    c2328(pc)
  6207.     addq.w    #4,sp
  6208.     bra.b    c5412
  6209.  
  6210. c5406:    move.l    a3,-(sp)
  6211.     pea    Unabletocreat.MSG(pc)
  6212.     jsr    c2328(pc)
  6213.     addq.w    #8,sp
  6214. c5412:    movem.l    (sp)+,d2/d3/d7/a2/a3/a6
  6215.     unlk    a5
  6216.     rts
  6217.  
  6218.     dc.w    0
  6219.  
  6220. c541C:    movem.l    d6/d7/a3,-(sp)
  6221.     move.l    a0,a3
  6222.     move.l    d0,d7
  6223.     bra.b    c543C
  6224.  
  6225. c5426:    moveq    #$5C,d0
  6226.     cmp.b    d0,d6
  6227.     beq.b    c5438
  6228.     moveq    #$2F,d0
  6229.     cmp.b    d0,d6
  6230.     beq.b    c5438
  6231.     cmpi.b    #$FF,d6
  6232.     bne.b    c543A
  6233. c5438:    move.b    d7,(a3)
  6234. c543A:    addq.l    #1,a3
  6235. c543C:    move.b    (a3),d6
  6236.     tst.b    d6
  6237.     bne.b    c5426
  6238.     movem.l    (sp)+,d6/d7/a3
  6239.     rts
  6240.  
  6241. LHHDRHeaderto.MSG:    dc.b    13
  6242.     dc.b    '     LHHDR: Header too long or corrupted'
  6243.     dc.b    $1B
  6244.     dc.b    '[K',$A,0
  6245. WARNINGSkippi.MSG:    dc.b    13
  6246.     dc.b    '     WARNING: Skipping corrupt/extraneous da'
  6247.     dc.b    'ta'
  6248.     dc.b    $1B
  6249.     dc.b    '[K',$A,0
  6250. Warningsisani.MSG:    dc.b    13
  6251.     dc.b    '** Warning: `%s'' is an illegal filename.'
  6252.     dc.b    $1B
  6253.     dc.b    '[K',$A,0
  6254.  
  6255. c54D8:    movem.l    d2/d7/a3,-(sp)
  6256.     move.l    a0,a3
  6257.     bra.b    c553E
  6258.  
  6259. c54E0:    moveq    #0,d7
  6260.     bra.b    c54F8
  6261.  
  6262. c54E4:    move.l    d7,d0
  6263.     ext.l    d0
  6264.     lea    $A39(a4),a0
  6265.     lea    $A38(a4),a1
  6266.     move.b    (a0,d0.l),(a1,d7.w)
  6267.     addq.w    #1,d7
  6268. c54F8:    moveq    #4,d0
  6269.     cmp.w    d0,d7
  6270.     blt.b    c54E4
  6271.     move.l    a3,a0
  6272.     jsr    c201A(pc)
  6273.     move.b    d0,$A3C(a4)
  6274.     move.b    $A38(a4),d1
  6275.     moveq    #$2D,d2
  6276.     cmp.b    d2,d1
  6277.     bne.b    c553E
  6278.     cmp.b    d2,d0
  6279.     bne.b    c553E
  6280.     move.b    $A39(a4),d0
  6281.     moveq    #$6C,d1
  6282.     cmp.b    d1,d0
  6283.     bne.b    c553E
  6284.     move.l    a3,a0
  6285.     jsr    c20F2(pc)
  6286.     moveq    #7,d1
  6287.     cmp.l    d1,d0
  6288.     bge.b    c5530
  6289.     moveq    #1,d0
  6290.     bra.b    c554A
  6291.  
  6292. c5530:    moveq    #-7,d0
  6293.     moveq    #1,d1
  6294.     move.l    a3,a0
  6295.     jsr    c188C(pc)
  6296.     moveq    #0,d0
  6297.     bra.b    c554A
  6298.  
  6299. c553E:    move.l    a3,a0
  6300.     jsr    c20C6(pc)
  6301.     tst.l    d0
  6302.     beq.b    c54E0
  6303.     moveq    #1,d0
  6304. c554A:    movem.l    (sp)+,d2/d7/a3
  6305.     rts
  6306.  
  6307. c5550:    movem.l    d7/a2/a3,-(sp)
  6308.     move.l    a0,a3
  6309.     move.l    a3,a0
  6310.     addq.l    #2,a3
  6311.     moveq    #0,d7
  6312.     moveq    #0,d0
  6313.     move.b    (a0),d0
  6314.     adda.w    d0,a0
  6315.     lea    2(a0),a2
  6316.     bra.b    c556C
  6317.  
  6318. c5568:    add.b    (a3),d7
  6319.     addq.l    #1,a3
  6320. c556C:    cmpa.l    a2,a3
  6321.     bcs.b    c5568
  6322.     move.l    d7,d0
  6323.     movem.l    (sp)+,d7/a2/a3
  6324.     rts
  6325.  
  6326. c5578:    link.w    a5,#-4
  6327.     movem.l    d2/a2/a3,-(sp)
  6328.     move.l    a0,a3
  6329.     move.l    a1,a2
  6330.     moveq    #0,d0
  6331.     move.b    2(a3),d0
  6332.     tst.w    d0
  6333.     beq.b    c55EE
  6334.     subq.w    #1,d0
  6335.     beq.b    c55EE
  6336.     subq.w    #1,d0
  6337.     beq.b    c559E
  6338.     subi.w    #$3E,d0
  6339.     beq.b    c55EE
  6340.     bra.b    c55E8
  6341.  
  6342. c559E:    moveq    #0,d0
  6343.     move.b    1(a3),d0
  6344.     asl.l    #8,d0
  6345.     moveq    #0,d1
  6346.     move.b    (a3),d1
  6347.     add.l    d0,d1
  6348.     move.l    d1,12(sp)
  6349.     move.l    d1,d0
  6350.     jsr    cA7AA(pc)
  6351.     move.l    d0,$1E(a2)
  6352.     lea    3(a3),a0
  6353.     move.l    12(sp),d1
  6354.     move.l    d1,d2
  6355.     subq.l    #3,d2
  6356.     move.l    d0,a1
  6357.     bra.b    c55CC
  6358.  
  6359. c55CA:    move.b    (a0)+,(a1)+
  6360. c55CC:    subq.l    #1,d2
  6361.     bcc.b    c55CA
  6362.     move.l    $1E(a2),a0
  6363.     move.l    a0,a1
  6364.     adda.l    d1,a1
  6365.     sf    -3(a1)
  6366.     moveq    #$2F,d0
  6367.     move.l    $1E(a2),a0
  6368.     bsr.w    c541C
  6369.     bra.b    c55EE
  6370.  
  6371. c55E8:    bset    #3,$2F(a2)
  6372. c55EE:    moveq    #0,d0
  6373.     movem.l    (sp)+,d2/a2/a3
  6374.     unlk    a5
  6375.     rts
  6376.  
  6377. c55F8:    link.w    a5,#-$12C
  6378.     movem.l    d2/d4-d7/a2/a3,-(sp)
  6379.     movem.l    a0/a1,-$126(a5)
  6380.     moveq    #0,d5
  6381.     move.l    -$122(a5),a3
  6382.     move.l    -$126(a5),a2
  6383. c5610:    moveq    #0,d6
  6384.     move.l    a3,a0
  6385.     jsr    c20F2(pc)
  6386.     move.l    d0,8(a2)
  6387.     moveq    #$15,d0
  6388.     move.l    a3,a0
  6389.     lea    -$11C(a5),a1
  6390.     jsr    c1A18(pc)
  6391.     move.l    d0,d7
  6392.     move.b    -$11C(a5),d0
  6393.     tst.b    d0
  6394.     bne.b    c5638
  6395.     moveq    #-1,d0
  6396.     bra.w    c5A8A
  6397.  
  6398. c5638:    moveq    #$15,d0
  6399.     cmp.l    d0,d7
  6400.     beq.b    c5644
  6401.     moveq    #-1,d0
  6402.     bra.w    c5A8A
  6403.  
  6404. c5644:    moveq    #0,d0
  6405.     move.b    -$11C(a5),d0
  6406.     move.l    d0,d7
  6407.     addq.l    #2,d7
  6408.     move.l    -$126(a5),a0
  6409.     adda.w    #$14,a0
  6410.     move.l    a0,a2
  6411.     moveq    #5,d0
  6412.     move.l    a2,a0
  6413.     lea    -$11A(a5),a1
  6414.     jsr    cA9A8(pc)
  6415.     move.l    -$126(a5),a0
  6416.     sf    $19(a0)
  6417.     moveq    #4,d0
  6418.     move.l    a2,a0
  6419.     lea    $24E(a4),a1
  6420. c5674:    move.b    (a0)+,(a1)+
  6421.     dbra    d0,c5674
  6422.     moveq    #0,d4
  6423.     lea    $218(a4),a3
  6424.     bra.b    c5686
  6425.  
  6426. c5682:    addq.l    #1,d4
  6427.     addq.l    #6,a3
  6428. c5686:    moveq    #4,d0
  6429.     move.l    a2,a0
  6430.     move.l    a3,a1
  6431. c568C:    move.b    (a0)+,d1
  6432.     cmp.b    (a1)+,d1
  6433.     dbne    d0,c568C
  6434.     bne.b    c5682
  6435.     moveq    #9,d0
  6436.     cmp.l    d0,d4
  6437.     bne.b    c569E
  6438.     moveq    #-1,d4
  6439. c569E:    move.l    -$126(a5),a3
  6440.     move.l    d4,d0
  6441.     move.w    d0,$34(a3)
  6442.     tst.l    $28(a3)
  6443.     beq.b    c56BA
  6444.     move.l    $28(a3),a0
  6445.     jsr    cA894(pc)
  6446.     clr.l    $28(a3)
  6447. c56BA:    tst.l    $1E(a3)
  6448.     beq.b    c56CC
  6449.     move.l    $1E(a3),a0
  6450.     jsr    cA894(pc)
  6451.     clr.l    $1E(a3)
  6452. c56CC:    tst.l    $1A(a3)
  6453.     beq.b    c56E0
  6454.     move.l    $1A(a3),a0
  6455.     jsr    cA894(pc)
  6456.     suba.l    a0,a0
  6457.     move.l    a0,$1A(a3)
  6458. c56E0:    moveq    #0,d0
  6459.     move.b    -$112(a5),d0
  6460.     asl.l    #8,d0
  6461.     moveq    #0,d1
  6462.     move.b    -$113(a5),d1
  6463.     add.l    d0,d1
  6464.     swap    d1
  6465.     clr.w    d1
  6466.     moveq    #0,d0
  6467.     move.b    -$114(a5),d0
  6468.     asl.l    #8,d0
  6469.     moveq    #0,d2
  6470.     move.b    -$115(a5),d2
  6471.     add.l    d0,d2
  6472.     add.l    d1,d2
  6473.     move.l    d2,$10(a3)
  6474.     moveq    #0,d0
  6475.     move.b    -$10E(a5),d0
  6476.     asl.l    #8,d0
  6477.     moveq    #0,d1
  6478.     move.b    -$10F(a5),d1
  6479.     add.l    d0,d1
  6480.     swap    d1
  6481.     clr.w    d1
  6482.     moveq    #0,d0
  6483.     move.b    -$110(a5),d0
  6484.     asl.l    #8,d0
  6485.     moveq    #0,d2
  6486.     move.b    -$111(a5),d2
  6487.     add.l    d0,d2
  6488.     add.l    d1,d2
  6489.     move.l    d2,12(a3)
  6490.     move.b    -$108(a5),d0
  6491.     moveq    #0,d1
  6492.     move.b    d0,d1
  6493.     moveq    #7,d2
  6494.     and.l    d2,d1
  6495.     move.w    d1,$2E(a3)
  6496.     moveq    #0,d1
  6497.     move.b    -$109(a5),d1
  6498.     move.w    d1,$22(a3)
  6499.     suba.l    a0,a0
  6500.     move.l    a0,$28(a3)
  6501.     move.l    a0,$1E(a3)
  6502.     move.b    #$3F,$36(a3)
  6503.     moveq    #0,d1
  6504.     move.b    d0,d1
  6505.     move.b    d0,-$11D(a5)
  6506.     tst.w    d1
  6507.     beq.b    c5778
  6508.     subq.w    #1,d1
  6509.     beq.b    c5778
  6510.     subq.w    #1,d1
  6511.     beq.w    c595A
  6512.     bra.w    c59D2
  6513.  
  6514. c5778:    moveq    #0,d0
  6515.     move.b    -$10A(a5),d0
  6516.     asl.l    #8,d0
  6517.     moveq    #0,d1
  6518.     move.b    -$10B(a5),d1
  6519.     add.l    d0,d1
  6520.     swap    d1
  6521.     clr.w    d1
  6522.     moveq    #0,d0
  6523.     move.b    -$10C(a5),d0
  6524.     asl.l    #8,d0
  6525.     moveq    #0,d2
  6526.     move.b    -$10D(a5),d2
  6527.     add.l    d0,d2
  6528.     add.l    d1,d2
  6529.     move.l    d2,$24(a3)
  6530.     moveq    #$16,d0
  6531.     cmp.l    d0,d7
  6532.     bge.b    c57AE
  6533.     moveq    #1,d6
  6534.     bra.w    c59D4
  6535.  
  6536. c57AE:    move.l    d7,d0
  6537.     moveq    #$15,d1
  6538.     sub.l    d1,d0
  6539.     move.l    -$122(a5),a0
  6540.     lea    -$107(a5),a1
  6541.     jsr    c1A18(pc)
  6542.     lea    -$11C(a5),a0
  6543.     bsr.w    c5550
  6544.     move.b    -$11B(a5),d1
  6545.     cmp.b    d1,d0
  6546.     beq.b    c57D6
  6547.     moveq    #1,d6
  6548.     bra.w    c59D4
  6549.  
  6550. c57D6:    move.b    -$107(a5),d0
  6551.     moveq    #0,d4
  6552.     move.b    d0,$1C(sp)
  6553.     bra.b    c5834
  6554.  
  6555. c57E2:    lea    -$11C(a5),a0
  6556.     adda.l    d4,a0
  6557.     move.l    a0,a2
  6558.     moveq    #0,d0
  6559.     move.b    $16(a2),d0
  6560.     tst.l    d0
  6561.     bne.b    c5832
  6562.     moveq    #0,d0
  6563.     move.b    $1C(sp),d0
  6564.     move.l    d0,d1
  6565.     sub.l    d4,d1
  6566.     move.l    d1,$1E(sp)
  6567.     move.l    d1,d0
  6568.     jsr    cA7AA(pc)
  6569.     move.l    d0,$28(a3)
  6570.     lea    $17(a2),a0
  6571.     move.l    $1E(sp),d0
  6572.     move.l    d0,d1
  6573.     subq.l    #1,d1
  6574.     move.l    d1,d0
  6575.     move.l    a0,a1
  6576.     move.l    $28(a3),a0
  6577.     jsr    cA9A8(pc)
  6578.     move.l    $28(a3),a0
  6579.     adda.l    $1E(sp),a0
  6580.     sf    -1(a0)
  6581.     bra.b    c5842
  6582.  
  6583. c5832:    addq.l    #1,d4
  6584. c5834:    move.l    -$126(a5),a3
  6585.     moveq    #0,d0
  6586.     move.b    $1C(sp),d0
  6587.     cmp.l    d0,d4
  6588.     blt.b    c57E2
  6589. c5842:    tst.l    $28(a3)
  6590.     beq.b    c5856
  6591.     lea    -$106(a5),a0
  6592.     jsr    cA8C4(pc)
  6593.     move.l    d0,$1A(a3)
  6594.     bra.b    c588A
  6595.  
  6596. c5856:    moveq    #0,d0
  6597.     move.b    $1C(sp),d0
  6598.     move.l    d0,d1
  6599.     addq.l    #1,d1
  6600.     move.l    d1,d0
  6601.     jsr    cA7AA(pc)
  6602.     move.l    d0,$1A(a3)
  6603.     moveq    #0,d0
  6604.     move.b    $1C(sp),d0
  6605.     move.l    $1A(a3),a0
  6606.     lea    -$106(a5),a1
  6607.     jsr    cA9A8(pc)
  6608.     moveq    #0,d0
  6609.     move.b    $1C(sp),d0
  6610.     move.l    $1A(a3),a0
  6611.     adda.w    d0,a0
  6612.     sf    (a0)
  6613. c588A:    moveq    #0,d0
  6614.     move.b    $1C(sp),d0
  6615.     move.l    d7,d4
  6616.     sub.l    d0,d4
  6617.     moveq    #$18,d1
  6618.     cmp.l    d1,d4
  6619.     blt.b    c58BC
  6620.     moveq    #0,d1
  6621.     move.b    d0,d1
  6622.     lea    -$106(a5),a0
  6623.     move.l    a0,a1
  6624.     adda.w    d1,a1
  6625.     moveq    #0,d1
  6626.     move.b    1(a1),d1
  6627.     move.l    d1,d2
  6628.     asl.l    #8,d2
  6629.     moveq    #0,d1
  6630.     move.b    (a1),d1
  6631.     add.l    d2,d1
  6632.     move.w    d1,$2C(a3)
  6633.     bra.b    c58C2
  6634.  
  6635. c58BC:    move.b    #$FF,-$11D(a5)
  6636. c58C2:    moveq    #$19,d1
  6637.     cmp.l    d1,d4
  6638.     blt.b    c58E4
  6639.     moveq    #0,d1
  6640.     move.b    d0,d1
  6641.     lea    -$106(a5),a0
  6642.     adda.w    d1,a0
  6643.     move.b    2(a0),d0
  6644.     move.b    d0,$36(a3)
  6645.     moveq    #$41,d1
  6646.     cmp.b    d1,d0
  6647.     beq.b    c58E4
  6648.     clr.w    $22(a3)
  6649. c58E4:    move.l    -$122(a5),a0
  6650.     jsr    c20F2(pc)
  6651.     move.l    d0,$30(a3)
  6652.     cmpi.b    #0,-$11D(a5)
  6653.     bls.w    c59D4
  6654.     moveq    #0,d0
  6655.     move.b    -$11C(a5),d0
  6656.     lea    -$11C(a5),a0
  6657.     adda.w    d0,a0
  6658.     move.l    a0,a2
  6659.     bra.b    c592C
  6660.  
  6661. c590A:    moveq    #0,d0
  6662.     move.b    $1C(sp),d0
  6663.     move.l    -$122(a5),a0
  6664.     move.l    a3,a1
  6665.     jsr    c1A18(pc)
  6666.     move.l    a2,a0
  6667.     move.l    -$126(a5),a1
  6668.     bsr.w    c5578
  6669.     moveq    #0,d0
  6670.     move.b    $1C(sp),d0
  6671.     adda.w    d0,a2
  6672. c592C:    moveq    #0,d0
  6673.     move.b    1(a2),d0
  6674.     asl.l    #8,d0
  6675.     moveq    #0,d1
  6676.     move.b    (a2),d1
  6677.     add.l    d0,d1
  6678.     lea    2(a2),a3
  6679.     move.b    d1,$1C(sp)
  6680.     tst.b    d1
  6681.     bne.b    c590A
  6682.     move.l    a3,d0
  6683.     lea    -$11C(a5),a0
  6684.     sub.l    a0,d0
  6685.     sub.l    d7,d0
  6686.     move.l    -$126(a5),a0
  6687.     sub.l    d0,$10(a0)
  6688.     bra.b    c59D4
  6689.  
  6690. c595A:    moveq    #0,d0
  6691.     move.b    -$11B(a5),d0
  6692.     asl.l    #8,d0
  6693.     moveq    #0,d1
  6694.     move.b    -$11C(a5),d1
  6695.     add.l    d0,d1
  6696.     move.l    d1,d7
  6697.     cmpi.l    #$104,d7
  6698.     ble.b    c5982
  6699.     pea    LHHDRHeaderto.MSG(pc)
  6700.     jsr    c2328(pc)
  6701.     addq.w    #4,sp
  6702.     moveq    #1,d6
  6703.     bra.b    c59D4
  6704.  
  6705. c5982:    move.l    d7,d0
  6706.     moveq    #$15,d1
  6707.     sub.l    d1,d0
  6708.     move.l    -$122(a5),a0
  6709.     lea    -$107(a5),a1
  6710.     jsr    c1A18(pc)
  6711.     lea    -$104(a5),a3
  6712.     bra.b    c59A2
  6713.  
  6714. c599A:    moveq    #0,d0
  6715.     move.b    $1C(sp),d0
  6716.     adda.w    d0,a3
  6717. c59A2:    moveq    #0,d0
  6718.     move.b    1(a3),d0
  6719.     asl.l    #8,d0
  6720.     moveq    #0,d1
  6721.     move.b    (a3),d1
  6722.     add.l    d0,d1
  6723.     move.b    d1,$1C(sp)
  6724.     tst.b    d1
  6725.     bne.b    c599A
  6726.     moveq    #0,d0
  6727.     move.b    -$106(a5),d0
  6728.     asl.l    #8,d0
  6729.     moveq    #0,d1
  6730.     move.b    -$107(a5),d1
  6731.     add.l    d0,d1
  6732.     move.l    -$126(a5),a0
  6733.     move.w    d1,$2C(a0)
  6734.     bra.b    c59D4
  6735.  
  6736. c59D2:    moveq    #1,d6
  6737. c59D4:    moveq    #1,d0
  6738.     cmp.l    d0,d6
  6739.     bne.b    c5A10
  6740.     tst.l    d5
  6741.     bne.b    c59E8
  6742.     pea    WARNINGSkippi.MSG(pc)
  6743.     jsr    c2328(pc)
  6744.     addq.w    #4,sp
  6745. c59E8:    move.l    -$126(a5),a2
  6746.     move.l    8(a2),d0
  6747.     addq.l    #4,d0
  6748.     move.l    -$122(a5),a3
  6749.     moveq    #0,d1
  6750.     move.l    a3,a0
  6751.     jsr    c188C(pc)
  6752.     moveq    #1,d5
  6753.     move.l    a3,a0
  6754.     bsr.w    c54D8
  6755.     tst.w    d0
  6756.     beq.w    c5610
  6757.     moveq    #2,d0
  6758.     bra.b    c5A8A
  6759.  
  6760. c5A10:    move.l    -$126(a5),a3
  6761.     moveq    #$2F,d0
  6762.     move.l    $1A(a3),a0
  6763.     bsr.w    c541C
  6764.     tst.l    $854(a4)
  6765.     beq.b    c5A2C
  6766.     move.l    $1A(a3),a0
  6767.     jsr    cA9FC(pc)
  6768. c5A2C:    tst.l    $C4(a4)
  6769.     beq.b    c5A3A
  6770.     move.l    $1A(a3),a0
  6771.     jsr    cAB0A(pc)
  6772. c5A3A:    move.l    $1A(a3),a2
  6773.     move.l    a2,a0
  6774. c5A40:    tst.b    (a0)+
  6775.     bne.b    c5A40
  6776.     subq.l    #1,a0
  6777.     suba.l    a2,a0
  6778.     move.l    a0,d0
  6779.     move.l    d0,d7
  6780.     subq.l    #1,d7
  6781.     bra.b    c5A80
  6782.  
  6783. c5A50:    moveq    #$2F,d0
  6784.     cmp.b    (a3),d0
  6785.     bne.b    c5A7E
  6786.     lea    1(a3),a0
  6787.     jsr    cA8C4(pc)
  6788.     move.l    -$126(a5),a0
  6789.     move.l    d0,$1A(a0)
  6790.     sf    (a3)
  6791.     move.l    a2,a0
  6792.     jsr    cA8C4(pc)
  6793.     move.l    -$126(a5),a0
  6794.     move.l    d0,$1E(a0)
  6795.     move.l    a2,a0
  6796.     jsr    cA894(pc)
  6797.     bra.b    c5A88
  6798.  
  6799. c5A7E:    subq.l    #1,d7
  6800. c5A80:    move.l    a2,a3
  6801.     adda.l    d7,a3
  6802.     tst.b    (a3)
  6803.     bne.b    c5A50
  6804. c5A88:    move.l    d5,d0
  6805. c5A8A:    movem.l    (sp)+,d2/d4-d7/a2/a3
  6806.     unlk    a5
  6807.     rts
  6808.  
  6809. c5A92:    link.w    a5,#-$118
  6810.     movem.l    d2/d3/d6/d7/a2/a3/a6,-(sp)
  6811.     move.l    a0,a3
  6812.     move.l    d0,d7
  6813.     move.l    a1,-$110(a5)
  6814.     move.w    $34(a3),d0
  6815.     muls.w    #6,d0
  6816.     lea    $218(a4),a0
  6817.     adda.l    d0,a0
  6818.     moveq    #4,d0
  6819.     lea    -$106(a5),a1
  6820. c5AB6:    move.b    (a0)+,(a1)+
  6821.     dbra    d0,c5AB6
  6822.     move.l    $10(a3),d0
  6823.     move.b    d0,-$101(a5)
  6824.     move.l    d0,d1
  6825.     lsr.l    #8,d1
  6826.     move.b    d1,-$100(a5)
  6827.     move.l    d0,d1
  6828.     clr.w    d1
  6829.     swap    d1
  6830.     move.b    d1,-$FF(a5)
  6831.     clr.w    d0
  6832.     swap    d0
  6833.     lsr.l    #8,d0
  6834.     move.b    d0,-$FE(a5)
  6835.     move.l    12(a3),d0
  6836.     move.b    d0,-$FD(a5)
  6837.     move.l    d0,d1
  6838.     lsr.l    #8,d1
  6839.     move.b    d1,-$FC(a5)
  6840.     move.l    d0,d1
  6841.     clr.w    d1
  6842.     swap    d1
  6843.     move.b    d1,-$FB(a5)
  6844.     clr.w    d0
  6845.     swap    d0
  6846.     lsr.l    #8,d0
  6847.     move.b    d0,-$FA(a5)
  6848.     tst.l    $D0(a4)
  6849.     beq.b    c5B14
  6850.     move.w    $22(a3),d0
  6851.     move.b    d0,-$F5(a5)
  6852.     bra.b    c5B1A
  6853.  
  6854. c5B14:    move.b    #$20,-$F5(a5)
  6855. c5B1A:    move.l    d7,d0
  6856.     move.b    d0,-$F4(a5)
  6857.     move.l    a3,a0
  6858.     lea    -$F2(a5),a1
  6859.     jsr    c5282(pc)
  6860.     lea    -$F2(a5),a0
  6861.     move.l    a0,a1
  6862. c5B30:    tst.b    (a1)+
  6863.     bne.b    c5B30
  6864.     subq.l    #1,a1
  6865.     suba.l    a0,a1
  6866.     move.l    a1,d6
  6867.     move.l    $28(a3),d0
  6868.     beq.b    c5B56
  6869.     tst.l    $84C(a4)
  6870.     bne.b    c5B56
  6871.     move.l    d0,a0
  6872. c5B48:    tst.b    (a0)+
  6873.     bne.b    c5B48
  6874.     subq.l    #1,a0
  6875.     suba.l    d0,a0
  6876.     move.l    a0,d0
  6877.     addq.l    #1,d0
  6878.     add.l    d0,d6
  6879. c5B56:    lea    -$F3(a5),a2
  6880.     moveq    #2,d0
  6881.     cmp.l    d0,d7
  6882.     beq.w    c5BF0
  6883.     moveq    #$40,d0
  6884.     add.l    d0,d0
  6885.     cmp.l    d0,d6
  6886.     ble.b    c5B74
  6887.     lea    -$F2(a5),a2
  6888.     sf    -$F3(a5)
  6889.     bra.b    c5BF0
  6890.  
  6891. c5B74:    move.l    d6,d0
  6892.     move.b    d0,-$F3(a5)
  6893.     move.b    -$F2(a5),d0
  6894.     moveq    #$2F,d1
  6895.     cmp.b    d1,d0
  6896.     bne.b    c5B92
  6897.     pea    -$F2(a5)
  6898.     pea    Warningsisani.MSG(pc)
  6899.     jsr    c2328(pc)
  6900.     addq.w    #8,sp
  6901. c5B92:    tst.l    d7
  6902.     bne.b    c5BA0
  6903.     moveq    #$5C,d0
  6904.     lea    -$F2(a5),a0
  6905.     bsr.w    c541C
  6906. c5BA0:    lea    -$F2(a5),a0
  6907.     adda.l    d6,a0
  6908.     move.l    a0,a2
  6909.     move.l    $28(a3),d0
  6910.     beq.b    c5BCC
  6911.     tst.l    $84C(a4)
  6912.     bne.b    c5BCC
  6913.     move.l    d0,a0
  6914. c5BB6:    tst.b    (a0)+
  6915.     bne.b    c5BB6
  6916.     subq.l    #1,a0
  6917.     suba.l    d0,a0
  6918.     move.l    a0,d0
  6919.     move.l    a2,a1
  6920.     suba.l    d0,a1
  6921.     move.l    $28(a3),a0
  6922. c5BC8:    move.b    (a0)+,(a1)+
  6923.     bne.b    c5BC8
  6924. c5BCC:    move.l    $24(a3),d0
  6925.     move.b    d0,-$F9(a5)
  6926.     move.l    d0,d1
  6927.     lsr.l    #8,d1
  6928.     move.b    d1,-$F8(a5)
  6929.     move.l    d0,d1
  6930.     clr.w    d1
  6931.     swap    d1
  6932.     move.b    d1,-$F7(a5)
  6933.     clr.w    d0
  6934.     swap    d0
  6935.     lsr.l    #8,d0
  6936.     move.b    d0,-$F6(a5)
  6937. c5BF0:    moveq    #0,d0
  6938.     move.w    $2C(a3),d0
  6939.     move.b    d0,(a2)
  6940.     lsr.l    #8,d0
  6941.     move.b    d0,1(a2)
  6942.     addq.l    #2,a2
  6943.     tst.l    d7
  6944.     bne.b    c5C2C
  6945.     move.l    a2,d0
  6946.     move.l    d0,d1
  6947.     lea    -$106(a5),a0
  6948.     sub.l    a0,d1
  6949.     move.b    d1,-$108(a5)
  6950.     move.l    a2,d0
  6951.     lea    -$108(a5),a0
  6952.     sub.l    a0,d0
  6953.     move.l    d0,d6
  6954.     lea    -$108(a5),a0
  6955.     bsr.w    c5550
  6956.     move.b    d0,-$107(a5)
  6957.     bra.w    c5D9E
  6958.  
  6959. c5C2C:    move.b    #$41,(a2)+
  6960.     move.l    a2,d0
  6961.     lea    -$108(a5),a0
  6962.     sub.l    a0,d0
  6963.     move.b    d0,-$108(a5)
  6964.     moveq    #2,d0
  6965.     cmp.l    d0,d7
  6966.     beq.b    c5C4A
  6967.     moveq    #$40,d0
  6968.     add.l    d0,d0
  6969.     cmp.l    d0,d6
  6970.     ble.b    c5C86
  6971. c5C4A:    move.l    $1A(a3),a0
  6972. c5C4E:    tst.b    (a0)+
  6973.     bne.b    c5C4E
  6974.     subq.l    #1,a0
  6975.     suba.l    $1A(a3),a0
  6976.     move.l    a0,d0
  6977.     move.l    d0,d1
  6978.     addq.l    #3,d1
  6979.     move.b    d1,(a2)
  6980.     lsr.l    #8,d1
  6981.     move.b    d1,1(a2)
  6982.     lea    3(a2),a1
  6983.     move.b    #1,2(a2)
  6984.     move.l    d0,d1
  6985.     move.l    $1A(a3),a6
  6986.     bra.b    c5C7A
  6987.  
  6988. c5C78:    move.b    (a6)+,(a1)+
  6989. c5C7A:    subq.l    #1,d1
  6990.     bcc.b    c5C78
  6991.     move.l    a2,a1
  6992.     adda.l    d0,a1
  6993.     lea    3(a1),a2
  6994. c5C86:    move.l    $1E(a3),d0
  6995.     beq.b    c5CEA
  6996.     move.l    d0,a0
  6997. c5C8E:    tst.b    (a0)+
  6998.     bne.b    c5C8E
  6999.     subq.l    #1,a0
  7000.     suba.l    d0,a0
  7001.     move.l    a0,d1
  7002.     move.l    d1,d2
  7003.     addq.l    #3,d2
  7004.     move.b    d2,(a2)
  7005.     lsr.l    #8,d2
  7006.     move.b    d2,1(a2)
  7007.     lea    3(a2),a1
  7008.     move.b    #2,2(a2)
  7009.     move.l    d1,$1C(sp)
  7010.     move.l    a1,$20(sp)
  7011.     moveq    #0,d0
  7012.     not.b    d0
  7013.     move.l    $1E(a3),a0
  7014.     bsr.w    c541C
  7015.     move.l    $1C(sp),d0
  7016.     move.l    $1E(a3),a0
  7017.     move.l    $20(sp),a1
  7018.     bra.b    c5CD2
  7019.  
  7020. c5CD0:    move.b    (a0)+,(a1)+
  7021. c5CD2:    subq.l    #1,d0
  7022.     bcc.b    c5CD0
  7023.     move.l    a2,a0
  7024.     adda.l    $1C(sp),a0
  7025.     lea    3(a0),a2
  7026.     moveq    #$2F,d0
  7027.     move.l    $1E(a3),a0
  7028.     bsr.w    c541C
  7029. c5CEA:    move.w    $22(a3),d0
  7030.     beq.b    c5D12
  7031.     move.b    #5,(a2)
  7032.     moveq    #0,d0
  7033.     move.b    d0,1(a2)
  7034.     move.b    #$40,2(a2)
  7035.     move.w    $22(a3),d1
  7036.     ext.l    d1
  7037.     move.b    d1,3(a2)
  7038.     lsr.l    #8,d1
  7039.     move.b    d1,4(a2)
  7040.     addq.l    #5,a2
  7041. c5D12:    moveq    #0,d0
  7042.     move.b    -$108(a5),d0
  7043.     lea    -$108(a5),a0
  7044.     move.l    a0,a1
  7045.     adda.w    d0,a1
  7046.     cmpa.l    a2,a1
  7047.     beq.b    c5D52
  7048.     move.l    a2,a1
  7049.     moveq    #0,d0
  7050.     move.b    d0,2(a1)
  7051.     lea    3(a1),a6
  7052.     move.b    d0,(a6)
  7053.     move.b    d0,1(a6)
  7054.     addq.l    #6,a2
  7055.     move.b    d0,5(a1)
  7056.     move.l    a2,d1
  7057.     move.l    d1,d2
  7058.     move.l    a1,d3
  7059.     sub.l    d3,d2
  7060.     move.b    d2,(a1)
  7061.     move.l    d2,d1
  7062.     lsr.l    #8,d1
  7063.     move.b    d1,1(a1)
  7064.     move.l    a6,-$10C(a5)
  7065. c5D52:    moveq    #0,d0
  7066.     move.b    d0,(a2)
  7067.     move.b    d0,1(a2)
  7068.     addq.l    #2,a2
  7069.     move.l    a2,d1
  7070.     sub.l    a0,d1
  7071.     move.l    d1,d6
  7072.     moveq    #2,d1
  7073.     cmp.l    d1,d7
  7074.     bne.b    c5D84
  7075.     move.l    d6,d1
  7076.     moveq    #0,d2
  7077.     not.b    d2
  7078.     and.l    d2,d1
  7079.     bne.b    c5D76
  7080.     move.b    d0,(a2)
  7081.     addq.l    #1,d6
  7082. c5D76:    move.l    d6,d0
  7083.     move.b    d0,-$108(a5)
  7084.     move.l    d6,d0
  7085.     lsr.l    #8,d0
  7086.     move.b    d0,-$107(a5)
  7087. c5D84:    moveq    #0,d0
  7088.     move.l    d6,d1
  7089.     lea    -$108(a5),a0
  7090.     jsr    c6FBE(pc)
  7091.     ext.l    d0
  7092.     move.l    -$10C(a5),a0
  7093.     move.b    d0,(a0)
  7094.     lsr.l    #8,d0
  7095.     move.b    d0,1(a0)
  7096. c5D9E:    move.l    d6,d0
  7097.     move.l    -$110(a5),a0
  7098.     lea    -$108(a5),a1
  7099.     jsr    c1AC6(pc)
  7100.     tst.l    d0
  7101.     bpl.b    c5DB4
  7102.     moveq    #-1,d0
  7103.     bra.b    c5DB6
  7104.  
  7105. c5DB4:    moveq    #0,d0
  7106. c5DB6:    movem.l    (sp)+,d2/d3/d6/d7/a2/a3/a6
  7107.     unlk    a5
  7108.     rts
  7109.  
  7110.     dc.w    0
  7111.  
  7112. c5DC0:    movem.l    a2/a3,-(sp)
  7113.     move.l    a0,a3
  7114.     move.l    a3,a0
  7115. c5DC8:    tst.b    (a0)+
  7116.     bne.b    c5DC8
  7117.     subq.l    #1,a0
  7118.     suba.l    a3,a0
  7119.     move.l    a0,d0
  7120.     subq.l    #3,d0
  7121.     adda.l    d0,a3
  7122.     moveq    #$2E,d0
  7123.     cmp.b    -1(a3),d0
  7124.     beq.b    c5DE2
  7125.     moveq    #0,d0
  7126.     bra.b    c5E00
  7127.  
  7128. c5DE2:    lea    $254(a4),a2
  7129.     bra.b    c5DFA
  7130.  
  7131. c5DE8:    move.l    a3,a0
  7132.     move.l    a2,a1
  7133.     jsr    cA9E2(pc)
  7134.     tst.l    d0
  7135.     bne.b    c5DF8
  7136.     moveq    #1,d0
  7137.     bra.b    c5E00
  7138.  
  7139. c5DF8:    addq.l    #4,a2
  7140. c5DFA:    tst.b    (a2)
  7141.     bne.b    c5DE8
  7142.     moveq    #0,d0
  7143. c5E00:    movem.l    (sp)+,a2/a3
  7144.     rts
  7145.  
  7146. LhAUnabletoop.MSG2:    dc.b    '*** LhA: Unable to open file `%s'' for readi'
  7147.     dc.b    'ng.',$A,0
  7148. Freezing.MSG:    dc.b    'Freezing',0,0
  7149. LhAIOErrorocc.MSG:    dc.b    13
  7150.     dc.b    '*** LhA: I/O Error occurred while compressin'
  7151.     dc.b    'g.'
  7152.     dc.b    $1B
  7153.     dc.b    '[K',$A,0
  7154. LhACouldnotop.MSG:    dc.b    13
  7155.     dc.b    '*** LhA: Could not open file!'
  7156.     dc.b    $1B
  7157.     dc.b    '[K',$A,0
  7158.     dc.b    0
  7159. Copytoarchive.MSG:    dc.b    13
  7160.     dc.b    '*** Copy to archive failed - file not added'
  7161.     dc.b    $1B
  7162.     dc.b    '[K',$A,0
  7163.     dc.b    0
  7164. LhACouldnotlo.MSG:    dc.b    '*** LhA: Could not lock file!',$A
  7165.     dc.b    $1B
  7166.     dc.b    '[K',$A,0
  7167.     dc.b    0
  7168.  
  7169. c5EEE:    link.w    a5,#-$50
  7170.     movem.l    d2/d4-d7/a2/a3/a6,-(sp)
  7171.     move.l    a0,a3
  7172.     move.l    d0,d7
  7173.     move.l    a1,-$4C(a5)
  7174.     moveq    #0,d5
  7175.     moveq    #0,d6
  7176.     move.l    -$4C(a5),a0
  7177.     jsr    c20F2(pc)
  7178.     move.l    d0,-$40(a5)
  7179.     move.l    8(a3),d0
  7180.     move.l    d0,-$38(a5)
  7181.     move.l    8(a3),-$3C(a5)
  7182.     move.l    $10(a3),a0
  7183.     move.l    $424(a4),a6
  7184.     jsr    -$276(a6)
  7185.     move.l    d0,-$2E(a5)
  7186.     move.l    $10(a3),a0
  7187.     cmpa.l    d0,a0
  7188.     beq.b    c5F90
  7189.     move.l    d0,a2
  7190.     subq.l    #1,a2
  7191.     move.b    (a2),d0
  7192.     move.b    d0,$20(sp)
  7193.     moveq    #$3A,d1
  7194.     cmp.b    d1,d0
  7195.     beq.b    c5F88
  7196.     sf    (a2)
  7197.     moveq    #0,d4
  7198.     bra.b    c5F4C
  7199.  
  7200. c5F4A:    addq.l    #1,d4
  7201. c5F4C:    move.l    $10(a3),a0
  7202.     adda.l    d4,a0
  7203.     move.l    a0,a2
  7204.     move.b    (a2),d0
  7205.     beq.b    c5F5E
  7206.     moveq    #$3A,d1
  7207.     cmp.b    d1,d0
  7208.     bne.b    c5F4A
  7209. c5F5E:    tst.b    (a2)
  7210.     bne.b    c5F70
  7211.     move.l    $10(a3),a0
  7212.     jsr    cA8C4(pc)
  7213.     move.l    d0,-$2A(a5)
  7214.     bra.b    c5F7C
  7215.  
  7216. c5F70:    lea    1(a2),a0
  7217.     jsr    cA8C4(pc)
  7218.     move.l    d0,-$2A(a5)
  7219. c5F7C:    move.l    -$2E(a5),a0
  7220.     move.b    $20(sp),-1(a0)
  7221.     bra.b    c5F94
  7222.  
  7223. c5F88:    suba.l    a0,a0
  7224.     move.l    a0,-$2A(a5)
  7225.     bra.b    c5F94
  7226.  
  7227. c5F90:    clr.l    -$2A(a5)
  7228. c5F94:    move.w    $14(a3),-$26(a5)
  7229.     move.l    $16(a3),a0
  7230. c5F9E:    tst.b    (a0)+
  7231.     bne.b    c5F9E
  7232.     subq.l    #1,a0
  7233.     suba.l    $16(a3),a0
  7234.     move.l    a0,d0
  7235.     beq.b    c5FB2
  7236.     move.l    $16(a3),a0
  7237.     bra.b    c5FB4
  7238.  
  7239. c5FB2:    suba.l    a0,a0
  7240. c5FB4:    move.l    a0,-$20(a5)
  7241.     move.l    $1A(a3),-$24(a5)
  7242.     tst.l    $860(a4)
  7243.     bne.w    c60AA
  7244.     move.l    -$2E(a5),a0
  7245.     bsr.w    c5DC0
  7246.     tst.l    d0
  7247.     beq.b    c5FDA
  7248.     tst.l    $838(a4)
  7249.     beq.w    c60AA
  7250. c5FDA:    move.l    12(a3),a0
  7251.     lea    $490(a4),a1
  7252. c5FE2:    move.b    (a0)+,(a1)+
  7253.     bne.b    c5FE2
  7254.     lea    $490(a4),a0
  7255.     move.l    $10(a3),a1
  7256.     move.l    $424(a4),a6
  7257.     jsr    -$270(a6)
  7258.     moveq    #$72,d0
  7259.     move.l    $C0(a4),d1
  7260.     lea    $490(a4),a0
  7261.     jsr    c1564(pc)
  7262.     move.l    d0,a2
  7263.     move.l    a2,d0
  7264.     bne.b    c601C
  7265.     pea    $490(a4)
  7266.     pea    LhAUnabletoop.MSG2(pc)
  7267.     jsr    c2328(pc)
  7268.     moveq    #-1,d0
  7269.     bra.w    c6230
  7270.  
  7271. c601C:    move.l    -$2E(a5),-(sp)
  7272.     lea    -$48(a5),a0
  7273.     lea    Freezing.MSG(pc),a1
  7274.     jsr    c9B10(pc)
  7275.     move.l    a2,a0
  7276.     move.l    a0,$24(sp)
  7277.     move.l    8(a3),d0
  7278.     move.l    $874(a4),d1
  7279.     bsr.w    c623A
  7280.     move.l    d0,a2
  7281.     move.l    $24(sp),a0
  7282.     jsr    c1732(pc)
  7283.     addq.w    #4,sp
  7284.     move.l    a2,d0
  7285.     beq.b    c60AA
  7286.     move.l    a2,a0
  7287.     jsr    c20F2(pc)
  7288.     move.l    d0,-$38(a5)
  7289.     move.w    $A40(a4),d0
  7290.     move.w    d0,-$1C(a5)
  7291.     move.l    $A42(a4),d0
  7292.     move.w    d0,-$14(a5)
  7293.     lea    -$48(a5),a0
  7294.     jsr    c9C9E(pc)
  7295.     moveq    #0,d0
  7296.     move.l    d0,d1
  7297.     move.l    a2,a0
  7298.     jsr    c188C(pc)
  7299.     moveq    #0,d0
  7300.     lea    -$48(a5),a0
  7301.     move.l    -$4C(a5),a1
  7302.     jsr    c5A92(pc)
  7303.     move.l    d0,$20(sp)
  7304.     move.l    -$38(a5),d0
  7305.     move.l    a2,a0
  7306.     move.l    -$4C(a5),a1
  7307.     jsr    c1C38(pc)
  7308.     move.l    $20(sp),d1
  7309.     or.l    d0,d1
  7310.     move.l    d1,d6
  7311.     moveq    #1,d5
  7312.     move.l    a2,a0
  7313.     jsr    c1732(pc)
  7314. c60AA:    move.l    $A42(a4),d0
  7315.     tst.l    d0
  7316.     bpl.b    c60C0
  7317.     pea    LhAIOErrorocc.MSG(pc)
  7318.     jsr    c2328(pc)
  7319.     moveq    #-1,d0
  7320.     bra.w    c6230
  7321.  
  7322. c60C0:    tst.l    d5
  7323.     bne.w    c6178
  7324.     clr.w    -$14(a5)
  7325.     lea    -$48(a5),a0
  7326.     jsr    c9C9E(pc)
  7327.     move.l    12(a3),a0
  7328.     lea    $490(a4),a1
  7329. c60DA:    move.b    (a0)+,(a1)+
  7330.     bne.b    c60DA
  7331.     lea    $490(a4),a0
  7332.     move.l    $10(a3),a1
  7333.     move.l    $424(a4),a6
  7334.     jsr    -$270(a6)
  7335.     move.l    #$3ED,d0
  7336.     lea    $490(a4),a0
  7337.     jsr    c1276(pc)
  7338.     move.l    d0,d5
  7339.     tst.l    d5
  7340.     bne.b    c6110
  7341.     pea    LhACouldnotop.MSG(pc)
  7342.     jsr    c2328(pc)
  7343.     moveq    #-1,d0
  7344.     bra.w    c6230
  7345.  
  7346. c6110:    move.l    -$4C(a5),a2
  7347.     moveq    #0,d0
  7348.     lea    -$48(a5),a0
  7349.     move.l    a2,a1
  7350.     jsr    c5A92(pc)
  7351.     move.l    d0,d6
  7352.     tst.l    d6
  7353.     bne.b    c6178
  7354.     clr.w    $A40(a4)
  7355.     move.l    d5,d0
  7356.     move.l    8(a3),d1
  7357.     move.l    a2,a0
  7358.     lea    $A40(a4),a1
  7359.     jsr    c1EB8(pc)
  7360.     move.l    d0,d6
  7361.     move.l    d5,d0
  7362.     jsr    c12BC(pc)
  7363.     move.w    $A40(a4),d0
  7364.     move.w    d0,-$1C(a5)
  7365.     move.l    a2,a0
  7366.     jsr    c20F2(pc)
  7367.     move.l    d0,$20(sp)
  7368.     move.l    -$40(a5),d0
  7369.     moveq    #0,d1
  7370.     move.l    a2,a0
  7371.     jsr    c188C(pc)
  7372.     moveq    #0,d0
  7373.     lea    -$48(a5),a0
  7374.     move.l    a2,a1
  7375.     jsr    c5A92(pc)
  7376.     move.l    $20(sp),d0
  7377.     moveq    #0,d1
  7378.     move.l    a2,a0
  7379.     jsr    c188C(pc)
  7380. c6178:    tst.l    d6
  7381.     bpl.b    c61A2
  7382.     move.l    -$40(a5),d0
  7383.     moveq    #0,d1
  7384.     move.l    -$4C(a5),a0
  7385.     jsr    c188C(pc)
  7386.     moveq    #0,d0
  7387.     move.l    -$4C(a5),a0
  7388.     jsr    c1FB4(pc)
  7389.     pea    Copytoarchive.MSG(pc)
  7390.     jsr    c2328(pc)
  7391.     moveq    #-1,d0
  7392.     bra.w    c6230
  7393.  
  7394. c61A2:    move.l    12(a3),a0
  7395.     lea    $490(a4),a1
  7396. c61AA:    move.b    (a0)+,(a1)+
  7397.     bne.b    c61AA
  7398.     lea    $490(a4),a0
  7399.     move.l    $10(a3),a1
  7400.     move.l    $424(a4),a6
  7401.     jsr    -$270(a6)
  7402.     tst.l    d7
  7403.     beq.b    c61D0
  7404.     lea    $490(a4),a0
  7405.     move.l    a0,d1
  7406.     move.l    $420(a4),a6
  7407.     jsr    -$48(a6)
  7408. c61D0:    tst.l    d7
  7409.     bne.b    c622E
  7410.     tst.l    $D8(a4)
  7411.     beq.b    c622E
  7412.     move.l    #$104,d0
  7413.     jsr    cA7AA(pc)
  7414.     move.l    d0,a2
  7415.     moveq    #-2,d0
  7416.     lea    $490(a4),a0
  7417.     jsr    c12FC(pc)
  7418.     move.l    d0,d6
  7419.     tst.l    d6
  7420.     bne.b    c6200
  7421.     pea    LhACouldnotlo.MSG(pc)
  7422.     jsr    c2328(pc)
  7423.     addq.w    #4,sp
  7424. c6200:    move.l    d6,d1
  7425.     move.l    a2,d2
  7426.     move.l    $420(a4),a6
  7427.     jsr    -$66(a6)
  7428.     move.l    d6,d0
  7429.     jsr    c137C(pc)
  7430.     move.l    $74(a2),d0
  7431.     ori.w    #$10,d0
  7432.     move.l    d0,d2
  7433.     move.l    $10(a3),d1
  7434.     move.l    $420(a4),a6
  7435.     jsr    -$BA(a6)
  7436.     move.l    a2,a0
  7437.     jsr    cA894(pc)
  7438. c622E:    moveq    #0,d0
  7439. c6230:    movem.l    -$70(a5),d2/d4-d7/a2/a3/a6
  7440.     unlk    a5
  7441.     rts
  7442.  
  7443. c623A:    movem.l    d5-d7/a2/a3,-(sp)
  7444.     move.l    a0,a3
  7445.     move.l    d0,d7
  7446.     move.l    d1,d6
  7447.     moveq    #$10,d0
  7448.     cmp.l    d0,d7
  7449.     bge.b    c6250
  7450.     moveq    #0,d0
  7451.     bra.w    c6380
  7452.  
  7453. c6250:    tst.l    $A46(a4)
  7454.     bne.b    c629A
  7455.     move.l    #$729C,d0
  7456.     moveq    #1,d1
  7457.     jsr    cA81C(pc)
  7458.     move.l    d0,$A46(a4)
  7459.     tst.l    d0
  7460.     beq.w    c6380
  7461.     moveq    #1,d1
  7462.     cmp.l    d1,d6
  7463.     bne.b    c627C
  7464.     move.l    d0,a0
  7465.     jsr    c65C6(pc)
  7466.     move.l    d0,d5
  7467.     bra.b    c6284
  7468.  
  7469. c627C:    move.l    d0,a0
  7470.     jsr    c6680(pc)
  7471.     move.l    d0,d5
  7472. c6284:    tst.l    d5
  7473.     bne.b    c629A
  7474.     move.l    $A46(a4),a0
  7475.     jsr    cA894(pc)
  7476.     clr.l    $A46(a4)
  7477.     moveq    #0,d0
  7478.     bra.w    c6380
  7479.  
  7480. c629A:    jsr    c13C0(pc)
  7481.     move.l    d0,a2
  7482.     move.l    a2,d0
  7483.     bne.b    c62AA
  7484.     moveq    #0,d0
  7485.     bra.w    c6380
  7486.  
  7487. c62AA:    moveq    #0,d0
  7488.     move.l    $A46(a4),a0
  7489.     move.l    d0,$34(a0)
  7490.     move.l    d7,$38(a0)
  7491.     move.l    d0,$3C(a0)
  7492.     move.l    d0,$18(a0)
  7493.     move.l    $E8(a4),d0
  7494.     move.l    d0,$20(a0)
  7495.     move.l    d0,$1C(a0)
  7496.     move.l    a3,$44(a0)
  7497.     move.l    a2,$48(a0)
  7498.     move.l    4(a2),$28(a0)
  7499.     moveq    #0,d0
  7500.     move.w    d0,$4E(a0)
  7501.     move.w    d0,$50(a0)
  7502.     move.w    #1,$5A(a0)
  7503.     moveq    #1,d0
  7504.     cmp.l    d0,d6
  7505.     bne.b    c630E
  7506.     jsr    c6628(pc)
  7507.     move.l    $A46(a4),a0
  7508.     jsr    c82D4(pc)
  7509.     move.l    d0,d6
  7510.     move.l    $A46(a4),a0
  7511.     jsr    c6672(pc)
  7512.     moveq    #1,d0
  7513.     move.l    d0,$A42(a4)
  7514.     bra.b    c632A
  7515.  
  7516. c630E:    jsr    c6750(pc)
  7517.     move.l    $A46(a4),a0
  7518.     jsr    c82D4(pc)
  7519.     move.l    d0,d6
  7520.     move.l    $A46(a4),a0
  7521.     jsr    c679A(pc)
  7522.     moveq    #5,d0
  7523.     move.l    d0,$A42(a4)
  7524. c632A:    move.l    $A46(a4),a0
  7525.     move.w    $4E(a0),d0
  7526.     move.w    d0,$A40(a4)
  7527.     tst.l    $C8(a4)
  7528.     bne.b    c635E
  7529.     cmpi.l    #$8000,d7
  7530.     ble.b    c635E
  7531.     move.l    d7,d0
  7532.     move.l    $34(a0),d1
  7533.     jsr    c2246(pc)
  7534.     moveq    #$1E,d1
  7535.     cmp.l    d1,d0
  7536.     bge.b    c635E
  7537.     moveq    #1,d0
  7538.     move.l    $A46(a4),a0
  7539.     move.w    d0,$50(a0)
  7540. c635E:    tst.l    d6
  7541.     bne.b    c636C
  7542.     move.l    $A46(a4),a0
  7543.     tst.w    $50(a0)
  7544.     beq.b    c6374
  7545. c636C:    move.l    a2,a0
  7546.     jsr    c1732(pc)
  7547.     suba.l    a2,a2
  7548. c6374:    tst.l    d6
  7549.     beq.b    c637E
  7550.     moveq    #-1,d0
  7551.     move.l    d0,$A42(a4)
  7552. c637E:    move.l    a2,d0
  7553. c6380:    movem.l    (sp)+,d5-d7/a2/a3
  7554.     rts
  7555.  
  7556. c6386:    move.l    $A46(a4),a0
  7557.     jsr    c8508
  7558.     rts
  7559.  
  7560.     dc.w    0
  7561.  
  7562. c6394:    pea    c6434(pc)
  7563.     bra.b    c639E
  7564.  
  7565. c639A:    pea    c64BE(pc)
  7566. c639E:    lea    c63B4(pc),a1
  7567.     move.l    a1,(a0)+
  7568.     move.l    (sp)+,(a0)+
  7569.     lea    c648E(pc),a1
  7570.     move.l    a1,(a0)+
  7571.     lea    c6FBE(pc),a1
  7572.     move.l    a1,(a0)+
  7573.     rts
  7574.  
  7575. c63B4:    movem.l    d7/a3,-(sp)
  7576.     move.l    12(sp),a3
  7577.     move.l    $34(a3),d0
  7578.     sub.l    $3C(a3),d0
  7579.     move.l    d0,d7
  7580.     move.l    $40(a3),d0
  7581.     cmp.l    d0,d7
  7582.     bgt.b    c63D0
  7583.     move.l    d7,d0
  7584. c63D0:    move.l    d0,$2C(a3)
  7585.     tst.l    d0
  7586.     bne.b    c63DC
  7587.     addq.l    #1,$294(a4)
  7588. c63DC:    cmpi.l    #5,$294(a4)
  7589.     ble.b    c63EA
  7590.     moveq    #-2,d0
  7591.     bra.b    c642E
  7592.  
  7593. c63EA:    move.l    $2C(a3),d0
  7594.     beq.b    c642E
  7595.     clr.l    $294(a4)
  7596.     move.l    $2C(a3),d0
  7597.     move.l    $44(a3),a0
  7598.     move.l    $24(a3),a1
  7599.     jsr    c1A18(pc)
  7600.     move.l    $2C(a3),d1
  7601.     cmp.l    d1,d0
  7602.     beq.b    c6410
  7603.     moveq    #-1,d0
  7604.     bra.b    c642E
  7605.  
  7606. c6410:    add.l    d1,$3C(a3)
  7607.     move.l    $3C(a3),d0
  7608.     cmp.l    $34(a3),d0
  7609.     bne.b    c642A
  7610.     move.l    $2C(a3),d0
  7611.     move.l    $24(a3),a0
  7612.     adda.l    d0,a0
  7613.     sf    (a0)
  7614. c642A:    move.l    $2C(a3),d0
  7615. c642E:    movem.l    (sp)+,d7/a3
  7616.     rts
  7617.  
  7618. c6434:    movem.l    d2/d3/a3/a6,-(sp)
  7619.     move.l    $14(sp),a3
  7620.     moveq    #-1,d0
  7621.     cmp.w    $4C(a3),d0
  7622.     bne.b    c6456
  7623.     move.l    $28(a3),a0
  7624.     adda.w    #$1000,a0
  7625.     move.l    $30(a3),d0
  7626.     jsr    c24DA(pc)
  7627.     bra.b    c6484
  7628.  
  7629. c6456:    move.l    $48(a3),d0
  7630.     beq.b    c6484
  7631.     move.l    $28(a3),a0
  7632.     adda.w    #$1000,a0
  7633.     move.l    d0,d1
  7634.     move.l    a0,d2
  7635.     move.l    $30(a3),d3
  7636.     move.l    $420(a4),a6
  7637.     jsr    -$30(a6)
  7638.     tst.l    d0
  7639.     bpl.b    c6484
  7640.     jsr    -$84(a6)
  7641.     move.l    d0,$A04(a4)
  7642.     moveq    #-1,d0
  7643.     bra.b    c6488
  7644.  
  7645. c6484:    move.l    $40(a3),d0
  7646. c6488:    movem.l    (sp)+,d2/d3/a3/a6
  7647.     rts
  7648.  
  7649. c648E:    link.w    a5,#0
  7650.     tst.l    $86C(a4)
  7651.     bne.b    c649E
  7652.     tst.l    $864(a4)
  7653.     beq.b    c64A2
  7654. c649E:    moveq    #0,d0
  7655.     bra.b    c64BA
  7656.  
  7657. c64A2:    move.l    8(a5),a0
  7658.     adda.w    #$4C,a0
  7659.     move.l    8(a5),a1
  7660.     move.l    $18(a1),d0
  7661.     move.l    $38(a1),d1
  7662.     jsr    c9D22(pc)
  7663. c64BA:    unlk    a5
  7664.     rts
  7665.  
  7666. c64BE:    movem.l    d2/d3/a3/a6,-(sp)
  7667.     move.l    $14(sp),a3
  7668.     moveq    #-1,d0
  7669.     cmp.w    $4C(a3),d0
  7670.     bne.b    c64E0
  7671.     move.l    $28(a3),a0
  7672.     adda.w    #$2000,a0
  7673.     move.l    $30(a3),d0
  7674.     jsr    c24DA(pc)
  7675.     bra.b    c650E
  7676.  
  7677. c64E0:    move.l    $48(a3),d0
  7678.     beq.b    c650E
  7679.     move.l    $28(a3),a0
  7680.     adda.w    #$2000,a0
  7681.     move.l    d0,d1
  7682.     move.l    a0,d2
  7683.     move.l    $30(a3),d3
  7684.     move.l    $420(a4),a6
  7685.     jsr    -$30(a6)
  7686.     tst.l    d0
  7687.     bpl.b    c650E
  7688.     jsr    -$84(a6)
  7689.     move.l    d0,$A04(a4)
  7690.     moveq    #-1,d0
  7691.     bra.b    c6512
  7692.  
  7693. c650E:    move.l    $40(a3),d0
  7694. c6512:    movem.l    (sp)+,d2/d3/a3/a6
  7695.     rts
  7696.  
  7697. c6518:    link.w    a5,#-4
  7698.     movem.l    d7/a2/a3,-(sp)
  7699.     move.l    a0,a3
  7700.     move.l    d0,d7
  7701.     move.l    a1,a2
  7702.     move.l    d7,d0
  7703.     move.l    a2,a0
  7704.     move.l    a3,a1
  7705.     jsr    c1A18(pc)
  7706.     move.w    $A4C(a4),d1
  7707.     ext.l    d1
  7708.     move.l    d0,12(sp)
  7709.     move.l    a3,a0
  7710.     exg    d0,d1
  7711.     jsr    c6FBE(pc)
  7712.     move.w    d0,$A4C(a4)
  7713.     move.l    12(sp),d0
  7714.     moveq    #-1,d1
  7715.     cmp.l    d1,d0
  7716.     bne.b    c6552
  7717.     moveq    #0,d0
  7718. c6552:    movem.l    (sp)+,d7/a2/a3
  7719.     unlk    a5
  7720.     rts
  7721.  
  7722. c655A:    link.w    a5,#-8
  7723.     movem.l    d7/a2/a3,-(sp)
  7724.     move.l    a0,a3
  7725.     move.l    d0,d7
  7726.     move.l    a1,-4(a5)
  7727.     move.l    -4(a5),a0
  7728.     move.w    $4E(a0),$A4C(a4)
  7729.     move.l    d7,d0
  7730.     move.l    a3,a0
  7731.     move.l    -4(a5),a1
  7732.     move.l    $44(a1),a1
  7733.     bsr.b    c6518
  7734.     move.l    -4(a5),a0
  7735.     move.w    $A4C(a4),$4E(a0)
  7736.     add.l    d0,$3C(a0)
  7737.     lea    $4C(a0),a1
  7738.     move.l    d0,12(sp)
  7739.     move.l    a1,a0
  7740.     move.l    -4(a5),a2
  7741.     move.l    $3C(a2),d0
  7742.     move.l    $38(a2),d1
  7743.     jsr    c9D22(pc)
  7744.     move.l    12(sp),d0
  7745.     movem.l    (sp)+,d7/a2/a3
  7746.     unlk    a5
  7747.     rts
  7748.  
  7749. c65B6:    link.w    a5,#-12
  7750.     movem.l    d0/a0/a1,-12(a5)
  7751.     moveq    #0,d0
  7752.     unlk    a5
  7753.     rts
  7754.  
  7755. c65C6:    move.l    a3,-(sp)
  7756.     move.l    a0,a3
  7757.     move.l    #$8002,d0
  7758.     jsr    cA7AA(pc)
  7759.     move.l    d0,$60(a3)
  7760.     tst.l    d0
  7761.     beq.b    c6622
  7762.     move.l    #$10002,d0
  7763.     jsr    cA7AA(pc)
  7764.     move.l    d0,$64(a3)
  7765.     tst.l    d0
  7766.     beq.b    c6614
  7767.     move.l    $BC(a4),d0
  7768.     jsr    cA7AA(pc)
  7769.     move.l    d0,$68(a3)
  7770.     beq.b    c6608
  7771.     move.l    $BC(a4),d0
  7772.     move.w    d0,$54(a3)
  7773.     moveq    #1,d0
  7774.     bra.b    c6624
  7775.  
  7776. c6608:    move.l    $64(a3),a0
  7777.     jsr    cA894(pc)
  7778.     clr.l    $64(a3)
  7779. c6614:    move.l    $60(a3),a0
  7780.     jsr    cA894(pc)
  7781.     suba.l    a0,a0
  7782.     move.l    a0,$60(a3)
  7783. c6622:    moveq    #0,d0
  7784. c6624:    move.l    (sp)+,a3
  7785.     rts
  7786.  
  7787. c6628:    move.l    a3,-(sp)
  7788.     move.l    a0,a3
  7789.     lea    c655A(pc),a0
  7790.     move.l    a0,(a3)
  7791.     lea    c65B6(pc),a0
  7792.     move.l    a0,4(a3)
  7793.     lea    c92DC(pc),a0
  7794.     move.l    a0,$6C(a3)
  7795.     move.w    #$1000,$52(a3)
  7796.     move.l    $B8(a4),d0
  7797.     asl.l    #2,d0
  7798.     lea    $298(a4),a0
  7799.     move.w    (a0,d0.l),$56(a3)
  7800.     lea    $298(a4),a0
  7801.     move.w    2(a0,d0.l),$58(a3)
  7802.     move.w    #1,$5C(a3)
  7803.     move.l    a3,a0
  7804.     jsr    c939E(pc)
  7805.     move.l    (sp)+,a3
  7806.     rts
  7807.  
  7808. c6672:    move.l    a3,-(sp)
  7809.     move.l    a0,a3
  7810.     move.l    a3,a0
  7811.     jsr    c9364(pc)
  7812.     move.l    (sp)+,a3
  7813.     rts
  7814.  
  7815. c6680:    move.l    a3,-(sp)
  7816.     move.l    a0,a3
  7817.     move.l    #$8002,d0
  7818.     jsr    cA7AA(pc)
  7819.     move.l    d0,$60(a3)
  7820.     tst.l    d0
  7821.     beq.b    c66DC
  7822.     move.l    #$10002,d0
  7823.     jsr    cA7AA(pc)
  7824.     move.l    d0,$64(a3)
  7825.     tst.l    d0
  7826.     beq.b    c66CE
  7827.     move.l    $BC(a4),d0
  7828.     jsr    cA7AA(pc)
  7829.     move.l    d0,$68(a3)
  7830.     beq.b    c66C2
  7831.     move.l    $BC(a4),d0
  7832.     move.w    d0,$54(a3)
  7833.     moveq    #1,d0
  7834.     bra.b    c66DE
  7835.  
  7836. c66C2:    move.l    $64(a3),a0
  7837.     jsr    cA894(pc)
  7838.     clr.l    $64(a3)
  7839. c66CE:    move.l    $60(a3),a0
  7840.     jsr    cA894(pc)
  7841.     suba.l    a0,a0
  7842.     move.l    a0,$60(a3)
  7843. c66DC:    moveq    #0,d0
  7844. c66DE:    move.l    (sp)+,a3
  7845.     rts
  7846.  
  7847. c66E2:    link.w    a5,#-8
  7848.     movem.l    d7/a2/a3,-(sp)
  7849.     move.l    a0,a3
  7850.     move.l    d0,d7
  7851.     move.l    a1,-4(a5)
  7852.     move.l    -4(a5),a0
  7853.     move.w    $4E(a0),$A4C(a4)
  7854.     move.l    d7,d0
  7855.     move.l    a3,a0
  7856.     move.l    -4(a5),a1
  7857.     move.l    $44(a1),a1
  7858.     bsr.w    c6518
  7859.     move.l    -4(a5),a0
  7860.     move.w    $A4C(a4),$4E(a0)
  7861.     add.l    d0,$3C(a0)
  7862.     lea    $4C(a0),a1
  7863.     move.l    d0,12(sp)
  7864.     move.l    a1,a0
  7865.     move.l    -4(a5),a2
  7866.     move.l    $3C(a2),d0
  7867.     move.l    $38(a2),d1
  7868.     jsr    c9D22(pc)
  7869.     move.l    12(sp),d0
  7870.     movem.l    (sp)+,d7/a2/a3
  7871.     unlk    a5
  7872.     rts
  7873.  
  7874. c6740:    link.w    a5,#-12
  7875.     movem.l    d0/a0/a1,-12(a5)
  7876.     moveq    #0,d0
  7877.     unlk    a5
  7878.     rts
  7879.  
  7880. c6750:    move.l    a3,-(sp)
  7881.     move.l    a0,a3
  7882.     lea    c66E2(pc),a0
  7883.     move.l    a0,(a3)
  7884.     lea    c6740(pc),a0
  7885.     move.l    a0,4(a3)
  7886.     lea    c8D02(pc),a0
  7887.     move.l    a0,$6C(a3)
  7888.     move.w    #$2000,$52(a3)
  7889.     move.l    $B8(a4),d0
  7890.     asl.l    #2,d0
  7891.     lea    $2C0(a4),a0
  7892.     move.w    (a0,d0.l),$56(a3)
  7893.     lea    $2C0(a4),a0
  7894.     move.w    2(a0,d0.l),$58(a3)
  7895.     move.w    #5,$5C(a3)
  7896.     move.l    a3,a0
  7897.     jsr    c8DAA(pc)
  7898.     move.l    (sp)+,a3
  7899.     rts
  7900.  
  7901. c679A:    move.l    a3,-(sp)
  7902.     move.l    a0,a3
  7903.     move.l    a3,a0
  7904.     jsr    c8E5E(pc)
  7905.     move.l    (sp)+,a3
  7906.     rts
  7907.  
  7908. c67A8:    move.l    d5,-(sp)
  7909.     moveq    #0,d4
  7910.     moveq    #1,d0
  7911. c67AE:    move.w    d0,(a6,d4.w)
  7912.     move.w    d4,d1
  7913.     neg.w    d1
  7914.     subq.w    #2,d1
  7915.     move.w    d1,(a1,d4.w)
  7916.     move.w    d4,(a2,d1.w)
  7917.     addq.w    #2,d4
  7918.     cmpi.w    #$274,d4
  7919.     blt.b    c67AE
  7920.     moveq    #0,d4
  7921.     move.w    #$274,d5
  7922. c67CE:    move.w    (a6,d4.w),d3
  7923.     add.w    2(a6,d4.w),d3
  7924.     move.w    d3,(a6,d5.w)
  7925.     move.w    d4,(a1,d5.w)
  7926.     move.w    d5,(a2,d4.w)
  7927.     move.w    d5,2(a2,d4.w)
  7928.     addq.w    #4,d4
  7929.     addq.w    #2,d5
  7930.     cmpi.w    #$4E4,d5
  7931.     ble.b    c67CE
  7932.     move.w    #$FFFF,$4E6(a6)
  7933.     move.w    #$FFFF,$4E4(a2)
  7934.     move.l    (sp)+,d5
  7935.     rts
  7936.  
  7937. c6800:    movem.l    d0-d7/a0/a3-a5,-(sp)
  7938.     move.w    #$272,d5
  7939.     moveq    #0,d4
  7940.     move.l    a6,a0
  7941.     move.l    a1,a3
  7942.     move.l    a6,a4
  7943.     move.l    a1,a5
  7944. c6812:    move.w    (a5)+,d0
  7945.     bpl.b    c6820
  7946.     move.w    (a4),d2
  7947.     addq.w    #1,d2
  7948.     lsr.w    #1,d2
  7949.     move.w    d2,(a0)+
  7950.     move.w    d0,(a3)+
  7951. c6820:    addq.w    #2,a4
  7952.     dbra    d5,c6812
  7953.     moveq    #0,d4
  7954.     move.w    #$274,d5
  7955. c682C:    move.w    (a6,d4.w),d7
  7956.     add.w    2(a6,d4.w),d7
  7957.     move.w    d7,(a6,d5.w)
  7958.     move.w    d5,d6
  7959. c683A:    subq.w    #2,d6
  7960.     cmp.w    (a6,d6.w),d7
  7961.     bcs.b    c683A
  7962.     addq.w    #2,d6
  7963.     move.w    d5,d1
  7964.     sub.w    d6,d1
  7965.     lsr.w    #1,d1
  7966.     subq.w    #1,d1
  7967.     bmi.b    c685E
  7968.     lea    (a6,d5.w),a0
  7969.     lea    2(a0),a4
  7970.     move.w    d1,d0
  7971. c6858:    move.w    -(a0),-(a4)
  7972.     dbra    d0,c6858
  7973. c685E:    move.w    d7,(a6,d6.w)
  7974.     tst.w    d1
  7975.     bmi.b    c6874
  7976.     lea    (a1,d5.w),a0
  7977.     lea    2(a0),a4
  7978. c686E:    move.w    -(a0),-(a4)
  7979.     dbra    d1,c686E
  7980. c6874:    move.w    d4,(a1,d6.w)
  7981.     addq.w    #4,d4
  7982.     addq.w    #2,d5
  7983.     cmpi.w    #$4E6,d5
  7984.     blt.b    c682C
  7985.     move.l    a1,a0
  7986.     moveq    #0,d4
  7987. c6886:    move.w    (a0)+,d6
  7988.     bpl.b    c6890
  7989.     move.w    d4,(a2,d6.w)
  7990.     bra.b    c6898
  7991.  
  7992. c6890:    move.w    d4,2(a2,d6.w)
  7993.     move.w    d4,(a2,d6.w)
  7994. c6898:    addq.w    #2,d4
  7995.     cmpi.w    #$4E6,d4
  7996.     blt.b    c6886
  7997.     movem.l    (sp)+,d0-d7/a0/a3-a5
  7998.     rts
  7999.  
  8000. c68A6:    movem.l    d2-d7/a2-a6,-(sp)
  8001.     lea    $54(a0),a6
  8002.     move.l    a4,-$40(a6)
  8003.     move.l    sp,-$44(a6)
  8004.     move.l    -$2C(a6),a0
  8005.     adda.w    #$1000,a0
  8006.     move.l    #$20202020,d1
  8007.     move.l    d1,d2
  8008.     move.l    d2,d3
  8009.     move.l    d3,d6
  8010.     move.l    d6,d7
  8011.     move.l    d7,a4
  8012.     move.l    a4,a1
  8013.     move.l    a1,a2
  8014.     movem.l    d1-d3/d6/d7/a1/a2/a4,-(a0)
  8015.     movem.l    d1-d3/d6/d7/a1/a2/a4,-(a0)
  8016.     clr.w    -6(a6)
  8017.     move.l    -$34(a6),-$38(a6)
  8018.     move.w    #$8000,d7
  8019.     move.l    -$24(a6),d6
  8020.     move.l    -$28(a6),d5
  8021.     addq.l    #1,d5
  8022.     lsr.l    #1,d5
  8023.     move.l    -$30(a6),a5
  8024.     move.l    -$2C(a6),a4
  8025.     adda.w    #$1000,a4
  8026.     lea    $75C(a6),a2
  8027.     lea    $C42(a6),a1
  8028.     move.l    -$1C(a6),d0
  8029.     beq.w    c6E3A
  8030.     move.l    d0,-4(a6)
  8031.     bsr.w    c67A8
  8032.     clr.l    -$3C(a6)
  8033.     bra.b    c692C
  8034.  
  8035. c691E:    move.w    (a5)+,d7
  8036.     addx.w    d7,d7
  8037.     dbra    d5,c698E
  8038.     bsr.w    c6E52
  8039.     bra.b    c691E
  8040.  
  8041. c692C:    move.w    $4E4(a1),d2
  8042.     add.w    d7,d7
  8043.     beq.b    c691E
  8044.     bcc.b    c6942
  8045. c6936:    move.w    2(a1,d2.w),d2
  8046. c693A:    bmi.b    c6984
  8047.     add.w    d7,d7
  8048.     beq.b    c691E
  8049.     bcs.b    c6936
  8050. c6942:    move.w    (a1,d2.w),d2
  8051.     bmi.b    c6984
  8052.     add.w    d7,d7
  8053.     beq.b    c691E
  8054.     bcs.b    c6936
  8055.     move.w    (a1,d2.w),d2
  8056.     bmi.b    c69D2
  8057.     add.w    d7,d7
  8058.     beq.b    c691E
  8059.     bcs.b    c6936
  8060.     move.w    (a1,d2.w),d2
  8061.     bmi.b    c69D2
  8062.     add.w    d7,d7
  8063.     beq.b    c691E
  8064.     bcs.b    c6936
  8065.     move.w    (a1,d2.w),d2
  8066.     bmi.b    c69D2
  8067.     add.w    d7,d7
  8068.     beq.b    c691E
  8069.     bcs.b    c6936
  8070.     move.w    (a1,d2.w),d2
  8071.     bmi.b    c69D2
  8072.     add.w    d7,d7
  8073.     beq.b    c691E
  8074.     bcs.b    c6936
  8075.     move.w    (a1,d2.w),d2
  8076.     bpl.b    c693A
  8077. c6984:    bra.b    c69D2
  8078.  
  8079. c6986:    move.w    2(a1,d2.w),d2
  8080. c698A:    bmi.b    c69D2
  8081.     add.w    d7,d7
  8082. c698E:    bcs.b    c6986
  8083.     move.w    (a1,d2.w),d2
  8084.     bmi.b    c69D2
  8085.     add.w    d7,d7
  8086.     bcs.b    c6986
  8087.     move.w    (a1,d2.w),d2
  8088.     bmi.b    c69D2
  8089.     add.w    d7,d7
  8090.     bcs.b    c6986
  8091.     move.w    (a1,d2.w),d2
  8092.     bmi.b    c69D2
  8093.     add.w    d7,d7
  8094.     bcs.b    c6986
  8095.     move.w    (a1,d2.w),d2
  8096.     bmi.b    c69D2
  8097.     add.w    d7,d7
  8098.     bcs.b    c6986
  8099.     move.w    (a1,d2.w),d2
  8100.     bmi.b    c69D2
  8101.     add.w    d7,d7
  8102.     bcs.b    c6986
  8103.     move.w    (a1,d2.w),d2
  8104.     bra.b    c698A
  8105.  
  8106. c69C8:    bsr.w    c6800
  8107.     bra.b    c69D8
  8108.  
  8109. c69CE:    bra.w    c6AAE
  8110.  
  8111. c69D2:    tst.w    $4E4(a6)
  8112.     bmi.b    c69C8
  8113. c69D8:    move.w    (a2,d2.w),d4
  8114.     lea    (a6,d4.w),a3
  8115.     addq.w    #1,(a3)
  8116.     move.w    (a3)+,d0
  8117.     cmp.w    (a3)+,d0
  8118.     bhi.b    c69FA
  8119. c69E8:    move.w    (a2,d4.w),d4
  8120.     bmi.b    c69CE
  8121. c69EE:    lea    (a6,d4.w),a3
  8122.     addq.w    #1,(a3)
  8123.     move.w    (a3)+,d0
  8124.     cmp.w    (a3)+,d0
  8125.     bls.b    c69E8
  8126. c69FA:    cmp.w    (a3)+,d0
  8127.     bls.b    c6A76
  8128.     cmp.w    (a3)+,d0
  8129.     bls.b    c6A76
  8130.     cmp.w    (a3)+,d0
  8131.     bls.b    c6A76
  8132.     cmp.w    (a3)+,d0
  8133.     bls.b    c6A76
  8134.     cmp.w    (a3)+,d0
  8135.     bls.b    c6A76
  8136.     cmp.w    (a3)+,d0
  8137.     bls.b    c6A76
  8138.     cmp.w    (a3)+,d0
  8139.     bls.b    c6A76
  8140.     cmp.w    (a3)+,d0
  8141.     bls.b    c6A76
  8142.     cmp.w    (a3)+,d0
  8143.     bls.b    c6A76
  8144.     cmp.w    (a3)+,d0
  8145.     bls.b    c6A76
  8146.     cmp.w    (a3)+,d0
  8147.     bls.b    c6A76
  8148.     cmp.w    (a3)+,d0
  8149.     bls.b    c6A76
  8150.     cmp.w    (a3)+,d0
  8151.     bls.b    c6A76
  8152.     cmp.w    (a3)+,d0
  8153.     bls.b    c6A76
  8154.     cmp.w    (a3)+,d0
  8155.     bls.b    c6A76
  8156.     cmp.w    (a3)+,d0
  8157.     bls.b    c6A76
  8158.     cmp.w    (a3)+,d0
  8159.     bls.b    c6A76
  8160.     cmp.w    (a3)+,d0
  8161.     bls.b    c6A76
  8162.     cmp.w    (a3)+,d0
  8163.     bls.b    c6A76
  8164.     cmp.w    (a3)+,d0
  8165.     bls.b    c6A76
  8166.     cmp.w    (a3)+,d0
  8167.     bls.b    c6A76
  8168.     cmp.w    (a3)+,d0
  8169.     bls.b    c6A76
  8170.     cmp.w    (a3)+,d0
  8171.     bls.b    c6A76
  8172.     cmp.w    (a3)+,d0
  8173.     bls.b    c6A76
  8174.     cmp.w    (a3)+,d0
  8175.     bls.b    c6A76
  8176.     cmp.w    (a3)+,d0
  8177.     bls.b    c6A76
  8178.     cmp.w    (a3)+,d0
  8179.     bls.b    c6A76
  8180.     cmp.w    (a3)+,d0
  8181.     bls.b    c6A76
  8182.     cmp.w    (a3)+,d0
  8183.     bls.b    c6A76
  8184.     cmp.w    (a3)+,d0
  8185.     bls.b    c6A76
  8186.     cmp.w    (a3)+,d0
  8187.     bhi.b    c69FA
  8188. c6A76:    subq.w    #4,a3
  8189.     move.l    a3,a0
  8190.     suba.l    a6,a0
  8191.     subq.w    #1,(a6,d4.w)
  8192.     move.w    d0,(a3)
  8193.     move.w    (a1,d4.w),d1
  8194.     bmi.b    c6A8C
  8195.     move.w    a0,2(a2,d1.w)
  8196. c6A8C:    move.w    a0,(a2,d1.w)
  8197.     move.w    $C42(a3),d0
  8198.     bmi.b    c6A9A
  8199.     move.w    d4,2(a2,d0.w)
  8200. c6A9A:    move.w    d4,(a2,d0.w)
  8201.     move.w    d1,$C42(a3)
  8202.     move.w    d0,(a1,d4.w)
  8203.     move.w    $75C(a3),d4
  8204.     bpl.w    c69EE
  8205. c6AAE:    not.w    d2
  8206.     asr.w    #1,d2
  8207.     cmpi.w    #$100,d2
  8208.     bge.b    c6ACC
  8209.     addq.l    #1,-$3C(a6)
  8210.     move.b    d2,(a4)+
  8211.     subq.l    #1,d6
  8212.     bne.w    c6DEC
  8213.     bsr.w    c6E7E
  8214.     bra.w    c6DEC
  8215.  
  8216. c6ACC:    move.w    d2,d3
  8217.     ext.l    d3
  8218.     subi.w    #$FD,d3
  8219.     add.l    d3,-$3C(a6)
  8220.     tst.b    d7
  8221.     bne.b    c6B34
  8222.     moveq    #0,d4
  8223.     moveq    #7,d2
  8224.     add.w    d7,d7
  8225.     beq.b    c6B26
  8226.     addx.w    d4,d4
  8227.     subq.l    #1,d2
  8228.     add.w    d7,d7
  8229.     beq.b    c6B26
  8230.     addx.w    d4,d4
  8231.     subq.l    #1,d2
  8232.     add.w    d7,d7
  8233.     beq.b    c6B26
  8234.     addx.w    d4,d4
  8235.     subq.l    #1,d2
  8236.     add.w    d7,d7
  8237.     beq.b    c6B26
  8238.     addx.w    d4,d4
  8239.     subq.l    #1,d2
  8240.     add.w    d7,d7
  8241.     beq.b    c6B26
  8242.     addx.w    d4,d4
  8243.     subq.l    #1,d2
  8244.     add.w    d7,d7
  8245.     beq.b    c6B26
  8246.     addx.w    d4,d4
  8247.     subq.l    #1,d2
  8248.     add.w    d7,d7
  8249.     beq.b    c6B26
  8250.     addx.w    d4,d4
  8251.     subq.l    #1,d2
  8252.     add.w    d7,d7
  8253.     bra.b    c6B26
  8254.  
  8255. c6B1C:    add.w    d7,d7
  8256. c6B1E:    addx.w    d4,d4
  8257.     dbra    d2,c6B1C
  8258.     bra.b    c6B3A
  8259.  
  8260. c6B26:    move.w    (a5)+,d7
  8261.     addx.w    d7,d7
  8262.     dbra    d5,c6B1E
  8263.     bsr.w    c6E52
  8264.     bra.b    c6B26
  8265.  
  8266. c6B34:    move.w    d7,d4
  8267.     lsl.w    #8,d7
  8268.     lsr.w    #8,d4
  8269. c6B3A:    move.w    d4,d1
  8270.     add.w    d1,d1
  8271.     moveq    #0,d2
  8272.     move.w    w6B6C(pc,d1.w),d1
  8273.     move.b    d1,d2
  8274.     sf    d1
  8275.     lsr.w    #2,d1
  8276. c6B4A:    add.w    d7,d7
  8277.     beq.b    c6B5E
  8278. c6B4E:    addx.w    d4,d4
  8279.     dbra    d2,c6B4A
  8280.     andi.w    #$3F,d4
  8281.     or.w    d1,d4
  8282.     bra.w    c6E04
  8283.  
  8284. c6B5E:    move.w    (a5)+,d7
  8285.     addx.w    d7,d7
  8286.     dbra    d5,c6B4E
  8287.     bsr.w    c6E52
  8288.     bra.b    c6B5E
  8289.  
  8290. w6B6C:    dcb.w    $20,0
  8291.     dcb.w    $10,$101
  8292.     dcb.w    $10,$201
  8293.     dcb.w    $10,$301
  8294.     dcb.w    $8,$402
  8295.     dcb.w    $8,$502
  8296.     dcb.w    $8,$602
  8297.     dcb.w    $8,$702
  8298.     dcb.w    $8,$802
  8299.     dcb.w    $8,$902
  8300.     dcb.w    $8,$A02
  8301.     dcb.w    $8,$B02
  8302.     dcb.w    $4,$C03
  8303.     dcb.w    $4,$D03
  8304.     dcb.w    $4,$E03
  8305.     dcb.w    $4,$F03
  8306.     dcb.w    $4,$1003
  8307.     dcb.w    $4,$1103
  8308.     dcb.w    $4,$1203
  8309.     dcb.w    $4,$1303
  8310.     dcb.w    $4,$1403
  8311.     dcb.w    $4,$1503
  8312.     dcb.w    $4,$1603
  8313.     dcb.w    $4,$1703
  8314.     dcb.w    $2,$1804
  8315.     dcb.w    $2,$1904
  8316.     dcb.w    $2,$1A04
  8317.     dcb.w    $2,$1B04
  8318.     dcb.w    $2,$1C04
  8319.     dcb.w    $2,$1D04
  8320.     dcb.w    $2,$1E04
  8321.     dcb.w    $2,$1F04
  8322.     dcb.w    $2,$2004
  8323.     dcb.w    $2,$2104
  8324.     dcb.w    $2,$2204
  8325.     dcb.w    $2,$2304
  8326.     dcb.w    $2,$2404
  8327.     dcb.w    $2,$2504
  8328.     dcb.w    $2,$2604
  8329.     dcb.w    $2,$2704
  8330.     dcb.w    $2,$2804
  8331.     dcb.w    $2,$2904
  8332.     dcb.w    $2,$2A04
  8333.     dcb.w    $2,$2B04
  8334.     dcb.w    $2,$2C04
  8335.     dcb.w    $2,$2D04
  8336.     dcb.w    $2,$2E04
  8337.     dcb.w    $2,$2F04
  8338.     dc.w    $3005
  8339.     dc.w    $3105
  8340.     dc.w    $3205
  8341.     dc.w    $3305
  8342.     dc.w    $3405
  8343.     dc.w    $3505
  8344.     dc.w    $3605
  8345.     dc.w    $3705
  8346.     dc.w    $3805
  8347.     dc.w    $3905
  8348.     dc.w    $3A05
  8349.     dc.w    $3B05
  8350.     dc.w    $3C05
  8351.     dc.w    $3D05
  8352.     dc.w    $3E05
  8353.     dc.w    $3F05
  8354.     dcb.w    $3C,$18D8
  8355.  
  8356. c6DE4:    tst.l    d6
  8357.     bgt.b    c6DEC
  8358.     bsr.w    c6E7E
  8359. c6DEC:    move.l    -$3C(a6),d0
  8360.     cmp.l    -$38(a6),d0
  8361.     bhi.b    c6E14
  8362.     cmp.l    -$1C(a6),d0
  8363.     blt.w    c692C
  8364.     bra.b    c6E30
  8365.  
  8366. c6E04:    neg.w    d4
  8367.     lea    -1(a4,d4.w),a0
  8368.     sub.l    d3,d6
  8369.     add.w    d3,d3
  8370.     neg.w    d3
  8371.     jmp    c6DE4(pc,d3.w)
  8372.  
  8373. c6E14:    bsr.w    c6F50
  8374.     tst.w    d0
  8375.     bne.b    c6E36
  8376.     move.l    -$34(a6),d0
  8377.     add.l    d0,-$38(a6)
  8378.     move.l    -$3C(a6),d0
  8379.     cmp.l    -$1C(a6),d0
  8380.     blt.w    c692C
  8381. c6E30:    bsr.w    c6EDE
  8382.     bra.b    c6E3A
  8383.  
  8384. c6E36:    moveq    #-1,d0
  8385.     bra.b    c6E3C
  8386.  
  8387. c6E3A:    moveq    #0,d0
  8388. c6E3C:    move.l    -$44(a6),sp
  8389.     movem.l    (sp)+,d2-d7/a2-a6
  8390.     rts
  8391.  
  8392. c6E46:    cmpi.l    #$FFFFFFFE,d0
  8393.     beq.b    c6E3A
  8394.     moveq    #3,d0
  8395.     bra.b    c6E3C
  8396.  
  8397. c6E52:    movem.l    d0/d1/a0/a1/a4,-(sp)
  8398.     move.l    -$40(a6),a4
  8399.     pea    -$54(a6)
  8400.     move.l    -$54(a6),a1
  8401.     jsr    (a1)
  8402.     addq.l    #4,sp
  8403.     tst.l    d0
  8404.     bmi.b    c6E46
  8405.     move.l    -$30(a6),a5
  8406.     move.l    d0,d5
  8407.     addq.l    #1,d5
  8408.     lsr.l    #1,d5
  8409.     move.w    #$10,ccr
  8410.     movem.l    (sp)+,d0/d1/a0/a1/a4
  8411.     rts
  8412.  
  8413. c6E7E:    movem.l    d0-d4/a0-a2,-(sp)
  8414.     move.l    -$2C(a6),a0
  8415.     adda.w    #$1000,a0
  8416.     move.l    -$24(a6),d1
  8417.     move.w    -6(a6),d0
  8418.     bsr.w    c6FBE
  8419.     move.w    d0,-6(a6)
  8420.     move.l    a4,a2
  8421.     move.l    -$40(a6),a4
  8422.     pea    -$54(a6)
  8423.     move.l    -$50(a6),a1
  8424.     jsr    (a1)
  8425.     addq.l    #4,sp
  8426.     tst.l    d0
  8427.     bmi.b    c6E46
  8428.     move.l    a2,a4
  8429.     move.l    -$24(a6),d0
  8430.     sub.l    d0,-4(a6)
  8431.     beq.b    c6ED2
  8432.     move.l    -$2C(a6),a0
  8433.     lea    -$1000(a4),a1
  8434.     adda.l    d6,a1
  8435.     move.w    #$FFF,d0
  8436.     sub.l    d6,d0
  8437. c6ECC:    move.b    (a1)+,(a0)+
  8438.     dbra    d0,c6ECC
  8439. c6ED2:    add.l    -$24(a6),d6
  8440.     move.l    a0,a4
  8441.     movem.l    (sp)+,d0-d4/a0-a2
  8442.     rts
  8443.  
  8444. c6EDE:    movem.l    d0-d4/a0/a1,-(sp)
  8445.     move.l    -$2C(a6),a0
  8446.     adda.w    #$1000,a0
  8447.     move.l    -$24(a6),d1
  8448.     sub.l    d6,d1
  8449.     beq.b    c6F22
  8450.     move.l    d1,-$24(a6)
  8451.     move.w    -6(a6),d0
  8452.     bsr.w    c6FBE
  8453.     move.w    d0,-6(a6)
  8454.     move.l    -$40(a6),a4
  8455.     pea    -$54(a6)
  8456.     move.l    -$50(a6),a1
  8457.     jsr    (a1)
  8458.     addq.w    #4,sp
  8459.     tst.l    d0
  8460.     bmi.w    c6E46
  8461.     move.l    -$2C(a6),a4
  8462.     adda.w    #$1000,a4
  8463.     moveq    #0,d6
  8464. c6F22:    movem.l    (sp)+,d0-d4/a0/a1
  8465.     rts
  8466.  
  8467. c6F28:    movem.l    d0/d1/a0/a1/a4,-(sp)
  8468.     move.l    -$40(a6),a4
  8469.     pea    -$54(a6)
  8470.     move.l    -$54(a6),a1
  8471.     jsr    (a1)
  8472.     addq.l    #4,sp
  8473.     tst.l    d0
  8474.     bmi.w    c6E46
  8475.     move.l    -$30(a6),a5
  8476.     move.l    d0,d5
  8477.     subq.l    #1,d5
  8478.     movem.l    (sp)+,d0/d1/a0/a1/a4
  8479.     rts
  8480.  
  8481. c6F50:    movem.l    d1/a0/a1/a4,-(sp)
  8482.     move.l    -$40(a6),a4
  8483.     pea    -$54(a6)
  8484.     move.l    -$4C(a6),a1
  8485.     jsr    (a1)
  8486.     addq.l    #4,sp
  8487.     movem.l    (sp)+,d1/a0/a1/a4
  8488.     rts
  8489.  
  8490. c6F6A:    movem.l    d2-d7/a2-a6,-(sp)
  8491.     lea    $54(a0),a6
  8492.     move.l    a4,-$40(a6)
  8493.     clr.w    -6(a6)
  8494.     clr.l    -$3C(a6)
  8495.     tst.l    -$1C(a6)
  8496.     beq.b    c6FB6
  8497.     move.l    -$24(a6),d6
  8498.     move.l    -$28(a6),d5
  8499.     move.l    -$30(a6),a5
  8500.     move.l    -$2C(a6),a4
  8501.     adda.w    #$1000,a4
  8502. c6F98:    move.b    (a5)+,(a4)+
  8503.     subq.l    #1,d5
  8504.     beq.b    c6FA8
  8505. c6F9E:    subq.l    #1,d6
  8506.     bne.b    c6F98
  8507.     bsr.w    c6E7E
  8508.     bra.b    c6F98
  8509.  
  8510. c6FA8:    bsr.w    c6F28
  8511.     addq.l    #1,d5
  8512.     bne.b    c6F9E
  8513.     subq.l    #1,d6
  8514.     bsr.w    c6EDE
  8515. c6FB6:    moveq    #0,d0
  8516.     movem.l    (sp)+,d2-d7/a2-a6
  8517.     rts
  8518.  
  8519. c6FBE:    movem.l    d2/d3,-(sp)
  8520.     bsr.b    c6FCC
  8521.     movem.l    (sp)+,d2/d3
  8522.     rts
  8523.  
  8524. c6FCC:    move.w    #$FF,d3
  8525.     subq.l    #1,d1
  8526.     bmi.b    c6FE8
  8527. c6FD4:    move.b    (a0)+,d2
  8528.     eor.b    d0,d2
  8529.     lsr.w    #8,d0
  8530.     and.w    d3,d2
  8531.     add.w    d2,d2
  8532.     move.w    w6FEC(pc,d2.w),d2
  8533.     eor.w    d2,d0
  8534.     dbra    d1,c6FD4
  8535. c6FE8:    rts
  8536.  
  8537.     dc.w    0
  8538. w6FEC:    dc.w    0
  8539.     dc.w    $C0C1
  8540.     dc.w    $C181
  8541.     dc.w    $140
  8542.     dc.w    $C301
  8543.     dc.w    $3C0
  8544.     dc.w    $280
  8545.     dc.w    $C241
  8546.     dc.w    $C601
  8547.     dc.w    $6C0
  8548.     dc.w    $780
  8549.     dc.w    $C741
  8550.     dc.w    $500
  8551.     dc.w    $C5C1
  8552.     dc.w    $C481
  8553.     dc.w    $440
  8554.     dc.w    $CC01
  8555.     dc.w    $CC0
  8556.     dc.w    $D80
  8557.     dc.w    $CD41
  8558.     dc.w    $F00
  8559.     dc.w    $CFC1
  8560.     dc.w    $CE81
  8561.     dc.w    $E40
  8562.     dc.w    $A00
  8563.     dc.w    $CAC1
  8564.     dc.w    $CB81
  8565.     dc.w    $B40
  8566.     dc.w    $C901
  8567.     dc.w    $9C0
  8568.     dc.w    $880
  8569.     dc.w    $C841
  8570.     dc.w    $D801
  8571.     dc.w    $18C0
  8572.     dc.w    $1980
  8573.     dc.w    $D941
  8574.     dc.w    $1B00
  8575.     dc.w    $DBC1
  8576.     dc.w    $DA81
  8577.     dc.w    $1A40
  8578.     dc.w    $1E00
  8579.     dc.w    $DEC1
  8580.     dc.w    $DF81
  8581.     dc.w    $1F40
  8582.     dc.w    $DD01
  8583.     dc.w    $1DC0
  8584.     dc.w    $1C80
  8585.     dc.w    $DC41
  8586.     dc.w    $1400
  8587.     dc.w    $D4C1
  8588.     dc.w    $D581
  8589.     dc.w    $1540
  8590.     dc.w    $D701
  8591.     dc.w    $17C0
  8592.     dc.w    $1680
  8593.     dc.w    $D641
  8594.     dc.w    $D201
  8595.     dc.w    $12C0
  8596.     dc.w    $1380
  8597.     dc.w    $D341
  8598.     dc.w    $1100
  8599.     dc.w    $D1C1
  8600.     dc.w    $D081
  8601.     dc.w    $1040
  8602.     dc.w    $F001
  8603.     dc.w    $30C0
  8604.     dc.w    $3180
  8605.     dc.w    $F141
  8606.     dc.w    $3300
  8607.     dc.w    $F3C1
  8608.     dc.w    $F281
  8609.     dc.w    $3240
  8610.     dc.w    $3600
  8611.     dc.w    $F6C1
  8612.     dc.w    $F781
  8613.     dc.w    $3740
  8614.     dc.w    $F501
  8615.     dc.w    $35C0
  8616.     dc.w    $3480
  8617.     dc.w    $F441
  8618.     dc.w    $3C00
  8619.     dc.w    $FCC1
  8620.     dc.w    $FD81
  8621.     dc.w    $3D40
  8622.     dc.w    $FF01
  8623.     dc.w    $3FC0
  8624.     dc.w    $3E80
  8625.     dc.w    $FE41
  8626.     dc.w    $FA01
  8627.     dc.w    $3AC0
  8628.     dc.w    $3B80
  8629.     dc.w    $FB41
  8630.     dc.w    $3900
  8631.     dc.w    $F9C1
  8632.     dc.w    $F881
  8633.     dc.w    $3840
  8634.     dc.w    $2800
  8635.     dc.w    $E8C1
  8636.     dc.w    $E981
  8637.     dc.w    $2940
  8638.     dc.w    $EB01
  8639.     dc.w    $2BC0
  8640.     dc.w    $2A80
  8641.     dc.w    $EA41
  8642.     dc.w    $EE01
  8643.     dc.w    $2EC0
  8644.     dc.w    $2F80
  8645.     dc.w    $EF41
  8646.     dc.w    $2D00
  8647.     dc.w    $EDC1
  8648.     dc.w    $EC81
  8649.     dc.w    $2C40
  8650.     dc.w    $E401
  8651.     dc.w    $24C0
  8652.     dc.w    $2580
  8653.     dc.w    $E541
  8654.     dc.w    $2700
  8655.     dc.w    $E7C1
  8656.     dc.w    $E681
  8657.     dc.w    $2640
  8658.     dc.w    $2200
  8659.     dc.w    $E2C1
  8660.     dc.w    $E381
  8661.     dc.w    $2340
  8662.     dc.w    $E101
  8663.     dc.w    $21C0
  8664.     dc.w    $2080
  8665.     dc.w    $E041
  8666.     dc.w    $A001
  8667.     dc.w    $60C0
  8668.     dc.w    $6180
  8669.     dc.w    $A141
  8670.     dc.w    $6300
  8671.     dc.w    $A3C1
  8672.     dc.w    $A281
  8673.     dc.w    $6240
  8674.     dc.w    $6600
  8675.     dc.w    $A6C1
  8676.     dc.w    $A781
  8677.     dc.w    $6740
  8678.     dc.w    $A501
  8679.     dc.w    $65C0
  8680.     dc.w    $6480
  8681.     dc.w    $A441
  8682.     dc.w    $6C00
  8683.     dc.w    $ACC1
  8684.     dc.w    $AD81
  8685.     dc.w    $6D40
  8686.     dc.w    $AF01
  8687.     dc.w    $6FC0
  8688.     dc.w    $6E80
  8689.     dc.w    $AE41
  8690.     dc.w    $AA01
  8691.     dc.w    $6AC0
  8692.     dc.w    $6B80
  8693.     dc.w    $AB41
  8694.     dc.w    $6900
  8695.     dc.w    $A9C1
  8696.     dc.w    $A881
  8697.     dc.w    $6840
  8698.     dc.w    $7800
  8699.     dc.w    $B8C1
  8700.     dc.w    $B981
  8701.     dc.w    $7940
  8702.     dc.w    $BB01
  8703.     dc.w    $7BC0
  8704.     dc.w    $7A80
  8705.     dc.w    $BA41
  8706.     dc.w    $BE01
  8707.     dc.w    $7EC0
  8708.     dc.w    $7F80
  8709.     dc.w    $BF41
  8710.     dc.w    $7D00
  8711.     dc.w    $BDC1
  8712.     dc.w    $BC81
  8713.     dc.w    $7C40
  8714.     dc.w    $B401
  8715.     dc.w    $74C0
  8716.     dc.w    $7580
  8717.     dc.w    $B541
  8718.     dc.w    $7700
  8719.     dc.w    $B7C1
  8720.     dc.w    $B681
  8721.     dc.w    $7640
  8722.     dc.w    $7200
  8723.     dc.w    $B2C1
  8724.     dc.w    $B381
  8725.     dc.w    $7340
  8726.     dc.w    $B101
  8727.     dc.w    $71C0
  8728.     dc.w    $7080
  8729.     dc.w    $B041
  8730.     dc.w    $5000
  8731.     dc.w    $90C1
  8732.     dc.w    $9181
  8733.     dc.w    $5140
  8734.     dc.w    $9301
  8735.     dc.w    $53C0
  8736.     dc.w    $5280
  8737.     dc.w    $9241
  8738.     dc.w    $9601
  8739.     dc.w    $56C0
  8740.     dc.w    $5780
  8741.     dc.w    $9741
  8742.     dc.w    $5500
  8743.     dc.w    $95C1
  8744.     dc.w    $9481
  8745.     dc.w    $5440
  8746.     dc.w    $9C01
  8747.     dc.w    $5CC0
  8748.     dc.w    $5D80
  8749.     dc.w    $9D41
  8750.     dc.w    $5F00
  8751.     dc.w    $9FC1
  8752.     dc.w    $9E81
  8753.     dc.w    $5E40
  8754.     dc.w    $5A00
  8755.     dc.w    $9AC1
  8756.     dc.w    $9B81
  8757.     dc.w    $5B40
  8758.     dc.w    $9901
  8759.     dc.w    $59C0
  8760.     dc.w    $5880
  8761.     dc.w    $9841
  8762.     dc.w    $8801
  8763.     dc.w    $48C0
  8764.     dc.w    $4980
  8765.     dc.w    $8941
  8766.     dc.w    $4B00
  8767.     dc.w    $8BC1
  8768.     dc.w    $8A81
  8769.     dc.w    $4A40
  8770.     dc.w    $4E00
  8771.     dc.w    $8EC1
  8772.     dc.w    $8F81
  8773.     dc.w    $4F40
  8774.     dc.w    $8D01
  8775.     dc.w    $4DC0
  8776.     dc.w    $4C80
  8777.     dc.w    $8C41
  8778.     dc.w    $4400
  8779.     dc.w    $84C1
  8780.     dc.w    $8581
  8781.     dc.w    $4540
  8782.     dc.w    $8701
  8783.     dc.w    $47C0
  8784.     dc.w    $4680
  8785.     dc.w    $8641
  8786.     dc.w    $8201
  8787.     dc.w    $42C0
  8788.     dc.w    $4380
  8789.     dc.w    $8341
  8790.     dc.w    $4100
  8791.     dc.w    $81C1
  8792.     dc.w    $8081
  8793.     dc.w    $4040
  8794.  
  8795. c71EC:    movem.l    d3-d7/a1/a4/a6,-(sp)
  8796.     link.w    a5,#-$70
  8797.     move.l    a0,a6
  8798.     moveq    #0,d5
  8799.     bset    d1,d5
  8800.     add.w    d5,d5
  8801.     adda.w    d5,a0
  8802.     move.l    a0,-$6C(a5)
  8803.     move.w    d0,d5
  8804.     add.w    d5,d5
  8805.     move.w    d0,-$6E(a5)
  8806.     move.w    d1,d7
  8807.     move.l    a5,a0
  8808.     clr.l    -(a0)
  8809.     clr.l    -(a0)
  8810.     clr.l    -(a0)
  8811.     clr.l    -(a0)
  8812.     clr.l    -(a0)
  8813.     clr.l    -(a0)
  8814.     clr.l    -(a0)
  8815.     clr.l    -(a0)
  8816.     moveq    #0,d2
  8817.     move.l    a1,a0
  8818.     subq.w    #1,d0
  8819. c7224:    move.b    (a0)+,d2
  8820.     add.w    d2,d2
  8821.     addq.w    #1,-$22(a5,d2.w)
  8822.     dbra    d0,c7224
  8823.     lea    -$66(a5),a0
  8824.     clr.w    (a0)
  8825.     lea    -$20(a5),a4
  8826.     moveq    #15,d4
  8827.     moveq    #0,d0
  8828. c723E:    move.w    (a4)+,d1
  8829.     lsl.w    d4,d1
  8830.     add.w    (a0)+,d1
  8831.     move.w    d1,(a0)
  8832.     dbra    d4,c723E
  8833.     tst.w    d1
  8834.     bne.w    c7AC6
  8835.     moveq    #$10,d3
  8836.     sub.b    d7,d3
  8837.     lea    -$66(a5),a0
  8838.     lea    -$42(a5),a4
  8839.     move.w    d7,d4
  8840.     subq.w    #1,d4
  8841. c7260:    move.w    (a0),d1
  8842.     lsr.w    d3,d1
  8843.     move.w    d1,(a0)+
  8844.     moveq    #0,d1
  8845.     bset    d4,d1
  8846.     move.w    d1,(a4)+
  8847.     dbra    d4,c7260
  8848.     moveq    #$10,d4
  8849.     sub.w    d7,d4
  8850.     subq.w    #1,d4
  8851. c7276:    moveq    #0,d2
  8852.     bset    d4,d2
  8853.     move.w    d2,(a4)+
  8854.     dbra    d4,c7276
  8855.     move.w    d7,d0
  8856.     add.w    d0,d0
  8857.     move.w    -$66(a5,d0.w),d4
  8858.     lsr.w    d3,d4
  8859.     beq.b    c72AA
  8860.     moveq    #0,d2
  8861.     bset    d7,d2
  8862.     sub.w    d4,d2
  8863.     subq.w    #1,d2
  8864.     add.w    d4,d4
  8865.     lea    (a6,d4.w),a4
  8866.     cmpa.l    -$6C(a5),a4
  8867.     bge.w    c7AD0
  8868.     moveq    #0,d1
  8869. c72A4:    move.w    d1,(a4)+
  8870.     dbra    d2,c72A4
  8871. c72AA:    move.w    -$6E(a5),d6
  8872.     subq.w    #1,d6
  8873.     lea    l7BC4(pc),a0
  8874. c72B4:    moveq    #0,d0
  8875.     move.b    (a1)+,d0
  8876.     beq.b    c7320
  8877.     move.w    d0,d4
  8878.     add.w    d0,d0
  8879.     move.w    -$68(a5,d0.w),d1
  8880.     move.w    -$44(a5,d0.w),d2
  8881.     add.w    d1,d2
  8882.     move.w    d2,-$68(a5,d0.w)
  8883.     sub.w    d7,d4
  8884.     bgt.b    c72EC
  8885.     sub.w    d1,d2
  8886.     subq.w    #1,d2
  8887.     add.w    d1,d1
  8888.     lea    (a6,d1.w),a4
  8889.     cmpa.l    -$6C(a5),a4
  8890.     bge.w    c7AD0
  8891.     move.w    (a0),d0
  8892. c72E4:    move.w    d0,(a4)+
  8893.     dbra    d2,c72E4
  8894.     bra.b    c7320
  8895.  
  8896. c72EC:    move.w    d1,d0
  8897.     lsr.w    d3,d0
  8898.     add.w    d0,d0
  8899.     lea    (a6,d0.w),a4
  8900.     lsl.w    d7,d1
  8901.     subq.w    #1,d4
  8902. c72FA:    move.w    (a4),d2
  8903.     bne.b    c730C
  8904.     clr.w    (a3,d5.w)
  8905.     clr.w    (a2,d5.w)
  8906.     move.w    d5,(a4)
  8907.     move.w    d5,d2
  8908.     addq.w    #2,d5
  8909. c730C:    add.w    d1,d1
  8910.     bcc.b    c7316
  8911.     lea    (a3,d2.w),a4
  8912.     bra.b    c731A
  8913.  
  8914. c7316:    lea    (a2,d2.w),a4
  8915. c731A:    dbra    d4,c72FA
  8916.     move.w    (a0),(a4)
  8917. c7320:    addq.w    #2,a0
  8918.     dbra    d6,c72B4
  8919.     unlk    a5
  8920.     movem.l    (sp)+,d3-d7/a1/a4/a6
  8921.     rts
  8922.  
  8923. c732E:    movem.l    d3/d4/a1,-(sp)
  8924.     move.w    d0,-(sp)
  8925.     lea    -$80(a6),a0
  8926.     move.l    d7,d4
  8927.     clr.w    d4
  8928.     rol.l    d0,d4
  8929.     lsl.l    d0,d7
  8930.     sub.b    d0,d6
  8931.     bgt.b    c736E
  8932.     beq.b    c7354
  8933.     moveq    #0,d0
  8934.     move.w    (a5)+,d0
  8935.     dbra    d5,c7362
  8936.     bsr.w    c7ADE
  8937.     bra.b    c7362
  8938.  
  8939. c7354:    moveq    #$10,d6
  8940.     move.w    (a5)+,d7
  8941.     dbra    d5,c736E
  8942.     bsr.w    c7ADE
  8943.     bra.b    c736E
  8944.  
  8945. c7362:    neg.b    d6
  8946.     lsl.l    d6,d0
  8947.     or.l    d0,d7
  8948.     neg.b    d6
  8949.     add.b    #$10,d6
  8950. c736E:    tst.w    d4
  8951.     bne.b    c73D4
  8952.     move.w    (sp)+,d4
  8953.     move.l    d7,d3
  8954.     clr.w    d3
  8955.     rol.l    d4,d3
  8956.     lsl.l    d4,d7
  8957.     sub.b    d4,d6
  8958.     bgt.b    c73AA
  8959.     beq.b    c7390
  8960.     moveq    #0,d0
  8961.     move.w    (a5)+,d0
  8962.     dbra    d5,c739E
  8963.     bsr.w    c7ADE
  8964.     bra.b    c739E
  8965.  
  8966. c7390:    moveq    #$10,d6
  8967.     move.w    (a5)+,d7
  8968.     dbra    d5,c73AA
  8969.     bsr.w    c7ADE
  8970.     bra.b    c73AA
  8971.  
  8972. c739E:    neg.b    d6
  8973.     lsl.l    d6,d0
  8974.     or.l    d0,d7
  8975.     neg.b    d6
  8976.     add.b    #$10,d6
  8977. c73AA:    move.l    d1,d0
  8978.     subq.l    #1,d0
  8979. c73AE:    sf    -$300(a0)
  8980.     sf    (a0)+
  8981.     dbra    d0,c73AE
  8982.     lea    l7BC4(pc),a0
  8983.     add.w    d3,d3
  8984.     move.w    (a0,d3.w),d3
  8985.     lea    $24FE(a6),a0
  8986.     move.w    #$FF,d0
  8987. c73CA:    move.w    d3,(a0)+
  8988.     dbra    d0,c73CA
  8989.     bra.w    c74D0
  8990.  
  8991. c73D4:    lea    (a0,d2.w),a1
  8992.     move.w    d1,(sp)
  8993.     sub.w    d2,d1
  8994. c73DC:    move.l    d7,d0
  8995.     swap    d0
  8996.     rol.w    #3,d0
  8997.     move.w    d0,d3
  8998.     and.w    #7,d3
  8999.     cmpi.w    #7,d3
  9000.     beq.b    c7420
  9001.     lsl.l    #3,d7
  9002.     subq.b    #3,d6
  9003.     bgt.b    c741E
  9004.     beq.b    c7404
  9005.     moveq    #0,d0
  9006.     move.w    (a5)+,d0
  9007.     dbra    d5,c7412
  9008.     bsr.w    c7ADE
  9009.     bra.b    c7412
  9010.  
  9011. c7404:    moveq    #$10,d6
  9012.     move.w    (a5)+,d7
  9013.     dbra    d5,c741E
  9014.     bsr.w    c7ADE
  9015.     bra.b    c741E
  9016.  
  9017. c7412:    neg.b    d6
  9018.     lsl.l    d6,d0
  9019.     or.l    d0,d7
  9020.     neg.b    d6
  9021.     add.b    #$10,d6
  9022. c741E:    bra.b    c745C
  9023.  
  9024. c7420:    add.w    d0,d0
  9025.     bcc.b    c7428
  9026.     addq.w    #1,d3
  9027.     bra.b    c7420
  9028.  
  9029. c7428:    move.w    d3,d0
  9030.     subq.w    #3,d0
  9031.     lsl.l    d0,d7
  9032.     sub.b    d0,d6
  9033.     bgt.b    c745C
  9034.     beq.b    c7442
  9035.     moveq    #0,d0
  9036.     move.w    (a5)+,d0
  9037.     dbra    d5,c7450
  9038.     bsr.w    c7ADE
  9039.     bra.b    c7450
  9040.  
  9041. c7442:    moveq    #$10,d6
  9042.     move.w    (a5)+,d7
  9043.     subq.w    #1,d5
  9044.     bpl.b    c745C
  9045.     bsr.w    c7ADE
  9046.     bra.b    c745C
  9047.  
  9048. c7450:    neg.b    d6
  9049.     lsl.l    d6,d0
  9050.     or.l    d0,d7
  9051.     neg.b    d6
  9052.     add.b    #$10,d6
  9053. c745C:    move.b    d3,(a0)+
  9054.     cmpa.l    a0,a1
  9055.     bne.b    c74A0
  9056.     rol.l    #2,d7
  9057.     move.w    d7,d3
  9058.     and.w    #3,d3
  9059.     and.w    #$FFFC,d7
  9060.     subq.b    #2,d6
  9061.     bgt.b    c7496
  9062.     beq.b    c7484
  9063.     moveq    #15,d6
  9064.     moveq    #0,d0
  9065.     move.w    (a5)+,d0
  9066.     dbra    d5,c7492
  9067.     bsr.w    c7ADE
  9068.     bra.b    c7492
  9069.  
  9070. c7484:    moveq    #$10,d6
  9071.     move.w    (a5)+,d7
  9072.     dbra    d5,c7496
  9073.     bsr.w    c7ADE
  9074.     bra.b    c7496
  9075.  
  9076. c7492:    add.l    d0,d0
  9077.     or.l    d0,d7
  9078. c7496:    bra.b    c749C
  9079.  
  9080. c7498:    sf    (a0)+
  9081.     subq.w    #1,d4
  9082. c749C:    dbra    d3,c7498
  9083. c74A0:    subq.w    #1,d4
  9084.     bne.w    c73DC
  9085.     adda.w    d1,a1
  9086. c74A8:    cmpa.l    a1,a0
  9087.     bge.b    c74B0
  9088.     sf    (a0)+
  9089.     bra.b    c74A8
  9090.  
  9091. c74B0:    lea    -$80(a6),a1
  9092.     lea    $24FE(a6),a0
  9093.     move.w    (sp)+,d3
  9094.     move.w    d3,d0
  9095.     moveq    #8,d1
  9096.     bsr.w    c71EC
  9097.     lea    -$380(a6),a0
  9098.     lea    -$80(a6),a1
  9099. c74CA:    move.b    (a1)+,(a0)+
  9100.     dbra    d3,c74CA
  9101. c74D0:    movem.l    (sp)+,d3/d4/a1
  9102.     rts
  9103.  
  9104. c74D6:    movem.l    d3/d4/a1,-(sp)
  9105.     moveq    #9,d2
  9106.     move.l    d7,d4
  9107.     clr.w    d4
  9108.     rol.l    d2,d4
  9109.     lsl.l    d2,d7
  9110.     sub.b    d2,d6
  9111.     bgt.b    c7512
  9112.     beq.b    c74F8
  9113.     moveq    #0,d0
  9114.     move.w    (a5)+,d0
  9115.     dbra    d5,c7506
  9116.     bsr.w    c7ADE
  9117.     bra.b    c7506
  9118.  
  9119. c74F8:    moveq    #$10,d6
  9120.     move.w    (a5)+,d7
  9121.     dbra    d5,c7512
  9122.     bsr.w    c7ADE
  9123.     bra.b    c7512
  9124.  
  9125. c7506:    neg.b    d6
  9126.     lsl.l    d6,d0
  9127.     or.l    d0,d7
  9128.     neg.b    d6
  9129.     add.b    #$10,d6
  9130. c7512:    tst.w    d4
  9131.     bne.b    c7572
  9132.     move.l    d7,d3
  9133.     clr.w    d3
  9134.     rol.l    d2,d3
  9135.     lsl.l    d2,d7
  9136.     sub.b    d2,d6
  9137.     bgt.b    c754C
  9138.     beq.b    c7532
  9139.     moveq    #0,d0
  9140.     move.w    (a5)+,d0
  9141.     dbra    d5,c7540
  9142.     bsr.w    c7ADE
  9143.     bra.b    c7540
  9144.  
  9145. c7532:    moveq    #$10,d6
  9146.     move.w    (a5)+,d7
  9147.     dbra    d5,c754C
  9148.     bsr.w    c7ADE
  9149.     bra.b    c754C
  9150.  
  9151. c7540:    neg.b    d6
  9152.     lsl.l    d6,d0
  9153.     or.l    d0,d7
  9154.     neg.b    d6
  9155.     add.b    #$10,d6
  9156. c754C:    move.w    #$1FD,d2
  9157.     move.l    a1,a0
  9158. c7552:    clr.w    (a0)+
  9159.     dbra    d2,c7552
  9160.     lea    l7BC4(pc),a0
  9161.     add.w    d3,d3
  9162.     move.w    (a0,d3.w),d3
  9163.     move.l    a6,a0
  9164.     move.w    #$FFF,d1
  9165. c7568:    move.w    d3,(a0)+
  9166.     dbra    d1,c7568
  9167.     bra.w    c768C
  9168.  
  9169. c7572:    moveq    #0,d2
  9170. c7574:    cmp.w    d4,d2
  9171.     bge.w    c7672
  9172.     lea    $24FE(a6),a0
  9173.     move.l    d7,d0
  9174.     swap    d0
  9175.     move.b    d0,d1
  9176.     lsr.w    #7,d0
  9177.     and.w    #$1FE,d0
  9178.     move.w    (a0,d0.w),d3
  9179.     bmi.b    c75A2
  9180. c7590:    add.b    d1,d1
  9181.     bcc.b    c759C
  9182.     move.w    (a3,d3.w),d3
  9183.     bpl.b    c7590
  9184.     bra.b    c75A2
  9185.  
  9186. c759C:    move.w    (a2,d3.w),d3
  9187.     bpl.b    c7590
  9188. c75A2:    move.b    -$80(a6,d3.w),d0
  9189.     lsl.l    d0,d7
  9190.     sub.b    d0,d6
  9191.     bgt.b    c75D6
  9192.     beq.b    c75BC
  9193.     moveq    #0,d0
  9194.     move.w    (a5)+,d0
  9195.     dbra    d5,c75CA
  9196.     bsr.w    c7ADE
  9197.     bra.b    c75CA
  9198.  
  9199. c75BC:    moveq    #$10,d6
  9200.     move.w    (a5)+,d7
  9201.     subq.w    #1,d5
  9202.     bpl.b    c75D6
  9203.     bsr.w    c7ADE
  9204.     bra.b    c75D6
  9205.  
  9206. c75CA:    neg.b    d6
  9207.     lsl.l    d6,d0
  9208.     or.l    d0,d7
  9209.     neg.b    d6
  9210.     add.b    #$10,d6
  9211. c75D6:    subq.b    #2,d3
  9212.     bgt.w    c7668
  9213.     bmi.b    c761C
  9214.     moveq    #9,d0
  9215.     move.l    d7,d3
  9216.     clr.w    d3
  9217.     rol.l    d0,d3
  9218.     lsl.l    d0,d7
  9219.     sub.b    d0,d6
  9220.     bgt.b    c7616
  9221.     beq.b    c75FC
  9222.     moveq    #0,d1
  9223.     move.w    (a5)+,d1
  9224.     dbra    d5,c760A
  9225.     bsr.w    c7ADE
  9226.     bra.b    c760A
  9227.  
  9228. c75FC:    moveq    #$10,d6
  9229.     move.w    (a5)+,d7
  9230.     dbra    d5,c7616
  9231.     bsr.w    c7ADE
  9232.     bra.b    c7616
  9233.  
  9234. c760A:    neg.b    d6
  9235.     lsl.l    d6,d1
  9236.     or.l    d1,d7
  9237.     neg.b    d6
  9238.     add.b    #$10,d6
  9239. c7616:    add.w    #$13,d3
  9240.     bra.b    c765A
  9241.  
  9242. c761C:    addq.b    #1,d3
  9243.     bne.b    c7666
  9244.     move.l    d7,d3
  9245.     clr.w    d3
  9246.     rol.l    #4,d3
  9247.     lsl.l    #4,d7
  9248.     sub.b    #4,d6
  9249.     bgt.b    c7658
  9250.     beq.b    c763E
  9251.     moveq    #0,d0
  9252.     move.w    (a5)+,d0
  9253.     dbra    d5,c764C
  9254.     bsr.w    c7ADE
  9255.     bra.b    c764C
  9256.  
  9257. c763E:    moveq    #$10,d6
  9258.     move.w    (a5)+,d7
  9259.     dbra    d5,c7658
  9260.     bsr.w    c7ADE
  9261.     bra.b    c7658
  9262.  
  9263. c764C:    neg.b    d6
  9264.     lsl.l    d6,d0
  9265.     or.l    d0,d7
  9266.     neg.b    d6
  9267.     add.b    #$10,d6
  9268. c7658:    addq.w    #2,d3
  9269. c765A:    sf    (a1,d2.w)
  9270.     addq.w    #1,d2
  9271.     dbra    d3,c765A
  9272.     bra.b    c766E
  9273.  
  9274. c7666:    moveq    #0,d3
  9275. c7668:    move.b    d3,(a1,d2.w)
  9276.     addq.w    #1,d2
  9277. c766E:    bra.w    c7574
  9278.  
  9279. c7672:    cmpi.w    #$1FE,d2
  9280.     bge.b    c7680
  9281.     sf    (a1,d2.w)
  9282.     addq.w    #1,d2
  9283.     bra.b    c7672
  9284.  
  9285. c7680:    move.w    #$1FE,d0
  9286.     moveq    #12,d1
  9287.     move.l    a6,a0
  9288.     bsr.w    c71EC
  9289. c768C:    lea    $2000(a6),a0
  9290.     moveq    #15,d0
  9291. c7692:    move.l    (a1)+,(a0)+
  9292.     move.l    (a1)+,(a0)+
  9293.     move.l    (a1)+,(a0)+
  9294.     move.l    (a1)+,(a0)+
  9295.     dbra    d0,c7692
  9296.     lea    $22FE(a6),a0
  9297.     move.w    #$FF,d0
  9298. c76A6:    move.b    (a1)+,(a0)
  9299.     subq.l    #2,a0
  9300.     dbra    d0,c76A6
  9301.     movem.l    (sp)+,d3/d4/a1
  9302.     rts
  9303.  
  9304. c76B4:    movem.l    d1-d7/a0-a6,-(sp)
  9305.     lea    $13C2(a0),a6
  9306.     move.l    sp,-$13B2(a6)
  9307.     move.l    a4,-$13AE(a6)
  9308.     move.l    -$138A(a6),d0
  9309.     move.l    d0,-$1372(a6)
  9310.     cmp.l    -$1392(a6),d0
  9311.     bge.b    c76D6
  9312.     move.l    d0,-$1392(a6)
  9313. c76D6:    lea    $2300(a6),a1
  9314.     lea    -$136C(a6),a2
  9315.     lea    -$B76(a6),a3
  9316.     move.l    -$139A(a6),a4
  9317.     adda.l    #$2000,a4
  9318.     move.l    -$139E(a6),a5
  9319.     move.l    -$1392(a6),d4
  9320.     move.l    -$1396(a6),d5
  9321.     addq.l    #1,d5
  9322.     lsr.l    #1,d5
  9323.     clr.w    -$1374(a6)
  9324.     clr.l    -$13AA(a6)
  9325.     move.l    (a5)+,d7
  9326.     subq.l    #3,d5
  9327.     bmi.w    c7AC6
  9328.     moveq    #$10,d6
  9329.     bra.b    c778C
  9330.  
  9331. c7712:    swap    d5
  9332.     swap    d7
  9333.     move.w    d7,d0
  9334.     clr.w    d7
  9335.     btst    #4,d6
  9336.     beq.b    c772C
  9337.     move.w    (a5)+,d7
  9338.     dbra    d5,c7746
  9339.     bsr.w    c7ADE
  9340.     bra.b    c7746
  9341.  
  9342. c772C:    moveq    #0,d1
  9343.     move.w    (a5)+,d1
  9344.     dbra    d5,c7738
  9345.     bsr.w    c7ADE
  9346. c7738:    move.w    d6,-(sp)
  9347.     sub.b    #$10,d6
  9348.     neg.b    d6
  9349.     lsl.l    d6,d1
  9350.     move.w    (sp)+,d6
  9351.     or.l    d1,d7
  9352. c7746:    subq.w    #1,d0
  9353.     swap    d5
  9354.     move.w    d0,d5
  9355.     swap    d5
  9356.     move.w    #$FD00,d0
  9357.     move.w    d0,(a2)
  9358.     move.w    d0,(a3)
  9359.     moveq    #$13,d1
  9360.     moveq    #5,d0
  9361.     moveq    #3,d2
  9362.     bsr.w    c732E
  9363.     bsr.w    c74D6
  9364.     moveq    #14,d1
  9365.     moveq    #4,d0
  9366.     moveq    #-1,d2
  9367.     bsr.w    c732E
  9368.     bra.b    c7794
  9369.  
  9370. c7770:    bra.b    c7712
  9371.  
  9372. c7772:    move.l    d7,d0
  9373.     swap    d0
  9374.     lsl.b    #4,d0
  9375. c7778:    add.b    d0,d0
  9376.     bcc.b    c7784
  9377.     move.w    (a3,d1.w),d1
  9378.     bpl.b    c7778
  9379.     bra.b    c77A2
  9380.  
  9381. c7784:    move.w    (a2,d1.w),d1
  9382.     bpl.b    c7778
  9383.     bra.b    c77A2
  9384.  
  9385. c778C:    swap    d5
  9386.     subq.w    #1,d5
  9387.     bcs.b    c7770
  9388.     swap    d5
  9389. c7794:    move.l    d7,d1
  9390.     swap    d1
  9391.     lsr.w    #4,d1
  9392.     add.w    d1,d1
  9393.     move.w    (a6,d1.w),d1
  9394.     bpl.b    c7772
  9395. c77A2:    move.b    (a1,d1.w),d0
  9396.     lsl.l    d0,d7
  9397.     sub.b    d0,d6
  9398.     bgt.b    c77D6
  9399.     beq.b    c77BC
  9400.     moveq    #0,d0
  9401.     move.w    (a5)+,d0
  9402.     dbra    d5,c77CA
  9403.     bsr.w    c7ADE
  9404.     bra.b    c77CA
  9405.  
  9406. c77BC:    moveq    #$10,d6
  9407.     move.w    (a5)+,d7
  9408.     subq.w    #1,d5
  9409.     bpl.b    c77D6
  9410.     bsr.w    c7ADE
  9411.     bra.b    c77D6
  9412.  
  9413. c77CA:    neg.b    d6
  9414.     lsl.l    d6,d0
  9415.     or.l    d0,d7
  9416.     neg.b    d6
  9417.     add.b    #$10,d6
  9418. c77D6:    cmpi.w    #$FE00,d1
  9419.     bcc.b    c7804
  9420.     move.b    d1,(a4)+
  9421.     subq.l    #1,d4
  9422.     bne.b    c778C
  9423.     bsr.w    c7B10
  9424.     bne.b    c778C
  9425.     bra.w    c7AB0
  9426.  
  9427. c77EC:    move.l    d7,d2
  9428.     swap    d2
  9429. c77F0:    add.b    d2,d2
  9430.     bcc.b    c77FC
  9431.     move.w    (a3,d3.w),d3
  9432.     bpl.b    c77F0
  9433.     bra.b    c7816
  9434.  
  9435. c77FC:    move.w    (a2,d3.w),d3
  9436.     bpl.b    c77F0
  9437.     bra.b    c7816
  9438.  
  9439. c7804:    move.l    d7,d3
  9440.     swap    d3
  9441.     lsr.w    #8,d3
  9442.     add.w    d3,d3
  9443.     lea    $24FE(a6),a0
  9444.     move.w    (a0,d3.w),d3
  9445.     bpl.b    c77EC
  9446. c7816:    move.b    -$80(a6,d3.w),d0
  9447.     lsl.l    d0,d7
  9448.     sub.b    d0,d6
  9449.     bgt.b    c784A
  9450.     beq.b    c7830
  9451.     moveq    #0,d0
  9452.     move.w    (a5)+,d0
  9453.     dbra    d5,c783E
  9454.     bsr.w    c7ADE
  9455.     bra.b    c783E
  9456.  
  9457. c7830:    moveq    #$10,d6
  9458.     move.w    (a5)+,d7
  9459.     subq.w    #1,d5
  9460.     bpl.b    c784A
  9461.     bsr.w    c7ADE
  9462.     bra.b    c784A
  9463.  
  9464. c783E:    neg.b    d6
  9465.     lsl.l    d6,d0
  9466.     or.l    d0,d7
  9467.     neg.b    d6
  9468.     add.b    #$10,d6
  9469. c784A:    subq.b    #1,d3
  9470.     bmi.w    c7AA6
  9471.     move.b    d3,d2
  9472.     move.l    d7,d0
  9473.     clr.w    d0
  9474.     rol.l    d3,d0
  9475.     lsl.l    d3,d7
  9476.     sub.b    d3,d6
  9477.     bgt.b    c7888
  9478.     beq.b    c786E
  9479.     moveq    #0,d3
  9480.     move.w    (a5)+,d3
  9481.     dbra    d5,c787C
  9482.     bsr.w    c7ADE
  9483.     bra.b    c787C
  9484.  
  9485. c786E:    moveq    #$10,d6
  9486.     move.w    (a5)+,d7
  9487.     dbra    d5,c7888
  9488.     bsr.w    c7ADE
  9489.     bra.b    c7888
  9490.  
  9491. c787C:    neg.b    d6
  9492.     lsl.l    d6,d3
  9493.     or.l    d3,d7
  9494.     neg.b    d6
  9495.     add.b    #$10,d6
  9496. c7888:    bset    d2,d0
  9497.     not.w    d0
  9498.     lea    (a4,d0.w),a0
  9499.     bra.w    c7AAA
  9500.  
  9501.     move.b    (a0)+,(a4)+
  9502.     move.b    (a0)+,(a4)+
  9503.     move.b    (a0)+,(a4)+
  9504.     move.b    (a0)+,(a4)+
  9505.     move.b    (a0)+,(a4)+
  9506.     move.b    (a0)+,(a4)+
  9507.     move.b    (a0)+,(a4)+
  9508.     move.b    (a0)+,(a4)+
  9509.     move.b    (a0)+,(a4)+
  9510.     move.b    (a0)+,(a4)+
  9511.     move.b    (a0)+,(a4)+
  9512.     move.b    (a0)+,(a4)+
  9513.     move.b    (a0)+,(a4)+
  9514.     move.b    (a0)+,(a4)+
  9515.     move.b    (a0)+,(a4)+
  9516.     move.b    (a0)+,(a4)+
  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. c7A90:    move.b    (a0)+,(a4)+
  9756.     move.b    (a0)+,(a4)+
  9757.     suba.l    d0,a0
  9758.     sub.l    a0,d4
  9759.     bgt.w    c778C
  9760.     bsr.b    c7B10
  9761.     bne.w    c778C
  9762.     bra.b    c7AB0
  9763.  
  9764. c7AA6:    lea    -1(a4),a0
  9765. c7AAA:    move.l    a0,d0
  9766.     jmp    c7A90(pc,d1.w)
  9767.  
  9768. c7AB0:    tst.l    -$1392(a6)
  9769.     beq.b    c7ABA
  9770.     bsr.b    c7B10
  9771. c7ABA:    moveq    #0,d0
  9772. c7ABC:    move.l    -$13B2(a6),sp
  9773.     movem.l    (sp)+,d1-d7/a0-a6
  9774.     rts
  9775.  
  9776. c7AC6:    unlk    a5
  9777.     movem.l    (sp)+,d3-d7/a1/a4/a6
  9778.     moveq    #2,d0
  9779.     bra.b    c7ABC
  9780.  
  9781. c7AD0:    unlk    a5
  9782.     movem.l    (sp)+,d3-d7/a1/a4/a6
  9783.     moveq    #4,d0
  9784.     bra.b    c7ABC
  9785.  
  9786. c7ADA:    moveq    #3,d0
  9787.     bra.b    c7ABC
  9788.  
  9789. c7ADE:    movem.l    d0/d1/d6/d7/a0/a1/a4,-(sp)
  9790.     move.l    -$13AE(a6),a4
  9791.     pea    -$13C2(a6)
  9792.     move.l    -$13C2(a6),a1
  9793.     jsr    (a1)
  9794.     addq.l    #4,sp
  9795.     move.l    -$139E(a6),a5
  9796.     move.l    d5,d1
  9797.     move.l    d0,d5
  9798.     bmi.b    c7ADA
  9799.     addq.l    #1,d5
  9800.     lsr.l    #1,d5
  9801.     subq.l    #1,d5
  9802.     swap    d5
  9803.     swap    d1
  9804.     move.w    d1,d5
  9805.     swap    d5
  9806.     movem.l    (sp)+,d0/d1/d6/d7/a0/a1/a4
  9807.     rts
  9808.  
  9809. c7B10:    movem.l    d0-d3/d5-d7/a0-a3/a5/a6,-(sp)
  9810.     move.l    -$139A(a6),a0
  9811.     adda.w    #$2000,a0
  9812.     move.l    -$1392(a6),d1
  9813.     add.l    d1,-$13AA(a6)
  9814.     move.w    -$1374(a6),d0
  9815.     move.l    -$13B6(a6),a1
  9816.     move.l    a4,-(sp)
  9817.     move.l    -$13AE(a6),a4
  9818.     jsr    (a1)
  9819.     move.l    (sp)+,a4
  9820.     move.w    d0,-$1374(a6)
  9821.     move.l    a4,a2
  9822.     move.l    -$13AE(a6),a4
  9823.     pea    -$13C2(a6)
  9824.     move.l    -$13BE(a6),a1
  9825.     jsr    (a1)
  9826.     tst.l    d0
  9827.     bmi.b    c7ADA
  9828.     move.l    -$1392(a6),d1
  9829.     sub.l    d1,-$1372(a6)
  9830.     bne.b    c7B5E
  9831.     clr.l    -$1392(a6)
  9832.     bra.b    c7BBA
  9833.  
  9834. c7B5E:    move.l    -$13BA(a6),a1
  9835.     jsr    (a1)
  9836.     move.l    a2,a4
  9837.     move.l    -$139A(a6),a0
  9838.     lea    -$2000(a4),a1
  9839.     adda.l    d4,a1
  9840.     move.l    #$2000,d0
  9841.     sub.l    d4,d0
  9842.     divu.w    #$30,d0
  9843.     subq.w    #1,d0
  9844.     bmi.b    c7B98
  9845.     movem.l    d4/a4/a6,-(sp)
  9846. c7B84:    movem.l    (a1)+,d1-d7/a2-a6
  9847.     movem.l    d1-d7/a2-a6,(a0)
  9848.     adda.w    #$30,a0
  9849.     dbra    d0,c7B84
  9850.     movem.l    (sp)+,d4/a4/a6
  9851. c7B98:    swap    d0
  9852.     subq.w    #1,d0
  9853.     bmi.b    c7BA4
  9854. c7B9E:    move.b    (a1)+,(a0)+
  9855.     dbra    d0,c7B9E
  9856. c7BA4:    move.l    -$1372(a6),d0
  9857.     move.l    -$1392(a6),d1
  9858.     cmp.l    d0,d1
  9859.     ble.b    c7BB8
  9860.     move.l    d0,-$1392(a6)
  9861.     add.l    d0,d4
  9862.     bra.b    c7BBA
  9863.  
  9864. c7BB8:    add.l    d1,d4
  9865. c7BBA:    move.l    a0,a4
  9866.     addq.l    #4,sp
  9867.     movem.l    (sp)+,d0-d3/d5-d7/a0-a3/a5/a6
  9868.     rts
  9869.  
  9870. l7BC4:    dc.l    $FD00FD01
  9871.     dc.l    $FD02FD03
  9872.     dc.l    $FD04FD05
  9873.     dc.l    $FD06FD07
  9874.     dc.l    $FD08FD09
  9875.     dc.l    $FD0AFD0B
  9876.     dc.l    $FD0CFD0D
  9877.     dc.l    $FD0EFD0F
  9878.     dc.l    $FD10FD11
  9879.     dc.l    $FD12FD13
  9880.     dc.l    $FD14FD15
  9881.     dc.l    $FD16FD17
  9882.     dc.l    $FD18FD19
  9883.     dc.l    $FD1AFD1B
  9884.     dc.l    $FD1CFD1D
  9885.     dc.l    $FD1EFD1F
  9886.     dc.l    $FD20FD21
  9887.     dc.l    $FD22FD23
  9888.     dc.l    $FD24FD25
  9889.     dc.l    $FD26FD27
  9890.     dc.l    $FD28FD29
  9891.     dc.l    $FD2AFD2B
  9892.     dc.l    $FD2CFD2D
  9893.     dc.l    $FD2EFD2F
  9894.     dc.l    $FD30FD31
  9895.     dc.l    $FD32FD33
  9896.     dc.l    $FD34FD35
  9897.     dc.l    $FD36FD37
  9898.     dc.l    $FD38FD39
  9899.     dc.l    $FD3AFD3B
  9900.     dc.l    $FD3CFD3D
  9901.     dc.l    $FD3EFD3F
  9902.     dc.l    $FD40FD41
  9903.     dc.l    $FD42FD43
  9904.     dc.l    $FD44FD45
  9905.     dc.l    $FD46FD47
  9906.     dc.l    $FD48FD49
  9907.     dc.l    $FD4AFD4B
  9908.     dc.l    $FD4CFD4D
  9909.     dc.l    $FD4EFD4F
  9910.     dc.l    $FD50FD51
  9911.     dc.l    $FD52FD53
  9912.     dc.l    $FD54FD55
  9913.     dc.l    $FD56FD57
  9914.     dc.l    $FD58FD59
  9915.     dc.l    $FD5AFD5B
  9916.     dc.l    $FD5CFD5D
  9917.     dc.l    $FD5EFD5F
  9918.     dc.l    $FD60FD61
  9919.     dc.l    $FD62FD63
  9920.     dc.l    $FD64FD65
  9921.     dc.l    $FD66FD67
  9922.     dc.l    $FD68FD69
  9923.     dc.l    $FD6AFD6B
  9924.     dc.l    $FD6CFD6D
  9925.     dc.l    $FD6EFD6F
  9926.     dc.l    $FD70FD71
  9927.     dc.l    $FD72FD73
  9928.     dc.l    $FD74FD75
  9929.     dc.l    $FD76FD77
  9930.     dc.l    $FD78FD79
  9931.     dc.l    $FD7AFD7B
  9932.     dc.l    $FD7CFD7D
  9933.     dc.l    $FD7EFD7F
  9934.     dc.l    $FD80FD81
  9935.     dc.l    $FD82FD83
  9936.     dc.l    $FD84FD85
  9937.     dc.l    $FD86FD87
  9938.     dc.l    $FD88FD89
  9939.     dc.l    $FD8AFD8B
  9940.     dc.l    $FD8CFD8D
  9941.     dc.l    $FD8EFD8F
  9942.     dc.l    $FD90FD91
  9943.     dc.l    $FD92FD93
  9944.     dc.l    $FD94FD95
  9945.     dc.l    $FD96FD97
  9946.     dc.l    $FD98FD99
  9947.     dc.l    $FD9AFD9B
  9948.     dc.l    $FD9CFD9D
  9949.     dc.l    $FD9EFD9F
  9950.     dc.l    $FDA0FDA1
  9951.     dc.l    $FDA2FDA3
  9952.     dc.l    $FDA4FDA5
  9953.     dc.l    $FDA6FDA7
  9954.     dc.l    $FDA8FDA9
  9955.     dc.l    $FDAAFDAB
  9956.     dc.l    $FDACFDAD
  9957.     dc.l    $FDAEFDAF
  9958.     dc.l    $FDB0FDB1
  9959.     dc.l    $FDB2FDB3
  9960.     dc.l    $FDB4FDB5
  9961.     dc.l    $FDB6FDB7
  9962.     dc.l    $FDB8FDB9
  9963.     dc.l    $FDBAFDBB
  9964.     dc.l    $FDBCFDBD
  9965.     dc.l    $FDBEFDBF
  9966.     dc.l    $FDC0FDC1
  9967.     dc.l    $FDC2FDC3
  9968.     dc.l    $FDC4FDC5
  9969.     dc.l    $FDC6FDC7
  9970.     dc.l    $FDC8FDC9
  9971.     dc.l    $FDCAFDCB
  9972.     dc.l    $FDCCFDCD
  9973.     dc.l    $FDCEFDCF
  9974.     dc.l    $FDD0FDD1
  9975.     dc.l    $FDD2FDD3
  9976.     dc.l    $FDD4FDD5
  9977.     dc.l    $FDD6FDD7
  9978.     dc.l    $FDD8FDD9
  9979.     dc.l    $FDDAFDDB
  9980.     dc.l    $FDDCFDDD
  9981.     dc.l    $FDDEFDDF
  9982.     dc.l    $FDE0FDE1
  9983.     dc.l    $FDE2FDE3
  9984.     dc.l    $FDE4FDE5
  9985.     dc.l    $FDE6FDE7
  9986.     dc.l    $FDE8FDE9
  9987.     dc.l    $FDEAFDEB
  9988.     dc.l    $FDECFDED
  9989.     dc.l    $FDEEFDEF
  9990.     dc.l    $FDF0FDF1
  9991.     dc.l    $FDF2FDF3
  9992.     dc.l    $FDF4FDF5
  9993.     dc.l    $FDF6FDF7
  9994.     dc.l    $FDF8FDF9
  9995.     dc.l    $FDFAFDFB
  9996.     dc.l    $FDFCFDFD
  9997.     dc.l    $FDFEFDFF
  9998.     dc.l    $FFFEFFFC
  9999.     dc.l    $FFFAFFF8
  10000.     dc.l    $FFF6FFF4
  10001.     dc.l    $FFF2FFF0
  10002.     dc.l    $FFEEFFEC
  10003.     dc.l    $FFEAFFE8
  10004.     dc.l    $FFE6FFE4
  10005.     dc.l    $FFE2FFE0
  10006.     dc.l    $FFDEFFDC
  10007.     dc.l    $FFDAFFD8
  10008.     dc.l    $FFD6FFD4
  10009.     dc.l    $FFD2FFD0
  10010.     dc.l    $FFCEFFCC
  10011.     dc.l    $FFCAFFC8
  10012.     dc.l    $FFC6FFC4
  10013.     dc.l    $FFC2FFC0
  10014.     dc.l    $FFBEFFBC
  10015.     dc.l    $FFBAFFB8
  10016.     dc.l    $FFB6FFB4
  10017.     dc.l    $FFB2FFB0
  10018.     dc.l    $FFAEFFAC
  10019.     dc.l    $FFAAFFA8
  10020.     dc.l    $FFA6FFA4
  10021.     dc.l    $FFA2FFA0
  10022.     dc.l    $FF9EFF9C
  10023.     dc.l    $FF9AFF98
  10024.     dc.l    $FF96FF94
  10025.     dc.l    $FF92FF90
  10026.     dc.l    $FF8EFF8C
  10027.     dc.l    $FF8AFF88
  10028.     dc.l    $FF86FF84
  10029.     dc.l    $FF82FF80
  10030.     dc.l    $FF7EFF7C
  10031.     dc.l    $FF7AFF78
  10032.     dc.l    $FF76FF74
  10033.     dc.l    $FF72FF70
  10034.     dc.l    $FF6EFF6C
  10035.     dc.l    $FF6AFF68
  10036.     dc.l    $FF66FF64
  10037.     dc.l    $FF62FF60
  10038.     dc.l    $FF5EFF5C
  10039.     dc.l    $FF5AFF58
  10040.     dc.l    $FF56FF54
  10041.     dc.l    $FF52FF50
  10042.     dc.l    $FF4EFF4C
  10043.     dc.l    $FF4AFF48
  10044.     dc.l    $FF46FF44
  10045.     dc.l    $FF42FF40
  10046.     dc.l    $FF3EFF3C
  10047.     dc.l    $FF3AFF38
  10048.     dc.l    $FF36FF34
  10049.     dc.l    $FF32FF30
  10050.     dc.l    $FF2EFF2C
  10051.     dc.l    $FF2AFF28
  10052.     dc.l    $FF26FF24
  10053.     dc.l    $FF22FF20
  10054.     dc.l    $FF1EFF1C
  10055.     dc.l    $FF1AFF18
  10056.     dc.l    $FF16FF14
  10057.     dc.l    $FF12FF10
  10058.     dc.l    $FF0EFF0C
  10059.     dc.l    $FF0AFF08
  10060.     dc.l    $FF06FF04
  10061.     dc.l    $FF02FF00
  10062.     dc.l    $FEFEFEFC
  10063.     dc.l    $FEFAFEF8
  10064.     dc.l    $FEF6FEF4
  10065.     dc.l    $FEF2FEF0
  10066.     dc.l    $FEEEFEEC
  10067.     dc.l    $FEEAFEE8
  10068.     dc.l    $FEE6FEE4
  10069.     dc.l    $FEE2FEE0
  10070.     dc.l    $FEDEFEDC
  10071.     dc.l    $FEDAFED8
  10072.     dc.l    $FED6FED4
  10073.     dc.l    $FED2FED0
  10074.     dc.l    $FECEFECC
  10075.     dc.l    $FECAFEC8
  10076.     dc.l    $FEC6FEC4
  10077.     dc.l    $FEC2FEC0
  10078.     dc.l    $FEBEFEBC
  10079.     dc.l    $FEBAFEB8
  10080.     dc.l    $FEB6FEB4
  10081.     dc.l    $FEB2FEB0
  10082.     dc.l    $FEAEFEAC
  10083.     dc.l    $FEAAFEA8
  10084.     dc.l    $FEA6FEA4
  10085.     dc.l    $FEA2FEA0
  10086.     dc.l    $FE9EFE9C
  10087.     dc.l    $FE9AFE98
  10088.     dc.l    $FE96FE94
  10089.     dc.l    $FE92FE90
  10090.     dc.l    $FE8EFE8C
  10091.     dc.l    $FE8AFE88
  10092.     dc.l    $FE86FE84
  10093.     dc.l    $FE82FE80
  10094.     dc.l    $FE7EFE7C
  10095.     dc.l    $FE7AFE78
  10096.     dc.l    $FE76FE74
  10097.     dc.l    $FE72FE70
  10098.     dc.l    $FE6EFE6C
  10099.     dc.l    $FE6AFE68
  10100.     dc.l    $FE66FE64
  10101.     dc.l    $FE62FE60
  10102.     dc.l    $FE5EFE5C
  10103.     dc.l    $FE5AFE58
  10104.     dc.l    $FE56FE54
  10105.     dc.l    $FE52FE50
  10106.     dc.l    $FE4EFE4C
  10107.     dc.l    $FE4AFE48
  10108.     dc.l    $FE46FE44
  10109.     dc.l    $FE42FE40
  10110.     dc.l    $FE3EFE3C
  10111.     dc.l    $FE3AFE38
  10112.     dc.l    $FE36FE34
  10113.     dc.l    $FE32FE30
  10114.     dc.l    $FE2EFE2C
  10115.     dc.l    $FE2AFE28
  10116.     dc.l    $FE26FE24
  10117.     dc.l    $FE22FE20
  10118.     dc.l    $FE1EFE1C
  10119.     dc.l    $FE1AFE18
  10120.     dc.l    $FE16FE14
  10121.     dc.l    $FE12FE10
  10122.     dc.l    $FE0EFE0C
  10123.     dc.l    $FE0AFE08
  10124.     dc.l    $FE06FE04
  10125.     dc.l    $FE02FE00
  10126.  
  10127. c7FC4:    moveq    #0,d6
  10128.     move.l    a5,a0
  10129.     adda.l    #$8002,a0
  10130.     move.w    #$7FF,d0
  10131.     move.l    #$40004000,d1
  10132. c7FD8:    move.l    d1,(a0)+
  10133.     move.l    d1,(a0)+
  10134.     move.l    d1,(a0)+
  10135.     move.l    d1,(a0)+
  10136.     dbra    d0,c7FD8
  10137.     move.l    a4,a0
  10138.     move.l    a5,a1
  10139.     move.w    #$7FF,d0
  10140. c7FEC:    move.l    d1,(a0)+
  10141.     move.l    d1,(a0)+
  10142.     move.l    d1,(a0)+
  10143.     move.l    d1,(a0)+
  10144.     dbra    d0,c7FEC
  10145.     move.w    d1,(a0)+
  10146.     move.l    a5,a0
  10147.     move.w    #$1F,d0
  10148. c8000:    move.l    d1,(a0)+
  10149.     move.l    d1,(a0)+
  10150.     move.l    d1,(a0)+
  10151.     move.l    d1,(a0)+
  10152.     dbra    d0,c8000
  10153.     rts
  10154.  
  10155. c800E:    movem.l    d5-d7,-(sp)
  10156.     moveq    #2,d4
  10157.     lea    (a6,d7.w),a2
  10158.     move.w    d1,d7
  10159.     moveq    #0,d6
  10160.     move.w    d0,d6
  10161.     move.b    (a2),d5
  10162.     move.b    1(a2),d2
  10163.     move.b    2(a2),d1
  10164. c8028:    lea    (a6,d6.w),a0
  10165.     cmp.b    (a0,d4.w),d1
  10166.     bne.b    c8068
  10167.     cmp.b    -1(a0,d4.w),d2
  10168.     bne.b    c8068
  10169.     cmp.b    (a0)+,d5
  10170.     bne.b    c8068
  10171.     lea    2(a2),a1
  10172.     addq.w    #1,a0
  10173.     move.w    #$FD,d0
  10174. c8046:    cmpm.b    (a0)+,(a1)+
  10175.     dbne    d0,c8046
  10176.     not.w    d0
  10177.     addi.w    #$100,d0
  10178.     cmp.w    d4,d0
  10179.     ble.b    c8068
  10180.     move.w    d6,d3
  10181.     move.w    d0,d4
  10182.     cmp.w    #$100,d0
  10183.     beq.b    c8078
  10184.     move.b    (a2,d4.w),d1
  10185.     move.b    -1(a2,d4.w),d2
  10186. c8068:    subq.w    #1,d7
  10187.     beq.b    c8078
  10188.     add.w    d6,d6
  10189.     move.w    (a5,d6.l),d6
  10190.     cmp.w    #$4000,d6
  10191.     bne.b    c8028
  10192. c8078:    movem.l    (sp)+,d5-d7
  10193.     rts
  10194.  
  10195. c807E:    movem.l    d5-d7,-(sp)
  10196.     moveq    #2,d4
  10197.     lea    (a6,d7.w),a2
  10198.     move.w    d1,d7
  10199.     moveq    #0,d6
  10200.     move.w    d0,d6
  10201.     move.b    (a2),d5
  10202.     move.b    1(a2),d2
  10203.     move.b    2(a2),d1
  10204. c8098:    lea    (a6,d6.w),a0
  10205.     cmp.b    (a0,d4.w),d1
  10206.     bne.b    c80D8
  10207.     cmp.b    -1(a0,d4.w),d2
  10208.     bne.b    c80D8
  10209.     cmp.b    (a0)+,d5
  10210.     bne.b    c80D8
  10211.     lea    2(a2),a1
  10212.     addq.w    #1,a0
  10213.     move.w    #$39,d0
  10214. c80B6:    cmpm.b    (a0)+,(a1)+
  10215.     dbne    d0,c80B6
  10216.     not.w    d0
  10217.     addi.w    #$3C,d0
  10218.     cmp.w    d4,d0
  10219.     ble.b    c80D8
  10220.     move.w    d6,d3
  10221.     move.w    d0,d4
  10222.     cmp.w    #$3C,d0
  10223.     beq.b    c80E8
  10224.     move.b    (a2,d4.w),d1
  10225.     move.b    -1(a2,d4.w),d2
  10226. c80D8:    subq.w    #1,d7
  10227.     beq.b    c80E8
  10228.     add.w    d6,d6
  10229.     move.w    (a5,d6.l),d6
  10230.     cmp.w    #$4000,d6
  10231.     bne.b    c8098
  10232. c80E8:    movem.l    (sp)+,d5-d7
  10233.     rts
  10234.  
  10235. c80EE:    movem.l    d0-d2/a0-a2,-(sp)
  10236.     cmp.w    #$1000,d7
  10237.     beq.b    c812A
  10238.     cmp.w    #$2000,d7
  10239.     beq.b    c8130
  10240.     cmp.w    #$3000,d7
  10241.     beq.b    c8136
  10242.     cmp.w    #$4000,d7
  10243.     bne.b    c816A
  10244.     lea    $100(a6),a0
  10245.     clr.w    d7
  10246. c8110:    move.l    -$74(a6),a2
  10247.     move.l    #$1000,d0
  10248.     lea    -$74(a6),a1
  10249.     move.l    a4,-(sp)
  10250.     move.l    -$60(a6),a4
  10251.     jsr    (a2)
  10252.     move.l    (sp)+,a4
  10253.     bra.b    c8168
  10254.  
  10255. c812A:    lea    $1100(a6),a0
  10256.     bra.b    c8110
  10257.  
  10258. c8130:    lea    $2100(a6),a0
  10259.     bra.b    c8110
  10260.  
  10261. c8136:    move.l    -$74(a6),a2
  10262.     lea    $3100(a6),a0
  10263.     move.l    #$1000,d0
  10264.     lea    -$74(a6),a1
  10265.     move.l    a4,-(sp)
  10266.     move.l    -$60(a6),a4
  10267.     jsr    (a2)
  10268.     move.l    (sp)+,a4
  10269.     move.l    a6,a0
  10270.     lea    $4000(a6),a1
  10271.     moveq    #$1F,d1
  10272.     move.b    -1(a1),-1(a0)
  10273. c8160:    move.l    (a1)+,(a0)+
  10274.     move.l    (a1)+,(a0)+
  10275.     dbra    d1,c8160
  10276. c8168:    add.w    d0,d5
  10277. c816A:    movem.l    (sp)+,d0-d2/a0-a2
  10278.     rts
  10279.  
  10280. c8170:    movem.l    d0-d2/a0-a2,-(sp)
  10281.     subq.w    #1,d5
  10282.     addq.w    #1,d7
  10283.     move.w    d7,d0
  10284.     andi.w    #$FFF,d0
  10285.     bne.b    c8184
  10286.     bsr.w    c80EE
  10287. c8184:    lsl.w    #5,d6
  10288.     move.b    2(a6,d7.w),d2
  10289.     eor.b    d2,d6
  10290.     andi.w    #$3FFF,d6
  10291.     move.w    d7,d1
  10292.     add.w    d1,d1
  10293.     moveq    #0,d2
  10294.     move.w    d6,d2
  10295.     add.w    d2,d2
  10296.     addi.l    #$8002,d2
  10297.     move.w    (a5,d2.l),d0
  10298.     move.w    d0,(a5,d1.w)
  10299.     move.w    d7,(a5,d2.l)
  10300.     asr.l    #1,d2
  10301.     move.w    d2,(a4,d1.w)
  10302.     move.w    d0,d2
  10303.     add.w    d2,d2
  10304.     move.w    d7,(a4,d2.l)
  10305.     swap    d7
  10306.     addq.w    #1,d7
  10307.     andi.w    #$3FFF,d7
  10308.     moveq    #0,d0
  10309.     move.w    d7,d0
  10310.     add.w    d0,d0
  10311.     move.w    (a4,d0.w),d0
  10312.     add.l    d0,d0
  10313.     move.w    #$4000,(a5,d0.l)
  10314.     swap    d7
  10315.     movem.l    (sp)+,d0-d2/a0-a2
  10316.     rts
  10317.  
  10318. c81DC:    movem.l    d0-d2/a0-a2,-(sp)
  10319.     subq.w    #1,d5
  10320.     addq.w    #1,d7
  10321.     move.w    d7,d0
  10322.     andi.w    #$FFF,d0
  10323.     bne.b    c81F0
  10324.     bsr.w    c80EE
  10325. c81F0:    lsl.w    #5,d6
  10326.     move.b    2(a6,d7.w),d2
  10327.     eor.b    d2,d6
  10328.     andi.w    #$3FFF,d6
  10329.     move.w    d7,d1
  10330.     add.w    d1,d1
  10331.     moveq    #0,d2
  10332.     move.w    d6,d2
  10333.     add.w    d2,d2
  10334.     addi.l    #$8002,d2
  10335.     move.w    (a5,d2.l),d0
  10336.     move.w    d0,(a5,d1.w)
  10337.     move.w    d7,(a5,d2.l)
  10338.     asr.l    #1,d2
  10339.     move.w    d2,(a4,d1.w)
  10340.     move.w    d0,d2
  10341.     add.w    d2,d2
  10342.     move.w    d7,(a4,d2.l)
  10343.     moveq    #0,d4
  10344.     cmp.w    #$4000,d0
  10345.     beq.b    c8236
  10346.     move.w    -$1C(a6),d1
  10347.     bsr.w    c800E
  10348. c8236:    swap    d7
  10349.     addq.w    #1,d7
  10350.     andi.w    #$3FFF,d7
  10351.     moveq    #0,d0
  10352.     move.w    d7,d0
  10353.     add.w    d0,d0
  10354.     move.w    (a4,d0.w),d0
  10355.     add.l    d0,d0
  10356.     move.w    #$4000,(a5,d0.l)
  10357.     swap    d7
  10358.     movem.l    (sp)+,d0-d2/a0-a2
  10359.     rts
  10360.  
  10361. c8258:    movem.l    d0-d2/a0-a2,-(sp)
  10362.     subq.w    #1,d5
  10363.     addq.w    #1,d7
  10364.     move.w    d7,d0
  10365.     andi.w    #$FFF,d0
  10366.     bne.b    c826C
  10367.     bsr.w    c80EE
  10368. c826C:    lsl.w    #5,d6
  10369.     move.b    2(a6,d7.w),d2
  10370.     eor.b    d2,d6
  10371.     andi.w    #$3FFF,d6
  10372.     move.w    d7,d1
  10373.     add.w    d1,d1
  10374.     moveq    #0,d2
  10375.     move.w    d6,d2
  10376.     add.w    d2,d2
  10377.     addi.l    #$8002,d2
  10378.     move.w    (a5,d2.l),d0
  10379.     move.w    d0,(a5,d1.w)
  10380.     move.w    d7,(a5,d2.l)
  10381.     asr.l    #1,d2
  10382.     move.w    d2,(a4,d1.w)
  10383.     move.w    d0,d2
  10384.     add.w    d2,d2
  10385.     move.w    d7,(a4,d2.l)
  10386.     moveq    #0,d4
  10387.     cmp.w    #$4000,d0
  10388.     beq.b    c82B2
  10389.     move.w    -$1C(a6),d1
  10390.     bsr.w    c807E
  10391. c82B2:    swap    d7
  10392.     addq.w    #1,d7
  10393.     andi.w    #$3FFF,d7
  10394.     moveq    #0,d0
  10395.     move.w    d7,d0
  10396.     add.w    d0,d0
  10397.     move.w    (a4,d0.w),d0
  10398.     add.l    d0,d0
  10399.     move.w    #$4000,(a5,d0.l)
  10400.     swap    d7
  10401.     movem.l    (sp)+,d0-d2/a0-a2
  10402.     rts
  10403.  
  10404. c82D4:    movem.l    d2-d7/a2-a6,-(sp)
  10405.     lea    $74(a0),a6
  10406.     move.l    a4,-$60(a6)
  10407.     move.l    sp,-$64(a6)
  10408.     move.l    -$14(a6),a4
  10409.     move.l    -$10(a6),a5
  10410.     bsr.w    c7FC4
  10411.     clr.w    -$24(a6)
  10412.     move.w    #$100,d7
  10413.     swap    d7
  10414.     move.w    #$4100,d7
  10415.     sub.w    -$22(a6),d7
  10416.     swap    d7
  10417.     move.l    -$74(a6),a2
  10418.     lea    $100(a6),a0
  10419.     move.l    #$1000,d0
  10420.     lea    -$74(a6),a1
  10421.     move.l    a4,-(sp)
  10422.     move.l    -$60(a6),a4
  10423.     jsr    (a2)
  10424.     move.l    (sp)+,a4
  10425.     move.l    d0,d5
  10426.     swap    d5
  10427.     move.w    -$20(a6),d5
  10428.     swap    d5
  10429.     move.w    -$18(a6),d0
  10430.     cmp.w    #1,d0
  10431.     beq.b    c8340
  10432.     cmp.w    #5,d0
  10433.     beq.b    c83A0
  10434.     moveq    #$63,d0
  10435.     bra.w    c84FE
  10436.  
  10437. c8340:    move.w    #$1F,d0
  10438.     move.l    a6,a0
  10439.     move.l    #$20202020,d1
  10440. c834C:    move.l    d1,(a0)+
  10441.     move.l    d1,(a0)+
  10442.     dbra    d0,c834C
  10443.     move.w    #$C4,d0
  10444.     move.w    #$420,d6
  10445. c835C:    lsl.w    #5,d6
  10446.     move.b    2(a6,d0.w),d3
  10447.     eor.b    d3,d6
  10448.     andi.w    #$3FFF,d6
  10449.     move.w    d0,d2
  10450.     add.w    d2,d2
  10451.     moveq    #0,d3
  10452.     move.w    d6,d3
  10453.     add.w    d3,d3
  10454.     addi.l    #$8002,d3
  10455.     move.w    (a5,d3.l),d1
  10456.     move.w    d1,(a5,d2.w)
  10457.     move.w    d0,(a5,d3.l)
  10458.     asr.l    #1,d3
  10459.     move.w    d3,(a4,d2.w)
  10460.     move.w    d1,d3
  10461.     add.w    d3,d3
  10462.     move.w    d0,(a4,d3.l)
  10463.     addq.w    #1,d0
  10464.     cmp.w    #$100,d0
  10465.     bne.b    c835C
  10466.     lea    c8258(pc),a2
  10467.     bra.b    c83C0
  10468.  
  10469. c83A0:    move.w    #$1F,d0
  10470.     move.l    a6,a0
  10471. c83A6:    clr.l    (a0)+
  10472.     clr.l    (a0)+
  10473.     dbra    d0,c83A6
  10474.     lea    c81DC(pc),a2
  10475.     moveq    #0,d6
  10476.     move.b    (a0)+,d6
  10477.     lsl.w    #5,d6
  10478.     move.b    (a0)+,d1
  10479.     eor.b    d1,d6
  10480.     andi.w    #$3FFF,d6
  10481. c83C0:    lsl.w    #5,d6
  10482.     move.b    2(a6,d7.w),d3
  10483.     eor.b    d3,d6
  10484.     andi.w    #$3FFF,d6
  10485.     move.w    d7,d2
  10486.     add.w    d2,d2
  10487.     moveq    #0,d3
  10488.     move.w    d6,d3
  10489.     add.w    d3,d3
  10490.     addi.l    #$8002,d3
  10491.     move.w    (a5,d3.l),d1
  10492.     move.w    d1,(a5,d2.w)
  10493.     move.w    d7,(a5,d3.l)
  10494.     asr.l    #1,d3
  10495.     move.w    d3,(a4,d2.w)
  10496.     move.w    d1,d3
  10497.     add.w    d3,d3
  10498.     move.w    d7,(a4,d3.l)
  10499.     moveq    #0,d4
  10500.     move.l    -12(a6),a1
  10501.     moveq    #0,d0
  10502. c83FE:    move.l    d4,d2
  10503.     move.l    d3,d1
  10504.     jsr    (a2)
  10505.     cmp.w    d5,d4
  10506.     ble.b    c840A
  10507.     move.w    d5,d4
  10508. c840A:    cmp.w    #3,d2
  10509.     blt.b    c8414
  10510.     cmp.w    d2,d4
  10511.     ble.b    c845E
  10512. c8414:    swap    d5
  10513.     lsr.b    #1,d0
  10514.     bne.b    c8454
  10515.     move.b    #$80,d0
  10516.     cmp.w    #$1C,d5
  10517.     bhi.b    c844E
  10518.     movem.l    d0/d1/a0/a1,-(sp)
  10519.     move.l    -8(a6),a1
  10520.     moveq    #0,d0
  10521.     move.w    -$20(a6),d0
  10522.     sub.w    d5,d0
  10523.     lea    -$74(a6),a0
  10524.     move.l    a4,-(sp)
  10525.     move.l    -$60(a6),a4
  10526.     jsr    (a1)
  10527.     move.l    (sp)+,a4
  10528.     movem.l    (sp)+,d0/d1/a0/a1
  10529.     move.w    -$20(a6),d5
  10530.     move.l    -12(a6),a1
  10531. c844E:    move.l    a1,a0
  10532.     sf    (a1)+
  10533.     subq.w    #1,d5
  10534. c8454:    move.b    -1(a6,d7.w),(a1)+
  10535.     subq.w    #1,d5
  10536.     swap    d5
  10537.     bra.b    c84C8
  10538.  
  10539. c845E:    swap    d5
  10540.     lsr.b    #1,d0
  10541.     bne.b    c849E
  10542.     move.b    #$80,d0
  10543.     cmp.w    #$1C,d5
  10544.     bhi.b    c8498
  10545.     movem.l    d0/d1/a0/a1,-(sp)
  10546.     move.l    -8(a6),a1
  10547.     moveq    #0,d0
  10548.     move.w    -$20(a6),d0
  10549.     sub.w    d5,d0
  10550.     lea    -$74(a6),a0
  10551.     move.l    a4,-(sp)
  10552.     move.l    -$60(a6),a4
  10553.     jsr    (a1)
  10554.     move.l    (sp)+,a4
  10555.     movem.l    (sp)+,d0/d1/a0/a1
  10556.     move.w    -$20(a6),d5
  10557.     move.l    -12(a6),a1
  10558. c8498:    move.l    a1,a0
  10559.     sf    (a1)+
  10560.     subq.w    #1,d5
  10561. c849E:    or.b    d0,(a0)
  10562.     subq.w    #3,d2
  10563.     move.b    d2,(a1)+
  10564.     sub.w    d7,d1
  10565.     neg.w    d1
  10566.     subq.w    #2,d1
  10567.     andi.w    #$3FFF,d1
  10568.     move.b    d1,(a1)+
  10569.     lsr.w    #8,d1
  10570.     move.b    d1,(a1)+
  10571.     subq.w    #3,d5
  10572.     swap    d5
  10573. c84B8:    bsr.w    c8170
  10574.     dbra    d2,c84B8
  10575.     jsr    (a2)
  10576.     cmp.w    d5,d4
  10577.     ble.b    c84C8
  10578.     move.w    d5,d4
  10579. c84C8:    tst.w    d5
  10580.     ble.b    c84D4
  10581.     tst.w    -$24(a6)
  10582.     beq.w    c83FE
  10583. c84D4:    movem.l    d0/d1/a0/a1,-(sp)
  10584.     swap    d5
  10585.     move.l    -8(a6),a1
  10586.     moveq    #0,d0
  10587.     move.w    -$20(a6),d0
  10588.     sub.w    d5,d0
  10589.     beq.b    c84F6
  10590.     lea    -$74(a6),a0
  10591.     move.l    a4,-(sp)
  10592.     move.l    -$60(a6),a4
  10593.     jsr    (a1)
  10594.     move.l    (sp)+,a4
  10595. c84F6:    swap    d5
  10596.     movem.l    (sp)+,d0/d1/a0/a1
  10597.     moveq    #0,d0
  10598. c84FE:    move.l    -$64(a6),sp
  10599.     movem.l    (sp)+,d2-d7/a2-a6
  10600.     rts
  10601.  
  10602. c8508:    lea    $74(a0),a6
  10603.     moveq    #1,d0
  10604.     bra.b    c84FE
  10605.  
  10606. c8510:    link.w    a5,#-4
  10607.     move.l    d7,-(sp)
  10608.     move.l    d0,d7
  10609.     cmp.l    $A94(a4),d7
  10610.     bge.b    c8536
  10611.     move.l    $2E8(a4),d0
  10612.     moveq    #$10,d1
  10613.     cmp.l    d1,d0
  10614.     blt.b    c852A
  10615.     move.l    d1,d0
  10616. c852A:    add.l    d0,d0
  10617.     move.l    $AA8(a4),a0
  10618.     adda.l    d0,a0
  10619.     addq.w    #1,(a0)
  10620.     bra.b    c8564
  10621.  
  10622. c8536:    addq.l    #1,$2E8(a4)
  10623.     move.l    d7,d0
  10624.     add.l    d0,d0
  10625.     move.l    $A68(a4),a0
  10626.     adda.l    d0,a0
  10627.     moveq    #0,d1
  10628.     move.w    (a0),d1
  10629.     move.l    d0,4(sp)
  10630.     move.l    d1,d0
  10631.     bsr.b    c8510
  10632.     move.l    4(sp),d0
  10633.     move.l    $A6C(a4),a0
  10634.     adda.l    d0,a0
  10635.     moveq    #0,d0
  10636.     move.w    (a0),d0
  10637.     bsr.b    c8510
  10638.     subq.l    #1,$2E8(a4)
  10639. c8564:    move.l    (sp)+,d7
  10640.     unlk    a5
  10641.     rts
  10642.  
  10643. c856A:    movem.l    d5-d7/a2/a3,-(sp)
  10644.     move.l    d0,d7
  10645.     move.l    $AA8(a4),a3
  10646.     lea    $20(a3),a2
  10647.     bra.b    c857C
  10648.  
  10649. c857A:    clr.w    (a3)+
  10650. c857C:    cmpa.l    a2,a3
  10651.     bls.b    c857A
  10652.     move.l    d7,d0
  10653.     bsr.b    c8510
  10654.     moveq    #0,d7
  10655.     moveq    #$10,d6
  10656.     move.l    a2,a3
  10657.     bra.b    c859C
  10658.  
  10659. c858C:    moveq    #$10,d0
  10660.     sub.l    d6,d0
  10661.     moveq    #0,d1
  10662.     move.w    (a3),d1
  10663.     asl.l    d0,d1
  10664.     add.l    d1,d7
  10665.     subq.l    #1,d6
  10666.     subq.l    #2,a3
  10667. c859C:    tst.l    d6
  10668.     bgt.b    c858C
  10669.     bra.b    c85C6
  10670.  
  10671. c85A2:    move.l    $AA8(a4),a0
  10672.     subq.w    #1,$20(a0)
  10673.     lea    $1E(a0),a3
  10674.     bra.b    c85BE
  10675.  
  10676. c85B0:    move.w    (a3),d0
  10677.     beq.b    c85BC
  10678.     subq.w    #1,(a3)
  10679.     addq.w    #2,2(a3)
  10680.     bra.b    c85C4
  10681.  
  10682. c85BC:    subq.l    #2,a3
  10683. c85BE:    cmpa.l    $AA8(a4),a3
  10684.     bhi.b    c85B0
  10685. c85C4:    subq.l    #1,d7
  10686. c85C6:    cmpi.l    #$10000,d7
  10687.     bne.b    c85A2
  10688.     moveq    #$10,d7
  10689.     moveq    #$20,d6
  10690.     bra.b    c8602
  10691.  
  10692. c85D4:    move.l    $AA8(a4),a0
  10693.     adda.l    d6,a0
  10694.     moveq    #0,d5
  10695.     move.w    (a0),d5
  10696.     bra.b    c85FA
  10697.  
  10698. c85E0:    move.l    $AAC(a4),a0
  10699.     moveq    #0,d0
  10700.     move.l    $AA4(a4),a1
  10701.     move.w    (a1)+,d0
  10702.     move.l    a1,$AA4(a4)
  10703.     adda.l    d0,a0
  10704.     move.l    a1,$AA4(a4)
  10705.     move.l    d7,d0
  10706.     move.b    d0,(a0)
  10707. c85FA:    subq.l    #1,d5
  10708.     bge.b    c85E0
  10709.     subq.l    #1,d7
  10710.     subq.l    #2,d6
  10711. c8602:    tst.l    d7
  10712.     bgt.b    c85D4
  10713.     movem.l    (sp)+,d5-d7/a2/a3
  10714.     rts
  10715.  
  10716. c860C:    movem.l    d6/d7/a2/a3/a6,-(sp)
  10717.     move.l    d0,d7
  10718.     move.l    d7,d0
  10719.     add.l    d0,d0
  10720.     move.l    $A9C(a4),a0
  10721.     adda.l    d0,a0
  10722.     move.w    (a0),d6
  10723.     ext.l    d6
  10724.     bra.b    c8684
  10725.  
  10726. c8622:    cmp.l    $A98(a4),d7
  10727.     bge.b    c865A
  10728.     move.l    d7,d0
  10729.     add.l    d0,d0
  10730.     move.l    $A9C(a4),a0
  10731.     move.l    a0,a1
  10732.     adda.l    d0,a1
  10733.     move.w    2(a1),d0
  10734.     ext.l    d0
  10735.     add.l    d0,d0
  10736.     move.l    $AA0(a4),a6
  10737.     adda.l    d0,a6
  10738.     move.w    (a6),d0
  10739.     move.w    (a1),d1
  10740.     ext.l    d1
  10741.     add.l    d1,d1
  10742.     move.l    $AA0(a4),a1
  10743.     move.l    a1,a6
  10744.     adda.l    d1,a6
  10745.     move.w    (a6),d1
  10746.     cmp.w    d0,d1
  10747.     bls.b    c865A
  10748.     addq.l    #1,d7
  10749. c865A:    move.l    d7,d0
  10750.     add.l    d0,d0
  10751.     move.l    $A9C(a4),a0
  10752.     adda.l    d0,a0
  10753.     move.l    a0,a3
  10754.     move.w    (a3),d0
  10755.     ext.l    d0
  10756.     add.l    d0,d0
  10757.     move.l    $AA0(a4),a0
  10758.     move.l    a0,a1
  10759.     adda.l    d0,a1
  10760.     move.w    (a1),d0
  10761.     move.l    d6,d1
  10762.     add.l    d1,d1
  10763.     adda.l    d1,a0
  10764.     move.w    (a0),d1
  10765.     cmp.w    d0,d1
  10766.     bls.b    c8694
  10767.     move.w    (a3),(a2)
  10768. c8684:    add.l    d7,d7
  10769.     move.l    $A9C(a4),a0
  10770.     adda.l    d7,a0
  10771.     move.l    a0,a2
  10772.     cmp.l    $A98(a4),d7
  10773.     ble.b    c8622
  10774. c8694:    move.l    d6,d0
  10775.     move.w    d0,(a2)
  10776.     movem.l    (sp)+,d6/d7/a2/a3/a6
  10777.     rts
  10778.  
  10779. c869E:    link.w    a5,#-$28
  10780.     movem.l    d2/d6/d7/a2/a3,-(sp)
  10781.     move.l    d0,d7
  10782.     move.l    a0,a3
  10783.     move.l    a1,a2
  10784.     clr.w    -$26(a5)
  10785.     moveq    #2,d6
  10786.     bra.b    c86CA
  10787.  
  10788. c86B4:    move.l    $AA8(a4),a0
  10789.     adda.l    d6,a0
  10790.     move.w    (a0),d0
  10791.     move.w    -$28(a5,d6.l),d1
  10792.     add.w    d0,d1
  10793.     add.w    d1,d1
  10794.     move.w    d1,-$26(a5,d6.l)
  10795.     addq.l    #2,d6
  10796. c86CA:    moveq    #$20,d0
  10797.     cmp.l    d0,d6
  10798.     ble.b    c86B4
  10799.     moveq    #0,d6
  10800.     bra.b    c86F0
  10801.  
  10802. c86D4:    moveq    #0,d0
  10803.     move.b    (a3,d6.l),d0
  10804.     move.l    d0,d1
  10805.     ext.l    d1
  10806.     add.l    d1,d1
  10807.     move.w    -$28(a5,d1.l),d0
  10808.     move.l    d0,d2
  10809.     addq.w    #1,d2
  10810.     move.w    d2,-$28(a5,d1.l)
  10811.     move.w    d0,(a2)+
  10812.     addq.l    #1,d6
  10813. c86F0:    cmp.l    d7,d6
  10814.     blt.b    c86D4
  10815.     movem.l    (sp)+,d2/d6/d7/a2/a3
  10816.     unlk    a5
  10817.     rts
  10818.  
  10819. c86FC:    link.w    a5,#-$1C
  10820.     movem.l    d2/d4-d7/a2/a3/a6,-(sp)
  10821.     move.l    a1,a3
  10822.     move.l    8(a5),a2
  10823.     move.l    a0,-$18(a5)
  10824.     move.l    d0,$A94(a4)
  10825.     move.l    -$18(a5),$AA0(a4)
  10826.     move.l    a3,$AAC(a4)
  10827.     moveq    #0,d1
  10828.     move.l    d1,$A98(a4)
  10829.     move.l    $A9C(a4),a0
  10830.     clr.w    2(a0)
  10831.     move.l    d1,d7
  10832.     move.l    d1,d6
  10833.     move.l    d0,-$14(a5)
  10834.     move.l    d0,-$1C(a5)
  10835.     bra.b    c8762
  10836.  
  10837. c8738:    move.l    $AAC(a4),a0
  10838.     adda.l    d7,a0
  10839.     sf    (a0)
  10840.     move.l    $AA0(a4),a0
  10841.     adda.l    d6,a0
  10842.     tst.w    (a0)
  10843.     beq.b    c875E
  10844.     addq.l    #1,$A98(a4)
  10845.     move.l    $A98(a4),d0
  10846.     add.l    d0,d0
  10847.     move.l    $A9C(a4),a0
  10848.     adda.l    d0,a0
  10849.     move.l    d7,d0
  10850.     move.w    d0,(a0)
  10851. c875E:    addq.l    #1,d7
  10852.     addq.l    #2,d6
  10853. c8762:    cmp.l    $A94(a4),d7
  10854.     blt.b    c8738
  10855.     move.l    $A98(a4),d0
  10856.     moveq    #2,d1
  10857.     cmp.l    d1,d0
  10858.     bge.b    c878C
  10859.     move.l    $A9C(a4),a0
  10860.     move.w    2(a0),d2
  10861.     ext.l    d2
  10862.     add.l    d2,d2
  10863.     clr.w    (a2,d2.l)
  10864.     move.w    2(a0),d0
  10865.     ext.l    d0
  10866.     bra.w    c8882
  10867.  
  10868. c878C:    move.l    $A98(a4),d0
  10869.     bpl.b    c8794
  10870.     addq.l    #1,d0
  10871. c8794:    asr.l    #1,d0
  10872.     move.l    d0,d7
  10873.     bra.b    c87A2
  10874.  
  10875. c879A:    move.l    d7,d0
  10876.     bsr.w    c860C
  10877.     subq.l    #1,d7
  10878. c87A2:    moveq    #1,d0
  10879.     cmp.l    d0,d7
  10880.     bge.b    c879A
  10881.     move.l    a2,$AA4(a4)
  10882.     move.l    -$14(a5),d0
  10883.     add.l    d0,d0
  10884.     move.l    d0,d5
  10885. c87B4:    move.l    $A9C(a4),a0
  10886.     move.w    2(a0),d4
  10887.     ext.l    d4
  10888.     cmp.l    $A94(a4),d4
  10889.     bge.b    c87D4
  10890.     move.l    d4,d0
  10891.     move.l    $AA4(a4),a0
  10892.     move.w    d0,(a0)+
  10893.     move.l    a0,$AA4(a4)
  10894.     move.l    a0,$AA4(a4)
  10895. c87D4:    move.l    $A98(a4),d0
  10896.     add.l    d0,d0
  10897.     subq.l    #1,$A98(a4)
  10898.     move.l    $A9C(a4),a0
  10899.     adda.l    d0,a0
  10900.     move.l    $A9C(a4),a1
  10901.     move.w    (a0),2(a1)
  10902.     moveq    #1,d0
  10903.     bsr.w    c860C
  10904.     move.l    $A9C(a4),a0
  10905.     move.w    2(a0),d6
  10906.     ext.l    d6
  10907.     cmp.l    $A94(a4),d6
  10908.     bge.b    c8812
  10909.     move.l    d6,d0
  10910.     move.l    $AA4(a4),a0
  10911.     move.w    d0,(a0)+
  10912.     move.l    a0,$AA4(a4)
  10913.     move.l    a0,$AA4(a4)
  10914. c8812:    move.l    -$14(a5),d7
  10915.     addq.l    #1,-$14(a5)
  10916.     move.l    $AA0(a4),a0
  10917.     move.l    a0,a1
  10918.     adda.l    d5,a1
  10919.     move.l    d4,d0
  10920.     add.l    d0,d0
  10921.     move.l    a0,a6
  10922.     adda.l    d0,a6
  10923.     move.l    d6,d0
  10924.     add.l    d0,d0
  10925.     adda.l    d0,a0
  10926.     move.w    (a0),d0
  10927.     move.w    (a6),d1
  10928.     add.w    d0,d1
  10929.     move.w    d1,(a1)
  10930.     move.l    d7,d0
  10931.     move.l    $A9C(a4),a0
  10932.     move.w    d0,2(a0)
  10933.     moveq    #1,d0
  10934.     bsr.w    c860C
  10935.     move.l    $A68(a4),a0
  10936.     adda.l    d5,a0
  10937.     move.l    d4,d0
  10938.     move.w    d0,(a0)
  10939.     move.l    $A6C(a4),a0
  10940.     adda.l    d5,a0
  10941.     move.l    d6,d0
  10942.     move.w    d0,(a0)
  10943.     addq.l    #2,d5
  10944.     cmpi.l    #1,$A98(a4)
  10945.     bgt.w    c87B4
  10946.     move.l    a2,$AA4(a4)
  10947.     move.l    d7,d0
  10948.     bsr.w    c856A
  10949.     move.l    -$1C(a5),d0
  10950.     move.l    a3,a0
  10951.     move.l    a2,a1
  10952.     bsr.w    c869E
  10953.     move.l    d7,d0
  10954. c8882:    movem.l    (sp)+,d2/d4-d7/a2/a3/a6
  10955.     unlk    a5
  10956.     rts
  10957.  
  10958. c888A:    movem.l    d5-d7/a2/a3,-(sp)
  10959.     move.l    $A90(a4),a3
  10960.     lea    $26(a3),a2
  10961.     bra.b    c889A
  10962.  
  10963. c8898:    clr.w    (a3)+
  10964. c889A:    cmpa.l    a2,a3
  10965.     bcs.b    c8898
  10966.     move.l    #$1FE,d7
  10967.     bra.b    c88A8
  10968.  
  10969. c88A6:    subq.l    #1,d7
  10970. c88A8:    tst.l    d7
  10971.     ble.b    c88B8
  10972.     move.l    $A74(a4),a0
  10973.     adda.l    d7,a0
  10974.     tst.b    -1(a0)
  10975.     beq.b    c88A6
  10976. c88B8:    moveq    #0,d6
  10977.     bra.w    c894A
  10978.  
  10979. c88BE:    move.l    $A74(a4),a0
  10980.     adda.l    d6,a0
  10981.     addq.l    #1,d6
  10982.     moveq    #0,d5
  10983.     move.b    (a0),d5
  10984.     tst.l    d5
  10985.     bne.b    c893C
  10986.     moveq    #1,d5
  10987.     bra.b    c88D6
  10988.  
  10989. c88D2:    addq.l    #1,d6
  10990.     addq.l    #1,d5
  10991. c88D6:    cmp.l    d7,d6
  10992.     bge.b    c88E4
  10993.     move.l    $A74(a4),a0
  10994.     adda.l    d6,a0
  10995.     tst.b    (a0)
  10996.     beq.b    c88D2
  10997. c88E4:    moveq    #2,d0
  10998.     cmp.l    d0,d5
  10999.     bgt.b    c88FC
  11000.     moveq    #0,d1
  11001.     move.l    $A90(a4),a0
  11002.     move.w    (a0),d1
  11003.     add.l    d5,d1
  11004.     move.l    $A90(a4),a0
  11005.     move.w    d1,(a0)
  11006.     bra.b    c894A
  11007.  
  11008. c88FC:    moveq    #$12,d1
  11009.     cmp.l    d1,d5
  11010.     bgt.b    c8916
  11011.     move.l    $A90(a4),a0
  11012.     move.w    2(a0),d1
  11013.     addq.w    #1,d1
  11014.     move.l    $A90(a4),a0
  11015.     move.w    d1,2(a0)
  11016.     bra.b    c894A
  11017.  
  11018. c8916:    moveq    #$13,d1
  11019.     cmp.l    d1,d5
  11020.     bne.b    c8928
  11021.     move.l    $A90(a4),a0
  11022.     addq.w    #1,(a0)
  11023.     addq.w    #1,2(a0)
  11024.     bra.b    c894A
  11025.  
  11026. c8928:    move.l    $A90(a4),a0
  11027.     move.w    4(a0),d1
  11028.     addq.w    #1,d1
  11029.     move.l    $A90(a4),a0
  11030.     move.w    d1,4(a0)
  11031.     bra.b    c894A
  11032.  
  11033. c893C:    move.l    d5,d0
  11034.     add.l    d0,d0
  11035.     move.l    $A90(a4),a0
  11036.     adda.l    d0,a0
  11037.     addq.w    #1,4(a0)
  11038. c894A:    cmp.l    d7,d6
  11039.     blt.w    c88BE
  11040.     movem.l    (sp)+,d5-d7/a2/a3
  11041.     rts
  11042.  
  11043. c8956:    movem.l    d4-d7,-(sp)
  11044.     move.l    d0,d7
  11045.     move.l    d1,d6
  11046.     move.l    $14(sp),d5
  11047.     bra.b    c8966
  11048.  
  11049. c8964:    subq.l    #1,d7
  11050. c8966:    tst.l    d7
  11051.     ble.b    c8976
  11052.     move.l    $A78(a4),a0
  11053.     adda.l    d7,a0
  11054.     tst.b    -1(a0)
  11055.     beq.b    c8964
  11056. c8976:    move.l    d6,d0
  11057.     move.l    d7,d1
  11058.     bsr.w    c8E88
  11059.     moveq    #0,d6
  11060.     bra.b    c89D4
  11061.  
  11062. c8982:    move.l    $A78(a4),a0
  11063.     adda.l    d6,a0
  11064.     addq.l    #1,d6
  11065.     moveq    #0,d4
  11066.     move.b    (a0),d4
  11067.     moveq    #6,d0
  11068.     cmp.l    d0,d4
  11069.     bgt.b    c899E
  11070.     moveq    #3,d0
  11071.     move.l    d4,d1
  11072.     bsr.w    c8E88
  11073.     bra.b    c89AC
  11074.  
  11075. c899E:    move.l    d4,d0
  11076.     subq.l    #3,d0
  11077.     moveq    #1,d1
  11078.     asl.l    d0,d1
  11079.     subq.l    #2,d1
  11080.     bsr.w    c8E88
  11081. c89AC:    cmp.l    d5,d6
  11082.     bne.b    c89D4
  11083.     bra.b    c89B4
  11084.  
  11085. c89B2:    addq.l    #1,d6
  11086. c89B4:    moveq    #6,d0
  11087.     cmp.l    d0,d6
  11088.     bge.b    c89C4
  11089.     move.l    $A78(a4),a0
  11090.     adda.l    d6,a0
  11091.     tst.b    (a0)
  11092.     beq.b    c89B2
  11093. c89C4:    move.l    d6,d0
  11094.     subq.l    #3,d0
  11095.     moveq    #3,d1
  11096.     and.l    d1,d0
  11097.     moveq    #2,d1
  11098.     exg    d0,d1
  11099.     bsr.w    c8E88
  11100. c89D4:    cmp.l    d7,d6
  11101.     blt.b    c8982
  11102.     movem.l    (sp)+,d4-d7
  11103.     rts
  11104.  
  11105. c89DE:    movem.l    d4-d7,-(sp)
  11106.     move.l    #$1FE,d6
  11107.     bra.b    c89EC
  11108.  
  11109. c89EA:    subq.l    #1,d6
  11110. c89EC:    tst.l    d6
  11111.     ble.b    c89FC
  11112.     move.l    $A74(a4),a0
  11113.     adda.l    d6,a0
  11114.     tst.b    -1(a0)
  11115.     beq.b    c89EA
  11116. c89FC:    moveq    #9,d0
  11117.     move.l    d6,d1
  11118.     bsr.w    c8E88
  11119.     moveq    #0,d7
  11120.     bra.w    c8B0C
  11121.  
  11122. c8A0A:    move.l    $A74(a4),a0
  11123.     adda.l    d7,a0
  11124.     addq.l    #1,d7
  11125.     moveq    #0,d5
  11126.     move.b    (a0),d5
  11127.     tst.l    d5
  11128.     bne.w    c8AEC
  11129.     moveq    #1,d5
  11130.     bra.b    c8A24
  11131.  
  11132. c8A20:    addq.l    #1,d7
  11133.     addq.l    #1,d5
  11134. c8A24:    cmp.l    d6,d7
  11135.     bge.b    c8A32
  11136.     move.l    $A74(a4),a0
  11137.     adda.l    d7,a0
  11138.     tst.b    (a0)
  11139.     beq.b    c8A20
  11140. c8A32:    moveq    #2,d0
  11141.     cmp.l    d0,d5
  11142.     bgt.b    c8A5A
  11143.     moveq    #0,d4
  11144.     bra.b    c8A52
  11145.  
  11146. c8A3C:    moveq    #0,d0
  11147.     move.l    $A78(a4),a0
  11148.     move.b    (a0),d0
  11149.     moveq    #0,d1
  11150.     move.l    $A8C(a4),a0
  11151.     move.w    (a0),d1
  11152.     bsr.w    c8E88
  11153.     addq.l    #1,d4
  11154. c8A52:    cmp.l    d5,d4
  11155.     blt.b    c8A3C
  11156.     bra.w    c8B0C
  11157.  
  11158. c8A5A:    moveq    #$12,d0
  11159.     cmp.l    d0,d5
  11160.     bgt.b    c8A88
  11161.     moveq    #0,d0
  11162.     move.l    $A78(a4),a0
  11163.     move.b    1(a0),d0
  11164.     moveq    #0,d1
  11165.     move.l    $A8C(a4),a1
  11166.     move.w    2(a1),d1
  11167.     bsr.w    c8E88
  11168.     move.l    d5,d0
  11169.     subq.l    #3,d0
  11170.     moveq    #4,d1
  11171.     exg    d0,d1
  11172.     bsr.w    c8E88
  11173.     bra.w    c8B0C
  11174.  
  11175. c8A88:    moveq    #$13,d0
  11176.     cmp.l    d0,d5
  11177.     bne.b    c8AC4
  11178.     moveq    #0,d0
  11179.     move.l    $A78(a4),a0
  11180.     move.b    (a0),d0
  11181.     moveq    #0,d1
  11182.     move.l    $A8C(a4),a1
  11183.     move.w    (a1),d1
  11184.     bsr.w    c8E88
  11185.     moveq    #0,d0
  11186.     move.l    $A78(a4),a0
  11187.     move.b    1(a0),d0
  11188.     moveq    #0,d1
  11189.     move.l    $A8C(a4),a1
  11190.     move.w    2(a1),d1
  11191.     bsr.w    c8E88
  11192.     moveq    #4,d0
  11193.     moveq    #15,d1
  11194.     bsr.w    c8E88
  11195.     bra.b    c8B0C
  11196.  
  11197. c8AC4:    moveq    #0,d0
  11198.     move.l    $A78(a4),a0
  11199.     move.b    2(a0),d0
  11200.     moveq    #0,d1
  11201.     move.l    $A8C(a4),a1
  11202.     move.w    4(a1),d1
  11203.     bsr.w    c8E88
  11204.     move.l    d5,d0
  11205.     moveq    #$14,d1
  11206.     sub.l    d1,d0
  11207.     moveq    #9,d1
  11208.     exg    d0,d1
  11209.     bsr.w    c8E88
  11210.     bra.b    c8B0C
  11211.  
  11212. c8AEC:    move.l    $A78(a4),a0
  11213.     adda.l    d5,a0
  11214.     moveq    #0,d0
  11215.     move.b    2(a0),d0
  11216.     move.l    d5,d1
  11217.     add.l    d1,d1
  11218.     move.l    $A8C(a4),a0
  11219.     adda.l    d1,a0
  11220.     moveq    #0,d1
  11221.     move.w    4(a0),d1
  11222.     bsr.w    c8E88
  11223. c8B0C:    cmp.l    d6,d7
  11224.     blt.w    c8A0A
  11225.     movem.l    (sp)+,d4-d7
  11226.     rts
  11227.  
  11228. c8B18:    move.l    d7,-(sp)
  11229.     move.l    d0,d7
  11230.     move.l    $A74(a4),a0
  11231.     adda.l    d7,a0
  11232.     moveq    #0,d0
  11233.     move.b    (a0),d0
  11234.     move.l    d7,d1
  11235.     add.l    d1,d1
  11236.     move.l    $A84(a4),a0
  11237.     adda.l    d1,a0
  11238.     moveq    #0,d1
  11239.     move.w    (a0),d1
  11240.     bsr.w    c8E88
  11241.     move.l    (sp)+,d7
  11242.     rts
  11243.  
  11244. c8B3C:    movem.l    d2/d5-d7,-(sp)
  11245.     move.l    d0,d7
  11246.     moveq    #0,d6
  11247.     move.l    d7,d5
  11248.     bra.b    c8B4C
  11249.  
  11250. c8B48:    lsr.l    #1,d5
  11251.     addq.l    #1,d6
  11252. c8B4C:    tst.l    d5
  11253.     bne.b    c8B48
  11254.     move.l    $A78(a4),a0
  11255.     adda.l    d6,a0
  11256.     moveq    #0,d0
  11257.     move.b    (a0),d0
  11258.     move.l    d6,d1
  11259.     add.l    d1,d1
  11260.     move.l    $A8C(a4),a0
  11261.     adda.l    d1,a0
  11262.     moveq    #0,d1
  11263.     move.w    (a0),d1
  11264.     bsr.w    c8E88
  11265.     moveq    #1,d0
  11266.     cmp.l    d0,d6
  11267.     bls.b    c8B8A
  11268.     move.l    d6,d0
  11269.     subq.l    #1,d0
  11270.     moveq    #$11,d1
  11271.     sub.l    d6,d1
  11272.     move.l    #$FFFF,d2
  11273.     lsr.l    d1,d2
  11274.     move.l    d7,d1
  11275.     and.l    d2,d1
  11276.     bsr.w    c8E88
  11277. c8B8A:    movem.l    (sp)+,d2/d5-d7
  11278.     rts
  11279.  
  11280. c8B90:    movem.l    d4-d7/a2/a3,-(sp)
  11281.     move.l    $A84(a4),-(sp)
  11282.     move.l    #$1FE,d0
  11283.     move.l    $A80(a4),a0
  11284.     move.l    $A74(a4),a1
  11285.     bsr.w    c86FC
  11286.     move.l    d0,d5
  11287.     move.l    d5,d0
  11288.     add.l    d0,d0
  11289.     move.l    $A80(a4),a0
  11290.     adda.l    d0,a0
  11291.     moveq    #0,d6
  11292.     move.w    (a0),d6
  11293.     moveq    #$10,d0
  11294.     move.l    d6,d1
  11295.     bsr.w    c8E88
  11296.     addq.w    #4,sp
  11297.     cmpi.l    #$1FE,d5
  11298.     bcs.b    c8C10
  11299.     bsr.w    c888A
  11300.     move.l    $A8C(a4),-(sp)
  11301.     moveq    #$13,d0
  11302.     move.l    $A90(a4),a0
  11303.     move.l    $A78(a4),a1
  11304.     bsr.w    c86FC
  11305.     addq.w    #4,sp
  11306.     move.l    d0,d5
  11307.     moveq    #$13,d0
  11308.     cmp.l    d0,d5
  11309.     bcs.b    c8BFA
  11310.     pea    3
  11311.     moveq    #5,d1
  11312.     bsr.w    c8956
  11313.     addq.w    #4,sp
  11314.     bra.b    c8C0A
  11315.  
  11316. c8BFA:    moveq    #5,d0
  11317.     moveq    #0,d1
  11318.     bsr.w    c8E88
  11319.     moveq    #5,d0
  11320.     move.l    d5,d1
  11321.     bsr.w    c8E88
  11322. c8C0A:    bsr.w    c89DE
  11323.     bra.b    c8C30
  11324.  
  11325. c8C10:    moveq    #5,d0
  11326.     moveq    #0,d1
  11327.     bsr.w    c8E88
  11328.     moveq    #5,d0
  11329.     moveq    #0,d1
  11330.     bsr.w    c8E88
  11331.     moveq    #9,d0
  11332.     moveq    #0,d1
  11333.     bsr.w    c8E88
  11334.     moveq    #9,d0
  11335.     move.l    d5,d1
  11336.     bsr.w    c8E88
  11337. c8C30:    move.l    $A8C(a4),-(sp)
  11338.     moveq    #14,d0
  11339.     move.l    $A88(a4),a0
  11340.     move.l    $A78(a4),a1
  11341.     bsr.w    c86FC
  11342.     addq.w    #4,sp
  11343.     move.l    d0,d5
  11344.     moveq    #14,d0
  11345.     cmp.l    d0,d5
  11346.     bcs.b    c8C5A
  11347.     pea    -1
  11348.     moveq    #4,d1
  11349.     bsr.w    c8956
  11350.     addq.w    #4,sp
  11351.     bra.b    c8C6A
  11352.  
  11353. c8C5A:    moveq    #4,d0
  11354.     moveq    #0,d1
  11355.     bsr.w    c8E88
  11356.     moveq    #4,d0
  11357.     move.l    d5,d1
  11358.     bsr.w    c8E88
  11359. c8C6A:    moveq    #0,d5
  11360.     moveq    #0,d4
  11361.     bra.b    c8CD8
  11362.  
  11363. c8C70:    move.l    d4,d0
  11364.     moveq    #7,d1
  11365.     and.l    d1,d0
  11366.     bne.b    c8C88
  11367.     move.l    $A70(a4),a0
  11368.     move.l    a0,a1
  11369.     adda.l    d5,a1
  11370.     addq.l    #1,d5
  11371.     moveq    #0,d7
  11372.     move.b    (a1),d7
  11373.     bra.b    c8C8A
  11374.  
  11375. c8C88:    add.l    d7,d7
  11376. c8C8A:    move.l    $A70(a4),a0
  11377.     adda.l    d5,a0
  11378.     move.l    a0,a3
  11379.     btst    #7,d7
  11380.     beq.b    c8CC6
  11381.     moveq    #0,d0
  11382.     move.b    (a3),d0
  11383.     addi.l    #$100,d0
  11384.     bsr.w    c8B18
  11385.     move.l    $A70(a4),a0
  11386.     adda.l    d5,a0
  11387.     addq.l    #3,d5
  11388.     moveq    #0,d0
  11389.     move.b    2(a0),d0
  11390.     move.l    d0,d1
  11391.     asl.l    #8,d1
  11392.     moveq    #0,d0
  11393.     move.b    1(a0),d0
  11394.     add.l    d1,d0
  11395.     bsr.w    c8B3C
  11396.     bra.b    c8CD0
  11397.  
  11398. c8CC6:    addq.l    #1,d5
  11399.     moveq    #0,d0
  11400.     move.b    (a3),d0
  11401.     bsr.w    c8B18
  11402. c8CD0:    tst.l    $2EC(a4)
  11403.     bne.b    c8CFC
  11404.     addq.l    #1,d4
  11405. c8CD8:    cmp.l    d6,d4
  11406.     bcs.b    c8C70
  11407.     move.l    $A80(a4),a3
  11408.     lea    $3FC(a3),a2
  11409.     bra.b    c8CE8
  11410.  
  11411. c8CE6:    clr.w    (a3)+
  11412. c8CE8:    cmpa.l    a2,a3
  11413.     bcs.b    c8CE6
  11414.     move.l    $A88(a4),a3
  11415.     lea    $1C(a3),a2
  11416.     bra.b    c8CF8
  11417.  
  11418. c8CF6:    clr.w    (a3)+
  11419. c8CF8:    cmpa.l    a2,a3
  11420.     bcs.b    c8CF6
  11421. c8CFC:    movem.l    (sp)+,d4-d7/a2/a3
  11422.     rts
  11423.  
  11424. c8D02:    link.w    a5,#-$1C
  11425.     movem.l    d4-d7/a2/a3,-(sp)
  11426.     move.l    a0,a3
  11427.     move.l    d0,-$1C(a5)
  11428.     moveq    #0,d5
  11429.     moveq    #0,d4
  11430.     move.l    $68(a3),a3
  11431.     move.l    -$18(a5),d7
  11432.     bra.b    c8D96
  11433.  
  11434. c8D1E:    asr.l    #1,d4
  11435.     bne.b    c8D32
  11436.     moveq    #$40,d4
  11437.     add.l    d4,d4
  11438.     move.l    d5,a0
  11439.     addq.l    #1,d5
  11440.     moveq    #0,d7
  11441.     move.l    a0,d0
  11442.     move.b    (a3,d0.l),d7
  11443. c8D32:    move.l    a3,a2
  11444.     adda.l    d5,a2
  11445.     move.l    d4,d0
  11446.     and.l    d7,d0
  11447.     beq.b    c8D82
  11448.     move.l    d7,-$18(a5)
  11449.     moveq    #0,d0
  11450.     move.b    (a2),d0
  11451.     add.l    d0,d0
  11452.     move.l    $A80(a4),a0
  11453.     adda.l    d0,a0
  11454.     addq.w    #1,$200(a0)
  11455.     addq.l    #3,d5
  11456.     moveq    #0,d0
  11457.     move.b    2(a2),d0
  11458.     asl.l    #8,d0
  11459.     moveq    #0,d1
  11460.     move.b    1(a2),d1
  11461.     add.l    d0,d1
  11462.     move.l    d1,d7
  11463.     moveq    #0,d6
  11464.     bra.b    c8D6C
  11465.  
  11466. c8D68:    asr.l    #1,d7
  11467.     addq.l    #1,d6
  11468. c8D6C:    tst.l    d7
  11469.     bne.b    c8D68
  11470.     move.l    d6,d0
  11471.     add.l    d0,d0
  11472.     move.l    $A88(a4),a0
  11473.     adda.l    d0,a0
  11474.     addq.w    #1,(a0)
  11475.     move.l    -$18(a5),d7
  11476.     bra.b    c8D96
  11477.  
  11478. c8D82:    addq.l    #1,d5
  11479.     moveq    #0,d0
  11480.     move.b    (a2),d0
  11481.     move.l    d0,d1
  11482.     ext.l    d1
  11483.     add.l    d1,d1
  11484.     move.l    $A80(a4),a0
  11485.     adda.l    d1,a0
  11486.     addq.w    #1,(a0)
  11487. c8D96:    cmp.l    -$1C(a5),d5
  11488.     blt.b    c8D1E
  11489.     bsr.w    c8B90
  11490.     moveq    #0,d0
  11491.     movem.l    (sp)+,d4-d7/a2/a3
  11492.     unlk    a5
  11493.     rts
  11494.  
  11495. c8DAA:    movem.l    a2/a3,-(sp)
  11496.     move.l    a0,a3
  11497.     lea    $4174(a3),a0
  11498.     move.l    a0,$A68(a4)
  11499.     lea    $496A(a3),a0
  11500.     move.l    a0,$A6C(a4)
  11501.     lea    $555C(a3),a0
  11502.     move.l    a0,$A74(a4)
  11503.     lea    $5160(a3),a0
  11504.     move.l    a0,$A84(a4)
  11505.     lea    $575A(a3),a0
  11506.     move.l    a0,$A80(a4)
  11507.     lea    $60D0(a3),a1
  11508.     move.l    a1,$A88(a4)
  11509.     lea    $6050(a3),a1
  11510.     move.l    a1,$A78(a4)
  11511.     lea    $5F50(a3),a1
  11512.     move.l    a1,$A8C(a4)
  11513.     lea    $6106(a3),a1
  11514.     move.l    a1,$A90(a4)
  11515.     lea    $6150(a3),a1
  11516.     move.l    a1,$A9C(a4)
  11517.     lea    $654E(a3),a1
  11518.     move.l    a1,$AA8(a4)
  11519.     move.w    $54(a3),d0
  11520.     ext.l    d0
  11521.     move.l    d0,$2F0(a4)
  11522.     move.l    $68(a3),$A70(a4)
  11523.     move.l    $38(a3),$A5C(a4)
  11524.     moveq    #0,d0
  11525.     move.l    d0,$A60(a4)
  11526.     move.l    $48(a3),$A64(a4)
  11527.     move.l    d0,$2EC(a4)
  11528.     move.l    $A70(a4),a1
  11529.     sf    (a1)
  11530.     move.l    $A80(a4),a3
  11531.     lea    $3FC(a3),a2
  11532.     bra.b    c8E40
  11533.  
  11534. c8E3E:    clr.w    (a3)+
  11535. c8E40:    cmpa.l    a2,a3
  11536.     bcs.b    c8E3E
  11537.     move.l    $A88(a4),a3
  11538.     lea    $1C(a3),a2
  11539.     bra.b    c8E50
  11540.  
  11541. c8E4E:    clr.w    (a3)+
  11542. c8E50:    cmpa.l    a2,a3
  11543.     bcs.b    c8E4E
  11544.     bsr.w    c8F56
  11545.     movem.l    (sp)+,a2/a3
  11546.     rts
  11547.  
  11548. c8E5E:    move.l    a3,-(sp)
  11549.     move.l    a0,a3
  11550.     tst.l    $2EC(a4)
  11551.     bne.b    c8E76
  11552.     tst.l    $AB0(a4)
  11553.     bne.b    c8E76
  11554.     moveq    #7,d0
  11555.     moveq    #0,d1
  11556.     bsr.b    c8E88
  11557. c8E76:    move.l    $2EC(a4),d0
  11558.     move.w    d0,$50(a3)
  11559.     move.l    $A60(a4),$34(a3)
  11560.     move.l    (sp)+,a3
  11561.     rts
  11562.  
  11563. c8E88:    movem.l    d2/d6/d7,-(sp)
  11564.     move.l    d0,d7
  11565.     move.l    d1,d6
  11566.     move.l    $A58(a4),d0
  11567.     cmp.l    d0,d7
  11568.     bge.b    c8EAC
  11569.     sub.l    d7,$A58(a4)
  11570.     move.l    d6,d0
  11571.     move.l    $A58(a4),d1
  11572.     asl.l    d1,d0
  11573.     or.l    d0,$A54(a4)
  11574.     bra.w    c8F50
  11575.  
  11576. c8EAC:    move.l    $A60(a4),d1
  11577.     cmp.l    $A5C(a4),d1
  11578.     bcc.b    c8EE2
  11579.     sub.l    d0,d7
  11580.     move.l    d6,d0
  11581.     lsr.l    d7,d0
  11582.     move.l    $A54(a4),d1
  11583.     or.l    d0,d1
  11584.     moveq    #0,d0
  11585.     move.b    d1,d0
  11586.     move.l    $A64(a4),a0
  11587.     jsr    c1FB4(pc)
  11588.     tst.l    d0
  11589.     bpl.b    c8EDC
  11590.     moveq    #1,d0
  11591.     move.l    d0,$AB0(a4)
  11592.     jsr    c6386(pc)
  11593. c8EDC:    addq.l    #1,$A60(a4)
  11594.     bra.b    c8EE8
  11595.  
  11596. c8EE2:    moveq    #1,d0
  11597.     move.l    d0,$2EC(a4)
  11598. c8EE8:    moveq    #8,d0
  11599.     cmp.l    d0,d7
  11600.     bge.b    c8F04
  11601.     move.l    d0,d1
  11602.     sub.l    d7,d1
  11603.     move.l    d1,$A58(a4)
  11604.     move.l    d6,d1
  11605.     move.l    $A58(a4),d2
  11606.     asl.l    d2,d1
  11607.     move.l    d1,$A54(a4)
  11608.     bra.b    c8F50
  11609.  
  11610. c8F04:    move.l    $A60(a4),d1
  11611.     cmp.l    $A5C(a4),d1
  11612.     bcc.b    c8F36
  11613.     move.l    d7,d0
  11614.     subq.l    #8,d0
  11615.     move.l    d6,d1
  11616.     lsr.l    d0,d1
  11617.     moveq    #0,d0
  11618.     move.b    d1,d0
  11619.     move.l    $A64(a4),a0
  11620.     jsr    c1FB4(pc)
  11621.     tst.l    d0
  11622.     bpl.b    c8F30
  11623.     moveq    #1,d0
  11624.     move.l    d0,$AB0(a4)
  11625.     jsr    c6386(pc)
  11626. c8F30:    addq.l    #1,$A60(a4)
  11627.     bra.b    c8F3C
  11628.  
  11629. c8F36:    moveq    #1,d0
  11630.     move.l    d0,$2EC(a4)
  11631. c8F3C:    moveq    #$10,d0
  11632.     sub.l    d7,d0
  11633.     move.l    d0,$A58(a4)
  11634.     move.l    d6,d0
  11635.     move.l    $A58(a4),d1
  11636.     asl.l    d1,d0
  11637.     move.l    d0,$A54(a4)
  11638. c8F50:    movem.l    (sp)+,d2/d6/d7
  11639.     rts
  11640.  
  11641. c8F56:    moveq    #8,d0
  11642.     move.l    d0,$A58(a4)
  11643.     moveq    #0,d0
  11644.     move.l    d0,$A54(a4)
  11645.     move.l    d0,$AB0(a4)
  11646.     rts
  11647.  
  11648. c8F68:    link.w    a5,#-$10
  11649.     movem.l    d2/d4-d7,-(sp)
  11650.     move.l    d0,d7
  11651.     move.l    d1,d6
  11652.     moveq    #0,d0
  11653.     move.b    $2F8(a4),d0
  11654.     move.l    $2F4(a4),d1
  11655.     move.l    d6,d2
  11656.     lsr.l    d0,d2
  11657.     move.l    d1,-$10(a5)
  11658.     or.l    d2,d1
  11659.     move.l    d1,d4
  11660.     move.l    d0,-12(a5)
  11661.     add.l    d7,d0
  11662.     move.l    d0,d5
  11663.     moveq    #8,d0
  11664.     cmp.l    d0,d5
  11665.     blt.b    c8FD8
  11666.     move.l    d4,d0
  11667.     lsr.l    #8,d0
  11668.     moveq    #0,d1
  11669.     move.b    d0,d1
  11670.     move.l    d1,d0
  11671.     move.l    $AB4(a4),a0
  11672.     jsr    c1FB4(pc)
  11673.     subq.l    #8,d5
  11674.     moveq    #8,d0
  11675.     cmp.l    d0,d5
  11676.     blt.b    c8FD2
  11677.     move.l    d4,d0
  11678.     moveq    #0,d1
  11679.     move.b    d0,d1
  11680.     move.l    d1,d0
  11681.     move.l    $AB4(a4),a0
  11682.     jsr    c1FB4(pc)
  11683.     addq.l    #2,$AB8(a4)
  11684.     subq.l    #8,d5
  11685.     move.l    d7,d0
  11686.     sub.l    d5,d0
  11687.     move.l    d6,d4
  11688.     asl.l    d0,d4
  11689.     bra.b    c8FD8
  11690.  
  11691. c8FD2:    asl.l    #8,d4
  11692.     addq.l    #1,$AB8(a4)
  11693. c8FD8:    move.l    d4,$2F4(a4)
  11694.     move.l    d5,d0
  11695.     move.b    d0,$2F8(a4)
  11696.     movem.l    (sp)+,d2/d4-d7
  11697.     unlk    a5
  11698.     rts
  11699.  
  11700. c8FEA:    link.w    a5,#-$20
  11701.     movem.l    d4-d7/a2/a3,-(sp)
  11702.     moveq    #0,d7
  11703.     moveq    #0,d6
  11704.     bra.b    c902A
  11705.  
  11706. c8FF8:    move.l    $AC4(a4),a0
  11707.     move.l    a0,a1
  11708.     adda.l    d7,a1
  11709.     move.l    a1,a3
  11710.     move.w    (a3),d0
  11711.     cmpi.w    #$273,d0
  11712.     blt.b    c9028
  11713.     moveq    #0,d1
  11714.     move.l    $ABC(a4),a1
  11715.     move.w    (a1,d7.l),d1
  11716.     addq.l    #1,d1
  11717.     tst.l    d1
  11718.     bpl.b    c901C
  11719.     addq.l    #1,d1
  11720. c901C:    asr.l    #1,d1
  11721.     move.w    d1,(a1,d6.l)
  11722.     move.w    (a3),(a0,d6.l)
  11723.     addq.l    #2,d6
  11724. c9028:    addq.l    #2,d7
  11725. c902A:    cmpi.l    #$4E6,d7
  11726.     blt.b    c8FF8
  11727.     moveq    #0,d7
  11728.     move.l    #$13A,d4
  11729.     move.l    #$274,d5
  11730.     move.l    $ABC(a4),a3
  11731.     bra.w    c90DA
  11732.  
  11733. c9048:    move.l    $ABC(a4),a0
  11734.     move.l    a0,a1
  11735.     adda.l    d5,a1
  11736.     move.l    a1,a2
  11737.     move.w    (a3),d0
  11738.     add.w    2(a3),d0
  11739.     move.w    d0,(a2)
  11740.     moveq    #0,d6
  11741.     move.w    d0,d6
  11742.     move.l    d4,d7
  11743.     subq.l    #1,d7
  11744.     move.l    d7,d0
  11745.     add.l    d0,d0
  11746.     adda.l    d0,a0
  11747.     move.l    a0,a3
  11748.     bra.b    c9070
  11749.  
  11750. c906C:    subq.l    #1,d7
  11751.     subq.l    #2,a3
  11752. c9070:    moveq    #0,d0
  11753.     move.w    (a3),d0
  11754.     cmp.l    d0,d6
  11755.     bcs.b    c906C
  11756.     addq.l    #1,d7
  11757.     move.l    a2,a3
  11758.     move.l    d7,d0
  11759.     add.l    d0,d0
  11760.     move.l    $ABC(a4),a0
  11761.     adda.l    d0,a0
  11762.     move.l    a0,a2
  11763.     bra.b    c9090
  11764.  
  11765. c908A:    move.w    -2(a3),(a3)
  11766.     subq.l    #2,a3
  11767. c9090:    cmpa.l    a2,a3
  11768.     bhi.b    c908A
  11769.     move.l    d7,d0
  11770.     add.l    d0,d0
  11771.     move.l    d6,d1
  11772.     move.l    $ABC(a4),a0
  11773.     move.w    d1,(a0,d0.l)
  11774.     move.l    $AC4(a4),a0
  11775.     move.l    a0,a1
  11776.     adda.l    d5,a1
  11777.     move.l    a1,a3
  11778.     adda.l    d0,a0
  11779.     move.l    a0,a2
  11780.     bra.b    c90B8
  11781.  
  11782. c90B2:    move.w    -2(a3),(a3)
  11783.     subq.l    #2,a3
  11784. c90B8:    cmpa.l    a2,a3
  11785.     bhi.b    c90B2
  11786.     move.l    d7,d0
  11787.     add.l    d0,d0
  11788.     move.l    -$1C(a5),d1
  11789.     move.l    $AC4(a4),a0
  11790.     move.w    d1,(a0,d0.l)
  11791.     move.l    d1,d7
  11792.     addq.l    #2,d7
  11793.     addq.l    #1,d4
  11794.     addq.l    #2,d5
  11795.     move.l    -$20(a5),a3
  11796.     addq.l    #4,a3
  11797. c90DA:    move.l    a3,-$20(a5)
  11798.     move.l    d7,-$1C(a5)
  11799.     cmpi.l    #$4E6,d5
  11800.     blt.w    c9048
  11801.     moveq    #0,d7
  11802.     move.l    $AC4(a4),a3
  11803.     bra.b    c911A
  11804.  
  11805. c90F4:    move.w    (a3),d0
  11806.     ext.l    d0
  11807.     add.l    d0,d0
  11808.     move.l    $AC0(a4),a0
  11809.     adda.l    d0,a0
  11810.     move.l    a0,a2
  11811.     cmpi.w    #$273,(a3)
  11812.     blt.b    c910E
  11813.     move.l    d7,d0
  11814.     move.w    d0,(a2)
  11815.     bra.b    c9116
  11816.  
  11817. c910E:    move.l    d7,d0
  11818.     move.w    d0,2(a2)
  11819.     move.w    d0,(a2)
  11820. c9116:    addq.l    #1,d7
  11821.     addq.l    #2,a3
  11822. c911A:    cmpi.l    #$273,d7
  11823.     blt.b    c90F4
  11824.     movem.l    (sp)+,d4-d7/a2/a3
  11825.     unlk    a5
  11826.     rts
  11827.  
  11828. c912A:    link.w    a5,#-$18
  11829.     movem.l    d4-d7/a3,-(sp)
  11830.     move.l    d0,d7
  11831.     moveq    #0,d1
  11832.     move.l    $ABC(a4),a0
  11833.     move.w    $4E4(a0),d1
  11834.     move.l    d0,-$18(a5)
  11835.     cmpi.l    #$8000,d1
  11836.     bne.b    c914E
  11837.     bsr.w    c8FEA
  11838. c914E:    move.l    d7,d0
  11839.     add.l    d0,d0
  11840.     move.l    $AC0(a4),a0
  11841.     move.l    d0,d1
  11842.     addi.l    #$4E6,d1
  11843.     move.w    (a0,d1.l),d6
  11844.     ext.l    d6
  11845. c9164:    move.l    d6,d5
  11846.     add.l    d5,d5
  11847.     move.l    $ABC(a4),a0
  11848.     addq.w    #1,(a0,d5.l)
  11849.     moveq    #0,d4
  11850.     move.w    (a0,d5.l),d4
  11851.     move.l    d6,d0
  11852.     addq.l    #1,d0
  11853.     add.l    d0,d0
  11854.     adda.l    d0,a0
  11855.     move.l    a0,a3
  11856.     moveq    #0,d0
  11857.     move.w    (a3),d0
  11858.     cmp.l    d0,d4
  11859.     ble.b    c9208
  11860.     addq.l    #2,a3
  11861. c918C:    moveq    #0,d0
  11862.     move.w    (a3)+,d0
  11863.     cmp.l    d0,d4
  11864.     bgt.b    c918C
  11865.     move.l    a3,d0
  11866.     sub.l    $ABC(a4),d0
  11867.     asr.l    #1,d0
  11868.     move.l    d0,d7
  11869.     subq.l    #2,d7
  11870.     move.l    $ABC(a4),a0
  11871.     move.w    -4(a3),(a0,d5.l)
  11872.     move.l    d4,d0
  11873.     move.w    d0,-4(a3)
  11874.     move.l    $AC4(a4),a0
  11875.     move.l    a0,a1
  11876.     adda.l    d5,a1
  11877.     move.l    a1,a3
  11878.     move.w    (a3),d5
  11879.     ext.l    d5
  11880.     move.l    d5,d0
  11881.     add.l    d0,d0
  11882.     move.l    d7,d1
  11883.     move.l    $AC0(a4),a1
  11884.     move.w    d1,(a1,d0.l)
  11885.     cmpi.l    #$273,d5
  11886.     bge.b    c91DA
  11887.     move.l    d7,d1
  11888.     move.w    d1,2(a1,d0.l)
  11889. c91DA:    move.l    d7,d0
  11890.     add.l    d0,d0
  11891.     move.w    (a0,d0.l),d4
  11892.     ext.l    d4
  11893.     move.l    d5,d1
  11894.     move.w    d1,(a0,d0.l)
  11895.     move.l    d4,d0
  11896.     add.l    d0,d0
  11897.     move.l    d6,d1
  11898.     move.w    d1,(a1,d0.l)
  11899.     cmpi.l    #$273,d4
  11900.     bge.b    c9202
  11901.     move.l    d6,d1
  11902.     move.w    d1,2(a1,d0.l)
  11903. c9202:    move.l    d4,d0
  11904.     move.w    d0,(a3)
  11905.     move.l    d7,d6
  11906. c9208:    move.l    d6,d0
  11907.     add.l    d0,d0
  11908.     move.l    $AC0(a4),a0
  11909.     move.w    (a0,d0.l),d6
  11910.     ext.l    d6
  11911.     bne.w    c9164
  11912.     movem.l    (sp)+,d4-d7/a3
  11913.     unlk    a5
  11914.     rts
  11915.  
  11916. c9222:    movem.l    d4-d7,-(sp)
  11917.     move.l    d0,d7
  11918.     moveq    #0,d6
  11919.     moveq    #0,d5
  11920.     move.l    d7,d0
  11921.     add.l    d0,d0
  11922.     move.l    $AC0(a4),a0
  11923.     move.l    d0,d1
  11924.     addi.l    #$4E6,d1
  11925.     move.w    (a0,d1.l),d4
  11926.     ext.l    d4
  11927. c9242:    lsr.l    #1,d6
  11928.     btst    #0,d4
  11929.     beq.b    c9250
  11930.     subi.l    #$80000000,d6
  11931. c9250:    addq.l    #1,d5
  11932.     move.l    d4,d0
  11933.     add.l    d0,d0
  11934.     move.l    $AC0(a4),a0
  11935.     move.w    (a0,d0.l),d4
  11936.     ext.l    d4
  11937.     cmpi.l    #$272,d4
  11938.     bne.b    c9242
  11939.     move.l    d6,d4
  11940.     clr.w    d4
  11941.     swap    d4
  11942.     moveq    #$10,d0
  11943.     cmp.l    d0,d5
  11944.     ble.b    c9288
  11945.     move.l    d4,d1
  11946.     bsr.w    c8F68
  11947.     move.l    d5,d0
  11948.     moveq    #$10,d1
  11949.     sub.l    d1,d0
  11950.     move.l    d6,d1
  11951.     bsr.w    c8F68
  11952.     bra.b    c9290
  11953.  
  11954. c9288:    move.l    d5,d0
  11955.     move.l    d4,d1
  11956.     bsr.w    c8F68
  11957. c9290:    move.l    d7,d0
  11958.     bsr.w    c912A
  11959.     movem.l    (sp)+,d4-d7
  11960.     rts
  11961.  
  11962. c929C:    movem.l    d2/d7,-(sp)
  11963.     move.l    d0,d7
  11964.     move.l    d7,d0
  11965.     lsr.l    #6,d0
  11966.     moveq    #0,d1
  11967.     lea    $2F9(a4),a0
  11968.     move.b    (a0,d0.l),d1
  11969.     moveq    #0,d2
  11970.     lea    $339(a4),a0
  11971.     move.b    (a0,d0.l),d2
  11972.     asl.l    #8,d2
  11973.     move.l    d1,d0
  11974.     move.l    d2,d1
  11975.     bsr.w    c8F68
  11976.     move.l    d7,d0
  11977.     moveq    #$3F,d1
  11978.     and.l    d1,d0
  11979.     asl.l    #8,d0
  11980.     asl.l    #2,d0
  11981.     moveq    #6,d1
  11982.     exg    d0,d1
  11983.     bsr.w    c8F68
  11984.     movem.l    (sp)+,d2/d7
  11985.     rts
  11986.  
  11987. c92DC:    link.w    a5,#-$18
  11988.     movem.l    d4-d7/a2/a3,-(sp)
  11989.     move.l    d0,d7
  11990.     move.l    a0,-$18(a5)
  11991.     moveq    #0,d6
  11992.     moveq    #0,d5
  11993.     move.l    -$18(a5),a0
  11994.     move.l    $68(a0),a2
  11995.     bra.b    c9356
  11996.  
  11997. c92F8:    move.l    $AB8(a4),d0
  11998.     move.l    -$18(a5),a0
  11999.     cmp.l    $38(a0),d0
  12000.     bge.b    c935A
  12001.     asr.l    #1,d5
  12002.     bne.b    c931A
  12003.     moveq    #$40,d5
  12004.     add.l    d5,d5
  12005.     move.l    d6,a0
  12006.     addq.l    #1,d6
  12007.     moveq    #0,d4
  12008.     move.l    a0,d0
  12009.     move.b    (a2,d0.l),d4
  12010. c931A:    move.l    a2,a3
  12011.     adda.l    d6,a3
  12012.     move.l    d4,d0
  12013.     and.l    d5,d0
  12014.     beq.b    c934C
  12015.     moveq    #0,d0
  12016.     move.b    (a3),d0
  12017.     addi.l    #$100,d0
  12018.     bsr.w    c9222
  12019.     addq.l    #3,d6
  12020.     moveq    #0,d0
  12021.     move.b    2(a3),d0
  12022.     asl.l    #8,d0
  12023.     moveq    #0,d1
  12024.     move.b    1(a3),d1
  12025.     add.l    d0,d1
  12026.     move.l    d1,d0
  12027.     bsr.w    c929C
  12028.     bra.b    c9356
  12029.  
  12030. c934C:    addq.l    #1,d6
  12031.     moveq    #0,d0
  12032.     move.b    (a3),d0
  12033.     bsr.w    c9222
  12034. c9356:    cmp.l    d7,d6
  12035.     blt.b    c92F8
  12036. c935A:    moveq    #0,d0
  12037.     movem.l    (sp)+,d4-d7/a2/a3
  12038.     unlk    a5
  12039.     rts
  12040.  
  12041. c9364:    move.l    a3,-(sp)
  12042.     move.l    a0,a3
  12043.     tst.b    $2F8(a4)
  12044.     beq.b    c9386
  12045.     move.l    $2F4(a4),d0
  12046.     lsr.l    #8,d0
  12047.     moveq    #0,d1
  12048.     move.b    d0,d1
  12049.     move.l    d1,d0
  12050.     move.l    $AB4(a4),a0
  12051.     jsr    c1FB4(pc)
  12052.     addq.l    #1,$AB8(a4)
  12053. c9386:    move.l    $AB8(a4),d0
  12054.     cmp.l    $38(a3),d0
  12055.     blt.b    c9396
  12056.     move.w    #1,$50(a3)
  12057. c9396:    move.l    d0,$34(a3)
  12058.     move.l    (sp)+,a3
  12059.     rts
  12060.  
  12061. c939E:    movem.l    d4-d7/a2/a3,-(sp)
  12062.     move.l    a0,a3
  12063.     lea    $6174(a3),a0
  12064.     lea    $6DB6(a3),a1
  12065.     lea    $665C(a3),a2
  12066.     move.l    $48(a3),$AB4(a4)
  12067.     moveq    #0,d0
  12068.     move.l    d0,d7
  12069.     move.l    d0,d6
  12070.     move.l    d0,$AB8(a4)
  12071.     move.l    a0,$ABC(a4)
  12072.     move.l    a1,$AC4(a4)
  12073.     move.l    a2,$AC0(a4)
  12074.     bra.b    c93FE
  12075.  
  12076. c93CE:    move.l    $ABC(a4),a0
  12077.     move.w    #1,(a0,d6.l)
  12078.     move.l    d7,d0
  12079.     addi.l    #$273,d0
  12080.     move.l    $AC4(a4),a0
  12081.     move.w    d0,(a0,d6.l)
  12082.     move.l    d7,d0
  12083.     move.l    $AC0(a4),a0
  12084.     move.l    d6,d1
  12085.     addi.l    #$4E6,d1
  12086.     move.w    d0,(a0,d1.l)
  12087.     addq.l    #1,d7
  12088.     addq.l    #2,d6
  12089. c93FE:    cmpi.l    #$13A,d7
  12090.     blt.b    c93CE
  12091.     moveq    #0,d7
  12092.     move.l    #$13A,d6
  12093.     move.l    #$274,d5
  12094.     moveq    #0,d4
  12095.     bra.b    c9448
  12096.  
  12097. c9418:    move.l    $ABC(a4),a0
  12098.     move.w    (a0,d4.l),d0
  12099.     add.w    2(a0,d4.l),d0
  12100.     move.w    d0,(a0,d5.l)
  12101.     move.l    d7,d0
  12102.     move.l    $AC4(a4),a0
  12103.     move.w    d0,(a0,d5.l)
  12104.     move.l    d6,d0
  12105.     move.l    $AC0(a4),a0
  12106.     move.w    d0,2(a0,d4.l)
  12107.     move.w    d0,(a0,d4.l)
  12108.     addq.l    #2,d7
  12109.     addq.l    #1,d6
  12110.     addq.l    #2,d5
  12111.     addq.l    #4,d4
  12112. c9448:    cmpi.l    #$272,d6
  12113.     ble.b    c9418
  12114.     move.l    $ABC(a4),a0
  12115.     move.w    #$FFFF,$4E6(a0)
  12116.     move.l    $AC0(a4),a0
  12117.     clr.w    $4E4(a0)
  12118.     sf    $2F8(a4)
  12119.     clr.l    $2F4(a4)
  12120.     movem.l    (sp)+,d4-d7/a2/a3
  12121.     rts
  12122.  
  12123. c9470:    link.w    a5,#-$18
  12124.     movem.l    d2/d6/d7/a2/a3/a6,-(sp)
  12125.     move.l    a0,a3
  12126.     move.l    a1,-$14(a5)
  12127.     move.l    a3,a2
  12128.     tst.l    $868(a4)
  12129.     bne.w    c9520
  12130.     moveq    #-2,d0
  12131.     move.l    a3,a0
  12132.     jsr    cAD74(pc)
  12133.     move.l    d0,d7
  12134.     tst.l    d7
  12135.     beq.w    c9520
  12136.     tst.l    $858(a4)
  12137.     beq.b    c94AA
  12138.     move.l    d7,d0
  12139.     jsr    cAD7A(pc)
  12140.     moveq    #-1,d0
  12141.     bra.w    c958E
  12142.  
  12143. c94AA:    tst.l    $85C(a4)
  12144.     beq.b    c94F6
  12145.     move.l    #$104,d0
  12146.     jsr    cA7AA(pc)
  12147.     move.l    d0,$18(sp)
  12148.     move.l    d0,d2
  12149.     move.l    d7,d1
  12150.     move.l    $420(a4),a6
  12151.     jsr    -$66(a6)
  12152.     move.l    d7,d0
  12153.     jsr    cAD7A(pc)
  12154.     move.l    $18(sp),a0
  12155.     lea    $84(a0),a1
  12156.     move.l    a1,a0
  12157.     lea    -$10(a5),a1
  12158.     jsr    c26D6(pc)
  12159.     move.l    -$14(a5),a0
  12160.     move.l    $24(a0),d0
  12161.     cmp.l    -$10(a5),d0
  12162.     bgt.b    c9520
  12163.     moveq    #-1,d0
  12164.     bra.w    c958E
  12165.  
  12166. c94F6:    move.l    d7,d0
  12167.     jsr    cAD7A(pc)
  12168.     move.l    a3,-(sp)
  12169.     pea    salreadyexist.MSG(pc)
  12170.     pea    $590(a4)
  12171.     jsr    c2374(pc)
  12172.     moveq    #0,d0
  12173.     lea    $590(a4),a0
  12174.     jsr    c25A2(pc)
  12175.     lea    12(sp),sp
  12176.     tst.l    d0
  12177.     bne.b    c9520
  12178.     moveq    #-1,d0
  12179.     bra.b    c958E
  12180.  
  12181. c9520:    move.l    #$3EE,d0
  12182.     move.l    a3,a0
  12183.     jsr    cA6A4(pc)
  12184.     move.l    d0,d7
  12185.     tst.l    d7
  12186.     beq.b    c9588
  12187.     move.l    d7,d0
  12188.     bra.b    c958E
  12189.  
  12190. c9536:    addq.l    #1,a2
  12191. c9538:    move.b    (a2),d0
  12192.     beq.b    c9542
  12193.     moveq    #$2F,d1
  12194.     cmp.b    d1,d0
  12195.     bne.b    c9536
  12196. c9542:    tst.b    (a2)
  12197.     beq.b    c957A
  12198.     sf    (a2)
  12199.     moveq    #-2,d0
  12200.     move.l    a3,a0
  12201.     jsr    cAD74(pc)
  12202.     move.l    d0,d6
  12203.     tst.l    d6
  12204.     bne.b    c956E
  12205.     move.l    a3,d1
  12206.     move.l    $420(a4),a6
  12207.     jsr    -$78(a6)
  12208.     jsr    c9B08(pc)
  12209.     move.l    d0,d6
  12210.     move.l    d6,d0
  12211.     bne.b    c956E
  12212.     moveq    #0,d0
  12213.     bra.b    c958E
  12214.  
  12215. c956E:    move.l    d6,d0
  12216.     jsr    cAD7A(pc)
  12217.     move.b    #$2F,(a2)+
  12218.     bra.b    c9588
  12219.  
  12220. c957A:    move.l    #$3EE,d0
  12221.     move.l    a3,a0
  12222.     jsr    cA6A4(pc)
  12223.     move.l    d0,d7
  12224. c9588:    tst.b    (a2)
  12225.     bne.b    c9538
  12226.     move.l    d7,d0
  12227. c958E:    movem.l    (sp)+,d2/d6/d7/a2/a3/a6
  12228.     unlk    a5
  12229.     rts
  12230. salreadyexist.MSG    dc.b    '''%s'' already exists, overwrite?',0
  12231. LhAWARNINGThi.MSG    dc.b    'LhA WARNING: This file may be corrupt or inc'
  12232.             dc.b    'omplete.',0,0
  12233. dummy.MSG        dc.b    'dummy',0
  12234. displayme.MSG:    dc.b    '.displayme',0,0
  12235. con02640198Lh.MSG:    dc.b    'con:0/2/640/198/LhA: Contents of file `%s''.'
  12236.     dc.b    '.. Press return to close/CLOSE',0
  12237. LhAUnabletore.MSG:    dc.b    '*** LhA: Unable to re-open autoshow file for'
  12238.     dc.b    ' display!',$A,0
  12239.     dc.b    0
  12240. LhAUnabletoop.MSG:    dc.b    13
  12241.     dc.b    '*** LhA: Unable to open window for autoshow '
  12242.     dc.b    'file!',$A,0
  12243. ENDOFFILE.MSG:    dcb.b    $2,10
  12244.     dc.b    '-------------> END OF FILE <-------------',$A,$A,$A,0
  12245.     dc.b    0
  12246.  
  12247. c96E4:    movem.l    d2/a3/a6,-(sp)
  12248.     move.l    a0,a3
  12249.     tst.l    $850(a4)
  12250.     bne.b    c96FC
  12251.     move.l    a3,d1
  12252.     move.l    $420(a4),a6
  12253.     jsr    -$48(a6)
  12254.     bra.b    c970C
  12255.  
  12256. c96FC:    move.l    a3,d1
  12257.     lea    LhAWARNINGThi.MSG(pc),a0
  12258.     move.l    a0,d2
  12259.     move.l    $420(a4),a6
  12260.     jsr    -$B4(a6)
  12261. c970C:    movem.l    (sp)+,d2/a3/a6
  12262.     rts
  12263.  
  12264. c9712:    link.w    a5,#-8
  12265.     move.l    d0,-4(a5)
  12266.     move.l    #$3AC0,d0
  12267.     jsr    cA7AA(pc)
  12268.     move.l    d0,(a7)
  12269.     move.l    $C0(a4),d0
  12270.     moveq    #1,d1
  12271.     jsr    cA81C(pc)
  12272.     move.l    (a7),a0
  12273.     move.l    d0,$24(a0)
  12274.     move.l    #$2100,d0
  12275.     add.l    $C0(a4),d0
  12276.     moveq    #1,d1
  12277.     jsr    cA81C(pc)
  12278.     move.l    (sp),a0
  12279.     move.l    d0,$28(a0)
  12280.     clr.l    $48(a0)
  12281.     move.l    $E8(a4),$20(a0)
  12282.     move.l    a0,d0
  12283.     unlk    a5
  12284.     rts
  12285.  
  12286. c9762:    move.l    a3,-(sp)
  12287.     move.l    a0,a3
  12288.     move.l    $24(a3),a0
  12289.     jsr    cA894(pc)
  12290.     move.l    $28(a3),a0
  12291.     jsr    cA894(pc)
  12292.     move.l    a3,a0
  12293.     jsr    cA894(pc)
  12294.     move.l    (sp)+,a3
  12295.     rts
  12296.  
  12297. c9780:    link.w    a5,#-$118
  12298.     movem.l    d2/d3/d5-d7/a2/a3/a6,-(sp)
  12299.     move.l    a1,a3
  12300.     move.l    8(a5),a2
  12301.     move.l    d0,d7
  12302.     move.l    a0,-$118(a5)
  12303.     btst    #0,d7
  12304.     beq.b    c97F4
  12305.     sf    -$108(a5)
  12306.     move.l    12(a5),d0
  12307.     beq.b    c97CC
  12308.     move.l    d0,a0
  12309.     lea    -$108(a5),a1
  12310. c97AA:    move.b    (a0)+,(a1)+
  12311.     bne.b    c97AA
  12312.     tst.l    $D4(a4)
  12313.     beq.b    c97E4
  12314.     tst.l    $1E(a3)
  12315.     beq.b    c97E4
  12316.     lea    -$108(a5),a0
  12317.     move.l    $1E(a3),a1
  12318.     move.l    $424(a4),a6
  12319.     jsr    -$270(a6)
  12320.     bra.b    c97E4
  12321.  
  12322. c97CC:    tst.l    $D4(a4)
  12323.     beq.b    c97E4
  12324.     tst.l    $1E(a3)
  12325.     beq.b    c97E4
  12326.     move.l    $1E(a3),a0
  12327.     lea    -$108(a5),a1
  12328. c97E0:    move.b    (a0)+,(a1)+
  12329.     bne.b    c97E0
  12330. c97E4:    lea    -$108(a5),a0
  12331.     move.l    $1A(a3),a1
  12332.     move.l    $424(a4),a6
  12333.     jsr    -$270(a6)
  12334. c97F4:    move.l    $1A(a3),a0
  12335.     tst.b    (a0)
  12336.     bne.b    c9840
  12337.     lea    -$108(a5),a0
  12338.     lea    dummy.MSG(pc),a1
  12339.     move.l    $424(a4),a6
  12340.     jsr    -$270(a6)
  12341.     lea    -$108(a5),a0
  12342.     move.l    a3,a1
  12343.     bsr.w    c9470
  12344.     move.l    d0,d7
  12345.     tst.l    d7
  12346.     bpl.b    c9822
  12347.     moveq    #-1,d0
  12348.     bra.w    c9B00
  12349.  
  12350. c9822:    tst.l    d7
  12351.     ble.b    c982C
  12352.     move.l    d7,d0
  12353.     jsr    cA6B6(pc)
  12354. c982C:    lea    -$108(a5),a0
  12355.     move.l    a0,d1
  12356.     move.l    $420(a4),a6
  12357.     jsr    -$48(a6)
  12358.     moveq    #0,d0
  12359.     bra.w    c9B00
  12360.  
  12361. c9840:    move.l    -$118(a5),$44(a2)
  12362.     move.l    $10(a3),$34(a2)
  12363.     move.l    12(a3),$38(a2)
  12364.     moveq    #0,d0
  12365.     move.l    d0,$3C(a2)
  12366.     move.l    d0,$294(a4)
  12367.     move.l    $C0(a4),d1
  12368.     move.l    d1,$40(a2)
  12369.     move.l    $C0(a4),$30(a2)
  12370.     btst    #2,d7
  12371.     beq.b    c9874
  12372.     moveq    #-1,d1
  12373.     bra.b    c9876
  12374.  
  12375. c9874:    move.l    d0,d1
  12376. c9876:    move.w    d1,$4C(a2)
  12377.     btst    #0,d7
  12378.     beq.b    c98A4
  12379.     lea    -$108(a5),a0
  12380.     move.l    a3,a1
  12381.     bsr.w    c9470
  12382.     move.l    d0,$48(a2)
  12383.     bne.b    c9896
  12384.     moveq    #4,d0
  12385.     bra.w    c9B00
  12386.  
  12387. c9896:    move.l    $48(a2),d0
  12388.     tst.l    d0
  12389.     bpl.b    c98A4
  12390.     moveq    #-1,d0
  12391.     bra.w    c9B00
  12392.  
  12393. c98A4:    move.w    $34(a3),d0
  12394.     tst.w    d0
  12395.     beq.b    c98BA
  12396.     subq.w    #1,d0
  12397.     beq.b    c98DA
  12398.     subq.w    #3,d0
  12399.     beq.b    c98FA
  12400.     subq.w    #1,d0
  12401.     beq.b    c98FA
  12402.     bra.b    c991A
  12403.  
  12404. c98BA:    move.l    a2,-(sp)
  12405.     jsr    c63B4(pc)
  12406.     addq.w    #4,sp
  12407.     tst.l    d0
  12408.     bpl.b    c98CA
  12409.     moveq    #3,d6
  12410.     bra.b    c9930
  12411.  
  12412. c98CA:    move.l    a2,a0
  12413.     jsr    c6394(pc)
  12414.     move.l    a2,a0
  12415.     jsr    c6F6A(pc)
  12416.     move.l    d0,d6
  12417.     bra.b    c9930
  12418.  
  12419. c98DA:    move.l    a2,-(sp)
  12420.     jsr    c63B4(pc)
  12421.     addq.w    #4,sp
  12422.     tst.l    d0
  12423.     bpl.b    c98EA
  12424.     moveq    #3,d6
  12425.     bra.b    c9930
  12426.  
  12427. c98EA:    move.l    a2,a0
  12428.     jsr    c6394(pc)
  12429.     move.l    a2,a0
  12430.     jsr    c68A6(pc)
  12431.     move.l    d0,d6
  12432.     bra.b    c9930
  12433.  
  12434. c98FA:    move.l    a2,-(sp)
  12435.     jsr    c63B4(pc)
  12436.     addq.w    #4,sp
  12437.     tst.l    d0
  12438.     bpl.b    c990A
  12439.     moveq    #3,d6
  12440.     bra.b    c9930
  12441.  
  12442. c990A:    move.l    a2,a0
  12443.     jsr    c639A(pc)
  12444.     move.l    a2,a0
  12445.     jsr    c76B4(pc)
  12446.     move.l    d0,d6
  12447.     bra.b    c9930
  12448.  
  12449. c991A:    move.l    $48(a2),d0
  12450.     jsr    cA6B6(pc)
  12451.     lea    -$108(a5),a0
  12452.     bsr.w    c96E4
  12453.     moveq    #1,d0
  12454.     bra.w    c9B00
  12455.  
  12456. c9930:    btst    #0,d7
  12457.     beq.b    c993E
  12458.     move.l    $48(a2),d0
  12459.     jsr    cA6B6(pc)
  12460. c993E:    tst.l    d6
  12461.     beq.b    c997A
  12462.     btst    #0,d7
  12463.     beq.b    c9950
  12464.     lea    -$108(a5),a0
  12465.     bsr.w    c96E4
  12466. c9950:    moveq    #2,d0
  12467.     cmp.l    d0,d6
  12468.     bne.b    c995C
  12469.     moveq    #5,d0
  12470.     bra.w    c9B00
  12471.  
  12472. c995C:    moveq    #3,d0
  12473.     cmp.l    d0,d6
  12474.     bne.b    c9968
  12475.     moveq    #2,d0
  12476.     bra.w    c9B00
  12477.  
  12478. c9968:    moveq    #4,d0
  12479.     cmp.l    d0,d6
  12480.     bne.b    c9974
  12481.     moveq    #8,d0
  12482.     bra.w    c9B00
  12483.  
  12484. c9974:    moveq    #2,d0
  12485.     bra.w    c9B00
  12486.  
  12487. c997A:    move.w    $2C(a3),d0
  12488.     cmp.w    $4E(a2),d0
  12489.     beq.b    c9998
  12490.     btst    #0,d7
  12491.     beq.b    c9992
  12492.     lea    -$108(a5),a0
  12493.     bsr.w    c96E4
  12494. c9992:    moveq    #3,d0
  12495.     bra.w    c9B00
  12496.  
  12497. c9998:    btst    #0,d7
  12498.     beq.w    c9AEE
  12499.     lea    $24(a3),a0
  12500.     lea    -$114(a5),a1
  12501.     jsr    c28E8(pc)
  12502.     lea    -$108(a5),a0
  12503.     lea    -$114(a5),a1
  12504.     jsr    cAC18(pc)
  12505.     tst.l    $D0(a4)
  12506.     beq.b    c99E6
  12507.     tst.l    $834(a4)
  12508.     beq.b    c99D0
  12509.     move.w    $22(a3),d0
  12510.     ext.l    d0
  12511.     andi.w    #$FFEF,d0
  12512.     bra.b    c99D6
  12513.  
  12514. c99D0:    move.w    $22(a3),d0
  12515.     ext.l    d0
  12516. c99D6:    move.l    d0,d2
  12517.     lea    -$108(a5),a0
  12518.     move.l    a0,d1
  12519.     move.l    $420(a4),a6
  12520.     jsr    -$BA(a6)
  12521. c99E6:    tst.l    $84C(a4)
  12522.     bne.b    c9A04
  12523.     tst.l    $28(a3)
  12524.     beq.b    c9A04
  12525.     lea    -$108(a5),a0
  12526.     move.l    a0,d1
  12527.     move.l    $28(a3),d2
  12528.     move.l    $420(a4),a6
  12529.     jsr    -$B4(a6)
  12530. c9A04:    tst.l    $CC(a4)
  12531.     bne.w    c9AFE
  12532.     move.l    $1A(a3),a0
  12533. c9A10:    tst.b    (a0)+
  12534.     bne.b    c9A10
  12535.     subq.l    #1,a0
  12536.     suba.l    $1A(a3),a0
  12537.     move.l    a0,d0
  12538.     move.l    $1A(a3),a1
  12539.     adda.l    d0,a1
  12540.     move.l    a1,a2
  12541. c9A24:    move.l    a2,a0
  12542.     subq.l    #1,a2
  12543.     cmpa.l    $1A(a3),a0
  12544.     beq.b    c9A34
  12545.     moveq    #$2E,d0
  12546.     cmp.b    (a2),d0
  12547.     bne.b    c9A24
  12548. c9A34:    tst.b    (a2)
  12549.     beq.w    c9AFE
  12550.     lea    displayme.MSG(pc),a0
  12551.     move.l    a2,a1
  12552.     jsr    cA9E2(pc)
  12553.     tst.l    d0
  12554.     bne.w    c9AFE
  12555.     move.l    $1A(a3),-(sp)
  12556.     pea    con02640198Lh.MSG(pc)
  12557.     pea    $490(a4)
  12558.     jsr    c2374(pc)
  12559.     move.l    #$3EE,d0
  12560.     lea    $490(a4),a0
  12561.     jsr    cA6A4(pc)
  12562.     lea    12(sp),sp
  12563.     move.l    d0,d7
  12564.     tst.l    d7
  12565.     beq.b    c9AE2
  12566.     move.l    #$3ED,d0
  12567.     lea    -$108(a5),a0
  12568.     jsr    cA6A4(pc)
  12569.     move.l    d0,d6
  12570.     tst.l    d6
  12571.     beq.b    c9AD0
  12572.     bra.b    c9A9A
  12573.  
  12574. c9A88:    move.l    d7,d1
  12575.     lea    $490(a4),a0
  12576.     move.l    a0,d2
  12577.     move.l    d5,d3
  12578.     move.l    $420(a4),a6
  12579.     jsr    -$30(a6)
  12580. c9A9A:    move.l    d6,d1
  12581.     lea    $490(a4),a0
  12582.     move.l    a0,d2
  12583.     move.l    #$100,d3
  12584.     move.l    $420(a4),a6
  12585.     jsr    -$2A(a6)
  12586.     move.l    d0,d5
  12587.     tst.l    d5
  12588.     bgt.b    c9A88
  12589.     move.l    d6,d0
  12590.     jsr    cA6B6(pc)
  12591.     move.l    d7,d1
  12592.     lea    $490(a4),a0
  12593.     move.l    a0,d2
  12594.     moveq    #1,d3
  12595.     move.l    $420(a4),a6
  12596.     jsr    -$2A(a6)
  12597.     bra.b    c9ADA
  12598.  
  12599. c9AD0:    pea    LhAUnabletore.MSG(pc)
  12600.     jsr    c2328(pc)
  12601.     addq.w    #4,sp
  12602. c9ADA:    move.l    d7,d0
  12603.     jsr    cA6B6(pc)
  12604.     bra.b    c9AFE
  12605.  
  12606. c9AE2:    pea    LhAUnabletoop.MSG(pc)
  12607.     jsr    c2328(pc)
  12608.     addq.w    #4,sp
  12609.     bra.b    c9AFE
  12610.  
  12611. c9AEE:    btst    #2,d7
  12612.     beq.b    c9AFE
  12613.     moveq    #$2E,d0
  12614.     lea    ENDOFFILE.MSG(pc),a0
  12615.     jsr    c24DA(pc)
  12616. c9AFE:    moveq    #0,d0
  12617. c9B00:    movem.l    (sp)+,d2/d3/d5-d7/a2/a3/a6
  12618.     unlk    a5
  12619.     rts
  12620.  
  12621. c9B08:    jmp    c1342
  12622.  
  12623.     moveq    #$61,d0
  12624. c9B10:    link.w    a5,#0
  12625.     movem.l    a2/a3,-(sp)
  12626.     move.l    a0,a3
  12627.     move.l    a1,a2
  12628.     tst.l    $864(a4)
  12629.     bne.w    c9BA4
  12630.     tst.l    $86C(a4)
  12631.     beq.b    c9B3E
  12632.     move.l    8(a5),-(sp)
  12633.     move.l    12(a3),-(sp)
  12634.     move.l    a2,-(sp)
  12635.     pea    FormStr2(pc)
  12636.     jsr    c2328(pc)
  12637.     bra.b    c9BA4
  12638.  
  12639. c9B3E:    move.l    $844(a4),d0
  12640.     moveq    #1,d1
  12641.     cmp.l    d1,d0
  12642.     blt.b    c9B4E
  12643.     moveq    #3,d1
  12644.     cmp.l    d1,d0
  12645.     ble.b    c9B68
  12646. c9B4E:    move.l    8(a5),-(sp)
  12647.     move.l    12(a3),-(sp)
  12648.     clr.l    -(sp)
  12649.     move.l    a2,-(sp)
  12650.     pea    FormsStr3(pc)
  12651.     jsr    c2328(pc)
  12652.     lea    $14(sp),sp
  12653.     bra.b    c9BA4
  12654.  
  12655. c9B68:    moveq    #2,d1
  12656.     cmp.l    d1,d0
  12657.     beq.b    c9B72
  12658.     subq.l    #1,d0
  12659.     bne.b    c9B86
  12660. c9B72:    move.l    $1A(a3),-(sp)
  12661.     move.l    a2,-(sp)
  12662.     pea    ssK.MSG(pc)
  12663.     jsr    c2328(pc)
  12664.     lea    12(sp),sp
  12665.     bra.b    c9BA4
  12666.  
  12667. c9B86:    moveq    #3,d0
  12668.     cmp.l    $844(a4),d0
  12669.     bne.b    c9BA4
  12670.     move.l    8(a5),-(sp)
  12671.     move.l    a2,-(sp)
  12672.     pea    l9BF4(pc)
  12673.     jsr    c2328(pc)
  12674.     jsr    c23FA(pc)
  12675.     lea    12(sp),sp
  12676. c9BA4:    movem.l    -8(a5),a2/a3
  12677.     unlk    a5
  12678.     rts
  12679.  
  12680. FormStr2:    dc.b    13
  12681.     dc.b    '%11s: (%8ld)  %s'
  12682.     dc.b    $1B
  12683.     dc.b    '[K',0,0
  12684. FormsStr3:    dc.b    13
  12685.     dc.b    '%11s: (%8ld/%8ld)  %s'
  12686.     dc.b    $1B
  12687.     dc.b    '[K',0
  12688. ssK.MSG:    dc.b    13
  12689.     dc.b    '%11s: (    ) %s '
  12690.     dc.b    $1B
  12691.     dc.b    '[K',0,0
  12692. l9BF4:    dc.l    $D253131
  12693.     dc.l    $733A207F
  12694.     dcb.l    $4,$7F7F7F7F
  12695.     dc.l    $7F7F2025
  12696.     dc.l    $731B5B4B
  12697.     dc.l    $D1B5B31
  12698.     dc.l    $32430000
  12699. FormatedStr:    dc.b    13
  12700.     dc.b    '%11s: (%2ld.%1ld%%) %7ld =>%7ld : %s'
  12701.     dc.b    $1B
  12702.     dc.b    '[K',0,0
  12703. Frozen.MSG:    dc.b    'Frozen',0,0
  12704. Stored.MSG:    dc.b    'Stored',0,0
  12705. ascii.MSG4:    dc.b    10
  12706.     dc.b    0
  12707. FormStr:    dc.b    13
  12708.     dc.b    $1B
  12709.     dc.b    '[14C%8ld',0,0
  12710. l9C64:    dc.l    $D1B5B31
  12711.     dc.l    $35432563
  12712.     dc.w    $800
  12713. l9C6E:    dc.l    $D1B5B31
  12714.     dc.l    $34432533
  12715.     dc.l    $6C642525
  12716.     dc.l    $8080808
  12717.     dc.w    0
  12718. C.MSG:    dc.b    13
  12719.     dc.b    $1B
  12720.     dc.b    '[13C',0,0
  12721. UnderScores:    dc.b    '_____________________',0
  12722.  
  12723. c9C9E:    link.w    a5,#-8
  12724.     movem.l    d7/a3,-(sp)
  12725.     move.l    a0,a3
  12726.     tst.l    $864(a4)
  12727.     bne.b    c9D1A
  12728.     move.l    a3,a0
  12729.     lea    $590(a4),a1
  12730.     jsr    c5282(pc)
  12731.     move.l    12(a3),d0
  12732.     move.l    $10(a3),d1
  12733.     jsr    c2246(pc)
  12734.     move.l    d0,d7
  12735.     tst.w    $34(a3)
  12736.     beq.b    c9CD2
  12737.     lea    Frozen.MSG(pc),a0
  12738.     bra.b    c9CD6
  12739.  
  12740. c9CD2:    lea    Stored.MSG(pc),a0
  12741. c9CD6:    move.l    d7,d0
  12742.     moveq    #10,d1
  12743.     jsr    cAF2C(pc)
  12744.     move.l    d0,12(sp)
  12745.     move.l    d7,d0
  12746.     moveq    #10,d1
  12747.     jsr    cAF2C(pc)
  12748.     pea    $590(a4)
  12749.     move.l    $10(a3),-(sp)
  12750.     move.l    12(a3),-(sp)
  12751.     move.l    d1,-(sp)
  12752.     move.l    $1C(sp),-(sp)
  12753.     move.l    a0,-(sp)
  12754.     pea    FormatedStr(pc)
  12755.     jsr    c2328(pc)
  12756.     lea    $1C(sp),sp
  12757.     tst.l    $E4(a4)
  12758.     beq.b    c9D1A
  12759.     pea    ascii.MSG4(pc)
  12760.     jsr    c2328(pc)
  12761.     addq.w    #4,sp
  12762. c9D1A:    movem.l    (sp)+,d7/a3
  12763.     unlk    a5
  12764.     rts
  12765.  
  12766. c9D22:    link.w    a5,#-8
  12767.     movem.l    d2/d3/d5-d7/a3/a6,-(sp)
  12768.     move.l    d0,d7
  12769.     move.l    d1,d6
  12770.     move.l    a0,a3
  12771.     tst.l    $864(a4)
  12772.     bne.b    c9D3C
  12773.     tst.l    $86C(a4)
  12774.     beq.b    c9D42
  12775. c9D3C:    moveq    #0,d0
  12776.     bra.w    c9DEC
  12777.  
  12778. c9D42:    move.l    $844(a4),d0
  12779.     subq.l    #1,d0
  12780.     beq.b    c9D62
  12781.     subq.l    #1,d0
  12782.     beq.b    c9D8C
  12783.     subq.l    #1,d0
  12784.     beq.b    c9DA8
  12785.     move.l    d7,-(sp)
  12786.     pea    FormStr(pc)
  12787.     jsr    c2328(pc)
  12788.     addq.w    #8,sp
  12789.     bra.w    c9DEA
  12790.  
  12791. c9D62:    move.w    $37C(a4),d0
  12792.     addq.w    #1,d0
  12793.     andi.w    #3,d0
  12794.     moveq    #0,d1
  12795.     lea    $37E(a4),a0
  12796.     move.b    (a0,d0.w),d1
  12797.     swap    d1
  12798.     clr.w    d1
  12799.     move.l    d1,-(sp)
  12800.     pea    l9C64(pc)
  12801.     move.w    d0,$37C(a4)
  12802.     jsr    c2328(pc)
  12803.     addq.w    #8,sp
  12804.     bra.b    c9DEA
  12805.  
  12806. c9D8C:    move.l    d7,d0
  12807.     moveq    #$64,d1
  12808.     jsr    cAF0C(pc)
  12809.     move.l    d6,d1
  12810.     jsr    cAF2C(pc)
  12811.     move.l    d0,-(sp)
  12812.     pea    l9C6E(pc)
  12813.     jsr    c2328(pc)
  12814.     addq.w    #8,sp
  12815.     bra.b    c9DEA
  12816.  
  12817. c9DA8:    move.l    d7,d0
  12818.     moveq    #$14,d1
  12819.     jsr    cAF0C(pc)
  12820.     move.l    d6,d1
  12821.     jsr    cAF2C(pc)
  12822.     subq.l    #1,d0
  12823.     move.l    d0,d5
  12824.     cmp.w    (a3),d5
  12825.     ble.b    c9DEA
  12826.     pea    C.MSG(pc)
  12827.     jsr    c2328(pc)
  12828.     addq.w    #4,sp
  12829.     move.l    $420(a4),a6
  12830.     jsr    -$3C(a6)
  12831.     move.l    d5,d1
  12832.     ext.l    d1
  12833.     move.l    d1,$20(sp)
  12834.     move.l    d0,d1
  12835.     lea    UnderScores(pc),a0
  12836.     move.l    a0,d2
  12837.     move.l    $20(sp),d3
  12838.     jsr    -$30(a6)
  12839.     move.w    d5,(a3)
  12840. c9DEA:    moveq    #0,d0
  12841. c9DEC:    movem.l    (sp)+,d2/d3/d5-d7/a3/a6
  12842.     unlk    a5
  12843.     rts
  12844.  
  12845. c9DF4:    move.l    d7,-(sp)
  12846.     move.l    d0,d7
  12847.     moveq    #0,d0
  12848.     move.l    d0,$AD0(a4)
  12849.     move.l    d0,$ACC(a4)
  12850.     move.l    d0,$AC8(a4)
  12851.     jsr    c2628(pc)
  12852.     move.l    d0,$EC(a4)
  12853.     moveq    #1,d0
  12854.     cmp.l    d0,d7
  12855.     beq.b    c9E18
  12856.     tst.l    d7
  12857.     bne.b    c9E24
  12858. c9E18:    pea    OriginalPacke.MSG(pc)
  12859.     jsr    c2328(pc)
  12860.     addq.w    #4,sp
  12861.     bra.b    c9E2E
  12862.  
  12863. c9E24:    pea    OriginalPacke.MSG0(pc)
  12864.     jsr    c2328(pc)
  12865.     addq.w    #4,sp
  12866. c9E2E:    moveq    #0,d0
  12867.     move.l    (sp)+,d7
  12868.     rts
  12869.  
  12870. OriginalPacke.MSG:    dc.b    'Original  Packed Ratio    Date     Time    N'
  12871.     dc.b    'ame',$A
  12872.     dc.b    '-------- ------- ----- --------- --------  -'
  12873.     dc.b    '------------',$A,0
  12874. OriginalPacke.MSG0:    dc.b    'Original  Packed Ratio    Date     Time     '
  12875.     dc.b    'Atts   Method CRC  L OS  ',$A
  12876.     dc.b    '-------- ------- ----- --------- -------- --'
  12877.     dc.b    '------ ------ ---- ------',$A,0
  12878.     dc.b    0
  12879. s8ld7ld2ld1ld.MSG:    dc.b    '%s',$A
  12880.     dc.b    '%8ld %7ld %2ld.%1ld%% %02ld-%3s-%02ld %02ld:'
  12881.     dc.b    '%02ld:%02ld %8s %6s %04lx %ld %lc %lc',$A,0
  12882. s.MSG:    dc.b    ': %s',$A,0
  12883. ld7ld2ld1ld02.MSG:    dc.b    '%8ld %7ld %2ld.%1ld%% %02ld-%3s-%02ld %02ld:'
  12884.     dc.b    '%02ld:%02ld %s',$A,0
  12885. ld7ld2ld1ld02.MSG0:    dc.b    '-------- ------- ----- --------- --------',$A
  12886.     dc.b    '%8ld %7ld %2ld.%1ld%% %02ld-%3s-%02ld %02ld:'
  12887.     dc.b    '%02ld:%02ld   %ld files',$A,$A,0
  12888.  
  12889. cA034:    link.w    a5,#-$34
  12890.     movem.l    d2-d7/a3/a6,-(sp)
  12891.     move.l    a1,a3
  12892.     move.l    d0,d7
  12893.     move.l    a0,-$1A(a5)
  12894.     move.l    12(a3),d0
  12895.     move.l    $10(a3),d1
  12896.     jsr    c2246(pc)
  12897.     ext.l    d0
  12898.     moveq    #10,d1
  12899.     move.l    d0,$24(sp)
  12900.     jsr    cAF2C(pc)
  12901.     move.l    d1,d4
  12902.     move.l    $24(sp),d0
  12903.     moveq    #10,d1
  12904.     jsr    cAF2C(pc)
  12905.     move.l    d0,$20(sp)
  12906.     moveq    #2,d1
  12907.     cmp.l    d1,d7
  12908.     bne.w    cA192
  12909.     move.w    $22(a3),d1
  12910.     ext.l    d1
  12911.     move.l    d1,d0
  12912.     lea    -$15(a5),a0
  12913.     jsr    c2392(pc)
  12914.     move.l    $1E(a3),d0
  12915.     beq.b    cA096
  12916.     move.l    d0,a0
  12917.     lea    $490(a4),a1
  12918. cA090:    move.b    (a0)+,(a1)+
  12919.     bne.b    cA090
  12920.     bra.b    cA09A
  12921.  
  12922. cA096:    sf    $490(a4)
  12923. cA09A:    lea    $490(a4),a0
  12924.     move.l    $1A(a3),a1
  12925.     move.l    $424(a4),a6
  12926.     jsr    -$270(a6)
  12927.     moveq    #0,d7
  12928.     move.w    $2C(a3),d7
  12929.     move.w    $2E(a3),d0
  12930.     ext.l    d0
  12931.     move.l    d0,d6
  12932.     moveq    #7,d1
  12933.     and.l    d1,d6
  12934.     moveq    #0,d5
  12935.     move.b    $36(a3),d5
  12936.     btst    #3,$2F(a3)
  12937.     beq.b    cA0CE
  12938.     moveq    #$58,d0
  12939.     bra.b    cA0D0
  12940.  
  12941. cA0CE:    moveq    #$20,d0
  12942. cA0D0:    lea    $14(a3),a0
  12943.     move.l    $24(a3),d1
  12944.     andi.l    #$1F,d1
  12945.     add.l    d1,d1
  12946.     move.l    $24(a3),d2
  12947.     lsr.l    #5,d2
  12948.     andi.l    #$3F,d2
  12949.     move.l    $24(a3),d3
  12950.     lsr.l    #8,d3
  12951.     lsr.l    #3,d3
  12952.     andi.l    #$1F,d3
  12953.     move.l    d0,$24(sp)
  12954.     move.l    $24(a3),d0
  12955.     clr.w    d0
  12956.     swap    d0
  12957.     lsr.l    #8,d0
  12958.     lsr.l    #1,d0
  12959.     andi.l    #$7F,d0
  12960.     move.l    d1,$2C(sp)
  12961.     moveq    #$50,d1
  12962.     add.l    d1,d0
  12963.     move.l    $24(a3),d1
  12964.     clr.w    d1
  12965.     swap    d1
  12966.     lsr.l    #5,d1
  12967.     andi.l    #15,d1
  12968.     asl.l    #2,d1
  12969.     lea    $380(a4),a1
  12970.     adda.l    d1,a1
  12971.     move.l    $24(a3),d1
  12972.     clr.w    d1
  12973.     swap    d1
  12974.     andi.l    #$1F,d1
  12975.     move.l    $24(sp),-(sp)
  12976.     move.l    d5,-(sp)
  12977.     move.l    d6,-(sp)
  12978.     move.l    d7,-(sp)
  12979.     move.l    a0,-(sp)
  12980.     pea    -$15(a5)
  12981.     move.l    $44(sp),-(sp)
  12982.     move.l    d2,-(sp)
  12983.     move.l    d3,-(sp)
  12984.     move.l    d0,-(sp)
  12985.     move.l    a1,-(sp)
  12986.     move.l    d1,-(sp)
  12987.     move.l    d4,-(sp)
  12988.     move.l    $54(sp),-(sp)
  12989.     move.l    $10(a3),-(sp)
  12990.     move.l    12(a3),-(sp)
  12991.     pea    $490(a4)
  12992.     pea    s8ld7ld2ld1ld.MSG(pc)
  12993.     jsr    c2328(pc)
  12994.     lea    $48(sp),sp
  12995.     move.l    $28(a3),d0
  12996.     beq.w    cA286
  12997.     move.l    d0,-(sp)
  12998.     pea    s.MSG(pc)
  12999.     jsr    c2328(pc)
  13000.     addq.w    #8,sp
  13001.     bra.w    cA286
  13002.  
  13003. cA192:    move.b    #$20,$490(a4)
  13004.     tst.l    d7
  13005.     beq.b    cA1C4
  13006.     move.l    $1E(a3),d1
  13007.     beq.b    cA1AE
  13008.     move.l    d1,a0
  13009.     lea    $491(a4),a1
  13010. cA1A8:    move.b    (a0)+,(a1)+
  13011.     bne.b    cA1A8
  13012.     bra.b    cA1B2
  13013.  
  13014. cA1AE:    sf    $491(a4)
  13015. cA1B2:    lea    $491(a4),a0
  13016.     move.l    $1A(a3),a1
  13017.     move.l    $424(a4),a6
  13018.     jsr    -$270(a6)
  13019.     bra.b    cA1DC
  13020.  
  13021. cA1C4:    move.l    $1A(a3),a0
  13022.     lea    $491(a4),a1
  13023. cA1CC:    move.b    (a0)+,(a1)+
  13024.     bne.b    cA1CC
  13025.     tst.l    $1E(a3)
  13026.     beq.b    cA1DC
  13027.     move.b    #$2B,$490(a4)
  13028. cA1DC:    move.l    $24(a3),d0
  13029.     clr.w    d0
  13030.     swap    d0
  13031.     andi.l    #$1F,d0
  13032.     move.l    $24(a3),d1
  13033.     clr.w    d1
  13034.     swap    d1
  13035.     lsr.l    #5,d1
  13036.     andi.l    #15,d1
  13037.     asl.l    #2,d1
  13038.     lea    $380(a4),a0
  13039.     adda.l    d1,a0
  13040.     move.l    $24(a3),d1
  13041.     clr.w    d1
  13042.     swap    d1
  13043.     lsr.l    #8,d1
  13044.     lsr.l    #1,d1
  13045.     andi.l    #$7F,d1
  13046.     moveq    #$50,d2
  13047.     add.l    d2,d1
  13048.     move.l    $24(a3),d2
  13049.     lsr.l    #8,d2
  13050.     lsr.l    #3,d2
  13051.     andi.l    #$1F,d2
  13052.     move.l    $24(a3),d3
  13053.     lsr.l    #5,d3
  13054.     andi.l    #$3F,d3
  13055.     move.l    d3,$34(sp)
  13056.     move.l    $24(a3),d3
  13057.     andi.l    #$1F,d3
  13058.     add.l    d3,d3
  13059.     pea    $490(a4)
  13060.     move.l    d3,-(sp)
  13061.     move.l    $3C(sp),-(sp)
  13062.     move.l    d2,-(sp)
  13063.     move.l    d1,-(sp)
  13064.     move.l    a0,-(sp)
  13065.     move.l    d0,-(sp)
  13066.     move.l    d4,-(sp)
  13067.     move.l    $40(sp),-(sp)
  13068.     move.l    $10(a3),-(sp)
  13069.     move.l    12(a3),-(sp)
  13070.     pea    ld7ld2ld1ld02.MSG(pc)
  13071.     jsr    c2328(pc)
  13072.     lea    $30(sp),sp
  13073.     tst.l    d7
  13074.     beq.b    cA286
  13075.     tst.l    $28(a3)
  13076.     beq.b    cA286
  13077.     move.l    $28(a3),-(sp)
  13078.     pea    s.MSG(pc)
  13079.     jsr    c2328(pc)
  13080.     addq.w    #8,sp
  13081. cA286:    addq.l    #1,$AD0(a4)
  13082.     move.l    $10(a3),d0
  13083.     add.l    d0,$AC8(a4)
  13084.     move.l    12(a3),d0
  13085.     add.l    d0,$ACC(a4)
  13086.     moveq    #0,d0
  13087.     movem.l    (sp)+,d2-d7/a3/a6
  13088.     unlk    a5
  13089.     rts
  13090.  
  13091. cA2A4:    link.w    a5,#-12
  13092.     movem.l    d2-d5/a3/a6,-(sp)
  13093.     move.l    a0,a3
  13094.     move.l    #$104,d0
  13095.     moveq    #1,d1
  13096.     jsr    cA81C(pc)
  13097.     move.l    d0,$18(sp)
  13098.     tst.l    d0
  13099.     beq.b    cA2FC
  13100.     moveq    #-2,d0
  13101.     move.l    a3,a0
  13102.     jsr    cAD74(pc)
  13103.     move.l    d0,$1C(sp)
  13104.     move.l    d0,d1
  13105.     move.l    $18(sp),d2
  13106.     move.l    $420(a4),a6
  13107.     jsr    -$66(a6)
  13108.     move.l    $1C(sp),d0
  13109.     jsr    cAD7A(pc)
  13110.     move.l    $18(sp),a0
  13111.     adda.w    #$84,a0
  13112.     lea    -4(a5),a1
  13113.     jsr    c26D6(pc)
  13114.     move.l    $18(sp),a0
  13115.     jsr    cA894(pc)
  13116. cA2FC:    move.l    $ACC(a4),d0
  13117.     move.l    $AC8(a4),d1
  13118.     jsr    cA3B8(pc)
  13119.     ext.l    d0
  13120.     moveq    #10,d1
  13121.     move.l    d0,$18(sp)
  13122.     jsr    cAF2C(pc)
  13123.     move.l    $18(sp),d1
  13124.     move.l    d0,$1C(sp)
  13125.     move.l    d1,d0
  13126.     moveq    #10,d1
  13127.     jsr    cAF2C(pc)
  13128.     move.l    -4(a5),d0
  13129.     clr.w    d0
  13130.     swap    d0
  13131.     andi.l    #$1F,d0
  13132.     move.l    -4(a5),d2
  13133.     clr.w    d2
  13134.     swap    d2
  13135.     lsr.l    #5,d2
  13136.     andi.l    #15,d2
  13137.     asl.l    #2,d2
  13138.     lea    $380(a4),a0
  13139.     adda.l    d2,a0
  13140.     move.l    -4(a5),d2
  13141.     clr.w    d2
  13142.     swap    d2
  13143.     lsr.l    #8,d2
  13144.     lsr.l    #1,d2
  13145.     andi.l    #$7F,d2
  13146.     moveq    #$50,d3
  13147.     add.l    d3,d2
  13148.     move.l    -4(a5),d3
  13149.     lsr.l    #8,d3
  13150.     lsr.l    #3,d3
  13151.     andi.l    #$1F,d3
  13152.     move.l    -4(a5),d4
  13153.     lsr.l    #5,d4
  13154.     andi.l    #$3F,d4
  13155.     move.l    -4(a5),d5
  13156.     andi.l    #$1F,d5
  13157.     add.l    d5,d5
  13158.     move.l    $AD0(a4),-(sp)
  13159.     move.l    d5,-(sp)
  13160.     move.l    d4,-(sp)
  13161.     move.l    d3,-(sp)
  13162.     move.l    d2,-(sp)
  13163.     move.l    a0,-(sp)
  13164.     move.l    d0,-(sp)
  13165.     move.l    d1,-(sp)
  13166.     move.l    $3C(sp),-(sp)
  13167.     move.l    $AC8(a4),-(sp)
  13168.     move.l    $ACC(a4),-(sp)
  13169.     pea    ld7ld2ld1ld02.MSG0(pc)
  13170.     jsr    cAF04(pc)
  13171.     movem.l    -$24(a5),d2-d5/a3/a6
  13172.     unlk    a5
  13173.     rts
  13174.  
  13175.     dc.w    0
  13176.  
  13177. cA3B8:    jmp    c2246
  13178.  
  13179.     jmp    c26D6
  13180.  
  13181.     jmp    c2392
  13182.  
  13183.     jmp    c2628
  13184.  
  13185. cA3D0:    suba.l    a0,a0
  13186.     move.l    a0,$AD8(a4)
  13187.     move.l    a0,$AD4(a4)
  13188.     rts
  13189.  
  13190. LhAUnabletoop.MSG1:    dc.b    10
  13191.     dc.b    '*** LhA: Unable to open temporary archive fi'
  13192.     dc.b    'le',$A,0
  13193.     dc.b    0
  13194. LhACouldnotre.MSG:    dc.b    10
  13195.     dc.b    '*** LhA: Could not re-open archive `%s''.',$A,0
  13196.     dc.b    0
  13197. LhAIOerrorwhi.MSG:    dc.b    10
  13198.     dc.b    '*** LhA: I/O error while copying from archiv'
  13199.     dc.b    'e to temporary',$A,0
  13200.     dc.b    0
  13201. Deletings.MSG:    dc.b    '  Deleting ''%s''',$A,0
  13202.     dc.b    0
  13203. Packingarchiv.MSG:    dc.b    'Packing archive...',$A,0
  13204. LhANofilesdel.MSG:    dc.b    '*** LhA: No files deleted from archive.',$A,0
  13205.     dc.b    0
  13206.  
  13207. cA4C8:    movem.l    d2/a2/a3,-(sp)
  13208.     move.l    a0,a3
  13209.     tst.l    $AD4(a4)
  13210.     beq.b    cA4FA
  13211.     move.l    $AD4(a4),a0
  13212.     move.l    4(a0),d0
  13213.     move.l    8(a0),d1
  13214.     add.l    d0,d1
  13215.     move.l    8(a3),d2
  13216.     cmp.l    d2,d1
  13217.     bne.b    cA4FA
  13218.     move.l    $30(a3),d1
  13219.     add.l    $10(a3),d1
  13220.     sub.l    d2,d1
  13221.     add.l    d1,4(a0)
  13222.     bra.b    cA536
  13223.  
  13224. cA4FA:    moveq    #12,d0
  13225.     jsr    cA7AA(pc)
  13226.     move.l    d0,a2
  13227.     move.l    8(a3),d0
  13228.     move.l    d0,8(a2)
  13229.     move.l    $30(a3),d0
  13230.     add.l    $10(a3),d0
  13231.     sub.l    8(a3),d0
  13232.     move.l    d0,4(a2)
  13233.     clr.l    (a2)
  13234.     tst.l    $AD4(a4)
  13235.     beq.b    cA528
  13236.     move.l    $AD4(a4),a0
  13237.     move.l    a2,(a0)
  13238. cA528:    move.l    a2,$AD4(a4)
  13239.     tst.l    $AD8(a4)
  13240.     bne.b    cA536
  13241.     move.l    a2,$AD8(a4)
  13242. cA536:    movem.l    (sp)+,d2/a2/a3
  13243.     rts
  13244.  
  13245. cA53C:    link.w    a5,#-$10
  13246.     movem.l    d2/d3/d7/a2/a3/a6,-(sp)
  13247.     move.l    a0,-$10(a5)
  13248.     move.l    $AD8(a4),a3
  13249.     jsr    cA6C2(pc)
  13250.     move.l    d0,a2
  13251.     move.l    a2,d0
  13252.     bne.b    cA564
  13253.     pea    LhAUnabletoop.MSG1(pc)
  13254.     jsr    cAF04(pc)
  13255.     moveq    #0,d0
  13256.     bra.w    cA5E4
  13257.  
  13258. cA564:    move.l    #$3ED,d0
  13259.     move.l    -$10(a5),a0
  13260.     jsr    cA6A4(pc)
  13261.     move.l    d0,d7
  13262.     tst.l    d7
  13263.     bne.b    cA5CE
  13264.     move.l    -$10(a5),-(sp)
  13265.     pea    LhACouldnotre.MSG(pc)
  13266.     jsr    cAF04(pc)
  13267.     move.l    a2,a0
  13268.     jsr    cA6C8(pc)
  13269.     moveq    #0,d0
  13270.     bra.b    cA5E4
  13271.  
  13272. cA58E:    move.l    d7,d1
  13273.     move.l    8(a3),d2
  13274.     moveq    #-1,d3
  13275.     move.l    $420(a4),a6
  13276.     jsr    Seek(a6)
  13277.     move.l    d7,d0
  13278.     move.l    4(a3),d1
  13279.     move.l    a2,a0
  13280.     jsr    cA6CE(pc)
  13281.     tst.l    d0
  13282.     bpl.b    cA5C6
  13283.     pea    LhAIOerrorwhi.MSG(pc)
  13284.     jsr    cAF04(pc)
  13285.     bset    #5,$1B(a2)
  13286.     move.l    a2,a0
  13287.     jsr    cA6C8(pc)
  13288.     moveq    #0,d0
  13289.     bra.b    cA5E4
  13290.  
  13291. cA5C6:    move.l    a3,a0
  13292.     move.l    (a0),a3
  13293.     jsr    cA894(pc)
  13294. cA5CE:    move.l    a3,d0
  13295.     bne.b    cA58E
  13296.     move.l    d7,d0
  13297.     jsr    cA6B6(pc)
  13298.     suba.l    a0,a0
  13299.     move.l    a0,$AD4(a4)
  13300.     move.l    a0,$AD8(a4)
  13301.     move.l    a2,d0
  13302. cA5E4:    movem.l    -$28(a5),d2/d3/d7/a2/a3/a6
  13303.     unlk    a5
  13304.     rts
  13305.  
  13306. cA5EE:    link.w    a5,#-4
  13307.     move.l    a0,-4(a5)
  13308.     bsr.w    cA3D0
  13309.     moveq    #0,d0
  13310.     move.l    d0,$ADC(a4)
  13311.     unlk    a5
  13312.     rts
  13313.  
  13314. cA604:    link.w    a5,#-8
  13315.     move.l    a3,-(sp)
  13316.     move.l    a1,a3
  13317.     movem.l    d0/a0,-8(a5)
  13318.     moveq    #1,d0
  13319.     move.l    d0,$ADC(a4)
  13320.     move.l    a3,a0
  13321.     lea    $490(a4),a1
  13322.     jsr    c5282(pc)
  13323.     pea    $490(a4)
  13324.     pea    Deletings.MSG(pc)
  13325.     jsr    cAF04(pc)
  13326.     moveq    #0,d0
  13327.     move.l    -12(a5),a3
  13328.     unlk    a5
  13329.     rts
  13330.  
  13331. cA638:    link.w    a5,#-8
  13332.     move.l    a3,-(sp)
  13333.     move.l    a1,a3
  13334.     movem.l    d0/a0,-8(a5)
  13335.     move.l    a3,a0
  13336.     bsr.w    cA4C8
  13337.     moveq    #0,d0
  13338.     move.l    (sp)+,a3
  13339.     unlk    a5
  13340.     rts
  13341.  
  13342. cA654:    movem.l    a2/a3,-(sp)
  13343.     move.l    a0,a3
  13344.     tst.l    $ADC(a4)
  13345.     beq.b    cA69A
  13346.     pea    Packingarchiv.MSG(pc)
  13347.     jsr    cAF04(pc)
  13348.     move.l    a3,a0
  13349.     bsr.w    cA53C
  13350.     addq.w    #4,sp
  13351.     move.l    d0,a2
  13352.     move.l    a2,d0
  13353.     bne.b    cA684
  13354.     pea    LhANofilesdel.MSG(pc)
  13355.     jsr    cAF04(pc)
  13356.     addq.w    #4,sp
  13357.     moveq    #-1,d0
  13358.     bra.b    cA69C
  13359.  
  13360. cA684:    moveq    #0,d0
  13361.     move.l    a2,a0
  13362.     jsr    cA6B0(pc)
  13363.     move.l    a2,a0
  13364.     jsr    cA6BC(pc)
  13365.     move.l    a2,a0
  13366.     move.l    a3,a1
  13367.     jsr    cA6AA(pc)
  13368. cA69A:    moveq    #0,d0
  13369. cA69C:    movem.l    (sp)+,a2/a3
  13370.     rts
  13371.  
  13372.     dc.w    0
  13373.  
  13374. cA6A4:    jmp    c1276
  13375.  
  13376. cA6AA:    jmp    c146C
  13377.  
  13378. cA6B0:    jmp    c1FB4
  13379.  
  13380. cA6B6:    jmp    c12BC
  13381.  
  13382. cA6BC:    jmp    c20F2
  13383.  
  13384. cA6C2:    jmp    c1414
  13385.  
  13386. cA6C8:    jmp    c1732
  13387.  
  13388. cA6CE:    jmp    c1DF6
  13389.  
  13390. cA6D4:    movem.l    a2/a3/a6,-(sp)
  13391.     move.l    d0,a3
  13392.     move.l    a3,-(sp)
  13393.     lea    cA6F2(pc),a2
  13394.     move.l    4,a6
  13395.     jsr    RawDoFmt(a6)
  13396.     move.l    a3,d0
  13397.     sub.l    (sp)+,d0
  13398.     movem.l    (sp)+,a2/a3/a6
  13399.     rts
  13400.  
  13401. cA6F2:    move.b    d0,(a3)+
  13402.     sf    (a3)
  13403.     rts
  13404.  
  13405. cA6F8:    lea    $AE0(a4),a0
  13406.     jsr    cA900(pc)
  13407.     rts
  13408.  
  13409. FATALERRORUna.MSG:    dc.b    10
  13410.     dc.b    'FATAL ERROR: Unable to allocate %ld bytes of'
  13411.     dc.b    ' memory.'
  13412.     dc.b    $1B
  13413.     dc.b    '[K',$A,0
  13414. PressRETURNto.MSG:    dc.b    ' - Press RETURN to retry, or Q to Quit LhA: '
  13415.     dc.b    '(RETURN/Q)',0,0
  13416.  
  13417. cA774:    link.w    a5,#-4
  13418.     movem.l    a3/a6,-(sp)
  13419.     move.l    $AE0(a4),a3
  13420.     bra.b    cA79A
  13421.  
  13422. cA782:    move.l    (a3),a0
  13423.     move.l    a0,8(sp)
  13424.     move.l    a3,a1
  13425.     move.l    8(a1),d0
  13426.     move.l    4,a6
  13427.     jsr    FreeMem(a6)
  13428.     move.l    8(sp),a3
  13429. cA79A:    lea    $AE0(a4),a0
  13430.     cmpa.l    a0,a3
  13431.     bne.b    cA782
  13432.     movem.l    (sp)+,a3/a6
  13433.     unlk    a5
  13434.     rts
  13435.  
  13436. cA7AA:    movem.l    d6/d7/a3/a6,-(sp)
  13437.     move.l    d0,d7
  13438.     move.l    d7,d6
  13439.     moveq    #12,d0
  13440.     add.l    d0,d6
  13441. cA7B6:    move.l    d6,d0
  13442.     moveq    #1,d1
  13443.     move.l    4,a6
  13444.     jsr    AllocMem(a6)
  13445.     move.l    d0,a3
  13446.     move.l    a3,d0
  13447.     bne.b    cA802
  13448.     pea    FATALERRORUna.MSG(pc)
  13449.     jsr    cAF04(pc)
  13450.     addq.w    #4,sp
  13451.     tst.l    $868(a4)
  13452.     bne.b    cA7FC
  13453.     move.l    d7,-(sp)
  13454.     pea    PressRETURNto.MSG(pc)
  13455.     jsr    cAF04(pc)
  13456.     jsr    cA906(pc)
  13457.     addq.w    #8,sp
  13458.     moveq    #$51,d1
  13459.     cmp.b    d1,d0
  13460.     beq.b    cA7F4
  13461.     moveq    #$71,d1
  13462.     cmp.b    d1,d0
  13463.     bne.b    cA7B6
  13464. cA7F4:    moveq    #$28,d0
  13465.     jsr    cA8F4(pc)
  13466.     bra.b    cA7B6
  13467.  
  13468. cA7FC:    moveq    #$28,d0
  13469.     jsr    cA8F4(pc)
  13470. cA802:    move.l    d6,8(a3)
  13471.     move.l    a3,a0
  13472.     lea    $AE0(a4),a1
  13473.     jsr    cA90C(pc)
  13474.     lea    12(a3),a0
  13475.     move.l    a0,d0
  13476.     movem.l    (sp)+,d6/d7/a3/a6
  13477.     rts
  13478.  
  13479. cA81C:    movem.l    d6/d7/a3/a6,-(sp)
  13480.     move.l    d0,d7
  13481.     move.l    d7,d6
  13482.     moveq    #12,d0
  13483.     add.l    d0,d6
  13484. cA828:    move.l    d6,d0
  13485.     move.l    #$10001,d1
  13486.     move.l    4,a6
  13487.     jsr    -$C6(a6)
  13488.     move.l    d0,a3
  13489.     move.l    a3,d0
  13490.     bne.b    cA87A
  13491.     move.l    d7,-(sp)
  13492.     pea    FATALERRORUna.MSG(pc)
  13493.     jsr    cAF04(pc)
  13494.     addq.w    #8,sp
  13495.     tst.l    $868(a4)
  13496.     bne.b    cA874
  13497.     move.l    d7,-(sp)
  13498.     pea    PressRETURNto.MSG(pc)
  13499.     jsr    cAF04(pc)
  13500.     jsr    cA906(pc)
  13501.     addq.w    #8,sp
  13502.     moveq    #$51,d1
  13503.     cmp.b    d1,d0
  13504.     beq.b    cA86C
  13505.     moveq    #$71,d1
  13506.     cmp.b    d1,d0
  13507.     bne.b    cA828
  13508. cA86C:    moveq    #$28,d0
  13509.     jsr    cA8F4(pc)
  13510.     bra.b    cA828
  13511.  
  13512. cA874:    moveq    #$28,d0
  13513.     jsr    cA8F4(pc)
  13514. cA87A:    move.l    d6,8(a3)
  13515.     move.l    a3,a0
  13516.     lea    $AE0(a4),a1
  13517.     jsr    cA90C(pc)
  13518.     lea    12(a3),a0
  13519.     move.l    a0,d0
  13520.     movem.l    (sp)+,d6/d7/a3/a6
  13521.     rts
  13522.  
  13523. cA894:    link.w    a5,#-8
  13524.     move.l    a6,-(sp)
  13525.     move.l    a0,-4(a5)
  13526.     move.l    -4(a5),a0
  13527.     suba.w    #12,a0
  13528.     move.l    a0,4(sp)
  13529.     jsr    cA8FA(pc)
  13530.     move.l    4(sp),a1
  13531.     move.l    8(a1),d0
  13532.     move.l    4,a6
  13533.     jsr    -$D2(a6)
  13534.     move.l    (sp)+,a6
  13535.     unlk    a5
  13536.     rts
  13537.  
  13538. cA8C4:    movem.l    a2/a3,-(sp)
  13539.     move.l    a0,a3
  13540.     move.l    a3,a0
  13541. cA8CC:    tst.b    (a0)+
  13542.     bne.b    cA8CC
  13543.     subq.l    #1,a0
  13544.     suba.l    a3,a0
  13545.     move.l    a0,d0
  13546.     addq.l    #1,d0
  13547.     bsr.w    cA7AA
  13548.     move.l    d0,a2
  13549.     move.l    a2,d0
  13550.     beq.b    cA8EA
  13551.     move.l    a3,a0
  13552.     move.l    a2,a1
  13553. cA8E6:    move.b    (a0)+,(a1)+
  13554.     bne.b    cA8E6
  13555. cA8EA:    move.l    a2,d0
  13556.     movem.l    (sp)+,a2/a3
  13557.     rts
  13558.  
  13559.     dc.w    0
  13560.  
  13561. cA8F4:    jmp    c21BC
  13562.  
  13563. cA8FA:    jmp    c2118
  13564.  
  13565. cA900:    jmp    c21AE
  13566.  
  13567. cA906:    jmp    c2568
  13568.  
  13569. cA90C:    jmp    c216E
  13570.  
  13571.     moveq    #$61,d0
  13572. cA914:    move.l    a0,d0
  13573. cA916:    move.b    (a0)+,d1
  13574.     beq.b    cA926
  13575.     cmpi.b    #$3A,d1
  13576.     bne.b    cA916
  13577. cA920:    move.b    (a0)+,(a1)+
  13578.     bne.b    cA920
  13579.     rts
  13580.  
  13581. cA926:    move.l    d0,a0
  13582.     bra.b    cA920
  13583.  
  13584. bA92A:    dc.b    $30
  13585.     dc.b    $31
  13586.     dc.b    $32
  13587.     dc.b    $33
  13588.     dc.b    $34
  13589.     dc.b    $35
  13590.     dc.b    $36
  13591.     dc.b    $37
  13592.     dc.b    $38
  13593.     dc.b    $39
  13594.     dc.b    $41
  13595.     dc.b    $42
  13596.     dc.b    $43
  13597.     dc.b    $44
  13598.     dc.b    $45
  13599.     dc.b    $46
  13600.  
  13601. cA93A:    rol.l    #4,d0
  13602.     move.l    d0,d1
  13603.     beq.b    cA950
  13604.     andi.l    #15,d1
  13605.     andi.w    #$FFF0,d0
  13606.     move.b    bA92A(pc,d1.w),(a0)+
  13607.     bra.b    cA93A
  13608.  
  13609. cA950:    sf    (a0)
  13610.     rts
  13611.  
  13612. cA954:    divu.w    #10,d0
  13613.     tst.l    d0
  13614.     beq.b    cA968
  13615.     swap    d0
  13616.     addi.b    #$30,d0
  13617.     move.b    d0,(a0)+
  13618.     swap    d0
  13619.     bra.b    cA954
  13620.  
  13621. cA968:    sf    (a0)
  13622.     rts
  13623.  
  13624. cA96C:    movem.l    d2/d3,-(sp)
  13625.     moveq    #0,d0
  13626.     moveq    #0,d1
  13627.     move.b    (a0),d1
  13628.     cmpi.b    #$2D,d1
  13629.     seq    d3
  13630.     bne.b    cA980
  13631.     addq.l    #1,a0
  13632. cA980:    move.b    (a0)+,d1
  13633.     subi.b    #$30,d1
  13634.     bmi.b    cA99C
  13635.     cmpi.b    #10,d1
  13636.     bge.b    cA99C
  13637.     add.l    d0,d0
  13638.     move.l    d0,d2
  13639.     add.l    d2,d2
  13640.     add.l    d2,d2
  13641.     add.l    d2,d0
  13642.     add.l    d1,d0
  13643.     bra.b    cA980
  13644.  
  13645. cA99C:    tst.b    d3
  13646.     beq.b    cA9A2
  13647.     neg.l    d0
  13648. cA9A2:    movem.l    (sp)+,d2/d3
  13649.     rts
  13650.  
  13651. cA9A8:    move.l    d0,d1
  13652.     move.l    a0,d0
  13653.     bra.b    cA9B0
  13654.  
  13655. cA9AE:    move.b    (a1)+,(a0)+
  13656. cA9B0:    dbeq    d1,cA9AE
  13657.     rts
  13658.  
  13659. cA9B6:    move.l    a2,-(sp)
  13660.     moveq    #0,d0
  13661.     move.l    a1,a2
  13662.     bra.b    cA9CC
  13663.  
  13664. cA9BE:    move.b    (a1)+,d2
  13665.     beq.b    cA9C8
  13666.     cmp.b    d1,d2
  13667.     beq.b    cA9CA
  13668.     bra.b    cA9BE
  13669.  
  13670. cA9C8:    addq.l    #1,d0
  13671. cA9CA:    move.l    a2,a1
  13672. cA9CC:    move.b    (a0)+,d1
  13673.     bne.b    cA9BE
  13674.     move.l    (sp)+,a2
  13675.     rts
  13676.  
  13677. cA9D4:    move.l    a0,d0
  13678. cA9D6:    tst.b    (a0)+
  13679.     bne.b    cA9D6
  13680.     subq.l    #1,a0
  13681. cA9DC:    move.b    (a1)+,(a0)+
  13682.     bne.b    cA9DC
  13683.     rts
  13684.  
  13685. cA9E2:    moveq    #0,d0
  13686.     moveq    #0,d1
  13687. cA9E6:    move.b    (a0)+,d0
  13688.     move.b    (a1)+,d1
  13689.     move.b    bAA0A(pc,d0.w),d0
  13690.     move.b    bAA0A(pc,d1.w),d1
  13691.     sub.l    d1,d0
  13692.     bne.b    cA9FA
  13693.     tst.b    d1
  13694.     bne.b    cA9E6
  13695. cA9FA:    rts
  13696.  
  13697. cA9FC:    moveq    #0,d1
  13698.     move.l    a0,d0
  13699. cAA00:    move.b    (a0),d1
  13700.     move.b    bAA0A(pc,d1.w),(a0)+
  13701.     bne.b    cAA00
  13702.     rts
  13703.  
  13704. bAA0A:    dc.b    0
  13705.     dc.b    1
  13706.     dc.b    2
  13707.     dc.b    3
  13708.     dc.b    4
  13709.     dc.b    5
  13710.     dc.b    6
  13711.     dc.b    7
  13712.     dc.b    8
  13713.     dc.b    9
  13714.     dc.b    10
  13715.     dc.b    11
  13716.     dc.b    12
  13717.     dc.b    13
  13718.     dc.b    14
  13719.     dc.b    15
  13720.     dc.b    $10
  13721.     dc.b    $11
  13722.     dc.b    $12
  13723.     dc.b    $13
  13724.     dc.b    $14
  13725.     dc.b    $15
  13726.     dc.b    $16
  13727.     dc.b    $17
  13728.     dc.b    $18
  13729.     dc.b    $19
  13730.     dc.b    $1A
  13731.     dc.b    $1B
  13732.     dc.b    $1C
  13733.     dc.b    $1D
  13734.     dc.b    $1E
  13735.     dc.b    $1F
  13736.     dc.b    $20
  13737.     dc.b    $21
  13738.     dc.b    $22
  13739.     dc.b    $23
  13740.     dc.b    $24
  13741.     dc.b    $25
  13742.     dc.b    $26
  13743.     dc.b    $27
  13744.     dc.b    $28
  13745.     dc.b    $29
  13746.     dc.b    $2A
  13747.     dc.b    $2B
  13748.     dc.b    $2C
  13749.     dc.b    $2D
  13750.     dc.b    $2E
  13751.     dc.b    $2F
  13752.     dc.b    $30
  13753.     dc.b    $31
  13754.     dc.b    $32
  13755.     dc.b    $33
  13756.     dc.b    $34
  13757.     dc.b    $35
  13758.     dc.b    $36
  13759.     dc.b    $37
  13760.     dc.b    $38
  13761.     dc.b    $39
  13762.     dc.b    $3A
  13763.     dc.b    $3B
  13764.     dc.b    $3C
  13765.     dc.b    $3D
  13766.     dc.b    $3E
  13767.     dc.b    $3F
  13768.     dc.b    $40
  13769.     dc.b    $61
  13770.     dc.b    $62
  13771.     dc.b    $63
  13772.     dc.b    $64
  13773.     dc.b    $65
  13774.     dc.b    $66
  13775.     dc.b    $67
  13776.     dc.b    $68
  13777.     dc.b    $69
  13778.     dc.b    $6A
  13779.     dc.b    $6B
  13780.     dc.b    $6C
  13781.     dc.b    $6D
  13782.     dc.b    $6E
  13783.     dc.b    $6F
  13784.     dc.b    $70
  13785.     dc.b    $71
  13786.     dc.b    $72
  13787.     dc.b    $73
  13788.     dc.b    $74
  13789.     dc.b    $75
  13790.     dc.b    $76
  13791.     dc.b    $77
  13792.     dc.b    $78
  13793.     dc.b    $79
  13794.     dc.b    $7A
  13795.     dc.b    $5B
  13796.     dc.b    $5C
  13797.     dc.b    $5D
  13798.     dc.b    $5E
  13799.     dc.b    $5F
  13800.     dc.b    $60
  13801.     dc.b    $61
  13802.     dc.b    $62
  13803.     dc.b    $63
  13804.     dc.b    $64
  13805.     dc.b    $65
  13806.     dc.b    $66
  13807.     dc.b    $67
  13808.     dc.b    $68
  13809.     dc.b    $69
  13810.     dc.b    $6A
  13811.     dc.b    $6B
  13812.     dc.b    $6C
  13813.     dc.b    $6D
  13814.     dc.b    $6E
  13815.     dc.b    $6F
  13816.     dc.b    $70
  13817.     dc.b    $71
  13818.     dc.b    $72
  13819.     dc.b    $73
  13820.     dc.b    $74
  13821.     dc.b    $75
  13822.     dc.b    $76
  13823.     dc.b    $77
  13824.     dc.b    $78
  13825.     dc.b    $79
  13826.     dc.b    $7A
  13827.     dc.b    $7B
  13828.     dc.b    $7C
  13829.     dc.b    $7D
  13830.     dc.b    $7E
  13831.     dc.b    $7F
  13832.     dc.b    $80
  13833.     dc.b    $81
  13834.     dc.b    $82
  13835.     dc.b    $83
  13836.     dc.b    $84
  13837.     dc.b    $85
  13838.     dc.b    $86
  13839.     dc.b    $87
  13840.     dc.b    $88
  13841.     dc.b    $89
  13842.     dc.b    $8A
  13843.     dc.b    $8B
  13844.     dc.b    $8C
  13845.     dc.b    $8D
  13846.     dc.b    $8E
  13847.     dc.b    $8F
  13848.     dc.b    $90
  13849.     dc.b    $91
  13850.     dc.b    $92
  13851.     dc.b    $93
  13852.     dc.b    $94
  13853.     dc.b    $95
  13854.     dc.b    $96
  13855.     dc.b    $97
  13856.     dc.b    $98
  13857.     dc.b    $99
  13858.     dc.b    $9A
  13859.     dc.b    $9B
  13860.     dc.b    $9C
  13861.     dc.b    $9D
  13862.     dc.b    $9E
  13863.     dc.b    $9F
  13864.     dc.b    $A0
  13865.     dc.b    $A1
  13866.     dc.b    $A2
  13867.     dc.b    $A3
  13868.     dc.b    $A4
  13869.     dc.b    $A5
  13870.     dc.b    $A6
  13871.     dc.b    $A7
  13872.     dc.b    $A8
  13873.     dc.b    $A9
  13874.     dc.b    $AA
  13875.     dc.b    $AB
  13876.     dc.b    $AC
  13877.     dc.b    $AD
  13878.     dc.b    $AE
  13879.     dc.b    $AF
  13880.     dc.b    $B0
  13881.     dc.b    $B1
  13882.     dc.b    $B2
  13883.     dc.b    $B3
  13884.     dc.b    $B4
  13885.     dc.b    $B5
  13886.     dc.b    $B6
  13887.     dc.b    $B7
  13888.     dc.b    $B8
  13889.     dc.b    $B9
  13890.     dc.b    $BA
  13891.     dc.b    $BB
  13892.     dc.b    $BC
  13893.     dc.b    $BD
  13894.     dc.b    $BE
  13895.     dc.b    $BF
  13896.     dc.b    $E0
  13897.     dc.b    $E1
  13898.     dc.b    $E2
  13899.     dc.b    $E3
  13900.     dc.b    $E4
  13901.     dc.b    $E5
  13902.     dc.b    $E6
  13903.     dc.b    $E7
  13904.     dc.b    $E8
  13905.     dc.b    $E9
  13906.     dc.b    $EA
  13907.     dc.b    $EB
  13908.     dc.b    $EC
  13909.     dc.b    $ED
  13910.     dc.b    $EE
  13911.     dc.b    $EF
  13912.     dc.b    $F0
  13913.     dc.b    $F1
  13914.     dc.b    $F2
  13915.     dc.b    $F3
  13916.     dc.b    $F4
  13917.     dc.b    $F5
  13918.     dc.b    $F6
  13919.     dc.b    $D7
  13920.     dc.b    $F8
  13921.     dc.b    $F9
  13922.     dc.b    $FA
  13923.     dc.b    $FB
  13924.     dc.b    $FC
  13925.     dc.b    $FD
  13926.     dc.b    $FE
  13927.     dc.b    $DF
  13928.     dc.b    $E0
  13929.     dc.b    $E1
  13930.     dc.b    $E2
  13931.     dc.b    $E3
  13932.     dc.b    $E4
  13933.     dc.b    $E5
  13934.     dc.b    $E6
  13935.     dc.b    $E7
  13936.     dc.b    $E8
  13937.     dc.b    $E9
  13938.     dc.b    $EA
  13939.     dc.b    $EB
  13940.     dc.b    $EC
  13941.     dc.b    $ED
  13942.     dc.b    $EE
  13943.     dc.b    $EF
  13944.     dc.b    $F0
  13945.     dc.b    $F1
  13946.     dc.b    $F2
  13947.     dc.b    $F3
  13948.     dc.b    $F4
  13949.     dc.b    $F5
  13950.     dc.b    $F6
  13951.     dc.b    $F7
  13952.     dc.b    $F8
  13953.     dc.b    $F9
  13954.     dc.b    $FA
  13955.     dc.b    $FB
  13956.     dc.b    $FC
  13957.     dc.b    $FD
  13958.     dc.b    $FE
  13959.     dc.b    $FF
  13960.  
  13961. cAB0A:    moveq    #0,d1
  13962.     move.l    a0,d0
  13963. cAB0E:    move.b    (a0),d1
  13964.     move.b    bAB18(pc,d1.w),(a0)+
  13965.     bne.b    cAB0E
  13966.     rts
  13967.  
  13968. bAB18:    dc.b    0
  13969.     dc.b    1
  13970.     dc.b    2
  13971.     dc.b    3
  13972.     dc.b    4
  13973.     dc.b    5
  13974.     dc.b    6
  13975.     dc.b    7
  13976.     dc.b    8
  13977.     dc.b    9
  13978.     dc.b    10
  13979.     dc.b    11
  13980.     dc.b    12
  13981.     dc.b    13
  13982.     dc.b    14
  13983.     dc.b    15
  13984.     dc.b    $10
  13985.     dc.b    $11
  13986.     dc.b    $12
  13987.     dc.b    $13
  13988.     dc.b    $14
  13989.     dc.b    $15
  13990.     dc.b    $16
  13991.     dc.b    $17
  13992.     dc.b    $18
  13993.     dc.b    $19
  13994.     dc.b    $1A
  13995.     dc.b    $1B
  13996.     dc.b    $1C
  13997.     dc.b    $1D
  13998.     dc.b    $1E
  13999.     dc.b    $1F
  14000.     dc.b    $20
  14001.     dc.b    $21
  14002.     dc.b    $22
  14003.     dc.b    $23
  14004.     dc.b    $24
  14005.     dc.b    $25
  14006.     dc.b    $26
  14007.     dc.b    $27
  14008.     dc.b    $28
  14009.     dc.b    $29
  14010.     dc.b    $2A
  14011.     dc.b    $2B
  14012.     dc.b    $2C
  14013.     dc.b    $2D
  14014.     dc.b    $2E
  14015.     dc.b    $2F
  14016.     dc.b    $30
  14017.     dc.b    $31
  14018.     dc.b    $32
  14019.     dc.b    $33
  14020.     dc.b    $34
  14021.     dc.b    $35
  14022.     dc.b    $36
  14023.     dc.b    $37
  14024.     dc.b    $38
  14025.     dc.b    $39
  14026.     dc.b    $3A
  14027.     dc.b    $3B
  14028.     dc.b    $3C
  14029.     dc.b    $3D
  14030.     dc.b    $3E
  14031.     dc.b    $3F
  14032.     dc.b    $40
  14033.     dc.b    $41
  14034.     dc.b    $42
  14035.     dc.b    $43
  14036.     dc.b    $44
  14037.     dc.b    $45
  14038.     dc.b    $46
  14039.     dc.b    $47
  14040.     dc.b    $48
  14041.     dc.b    $49
  14042.     dc.b    $4A
  14043.     dc.b    $4B
  14044.     dc.b    $4C
  14045.     dc.b    $4D
  14046.     dc.b    $4E
  14047.     dc.b    $4F
  14048.     dc.b    $50
  14049.     dc.b    $51
  14050.     dc.b    $52
  14051.     dc.b    $53
  14052.     dc.b    $54
  14053.     dc.b    $55
  14054.     dc.b    $56
  14055.     dc.b    $57
  14056.     dc.b    $58
  14057.     dc.b    $59
  14058.     dc.b    $5A
  14059.     dc.b    $5B
  14060.     dc.b    $5C
  14061.     dc.b    $5D
  14062.     dc.b    $5E
  14063.     dc.b    $5F
  14064.     dc.b    $60
  14065.     dc.b    $41
  14066.     dc.b    $42
  14067.     dc.b    $43
  14068.     dc.b    $44
  14069.     dc.b    $45
  14070.     dc.b    $46
  14071.     dc.b    $47
  14072.     dc.b    $48
  14073.     dc.b    $49
  14074.     dc.b    $4A
  14075.     dc.b    $4B
  14076.     dc.b    $4C
  14077.     dc.b    $4D
  14078.     dc.b    $4E
  14079.     dc.b    $4F
  14080.     dc.b    $50
  14081.     dc.b    $51
  14082.     dc.b    $52
  14083.     dc.b    $53
  14084.     dc.b    $54
  14085.     dc.b    $55
  14086.     dc.b    $56
  14087.     dc.b    $57
  14088.     dc.b    $58
  14089.     dc.b    $59
  14090.     dc.b    $5A
  14091.     dc.b    $7B
  14092.     dc.b    $7C
  14093.     dc.b    $7D
  14094.     dc.b    $7E
  14095.     dc.b    $7F
  14096.     dc.b    $80
  14097.     dc.b    $81
  14098.     dc.b    $82
  14099.     dc.b    $83
  14100.     dc.b    $84
  14101.     dc.b    $85
  14102.     dc.b    $86
  14103.     dc.b    $87
  14104.     dc.b    $88
  14105.     dc.b    $89
  14106.     dc.b    $8A
  14107.     dc.b    $8B
  14108.     dc.b    $8C
  14109.     dc.b    $8D
  14110.     dc.b    $8E
  14111.     dc.b    $8F
  14112.     dc.b    $90
  14113.     dc.b    $91
  14114.     dc.b    $92
  14115.     dc.b    $93
  14116.     dc.b    $94
  14117.     dc.b    $95
  14118.     dc.b    $96
  14119.     dc.b    $97
  14120.     dc.b    $98
  14121.     dc.b    $99
  14122.     dc.b    $9A
  14123.     dc.b    $9B
  14124.     dc.b    $9C
  14125.     dc.b    $9D
  14126.     dc.b    $9E
  14127.     dc.b    $9F
  14128.     dc.b    $A0
  14129.     dc.b    $A1
  14130.     dc.b    $A2
  14131.     dc.b    $A3
  14132.     dc.b    $A4
  14133.     dc.b    $A5
  14134.     dc.b    $A6
  14135.     dc.b    $A7
  14136.     dc.b    $A8
  14137.     dc.b    $A9
  14138.     dc.b    $AA
  14139.     dc.b    $AB
  14140.     dc.b    $AC
  14141.     dc.b    $AD
  14142.     dc.b    $AE
  14143.     dc.b    $AF
  14144.     dc.b    $B0
  14145.     dc.b    $B1
  14146.     dc.b    $B2
  14147.     dc.b    $B3
  14148.     dc.b    $B4
  14149.     dc.b    $B5
  14150.     dc.b    $B6
  14151.     dc.b    $B7
  14152.     dc.b    $B8
  14153.     dc.b    $B9
  14154.     dc.b    $BA
  14155.     dc.b    $BB
  14156.     dc.b    $BC
  14157.     dc.b    $BD
  14158.     dc.b    $BE
  14159.     dc.b    $BF
  14160.     dc.b    $C0
  14161.     dc.b    $C1
  14162.     dc.b    $C2
  14163.     dc.b    $C3
  14164.     dc.b    $C4
  14165.     dc.b    $C5
  14166.     dc.b    $C6
  14167.     dc.b    $C7
  14168.     dc.b    $C8
  14169.     dc.b    $C9
  14170.     dc.b    $CA
  14171.     dc.b    $CB
  14172.     dc.b    $CC
  14173.     dc.b    $CD
  14174.     dc.b    $CE
  14175.     dc.b    $CF
  14176.     dc.b    $D0
  14177.     dc.b    $D1
  14178.     dc.b    $D2
  14179.     dc.b    $D3
  14180.     dc.b    $D4
  14181.     dc.b    $D5
  14182.     dc.b    $D6
  14183.     dc.b    $D7
  14184.     dc.b    $D8
  14185.     dc.b    $D9
  14186.     dc.b    $DA
  14187.     dc.b    $DB
  14188.     dc.b    $DC
  14189.     dc.b    $DD
  14190.     dc.b    $DE
  14191.     dc.b    $DF
  14192.     dc.b    $C0
  14193.     dc.b    $C1
  14194.     dc.b    $C2
  14195.     dc.b    $C3
  14196.     dc.b    $C4
  14197.     dc.b    $C5
  14198.     dc.b    $C6
  14199.     dc.b    $C7
  14200.     dc.b    $C8
  14201.     dc.b    $C9
  14202.     dc.b    $CA
  14203.     dc.b    $CB
  14204.     dc.b    $CC
  14205.     dc.b    $CD
  14206.     dc.b    $CE
  14207.     dc.b    $CF
  14208.     dc.b    $D0
  14209.     dc.b    $D1
  14210.     dc.b    $D2
  14211.     dc.b    $D3
  14212.     dc.b    $D4
  14213.     dc.b    $D5
  14214.     dc.b    $D6
  14215.     dc.b    $F7
  14216.     dc.b    $D8
  14217.     dc.b    $D9
  14218.     dc.b    $DA
  14219.     dc.b    $DB
  14220.     dc.b    $DC
  14221.     dc.b    $DD
  14222.     dc.b    $DE
  14223.     dc.b    $FF
  14224.  
  14225. cAC18:    link.w    a5,#-$10
  14226.     movem.l    d6/d7/a2/a3/a6,-(sp)
  14227.     move.l    a0,a3
  14228.     move.l    a1,a2
  14229.     moveq    #-2,d0
  14230.     move.l    a3,a0
  14231.     jsr    cAD74(pc)
  14232.     move.l    d0,d7
  14233.     move.l    d7,d0
  14234.     bne.b    cAC38
  14235.     moveq    #0,d0
  14236.     bra.w    cAD6C
  14237.  
  14238. cAC38:    move.l    d7,d0
  14239.     move.l    d0,$14(sp)
  14240.     move.l    d0,d1
  14241.     move.l    $420(a4),a6
  14242.     jsr    ParentDir(a6)
  14243.     move.l    d0,d7
  14244.     move.l    $14(sp),d0
  14245.     jsr    cAD7A(pc)
  14246.     move.l    d7,d0
  14247.     bne.b    cAC5C
  14248.     moveq    #0,d0
  14249.     bra.w    cAD6C
  14250.  
  14251. cAC5C:    move.l    a3,a0
  14252. cAC5E:    tst.b    (a0)+
  14253.     bne.b    cAC5E
  14254.     subq.l    #1,a0
  14255.     suba.l    a3,a0
  14256.     move.l    a0,d0
  14257.     subq.l    #1,d0
  14258.     move.l    d0,d6
  14259.     bra.b    cAC80
  14260.  
  14261. cAC6E:    move.b    (a3,d6.w),d0
  14262.     moveq    #$2F,d1
  14263.     cmp.b    d1,d0
  14264.     beq.b    cAC84
  14265.     moveq    #$3A,d1
  14266.     cmp.b    d1,d0
  14267.     beq.b    cAC84
  14268.     subq.w    #1,d6
  14269. cAC80:    tst.w    d6
  14270.     bpl.b    cAC6E
  14271. cAC84:    move.l    d6,d0
  14272.     ext.l    d0
  14273.     addq.l    #1,d0
  14274.     move.l    a3,a0
  14275.     adda.l    d0,a0
  14276.     move.l    a0,$14(sp)
  14277.     suba.l    a1,a1
  14278.     move.l    4,a6
  14279.     jsr    FindTask(a6)
  14280.     move.l    d0,$18(sp)
  14281.     moveq    #$44,d0
  14282.     moveq    #1,d1
  14283.     jsr    cA81C(pc)
  14284.     move.l    $14(sp),a0
  14285. cACAC:    tst.b    (a0)+
  14286.     bne.b    cACAC
  14287.     subq.l    #1,a0
  14288.     suba.l    $14(sp),a0
  14289.     move.l    a0,d1
  14290.     addq.l    #2,d1
  14291.     move.l    d0,$1C(sp)
  14292.     move.l    d1,d0
  14293.     jsr    cA7AA(pc)
  14294.     move.l    d0,a0
  14295.     lea    1(a0),a1
  14296.     move.l    d0,$20(sp)
  14297.     move.l    $14(sp),a6
  14298. cACD2:    move.b    (a6)+,(a1)+
  14299.     bne.b    cACD2
  14300.     move.l    $14(sp),a1
  14301. cACDA:    tst.b    (a1)+
  14302.     bne.b    cACDA
  14303.     subq.l    #1,a1
  14304.     suba.l    $14(sp),a1
  14305.     move.l    a1,d1
  14306.     move.b    d1,(a0)
  14307.     move.l    $1C(sp),a1
  14308.     lea    $14(a1),a6
  14309.     move.l    a6,10(a1)
  14310.     move.l    a1,$14(a1)
  14311.     move.l    $18(sp),a6
  14312.     lea    $5C(a6),a1
  14313.     move.l    $1C(sp),a6
  14314.     move.l    a1,$18(a6)
  14315.     moveq    #$22,d1
  14316.     move.l    d1,$1C(a6)
  14317.     clr.l    $28(a6)
  14318.     move.l    d7,$2C(a6)
  14319.     move.l    d0,d1
  14320.     asr.l    #2,d1
  14321.     move.l    d1,$30(a6)
  14322.     move.l    a2,$34(a6)
  14323.     move.l    d7,d1
  14324.     asl.l    #2,d1
  14325.     move.l    a1,$14(sp)
  14326.     move.l    a6,a1
  14327.     move.l    d1,a0
  14328.     move.l    12(a0),a0
  14329.     move.l    4,a6
  14330.     jsr    PutMsg(a6)
  14331.     move.l    $14(sp),a0
  14332.     jsr    WaitPort(a6)
  14333.     move.l    $14(sp),a0
  14334.     jsr    GetMsg(a6)
  14335.     move.l    $1C(sp),a0
  14336.     move.l    $20(a0),d0
  14337.     move.l    d0,$14(sp)
  14338.     jsr    cA894(pc)
  14339.     move.l    $20(sp),a0
  14340.     jsr    cA894(pc)
  14341.     move.l    d7,d0
  14342.     jsr    cAD7A(pc)
  14343.     move.l    $14(sp),d0
  14344. cAD6C:    movem.l    (sp)+,d6/d7/a2/a3/a6
  14345.     unlk    a5
  14346.     rts
  14347.  
  14348. cAD74:    jmp    c12FC
  14349.  
  14350. cAD7A:    jmp    c137C
  14351.  
  14352. cAD80:    movem.l    d6/d7/a3,-(sp)
  14353.     move.l    d0,d7
  14354.     lea    $3B4(a4),a3
  14355.     bra.b    cAD96
  14356.  
  14357. cAD8C:    move.w    (a3),d0
  14358.     ext.l    d0
  14359.     cmp.l    d7,d0
  14360.     beq.b    cAD9C
  14361.     addq.l    #8,a3
  14362. cAD96:    move.w    (a3),d0
  14363.     tst.w    d0
  14364.     bpl.b    cAD8C
  14365. cAD9C:    move.w    (a3),d0
  14366.     tst.w    d0
  14367.     bpl.b    cADB2
  14368.     move.l    d7,-(sp)
  14369.     pea    perrUNKNOWNER.MSG(pc)
  14370.     jsr    cAF04(pc)
  14371.     addq.w    #8,sp
  14372.     moveq    #2,d0
  14373.     bra.b    cADEA
  14374.  
  14375. cADB2:    move.l    4(a3),-(sp)
  14376.     pea    sK.MSG(pc)
  14377.     jsr    cAF04(pc)
  14378.     addq.w    #8,sp
  14379.     move.w    2(a3),d6
  14380.     ext.l    d6
  14381.     moveq    #2,d0
  14382.     cmp.l    d0,d7
  14383.     beq.b    cADD2
  14384.     moveq    #4,d0
  14385.     cmp.l    d0,d7
  14386.     bne.b    cADE8
  14387. cADD2:    moveq    #$22,d0
  14388.     not.b    d0
  14389.     cmp.l    $A04(a4),d0
  14390.     bne.b    cADE8
  14391.     pea    FATALErrorDis.MSG(pc)
  14392.     jsr    cAF04(pc)
  14393.     addq.w    #4,sp
  14394.     moveq    #2,d6
  14395. cADE8:    move.l    d6,d0
  14396. cADEA:    movem.l    (sp)+,d6/d7/a3
  14397.     rts
  14398.  
  14399. Unknowncompre.MSG:    dc.b    'Unknown compression',0
  14400. IOError.MSG:    dc.b    'I/O Error',0
  14401. FailedCRCChec.MSG:    dc.b    'Failed CRC Check',0,0
  14402. Unabletoopeno.MSG:    dc.b    'Unable to open output file',0,0
  14403. Baddecodingta.MSG:    dc.b    'Bad decoding table',0,0
  14404. Inconsistentc.MSG:    dc.b    'Inconsistent code table data',0,0
  14405. Userbreak.MSG:    dc.b    'User break',0,0
  14406. Couldnotopena.MSG:    dc.b    'Could not open archive file',0
  14407. Outofmemory.MSG:    dc.b    'Out of memory',0
  14408. Couldnotopenf.MSG:    dc.b    'Could not open file',0
  14409. perrUNKNOWNER.MSG:    dc.b    '** perr: UNKNOWN ERROR CODE %ld.'
  14410.     dc.b    $1B
  14411.     dc.b    '[K',$A,$A,0
  14412. sK.MSG:    dc.b    '%s'
  14413.     dc.b    $1B
  14414.     dc.b    '[K',$A,0
  14415.     dc.b    0
  14416. FATALErrorDis.MSG:    dc.b    '  FATAL Error: Disk full!',$A,0
  14417.     dcb.b    $2,0
  14418.     dc.b    0
  14419.  
  14420. cAF04:    jmp    c2328
  14421.  
  14422.     moveq    #$61,d0
  14423. cAF0C:    movem.l    d2/d3,-(sp)
  14424.     move.l    d0,d2
  14425.     move.l    d1,d3
  14426.     swap    d2
  14427.     swap    d3
  14428.     mulu.w    d1,d2
  14429.     mulu.w    d0,d3
  14430.     mulu.w    d1,d0
  14431.     add.w    d3,d2
  14432.     swap    d2
  14433.     clr.w    d2
  14434.     add.l    d2,d0
  14435.     movem.l    (sp)+,d2/d3
  14436.     rts
  14437.  
  14438. cAF2C:    tst.l    d0
  14439.     bpl.b    cAF4E
  14440.     neg.l    d0
  14441.     tst.l    d1
  14442.     bpl.b    cAF44
  14443.     neg.l    d1
  14444.     bsr.b    cAF5E
  14445.     neg.l    d1
  14446.     rts
  14447.  
  14448. cAF44:    bsr.b    cAF5E
  14449.     neg.l    d0
  14450.     neg.l    d1
  14451.     rts
  14452.  
  14453. cAF4E:    tst.l    d1
  14454.     bpl.b    cAF5E
  14455.     neg.l    d1
  14456.     bsr.b    cAF5E
  14457.     neg.l    d0
  14458.     rts
  14459.  
  14460. cAF5E:    move.l    d2,-(sp)
  14461.     swap    d1
  14462.     move.w    d1,d2
  14463.     bne.b    cAF88
  14464.     swap    d0
  14465.     swap    d1
  14466.     swap    d2
  14467.     move.w    d0,d2
  14468.     beq.b    cAF78
  14469.     divu.w    d1,d2
  14470.     move.w    d2,d0
  14471. cAF78:    swap    d0
  14472.     move.w    d0,d2
  14473.     divu.w    d1,d2
  14474.     move.w    d2,d0
  14475.     swap    d2
  14476.     move.w    d2,d1
  14477.     move.l    (sp)+,d2
  14478.     rts
  14479.  
  14480. cAF88:    move.l    d3,-(sp)
  14481.     moveq    #$10,d3
  14482.     cmpi.w    #$80,d1
  14483.     bcc.b    cAF98
  14484.     rol.l    #8,d1
  14485.     subq.w    #8,d3
  14486. cAF98:    cmpi.w    #$800,d1
  14487.     bcc.b    cAFA4
  14488.     rol.l    #4,d1
  14489.     subq.w    #4,d3
  14490. cAFA4:    cmpi.w    #$2000,d1
  14491.     bcc.b    cAFB0
  14492.     rol.l    #2,d1
  14493.     subq.w    #2,d3
  14494. cAFB0:    tst.w    d1
  14495.     bmi.b    cAFBA
  14496.     rol.l    #1,d1
  14497.     subq.w    #1,d3
  14498. cAFBA:    move.w    d0,d2
  14499.     lsr.l    d3,d0
  14500.     swap    d2
  14501.     clr.w    d2
  14502.     lsr.l    d3,d2
  14503.     swap    d3
  14504.     divu.w    d1,d0
  14505.     move.w    d0,d3
  14506.     move.w    d2,d0
  14507.     move.w    d3,d2
  14508.     swap    d1
  14509.     mulu.w    d1,d2
  14510.     sub.l    d2,d0
  14511.     bcc.b    cAFDE
  14512.     subq.w    #1,d3
  14513.     add.l    d1,d0
  14514. cAFDC:    bcc.b    cAFDC
  14515. cAFDE:    moveq    #0,d1
  14516.     move.w    d3,d1
  14517.     swap    d3
  14518.     rol.l    d3,d0
  14519.     swap    d0
  14520.     exg    d0,d1
  14521.     move.l    (sp)+,d3
  14522.     move.l    (sp)+,d2
  14523.     rts
  14524. lAFF0:    dc.l    $1770
  14525.     dc.l    1
  14526.     dc.l    11
  14527.     dc.l    $81
  14528.     dc.l    0
  14529.     dc.w    $6100
  14530.     dc.l    Add.MSG
  14531.     dc.l    to.MSG
  14532.     dc.w    $6300
  14533.     dc.l    Convert.MSG
  14534.     dc.l    in.MSG
  14535.     dc.w    $6400
  14536.     dc.l    Delete.MSG
  14537.     dc.l    from.MSG
  14538.     dc.w    $6500
  14539.     dc.l    Extract.MSG
  14540.     dc.l    from.MSG
  14541.     dc.w    $6600
  14542.     dc.l    Freshen.MSG
  14543.     dc.l    in.MSG
  14544.     dc.w    $6C00
  14545.     dc.l    List.MSG
  14546.     dc.l    in.MSG
  14547.     dc.w    $6D00
  14548.     dc.l    Move.MSG
  14549.     dc.l    to.MSG
  14550.     dc.w    $6E00
  14551.     dc.l    Rename.MSG
  14552.     dc.l    in.MSG
  14553.     dc.w    $6F00
  14554.     dc.l    Order.MSG
  14555.     dc.l    in.MSG
  14556.     dc.w    $7000
  14557.     dc.l    Print.MSG
  14558.     dc.l    in.MSG
  14559.     dc.w    $7200
  14560.     dc.l    Repair.MSG
  14561.     dc.l    in.MSG
  14562.     dc.w    $7400
  14563.     dc.l    Test.MSG
  14564.     dc.l    in.MSG
  14565.     dc.w    $7500
  14566.     dc.l    Update.MSG
  14567.     dc.l    w02CE
  14568.     dc.w    $7600
  14569.     dc.l    List.MSG
  14570.     dc.l    in.MSG
  14571.     dc.w    $7800
  14572.     dc.l    Extract.MSG
  14573.     dc.l    from.MSG
  14574.     dcb.w    $8,0
  14575.     dc.w    5
  14576.     dc.w    0
  14577.     dc.w    $4000
  14578.     dc.w    0
  14579.     dc.w    $8000
  14580.     dcb.w    $3,0
  14581.     dc.w    1
  14582.     dcb.w    $6,$FFFF
  14583.     dcb.w    $5,0
  14584.     dc.w    1
  14585.     dcb.w    $3,0
  14586.     dc.w    $1000
  14587.     dcb.w    $2,0
  14588.     dc.w    $6100
  14589.     dc.w    0
  14590.     dc.w    $D0
  14591.     dc.w    $4100
  14592.     dc.w    0
  14593.     dc.w    $DC
  14594.     dc.w    $6300
  14595.     dc.w    0
  14596.     dc.w    $83C
  14597.     dc.w    $4300
  14598.     dc.w    0
  14599.     dc.w    $834
  14600.     dc.w    $6400
  14601.     dc.w    0
  14602.     dc.w    $888
  14603.     dc.w    $4400
  14604.     dc.w    0
  14605.     dc.w    $844
  14606.     dc.w    $6500
  14607.     dc.w    0
  14608.     dc.w    $87C
  14609.     dc.w    $6600
  14610.     dc.w    0
  14611.     dc.w    $84C
  14612.     dc.w    $4600
  14613.     dc.w    0
  14614.     dc.w    $E4
  14615.     dc.w    $6800
  14616.     dc.w    0
  14617.     dc.w    $848
  14618.     dc.w    $6B00
  14619.     dc.w    0
  14620.     dc.w    $850
  14621.     dc.w    $6C00
  14622.     dc.w    0
  14623.     dc.w    $854
  14624.     dc.w    $6D00
  14625.     dc.w    0
  14626.     dc.w    $868
  14627.     dc.w    $4D00
  14628.     dc.w    0
  14629.     dc.w    $CC
  14630.     dc.w    $6E00
  14631.     dc.w    0
  14632.     dc.w    $86C
  14633.     dc.w    $4E00
  14634.     dc.w    0
  14635.     dc.w    $864
  14636.     dc.w    $6F00
  14637.     dc.w    0
  14638.     dc.w    $890
  14639.     dc.w    $7000
  14640.     dc.w    0
  14641.     dc.w    $880
  14642.     dc.w    $7100
  14643.     dc.w    0
  14644.     dc.w    $830
  14645.     dc.w    $7200
  14646.     dc.w    0
  14647.     dc.w    $828
  14648.     dc.w    $5200
  14649.     dc.w    0
  14650.     dc.w    $82C
  14651.     dc.w    $5300
  14652.     dc.w    0
  14653.     dc.w    $D8
  14654.     dc.w    $7400
  14655.     dc.w    0
  14656.     dc.w    $858
  14657.     dc.w    $5400
  14658.     dc.w    0
  14659.     dc.w    $85C
  14660.     dc.w    $7500
  14661.     dc.w    0
  14662.     dc.w    $C4
  14663.     dc.w    $7600
  14664.     dc.w    0
  14665.     dc.w    $B8
  14666.     dc.w    $7800
  14667.     dc.w    0
  14668.     dc.w    $D4
  14669.     dc.w    $5800
  14670.     dc.w    0
  14671.     dc.w    $870
  14672.     dc.w    $5900
  14673.     dc.w    0
  14674.     dc.w    $C8
  14675.     dc.w    $7A00
  14676.     dc.w    0
  14677.     dc.w    $860
  14678.     dc.w    $5A00
  14679.     dc.w    0
  14680.     dc.w    $838
  14681.     dcb.w    $5,0
  14682.     dcb.w    $2,$2D2D
  14683.     dc.w    $6170
  14684.     dc.w    $7368
  14685.     dc.w    $64
  14686.     dc.w    $6577
  14687.     dc.w    $722D
  14688.     dc.w    $2D2D
  14689.     dc.w    $2D00
  14690.     dcb.w    $2,0
  14691.     dc.w    $1F1C
  14692.     dcb.w    $2,$1F1E
  14693.     dc.w    $1F1F
  14694.     dcb.w    $2,$1E1F
  14695.     dc.w    0
  14696.     dc.l    UsageLhAoptio.MSG
  14697.     dc.w    0
  14698.     dc.w    $BA7
  14699.     dcb.w    $1C,0
  14700.     dc.w    $2D6C
  14701.     dc.w    $6830
  14702.     dc.w    $2D00
  14703.     dc.w    $2D6C
  14704.     dc.w    $6831
  14705.     dc.w    $2D00
  14706.     dc.w    $2D6C
  14707.     dc.w    $6832
  14708.     dc.w    $2D00
  14709.     dc.w    $2D6C
  14710.     dc.w    $6833
  14711.     dc.w    $2D00
  14712.     dc.w    $2D6C
  14713.     dc.w    $6834
  14714.     dc.w    $2D00
  14715.     dc.w    $2D6C
  14716.     dc.w    $6835
  14717.     dc.w    $2D00
  14718.     dc.w    $2D6C
  14719.     dc.w    $7A73
  14720.     dc.w    $2D00
  14721.     dc.w    $2D6C
  14722.     dc.w    $7A35
  14723.     dc.w    $2D00
  14724.     dc.w    $2D6C
  14725.     dc.w    $7A34
  14726.     dc.w    $2D00
  14727.     dcb.w    $3,0
  14728.     dc.w    $4C5A
  14729.     dc.w    $4800
  14730.     dc.w    $4152
  14731.     dc.w    $4A00
  14732.     dc.w    $5A49
  14733.     dc.w    $5000
  14734.     dc.w    $5041
  14735.     dc.w    $4B00
  14736.     dc.w    $4152
  14737.     dc.w    $4300
  14738.     dc.w    $5A4F
  14739.     dc.w    $4F00
  14740.     dc.w    $4C48
  14741.     dc.w    $4400
  14742.     dc.w    $444D
  14743.     dc.w    $5300
  14744.     dc.w    $5752
  14745.     dc.w    $5000
  14746.     dc.w    $5A41
  14747.     dc.w    $5000
  14748.     dc.w    $4C48
  14749.     dc.w    $5700
  14750.     dc.w    $4C5A
  14751.     dc.w    $3200
  14752.     dc.w    $4749
  14753.     dc.w    $4600
  14754.     dc.w    $4A50
  14755.     dc.w    $4700
  14756.     dc.w    $4C48
  14757.     dc.w    $4100
  14758.     dcb.w    $4,0
  14759.     dc.w    $3C
  14760.     dc.w    $B33
  14761.     dc.w    $36
  14762.     dc.w    $800
  14763.     dc.w    $30
  14764.     dc.w    $4CC
  14765.     dc.w    $2A
  14766.     dc.w    $3D7
  14767.     dc.w    $24
  14768.     dc.w    $2B8
  14769.     dc.w    $1E
  14770.     dc.w    $199
  14771.     dc.w    $18
  14772.     dc.w    $11E
  14773.     dc.w    $12
  14774.     dc.w    $CC
  14775.     dc.w    12
  14776.     dc.w    $7A
  14777.     dc.w    6
  14778.     dc.w    $28
  14779.     dc.w    $100
  14780.     dc.w    $1666
  14781.     dc.w    $E6
  14782.     dc.w    $1000
  14783.     dc.w    $CC
  14784.     dc.w    $999
  14785.     dc.w    $B3
  14786.     dc.w    $7AE
  14787.     dc.w    $99
  14788.     dc.w    $570
  14789.     dc.w    $80
  14790.     dc.w    $333
  14791.     dc.w    $66
  14792.     dc.w    $23D
  14793.     dc.w    $4C
  14794.     dc.w    $199
  14795.     dc.w    $33
  14796.     dc.w    $F5
  14797.     dc.w    $19
  14798.     dc.w    $51
  14799.     dcb.w    $8,0
  14800.     dc.w    3
  14801.     dc.w    $404
  14802.     dc.w    $405
  14803.     dcb.w    $3,$505
  14804.     dc.w    $506
  14805.     dcb.w    $5,$606
  14806.     dc.w    $607
  14807.     dcb.w    $B,$707
  14808.     dc.w    $708
  14809.     dcb.w    $7,$808
  14810.     dc.w    $800
  14811.     dc.w    $2030
  14812.     dc.w    $4050
  14813.     dc.w    $5860
  14814.     dc.w    $6870
  14815.     dc.w    $7880
  14816.     dc.w    $8890
  14817.     dc.w    $9498
  14818.     dc.w    $9CA0
  14819.     dc.w    $A4A8
  14820.     dc.w    $ACB0
  14821.     dc.w    $B4B8
  14822.     dc.w    $BCC0
  14823.     dc.w    $C2C4
  14824.     dc.w    $C6C8
  14825.     dc.w    $CACC
  14826.     dc.w    $CED0
  14827.     dc.w    $D2D4
  14828.     dc.w    $D6D8
  14829.     dc.w    $DADC
  14830.     dc.w    $DEE0
  14831.     dc.w    $E2E4
  14832.     dc.w    $E6E8
  14833.     dc.w    $EAEC
  14834.     dc.w    $EEF0
  14835.     dc.w    $F1F2
  14836.     dc.w    $F3F4
  14837.     dc.w    $F5F6
  14838.     dc.w    $F7F8
  14839.     dc.w    $F9FA
  14840.     dc.w    $FBFC
  14841.     dc.w    $FDFE
  14842.     dc.w    $FF00
  14843.     dcb.w    $2,0
  14844.     dc.w    $7C2F
  14845.     dc.w    $2D5C
  14846.     dc.w    0
  14847.     dc.w    $4A61
  14848.     dc.w    $6E00
  14849.     dc.w    $4665
  14850.     dc.w    $6200
  14851.     dc.w    $4D61
  14852.     dc.w    $7200
  14853.     dc.w    $4170
  14854.     dc.w    $7200
  14855.     dc.w    $4D61
  14856.     dc.w    $7900
  14857.     dc.w    $4A75
  14858.     dc.w    $6E00
  14859.     dc.w    $4A75
  14860.     dc.w    $6C00
  14861.     dc.w    $4175
  14862.     dc.w    $6700
  14863.     dc.w    $5365
  14864.     dc.w    $7000
  14865.     dc.w    $4F63
  14866.     dc.w    $7400
  14867.     dc.w    $4E6F
  14868.     dc.w    $7600
  14869.     dc.w    $4465
  14870.     dc.w    $6300
  14871.     dcb.w    $2,1
  14872.     dc.l    Unknowncompre.MSG
  14873.     dc.w    2
  14874.     dc.w    1
  14875.     dc.l    IOError.MSG
  14876.     dc.w    3
  14877.     dc.w    1
  14878.     dc.l    FailedCRCChec.MSG
  14879.     dc.w    4
  14880.     dc.w    1
  14881.     dc.l    Unabletoopeno.MSG
  14882.     dc.w    5
  14883.     dc.w    1
  14884.     dc.l    Baddecodingta.MSG
  14885.     dc.w    8
  14886.     dc.w    1
  14887.     dc.l    Inconsistentc.MSG
  14888.     dc.w    6
  14889.     dc.w    1
  14890.     dc.l    Userbreak.MSG
  14891.     dc.w    7
  14892.     dc.w    1
  14893.     dc.l    Couldnotopena.MSG
  14894.     dc.w    $40
  14895.     dc.w    2
  14896.     dc.l    Outofmemory.MSG
  14897.     dc.w    $41
  14898.     dc.w    2
  14899.     dc.l    Couldnotopenf.MSG
  14900.     dcb.w    $2,$FFFF
  14901.     dcb.w    $3,0
  14902.     dc.w    $1F
  14903.     dc.w    0
  14904.     dc.w    $19A
  14905.     dc.w    0
  14906.     dc.w    $18E
  14907.     dc.w    0
  14908.     dc.w    $188
  14909.     dc.w    0
  14910.     dc.w    $182
  14911.     dc.w    0
  14912.     dc.w    $170
  14913.     dc.w    0
  14914.     dc.w    $140
  14915.     dc.w    0
  14916.     dc.w    $122
  14917.     dc.w    0
  14918.     dc.w    $F8
  14919.     dc.w    0
  14920.     dc.w    $F2
  14921.     dc.w    0
  14922.     dc.w    $1A6
  14923.     dc.w    0
  14924.     dc.w    $1A0
  14925.     dc.w    0
  14926.     dc.w    $194
  14927.     dc.w    0
  14928.     dc.w    $17C
  14929.     dc.w    0
  14930.     dc.w    $176
  14931.     dc.w    0
  14932.     dc.w    $16A
  14933.     dc.w    0
  14934.     dc.w    $164
  14935.     dc.w    0
  14936.     dc.w    $15E
  14937.     dc.w    0
  14938.     dc.w    $158
  14939.     dc.w    0
  14940.     dc.w    $152
  14941.     dc.w    0
  14942.     dc.w    $14C
  14943.     dc.w    0
  14944.     dc.w    $146
  14945.     dc.w    0
  14946.     dc.w    $13A
  14947.     dc.w    0
  14948.     dc.w    $134
  14949.     dc.w    0
  14950.     dc.w    $12E
  14951.     dc.w    0
  14952.     dc.w    $128
  14953.     dc.w    0
  14954.     dc.w    $11C
  14955.     dc.w    0
  14956.     dc.w    $116
  14957.     dc.w    0
  14958.     dc.w    $110
  14959.     dc.w    0
  14960.     dc.w    $10A
  14961.     dc.w    0
  14962.     dc.w    $104
  14963.     dc.w    0
  14964.     dc.w    $FE
  14965.