ＰＩＣＢＡＳＩＣコンパイラ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
まるでインタプリタ。でもコンパイラです。超カンタン超シンプルです。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

［第３６回］



●ＯＮ　ｎ　ＧＯＳＵＢ文（３）

今回もＯＮ　ｎ　ＧＯＳＵＢ文です。
［第３３回］ではＧＯＴＯ文の行き先として行番号だけではなくてラベルを指定することができることについて書きました。
同様にＯＮ　ｎ　ＧＯＳＵＢ文でも行き先にラベルを指定することができます。
今回はＧＯＳＵＢ文の行き先にラベルを使ったテストです。
普通は行番号だけとかラベルだけというような使い方が多いと思いますが今回はテストですから［第３３回］と同じように行番号とラベルを混ぜたプログラムを作りました。
テストプログラムｂｓｏｎｇｏｓｕｂｔ２．ｔｘｔをロードしました。

ＰＩＣＢＡＳＩＣのテキストプログラムをロードするとそのテキストプログラムをもとにしてＰＩＣアセンブラソースプログラムファイルがコンバート作成されて最終的にＰＩＣマシン語コードファイルが作成されます。

ＬＩＳＴコマンドでＢＡＳＩＣのテキストプログラムを表示しました。

ＧＯＳＵＢ文の行き先は１００、＊ａｂｃ、３００、＊ｘｙｚです。
今回はａ＝２を指定しましたからプログラムが正しく実行されればラベル＊ａｂｃの行（２００行）が実行されたあと３０行に戻ってそこでブレークするはずです。
／ｒｕｎコマンドを実行しました。
さきほど作成されたマシン語コードがＰＩＣに書き込まれたあとそのマシン語プログラムが実行されて
＊ａｂｃ
ｅｎｄ
と表示されたあとアドレス２０５０でブレークしました。
そのことを示す
ｂｒｅａｋ　［２０５０］
の表示のあと
ｂｒｅａｋ　ｂｅｆｏｒｅ　ｌｉｎｅ＃＝１００
と表示されて１００行が表示されました。
マシン語プログラムのアドレス２０５０はもとのＢＡＳＩＣプログラムでは１００行の直前の位置（つまり３０行の終わり）です。

ＰＩＣＢＡＳＩＣコンパイラによって作成されたマシン語プログラムリストファイルです。

2000 ; 10 a=2 2000 020e movlw D'2' 2002 306e movwf a 2004 ; 20 on a gosub 100,*abc,300,*xyz 2004 3050 movf a,w 2006 1c6e movwf R1c 2008 1c06 decf R1c,f 200a 040e movlw 4 200c 1c5c subwf R1c,w 200e 13e2 bc $+28 2010 1c46 rlncf R1c,f 2012 1c46 rlncf R1c,f 2014 1c46 rlncf R1c,f 2016 2eec call 5c 2018 00f0 201a 28ec call _100 201c 10f0 201e 1bef goto _ongosubend 2020 10f0 2022 34ec call abc 2024 10f0 2026 1bef goto _ongosubend 2028 10f0 202a 43ec call _300 202c 10f0 202e 1bef goto _ongosubend 2030 10f0 2032 4fec call xyz 2034 10f0 2036 _ongosubend 2036 ; 30 print "end":stop 2036 650e movlw 65 2038 16ec call 2c 203a 00f0 203c 6e0e movlw 6e 203e 16ec call 2c 2040 00f0 2042 640e movlw 64 2044 16ec call 2c 2046 00f0 2048 26ec call 4c 204a 00f0 204c 12ec call 24 204e 00f0 2050 ; 100 print "100":return 2050 _100 2050 310e movlw 31 2052 16ec call 2c 2054 00f0 2056 300e movlw 30 2058 16ec call 2c 205a 00f0 205c 300e movlw 30 205e 16ec call 2c 2060 00f0 2062 26ec call 4c 2064 00f0 2066 1200 return 2068 ; 200 *abc:print "*abc":return 2068 abc 2068 2a0e movlw 2a 206a 16ec call 2c 206c 00f0 206e 610e movlw 61 2070 16ec call 2c 2072 00f0 2074 620e movlw 62 2076 16ec call 2c 2078 00f0 207a 630e movlw 63 207c 16ec call 2c 207e 00f0 2080 26ec call 4c 2082 00f0 2084 1200 return 2086 ; 300 print "300":return 2086 _300 2086 330e movlw 33 2088 16ec call 2c 208a 00f0 208c 300e movlw 30 208e 16ec call 2c 2090 00f0 2092 300e movlw 30 2094 16ec call 2c 2096 00f0 2098 26ec call 4c 209a 00f0 209c 1200 return 209e ; 400 *xyz:print "*xyz":return 209e xyz 209e 2a0e movlw 2a 20a0 16ec call 2c 20a2 00f0 20a4 780e movlw 78 20a6 16ec call 2c 20a8 00f0 20aa 790e movlw 79 20ac 16ec call 2c 20ae 00f0 20b0 7a0e movlw 7a 20b2 16ec call 2c 20b4 00f0 20b6 26ec call 4c 20b8 00f0 20ba 1200 return

さきほどの画面で表示されたブレークアドレス２０５０はもとのＢＡＳＩＣプログラムでは１００行の先頭位置にあるマシン語コードのアドレスになっています。
その前の３０行を実行した最後のアドレス（２０４Ｃ）にあるＳＴＯＰ文に対応するマシン語命令ＣＡＬＬ　２４（ＳＴＯＰ文のあとのブレーク処理をするためシステムルーチンをＣＡＬＬしています）を実行したあとブレークしたのですが、ＣＰＵにはその次のアドレスが読み込まれたあとでブレークするのでブレークしたときは次のアドレス（２０５０）が表示されます。

ＰＩＣＢＡＳＩＣコンパイラ［第３６回］
２０２３．６．１３ｕｐｌｏａｄ

前へ
次へ
ホームページトップへ戻る