Retro/pcjs
Watch
1
0
Fork
You've already forked pcjs
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleaned up the MACRO-10 assembly demos

Browse source
This commit is contained in:
Jeff 2017-03-24 14:11:28 -07:00 • committed by Jeff Parsons
commit eed6e990e3
6 changed files with 30 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
apps/pdp10/diags/klad/dakaa/README.md
View file

@ -7,7 +7,7 @@ machines:
type: pdp10 type: pdp10
config: /devices/pdp10/machine/ka10/test/debugger/machine.xml config: /devices/pdp10/machine/ka10/test/debugger/machine.xml
debugger: true debugger: true
commands: a 30724 /apps/pdp10/diags/klad/dakaa/MYDAKAA.MAC commands: a 30724 MYDAKAA.MAC
--- ---
PDP-10 KA10 Basic Instruction Diagnostic #1 PDP-10 KA10 Basic Instruction Diagnostic #1
@ -32,7 +32,7 @@ The Debugger's assemble ("a") command can be used to test the new built-in
of the [MACRO-10](http://archive.pcjs.org/pubs/dec/pdp10/tops10/02_1973AsmRef_macro.pdf) assembly language. of the [MACRO-10](http://archive.pcjs.org/pubs/dec/pdp10/tops10/02_1973AsmRef_macro.pdf) assembly language.
This command: This command:
a 30724 /apps/pdp10/diags/klad/dakaa/MYDAKAA.MAC a 30724 MYDAKAA.MAC
will automatically read the [MYDAKAA.MAC](MYDAKAA.MAC.txt) source file (a slightly modified copy of [DAKAA.MAC](DAKAA.MAC.txt)), will automatically read the [MYDAKAA.MAC](MYDAKAA.MAC.txt) source file (a slightly modified copy of [DAKAA.MAC](DAKAA.MAC.txt)),
assemble it, and then load the binary output at the specified address. assemble it, and then load the binary output at the specified address.

4
apps/pdp10/diags/klad/dakad/README.md
View file

@ -7,7 +7,7 @@ machines:
type: pdp10 type: pdp10
config: /devices/pdp10/machine/ka10/test/debugger/machine.xml config: /devices/pdp10/machine/ka10/test/debugger/machine.xml
debugger: true debugger: true
commands: a 30724 /apps/pdp10/diags/klad/dakad/MYDAKAD.MAC commands: a 30724 MYDAKAD.MAC
--- ---
PDP-10 KA10 Basic Instruction Diagnostic #4 PDP-10 KA10 Basic Instruction Diagnostic #4
@ -32,7 +32,7 @@ The Debugger's assemble ("a") command can be used to test the new built-in
of the [MACRO-10](http://archive.pcjs.org/pubs/dec/pdp10/tops10/02_1973AsmRef_macro.pdf) assembly language. of the [MACRO-10](http://archive.pcjs.org/pubs/dec/pdp10/tops10/02_1973AsmRef_macro.pdf) assembly language.
This command: This command:
a 30724 /apps/pdp10/diags/klad/dakad/MYDAKAD.MAC a 30724 MYDAKAD.MAC
will automatically read the [MYDAKAD.MAC](MYDAKAD.MAC.txt) source file (a slightly modified copy of [DAKAD.MAC](DAKAD.MAC.txt)), will automatically read the [MYDAKAD.MAC](MYDAKAD.MAC.txt) source file (a slightly modified copy of [DAKAD.MAC](DAKAD.MAC.txt)),
assemble it, and then load the binary output at the specified address. Use the command `db 30724` to dump the first few words assemble it, and then load the binary output at the specified address. Use the command `db 30724` to dump the first few words

0
apps/pdp10/tests/macro10/LITNEST.MAC.txt → apps/pdp10/tests/macro10/NESTLIT.MAC.txt
View file

28
apps/pdp10/tests/macro10/README.md
View file

@ -13,6 +13,8 @@ machines:
PDPjs MACRO-10 Mini-Assembler Tests PDPjs MACRO-10 Mini-Assembler Tests
----------------------------------- -----------------------------------
### Nested Macro Test
The PDP-10 machine below automatically loads and assembles [TEXT.MAC](TEXT.MAC.txt), one of the The PDP-10 machine below automatically loads and assembles [TEXT.MAC](TEXT.MAC.txt), one of the
first tests of the built-in PDPjs MACRO-10 Mini-Assembler. first tests of the built-in PDPjs MACRO-10 Mini-Assembler.
@ -23,11 +25,11 @@ and pseudo-ops **IRPC**, **IFE**, **IFN**, and **EXP**. It generates 4 words of
{% include machine.html id="testka10" %} {% include machine.html id="testka10" %}
After the machine executes the following command: Assemble TEXT.MAC:
a 100 /apps/pdp10/tests/macro10/TEXT.MAC a 100 TEXT.MAC
the following results should appear: Verify the following results:
starting PCjs MACRO-10 Mini-Assembler... starting PCjs MACRO-10 Mini-Assembler...
loading TEXT.MAC loading TEXT.MAC
@ -39,9 +41,27 @@ the following results should appear:
PC=000100 RA=00000000 EA=000000 C0=0 C1=0 OV=0 ND=0 PD=0 PC=000100 RA=00000000 EA=000000 C0=0 C1=0 OV=0 ND=0 PD=0
000100: 014101 102103 UUO 2,102103(1) 000100: 014101 102103 UUO 2,102103(1)
and if you dump the first 4 words with the command `db 100 l4`: Dump the 4 assembled words with the command `db 100 l4`:
000100: 014101 102103 003 004 011 004 041 ....! 000100: 014101 102103 003 004 011 004 041 ....!
000101: 104105 106107 021 004 051 014 043 ..).# 000101: 104105 106107 021 004 051 014 043 ..).#
000102: 110111 112113 022 004 111 024 045 ..I.% 000102: 110111 112113 022 004 111 024 045 ..I.%
000103: 114000 000000 023 000 000 000 000 ..... 000103: 114000 000000 023 000 000 000 000 .....
Source code from TEXT.MAC:
{% highlight text %}
{% include_relative TEXT.MAC.txt %}
{% endhighlight %}
### Nested Literal Test
Assemble NESTLIT.MAC:
a 100 NESTLIT.MAC
Source code from NESTLIT.MAC:
{% highlight text %}
{% include_relative NESTLIT.MAC.txt %}
{% endhighlight %}

2
modules/pdp10/lib/debugger.js
View file

@ -2606,7 +2606,7 @@ class DebuggerPDP10 extends Debugger {
} }
var sOptions = asArgs[0].substr(1); var sOptions = asArgs[0].substr(1);
var match = sOpcode.match(/^(['"]?)((\/|http:).*)\1$/); var match = sOpcode.match(/^(['"]?)(.*\.mac)\1$/i);
if (match) { if (match) {
var dbg = this; var dbg = this;
if (this.macro10) { if (this.macro10) {

2
modules/pdp10/lib/macro10.js
View file

@ -288,7 +288,7 @@ class Macro10 {
/* /*
* We know that local resources ending with ".MAC" are actually stored with a ".txt" extension. * We know that local resources ending with ".MAC" are actually stored with a ".txt" extension.
*/ */
if (sURL[0] == '/' && sURL.slice(-4) == ".MAC") sURL += ".txt"; if (sURL.slice(-4).toUpperCase() == ".MAC") sURL += ".txt";
Web.getResource(sURL, null, true, function processMacro10(sFile, sResource, nErrorCode) { Web.getResource(sURL, null, true, function processMacro10(sFile, sResource, nErrorCode) {
if (nErrorCode) { if (nErrorCode) {