2 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
4 ;;; This program is free software; you can redistribute it and/or
5 ;;; modify it under the terms of the GNU General Public License as
6 ;;; published by the Free Software Foundation; either version 2 of the
7 ;;; License, or (at your option) any later version.
9 ;;; This program is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 ;;; General Public License for more details.
14 ;;; You should have received a copy of the GNU General Public License
15 ;;; along with this program; if not, write to the Free Software
16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
43 PRINTC "Configuration (KSRP06, KSRM03, or ASK) ? "
59 IFNDEF NUDSL,[ PRINTC /No known configuration for "MACH".
64 SETF [Readin Mode Paper Tape?]HRIFLG
65 SETF [Assemble BOOT? (If no, full DSKDMP)]BOOTSW
67 SETF [RH11/RP06 disk system?]RP06P
69 SETF [RH11/RM03 disk system?]RM03P
71 SETF [RH10 (MC-KL) disk control?]RH10P
73 SETF [AIKA disk control? (no => RP02/RP03)]DC10P
76 IFN RP06P+RM03P, RH10P==0
77 IFN RP06P+RM03P+RH10P, DC10P==0
78 IFN RP06P+RM03P+RH10P+DC10P, RP10P==0
79 IFE RP06P+RM03P+RH10P+DC10P, RP10P==1
81 IFE BOOTSW, SETF [Number of dirs? (DM-KA: 200., ML-KA: 250., AI-KA: 440., all others: 500.)]NUDSL
83 SETF [KS10 processor?]KS10P
84 IFE KS10P, SETF [KL10 processor? (no => KA10)]KL10P
86 IFN KS10P+KL10P, KA10P==0
87 IFE KS10P+KL10P, KA10P==1
96 IFN RP06P+RM03P!TERMIN
106 NOSYMS ;MAKE PAPER TAPE SHORTER
114 BLKIN=5 ;PSEUDO-CORE BLOCK IN CBUF
115 WRITE=6 ;NEG MEANS DUMP, RH 0 OR WRBIT
116 DIFF=7 ;DIFF CONO ALSO TEMP
117 HEAD=10 ;HEAD CONO ALSO TEMP
120 UNIT=13 ;UNIT AND M.A. DATAO
123 TT=16 ;ANOTHER JSP AC, ALSO VERY TEMP
124 BUFP=17 ;DBUF PNTR--LAST WORD USED
126 IF1,[ ;DON'T TAKE A WEEK AND A HALF TO ASSEMBLE.
127 RP, .INSRT SYSTEM;RP10 >
128 SC, .INSRT SYSTEM;DC10 >
129 RH, .INSRT SYSTEM;RH10 >
130 IFN RP06P, .INSRT SYSTEM;RH11 >
131 IFN RM03P, .INSRT SYSTEM;RM03 >
132 IFE BOOTSW, .INSRT SYSTEM;FSDEFS >
133 IFE BOOTSW, KL, .INSRT SYSTEM;EPT >
134 KS, .INSRT SYSTEM;KSDEFS >
138 ;PARAMETER FILE FOR DSKDMP
140 MEMSIZ=1000000 ;ACTUAL SIZE OF MEM
141 IFNDEF DBGSW,DBGSW==0 ;1 TO DEBUG THIS WITH DDT
143 IFN DBGSW,MEMSIZ==MEMSIZ-10000 ;MOVE DOWN UNDER DDT IF DEBUG MODE
144 CORE==MEMSIZ-10000-<2000*NTUTBL> ;HIGHEST ADR ALWAYS IN CORE+1
145 CORES==CORE_<-12> ;BLK # OF ABOVE (FIRST OF BLKS SWAPPED OUT FOR BUFFER AREAS)
146 NSWBL==4+NTUTBL ;# BLOCKS SWAPPED OUT FOR BUFFER AREAS, +1 FOR DSKDMP ITSELF
147 HIGH==MEMSIZ-100 ;HIGHEST ADR LOADED/DUMPED+1
149 NDSK==8 ;MAX POSSIBLE. L$n$ DEFINES WHICH ARE REALLY THERE
153 PH, UBPG==:17 ; Use last (usable) page in Unibus map
157 KL, PAG=<BLKI 10,>-<BLKI>
160 IF1,[ PRINTX
\1c A = B
164 ; L$file LOAD FILE INTO CORE
165 ; T$file LOAD FILE INTO CORE AND GIVE SYMBOLS TO DDT AND START DDT
166 ; M$file LOAD FILE INTO CORE WITHOUT CLEARING CORE FIRST, DOESN'T LOAD SYMBOLS
168 ; D$file DUMP CORE INTO FILE
169 ; I$file VERIFY FILE AGAINST CORE
170 ; G$ START AT STARTING ADDRESS
171 ; U$dir; LIST DIRECTORY
172 ; F$ LIST CURRENT DIRECTORY
173 ; S$ LIST PACK IDS THEN MFD
174 ; nnn$ SET STARTING ADDRESS TO nnn
175 ; L$n$ PUT DISK n ONLINE
176 ; K$n$ TAKE DISK n OFFLINE
179 ; CMPERR VERIFY FAILED TO MATCH
180 ; DIRFUL DIRECTORY FULL
182 ; DIRNF DIRECTORY DOES NOT EXIST
184 ; PKNMTD FILE IS ON PACK THAT IS NOT MOUNTED
185 ; CKSERR CHECKSUM ERROR
187 ; NODDT CAN'T ADDRESS DDT SYMBOL TABLE (BUG)
189 ; SEEKFL DISK SEEK ERROR
190 ; CLOBRD DISK READ ERROR
191 ; CLOBWR DISK WRITE ERROR
192 ; DIRCLB DIR NAME DIFFERS, TUT DISAGREES WITH DIR
193 ; MFDCLB M.F.D. CLOBBERED
194 ; DSKLUZ DISK LOSSAGE (OFFLINE OR UNSAFE OR MASSBUS ERROR)
196 KS, LOC 4000 ; Avoid MTBOOT and KSRIM
200 MOVE T,.... ;THIS CODE BLTS THE FOLLOWING OFFSET CODE
201 BLT T,MEMSIZ-1-1 ;INTO HIGH MEMORY AND WRITES DSKDMP ON ITS
202 MOVE T,PROG+MEMSIZ-2-BEG+1
203 MOVEM T,BEG+MEMSIZ-2-BEG+1 ;AVOID LOSING DUE TO -1 BLT LOSSAGE
205 MOVSI T,-NDSK+1 ;MAKE ALL BUT DISK 0 BE DEAD (MUST DO L$ TO MAKE THEM ALIVE)
210 RP,[ MOVEI T,ICWA+2 ;SET UP CHANNEL JUMP
211 MOVEM T,ICWA ;IN INITIAL CHANNEL ADDRESS
212 SETZM ICWA+1 ;AND CLEAR REMAINING STUFF
218 MOVEI B,MBLKS ;UNIT 0 IS AN RP03, ADJUST WORLD
225 MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
227 ADDI BLOK,NSWBL ;FIRST BLOCK AFTER CORE BUFFER IS WHERE DSKDMP LIVES
236 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
239 PH,[ MOVEI T,%HYCLR ; Clear controller
240 IOWRQ T,%HRCS2 ; (Selects drive 0)
241 WBOOT0: IORDQ T,%HRCS1
243 JRST WBOOT0 ; Await drive available (well, it is a dual
244 ; ported drive... perhaps someday?)
247 ADDI BLOK,NSWBL ; FIRST BLOCK AFTER CORE BUFFER IS WHERE
256 TRNE TT,%HXTRE+%HXMCP
258 IFE DBGSW, JRST 4,. ; Formerly JRST MEMSIZ-400 (??)
261 RH,[ MOVEI T,ICWA+2 ;SET UP CHANNEL JUMP
262 MOVEM T,ICWA ;IN INITIAL CHANNEL ADDRESS
263 SETZM ICWA+1 ;AND CLEAR REMAINING STUFF
265 WBOOT0: DATAO DSK,[%HRDCL,,]
270 JRST WBOOT0 ;AWAIT DRIVE AVAILABLE
271 MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
273 ADDI BLOK,NSWBL ;FIRST BLOCK AFTER CORE BUFFER IS WHERE DSKDMP LIVES
282 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
285 SC,[ MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
286 MOVEI BLOK,NBLKS+NSWBL
289 MOVEI BLOK,NBLKS+NSWBL+1
297 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
302 DCOPY ......(-LRIBLK_2&37774)
305 ......: DWRITE+DUNENB+DADR ;FOR READIN
306 DCOPY BEG(-2000_2&37774)
308 DCOPY BEG(-2000_2&37774)
315 KA, LOC 2000 ; MAKE OFFSET CONVENIENT
317 KS, LOC 6000 ; Avoid MTBOOT and KSRIM
318 PROG: OFFSET CORE+<<NSWBL-1>*2000>-.
319 ]IFN DBGSW,LOC MEMSIZ-2000
322 KA,[ CONO 635550 ;ENTER HERE, CLEAR WORLD
324 JFCL 1,[JRST 4,.] ;A PDP6??
325 LPMR [0]-2 ;TURN OFF EXEC PAGING
327 KL,[ CONO 327740 ;CLEAR APR
328 CONSZ PAG,660000 ;PAGING AND CACHE BETTER BE OFF
331 KS,[ CONO 127760 ; Enable, and Clear all.
333 TRNE B,60000 ; Paging and Tops-20 better be off.
335 SETZM 8SWIT0 ; Clear 8080 Communications area to prevent
336 MOVE B,[8SWIT0,,8SWIT0+1] ; mysterious IO behavior.
338 ;; If the machine has just been powered on, there is likely to be
339 ;; bad parity all over the place. I guess that isn't our problem
340 ;; as long as we don't touch any of it...
342 MOVSI B,-NDSK ;FOR NUMBER OF DISKS
343 SETOM PKNUM(B) ;SET DISK TO UNKNOWN
345 MOVE T,[JRST LOADG1] ;SET BOOTSTRAP TO MIDDLE OF WORLD
347 MOVE D,['DSKDMP] ;ANNOUNCE SELF
349 JRST READ ;CRLF AND BEGIN READING COMMANDS
352 CLEARM MEMSIZ-1 ;DON'T READ ANY MORE COMMANDS FROM MEMORY
353 SOS T,ERROR ;PICK UP ERROR CODE FROM THE AC FIELD OF
354 LDB T,[270400+T,,] ;THE JSR ERROR
356 JSP TT,PD ;PRINT OUT APPROPRIATE COMMENT
358 JRST READ ;BAD ERROR - NO MORE DISKING
360 KA, DATAI TTY,C ;FLUSH RANDOM CHARACTER
361 KS, SETZM 8CTYIN ; ".RESET"
362 TRO CMD,10 ;MAKE SURE PSEUDO-CORE IN CORE
363 JRST LOADG ;BY SIMULATING END OF LOADING, NON-GOING COMMAND
365 ERMESS: IRP XX,,[ECMP,EDIR,EEOF,ESNF,EFNF,EPNM,ECKS
366 EDSK,EDDT,EBUG,EC63,ECRD,ECWR,ECDR,EMFC,EDLZ]YY,,[CMPERR,DIRFUL
367 EOF,DIRNF,FNF,PKNMTD,CKSERR,DSKFUL,NODDT,?BUG?,SEEKFL
368 CLOBRD,CLOBWR,DIRCLB,MFDCLB,DSKLUZ]
373 PD: JSP P,CRLF ;TYPE A CR
375 JSP P,TYO ;AND A SPACE
377 PD1: ILDB C,B ;AND THE SIXBIT CONTENTS OF D
385 C12: IDIVI C,10. ;PRINT CONTENTS OF C AS A TWO-DIGIT
386 DPB C,[60600,,A] ;DECIMAL NUMBER PRECEDED
387 MOVEI D,(SIXBIT /#00/+A) ;BY <SPACE>#
391 WRCB: MOVEI UNIT,CBUF ;WRITE OUT CONTENTS OF CBUF
392 LSH BLKIN,-12 ;ON APPROPRIATE BLOCK
394 ADDI BLOK,-CORES(BLKIN)
397 LODUMP: MOVEI UNIT,CORE ;DEPENDING ON SIGN BIT OF WRITE, LOAD OR DUMP
398 HRRZ BLOK,CBLK ;PSEUDO-CORE (766000-775777)
406 FD: HRRZ C,B ;SET UP POINTER IN C TO FETCH OR DEPOSIT
407 ;CONTENTS OF ADDRESS IN RIGHT HALF OF B
408 IFN DBGSW, SKIPGE WRITE ;LOAD DDT WHEN IN DEBUG MODE
412 CAIGE C,CORE ;IF ADDR IS IN REAL CORE, RETURN IMMEDIATELY
414 FDX: CAIL C,(BLKIN) ;ADDR IS IN PSEUDO-CORE--CHECK IF RIGHT
415 CAILE C,1777(BLKIN) ;BLOCK IS IN CBUF
416 JRST FD3 ;IT'S NOT THERE--READ IT IN
417 FD4: SUBI C,-CORE(BLKIN) ;IT'S THERE--SET UP RIGHT POINTER IN C
418 JRST 1(P) ;AND RETURN
419 FD3: JUMPLE WRITE,FD3A ;IF DUMP OR VERIFY DON'T BOTHER
420 ;TO WRITE OUT CURRENT BLOCK
421 FD3B: JSP TT,WRCB ;IF LOAD, WRITE CURRENT BLOCK FIRST
422 FD3A: MOVEI UNIT,CBUF
425 LDB BLOK,[121000,,BLKIN]
427 MOVEI BLOK,-CORES(BLOK)
428 JSP TT,RDM ;READ IN CORRECT BLOCK
429 JRST FD4 ;SET UP POINTER AND RETURN
431 GBP: IDIVI C,6 ;TURN USER DIRECTORY CHARACTER ADDR IN C
432 IMULI A,-60000 ;INTO A BYTE POINTER
437 WD: AOBJN BUFP,WD1 ;READ, WRITE, OR VERIFY WORD IN D FROM, INTO,
438 JSP TT,NXTBLK ;OR AGAINST WORD IN DBUF
439 JSP TT,WRDB ;TIME TO REFILL OR EMPTY DBUF
440 MOVSI BUFP,-2000 ;RESET BUFFER POINTER
441 WD1: JUMPG WRITE,WD2 ;JUMP ON LOAD
442 JUMPL WRITE,WD3 ;JUMP ON WRITE
443 CAME D,DBUF(BUFP) ;HERE IF VERIFY
444 JSR ECMP,ERROR ;VERIFY COMPARE LOST
446 WD2: SKIPA D,DBUF(BUFP) ;LOAD
447 WD3: MOVEM D,DBUF(BUFP) ;DUMP
450 NXTTUT: HRRZ B,CU ;SELECT NEXT UNIT AND READ ITS TUT
456 JRST 1(TT) ;SKIP IF NO MORE
458 JRST NXTTUT ;UNIT NOT ON LINE
459 RDTUT: MOVEI BLOK,TUTBLK ;READ TUT OF CURRENT UNIT
461 SETOM PKNUM(B) ;ALWAYS READ HEADER FOR TUT
462 IFG NTUTBL-1,[ ;READ IN MULTI-BLOCK TUT
463 HRRM TT,RDTUTX ;SAVE RETURN ADDRESS
474 IBP DIRPT ;DO AN IDPB T,DIRPT CHECKING TO SEE IF
475 LDB DIFF,[1200,,DIRPT] ;RUNNING INTO NAME AREA
481 NXTBW: MOVE BLOK,LBLOCK ;FIND NEXT FREE BLOCK TO WRITE
484 JUMPN T,NXTBW1 ;JUMP IF VERY NEXT BLOCK NOT FREE
486 NXTBW5: SOJA HEAD,NXTBW4 ;GENERATE LOAD ADR IF FIRST TIME (COMPENSATE FOR LBLOCK OFF BY 1)
488 JRST NXTBW2 ;NO NEED TO MODIFY DIRECTORY YET
489 CLEARM BLKCNT ;14 IN A ROW--RESET COUNTER AND
490 NXTBW6: JSR NXTBW3 ;DPB BYTE INTO DIRECTORY
491 NXTBW2: MOVE BLOK,HEAD
493 JSR EDSK,ERROR ;NO MORE DISK LEFT
495 DPB T,TUTPT ;MARK BLOCK USED IN TUT
498 NXTBW1: ADDI HEAD,1 ;SEARCH FOR NEXT FREE BLOCK
502 SKIPLE T,BLKCNT ;COME UP WITH DESC BYTE FOR LAST FEW BLOCKS
505 JUMPL T,NXTBW5 ;FIRST TIME
506 MOVEI T,UDTKMX-1(BLOK)
507 CAIGE T,UDWPH ;CAN WE SAY SKIP N--TAKE 1?
509 NXTBW4: MOVEI BLOK,NXLBYT
518 NXTBLK: JUMPL WRITE,NXTBW ;GET NEXT BLOCK OF FILE--IF DUMP, FIND FREE
519 MOVE BLOK,LBLOCK ;BLOCK
520 NXTB6: SOSLE BLKCNT ;HAVE WE RUN OUT OF "TAKE N"?
521 AOJA BLOK,WRDB1 ;NO--TAKE NEXT BLOCK
522 ILDB T,DIRPT ;YES--GET NEXT DESC BYTE
524 JRST NXTB1 ;IT'S A LOAD ADDR
526 JUMPN T,NXTB2 ;IT'S A TAKE OR SKIP
527 CAIE CMD,'D ;IT'S 0 OR NULL--IF THIS IS A LOAD, IT'S AN
528 CAIN CMD,'K ;UNEXPECTED END OF FILE
529 JRST KILL1 ;IF DUMP OR KILL, O.K.
532 NXTB1: MOVEI BLOK,-UDWPH-1(T) ;LOAD ADR
537 DPB T,DIRPT ;IF KILLING FILE, ZERO THIS BYTE (OTHERS ZEROED AT KILL)
540 ADD BLOK,T ;GET COMPLETE BLOCK NUMBER
544 NXTB2: MOVEM T,BLKCNT
546 AOJA BLOK,WRDB1 ;TAKE N STARTING WITH NEXT ONE
547 ADDI BLOK,-UDTKMX+1(T) ;SKIP N-<MAX TAKE> AND TAKE 1
549 WRDB1: MOVEM BLOK,LBLOCK
553 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
554 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
555 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
556 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
559 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
560 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
561 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
562 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
563 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
565 WRD3: DPB WRITE,[360600,,DBLK] ;SET OP, UNIT SEL
566 DPB WRITE,[DUNFLD SEEK]
567 DPB WRITE,[DUNFLD RECAL]
568 HRLI UNIT,-2000 ;ADDRESS COMES IN IN `UNIT'
571 LDB UNIT,[300,,WRITE] ;ISOLATE FROM GARBAGE
572 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
573 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
577 DPB HEAD,[DSECT DBLK]
579 DPB HEAD,[DSURF DBLK]
582 DATAO DPC,CLATT ;CLEAR ATTENTIONS
583 LSH DIFF,-8 ;EXTRA CYLINDER BIT FOR RP03
584 DPB DIFF,[DCYLXB DBLK]
585 DPB DIFF,[DCYLXB SEEK]
599 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
601 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
602 JSR ECWR,ERROR ;WRITE ERRORS AND
603 JSR ECRD,ERROR ;READ ERRORS
605 WRDX: HRRZ UNIT,@ICWA ;RESTORE ADDR
606 ADDI UNIT,1 ;COMPENSATE FOR IOWD LOSSAGE
607 TRZ WRITE,-1 ;FLUSH GARBAGE
625 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
626 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
627 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
628 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
631 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
632 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
633 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
634 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
635 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
637 WRD3: TRNE UNIT,1777 ; Better be on a page boundary!
639 LDB DIFF,[111100,,UNIT] ; Point Unibus map at page in question
640 TRO DIFF,%UQFST+%UQVAL
641 IOWRQ DIFF,UBAPAG+UBPG_1
643 IOWRQ DIFF,UBAPAG+UBPG_1+1
644 LDB DIFF,[000300,,WRITE] ; Select drive
646 JSP HEAD,RHCHEK ; Check for immediate trouble
647 MOVEI DIFF,%HMRDP ; Init the drive
649 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
650 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
651 WRD5: MOVNI DIFF,4000
652 IOWRQ DIFF,%HRWC ; 4000 half words
654 IOWRQ DIFF,%HRBA ; "Byte" base address
657 IOWRQ DIFF,%HRCYL ; Desire cylinder
661 DPB DIFF,[$HATRK HEAD]
662 IOWRQ HEAD,%HRADR ; Desire track and sector
666 IOWRQ DIFF,%HRCS1 ; Do it (implied seek)
667 WRD7: IORDQ DIFF,%HRCS1
668 TRNN DIFF,%HXRDY ; Wait for controller to finish
670 TRNN DIFF,%HXTRE+%HXMCP ; Trouble?
671 JRST WRDX ; Nope, exit
673 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
674 JRST WRD0 ;RECALIBRATE AND TRY AGAIN
675 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
676 JSR ECWR,ERROR ;WRITE ERRORS AND
677 JSR ECRD,ERROR ;READ ERRORS
679 WRDX: TRZ WRITE,-1 ;FLUSH GARBAGE
682 WRD0: MOVEI DIFF,%HYCLR ; Clear controller
684 LDB DIFF,[000300,,WRITE] ; Select drive
686 MOVEI DIFF,%HMCLR ; Clear drive
688 JSP HEAD,RHCHEK ; Immediate lossage?
689 MOVEI DIFF,%HMREC ; Recalibrate
695 TRNE DIFF,%HSPIP ; WAIT FOR DRIVE TO FINISH
697 ANDI DIFF,%HSDPR+%HSMOL+%HSVV+%HSRDY+%HSERR
698 CAIE DIFF,%HSDPR+%HSMOL+%HSVV+%HSRDY
702 ;;; JSP HEAD,RHCHEK to check for errors.
703 RHCHEK: IORDQ DIFF,%HRCS1
704 TRNE DIFF,%HXTRE+%HXMCP
710 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
711 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
712 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
713 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
716 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
717 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
718 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
719 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
720 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
722 WRD3: HRLI UNIT,-2000 ;ADDRESS COMES IN IN `UNIT'
723 CONI DSK,HEAD ;SET WORD COUNT TO ONE BLOCK
724 TLNE HEAD,(%HID22) ;ACCORDING TO TYPE OF CHANNEL
727 LDB UNIT,[300,,WRITE] ;ISOLATE FROM GARBAGE
728 SOS @ICWA ;ADJUST FOR DF10 LOSSAGE
729 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
730 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
731 WRD5: MOVSI DIFF,%HRDCL(UNIT)
732 HRRI DIFF,%HMRDP ;INIT THE DRIVE
737 MOVEM HEAD,DBLK ;SAVE CYLINDER
741 DPB HEAD,[$HATRK DIFF]
742 TLO DIFF,%HRADR(UNIT)
745 TLO DIFF,%HRCYL(UNIT)
747 MOVSI DIFF,%HRCTL(UNIT)
752 JSP HEAD,RHSET ;DO IT (USE IMPLIED SEEK)
758 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
759 JRST WRD0 ;RECALIBRATE AND TRY AGAIN
760 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
761 JSR ECWR,ERROR ;WRITE ERRORS AND
762 JSR ECRD,ERROR ;READ ERRORS
764 WRDX: HRRZ UNIT,@ICWA ;RESTORE ADDR
765 ADDI UNIT,1 ;COMPENSATE FOR IOWD LOSSAGE
766 TRZ WRITE,-1 ;FLUSH GARBAGE
769 WRD0: MOVSI DIFF,%HRDCL(UNIT)
772 MOVSI DIFF,%HRDCL(UNIT)
779 MOVSI DIFF,%HRSTS(UNIT)
783 ANDI DIFF,%HSVV+%HSRDY+%HSMOL+%HSERR
784 CAIE DIFF,%HSVV+%HSRDY+%HSMOL
788 ;RH10 HACKING ROUTINES. CALL BY JSP HEAD,. DIFF HAS REGISTER ADDRESS IN LH, DATA IN RH.
789 RHSET: TLOA DIFF,%HRLOD
790 RHGET: TLZ DIFF,%HRLOD
802 \f;SC DISK IO ROUTINE
804 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
805 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
806 WRM: HRRI WRITE,60#120 ;WRITE ON MASTER UNIT
807 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
810 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
811 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
812 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
813 WR: HRRI WRITE,60#120 ;WRITE ON CURRENT UNIT
814 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
816 WRD3: DPB WRITE,[330700,,DBLK] ;SET OP, UNIT SEL
817 DPB UNIT,[DCCA DBLK+1] ; & CORE ADDR
818 DPB UNIT,[DCCA DBLK1+1]
819 LDB UNIT,[400,,WRITE] ;ISOLATE FROM GARBAGE
820 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
821 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
824 DPB HEAD,[DSECT DBLK]
826 DPB HEAD,[DSURF DBLK]
828 CONO DC0,DCCSET\DCDENB ;RESET ALL, THEN SET DCDENB
831 SKIPLE DIFF,PKNUM(UNIT)
833 MOVE DIFF,QTRAN(UNIT) ;READ PACK ID
834 DPB DIFF,[DUNFLD GPKID]
837 ADDI DIFF,NCYLS+XCYLS
838 DPB DIFF,[DCYL GPKID]
839 DATAO DC0,[DJMP GPKID]
844 CONO DC0,DCCSET\DCDENB ;RESET POSSIBLE "FUTURE" IP OR RLCERR
845 LDB DIFF,[DPKID RPKID]
846 MOVEM DIFF,PKNUM(UNIT)
847 WRD4: DPB DIFF,[DPKID DBLK]
849 DPB DIFF,[3300,,DBLK1]
850 MOVE DIFF,QTRAN(UNIT)
851 DPB DIFF,[DUNFLD DBLK]
853 LDB DIFF,[DCYL DBLK] ;2ND HALF UNIT
854 ADDI DIFF,NCYLS+XCYLS
856 WRD4A: DATAO DC0,[DJMP DBLK]
862 TRNN DIFF,2 ;DO RECALIBRATE 2 OUT OF 4 RETRIES
864 WRD0: AOSLE ERRCT ;POSITIONER ERROR--CHECK ERROR COUNT
865 JSR EC63,ERROR ;TOO MANY--GIVE UP
866 DATAO DC0,[DSPC+DSRCAL+DSWINF]
869 JRST WRD5 ;TRY AGAIN AFTER RESETTING UNIT
871 WRD2: HRRZM BLOK,BADBLK
872 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
874 TRNE WRITE,40 ;GIVE UP--DISTINGUISH BETWEEN
875 JSR ECWR,ERROR ;WRITE ERRORS AND
876 JSR ECRD,ERROR ;READ ERRORS
878 WRDX: DPB BLOK,[XWBLK XWDS] ;PNTR TO PREV BLOCK
879 LDB UNIT,[DCCA DBLK+1] ;RESTORE ADR
880 TRZ WRITE,-1 ;FLUSH GARBAGE
884 DCOPY .(-2000_2&37774)
885 DCOPY XWDS(-4_2&37774)
887 DCOPY .(-2000_2&37774)
888 DCOPY XWDS(-4_2&37774)
891 GPKID: DSPC+DSCRHD+DSWIDX+DSWNUL+DUNENB+TUTCYL_11.+TUTSRF_6+TUTSEC
896 ;JSP P,TYI RETURNS CHAR IN C.
897 ;JSP P,TYI0 ALSO SKIPS IF NO INPUT AVAILABLE.
898 TYI: ILDB C,MEMSIZ-1 ;CHECK FOR COMMANDS FROM MEMORY
899 JUMPN C,(P) ;FOUND ONE--RETURN
901 TYI0: ;ENTRY TO SKIP IF NO INPUT AVAILABLE
911 KL,[ MOVEI C,3400 ;DDT MODE INPUT
923 JRST (P) ;DON'T ECHO GRITCHES
926 ;JSP P,TYO TYPES OUT CHAR IN C. CLOBBERS A,C.
928 ; JRST (P) ;DON'T ECHO COMMANDS FROM MEMORY
929 KA,[ HRRZ A,C ;COMPUTE PARITY
959 JUMPGE C,(P) ;CHECK FOR CRLF (AS OPPOSED TO ECHOING A CR)
960 SKIPA C,C12 ;TYPE AN LF
964 TYI1: HRRZ C,-1(P) ;NO INPUT AVAILABLE
966 JRST TYI ;WAIT FOR IT
967 JRST 1(P) ;CALL WAS TO TYI0, SKIP RETURN
971 MOVSI WRITE,-1 ;MAKE THIS INFO MORE CONVENIENT
976 DPB T,DIRPT ;CLOBBER CHARS READ FOR DUMP OR KILL
985 LINKN1: CAMGE D,[600,,B] ;THROUGH WITH FN2?
994 IDPB T,D ;FILL OUT WITH SPACES
1002 READ: MOVEI BLKIN,CORE
1004 MOVEI CMD,0 ;INITIALIZE COMMAND
1005 READ1A: MOVEI WRITE,0 ;INITIALIZE NUMBER
1006 MOVSI B,(SIXBIT \@\) ;INITIALIZE 1ST FILE NAME
1008 READ3A: MOVSI B,(SIXBIT \@\) ;INITIALIZE CURRENT FILE NAME
1012 JRST READ ;IF RUBOUT START OVER
1015 JRST ALTMOD ;JUMP IF 33, 175, 176
1016 ASH WRITE,3 ;DOES NOT CHANGE SIGN OF WRITE
1019 TLOA WRITE,400000 ;NON-NUMERIC CHAR--MAKE WRITE NEGATIVE
1020 ADDI WRITE,-"0(C) ;NUMERIC CHAR--ACCUMULATE NUMBER
1022 JRST READ3 ;SET SYSTEM NAME
1024 JRST READ1 ;SET FIRST FILE NAME
1026 JSP P,TYI ;QUOTED CHARACTER
1027 CAIGE C,140 ;CHECK FOR LOWER CASE
1029 JUMPL C,DOIT ;IF LESS THAN 40 (EXC. ^Q) END OF COMMAND
1030 TLNE D,770000 ;SKIP IF ALREADY SIX CHARS
1037 JRST DOIT ;IF COMMAND IS U GO LIST DIRECTORY
1039 ONOFF: CAIGE WRITE,NDSK
1040 DPB CMD,[100,,QDED(WRITE)] ;LOW BIT OF CMD DETERMINES ON/OFF LINE STATUS
1041 JRST READ ; (K=13, L=14)
1043 ALT1: LDB CMD,D ;PICK UP COMMAND CHAR
1046 JRST READ1A ;GET FILE NAME
1047 JRST DOIT ;DON'T WANT FILE NAME--GO TO WORK
1050 JSP P,TYO ;ECHO DOLLAR SIGN
1051 JUMPLE WRITE,ALT2 ;JUMP IF NOT <NUMBER><ALTMODE> LAST TYPED
1052 JUMPN CMD,ONOFF ;JUMP IF <CMD><ALTMODE><NUMBER><ALTMODE>
1053 HRRM WRITE,SADR ;SET STARTING ADDR
1057 TLCN D,360000 ;SKIP IF SINGLE CHARACTER BEFORE <ALTMODE>
1058 JUMPE CMD,ALT1 ;JUMP IF NO COMMAND ALREADY TYPED
1059 DOIT: MOVEM B,FN2 ;STORE SECOND FILE NAME
1061 HRRM B,CU ;MAKE MASTER UNIT CURRENT UNIT
1063 JSP P,LODUMP ;DUMP OUT PSEUDO-CORE
1068 MLOOK2: MOVSI WRITE,1 ;MAKE WRITE INDICATE LOAD
1071 JSP TT,RD ;READ MASTER DIRECTORY TO FIND WHERE USER DIRECTORY IS
1073 CAME T,[SIXBIT/M.F.D./]
1079 JRST LISTS ;LIST DISK ID'S AND SYSTEM NAMES
1081 MLOOK: CAMN C,DIR+MNUNAM(T) ;LOOK UP SYSTEM NAME
1086 JSR ESNF,ERROR ;NOT FOUND
1088 MLOOK1: MOVEI BLOK,2*NUDSL-2000(T) ;CONVERT USER SLOT TO BLOCK NUMBER
1090 HRRM BLOK,UDBLK ;REMEMBER FOR KILL OR DUMP
1092 JSP TT,RDM ;READ USER DIRECTORY
1093 ULOOK: CAME C,DIR+UDNAME
1094 JSR ECDR,ERROR ;WRONG ONE??
1097 JRST LISTFC ;LIST USER DIRECTORY
1102 ULOOK1: CAMN A,DIR+UNFN1(T) ;LOOK UP FILE NAME
1105 TDNN TT,DIR+UNRNDM(T) ;IS THIS FILE FOR REAL?
1107 ULOOK2: ADDI T,LUNBLK
1110 CAIE CMD,'D ;IF NOT FOUND BETTER BE DUMP
1113 ULOOK4: SKIPN DIR+UNFN1(T) ;FIND FREE SLOT FOR NEW FILE
1118 MOVNI T,LUNBLK ;NO FREE SLOTS--TRY TO EXTEND NAME AREA DOWN
1123 CAMGE T,DIR+UDNAMP ;DID WE RUN INTO DESCRIPTOR AREA?
1127 ULOOK3: HRRM T,DMP4 ;IF FILE FOUND, SAVE SLOT NUMBER FOR DUMP
1128 LDB C,[UNDSCP DIR+UNRNDM(T)]
1130 MOVEM C,DIRPT ;SET UP DESCRIPTOR AREA BYTE POINTER
1132 TDNE TT,DIR+UNRNDM(T)
1133 JRST LINK ;FILE IS A LINK
1134 LDB A,[UNPKN DIR+UNRNDM(T)]
1135 ULOOK5: CAMN A,TUT+QPKNUM ;SEE IF IT'S MOUNTED
1141 LOAD: CAIE CMD,'D ;GET HERE IF FILE FOUND
1142 CAIN CMD,'K ;IF DUMP OR KILL, DELETE IT
1144 ZERO: MOVEI TT,CORE-1
1145 TRNN CMD,20 ;SKIP IF T$ SYMBOL LOADING COMMAND
1147 MOVEI B,DDT-1 ;ASSUME ALWAYS USING MOBY DDT
1148 JSP P,FD ;GET DDT'S SYMBOL TABLE POINTER
1149 JSR EDDT,ERROR ;CAN'T GET IT??
1150 HRROS B,(C) ;TELL DDT ITS SYMBOL TABLE WAS BUGGERED
1151 CAME B,[-1,,DDT-2] ;VERIFY THAT IT'S REALLY A MOBY DDT LIKE WE THOUGHT
1153 SKIPE D,-2(C) ;FLUSH ALL BUT INITIAL SYMBOLS
1158 MOVEI TT,-1(D) ;DON'T ZERO SYMBOL TABLE NOR DDT
1160 JRST LOAD1 ;NON-ZEROING COMMAND
1161 SETZM 40 ;BEGIN CLEARING CORE
1162 MOVE T,[40,,41] ;SET UP BLT POINTER
1163 ;CODE TO SKIP OVER NXM
1164 ZERO2: CAIG TT,10*2000-1(T) ;MORE THAN 8K LEFT TO ZERO?
1165 JRST ZERO4 ;NO, ZERO REMAINING WORDS AND PROCEED
1166 MOVE D,T ;AVOID KA/KL INCOMPAT BY COPYING BLT PNTR
1167 BLT D,10*2000-1(T) ;ZERO NEXT 8K
1168 ZERO3: ADDI T,10*2000 ;MOVE DEST OF BLT PNTR UP 8K
1169 ANDCMI T,1777 ;ROUND DOWN TO 1K BOUNDARY
1170 KA, CONO 10000 ;CLEAR NXM
1171 MOVES (T) ;SET NXM IF HOLE
1172 KA, CONSZ 10000 ;NXM GENERATED?
1173 KA, JRST ZERO3 ;YES, GO TO NEXT 8K
1174 JRST ZERO2 ;NO, CLEAR THIS 8K
1176 ZERO4: BLT T,(TT) ;AND CLEAR TO TOP BOUNDARY
1178 JRST LOAD1 ;IF SYMBOL-LOADING COMMAND, STOP THERE
1180 MOVE T,[CBUF,,CBUF+1]
1183 MOVE BLOK,CBLK ;-NSWBL IN LH
1184 JSP TT,WRM ;CLEAR PSEUDO-CORE
1186 LOAD1: SETZB BUFP,BLKCNT ;SET UP BUFP SO FIRST CALL TO WD WILL READ
1187 LOAD2: JSP P,WD ;FIRST BLOCK OF FILE
1188 CAME D,[JRST 1] ;LOOK FOR END OF SBLK LOADER
1190 CAIN CMD,'I ;IF VERIFY, START SIMULATING DUMP
1192 LOAD3: JSP P,WD ;READ BLOCK HEADER
1193 JUMPGE D,LOADS ;IT'S A JUMP BLOCK
1196 JSR LOADB ;LOAD LOGICAL BLOCK INTO CORE
1200 LOAD4: JSP P,WD ;LOAD A LOGICAL BLOCK--AOBJN POINTER IN B,
1201 ROT A,1 ;BLOCK HEADER IN A (FOR CHECKSUM)
1202 ADD A,D ;ADD NEW WORD INTO CHECKSUM
1203 JSP P,FD ;AND PREPARE TO SMASH IT AWAY
1204 JRST .+2 ;LOCATION CAN'T BE LOADED
1205 MOVEM D,(C) ;SMASH WORD AWAY
1208 CAMN A,D ;CHECK THE CHECKSUM
1210 JSR ECKS,ERROR ;BAD CHECKSUM
1213 JRST LOADG0 ;DON'T LOAD SYMBOLS NOR SADR
1214 MOVEM D,NXTBW3 ;SAVE S.A.
1215 MOVEI B,DDT-1 ;ASSUME IS ALWAYS MOBY DDT.
1216 JSP P,FD ;GET DDT'S SYMBOL TABLE POINTER
1217 JSR EDDT,ERROR ;CAN'T GET IT??
1219 JRST LOADJ ;AIN'T GOT NO DDT, IGNORE SYMBOLS
1220 HRROS B,(C) ;TELL DDT ITS SYMBOL TABLE WAS BUGGERED
1221 CAMN B,[-1,,DDT-2] ;VERIFY THAT IT'S REALLY A MOBY DDT LIKE WE THOUGHT
1222 JSP P,FD ;FETCH SYMBOL TABLE POINTER
1226 LOADS1: MOVE B,DDTM2 ;GET LOWEST SYMBOL LOC SO FAR
1227 JSP P,WD ;GET SYMBOL BLOCK HEADER
1228 JUMPGE D,LOADS2 ;JUMP IF END OF SYMBOLS
1229 TRNE D,-1 ;SKIP IF REALLY SYMBOLS AND NOT SOME OTHER BRAIN-DAMAGED CRUFT
1233 ADD B,D ;EFFECTIVELY SUBTRACTS LENGTH OF BLOCK FROM BOTH HALVES
1234 MOVEM B,DDTM2 ;OF SYMBOL TABLE POINTER
1235 HRL B,D ;SET UP AOBJN POINTER IN B
1236 HRLZ A,D ;AND RECREATE HEADER IN A
1237 JSR LOADB ;LOAD THE SYMBOLS
1240 LOADBD: HLRO B,D ;-# WORDS TO SKIP (NOT COUNTING CHECKSUM)
1243 JRST LOADS1 ;TRY NEXT SYMBOL BLOCK
1245 LOADS2: MOVE D,DDTM2 ;GET UPDATED DDT SYMBOL PNTR
1246 LOADS4: MOVEI B,DDT-2 ;WE KNOW WHERE IT ALWAYS GOES
1247 JSP P,FD ;PUT BACK SYMBOL TABLE POINTER
1248 JSR EBUG,ERROR ;CAN'T PUT IT BACK??
1250 MOVEI B,DDT-4 ;GIVE STARTING ADDRESS TO DDT
1255 MOVEI D,DDT ;AND SET DSKDMP START ADDRESS TO DDT
1256 LOADJ: HRRM D,SADR ;SET STARTING ADDRESS FROM JUMP BLOCK
1257 LOADG0: MOVE T,BOOTNS ;APPROP DISK WAIT FOR NON BUSY INSTR
1259 LOADG: JSP TT,WRCB ;MAKE SURE ALL LOADED CRUFT IN PSEUDO-CORE IS OUT
1261 JSP P,LODUMP ;AND LOAD IT ALL IN
1263 JRST READ ;NON-GOING COMMAND
1265 PH,[ MOVSI B,-LSWPADR
1266 GO1: IORD DIFF,SWPCS1
1267 TRNN DIFF,%HXRDY ; Wait for controller
1279 GO1: CONSZ DSK,%HIBSY
1294 SC, DATAO DC0,[DJMP SWPOUT]
1299 JRST LOADG1 ;SHUT UP IF KEY HIT
1300 MOVE C,TUT+QPKNUM ;TYPE PACK NUMBER
1302 MOVE D,TUT+QPAKID ;AND I.D.
1304 JSP TT,NXTTUT ;SAME FOR ALL DIRECTORIES
1307 LISTS1: CAIGE T,2000
1308 JSP P,TYI0 ;STOP TYPING IF TTI FLAG ON
1310 SKIPE D,DIR+MNUNAM(T)
1311 JSP TT,PD ;TYPE OUT USER NAME
1315 LISTFC: MOVE T,DIR+UDNAMP
1317 KA, CONSO TTY,40 ;STOP TYPING IF TTI FLAG ON
1318 KS, SKIPN 8CTYIN ; Stop typing if character waiting
1321 SKIPN DIR+UNFN1(T) ;SKIP IF FILE IN THIS SLOT
1324 LDB C,[UNPKN DIR+UNRNDM(T)]
1325 JSP TT,PNO ;TYPE PACK NUMBER
1327 JSP TT,PD2 ;TYPE FIRST FILE NAME
1329 JSP TT,PD2 ;AND SECOND FILE NAME
1330 LISTF2: ADDI T,LUNBLK
1333 KILL: JSP TT,NXTB6 ;GET HERE ON KILL OR DUMP OF EXISTING FILE
1334 MOVEI T,0 ;ZERO BYTES IN USER DIRECTORY DESCIPTOR AREA
1335 DPB T,DIRPT ;NXTB6 JUMPS TO KILL1 AT END OF FILE
1339 CAIGE T,TUTLK-1 ;SOS USAGE OF THIS BLOCK
1340 SOJL T,[JSR ECDR,ERROR]
1344 KILL1: HRRZ T,DMP4 ;CLEAR OUT USER DIRECTORY SLOT
1347 CLEARM DIR+UNRNDM(T)
1350 JRST KILDMP ;IF KILL DON'T DUMP
1351 JRST DMP4 ;MUST DUMP ON SAME UNIT
1353 DUMP0: MOVE T,DIR+UDNAMP ;GET HERE IF SLOT CREATED AT BOTTOM OF NAME AREA
1354 DUMP: HRRM T,DMP4 ;GET HERE IF EMPTY SLOT FOUND IN NAME AREA
1355 DMP0: MOVEI D,0 ;GET HERE IF USING SLOT OF OLD FILE
1356 DMP1: ;MOVE C,TUT+QSWAPA
1357 MOVEI C,0 ;NOTE START AT 0 NOT QSWAPA
1360 HRLZ B,B ;LH(B) COUNTS BLOCKS, RH(B) COUNTS FREE BLOCKS
1364 KA, SUBI B,1 ;THIS RELIES ON CARRY PROPAGATING FROM RH TO LH IN AOBJN
1365 KL, HRRI B,-1(B) ;ON KI10, KL10 CHANGE SUBI B,1 TO HRRI B,-1(B)
1366 KS, HRRI B,-1(B) ;KS too...
1368 CAIG B,(D) ;RH OF D IS HIGHEST SO FAR, LH SAYS WHICH UNIT
1369 JRST DMP5 ;NOT BETTER THAN RECORD
1370 MOVE D,B ;NEW RECORD--RECORD IT
1372 DMP5: JSP TT,NXTTUT ;TRY NEXT
1374 ;FALLS THROUGH AT END
1375 DMP3: HLRM D,CU ;SET CURRENT UNIT TO ONE WITH MOST FREE BLOCKS
1376 JSP TT,RDTUT ;GET ITS TUT
1380 MOVEM A,DIR+UNFN1(T) ;PUT CRUFT INTO SLOT
1381 MOVEM B,DIR+UNFN2(T)
1382 SETOM DIR+UNDATE(T) ; Unknown creation date
1383 HRROI C,777000 ; Unknown reference date
1384 MOVEM C,DIR+UNREF(T) ; Unknown author, 36. bit bytes
1385 SC,[ MOVEM A,XWDS+XWFN1
1389 ] MOVE C,DIR+UDESCP ;PUT DESCRIPTOR CHARACTER ADDRESS
1390 MOVE B,TUT+QPKNUM ;AND PACK NUMBER
1392 MOVEM C,DIR+UNRNDM(T) ;INTO USER DIRECTORY SLOT
1393 ;MOVE C,TUT+QSWAPA ;COMMENTED OUT INSN DUMPS INTO FILE AREA
1394 MOVEI C,0 ;DUMP INTO SWAPPING AREA TO AVOID Y FILES
1395 MOVEM C,LBLOCK ;A DAEMON WILL COPY INTO FILE AREA AFTER SALVAGE
1397 MOVEM C,TUTPT ;INITIALIZE TUT POINTER
1400 MOVEM C,DIRPT ;INITIALIZE DESCRIPTOR AREA POINTER
1401 SETOB WRITE,BLKCNT ;FORCE NXTBW TO LOAD ADR
1402 KA, HRLOI BUFP,-2001-1 ;SET UP BUFP SO FIRST WORD GOES IN DBUF+0
1403 KL, HRLOI BUFP,-2001
1404 KS, HRLOI BUFP,-2001
1406 JSP P,WD ;END OF SBLK LOADER
1410 DUMP.5: MOVSI WRITE,-'I(CMD) ;GET HERE IF VERIFY--SET WRITE NEGATIVE IF
1411 MOVEI B,40 ;DUMP AND ZERO IF VERIFY--FIRST ADDR DUMPED IS 40
1417 MOVEI B,DDT-3 ;SET UP TO NOT DUMP SYMBOLS AS PART OF CORE IMAGE
1420 SKIPN A,(C) ;GET PNTR TO BUILT IN SYMBOLS
1421 JRST DUMP4 ;NO DDT, DON'T HACK THIS
1422 HRRM A,DUMP7 ;THIS IS WHERE WE START DUMPING AGAIN
1423 MOVEM A,DUMP9K ;THIS WILL BE INITIAL SYMBOL TABLE PNTR WHEN DDT LOADED
1425 ADD A,1(C) ;GET MINUS SIZE OF NON-BUILTIN SYMBOL TABLE IN RH(A)
1426 HRL A,1(C) ;GET PNTR TO SYMBOL TABLE
1427 HLRM A,DUMP6 ;THIS IS WHERE WE STOP DUMPING
1428 MOVSM A,DUMP9S ;SAVE AOBJN PNTR TO NON-BUILTIN SYMBOLS
1429 MOVE A,-1(C) ;PICK UP START ADDRESS
1430 MOVEM A,DUMP9J ;SAVE
1431 MOVE B,-2(C) ;DUMP LOW CORE (ACS) OUT OF PLACE SAVED IN DDT
1432 HLLZ A,B ;HERE B HAS ADDRESS DUMPING FROM
1433 JRST DUMP3B ;AND A AND D HAVE VIRTUAL ADDRESS
1435 DUMP1: ;SKIP OVER NXM ON DUMPING
1436 KA,[ CONSO 10000 ;NXM SET?
1437 JRST DUMP1A ;NO, CONTINUE IN SEQUENCE
1438 ADDI B,10*2000-1 ;SKIP 8K
1439 TRZ B,1777 ;ROUND DOWN TO 8K BOUDARY
1440 CONO 10000 ;CLEAR NXM
1443 DUMP6: CAIGE B,. ;SKIP IF REACHED SYMBOL TABLE
1445 DUMP7: MOVEI B,. ;SKIP OVER SYMBOLS, DUMP DDT
1446 HLLOS DUMP6 ;DEFUSE TEST
1448 JRST DUMPJ ;TIME TO WRITE JUMP BLOCK AND SYMBOL TABLE
1449 SKIPN (C) ;LOOK FOR NON-ZEROES
1451 MOVE A,B ;SAVE START OF BLOCK
1452 DUMP2: TLZ A,-1 ;LOOK FOR TWO CONSECUTIVE ZEROES
1453 DUMP2A: CAIL B,200(A) ;BUT DON'T DUMP MORE THAN 200 WORDS AT A TIME
1457 JRST DUMP3 ;END OF CORE, WRITE OUT LAST BLOCK
1459 AOJA B,DUMP2 ;NONZERO
1460 TLON A,-1 ;ZERO, WAS PREV LOC ZERO ALSO?
1461 AOJA B,DUMP2A ;NO, CHECK FOLLOWING LOC
1462 SOJA B,DUMP3 ;YES, DUMP THE NON-ZERO THAT PRECEDES IT
1464 DUMP3: HRRM B,DUMP4 ;SAVE ADDRESS TO CONTINUE SEARCH
1465 SUBM A,B ;RH(B) GETS MINUS THE LENGTH OF THE BLOCK
1466 HRL A,B ;SET UP HEADER IN A
1468 DUMP3B: MOVE D,A ;AND D
1469 JSP P,WD ;WRITE HEADER
1471 JSR EBUG,ERROR ;CAN'T FETCH WORD WE FETCHED BEFORE??
1474 ADD A,D ;COMPUTE CHECKSUM
1475 JSP P,WD ;WRITE DATA WORD
1478 JSP P,WD ;WRITE OUT CHECKSUM
1479 DUMP4: MOVEI B,. ;AND CONTINUE SEARCHING
1480 JUMPN B,DUMP1 ;IF MRC EVER SEES THIS --SELFMODIFYING CODE-- ....
1481 JRST DUMP9 ;FINISHED DUMPING SYMBOLS
1485 HRROI D,DDT-2 ;BUGGER THE SYMBOL TABLE
1493 DMP9J1: SKIPN D,DUMP9J
1495 JSP P,WD ;WRITE OUT JUMP BLOCK
1496 SKIPN B,DUMP9S ;WRITE SYMBOLS
1497 JRST DUMP9 ;NO SYMBOLS
1499 HLLZS DUMP4 ;DUMP SYMBOL BLOCK, RETURN TO DUMP9
1502 DUMP9: JUMPE WRITE,LOADG1 ;IF VERIFY, THAT'S ALL
1505 JSP P,WD ;SECOND JUMP BLOCK
1506 HRRZ T,DMP4 ; GET POINTER TO NAME AREA
1508 DPB BUFP,[UNWRDC+DIR+UNRNDM(T)]
1510 JSP TT,WRDB ;WRITE OUT LAST BLOCK
1512 JSR NXTBW3 ;STORE LAST DESCRIPTOR BYTE
1514 JSR NXTBW3 ;AND INDICATE END OF FILE
1515 LDB T,[360600,,DIRPT]
1519 SUBI TT,6*<DIR+UDDESC>-5-1(T)
1520 HRRZM TT,DIR+UDESCP ;INDICATE NEW END OF DESCRIPTOR AREA
1521 KILDMP: MOVEI UNIT,TUT
1523 JSP TT,WRD ;WRITE OUT TUT ON THIS UNIT
1530 HRRM B,KD2 ;WRITE OUT USER DIRECTORY ON ALL UNITS
1547 GTP: SKIPGE TUT+QPKNUM
1548 JSR EBUG,ERROR ;MUST BE OLD-STYLE TUT?
1550 JUMPL C,[JSR EBUG,ERROR]
1552 IMULI A,-10000*TUTBYT
1553 HRLI C,440000+TUTBYT_6(A)
1557 SC,[ ;LOGICAL TO PHYSICAL DISK MAPPING
1558 QTRAN: 0 ;INDEX BY LOG DSK #
1559 1 ;4.9 => USE HIGH HALF OF DRIVE, RH = PHYS DRIVE #
1560 2 ;(NO LONGER DOES ANYTHING, NOW THAT MEMOWRECKS ARE GONE,
1561 3 ; BUT KEEP AROUND JUST IN CASE EVER NEEDED AGAIN.)
1566 IFL .-QTRAN-NDSK,.ERR QTRAN LOSES!!
1569 ERRCT: 0 ;ERROR COUNTER
1570 DDTM2: 0 ;DDT SYMBOL TABLE POINTER
1571 DUMP9J: 0 ;START INSTRUCTION (AT DUMP9)
1572 DUMP9S: 0 ;SYMBOL TABLE POINTER (AT DUMP9)
1573 DUMP9K: 0 ;INITIAL SYMBOL TABLE PNTR (AT DUMP9)
1574 LBLOCK: 0 ;LAST BLOCK WRITTEN OR READ
1575 BLKCNT: 0 ;NUMBER OF BLOCKS READ OR WRITTEN CONSECUTIVELY
1576 DIRPT: 0 ;DESCRIPTOR AREA BYTE POINTER
1577 TUTPT: 0 ;TUT BYTE POINTER
1580 PKNUM: REPEAT NDSK,-1 ;PACK NUMBER INDEXED BY DRIVE NUMBER
1581 QDED: BLOCK NDSK ;-1 IF DRIVE NOT TO BE USED
1584 BOOTNS: RP, CONSZ DPC,BUSY
1585 SC, CONSZ DC0,DSSACT
1586 RH, CONSZ DSK,%HIBSY
1587 PH, IORD B,SWPCS1 ; UGH!
1591 IFL BEG+1677-., .ERR BLOAT
1592 INFORM SPACE LEFT,\BEG+1677-.
1595 BADBLK: 0 ;BLOCK WITH HDWE ERROR
1596 INFORM BADBLK,\.-1-BEG+<MEMSIZ-2000>
1604 CBOOT: CLEARM MEMSIZ-1 ;BOOTSTRAP
1607 IFE BOOTSW, JRST BEG ;OR CONSZ DPC,BUSY OR JRST LOADG1
1608 IFN BOOTSW, CONSZ DPC,BUSY
1610 MOVEI B,ICWA+2 ;SET UP CHANNEL PROG
1617 BOOT0: TRNN B,RP03BT
1619 MOVEI B,MBLKS ;UNIT 0 IS AN RP03, ADJUST WORLD
1625 BOOT1: HLLZS BOOT0 ;PREVENT TRNN FROM SKIPPING AGAIN
1639 CLATT1: DEASEC ALLATT
1640 SWPSK: DSEEKC+200._22.
1641 SWPIN1: DWRITC+200._22.+3_17.+2._12.+ICWA ;NBLKS 4
1642 SWPIN2: DREADC+200._22.+4_17.+8._12.+ICWA
1643 SWPOU1: DWRITC+200._22.+4_17.+8._12.+ICWA
1644 SWPOU2: DREADC+200._22.+3_17.+2_12.+ICWA
1645 IFN NSWBL-5, .ERR THE PRECEDING 4 CONSTANTS ARE WRONG!
1646 CBLK: -NSWBL,,NBLKS ;DISK ADDR OF CORE BUFFER, - # BLOCKS IN LH
1647 RP3ADJ: <<MCYLS#NCYLS>&377>_22.+<.BM DCYLXB>
1650 SKWAIT: DATAI DPC,A ;AWAIT SEEK DONE UNIT 0
1661 WAIT: CONSO DPC,DONE
1665 PH,[ ;; Initially we could not use IORDQ or IOWRQ because they were
1666 ;; macros that used a literal. There is nothing to stop us now,
1667 ;; except the fact that this code works fine and is as small as you
1668 ;; could possibly want.
1671 IFE BOOTSW, JRST BEG ; or IORD B,SWPCS1 or JRST LOADG1
1672 IFN BOOTSW, IORD B,SWPCS1
1675 KS, WREBR 0 ; No paging or caching
1677 IOWR A,SWPCS2 ; Select drive
1678 BOOT0: IORD A,SWPCS1
1680 JRST BOOT0 ; Await drive available
1682 BOOT1: HLRZ A,SWPVAL(B)
1684 BOOT2: IORD A,SWPCS1
1685 TRNN A,%HXRDY ; Wait for controller
1687 TRNE A,%HXTRE+%HXMCP ; Lossage?
1692 ZZ1==<NSWBL-1>*SECBLK ;BLOCK CONTAINING CORE SWAPPED OUT TO BRING DSKDMP IN
1693 ZZ2==<NSWBL>*SECBLK ;DSKDMP RESIDENCE BLOCK
1696 ZZ1==ZZ3*400+<ZZ1-NSECS*ZZ3> ;CONVERT ADDR TO DISK FORMAT
1697 ZZ2==ZZ4*400+<ZZ2-NSECS*ZZ4>
1699 SWPADR: UBAQ,,UBAPAG+UBPG_1 ; Set up Unibus map
1700 UBAQ,,UBAPAG+UBPG_1+1
1701 UBAQ,,%HRCS2 ; Clear controller
1702 SWPCS2: UBAQ,,%HRCS2 ; Select drive
1703 SWPCS1: UBAQ,,%HRCS1 ; Initialize
1704 UBAQ,,%HRCYL ; Desire cylinder
1705 UBAQ,,%HRWC ; Set (half) word count
1706 UBAQ,,%HRBA ; Set Unibus address
1707 UBAQ,,%HRADR ; Desire track and sector
1708 UBAQ,,%HRCS1 ; Write
1709 UBAQ,,%HRWC ; Reset (half) word count
1710 UBAQ,,%HRBA ; Reset Unibus address
1711 UBAQ,,%HRADR ; Desire track and sector
1715 IFN BEG&1777, .ERR BEG does not lie on a page boundary?
1717 ;;; LH FOR SWAP IN, RH FOR SWAP OUT
1718 SWPVAL: %UQVAL+%UQFST+BEG_-9,,%UQVAL+%UQFST+BEG_-9 ; Set up Unibus map
1719 %UQVAL+%UQFST+BEG_-9+1,,%UQVAL+%UQFST+BEG_-9+1
1720 %HYCLR,,%HYCLR ; Clear controller
1722 %HMRDP,,%HMRDP ; Initialize
1723 NCYLS,,NCYLS ; Desire cylinder
1724 -1700*2,,-1700*2 ; Set (half) word count
1725 UBPG_14,,UBPG_14 ; Set Unibus address
1726 ZZ1,,ZZ2 ; Desire track and sector
1727 %HMWRT,,%HMWRT ; Write
1728 -1700*2,,-1700*2 ; Reset (half) word count
1729 UBPG_14,,UBPG_14 ; Reset Unibus address
1730 ZZ2,,ZZ1 ; Desire track and sector
1731 %HMRED,,%HMRED ; Read
1732 IFN .-SWPVAL-LSWPADR, .ERR SWPVAL wrong length.
1743 IFE BOOTSW, JRST BEG ;OR CONSZ DSK,%HIBSY OR JRST LOADG1
1744 IFN BOOTSW, CONSZ DSK,%HIBSY
1746 KL, CONSZ PAG,660000 ;PAGING AND CACHE MUST BE DISABLED
1748 MOVEI B,ICWA+2 ;SET UP CHANNEL PROG
1752 BOOT0: DATAO DSK,[%HRDCL,,]
1757 JRST BOOT0 ;AWAIT DRIVE AVAILABLE
1764 BOOT1: DATAO DSK,SWPIN1(B)
1774 ZZ1==<NSWBL-1>*SECBLK ;BLOCK CONTAINING CORE SWAPPED OUT TO BRING DSKDMP IN
1775 ZZ2==<NSWBL>*SECBLK ;DSKDMP RESIDENCE BLOCK
1778 ZZ1==ZZ3*400+<ZZ1-NSECS*ZZ3> ;CONVERT ADDR TO DISK FORMAT
1779 ZZ2==ZZ4*400+<ZZ2-NSECS*ZZ4>
1782 SWPIN1: %HRLOD+%HRDCL,,%HMRDP
1783 SWPIN2: %HRLOD+%HRCYL,,NCYLS+1 ;AVOID CYLINDER 406 WHICH KLDCP USES
1784 SWPIN3: %HRLOD+%HRADR,,ZZ1
1785 SWPIN4: %HRLOD+%HRCTL,,%HMWRT+ICWA_6
1786 SWPIN5: %HRLOD+%HRADR,,ZZ2
1787 SWPIN6: %HRLOD+%HRCTL,,%HMRED+ICWA_6
1789 SWPOU1: %HRLOD+%HRDCL,,%HMRDP
1790 SWPOU2: %HRLOD+%HRCYL,,NCYLS+1 ;AVOID CYLINDER 406 WHICH KLDCP USES
1791 SWPOU3: %HRLOD+%HRADR,,ZZ2
1792 SWPOU4: %HRLOD+%HRCTL,,%HMWRT+ICWA_6
1793 SWPOU5: %HRLOD+%HRADR,,ZZ1
1794 SWPOU6: %HRLOD+%HRCTL,,%HMRED+ICWA_6
1796 CBLK: -NSWBL,,NBLKS+NBLKSC ;AVOID CYLINDER 406 WHICH KLDCP USES
1798 WAIT: CONSO DSK,%HIDON
1804 IFE BOOTSW, JRST BEG ;OR CONSZ DC0,DSSACT OR JRST LOADG1
1805 IFN BOOTSW, CONSZ DC0,DSSACT
1814 DADR==NCYLS_13+<<NSWBL-1>/2>_6+<<NSWBL-1>&1> ;ADDR OF LAST BLOCK IN CORE BUFFER
1815 DADR1==NCYLS_13+<NSWBL/2>_6+<NSWBL&1> ;ADDR OF NEXT BLOCK (CONTAINS
1816 SWPIN: DWRITE+DUNENB+DADR ; WORKING COPY OF DSKDMP)
1817 DCOPY BEG(-2000_2&37774)
1820 DCOPY BEG(-2000_2&37774)
1823 DCOPY BEG(-1700_2&37774)
1824 DCSKIP (-104_2&37774)
1826 DCOPY BEG(-1700_2&37774)
1827 DCSKIP (-104_2&37774)
1830 SWPOUT: DWRITE+DUNENB+DADR1
1831 DCOPY BEG(-2000_2&37774)
1834 DCOPY BEG(-2000_2&37774)
1837 DCOPY BEG(-1700_2&37774)
1838 DCSKIP (-104_2&37774)
1840 DCOPY BEG(-1700_2&37774)
1841 DCSKIP (-104_2&37774)
1844 CBLK: -NSWBL,,NBLKS ;DISK ADDR OF CORE BUFFER, - # BLOCKS IN LH
1845 WAIT: CONSZ DC0,DSSACT
1848 SADR: JRST BOOT ;AND GO TO PROGRAM TO BE STARTED
1849 SYSN: SIXBIT /./ ;CURRENT DIRECTORY
1850 IFG .+1-MEMSIZ,.ERR BOOT BLOAT
1852 IFE BOOTSW,{ ;CURLY BRACKETS TO AVOID ERROR MESSAGE
1856 ;THESE ARE THE BLOCKS THAT GET WRITTEN ON DISK
1857 ; STARTING AT THE BEGINNING OF THE FIRST EXTRA CYLINDER
1859 CBUF: BLOCK 2000 ;PSEUDO-CORE BUFFER
1860 DBUF: BLOCK 2000 ;DISK BUFFER
1861 DIR: BLOCK 2000 ;DIRECTORY BUFFER
1862 TUT: BLOCK 2000*NTUTBL ;TUT BUFFER
1863 IFN .-BEG,.ERR BLOCKS LOST
1864 ; BLOCK 2000 ;CORE OVERLAYED BY DSKDMP
1865 ; BLOCK 2000 ;COPY OF DSKDMP
1866 ; BLOCK 2000 ;SPARE COPY OF DSKDMP
1870 IFN BOOTSW, END CBOOT