BASIC編 |
10:CLS :A=65:X=0:Y=0 20:FOR Q=0 TO 13000 30:LOCATE X,Y:PRINT CHR$ A 40:A=A+1:IF A=91 LET A=65 50:X=X+1:IF X=24 LET X=0:Y=Y+1:IF Y=6 LET Y=0:CLS 60:NEXT :CLS :PRINT ”END”:END |
機種 | G850 | G850S | G850V | G850VS | エミュレータ |
タイム | 2分53秒69 | 2分59秒44 | 3分13秒59 | 3分13秒38 | 2分42秒52 |
順位 | 1 | 2 | 4 | 3 | ― |
1位との差 | 0 | 5秒75 | 19秒90 | 19秒69 | ― |
マシン語編 |
10 ORG 100H 20 CALL CLS 30 LD A,65 ;『A』のキャラクタコ−ド 40 LD (BOX),A 50 LD HL,0 ;X=0,Y=0 60 LD (XZA),HL 70 LD BC,13000;ル−プ回数(BASICプログラムに合わせた) 80L1: PUSH BC ;ここからメインル−プ 90 LD DE,(XZA) 100 LD A,(BOX) 110 CALL 0BE62H 120 LD HL,BOX 130 INC (HL) 140 LD A,(HL) 150 CP 91 160 JR NZ,NEX 170 LD (HL),65 180NEX: LD HL,XZA 190 INC (HL) 200 LD A,(HL) 210 CP 24 220 JR NZ,NE2 230 LD (HL),0 240 INC HL 250 INC (HL) 260 LD A,(HL) 270 CP 6 280 JR NZ,NE2 290 LD (HL),0 300 CALL CLS 310NE2: LD BC,0632H;ここからタイマ− 320L2: DEC BC 330 PUSH BC 340 PUSH BC 350 POP BC 360 POP BC 370 LD A,B 380 OR C 390 JR NZ,L2 ;ここまでタイマ− 400 POP BC 410 DEC BC 420 LD A,B 430 OR C 440 JR NZ,L1 450 CALL CLS 460 LD DE,0 470 LD HL,EN 480 LD B,3 490 JP 0BFF1H 500EN: DB ’END’ 510BOX: DB 0 ;キャラコ−ドを入れる箱 520XZA: DB 0 ;X座標 530YZA: DB 0 ;Y座標 540CLS: LD DE,0 ;CLSの代わり(サブル−チン) 550 LD A,20H 560 LD B,24*6 570 JP 0BFEEH |
機種 | G850 | G850S | G850V | G850VS | エミュレータ |
タイム | 2分59秒93 | 3分00秒33 | 2分59秒83 | 2分59秒59 | 2分31秒46 |
順位 | 3 | 4 | 2 | 1 | ― |
1位との差 | 0秒34 | 0秒74 | 0秒24 | 0 | ― |
最後に |