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

All attempted diagnostic tests pass now (including EKBBF0)

Browse source
This commit is contained in:
Jeff Parsons 2016-11-26 13:51:29 -08:00 • committed by Jeff Parsons
commit 08b81a8739
8 changed files with 1143 additions and 1127 deletions
Download patch file Download diff file Expand all files Collapse all files

25
apps/pdp11/boot/monitor/README.md
View file

@ -24,13 +24,17 @@ The **BOOTMON.mac** source code is shown below.
; REBASE HIGHER LINK/BOT:140000
; WANT PERFORMANCE COUNTER - CLOCK TICKS TO DO SOMETHING?
PSW = 177776
DL11XCSR = 177564
DL11VEC = 64
KW11LKS = 177546
KW11VEC = 100
DL11RCSR = 177560
DL11RBUF = 177562
DL11XCSR = 177564
DL11XBUF = 177566
DL11VEC = 64
PSW = 177776
.ASECT
.=140000
START: RESET
@ -67,7 +71,7 @@ The **BOOTMON.mac** source code is shown below.
ONECHR:
TSTB @#DL11XCSR
BPL ONECHR
MOVB R0,@#177566
MOVB R0,@#DL11XBUF
RTS PC
PRTPTR: .WORD 0
@ -84,10 +88,10 @@ The **BOOTMON.mac** source code is shown below.
PRTAST:
TSTB @PRTPTR
BEQ 2$
MOVB @PRTPTR,@#177566
MOVB @PRTPTR,@#DL11XBUF
INC PRTPTR
RTI
2$: CLRB @#177564
2$: CLRB @#DL11XCSR
RTI
BUFFER: .WORD 0 ; INPUT BUFFER POINTER
@ -98,12 +102,13 @@ The **BOOTMON.mac** source code is shown below.
CLR LENGTH
MOV #INPAST,@#60
MOV #200,@#62
BISB #100,@#177560
BISB #100,@#DL11RCSR
RTS PC
INPAST:
MOV R0,-(SP)
MOVB @#177562,R0
MOVB @#DL11RBUF,R0
BIC #340,@#PSW ; HACK TO PERMIT XBUF INTERRUPTS WHILE RBUF INTERRUPT HANDLER STILL RUNNING
CMPB R0,#15
BEQ 7$ ; CARRIAGE RETURN
CMPB R0,#127.
@ -153,7 +158,7 @@ The **BOOTMON.mac** source code is shown below.
MOV R4,-(SP)
MOV #EOL,R0
JSR PC,PRINT
1$: BITB #100,@#177564
1$: BITB #100,@#DL11XCSR
BNE 1$
CLR R4
MOV #CMDLST,R3 ; CMD LIST