Vol.791 13.Mar.2020

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

F SDを再フォーマットする

by fjk

 ミニPC8001を使用中に誤って電源を落としてしまった。再度電源を投入したところ、ラズパイのシステム(raspbian)が立ち上がらくなった。
 SDにシステムを再構築するために、WindowsパソコンにSDを差し込み、画面の指示に従い、フォーマットを実行し、ミニPC8001のバックアップソフトで、システムイメージのリストアを実行したところ、途中でエラーとなり、システムの再構築が失敗した。
 Windowsアイコンを右クリックし、「ディスクの管理」を選択すると、SDの状態が表示され、起動用の「BOOT」パーテション(FAT32)は4Gb、ラズパイ用の「Linux」パーテション(EXT4)は2Gb、「未割り当て」が約8Gbとなっていた。ラズパイ用のシステム構築には8Gb以上のFAT32パーテションが必要で、パーテションサイズの不足が原因と思われる。そこで、パーテション上でマウスの右クリック後、「ボリュームの削除」を選び、全てのパーテションを削除し、新規に(8Gb以上の)FAT32のパーテション作成した。
 次に、ミニPC8001のバックアップツールで、システムイメージをリストアすると、ミニPC8001が起動するSDを無事再生することができた(データは全て失われたが)。
 この方法は、ミニPC8001で間違ってフォーマットした場合や、他の読めなくなったSDの復活にも使えそう。全てのフォーマットに対応しているわけではないが、試してみる価値はありそう。

miniPC8001の起動エラー ボリュームの確認 ボリュームの削除
FAT32で指定 16Gbのボリューム確保 無事miniPC8001が起動


P PasoconMiniPC8001(8) 〜PCG用パターンエディッタ

by fjk

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

1:パターンデータの編集
2:パターンデータのコピー
3:パターンデータの読込
4:パターンデータの保存
!:プログラムの終了

(7):任意のパターンを任意のPCGへ転送
(8):ROMパターンをPCGにコピー
*括弧付きはオプション機能
パターン作成画面例

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

1.編集(EDIT)モード
@ 編集する文字番号(0-127)を入力すると、(PCGでばなく)編集用ワークメモリのドットパータンが表示され、編集可能となる(初期PCGデータと異なる場合があるので注意!!)。
A「スペースキー」or「5」を押すとドットを反転。「0」はセット、「.」はリセット。
B「1,2、3,4,6,7,8、9」のどれかのキーを押すとドットカーソルが移動する。
C「p」or「*」を押すと連続ドットセットモードとなり、カーソルの移動と共にドットもセットされる。「.」or「n」はドットリセット、「z」or「=」は連続モードを解除。
D「カーソルキー」および「h」は編集する文字を変更できる。
F「e」はパターンクリア、「i」はパターン反転、「r」はパターン90度右回転。
G「c」はパターンコピー、「s」はセーブで、選択中の文字パターンのみが対象。
 
○パターンエディット画面でのキー入力
<ドット画面>
【テンキー】     【フルキー】
1:ドットカーソルを左斜め下に
2:ドットカーソルを下に
3:ドットカーソルを右斜め下に
4:ドットカーソルを左に
5:現在のドットを反転
6:ドットカーソルを右に
7:ドットカーソルを左斜め上に
8:ドットカーソルを上に
9:ドットカーソルを右斜め上に
0:現在位置に点をSET(1)
・:現在位置の点を消す(0)
=:連続ドットモードをRESETに
*:連続ドットモードをSETに
、:連続ドットモードをOFFに
(テンキーと同じ。さらに)

x:編集モード終了(”!”も同じ)

Space:”5”と同じ(ドット反転)
i:パターンの白黒反転
c:パターンコピー
e:パターンをクリア
r:右90°回転
s:現在パターンをファイルにセーブ
z:”=”と同じ
p:”*”と同じ
n:”、”と同じ

<CG文字画面>
→:右の文字へ
↑:上の文字へ
←:左の文字へ
↓:下の文字へ
h:CGコードの直接入力

アドレス入力時の16進数入力には「&Hxx」で入力が可能
 
2.パターンのコピー(モード)
@ 任意の数のパターンデータをコピーできる。
A コピー元の文字番号として0〜255を指定できる(128以降はROMパターン)。
 ・コピー範囲を指定するときは”−”を指定する(例:128−143)。
B コピー先(の先頭)は文字番号として0〜127を指定する。
※ エディットモード時のコピーは、現在のコード番号のみを他にコピー。
 
3.ファイルからパターンの読み込み(モード)
@ 以下の読み込み方法がある
 a. 文字番号を指定してロード:指定したコード番号にパターンを読み込む。
 b. 文字番号入力時にCRのみ入力:記録されているコード番号にパターンを読み込む。
 c. 文字番号に“a”を入力:全パターンを読み込む。
A 上記b.の場合、ファイルに同じ文字番号のデータがあれば、最新のものに上書きされる。
B 文字番号入力時に”a”を入力すると、全パターン(0−127)が読み込まれる。
 
4.ファイルへパターンの書込み(モード)
@ 任意の数のパターンデータを書込みできる。
・書込み範囲を指定するときは”−”を指定する(例:32−47)。
A パターンデータは常に登録時のコード番号(0−127)とパターンデータを記録する。
B コード番号に”a”を入力すると、全パターン(0−127)が書き込まれる。
※ エディットモード時の書込みは、現在のコード番号のみを書き込む。
 
5.オプションモード
「7」メモリ上の任意のパターンデータをPCGに送信する(テスト用)
「8」PC8001のROMパターンをPCGにコピーする(同じコード番号)。
・コピー範囲を指定するときは”−”を指定する(例:32−40)。
・”a”を入力すると、全パターンがコピーされる。
・メモリデータと同じとならないので注意が必要!(コピーコマンドの使用を勧める)
 
※ ファイルを使う場合の注意!!
・ファイルに複数又は全てのパターンをセーブする時は、アペンドモードに設定すること。
・ファイル読み/書き時にフリーズした場合、f9で先頭の位置(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用パターンエディッタ