プチコンまとめWiki (初代/mkII)

投稿プログラム : RLE Sample

パンくずリスト

2013年01月04日投稿 / 投稿者 : uniskie / タグ : 投稿プログラム 実用ツール QRコード mkII専用

2013/1/7 コード修正＆QRコード差し替えしました。

概要

ランレングスエンコード形式の圧縮・解凍サンプルです。
圧縮元、展開先はCHRリソースで、圧縮データはGRPに格納します。
圧縮と展開のサンプルですので、適当に参考にしてください。

  • ランレングスとは 連続した色が並んでいる部分を圧縮するものです。 
    ※同じ色が並んでいる部分が少ない場合、圧縮前よりも大きくなってしまう場合もあります。
  • 動作
    • BGとSPリソースをGRPリソース２枚に圧縮し、 圧縮したデータが正常かどうかの検査だけをする状態になっています。 
      必要な動作に応じて、AVERIFY、APREVIEWを設定してください。
    • 大体半分以下になりますので、DS本体のストレージを節約したい場合、 GRPリソース一杯詰め込めば効果が出るかもしれません。
    • 表示確認（プレビュー）用に、処理中のCHRデータをGRPへ表示していますが、
      実際に使用する場合には、プレビュー処理は不要です。
  • BGPAGEやSPPAGEについて、特にいじっていないので必要なら指定してください。

圧縮展開処理の本体

  • 011行 … 圧縮・展開時にＧＲＰに処理中のキャラをプレビュー表示するかどうかの設定です。
  • 012行 … 展開時に検査をするのか通常書き込みするかどうかの設定です。
  • 176行〜187行 @PINIT … 圧縮・展開処理で使う定数を宣言しています。
  • 189行〜197行 @ADDPTR … 圧縮・展開処理で使う処理です。GRP書き込み位置をひとつ加算します。
  • 199行〜378行 @ARCHIVE … 圧縮処理の本体
  • 380行〜573行 @EXPAND … 圧縮処理の本体

デバッグ向け特殊設定（009行〜012行）

AVERIFY … 展開処理の設定

AVERIFY=1 … 検査（書き込みをしない／検査をする）
AVERIFY=0 … 通常（書き込みをする／検査をしない）

APREVIEW … プレビュー表示設定

APREVIEW=1 … プレビュー表示する
APREVIEW=0 … 通常（プレビュー表示をしない）
  • プレビュー処理（272行〜280行、532行〜539行）
    • APREVIEW==1の時、 表示確認する為にＧＲＰへ描画します。
DP=0          ′プレビュー表示：GRPページ番号
DW=256:DH=128 ′プレビュー表示：表示エリアサイズ
DX=0  :DY=0   ′プレビュー表示：表示エリア左上位置
DPL=8         ′プレビュー表示：パレット番号
※ 展開するだけであれば不要です。
DX、DY、DP、DPL、DW、DH はプレビューでのみ使用する変数です。
  • ベリファイ処理（418行〜420行、474行〜476行、521行〜528行、546行〜573行）
    • AVERIFY==1の時、 展開したデータが元のデータと正しく一致するか調べます。
※ 検査が不要ならこれらの処理はいりません。
CHK$はベリファイでのみ使用する変数です。

圧縮手順

  • 圧縮処理の本体は 199行〜378行です

圧縮呼び出し準備

  • 圧縮元データ指定 
    RES$="BGU" ′圧縮元 キャラクタ名（リソース名）
CI=0       ′圧縮元 キャラクタ番号
※ 圧縮元 キャラクタ名（リソース名）とキャラクタ番号は圧縮データに埋め込みます。
  • 圧縮データ書き出し指定 
    GP=1       ′圧縮データ格納先 GRPページ番号
GX=0:GY=0  ′圧縮データ格納先 GRP座標

圧縮の実行

GOSUB @ARCHIVE

圧縮実行後に更新される変数

  • 圧縮元データの指定 
    CI → 次の圧縮元キャラクタ番号
  • 圧縮データ書き出し位置の指定 
    GP,GX,GY → 次の書き出し位置

他の処理

GOSUB @REPORTA ′圧縮レポートを表示開始する
GOSUB @REPORTB ′圧縮結果レポートを表示する

展開手順

  • 展開処理の本体は 380行〜573行です

展開呼び出し準備

  • 展開プレビュー用指定 
    DP=0          ′プレビュー表示：GRPページ番号
DW=256:DH=128 ′プレビュー表示：表示エリアサイズ
DX=0  :DY=0   ′プレビュー表示：表示エリア左上位置
DPL=8         ′プレビュー表示：パレット番号
  • 展開データの指定 
    GP=1       ′解凍元データ GRPページ番号
GX=0:GY=0  ′解凍元データ GRP座標
※ 解凍先 キャラクタ名（リソース名）とキャラクタ番号は圧縮データに埋め込まれています。

展開の実行

GOSUB @EXPAND

展開実行後に更新される変数

  • 展開プレビュー用指定 
    DX,DY   → 次の描きこみ位置
(※DPは変化しません）
  • 展開データの指定 
    GP,GX,GY → 次の展開データ位置
CI → 次の展開先キャラクタ番号

他の処理

GOSUB @CLRSD ′プレビューエリアをクリアする
GOSUB @WAITD ′プレビュー後にキー入力待ちをする

圧縮データ概要

  • BGやSPRITEやFONTは4ビット（16色）データですが、このプログラムは8ビット（256色相当）単位で圧縮・展開します。
    • 8ビット単位だと処理が簡単になります。
    • 8ビット単位だと２ピクセルずつ圧縮するので、タイリングデータも圧縮できます。

圧縮展開で使う定数（176行〜187行）

（定数＝途中で変更しない値）

@PINIT
  • IMAX=127ブロックヘッダ：ブロックの最大長マスク
  • ABIT=128ブロックヘッダ：ブロックのモード
    • ABITがONの場合同じ値が連続
    • ABITがOFFの場合違う値のデータが後に続く
  • ANONE=0 … 圧縮展開時の処理MODE：モードが確定していない初期状態（サンプル1個目）
  • A2ND =1 … 圧縮展開時の処理MODE：どちらのモードにするか検査する（サンプル2個目）
  • ASAME=2 … 圧縮展開時の処理MODE：同じ値が並んでいる状態
  • ADIFF=3 … 圧縮展開時の処理MODE：違う値が並んでいる状態
RES$に指定できる値
  • "BGU" ... BG
  • "SPU" ... スプライト
  • "BGF" ... フォント 
    など、CHRREAD、CHRSET、CHRINITに指定できるキャラクタ名

全体イメージ

  • （データ先頭から） 
    +00 RES$(0)   　展開先（圧縮元）キャラクタリソース名（1文字目）
+01 RES$(1)   　展開先（圧縮元）キャラクタリソース名（2文字目）
+02 RES$(2)   　展開先（圧縮元）キャラクタリソース名（3文字目）
+03 CIL       　展開先（圧縮元）キャラクタ番号（下位8ビット）
+04 CIH       　展開先（圧縮元）キャラクタ番号（上位8ビット）
	※ キャラクタ番号 CI=CIL+CIH*256
+05 BLOCKSIZEL　データブロックのサイズ（下位8ビット）
+06 BLOCKSIZEH　データブロックのサイズ（上位8ビット）
	※ データブロックのサイズ BLOCKSIZE=BLOCKSIZEL+BLOCKSIZEH*256
+07〜 データブロック

データブロック

  • （データブロック先頭から） 
    +00 BLOCKHEAD　ブロックのモード指定＋展開バイト数（0〜127）
+01〜 データ部
BLOCKHEADの意味
  • 展開サイズ　AL=(BLOCKHEAD AND 127)
  • モード指定　BH=（BLOCKHEAD AND 128）
    • BH!=0：連続値展開モード
    • BH!=1：絶対値モード
展開モード別のデータブロック解説
  1. 連続値展開モード 
    +00 BLOCKHEAD　128＋展開サイズ AL（0〜127）
+01 DATA(0)　　データ（1個)
	展開バイト数（AL）回、DATA(0)を書き出す
  2. 絶対値モード 
    +00   BLOCKHEAD　0＋展開サイズ AL（0〜127）
+01   DATA(0)　　データ（AL個)
  |
+AL+1 DATA(AL)
	展開バイト数（AL）個分、DATAが並んでいるので
	DATA(0)〜DATA(AL)までを順番に書き出す
  3. 各モードでAL個のデータを書き出し終わったら
  • 続くアドレスが次のデータブロックなのでブロックの展開を繰り返す

QR コード

プチコンmkII 向けの QR コードです。 コメントを追加したら2倍になってしまいました。

PRG:RLEBG2
1/32/33/3
v2_qr0.pngv2_qr1.pngv2_qr2.png
v2_qr3.pngv2_qr4.pngv2_qr5.png

プログラムリスト

  1. ′┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥Л
  2. ′Л
  3. ′　　ＲＵＮ　ＬＥＮＧＴＨ　ＥＮＣＯＤＥ　ＤＥＭＯЛ
  4. ′Л
  5. ′┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥┰┥Л
  6. Л
  7. ＣＬＥＡＲЛ
  8. ′Л
  9. ′┸　テ゛ハ゛ック゛　セッテイ　┝Л
  10. Л
  11. ＡＰＲＥＶＩＥＷ＝１　′フ゜レヒ゛ュ−スル（ＤＥＢＵＧ）Л
  12. ＡＶＥＲＩＦＹ＝１　　′ケンサ　スル（ＤＥＢＵＧ）Л
  13. Л
  14. ′┸　ショキカ　┝Л
  15. Л
  16. ＧＯＳＵＢ　＠ＳＩＮＩＴ　′カ゛メン　クリアЛ
  17. ＧＯＳＵＢ　＠ＰＩＮＩＴ　′テイスウ　ショキカЛ
  18. ＧＰＡＧＥ　０，０，０：ＧＣＬＳ　４Л
  19. Л
  20. ′　ＧＯＴＯ＠ＤＥＣＯＭＡＩＮ　′テ゛コ−ト゛ニ　トフ゛Л
  21. Л
  22. ＧＯＳＵＢ　＠ＧＡＣＬＳ　′ＧＲＰ　ＡＬＬ　ショキカЛ
  23. ＧＰＡＧＥ　０，０，０：ＧＣＬＳ　４Л
  24. Л
  25. ′┿┿┸　エンコ−ト゛（アッシュク）　┝┿┿Л
  26. Л
  27. ＧＰ＝１　　　　　　　′ヘンカン　サキ　ＧＲＰヘ゜−シ゛Л
  28. ＧＸ＝０：ＧＹ＝０　　′ヘンカン　サキ　ＧＲＰサ゛ヒョウЛ
  29. Л
  30. ＤＰ＝０　　　　　　　　　　′ＤＩＳＰ　ＧＲＰヘ゜−シ゛Л
  31. ＤＸ＝０　　：ＤＹ＝０　　　′ＤＩＳＰ　イチЛ
  32. ＤＷ＝２５６：ＤＨ＝１２８　′ＤＩＳＰ　サイス゛Л
  33. ＤＰＬ＝０　　　　　　　　　′ＤＩＳＰ　ハ゜レットЛ
  34. Л
  35. ′┸　エンコ−ト゛　ＦＯＮＴ　┝Л
  36. Л
  37. ＤＭＡＸ＝２５６＊６４−１　′サイス゛（ヒ゜クセルスウ）Л
  38. ＲＥＳ＄＝”ＢＧＦ”　′ヘンカン　モト　リソ−ス　メイЛ
  39. ＣＩ＝０　　　　　　　′ヘンカン　モト　ＣＨＲ　Ｎｏ．Л
  40. 　ＧＯＳＵＢ　＠ＲＥＰＯＲＴＡЛ
  41. 　ＧＯＳＵＢ　＠ＡＲＣＨＩＶＥЛ
  42. 　ＧＯＳＵＢ　＠ＲＥＰＯＲＴＢЛ
  43. Л
  44. ′┸　エンコ−ト゛　ＢＧＵ０〜３　┝Л
  45. Л
  46. ＤＭＡＸ＝２５６＊１２８−１　′サイス゛（ヒ゜クセルスウ）Л
  47. ＲＥＳ＄＝”ＢＧＵ”　′ヘンカン　モト　リソ−ス　メイЛ
  48. ＣＩ＝０　　　　　　　′ヘンカン　モト　ＣＨＲ　Ｎｏ．Л
  49. ＦＯＲ　ＢＧＢＫ＝０　ＴＯ　１Л
  50. 　ＧＯＳＵＢ　＠ＲＥＰＯＲＴＡЛ
  51. 　ＧＯＳＵＢ　＠ＡＲＣＨＩＶＥЛ
  52. 　ＧＯＳＵＢ　＠ＲＥＰＯＲＴＢЛ
  53. ＮＥＸＴЛ
  54. Л
  55. ′┸　エンコ−ト゛　ＳＰＵ０〜７　┝Л
  56. Л
  57. ＤＭＡＸ＝２５６＊１２８−１　′サイス゛（ヒ゜クセルスウ）Л
  58. ＲＥＳ＄＝”ＳＰＵ”　′ヘンカン　モト　リソ−ス　メイЛ
  59. ＣＩ＝０　　　　　　　′ヘンカン　モト　ＣＨＲ　Ｎｏ．Л
  60. ＦＯＲ　ＳＰＢＫ＝０　ＴＯ　３Л
  61. 　ＧＯＳＵＢ　＠ＲＥＰＯＲＴＡЛ
  62. 　ＧＯＳＵＢ　＠ＡＲＣＨＩＶＥЛ
  63. 　ＧＯＳＵＢ　＠ＲＥＰＯＲＴＢЛ
  64. ＮＥＸＴЛ
  65. ′Л
  66. ＠ＤＥＣＯＭＡＩＮЛ
  67. Л
  68. ′┿┿┸　テ゛コ−ト゛（テンカイ）　┝┿┿Л
  69. Л
  70. ＧＰ＝１　　　　　　　′カイトウ　モト　ＧＲＰヘ゜−シ゛Л
  71. ＧＸ＝０：ＧＹ＝０　　′カイトウ　モト　ＧＲＰサ゛ヒョウЛ
  72. Л
  73. ＤＰ＝０　　　　　　　　　　′ＤＩＳＰ　ＧＲＰヘ゜−シ゛Л
  74. ＤＷ＝２５６：ＤＨ＝１２８　′ＤＩＳＰ　サイス゛Л
  75. ＤＸ＝０　　：ＤＹ＝０　　　′ＤＩＳＰ　イチЛ
  76. ＤＰＬ＝８　　　　　　　　　′ＤＩＳＰ　ハ゜レットЛ
  77. Л
  78. ′　Йテンカイサキ　キャラクタ　ハЛ
  79. ′　　ＧＲＰ　ニ　キロク　サレテ　イル　ノテ゛Л
  80. ′　　・ヨミコミモト　セッテイЛ
  81. ′　　・フ゜レヒ゛ュ−　ヒョウシ゛　セッテイЛ
  82. ′　　タ゛ケЛ
  83. Л
  84. ′┸　フ゜レヒ゛ュ−サイス゛　ハイレツ　┝Л
  85. ＠ＤＷＤＡＴＡ　　　　Л
  86. ′　　　　　ＤＷ，　ＤＨ，ＤＰＬЛ
  87. ＤＡＴＡ　２５６，　６４，０Л
  88. ＤＡＴＡ　２５６，１２８，８Л
  89. ＤＡＴＡ　２５６，１２８，８Л
  90. ＤＡＴＡ　２５６，１２８，０Л
  91. ＤＡＴＡ　２５６，１２８，４Л
  92. ＤＡＴＡ　２５６，１２８，１２Л
  93. ＤＡＴＡ　２５６，１２８，１２Л
  94. ＲＥＳＴＯＲＥ　＠ＤＷＤＡＴＡЛ
  95. Л
  96. ′┸　テ゛コ−ト゛　クリカエシ　┝Л
  97. ＠ＤＥＣＬＯＯＰЛ
  98. 　ＲＥＡＤ　ＤＷ，ＤＨ，ＤＰＬЛ
  99. 　ＧＰＡＧＥ　０，０，０：ＧＣＬＳ　４Л
  100. 　ＧＯＳＵＢ　＠ＣＬＲＳＤЛ
  101. 　ＧＯＳＵＢ　＠ＥＸＰＡＮＤЛ
  102. 　ＧＯＳＵＢ　＠ＷＡＩＴＤЛ
  103. 　ＤＸ＝０　　：ＤＹ＝０　　　′ＤＩＳＰ　イチЛ
  104. Л
  105. 　′　ツキ゛　ノ　テ゛−タ　カ゛　アルカ？Л
  106. 　′　アル　ナラ、クリカエシЛ
  107. 　ＧＰＡＧＥ　１，ＧＰ，ＧＰЛ
  108. 　Ｃ＝ＧＳＰＯＩＴ（ＧＸ，ＧＹ）Л
  109. ＩＦ　Ｃ　ＧＯＴＯ＠ＤＥＣＬＯＯＰЛ
  110. Л
  111. ＧＰＡＧＥ　０，０，０Л
  112. Л
  113. ＥＮＤЛ
  114. Л
  115. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  116. Л
  117. ′╂┿┸　アッシュク　レホ゜−ト　┝┿╂╂╂╂╂╂╂╂╂Л
  118. ＠ＲＥＰＯＲＴＡЛ
  119. 　？”　”；ＲＥＳ＄；Л
  120. 　？ＲＩＧＨＴ＄（”　”＊３＋ＳＴＲ＄（ＣＩ），４）；Л
  121. 　？”〜”；Л
  122. ＲＥＴＵＲＮЛ
  123. ＠ＲＥＰＯＲＴＢЛ
  124. 　？ＲＩＧＨＴ＄（”　”＊３＋ＳＴＲ＄（ＣＩ−１），４）；Л
  125. 　？”：”；ＳＭＡＸ＋１；”／”；ＤＭＡＸ＋１；Л
  126. 　？”＝”；Л
  127. 　？ＦＬＯＯＲ（（ＳＭＡＸ＋１）／（ＤＭＡＸ＋１）＊１０００）／１０；”％”Л
  128. ＲＥＴＵＲＮЛ
  129. Л
  130. ′╂┿┸　フ゜レヒ゛ュ−イチ　ヲ　クリア　┝┿╂╂╂╂╂Л
  131. ＠ＣＬＲＳＤЛ
  132. 　ＧＰＡＧＥ　０，ＤＰ，０Л
  133. 　ＧＦＩＬＬ　ＤＸ，ＤＹ，ＤＸ＋ＤＷ−１，ＤＹ＋ＤＨ−１，０Л
  134. ＲＥＴＵＲＮЛ
  135. Л
  136. ′╂┿┸　フ゜レヒ゛ュ−　→　キ−　マチ　┝┿╂╂╂╂╂Л
  137. ＠ＷＡＩＴＤЛ
  138. 　′ＬＯＣＡＴＥ　０，２３Л
  139. 　ＦＯＲ　ＷＩ＝０　ＴＯ　１Л
  140. 　　ＣＯＬＯＲ　ＭＡＩＮＣＮＴＬ％１３＋３Л
  141. 　　ＬＯＣＡＴＥ　８，ＣＳＲＹЛ
  142. 　　？”ＰＲＥＳＳ　ＡＮＹ　ＫＥＹ”；Л
  143. 　　ＷＡＩＴ　１Л
  144. 　　ＷＩ＝ＢＵＴＴＯＮ（）＋ＬＥＮ（ＩＮＫＥＹ＄（））Л
  145. 　ＮＥＸＴЛ
  146. 　ＬＯＣＡＴＥ　０，ＣＳＲＹЛ
  147. 　？ＣＨＲ＄（０）＊３１；Л
  148. 　ＬＯＣＡＴＥ　０，ＣＳＲＹЛ
  149. 　ＣＯＬＯＲ　０，０Л
  150. ＲＥＴＵＲＮЛ
  151. Л
  152. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  153. ′┌─────────────────────────┐Л
  154. ′│　　　ＣＬＥＡＲ　ＳＣＲＥＥＮ　ＳＡＭＰＬＥ　　　│Л
  155. ′└─────────────────────────┘Л
  156. ＠ＳＩＮＩＴЛ
  157. 　ＣＬＳЛ
  158. 　ＧＰＡＧＥ　０，０，０：ＧＣＬＳЛ
  159. 　ＧＰＲＩＯ　３Л
  160. 　ＣＯＬＯＲ　０，０Л
  161. 　ＬＯＣＡＴＥ　０，１６Л
  162. 　ＰＮＬＴＹＰＥ　”ＯＦＦ”Л
  163. ＲＥＴＵＲＮЛ
  164. Л
  165. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  166. ′┌─────────────────────────┐Л
  167. ′│　　　ＣＬＥＡＲ　ＡＬＬ　ＧＲＰ　ＰＡＧＥ　　　　│Л
  168. ′└─────────────────────────┘Л
  169. ＠ＧＡＣＬＳЛ
  170. 　ＧＰＡＧＥ　１，３，３：ＧＣＬＳЛ
  171. 　ＧＰＡＧＥ　０，２，２：ＧＣＬＳЛ
  172. 　ＧＰＡＧＥ　１，１，１：ＧＣＬＳЛ
  173. 　ＧＰＡＧＥ　０，０，０：ＧＣＬＳЛ
  174. ＲＥＴＵＲＮЛ
  175. Л
  176. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  177. ′┌─────────────────────────┐Л
  178. ′│　アッシュク・テンカイ　ノ　テイスウ　センケ゛ン　│Л
  179. ′└─────────────────────────┘Л
  180. ＠ＰＩＮＩＴЛ
  181. 　ＩＭＡＸ＝１２７′ＨＥＡＤＥＲ：サイタ゛イチョウ−１Л
  182. 　ＡＢＩＴ＝１２８′ＨＥＡＤＥＲ：レンソ゛クモ−ト゛Л
  183. 　Ａ１ＳＴ　＝０　′ＭＯＤＥ：ヒトツメЛ
  184. 　Ａ２ＮＤ　＝１　′ＭＯＤＥ：フタツメЛ
  185. 　ＡＳＡＭＥ＝２　′ＭＯＤＥ：オナシ゛アタイЛ
  186. 　ＡＤＩＦＦ＝３　′ＭＯＤＥ：チカ゛ウアタイЛ
  187. ＲＥＴＵＲＮЛ
  188. Л
  189. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  190. ′┌─────────────────────────┐Л
  191. ′│　　　　　　　ＧＲＰ　イチ　＋１　　　　　　　　　│Л
  192. ′└─────────────────────────┘Л
  193. ＠ＡＡＤＤＰＴＲЛ
  194. 　Ｘ＝Ｘ＋１：Ｙ＝Ｙ＋（Ｘ＞２５５）：Ｘ＝Ｘ％２５６Л
  195. 　′ＩＦ　Ｙ＞１９１　ＴＨＥＮ　？”Й　ＯＶＥＲ”Л
  196. 　Ｐ＝Ｐ＋（Ｙ＞１９１）：Ｙ＝Ｙ％１９２Л
  197. ＲＥＴＵＲＮЛ
  198. Л
  199. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  200. ′┌─────────────────────────┐Л
  201. ′│　　　Ｅｎｃｏｄｅ　（アッシュク　ショリ）　　　　│Л
  202. ′┌───────┐─────────────────┘Л
  203. ′│　ＩＮＰＵＴ　├─────────────────┐Л
  204. ′└───────┘　　　　　　　　　　　　　　　　　│Л
  205. ′│ИＧＰ　　：カキコミ　サキ　ＧＲＰ　ヘ゜−シ゛　　│Л
  206. ′│ИＧＸ　　：カキコミ　サキ　ＧＲＰ　Ｘ　サ゛ヒョウ│Л
  207. ′│ИＧＹ　　：カキコミ　サキ　ＧＲＰ　Ｙ　サ゛ヒョウ│Л
  208. ′│　ＲＥＳ＄：ヨミコミ　モト　キャラ　メイ　　　　　│Л
  209. ′│ИＣＩ　　：ヨミコミ　モト　キャラ　Ｎｏ．　　　　│Л
  210. ′│　ＤＭＡＸ：ヨミコミ　モト　キャラ　ノ　カス゛−１│Л
  211. ′│┌─────────────────┐　　　　　　│Л
  212. ′│┘（フ゜レヒ゛ュ−ヒョウシ゛　ヨウ）└──────│Л
  213. ′│　ＡＰＲＥＶＩＥＷ　：フ゜レヒ゛ュ−（ＤＥＢＵＧ）│Л
  214. ′│　ＤＰ　　：テストヒョウシ゛ＧＲＰ　ヘ゜−シ゛　　│Л
  215. ′│　ＤＸ　　：テストヒョウシ゛ＧＲＰ　Ｘ　サ゛ヒョウ│Л
  216. ′│　ＤＹ　　：テストヒョウシ゛ＧＲＰ　Ｙ　サ゛ヒョウ│Л
  217. ′│　ＤＰＬ　：テストヒョウシ゛　ハ゜レット　Ｎｏ．　│Л
  218. ′│　ＤＷ　　：テストヒョウシ゛ＧＲＰ　Ｘ　サイス゛　│Л
  219. ′│　ＤＨ　　：テストヒョウシ゛ＧＲＰ　Ｈ　サイス゛　│Л
  220. ′┌────────┐────────────────┘Л
  221. ′│　ＯＵＴＰＵＴ　├────────────────┐Л
  222. ′└────────┘　　　　　　　　　　　　　　　　│Л
  223. ′│　ＳＭＡＸ：アッシュク　コ゛　サイス゛　　　　　　│Л
  224. ′│　ТТТТТТТТТТТТТТТТТТТТТТТ　│Л
  225. ′│　Й　ＩＮＰＵＴ　ノ、И　カ゛　ツイタ　モノ。　　│Л
  226. ′│　　　アタイ　ハ、ツキ゛　ノ　イチ　ヲ　シメス。　│Л
  227. ′┌──────────┐──────────────┘Л
  228. ′│　ナイフ゛　シヨウ　├──────────────┐Л
  229. ′└──────────┘　　　　　　　　　　　　　　│Л
  230. ′│　ＡＬ，Ｂ，ＢＰ，Ｉ，Ｊ，Ｐ，Ｒ，Ｘ，Ｙ　　　　　│Л
  231. ′│　Ｃ＄，Ｒ＄，ＨＰ，ＨＸ，ＨＹ，ＭＯＤＥ　　　　　│Л
  232. ′└─────────────────────────┘Л
  233. ＠ＡＲＣＨＩＶＥЛ
  234. 　ＧＯＳＵＢ　＠ＰＩＮＩＴ　′テイスウ　セットЛ
  235. Л
  236. ′┿┰　ｗｒｉｔｅ　ＨＥＡＤＥＲ：ＲＥＳ＄　┥Л
  237. Л
  238. Ｐ＝ＧＰ：Ｘ＝ＧＸ：Ｙ＝ＧＹ：Ｒ＄＝ＲＥＳ＄Л
  239. ＦＯＲ　Ｉ＝０　ＴＯ　２Л
  240. 　ＧＰＡＧＥ　１，Ｐ，ＰЛ
  241. 　ＧＰＳＥＴ　Ｘ，Ｙ，ＡＳＣ（ＭＩＤ＄（Ｒ＄，Ｉ，１））Л
  242. 　ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  243. ＮＥＸＴЛ
  244. Л
  245. ′┿┰　ｗｒｉｔｅ　ＨＥＡＤＥＲ：ＣＨＲ　Ｎｏ．┥Л
  246. Л
  247. ＧＰＡＧＥ　１，Ｐ，Ｐ：ＧＰＳＥＴ　Ｘ，Ｙ，ＣＩ％２５６Л
  248. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  249. ＧＰＡＧＥ　１，Ｐ，Ｐ：ＧＰＳＥＴ　Ｘ，Ｙ，ＣＩ／２５６Л
  250. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  251. Л
  252. ′┿┰　ｒｅｓｅｒｖｅ　ＨＥＡＤＥＲ：ＳＩＺＥ　┥Л
  253. Л
  254. ＧＰ＝Ｐ：ＧＸ＝Ｘ：ＧＹ＝ＹЛ
  255. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  256. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  257. ＨＰ＝Ｐ：ＨＸ＝Ｘ：ＨＹ＝ＹЛ
  258. Л
  259. ′┿┰　ＥＮＣＯＤＥ　┥Л
  260. Л
  261. ＭＯＤＥ　＝　Ａ１ＳＴ　′　ショリ　モ−ト゛Л
  262. Ｂ　　＝　０　　　　　　′　ケ゛ンサ゛イチ　ノ　イロЛ
  263. ＢＰ　＝　０　　　　　　′　セ゛ンカイイチ　ノ　イロЛ
  264. ＡＬ　＝　０　　　　　　′　テ゛−タ　スウ（レンソ゛クスウ）Л
  265. Л
  266. ＦＯＲ　Ｉ＝０　ＴＯ　ＤＭＡＸ　ＳＴＥＰ　２Л
  267. 　Ｊ＝Ｉ％６４Л
  268. 　ＩＦ　Ｊ　ＴＨＥＮ　＠ＳＫＩＰＲＤＣＨЛ
  269. 　　Ｒ＝ＣＩ％２５６Л
  270. 　　Ｒ＄＝ＲＥＳ＄＋ＨＥＸ＄（ＣＩ／２５６）Л
  271. 　　ＣＨＲＲＥＡＤ（Ｒ＄，Ｒ），Ｃ＄Л
  272. 　　′┌──────ｆｏｒ　ＰＲＥＶＩＥＷ───────┐Л
  273. 　　　ＩＦ！ＡＰＲＥＶＩＥＷ　ＧＯＴＯ　＠ＡＰＲＥＶＷＥＤЛ
  274. 　　　　ＧＰＡＧＥ　０，ＤＰ，ＤＰЛ
  275. 　　　　ＧＦＩＬＬ　ＤＸ，ＤＹ，ＤＸ＋７，ＤＹ＋７，０Л
  276. 　　　　ＧＰＵＴＣＨＲ　ＤＸ，ＤＹ，Ｒ＄，Ｒ，ＤＰＬ，１Л
  277. 　　　　ＤＸ＝ＤＸ＋８：ＤＹ＝ＤＹ＋８＊（ＤＸ＞＝ＤＷ）Л
  278. 　　　　ＤＸ＝ＤＸ％ＤＷ：ＤＹ＝ＤＹ％ＤＨЛ
  279. 　　　＠ＡＰＲＥＶＷＥＤЛ
  280. 　　′└──────ｆｏｒ　ＰＲＥＶＩＥＷ───────┘Л
  281. 　　ＣＩ＝ＣＩ＋１Л
  282. 　＠ＳＫＩＰＲＤＣＨЛ
  283. 　ＢＰ＝ＢЛ
  284. 　Ｂ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（Ｃ＄，Ｊ，２））Л
  285. 　ＯＮ　ＭＯＤＥ　ＧＯＳＵＢ　＠Ａ１ＳＴ，＠Ａ２ＮＤ，＠ＡＳＡＭＥ，＠ＡＤＩＦＦЛ
  286. ＮＥＸＴЛ
  287. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  288. ＨＰ＝Ｐ：ＨＸ＝Ｘ：ＨＹ＝Ｙ　　′　ツキ゛ノ　イチЛ
  289. Л
  290. ′┿┰　ｃａｌｃｕｌａｔｅ　ＳＩＺＥ　┥Л
  291. ′　　Й　ＳＩＺＥ＝ｄａｔａ＿ｃｏｕｎｔ−１Л
  292. ′　　　　　　　　　（＝＝　ｍａｘ　ｉｎｄｅｘ）Л
  293. Л
  294. Ｉ＝Ｘ＋Ｙ＊２５６−ＧＸ−ＧＹ＊２５６−２−１Л
  295. Ｉ＝Ｉ＋（Ｐ−ＧＰ）＊１９２＊２５６Л
  296. ＳＭＡＸ＝ＩЛ
  297. Л
  298. ′┿┰　ｗｒｉｔｅ　ＨＥＡＤＥＲ：ＳＩＺＥ　┥Л
  299. Л
  300. Ｘ＝ＧＸ：Ｙ＝ＧＹ：Ｐ＝ＧＰЛ
  301. ＧＰＡＧＥ　１，Ｐ，Ｐ：ＧＰＳＥＴ　Ｘ，Ｙ，Ｉ％２５６Л
  302. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  303. ＧＰＡＧＥ　１，Ｐ，Ｐ：ＧＰＳＥＴ　Ｘ，Ｙ，Ｉ／２５６Л
  304. Л
  305. ′┿┰　ツキ゛　ノ　イチ　ヲ　セット　┥Л
  306. Л
  307. ＧＰ＝ＨＰ：ＧＸ＝ＨＸ：ＧＹ＝ＨＹЛ
  308. ＧＰＡＧＥ　０，０，０Л
  309. Л
  310. ＲＥＴＵＲＮЛ
  311. Л
  312. ′│　　　　Ｅｎｃｏｄｅ　ｓｕｂ　ｒｕｔｉｎｅｓ　　　│Л
  313. Л
  314. ′╂┿┰　ＭＯＤＥ：ヒトツメ　┥┿╂╂╂╂╂╂╂╂╂╂╂Л
  315. ′У→　カキタ゛シЛ
  316. ′УЙ　イッタン　カキタ゛ス　カ゛Л
  317. ′У　　ＭＯＤＥ　ハ　シ゛カイ　ニ　キメルЛ
  318. ′У　　（イチシ゛テキ　ニ　チカ゛ウイロ　アツカイ）Л
  319. ＠Ａ１ＳＴЛ
  320. 　ＡＬ＝０　　　　　　　　　　　′ＨＥＡＤＥＲリセットЛ
  321. 　ＨＰ＝Ｐ：ＨＸ＝Ｘ：ＨＹ＝Ｙ　′ＨＥＡＤＥＲイチЛ
  322. 　ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲ　′ＤＡＴＡカキタ゛シイチЛ
  323. 　ＧＯＳＵＢ　＠ＡＷＲＩＴＥЛ
  324. 　ＭＯＤＥ＝Ａ２ＮＤЛ
  325. ＲＥＴＵＲＮ　′ツキ゛　ヘЛ
  326. Л
  327. ′╂┿┰　ＭＯＤＥ：フタツメ　┥┿╂╂╂╂╂╂╂╂╂╂╂Л
  328. ′У→　スク゛　ＡＳＡＭＥ　カ　ＡＤＩＦＦ　ニ　ヘンカЛ
  329. ′У（　マエ　ノ　イロ　ト　コンカイ　ノ　イロ　カ゛Л
  330. ′У　　Й　オナシ゛　→　ＡＳＡＭＥ　ヘ　トフ゛Л
  331. ′У　　Й　チカ゛ウ　→　ＡＤＩＦＦ　ヘ　トフ゛　）Л
  332. ＠Ａ２ＮＤЛ
  333. 　ＭＯＤＥ＝ＡＳＡＭＥ＋（ＢＰ！＝Ｂ）Л
  334. ＯＮ（ＢＰ！＝Ｂ）ＧＯＴＯ　＠ＡＳＡＭＥ，＠ＡＤＩＦＦЛ
  335. Л
  336. ′╂┿┰　ＭＯＤＥ：レンソ゛ク　┥┿╂╂╂╂╂╂╂╂╂╂Л
  337. ′УЙ　チカ゛ウ　イロ　→　スク゛　Ａ１ＳＴ　ヘ　トフ゛Л
  338. ′УЙ　オナシ゛　イロ　→　レンソ゛ク　スウ　ヲ　＋１Л
  339. ′У　　　　　　　　　　→　カキタ゛シЛ
  340. ＠ＡＳＡＭＥЛ
  341. 　ＡＬ＝ＡＬ＋（ＢＰ＝＝Ｂ）Л
  342. 　ＩＦ　ＢＰ＝＝Ｂ　ＧＯＴＯ　＠ＡＦＬＵＳＨЛ
  343. 　ＧＯＳＵＢ　　＠ＡＡＤＤＰＴＲЛ
  344. ＧＯＴＯ　＠Ａ１ＳＴЛ
  345. Л
  346. ′╂┿┰　ＭＯＤＥ：チカ゛ウイロ　┥┿╂╂╂╂╂╂╂╂╂Л
  347. ′УЙ　オナシ゛　イロ　→　スク゛　Ａ１ＳＴ　ヘ　トフ゛Л
  348. ′УЙ　チカ゛ウ　イロ　→　イロ　ヲ　ツイカЛ
  349. ′У　　　　　　　　　　　（　テ゛−タスウ　モ　＋１　）Л
  350. ′У　　　　　　　　　　→　カキタ゛シЛ
  351. ＠ＡＤＩＦＦЛ
  352. 　ＡＬ＝ＡＬ＋（ＢＰ！＝Ｂ）Л
  353. 　ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  354. 　ＩＦ　ＢＰ！＝Ｂ　ＧＯＴＯ　＠ＡＦＬＵＳＨЛ
  355. ＧＯＴＯ　＠Ａ１ＳＴЛ
  356. Л
  357. ′╂┿┰　フ゛ロック　カキタ゛シ　＋　ケンサ　┥┿╂╂╂Л
  358. ′У→　カキタ゛シタ　アト、Л
  359. ′У　　サイタ゛イ　ニ　タッシタラ、モ−ト゛リセットЛ
  360. ′У　　（フ゛ロック　ヲ　クキ゛ル）Л
  361. ′УЙ　シ゛カイ　ハ　Ａ１ＳＴЛ
  362. ＠ＡＦＬＵＳＨЛ
  363. 　ＧＯＳＵＢ＠ＡＷＲＩＴＥЛ
  364. 　ＩＦ　ＡＬ＜ＩＭＡＸ　ＴＨＥＮ　ＲＥＴＵＲＮЛ
  365. 　ＧＯＳＵＢ＠ＡＡＤＤＰＴＲЛ
  366. 　ＭＯＤＥ＝Ａ１ＳＴЛ
  367. ＲＥＴＵＲＮ　′ツキ゛　ヘЛ
  368. Л
  369. ′╂┿┰　カキコミ　シ゛ッコウ　┥┿╂╂╂╂╂╂╂╂╂╂Л
  370. ′У→　ＨＥＡＤＥＲ　イチ　ニ　ＭＯＤＥ＋ナカ゛サЛ
  371. ′У→　ＤＡＴＡ　イチ　ニ　イロЛ
  372. ′У　Й　ＭＯＤＥ＝＝Ａ１ＳＴ　ノ　ハ゛アイЛ
  373. ′У　　　イッタン　ＡＤＩＦＦ　アツカイ　ニ　スルЛ
  374. ＠ＡＷＲＩＴＥЛ
  375. 　Ｈ＝ＡＬ＋（ＭＯＤＥ＝＝ＡＳＡＭＥ）＊ＡＢＩＴЛ
  376. 　ＧＰＡＧＥ　１，ＨＰ，ＨＰ：ＧＰＳＥＴ　ＨＸ，ＨＹ，ＨЛ
  377. 　ＧＰＡＧＥ　１，Ｐ，Ｐ：ＧＰＳＥＴ　Ｘ，Ｙ，ＢЛ
  378. ＲＥＴＵＲＮЛ
  379. Л
  380. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  381. ′┌─────────────────────────┐Л
  382. ′│　　　Ｄｅｃｏｄｅ　（テンカイ　ショリ）　　　　　│Л
  383. ′┌───────┐─────────────────┘Л
  384. ′│　ＩＮＰＵＴ　├─────────────────┐Л
  385. ′└───────┘　　　　　　　　　　　　　　　　　│Л
  386. ′│ИＧＰ　　：カキコミ　サキ　ＧＲＰ　ヘ゜−シ゛　　│Л
  387. ′│ИＧＸ　　：カキコミ　サキ　ＧＲＰ　Ｘ　サ゛ヒョウ│Л
  388. ′│ИＧＹ　　：カキコミ　サキ　ＧＲＰ　Ｙ　サ゛ヒョウ│Л
  389. ′│　ＡＶＥＲＩＦＹ　：ケンサ　スル（ＤＥＢＵＧ）　　│Л
  390. ′│┌─────────────────┐　　　　　　│Л
  391. ′│┘（フ゜レヒ゛ュ−ヒョウシ゛　ヨウ）└──────│Л
  392. ′│　ＡＰＲＥＶＩＥＷ　：フ゜レヒ゛ュ−（ＤＥＢＵＧ）│Л
  393. ′│ИＤＰ　　：テストヒョウシ゛ＧＲＰ　ヘ゜−シ゛　　│Л
  394. ′│ИＤＸ　　：テストヒョウシ゛ＧＲＰ　Ｘ　サ゛ヒョウ│Л
  395. ′│ИＤＹ　　：テストヒョウシ゛ＧＲＰ　Ｙ　サ゛ヒョウ│Л
  396. ′│　ＤＷ　　：テストヒョウシ゛ＧＲＰ　Ｘ　サイス゛　│Л
  397. ′│　ＤＨ　　：テストヒョウシ゛ＧＲＰ　Ｙ　サイス゛　│Л
  398. ′│　ＤＰＬ　：テストヒョウシ゛　ハ゜レット　Ｎｏ．　│Л
  399. ′┌────────┐────────────────┘Л
  400. ′│　ＯＵＴＰＵＴ　├────────────────┐Л
  401. ′└────────┘　　　　　　　　　　　　　　　　│Л
  402. ′│　Й　ＩＮＰＵＴ　ノ、И　カ゛　ツイタ　モノ。　　│Л
  403. ′│　　　アタイ　ハ、ツキ゛　ノ　イチ　ヲ　シメス。　│Л
  404. ′┌──────────┐──────────────┘Л
  405. ′│　ナイフ゛　シヨウ　├──────────────┐Л
  406. ′└──────────┘　　　　　　　　　　　　　　│Л
  407. ′│　ＲＥＳ＄：ヨミコミ　モト　キャラ　メイ　　　　　│Л
  408. ′│　ＣＩ　　：ヨミコミ　モト　キャラ　Ｎｏ．　　　　│Л
  409. ′│　ＳＭＡＸ：ヨミコミ　モト　サイス゛−１　　　　　│Л
  410. ′│　───────────────────────　│Л
  411. ′│　ＡＬ，Ｂ，ＢＧ＄，ＭＯＤＥ　　　　　　　　　　　│Л
  412. ′│　ＨＰ，ＨＸ，ＨＹ，Ｉ，Ｊ，Ｐ，Ｒ，Ｘ，Ｙ，Ｒ＄　│Л
  413. ′│　ＣＨＫ＄　　　　　　　　　　　　　　　　　　　　│Л
  414. ′└─────────────────────────┘Л
  415. ＠ＥＸＰＡＮＤЛ
  416. 　ＧＯＳＵＢ　＠ＰＩＮＩＴ　′テイスウ　セットЛ
  417. Л
  418. 　′┌───────ｆｏｒ　ＶＥＲＩＦＹ────────┐Л
  419. 　　ＧＯＳＵＢ　＠ＤＴＭＰＵＳＨЛ
  420. 　′└───────ｆｏｒ　ＶＥＲＩＦＹ────────┘Л
  421. Л
  422. ＭＯＤＥ　＝　Ａ１ＳＴ　′　ショリ　モ−ト゛Л
  423. Ｂ　　＝０　　　　　　　′　ヒ゜クセル　テ゛−タЛ
  424. ＡＬ　＝０　　　　　　　′　テンカイ　ヒ゜クセル　スウЛ
  425. ＢＧ＄＝””　　　　　　′　キャラ　ハ゜タ−ンЛ
  426. ＲＥＳ＄＝””　　　　　′　ＣＨＲ　キャラ　メイЛ
  427. ＣＩ＝０　　　　　　　　′　ＣＨＲ　キャラ　Ｎｏ．Л
  428. ＳＭＡＸ＝０　　　　　　′　アッシュクテ゛−タ　サイス゛Л
  429. Л
  430. ′┿┸　ｒｅａｄ　ＲＥＳ＄　┝Л
  431. Л
  432. Ｐ＝ＧＰ：Ｘ＝ＧＸ：Ｙ＝ＧＹЛ
  433. ＦＯＲ　Ｉ＝０　ＴＯ　２Л
  434. 　ＧＰＡＧＥ　１，Ｐ，ＰЛ
  435. 　ＲＥＳ＄＝ＲＥＳ＄＋ＣＨＲ＄（ＧＳＰＯＩＴ（Ｘ，Ｙ））Л
  436. 　ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  437. ＮＥＸＴЛ
  438. Л
  439. ′┿┸　ｒｅａｄ　ＣＨＡＲＡ　Ｎｏ．┝Л
  440. Л
  441. ＧＰＡＧＥ　１，Ｐ，Ｐ：Ｉ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）Л
  442. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  443. ＧＰＡＧＥ　１，Ｐ，Ｐ：Ｊ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）Л
  444. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  445. ＣＩ＝Ｉ＋２５６＊ＪЛ
  446. Л
  447. ′┿┸　ｒｅａｄ　ＳＩＺＥ　┝Л
  448. Л
  449. ＧＰＡＧＥ　１，Ｐ，Ｐ：Ｉ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）Л
  450. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  451. ＧＰＡＧＥ　１，Ｐ，Ｐ：Ｊ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）Л
  452. ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  453. ＳＭＡＸ＝Ｉ＋２５６＊ＪЛ
  454. Л
  455. ′┿┸　ｄｅｃｏｄｅ　┝Л
  456. Л
  457. ＦＯＲ　Ｉ＝０　ＴＯ　ＳＭＡＸЛ
  458. 　ＧＰＡＧＥ　１，Ｐ，Ｐ：Ｂ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）Л
  459. 　ＧＯＳＵＢ　＠ＡＡＤＤＰＴＲЛ
  460. 　ＯＮ　ＭＯＤＥ　ＧＯＳＵＢ　＠ＤＨＥＡＤ，＠ＤＨＥＡＤ，＠ＤＳＡＭＥ，＠ＤＤＩＦＦЛ
  461. ＮＥＸＴЛ
  462. Л
  463. ′┿┸　ツキ゛　ノ　イチ　ヲ　セット　┝Л
  464. Л
  465. ＧＰ＝Ｐ：ＧＸ＝Ｘ：ＧＹ＝ＹЛ
  466. Л
  467. ′┿┸　アマリ　カ゛　アレハ゛　カキタ゛シ　┝Л
  468. Л
  469. Ｌ＝ＬＥＮ（ＢＧ＄）：ＩＦ　！Ｌ　ＴＨＥＮ　＠ＤＥＮＤЛ
  470. 　ＢＧ＄＝ＢＧ＄＋”０”＊（６４−Ｌ）Л
  471. 　ＧＯＳＵＢ＠ＤＷＲＩＴＥЛ
  472. ＠ＤＥＮＤЛ
  473. Л
  474. 　′┌───────ｆｏｒ　ＶＥＲＩＦＹ────────┐Л
  475. 　　　ＧＯＳＵＢ＠ＤＴＭＰＯＰЛ
  476. 　′└───────ｆｏｒ　ＶＥＲＩＦＹ────────┘Л
  477. Л
  478. ＧＰＡＧＥ　０，０，０Л
  479. Л
  480. ＲＥＴＵＲＮЛ
  481. Л
  482. ′│　Ｄｅｃｏｄｅ　ｓｕｂ　ｒｕｔｉｎｅｓ　│Л
  483. Л
  484. ′╂┿┰　ＭＯＤＥ：Ａ１ＳＴ　┥┿╂╂╂╂╂╂╂╂╂╂╂Л
  485. ′У　　Й　フ゛ロック　ヘッタ゛　ヨミコミЛ
  486. ＠ＤＨＥＡＤЛ
  487. 　ＭＯＤＥ＝ＡＳＡＭＥ＋！（Ｂ　ＡＮＤ　ＡＢＩＴ）Л
  488. 　ＡＬ＝Ｂ　ＡＮＤ　ＩＭＡＸЛ
  489. ＲＥＴＵＲＮЛ
  490. Л
  491. ′╂┿┰　ＭＯＤＥ：ＡＳＡＭＥ　┥┿╂╂╂╂╂╂╂╂╂╂Л
  492. ′У　　Й　オナシ゛　アタイ　カキコミЛ
  493. ＠ＤＳＡＭＥЛ
  494. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＡＬЛ
  495. 　　ＧＯＳＵＢ＠ＤＰＵＳＨＤЛ
  496. 　ＮＥＸＴЛ
  497. 　ＭＯＤＥ＝Ａ１ＳＴЛ
  498. ＲＥＴＵＲＮЛ
  499. Л
  500. ′╂┿┰　ＭＯＤＥ：ＡＤＩＦＦ　　┥┿╂╂╂╂╂╂╂╂╂Л
  501. ′У　　Й　チカ゛ウ　アタイ　カキコミЛ
  502. ＠ＤＤＩＦＦЛ
  503. 　ＧＯＳＵＢ＠ＤＰＵＳＨＤЛ
  504. 　ＩＦ　ＡＬ＝＝０　ＴＨＥＮ　ＭＯＤＥ＝Ａ１ＳＴЛ
  505. 　ＡＬ＝ＡＬ−１Л
  506. ＲＥＴＵＲＮЛ
  507. Л
  508. ′╂┿┰　テ゛−タ　ツイカ　┥┿╂╂╂╂╂╂╂╂╂╂╂╂Л
  509. ′У　　Й　キャラ　ハ゜タ−ン　ニ　２モシ゛　ツイカЛ
  510. ＠ＤＰＵＳＨＤЛ
  511. 　ＢＧ＄＝ＢＧ＄＋ＨＥＸ＄（Ｂ，２）Л
  512. 　ＩＦ　ＬＥＮ（ＢＧ＄）＜６４　ＴＨＥＮ　ＲＥＴＵＲＮЛ
  513. 　′ＧＯＴＯ　＠ＤＷＲＩＴＥЛ
  514. Л
  515. ′╂┿┰　カキコミ　┥┿╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂Л
  516. ′У　　Й　キャラ　セットЛ
  517. ＠ＤＷＲＩＴＥЛ
  518. 　Ｒ＄＝ＲＥＳ＄＋ＨＥＸ＄（ＣＩ／２５６）Л
  519. 　Ｒ＝ＣＩ％２５６Л
  520. Л
  521. 　′┌──────ｆｏｒ　ＶＥＲＩＦＹ─────────┐Л
  522. 　　ＩＦ！ＡＶＥＲＩＦＹ　ＧＯＴＯ　＠ＶＥＲＩＦＹＥＤЛ
  523. 　　　ＩＦ（Ｒ＄＝＝”ＢＧＵ０”）ＡＮＤ（Ｒ＝＝３３）ＴＨＥＮ　ＣＨＫ＄＝ＢＫＢＧ＄：ＧＯＴＯ＠ＶＥＲＩＦＹ０Л
  524. 　　　　ＣＨＲＲＥＡＤ（Ｒ＄，Ｒ），ＣＨＫ＄Л
  525. 　　　＠ＶＥＲＩＦＹ０Л
  526. 　　　ＩＦ　ＣＨＫ＄！＝ＢＧ＄　ＴＨＥＮ　ＧＯＳＵＢ　＠ＡＶＲＥＲＲЛ
  527. 　　＠ＶＥＲＩＦＹＥＤЛ
  528. 　′└──────ｆｏｒ　ＶＥＲＩＦＹ─────────┘Л
  529. Л
  530. 　ＣＨＲＳＥＴ　Ｒ＄，Ｒ，ＢＧ＄Л
  531. Л
  532. 　′┌──────ｆｏｒ　ＰＲＥＶＩＥＷ────────┐Л
  533. 　　ＩＦ！ＡＰＲＥＶＩＥＷ　ＧＯＴＯ＠ＰＲＥＶＩＥＷＥＤЛ
  534. 　　　ＧＰＡＧＥ　０，ＤＰ，０Л
  535. 　　　ＧＰＵＴＣＨＲ　ＤＸ，ＤＹ，Ｒ＄，Ｒ，ＤＰＬ，１Л
  536. 　　　ＤＸ＝ＤＸ＋８：ＤＹ＝ＤＹ＋８＊（ＤＸ＞＝ＤＷ）Л
  537. 　　　ＤＸ＝ＤＸ％ＤＷ：ＤＹ＝ＤＹ％ＤＨЛ
  538. 　　＠ＰＲＥＶＩＥＷＥＤЛ
  539. 　′└──────ｆｏｒ　ＰＲＥＶＩＥＷ────────┘Л
  540. Л
  541. 　ＢＧ＄＝””Л
  542. 　ＣＩ＝ＣＩ＋１Л
  543. Л
  544. ＲＥＴＵＲＮЛ
  545. Л
  546. ′┌───────ｆｏｒ　ＶＥＲＩＦＹ─────────┐Л
  547. 　′╂┿┰　イチシ゛　ハ゛ッファ　ホソ゛ン　┥┿╂╂╂╂Л
  548. 　＠ＤＴＭＰＵＳＨЛ
  549. 　　ＩＦ！ＡＶＥＲＩＦＹ　ＴＨＥＮ　ＲＥＴＵＲＮЛ
  550. 　　　ＣＨＲＲＥＡＤ（”ＢＧＵ０”，３３），ＢＫＢＧ＄Л
  551. 　ＲＥＴＵＲＮЛ
  552. Л
  553. 　′╂┿┰　イチシ゛　ハ゛ッファ　フッキ　┥┿╂╂╂╂╂Л
  554. 　＠ＤＴＭＰＯＰЛ
  555. 　　ＩＦ！ＡＶＥＲＩＦＹ　ＴＨＥＮ　ＲＥＴＵＲＮЛ
  556. 　　　ＣＨＲＳＥＴ　”ＢＧＵ０”，３３，ＢＫＢＧ＄Л
  557. 　ＲＥＴＵＲＮЛ
  558. Л
  559. 　′╂┿┰　キ−　ニュウリョク　マチ　┥┿╂╂╂╂╂╂╂Л
  560. 　＠ＫＷＡＩＴЛ
  561. 　　ＷＡＩＴ　１Л
  562. 　　ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　ＲＥＴＵＲＮЛ
  563. 　　ＩＦ　ＩＮＫＥＹ＄（）＝＝””　ＴＨＥＮ　＠ＫＷＡＩＴЛ
  564. 　ＲＥＴＵＲＮЛ
  565. Л
  566. 　′╂┿┰　エラ−　ヒョウシ゛　┥┿╂╂╂╂╂╂╂╂╂╂Л
  567. 　＠ＡＶＲＥＲＲЛ
  568. 　　？”ＥＲＲ　ＩＮ　”ＲＥＳ＄；”：”；ＣＩЛ
  569. 　　？ＣＨＫ＄Л
  570. 　　？ＢＧ＄Л
  571. 　　ＢＥＥＰ　２Л
  572. 　ＧＯＴＯ＠ＫＷＡＩＴЛ
  573. ′└───────ｆｏｒ　ＶＥＲＩＦＹ─────────┘Л
  574. Л
  575. ′┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸┝┸Л
  576. ′（ＥＯＦ）Л

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : スゴイナーーー (2013/01/04 (金) 10:24:09)
  • 天郷思音 : プログラムリストの行番号が重複してるようです。#basic{{を使うと自動的に行番号かつきます。 (2013/01/04 (金) 13:16:13)
  • RND128 : 上の指摘を勝手に修正しました。スイマセン (2013/01/04 (金) 15:32:34)
  • uniskie : ほーそんなことがあるんですね。修正有難うございます。＞行番号 (2013/01/04 (金) 16:02:50)
  • 名無しさん : おつです！ (2013/01/05 (土) 16:37:18)
  • 名無しさん : http://wiki.hosiken.jp/petc/?cmd=read&page=Toukou%2F%A5%A2%A5%CB%A5%E1%A1%BC%A5%B7%A5%E7%A5%F3%BA%EE%C0%AEにもある (2013/01/06 (日) 12:15:04)
  • uniskie : http://wiki.hosiken.jp/petc/?cmd=read&page=Toukou%2F%A5%A2%A5%CB%A5%E1%A1%BC%A5%B7%A5%E7%A5%F3%BA%EE%C0%AE はGRPに全部まとめる所が同じですが、（ランレングス）圧縮ではないと思いますよ。 複数のデータをまとめる処理はそれ自体をなんでもアーカイブと表現しますが、アーカイブ＝圧縮というわけでもありません。 (2013/01/06 (日) 17:42:44)
  • Rzlszggd : ebDCxDVFn (2014/03/10 (月) 19:48:34)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.155 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:09 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30