☆ これからはＱｂａｓｉｃの時代！
46 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：
- PAGE 1 -
DEFSNG A-Z: SCREEN 13
DIM CLS16%(20), CLS32%(20)
DEF SEG = VARSEG(CLS16%(0)): AD = 0
RESTORE M16ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(CLS16%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP
DEFSNG A-Z: SCREEN 13
DIM CLS16%(20), CLS32%(20)
DEF SEG = VARSEG(CLS16%(0)): AD = 0
RESTORE M16ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(CLS16%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP
|
|
|
47 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:17
- PAGE 2 -
DEF SEG = VARSEG(CLS32%(0)): AD = 0
RESTORE M32ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(CLS32%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP
M16ADR:
DATA B8,00,A0,8E,C0,B9,00,7D
DATA BF,00,00,B8,00,00,FC,F3
DATA AB,CB,*
DEF SEG = VARSEG(CLS32%(0)): AD = 0
RESTORE M32ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(CLS32%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP
M16ADR:
DATA B8,00,A0,8E,C0,B9,00,7D
DATA BF,00,00,B8,00,00,FC,F3
DATA AB,CB,*
48 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:18
- PAGE 3 -
'00000 B8 A000 MOV AX,0A000H
'00003 8E C0 MOV ES,AX
'00005 B9 7D00 MOV CX,(320*200)/2
'00008 BF 0000 MOV DI,0
'0000B B8 0000 MOV AX,0
'0000E FC CLD
'0000F F3 AB REP STOSW
'00011 CB RETF
'00000 B8 A000 MOV AX,0A000H
'00003 8E C0 MOV ES,AX
'00005 B9 7D00 MOV CX,(320*200)/2
'00008 BF 0000 MOV DI,0
'0000B B8 0000 MOV AX,0
'0000E FC CLD
'0000F F3 AB REP STOSW
'00011 CB RETF
49 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:18
- PAGE 4 -
M32ADR:
DATA B8,00,A0,8E,C0,B9,80,3E
DATA BF,00,00,66,B8,00,00,00
DATA 00,FC,F3,66,AB,CB,*
M32ADR:
DATA B8,00,A0,8E,C0,B9,80,3E
DATA BF,00,00,66,B8,00,00,00
DATA 00,FC,F3,66,AB,CB,*
50 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:19
- PAGE 5 -
'00000 B8 A000 MOV AX,0A000H
'00003 8E C0 MOV ES,AX
'00005 B9 3E80 MOV CX,(320*200)/4
'00008 BF 0000 MOV DI,0
'0000B 66 B8 00000000 MOV EAX,0
'00011 FC CLD
'00012 F3 66 AB REP STOSD
'00015 CB RETF
'00000 B8 A000 MOV AX,0A000H
'00003 8E C0 MOV ES,AX
'00005 B9 3E80 MOV CX,(320*200)/4
'00008 BF 0000 MOV DI,0
'0000B 66 B8 00000000 MOV EAX,0
'00011 FC CLD
'00012 F3 66 AB REP STOSD
'00015 CB RETF
51 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:19
- PAGE 6 -
T1$ = TIME$
FOR J = 0 TO 10000: CLS : NEXT J
T2$ = TIME$
T3$ = TIME$
FOR J = 0 TO 10000: LINE (0, 0)-STEP(319, 199), 0, BF: NEXT J
T4$ = TIME$
T1$ = TIME$
FOR J = 0 TO 10000: CLS : NEXT J
T2$ = TIME$
T3$ = TIME$
FOR J = 0 TO 10000: LINE (0, 0)-STEP(319, 199), 0, BF: NEXT J
T4$ = TIME$
52 ：デフォルトの名無しさん：03/03/16 11:22
QBasicは実用では何に使われてるんだ？
53 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:30
>>52
ガキがナマ言ってんじゃねえよ（大藁
ガキがナマ言ってんじゃねえよ（大藁
54 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:30
- PAGE 7 -
T5$ = TIME$
DEF SEG = VARSEG(CLS16%(0))
FOR J = 0 TO 10000: CALL ABSOLUTE(VARPTR(CLS16%(0))): NEXT J
T6$ = TIME$
T7$ = TIME$
DEF SEG = VARSEG(CLS32%(0))
FOR J = 0 TO 10000: CALL ABSOLUTE(VARPTR(CLS32%(0))): NEXT J
T8$ = TIME$
T5$ = TIME$
DEF SEG = VARSEG(CLS16%(0))
FOR J = 0 TO 10000: CALL ABSOLUTE(VARPTR(CLS16%(0))): NEXT J
T6$ = TIME$
T7$ = TIME$
DEF SEG = VARSEG(CLS32%(0))
FOR J = 0 TO 10000: CALL ABSOLUTE(VARPTR(CLS32%(0))): NEXT J
T8$ = TIME$
55 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:30
- PAGE 8 -
PRINT "CLS - "; T2$; " - "; T1$ '107sec. Speedrate=1
PRINT "LINE - "; T4$; " - "; T3$ ' 67sec. =1.597
PRINT "CLS16 - "; T6$; " - "; T5$ ' 34sec. =3.147
PRINT "CLS32 - "; T8$; " - "; T7$ ' 27sec. =3.962
DEF SEG
PRINT "CLS - "; T2$; " - "; T1$ '107sec. Speedrate=1
PRINT "LINE - "; T4$; " - "; T3$ ' 67sec. =1.597
PRINT "CLS16 - "; T6$; " - "; T5$ ' 34sec. =3.147
PRINT "CLS32 - "; T8$; " - "; T7$ ' 27sec. =3.962
DEF SEG
56 ：デフォルトの名無しさん：03/03/16 11:33
>>53
QBASICそんなに有名？
QBASICそんなに有名？
57 ：EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk ：03/03/16 11:35
まあつーワケでよ、ＣＬＳ文のノロさを証明してやったまでだな。
画面関係はＣＡＬＬ呼出しでマシン語ルーチン書いた方がフツー
に速いな。ＰＵＴ文なんかもな。
>>52
ま、参考までに教えてやるがオレの実用ってのはな、純粋に
” 遊び ” だ。それ以外にパソコンが役に立つこたねえな（ゲラ
画面関係はＣＡＬＬ呼出しでマシン語ルーチン書いた方がフツー
に速いな。ＰＵＴ文なんかもな。
>>52
ま、参考までに教えてやるがオレの実用ってのはな、純粋に
” 遊び ” だ。それ以外にパソコンが役に立つこたねえな（ゲラ