Ｐ　PasoconMiniPC8001（8）　〜PCG用パターンエディッタ

ｂｙ　ｆｊｋ

　abc790でPCGが使えることが確認できたので、CG文字パターンを作るエディタを作成した。連続ドットモードにすると、カーソルの移動と共にドットも”SET/RESET”される。なお、起動時はPCGデータと編集データ(初期値＝0)が一致していないので注意（PCGデータを読み出せないため）。
　なお、内容が理解されやすいことを考慮して、全BASICなので速度は遅いです（特に書込み）。

	１：パターンデータの編集 ２：パターンデータのコピー ３：パターンデータの読込 ４：パターンデータの保存 ！：プログラムの終了 （7）：任意のパターンを任意のPCGへ転送 （8）：ROMパターンをPCGにコピー ＊括弧付きはオプション機能
パターン作成画面例

【PCGパターンエディッタの使い方】

１．編集（EDIT）モード

�@ 編集する文字番号（0-127)を入力すると、（PCGでばなく）編集用ワークメモリのドットパータンが表示され、編集可能となる（初期PCGデータと異なる場合があるので注意！！）。

�A「スペースキー」or「5」を押すとドットを反転。「0」はセット、「．」はリセット。

�B「1，2、3，4，6，7，8、9」のどれかのキーを押すとドットカーソルが移動する。

�C「ｐ」or「＊」を押すと連続ドットセットモードとなり、カーソルの移動と共にドットもセットされる。「．」or「ｎ」はドットリセット、「ｚ」or「＝」は連続モードを解除。

�D「カーソルキー」および「ｈ」は編集する文字を変更できる。

�F「e」はパターンクリア、「ｉ」はパターン反転、「ｒ」はパターン90度右回転。

�G「c」はパターンコピー、「ｓ」はセーブで、選択中の文字パターンのみが対象。
　

○パターンエディット画面でのキー入力

＜ドット画面＞

【テンキー】		【フルキー】
１：ドットカーソルを左斜め下に ２：ドットカーソルを下に ３：ドットカーソルを右斜め下に ４：ドットカーソルを左に ５：現在のドットを反転 ６：ドットカーソルを右に ７：ドットカーソルを左斜め上に ８：ドットカーソルを上に ９：ドットカーソルを右斜め上に ０：現在位置に点をSET(１) ・：現在位置の点を消す(０) ＝：連続ドットモードをRESETに ＊：連続ドットモードをSETに 、：連続ドットモードをOFFに		（テンキーと同じ。さらに） ｘ：編集モード終了（”！”も同じ） Space：”５”と同じ（ドット反転） ｉ：パターンの白黒反転 ｃ：パターンコピー ｅ：パターンをクリア ｒ：右90°回転 ｓ：現在パターンをファイルにセーブ ｚ：”＝”と同じ ｐ：”＊”と同じ ｎ：”、”と同じ

＜CG文字画面＞

→：右の文字へ

↑：上の文字へ

←：左の文字へ

↓：下の文字へ

ｈ：CGコードの直接入力

アドレス入力時の16進数入力には「&Hxx」で入力が可能
　

２．パターンのコピー（モード）

�@ 任意の数のパターンデータをコピーできる。

�A コピー元の文字番号として0〜255を指定できる（128以降はROMパターン）。
　・コピー範囲を指定するときは”−”を指定する（例：128−143）。

�B コピー先（の先頭）は文字番号として0〜127を指定する。

※ エディットモード時のコピーは、現在のコード番号のみを他にコピー。
　

３．ファイルからパターンの読み込み（モード）

�@ 以下の読み込み方法がある

a. 文字番号を指定してロード：	指定したコード番号にパターンを読み込む。
b. 文字番号入力時にCRのみ入力：	記録されているコード番号にパターンを読み込む。
c. 文字番号に“ａ”を入力：	全パターンを読み込む。

�A 上記b.の場合、ファイルに同じ文字番号のデータがあれば、最新のものに上書きされる。

�B 文字番号入力時に”ａ”を入力すると、全パターン（0−127）が読み込まれる。
　

４．ファイルへパターンの書込み(モード）

�@ 任意の数のパターンデータを書込みできる。
・書込み範囲を指定するときは”−”を指定する（例：32−47）。

�A パターンデータは常に登録時のコード番号（0−127）とパターンデータを記録する。

�B コード番号に”ａ”を入力すると、全パターン（0−127）が書き込まれる。

※ エディットモード時の書込みは、現在のコード番号のみを書き込む。
　

５．オプションモード

「7」メモリ上の任意のパターンデータをPCGに送信する（テスト用）

「8」PC8001のROMパターンをPCGにコピーする（同じコード番号）。
・コピー範囲を指定するときは”−”を指定する（例：32−40）。
・”ａ”を入力すると、全パターンがコピーされる。
・メモリデータと同じとならないので注意が必要！（コピーコマンドの使用を勧める）
　

※ ファイルを使う場合の注意！！

・ファイルに複数又は全てのパターンをセーブする時は、アペンドモードに設定すること。

・ファイル読み／書き時にフリーズした場合、ｆ9で先頭の位置（0％）に巻き戻すこと
　

pcgptn.cmt(zip)

10 '==== PCG Pattern Editer (pcgptn.bas) 20 DEFINT A-Z: 30 COLOR 7: WIDTH 40,25 40 WL=12: ML=24 :'Working Line No. 50 CONSOLE WL,ML,0,1 :'Message Line No. 60 DIM CC(255,7),CT(7) :'Pattern Data 70 DIM MK(7),MM(7) :'Mask Data 80 DIM B(8) :'File Buffer 100 '--- Data Initialize 110 GOSUB 2710 :'Set Mask Data 120 GOSUB 2910 :'Set KeyWord 130 MS=&H10 :'Strobe for PCG 140 P$="O": R$="." :'PSet/Reset Char. 160 GOSUB 2010 :'Print Graphic char. 170 GOSUB 2210 :'Print Dot Patn. 180 GOSUB 10010 :'Read N-Font 190 CG=0 :'Current Pattern 200 '--- Menu Entry 210 GOSUB 910 :'Locate Working Position 215 INPUT "1:Edit, 2:Copy, 3:Load, 4:Save";K$ 220 IF K$="!" THEN 310 230 S=VAL(K$) 240 ON S GOSUB 3010,4010,6010,5010,,,410,510 250 'GOSUB 2650 :'Clear MS Area 260 GOTO 210 300 '--- End Proc. 310 CONSOLE 0,25,1 320 WIDTH 80,25 350 END 400 '=== Set Char.Data to PCG for test 410 GOSUB 910 415 INPUT "PCG Code(0-127)";CG 420 INPUT "CG Data(0-127)";CP 430 IF CG<0 OR CG>127 OR CP<0 OR CP>127 THEN RETURN 440 GOTO 1220 :'Send to CG 500 '--- Copy ROM Data to PCG 510 GOSUB 910 515 INPUT "ROM-Char Code(0-127)";CG 520 IF CG>127 THEN RETURN 530 IF CG<0 THEN 560 540 GOSUB 1510 :'ROM(CG) -> PCG(CG) 550 RETURN 560 FOR CG=0 TO 127 :'All ROM -> PCG 570 GOSUB 1510 580 NEXT 585 CG = 0 590 RETURN 600 '=== Check Number BB$->NB 610 B$ = BB$ 620 IF LEN(B$)=0 THEN 680 630 IF INSTR(B$,"&H")=1 THEN 660 640 E=ASC(B$) 650 IF E<&H30 OR E>&H39 THEN 680 660 NB = VAL(B$) 670 RETURN 680 NB = -1 :'Non-Num 690 RETURN 700 '--- Sprit Number BB$->B1,B2 710 P=INSTR(BB$,"-") 715 IF P>0 THEN 740 720 GOSUB 610 725 IF NB>=0 THEN B1=NB:B2=B1 730 RETURN 740 B$=MID$(BB$,1,P-1): GOSUB 620 750 IF NB<0 OR NB>255 THEN RETURN 755 B1=NB 760 B$=MID$(BB$,P+1): GOSUB 620 770 IF NB<0 OR NB>255 THEN RETURN 775 B2=NB 780 IF B1>B2 THEN SWAP B1,B2 790 RETURN 800 '--- Print CG Num with MG$ (Dec) 810 LOCATE 0,WL: COLOR 7 :'GOSUB 910 820 PRINT MG$; 830 PRINT USING"[###]";CG; 840 RETURN 850 '--- Print CG Num with MG$ (Hex) 860 LOCATE 0,WL: COLOR 7 :'GOSUB 910 870 PRINT MG$;"[";RIGHT$("0"+HEX$(CG),2);"]"; 880 RETURN 900 '--- Clear Working Erea 910 LOCATE 0,WL: COLOR 7 920 FOR I=0 TO 4 930 PRINT SPC(39) 940 NEXT 950 LOCATE 0,WL 960 RETURN 1000 '=== Send 1-Byte to PGC (CB->AD) 1010 OUT 0,CB 1020 AL = AD AND &HFF :'Entry for ROM Copy 1030 AH = (AD/256) OR MS 1040 OUT 1,AL 1050 OUT 2,AH 1060 AH = AH AND &HCF 1070 OUT 2,AH 1080 RETURN 1200 '--- Send 1-Char Data to PCG 1210 CP = CG :'Entry for Same CG-Code(CG->CG) 1220 A = CG*8 :'Entry for Another Code(CP->CG) 1230 MS = &H10 :'Send Data Mode 1240 FOR I=0 TO 7 1250 CB = CC(CP,I) 1260 AD = A+I 1270 GOSUB 1010 :' 1-Data Byte Send to PCG 1280 NEXT 1290 RETURN 1500 '--- Copy CG-data to PCG 1510 A = CG*8 1520 MS = &H30 :'Copy-ROM Mode 1530 FOR I=0 TO 7 1540 AD = A+I 1550 GOSUB 1020 1560 NEXT 1570 MS = &H10 :'Recover Send-Data Mode 1580 RETURN 2000 '=== Print All Graphic Char 2010 COLOR 4 2020 FOR J=0 TO 7 2030 LOCATE 21,2+J 2040 FOR I=0 TO 15 2050 PRINT CHR$(128+J*16+I); 2060 NEXT I 2070 NEXT J 2080 '--- Set Char. cur. 2100 COLOR 7 :'Selet Color 2110 CX=CG MOD 16: CY=CG/16 2120 LOCATE CX+21,CY+2 2130 PRINT CHR$(CG+128); 2140 RETURN 2150 '--- Clear Char Cur. 2160 COLOR 4 :'UnSelet Color 2170 GOTO 2110 2200 '--- Print All Dot-Patn. 2210 COLOR 7 2220 MG$="Printing": GOSUB 810 2230 FOR DY=0 TO 7 2240 G=CC(CG,DY) 2250 GOSUB 2510 2260 NEXT 2270 GOSUB 2410 :'Print CG-Num.& Cur. 2280 MD = 0 :'Cansel Draw Mode 2290 GOTO 2340 :'Print Mode 2300 '--- Print Mode 2310 LOCATE 17,0 2320 ON MD+1 GOTO 2360,2370,2380 2340 LOCATE 12,0 2350 PRINT"Mode:"; 2360 PRINT "*";: RETURN 2370 PRINT P$; : RETURN 2380 PRINT R$; : RETURN 2400 '--- Print CG-Num.& Char.Cur 2410 LOCATE 1,0 2420 PRINT "Code=";RIGHT$(" "+STR$(CG),3); 2430 GOTO 2100 :'Set char.Cur. 2500 '--- Print Dot bit(G)->line(DY) 2510 FOR X=0 TO 7 2520 LOCATE X,DY+2 2530 IF G AND MK(X) THEN PRINT P$; ELSE PRINT R$; 2540 NEXT 2550 PRINT " ";RIGHT$(" 0"+HEX$(G),2); 2560 RETURN 2700 '--- Set Mask Data 2710 RESTORE 2800 2720 FOR I=0 TO 7 2730 READ MK(I) 2740 NEXT 2750 FOR I=0 TO 7 2760 READ MM(I) 2770 NEXT 2780 RETURN 2790 '--- Bit Mask Data 2800 DATA &H80,&H40,&H20,&H10,&H08,&H04,&H02,&H01 2810 DATA &H7F,&HBF,&HDF,&HEF,&HF7,&HFB,&HFD,&HFE 2900 '--- Set KeyWord List 2910 K1$="0. 5s" 2920 K2$="13792846" 2930 K3$="eir" 2940 K4$="n,p*z=" 2950 K5$="c"+CHR$(28)+CHR$(29)+chr$(30)+chr$(31) 2960 RETURN 3000 '=== Edit Patn. 3010 GOSUB 910 3020 INPUT"Edit CG-Code(0-127)";BB$ 3025 GOSUB 610 :'Chek No.(BB$->NB) 3030 IF NB<0 OR NB>127 THEN 3045 3035 GOSUB 2160 3040 CG=NB 3045 GOSUB 910 3050 GOSUB 2210 :'Print Dot Ptn 3060 DX=0: DY=0 3070 CX=CG MOD 16: CY=CG/16 3080 GOSUB 2410 :'Print CG Num.& Cur. 3090 MD=0: GOSUB 2310 :'Print Mode 3100 '--- *Loop 3110 GOSUB 910: PRINT"cmd ?"; 3120 LOCATE DX,DY+2: K$=INPUT$(1) 3130 IF K$="x" OR K$="!" THEN 2160 3140 S=INSTR(K1$,K$) :'"0. 5s" 3150 IF S=0 THEN 3180 3160 ON S GOSUB 3650,3660,3670,3670,5010 3170 GOTO 3110 3180 S=INSTR(K2$,K$) :'"13792846" 3190 IF S=0 THEN 3240 3200 ON S GOSUB 3590,3590,3580,3580,3590,3580,3560,3570 3210 ON S GOSUB 3560,3570,3560,3570 3220 GOSUB 3610 3230 GOTO 3110 3240 S=INSTR(K3$,K$) :'"eir" 3250 IF S=0 THEN 3280 3260 ON S GOSUB 7010,7210,7410 3270 GOTO 3050 3280 S=INSTR(K4$,K$) :'"n,p*z=" 3290 IF S=0 THEN 3330 3300 MD=(S-1)/2 3310 GOSUB 2310 :'Print Mode 3320 GOTO 3110 3330 S=INSTR(K5$,K$) :'Cursol Code(28,29,30,31) 3340 IF S=0 THEN 3370 3350 IF S>1 THEN GOSUB 2160 :'Clear Char.Cur. 3360 ON S GOTO 3450,3410,3420,3430,3440 3370 IF NOT(K$="h") THEN 3110 :'Goto Loop 3380 GOSUB 2160 :'Clear Char.Cur. 3390 GOTO 3010 :'ReEnter CG-Num 3400 '--- Move Cur.on Char.Screen 3410 IF CX>14 THEN 3100 ELSE CG=CG+1: GOTO 3460 3420 IF CX<1 THEN 3100 ELSE CG=CG-1: GOTO 3460 3430 IF CY<1 THEN 3100 ELSE CG=CG-16:GOTO 3460 3440 IF CY>6 THEN 3100 ELSE CG=CG+16:GOTO 3460 3450 GOSUB 4410 :'Copy 1-char. 3460 GOSUB 2100 :'Dsp. char.Cur. 3470 GOTO 3050 3550 '--- Move Cur. on Patn.Screen 3560 IF DX>0 THEN DX=DX-1: RETURN ELSE RETURN 3570 IF DX<7 THEN DX=DX+1: RETURN ELSE RETURN 3580 IF DY>0 THEN DY=DY-1: RETURN ELSE RETURN 3590 IF DY<7 THEN DY=DY+1: RETURN ELSE RETURN 3600 '--- 1-bit Set or Reset 3610 ON MD GOTO 3650,3660 3620 GOTO 3100 3650 G = CC(CG,DY) OR MK(DX): GOTO 3710 3660 G = CC(CG,DY) AND MM(DX): GOTO 3710 3670 G = CC(CG,DY) XOR MK(DX) 3700 '--- Print Bit & Save to PCG 3710 GOSUB 2510 :' Dot Print G -> Line(DY) 3730 CC(CG,DY)= G 3740 CB = G: AD = CG*8+DY 3750 GOTO 1010 :' Send 1-byte(CB) to PCG(AD) 4000 '=== Copy Patn.Data 4010 GOSUB 910 4015 INPUT "Copy Source (0-255)";BB$ 4020 IF LEN(BB$)=0 OR BB$="c" THEN RETURN 4030 GOSUB 710: IF NB<0 THEN RETURN :'BB$->B1,B2 4040 CS = B1 4050 IF B2=B1 THEN CE=CS ELSE CE=B2 4060 CN = B2 - B1 4065 LOCATE 0,WL+2 4070 INPUT "Copy Dist(0-127)";BB$ 4080 GOSUB 610: IF NB<0 OR NB>127 THEN RETURN 4090 CD = NB 4100 IF CD+CN>127 THEN RETURN 4110 GOSUB 910: MG$="Copying" 4120 GOSUB 4210 4130 GOTO 2210 4200 '--- Copy Patn. (CS-CE)->CD.. 4210 CJ = 0 :GOSUB 2160 4220 FOR CG=CS TO CE 4225 GOSUB 810 4230 GOSUB 4530 :'Copy 1-Char 4240 CJ = CJ+1 4250 NEXT 4260 FOR CG=CD TO CD+CN 4270 GOSUB 1210 :'Send 1-char to PCG 4280 NEXT 4290 CG = CD 4300 RETURN

4400 '--- Copy 1-char(CG) & Dsp. 4410 GOSUB 910 4425 INPUT"Copy Dist(0-127)";BB$ 4430 GOSUB 610 4435 IF NB<0 OR NB>127 THEN RETURN 4440 GOSUB 2160 4450 CD = NB 4460 GOSUB 910 4470 GOSUB 4510 4480 CG = CD 4490 GOTO 1210 4500 '-- Copy 1 char (CG->CD+CJ) 4510 MG$="Copying": GOSUB 810 4520 CJ = 0 4530 FOR I=0 to 7 4540 CC(CD+CJ,I) = CC(CG,I) 4550 NEXT 4560 RETURN 5000 '=== Save CG-Data to File 5010 GOSUB 910 ' 5015 INPUT "Save Char Code(0-127)";BB$ 5020 IF BB$="a" THEN 5070 5030 GOSUB 710 :'Sprit Num. 5040 IF NB<0 OR B1>127 OR B2>127 THEN RETURN 5060 CS = B1:CE = B2: GOTO 5080 5070 CS = 0: CE = 127 5080 GOSUB 5210 :'Save CS-CE 5090 RETURN 5100 '--- Save 1-char(CG) 5110 GOSUB 910: PRINT USING "[###]";CG; 5115 INPUT" Save Sure?(y or n)";K$ 5120 IF NOT(K$="y") THEN RETURN 5130 GOTO 5510 5200 '--- Save CS to CE 5210 GOSUB 910: PRINT CS;"-";CE; 5215 INPUT",Save Sure?(y or n)";K$ 5220 IF NOT(K$="y") THEN RETURN 5230 GOSUB 2160 5240 GOSUB 910 5250 FOR CG=CS TO CE 5260 GOSUB 5510 :'Save to File 5270 NEXT 5280 CG = CS 5290 RETURN 5500 '--- Save 1-Patn 5510 B(0) = CG 5520 FOR I=0 TO 7 5530 B(I+1) = CC(CG,I) 5540 NEXT 5550 MG$ = "Saving": GOSUB 810 5560 PRINT#-1,B(0),B(1),B(2),B(3),B(4),B(5),B(6),B(7),B(8) 5570 RETURN 6000 '=== Load CG-Data from File 6010 GOSUB 910 ' 6015 INPUT "Load Char Code(0-127)";BB$ 6020 IF LEN(BB$)=0 THEN 6510 6030 IF BB$="a" THEN 6090 6040 GOSUB 710 :'Sprit Num.(BB$->NB,B1,B2) 6050 IF NB<0 OR B1>127 OR B2>127 THEN RETURN :'Error! 6070 IF B1=B2 THEN 6410 6080 CS = B1:CE = B2: GOTO 6100 6090 CS = 0: CE = 127 6100 GOSUB 6310 :'Load Data(CS-CE) 6110 GOSUB 910 6115 PRINT "Load Done!" 6120 FOR CG=CS TO CE 6130 GOSUB 1210 :'Send to PC 6140 NEXT 6150 CG = CS 6160 GOTO 2220 :'Print Dot(CG) 6300 '--- Load CS to CE 6310 GOSUB 910: PRINT CS;"-";CE; 6315 INPUT",Load Sure?(y or n)";K$ 6320 IF NOT(K$="y") THEN RETURN 6330 GOSUB 2160 6340 GOSUB 910 6350 FOR CG=CS TO CE 6360 GOSUB 6460 :'Load from File 6370 NEXT 6380 CG = CS 6390 RETURN 6400 '--- Load 1-Patn, & Dot Dsp. 6410 CG = B1 :'CG=input(B1) 6420 GOSUB 6450 6430 GOTO 2220 :'Print Dot(CG) 6440 '-- Load 1-Patn. (CG) 6450 GOSUB 910 6460 MG$="Loading": GOSUB 810 6470 INPUT#-1,B(0),B(1),B(2),B(3),B(4),B(5),B(6),B(7),B(8) 6480 GOSUB 6560 :'Load from File 6490 GOTO 1210 :'Send to PCG 6500 '--- Load 1-Patn. (B(0)->CG) 6510 GOSUB 910 6520 MG$="Loading": PRINT MG$; 6530 INPUT#-1,B(0),B(1),B(2),B(3),B(4),B(5),B(6),B(7),B(8) 6540 CG = B(0) :'CG=file(CG-Num) 6550 GOSUB 810 6560 FOR I=0 TO 7 6570 CC(CG,I) = B(I+1) 6580 NEXT 6590 RETURN 7000 '=== Erase Patn. 7010 GOSUB 910: PRINT"Erase ";CG;"("HEX$(CG);"H)"; 7015 INPUT" Sure?(y or n)";K$ 7020 IF NOT(K$="y") THEN RETURN 7030 GOSUB 910: PRINT "Erase Start"; 7040 FOR I=0 TO 7 7050 CC(CG,I) = 0 7060 NEXT 7070 GOTO 1210 7200 '--- Inverse Patn. 7210 GOSUB 910: PRINT"Invers start"; 7220 FOR I=0 TO 7 7230 CC(CG,I) = CC(CG,I) XOR &HFF 7240 NEXT 7250 GOTO 1210 7400 '--- Rotate Patn. (right) 7410 GOSUB 910: PRINT "Rotate Start"; 7420 FOR J=0 TO 7 7430 CT(J) = 0 7440 FOR I=0 TO 7 7450 IF (CC(CG,I) AND MK(J)) = 0 THEN 7470 7460 CT(J) = CT(J) OR MK(7-I) 7470 NEXT I 7480 NEXT J 7490 FOR J=0 TO 7 7500 CC(CG,J) = CT(J) 7510 NEXT 7520 GOTO 1210 10000 '=== CG-ROM Pattern Data Set 10010 GOSUB 910: PRINT "Reading CG Data" 10020 RESTORE 10128 10030 FOR CG=128 TO 255 10040 FOR I=0 TO 7 10050 READ CC(CG,I) 10060 NEXT 10070 NEXT 10080 RETURN 10100 '--- CG-ROM Data 10128 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&HFF :'&H80 10129 DATA &H00,&H00,&H00,&H00,&H00,&H00,&HFF,&HFF :'&H81 10130 DATA &H00,&H00,&H00,&H00,&H00,&HFF,&HFF,&HFF :'&H82 10131 DATA &H00,&H00,&H00,&H00,&HFF,&HFF,&HFF,&HFF :'&H83 10132 DATA &H00,&H00,&H00,&HFF,&HFF,&HFF,&HFF,&HFF :'&H84 10133 DATA &H00,&H00,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF :'&H85 10134 DATA &H00,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF :'&H86 10135 DATA &HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF :'&H87 10136 DATA &H80,&H80,&H80,&H80,&H80,&H80,&H80,&H80 :'&H88 10137 DATA &HC0,&HC0,&HC0,&HC0,&HC0,&HC0,&HC0,&HC0 :'&H89 10138 DATA &HE0,&HE0,&HE0,&HE0,&HE0,&HE0,&HE0,&HE0 :'&H8A 10139 DATA &HF0,&HF0,&HF0,&HF0,&HF0,&HF0,&HF0,&HF0 :'&H8B 10140 DATA &HF8,&HF8,&HF8,&HF8,&HF8,&HF8,&HF8,&HF8 :'&H8C 10141 DATA &HFC,&HFC,&HFC,&HFC,&HFC,&HFC,&HFC,&HFC :'&H8D 10142 DATA &HFE,&HFE,&HFE,&HFE,&HFE,&HFE,&HFE,&HFE :'&H8E 10143 DATA &H08,&H08,&H08,&H08,&HFF,&H08,&H08,&H08 :'&H8F 10144 DATA &H08,&H08,&H08,&H08,&HFF,&H08,&H08,&H08 :'&H90 10145 DATA &H00,&H00,&H00,&H00,&HFF,&H08,&H08,&H08 :'&H91 10146 DATA &H08,&H08,&H08,&H08,&HF8,&H08,&H08,&H08 :'&H92 10147 DATA &H08,&H08,&H08,&H08,&H0F,&H08,&H08,&H08 :'&H93 10148 DATA &HFF,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&H94 10149 DATA &H00,&H00,&H00,&H00,&HFF,&H00,&H00,&H00 :'&H95 10150 DATA &H08,&H08,&H08,&H08,&H08,&H08,&H08,&H08 :'&H96 10151 DATA &H01,&H01,&H01,&H01,&H01,&H01,&H01,&H01 :'&H97 10152 DATA &H00,&H00,&H00,&H00,&H0F,&H08,&H08,&H08 :'&H98 10153 DATA &HF0,&H08,&H08,&H08,&H00,&H00,&H00,&H00 :'&H99 10154 DATA &H08,&H08,&H08,&H08,&H0F,&H00,&H00,&H00 :'&H9A 10155 DATA &H08,&H08,&H08,&H08,&HF8,&H00,&H00,&H00 :'&H9B 10156 DATA &H00,&H00,&H00,&H00,&H03,&H04,&H08,&H08 :'&H9C 10157 DATA &H00,&H00,&H00,&H00,&HE0,&H10,&H08,&H08 :'&H9D 10158 DATA &H08,&H08,&H04,&H03,&H00,&H00,&H00,&H00 :'&H9E 10159 DATA &H08,&H08,&H10,&HE0,&H00,&H00,&H00,&H00 :'&H9F 10160 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HA0 10161 DATA &H00,&H00,&H00,&H00,&H38,&H28,&H38,&H00 :'&HA1 10162 DATA &H1C,&H10,&H00,&H10,&H00,&H00,&H00,&H00 :'&HA2 10163 DATA &H00,&H00,&H00,&H08,&H08,&H08,&H78,&H00 :'&HA3 10164 DATA &H00,&H00,&H00,&H00,&H20,&H10,&H08,&H00 :'&HA4 10165 DATA &H00,&H00,&H00,&H38,&H38,&H38,&H00,&H00 :'&HA5 10166 DATA &H00,&H7E,&H02,&H7E,&H02,&H04,&H3C,&H00 :'&HA6 10167 DATA &H00,&H00,&H3E,&H01,&H0C,&H08,&H10,&H00 :'&HA7 10168 DATA &H00,&H00,&H04,&H08,&H18,&H28,&H08,&H00 :'&HA8 10169 DATA &H00,&H00,&H08,&H3E,&H21,&H02,&H1C,&H00 :'&HA9 10170 DATA &H00,&H00,&H3E,&H08,&H08,&H08,&H3E,&H00 :'&HAA 10171 DATA &H00,&H00,&H04,&H3E,&H0C,&H14,&H24,&H00 :'&HAB 10172 DATA &H00,&H00,&H20,&H3E,&H22,&H24,&H20,&H00 :'&HAC 10173 DATA &H00,&H00,&H00,&H1C,&H04,&H04,&H3E,&H00 :'&HAD 10174 DATA &H00,&H00,&H00,&H3C,&H3C,&H04,&H3C,&H00 :'&HAE 10175 DATA &H00,&H00,&H00,&H2A,&H2A,&H02,&H0C,&H00 :'&HAF 10176 DATA &H00,&H00,&H00,&H3E,&H00,&H00,&H00,&H00 :'&HB0 10177 DATA &H7E,&H02,&H02,&H14,&H18,&H10,&H20,&H00 :'&HB1 10178 DATA &H02,&H04,&H08,&H18,&H28,&H48,&H08,&H00 :'&HB2 10179 DATA &H08,&H7E,&H42,&H42,&H02,&H04,&H38,&H00 :'&HB3 10180 DATA &H00,&H3E,&H08,&H08,&H08,&H08,&H3E,&H00 :'&HB4 10181 DATA &H08,&H7E,&H08,&H18,&H28,&H48,&H08,&H00 :'&HB5 10182 DATA &H10,&H7E,&H12,&H12,&H12,&H12,&H24,&H00 :'&HB6 10183 DATA &H08,&H3E,&H08,&H3E,&H08,&H08,&H08,&H00 :'&HB7 10184 DATA &H1E,&H22,&H42,&H04,&H08,&H10,&H60,&H00 :'&HB8 10185 DATA &H20,&H3E,&H48,&H08,&H08,&H08,&H10,&H00 :'&HB9 10186 DATA &H7E,&H02,&H02,&H02,&H02,&H02,&H7E,&H00 :'&HBA 10187 DATA &H24,&H7E,&H24,&H24,&H04,&H08,&H10,&H00 :'&HBB 10188 DATA &H00,&H70,&H00,&H72,&H02,&H04,&H78,&H00 :'&HBC 10189 DATA &H7E,&H02,&H04,&H08,&H18,&H24,&H42,&H00 :'&HBD 10190 DATA &H20,&H7E,&H22,&H24,&H20,&H20,&H1E,&H00 :'&HBE 10191 DATA &H42,&H42,&H22,&H02,&H04,&H08,&H10,&H00 :'&HBF 10192 DATA &H1E,&H22,&H62,&H14,&H08,&H10,&H60,&H00 :'&HC0 10193 DATA &H04,&H38,&H08,&H7E,&H08,&H08,&H70,&H00 :'&HC1 10194 DATA &H00,&H52,&H52,&H52,&H04,&H08,&H30,&H00 :'&HC2 10195 DATA &H3C,&H00,&H7E,&H08,&H08,&H10,&H20,&H00 :'&HC3 10196 DATA &H10,&H10,&H10,&H18,&H14,&H10,&H10,&H00 :'&HC4 10197 DATA &H08,&H08,&H3E,&H08,&H08,&H10,&H20,&H00 :'&HC5 10198 DATA &H00,&H3C,&H00,&H00,&H00,&H00,&H7E,&H00 :'&HC6 10199 DATA &H00,&H3E,&H02,&H14,&H08,&H14,&H20,&H00 :'&HC7 10200 DATA &H08,&H3E,&H04,&H08,&H1C,&H2A,&H08,&H00 :'&HC8 10201 DATA &H02,&H02,&H02,&H04,&H08,&H10,&H20,&H00 :'&HC9 10202 DATA &H10,&H08,&H04,&H42,&H42,&H42,&H42,&H00 :'&HCA 10203 DATA &H40,&H40,&H7E,&H40,&H40,&H40,&H3E,&H00 :'&HCB 10204 DATA &H00,&H3E,&H02,&H02,&H04,&H08,&H30,&H00 :'&HCC 10205 DATA &H00,&H10,&H28,&H44,&H02,&H02,&H00,&H00 :'&HCD 10206 DATA &H08,&H3E,&H08,&H08,&H2A,&H2A,&H08,&H00 :'&HCE 10207 DATA &H7E,&H02,&H02,&H04,&H28,&H10,&H08,&H00 :'&HCF 10208 DATA &H00,&H3C,&H00,&H3C,&H00,&H7C,&H02,&H00 :'&HD0 10209 DATA &H04,&H08,&H10,&H20,&H48,&H7C,&H02,&H00 :'&HD1 10210 DATA &H00,&H02,&H02,&H14,&H08,&H14,&H60,&H00 :'&HD2 10211 DATA &H00,&H3E,&H10,&H3E,&H10,&H10,&H1E,&H00 :'&HD3 10212 DATA &H20,&H7E,&H22,&H24,&H20,&H20,&H20,&H00 :'&HD4 10213 DATA &H00,&H38,&H08,&H08,&H08,&H08,&H7E,&H00 :'&HD5 10214 DATA &H7E,&H02,&H02,&H7E,&H02,&H02,&H7E,&H00 :'&HD6 10215 DATA &H3C,&H00,&H7E,&H02,&H04,&H08,&H10,&H00 :'&HD7 10216 DATA &H42,&H42,&H42,&H42,&H02,&H04,&H0C,&H00 :'&HD8 10217 DATA &H28,&H28,&H28,&H2A,&H2A,&H2C,&H48,&H00 :'&HD9 10218 DATA &H20,&H20,&H20,&H22,&H24,&H28,&H30,&H00 :'&HDA 10219 DATA &H00,&H7E,&H42,&H42,&H42,&H42,&H7E,&H00 :'&HDB 10220 DATA &H00,&H7E,&H42,&H42,&H02,&H04,&H0C,&H00 :'&HDC 10221 DATA &H00,&H70,&H02,&H02,&H04,&H08,&H70,&H00 :'&HDD 10222 DATA &H10,&H48,&H20,&H00,&H00,&H00,&H00,&H00 :'&HDE 10223 DATA &H70,&H50,&H70,&H00,&H00,&H00,&H00,&H00 :'&HDF 10224 DATA &H00,&H00,&HFF,&H00,&H00,&HFF,&H00,&H00 :'&HE0 10225 DATA &H08,&H08,&H0F,&H08,&H08,&H0F,&H08,&H08 :'&HE1 10226 DATA &H08,&H08,&HFF,&H08,&H08,&HFF,&H08,&H08 :'&HE2 10227 DATA &H08,&H08,&HF8,&H08,&H08,&HF8,&H08,&H08 :'&HE3 10228 DATA &H01,&H03,&H07,&H0F,&H1F,&H3F,&H7F,&HFF :'&HE4 10229 DATA &H80,&HC0,&HE0,&HF0,&HF8,&HFC,&HFE,&HFF :'&HE5 10230 DATA &HFF,&H7F,&H3F,&H1F,&H0F,&H07,&H03,&H01 :'&HE6 10231 DATA &HFF,&HFE,&HFC,&HF8,&HF0,&HE0,&HC0,&H80 :'&HE7 10232 DATA &H08,&H1C,&H3E,&H7F,&H7F,&H1C,&H3E,&H00 :'&HE8 10233 DATA &H36,&H7F,&H7F,&H7F,&H3E,&H1C,&H08,&H00 :'&HE9 10234 DATA &H08,&H1C,&H3E,&H7F,&H3E,&H1C,&H08,&H00 :'&HEA 10235 DATA &H1C,&H1C,&H7F,&H7F,&H6B,&H08,&H3C,&H00 :'&HEB 10236 DATA &H00,&H3C,&H7E,&H7E,&H7E,&H7E,&H3C,&H00 :'&HEC 10237 DATA &H00,&H3C,&H42,&H42,&H42,&H42,&H3C,&H00 :'&HED 10238 DATA &H01,&H02,&H04,&H08,&H10,&H20,&H40,&H80 :'&HEE 10239 DATA &H80,&H40,&H20,&H10,&H08,&H04,&H02,&H01 :'&HEF 10240 DATA &H81,&H42,&H24,&H18,&H18,&H24,&H42,&H81 :'&HF0 10241 DATA &H7F,&H49,&H49,&H7F,&H41,&H41,&H41,&H00 :'&HF1 10242 DATA &H40,&H7E,&H48,&H3C,&H28,&H7E,&H08,&H00 :'&HF2 10243 DATA &H3F,&H21,&H3F,&H21,&H3F,&H21,&H41,&H00 :'&HF3 10244 DATA &H7F,&H41,&H41,&H7F,&H41,&H41,&H7F,&H00 :'&HF4 10245 DATA &H04,&HEE,&HA4,&HEF,&HA4,&HEF,&H0A,&H02 :'&HF5 10246 DATA &H00,&H18,&H24,&H42,&H3C,&H14,&H24,&H00 :'&HF6 10247 DATA &H3A,&H12,&H7F,&H17,&H3B,&H52,&H14,&H00 :'&HF7 10248 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HF8 10249 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HF9 10250 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HFA 10251 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HFB 10252 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HFC 10253 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HFD 10254 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HFE 10255 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00 :'&HFF

---

SDを再フォーマットする PasoconMiniPC8001（8）〜PCG用パターンエディッタ

---