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

Strip leading zeros from selected debugger constants (typically immediate values)

Browse source
This commit is contained in:
Jeff 2016-09-27 12:53:36 -07:00 • committed by Jeff Parsons
commit eb5aaa5d66
10 changed files with 348 additions and 335 deletions
Download patch file Download diff file Expand all files Collapse all files

49
devices/pdp11/rom/custom/bootcode.mac
View file

@ -3,7 +3,7 @@
; REBASE HIGHER LINK/BOT:140000
; WANT PERFORMANCE COUNTER - CLOCK TICKS TO DO SOMETHING?
START: RESET
START: RESET ; 140000
CLR @#177776
MOV #START,SP
CLR @#177564
@ -29,18 +29,20 @@ START: RESET
LGHTON: .WORD 0
CLKTIC: .WORD 0
CLKAST:
CLKAST: ; 140124
INC CLKTIC
RTT
ONECHR:
TSTB @#177564
TSTB @#177564 ; 140132
BPL ONECHR
MOVB R0,@#177566
RTS PC
PRTPTR: .WORD 0
PRINT:
PRINT: ; 140150
BITB #100,@#177564
BNE PRINT
MOV R0,PRTPTR
@ -49,7 +51,7 @@ PRINT:
BISB #100,@#177564
RTS PC
PRTAST:
PRTAST: ; 140210
TSTB @PRTPTR
BEQ 2$
MOVB @PRTPTR,@#177566
@ -62,14 +64,14 @@ BUFFER: .WORD 0 ; INPUT BUFFER POINTER
LENGTH: .WORD 0 ; INPUT BUFFER LENGTH
INPUT:
MOV R0,BUFFER
MOV R0,BUFFER ; 140244
CLR LENGTH
MOV #INPAST,@#60
MOV #200,@#62
BISB #100,@#177560
RTS PC
INPAST:
INPAST: ; 140300
MOV R0,-(SP)
MOVB @#177562,R0
CMPB R0,#15
@ -112,7 +114,7 @@ INPAST:
9$: MOV (SP)+,R0
RTT
CMD:
CMD: ; 140506
CLR @#177772 ; NO MORE PIR CALLS
MOV R0,-(SP)
MOV R1,-(SP)
@ -152,7 +154,7 @@ CMD:
13$: MOV #UNKMSG,R0
JSR PC,PRINT
15$:CLR LENGTH
15$: CLR LENGTH
MOV #PROMPT,R0
JSR PC,PRINT
MOV (SP)+,R4
@ -160,7 +162,7 @@ CMD:
MOV (SP)+,R2
MOV (SP)+,R1
MOV (SP)+,R0
RTT
RTT
CMDTBL: .WORD BOOT,HALT,TEST,LIGHTS,HELP
@ -181,18 +183,18 @@ PERMSG: .ASCIZ ' CLOCK TICKS'<12><15>
.EVEN
HELP:
HELP: ; 141244
MOV #HLPMSG,R0
JSR PC,PRINT
RTS PC
HALT:
HALT: ; 141260
HALT
MOV #EOL,R0
JSR PC,PRINT
RTS PC
TEST:
TEST: ; 141272
CLR CLKTIC
MOV #15000,R5
@ -207,14 +209,14 @@ TEST:
ADD R3,R1
CMP R1,R5
BEQ 20$
HALT
20$:SOB R4,15$
HALT
20$: SOB R4,15$
SOB R5,10$
MOV #PERMSG+5,R0
MOV CLKTIC,R3
25$:CLR R2
25$: CLR R2 ; 141350
DIV #10,R2
ADD #'0,R3
MOVB R3,-(R0)
@ -230,7 +232,7 @@ MMR1=177574
MMR2=177576
MMR3=172516
LIGHTS:
LIGHTS: ; 141376
MOV #77406,R3 ; DEFAULT PDR
CLR R2
CLR R1
@ -274,7 +276,7 @@ LIGHTS:
; TO BE COPIED TO SUPER #40200 AT PHYSICAL #170000
; #40000 TO #40200 FOR WAIT & JMP INSTRUCTIONS
;
SUPERS:
SUPERS: ; 141616
MOV #37,R0 ; LOAD PATTERN
MOV #174000,R1
BIT #1,@#177570
@ -321,7 +323,7 @@ SUPERS:
ADD @#177570,R4
MOV #2,R3
ADD PC,R3
40$:JMP (R2)
40$: JMP (R2)
SOB R4,40$
MOV R0,R2
ROR R2 ; ROTATE PATTERN
@ -330,8 +332,7 @@ SUPERS:
BR 10$
SUPERE:
BOOT:
BOOT: ; 142062
CLR R3 ; UNIT
1$: MOVB (R2)+,R1
BEQ BOOTRK ; DEFAULT DEVICE IS RK0
@ -375,7 +376,7 @@ BOOT:
RTS PC
RLCS=174400
BOOTRL:
BOOTRL: ; 142234
RESET
SWAB R3 ; UNIT NUMBER
MOV #RLCS,R1 ; CSR
@ -416,7 +417,7 @@ BOOTRL:
RKDA=177412
READGO=5
BOOTRK:
RESET
RESET ; 142402
SWAB R3 ; UNIT NUMBER
ASL R3
ASL R3
@ -438,7 +439,7 @@ BOOTRK:
CLR PC
RPCSR=0176700
BOOTRP:
BOOTRP: ; 142460
RESET
MOV #RPCSR, R1
MOV #0000040, 10(R1) ; RESET