ドアドアがUS TUTORで動かないという指摘を頂いたので勝手にパッチ作成しました。
https://www.youtube.com/watch?v=MIoiBIzAjyk
初代ぴゅう太/mk2で動作確認しています。US TUTORはmk2と同じと思われます。
https://tms9918.hatenablog.com/entry/2018/01/18/211846
AORG >B820
VIRTCN EQU >F0EA
CLR @VIRTCN
LI R12,>EC40
STCR R2,8 ; Bring 8 row bits into MSB of R2
KBSCAE COC @BIT5,R2 ; FIRE pressed ?
JNE KBSCAF
SOC @BIT2,@VIRTCN
KBSCAF COC @BIT2,R2 ; Moved left ?
JNE KBSCAG
SOC @BIT5,@VIRTCN
KBSCAG COC @BIT0,R2 ; Moved right ?
JNE KBSCAH
SOC @BIT7,@VIRTCN
KBSCAH COC @BIT3,R2 ; Moved down ?
JNE KBSCAI
SOC @BIT4,@VIRTCN
KBSCAI COC @BIT1,R2 ; Moved up ?
JNE KBSCAC
SOC @BIT6,@VIRTCN
KBSCAC COC @BIT4,R2 ; FIRE pressed ?
JNE KBSCAJ
SOC @BIT3,@VIRTCN
*--------------------------------------------------------------
* Exit
*-------@-----@---------------------@--------------------------
KBSCAJ B *R11
BIT0 DATA >8000 ; Binary 1000000000000000
BIT1 DATA >4000 ; Binary 0100000000000000
BIT2 DATA >2000 ; Binary 0010000000000000
BIT3 DATA >1000 ; Binary 0001000000000000
BIT4 DATA >800 ; Binary 0000100000000000
BIT5 DATA >400 ; Binary 0000010000000000
BIT6 DATA >200 ; Binary 0000001000000000
BIT7 DATA >100 ; Binary 0000000100000000
BIT8 DATA >80 ; Binary 0000000010000000
BIT9 DATA >40 ; Binary 0000000001000000
BIT10 DATA >20 ; Binary 0000000000100000
BIT11 DATA >10 ; Binary 0000000000010000
BIT12 DATA >8 ; Binary 0000000000001000
BIT13 DATA >4 ; Binary 0000000000000100
BIT14 DATA >2 ; Binary 0000000000000010
BIT15 DATA >1 ; Binary 0000000000000001
勝手に再配布するのも気が引けるのでパッチを作成しました。
* Patch for door_pyuta.bin * * Made by バイナリ書き替え君 Version 2.03 * *== TARGET_FILE ================ FILENAME door_pyuta.bin * FileSize: 24576 bytes * LastMod : 2017/12/30 10:12:37 *=============================== 00000002: 02 04 00000003: 0F 60 00000004: F0 B7 00000005: 40 E0 0000005E: 40 60 0000006E: 4D 6D 0000009C: 4D 6D 000000BA: 4D 6D 000000EA: 4D 6D 00000126: 4C 6C 0000014E: 4D 6D 00000168: 4D 6D 00000170: 4D 6D 00000180: 4D 6D 00000188: 4C 6C 0000018E: 4D 6D 000001A0: 4D 6D 000001A8: 4D 6D 0000028A: 4D 6D 00000292: 4D 6D 000002A2: 4D 6D 00000316: 4C 6C 00000340: 4D 6D 00000370: 4C 6C 0000038C: 4D 6D 000003C0: 4D 6D 000003E6: 4D 6D 00000434: 4D 6D 0000045A: 4C 6C 00000466: 4C 6C 0000048A: 4C 6C 0000048E: 4D 6D 0000050C: 4D 6D 0000054A: 4C 6C 000005E6: 4C 6C 0000073A: 4D 6D 00000994: 4C 6C 00000AF6: 4C 6C 00000AFA: 4D 6D 00000B86: 4B 6B 00000C2C: 4D 6D 00000C74: 4C 6C 00000CC8: 4C 6C 00000D14: 4C 6C 00000DEE: 4C 6C 00000FE6: 40 60 00001288: 4D 6D 000012AA: 4C 6C 00001306: 4C 6C 00001344: 4D 6D 00001382: 4D 6D 00001390: 40 60 000013A6: 4C 6C 000013E6: 4D 6D 00001400: 4D 6D 00001438: 4D 6D 000015B2: 4C 6C 000015C2: 40 60 0000160E: 4C 6C 00001684: 00 B8 00001685: 40 72 0000170A: 40 60 00001746: 4C 6C 000018D0: 4D 6D 00001A3E: 40 60 00001A74: 42 62 00001A8A: 4C 6C 00001B4C: 4D 6D 00001D02: 40 60 00001D06: 45 65 00001D32: 00 B8 00001D33: 44 20 00001D6C: 4B 6B 00001E04: 40 60 00001EC0: 4D 6D 00001F96: 4D 6D 00001FA8: 4D 6D 00001FDA: 4C 6C 00002004: 4D 6D 0000202E: 40 60 00002046: 4D 6D 0000207A: 4D 6D 0000208C: 4D 6D 00002090: 4D 6D 000020BC: 4D 6D 000020C8: 4D 6D 000020D6: 4C 6C 0000214A: 4D 6D 0000215C: 40 60 00002180: 4D 6D 00002196: 4C 6C 000021AE: 4C 6C 000021D0: 45 65 0000226E: 4C 6C 00002272: 4C 6C 000022F0: 4C 6C 00002338: 4B 6B 0000233E: 4C 6C 0000234C: 4D 6D 00002354: 4D 6D 0000235A: 4B 6B 000023AC: 4B 6B 000023FA: 4D 6D 00002422: 4D 6D 000024D0: 40 60 000024FC: 45 65 00002546: 40 60 00002562: 45 65 000025BE: 4D 6D 00002600: 4C 6C 00002614: 4C 6C 00002622: 4C 6C 00002632: 4D 6D 00002684: 4C 6C 0000269E: 4C 6C 000026BA: 4C 6C 000026E6: 4D 6D 000027A0: 4C 6C 000027E8: 4D 6D 000027EC: 4D 6D 00002886: 4D 6D 000028A6: 4D 6D 000028AA: 4D 6D 000029D4: 4C 6C 000037E0: 00 02 000037E2: 00 40 000037E4: 00 02 000037E5: 00 01 000037E6: 00 20 000037E8: 00 02 000037E9: 00 0F 000037EA: 00 C0 000037EC: 00 D7 000037ED: 00 D0 000037EE: 00 05 000037EF: 00 80 000037F0: 00 05 000037F1: 00 8F 000037F2: 00 06 000037F3: 00 01 000037F4: 00 18 000037F5: 00 FB 000037F6: 00 02 000037F7: 00 0F 000037F8: 00 D3 000037F9: 00 44 000037FA: 00 02 000037FC: 00 E0 000037FD: 00 80 000037FE: 00 C7 000037FF: 00 C0 00003800: 00 02 00003801: 00 0F 00003802: 00 D3 00003803: 00 46 00003804: 00 02 00003806: 00 42 00003807: 00 42 00003808: 00 C7 00003809: 00 C0 0000380A: 00 02 0000380B: 00 0F 0000380C: 00 F0 0000380D: 00 40 0000380E: 00 04 0000380F: 00 60 00003810: 00 80 00003811: 00 06 00003820: 00 04 00003821: 00 E0 00003822: 00 F0 00003823: 00 EA 00003824: 00 02 00003825: 00 0C 00003826: 00 EC 00003827: 00 40 00003828: 00 36 00003829: 00 02 0000382A: 00 20 0000382B: 00 A0 0000382C: 00 B8 0000382D: 00 7E 0000382E: 00 16 0000382F: 00 03 00003830: 00 E8 00003831: 00 20 00003832: 00 B8 00003833: 00 78 00003834: 00 F0 00003835: 00 EA 00003836: 00 20 00003837: 00 A0 00003838: 00 B8 00003839: 00 78 0000383A: 00 16 0000383B: 00 03 0000383C: 00 E8 0000383D: 00 20 0000383E: 00 B8 0000383F: 00 7E 00003840: 00 F0 00003841: 00 EA 00003842: 00 20 00003843: 00 A0 00003844: 00 B8 00003845: 00 74 00003846: 00 16 00003847: 00 03 00003848: 00 E8 00003849: 00 20 0000384A: 00 B8 0000384B: 00 82 0000384C: 00 F0 0000384D: 00 EA 0000384E: 00 20 0000384F: 00 A0 00003850: 00 B8 00003851: 00 7A 00003852: 00 16 00003853: 00 03 00003854: 00 E8 00003855: 00 20 00003856: 00 B8 00003857: 00 7C 00003858: 00 F0 00003859: 00 EA 0000385A: 00 20 0000385B: 00 A0 0000385C: 00 B8 0000385D: 00 76 0000385E: 00 16 0000385F: 00 03 00003860: 00 E8 00003861: 00 20 00003862: 00 B8 00003863: 00 80 00003864: 00 F0 00003865: 00 EA 00003866: 00 20 00003867: 00 A0 00003868: 00 B8 00003869: 00 7C 0000386A: 00 16 0000386B: 00 03 0000386C: 00 E8 0000386D: 00 20 0000386E: 00 B8 0000386F: 00 7A 00003870: 00 F0 00003871: 00 EA 00003872: 00 04 00003873: 00 5B 00003874: 00 80 00003876: 00 40 00003878: 00 20 0000387A: 00 10 0000387C: 00 08 0000387E: 00 04 00003880: 00 02 00003882: 00 01 00003885: 00 80 00003887: 00 40 00003889: 00 20 0000388B: 00 10 0000388D: 00 08 0000388F: 00 04 00003891: 00 02 00003893: 00 01 00005344: E0 00 00005345: 80 02 00005346: 42 20 00005347: 42 34
