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

Removed hard-coded addresses from BOOTMAN.mac

Browse source
This commit is contained in:
Jeff 2016-11-05 14:27:27 -07:00 • committed by Jeff Parsons
commit 08d48b9257
6 changed files with 153 additions and 153 deletions
Download patch file Download diff file Expand all files Collapse all files

38
apps/pdp11/boot/monitor/BOOTMON.mac
View file

@ -13,7 +13,7 @@ KW11VEC = 100
.ASECT
.=140000
START: RESET ; 140000
START: RESET
CLR @#PSW
MOV #START,SP
CLR @#DL11XCSR ; CLEAR THE XCSR
@ -41,19 +41,19 @@ START: RESET ; 140000
LGHTON: .WORD 0
CLKTIC: .WORD 0
CLKAST: ; 140124
CLKAST:
INC CLKTIC
RTI
ONECHR:
TSTB @#DL11XCSR ; 140132
TSTB @#DL11XCSR
BPL ONECHR
MOVB R0,@#177566
RTS PC
PRTPTR: .WORD 0 ; 140146
PRTPTR: .WORD 0
PRINT: ; 140150
PRINT:
BITB #100,@#DL11XCSR
BNE PRINT
MOV R0,PRTPTR
@ -62,7 +62,7 @@ PRINT: ; 140150
BISB #100,@#DL11XCSR
RTS PC
PRTAST: ; 140210
PRTAST:
TSTB @PRTPTR
BEQ 2$
MOVB @PRTPTR,@#177566
@ -75,14 +75,14 @@ BUFFER: .WORD 0 ; INPUT BUFFER POINTER
LENGTH: .WORD 0 ; INPUT BUFFER LENGTH
INPUT:
MOV R0,BUFFER ; 140244
MOV R0,BUFFER
CLR LENGTH
MOV #INPAST,@#60
MOV #200,@#62
BISB #100,@#177560
RTS PC
INPAST: ; 140300
INPAST:
MOV R0,-(SP)
MOVB @#177562,R0
CMPB R0,#15
@ -125,7 +125,7 @@ INPAST: ; 140300
9$: MOV (SP)+,R0
RTI
CMD: ; 140506
CMD:
CLR @#177772 ; NO MORE PIR CALLS
MOV R0,-(SP)
MOV R1,-(SP)
@ -195,18 +195,18 @@ PERMSG: .ASCIZ ' CLOCK TICKS'<12><15>
.EVEN
HELP: ; 141244
HELP:
MOV #HLPMSG,R0
JSR PC,PRINT
RTS PC
HALT: ; 141260
HALT:
HALT
MOV #EOL,R0
JSR PC,PRINT
RTS PC
TEST: ; 141272
TEST:
CLR CLKTIC
MOV #15000,R5
@ -228,7 +228,7 @@ TEST: ; 141272
MOV #PERMSG+5,R0
MOV CLKTIC,R3
25$: CLR R2 ; 141350
25$: CLR R2
DIV #10,R2
ADD #'0,R3
MOVB R3,-(R0)
@ -244,7 +244,7 @@ MMR1=177574
MMR2=177576
MMR3=172516
LIGHTS: ; 141376
LIGHTS:
MOV #77406,R3 ; DEFAULT PDR
CLR R2
CLR R1
@ -288,7 +288,7 @@ LIGHTS: ; 141376
; TO BE COPIED TO SUPER #40200 AT PHYSICAL #170000
; #40000 TO #40200 FOR WAIT & JMP INSTRUCTIONS
;
SUPERS: ; 141616
SUPERS:
MOV #37,R0 ; LOAD PATTERN
MOV #174000,R1
BIT #1,@#177570
@ -344,7 +344,7 @@ SUPERS: ; 141616
BR 10$
SUPERE:
BOOT: ; 142062
BOOT:
CLR R3 ; UNIT
1$: MOVB (R2)+,R1
BEQ BOOTRK ; DEFAULT DEVICE IS RK0
@ -388,7 +388,7 @@ BOOT: ; 142062
RTS PC
RLCS=174400
BOOTRL: ; 142326
BOOTRL:
RESET
SWAB R3 ; UNIT NUMBER
MOV #RLCS,R1 ; CSR
@ -429,7 +429,7 @@ BOOTRL: ; 142326
RKDA=177412
READGO=5
BOOTRK:
RESET ; 142402
RESET
SWAB R3 ; UNIT NUMBER
ASL R3
ASL R3
@ -451,7 +451,7 @@ BOOTRK:
CLR PC
RPCSR=0176700
BOOTRP: ; 142460
BOOTRP:
RESET
MOV #RPCSR, R1
MOV #0000040, 10(R1) ; RESET