PC-8801mkII　SR,FR,MR Part12

408 ：ナイコンさん：2014/02/04(火) 21:33:42.04 .net

流れみてて思い出して実機のdisk漁ったら
当時てけとーに打ち込んだBASICプログラム残ってた
漢字ROMから呼び出し→16x8の圧縮フォント表示
変換ルーチン組み込んでないので
入力するコードは直接の漢字ROMアドレスでスマン

10 screen 0:cls 3:defint a-z:dim a(9)
20 input "KANJI ROM ADD",k$:ad=1=val("&h"+left$(k$,2)):ad2=val("&h"+right$(k$,2))
30 a(0)=16:a(1)=8:p=2:for i=0 to 15 steo 2:out &he9,ad1:out &he8,ad2+i
40 l$=hex$(inp(&he8)):r$=right$("0"+hex$(inp(&he9)),2):a1=val("&h"+l$+r$)
50 out &he9,ad1:out &he8,ad2+i+1:l$=hex$(inp(&he8))
60 r$=right$("0"+hex$(inp(&he9)),2):a2=val("&h"+l$+r$)
70 a(p)=a1 or a2:p=p+1:next:put@(0,0),a,pset