;
; +-------------------------------------------------------------------------+
; |   This file has been generated by The Interactive Disassembler (IDA)    |
; |        Copyright (c) 2009 by Hex-Rays, <support@hex-rays.com>           |
; +-------------------------------------------------------------------------+
;
; Input MD5   : F233A9AA186A9CC15E9B9109979AF52B

; File Name   : th04/ZUN.COM:ZUNINIT (-I)
; Format      : MS-DOS COM-file
; Base Address: 0h Range: 100h-575h Loaded length: 475h
; OS type     :  MS DOS
; Application type:  Executable 16bit

		.8086
		.model tiny
		.code
		org 100h

; =============== S U B R O U T I N E =======================================

; Attributes: noreturn thunk

public start
start proc near
		jmp	start_0
start endp


; =============== S U B R O U T I N E =======================================


sub_103 proc far
		cmp	cs:byte_216, 0
		jnz	short locret_114
		mov	cs:byte_216, 1
		call	sub_127

locret_114:
		iret
sub_103 endp


; =============== S U B R O U T I N E =======================================


sub_115 proc far
		cmp	cs:byte_216, 0
		jnz	short locret_126
		mov	cs:byte_216, 2
		call	sub_127

locret_126:
		iret
sub_115 endp


; =============== S U B R O U T I N E =======================================


sub_127 proc near
		pushf
		push	ax
		push	bx
		push	cx
		push	dx
		push	ds
		push	di
		push	es
		mov	ah, 41h
		int	18h
		cmp	cs:byte_216, 2
		jz	short loc_15A
		mov	ax, 650h
		mov	dx, offset aVVtvVVrvsvnvog ; "むやみにＳＴＯＰキー押したりしない$"
		call	sub_1CF
		mov	ax, 6F0h
		mov	dx, offset asc_23A ; "方がいいと思うの。（ゲーム中はね）$"
		call	sub_1CF
		mov	ax, 790h
		mov	dx, offset aBivrvsvnvoglbV ; "（ＳＴＯＰキーで戻れるよ、ねっ）　$"
		call	sub_1CF
		mov	bl, 1
		jmp	short loc_177
; ---------------------------------------------------------------------------

loc_15A:
		mov	ax, 650h
		mov	dx, offset aVV	; "なんでＣＯＰＹキー押したりしてるの$"
		call	sub_1CF
		mov	ax, 6F0h
		mov	dx, offset aVivBBbvVVmbBbb ; "かな〜。ふしぎ〜。　　（もう一度、$"
		call	sub_1CF
		mov	ax, 790h
		mov	dx, offset aVbvnvovxglbIqv ; "ＣＯＰＹキー押せば戻れるよ、ねっ）$"
		call	sub_1CF
		mov	bl, 2

loc_177:
		mov	ah, 4
		mov	al, 0Ch
		int	18h
		test	ah, bl
		jnz	short loc_177

loc_181:
		mov	ah, 4
		mov	al, 0Ch
		int	18h
		test	ah, bl
		jz	short loc_181
		mov	ah, 40h
		int	18h
		mov	ax, 650h
		mov	dx, offset aB@b@b@b@b@b@b@ ; "　　　　　　　　　　　　　　　　　$"
		call	sub_1CF
		mov	ax, 6F0h
		mov	dx, offset aB@b@b@b@b@b@b@ ; "　　　　　　　　　　　　　　　　　$"
		call	sub_1CF
		mov	ax, 790h
		mov	dx, offset aB@b@b@b@b@b@b@ ; "　　　　　　　　　　　　　　　　　$"
		call	sub_1CF
		mov	ah, 6
		int	18h
		pop	es
		pop	di
		pop	ds
		pop	dx
		pop	cx
		pop	bx
		pop	ax
		popf
		mov	cs:byte_216, 0
		retn
sub_127 endp


; =============== S U B R O U T I N E =======================================


sub_1BD proc near
		shl	ah, 1
		cmp	al, 9Fh
		jnb	short loc_1C8
		cmp	al, 80h
		adc	ax, 0FEDFh

loc_1C8:
		sbb	ax, 0DFFEh
		and	ax, 7F7Fh
		retn
sub_1BD endp


; =============== S U B R O U T I N E =======================================


sub_1CF proc near
		mov	bx, dx
		mov	di, 0A000h
		mov	es, di
		assume es:nothing
		mov	di, ax
		mov	dx, ax
		xor	ax, ax
		xor	cx, cx

loc_1DE:
		mov	ax, cs:[bx]
		cmp	al, 24h
		jz	short loc_1F9
		xchg	ah, al
		call	sub_1BD
		xchg	ah, al
		sub	al, 20h
		stosw
		or	ah, 80h
		stosw
		inc	bx
		inc	bx
		inc	cx
		inc	cx
		jmp	short loc_1DE
; ---------------------------------------------------------------------------

loc_1F9:
		mov	di, 0A200h
		mov	es, di
		assume es:nothing
		mov	di, dx
		mov	ax, 41h

loc_203:
		dec	cx
		stosw
		jz	short locret_209
		jmp	short loc_203
; ---------------------------------------------------------------------------

locret_209:
		retn
sub_1CF endp

; ---------------------------------------------------------------------------
ZUNP	dw 'ZU', 'NP'
dword_20E	dd 0
dword_212	dd 0
byte_216	db 0
aVVtvVVrvsvnvog	db 'むやみにＳＴＯＰキー押したりしない$'
asc_23A	db '方がいいと思うの。（ゲーム中はね）$'
aBivrvsvnvoglbV	db '（ＳＴＯＰキーで戻れるよ、ねっ）　$'
aB@b@b@b@b@b@b@	db '　　　　　　　　　　　　　　　　　$'
aVV	db 'なんでＣＯＰＹキー押したりしてるの$'
aVivBBbvVVmbBbb	db 'かな〜。ふしぎ〜。　　（もう一度、$'
aVbvnvovxglbIqv	db 'ＣＯＰＹキー押せば戻れるよ、ねっ）$'

; =============== S U B R O U T I N E =======================================


sub_30C proc near
		mov	dx, offset aIntvectorSetPr ; "\r\n\r\nINTvector set program  zuninit.com "...
		mov	ah, 9
		int	21h		; DOS - PRINT STRING
					; DS:DX -> string terminated by "$"
		mov	ax, 3506h
		int	21h		; DOS - 2+ - GET INTERRUPT VECTOR
					; AL = interrupt number
					; Return: ES:BX = value of interrupt vector
		cmp	es:ZUNP+0, 'ZU'
		jnz	short loc_32F
		cmp	es:ZUNP+2, 'NP'
		jnz	short loc_32F
		mov	ax, 1
		jmp	short locret_332
; ---------------------------------------------------------------------------

loc_32F:
		mov	ax, 0

locret_332:
		retn
sub_30C endp


; =============== S U B R O U T I N E =======================================

start_0 proc near
		mov	si, 81h

loc_336:
		lodsb
		cmp	al, 0Dh
		jz	short loc_347
		cmp	al, '/'
		jz	short loc_351
		cmp	al, '-'
		jz	short loc_351
		cmp	al, ' '
		jbe	short loc_336

loc_347:
		call	sub_30C
		test	ax, ax
		jz	short loc_36C
		jmp	loc_3ED
; ---------------------------------------------------------------------------

loc_351:
		lodsb
		cmp	al, ' '
		ja	short loc_359
		jmp	loc_3FF
; ---------------------------------------------------------------------------

loc_359:
		and	al, 0DFh
		cmp	al, 'R'
		jz	short loc_362
		jmp	loc_3FF
; ---------------------------------------------------------------------------

loc_362:
		call	sub_30C
		test	ax, ax
		jnz	short loc_3B0
		jmp	loc_3F6
; ---------------------------------------------------------------------------

loc_36C:
		mov	ah, 35h
		mov	al, 6
		int	21h		; DOS - 2+ - GET INTERRUPT VECTOR
					; AL = interrupt number
					; Return: ES:BX = value of interrupt vector
		mov	word ptr cs:dword_212+0, bx
		mov	word ptr cs:dword_212+2, es
		mov	dx, offset sub_103
		mov	ax, 2506h
		int	21h		; DOS - SET INTERRUPT VECTOR
					; AL = interrupt number
					; DS:DX = new vector to be used for specified interrupt
		mov	ah, 35h
		mov	al, 5
		int	21h		; DOS - 2+ - GET INTERRUPT VECTOR
					; AL = interrupt number
					; Return: ES:BX = value of interrupt vector
		mov	word ptr cs:dword_20E+0, bx
		mov	word ptr cs:dword_20E+2, es
		mov	dx, offset sub_115
		mov	ax, 2505h
		int	21h		; DOS - SET INTERRUPT VECTOR
					; AL = interrupt number
					; DS:DX = new vector to be used for specified interrupt
		mov	dx, offset aVVxvVVGbgvgkvi ; "ちょこっとメモリかりるね\r\n\r\n$"
		mov	ah, 9
		int	21h		; DOS - PRINT STRING
					; DS:DX -> string terminated by "$"
		mov	dx, offset sub_30C
		mov	cl, 4
		shr	dx, cl
		inc	dx
		mov	ax, 3100h
		int	21h		; DOS - DOS 2+ - TERMINATE BUT STAY RESIDENT
					; AL = exit code, DX = program size, in paragraphs
; ---------------------------------------------------------------------------

loc_3B0:
		push	ds
		mov	dx, word ptr es:dword_212+0
		mov	ds, word ptr es:dword_212+2
		mov	ax, 2506h
		int	21h		; DOS - SET INTERRUPT VECTOR
					; AL = interrupt number
					; DS:DX = new vector to be used for specified interrupt
		mov	dx, word ptr es:dword_20E+0
		mov	ds, word ptr es:dword_20E+2
		mov	ax, 2505h
		int	21h		; DOS - SET INTERRUPT VECTOR
					; AL = interrupt number
					; DS:DX = new vector to be used for specified interrupt
		pop	ds
		push	es
		mov	es, word ptr es:2Ch
		assume es:nothing
		mov	ah, 49h
		int	21h		; DOS - 2+ - FREE MEMORY
					; ES = segment address of area to be freed
		pop	es
		mov	ah, 49h
		int	21h		; DOS - 2+ - FREE MEMORY
					; ES = segment address of area to be freed
		mov	dx, offset aGbgvgkvivcpVjv ; "メモリから消えてなくなっちゃったけど、?"...
		jnb	short loc_3E7
		mov	dx, offset aGbgvgki ; "メモリ解放エラーです。 : zuninit.com\r\n$"...

loc_3E7:
		mov	ah, 9
		int	21h		; DOS - PRINT STRING
					; DS:DX -> string terminated by "$"
		jmp	short loc_408
; ---------------------------------------------------------------------------

loc_3ED:
		mov	dx, offset aVVVPatuvVVsv ; "すでに常駐してるの\r\n\r\n$"
		mov	ah, 9
		int	21h		; DOS - PRINT STRING
					; DS:DX -> string terminated by "$"
		jmp	short loc_408
; ---------------------------------------------------------------------------

loc_3F6:
		mov	dx, offset aVVBapatuvVVVvv ; "まだ、常駐してないわぁ\r\n\r\n$"
		mov	ah, 9
		int	21h		; DOS - PRINT STRING
					; DS:DX -> string terminated by "$"
		jmp	short loc_408
; ---------------------------------------------------------------------------

loc_3FF:
		mov	dx, offset aICbxscVGigvgvg ; "意味不明なオプションよぉ（オプションは "...
		mov	ah, 9
		int	21h		; DOS - PRINT STRING
					; DS:DX -> string terminated by "$"
		jmp	short $+2

loc_408:
		mov	ax, 4C00h
		int	21h		; DOS - 2+ - QUIT WITH EXIT CODE (EXIT)
start_0 endp			; AL = exit code

; ---------------------------------------------------------------------------
aIntvectorSetPr	db 0Dh,0Ah
		db 0Dh,0Ah
		db 'INTvector set program  zuninit.com Version1.01              (c)zun 1998',0Dh,0Ah,'$'
aVVxvVVGbgvgkvi	db 'ちょこっとメモリかりるね',0Dh,0Ah
		db 0Dh,0Ah,'$'
aVVVPatuvVVsv	db 'すでに常駐してるの',0Dh,0Ah
		db 0Dh,0Ah,'$'
aGbgvgkvivcpVjv	db 'メモリから消えてなくなっちゃったけど、きっとまたあえるよ、ねっ',0Dh,0Ah
		db 0Dh,0Ah,'$'
aVVBapatuvVVVvv	db 'まだ、常駐してないわぁ',0Dh,0Ah
		db 0Dh,0Ah,'$'
aICbxscVGigvgvg	db '意味不明なオプションよぉ（オプションは -Rのみ）',0Dh,0Ah,'$'

aGbgvgki	db 'メモリ解放エラーです。 : zuninit.com',0Dh,0Ah
		db '$メインメモリは５６０Ｋ以上空けといて下さいね',0Dh,0Ah,'$'

		end start