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

Updated PDP-11 READMEs

Browse source
This commit is contained in:
Jeff Parsons 2016-10-18 12:03:23 -07:00 • committed by Jeff Parsons
commit fbb36c1d1b
10 changed files with 549 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

9
apps/README.md
View file

@ -1,12 +1,13 @@
--- ---
layout: page layout: page
title: Application Archives title: Software Archives
permalink: /apps/ permalink: /apps/
--- ---
Application Archives Software Archives
--- -----------------
Browse these PCjs Application Archives:
Browse these PCjs Software Archives:
- [IBM PC](pcx86/) - [IBM PC](pcx86/)
- [Challenger 1P](c1p/) - [Challenger 1P](c1p/)

5
apps/pdp11/README.md
View file

@ -7,4 +7,7 @@ permalink: /apps/pdp11/
PDP-11 Software PDP-11 Software
--------------- ---------------
This is where we maintain selected PDP-11 software distributed on [Tape](tapes/). We have archived the following selected PDP-11 software:
- [Boot Code](boot/)
- [DEC PDP-11 Tapes](tapes/)

12
apps/pdp11/boot/README.md
View file

@ -7,7 +7,12 @@ permalink: /apps/pdp11/boot/
PDP-11 Boot Code PDP-11 Boot Code
---------------- ----------------
Boot code can be added to machines by including a `<ram>` component in the machine XML configuration file The project contains the following PDP-11 boot code images:
* [PDP-11 Boot Test](test/)
* [DEC PDP-11 Bootstrap Loader](bootstrap/)
Boot code can be pre-loaded into any machine by including a `<ram>` component in the machine XML configuration file
with the *file* attribute set to the filename of the image, along with optional *load* and *exec* addresses; eg: with the *file* attribute set to the filename of the image, along with optional *load* and *exec* addresses; eg:
```xml ```xml
@ -17,8 +22,3 @@ with the *file* attribute set to the filename of the image, along with optional
If no *load* address is specified, the `<ram>` component relies on the "load" property of the JSON-encoded RAM image; If no *load* address is specified, the `<ram>` component relies on the "load" property of the JSON-encoded RAM image;
otherwise, the starting RAM address is used. If no *exec* address is specified, the CPU will begin execution at its usual otherwise, the starting RAM address is used. If no *exec* address is specified, the CPU will begin execution at its usual
reset address. reset address.
The project currently contains the following PDP-11 RAM images:
* [PDP-11 Boot Test](test/)
* [PDP-11 Bootstrap Loader](bootstrap/)

51
apps/pdp11/boot/bootstrap/README.md
View file

@ -1,11 +1,11 @@
--- ---
layout: page layout: page
title: PDP-11 Bootstrap Loader title: DEC PDP-11 Bootstrap Loader
permalink: /apps/pdp11/boot/bootstrap/ permalink: /apps/pdp11/boot/bootstrap/
--- ---
PDP-11 Bootstrap Loader DEC PDP-11 Bootstrap Loader
----------------------- ---------------------------
The blog post "[PDP-11 Paper Tape BASIC](http://www.avitech.com.au/ptb/ptb.html)" describes the *Bootstrap Loader*, The blog post "[PDP-11 Paper Tape BASIC](http://www.avitech.com.au/ptb/ptb.html)" describes the *Bootstrap Loader*,
a small program used to load the *Absolute Loader*, which in turn loads the *PDP-11 BASIC Paper Tape*. a small program used to load the *Absolute Loader*, which in turn loads the *PDP-11 BASIC Paper Tape*.
@ -28,12 +28,13 @@ Here's what the *Bootstrap Loader* looks like:
037774 000765 037774 000765
037776 177550 037776 177550
Using a [PDPjs](/modules/pdpjs/) machine such as the [PDP-11/20 Test Machine with Debugger](/devices/pdp11/machine/1120/test/debugger/), Using a [PDPjs](/modules/pdpjs/) machine with the built-in Debugger, such as the
the *Bootstrap Loader* is easily entered with a single Debugger "edit" command: [PDP-11/20 Test Machine with Debugger](/devices/pdp11/machine/1120/test/debugger/), the *Bootstrap Loader*
is easily entered with a single Debugger EDIT ("e") command:
e 037744 016701 000026 012702 000352 005211 105711 100376 116162 000002 037400 005267 177756 000765 177550 e 037744 016701 000026 012702 000352 005211 105711 100376 116162 000002 037400 005267 177756 000765 177550
You can immediately disassemble the code using `u 037744 040000`: You can immediately disassemble the code using the Debugger's UNASSEMBLE ("u") command `u 037744 040000`:
037744: 016701 000026 MOV 26(PC),R1 ; @037776 037744: 016701 000026 MOV 26(PC),R1 ; @037776
037750: 012702 000352 MOV #352,R2 037750: 012702 000352 MOV #352,R2
@ -45,12 +46,38 @@ You can immediately disassemble the code using `u 037744 040000`:
037774: 000765 BR 037750 037774: 000765 BR 037750
037776: 177550 .WORD 177550 037776: 177550 .WORD 177550
I also pasted the disassembled code into a listing file, [BOOTSTRAP-16KB.LST](BOOTSTRAP-16KB.lst), and ran [FileDump](/modules/filedump) To run the above code, set the PC to 037744 and start the machine:
to produce a [BOOTSTRAP-16KB.JSON](BOOTSTRAP-16KB.json) that can be pre-loaded into any machine:
filedump --file=BOOTSTRAP-16KB.lst --format=octal --output=BOOTSTRAP-16KB.json
To run the *Bootstrap Loader*, set the PC to 037744 and start the machine:
r pc=037744 r pc=037744
g g
Preloading DEC's Bootstrap Loader
---------------------------------
I pasted the disassembled code (above) into a listing file, [BOOTSTRAP-16KB.lst](BOOTSTRAP-16KB.lst),
and then ran [FileDump](/modules/filedump) to produce a [BOOTSTRAP-16KB.json](BOOTSTRAP-16KB.json) that can
be automatically pre-loaded into any machine:
filedump --file=BOOTSTRAP-16KB.lst --format=octal --output=BOOTSTRAP-16KB.json
For example, this [PDP-11/20 16Kb Machine](/devices/pdp11/machine/1120/bootstrap/debugger/machine.xml) preloads
the *Bootstrap Loader* using the `<ram>` component's optional *file* attribute:
<ram id="ram" addr="0x0000" size="0x4000" file="/apps/pdp11/boot/bootstrap/BOOTSTRAP-16KB.json"/>
I also edited [BOOTSTRAP-16KB.json](BOOTSTRAP-16KB.json) to include the following properties:
"load": 0x3FE4,
"exec": 0x3FE4,
so that the `<ram>` component knows exactly where to load and execute the file. However, the `<ram>` component can also
specify those value(s) itself, if needed:
<ram id="ram" addr="0x0000" size="0x4000" file="/apps/pdp11/boot/bootstrap/BOOTSTRAP-16KB.json" load="0x3FE4" exec="0x3FE4"/>
Finally, if you prefer octal *and* you're sure everyone will be using an ES6-capable browser, you can do this:
<ram id="ram" addr="0o00000" size="0o40000" file="/apps/pdp11/boot/bootstrap/BOOTSTRAP-16KB.json" load="0o37744" exec="0o37744"/>
All PCjs configuration files use hex and/or decimal exclusively, since those number formats have always been supported,
but as time goes by, the new octal and binary formats will be almost as universal.

478
apps/pdp11/boot/test/README.md
View file

@ -9,7 +9,479 @@ redirect_from:
PDP-11 Boot Test PDP-11 Boot Test
---------------- ----------------
[TEST.MAC](TEST.mac) is based on [BOOT.MAC](http://skn.noip.me/pdp11/boot.mac) written by [Paul Nankervis](mailto:paulnank@hotmail.com)) [TEST.mac](TEST.mac) is based on [boot.mac](http://skn.noip.me/pdp11/boot.mac) written by [Paul Nankervis](mailto:paulnank@hotmail.com).
[TEST.MAC](TEST.mac) was cross-assembled with [MACRO11](https://github.com/shattered/macro11) to produce [TEST.LST](TEST.lst), [TEST.mac](TEST.mac) was cross-assembled with [MACRO11](https://github.com/shattered/macro11) to produce [TEST.lst](TEST.lst),
which was then processed by [FileDump](/modules/filedump/) to produce [TEST.JSON](TEST.json). which was then processed by [FileDump](/modules/filedump/) to produce [TEST.json](TEST.json).
The source code is shown below.
; BOOT LOADER CODE
;
; REBASE HIGHER LINK/BOT:140000
; WANT PERFORMANCE COUNTER - CLOCK TICKS TO DO SOMETHING?
PSW = 177776
DL11XCSR = 177564
DL11VEC = 64
KW11LKS = 177546
KW11VEC = 100
.ASECT
.=140000
START: RESET ; 140000
CLR @#PSW
MOV #START,SP
CLR @#DL11XCSR ; CLEAR THE XCSR
MOV #BANNER,R0
JSR PC,PRINT
MOV #CLKAST,@#KW11VEC
MOV #340,@#KW11VEC+2
BIS #100,@#KW11LKS ; SET CLOCK TICKING
MOV #PROMPT,R0
JSR PC,PRINT
SUB #256,SP
MOV SP,R0
JSR PC,INPUT
CLR R0
1$: WAIT
INC R0
TST LGHTON
BEQ 1$
MOV #054000,-(SP) ; SUPER PRIORITY 0 ALT REG
MOV LGHTON,-(SP) ; CALL SUPER LOOP START
RTI
LGHTON: .WORD 0
CLKTIC: .WORD 0
CLKAST: ; 140124
INC CLKTIC
RTI
ONECHR:
TSTB @#DL11XCSR ; 140132
BPL ONECHR
MOVB R0,@#177566
RTS PC
PRTPTR: .WORD 0 ; 140146
PRINT: ; 140150
BITB #100,@#DL11XCSR
BNE PRINT
MOV R0,PRTPTR
MOV #PRTAST,@#DL11VEC
MOV #200,@#DL11VEC+2
BISB #100,@#DL11XCSR
RTS PC
PRTAST: ; 140210
TSTB @PRTPTR
BEQ 2$
MOVB @PRTPTR,@#177566
INC PRTPTR
RTI
2$: CLRB @#177564
RTI
BUFFER: .WORD 0 ; INPUT BUFFER POINTER
LENGTH: .WORD 0 ; INPUT BUFFER LENGTH
INPUT:
MOV R0,BUFFER ; 140244
CLR LENGTH
MOV #INPAST,@#60
MOV #200,@#62
BISB #100,@#177560
RTS PC
INPAST: ; 140300
MOV R0,-(SP)
MOVB @#177562,R0
CMPB R0,#15
BEQ 7$ ; CARRIAGE RETURN
CMPB R0,#127.
BEQ 2$ ; <DEL>
CMPB R0,#10
BNE 4$ ; BACK SPACE
2$: TST LENGTH ; DATA IN BUFFER?
BEQ 3$
DEC LENGTH ; LENGTH
MOV #DEL,R0
JSR PC,PRINT
3$: BR 9$
4$: CMPB R0,#40
BLT 9$ ; BELOW SPACE
CMPB R0,#177
BGE 9$ ; SKIP STUFF TOO BIG
JSR PC,ONECHR ; ECHO CHAR
CMPB R0,#172
BGT 5$ ; ABOVE Z
CMPB R0,#141
BLT 5$ ; BELOW A
BICB #40,R0 ; CONVERT TO UPPER CASE
5$: CMP LENGTH,#254
BGE 9$
MOVB R0,-(SP)
MOV BUFFER,R0
ADD LENGTH,R0
MOVB (SP)+,(R0)
INC LENGTH
BR 9$
7$: MOV BUFFER,R0
ADD LENGTH,R0
CLRB (R0)
MOV #CMD,@#240 ; CALL CMD AT PRIORITY 2
MOV #100,@#242
MOV #2000,@#177772
9$: MOV (SP)+,R0
RTI
CMD: ; 140506
CLR @#177772 ; NO MORE PIR CALLS
MOV R0,-(SP)
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV R4,-(SP)
MOV #EOL,R0
JSR PC,PRINT
1$: BITB #100,@#177564
BNE 1$
CLR R4
MOV #CMDLST,R3 ; CMD LIST
3$: MOVB (R3)+,R0
BEQ 13$
MOV BUFFER,R2 ; USER CMD
4$: MOVB (R2)+,R1
BEQ 15$ ; NULL COMMAND?
CMPB R1,#40
BEQ 4$ ; SKIP SPACE
5$: CMPB R0,R1
BNE 7$
MOVB (R3)+,R0
BEQ 9$
MOVB (R2)+,R1
BEQ 9$
CMPB R1,#40
BNE 5$
BR 9$
7$: MOVB (R3)+,R0
BNE 7$
INC R4
BR 3$
9$: ASL R4
JSR PC,@CMDTBL(R4) ; EXECUTE
BR 15$
13$: MOV #UNKMSG,R0
JSR PC,PRINT
15$: CLR LENGTH
MOV #PROMPT,R0
JSR PC,PRINT
MOV (SP)+,R4
MOV (SP)+,R3
MOV (SP)+,R2
MOV (SP)+,R1
MOV (SP)+,R0
RTI
CMDTBL: .WORD BOOT,HALT,TEST,LIGHTS,HELP
HLPMSG: .ASCIZ 'COMMANDS ARE BOOT, HALT, LIGHTS, TEST AND HELP'<15><12>'BOOT DEVICES ARE RK? RL? OR RP?'<15><12>
EOL: .BYTE 15,12,0
DEL: .BYTE 10,40,10,0
CMDLST: .ASCIZ 'BOOT'
.ASCIZ 'HALT'
.ASCIZ 'TEST'
.ASCIZ 'LIGHTS'
.ASCIZ 'HELP'
.BYTE 0
UNKMSG: .ASCIZ 'UNKNOWN COMMAND'<12><15>
BANNER: .ASCIZ 'PAUL NANKERVIS - PAULNANK@HOTMAIL.COM'<12><15><12><15>
PROMPT: .ASCIZ 'BOOT> '
BADBOO: .ASCIZ 'UNKNOWN BOOT DEVICE'<12><15>
PERMSG: .ASCIZ ' CLOCK TICKS'<12><15>
.EVEN
HELP: ; 141244
MOV #HLPMSG,R0
JSR PC,PRINT
RTS PC
HALT: ; 141260
HALT
MOV #EOL,R0
JSR PC,PRINT
RTS PC
TEST: ; 141272
CLR CLKTIC
MOV #15000,R5
10$: MOV R5,@#177570 ; DISPLAY
MOV R5,R4
ASR R4
15$: CLR R0
MOV R5,R1
DIV R4,R0
MOV R0,R2
MUL R4,R2
ADD R3,R1
CMP R1,R5
BEQ 20$
HALT
20$: SOB R4,15$
SOB R5,10$
MOV #PERMSG+5,R0
MOV CLKTIC,R3
25$: CLR R2 ; 141350
DIV #10,R2
ADD #'0,R3
MOVB R3,-(R0)
MOV R2,R3
BNE 25$
JSR PC,PRINT
RTS PC
MMR0=177572
MMR1=177574
MMR2=177576
MMR3=172516
LIGHTS: ; 141376
MOV #77406,R3 ; DEFAULT PDR
CLR R2
CLR R1
MOV #8.,R0
1$: MOV R3,172300(R1) ; KERNEL I PDR
MOV R2,172340(R1) ; KERNEL I PAR
MOV R3,172320(R1) ; KERNEL D PDR
MOV R2,172360(R1) ; KERNEL D PAR
MOV R3,172200(R1) ; SUPER I PDR
MOV R2,172240(R1) ; SUPER I PAR
MOV R3,172220(R1) ; SUPER D PDR
MOV R2,172260(R1) ; SUPER D PAR
MOV R3,177600(R1) ; USER I PDR
MOV R2,177640(R1) ; USER I PAR
MOV R3,177620(R1) ; USER D PDR
MOV R3,177660(R1) ; USER D PAR
ADD #200,R2
ADD #2,R1
SOB R0,1$
BIS #176000,@#172376 ; KERNEL D POINTS TO I/O SPACE
BIS #176000,@#172276 ; SUPER D POINTS TO I/O SPACE
BIS #176000,@#177676 ; USER D POINTS TO I/O SPACE
MOV #77,@#MMR3 ; 77 FOR 22 BIT
MOV #1,@#MMR0
MOV #1700,@#172244 ; BASE SUPER I (PAR 2) #40000 AT #170000
MOV #1700,@#172264 ; BASE SUPER D (PAR 2) #40000 AT #170000
MOV #010000,@#177776 ; SET PM TO SUPER
MOV #40200,R3 ; SUPER CODE ADDRESS
MOV #SUPERS,R2 ; ADDRESS SUPER CODE
10$: MOV (R2)+,-(SP)
MTPI (R3)+
CMP R2,#SUPERE
BLO 10$
MOV #40200,LGHTON ; CHANGE IDLE TASK
RTS PC
;
; TO BE COPIED TO SUPER #40200 AT PHYSICAL #170000
; #40000 TO #40200 FOR WAIT & JMP INSTRUCTIONS
;
SUPERS: ; 141616
MOV #37,R0 ; LOAD PATTERN
MOV #174000,R1
BIT #1,@#177570
BEQ 10$
MOV #7417,R0
MOV R0,R1
COM R1
BIT #2,@#177570
BEQ 10$
MOV #36163,R0
MOV #37000,R1
10$: MOV R1,R2
SUB #2,R2
BIC #1,R2 ; WAIT ADDRESS
MOV R2,R3
BIC #177701,R3 ; ADDRESS OFFSET
MOV #0000001,40000(R3) ; WRITE WAIT
ADD #2,R3
MOV #0000113,40000(R3) ; WRITE JMP (R3)
MOV R2,R4
ASH #-6,R4
BIC #177600,R4
MOV #1700,R5
SUB R4,R5 ; PAR ADDRESS BASE FOR WAIT
MOV R2,R4
ASH #-12.,R4
BIC #177761,R4 ; PAR SELECT OFFSET
MOV R5,172240(R4) ; SUPER I SPACE
MOV R1,R3
ASH #-12.,R3
BIC #177761,R3 ; PAR SELECT OFFSET
CMP R3,R4 ; SAME PAR
BEQ 30$
MOV R1,R4
ASH #-6,R4
BIC #177600,R4
MOV #1700,R5
SUB R4,R5 ; PAR ADDRESS BASE FOR JMP
MOV R5,172240(R3) ; SUPER I SPACE
30$:
MOV #3,R4
ADD @#177570,R4
MOV #2,R3
ADD PC,R3
40$: JMP (R2)
SOB R4,40$
MOV R0,R2
ROR R2 ; ROTATE PATTERN
ROL R1
ROR R0
BR 10$
SUPERE:
BOOT: ; 142062
CLR R3 ; UNIT
1$: MOVB (R2)+,R1
BEQ BOOTRK ; DEFAULT DEVICE IS RK0
CMPB R1,#40
BEQ 1$
CMPB R1,#'R
BEQ 5$
MOV #BADBOO,R0
JSR PC,PRINT
RTS PC
5$: MOVB (R2)+,R1 ; HOPEFULLY K, L OR P
7$: MOVB (R2)+,R0 ; DIGIT
BEQ 9$
CMPB R0,#40
BEQ 9$
CMPB R0,#'7
BGT 11$
SUB #'0,R0
BLT 11$
ASL R3
ASL R3
ASL R3
BIS R0,R3 ; PUT DIGIT INTO UNIT
BR 7$
9$: CLR R2
MOV #137,(R2)+
MOV #START,(R2)+
MOV #START,(R2)+
CLR (R2)+
CMPB R1,#'K
BEQ BOOTRK
CMPB R1,#'L
BEQ BOOTRL
CMPB R1,#'P
BEQ BOOTRP
11$: MOV #UNKMSG,R0
JSR PC,PRINT
RTS PC
RLCS=174400
BOOTRL: ; 142234
RESET
SWAB R3 ; UNIT NUMBER
MOV #RLCS,R1 ; CSR
MOV #13,4(R1) ; CLR ERR
BIS #4,R3 ; UNIT+GSTAT
MOV R3,(R1) ; ISSUE CMD
TSTB (R1) ; WAIT
BPL .-2
CLRB R3
BIS #10,R3 ; UNIT+RDHDR
MOV R3,(R1) ; ISSUE CMD
TSTB (R1) ; WAIT
BPL .-2
MOV 6(R1),R2 ; GET HDR
BIC #77,R2 ; CLR SECTOR
INC R2 ; MAGIC BIT
MOV R2,4(R1) ; SEEK TO 0
CLRB R3
BIS #6,R3 ; UNIT+SEEK
MOV R3,(R1) ; ISSUE CMD
TSTB (R1) ; WAIT
BPL .-2
CLR 2(R1) ; CLR BA
CLR 4(R1) ; CLR DA
MOV #-512.,6(R1) ; SET WC
CLRB R3
BIS #14,R3 ; UNIT+READ
MOV R3,(R1) ; ISSUE CMD
TSTB (R1) ; WAIT
BPL .-2
BIC #377,(R1)
CLR R2
CLR R3
CLR R4
CLR R5
CLR PC
RKDA=177412
READGO=5
BOOTRK:
RESET ; 142402
SWAB R3 ; UNIT NUMBER
ASL R3
ASL R3
ASL R3
ASL R3
ASL R3
MOV #RKDA,R1 ; CSR
MOV R3,(R1) ; LOAD DA
CLR -(R1) ; CLEAR BA
MOV #-256.*2,-(R1) ; LOAD WC
MOV #READGO,-(R1) ; READ & GO
CLR R2
CLR R3
CLR R4
CLR R5
TSTB (R1)
BPL .-2
CLRB (R1)
CLR PC
RPCSR=0176700
BOOTRP: ; 142460
RESET
MOV #RPCSR, R1
MOV #0000040, 10(R1) ; RESET
MOV R3, 10(R1) ; SET UNIT
MOV #0000021, (R1) ; PACK ACK
MOV #0010000, 32(R1) ; 16B MODE
MOV #-512., 2(R1) ; SET WC
CLR 4(R1) ; CLR BA
CLR 6(R1) ; CLR DA
CLR 34(R1) ; CLR CYL
MOV #0000071, (R1) ; READ
TSTB (R1) ; WAIT
BPL .-2
CLRB (R1)
MOV R3,R0
CLR PC
.END START

17
apps/pdp11/tapes/README.md
View file

@ -1,21 +1,21 @@
--- ---
layout: page layout: page
title: PDP-11 Software Tapes title: DEC PDP-11 Tapes
permalink: /apps/pdp11/tapes/ permalink: /apps/pdp11/tapes/
--- ---
PDP-11 Software Tapes DEC PDP-11 Tapes
--------------------- ----------------
Supported PDP-11 software includes: We have archived the following DEC PDP-11 Tapes:
- [Absolute Loader](DEC-11-L2PC-PO.json) - [Absolute Loader](DEC-11-L2PC-PO.json)
- [BASIC (Single User)](DEC-11-AJPB-PB.json) - [BASIC (Single User)](DEC-11-AJPB-PB.json)
To make it easy for PDPjs machines to load these tapes, we provide the following High-Speed To make it easy for PDPjs machines to load these tapes, we created the following High-Speed
Paper Tape Reader (PC11) configuration files: Paper Tape Reader (PC11) configurations:
- [tapedemo.xml](tapedemo.xml) - [demo.xml](demo.xml)
These configuration files create UI controls that allow you to choose from a set of tapes that are automatically sent These configuration files create UI controls that allow you to choose from a set of tapes that are automatically sent
to the machine's PC11 device. to the machine's PC11 device.
@ -23,5 +23,4 @@ to the machine's PC11 device.
Third-Party Resources Third-Party Resources
--------------------- ---------------------
- "[Analysis of the PDP-11 bootstrap loader code](http://decuser.blogspot.com/2015/12/analysis-of-pdp-11-bootloader-code.html)" - [PDP-11 Paper Tape BASIC](http://www.avitech.com.au/ptb/ptb.html)
- "[PDP-11 Paper Tape BASIC](http://www.avitech.com.au/ptb/ptb.html)" and follow-up article "[PDP-11 BASIC, booting the hard way](http://decuser.blogspot.com/2015/12/pdp-11-basic-booting-hard-way.html)"

3
disks/README.md
View file

@ -7,7 +7,8 @@ permalink: /disks/
--- ---
Disk Libraries Disk Libraries
--- --------------
Browse these PCjs Disk Libraries: Browse these PCjs Disk Libraries:
- [IBM PC](pcx86/) - [IBM PC](pcx86/)

15
modules/pdp11/lib/pc11.js
View file

@ -77,6 +77,9 @@ function PC11(parms)
Component.subclass(PC11); Component.subclass(PC11);
/*
* There's nothing super special about these values, except that NONE should be falsey and the others should not.
*/
PC11.LOADSTATE = { PC11.LOADSTATE = {
NONE: "", NONE: "",
LOCAL: "?", LOCAL: "?",
@ -222,9 +225,9 @@ PC11.prototype.initBus = function(cmp, bus, cpu, dbg)
bus.addIOTable(this, PC11.UNIBUS_IOTABLE); bus.addIOTable(this, PC11.UNIBUS_IOTABLE);
this.addTape("None", "", true); this.addTape("None", PC11.LOADSTATE.NONE, true);
if (this.fLocalTapes) this.addTape("Local Tape", "?"); if (this.fLocalTapes) this.addTape("Local Tape", PC11.LOADSTATE.LOCAL);
this.addTape("Remote Tape", "??"); this.addTape("Remote Tape", PC11.LOADSTATE.REMOTE);
if (!this.autoMount()) this.setReady(); if (!this.autoMount()) this.setReady();
}; };
@ -312,15 +315,15 @@ PC11.prototype.loadSelectedTape = function(sTapeName, sTapePath, file)
return; return;
} }
if (sTapePath == "?") { if (sTapePath == PC11.LOADSTATE.LOCAL) {
this.notice('Use "Choose File" and "Mount" to select and load a local tape.'); this.notice('Use "Choose File" and "Mount" to select and load a local tape.');
return; return;
} }
/* /*
* If the special path of "??" is selected, then we want to prompt the user for a URL. Oh, and * If the special PC11.LOADSTATE.REMOTE path is selected, then we want to prompt the user for a URL.
* make sure we pass an empty string as the 2nd parameter to prompt(), so that IE won't display * Oh, and make sure we pass an empty string as the 2nd parameter to prompt(), so that IE won't display
* "undefined" -- because after all, undefined and "undefined" are EXACTLY the same thing, right? * "undefined" -- because after all, undefined and "undefined" are EXACTLY the same thing, right?
* *
* TODO: This is literally all I've done to support remote tape images. There's probably more * TODO: This is literally all I've done to support remote tape images. There's probably more

2
modules/shared/templates/common.html
View file

@ -31,7 +31,7 @@
<div class="common-top-left"> <div class="common-top-left">
<ul> <ul>
<li><a href="/">PCjs</a></li> <li><a href="/">PCjs</a></li>
<li><a href="/apps/pcx86/">Demos</a></li> <li><a href="/apps/">Apps</a></li>
<li><a href="/devices/">Devices</a></li> <li><a href="/devices/">Devices</a></li>
<li><a href="/disks/">Disks</a></li> <li><a href="/disks/">Disks</a></li>
<li><a href="/docs/">Docs</a></li> <li><a href="/docs/">Docs</a></li>

2
modules/shared/templates/common.xsl
View file

@ -33,7 +33,7 @@
<div class="common-top-left"> <div class="common-top-left">
<ul> <ul>
<li><a href="/">PCjs</a></li> <li><a href="/">PCjs</a></li>
<li><a href="/apps/pcx86/">Demos</a></li> <li><a href="/apps/">Apps</a></li>
<li><a href="/devices/">Devices</a></li> <li><a href="/devices/">Devices</a></li>
<li><a href="/disks/">Disks</a></li> <li><a href="/disks/">Disks</a></li>
<li><a href="/docs/">Docs</a></li> <li><a href="/docs/">Docs</a></li>