PC-6001/mkII/6601/SR★おれたちP6系 Part23

11 ：ナイコンさん：2017/05/19(金) 13:24:38.67 .net

更に改良版　マシン語→ＤＡＴＡ文変換　１画面プログラム

前もって手動で CONSOLE 0,16,0,0やCLEAR文を手動で実行しておく
最初の１回目だけ「RUN 2」で実行
以降はひたすらリターンキーを連打
終わりは手動で判断する

１　Ｂ＝ＰＥＥＫ（＆ＨＦＥＢ５）：Ｃ＝ＰＥＥＫ（＆ＨＦＥＢ６）：
Ｄ＝ＰＥＥＫ（＆ＨＦＥＢ７）：ＧＯＴＯ３
２　ＩＮＰＵＴＡ：Ｂ＝ＡＡＮＤ２５５：Ｃ＝ＩＮＴ（（Ａ＋６５５３
６）／２５６）：Ｄ＝１０
３　Ｚ＝６５５３６：Ａ＝Ｃ＊２５６＋Ｂ−Ｚ：ＤＩＭＡ＄（１５）
４　ＦＯＲＩ＝０ＴＯ１５：Ａ＄（Ｉ）＝ＣＨＲ＄（４８＋Ｉ−（Ｉ＞
９）＊７）：ＮＥＸＴ：ＣＬＳ：ＰＲＩＮＴ：ＦＯＲＩ＝０ＴＯ５
５　ＰＲＩＮＴＤ；”０　ＤＡＴＡ　”；：ＦＯＲＪ＝０ＴＯ１５：Ｋ
＝ＰＥＥＫ（Ａ）：ＩＦＪ＞０ＴＨＥＮＰＲＩＮＴ”，”；
６　ＰＲＩＮＴＡ＄（ＩＮＴ（Ｋ／１６））；Ａ＄（ＫＡＮＤ１５）；：
Ａ＝Ａ＋１：ＮＥＸＴ：ＰＲＩＮＴ：Ｄ＝Ｄ＋１：ＮＥＸＴ
７　ＰＯＫＥ＆ＨＦＥＢ５，ＡＡＮＤ２５５：ＰＯＫＥ＆ＨＦＥＢ６，
ＩＮＴ（（Ａ＋Ｚ）／２５６）：ＰＯＫＥ＆ＨＦＥＢ７，Ｄ
８　ＰＲＩＮＴ”ＲＵＮ”；ＣＨＲ＄（１１）；