TEST START
RPUSH
LAD GR1,0 ;GR1に配列BEFOREの先頭の添え字0を読み込む
LAD GR2,0 ;GR2に配列AFTERの先頭の添え字0を読み込む
;<<ここからループ>>
LOOP CPL GR2,=7 ;GR2とAFTER(GOUKAKU)の文字数7文字を比較
JZE FIN ;等しかったらFINへ分岐
LD GR3,BEFORE,GR1 ;GR3に配列BEFOREの文字を1つずつ読み込む
ST GR3,AFTER,GR2 ;GR3の文字を配列AFTERに格納
LAD GR2,1,GR2 ;AFTERのGR2をインクリメント
LAD GR1,2,GR1 ;BEFOREのGR1を2つ増やす
JUMP LOOP ;LOOPへ分岐
;<<ここまでループ>>
FIN OUT AFTER,ALEN ;配列AFTERを出力
RPOP
RET
BEFORE DC 'GROGUBKCAMKYU' ;配列BEFOREを用意
AFTER DS 7 ;配列AFTERに領域7つ分を確保
ALEN DC 7 ;AFTERの文字数ALENを7文字とする
END
TEST START
RPUSH
;GR1に配列BEFOREの先頭の添え字0を読み込む
;GR2に配列AFTERの先頭の添え字0を読み込む
;<<ここからループ>>
;GR2とAFTER(GOUKAKU)の文字数7文字を比較
;等しかったらFINへ分岐
;GR3に配列BEFOREの文字を1つずつ読み込む
;GR3の文字を配列AFTERに格納
;AFTERのGR2をインクリメント
;BEFOREのGR1を2つ増やす
;LOOPへ分岐
;<<ここまでループ>>
;配列AFTERを出力
RPOP
RET
BEFORE DC 'GROGUBKCAMKYU' ;配列BEFOREを用意
AFTER DS 7 ;配列AFTERに領域7つ分を確保
ALEN DC 7 ;AFTERの文字数ALENを7文字とする
END
insert into Weapon values (‘B0001′,’う◎こ爆弾’, ‘thr’,5); insert into Weapon values (‘B0002′,’かみなりビーム’, ‘hit’,7); insert into Weapon values (‘B0003′,’ジャイアンの歌’, ‘noi’,100); insert into Weapon values (‘B0004′,’へ’, ‘sme’,3); insert into Weapon values (‘B0005′,’正◎丸’, ‘sme’,6);
では、登録した表Weaponを確認します。 select * from Weapon;
次に、Shubetsuにデータを登録します。
insert into Shubetsu value(‘thr’,’投げる’); insert into Shubetsu value(‘hit’,’打つ’); insert into Shubetsu value(‘noi’,’騒音攻撃’); insert into Shubetsu value(‘sme’,’匂い攻撃’);
これも、確認します。 select * from Shubetsu;
最後に、この2つの表を、type_idで関連付けます。
select Weapon.name, Weapon.type_id, Shubetsu.tyname from Weapon,Shubetsu where Weapon.type_id=Shubetsu.type_id;
TEST START
RPUSH
LAD GR1,4;←GR1に数を指定
SRL GR1,1;1ビット右へシフト
JOV OVER;オーバーフローした場合はラベルOVERへジャンプ
OUT EVEN,LEN;偶数の旅先「北海道」を出力
JUMP FIN;ラベルFINへジャンプ
OVER OUT ODD,LEN2;奇数の旅先「沖縄」を出力
FIN RPOP;終了のFINラベル
RET
EVEN DC 'HOKKAIDO';偶数ラベル
LEN DC 8;文字数
ODD DC 'OKINAWA';奇数ラベル
LEN2 DC 7;文字数
END
TEST START
RPUSH
LAD GR1,7;←GR1に数を指定
SRL GR1,1;1ビット右へシフト
JOV OVER;オーバーフローした場合はラベルOVERへジャンプ
OUT EVEN,LEN;偶数の旅先「北海道」を出力
JUMP FIN;ラベルFINへジャンプ
OVER OUT ODD,LEN2;奇数の旅先「沖縄」を出力
FIN RPOP;終了のFINラベル
RET
EVEN DC 'HOKKAIDO';偶数ラベル
LEN DC 8;文字数
ODD DC 'OKINAWA';奇数ラベル
LEN2 DC 7;文字数
END
TEST START
RPUSH
;←GR1に数を指定
;1ビット右へシフト
;オーバーフローした場合はラベルOVERへジャンプ
;偶数の旅先「北海道」を出力
;ラベルFINへジャンプ
;奇数の旅先「沖縄」を出力
FIN RPOP;終了のFINラベル
RET
EVEN DC 'HOKKAIDO';偶数ラベル
LEN DC 8;文字数
ODD DC 'OKINAWA';奇数ラベル
LEN2 DC 7;文字数
END
TEST START
RPUSH
IN FOOD,NUM ;好きな食べ物を入力
OUT FOOD,NUM ;その食べ物を出力
OUT MOJI,LEN ;文字列「食べたい」を出力
RPOP
RET
FOOD DS 30;食べ物FOODの格納場所を確保しておく
NUM DS 1;インプットボックスに入力した、文字数NUMの格納場所を確保しておく
MOJI DC 'TABETAI!!';文字列に「食べたい」を格納しておく
LEN DC 9;「食べたい!!」の文字数を格納しておく
END
TEST START
RPUSH
;好きな食べ物を入力
;その食べ物を出力
;文字列「食べたい」を出力
RPOP
RET
;食べ物FOODの格納場所を確保しておく
;INPUTBOXに入力した文字数NUMの格納場所を確保しておく
;文字列に「食べたい(TABETAI!!)」を格納しておく
;「食べたい」の文字数を格納しておく
END