home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / AMITOMB / MAIN.ASM < prev    next >
Assembly Source File  |  1999-06-12  |  24KB  |  962 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. EXT_0000    EQU    $6
  5. EXT_0001    EQU    $43E
  6. EXT_0002    EQU    $2220
  7. EXT_0003    EQU    $6017F
  8. EXT_0004    EQU    $88A000
  9. EXT_0005    EQU    $3913843
  10. EXT_0006    EQU    $13824504
  11. EXT_0007    EQU    $E39E39F4
  12. EXT_0008    EQU    $FFFF9C50
  13.  
  14.  
  15.  
  16.  
  17.     SECTION S_0,CODE
  18.  
  19. SECSTRT_0:
  20.     MOVEQ    #100,D0            ;000: 7064
  21.     RTS                ;002: 4E75
  22.     ORI.B    #$00,D0            ;004: 00000000
  23.     ORI.B    #$00,D0            ;008: 00000000
  24.     DC.W    $0C00            ;00C
  25.     DC.L    SECSTRT_0        ;00E: 00000000
  26.     BCLR    D7,D0            ;012: 0F80
  27.     ORI.B    #$00,D0            ;014: 00000000
  28. LAB_0001:
  29.     ORI.B    #$00,D0            ;018: 00000000
  30.     ORI.B    #$00,D0            ;01C: 00000000
  31.     ORI.B    #$00,D0            ;020: 00000000
  32.     ORI.B    #$00,D0            ;024: 00000000
  33.     ORI.B    #$00,D0            ;028: 00000000
  34.     ORI.B    #$00,D0            ;02C: 00000000
  35.     ORI.B    #$00,D0            ;030: 00000000
  36.     ORI.B    #$00,D0            ;034: 00000000
  37.     ORI.B    #$00,D0            ;038: 00000000
  38.     ORI.B    #$00,D0            ;03C: 00000000
  39.     DC.W    $0000            ;040
  40.     DC.W    $0C00            ;042
  41.     DC.L    LAB_0001+2        ;044: 0000001A
  42.     ORI.B    #$00,D0            ;048: 00000000
  43.     ORI.B    #$08,D0            ;04C: 00000008
  44.     ORI    #$0006,D3        ;050: 00430006
  45.     ORI.B    #$01,D6            ;054: 00060001
  46.     DC.W    $0000            ;058
  47.     DC.W    $20FF            ;05A
  48.     DC.L    LAB_0002        ;05C: 0000006E
  49.     ORI.L    #LAB_0019+2,0(A2)    ;060: 00AA000005BE0000
  50.     ORI.B    #$00,D0            ;068: 00000000
  51.     DC.W    $0000            ;06C
  52. LAB_0002:
  53.     DC.W    $0428            ;06E
  54.     DC.W    $A104            ;070
  55.     DC.W    $0410            ;072
  56.     MOVE.L    D0,D1            ;074: 2200
  57.     ORI.B    #$04,D0            ;076: 00000004
  58.     LSR.L    #8,D6            ;07A: E08E
  59.     MOVE    -(A7),D4        ;07C: 3827
  60.     AND    #$E380,D3        ;07E: C67CE380
  61.     ORI.B    #$38,D0            ;082: 00000038
  62.     ROL.L    #1,D6            ;086: E39E
  63.     DC.W    $39C7            ;088
  64.     ADD.B    D7,EXT_0006        ;08A: DF3913824504
  65.     SUBQ.B    #8,EXT_0007        ;090: 5139E39E39F4
  66.     SUBQ    #8,D5            ;096: 5145
  67.     DC.W    $145F            ;098
  68.     MOVE.B    D3,-(A4)        ;09A: 1903
  69.     DC.W    $0400            ;09C
  70.     NEGX.B    (A0)            ;09E: 4010
  71.     DC.W    $0010            ;0A0
  72.     BTST    D1,D0            ;0A2: 0300
  73.     OR.L    D1,D0            ;0A4: 8081
  74.     MOVE.B    -(A0),D0        ;0A6: 1020
  75.     ORI.B    #$00,D0            ;0A8: 00000000
  76.     ORI.B    #$00,-(A0)        ;0AC: 00200000
  77.     DC.W    $0000            ;0B0
  78.     DC.W    $0421            ;0B2
  79.     DC.W    $06AA            ;0B4
  80.     DC.W    $7DF7            ;0B6
  81.     DC.W    $DF7D            ;0B8
  82.     DC.W    $F7DF            ;0BA
  83.     DC.W    $7DF7            ;0BC
  84.     DC.W    $DF7D            ;0BE
  85.     DC.W    $F7DF            ;0C0
  86.     DC.W    $7DF7            ;0C2
  87.     DC.W    $DF7D            ;0C4
  88.     DC.W    $F7DF            ;0C6
  89.     DC.W    $7DF7            ;0C8
  90.     DC.W    $DF7D            ;0CA
  91.     DC.W    $F7DF            ;0CC
  92.     ORI.L    #$22888714,D3        ;0CE: 008322888714
  93.     MOVEQ    #-32,D4            ;0D4: 78E0
  94.     MOVE    D1,D7            ;0D6: 3E01
  95.     DC.W    $EFD0            ;0D8
  96.     DC.W    $218E            ;0DA
  97.     DC.W    $0401            ;0DC
  98.     ASR.B    #8,D0            ;0DE: E000
  99.     MOVE.L    D0,(A0)+        ;0E0: 20C0
  100.     DC.W    $1043            ;0E2
  101.     DC.W    $0210            ;0E4
  102.     MOVE.B    D6,(A0)            ;0E6: 1086
  103.     DC.W    $9430            ;0E8
  104.     DC.W    $F710            ;0EA
  105.     MOVE.B    D5,(A0)            ;0EC: 1085
  106.     MOVE.B    (A0),D0            ;0EE: 1010
  107.     OR.B    D2,(A0)+        ;0F0: 8518
  108.     DC.W    $6901            ;0F2
  109.     DC.W    $0869            ;0F4
  110.     NEGX.B    (A6)+            ;0F6: 401E
  111. LAB_0003:
  112.     NEGX    D2            ;0F8: 4042
  113.     MOVE.B    (A2),D2            ;0FA: 1412
  114.     DC.W    $0610            ;0FC
  115. LAB_0004:
  116.     MOVE.B    D6,(A0)            ;0FE: 1086
  117.     SUB.B    16(A0,D0.W),D2        ;100: 94300010
  118. LAB_0005:
  119.     MOVE.B    D5,(A0)            ;104: 1085
  120.     MOVE.B    (A0),D0            ;106: 1010
  121.     OR.B    D2,(A4)            ;108: 8514
  122. LAB_0006:
  123.     DC.W    $6901            ;10A
  124.     DC.W    $0869            ;10C
  125.     NEGX.B    D0            ;10E: 4000
  126.     NEGX    D2            ;110: 4042
  127.     MOVE.B    (A2),D2            ;112: 1412
  128.     BTST    D2,(A5)            ;114: 0515
  129.     DC.W    $0000            ;116
  130.     DC.W    $0428            ;118
  131.     DC.W    $A3CA            ;11A
  132.     OR.B    (A0),D5            ;11C: 8A10
  133.     DC.W    $410A            ;11E
  134.     MOVE.B    D0,D0            ;120: 1000
  135.     DC.W    $0009            ;122
  136.     DC.W    $1191            ;124
  137.     NEG    -(A4)            ;126: 4464
  138.     DC.W    $0805            ;128
  139.     DC.W    $1440            ;12A
  140.     DC.W    $0020            ;12C
  141.     DC.W    $0845            ;12E
  142.     DC.W    $1451            ;130
  143.     DC.W    $4524            ;132
  144.     DC.W    $1045            ;134
  145.     MOVE.B    D2,-(A0)        ;136: 1102
  146.     DC.W    $4906            ;138
  147.     ADDX    D5,D4            ;13A: D945
  148.     DC.W    $1451            ;13C
  149.     NEG    D4            ;13E: 4444
  150.     SUBQ    #8,D5            ;140: 5145
  151.     DC.W    $1441            ;142
  152.     MOVE.B    D1,(A0)            ;144: 1081
  153.     DC.W    $0A00            ;146
  154.     NEGX.B    (A0)            ;148: 4010
  155.     DC.W    $0010            ;14A
  156.     DC.W    $0400            ;14C
  157.     OR.B    D0,D0            ;14E: 8000
  158.     MOVE.B    -(A0),D0        ;150: 1020
  159.     ORI.B    #$00,D0            ;152: 00000000
  160.     ORI.B    #$00,-(A0)        ;156: 00200000
  161.     DC.W    $0000            ;15A
  162.     DC.W    $0820            ;15C
  163.     OR.B    D5,(A4)            ;15E: 8B14
  164.     BCS.S    LAB_0003        ;160: 6596
  165.     SUBQ    #4,-(A5)        ;162: 5965
  166.     SUB    (A1)+,D3        ;164: 9659
  167.     BCS.S    LAB_0004        ;166: 6596
  168.     SUBQ    #4,-(A5)        ;168: 5965
  169.     SUB    (A1)+,D3        ;16A: 9659
  170.     BCS.S    LAB_0005        ;16C: 6596
  171.     SUBQ    #4,-(A5)        ;16E: 5965
  172.     SUB    (A1)+,D3        ;170: 9659
  173.     BCS.S    LAB_0006        ;172: 6596
  174.     SUBQ    #4,-(A5)        ;174: 5965
  175.     SUB    (A1)+,D3        ;176: 9659
  176.     MOVE.L    -(A4),(EXT_0008).W    ;178: 21E49C50
  177.     OR.L    (A4),D4            ;17C: 8894
  178.     OR.B    D2,-(A2)        ;17E: 8522
  179.     OR.B    D2,D1            ;180: 8202
  180.     MOVE.B    8769(A0),D0        ;182: 10282241
  181.     DC.W    $0803            ;186
  182.     DC.W    $A000            ;188
  183.     BSR.S    LAB_000A        ;18A: 612A
  184.     MOVE    A1,(A1)+        ;18C: 32C9
  185.     MOVE.L    A0,D0            ;18E: 2008
  186.     MOVE.L    A3,7248(A0)        ;190: 214B1C50
  187.     DC.W    $C888            ;194
  188.     DC.W    $2140            ;196
  189.     DC.W    $0821            ;198
  190.     NEGX.B    (A4)            ;19A: 4014
  191.     CMP.L    D2,D0            ;19C: B082
  192.     MOVE.B    -90(A1,A4.L),(A2)    ;19E: 14B1C8A6
  193.     MOVE.L    D5,(A0)            ;1A2: 2085
  194.     MOVE.L    -(A2),D1        ;1A4: 2222
  195.     DC.W    $0908            ;1A6
  196. LAB_0007:
  197.     MOVE.L    A3,80(A0)        ;1A8: 214B0050
  198.     DC.W    $0008            ;1AC
  199. LAB_0008:
  200.     DC.W    $2140            ;1AE
  201.     DC.W    $0821            ;1B0
  202.     NEGX.B    (A0)+            ;1B2: 4018
  203. LAB_0009:
  204.     CMP.L    D2,D0            ;1B4: B082
  205. LAB_000A:
  206.     DC.W    $14B0            ;1B6
  207.     DC.W    $0201            ;1B8
  208.     MOVE.L    D5,(A0)            ;1BA: 2085
  209.     ORI.B    #$15,-(A2)        ;1BC: 00220015
  210.     DC.W    $0000            ;1C0
  211.     DC.W    $0401            ;1C2
  212.     DC.W    $F405            ;1C4
  213.     DC.W    $0A20            ;1C6
  214.     DC.W    $808E            ;1C8
  215.     MOVE.B    D0,D0            ;1CA: 1000
  216.     DC.W    $0009            ;1CC
  217.     MOVE    D1,(A0)            ;1CE: 3081
  218.     SUBI.L    #$90051444,-(A7)    ;1D0: 04A790051444
  219.     DC.W    $1047            ;1D6
  220.     AND.B    D5,D2            ;1D8: C405
  221.     MOVEQ    #81,D2            ;1DA: 7451
  222.     DC.W    $4114            ;1DC
  223.     DC.W    $1041            ;1DE
  224.     MOVE.B    D2,-(A0)        ;1E0: 1102
  225.     SUBQ.B    #8,D5            ;1E2: 5105
  226.     SUBQ    #2,D5            ;1E4: 5545
  227.     DC.W    $1451            ;1E6
  228.     NEGX    D4            ;1E8: 4044
  229.     SUBQ    #8,D4            ;1EA: 5144
  230.     DC.W    $A282            ;1EC
  231.     MOVE.B    D1,(A0)            ;1EE: 1081
  232.     MOVE.B    D0,-(A0)        ;1F0: 1100
  233.     DC.W    $239E            ;1F2
  234.     DC.W    $38F3            ;1F4
  235.     OR.B    (A6)+,D7        ;1F6: 8E1E
  236.     CMP.L    D1,D0            ;1F8: B081
  237.     MOVE.B    -(A3),D1        ;1FA: 1223
  238.     AND.B    D5,(A4)+        ;1FC: CB1C
  239.     DC.W    $F1E5            ;1FE
  240.     SUB    -94(A2,D2.L),D6        ;200: 9C7228A2
  241.     OR.B    -30688(A7),D5        ;204: 8A2F8820
  242.     OR.B    26006(A2),D0        ;208: 802A6596
  243.     SUBQ    #4,-(A5)        ;20C: 5965
  244.     SUB    (A1)+,D3        ;20E: 9659
  245.     BCS.S    LAB_0007        ;210: 6596
  246.     SUBQ    #4,-(A5)        ;212: 5965
  247.     SUB    (A1)+,D3        ;214: 9659
  248.     BCS.S    LAB_0008        ;216: 6596
  249.     SUBQ    #4,-(A5)        ;218: 5965
  250.     SUB    (A1)+,D3        ;21A: 9659
  251.     BCS.S    LAB_0009        ;21C: 6596
  252.     SUBQ    #4,-(A5)        ;21E: 5965
  253.     SUB    (A1)+,D3        ;220: 9659
  254.     ANDI.L    #$22208600,D4        ;222: 028422208600
  255.     EOR    D2,-(A5)        ;228: B565
  256.     DC.W    $0002            ;22A
  257.     ADD.B    (A0),D0            ;22C: D010
  258.     DC.W    $F886            ;22E
  259.     DC.W    $008B            ;230
  260.     DC.W    $A300            ;232
  261.     MOVE.L    -(A5),-(A0)        ;234: 2125
  262.     DC.W    $1450            ;236
  263.     AND.B    (A4)+,D1        ;238: C21C
  264.     DC.W    $71C7            ;23A
  265.     MOVEA.L    62(A1,D4.L),A1        ;23C: 2271483E
  266.     DC.W    $FBEF            ;240
  267.     DC.W    $9C71            ;242
  268.     AND.B    D3,(A2)            ;244: C712
  269.     DIVS    D7,D4            ;246: 89C7
  270.     DC.W    $1C72            ;248
  271.     MOVE.L    -(A6),-(A2)        ;24A: 2526
  272. LAB_000B:
  273.     OR.B    -23925(A0),D5        ;24C: 8A28A28B
  274.     AND.B    D4,(A4)+        ;250: C91C
  275. LAB_000C:
  276.     DC.W    $71C7            ;252
  277.     DC.W    $1C73            ;254
  278.     BEQ.S    LAB_000F        ;256: 671C
  279. LAB_000D:
  280.     DC.W    $71C7            ;258
  281.     DC.W    $0000            ;25A
  282. LAB_000E:
  283.     ANDI.B    #$00,D4            ;25C: 02040000
  284.     DC.W    $0001            ;260
  285.     AND.B    (A6)+,D0        ;262: C01E
  286.     OR.B    -23926(A0),D5        ;264: 8A28A28A
  287.     AND.L    (A5),D4            ;268: C895
  288.     DC.W    $0000            ;26A
  289.     DC.W    $0400            ;26C
  290.     DC.W    $A382            ;26E
  291.     DC.W    $0C00            ;270
  292.     OR.L    (A7)+,D0        ;272: 809F
  293. LAB_000F:
  294.     MOVEQ    #7,D6            ;274: 7C07
  295.     AND.B    (A1),D0            ;276: C011
  296.     ADDQ.L    #8,D2            ;278: 5082
  297.     MOVE.B    -(A0),-(A4)        ;27A: 1920
  298.     DC.W    $5E08            ;27C
  299.     DC.W    $E3C0            ;27E
  300.     ORI.L    #$020957DE,D0        ;280: 0080020957DE
  301.     DC.W    $4117            ;286
  302.     SUB    A5,D7            ;288: 9E4D
  303.     DC.W    $F102            ;28A
  304.     DC.W    $6105            ;28C
  305.     SUBQ    #1,D5            ;28E: 5345
  306.     ROR    #2,D6            ;290: E45E
  307.     MOVEA    D4,A4            ;292: 3844
  308.     TST    (A4)            ;294: 4A54
  309.     DC.W    $4104            ;296
  310.     DC.W    $1041            ;298
  311.     ORI.B    #$51,D0            ;29A: 00000051
  312.     DC.W    $4514            ;29E
  313.     NEG.B    -(A2)            ;2A0: 4422
  314.     AND.L    D1,D4            ;2A2: C881
  315.     MOVE.B    -(A2),D2        ;2A4: 1422
  316.     DC.W    $ACA2            ;2A6
  317.     OR.B    -(A6),D5        ;2A8: 8A26
  318.     MOVE.L    -(A2),D0        ;2AA: 2022
  319.     DC.W    $28AA            ;2AC
  320.     ADDQ.B    #1,-(A1)        ;2AE: 5221
  321.     MOVE.B    -(A0),D0        ;2B0: 1020
  322.     NEGX.B    (A4)            ;2B2: 4014
  323.     BCS.S    LAB_000B        ;2B4: 6596
  324.     SUBQ    #4,-(A5)        ;2B6: 5965
  325.     SUB    (A1)+,D3        ;2B8: 9659
  326.     BCS.S    LAB_000C        ;2BA: 6596
  327.     SUBQ    #4,-(A5)        ;2BC: 5965
  328.     SUB    (A1)+,D3        ;2BE: 9659
  329.     BCS.S    LAB_000D        ;2C0: 6596
  330.     SUBQ    #4,-(A5)        ;2C2: 5965
  331.     SUB    (A1)+,D3        ;2C4: 9659
  332.     BCS.S    LAB_000E+2        ;2C6: 6596
  333.     SUBQ    #4,-(A5)        ;2C8: 5965
  334.     SUB    (A1)+,D3        ;2CA: 9659
  335.     MOVE.L    A6,(A1)            ;2CC: 228E
  336.     DC.W    $1C70            ;2CE
  337.     BTST    D4,D0            ;2D0: 0900
  338.     DC.W    $A5AA            ;2D2
  339.     DC.W    $00FE            ;2D4
  340.     CMP.B    D0,D0            ;2D6: B000
  341.     MOVE.L    D1,-(A0)        ;2D8: 2101
  342.     DC.W    $0089            ;2DA
  343.     DC.W    $A300            ;2DC
  344.     MOVE.L    D2,(A0)+        ;2DE: 20C2
  345.     DC.W    $8A3B            ;2E0
  346.     DC.W    $A422            ;2E2
  347.     OR.B    -23927(A0),D5        ;2E4: 8A28A289
  348.     DC.W    $F820            ;2E8
  349.     DC.W    $8208            ;2EA
  350.     DC.W    $0820            ;2EC
  351.     DC.W    $823A            ;2EE
  352.     AND.B    -23926(A0),D5        ;2F0: CA28A28A
  353.     MOVE.L    -30168(A2),D1        ;2F4: 222A8A28
  354.     DC.W    $A252            ;2F8
  355.     MOVE.L    D2,-(A5)        ;2FA: 2B02
  356. LAB_0010:
  357.     DC.W    $0820            ;2FC
  358.     DC.W    $8208            ;2FE
  359.     SUB.L    -(A2),D4        ;300: 98A2
  360. LAB_0011:
  361.     OR.B    -30688(A0),D5        ;302: 8A288820
  362.     OR.B    (A6)+,D1        ;306: 821E
  363. LAB_0012:
  364.     CMPA.L    D7,A0            ;308: B1C7
  365.     DC.W    $1C72            ;30A
  366.     DC.W    $2FA6            ;30C
  367.     OR.B    -23925(A0),D5        ;30E: 8A28A28B
  368.     MOVE.L    (A5),(A4)        ;312: 2895
  369.     DC.W    $0000            ;314
  370.     DC.W    $0401            ;316
  371.     DC.W    $F045            ;318
  372.     MOVE.B    D0,-(A2)        ;31A: 1500
  373.     DC.W    $808E            ;31C
  374.     MOVE.B    D0,D0            ;31E: 1000
  375.     DC.W    $0011            ;320
  376.     SUB.L    D4,D0            ;322: 9084
  377.     DC.W    $05F0            ;324
  378.     SUBQ.B    #8,(A1)            ;326: 5111
  379.     DC.W    $1040            ;328
  380.     ORI    #$C411,D7        ;32A: 0047C411
  381.     MOVEQ    #81,D2            ;32E: 7451
  382.     DC.W    $4114            ;330
  383.     DC.W    $1045            ;332
  384.     MOVE.B    D2,-(A0)        ;334: 1102
  385.     SUBQ.B    #8,D4            ;336: 5104
  386.     SUBQ    #8,D5            ;338: 5145
  387.     BCHG    D2,(A4)            ;33A: 0554
  388.     SUBI    #$4A54,D4        ;33C: 04444A54
  389.     DC.W    $A108            ;340
  390.     DC.W    $1041            ;342
  391.     DC.W    $0000            ;344
  392.     BSET    D1,(A1)            ;346: 03D1
  393.     DC.W    $4117            ;348
  394.     AND.B    -(A2),D2        ;34A: C422
  395.     OR.L    D1,D4            ;34C: 8881
  396.     MOVE.B    -(A2),D4        ;34E: 1822
  397.     DC.W    $A8A2            ;350
  398.     OR.B    -(A4),D5        ;352: 8A24
  399.     MOVE.B    -(A2),D6        ;354: 1C22
  400.     MOVE.L    8514(A2),(A4)        ;356: 28AA2142
  401.     DC.W    $0820            ;35A
  402.     OR.B    26006(A2),D0        ;35C: 802A6596
  403.     SUBQ    #4,-(A5)        ;360: 5965
  404.     SUB    (A1)+,D3        ;362: 9659
  405.     BCS.S    LAB_0010        ;364: 6596
  406.     SUBQ    #4,-(A5)        ;366: 5965
  407.     SUB    (A1)+,D3        ;368: 9659
  408.     BCS.S    LAB_0011        ;36A: 6596
  409.     SUBQ    #4,-(A5)        ;36C: 5965
  410.     SUB    (A1)+,D3        ;36E: 9659
  411.     BCS.S    LAB_0012        ;370: 6596
  412.     SUBQ    #4,-(A5)        ;372: 5965
  413.     SUB    (A1)+,D3        ;374: 9659
  414.     MOVE.L    -(A4),(EXT_0002).W    ;376: 21E42220
  415.     OR.L    D0,D2            ;37A: 8480
  416.     CMP.B    D5,D2            ;37C: B405
  417.     DC.W    $0002            ;37E
  418.     ADD.B    D0,D0            ;380: D000
  419.     MOVE.L    A6,EXT_0004        ;382: 23CE0088A000
  420.     MOVE.L    D5,D0            ;388: 2005
  421.     DC.W    $1449            ;38A
  422.     DC.W    $483E            ;38C
  423.     DC.W    $FBEF            ;38E
  424.     DC.W    $BEFA            ;390
  425.     DC.W    $483C            ;392
  426.     DC.W    $F3CF            ;394
  427.     DC.W    $0820            ;396
  428.     OR.B    (A2),D1            ;398: 8212
  429.     DC.W    $AA28            ;39A
  430.     DC.W    $A28A            ;39C
  431.     DC.W    $2532            ;39E
  432. LAB_0013:
  433.     OR.B    -24030(A0),D5        ;3A0: 8A28A222
  434.     MOVE.L    (A6)+,(A4)        ;3A4: 289E
  435. LAB_0014:
  436.     DC.W    $79E7            ;3A6
  437.     DC.W    $9E79            ;3A8
  438.     DC.W    $F83E            ;3AA
  439. LAB_0015:
  440.     DC.W    $FBEF            ;3AC
  441.     OR.B    -(A0),D4        ;3AE: 8820
  442.     OR.B    -(A2),D1        ;3B0: 8222
  443. LAB_0016:
  444.     AND.B    -23926(A0),D5        ;3B2: CA28A28A
  445.     MOVE.L    -30168(A2),D0        ;3B6: 202A8A28
  446.     DC.W    $A252            ;3BA
  447.     MOVE.L    (A5),-(A2)        ;3BC: 2515
  448.     ORI.B    #$00,D0            ;3BE: 00000000
  449.     DC.W    $A78A            ;3C2
  450.     SUB.B    D0,D1            ;3C4: 9200
  451.     DC.W    $410A            ;3C6
  452.     DC.W    $1040            ;3C8
  453.     DC.W    $0021            ;3CA
  454.     DC.W    $1088            ;3CC
  455.     NEG.B    -(A4)            ;3CE: 4424
  456.     SUBQ.B    #8,(A1)            ;3D0: 5111
  457.     MOVE.B    D4,(A0)            ;3D2: 1084
  458.     MOVE.B    -(A0),D0        ;3D4: 1020
  459.     DC.W    $0801            ;3D6
  460.     SUBI    #$4524,(A1)        ;3D8: 04514524
  461.     DC.W    $1045            ;3DC
  462.     MOVE.B    (A2),-(A0)        ;3DE: 1112
  463.     DC.W    $4904            ;3E0
  464.     SUBQ    #8,D5            ;3E2: 5145
  465.     DC.W    $04D2            ;3E4
  466.     NEG    D4            ;3E6: 4444
  467.     NEG    4368(A5)        ;3E8: 446D1110
  468.     MOVE.B    -(A1),D0        ;3EC: 1021
  469.     DC.W    $0000            ;3EE
  470.     SUBI    #$4514,(A1)        ;3F0: 04514514
  471.     DC.W    $041E            ;3F4
  472.     OR.L    D1,D4            ;3F6: 8881
  473.     MOVE.B    -(A2),D2        ;3F8: 1422
  474.     DC.W    $A8A2            ;3FA
  475.     DC.W    $F1E4            ;3FC
  476.     DC.W    $0222            ;3FE
  477.     BCS.S    LAB_0017        ;400: 6514
  478.     ADDQ.L    #8,D4            ;402: 5084
  479.     DC.W    $0820            ;404
  480.     OR.B    (A4),D0            ;406: 8014
  481.     BCS.S    LAB_0013        ;408: 6596
  482.     SUBQ    #4,-(A5)        ;40A: 5965
  483.     SUB    (A1)+,D3        ;40C: 9659
  484.     BCS.S    LAB_0014        ;40E: 6596
  485.     SUBQ    #4,-(A5)        ;410: 5965
  486.     SUB    (A1)+,D3        ;412: 9659
  487.     BCS.S    LAB_0015        ;414: 6596
  488. LAB_0017:
  489.     SUBQ    #4,-(A5)        ;416: 5965
  490.     SUB    (A1)+,D3        ;418: 9659
  491.     BCS.S    LAB_0016        ;41A: 6596
  492.     SUBQ    #4,-(A5)        ;41C: 5965
  493.     SUB    (A1)+,D3        ;41E: 9659
  494.     MOVE.L    D4,(A0)            ;420: 2084
  495.     DC.W    $0020            ;422
  496.     SBCD    D0,D1            ;424: 8300
  497.     DIVS    -(A2),D2        ;426: 85E2
  498.     OR.B    D2,D0            ;428: 8002
  499.     CMP.B    D0,D0            ;42A: B000
  500.     ORI.B    #$D8,D0            ;42C: 000000D8
  501.     DC.W    $A000            ;430
  502.     BSET    D0,11922(A2)        ;432: 01EA2E92
  503.     ASR.L    D4,D2            ;436: E8A2
  504.     OR.B    -23926(A0),D5        ;438: 8A28A28A
  505.     MOVEM    D0/D6/A4,-(A0)        ;43C: 48A08208
  506.     DC.W    $0820            ;440
  507.     OR.B    (A4),D1            ;442: 8214
  508.     SUB.B    -23926(A0),D5        ;444: 9A28A28A
  509.     DC.W    $28B2            ;448
  510.     OR.B    -24029(A0),D5        ;44A: 8A28A223
  511.     AND.L    -(A2),D4        ;44E: C8A2
  512.     OR.B    -23926(A0),D5        ;450: 8A28A28A
  513.     AND.L    -(A0),D4        ;454: C8A0
  514.     DC.W    $8208            ;456
  515.     DC.W    $0820            ;458
  516.     OR.B    -(A2),D1        ;45A: 8222
  517.     OR.B    -23926(A0),D5        ;45C: 8A28A28A
  518.     DC.W    $2232            ;460
  519.     DC.W    $9A69            ;462
  520.     DC.W    $A623            ;464
  521.     MOVE.L    (A5),D1            ;466: 2215
  522.     DC.W    $0000            ;468
  523.     DC.W    $0400            ;46A
  524.     DC.W    $A101            ;46C
  525.     BTST    D6,D0            ;46E: 0D00
  526.     MOVE.L    D0,D1            ;470: 2200
  527.     ORI    #$0420,D0        ;472: 00400420
  528.     ROR.L    #8,D7            ;476: E09F
  529.     MOVE    -(A3),D4        ;478: 3823
  530.     OR.B    (A0),D7            ;47A: 8E10
  531.     ASL.B    #1,D0            ;47C: E300
  532.     MOVE.B    D0,D0            ;47E: 1000
  533.     DC.W    $0010            ;480
  534.     ROR    #2,D6            ;482: E45E
  535.     DC.W    $39C7            ;484
  536.     DC.W    $D03D            ;486
  537.     DC.W    $138C            ;488
  538.     DC.W    $45F4            ;48A
  539.     SUBQ.B    #8,EXT_0005        ;48C: 513903913843
  540.     OR    D5,D2            ;492: 8445
  541.     MOVE.B    (A7)+,-(A0)        ;494: 111F
  542.     MOVE.B    -(A3),D4        ;496: 1823
  543.     DC.W    $0000            ;498
  544.     BSET    D1,(A6)+        ;49A: 03DE
  545.     DC.W    $38F3            ;49C
  546.     OR.B    D2,D2            ;49E: 8402
  547.     OR    D1,D4            ;4A0: 8841
  548.     MOVE.B    (A2),D1            ;4A2: 1212
  549.     DC.W    $A89C            ;4A4
  550.     OR.B    -(A4),D0        ;4A6: 8024
  551.     MOVE    (A1),D6            ;4A8: 3C11
  552.     DC.W    $A214            ;4AA
  553.     DC.W    $888F            ;4AC
  554.     OR.B    -(A1),D2        ;4AE: 8421
  555.     DC.W    $002A            ;4B0
  556.     DC.W    $7DF7            ;4B2
  557. LAB_0018:
  558.     DC.W    $DF7D            ;4B4
  559.     DC.W    $F7DF            ;4B6
  560.     DC.W    $7DF7            ;4B8
  561.     DC.W    $DF7D            ;4BA
  562.     DC.W    $F7DF            ;4BC
  563.     DC.W    $7DF7            ;4BE
  564.     DC.W    $DF7D            ;4C0
  565.     DC.W    $F7DF            ;4C2
  566.     DC.W    $7DF7            ;4C4
  567.     DC.W    $DF7D            ;4C6
  568.     DC.W    $F7DF            ;4C8
  569.     MOVE.L    A7,D0            ;4CA: 200F
  570.     OR.B    -(A0),D0        ;4CC: 8020
  571.     OR.L    D0,D4            ;4CE: 8880
  572.     MOVEQ    #0,D4            ;4D0: 7800
  573.     DC.W    $0002            ;4D2
  574.     MOVE.B    D0,D0            ;4D4: 1000
  575.     DC.W    $F800            ;4D6
  576.     ORI.L    #$A0080000,536(A0)    ;4D8: 00A8A00800000218
  577.     MOVE.L    -(A2),-(A3)        ;4E0: 2722
  578.     OR.B    -23926(A0),D5        ;4E2: 8A28A28A
  579.     DC.W    $773E            ;4E6
  580.     DC.W    $FBEF            ;4E8
  581.     DC.W    $9C71            ;4EA
  582.     AND.B    D3,(A0)+        ;4EC: C718
  583.     DIVS    D7,D4            ;4EE: 89C7
  584.     DC.W    $1C71            ;4F0
  585.     DC.W    $C03C            ;4F2
  586.     DC.W    $71C7            ;4F4
  587.     MOVE.B    -(A2),D6        ;4F6: 1C22
  588.     BTST    D5,(A6)+        ;4F8: 0B1E
  589.     DC.W    $79E7            ;4FA
  590.     DC.W    $9E7B            ;4FC
  591.     EOR.B    D3,(A4)+        ;4FE: B71C
  592.     DC.W    $71C7            ;500
  593.     DC.W    $0410            ;502
  594.     DC.W    $411C            ;504
  595.     DIVS    D7,D4            ;506: 89C7
  596.     DC.W    $1C71            ;508
  597.     AND.B    (A4)+,D0        ;50A: C01C
  598.     BVS.S    LAB_0018        ;50C: 69A6
  599.     SUB.B    -(A2),D5        ;50E: 9A22
  600.     AND.B    (A5),D1            ;510: C215
  601.     ORI.B    #$00,D0            ;512: 00000000
  602.     ORI.B    #$00,D0            ;516: 00000000
  603.     ORI.B    #$80,D0            ;51A: 00000080
  604.     ORI    #$0000,D0        ;51E: 00400000
  605.     ORI.B    #$00,D0            ;522: 00000000
  606.     DC.W    $0000            ;526
  607.     MOVE.L    D0,D0            ;528: 2000
  608.     ORI.B    #$00,D0            ;52A: 00000000
  609.     ORI.B    #$00,D0            ;52E: 00000000
  610.     ORI.B    #$00,D0            ;532: 00000000
  611.     ORI.B    #$40,D0            ;536: 00000040
  612.     ORI.B    #$00,D0            ;53A: 00000000
  613.     ORI.B    #$10,D0            ;53E: 00000010
  614.     DC.W    $007E            ;542
  615.     ORI.B    #$00,D0            ;544: 00000000
  616.     ORI.B    #$06,(A4)+        ;548: 001C0006
  617.     ORI.B    #$00,D0            ;54C: 00000000
  618.     OR.B    -(A0),D0        ;550: 8020
  619.     ORI.B    #$00,D0            ;552: 00000000
  620.     BTST    D0,D0            ;556: 0100
  621.     ORI.B    #$14,D0            ;558: 00000014
  622.     ORI.B    #$00,D0            ;55C: 00000000
  623.     ORI.B    #$00,D0            ;560: 00000000
  624.     ORI.B    #$00,D0            ;564: 00000000
  625.     ORI.B    #$00,D0            ;568: 00000000
  626.     ORI.B    #$00,D0            ;56C: 00000000
  627.     ORI.B    #$00,D0            ;570: 00000000
  628.     MOVE.L    D0,D0            ;574: 2000
  629.     DC.W    $0000            ;576
  630.     BTST    D3,D0            ;578: 0700
  631.     ORI.B    #$01,D0            ;57A: 00000001
  632.     ASR.B    #8,D0            ;57E: E000
  633.     ORI.B    #$80,D0            ;580: 00000080
  634.     ORI.B    #$00,(A0)+        ;584: 00180000
  635.     ORI.B    #$00,D0            ;588: 00000000
  636.     ORI.B    #$00,D0            ;58C: 00000000
  637.     ANDI.B    #$00,D0            ;590: 02000000
  638.     ORI.B    #$00,D0            ;594: 00000000
  639.     ORI.B    #$00,D0            ;598: 00000000
  640.     ORI.B    #$00,D0            ;59C: 00000000
  641.     ORI.B    #$00,D2            ;5A0: 00020000
  642.     ORI.B    #$00,D0            ;5A4: 00000000
  643.     ANDI.B    #$00,D0            ;5A8: 02000000
  644.     ORI.B    #$00,D0            ;5AC: 00000000
  645.     ORI.B    #$00,D0            ;5B0: 00000000
  646.     ORI.B    #$00,-(A0)        ;5B4: 00200000
  647.     ORI    #$0415,D2        ;5B8: 00420415
  648. LAB_0019:
  649.     ORI.B    #$00,D0            ;5BC: 00000000
  650.     ORI.B    #$03,D3            ;5C0: 00030003
  651.     ORI.B    #$09,D6            ;5C4: 00060009
  652.     ORI.B    #$0F,D6            ;5C8: 0006000F
  653.     ORI.B    #$15,D6            ;5CC: 00060015
  654.     ORI.B    #$1C,D7            ;5D0: 0007001C
  655.     ORI.B    #$23,D7            ;5D4: 00070023
  656.     ORI.B    #$29,D6            ;5D8: 00060029
  657.     ORI.B    #$2F,D6            ;5DC: 0006002F
  658.     ORI.B    #$35,D6            ;5E0: 00060035
  659.     ORI.B    #$3B,D6            ;5E4: 0006003B
  660.     ORI.B    #$41,D6            ;5E8: 00060041
  661.     ORI.B    #$47,D6            ;5EC: 00060047
  662.     ORI.B    #$4D,D6            ;5F0: 0006004D
  663.     ORI.B    #$53,D6            ;5F4: 00060053
  664.     ORI.B    #$59,D6            ;5F8: 00060059
  665.     ORI.B    #$5F,D6            ;5FC: 0006005F
  666.     ORI.B    #$65,D6            ;600: 00060065
  667.     ORI.B    #$6B,D6            ;604: 0006006B
  668.     ORI.B    #$71,D6            ;608: 00060071
  669.     ORI.B    #$77,D6            ;60C: 00060077
  670.     ORI.B    #$7D,D6            ;610: 0006007D
  671.     ORI.B    #$83,D6            ;614: 00060083
  672.     ORI.B    #$89,D6            ;618: 00060089
  673.     ORI.B    #$8F,D6            ;61C: 0006008F
  674.     ORI.B    #$95,D6            ;620: 00060095
  675.     ORI.B    #$9B,D6            ;624: 0006009B
  676.     ORI.B    #$A1,D6            ;628: 000600A1
  677.     ORI.B    #$A7,D6            ;62C: 000600A7
  678.     ORI.B    #$AD,D6            ;630: 000600AD
  679.     ORI.B    #$B3,D6            ;634: 000600B3
  680.     ORI.B    #$B9,D6            ;638: 000600B9
  681.     ORI.B    #$BF,D6            ;63C: 000600BF
  682.     ORI.B    #$C5,D6            ;640: 000600C5
  683.     ORI.B    #$CB,D6            ;644: 000600CB
  684.     ORI.B    #$D1,D6            ;648: 000600D1
  685.     ORI.B    #$D7,D6            ;64C: 000600D7
  686.     ORI.B    #$DD,D6            ;650: 000600DD
  687.     ORI.B    #$E3,D6            ;654: 000600E3
  688.     ORI.B    #$E9,D6            ;658: 000600E9
  689.     ORI.B    #$EF,D6            ;65C: 000600EF
  690.     ORI.B    #$F5,D6            ;660: 000600F5
  691.     ORI.B    #$FB,D6            ;664: 000600FB
  692.     DC.W    $0006            ;668
  693.     BTST    D0,D1            ;66A: 0101
  694.     DC.W    $0006            ;66C
  695.     BTST    D0,D7            ;66E: 0107
  696.     DC.W    $0006            ;670
  697.     MOVEP    6(A5),D0        ;672: 010D0006
  698.     BTST    D0,(A3)            ;676: 0113
  699.     DC.W    $0006            ;678
  700.     BTST    D0,(A1)+        ;67A: 0119
  701.     DC.W    $0006            ;67C
  702.     BTST    D0,(A7)+        ;67E: 011F
  703.     DC.W    $0006            ;680
  704.     BTST    D0,-(A5)        ;682: 0125
  705.     DC.W    $0006            ;684
  706.     BTST    D0,6(A3)        ;686: 012B0006
  707.     BTST    D0,6(A1,D0.W)        ;68A: 01310006
  708.     BTST    D0,6(A7,D0.W)        ;68E: 01370006
  709.     DC.W    $013D            ;692
  710.     DC.W    $0006            ;694
  711.     BCHG    D0,D3            ;696: 0143
  712.     DC.W    $0006            ;698
  713.     MOVEP.L    6(A1),D0        ;69A: 01490006
  714.     MOVEP.L    6(A7),D0        ;69E: 014F0006
  715.     BCHG    D0,(A5)            ;6A2: 0155
  716.     DC.W    $0006            ;6A4
  717.     BCHG    D0,(A3)+        ;6A6: 015B
  718.     DC.W    $0006            ;6A8
  719.     BCHG    D0,-(A1)        ;6AA: 0161
  720.     DC.W    $0006            ;6AC
  721.     BCHG    D0,-(A7)        ;6AE: 0167
  722.     DC.W    $0006            ;6B0
  723.     BCHG    D0,6(A5)        ;6B2: 016D0006
  724.     BCHG    D0,6(A3,D0.W)        ;6B6: 01730006
  725.     BCHG    D0,EXT_0003        ;6BA: 01790006017F
  726.     DC.W    $0006            ;6C0
  727.     BCLR    D0,D5            ;6C2: 0185
  728.     DC.W    $0006            ;6C4
  729.     MOVEP    D0,6(A3)        ;6C6: 018B0006
  730.     BCLR    D0,(A1)            ;6CA: 0191
  731.     DC.W    $0006            ;6CC
  732.     BCLR    D0,(A7)            ;6CE: 0197
  733.     DC.W    $0006            ;6D0
  734.     BCLR    D0,(A5)+        ;6D2: 019D
  735.     DC.W    $0006            ;6D4
  736.     BCLR    D0,-(A3)        ;6D6: 01A3
  737.     DC.W    $0007            ;6D8
  738.     BCLR    D0,6(A2)        ;6DA: 01AA0006
  739.     BCLR    D0,6(A0,D0.W)        ;6DE: 01B00006
  740.     BCLR    D0,6(A6,D0.W)        ;6E2: 01B60006
  741.     DC.W    $01BC            ;6E6
  742.     DC.W    $0006            ;6E8
  743.     BSET    D0,D2            ;6EA: 01C2
  744.     DC.W    $0006            ;6EC
  745.     MOVEP.L    D0,6(A0)        ;6EE: 01C80006
  746.     MOVEP.L    D0,6(A6)        ;6F2: 01CE0006
  747.     BSET    D0,(A4)            ;6F6: 01D4
  748.     DC.W    $0006            ;6F8
  749.     BSET    D0,(A2)+        ;6FA: 01DA
  750.     DC.W    $0006            ;6FC
  751.     BSET    D0,-(A0)        ;6FE: 01E0
  752.     DC.W    $0006            ;700
  753.     BSET    D0,-(A6)        ;702: 01E6
  754.     DC.W    $0006            ;704
  755.     BSET    D0,6(A4)        ;706: 01EC0006
  756.     BSET    D0,6(A2,D0.W)        ;70A: 01F20006
  757.     BSET    D0,(EXT_0000).W        ;70E: 01F80006
  758.     DC.W    $01FE            ;712
  759.     DC.W    $0006            ;714
  760.     ANDI.B    #$06,D4            ;716: 02040006
  761.     DC.W    $020A            ;71A
  762.     DC.W    $0006            ;71C
  763.     ANDI.B    #$06,(A0)        ;71E: 02100006
  764.     ANDI.B    #$06,(A6)        ;722: 02160006
  765.     ANDI.B    #$06,(A4)+        ;726: 021C0006
  766.     ANDI.B    #$06,-(A2)        ;72A: 02220006
  767.     ANDI.B    #$06,558(A0)        ;72E: 02280006022E
  768.     DC.W    $0006            ;734
  769.     DC.W    $0234            ;736
  770.     DC.W    $0006            ;738
  771.     DC.W    $023A            ;73A
  772.     DC.W    $0006            ;73C
  773.     ANDI    #$0006,D0        ;73E: 02400006
  774.     ANDI    #$0006,D6        ;742: 02460006
  775.     DC.W    $024C            ;746
  776.     DC.W    $0006            ;748
  777.     ANDI    #$0006,(A2)        ;74A: 02520006
  778.     ANDI    #$0006,(A0)+        ;74E: 02580006
  779.     ANDI    #$0006,(A6)+        ;752: 025E0006
  780.     ANDI    #$0006,-(A4)        ;756: 02640006
  781.     ANDI    #$0006,624(A2)        ;75A: 026A00060270
  782.     DC.W    $0006            ;760
  783.     DC.W    $0276            ;762
  784.     DC.W    $0006            ;764
  785.     ANDI    #$0006,SR        ;766: 027C0006
  786.     ANDI.L    #$00060288,D2        ;76A: 028200060288
  787.     DC.W    $0006            ;770
  788.     DC.W    $028E            ;772
  789.     DC.W    $0006            ;774
  790.     ANDI.L    #$0006029A,(A4)        ;776: 02940006029A
  791.     DC.W    $0006            ;77C
  792.     ANDI.L    #$000602A6,-(A0)    ;77E: 02A0000602A6
  793.     DC.W    $0006            ;784
  794.     ANDI.L    #$000602B2,6(A4)    ;786: 02AC000602B20006
  795.     ANDI.L    #$000602BE,(EXT_0000).W    ;78E: 02B8000602BE0006
  796.     DC.W    $02C4            ;796
  797.     DC.W    $0006            ;798
  798.     DC.W    $02CA            ;79A
  799.     DC.W    $0006            ;79C
  800.     DC.W    $02D0            ;79E
  801.     DC.W    $0006            ;7A0
  802.     DC.W    $02D6            ;7A2
  803.     DC.W    $0006            ;7A4
  804.     DC.W    $02DC            ;7A6
  805.     DC.W    $0006            ;7A8
  806.     DC.W    $02E2            ;7AA
  807.     DC.W    $0006            ;7AC
  808.     DC.W    $02E8            ;7AE
  809.     DC.W    $0006            ;7B0
  810.     DC.W    $02EE            ;7B2
  811.     DC.W    $0006            ;7B4
  812.     DC.W    $02F4            ;7B6
  813.     DC.W    $0006            ;7B8
  814.     DC.W    $02FA            ;7BA
  815.     DC.W    $0006            ;7BC
  816.     BTST    D1,D0            ;7BE: 0300
  817.     DC.W    $0000            ;7C0
  818.     BTST    D1,D0            ;7C2: 0300
  819.     DC.W    $0006            ;7C4
  820.     BTST    D1,D6            ;7C6: 0306
  821.     DC.W    $0006            ;7C8
  822.     MOVEP    6(A4),D1        ;7CA: 030C0006
  823.     BTST    D1,(A2)            ;7CE: 0312
  824.     DC.W    $0006            ;7D0
  825.     BTST    D1,(A0)+        ;7D2: 0318
  826.     DC.W    $0006            ;7D4
  827.     BTST    D1,(A6)+        ;7D6: 031E
  828.     DC.W    $0006            ;7D8
  829.     BTST    D1,-(A4)        ;7DA: 0324
  830.     DC.W    $0006            ;7DC
  831.     BTST    D1,6(A2)        ;7DE: 032A0006
  832.     BTST    D1,6(A0,D0.W)        ;7E2: 03300006
  833.     BTST    D1,6(A6,D0.W)        ;7E6: 03360006
  834.     DC.W    $033C            ;7EA
  835.     DC.W    $0006            ;7EC
  836.     BCHG    D1,D2            ;7EE: 0342
  837.     DC.W    $0006            ;7F0
  838.     MOVEP.L    6(A0),D1        ;7F2: 03480006
  839.     MOVEP.L    6(A6),D1        ;7F6: 034E0006
  840.     BCHG    D1,(A4)            ;7FA: 0354
  841.     DC.W    $0006            ;7FC
  842.     BCHG    D1,(A2)+        ;7FE: 035A
  843.     DC.W    $0006            ;800
  844.     BCHG    D1,-(A0)        ;802: 0360
  845.     DC.W    $0006            ;804
  846.     BCHG    D1,-(A6)        ;806: 0366
  847.     DC.W    $0006            ;808
  848.     BCHG    D1,6(A4)        ;80A: 036C0006
  849.     BCHG    D1,6(A2,D0.W)        ;80E: 03720006
  850.     BCHG    D1,(EXT_0000).W        ;812: 03780006
  851.     DC.W    $037E            ;816
  852.     DC.W    $0006            ;818
  853.     BCLR    D1,D4            ;81A: 0384
  854.     DC.W    $0006            ;81C
  855.     MOVEP    D1,6(A2)        ;81E: 038A0006
  856.     BCLR    D1,(A0)            ;822: 0390
  857.     DC.W    $0006            ;824
  858.     BCLR    D1,(A6)            ;826: 0396
  859.     DC.W    $0006            ;828
  860.     BCLR    D1,(A4)+        ;82A: 039C
  861.     DC.W    $0006            ;82C
  862.     BCLR    D1,-(A2)        ;82E: 03A2
  863.     DC.W    $0006            ;830
  864.     BCLR    D1,6(A0)        ;832: 03A80006
  865.     BCLR    D1,6(A6)        ;836: 03AE0006
  866.     BCLR    D1,6(A4,D0.W)        ;83A: 03B40006
  867.     DC.W    $03BA            ;83E
  868.     DC.W    $0006            ;840
  869.     BSET    D1,D0            ;842: 03C0
  870.     DC.W    $0006            ;844
  871.     BSET    D1,D6            ;846: 03C6
  872.     DC.W    $0006            ;848
  873.     MOVEP.L    D1,6(A4)        ;84A: 03CC0006
  874.     BSET    D1,(A2)            ;84E: 03D2
  875.     DC.W    $0006            ;850
  876.     BSET    D1,(A0)+        ;852: 03D8
  877.     DC.W    $0006            ;854
  878.     BSET    D1,(A6)+        ;856: 03DE
  879.     DC.W    $0006            ;858
  880.     BSET    D1,-(A4)        ;85A: 03E4
  881.     DC.W    $0006            ;85C
  882.     BSET    D1,6(A2)        ;85E: 03EA0006
  883.     BSET    D1,6(A0,D0.W)        ;862: 03F00006
  884.     BSET    D1,6(A6,D0.W)        ;866: 03F60006
  885.     DC.W    $03FC            ;86A
  886.     DC.W    $0006            ;86C
  887.     SUBI.B    #$06,D2            ;86E: 04020006
  888.     DC.W    $0408            ;872
  889.     DC.W    $0006            ;874
  890.     DC.W    $040E            ;876
  891.     DC.W    $0006            ;878
  892.     SUBI.B    #$06,(A4)        ;87A: 04140006
  893.     SUBI.B    #$06,(A2)+        ;87E: 041A0006
  894.     SUBI.B    #$06,-(A0)        ;882: 04200006
  895.     SUBI.B    #$06,-(A6)        ;886: 04260006
  896.     SUBI.B    #$06,1074(A4)        ;88A: 042C00060432
  897.     DC.W    $0006            ;890
  898.     SUBI.B    #$06,(EXT_0001).W    ;892: 04380006043E
  899.     DC.W    $0006            ;898
  900.     SUBI    #$0006,D4        ;89A: 04440006
  901.     DC.W    $044A            ;89E
  902.     DC.W    $0006            ;8A0
  903.     SUBI    #$0006,(A0)        ;8A2: 04500006
  904.     SUBI    #$0006,(A6)        ;8A6: 04560006
  905.     SUBI    #$0006,(A4)+        ;8AA: 045C0006
  906.     SUBI    #$0006,-(A2)        ;8AE: 04620006
  907.     SUBI    #$0006,1134(A0)        ;8B2: 04680006046E
  908.     DC.W    $0006            ;8B8
  909.     DC.W    $0474            ;8BA
  910.     DC.W    $0006            ;8BC
  911.     DC.W    $047A            ;8BE
  912.     DC.W    $0006            ;8C0
  913.     SUBI.L    #$00060486,D0        ;8C2: 048000060486
  914.     DC.W    $0006            ;8C8
  915.     DC.W    $048C            ;8CA
  916.     DC.W    $0006            ;8CC
  917.     SUBI.L    #$00060498,(A2)        ;8CE: 049200060498
  918.     DC.W    $0006            ;8D4
  919.     SUBI.L    #$000604A4,(A6)+    ;8D6: 049E000604A4
  920.     DC.W    $0006            ;8DC
  921.     SUBI.L    #$000604B0,6(A2)    ;8DE: 04AA000604B00006
  922.     SUBI.L    #$000604BC,6(A6,D0.W)    ;8E6: 04B6000604BC0006
  923.     DC.W    $04C2            ;8EE
  924.     DC.W    $0006            ;8F0
  925.     DC.W    $04C8            ;8F2
  926.     DC.W    $0006            ;8F4
  927.     DC.W    $04CE            ;8F6
  928.     DC.W    $0006            ;8F8
  929.     DC.W    $04D4            ;8FA
  930.     DC.W    $0006            ;8FC
  931.     DC.W    $04DA            ;8FE
  932.     DC.W    $0006            ;900
  933.     DC.W    $04E0            ;902
  934.     DC.W    $0006            ;904
  935.     DC.W    $04E6            ;906
  936.     DC.W    $0006            ;908
  937.     DC.W    $04EC            ;90A
  938.     DC.W    $0006            ;90C
  939.     DC.W    $04F2            ;90E
  940.     DC.W    $0006            ;910
  941.     DC.W    $04F8            ;912
  942.     DC.W    $0006            ;914
  943.     DC.W    $04FE            ;916
  944.     DC.W    $0006            ;918
  945.     BTST    D2,D4            ;91A: 0504
  946.     DC.W    $0006            ;91C
  947.     MOVEP    6(A2),D2        ;91E: 050A0006
  948.     BTST    D2,(A0)            ;922: 0510
  949.     DC.W    $0006            ;924
  950.     BTST    D2,(A6)            ;926: 0516
  951.     DC.W    $0006            ;928
  952.     BTST    D2,(A4)+        ;92A: 051C
  953.     DC.W    $0006            ;92C
  954.     BTST    D2,-(A2)        ;92E: 0522
  955.     DC.W    $0006            ;930
  956.     BTST    D2,6(A0)        ;932: 05280006
  957.     BTST    D2,6(A6)        ;936: 052E0006
  958.     BTST    D2,6(A4,D0.W)        ;93A: 05340006
  959.     DC.W    $053A            ;93E
  960.     ORI.B    #$00,D7            ;940: 00070000
  961.     END
  962.