assembleProgramming

	＊このパートはH8/300/TinyにMidiを導入するためのノウハウを蓄積するための場所です＊
		関連項目：　　H8/3664 　　AKI-H8 　　PallarellPort増設　　VHDL coding 　　前の頁　　次の頁
	前項で解説した、スイッチ用の参照データと、そのハンドリング・ルーティンを紹介する。まず、参照するポートデータはいろいろと試行錯誤した結果、このように記述している。手間は掛かるが、単純にデータを順に置いていくだけなので、混乱がなく、コードの配置次第では、視覚的な視認性も良好となる。この例で、0，1はスイッチの状態、数字はポート番号のオフセットである。数値の配置は、実際のスイッチの構造に準拠している。これらはあくまで僕がオリジナルに設計したフットスイッチのためのデータであるが、他の用途に対しても応用が利くので、一つの指針として活用すればよいだろう。
	`swaddr00: .data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` `swaddr01: .data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 0, 0, 0, 0, 1, 1, 1, 1` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` `swaddr02: .data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 1, 1, 1, 1, 1, 1, 1, 1` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` `swaddr03: .data.b 0, 0, 0, 0, 1, 1, 1, 1` 　　　　　　　`.data.b 1, 1, 1, 1, 1, 1, 1, 1` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` 　　　　　　　`.data.b 0, 0, 0, 0, 0, 0, 0, 0` `swnum00: .data.b 1, 2, 3, 4, 5, 6, 7, 8` 　　　　　　　`.data.b 9,10,11,12,13,14,15,16` 　　　　　　　`.data.b 17,18,19,20,21,22,23,24` 　　　　　　　`.data.b 25,26,27,28,29,30,31,32` `swnum01: .data.b 1, 2, 3, 4, 5, 6, 7, 8` 　　　　　　　`.data.b 9,10,11,12, 1, 2, 3, 4` 　　　　　　　`.data.b 13,14,15,16,17,18,19,20` 　　　　　　　`.data.b 21,22,23,24,25,26,27,28` `swnum02: .data.b 1, 2, 3, 4, 5, 6, 7, 8` 　　　　　　　`.data.b 1, 2, 3, 4, 5, 6, 7, 8` 　　　　　　　`.data.b 9,10,11,12,13,14,15,16` 　　　　　　　`.data.b 17,18,19,20,21,22,23,24` `swnum03: .data.b 1, 2, 3, 4, 1, 2, 3, 4` 　　　　　　　`.data.b 5, 6, 7, 8, 9,10,11,12` 　　　　　　　`.data.b 5, 6, 7, 8, 9,10,11,12` 　　　　　　　`.data.b 13,14,15,16,17,18,19,20`
	`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;` `;;;; set the number from look up table` `;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;` `load_sw_num:` 　　　　`mov.b @swptn,r3l` 　　　　`cmp.b #3,r3l` 　　　　`beq sw_01` 　　　　`cmp.b #0,r3l` 　　　　`beq sw_00` 　　　　`rts` `sw_00:` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` `num_data_load00:` 　　　　`mov.b @(swnum00,er0), r1h` 　　　　`mov.b r1h, @(setcnt,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble num_data_load00` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` `sw_data_load00:` 　　　　`mov.b @(swaddr00,er0), r1h` 　　　　`mov.b r1h, @(setsw,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble sw_data_load00` 　　　　`rts` `sw_01:` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` 　　　　`num_data_load01:` 　　　　`mov.b @(swnum01,er0), r1h` 　　　　`mov.b r1h, @(setcnt,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble num_data_load01` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` `sw_data_load01:` 　　　　`mov.b @(swaddr01,er0), r1h` 　　　　`mov.b r1h, @(setsw,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble sw_data_load01` 　　　　`rts` `;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;` `load_sw_num2:` 　　　　`mov.b @swptn,r3l` 　　　　`cmp.b #1,r3l` 　　　　`beq sw_03` 　　　　`cmp.b #2,r3l` 　　　　`beq sw_02` 　　　　`rts` `sw_02:` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` `num_data_load02:` 　　　　`mov.b @(swnum02,er0), r1h` 　　　　`mov.b r1h, @(setcnt,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble num_data_load02` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` `sw_data_load02:` 　　　　`mov.b @(swaddr02,er0), r1h` 　　　　`mov.b r1h, @(setsw,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble sw_data_load02` 　　　　`rts` `sw_03:` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` `num_data_load03:` 　　　　`mov.b @(swnum03,er0), r1h` 　　　　`mov.b r1h, @(setcnt,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble num_data_load03` 　　　　`sub.l er0,er0` 　　　　`sub.l er1,er1` 　　　　`sub.l er2,er2` `sw_data_load03:` 　　　　`mov.b @(swaddr03,er0), r1h` 　　　　`mov.b r1h, @(setsw,er0)` 　　　　`add.l #1,er0` 　　　　`cmp.l #31,er0` 　　　　`ble sw_data_load03` 　　　　`rts`
	上記の例は、Tinyシリーズ用にダウンサイジングしたテーブル参照用のルーティンである。Tinyシリーズの問題点は16ビットというアドレス空間の狭さにある。H8では、何も考えずにCMPを使って条件分岐を行えるが、Tinyシリーズでは分岐先に更に分岐があるような場合にアドレス管理に破綻を来してアセンブル時にエラーが報告されてしまう。エラーを最小限に食い止めるためには、作業を構造化して細分化し、手間は掛かっても各パートで作業を完結し、条件に漏れたモノは下流に流すという手法をとる必要がある。つまり、サブルーティンの階層を減らすことが、トラブル滅却の第一歩となるのだ。
	つづく→