;LSI C parser ver 3.5.12 for WonderWitch Copyright (C) 1988-2000 by LSI JAPAN [Apr 14 2000] ;LSI i8086 CG ver 3.5.12 for WonderWitch Copyright (C) 1988-1991, 1995-2000 by LSI JAPAN [Apr 14 2000] CGROUP GROUP TEXT DGROUP GROUP DATA,BSS TEXT CSEG DATA DSEG BSS DSEG TEXT CSEG ;/*---------------------------------------------------------------------------------------- ; Ver1.00 01/01/23 22:45:32 ;----------------------------------------------------------------------------------------*/ ; ;#include "..\WWCMain.h" ;#include "Hello.h" ; ;/*---------------------------------------------------------------------------------------- ; グローバル変数 ;----------------------------------------------------------------------------------------*/ ; ;UCHAR ImageBuf1[15*5*32]; ; ;/*---------------------------------------------------------------------------------------- ; WWCInitはWWCToolが管理しています。 ;----------------------------------------------------------------------------------------*/ ;/*WWCTool*/ ; ;/*--------------------------------------------------------------------------------------*/ ; ;void WWCInit(void) _WWCInit:: ;{ ; ; Form->StartClose = true; MOV BX,[_Form].W MOV AL,[28+BX].B AND AL,~2 OR AL,2 MOV [28+BX].B,AL ; Form->OnCreate = &EFormCreate; MOV BX,[_Form].W MOV [2+BX].W,_EFormCreate ; Image1->Image = ImageBuf1; MOV BX,[_Image+2].W MOV [6+BX].W,_ImageBuf1 MOV 2[6+BX].W,DS ; Image1->Enabled = true; MOV BX,[_Image+2].W MOV AL,[14+BX].B AND AL,~1 OR AL,1 MOV [14+BX].B,AL ; Image1->Left = 1; MOV BX,[_Image+2].W MOV [2+BX].B,1 ; Image1->Top = 1; MOV BX,[_Image+2].W MOV [3+BX].B,1 ; Image1->Width = 15; MOV BX,[_Image+2].W MOV [4+BX].B,15 ; Image1->Height = 5; MOV BX,[_Image+2].W MOV [5+BX].B,5 ; Image1->ImageWidth = 15; MOV BX,[_Image+2].W MOV [12+BX].B,15 ; Image1->ImageHeight = 5; MOV BX,[_Image+2].W MOV [13+BX].B,5 ; Form->Color = (BLUE<<4)|BLUE; MOV BX,[_Form].W MOV [29+BX].B,204 ;} RET ; ;/*--------------------------------------------------------------------------------------*/ ; ;void EFormCreate(void) _EFormCreate:: ;{ ; ImagePuts(Image1, 1, 1, "Hello, World!", WHITE, BLACK); XOR AL,AL PUSH AX MOV AL,15 PUSH AX MOV AX,Z1 PUSH DS PUSH AX MOV AX,1 PUSH AX MOV AX,1 PUSH AX PUSH [_Image+2].W CALL _ImagePuts ADD SP,14 ;} RET DATA DSEG EVEN Z1: DB 72 DB 101 DB 108 DB 108 DB 111 DB 44 DB 32 DB 87 DB 111 DB 114 DB 108 DB 100 DB 33 DB 0 BSS DSEG EVEN _ImageBuf1:: RS 2400 EXTRN _Form EXTRN _Image EXTRN _ImagePuts ;core used: 5307/34304 END