NASAPL.
６０００
LO=(6000)
６００１
NASAPL.という言語で書きます。
プログラムは６０００番地にしまってある。
６００２
START＝(6000)
CLR,UA.
６００３
LD, ［Ａ］
６００４
ML,［Ｂ］
６００５
６０００番地からスタートする。
ここまで Upper Acc.をクリアせよ。
が開始部
ここから
本体部
Ａ番地の内容をAccに持ってくる。
Accの内容にＢ番地の内容を掛ける。
この結果 Accの内容はＡ・Ｂとなる。
ST,（P）
６００６
LD,［C］
６００７
DV,［D］
６００８
DV,#:２．
６００９
ST,（Q）
６０１０
LD,#:６．
６０１１
ML,［E］
６０１２
P番地に[Acc]をしまう。
C番地の内容をAccに持ってくる。
Accの内容をD番地の内容で割る。
Accの内容を十進数の２で割る。
Q番地に[Acc]をしまう。
十進数の６をAccに持ってくる。
Accの内容にＥ番地の内容を掛ける。
ＡＤ,［Ｐ］
６０１３
ＳＢ,［Ｑ］
６０１４
ST,（Ｆ）
６０１５
Ａ＝（２００）
６０１６
Ｂ＝（Ａ＋１）
６０１７
Ｃ＝（Ａ＋２）
６０１８
Ｄ＝（Ａ＋３）
６０１９
P番地の内容を[Acc]に加える。
[Acc]からＱ番地の内容を引く。
Ｆ番地に[Acc]をしまう。
ここから Ａは２００番地です。
データ部
Ｂは２０１番地です。
Ｃは２０２番地です。
Ｄは２０３番地です。
ここまで
が本体部
Ｅ＝（３００）
６０２０
Ｆ＝（Ｅ＋１）
６０２１
Ｐ＝（４００）
６０２２
Ｑ＝（５００）
６０２３
ＥＮＤ．
６０２４
Ｅは３００番地です。
Ｆは３０１番地です。
Ｐは４００番地です。
Ｑは５００番地です。
プログラムの終了。
これは
終了部
ここまでが
データ部です