| … | |
… | |
| 750 | |
750 | |
| 751 | $insn .= "$op;\n"; |
751 | $insn .= "$op;\n"; |
| 752 | } |
752 | } |
| 753 | |
753 | |
| 754 | |
754 | |
| 755 | $insn .= "$pc"; |
755 | $insn .= $pc; |
| 756 | $insn =~ s/\x00.*$//s; |
756 | $insn =~ s/\x00.*$//s; |
| 757 | |
757 | |
| 758 | eval "use integer; sub { $insn }" or die "$insn: $@" |
758 | eval "use integer; sub { $insn }" or die "$insn: $@" |
| 759 | })->(); |
759 | })->(); |
| 760 | |
760 | |
| … | |
… | |
| 841 | # vt100 @ 0x0000+0x0800 23-032E2 |
841 | # vt100 @ 0x0000+0x0800 23-032E2 |
| 842 | # vt100 @ 0x0800+0x0800 23-061E2 |
842 | # vt100 @ 0x0800+0x0800 23-061E2 |
| 843 | # vt100 @ 0x1000+0x0800 23-033E2 |
843 | # vt100 @ 0x1000+0x0800 23-033E2 |
| 844 | # vt100 @ 0x1800+0x0800 23-034E2 |
844 | # vt100 @ 0x1800+0x0800 23-034E2 |
| 845 | # |
845 | # |
| 846 | # vt102 @ 0x0000+0x8000 23-226E4 |
846 | # vt102 @ 0x0000+0x2000 23-226E4 |
| 847 | # vt102 @ 0x8000+0x8000 23-225E4 |
847 | # vt102 @ 0x8000+0x2000 23-225E4 |
| 848 | # |
848 | # |
| 849 | # vt131 @ 0xa000+0x0800 23-280E2 |
849 | # vt131 @ 0xa000+0x0800 23-280E2 |
| 850 | # |
850 | # |
| 851 | |
851 | |
| 852 | __DATA__ |
852 | __DATA__ |
