From fbb36c1d1baa4acac0b93df2cb39d665f9f1f295 Mon Sep 17 00:00:00 2001 From: Jeff Parsons Date: Tue, 18 Oct 2016 12:03:23 -0700 Subject: [PATCH] Updated PDP-11 READMEs --- apps/README.md | 9 +- apps/pdp11/README.md | 5 +- apps/pdp11/boot/README.md | 12 +- apps/pdp11/boot/bootstrap/README.md | 51 ++- apps/pdp11/boot/test/README.md | 478 ++++++++++++++++++++++++++- apps/pdp11/tapes/README.md | 17 +- disks/README.md | 3 +- modules/pdp11/lib/pc11.js | 15 +- modules/shared/templates/common.html | 2 +- modules/shared/templates/common.xsl | 2 +- 10 files changed, 550 insertions(+), 44 deletions(-) diff --git a/apps/README.md b/apps/README.md index 7ae99a6ca..d59631c2d 100644 --- a/apps/README.md +++ b/apps/README.md @@ -1,12 +1,13 @@ --- layout: page -title: Application Archives +title: Software Archives permalink: /apps/ --- -Application Archives ---- -Browse these PCjs Application Archives: +Software Archives +----------------- + +Browse these PCjs Software Archives: - [IBM PC](pcx86/) - [Challenger 1P](c1p/) diff --git a/apps/pdp11/README.md b/apps/pdp11/README.md index e03b2c190..b38008021 100644 --- a/apps/pdp11/README.md +++ b/apps/pdp11/README.md @@ -7,4 +7,7 @@ permalink: /apps/pdp11/ 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/) diff --git a/apps/pdp11/boot/README.md b/apps/pdp11/boot/README.md index 53b327da3..5ab057bab 100644 --- a/apps/pdp11/boot/README.md +++ b/apps/pdp11/boot/README.md @@ -7,7 +7,12 @@ permalink: /apps/pdp11/boot/ PDP-11 Boot Code ---------------- -Boot code can be added to machines by including a `` 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 `` 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: ```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 `` 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 reset address. - -The project currently contains the following PDP-11 RAM images: - -* [PDP-11 Boot Test](test/) -* [PDP-11 Bootstrap Loader](bootstrap/) diff --git a/apps/pdp11/boot/bootstrap/README.md b/apps/pdp11/boot/bootstrap/README.md index 72d2349a7..37a973db7 100644 --- a/apps/pdp11/boot/bootstrap/README.md +++ b/apps/pdp11/boot/bootstrap/README.md @@ -1,11 +1,11 @@ --- layout: page -title: PDP-11 Bootstrap Loader +title: DEC PDP-11 Bootstrap Loader 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*, 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 037776 177550 -Using a [PDPjs](/modules/pdpjs/) machine such as the [PDP-11/20 Test Machine with Debugger](/devices/pdp11/machine/1120/test/debugger/), -the *Bootstrap Loader* is easily entered with a single Debugger "edit" command: +Using a [PDPjs](/modules/pdpjs/) machine with the built-in Debugger, such as the +[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 -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 037750: 012702 000352 MOV #352,R2 @@ -45,12 +46,38 @@ You can immediately disassemble the code using `u 037744 040000`: 037774: 000765 BR 037750 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 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: +To run the above code, set the PC to 037744 and start the machine: r pc=037744 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 `` component's optional *file* attribute: + + + +I also edited [BOOTSTRAP-16KB.json](BOOTSTRAP-16KB.json) to include the following properties: + + "load": 0x3FE4, + "exec": 0x3FE4, + +so that the `` component knows exactly where to load and execute the file. However, the `` component can also +specify those value(s) itself, if needed: + + + +Finally, if you prefer octal *and* you're sure everyone will be using an ES6-capable browser, you can do this: + + + +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. diff --git a/apps/pdp11/boot/test/README.md b/apps/pdp11/boot/test/README.md index 00da05dbe..cbd4a89c7 100644 --- a/apps/pdp11/boot/test/README.md +++ b/apps/pdp11/boot/test/README.md @@ -9,7 +9,479 @@ redirect_from: 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), -which was then processed by [FileDump](/modules/filedump/) to produce [TEST.JSON](TEST.json). +[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). + +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$ ; + 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 diff --git a/apps/pdp11/tapes/README.md b/apps/pdp11/tapes/README.md index ed552e373..8bfb3b0be 100644 --- a/apps/pdp11/tapes/README.md +++ b/apps/pdp11/tapes/README.md @@ -1,21 +1,21 @@ --- layout: page -title: PDP-11 Software Tapes +title: DEC PDP-11 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) - [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 -Paper Tape Reader (PC11) configuration files: +To make it easy for PDPjs machines to load these tapes, we created the following High-Speed +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 to the machine's PC11 device. @@ -23,5 +23,4 @@ to the machine's PC11 device. 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)" and follow-up article "[PDP-11 BASIC, booting the hard way](http://decuser.blogspot.com/2015/12/pdp-11-basic-booting-hard-way.html)" +- [PDP-11 Paper Tape BASIC](http://www.avitech.com.au/ptb/ptb.html) diff --git a/disks/README.md b/disks/README.md index fa1d09989..69f1cb45c 100644 --- a/disks/README.md +++ b/disks/README.md @@ -7,7 +7,8 @@ permalink: /disks/ --- Disk Libraries ---- +-------------- + Browse these PCjs Disk Libraries: - [IBM PC](pcx86/) diff --git a/modules/pdp11/lib/pc11.js b/modules/pdp11/lib/pc11.js index b7b7e51b3..0fb6fb506 100644 --- a/modules/pdp11/lib/pc11.js +++ b/modules/pdp11/lib/pc11.js @@ -77,6 +77,9 @@ function PC11(parms) Component.subclass(PC11); +/* + * There's nothing super special about these values, except that NONE should be falsey and the others should not. + */ PC11.LOADSTATE = { NONE: "", LOCAL: "?", @@ -222,9 +225,9 @@ PC11.prototype.initBus = function(cmp, bus, cpu, dbg) bus.addIOTable(this, PC11.UNIBUS_IOTABLE); - this.addTape("None", "", true); - if (this.fLocalTapes) this.addTape("Local Tape", "?"); - this.addTape("Remote Tape", "??"); + this.addTape("None", PC11.LOADSTATE.NONE, true); + if (this.fLocalTapes) this.addTape("Local Tape", PC11.LOADSTATE.LOCAL); + this.addTape("Remote Tape", PC11.LOADSTATE.REMOTE); if (!this.autoMount()) this.setReady(); }; @@ -312,15 +315,15 @@ PC11.prototype.loadSelectedTape = function(sTapeName, sTapePath, file) return; } - if (sTapePath == "?") { + if (sTapePath == PC11.LOADSTATE.LOCAL) { this.notice('Use "Choose File" and "Mount" to select and load a local tape.'); return; } /* - * If the special path of "??" is selected, then we want to prompt the user for a URL. Oh, and - * make sure we pass an empty string as the 2nd parameter to prompt(), so that IE won't display + * If the special PC11.LOADSTATE.REMOTE path is selected, then we want to prompt the user for a URL. + * 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? * * TODO: This is literally all I've done to support remote tape images. There's probably more diff --git a/modules/shared/templates/common.html b/modules/shared/templates/common.html index 785395c37..a8d2bb73b 100644 --- a/modules/shared/templates/common.html +++ b/modules/shared/templates/common.html @@ -31,7 +31,7 @@
  • PCjs
    • -
  • Demos
    • +
  • Apps
  • Devices
  • Disks
  • Docs
    • diff --git a/modules/shared/templates/common.xsl b/modules/shared/templates/common.xsl index 517c6b786..f6eafb84c 100644 --- a/modules/shared/templates/common.xsl +++ b/modules/shared/templates/common.xsl @@ -33,7 +33,7 @@