Updated PDP-11 READMEs
This commit is contained in:
parent
6683c81299
commit
fbb36c1d1b
10 changed files with 549 additions and 43 deletions
|
|
@ -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/)
|
||||
|
|
|
|||
|
|
@ -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/)
|
||||
|
|
|
|||
|
|
@ -7,7 +7,12 @@ permalink: /apps/pdp11/boot/
|
|||
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:
|
||||
|
||||
```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;
|
||||
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/)
|
||||
|
|
|
|||
|
|
@ -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 `<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.
|
||||
|
|
|
|||
|
|
@ -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$ ; <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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -7,7 +7,8 @@ permalink: /disks/
|
|||
---
|
||||
|
||||
Disk Libraries
|
||||
---
|
||||
--------------
|
||||
|
||||
Browse these PCjs Disk Libraries:
|
||||
|
||||
- [IBM PC](pcx86/)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -31,7 +31,7 @@
|
|||
<div class="common-top-left">
|
||||
<ul>
|
||||
<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="/disks/">Disks</a></li>
|
||||
<li><a href="/docs/">Docs</a></li>
|
||||
|
|
|
|||
|
|
@ -33,7 +33,7 @@
|
|||
<div class="common-top-left">
|
||||
<ul>
|
||||
<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="/disks/">Disks</a></li>
|
||||
<li><a href="/docs/">Docs</a></li>
|
||||
|
|
|
|||
Loading…
Reference in a new issue