Removed hard-coded addresses from BOOTMAN.mac

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

View file

@ -13,7 +13,7 @@
13
14 .ASECT
15 140000 .=140000
16 140000 000005 START: RESET ; 140000
16 140000 000005 START: RESET
17 140002 005037 177776 CLR @#PSW
18 140006 012706 140000 MOV #START,SP
19 140012 005037 177564 CLR @#DL11XCSR ; CLEAR THE XCSR
@ -41,19 +41,19 @@
41 140124 000000 LGHTON: .WORD 0
42 140126 000000 CLKTIC: .WORD 0
43
44 CLKAST: ; 140124
44 CLKAST:
45 140130 005267 140126' INC CLKTIC
46 140134 000002 RTI
47
48 ONECHR:
49 140136 105737 177564 TSTB @#DL11XCSR ; 140132
49 140136 105737 177564 TSTB @#DL11XCSR
50 140142 100375 BPL ONECHR
51 140144 110037 177566 MOVB R0,@#177566
52 140150 000207 RTS PC
53
54 140152 000000 PRTPTR: .WORD 0 ; 140146
54 140152 000000 PRTPTR: .WORD 0
55
56 PRINT: ; 140150
56 PRINT:
57 140154 132737 000100 177564 BITB #100,@#DL11XCSR
58 140162 001374 BNE PRINT
59 140164 010067 140152' MOV R0,PRTPTR
@ -62,7 +62,7 @@
62 140204 152737 000100 177564 BISB #100,@#DL11XCSR
63 140212 000207 RTS PC
64
65 PRTAST: ; 140210
65 PRTAST:
66 140214 105777 140152' TSTB @PRTPTR
67 140220 001406 BEQ 2$
68 140222 117737 140152' 177566 MOVB @PRTPTR,@#177566
@ -75,14 +75,14 @@
75 140246 000000 LENGTH: .WORD 0 ; INPUT BUFFER LENGTH
76
77 INPUT:
78 140250 010067 140244' MOV R0,BUFFER ; 140244
78 140250 010067 140244' MOV R0,BUFFER
79 140254 005067 140246' CLR LENGTH
80 140260 012737 140304 000060 MOV #INPAST,@#60
81 140266 012737 000200 000062 MOV #200,@#62
82 140274 152737 000100 177560 BISB #100,@#177560
83 140302 000207 RTS PC
84
85 INPAST: ; 140300
85 INPAST:
86 140304 010046 MOV R0,-(SP)
87 140306 113700 177562 MOVB @#177562,R0
88 140312 120027 000015 CMPB R0,#15
@ -125,7 +125,7 @@
125 140506 012600 9$: MOV (SP)+,R0
126 140510 000002 RTI
127
128 CMD: ; 140506
128 CMD:
129 140512 005037 177772 CLR @#177772 ; NO MORE PIR CALLS
130 140516 010046 MOV R0,-(SP)
131 140520 010146 MOV R1,-(SP)
@ -257,18 +257,18 @@
195
196 .EVEN
197
198 HELP: ; 141244
198 HELP:
199 141236 012700 140716 MOV #HLPMSG,R0
200 141242 004767 140154' JSR PC,PRINT
201 141246 000207 RTS PC
202
203 HALT: ; 141260
203 HALT:
204 141250 000000 HALT
205 141252 012700 141040 MOV #EOL,R0
206 141256 004767 140154' JSR PC,PRINT
207 141262 000207 RTS PC
208
209 TEST: ; 141272
209 TEST:
210 141264 005067 140126' CLR CLKTIC
211
212 141270 012705 015000 MOV #15000,R5
@ -290,7 +290,7 @@
228 141332 012700 141217 MOV #PERMSG+5,R0
229 141336 016703 140126' MOV CLKTIC,R3
230
231 141342 005002 25$: CLR R2 ; 141350
231 141342 005002 25$: CLR R2
232 141344 071227 000010 DIV #10,R2
233 141350 062703 000060 ADD #'0,R3
234 141354 110340 MOVB R3,-(R0)
@ -306,7 +306,7 @@
244 177576 MMR2=177576
245 172516 MMR3=172516
246
247 LIGHTS: ; 141376
247 LIGHTS:
248 141370 012703 077406 MOV #77406,R3 ; DEFAULT PDR
249 141374 005002 CLR R2
250 141376 005001 CLR R1
@ -350,7 +350,7 @@
288 ; TO BE COPIED TO SUPER #40200 AT PHYSICAL #170000
289 ; #40000 TO #40200 FOR WAIT & JMP INSTRUCTIONS
290 ;
291 SUPERS: ; 141616
291 SUPERS:
292 141610 012700 000037 MOV #37,R0 ; LOAD PATTERN
293 141614 012701 174000 MOV #174000,R1
294 141620 032737 000001 177570 BIT #1,@#177570
@ -406,7 +406,7 @@
344 142052 000702 BR 10$
345 SUPERE:
346
347 BOOT: ; 142062
347 BOOT:
348 142054 005003 CLR R3 ; UNIT
349 142056 112201 1$: MOVB (R2)+,R1
350 142060 001545 BEQ BOOTRK ; DEFAULT DEVICE IS RK0
@ -450,7 +450,7 @@
388 142224 000207 RTS PC
389
390 174400 RLCS=174400
391 BOOTRL: ; 142326
391 BOOTRL:
392 142226 000005 RESET
393 142230 000303 SWAB R3 ; UNIT NUMBER
394 142232 012701 174400 MOV #RLCS,R1 ; CSR
@ -491,7 +491,7 @@
429 177412 RKDA=177412
430 000005 READGO=5
431 BOOTRK:
432 142374 000005 RESET ; 142402
432 142374 000005 RESET
433 142376 000303 SWAB R3 ; UNIT NUMBER
434 142400 006303 ASL R3
435 142402 006303 ASL R3
@ -513,7 +513,7 @@
451 142450 005007 CLR PC
452
453 176700 RPCSR=0176700
454 BOOTRP: ; 142460
454 BOOTRP:
455 142452 000005 RESET
456 142454 012701 176700 MOV #RPCSR, R1
457 142460 012761 000040 000010 MOV #0000040, 10(R1) ; RESET