IPL的改良

30_day/Makefile

@@ -14,7 +14,7 @@ default :
 
 #文件生成规则
 
-haribote.img : haribote/ipl20.bin haribote/haribote.sys Makefile \
+haribote.img : haribote/ipl10.bin haribote/haribote.sys Makefile \
 		a/a.hrb hello3/hello3.hrb hello4/hello4.hrb hello5/hello5.hrb \
 		winhelo/winhelo.hrb winhelo2/winhelo2.hrb winhelo3/winhelo3.hrb \
 		star1/star1.hrb stars/stars.hrb stars2/stars2.hrb \
@@ -23,9 +23,9 @@ haribote.img : haribote/ipl20.bin haribote/haribote.sys Makefile \
 		sosu/sosu.hrb sosu2/sosu2.hrb sosu3/sosu3.hrb \
 		type/type.hrb iroha/iroha.hrb chklang/chklang.hrb \
 		notrec/notrec.hrb bball/bball.hrb invader/invader.hrb \
-		calc/calc.hrb tview/tview.hrb
+		calc/calc.hrb tview/tview.hrb mmlplay/mmlplay.hrb gview/gview.hrb
 	$(EDIMG)   imgin:../z_tools/fdimg0at.tek \
-		wbinimg src:haribote/ipl20.bin len:512 from:0 to:0 \
+		wbinimg src:haribote/ipl10.bin len:512 from:0 to:0 \
 		copy from:haribote/haribote.sys to:@: \
 		copy from:haribote/jp.nas to:@: \
 		copy from:make.bat to:@: \
@@ -57,6 +57,14 @@ haribote.img : haribote/ipl20.bin haribote/haribote.sys Makefile \
 		copy from:invader/invader.hrb to:@: \
 		copy from:calc/calc.hrb to:@: \
 		copy from:tview/tview.hrb to:@: \
+		copy from:mmlplay/mmlplay.hrb to:@: \
+		copy from:mmldata/kirakira.mml to:@: \
+		copy from:mmldata/fujisan.mml to:@: \
+		copy from:mmldata/daigo.mml to:@: \
+		copy from:mmldata/daiku.mml to:@: \
+		copy from:gview/gview.hrb to:@: \
+		copy from:pictdata/fujisan.jpg to:@: \
+		copy from:pictdata/night.bmp to:@: \
 		copy from:nihongo/nihongo.fnt to:@: \
 		imgout:haribote.img
 
@@ -102,6 +110,8 @@ full :
 	$(MAKE) -C invader
 	$(MAKE) -C calc
 	$(MAKE) -C tview
+	$(MAKE) -C mmlplay
+	$(MAKE) -C gview
 	$(MAKE) haribote.img
 
 run_full :
@@ -155,6 +165,8 @@ clean_full :
 	$(MAKE) -C invader		clean
 	$(MAKE) -C calc			clean
 	$(MAKE) -C tview		clean
+	$(MAKE) -C mmlplay		clean
+	$(MAKE) -C gview		clean
 
 src_only_full :
 	$(MAKE) -C haribote		src_only
@@ -187,6 +199,8 @@ src_only_full :
 	$(MAKE) -C invader		src_only
 	$(MAKE) -C calc			src_only
 	$(MAKE) -C tview		src_only
+	$(MAKE) -C mmlplay		src_only
+	$(MAKE) -C gview		src_only
 	-$(DEL) haribote.img
 
 refresh :

30_day/a/Makefile

@@ -3,3 +3,6 @@ STACK    = 1k
 MALLOC   = 0k
 
 include ../app_make.txt
+
+$(APP).hrb : $(APP).org Makefile
+	$(COPY) $(APP).org $(APP).hrb

30_day/app_make.txt

@@ -35,10 +35,10 @@ $(STDAPP).bim : $(APP).obj $(STDLIBPATH)stdlib.lib Makefile ../app_make.txt
 	$(OBJ2BIM) @$(RULEFILE) out:$(APP).bim map:$(APP).map stack:$(STACK) \
 		$(APP).obj $(STDLIBPATH)stdlib.lib
 
-haribote.img : ../haribote/ipl20.bin ../haribote/haribote.sys $(APP).hrb \
+haribote.img : ../haribote/ipl10.bin ../haribote/haribote.sys $(APP).hrb \
 		Makefile ../app_make.txt
 	$(EDIMG)   imgin:../../z_tools/fdimg0at.tek \
-		wbinimg src:../haribote/ipl20.bin len:512 from:0 to:0 \
+		wbinimg src:../haribote/ipl10.bin len:512 from:0 to:0 \
 		copy from:../haribote/haribote.sys to:@: \
 		copy from:$(APP).hrb to:@: \
 		copy from:../nihongo/nihongo.fnt to:@: \

30_day/gview/!cons_9x.bat

@@ -0,0 +1 @@
+command

30_day/gview/!cons_nt.bat

@@ -0,0 +1 @@
+cmd.exe

30_day/gview/Makefile

@@ -0,0 +1,90 @@
+APP      = gview
+STACK    = 4480k
+MALLOC   = 0k
+
+TOOLPATH = ../../z_tools/
+INCPATH  = ../../z_tools/haribote/
+APILIBPATH   = ../apilib/
+HARIBOTEPATH = ../haribote/
+
+MAKE     = $(TOOLPATH)make.exe -r
+NASK     = $(TOOLPATH)nask.exe
+CC1      = $(TOOLPATH)cc1.exe -I$(INCPATH) -I../ -Os -Wall -quiet
+GAS2NASK = $(TOOLPATH)gas2nask.exe -a
+OBJ2BIM  = $(TOOLPATH)obj2bim.exe
+MAKEFONT = $(TOOLPATH)makefont.exe
+BIN2OBJ  = $(TOOLPATH)bin2obj.exe
+BIM2HRB  = $(TOOLPATH)bim2hrb.exe
+BIM2BIN  = $(TOOLPATH)bim2bin.exe
+RULEFILE = ../haribote.rul
+EDIMG    = $(TOOLPATH)edimg.exe
+IMGTOL   = $(TOOLPATH)imgtol.com
+GOLIB    = $(TOOLPATH)golib00.exe 
+COPY     = copy
+DEL      = del
+
+#默认动作
+
+default :
+	$(MAKE) $(APP).hrb
+
+#文件生成规则
+
+$(APP).bim : $(APP).obj bmp.obj jpeg.obj $(APILIBPATH)apilib.lib Makefile
+	$(OBJ2BIM) @$(RULEFILE) out:$(APP).bim map:$(APP).map stack:$(STACK) \
+		$(APP).obj jpeg.obj bmp.obj $(APILIBPATH)apilib.lib
+
+haribote.img : ../haribote/ipl20.bin ../haribote/haribote.sys $(APP).hrb \
+		Makefile
+	$(EDIMG)   imgin:../../z_tools/fdimg0at.tek \
+		wbinimg src:../haribote/ipl20.bin len:512 from:0 to:0 \
+		copy from:../haribote/haribote.sys to:@: \
+		copy from:$(APP).hrb to:@: \
+		copy from:../nihongo/nihongo.fnt to:@: \
+		imgout:haribote.img
+
+# 其他指令
+
+%.gas : %.c ../apilib.h Makefile
+	$(CC1) -o $*.gas $*.c
+
+%.nas : %.gas Makefile
+	$(GAS2NASK) $*.gas $*.nas
+
+%.obj : %.nas Makefile
+	$(NASK) $*.nas $*.obj $*.lst
+
+%.org : %.bim Makefile
+	$(BIM2HRB) $*.bim $*.org $(MALLOC)
+
+%.hrb : %.org Makefile
+	$(BIM2BIN) -osacmp in:$*.org out:$*.hrb
+
+# 运行程序
+
+run :
+	$(MAKE) haribote.img
+	$(COPY) haribote.img ..\..\z_tools\qemu\fdimage0.bin
+	$(MAKE) -C ../../z_tools/qemu
+
+full :
+	$(MAKE) -C $(APILIBPATH)
+	$(MAKE) $(APP).hrb
+
+run_full :
+	$(MAKE) -C $(APILIBPATH)
+	$(MAKE) -C ../haribote
+	$(MAKE) run
+
+clean :
+	-$(DEL) *.lst
+	-$(DEL) gview.obj
+	-$(DEL) jpeg.obj
+	-$(DEL) *.map
+	-$(DEL) *.bim
+	-$(DEL) *.org
+	-$(DEL) haribote.img
+
+src_only :
+	$(MAKE) clean
+	-$(DEL) $(APP).hrb

30_day/gview/bmp.nasm

@@ -0,0 +1,646 @@
+; BMP decode routine by I.Tak. 2003
+
+section .text align=1
+[bits 32]
+;BMP File Structure (I can't understand MS.)
+
+	struc BMP
+		;FILE HEADER
+.fType:		resw 1	;BM
+.fSize:		resd 1	;whole file size
+		resd 1	;reserved
+.fOffBits:	resd 1	;offset from file top to image
+		;INFO HEADER
+.iSize:		resd 1	;INFO HEADER size
+.iWidth:	resd 1	;Image Width in pixels
+.iHeight:	resd 1	;Image Height in pixels
+.iPlanes:	resw 1	;must be 1
+.iBitCount:	resw 1	;BitPerPixel 1, 4, 8, 24 (and 15,16 for new OS/2 ?)
+.iCompression:	resd 1	;Compress Type. 0 for none, then SizeImage=0
+.iSizeImage:	resd 1	;Image Size(compressed)
+.iXPPM:		resd 1	;X Pixel Per Meter
+.iYPPM:		resd 1
+.iClrUsed:	resd 1	;Number of used ColorQuad (0 for whole Quad)
+.iClrImportant:	resd 1	;Number of Important ColorQuad.
+	endstruc
+
+	struc BMPOS2
+		;FILE HEADER
+.fType:		resw 1	;BM
+.fSize:		resd 1	;whole file size
+		resd 1	;reserved
+.fOffBits:	resd 1	;offset from file top to image
+		;CORE HEADER
+.iSize:		resd 1	;CORE HEADER size
+.iWidth:	resw 1	;Image Width in pixels
+.iHeight:	resw 1	;Image Height in pixels
+.iPlanes:	resw 1	;must be 1
+.iBitCount:	resw 1	;BitPerPixel 1, 4, 8, 24 (and 15,16 for new OS/2 ?)
+	endstruc
+
+; B/W bmp can also have palettes. The first for 0, second for 1.
+
+	struc CQuad
+.b:	resb 1
+.g:	resb 1
+.r:	resb 1
+	resb 1	;reserved
+	endstruc
+
+
+%if 0
+int info_BMP(struct DLL_STRPICENV *env, int *info, int size, UCHAR *fp);
+/* 成功したら1 (非0?), 失敗したら0 */
+int decode0_BMP(struct DLL_STRPICENV *env, int size, UCHAR *fp,
+                int b_type, UCHAR *buf, int skip);
+/* エラーコードを返す。とりあえず非0にしてるだけ */
+envは64KBのワークエリアである。先頭8dwは返り値用になっている。
+揮発性らしく, インスタンス変数的には使えないようだ。JPEG_initで
+base_imgを作るのはdecodeのときだけでいいと思う。
+%endif
+
+[absolute 0]	;naskなら[section .bss] org 0 かな win32だからダメか
+bmpinfo:
+.regs:		resd 4
+.reteip:	resd 1
+.env:		resd 1
+.info:		resd 1
+.size:		resd 1
+.module:	resd 1
+[absolute 0]
+info:
+.type:		resd 1	;1 for BMP, 2 for JPEG
+		resd 1	;0
+.width:		resd 1
+.height:	resd 1
+[section .text]
+[global  _info_BMP]
+_info_BMP:
+	push ebx
+	push ebp
+	push esi
+	push edi
+	mov esi, [esp+bmpinfo.module]
+	mov eax, [esp+bmpinfo.size]
+	call bmpHeader
+	test edi, edi
+	jz .ret
+	mov esi, [esp+bmpinfo.info]
+	mov [esi+info.width], eax
+	mov [esi+info.height], ecx
+	mov [esi+info.type], edi	;=1
+	dec edi
+	mov [esi+info.type+4], edi	;=0
+	inc edi
+.ret:	mov eax, edi
+	pop edi
+	pop esi
+	pop ebp
+	pop ebx
+	ret
+
+;in: esi=module, eax=size
+;ret:eax=width, ecx=hegiht, edx=paletteSize, ebx=palette
+;    ebp=bpp, esi=endOfImage, edi=successFlag
+bmpHeader:
+	lea edx, [esi+eax]		;moduleEnd
+	xor edi, edi
+	push edx
+	xor edx, edx
+
+	cmp eax, byte BMP.iSize+4
+	jbe ..@ret			;中継してしまう
+	cmp word[esi],'BM'
+	je .notMAC
+	sub esi, byte -128
+	add eax, byte -128
+	pop ebx
+	push eax
+	cmp eax, byte BMP.iSize+4
+..@ret:	jbe .ret
+	cmp word[esi], 'BM'
+	jne .ret
+.notMAC:
+	;;MS,OS/2 フォーマット確認
+	mov ecx, [esi +BMP.iSize]
+	cmp ecx, byte 12			;OS/2 format.
+	jne .MS
+	  cmp eax, byte BMPOS2_size
+	  jbe .ret				;coreヘッダなし
+	  lea ebx, [esi+ecx+14]			;palette
+	  movzx eax, word[esi+BMPOS2.iWidth]	;width
+	  movzx ecx, word[esi+BMPOS2.iHeight]	;height
+	  movzx ebp, word[esi+BMPOS2.iBitCount]	;bpp
+	  mov dl, 3				;paletteSize
+	jmp short .endif
+.MS:	  cmp eax, byte BMP_size
+	  jbe .ret				;infoヘッダなし
+	  lea ebx, [esi+ecx+14]
+	  sub ecx,byte 40
+	  jne .ret				;unknownFormat
+	  cmp ecx, [esi+BMP.iCompression]
+	  jne .ret				;Compressed.
+	  mov   eax, [esi+BMP.iWidth]		;width
+	  mov   ecx, [esi+BMP.iHeight]		;height
+	  movzx ebp, word[esi +BMP.iBitCount]	;bpp
+	  mov dl, 4				;paletteSize
+.endif:
+	add esi, [esi +BMP.fOffBits]
+
+	;sizeが小さい場合heightを削ってで<E381A6> 
+	;読めると答えるべきだろう。今はエラー
+	push edx
+	push eax
+	mul ebp				;eax=width*bpp
+	add eax, byte 7
+	shr eax, 3			;lineSizeWithoutPudding
+	mov edx, eax
+	add eax, byte 3			;size<1GBを仮定してedxを無<E38292> 
+	and al, -4			;lineSizeWithPudding
+	sub edx, eax			;-puddingSize
+	push edx
+	mul ecx
+	pop edx
+	add esi, eax
+	add esi, edx			;最終行の最後にはpuddingがないと見るべき
+	cmp esi, [esp+8]		;endOfModule
+	pop eax
+	ja .ret2
+	sub esi, edx			;esi=endOfImage
+	inc edi				;succeeded!
+.ret2:	pop edx
+.ret:	add esp, byte 4
+	ret
+
+;***************************************************************
+; 小ささ優先で作っているが, 速さ優先で作った昔のよりいいかも。
+; 品質最低の高速モードのみ作ってい<E381A6> 
+
+[absolute 0]
+decode:
+.regs:		resd 4
+.reteip:	resd 1
+.env:		resd 1
+.size:		resd 1
+.module:	resd 1
+.outputType:	resd 1
+.dest:		resd 1
+.skip:		resd 1
+[section .text]
+[global _decode0_BMP]
+_decode0_BMP:
+	push ebx
+	push ebp
+	push esi
+	push edi
+	mov esi, [esp+decode.module]
+	mov eax, [esp+decode.size]
+	call bmpHeader
+	;ret:eax=width, ecx=hegiht, edx=paletteSize, ebx=palette
+	;    ebp=bpp, esi=endOfImage, edi=successFlag
+	test edi,edi
+	jz .error
+	mov edi, [esp+decode.dest]
+	push dword[esp+decode.outputType]
+	push dword[esp+4+decode.skip]
+	push ecx			;height
+	push eax
+	push edx
+	mul ebp
+	add eax, byte 31
+	shr eax, 3
+	and al, -4
+	push eax
+	mov edx, ebp
+	mov ebp, esp
+	call bmp2beta			;ecx!=0 for error
+	add esp, byte bb.size
+	mov eax, ecx
+	test ecx, ecx
+	jz .ret
+.error:	push byte 1
+	pop eax
+.ret:	pop edi
+	pop esi
+	pop ebp
+	pop ebx
+	ret
+
+[absolute -4*2]
+bb:
+.col0:		resd 1	;bpp1で使う
+.reteip:	resd 1
+.sw:		resd 1	;byte
+.paletteSize:	resd 1	;byte
+.w:		resd 1	;pixel
+.h:		resd 1
+.s:		resd 1
+.t:		resd 1
+.size: equ $-$$
+[section .text]
+;eax=?, ecx=height, edx=bpp, ebx=palette
+;ebp=bb, esi=endOfImage, edi=dest
+bmp2beta:
+	mov al, [ebp+bb.t]
+	and al, 0x7f
+	cmp al, 2
+	je near buf16
+	cmp al, 4
+	je buf32
+	mov ecx, esp		;!=0
+	ret
+;===============================================================
+;	Buffer mode 4
+;===============================================================
+buf32:
+	dec edx
+	je near .bpp1
+	sub edx, byte 4-1
+	je .bpp4
+	sub edx, byte 8-4
+	je .bpp8
+	sub edx, byte 24-8
+	je .bpp24
+	mov ecx, esp		;!=0
+	ret
+;---------------------------------------------------
+;	24bpp BMP to 4byte bufer
+;---------------------------------------------------
+.bpp24:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+	;bb.w=width(pixel), bb.s=skipByte, bb.h=height
+	;bb.t=outputType, bb.sw=sourceWidthByte
+
+	.do24.1:
+	  sub esi, [ebp+bb.sw]	;esi=startOfLine
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do24.2:
+	    mov al, [esi]
+	     mov [edi+3], dl
+	    mov [edi], al
+	     mov al, [esi+1]
+	    mov [edi+1], al
+	     mov al, [esi+2]
+	    mov [edi+2], al
+	     add esi, byte 3
+	    add edi, byte 4
+	     dec ecx
+	  jnz .do24.2
+	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do24.1
+	ret
+
+;---------------------------------------------------
+;	8bpp BMP to 4byte buffer
+;---------------------------------------------------
+.bpp8:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+
+	;pallete変換
+	mov dl, 255
+	mov eax, [ebp+bb.paletteSize]
+	sub ebx, eax
+	shl eax, 8
+	add ebx, eax		;ebx += paletteSize*255
+	.do8.1:
+	  mov eax, [ebx]
+	  sub ebx, [ebp+bb.paletteSize]
+	  and eax, 0x00ffffff
+	  dec edx
+	  push eax
+	jns .do8.1
+
+	.do8.2:
+	  sub esi, [ebp+bb.sw]	;esi=firstLineStart
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do8.3:
+	    xor eax, eax
+	     add edi, byte 4
+	    mov al, [esi]
+	     inc esi
+	    ;AGI stole
+	    mov eax, [esp+eax*4+8]
+	     dec ecx
+	    mov [edi-4], eax
+	  jnz .do8.3
+	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do8.2
+	add esp, 256*4		;palette
+	ret
+
+;---------------------------------------------------
+;	4bpp BMP to 4byte buffer
+;---------------------------------------------------
+.bpp4:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+
+	;pallete変換
+	mov dl, 16
+	mov eax, [ebp+bb.paletteSize]
+	sub ebx, eax
+	shl eax, 4
+	add ebx, eax			;ebx+=eax*15
+	.do4.1
+	  mov eax, [ebx]
+	  sub ebx, [ebp+bb.paletteSize]
+	  and eax, 0x00ffffff
+	  dec edx
+	  push eax
+	jnz .do4.1
+
+	.do4.2:
+	  sub esi, [ebp+bb.sw]	;esi=firstLineStart
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do4.3:
+	    xor edx, edx
+	     mov al, [esi]
+	    mov dl, al
+	     inc esi
+	    shr dl, 4
+	     and eax, byte 15
+	    add edi, byte 4
+	     dec ecx
+	    mov edx, [esp+edx*4+8]
+	     mov eax, [esp+eax*4+8]
+	    mov [edi-4], edx
+	     jz .wend
+	    mov [edi], eax
+	     add edi, byte 4
+	    dec ecx
+	  jnz .do4.3
+.wend:	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do4.2
+	add esp, 16*4		;palette
+	ret
+
+;---------------------------------------------------
+;	1bpp BMP to 4byte buffer
+;---------------------------------------------------
+.bpp1:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+
+	;pallete変換
+	mov eax, [ebx]
+	add ebx, [ebp+bb.paletteSize]
+	and eax, 0x00ffffff
+	mov ebx, [ebx]
+	and ebx, 0x00ffffff
+	xor ebx, eax
+	;push ebx
+	push eax
+
+	.do1.1:
+	  sub esi, [ebp+bb.sw]	;esi=firstLineStart
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do1.2:
+	    mov dl, [esi]
+	     inc esi
+	    push esi
+	     mov esi, 8
+	    .do1.3:
+	      add edi, byte 4
+	       add dl, dl
+	      sbb eax, eax
+	      and eax, ebx
+	      xor eax, [ebp+bb.col0]
+	       dec ecx
+	      mov [edi-4], eax
+	       jz .wend1bpp
+	      dec esi
+	    jnz .do1.3
+	    pop esi
+	  jmp short .do1.2
+.wend1bpp:pop ecx
+	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do1.1
+	pop eax
+	ret
+
+;===============================================
+;	Buffer mode 2byte
+;===============================================
+buf16:
+	dec edx
+	je near .bpp1
+	sub edx, byte 4-1
+	je near .bpp4
+	sub edx, byte 8-4
+	je .bpp8
+	sub edx, byte 24-8
+	je .bpp24
+	mov ecx, esp
+	ret
+;---------------------------------------------------
+;	24bpp BMP to 2byte bufer
+;---------------------------------------------------
+.bpp24:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+
+	.do24.1:
+	  sub esi, [ebp+bb.sw]	;esi=startOfLine
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do24.2:
+	    mov al, [esi+2]
+	    shl eax, 16
+	    mov ax, [esi]
+	     add esi, byte 3
+	    ;減色処理 eax=24bitColor, edx=work, ecx=counter, ebx=work
+	    ;川合さんの趣味で没ったルーチンを持ってくるもよし(ぉ
+	    ;誤差拡散ルーチンを持ってくるもよし
+	    shr ah, 2		;???????? RRRRRrrr 00GGGGGG BBBBBbbb 
+	     inc edi
+	    shr eax, 3		;000????? ???RRRRR rrr00GGG GGGBBBBB
+	    shl ax, 5		;000????? ???RRRRR GGGGGGBB BBB00000
+	     inc edi
+	    shr eax, 5		;00000000 ???????? RRRRRGGG GGGBBBBB
+	     dec ecx
+	    mov [edi-2], ax
+	  jnz .do24.2
+	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do24.1
+	ret
+
+;---------------------------------------------------
+;	8bpp BMP to 2byte buffer
+;---------------------------------------------------
+.bpp8:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+
+	;pallete変換
+	mov dl, 255
+	mov eax, [ebp+bb.paletteSize]
+	sub ebx, eax
+	shl eax, 8
+	add ebx, eax		;ebx += paletteSize*255
+	.do8.1:
+	  mov eax, [ebx]
+	  sub ebx, [ebp+bb.paletteSize]
+	  call .paletteConv
+	  dec edx
+	  push eax
+	jns .do8.1
+
+	.do8.2:
+	  sub esi, [ebp+bb.sw]	;esi=firstLineStart
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do8.3:
+	    xor eax, eax
+	     add edi, byte 2
+	    mov al, [esi]
+	     inc esi
+	    ;AGI stole
+	    mov eax, [esp+eax*4+8]
+	     dec ecx
+	    mov [edi-2], ax
+	  jnz .do8.3
+	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do8.2
+	add esp, 256*4		;palette
+	ret
+
+;---------------------------------------------------
+;	4bpp BMP to 2byte buffer
+;---------------------------------------------------
+.bpp4:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+
+	;pallete変換
+	mov dl, 16
+	mov eax, [ebp+bb.paletteSize]
+	sub ebx, eax
+	shl eax, 4
+	add ebx, eax			;ebx+=eax*15
+	.do4.1:
+	  mov eax, [ebx]
+	  sub ebx, [ebp+bb.paletteSize]
+	  call .paletteConv
+	  dec edx
+	  push eax
+	jnz .do4.1
+
+	.do4.2:
+	  sub esi, [ebp+bb.sw]	;esi=firstLineStart
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do4.3:
+	    xor edx, edx
+	     mov al, [esi]
+	    mov dl, al
+	     inc esi
+	    shr dl, 4
+	     and eax, byte 15
+	    add edi, byte 2
+	     dec ecx
+	    mov edx, [esp+edx*4+8]
+	     mov eax, [esp+eax*4+8]
+	    mov [edi-2], dx
+	     jz .wend
+	    mov [edi], ax
+	     add edi, byte 2
+	    dec ecx
+	  jnz .do4.3
+.wend:	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do4.2
+	add esp, 16*4		;palette
+	ret
+
+;---------------------------------------------------
+;	1bpp BMP to 2byte buffer
+;---------------------------------------------------
+.bpp1:
+	;ecx=height, edx=0, ebx=palette
+	;esi=endOfImage, edi=destinationBuffer
+
+	;pallete変換
+	mov eax, [ebx]
+	add ebx, [ebp+bb.paletteSize]
+	call .paletteConv
+	push eax
+	mov eax, [ebx]
+	call .paletteConv
+	pop ebx
+	xchg eax, ebx
+	xor ebx, eax
+	push eax
+
+	.do1.1:
+	  sub esi, [ebp+bb.sw]	;esi=firstLineStart
+	  push ecx
+	  push esi
+	  mov ecx, [ebp+bb.w]
+	  .do1.2:
+	    mov dl, [esi]
+	     inc esi
+	    push esi
+	     mov esi, 8
+	    .do1.3:
+	      add dl, dl
+	       inc edi
+	      sbb eax, eax
+	       inc edi
+	      and eax, ebx
+	      xor eax, [ebp+bb.col0]
+	       dec ecx
+	      mov [edi-2], ax
+	       jz .wend1bpp
+	      dec esi
+	    jnz .do1.3
+	    pop esi
+	  jmp short .do1.2
+.wend1bpp:
+	  pop ecx
+	  pop esi
+	  pop ecx
+	  add edi, [ebp+bb.s]
+	  dec ecx
+	jnz .do1.1
+	pop eax
+	ret
+
+.paletteConv:
+	shr ah, 2
+	shr eax, 3
+	shl ax, 5
+	shr eax, 5
+	ret

30_day/gview/gview.c

@@ -0,0 +1,121 @@
+#include "apilib.h"
+
+struct DLL_STRPICENV {	/* 64KB */
+	int work[64 * 1024 / 4];
+};
+
+struct RGB {
+	unsigned char b, g, r, t;
+};
+
+/* bmp.nasm */
+int info_BMP(struct DLL_STRPICENV *env, int *info, int size, char *fp);
+int decode0_BMP(struct DLL_STRPICENV *env, int size, char *fp, int b_type, char *buf, int skip);
+
+/* jpeg.c */
+int info_JPEG(struct DLL_STRPICENV *env, int *info, int size, char *fp);
+int decode0_JPEG(struct DLL_STRPICENV *env, int size, char *fp, int b_type, char *buf, int skip);
+
+unsigned char rgb2pal(int r, int g, int b, int x, int y);
+void error(char *s);
+
+void HariMain(void)
+{
+	struct DLL_STRPICENV env;
+	char filebuf[512 * 1024], winbuf[1040 * 805];
+	char s[32], *p;
+	int win, i, j, fsize, xsize, info[8];
+	struct RGB picbuf[1024 * 768], *q;
+
+	/*命令行解析*/
+	api_cmdline(s, 30);
+	for (p = s; *p > ' '; p++) { }	/*一直读到空格为止*/
+	for (; *p == ' '; p++) { }	/*跳过空格*/
+
+	/*文件载入*/
+	i = api_fopen(p); if (i == 0) { error("file not found.\n"); }
+	fsize = api_fsize(i, 0);
+	if (fsize > 512 * 1024) {
+		error("file too large.\n");
+	}
+	api_fread(filebuf, fsize, i);
+	api_fclose(i);
+
+	/*检查文件类型*/
+	if (info_BMP(&env, info, fsize, filebuf) == 0) {
+		/*不是BMP */
+		if (info_JPEG(&env, info, fsize, filebuf) == 0) {
+			/*也不是JPEG */
+			api_putstr0("file type unknown.\n");
+			api_end();
+		}
+	}
+	/*上面其中一个info函数调用成功的话，info中包含以下信息 */
+	/*info[0]：文件类型（1:BMP、2:JPEG）*/
+	/*info[1]：颜色数信息*/
+	/*info[2]：xsize */
+	/*	info[3] : ysize */
+
+	if (info[2] > 1024 || info[3] > 768) {
+		error("picture too large.\n");
+	}
+
+	/*窗口准备*/
+	xsize = info[2] + 16;
+	if (xsize < 136) {
+		xsize = 136;
+	}
+	win = api_openwin(winbuf, xsize, info[3] + 37, -1, "gview");
+
+	/*将文件内容转换为图像数据*/
+	if (info[0] == 1) {
+		i = decode0_BMP (&env, fsize, filebuf, 4, (char *) picbuf, 0);
+	} else {
+		i = decode0_JPEG(&env, fsize, filebuf, 4, (char *) picbuf, 0);
+	}
+	/*b_type = 4表示struct RGB格式*/
+	/*skip设为0即可*/
+	if (i != 0) {
+		error("decode error.\n");
+	}
+
+	/*显示*/
+	for (i = 0; i < info[3]; i++) {
+		p = winbuf + (i + 29) * xsize + (xsize - info[2]) / 2;
+		q = picbuf + i * info[2];
+		for (j = 0; j < info[2]; j++) {
+			p[j] = rgb2pal(q[j].r, q[j].g, q[j].b, j, i);
+		}
+	}
+	api_refreshwin(win, (xsize - info[2]) / 2, 29, (xsize - info[2]) / 2 + info[2], 29 + info[3]);
+
+	/*等待结束*/
+	for (;;) {
+		i = api_getkey(1);
+		if (i == 'Q' || i == 'q') {
+			api_end();
+		}
+	}
+}
+
+unsigned char rgb2pal(int r, int g, int b, int x, int y)
+{
+	static int table[4] = { 3, 1, 0, 2 };
+	int i;
+	x &= 1; /*判断是偶数还是奇数*/
+	y &= 1;
+	i = table[x + y * 2];	/*用于生成中间色的常量*/
+	r = (r * 21) / 256;	/*结果为0～20*/
+	g = (g * 21) / 256;
+	b = (b * 21) / 256;
+	r = (r + i) / 4;	/*结果为0～5*/
+	g = (g + i) / 4;
+	b = (b + i) / 4;
+	return 16 + r + g * 6 + b * 36;
+}
+
+void error(char *s)
+{
+	api_putstr0(s);
+	api_end();
+}

30_day/gview/jpeg.c

@@ -0,0 +1,733 @@
+/*
+ * JPEG decoding engine for DCT-baseline
+ *
+ *      copyrights 2003 by nikq | nikq::club.
+ *
+ *
+ */
+
+
+typedef unsigned char UCHAR;
+
+struct DLL_STRPICENV { int work[16384]; };
+
+typedef struct
+{
+    int elem; 
+    unsigned short code[256];
+    unsigned char  size[256];
+    unsigned char  value[256];
+}HUFF;
+
+typedef struct
+{
+    // SOF
+    int width;
+    int height;
+    // MCU
+    int mcu_width;
+    int mcu_height;
+
+    int max_h,max_v;
+    int compo_count;
+    int compo_id[3];
+    int compo_sample[3];
+    int compo_h[3];
+    int compo_v[3];
+    int compo_qt[3];
+
+    // SOS
+    int scan_count;
+    int scan_id[3];
+    int scan_ac[3];
+    int scan_dc[3];
+    int scan_h[3];  
+    int scan_v[3];  
+    int scan_qt[3]; 
+    
+    // DRI
+    int interval;
+
+    int mcu_buf[32*32*4]; 
+    int *mcu_yuv[4];
+    int mcu_preDC[3];
+    
+    // DQT
+    int dqt[3][64];
+    int n_dqt;
+    
+    // DHT
+    HUFF huff[2][3];
+    
+    
+    // FILE i/o
+	unsigned char *fp, *fp1;
+    unsigned long bit_buff;
+    int bit_remain;
+    int width_buf;
+
+	int base_img[64][64]; 
+
+    /* for dll 
+    
+    JPEG *jpeg = (JPEG *)malloc(sizeof(JPEG) + 256);
+    */
+    int dummy[64];
+    
+}JPEG;
+
+/* for 16bit */
+#ifndef PIXEL16
+#define PIXEL16(r, g, b)	((r) << 11 | (g) << 5 | (b))
+	/* 0 <= r <= 31, 0 <= g <= 63, 0 <= b <= 31 */
+#endif
+
+int info_JPEG(struct DLL_STRPICENV *env, int *info, int size, UCHAR *fp);
+int decode0_JPEG(struct DLL_STRPICENV *env, int size, UCHAR *fp, int b_type, UCHAR *buf, int skip);
+
+void jpeg_idct_init(int base_img[64][64]);
+int jpeg_init(JPEG *jpeg);
+// int jpeg_header(JPEG *jpge);
+void jpeg_decode(JPEG *jpeg, unsigned char *rgb,int b_type);
+
+/* ----------------- start main section ----------------- */
+
+int info_JPEG(struct DLL_STRPICENV *env,int *info, int size, UCHAR *fp0)
+{
+	JPEG *jpeg = (JPEG *) (((int *) env) + 128);
+	jpeg->fp = fp0;
+	jpeg->fp1 = fp0 + size;
+
+//	if (512 + sizeof (JPEG) > 64 * 1024)
+//		return 0;
+
+	if (jpeg_init(jpeg))
+		return 0;
+//	jpeg_header(jpeg);
+
+	if (jpeg->width == 0)
+		return 0;
+	
+	info[0] = 0x0002;
+	info[1] = 0x0000;
+	info[2] = jpeg->width;
+	info[3] = jpeg->height;
+
+	/* OK */
+	return 1;
+}
+
+int decode0_JPEG(struct DLL_STRPICENV *env,int size, UCHAR *fp0, int b_type, UCHAR *buf, int skip)
+{
+	JPEG *jpeg = (JPEG *) (((int *) env) + 128);
+	jpeg->fp = fp0;
+	jpeg->fp1 = fp0 + size;
+
+	jpeg_idct_init(jpeg->base_img);
+	jpeg_init(jpeg);
+//	jpeg_header(jpeg);
+
+//	if (jpeg->width == 0)
+//		return 8;
+	/* decode*/
+
+	jpeg->width_buf = skip / (b_type & 0x7f) + jpeg->width;
+    jpeg_decode(jpeg, buf, b_type);
+
+	/* OK */
+	return 0;
+}
+
+// -------------------------- I/O ----------------------------
+
+unsigned short get_bits(JPEG *jpeg, int bit)
+{
+	unsigned char  c, c2;
+	unsigned short ret;
+	unsigned long  buff;
+	int remain;
+
+	buff   = jpeg->bit_buff;
+	remain = jpeg->bit_remain;
+
+	while (remain <= 16) {
+		if (jpeg->fp >= jpeg->fp1) {
+			ret = 0;
+			goto fin;
+		}
+		c = *jpeg->fp++;
+		if (c == 0xff) { 
+			if (jpeg->fp >= jpeg->fp1) {
+				ret = 0;
+				goto fin;
+			}
+			jpeg->fp++; /* 00 skip */
+		}
+		buff = (buff << 8) | c;
+		remain += 8;
+	}
+	ret = (buff >> (remain - bit)) & ((1 << bit) - 1);
+	remain -= bit;
+
+	jpeg->bit_remain = remain;
+	jpeg->bit_buff   = buff;
+fin:
+	return ret;
+}
+
+// ------------------------ JPEG -----------------
+
+// start of frame
+int jpeg_sof(JPEG *jpeg)
+{
+	unsigned char c;
+	int i, h, v, n;
+
+	if (jpeg->fp + 8 > jpeg->fp1)
+		goto err;
+	/* fp[2] ‚Í bpp */
+	jpeg->height = jpeg->fp[3] << 8 | jpeg->fp[4];
+	jpeg->width  = jpeg->fp[5] << 8 | jpeg->fp[6];
+	n = jpeg->compo_count = jpeg->fp[7]; // Num of compo, nf
+	jpeg->fp += 8;
+	if (jpeg->fp + n * 3 > jpeg->fp1)
+		goto err;
+
+	for (i = 0; i < n; i++) {
+		jpeg->compo_id[i] = jpeg->fp[0];
+
+		jpeg->compo_sample[i] = c = jpeg->fp[1];
+		h = jpeg->compo_h[i] = (c >> 4) & 0x0f;
+		v = jpeg->compo_v[i] = c & 0x0f;
+
+		if (jpeg->max_h < h)
+			jpeg->max_h = h;
+		if (jpeg->max_v < v)
+			jpeg->max_v = v;
+
+        jpeg->compo_qt[i] = jpeg->fp[2];
+		jpeg->fp += 3;
+    }
+    return 0;
+err:
+	jpeg->fp = jpeg->fp1;
+	return 1;
+}
+
+// define quantize table
+int jpeg_dqt(JPEG *jpeg)
+{
+	unsigned char c;
+	int i, j, v, size;
+
+	if (jpeg->fp + 2 > jpeg->fp1)
+		goto err;
+	size = (jpeg->fp[0] << 8 | jpeg->fp[1]) - 2;
+	jpeg->fp += 2;
+	if (jpeg->fp + size > jpeg->fp1)
+		goto err;
+
+	while (size > 0) {
+		c = *jpeg->fp++;
+		size--;
+		j = c & 7;
+		if (j > jpeg->n_dqt)
+			jpeg->n_dqt = j;
+
+ 		if (c & 0xf8) {
+			// 16 bit DQT
+			for (i = 0; i < 64; i++) {
+				jpeg->dqt[j][i] = jpeg->fp[0]; 
+				jpeg->fp += 2;
+			}
+			size += -64 * 2;
+		} else {
+			//  8 bit DQT
+			for (i = 0; i < 64; i++)
+				jpeg->dqt[j][i] = *jpeg->fp++;
+			size -= 64;
+		}
+	}
+	return 0;
+err:
+	jpeg->fp = jpeg->fp1;
+	return 1;
+}
+
+// define huffman table
+int jpeg_dht(JPEG *jpeg)
+{
+	unsigned tc, th;
+	unsigned code = 0;
+	unsigned char val;
+	int i, j, k, num, Li[17];
+	int len, max_val;
+	HUFF *table;
+
+	if (jpeg->fp + 2 > jpeg->fp1)
+		goto err;
+	len = (jpeg->fp[0] << 8 | jpeg->fp[1]) - 2;
+	jpeg->fp += 2;
+
+	while (len > 0) {
+		if (jpeg->fp + 17 > jpeg->fp1)
+			goto err;
+		val = jpeg->fp[0];
+
+		tc = (val >> 4) & 0x0f; 
+		th =  val       & 0x0f; 
+		table = &(jpeg->huff[tc][th]);
+
+		num = 0;
+		k = 0;
+		for (i = 1; i <= 16; i++) {
+			Li[i] = jpeg->fp[i];
+			num += Li[i];
+            for (j = 0; j < Li[i]; j++)
+                table->size[k++] = i;
+		}
+		table->elem = num;
+		jpeg->fp += 17;
+
+		k=0;
+		code=0;
+		i = table->size[0];
+		while (k < num) {
+			while (table->size[k] == i)
+				table->code[k++] = code++;
+			if (k >= num)
+				break;
+			do {
+				code <<= 1;
+				i++;
+			} while (table->size[k] != i);
+		}
+
+		if (jpeg->fp + num > jpeg->fp1)
+			goto err;
+		for (k = 0; k < num; k++)
+			table->value[k] = jpeg->fp[k];
+		jpeg->fp += num;
+
+        len -= 18 + num;
+    }
+    return 0;
+err:
+	jpeg->fp = jpeg->fp1;
+	return 1;
+}
+
+int jpeg_init(JPEG *jpeg)
+{
+	unsigned char c;
+	int r = 0, i;
+	jpeg->width = 0;
+	jpeg->mcu_preDC[0] = 0;
+	jpeg->mcu_preDC[1] = 0;
+	jpeg->mcu_preDC[2] = 0;
+	jpeg->n_dqt = 0;
+	jpeg->max_h = 0;
+	jpeg->max_v = 0;
+	jpeg->bit_remain = 0;
+	jpeg->bit_buff   = 0;
+
+	jpeg->interval = 0;
+//	return;
+//}
+//
+//int jpeg_header(JPEG *jpeg)
+//{
+//	unsigned char c;
+//	int r = 0, i;
+
+	for (;;) {
+		if (jpeg->fp + 2 > jpeg->fp1)
+			goto err;
+		if (jpeg->fp[0] != 0xff)
+            goto err0;
+		c = jpeg->fp[1];
+		jpeg->fp += 2;
+		if (c == 0xd8)
+			continue; /* SOI */
+		if (c == 0xd9)
+			goto err; /* EOI */
+
+		if (c == 0xc0)
+            jpeg_sof(jpeg);
+		else if (c == 0xc4)
+            jpeg_dht(jpeg);
+		else if (c == 0xdb)
+            jpeg_dqt(jpeg);
+		else if (c == 0xdd) {
+			if (jpeg->fp + 4 > jpeg->fp1)
+				goto err;
+			jpeg->interval = jpeg->fp[2] << 8 | jpeg->fp[3];
+			jpeg->fp += 4;
+		} else if (c == 0xda) {
+			if (jpeg->fp + 3 > jpeg->fp1)
+				goto err;
+			jpeg->scan_count = jpeg->fp[2];
+			jpeg->fp += 3;
+			if (jpeg->fp + jpeg->scan_count * 2 > jpeg->fp1)
+				goto err;
+			for (i = 0; i < jpeg->scan_count; i++) {
+				jpeg->scan_id[i] = jpeg->fp[0];
+				jpeg->scan_dc[i] = jpeg->fp[1] >> 4;   // DC Huffman Table
+				jpeg->scan_ac[i] = jpeg->fp[1] & 0x0F; // AC Huffman Table
+				jpeg->fp += 2;
+			}
+			jpeg->fp += 3; /* 3bytes skip */
+            goto fin;
+		} else {
+			if (jpeg->fp + 2 > jpeg->fp1)
+				goto err;
+			jpeg->fp += jpeg->fp[0] << 8 | jpeg->fp[1];
+		}
+    }
+err:
+	jpeg->fp = jpeg->fp1;
+err0:
+	r++;
+fin:
+	return r;
+}
+
+// MCU decode
+
+void jpeg_decode_init(JPEG *jpeg)
+{
+	int i, j;
+
+	for (i = 0; i < jpeg->scan_count; i++) {
+		// i:scan
+		for (j = 0; j < jpeg->compo_count; j++) {
+			// j:frame
+			if (jpeg->scan_id[i] == jpeg->compo_id[j]) {
+				jpeg->scan_h[i]  = jpeg->compo_h[j];
+				jpeg->scan_v[i]  = jpeg->compo_v[j];
+				jpeg->scan_qt[i] = jpeg->compo_qt[j];
+                break;
+			}
+		}
+	//	if (j >= jpeg->compo_count)
+	//		return 1;
+	}
+	jpeg->mcu_width  = jpeg->max_h * 8;
+	jpeg->mcu_height = jpeg->max_v * 8;
+    
+	for (i = 0; i < 32 * 32 * 4; i++)
+		jpeg->mcu_buf[i] = 0x80;
+
+	for (i = 0; i < jpeg->scan_count; i++)
+		jpeg->mcu_yuv[i] = jpeg->mcu_buf + (i << 10);
+	return;
+}
+
+int jpeg_huff_decode(JPEG *jpeg,int tc,int th)
+{
+    HUFF *h = &(jpeg->huff[tc][th]);
+    int code,size,k,v;
+    code = 0;
+    size = 0;
+    k = 0;
+    while( size < 16 ){
+        size++;
+        v = get_bits(jpeg,1);
+        if(v < 0){
+            return v;
+        }
+        code = (code << 1) | v;
+
+        while(h->size[k] == size){
+            if(h->code[k] == code){
+                return h->value[k];
+            }
+            k++;
+        }
+    }
+
+    return -1;
+}
+
+void jpeg_idct_init(int base_img[64][64])
+{
+    int u, v, m, n;
+    int tmpm[8], tmpn[8];
+	int cost[32];
+	cost[ 0] =  32768; cost[ 1] =  32138; cost[ 2] =  30274; cost[ 3] =  27246; cost[ 4] =  23170; cost[ 5] =  18205; cost[ 6] =  12540; cost[ 7] =   6393;
+	cost[ 8] =      0; cost[ 9] =  -6393; cost[10] = -12540; cost[11] = -18205; cost[12] = -23170; cost[13] = -27246; cost[14] = -30274; cost[15] = -32138;
+	for (u = 0; u < 16; u++)
+		cost[u + 16] = - cost[u];
+
+    for (u = 0; u < 8; u++) {
+        {
+            int i=u, d=u*2;
+            if (d == 0)
+                i = 4;
+            for (m = 0; m < 8; m++){
+                tmpm[m] = cost[i];
+                i=(i+d)&31;
+            }
+        }
+        for (v = 0; v < 8; v++) {
+            {
+                int i=v,d=v*2;
+                if (d == 0)
+                    i=4;
+                for (n = 0; n < 8; n++){
+                    tmpn[n] = cost[i]; 
+                    i=(i+d)&31;
+                }
+            }
+            
+            for (m = 0; m < 8; m++) {
+                for (n = 0; n < 8; n++) {
+                    base_img[u * 8 + v][m * 8 + n] = (tmpm[m] * tmpn[n])>>15;
+                }
+            }
+        }
+    }
+    return;
+}
+
+void jpeg_idct(int *block, int *dest, int base_img[64][64])
+{
+    int i, j ,k;
+
+    for (i = 0; i < 64; i++)
+        dest[i] = 0;
+
+    for (i = 0; i < 64; i++) {
+        k = block[i];
+        if(k) { 
+            for (j = 0; j < 64; j++) {
+                dest[j] += k * base_img[i][j];
+            }
+        }
+    }
+    
+    for (i = 0; i < 64; i++)
+        dest[i] >>= 17;
+    return;
+}
+
+
+int jpeg_get_value(JPEG *jpeg,int size)
+{
+	int val = 0;
+    if (size) {
+		val = get_bits(jpeg,size);
+		if (val < 0)
+			val = 0x10000 | (0 - val);
+		else if (!(val & (1<<(size-1))))
+			val -= (1 << size) - 1;
+	}
+    return val;
+}
+
+int jpeg_decode_huff(JPEG *jpeg,int scan,int *block, UCHAR *zigzag_table)
+{
+    int size, len, val, run, index;
+    int *pQt = (int *)(jpeg->dqt[jpeg->scan_qt[scan]]);
+
+    // DC
+    size = jpeg_huff_decode(jpeg,0,jpeg->scan_dc[scan]);
+    if(size < 0)
+        return 0;
+    val = jpeg_get_value(jpeg,size);
+    jpeg->mcu_preDC[scan] += val;
+    block[0] = jpeg->mcu_preDC[scan] * pQt[0];
+
+    //AC
+    index = 1;
+    while(index<64)
+    {
+        size = jpeg_huff_decode(jpeg,1,jpeg->scan_ac[scan]);
+        if(size < 0)
+            break;
+        // EOB
+        if(size == 0)
+            break;
+        
+        // RLE
+        run  = (size>>4)&0xF;
+        size = size & 0x0F;
+        
+        val = jpeg_get_value(jpeg,size);
+        if(val>=0x10000) {
+            return val;
+        }
+
+        // ZRL
+        while (run-- > 0)
+            block[ zigzag_table[index++] ] = 0;
+        
+        block[ zigzag_table[index] ] = val * pQt[index];
+        index++;
+    }
+    while(index<64)
+        block[zigzag_table[index++]]=0;
+    return 0;
+}
+
+void jpeg_mcu_bitblt(int *src, int *dest, int width,
+                     int x0, int y0, int x1, int y1)
+{
+	int w, h;
+	int x, y, x2, y2;
+	w = x1 - x0;
+	h = y1 - y0;
+	dest += y0 * width + x0;
+	width -= w;
+
+	for (y = 0; y < h; y++) {
+		y2 = (y * 8 / h) * 8;
+		for (x = 0; x < w; x++)
+			*dest++ = src[y2 + (x * 8 / w)];
+		dest += width;
+	}
+}
+
+int jpeg_decode_mcu(JPEG *jpeg, UCHAR *zigzag_table)
+{
+	int scan, val;
+	int unit, i, h, v;
+	int *p, hh, vv;
+	int block[64], dest[64];
+
+	// mcu_width x mcu_height
+	for (scan = 0; scan < jpeg->scan_count; scan++) {
+		hh = jpeg->scan_h[scan];
+		vv = jpeg->scan_v[scan];
+		for (v = 0; v < vv; v++) {
+            for (h = 0; h < hh; h++) {
+				// ƒuƒƒbƒN(8x8)‚̃fƒR[ƒh
+				val = jpeg_decode_huff(jpeg, scan, block, zigzag_table);
+			//	if(val>=0x10000){
+			//		printf("marker found:%02x\n",val);
+			//	}
+
+				jpeg_idct(block, dest, jpeg->base_img);
+
+				p = jpeg->mcu_buf + (scan << 10);
+
+				jpeg_mcu_bitblt(dest, p, jpeg->mcu_width,
+					jpeg->mcu_width * h / hh, jpeg->mcu_height * v / vv,
+					jpeg->mcu_width * (h + 1) / hh, jpeg->mcu_height * (v + 1) / vv);
+			}
+		}
+	}
+}
+
+// YCrCb=>RGB
+
+int jpeg_decode_yuv(JPEG *jpeg, int h, int v, unsigned char *rgb, int b_type)
+{
+	int x0, y0, x, y, x1, y1;
+	int *py;
+	int Y12, V;
+	int mw, mh, w;
+	int i;
+
+	mw = jpeg->mcu_width;
+	mh = jpeg->mcu_height;
+
+	x0 = h * jpeg->max_h * 8;
+	y0 = v * jpeg->max_v * 8;
+
+	x1 = jpeg->width - x0;
+	if (x1 > mw)
+		x1 = mw;
+	y1 = jpeg->height - y0;
+	if (y1 > mh)
+		y1 = mh;
+    
+	py = jpeg->mcu_buf;
+	rgb += (y0 * jpeg->width_buf + x0) * (b_type & 0x7f);
+	w = (jpeg->width_buf - x1) * (b_type & 0x7f);
+
+	for (y = 0; y < y1; y++) {
+		for (x = 0; x < x1; x++) {
+			int b, g, r;
+			Y12 = py[0] << 12;
+		//	U = py[1024]; /* pu */
+			V = py[2048]; /* pv */
+
+			/* blue */
+			b = 128 + ((Y12 - V * 4 + py[1024] /* pu */ * 0x1C59) >> 12);
+			if (b & 0xffffff00)
+				b = (~b) >> 24;
+
+			/* green */
+			g = 128 + ((Y12 - V * 0x0B6C) >> 12);
+			if (g & 0xffffff00)
+				g = (~g) >> 24;
+
+			/* red */
+			r = 128 + ((Y12 + V * 0x166E) >> 12);
+			if (r & 0xffffff00)
+				r = (~r) >> 24;
+			if (b_type == 0x0004) {
+				rgb[0] = b;
+				rgb[1] = g;
+				rgb[2] = r;
+				py++;
+				rgb += 4;
+			} else if (b_type == 0x0002) {
+				r &= 0xff;
+				g &= 0xff;
+				b &= 0xff;
+				*(short *) rgb = PIXEL16(r >> 3, g >> 2, b >> 3);
+				rgb += 2;
+			}
+		}
+		py += mw - x1;
+		rgb += w;
+	}
+	return;
+}
+
+#define INIT_ZTABLE(i, b0, b1, b2, b3)	*(int *) &zigzag_table[i] = b0 | b1 << 8 | b2 << 16 | b3 << 24
+
+void jpeg_decode(JPEG *jpeg, UCHAR *rgb, int b_type)
+{
+	int h_unit, v_unit;
+	int mcu_count, h, v;
+	int val;
+	unsigned char m;
+
+    UCHAR zigzag_table[64];
+
+	INIT_ZTABLE( 0,  0,  1,  8, 16); INIT_ZTABLE( 4,  9,  2,  3, 10);
+	INIT_ZTABLE( 8, 17, 24, 32, 25); INIT_ZTABLE(12, 18, 11,  4,  5);
+	INIT_ZTABLE(16, 12, 19, 26, 33); INIT_ZTABLE(20, 40, 48, 41, 34);
+	INIT_ZTABLE(24, 27, 20, 13,  6); INIT_ZTABLE(28,  7, 14, 21, 28);
+	INIT_ZTABLE(32, 35, 42, 49, 56); INIT_ZTABLE(36, 57, 50, 43, 36);
+	INIT_ZTABLE(40, 29, 22, 15, 23); INIT_ZTABLE(44, 30, 37, 44, 51);
+	INIT_ZTABLE(48, 58, 59, 52, 45); INIT_ZTABLE(52, 38, 31, 39, 46);
+	INIT_ZTABLE(56, 53, 60, 61, 54); INIT_ZTABLE(60, 47, 55, 62, 63);
+
+	jpeg_decode_init(jpeg);
+
+	h_unit = (jpeg->width + jpeg->mcu_width - 1) / jpeg->mcu_width;
+	v_unit = (jpeg->height + jpeg->mcu_height - 1) / jpeg->mcu_height;
+
+	mcu_count = 0;
+	for (v = 0; v < v_unit; v++) {
+		for (h = 0; h < h_unit; h++) {
+			mcu_count++;
+			jpeg_decode_mcu(jpeg, zigzag_table);
+			jpeg_decode_yuv(jpeg, h, v, rgb, b_type & 0x7fff);
+			if (jpeg->interval > 0 && mcu_count >= jpeg->interval) {
+				jpeg->bit_remain -= (jpeg->bit_remain & 7);
+				jpeg->bit_remain -= 8;
+				jpeg->mcu_preDC[0] = 0;
+				jpeg->mcu_preDC[1] = 0;
+				jpeg->mcu_preDC[2] = 0;
+				mcu_count = 0;
+			}
+		}
+	}
+    return;
+}
+

30_day/gview/make.bat

@@ -0,0 +1 @@
+..\..\z_tools\make.exe %1 %2 %3 %4 %5 %6 %7 %8 %9

30_day/haribote/Makefile

@@ -23,13 +23,13 @@ DEL      = del
 #默认动作
 
 default :
-	$(MAKE) ipl20.bin
+	$(MAKE) ipl10.bin
 	$(MAKE) haribote.sys
 
 # 镜像文件生成
 
-ipl20.bin : ipl20.nas Makefile
-	$(NASK) ipl20.nas ipl20.bin ipl20.lst
+ipl10.bin : ipl10.nas Makefile
+	$(NASK) ipl10.nas ipl10.bin ipl10.lst
 
 asmhead.bin : asmhead.nas Makefile
 	$(NASK) asmhead.nas asmhead.bin asmhead.lst
@@ -75,5 +75,5 @@ clean :
 
 src_only :
 	$(MAKE) clean
-	-$(DEL) ipl20.bin
+	-$(DEL) ipl10.bin
 	-$(DEL) haribote.sys

30_day/haribote/bootpack.h

@@ -88,16 +88,16 @@ struct GATE_DESCRIPTOR {
 void init_gdtidt(void);
 void set_segmdesc(struct SEGMENT_DESCRIPTOR *sd, unsigned int limit, int base, int ar);
 void set_gatedesc(struct GATE_DESCRIPTOR *gd, int offset, int selector, int ar);
-#define ADR_IDT				0x0026f800
-#define LIMIT_IDT			0x000007ff
-#define ADR_GDT				0x00270000
-#define LIMIT_GDT			0x0000ffff
+#define ADR_IDT			0x0026f800
+#define LIMIT_IDT		0x000007ff
+#define ADR_GDT			0x00270000
+#define LIMIT_GDT		0x0000ffff
 #define ADR_BOTPAK		0x00280000
 #define LIMIT_BOTPAK	0x0007ffff
 #define AR_DATA32_RW	0x4092
 #define AR_CODE32_ER	0x409a
-#define AR_LDT				0x0082
-#define AR_TSS32			0x0089
+#define AR_LDT			0x0082
+#define AR_TSS32		0x0089
 #define AR_INTGATE32	0x008e
 
 /* int.c */
@@ -288,10 +288,10 @@ void file_loadfile(int clustno, int size, char *buf, int *fat, char *img);
 struct FILEINFO *file_search(char *name, struct FILEINFO *finfo, int max);
 char *file_loadfile2(int clustno, int *psize, int *fat);
 
-/* bootpack.c */
-struct TASK *open_constask(struct SHEET *sht, unsigned int memtotal);
-struct SHEET *open_console(struct SHTCTL *shtctl, unsigned int memtotal);
-
 /* tek.c */
 int tek_getsize(unsigned char *p);
 int tek_decomp(unsigned char *p, char *q, int size);
+
+/* bootpack.c */
+struct TASK *open_constask(struct SHEET *sht, unsigned int memtotal);
+struct SHEET *open_console(struct SHTCTL *shtctl, unsigned int memtotal);

30_day/haribote/console.c

@@ -9,8 +9,8 @@ void console_task(struct SHEET *sheet, int memtotal)
 	struct TASK *task = task_now();
 	struct MEMMAN *memman = (struct MEMMAN *) MEMMAN_ADDR;
 	int i, *fat = (int *) memman_alloc_4k(memman, 4 * 2880);
-	struct FILEHANDLE fhandle[8];
 	struct CONSOLE cons;
+	struct FILEHANDLE fhandle[8];
 	char cmdline[30];
 	unsigned char *nihongo = (char *) *((int *) 0x0fe8);
 
@@ -133,19 +133,19 @@ void cons_putchar(struct CONSOLE *cons, int chr, char move)
 				cons_newline(cons);
 			}
 			if (((cons->cur_x - 8) & 0x1f) == 0) {
-				break; /*被32整除则break*/
+				break;	/* 32<EFBFBD>Ŋ<EFBFBD><EFBFBD><EFBFBD>؂ꂽ<EFBFBD><EFBFBD>break */
 			}
 		}
-	} else if (s[0] == 0x0a) { /*换行*/
+	} else if (s[0] == 0x0a) {	/* <20><><EFBFBD>s */
 		cons_newline(cons);
-	} else if (s[0] == 0x0d) { /*回车*/
-		/*先不做任何操作*/
-	} else { /*一般字符*/
+	} else if (s[0] == 0x0d) {	/* <20><><EFBFBD>A */
+		/* <20>Ƃ肠<C682><E882A0><EFBFBD><EFBFBD><EFBFBD>Ȃɂ<C882><C982><EFBFBD><EFBFBD>Ȃ<EFBFBD> */
+	} else {	/* <20><><EFBFBD>ʂ̕<CA82><CC95><EFBFBD> */
 		if (cons->sht != 0) {
 			putfonts8_asc_sht(cons->sht, cons->cur_x, cons->cur_y, COL8_FFFFFF, COL8_000000, s, 1);
 		}
 		if (move != 0) {
-			/* move为0时光标不后移*/
+			/* move<EFBFBD><EFBFBD>0<EFBFBD>̂Ƃ<EFBFBD><EFBFBD>̓J<EFBFBD>[<5B>\<5C><><EFBFBD><EFBFBD>i<EFBFBD>߂Ȃ<DF82> */
 			cons->cur_x += 8;
 			if (cons->cur_x == 8 + 240) {
 				cons_newline(cons);
@@ -161,9 +161,9 @@ void cons_newline(struct CONSOLE *cons)
 	struct SHEET *sheet = cons->sht;
 	struct TASK *task = task_now();
 	if (cons->cur_y < 28 + 112) {
-		cons->cur_y += 16; /*到下一行*/
+		cons->cur_y += 16; /* <20><><EFBFBD>̍s<CC8D><73> */
 	} else {
-		/*滚动*/
+		/* <20>X<EFBFBD>N<EFBFBD><4E><EFBFBD>[<5B><> */
 		if (sheet != 0) {
 			for (y = 28; y < 28 + 112; y++) {
 				for (x = 8; x < 8 + 240; x++) {
@@ -180,7 +180,7 @@ void cons_newline(struct CONSOLE *cons)
 	}
 	cons->cur_x = 8;
 	if (task->langmode == 1 && task->langbyte1 != 0) {
-		cons->cur_x += 8;
+		cons->cur_x = 16;
 	}
 	return;
 }
@@ -208,7 +208,7 @@ void cons_runcmd(char *cmdline, struct CONSOLE *cons, int *fat, int memtotal)
 		cmd_mem(cons, memtotal);
 	} else if (strcmp(cmdline, "cls") == 0 && cons->sht != 0) {
 		cmd_cls(cons);
-	} else if ((strcmp(cmdline, "dir") == 0 || strcmp(cmdline, "ls") == 0) && cons->sht != 0) {
+	} else if (strcmp(cmdline, "dir") == 0 && cons->sht != 0) {
 		cmd_dir(cons);
 	} else if (strcmp(cmdline, "exit") == 0) {
 		cmd_exit(cons, fat);
@@ -218,9 +218,9 @@ void cons_runcmd(char *cmdline, struct CONSOLE *cons, int *fat, int memtotal)
 		cmd_ncst(cons, cmdline, memtotal);
 	} else if (strncmp(cmdline, "langmode ", 9) == 0) {
 		cmd_langmode(cons, cmdline);
-	}else if (cmdline[0] != 0) {
+	} else if (cmdline[0] != 0) {
 		if (cmd_app(cons, fat, cmdline) == 0) {
-			/*不是命令，不是应用程序，也不是空行*/
+			/* <20>R<EFBFBD>}<7D><><EFBFBD>h<EFBFBD>ł͂Ȃ<CD82><C882>A<EFBFBD>A<EFBFBD>v<EFBFBD><76><EFBFBD>ł<EFBFBD><C582>Ȃ<EFBFBD><C882>A<EFBFBD><41><EFBFBD><EFBFBD>ɋ<EFBFBD>s<EFBFBD>ł<EFBFBD><C582>Ȃ<EFBFBD> */
 			cons_putstr0(cons, "Bad command.\n\n");
 		}
 	}
@@ -288,9 +288,9 @@ void cmd_exit(struct CONSOLE *cons, int *fat)
 	memman_free_4k(memman, (int) fat, 4 * 2880);
 	io_cli();
 	if (cons->sht != 0) {
-		fifo32_put(fifo, cons->sht - shtctl->sheets0 + 768); /* 768〜1023 */
+		fifo32_put(fifo, cons->sht - shtctl->sheets0 + 768);	/* 768<EFBFBD>`1023 */
 	} else {
-		fifo32_put(fifo, task - taskctl->tasks0 + 1024); /*1024～2023*/
+		fifo32_put(fifo, task - taskctl->tasks0 + 1024);	/* 1024<EFBFBD>`2023 */
 	}
 	io_sti();
 	for (;;) {
@@ -306,11 +306,11 @@ void cmd_start(struct CONSOLE *cons, char *cmdline, int memtotal)
 	int i;
 	sheet_slide(sht, 32, 4);
 	sheet_updown(sht, shtctl->top);
-	/*将命令行输入的字符串逐字复制到新的命令行窗口中*/
+	/* <20>R<EFBFBD>}<7D><><EFBFBD>h<EFBFBD><68><EFBFBD>C<EFBFBD><43><EFBFBD>ɓ<EFBFBD><C993>͂<EFBFBD><CD82>ꂽ<EFBFBD><EA82BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>ꕶ<EFBFBD><EA95B6><EFBFBD><EFBFBD><EFBFBD>V<C290><56><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD><52><EFBFBD>\<5C>[<5B><><EFBFBD>ɓ<EFBFBD><C993><EFBFBD> */
 	for (i = 6; cmdline[i] != 0; i++) {
 		fifo32_put(fifo, cmdline[i] + 256);
 	}
-	fifo32_put(fifo, 10 + 256);	 /*回车键*/
+	fifo32_put(fifo, 10 + 256);	/* Enter */
 	cons_newline(cons);
 	return;
 }
@@ -320,12 +320,11 @@ void cmd_ncst(struct CONSOLE *cons, char *cmdline, int memtotal)
 	struct TASK *task = open_constask(0, memtotal);
 	struct FIFO32 *fifo = &task->fifo;
 	int i;
-
-	/*将命令行输入的字符串逐字复制到新的命令行窗口中*/
+	/* <20>R<EFBFBD>}<7D><><EFBFBD>h<EFBFBD><68><EFBFBD>C<EFBFBD><43><EFBFBD>ɓ<EFBFBD><C993>͂<EFBFBD><CD82>ꂽ<EFBFBD><EA82BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>ꕶ<EFBFBD><EA95B6><EFBFBD><EFBFBD><EFBFBD>V<C290><56><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD><52><EFBFBD>\<5C>[<5B><><EFBFBD>ɓ<EFBFBD><C993><EFBFBD> */
 	for (i = 5; cmdline[i] != 0; i++) {
 		fifo32_put(fifo, cmdline[i] + 256);
 	}
-	fifo32_put(fifo, 10 + 256); /*回车键*/
+	fifo32_put(fifo, 10 + 256);	/* Enter */
 	cons_newline(cons);
 	return;
 }
@@ -347,26 +346,25 @@ int cmd_app(struct CONSOLE *cons, int *fat, char *cmdline)
 {
 	struct MEMMAN *memman = (struct MEMMAN *) MEMMAN_ADDR;
 	struct FILEINFO *finfo;
-	struct SEGMENT_DESCRIPTOR *gdt = (struct SEGMENT_DESCRIPTOR *) ADR_GDT;
 	char name[18], *p, *q;
 	struct TASK *task = task_now();
 	int i, segsiz, datsiz, esp, dathrb, appsiz;
 	struct SHTCTL *shtctl;
 	struct SHEET *sht;
 
-	/*根据命令行生成文件名*/
+	/* <20>R<EFBFBD>}<7D><><EFBFBD>h<EFBFBD><68><EFBFBD>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>𐶐<EFBFBD> */
 	for (i = 0; i < 13; i++) {
 		if (cmdline[i] <= ' ') {
 			break;
 		}
 		name[i] = cmdline[i];
 	}
-	name[i] = 0; /*暂且将文件名的后面置为0*/
+	name[i] = 0; /* <20>Ƃ肠<C682><E882A0><EFBFBD><EFBFBD><EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>̌<EFBFBD><CC8C><EFBFBD>0<EFBFBD>ɂ<EFBFBD><C982><EFBFBD> */
 
-	/*寻找文件 */
+	/* <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD>T<EFBFBD><54> */
 	finfo = file_search(name, (struct FILEINFO *) (ADR_DISKIMG + 0x002600), 224);
 	if (finfo == 0 && name[i - 1] != '.') {
-		/*由于找不到文件，故在文件名后面加上“.hrb”后重新寻找*/
+		/* <20><><EFBFBD>‚<EFBFBD><C282><EFBFBD>Ȃ<EFBFBD><C882><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̂Ō<CC82><C58C><EFBFBD>".HRB"<22><><EFBFBD>‚<EFBFBD><C282>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD>x<EFBFBD>T<EFBFBD><54><EFBFBD>Ă݂<C482> */
 		name[i    ] = '.';
 		name[i + 1] = 'H';
 		name[i + 2] = 'R';
@@ -376,7 +374,7 @@ int cmd_app(struct CONSOLE *cons, int *fat, char *cmdline)
 	}
 
 	if (finfo != 0) {
-		/*如果找到文件*/
+		/* <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>‚<EFBFBD><C282><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ꍇ */
 		appsiz = finfo->size;
 		p = file_loadfile2(finfo->clustno, &appsiz, fat);
 		if (appsiz >= 36 && strncmp(p + 4, "Hari", 4) == 0 && *p == 0x00) {
@@ -386,8 +384,8 @@ int cmd_app(struct CONSOLE *cons, int *fat, char *cmdline)
 			dathrb = *((int *) (p + 0x0014));
 			q = (char *) memman_alloc_4k(memman, segsiz);
 			task->ds_base = (int) q;
-			set_segmdesc(task->ldt + 0, finfo->size - 1, (int) p, AR_CODE32_ER + 0x60);
-			set_segmdesc(task->ldt + 1, segsiz - 1, (int) q, AR_DATA32_RW + 0x60); 
+			set_segmdesc(task->ldt + 0, appsiz - 1, (int) p, AR_CODE32_ER + 0x60);
+			set_segmdesc(task->ldt + 1, segsiz - 1, (int) q, AR_DATA32_RW + 0x60);
 			for (i = 0; i < datsiz; i++) {
 				q[esp + i] = p[dathrb + i];
 			}
@@ -396,11 +394,11 @@ int cmd_app(struct CONSOLE *cons, int *fat, char *cmdline)
 			for (i = 0; i < MAX_SHEETS; i++) {
 				sht = &(shtctl->sheets0[i]);
 				if ((sht->flags & 0x11) == 0x11 && sht->task == task) {
-					/*找到被应用程序遗留的窗口*/
-					sheet_free(sht); /*关闭*/
+					/* <20>A<EFBFBD>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>J<EFBFBD><4A><EFBFBD><EFBFBD><EFBFBD>ςȂ<CF82><C882>ɂ<EFBFBD><C982><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𔭌<EFBFBD> */
+					sheet_free(sht);	/* <20>‚<EFBFBD><C282><EFBFBD> */
 				}
 			}
-			for (i = 0; i < 8; i++) { /*将未关闭的文件关闭*/ 
+			for (i = 0; i < 8; i++) {	/* <20>N<EFBFBD><4E><EFBFBD>[<5B>Y<EFBFBD><59><EFBFBD>ĂȂ<C482><C882>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>[<5B>Y */
 				if (task->fhandle[i].buf != 0) {
 					memman_free_4k(memman, (int) task->fhandle[i].buf, task->fhandle[i].size);
 					task->fhandle[i].buf = 0;
@@ -416,7 +414,7 @@ int cmd_app(struct CONSOLE *cons, int *fat, char *cmdline)
 		cons_newline(cons);
 		return 1;
 	}
-	/*没有找到文件的情况*/
+	/* <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>‚<EFBFBD><C282><EFBFBD>Ȃ<EFBFBD><C882><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ꍇ */
 	return 0;
 }
 
@@ -428,8 +426,8 @@ int *hrb_api(int edi, int esi, int ebp, int esp, int ebx, int edx, int ecx, int
 	struct SHTCTL *shtctl = (struct SHTCTL *) *((int *) 0x0fe4);
 	struct SHEET *sht;
 	struct FIFO32 *sys_fifo = (struct FIFO32 *) *((int *) 0x0fec);
-	int *reg = &eax + 1; /* eax后面的地址*/
-	/*强行改写通过PUSHAD保存的值*/
+	int *reg = &eax + 1;	/* eax<EFBFBD>̎<EFBFBD><EFBFBD>̔Ԓn */
+		/* <20>ۑ<EFBFBD><DB91>̂<EFBFBD><CC82>߂<EFBFBD>PUSHAD<41><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɏ<EFBFBD><C98F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> */
 		/* reg[0] : EDI,   reg[1] : ESI,   reg[2] : EBP,   reg[3] : ESP */
 		/* reg[4] : EBX,   reg[5] : EDX,   reg[6] : ECX,   reg[7] : EAX */
 	int i;
@@ -452,7 +450,7 @@ int *hrb_api(int edi, int esi, int ebp, int esp, int ebx, int edx, int ecx, int
 		sheet_setbuf(sht, (char *) ebx + ds_base, esi, edi, eax);
 		make_window8((char *) ebx + ds_base, esi, edi, (char *) ecx + ds_base, 0);
 		sheet_slide(sht, ((shtctl->xsize - esi) / 2) & ~3, (shtctl->ysize - edi) / 2);
-		sheet_updown(sht, shtctl->top); /*将窗口图层高度指定为当前鼠标所在图层的高度，鼠标移到上层*/
+		sheet_updown(sht, shtctl->top); /* <20><><EFBFBD>̃}<7D>E<EFBFBD>X<EFBFBD>Ɠ<EFBFBD><C693><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɂȂ<C982>悤<EFBFBD>Ɏw<C98E><77>F <20>}<7D>E<EFBFBD>X<EFBFBD>͂<EFBFBD><CD82>̏<EFBFBD>ɂȂ<C982> */
 		reg[7] = (int) sht;
 	} else if (edx == 6) {
 		sht = (struct SHEET *) (ebx & 0xfffffffe);
@@ -468,13 +466,13 @@ int *hrb_api(int edi, int esi, int ebp, int esp, int ebx, int edx, int ecx, int
 		}
 	} else if (edx == 8) {
 		memman_init((struct MEMMAN *) (ebx + ds_base));
-		ecx &= 0xfffffff0; /*以16字节为单位*/
+		ecx &= 0xfffffff0;	/* 16<EFBFBD>o<EFBFBD>C<EFBFBD>g<EFBFBD>P<EFBFBD>ʂ<EFBFBD> */
 		memman_free((struct MEMMAN *) (ebx + ds_base), eax, ecx);
 	} else if (edx == 9) {
-		ecx = (ecx + 0x0f) & 0xfffffff0; /*以16字节为单位进位取整*/
+		ecx = (ecx + 0x0f) & 0xfffffff0; /* 16<EFBFBD>o<EFBFBD>C<EFBFBD>g<EFBFBD>P<EFBFBD>ʂɐ؂<EFBFBD>グ */
 		reg[7] = memman_alloc((struct MEMMAN *) (ebx + ds_base), ecx);
 	} else if (edx == 10) {
-		ecx = (ecx + 0x0f) & 0xfffffff0; /*以16字节为单位进位取整*/
+		ecx = (ecx + 0x0f) & 0xfffffff0; /* 16<EFBFBD>o<EFBFBD>C<EFBFBD>g<EFBFBD>P<EFBFBD>ʂɐ؂<EFBFBD>グ */
 		memman_free((struct MEMMAN *) (ebx + ds_base), eax, ecx);
 	} else if (edx == 11) {
 		sht = (struct SHEET *) (ebx & 0xfffffffe);
@@ -508,7 +506,7 @@ int *hrb_api(int edi, int esi, int ebp, int esp, int ebx, int edx, int ecx, int
 			io_cli();
 			if (fifo32_status(&task->fifo) == 0) {
 				if (eax != 0) {
-					task_sleep(task); /* FIFO为空，休眠并等待*/
+					task_sleep(task);	/* FIFO<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȃ̂ŐQ<EFBFBD>đ҂<EFBFBD> */
 				} else {
 					io_sti();
 					reg[7] = -1;
@@ -517,32 +515,32 @@ int *hrb_api(int edi, int esi, int ebp, int esp, int ebx, int edx, int ecx, int
 			}
 			i = fifo32_get(&task->fifo);
 			io_sti();
-			if (i <= 1) { /*光标用定时器*/
-				/*应用程序运行时不需要显示光标，因此总是将下次显示用的值置为1*/
-				timer_init(cons->timer, &task->fifo, 1); /*下次置为1*/
+			if (i <= 1 && cons->sht != 0) { /* <20>J<EFBFBD>[<5B>\<5C><><EFBFBD>p<EFBFBD>^<5E>C<EFBFBD>} */
+				/* <20>A<EFBFBD>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>̓J<CD83>[<5B>\<5C><><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD>Ȃ<EFBFBD><C882>̂ŁA<C581><41><EFBFBD>‚<EFBFBD><C282><EFBFBD><EFBFBD>͕\<5C><><EFBFBD>p<EFBFBD><70>1<EFBFBD>𒍕<EFBFBD><F0928D95><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD> */
+				timer_init(cons->timer, &task->fifo, 1); /* <20><><EFBFBD><EFBFBD>1<EFBFBD><31> */
 				timer_settime(cons->timer, 50);
 			}
-			if (i == 2) { /*光标ON */
+			if (i == 2) {	/* <20>J<EFBFBD>[<5B>\<5C><>ON */
 				cons->cur_c = COL8_FFFFFF;
 			}
-			if (i == 3) { /*光标OFF */
+			if (i == 3) {	/* <20>J<EFBFBD>[<5B>\<5C><>OFF */
 				cons->cur_c = -1;
 			}
-			if (i == 4) { /*只关闭命令行窗口*/
+			if (i == 4) {	/* <20>R<EFBFBD><52><EFBFBD>\<5C>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>‚<EFBFBD><C282><EFBFBD> */
 				timer_cancel(cons->timer);
 				io_cli();
-				fifo32_put(sys_fifo, cons->sht - shtctl->sheets0 + 2024); /*2024～2279*/
+				fifo32_put(sys_fifo, cons->sht - shtctl->sheets0 + 2024);	/* 2024<EFBFBD>`2279 */
 				cons->sht = 0;
 				io_sti();
 			}
-			if (i >= 256) { /*键盘数据（通过任务A）等*/
+			if (i >= 256) { /* <20>L<EFBFBD>[<5B>{<7B>[<5B>h<EFBFBD>f<EFBFBD>[<5B>^<5E>i<EFBFBD>^<5E>X<EFBFBD>NA<4E>o<EFBFBD>R<EFBFBD>j<EFBFBD>Ȃ<EFBFBD> */
 				reg[7] = i - 256;
 				return 0;
 			}
 		}
 	} else if (edx == 16) {
 		reg[7] = (int) timer_alloc();
-		((struct TIMER *) reg[7])->flags2 = 1; /*允许自动取消*/
+		((struct TIMER *) reg[7])->flags2 = 1;	/* <20><><EFBFBD><EFBFBD><EFBFBD>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD>Z<EFBFBD><5A><EFBFBD>L<EFBFBD><4C> */
 	} else if (edx == 17) {
 		timer_init((struct TIMER *) ebx, &task->fifo, eax + 256);
 	} else if (edx == 18) {
@@ -570,13 +568,13 @@ int *hrb_api(int edi, int esi, int ebp, int esp, int ebx, int edx, int ecx, int
 		fh = &task->fhandle[i];
 		reg[7] = 0;
 		if (i < 8) {
-			finfo = file_search((char *) ebx + ds_base, (struct FILEINFO *) (ADR_DISKIMG + 0x002600), 224);
+			finfo = file_search((char *) ebx + ds_base,
+					(struct FILEINFO *) (ADR_DISKIMG + 0x002600), 224);
 			if (finfo != 0) {
 				reg[7] = (int) fh;
-				fh->buf = (char *) memman_alloc_4k(memman, finfo->size);
 				fh->size = finfo->size;
 				fh->pos = 0;
-				file_loadfile2(finfo->clustno, &fh->size, task->fat);
+				fh->buf = file_loadfile2(finfo->clustno, &fh->size, task->fat);
 			}
 		}
 	} else if (edx == 22) {
@@ -644,7 +642,7 @@ int *inthandler0c(int *esp)
 	cons_putstr0(cons, "\nINT 0C :\n Stack Exception.\n");
 	sprintf(s, "EIP = %08X\n", esp[11]);
 	cons_putstr0(cons, s);
-	return &(task->tss.esp0); /*强制结束程序*/
+	return &(task->tss.esp0);	/* <20>ُ<EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> */
 }
 
 int *inthandler0d(int *esp)
@@ -655,7 +653,7 @@ int *inthandler0d(int *esp)
 	cons_putstr0(cons, "\nINT 0D :\n General Protected Exception.\n");
 	sprintf(s, "EIP = %08X\n", esp[11]);
 	cons_putstr0(cons, s);
-	return &(task->tss.esp0);	/*强制结束程序*/
+	return &(task->tss.esp0);	/* <20>ُ<EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> */
 }
 
 void hrb_api_linewin(struct SHEET *sht, int x0, int y0, int x1, int y1, int col)

30_day/haribote/ipl10.nas

@@ -0,0 +1,152 @@
+; haribote-ipl
+; TAB=4
+
+CYLS	EQU		10				; 声明CYLS=10
+
+		ORG		0x7c00			; 指明程序装载地址
+
+; 标准FAT12格式软盘专用的代码 Stand FAT12 format floppy code
+
+		JMP		entry
+		DB		0x90
+		DB		"HARIBOTE"		; 启动扇区名称（8字节）
+		DW		512				; 每个扇区（sector）大小（必须512字节）
+		DB		1				; 簇（cluster）大小（必须为1个扇区）
+		DW		1				; FAT起始位置（一般为第一个扇区）
+		DB		2				; FAT个数（必须为2）
+		DW		224				; 根目录大小（一般为224项）
+		DW		2880			; 该磁盘大小（必须为2880扇区1440*1024/512）
+		DB		0xf0			; 磁盘类型（必须为0xf0）
+		DW		9				; FAT的长度（必9扇区）
+		DW		18				; 一个磁道（track）有几个扇区（必须为18）
+		DW		2				; 磁头数（必2）
+		DD		0				; 不使用分区，必须是0
+		DD		2880			; 重写一次磁盘大小
+		DB		0,0,0x29		; 意义不明（固定）
+		DD		0xffffffff		; （可能是）卷标号码
+		DB		"HARIBOTEOS "	; 磁盘的名称（必须为11字?，不足填空格）
+		DB		"FAT12   "		; 磁盘格式名称（必??8字?，不足填空格）
+		RESB	18				; 先空出18字节
+
+; 程序主体
+
+entry:
+		MOV		AX,0			; 初始化寄存器
+		MOV		SS,AX
+		MOV		SP,0x7c00
+		MOV		DS,AX
+
+; 读取磁盘
+
+		MOV		AX,0x0820
+		MOV		ES,AX
+		MOV		CH,0			; 柱面0
+		MOV		DH,0			; 磁头0
+		MOV		CL,2			; 扇区2
+		MOV		BX,18*2*CYLS-1	; 要读取的合计扇区数
+		CALL	readfast		; 告诉读取
+
+; 读取完毕，跳转到haribote.sys执行！
+		MOV		[0x0ff0],CH		; 记录IPL实际读取了多少内容
+		JMP		0xc200
+
+error:
+		MOV		AX,0
+		MOV		ES,AX
+		MOV		SI,msg
+putloop:
+		MOV		AL,[SI]
+		ADD		SI,1			; 给SI加1
+		CMP		AL,0
+		JE		fin
+		MOV		AH,0x0e			; 显示一个文字
+		MOV		BX,15			; 指定字符颜色
+		INT		0x10			; 调用显卡BIOS
+		JMP		putloop
+fin:
+		HLT						; 让CPU停止，等待指令
+		JMP		fin				; 无限循环
+msg:
+		DB		0x0a, 0x0a		; 换行两次
+		DB		"load error"
+		DB		0x0a			; 换行
+		DB		0
+
+readfast:	; 使用AL尽量一次性读取数据 从此开始
+; ES:读取地址, CH:柱面, DH:磁头, CL:扇区, BX:读取扇区数
+
+		MOV		AX,ES			; < 通过ES计算AL的最大值 >
+		SHL		AX,3			; 将AX除以32，将结果存入AH（SHL是左移位指令）
+		AND		AH,0x7f		; AH是AH除以128所得的余数（512*128=64K）
+		MOV		AL,128		; AL = 128 - AH; AH是AH除以128所得的余数（512*128=64K）
+		SUB		AL,AH
+
+		MOV		AH,BL			; < 通过BX计算AL的最大值并存入AH >
+		CMP		BH,0			; if (BH != 0) { AH = 18; }
+		JE		.skip1
+		MOV		AH,18
+.skip1:
+		CMP		AL,AH			; if (AL > AH) { AL = AH; }
+		JBE		.skip2
+		MOV		AL,AH
+.skip2:
+
+		MOV		AH,19			; < 通过CL计算AL的最大值并存入AH >
+		SUB		AH,CL			; AH = 19 - CL;
+		CMP		AL,AH			; if (AL > AH) { AL = AH; }
+		JBE		.skip3
+		MOV		AL,AH
+.skip3:
+
+		PUSH	BX
+		MOV		SI,0			; 计算失败次数的寄存器
+retry:
+		MOV		AH,0x02			; AH=0x02 : 读取磁盘
+		MOV		BX,0
+		MOV		DL,0x00			; A盘
+		PUSH	ES
+		PUSH	DX
+		PUSH	CX
+		PUSH	AX
+		INT		0x13			; 调用磁盘BIOS
+		JNC		next			; 没有出错的话则跳转至next
+		ADD		SI,1			; 将SI加1
+		CMP		SI,5			; 将SI与5比较
+		JAE		error			; SI >= 5则跳转至error
+		MOV		AH,0x00
+		MOV		DL,0x00		; A盘
+		INT		0x13			; 驱动器重置
+		POP		AX
+		POP		CX
+		POP		DX
+		POP		ES
+		JMP		retry
+next:
+		POP		AX
+		POP		CX
+		POP		DX
+		POP		BX				; 将ES的内容存入BX
+		SHR		BX,5			; 将BX由16字节为单位转换为512字节为单位
+		MOV		AH,0
+		ADD		BX,AX			; BX += AL;
+		SHL		BX,5			; 将BX由512字节为单位转换为16字节为单位
+		MOV		ES,BX			; 相当于EX += AL * 0x20;
+		POP		BX
+		SUB		BX,AX
+		JZ		.ret
+		ADD		CL,AL			; 将CL加上AL
+		CMP		CL,18			; 将CL与18比较
+		JBE		readfast	; CL <= 18则跳转至readfast
+		MOV		CL,1
+		ADD		DH,1
+		CMP		DH,2
+		JB		readfast	; DH < 2则跳转至readfast
+		MOV		DH,0
+		ADD		CH,1
+		JMP		readfast
+.ret:
+		RET
+
+		RESB	0x7dfe-$	; 到0x7dfe为止用0x00填充的指令
+
+		DB		0x55, 0xaa

30_day/haribote/ipl20.nas

@@ -43,10 +43,8 @@ entry:
 		MOV		CH,0			; 柱面0
 		MOV		DH,0			; 磁头0
 		MOV		CL,2			; 扇区2
-
 readloop:
 		MOV		SI,0			; 记录失败次数寄存器
-
 retry:
 		MOV		AH,0x02			; AH=0x02 : 读入磁盘
 		MOV		AL,1			; 1个扇区
@@ -82,8 +80,9 @@ next:
 		JMP		0xc200
 
 error:
+		MOV		AX,0
+		MOV		ES,AX
 		MOV		SI,msg
-
 putloop:
 		MOV		AL,[SI]
 		ADD		SI,1			; 给SI加1
@@ -93,7 +92,6 @@ putloop:
 		MOV		BX,15			; 指定字符颜色
 		INT		0x10			; 调用显卡BIOS
 		JMP		putloop
-
 fin:
 		HLT						; 让CPU停止，等待指令
 		JMP		fin				; 无限循环

30_day/haribote/mouse.c

@@ -16,8 +16,8 @@ void inthandler2c(int *esp)
 	return;
 }
 
-#define KEYCMD_SENDTO_MOUSE   0xd4
-#define MOUSECMD_ENABLE     0xf4
+#define KEYCMD_SENDTO_MOUSE		0xd4
+#define MOUSECMD_ENABLE			0xf4
 
 void enable_mouse(struct FIFO32 *fifo, int data0, struct MOUSE_DEC *mdec)
 {
@@ -31,7 +31,7 @@ void enable_mouse(struct FIFO32 *fifo, int data0, struct MOUSE_DEC *mdec)
 	io_out8(PORT_KEYDAT, MOUSECMD_ENABLE);
 	/* 顺利的话，ACK(0xfa)会被发送*/
 	mdec->phase = 0; /* 等待鼠标的0xfa的阶段*/
-return;
+	return;
 }
 
 int mouse_decode(struct MOUSE_DEC *mdec, unsigned char dat)
@@ -40,13 +40,15 @@ int mouse_decode(struct MOUSE_DEC *mdec, unsigned char dat)
 		/* 等待鼠标的0xfa的阶段 */
 		if (dat == 0xfa) {
 			mdec->phase = 1;
-		}        
+		}
 		return 0;
 	}
 	if (mdec->phase == 1) {
 		/* 等待鼠标第一字节的阶段 */
-		mdec->buf[0] = dat;
-		mdec->phase = 2;
+		if ((dat & 0xc8) == 0x08) {
+			mdec->buf[0] = dat;
+			mdec->phase = 2;
+		}
 		return 0;
 	}
 	if (mdec->phase == 2) {
@@ -67,7 +69,7 @@ int mouse_decode(struct MOUSE_DEC *mdec, unsigned char dat)
 		}
 		if ((mdec->buf[0] & 0x20) != 0) {
 			mdec->y |= 0xffffff00;
-		}      
+		}
 		mdec->y = - mdec->y; /* 鼠标的y方向与画面符号相反 */  
 		return 1;
 	}

30_day/haribote/mtask.c

@@ -1,4 +1,4 @@
-/* 多任务管理 */
+/* <EFBFBD>}<7D><><EFBFBD>`<60>^<5E>X<EFBFBD>N<EFBFBD>֌W */
 
 #include "bootpack.h"
 
@@ -16,7 +16,7 @@ void task_add(struct TASK *task)
 	struct TASKLEVEL *tl = &taskctl->level[task->level];
 	tl->tasks[tl->running] = task;
 	tl->running++;
-	task->flags = 2; /*活动中*/
+	task->flags = 2; /* <20><><EFBFBD>쒆 */
 	return;
 }
 
@@ -25,38 +25,39 @@ void task_remove(struct TASK *task)
 	int i;
 	struct TASKLEVEL *tl = &taskctl->level[task->level];
 
-	/*寻找task所在的位置*/
+	/* task<EFBFBD><EFBFBD><EFBFBD>ǂ<EFBFBD><EFBFBD>ɂ<EFBFBD><EFBFBD>邩<EFBFBD><EFBFBD>T<EFBFBD><EFBFBD> */
 	for (i = 0; i < tl->running; i++) {
 		if (tl->tasks[i] == task) {
-			/*在这里 */
+			/* <20><><EFBFBD><EFBFBD><EFBFBD>ɂ<EFBFBD><C982><EFBFBD> */
 			break;
 		}
 	}
 
 	tl->running--;
 	if (i < tl->now) {
-		tl->now--; /*需要移动成员，要相应地处理 */
+		tl->now--; /* <20><><EFBFBD><EFBFBD><EFBFBD>̂ŁA<C581><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>킹<EFBFBD>Ă<EFBFBD><C482><EFBFBD> */
 	}
 	if (tl->now >= tl->running) {
-		/*如果now的值出现异常，则进行修正*/
+		/* now<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȓl<EFBFBD>ɂȂ<EFBFBD><EFBFBD>Ă<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> */
 		tl->now = 0;
 	}
-	task->flags = 1; /* 休眠中 */
+	task->flags = 1; /* <EFBFBD>X<EFBFBD><EFBFBD><EFBFBD>[<5B>v<EFBFBD><76> */
 
-	/* 移动 */
+	/* <EFBFBD><EFBFBD><EFBFBD>炵 */
 	for (; i < tl->running; i++) {
 		tl->tasks[i] = tl->tasks[i + 1];
 	}
+
 	return;
 }
 
 void task_switchsub(void)
 {
 	int i;
-	/*寻找最上层的LEVEL */
+	/* <20><>ԏ<EFBFBD>̃<EFBFBD><CC83>x<EFBFBD><78><EFBFBD><EFBFBD>T<EFBFBD><54> */
 	for (i = 0; i < MAX_TASKLEVELS; i++) {
 		if (taskctl->level[i].running > 0) {
-			break; /*找到了*/
+			break; /* <20><><EFBFBD>‚<EFBFBD><C282><EFBFBD><EFBFBD><EFBFBD> */
 		}
 	}
 	taskctl->now_lv = i;
@@ -77,7 +78,6 @@ struct TASK *task_init(struct MEMMAN *memman)
 	struct TASK *task, *idle;
 	struct SEGMENT_DESCRIPTOR *gdt = (struct SEGMENT_DESCRIPTOR *) ADR_GDT;
 
-
 	taskctl = (struct TASKCTL *) memman_alloc_4k(memman, sizeof (struct TASKCTL));
 	for (i = 0; i < MAX_TASKS; i++) {
 		taskctl->tasks0[i].flags = 0;
@@ -92,11 +92,11 @@ struct TASK *task_init(struct MEMMAN *memman)
 	}
 
 	task = task_alloc();
-	task->flags = 2; /*活动中标志*/
-	task->priority = 2; /* 0.02秒*/
-	task->level = 0; /*最高LEVEL */
+	task->flags = 2;	/* <20><><EFBFBD>쒆<EFBFBD>}<7D>[<5B>N */
+	task->priority = 2; /* 0.02<EFBFBD>b */
+	task->level = 0;	/* <20>ō<EFBFBD><C58D><EFBFBD><EFBFBD>x<EFBFBD><78> */
 	task_add(task);
-	task_switchsub(); /* LEVEL 设置*/
+	task_switchsub();	/* <EFBFBD><EFBFBD><EFBFBD>x<EFBFBD><EFBFBD><EFBFBD>ݒ<EFBFBD> */
 	load_tr(task->sel);
 	task_timer = timer_alloc();
 	timer_settime(task_timer, task->priority);
@@ -151,7 +151,8 @@ void task_run(struct TASK *task, int level, int priority)
 	if (priority > 0) {
 		task->priority = priority;
 	}
-	if (task->flags == 2 && task->level != level) { 
+
+	if (task->flags == 2 && task->level != level) {
 		/*改变活动中的LEVEL */
 		task_remove(task); /*这里执行之后flag的值会变为1，于是下面的if语句块也会被执行*/
 	}
@@ -160,6 +161,7 @@ void task_run(struct TASK *task, int level, int priority)
 		task->level = level;
 		task_add(task);
 	}
+
 	taskctl->lv_change = 1; /*下次任务切换时检查LEVEL */
 	return;
 }
@@ -181,7 +183,6 @@ void task_sleep(struct TASK *task)
 	return;
 }
 
-
 void task_switch(void)
 {
 	struct TASKLEVEL *tl = &taskctl->level[taskctl->now_lv];

30_day/haribote/tek.c

@@ -231,7 +231,7 @@ static int tek_decode2(int siz, UCHAR *p, UCHAR *q)
 		if (dsiz > bsiz || (hed & 0x21) != 0x01)
 			return 1;
 		if (hed & 0x40)
-			tek_getnum_s7s(&p); 
+			tek_getnum_s7s(&p); /* <20>I<EFBFBD>v<EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ւ̃|<7C>C<EFBFBD><43><EFBFBD>^<5E><>ǂݔ<C782>΂<EFBFBD> */
 		st = tek_lzrestore_stk2(p1 - p, p, dsiz, q);
 	}
 	return st;
@@ -278,7 +278,7 @@ static int tek_lzrestore_tek5(int srcsiz, UCHAR *src, int outsiz, UCHAR *outbuf)
 		lp = pb;
 		pb = wrksiz;
 	}
-	wrksiz = 0x180 * sizeof (UINT32) + (0x840 + (0x300 << (lc + lp))) * sizeof (tek_TPRB); /* Å’á15KB, lc+lp=3‚È‚çA36KB */
+	wrksiz = 0x180 * sizeof (UINT32) + (0x840 + (0x300 << (lc + lp))) * sizeof (tek_TPRB); /* <EFBFBD>Œ<EFBFBD>15KB, lc+lp=3<EFBFBD>Ȃ<EFBFBD>A36KB */
 	work = (int *) memman_alloc_4k((struct MEMMAN *) MEMMAN_ADDR, wrksiz);
 	if (work == NULL)
 		return -1;
@@ -457,7 +457,7 @@ static int tek_decmain5(int *work, UCHAR *src, int osiz, UCHAR *q, int lc, int p
 	for (i = sizeof (struct tek_STR_PRB) / sizeof (tek_TPRB) + (0x300 << (lc + lp)) - 2; i >= 0; i--)
 		((tek_TPRB *) prb)[i] = 1 << 15;
 	for (i = 0; i < 32; i++) {
-		rd->bm[i].lt = (i >= 4);
+		rd->bm[i].lt = (i >= 4); /* 0..3<EFBFBD>͎<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȃ<EFBFBD> */
 		rd->bm[i].lt0 = (i < 24) ? 16 * 1024 : 8 * 1024;
 		rd->bm[i].s &= 0;
 		rd->bm[i].t = rd->bm[i].m = 5;
@@ -466,7 +466,7 @@ static int tek_decmain5(int *work, UCHAR *src, int osiz, UCHAR *q, int lc, int p
 	if (stk) {
 		rd->rmsk = -1 << 11;
 		for (i = 0; i < 32; i++)
-			rd->bm[i].lt = 0;
+			rd->bm[i].lt = 0; /* <20>S<EFBFBD>Ď<EFBFBD><C48E><EFBFBD><EFBFBD>Ȃ<EFBFBD> */
 		for (i = 0; i < 14; i++)
 			rd->ptbm[i] = &rd->bm[0];
 	} else {
@@ -493,7 +493,7 @@ static int tek_decmain5(int *work, UCHAR *src, int osiz, UCHAR *q, int lc, int p
 		rd->bm[22].t = 0; rd->bm[22].m = 1;
 		prb->repg3 = 0xffff;
 		if (flags == -2) { /* z1 */
-			rd->bm[22].lt = 0;
+			rd->bm[22].lt = 0; /* repg3<67><33>lt<6C><74>0<EFBFBD><30> */
 			for (i = 0; i < 14; i++)
 				pt[i] = pt1[i];
 		} else {

30_day/invader/invader.c

@@ -1,9 +1,9 @@
-#include <stdio.h>		/* sprintf */
 #include <string.h>		/* strlen */
 #include "apilib.h"
 
 void putstr(int win, char *winbuf, int x, int y, int col, unsigned char *s);
 void wait(int i, int timer, char *keyflag);
+void setdec8(char *s, int i);
 
 static unsigned char charset[16 * 8] = {
 
@@ -171,7 +171,7 @@ next_group:
 					/* hit ! */
 					score += point;
 					point++;
-					sprintf(s, "%08d", score);
+					setdec8(s, score);
 					putstr(win, winbuf, 10, 0, 7, s);
 					if (high < score) {
 						high = score;
@@ -279,3 +279,15 @@ void wait(int i, int timer, char *keyflag)
 	}
 	return;
 }
+
+void setdec8(char *s, int i)
+/*将i用十进制表示并存入s*/
+{
+	int j;
+	for (j = 7; j >= 0; j--) {
+		s[j] = '0' + i % 10;
+		i /= 10;
+	}
+	s[8] = 0;
+	return;
+}

30_day/mmldata/daigo.org

@@ -0,0 +1,30 @@
+/* 「交響曲第5番 ハ短調 "運命" op. 67」より Ludwig van Beethoven */
+
+$E"SJIS"; $K"交響曲第5番ハ短調 %"運命%" op.67";
+
+T155Q7L8O4
+RGGGE-2.RFFFD4&D1
+RGGGQ8E-Q7A-A-A-Q8GQ7>E-E-E-C8&C2<GGG
+Q8DQ7A-A-A-Q8GQ7>FFFD8&D2GGF
+Q8E-Q7<E-E-FQ8G>Q7GGFQ8E-Q7<E-E-F
+Q8GQ7>GGFL4E-RCRG2.L8R<A-A-A-F4&F1
+RA-A-A-Q8FQ7DDDQ8<BQ7A-A-A-Q8GQ7<GGG
+>>E-A-A-A-Q8FQ7DDDQ8<BQ7A-A-A-Q8GQ7<GGG
+>>E-G>CCQ8C2Q7<BBB>DQ8D2Q7CCCE-Q8E-Q7DQ4DF
+Q8FQ7EQ4EGQ7GQ7FQ4FA-Q8A-Q7GQ4GB-Q8B-Q7A-Q4A->C
+Q8CQ7<BQ4B>DQ7CE-E-E-C<GGGE-C<GGE-CCC<B>>>FDD
+<BGFFD<BGFD<B>CCC>>E-E-E-
+C<AAAG-E-E-E-C<AAAA4R2R4B-4R4
+RB-B-B-E-2F2Q8<B-2>L4B->E-DE-FQ7CQ8CQ7<B-
+Q8B->E-DE-FQ7CQ8CQ7<B-Q8>B->E-DE-FQ7CQ8C<B-
+Q8<B->CD-Q7CQ8<B->C<B-Q7A-Q8>D-E-FQ7E-
+Q8D-E-D-Q7CQ8E-FG-FE-Q7FQ8G-FE-Q7FQ8G-F
+E-Q7FQ8G-FE-FG-FG-Q7AL8B-&B-2Q4>C<B-A-
+Q8A-Q7GQ4FE-Q8E-Q7DQ4CDQ8FQ7E-Q4<B-G
+Q8>DQ7CQ4<A-FQ8>CQ7<B-Q4GE-Q7<B-Q8>>AB-A
+B-AB-Q7AQ4B->C<B-A-Q8A-Q7GQ4FE-Q8E-Q7DQ4CD
+Q8FQ7E-Q4<B-GQ8>DQ7CQ4<A-FQ8>CQ7<B-Q4GE-
+Q7<B->B->B-B-E-GGGE-<B-B-B-GE-E-E-
+Q8<B-Q7>DDDQ8E-Q7>GGGE-<B-B-B-GE-E-E-
+Q8<B-Q7>B-B-B-B-4R4.B-B-B-B-4R4.>DDDE-4
+R1R4

30_day/mmldata/daiku.org

@@ -0,0 +1,17 @@
+/* 「交響曲第9番 ニ短調 "合唱" op.125」より Ludwig van Beethoven  尾崎喜八作詞 */
+
+$E"SJIS";							T110L4
+
+									O4
+$K"晴れたる青空  漂う雲よ";			F+F+GA AGF+E DDEF+ F+.E8E2
+$K"小鳥は歌えり  林に森に";			F+F+GA AGF+E DDEF+ E.D8D2
+$K"心は爽やか  喜び満ちて";			EEF+D EF+8G8F+D EF+8G8F+E DE<A>
+$K"見交わす我らの  明るき笑顔";		F+& F+F+GA AGF+E DDEF+ E.D8D2
+
+									O5
+$K"花咲く丘べに  憩える友よ";		F+F+GA AGF+E DDEF+ F+.E8E2
+$K"吹く風爽やか  みなぎる陽射し";	F+F+GA AGF+E DDEF+ E.D8D2
+$K"心は穏やか  幸せ溢れ";			EEF+D EF+8G8F+D EF+8G8F+E DE<A>
+$K"響くは我らの  喜びの歌";			F+& F+F+GA AGF+E DDEF+ E.D8D2
+
+$K"";								R1

30_day/mmldata/fujisan.org

@@ -0,0 +1,15 @@
+/* 「富士山」 文部省唱歌  巌谷小波作詞 */
+
+$E"SJIS";					T120L4O4
+
+$K"あたまを雲の上に出し";	G.G8AGEC8D8E2		D.G8GF8E8D2.R
+$K"四方の山を見おろして";	G.G8ECA.B8>C<A		G.A8G8F8E8D8C2.R
+$K"かみなりさまを下に聞く";	D.D8DDC8D8E8F8G2	A.B8>C<AG2.R
+$K"富士は日本一の山";		>C2<AGE.E8AG		FED.C8C2.R
+
+$K"青空高くそびえ立ち";		G.G8AGEC8D8E2		D.G8GF8E8D2.R
+$K"からだに雪の着物着て";	G.G8ECA.B8>C<A		G.A8G8F8E8D8C2.R
+$K"霞のすそを遠く曳く";		D.D8DDC8D8E8F8G2	A.B8>C<AG2.R
+$K"富士は日本一の山";		>C2<AGE.E8AG		FED.C8C2.R
+
+$K"";						R1R1

30_day/mmldata/kirakira.org

@@ -0,0 +1,13 @@
+/* 「きらきら星」 フランス民謡  武鹿悦子作詞 */
+
+$E"SJIS";							T120L4O4
+
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"まばたきしては  みんなを見てる";	GGFFEED2 GGFFEED2
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"";								R1
+
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"みんなの歌が  届くといいな";		GGFFEED2 GGFFEED2
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"";								R1 R1

30_day/mmlplay/!cons_9x.bat

@@ -0,0 +1 @@
+command

30_day/mmlplay/!cons_nt.bat

@@ -0,0 +1 @@
+cmd.exe

30_day/mmlplay/Makefile

@@ -0,0 +1,5 @@
+APP      = mmlplay
+STACK    = 132k
+MALLOC   = 0k
+
+include ../app_make.txt

30_day/mmlplay/make.bat

@@ -0,0 +1 @@
+..\..\z_tools\make.exe %1 %2 %3 %4 %5 %6 %7 %8 %9

30_day/mmlplay/mmlplay.c

@@ -0,0 +1,271 @@
+#include "apilib.h"
+
+#include <string.h>	/* strlen */
+
+int strtol(char *s, char **endp, int base);	 /*标准函数<stdlib.h> */
+
+void waittimer(int timer, int time);
+void end(char *s);
+
+void HariMain(void)
+{
+	char winbuf[256 * 112], txtbuf[100 * 1024];
+	char s[32], *p, *r;
+	int win, timer, i, j, t = 120, l = 192 / 4, o = 4, q = 7, note_old = 0;
+
+	/*音号与频率（mHz）的对照表*/
+	/*例如，04A为440Hz，即440000 */
+	/*第16八度的A为1802240Hz，即1802240000 */
+	/*以下为第16八度的列表（C～B） */
+	static int tonetable[12] = {
+		1071618315, 1135340056, 1202850889, 1274376125, 1350154473, 1430438836,
+		1515497155, 1605613306, 1701088041, 1802240000, 1909406767, 2022946002
+	};
+	static int notetable[7] = { +9, +11, +0 /* C */, +2, +4, +5, +7 };
+
+	/*命令行解析*/
+	api_cmdline(s, 30);
+	for (p = s; *p > ' '; p++) { }	/*一直读到空格为止*/
+	for (; *p == ' '; p++) { }	/*跳过空格*/
+	i = strlen(p);
+	if (i > 12) {
+file_error:
+		end("file open error.\n");
+	}
+	if (i == 0) {
+		end(0);
+	}
+
+	/*准备窗口*/
+	win = api_openwin(winbuf, 256, 112, -1, "mmlplay");
+	api_putstrwin(win, 128, 32, 0, i, p);
+	api_boxfilwin(win, 8, 60, 247,  76, 7);
+	api_boxfilwin(win, 6, 86, 249, 105, 7);
+
+	/*载入文件*/
+	i = api_fopen(p);
+	if (i == 0) {
+		goto file_error;
+	}
+	j = api_fsize(i, 0);
+	if (j >= 100 * 1024) {
+		j = 100 * 1024 - 1;
+	}
+	api_fread(txtbuf, j, i);
+	api_fclose(i);
+	txtbuf[j] = 0;
+	r = txtbuf;
+	i = 0; /*通常模式*/
+	for (p = txtbuf; *p != 0; p++) {	/*为了方便处理，将注释和空白删去*/
+		if (i == 0 && *p > ' ') {	/*不是空格或换行符*/
+			if (*p == '/') {
+				if (p[1] == '*') {
+					i = 1;
+				} else if (p[1] == '/') {
+					i = 2;
+				} else {
+					*r = *p;
+					if ('a' <= *p && *p <= 'z') {
+						*r += 'A' - 'a';	/*将小写字母转换为大写字母*/
+					}
+					r++;
+				}
+			} else if (*p == 0x22) {
+				*r = *p;
+				r++;
+				i = 3;
+			} else {
+				*r = *p;
+				r++;
+			}
+		} else if (i == 1 && *p == '*' && p[1] == '/') {	/*段注释*/
+			p++;
+			i = 0;
+		} else if (i == 2 && *p == 0x0a) {	/*行注释*/
+			i = 0;
+		} else if (i == 3) {	/*字符串*/
+			*r = *p;
+			r++;
+			if (*p == 0x22) {
+				i = 0;
+			} else if (*p == '%') {
+				p++;
+				*r = *p;
+				r++;
+			}
+		}
+	}
+	*r = 0;
+
+	/*定时器准备*/
+	timer = api_alloctimer();
+	api_inittimer(timer, 128);
+
+	/*主体*/
+	p = txtbuf;
+	for (;;) {
+		if (('A' <= *p && *p <= 'G') || *p == 'R') {	/*音符、休止符*/
+			/*计算频率*/
+			if (*p == 'R') {
+				i = 0;
+				s[0] = 0;
+			} else {
+				i = o * 12 + notetable[*p - 'A'] + 12;
+				s[0] = 'O';
+				s[1] = '0' + o;
+				s[2] = *p;
+				s[3] = ' ';
+				s[4] = 0;
+			}
+			p++;
+			if (*p == '+' || *p == '-' || *p == '#') {
+				s[3] = *p;
+				if (*p == '-') {
+					i--;
+				} else {
+					i++;
+				}
+				p++;
+			}
+			if (i != note_old) {
+				api_boxfilwin(win + 1, 32, 36, 63, 51, 8);
+				if (s[0] != 0) {
+					api_putstrwin(win + 1, 32, 36, 10, 4, s);
+				}
+				api_refreshwin(win, 32, 36, 64, 52);
+				if (28 <= note_old && note_old <= 107) {
+					api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10,  76, 7);
+				}
+				if (28 <= i && i <= 107) {
+					api_boxfilwin(win, (i - 28) * 3 + 8, 60, (i - 28) * 3 + 10,  76, 4);
+				}
+				if (s[0] != 0) {
+					api_beep(tonetable[i % 12] >> (17 - i / 12));
+				} else {
+					api_beep(0);
+				}
+				note_old = i;
+			}
+			/*音长计算*/
+			if ('0' <= *p && *p <= '9') {
+				i = 192 / strtol(p, &p, 10);
+			} else {
+				i = l;
+			}
+			for (; *p == '.'; ) {
+				p++;
+				i += i / 2;
+			}
+			i *= (60 * 100 / 48);
+			i /= t;
+			if (s[0] != 0 && q < 8 && *p != '&') {
+				j = i * q / 8;
+				waittimer(timer, j);
+				api_boxfilwin(win, 32, 36, 63, 51, 8);
+				if (28 <= note_old && note_old <= 107) {
+					api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10,  76, 7);
+				}
+				note_old = 0;
+				api_beep(0);
+			} else {
+				j = 0;
+				if (*p == '&') {
+					p++;
+				}
+			}
+			waittimer(timer, i - j);
+		} else if (*p == '<') {	/*八度-- */
+			p++;
+			o--;
+		} else if (*p == '>') {	/*八度++ */
+			p++;
+			o++;
+		} else if (*p == 'O') {	/*八度指定*/
+			o = strtol(p + 1, &p, 10);
+		} else if (*p == 'Q') {	/* Q参数指定*/
+			q = strtol(p + 1, &p, 10);
+		} else if (*p == 'L') { /*默认音长指定*/ 
+			l = strtol(p + 1, &p, 10);
+			if (l == 0) {
+				goto syntax_error;
+			}
+			l = 192 / l;
+			for (; *p == '.'; ) {
+				p++;
+				l += l / 2;
+			}
+		} else if (*p == 'T') {	 /*速度指定*/
+			t = strtol(p + 1, &p, 10);
+		} else if (*p == '$') {	/*扩展命令*/
+			if (p[1] == 'K') {	/*卡拉OK命令*/
+				p += 2;
+				for (; *p != 0x22; p++) {
+					if (*p == 0) {
+						goto syntax_error;
+					}
+				}
+				p++;
+				for (i = 0; i < 32; i++) {
+					if (*p == 0) {
+						goto syntax_error;
+					}
+					if (*p == 0x22) {
+						break;
+					}
+					if (*p == '%') {
+						s[i] = p[1];
+						p += 2;
+					} else {
+						s[i] = *p;
+						p++;
+					}
+				}
+				if (i > 30) {
+					end("karaoke too long.\n");
+				}
+				api_boxfilwin(win + 1, 8, 88, 247, 103, 7);
+				s[i] = 0;
+				if (i != 0) {
+					api_putstrwin(win + 1, 128 - i * 4, 88, 0, i, s);
+				}
+				api_refreshwin(win, 8, 88, 248, 104);
+			}
+			for (; *p != ';'; p++) {
+				if (*p == 0) {
+					goto syntax_error;
+				}
+			}
+			p++;
+		} else if (*p == 0) {
+			p = txtbuf;
+		} else {
+syntax_error:
+			end("mml syntax error.\n");
+		}
+	}
+}
+
+void waittimer(int timer, int time)
+{
+	int i;
+	api_settimer(timer, time);
+	for (;;) {
+		i = api_getkey(1);
+		if (i == 'Q' || i == 'q') {
+			api_beep(0);
+			api_end();
+		}
+		if (i == 128) {
+			return;
+		}
+	}
+}
+
+void end(char *s)
+{
+	if (s != 0) {
+		api_putstr0(s);
+	}
+	api_beep(0);
+	api_end();
+}