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

投稿プログラム : PICデコーダ

パンくずリスト

2011年12月09日投稿 / 2012年01月08日大幅更新 / 投稿者 : 名無しさん / タグ : 投稿プログラム ツール 画像圧縮 初代対応 QRコード

概要

Toukou/PICエンコーダで作成したデータをデコードするプログラムです。

リストでは、PICエンコーダで生成したデータをDATA文にして、 それを復元し、色を付けた文字列で16x16ごとに表示するようになっています。

動作確認

SPU0の0番のキャラクタと同じパターンで文字列が表示されれば成功です。 (DATAの入力ミスがあるかもしれないので、PICエンコーダでファンクションキーに出力したDATA文を、@PICD直後に貼り付けて確認するのが良いです)

改造など

自分のプログラムに組み込んで画像をリスト内に持つようにしてくれて結構です。

使い方としては、CHRED等でキャラクタを編集し、 PICエンコーダ(をベースにしたプログラム)で編集したキャラクタをデコードし、 生成したDATA文を使うような感じになるかと思います。

QR コード

プチコンmkII 向けの QR コードです。

PRG:PIC_DED
1/22/2
PIC_DED1.pngPIC_DED2.png

プログラムリスト

  1. ＠ＰＩＣＤ
  2. ＤＡＴＡ　１，”１０８００００８Ｅ０００００００８４０２２１０ＦＥＥ８ＤＣ０００００８１Ｄ０００００８１Ｃ２８１Ｅ２２０ＥＥ８００００５ＣＥ８００００００
  4. ＠ＭＡＩＮ
  5. ＣＬＥＡＲ
  6. ＤＩＭ　ＰＩＣＦ（２５６），ＰＩＣＣ（２５６）
  7. ＤＩＭ　ＰＯＵＴ＄（４）
  8. ＲＥＳＴＯＲＥ　＠ＰＩＣＤ
  9. 　ＲＥＡＤ　ＰＣ，ＰＩＮ＄
  10. 　ＦＯＲ　Ｉ＝２　ＴＯ　ＰＣ
  11. 　　ＲＥＡＤ　ＰＩ＄
  12. 　　ＰＩＮ＄＝ＰＩＮ＄＋ＰＩ＄
  13. 　ＮＥＸＴ
  14. 　ＧＯＳＵＢ　＠ＰＩＣＤＥＣ
  15. 　ＦＯＲ　Ｙ＝０　ＴＯ　１５
  16. 　　ＦＯＲ　Ｘ＝０　ＴＯ　１５
  17. 　　　Ｃ＄＝ＭＩＤ＄（ＰＯＵＴ＄，Ｙ＊ＰＷ＋Ｘ，１）
  18. 　　　ＣＯＬＯＲ　１５−ＶＡＬ（”＆Ｈ”＋Ｃ＄）：？Ｃ＄；
  19. 　　ＮＥＸＴ
  20. 　　？””
  21. 　ＮＥＸＴ
  22. ＥＮＤ
  24. ＠ＳＰＬＣＨＲ
  25. ＦＯＲ　Ｉ＝０　ＴＯ　３：ＰＯＵＴ＄（Ｉ）＝””：ＮＥＸＴ
  26. ＦＯＲ　Ｉ＝０　ＴＯ　７
  27. 　ＰＯＵＴ＄（０）＝ＰＯＵＴ＄（０）＋ＭＩＤ＄（ＰＯＵＴ＄，Ｉ＊１６，８）
  28. 　ＰＯＵＴ＄（１）＝ＰＯＵＴ＄（１）＋ＭＩＤ＄（ＰＯＵＴ＄，Ｉ＊１６＋８，８）
  29. 　ＰＯＵＴ＄（２）＝ＰＯＵＴ＄（２）＋ＭＩＤ＄（ＰＯＵＴ＄，Ｉ＊１６＋１２８，８）
  30. 　ＰＯＵＴ＄（３）＝ＰＯＵＴ＄（３）＋ＭＩＤ＄（ＰＯＵＴ＄，Ｉ＊１６＋１３６，８）
  31. ＮＥＸＴ
  32. ＲＥＴＵＲＮ
  34. ＠ＰＩＣＤＥＣ
  35. ＿Ｘ＝０：＿Ｙ＝０：ＰＨ＝１６：ＰＷ＝１６：ＰＤＰ＝０
  36. ＰＯＵＴ＄＝””
  37. ＧＯＳＵＢ　＠ＵＣＰ
  38. ＦＯＲ　＿Ｙ＝０　ＴＯ　ＰＨ−１
  39. 　ＦＯＲ　＿Ｘ＝０　ＴＯ　ＰＷ−１
  40. 　　＿ＰＯＳ＝＿Ｘ＋＿Ｙ＊ＰＷ
  41. 　　ＩＦ　ＰＩＣＦ（＿ＰＯＳ）＝＝０　ＴＨＥＮ　＠ＰＤ０
  42. 　　　＿Ｃ＝ＰＩＣＣ（＿ＰＯＳ）
  43. 　　＠ＰＤ０
  44. 　　ＰＯＵＴ＄＝ＰＯＵＴ＄＋ＨＥＸ＄（＿Ｃ）
  45. 　ＮＥＸＴ
  46. ＮＥＸＴ
  47. ＲＥＴＵＲＮ
  49. ＠ＵＣＰ
  50. ＿ＵＸ＝０：＿ＵＹ＝０
  51. ＦＯＲ　＿Ｉ＝０　ＴＯ　ＰＷ＊ＰＨ−１
  52. 　ＰＩＣＦ（＿Ｉ）＝０
  53. ＮＥＸＴ
  54. ＰＤＰ＝ＰＤＰ＋１
  55. ＠ＵＣＰＬＰ
  56. ＩＦ　＿ＵＸ＞＝ＰＷ　ＯＲ　＿ＵＹ＞＝ＰＨ　ＴＨＥＮ　＠ＵＣＰＬＰＯ
  57. 　＿ＵＰＯＳ＝＿ＵＸ＋＿ＵＹ＊ＰＷ
  58. 　ＰＩＣＦ（＿ＵＰＯＳ）＝１
  59. 　ＰＩＣＣ（＿ＵＰＯＳ）＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＰＩＮ＄，ＰＤＰ，１））
  60. 　ＰＤＰ＝ＰＤＰ＋１
  61. 　ＧＯＳＵＢ　＠ＵＣＬ
  62. 　＠ＵＣＰＬ２
  63. 　　ＰＬＥＮ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＰＩＮ＄，ＰＤＰ，１））
  64. 　　ＰＤＰ＝ＰＤＰ＋１
  65. 　　ＧＯＳＵＢ　＠ＡＤＤＬＥＮ
  66. 　ＩＦ　ＰＬＥＮ＝＝０　ＡＮＤ　＿ＵＹ＜ＰＨ　ＴＨＥＮ　＠ＵＣＰＬ２
  67. ＧＯＴＯ　＠ＵＣＰＬＰ
  68. ＠ＵＣＰＬＰＯ
  69. ＲＥＴＵＲＮ
  71. ＠ＡＤＤＬＥＮ
  72. 　＿ＰＬＥＮ＝ＰＬＥＮ
  73. 　ＩＦ　＿ＰＬＥＮ＝＝０　ＴＨＥＮ　＿ＰＬＥＮ＝１５
  74. 　＿ＵＸ＝＿ＵＸ＋＿ＰＬＥＮ
  75. 　＠ＡＬ０
  76. 　ＩＦ　＿ＵＸ＜ＰＷ　ＯＲ　＿ＵＹ＞＝ＰＨ　ＴＨＥＮ　＠ＡＬＯ
  77. 　　＿ＵＸ＝＿ＵＸ−ＰＷ
  78. 　　＿ＵＹ＝＿ＵＹ＋１
  79. 　ＧＯＴＯ　＠ＡＬ０
  80. 　＠ＡＬＯ
  81. ＲＥＴＵＲＮ
  83. ＠ＵＣＬ
  84. ＿ＣＰ＝ＰＩＣＣ（＿ＵＰＯＳ）：＿ＬＹ＝＿ＵＹ：＿ＬＸ＝＿ＵＸ
  85. ＠ＵＣＬ０
  86. ＿Ｉ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＰＩＮ＄，ＰＤＰ，１））
  87. ＰＤＰ＝ＰＤＰ＋１
  88. ＩＦ　＿Ｉ＝＝８　ＯＲ　ＰＤＰ＞ＬＥＮ（ＰＩＮ＄）　ＴＨＥＮ　＠ＵＣＬＯ
  89. 　＿Ｉ＝＿Ｉ＋（＿Ｉ＞７）＊−１６
  90. 　＿ＬＹ＝＿ＬＹ＋１
  91. 　＿ＬＸ＝＿ＬＸ＋＿Ｉ
  92. 　＿ＰＯＳ＝＿ＬＸ＋＿ＬＹ＊ＰＷ
  93. 　ＰＩＣＦ（＿ＰＯＳ）＝１
  94. 　ＰＩＣＣ（＿ＰＯＳ）＝＿ＣＰ
  95. ＧＯＴＯ　＠ＵＣＬ０
  96. ＠ＵＣＬＯ
  97. ＲＥＴＵＲＮ

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

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

  • 名無しさん : QRコードお願いします (2012/04/08 (日) 11:05:07)

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